Mahnlauf, Mailbenachrichtung, Fakt, MDMEinarbeitung, etc.

SDL/seriendruck/usrCntlFakturierung.vb

@@ -44,6 +44,8 @@ Public Class usrcntlFakturierung
 
         'PathMautberichte = "C:\Users\d.breimaier\Desktop\MDM\Mautgesamtberichte\"
 
+        Dim FaktAbt As Boolean = IIf(VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG("MDM_FAKTURIERUNG", "SDL") = 0, True, False)
+
         countCSV = 0
         countPDF = 0
         If Directory.Exists(PathMautberichte) Then
@@ -54,12 +56,12 @@ Public Class usrcntlFakturierung
                 Next
             End If
         Else
-            MsgBox("Mautbericht-Pfad " & PathMautberichte & " nicht verfügbar!")
+            If FaktAbt Then MsgBox("Mautbericht-Pfad " & PathMautberichte & " nicht verfügbar!")
         End If
 
         lblAnzahlMautberichte.Text = countCSV + countPDF & "x Mautberichte (" & countCSV & "x CSV " & countPDF & "x PDF )"
 
-        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG("MDM_FAKTURIERUNG", "SDL") = 0 Then
+        If FaktAbt Then
 
             btnMDMSammelrechnung.Enabled = True
             GBMautberichte.Enabled = True
@@ -285,8 +287,10 @@ Public Class usrcntlFakturierung
         'Rechnungstext im RK eintragen
         showPic(setRechnungstext(Sachbearbeiter, rechnungsdatum, dtSammelrechnungen), PictureBox3)
 
-        ' Porto/Papiere berechnen.
-        showPic(PortoPapiere(Sachbearbeiter, rechnungsdatum), PictureBox4)
+        '--NICHT BENÖTIGT!
+        ' Porto/Papiere berechnen. 
+        'showPic(PortoPapiere(Sachbearbeiter, rechnungsdatum), PictureBox4)
+        '--NICHT BENÖTIGT!
 
         'Berechnet Banküberweisung/Bankspesen.
         showPic(Bankspesen(Sachbearbeiter, rechnungsdatum), PictureBox5)
@@ -545,22 +549,22 @@ Public Class usrcntlFakturierung
 
                 If Not IsDBNull(r("BetragExclusivFT")) AndAlso r("BetragExclusivFT") > 0 Then
 
-                    If Not IsDBNull(r("BetragExclusivPP")) AndAlso r("BetragExclusivPP") > 0 Then
-
-                        If r("BetragExclusivPP") < 500 Then
-                            intZlr = r("AnzahlPP") - 1
-                        Else
-                            intZlr = r("AnzahlPP")
-                        End If
+                    If r("BetragExclusivFT") < 500 Then
+                        intZlr = r("AnzahlFT") - 1
                     Else
-                        If (0 - r("BetragExclusivPP")) < 500 Then
-                            intZlr = r("AnzahlPP") - 1
-                        Else
-                            intZlr = r("AnzahlPP") - 1
-                        End If
+                        intZlr = r("AnzahlFT")
                     End If
+
+                Else
+                    If (0 - r("BetragExclusivFT")) < 500 Then
+                        intZlr = r("AnzahlFT") - 1
+                    Else
+                        intZlr = r("AnzahlFT") - 1
+                    End If
+
                 End If
 
+
                 If intZlr > 0 Then