Bugfix AMBAR

SDL/Fakturierung/usrCntlFaktAbrechnung.vb

@@ -3992,21 +3992,23 @@ Nächste_Textzeile_lesen:
             kdFirmaAuftraggeber.KdData_ADRESSEN = kundeVeragAdr
             kdFirmaAuftraggeber.KdData_KUNDE_ERW = kundeVeragErw
             RECHNUNG.Rechnung_an = cboRechnungAn._value
+
             cboRechnungAn.changeItem("3")
 
+            cboSteuerschlüssel.changeItem(If(kdFirmaAuftraggeber.KdData_KUNDE.Steuerschlüssel, ""))
+
             kdFirmaRechnungAn.KdNr = veragKunde
 
             przBerechneRAPos("")
             loadFormRGPosInOfferte()
             initDGVRechnungenPositionen()
-            cboFiliale.Focus()
-
             cboFiliale.Focus()
             saveMe()
 
             RECHNUNG.OffertenNr = 1
 
-            Dim REM_POS_GU As New List(Of VERAG_PROG_ALLGEMEIN.cRechnungsausgangPositionen)
+            Dim REM_POS_TMP As New List(Of VERAG_PROG_ALLGEMEIN.cRechnungsausgangPositionen)
+
 
             For Each POS In RECHNUNG_TMP.POSITIONEN
                 POS.RK_ID = RECHNUNG.RK_ID
@@ -4029,9 +4031,11 @@ Nächste_Textzeile_lesen:
                             End If
                         Next
                 End Select
+                initSteuerbetraege(RECHNUNG, POS)
             Next
 
             RECHNUNG.POSITIONEN.Clear()
+
             przRefreshDGV_Positionen()
 
             RECHNUNG.SAVE_POSITIONEN(RECHNUNG.RK_ID)