Kopf-Sammelabrechnung

SDL/Fakturierung/usrCntlFaktAbrechnung.vb

@@ -295,6 +295,9 @@ Public Class usrCntlFaktAbrechnung
 
             txtErfassungsnummer.Text = If(RECHNUNG.ErfassungsNr, "")
             cboRechnungNotiz.Text = If(RECHNUNG.Notiz, "")
+
+            initRgArt()
+            cboRgArt._value = RECHNUNG.Rechnungsart
             'txtRohmasse.Text = If(RECHNUNG., "")
 
             cboAnlage1.Text = If(RECHNUNG.Anlage_1, "")
@@ -555,6 +558,16 @@ Public Class usrCntlFaktAbrechnung
         If FirmaTmp = "VERAG360" Then cboRechnungSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Rumänisch", "RO"))
         cboRechnungSprache.changeItem(0)
 
+        cboRgArt.Items.Clear()
+        If SPEDBUCH IsNot Nothing AndAlso SPEDBUCH.Abfertigungsart = 100 Then
+            cboRgArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("RG-Kopf", "RK"))
+        Else
+            cboRgArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Standard", "RG"))
+            cboRgArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Unvollständig", "RU"))
+        End If
+        cboRgArt.changeItem(0)
+
+
         'cboSteuerschlüssel.fillWithSQL("SELECT tblSteuersätze.Nr, tblSteuersätze.Beschreibung FROM tblSteuersätze ORDER BY tblSteuersätze.Nr; ", False, "FMZOLL", True)
         cboSteuerschlüssel.fillWithSQL("SELECT [Steuerschlüssel],isnull([AuswahlSteuerbezeichnung],'') as Steuerbezeichnung FROM [Steuertabelle] ORDER BY [Steuerschlüssel]", False, "FMZOLL", True)
 
@@ -1020,6 +1033,8 @@ Public Class usrCntlFaktAbrechnung
             Case Else
         End Select
 
+        initRgArt()
+
         initKdAtrNr()
         initPkSt()
     End Sub
@@ -1757,6 +1772,9 @@ Public Class usrCntlFaktAbrechnung
             End If
         End If
 
+        initRgArt()
+
+
         initDGVAnhaenge()
 
         cboRechnungAn.Focus()
@@ -1767,7 +1785,33 @@ Public Class usrCntlFaktAbrechnung
         initFirma() ' wegen EV-VZ
     End Sub
 
+    Sub initRgArt()
+        cboRgArt.Items.Clear()
+        If SPEDBUCH IsNot Nothing Then
 
+            If SPEDBUCH.Abfertigungsart = 100 Then
+                cboRgArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("RG-Kopf", "RK"))
+            Else
+                cboRgArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Standard", "RG"))
+                cboRgArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Unvollständig", "RU"))
+            End If
+        Else
+            cboRgArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("RG-Kopf", "RK"))
+            cboRgArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Standard", "RG"))
+            cboRgArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Unvollständig", "RU"))
+        End If
+
+        cboRgArt.SelectedIndex = 0
+        If txtkdNrRechnungAn.Text <> "" Then
+            Dim KDE As New cKundenErweitert(txtkdNrRechnungAn.Text)
+            If KDE IsNot Nothing Then
+
+                If KDE.kde_Kopfsammelrechnung Then
+                    If cboRgArt.Items.Count > 1 Then cboRgArt.changeItem("RU")
+                End If
+            End If
+        End If
+    End Sub
     Sub initDGVAnhaenge()
         With dgvAnhaenge
 
@@ -2338,6 +2382,7 @@ Public Class usrCntlFaktAbrechnung
         RECHNUNG.RefAbfertigungsNr = cProgramFunctions.isLeerNothing(txtAbfertigungsnummerRef.Text) '????????
         RECHNUNG.RefUnterNr = cProgramFunctions.isLeerNothing(txtUnterNrRef.Text) '????????
         RECHNUNG.Notiz = cProgramFunctions.isLeerNothing(cboRechnungNotiz.Text)
+        RECHNUNG.Rechnungsart = cProgramFunctions.isLeerNothing(cboRgArt._value)
         ' RECHNUNG.Zucker_MRN_Nr = cProgramFunctions.isLeerNothing(XXXXXXXXX.text)
         ' RECHNUNG.Zucker_MRN_Datum = cProgramFunctions.isLeerNothing(XXXXXXXXX.text)
         ' RECHNUNG.Zucker_Aufschub = cProgramFunctions.isLeerNothing(XXXXXXXXX.text)