cRKSV, Abrechnungmaske, Aufschibkonten, Nacherfassung, etc.

2026-01-13 16:08:46 +01:00
parent bdea8abffa
commit eb1f0f7892
9 changed files with 255 additions and 228 deletions
--- a/SDL/kassenbuch/BelegReports/rptLeihgeldBeleg.Designer.vb
+++ b/SDL/kassenbuch/BelegReports/rptLeihgeldBeleg.Designer.vb
@@ -63,6 +63,7 @@ Partial Public Class rptLeihgeldBeleg
        Me.lblKbNr = New GrapeCity.ActiveReports.SectionReportModel.Label()
        Me.txtFrachtfuhrer = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
        Me.Label7 = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.Label13 = New GrapeCity.ActiveReports.SectionReportModel.Label()
        Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
        Me.lblBetragSum = New GrapeCity.ActiveReports.SectionReportModel.Label()
        Me.lblBetragSteuern = New GrapeCity.ActiveReports.SectionReportModel.Label()
@@ -78,7 +79,6 @@ Partial Public Class rptLeihgeldBeleg
        Me.Line3 = New GrapeCity.ActiveReports.SectionReportModel.Line()
        Me.lblSachbearbeiter2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
        Me.lblFahrer2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
-        Me.Label13 = New GrapeCity.ActiveReports.SectionReportModel.Label()
        CType(Me.Label4, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.Label5, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.Label6, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -118,6 +118,7 @@ Partial Public Class rptLeihgeldBeleg
        CType(Me.lblKbNr, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.txtFrachtfuhrer, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.Label7, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.Label13, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.lblBetragSum, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.lblBetragSteuern, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.lblGesamtbetrag, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -129,7 +130,6 @@ Partial Public Class rptLeihgeldBeleg
        CType(Me.Label9, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.lblSachbearbeiter2, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.lblFahrer2, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.Label13, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
        '
        'PageHeader
@@ -265,7 +265,7 @@ Partial Public Class rptLeihgeldBeleg
        'ReportHeader1
        '
        Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.picVERAG, Me.lblFirma_Details, Me.Label2, Me.Label3, Me.lblRgDatum, Me.lblRgNr, Me.Label25, Me.lblFirma_Name, Me.lblTitel, Me.lblUhrzeit, Me.lblSachbearbeiter, Me.Label26, Me.lblPosNr, Me.Label28, Me.Label11, Me.Label12, Me.lblFahrer, Me.lblFrachtf, Me.Label15, Me.lblLKWKz, Me.Label14, Me.lblPassnummer, Me.Label20, Me.lblUID, Me.Label10, Me.lblKdNr, Me.lblFirma, Me.Line5, Me.QR, Me.lblKbNr, Me.txtFrachtfuhrer, Me.Label7, Me.Label13})
-        Me.ReportHeader1.Height = 4.490026!
+        Me.ReportHeader1.Height = 4.458776!
        Me.ReportHeader1.Name = "ReportHeader1"
        '
        'picVERAG
@@ -444,18 +444,19 @@ Partial Public Class rptLeihgeldBeleg
        Me.Label12.Name = "Label12"
        Me.Label12.Style = "font-size: 10pt; font-weight: normal; text-align: left"
        Me.Label12.Text = "Fahrer:"
-        Me.Label12.Top = 3.414961!
+        Me.Label12.Top = 3.478741!
        Me.Label12.Width = 1.28937!
        '
        'lblFahrer
        '
+        Me.lblFahrer.DataField = ""
        Me.lblFahrer.Height = 0.1968501!
        Me.lblFahrer.HyperLink = Nothing
        Me.lblFahrer.Left = 1.49252!
        Me.lblFahrer.Name = "lblFahrer"
-        Me.lblFahrer.Style = "font-size: 10pt; font-weight: normal; text-align: left"
+        Me.lblFahrer.Style = "color: Black; font-size: 12pt; font-weight: normal; text-align: left"
        Me.lblFahrer.Text = "-"
-        Me.lblFahrer.Top = 3.414961!
+        Me.lblFahrer.Top = 3.478741!
        Me.lblFahrer.Width = 3.756299!
        '
        'lblFrachtf
@@ -477,18 +478,19 @@ Partial Public Class rptLeihgeldBeleg
        Me.Label15.Name = "Label15"
        Me.Label15.Style = "font-size: 10pt; font-weight: normal; text-align: left"
        Me.Label15.Text = "LKW-Kennzeichen:"
-        Me.Label15.Top = 3.21811!
+        Me.Label15.Top = 3.28189!
        Me.Label15.Width = 1.28937!
        '
        'lblLKWKz
        '
+        Me.lblLKWKz.DataField = ""
        Me.lblLKWKz.Height = 0.1968501!
        Me.lblLKWKz.HyperLink = Nothing
        Me.lblLKWKz.Left = 1.49252!
        Me.lblLKWKz.Name = "lblLKWKz"
-        Me.lblLKWKz.Style = "font-size: 10pt; font-weight: normal; text-align: left"
+        Me.lblLKWKz.Style = "color: Black; font-size: 12pt; font-weight: normal; text-align: left"
        Me.lblLKWKz.Text = "-"
-        Me.lblLKWKz.Top = 3.21811!
+        Me.lblLKWKz.Top = 3.28189!
        Me.lblLKWKz.Width = 3.756299!
        '
        'Label14
@@ -499,18 +501,19 @@ Partial Public Class rptLeihgeldBeleg
        Me.Label14.Name = "Label14"
        Me.Label14.Style = "font-size: 10pt; font-weight: normal; text-align: left"
        Me.Label14.Text = "Passnummer:"
-        Me.Label14.Top = 3.611811!
+        Me.Label14.Top = 3.675591!
        Me.Label14.Width = 1.28937!
        '
        'lblPassnummer
        '
+        Me.lblPassnummer.DataField = ""
        Me.lblPassnummer.Height = 0.1968501!
        Me.lblPassnummer.HyperLink = Nothing
        Me.lblPassnummer.Left = 1.49252!
        Me.lblPassnummer.Name = "lblPassnummer"
-        Me.lblPassnummer.Style = "font-size: 10pt; font-weight: normal; text-align: left"
+        Me.lblPassnummer.Style = "color: Black; font-size: 12pt; font-weight: normal; text-align: left"
        Me.lblPassnummer.Text = "-"
-        Me.lblPassnummer.Top = 3.611811!
+        Me.lblPassnummer.Top = 3.675591!
        Me.lblPassnummer.Width = 3.756299!
        '
        'Label20
@@ -586,7 +589,7 @@ Partial Public Class rptLeihgeldBeleg
        '
        Me.QR.Height = 1.181102!
        Me.QR.HyperLink = Nothing
-        Me.QR.ImageData = Nothing
+        Me.QR.ImageBase64String = resources.GetString("QR.ImageBase64String")
        Me.QR.Left = 5.318898!
        Me.QR.Name = "QR"
        Me.QR.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
@@ -609,8 +612,9 @@ Partial Public Class rptLeihgeldBeleg
        Me.txtFrachtfuhrer.Height = 0.148031!
        Me.txtFrachtfuhrer.Left = 1.49252!
        Me.txtFrachtfuhrer.Name = "txtFrachtfuhrer"
+        Me.txtFrachtfuhrer.Style = "font-size: 12pt"
        Me.txtFrachtfuhrer.Text = Nothing
-        Me.txtFrachtfuhrer.Top = 3.0063!
+        Me.txtFrachtfuhrer.Top = 3.07008!
        Me.txtFrachtfuhrer.Width = 3.756299!
        '
        'Label7
@@ -621,9 +625,20 @@ Partial Public Class rptLeihgeldBeleg
        Me.Label7.Name = "Label7"
        Me.Label7.Style = "font-size: 10pt; font-weight: bold; text-align: left"
        Me.Label7.Text = "Fr<EFBFBD>chter:"
-        Me.Label7.Top = 3.0063!
+        Me.Label7.Top = 3.07008!
        Me.Label7.Width = 1.28937!
        '
+        'Label13
+        '
+        Me.Label13.Height = 0.2!
+        Me.Label13.HyperLink = Nothing
+        Me.Label13.Left = 0.02047244!
+        Me.Label13.Name = "Label13"
+        Me.Label13.Style = "font-size: 12pt; font-weight: bold; text-align: left"
+        Me.Label13.Text = "GILT AUCH ALS RECHNUNG"
+        Me.Label13.Top = 1.197244!
+        Me.Label13.Width = 3.190945!
+        '
        'ReportFooter1
        '
        Me.ReportFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblBetragSum, Me.lblBetragSteuern, Me.lblGesamtbetrag, Me.lblTextSteuern, Me.Label24, Me.lblStorno, Me.Line1, Me.Label1, Me.Label8, Me.Label9, Me.Line2, Me.Line3, Me.lblSachbearbeiter2, Me.lblFahrer2})
@@ -720,7 +735,6 @@ Partial Public Class rptLeihgeldBeleg
        Me.Label1.HyperLink = Nothing
        Me.Label1.Left = 0!
        Me.Label1.Name = "Label1"
-        Me.Label1.ShrinkToFit = True
        Me.Label1.Style = "font-size: 10pt; font-weight: bold; text-align: left; vertical-align: middle; ddo" &
    "-char-set: 1; ddo-shrink-to-fit: true"
        Me.Label1.Text = "Wir best<73>tigen, den o.g. Betrag von der Firma VERAG Spedition AG erhalten zu habe" &
@@ -734,7 +748,6 @@ Partial Public Class rptLeihgeldBeleg
        Me.Label8.HyperLink = Nothing
        Me.Label8.Left = 0!
        Me.Label8.Name = "Label8"
-        Me.Label8.ShrinkToFit = True
        Me.Label8.Style = "font-size: 10pt; font-weight: bold; text-align: center; vertical-align: middle; d" &
    "do-char-set: 1; ddo-shrink-to-fit: true"
        Me.Label8.Text = "ausbezahlt von:"
@@ -747,7 +760,6 @@ Partial Public Class rptLeihgeldBeleg
        Me.Label9.HyperLink = Nothing
        Me.Label9.Left = 3.518898!
        Me.Label9.Name = "Label9"
-        Me.Label9.ShrinkToFit = True
        Me.Label9.Style = "font-size: 10pt; font-weight: bold; text-align: center; vertical-align: middle; d" &
    "do-char-set: 1; ddo-shrink-to-fit: true"
        Me.Label9.Text = "Betrag erhalten:"
@@ -786,7 +798,6 @@ Partial Public Class rptLeihgeldBeleg
        Me.lblSachbearbeiter2.HyperLink = Nothing
        Me.lblSachbearbeiter2.Left = 0!
        Me.lblSachbearbeiter2.Name = "lblSachbearbeiter2"
-        Me.lblSachbearbeiter2.ShrinkToFit = True
        Me.lblSachbearbeiter2.Style = "font-size: 10pt; font-weight: normal; text-align: center; text-justify: auto; ver" &
    "tical-align: top; ddo-char-set: 1; ddo-shrink-to-fit: true"
        Me.lblSachbearbeiter2.Text = "Maximilian Mustermann  ( SUB ) ( 1234 )"
@@ -799,24 +810,12 @@ Partial Public Class rptLeihgeldBeleg
        Me.lblFahrer2.HyperLink = Nothing
        Me.lblFahrer2.Left = 3.522048!
        Me.lblFahrer2.Name = "lblFahrer2"
-        Me.lblFahrer2.ShrinkToFit = True
        Me.lblFahrer2.Style = "font-size: 10pt; font-weight: normal; text-align: center; text-justify: auto; ver" &
    "tical-align: top; ddo-char-set: 1; ddo-shrink-to-fit: true"
        Me.lblFahrer2.Text = "Maximilian Mustermann  ( SUB ) ( 1234 )"
        Me.lblFahrer2.Top = 3.062599!
        Me.lblFahrer2.Width = 2.635433!
        '
-        'Label13
-        '
-        Me.Label13.Height = 0.2!
-        Me.Label13.HyperLink = Nothing
-        Me.Label13.Left = 0.02047244!
-        Me.Label13.Name = "Label13"
-        Me.Label13.Style = "font-size: 12pt; font-weight: bold; text-align: left"
-        Me.Label13.Text = "GILT AUCH ALS RECHNUNG"
-        Me.Label13.Top = 1.197244!
-        Me.Label13.Width = 3.190945!
-        '
        'rptLeihgeldBeleg
        '
        Me.MasterReport = False
@@ -877,6 +876,7 @@ Partial Public Class rptLeihgeldBeleg
        CType(Me.lblKbNr, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.txtFrachtfuhrer, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.Label7, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.Label13, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.lblBetragSum, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.lblBetragSteuern, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.lblGesamtbetrag, System.ComponentModel.ISupportInitialize).EndInit()
@@ -888,7 +888,6 @@ Partial Public Class rptLeihgeldBeleg
        CType(Me.Label9, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.lblSachbearbeiter2, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.lblFahrer2, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.Label13, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me, System.ComponentModel.ISupportInitialize).EndInit()

    End Sub
--- a/SDL/kassenbuch/BelegReports/rptLeihgeldBeleg.resx
+++ b/SDL/kassenbuch/BelegReports/rptLeihgeldBeleg.resx
--- a/SDL/kassenbuch/frmBelegNeu.vb
+++ b/SDL/kassenbuch/frmBelegNeu.vb
@@ -328,7 +328,13 @@ Public Class frmBelegNeu

        If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then
            '   btnNeueAbfNr.Visible = True
-            cboFiliale.changeItem(4801)
+
+            If PERSONAL.isLeihgeldkasse Then
+                cboFiliale.changeItem(4806)
+            Else
+                cboFiliale.changeItem(4801)
+            End If
+
        ElseIf VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Then
            '  btnNeueAbfNr.Visible = True
            cboFiliale.changeItem(5501)
--- a/SDL/kassenbuch/frmNacherfassungLeihgeld.vb
+++ b/SDL/kassenbuch/frmNacherfassungLeihgeld.vb
@@ -77,8 +77,8 @@ Public Class frmNacherfassungLeihgeld
                stammfiliale = "5501"
                cboFiliale.fillWithSQL("SELECT FilialenNr, cast(FilialenNr as varchar(4)) + ' ' + Grenzstelle FROM Filialen WHERE Fil_Status='A' AND FilialenNr IN (5501) ORDER BY FilialenNr ", False, "FMZOLL", True)
            Case "ATILLA"
-                stammfiliale = "4806"
-                cboFiliale.fillWithSQL("SELECT FilialenNr, cast(FilialenNr as varchar(4)) + ' ' + Grenzstelle FROM Filialen WHERE Fil_Status='A' AND FilialenNr IN (4806) ORDER BY FilialenNr ", False, "FMZOLL", True)
+                stammfiliale = "4813"
+                cboFiliale.fillWithSQL("SELECT FilialenNr, cast(FilialenNr as varchar(4)) + ' ' + Grenzstelle FROM Filialen WHERE Fil_Status='A' AND FilialenNr IN (4813) ORDER BY FilialenNr ", False, "FMZOLL", True)
                cbxOP_sofort_buchen.Checked = PERSONAL_LG.automFIBUBuchung

            Case Else
@@ -313,8 +313,8 @@ Public Class frmNacherfassungLeihgeld
                    Dim KundenKontoArchiv As String = (New VERAG_PROG_ALLGEMEIN.SQL).getValueTxtBySql("SELECT isnull(c_archiv,'A') FROM [FIBU2].dbo.fibu_konto WHERE i_konto = " & BELEG.KundenNr & " AND i_firm_refid = " & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "9", "7"), "FIBU") 'ATILLA MANDANT!'

                    Select Case KundenKontoArchiv
-                        Case "I" : MsgBox("ACHTUNG, der Debitor mit der Nr: " & BELEG.KundenNr & " ist in der Syska-FIBU inaktiv, bitte andere KundenNr verwenden (799999)!") : Me.Cursor = Cursors.Default : Exit Sub 'inaktiv
-                        Case "" : MsgBox("ACHTUNG, der Debitor mit der Nr: " & BELEG.KundenNr & " ist in der Syska-FIBU nicht vorhanden, bitte andere KundenNr verwenden (799999)!") : Me.Cursor = Cursors.Default : Exit Sub 'nicht vorhanden
+                        Case "I" : MsgBox("ACHTUNG, der Debitor mit der Nr: " & BELEG.KundenNr & " ist in der Syska-FIBU INAKTIV, bitte andere KundenNr verwenden (799999)!") : Me.Cursor = Cursors.Default : Exit Sub 'inaktiv
+                        Case "" : MsgBox("ACHTUNG, der Debitor mit der Nr: " & BELEG.KundenNr & " ist in der Syska-FIBU NICHT vorhanden, bitte andere KundenNr verwenden (799999)!") : Me.Cursor = Cursors.Default : Exit Sub 'nicht vorhanden
                        Case Else 'aktiv -> OK
                    End Select

@@ -454,16 +454,14 @@ Public Class frmNacherfassungLeihgeld


                        If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" AndAlso spedBuchExisting Then
-                            'create Rechnung für ATILLA
                            Dim verarbOK As Boolean = True
                            Dim SPEDBUCH As New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch(BELEG.FilialenNr, BELEG.AbfertigungsNr)
                            Dim RK_ID As Integer = -1

-                            If Not gen_RECHNUNG_BySPEDBUCH(BELEG.KundenNr, SPEDBUCH, RK_ID, cbxOP_sofort_buchen.Checked, summeBRUTTO, summeNETTO) Then verarbOK = False
+                            If Not gen_RECHNUNG_BySPEDBUCH(BELEG.KundenNr, SPEDBUCH, RK_ID, cbxOP_sofort_buchen.Checked, summeBRUTTO, summeNETTO, BELEG) Then verarbOK = False
                            If RK_ID > 0 Then
                                Dim RECHNUNG As New cRechnungsausgang(RK_ID)

-                                'rechnungsNr vergeben, aber nicht gedruckt!
                                If Not cFakturierung.doRechnungsDruck(RECHNUNG, Today(),, 4) Then verarbOK = False
                                If RECHNUNG.[DruckDatumZeit] IsNot Nothing Then
                                    RECHNUNG.[DruckDatumZeit] = Nothing
@@ -477,9 +475,9 @@ Public Class frmNacherfassungLeihgeld
                                MsgBox("Fehler bei Rechnungserstellung!")

                            End If
-                            End If
-
                        End If
+
+                    End If
                End If


@@ -496,7 +494,7 @@ Public Class frmNacherfassungLeihgeld
        End Try
    End Sub

-    Function gen_RECHNUNG_BySPEDBUCH(KdNr As String, SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, ByRef RK_ID As Integer, ByRef trdin As Boolean, ByRef summeBRUTTO As Double, ByRef summeNETTO As Double)
+    Function gen_RECHNUNG_BySPEDBUCH(KdNr As String, SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, ByRef RK_ID As Integer, ByRef trdin As Boolean, ByRef summeBRUTTO As Double, ByRef summeNETTO As Double, ByRef BARBELEG As EABeleg)
        Try

            If KdNr = "" Then Return False
@@ -594,7 +592,7 @@ Public Class frmNacherfassungLeihgeld
            RG.LOAD_OFFERT_POSITIONEN() ' --> OFFERTE MIT ANZAHL >0 und Preis >0


-            allPos(RG, OFFERTE, 110, summeBRUTTO, summeNETTO, (summeBRUTTO - summeNETTO))
+            allPos(RG, OFFERTE, 110, summeBRUTTO, summeNETTO, (summeBRUTTO - summeNETTO), " (" & BARBELEG.LKW_Kennzeichen & " " & BARBELEG.Fahrer & ")")

            Dim dtSt As DataTable = SQL.loadDgvBySql("SELECT TOP 1 isnull([Steuersatz %],0),isnull([Steuerbezeichnung],'')  FROM [Steuertabelle] WHERE [Steuerschlüssel]='" & RG.Steuerschlüssel & "'", "FMZOLL")
            If dtSt IsNot Nothing AndAlso dtSt.Rows.Count > 0 Then
@@ -619,7 +617,7 @@ Public Class frmNacherfassungLeihgeld

    End Function

-    Function allPos(ByRef RG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, OFFERTE As VERAG_PROG_ALLGEMEIN.cOfferte, LeistungsNr As Integer, NettoBetrag As Double, BruttoBetrag As Double, Optional UstBetrag As Double = 0)
+    Function allPos(ByRef RG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, OFFERTE As VERAG_PROG_ALLGEMEIN.cOfferte, LeistungsNr As Integer, NettoBetrag As Double, BruttoBetrag As Double, Optional UstBetrag As Double = 0, Optional leistungsBez As String = "")
        Try

            For Each o In OFFERTE.POSITIONEN
@@ -628,13 +626,11 @@ Public Class frmNacherfassungLeihgeld
                    Dim POS As New VERAG_PROG_ALLGEMEIN.cRechnungsausgangPositionen()
                    Dim LEISTUNG As New VERAG_PROG_ALLGEMEIN.cLeistungen(o.LeistungsNr)
                    POS.LeistungsNr = o.LeistungsNr
-                    POS.LeistungsBez = o.LeistungsBez
+                    POS.LeistungsBez = IIf(leistungsBez <> "", leistungsBez, o.LeistungsBez)

                    POS.BerechnungsartNr = o.BerechnungsartNr
-                    'POS.Preis = BruttoBetrag
                    POS.Anzahl = 1
                    POS.Steuerpflichtig = LEISTUNG.Steuerpflichtig
-                    'Berrechnunggebühr wird immer vom übergebenen Betrag abzüglich UST berechnet (Nettobetrag), außer bei UTA!
                    POS.BGebBgl = NettoBetrag - UstBetrag


@@ -645,7 +641,6 @@ Public Class frmNacherfassungLeihgeld
                        POS.SteuerfreierBetrag = BruttoBetrag
                        POS.Preis = BruttoBetrag
                    End If
-                    'POS.NachzahlungsID = nachzahlungsID 'nix gut
                    POS.BGebLeistungsNr = o.BGebLeistungsNr
                    POS.BGebProzent = o.BGebProzent
                    POS.BGebMinBetrag = o.BGebMinBetrag