MDM, Chat, etc.

SDL/kassenbuch/frmNacherfassungLeihgeld.vb

@@ -669,7 +669,6 @@ Public Class frmNacherfassungLeihgeld
 
 
         Dim BELEG_Prov As New EABeleg(PERSONAL.Mandant, PERSONAL.Niederlassung, PERSONAL.ID)
-        'lblRgNr.Text = "12345 / TR"
         BELEG_Prov.BelegDat = BELEG.BelegDat
         BELEG_Prov.Beleg_TYP = "K"
         BELEG_Prov.KundenNr = BELEG.FrachtführerKundenNr
@@ -736,7 +735,6 @@ Public Class frmNacherfassungLeihgeld
         If f.ShowDialog() Then
             barBetrag = f.BELEG.rksv_umsatz
             BelegNrProvision = f.BELEG.rksv_BelegId
-
             printProvision = f.printErfolgreich
         End If
         ' f.Close()
@@ -781,8 +779,8 @@ Public Class frmNacherfassungLeihgeld
             VALUES.Frachtfuehrer_KdNr = BELEG.FrachtführerKundenNr
             VALUES.Frachtfuehrer_Firma = BELEG.Frachtführer
             VALUES.KdAuftrNr = If(BELEG.Auftraggeber_KdAuftragsnummer, "")
-
             VALUES.Auftraggeber_Leistung1 = "Leihgeld"
+
             Dim betrag As Double = 0
             For Each p In BELEG.POS
                 betrag += p.Preis