Untitled

  If fld = "Station" And vall <> "" Then 'מוסיף רכב ברירת מחדל
      Dim stationrs As station = _context.station.Where(Function(s) s.FFID = vall).FirstOrDefault
      If Not stationrs Is Nothing Then
          Dim defapp As String = Nz(stationrs.defApparatus, "")
          If defapp <> "" Then
              Dim appars As ApparatusINC = _context.ApparatusINC.Where(Function(a) a.Exposure = ExposureNum And a.Incident = incidentid And a.UnitID = defapp).FirstOrDefault
              If appars Is Nothing Then
                  Dim app As Apparatus = _context.Apparatus.Where(Function(t) t.AppID = defapp).FirstOrDefault
                  Dim apptype As String = ""
                  If Not app Is Nothing Then
                      apptype = Nz(app.Apptype, "")
                  End If
                  appars = New ApparatusINC
                  appars.Incident = incidentid
                  appars.Exposure = ExposureNum
                  appars.UnitID = defapp
                  appars.ApparatusType = apptype
                  _context.ApparatusINC.Add(appars)
                  _contextinci.SaveChanges()
                  _context.SaveChanges()
                  Call fillpersonnel(appars.moneln, incidentid, ExposureNum, Session, Request, _contextinci.Database.Connection.ConnectionString)
              End If
          End If
      End If
  End If