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

Karaca Aufschub

Browse Source
This commit is contained in:
Andreas Luxbauer
2026-03-16 20:05:33 +01:00
parent 04367593bb
commit 91615faa08
5 changed files with 95 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb
View File

@@ -10430,7 +10430,7 @@ Public Class frmDYNachrichtenVerarbeitung
If A.AbgabeArt IsNot Nothing Then
' If A.Zahlungsart = "A" Then 'Nur wenn Zahlungsart=...?
If If(A.KennBuchstabenAufschub, "").Trim = "M" And
If (If(A.KennBuchstabenAufschub, "").Trim = "M" And
(CInt(A.AufschubkontoNr) = 6128 Or
CInt(A.AufschubkontoNr) = 6136 Or
CInt(A.AufschubkontoNr) = 2718 Or
@@ -10439,7 +10439,8 @@ Public Class frmDYNachrichtenVerarbeitung
CInt(A.AufschubkontoNr) = 6146 Or
CInt(A.AufschubkontoNr) = 6077 Or
CInt(A.AufschubkontoNr) = 6078 Or
CInt(A.AufschubkontoNr) = 1994) Then '_>TEST Or CInt(A.AufschubkontoNr) = 678010
CInt(A.AufschubkontoNr) = 1994)) Or
(If(A.KennBuchstabenAufschub, "").Trim = "MS" And CInt(A.AufschubkontoNr) = 1566) Then '_>TEST Or CInt(A.AufschubkontoNr) = 678010
Select Case A.AbgabeArt.ToString
Case "A0000", "10100" : LeistungsNr = 60 ' ZOLL
@@ -10486,6 +10487,7 @@ Public Class frmDYNachrichtenVerarbeitung
Case 6146 : tryToInsertProgramm(ABGABEN.Eingabedatum, ABGABEN.Betrag, 15, EDIFACTNachrichtenNr, ABGABEN.Registriernummer, 0, ABGABEN.Fälligkeitsdatum) 'UNISPED(DE) EUST
Case 6078 : tryToInsertProgramm(ABGABEN.Eingabedatum, ABGABEN.Betrag, 16, EDIFACTNachrichtenNr, ABGABEN.Registriernummer, 0, ABGABEN.Fälligkeitsdatum) 'UNISPED ZOLL
Case 6077 : tryToInsertProgramm(ABGABEN.Eingabedatum, ABGABEN.Betrag, 17, EDIFACTNachrichtenNr, ABGABEN.Registriernummer, 0, ABGABEN.Fälligkeitsdatum) 'UNISPED EUST
Case 1566 : tryToInsertProgramm(ABGABEN.Eingabedatum, ABGABEN.Betrag, 27, EDIFACTNachrichtenNr, ABGABEN.Registriernummer, 0, ABGABEN.Fälligkeitsdatum) 'KARACA
'UNISPED Case XXX: tryToInsertProgramm(ABGABEN.Eingabedatum, ABGABEN.Betrag,XXX, EDIFACTNachrichtenNr, ABGABEN.Registriernummer, 0, ABGABEN.Fälligkeitsdatum)
'Case 2718 : VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMailTEST("al@verag.ag", "AUFSCHUB IMEX: " & ABGABEN.Betrag, "AUFSCHUB IMEX: " & ABGABEN.Betrag & vbNewLine & ABGABEN.Bezugsnummer)