neu

SDL/Speditionsbuch/Nacherfassung/frmNacherfassungNEU.vb

@@ -252,6 +252,7 @@ Public Class frmNacherfassungNEU
         End If
 
         cbxBar.Checked = SPEDITIONSBUCH.Bar
+        cbxEIDR.Checked = SPEDITIONSBUCH.UK_EIDR_ausstehend
         cbxFakturiert.Checked = SPEDITIONSBUCH.Fakturiert
 
         txtBelegNummerZAT1T2.Text = SPEDITIONSBUCH.BelegNr
@@ -622,14 +623,9 @@ Public Class frmNacherfassungNEU
 
 
         cboGrenze.Items.Clear()
-        cboGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
-        cboGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SUB", "SUB"))
-        cboGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SBG", "SBG"))
-        cboGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("WAI", "WAI"))
-        cboGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("NKD", "NKD"))
-        cboGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SUA", "SUA"))
+        cboGrenze.fillWithSQL("SELECT [grz_Grenzstelle],[grz_BezeichnungCBO] FROM tblGrenzstelle where [grz_Firma]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR grz_Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' AND grz_Aktiv=1 order by grz_Reihenfolge, grz_Grenzstelle", False, "AVISO", True,, "ALLE")
         cboGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("???", "???"))
-
+        cboGrenze.changeItem("")
 
         If avisoLinkId > 0 Then
             Dim SQLAVISO As New VERAG_PROG_ALLGEMEIN.cavisoDAL
@@ -904,6 +900,7 @@ Public Class frmNacherfassungNEU
         End If
 
 
+        SPEDITIONSBUCH.UK_EIDR_ausstehend = cbxEIDR.Checked
         SPEDITIONSBUCH.Bar = cbxBar.Checked
         SPEDITIONSBUCH.Fakturiert = cbxFakturiert.Checked
 
@@ -1189,6 +1186,11 @@ Public Class frmNacherfassungNEU
         txtFraechter._UseFIRMA = FirmaTmp
         txtEndEmpf._UseFIRMA = FirmaTmp
 
+        If cboFiliale._value = 7001 Then
+            cbxEIDR.Visible = True
+        Else
+            cbxEIDR.Visible = False
+        End If
     End Sub