edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

hardcoded Mail von Ambar korrigiert, fakt, etc.

Browse Source
This commit is contained in:
d.breimaier
2026-01-29 15:38:40 +01:00
parent 2b6db655d9
commit d45a046258
3 changed files with 2126 additions and 2121 deletions
Download Patch File Download Diff File Expand all files Collapse all files

51
SDL/Fakturierung/cFakturierung.vb
View File

@@ -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
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
Else
' Anlage zur Sammelrechnung
RECHNUNG.[Status] = 2

4192
SDL/Fakturierung/usrCntlFaktAbrechnung.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

4
VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb
View File

@@ -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"