neu

SDL/Speditionsbuch/Nacherfassung/frmNacherfassungNEU.vb

@@ -64,6 +64,7 @@ Public Class frmNacherfassungNEU
                     Case "ATILLA" : sbWhere = " AND Niederlassung = 'SUA' "
                     Case "IMEX" : sbWhere = " AND Mandant = 'IMEX' "
                     Case "UNISPED" : sbWhere = " AND Mandant = 'UNAT' "
+                    Case "FRONTOFFICE" : sbWhere = " AND Niederlassung <> 'SUA' "
                     Case Else
                         'If AVISO IsNot Nothing Then
                         '    Select Case AVISO.Grenzstelle
@@ -73,7 +74,7 @@ Public Class frmNacherfassungNEU
                         '        Case "WAI" : sbWhere = " AND Niederlassung IN ('WAI')"
                         '    End Select
                         'End If
-                        sbWhere = " AND Mandant <> 'IMEX' "
+                        sbWhere = " AND Mandant <> 'IMEX' AND Mandant <> 'UNAT'  AND Niederlassung <> 'SUA' "
                 End Select
                 'Else
                 '    Select Case SPEDITIONSBUCH.FilialenNr
@@ -121,7 +122,7 @@ Public Class frmNacherfassungNEU
             allowChange = True
 
 
-            If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("FISKAL", "SDL") And (SPEDITIONSBUCH.FilialenNr = 4805 Or SPEDITIONSBUCH.FilialenNr = 4811) Then
+            If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("FISKAL", "SDL") And (SPEDITIONSBUCH.FilialenNr = 4805 Or SPEDITIONSBUCH.FilialenNr = 4811 Or SPEDITIONSBUCH.FilialenNr = 5501 Or SPEDITIONSBUCH.FilialenNr = 5601 Or SPEDITIONSBUCH.FilialenNr = 5801) Then
                 pnlFiskal.Visible = True
             Else
                 pnlFiskal.Visible = False
@@ -295,7 +296,10 @@ Public Class frmNacherfassungNEU
 
         cbxCMR.Checked = SPEDITIONSBUCH.SB_CMR
         txtCMRDatum.Text = If(SPEDITIONSBUCH.SB_CMRDatum, "")
+        txtCMRNr.Text = If(SPEDITIONSBUCH.SB_CMRNr, "")
 
+        cboFilialeHandling.changeItem(If(SPEDITIONSBUCH.FilialenNrHandling, ""))
+        txtHandlingZuKassieren._value = SPEDITIONSBUCH.HandlingZuKassieren
 
         lblLastMa.Text = SPEDITIONSBUCH.Sachbearbeiter
         If SPEDITIONSBUCH.AvisoID IsNot Nothing Then avisoLinkId = SPEDITIONSBUCH.AvisoID
@@ -558,6 +562,7 @@ Public Class frmNacherfassungNEU
 
 
         cboFiliale.fillWithSQL("SELECT FilialenNr, cast(FilialenNr as varchar(4)) + ' ' + Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True)
+        cboFilialeHandling.fillWithSQL("SELECT FilialenNr, cast(FilialenNr as varchar(4)) + ' ' + Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True)
 
 
         Dim where = ""
@@ -935,10 +940,17 @@ Public Class frmNacherfassungNEU
         SPEDITIONSBUCH.KdAuftragsNrFrachtfuehrer = txtKdAuftragsnummerFrachtfuehrer.Text 
         SPEDITIONSBUCH.AuftraggeberBetragKassiert = txtInkasso._value
 
+
+        SPEDITIONSBUCH.FilialenNrHandling = cProgramFunctions.isLeerNothing(cboFilialeHandling._value)
+        SPEDITIONSBUCH.HandlingZuKassieren = If(IsNumeric(txtHandlingZuKassieren._value), CDbl(txtHandlingZuKassieren._value), 0)
+
+
         SPEDITIONSBUCH.SB_CMRDatum = Nothing
         If pnlFiskal.Visible Then
             SPEDITIONSBUCH.SB_CMR = cbxCMR.Checked
             If txtCMRDatum.Text <> "" Then SPEDITIONSBUCH.SB_CMRDatum = txtCMRDatum.Text
+            SPEDITIONSBUCH.SB_CMRNr = txtCMRNr.Text
+
         End If
     End Sub
 
@@ -1474,5 +1486,8 @@ Public Class frmNacherfassungNEU
         '  End If
     End Sub
 
-
+    Private Sub cbxCMR_CheckedChanged(sender As Object, e As EventArgs) Handles cbxCMR.CheckedChanged
+        txtCMRNr.Enabled = cbxCMR.Checked
+        txtCMRDatum.Enabled = cbxCMR.Checked
+    End Sub
 End Class