hardcoded Mail von Ambar korrigiert, fakt, etc.

SDL/Fakturierung/cFakturierung.vb

@@ -1821,7 +1821,7 @@ Public Class cFakturierung
                 End If
 
                 If Not Rechnung.checkRechnungsNrIsSet() Then
-                    MsgBox("Rechnungsnummer wurde nicht in Datenbank eingetragen" & vbNewLine & "Vorgang wird abgebrochen")
+                    VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Rechnungsnummer wurde nicht in Datenbank eingetragen" & vbNewLine & "Vorgang wird abgebrochen", "Rechnungsnummer wurde nicht in Datenbank eingetragen" & vbNewLine & "Vorgang wird abgebrochen" & Rechnung.RK_ID, System.Reflection.MethodInfo.GetCurrentMethod.Name)
                     Return False
                 End If
 
@@ -3923,31 +3923,36 @@ Public Class cFakturierung
 
                 RECHNUNG.Buchungsjahr = cRKSV.getGJ(RechnungsDatum, RECHNUNG.Firma_ID) ' If(CDate(RECHNUNG.[RechnungsDatum]).Month = 1, CDate(RECHNUNG.[RechnungsDatum]).Year - 1, CDate(RECHNUNG.[RechnungsDatum]).Year)
 
+                If RECHNUNG.Buchungsjahr Is Nothing Then
+                    VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Bei Beleg " & RECHNUNG.RechnungsNr & " konnte kein Buchungsjahr gesetzt werden! RK_ID:" & RECHNUNG.RK_ID, "Bei Beleg " & RECHNUNG.RechnungsNr & " konnte kein Buchungsjahr gesetzt werden! RK_ID:" & RECHNUNG.RK_ID, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+                    Return False
+                End If
+
                 If RECHNUNG.Buchungsjahr < 2000 Then
-                    MsgBox("Buchungsjahr im falschen Format!")
+                    VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Bei Beleg " & RECHNUNG.RechnungsNr & " hat das Buchungsjahr " & RECHNUNG.Buchungsjahr & " das falsche Format! RK_ID:" & RECHNUNG.RK_ID, "Bei Beleg " & RECHNUNG.RechnungsNr & " hat das Buchungsjahr das falsche Format!! RK_ID:" & RECHNUNG.RK_ID, System.Reflection.MethodInfo.GetCurrentMethod.Name)
                     Return False
+                    End If
+
+                    RECHNUNG.[RechnungsNr] = getNewRgNr(RECHNUNG.Firma_ID, RECHNUNG.Buchungsjahr)
+
+                    'Dim RG_NR As New VERAG_PROG_ALLGEMEIN.cRechnungsnummern(RECHNUNG.Firma_ID, RECHNUNG.Buchungsjahr)
+                    '' Nächste Rechnungsnummer speichern.
+                    'RG_NR.INCREASE_RGNR() ' SOFORT Speichern, Sonst gibt es wieder eine Doppelvergabe!
+                    '' Prüfung, ob RgNr schon vergeben wurde --> dann +1, bis freie Nr. (sollte EÜGENTLICH nicht vorkommen)
+                    'RG_NR.CHECK_RGNR()
+                    'RECHNUNG.[RechnungsNr] = RG_NR.LfdRechnungsNr
+
+                    'RECHNUNG.[LfdRechnungsNr] = RG_NR.LfdRechnungsNr
+                    If RECHNUNG.SAVE Then
+                    Else
+                        VERAG_PROG_ALLGEMEIN.cRechnungsnummern.DECREASE_RGNR_NEW(RECHNUNG.Firma_ID, RECHNUNG.Buchungsjahr) ' Bei Fehler --> LfdRgNr um eins mindern. 
+                        Return False
+                    End If
+
+                    'Rechnungsnummer UPDATEN
+                    '.....................
                 End If
-
+            Else
-                RECHNUNG.[RechnungsNr] = getNewRgNr(RECHNUNG.Firma_ID, RECHNUNG.Buchungsjahr)
-
-                'Dim RG_NR As New VERAG_PROG_ALLGEMEIN.cRechnungsnummern(RECHNUNG.Firma_ID, RECHNUNG.Buchungsjahr)
-                '' Nächste Rechnungsnummer speichern.
-                'RG_NR.INCREASE_RGNR() ' SOFORT Speichern, Sonst gibt es wieder eine Doppelvergabe!
-                '' Prüfung, ob RgNr schon vergeben wurde --> dann +1, bis freie Nr. (sollte EÜGENTLICH nicht vorkommen)
-                'RG_NR.CHECK_RGNR()
-                'RECHNUNG.[RechnungsNr] = RG_NR.LfdRechnungsNr
-
-                'RECHNUNG.[LfdRechnungsNr] = RG_NR.LfdRechnungsNr
-                If RECHNUNG.SAVE Then
-                Else
-                    VERAG_PROG_ALLGEMEIN.cRechnungsnummern.DECREASE_RGNR_NEW(RECHNUNG.Firma_ID, RECHNUNG.Buchungsjahr) ' Bei Fehler --> LfdRgNr um eins mindern. 
-                    Return False
-                End If
-
-                'Rechnungsnummer UPDATEN
-                '.....................
-            End If
-        Else
             ' Anlage zur Sammelrechnung 
 
             RECHNUNG.[Status] = 2

VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb

@@ -574,7 +574,7 @@ BindingFlags.Instance Or BindingFlags.NonPublic, Nothing, [Control], New Object(
             Case "AMBAR"
                 Select Case art
                     Case "3", "4" 'Export
-                        myCredentials.UserName = "office@ambarlog.de"
+                        myCredentials.UserName = "export@ambarlog.de"
                         ' myCredentials.Password = "Naq30716"
                         '   myCredentials.UserName = "import@ambarlog.com"
                         myCredentials.Password = "Naq30716"
@@ -584,7 +584,7 @@ BindingFlags.Instance Or BindingFlags.NonPublic, Nothing, [Control], New Object(
 
                         'text = text.replace("import@ambarlog.com", "office@ambarlog.com")
                         'text = text.replace("import@ambarlog.de", "office@ambarlog.com")
-                        eMailfrom = "office@ambarlog.de"
+                        eMailfrom = "export@ambarlog.de"
                     Case Else
 
                         '   myCredentials.UserName = "import@ambarlog.com"