' GET: MachinInfo/Create
Function MachinInfoAdd() As ActionResult
ViewBag.BrandID = New SelectList(db.Brand, "Id", "BrandName")
ViewBag.MachineID = New SelectList(db.MachinKind, "Id", "MachinName")
ViewBag.MachinStateID = New SelectList(db.MachinState, "Id", "Title")
ViewBag.PelakStateID = New SelectList(db.PelakState, "Id", "Title")
ViewBag.GeartypeID = New SelectList(db.GearType, "Id", "Title")
Return View()
End Function
' POST: MachinInfo/Create
'To protect from overposting attacks, please enable the specific properties you want to bind to, for
'more details see https://go.microsoft.com/fwlink/?LinkId=317598.
<HttpPost()>
<ValidateAntiForgeryToken()>
Function MachinInfoAdd(<Bind(Include:="Id,PelakStateID,MachinStateID,OrgCode,MachineID,BrandID,MachintypeID,NPlate,NPlateL,NPlateM,NPlateR,CardSerial,VIN,Chasis,Motor,Myear,Color,GearTypeID,MCost,Mcamp,Description")> ByVal machinInfo As MachinInfo) As ActionResult
If ModelState.IsValid Then
' If machinInfo.NPlate Is Nothing = False Then machinInfo.NPlate = machinInfo.NPlate.Replace("ایران", "").Replace(" ", "").Replace("-", "")
db.MachinInfo.Add(machinInfo)
db.SaveChanges()
Return RedirectToAction("Index")
End If
ViewBag.BrandID = New SelectList(db.Brand, "Id", "BrandName", "SelectedBrandID")
ViewBag.MachineID = New SelectList(db.MachinKind, "Id", "MachinName")
ViewBag.MachinStateID = New SelectList(db.MachinState, "Id", "Title")
ViewBag.PelakStateID = New SelectList(db.PelakState, "Id", "Title")
ViewBag.GeartypeID = New SelectList(db.GearType, "Id", "Title")
Return View(machinInfo)
End Function
Public Function FillTypes(ByVal MachinKindId As Integer) As JsonResult
Dim MachinTypes = db.MachinType.Where(Function(c) c.MachinKindId = MachinKindId).ToArray
Return Json(MachinTypes, JsonRequestBehavior.AllowGet)
End Function