X

SDL/Speditionsbuch/Nacherfassung/frmNacherfassungNEU.vb

@@ -292,6 +292,10 @@ Public Class frmNacherfassungNEU
 
         txtInkasso.Text = If(SPEDITIONSBUCH.AuftraggeberBetragKassiert, "")
 
+        cbxCMR.Checked = SPEDITIONSBUCH.SB_CMR
+        txtCMRDatum.Text = If(SPEDITIONSBUCH.SB_CMRDatum, "")
+
+
         lblLastMa.Text = SPEDITIONSBUCH.Sachbearbeiter
         If SPEDITIONSBUCH.AvisoID IsNot Nothing Then avisoLinkId = SPEDITIONSBUCH.AvisoID
 
@@ -922,6 +926,11 @@ Public Class frmNacherfassungNEU
         SPEDITIONSBUCH.KdAuftragsNrFrachtfuehrer = txtKdAuftragsnummerFrachtfuehrer.Text 
         SPEDITIONSBUCH.AuftraggeberBetragKassiert = txtInkasso._value
 
+        SPEDITIONSBUCH.SB_CMRDatum = Nothing
+        If pnlFiskal.Visible Then
+            SPEDITIONSBUCH.SB_CMR = cbxCMR.Checked
+            If txtCMRDatum.Text <> "" Then SPEDITIONSBUCH.SB_CMRDatum = txtCMRDatum.Text
+        End If
     End Sub
 
     Private Sub Panel1_Paint(sender As Object, e As PaintEventArgs) Handles Panel1.Paint