Rechnugnsdruck AMBAR JAhr

SDL/Fakturierung/usrCntlFaktAbrechnung.vb

@@ -298,12 +298,6 @@ Public Class usrCntlFaktAbrechnung
 
             rtbHandling.Text = If(RECHNUNG.Handling, "")
 
-            If RECHNUNG.Vorkasse Then
-                lblVorauskasse.Text = "JA"
-            Else
-                lblVorauskasse.Text = "NEIN"
-            End If
-
             txtText.Text = If(RECHNUNG.Text, "")
             txtTextZZ.Text = If(RECHNUNG.TextZZ, "")
 
@@ -321,6 +315,15 @@ Public Class usrCntlFaktAbrechnung
 
             cboRechnungAn.changeItem(RECHNUNG.Rechnung_an)
 
+
+            If RECHNUNG.Vorkasse Then
+                'lblVorauskasse.Text = "JA"
+                cboVorauskasse.changeItem("1")
+            Else
+                'lblVorauskasse.Text = "NEIN"
+                cboVorauskasse.changeItem("0")
+            End If
+
             txtKdAuftragsNr.Text = If(RECHNUNG.KdAuftragsNr, "")
 
             Button2.Enabled = (RECHNUNG.Status = 0)
@@ -525,6 +528,10 @@ Public Class usrCntlFaktAbrechnung
         End If
 
 
+        cboVorauskasse.Items.Clear()
+        cboVorauskasse.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("NEIN", 0))
+        cboVorauskasse.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("JA", 1))
+
         cboSammelrechnung.Items.Clear()
         cboSammelrechnung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("0 Einzel", 0))
         cboSammelrechnung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("1 täglich", 1))
@@ -946,7 +953,7 @@ Public Class usrCntlFaktAbrechnung
                     End If
                     cboSammelrechnung.changeItem(If(kdFirmaAbsender.KdData_KUNDE.Sammelrechnung, ""))
                     cboWaehrungUmrechnung.changeItem(If(kdFirmaAbsender.KdData_KUNDE.Währungscode, ""))
-
+                    cboVorauskasse.changeItem(CInt(kdFirmaAbsender.KdData_KUNDE.Vorkasse))
                 End If
             Case "2"
                 kdFirmaRechnungAn.KdNr = kdFirmaEmpfaenger.KdNr
@@ -963,6 +970,7 @@ Public Class usrCntlFaktAbrechnung
                     End If
                     cboSammelrechnung.changeItem(If(kdFirmaEmpfaenger.KdData_KUNDE.Sammelrechnung, ""))
                     cboWaehrungUmrechnung.changeItem(If(kdFirmaEmpfaenger.KdData_KUNDE.Währungscode, ""))
+                    cboVorauskasse.changeItem(CInt(kdFirmaEmpfaenger.KdData_KUNDE.Vorkasse))
                 End If
             Case "3"
                 kdFirmaRechnungAn.KdNr = kdFirmaAuftraggeber.KdNr
@@ -979,6 +987,7 @@ Public Class usrCntlFaktAbrechnung
                     End If
                     cboSammelrechnung.changeItem(If(kdFirmaAuftraggeber.KdData_KUNDE.Sammelrechnung, ""))
                     cboWaehrungUmrechnung.changeItem(If(kdFirmaAuftraggeber.KdData_KUNDE.Währungscode, ""))
+                    cboVorauskasse.changeItem(CInt(kdFirmaAuftraggeber.KdData_KUNDE.Vorkasse))
                 End If
             Case "4"
                 kdFirmaRechnungAn.KdNr = kdFirmaAvisierer.KdNr
@@ -992,6 +1001,7 @@ Public Class usrCntlFaktAbrechnung
                     End If
                     cboSammelrechnung.changeItem(If(kdFirmaAvisierer.KdData_KUNDE.Sammelrechnung, ""))
                     cboWaehrungUmrechnung.changeItem(If(kdFirmaAvisierer.KdData_KUNDE.Währungscode, ""))
+                    cboVorauskasse.changeItem(CInt(kdFirmaAvisierer.KdData_KUNDE.Vorkasse))
                 End If
             Case Else
         End Select
@@ -1995,7 +2005,15 @@ Public Class usrCntlFaktAbrechnung
             RECHNUNG.Vorlageprovision_Proz = kdFirmaRechnungAn.KdData_KUNDE.Vorlageprovision '!!!!%
             RECHNUNG.Kreditaufwendungen_Proz = kdFirmaRechnungAn.KdData_KUNDE.Kreditaufwendungen '!!!!%
             RECHNUNG.Besonderheiten = kdFirmaRechnungAn.KdData_KUNDE.Besonderheiten
-            RECHNUNG.Vorkasse = kdFirmaRechnungAn.KdData_KUNDE.Vorkasse
+
+
+            If cboVorauskasse._value <> "" Then
+                RECHNUNG.Vorkasse = CBool(cboVorauskasse._value)
+            Else
+                RECHNUNG.Vorkasse = kdFirmaRechnungAn.KdData_KUNDE.Vorkasse
+            End If
+
+
             RECHNUNG.Nettozahlungsziel = kdFirmaRechnungAn.KdData_KUNDE.Zahlungsziel
         End If
 
@@ -4154,5 +4172,11 @@ Nächste_Textzeile_lesen:
 
     End Sub
 
-
+    Private Sub cboVorauskasse_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboVorauskasse.SelectedIndexChanged
+        If cboVorauskasse._value <> "" Then RECHNUNG.Vorkasse = CBool(cboVorauskasse._value)
+        If loaded Then
+            txtTextZZ.Text = cFakturierung.przRechnungstextZZ(RECHNUNG)
+            txtText.Text = cFakturierung.przRechnungstextTXT(RECHNUNG, SPEDBUCH)
+        End If
+    End Sub
 End Class