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

X

Browse Source
This commit is contained in:
Andreas Luxbauer
2019-08-23 16:28:14 +02:00
parent 554262d804
commit ea594e66e5
7 changed files with 203 additions and 102 deletions
Download Patch File Download Diff File Expand all files Collapse all files

49
initATLASAufschubkonten/EZollAufschubEinlesen.vb
View File

@@ -18,39 +18,46 @@ Public Class EZollAufschubEinlesen
If Not ABGABEN.hasEntry Then
Dim LeistungsNr = ""
Dim LeistungsBez = ""
Dim saveAbgaben = True
Select Case d1.Abgabenart
Case "2EU", "2IG", "2PE", "5EU"
LeistungsNr = "20"
Case "5EV", "B00" 'EV-KONTO!!
Case "B00" 'EUST
LeistungsNr = "20"
ABGABEN.Status = "A" 'AUSGEBUCHT
Case "5EV" '"5EV"--> EV-KONTO!!
saveAbgaben = False
Case "2DU", "5DU", "5ZO", "5ZZ", "A20", "A30", "A35", "A40", "A45", "C00", "C10", "A00"
LeistungsNr = "76"
Case Else '1BD,0ML, 0PB, 0PG, 0PS, 1LG, 1ZN, 2AS, 2KO, 2RB, 2SB, 2SI, 2VF, 2VS, 5SI, 5VS, 6AK, 6BE, 6MS, 6SS, 6TS, 6ZW, 9EA, D00,D10,E00
LeistungsNr = "482"
LeistungsBez = getLeistungsBez(d1.Abgabenart)
End Select
ABGABEN.Belegart = d1.Abgabenart
ABGABEN.Betrag = CDbl(d1.Betrag)
ABGABEN.Status = Nothing
ABGABEN.LeistungsNr = LeistungsNr
ABGABEN.Bezugsnummer = d1.LRN
ABGABEN.Registriernummer = d1.CRN
' ABGABEN.AOFD = A.KennBuchstabenAufschub
ABGABEN.AKTO = d1.Abgabenkonto
'ABGABEN.Fälligkeitsdatum = A.Faelligkeit
' ABGABEN.Mandant = "VERG"
ABGABEN.Niederlassung = d1.OperatorId
ABGABEN.Abfertigungsdatum = d1.Datum
ABGABEN.Übernahmedatum = d1.Datum
ABGABEN.Eingabedatum = Now.ToShortDateString
ABGABEN.Sachbearbeiter = "AUTO"
ABGABEN.LeistungsBez = LeistungsBez
If If(ABGABEN.Bezugsnummer, "").ToString.Length > 35 Then ABGABEN.Bezugsnummer = ABGABEN.Bezugsnummer.ToString.Substring(0, 35)
If If(ABGABEN.Registriernummer, "").ToString.Length > 21 Then ABGABEN.Registriernummer = ABGABEN.Registriernummer.ToString.Substring(0, 21)
If saveAbgaben Then
Dim errHInweis = "ATC: " & ABGABEN.Registriernummer & " - BezugsNr: " & ABGABEN.Bezugsnummer
ABGABEN.SAVE(errHInweis)
ABGABEN.Belegart = d1.Abgabenart
ABGABEN.Betrag = CDbl(d1.Betrag)
ABGABEN.Status = Nothing
ABGABEN.LeistungsNr = LeistungsNr
ABGABEN.Bezugsnummer = d1.LRN
ABGABEN.Registriernummer = d1.CRN
' ABGABEN.AOFD = A.KennBuchstabenAufschub
ABGABEN.AKTO = d1.Abgabenkonto
'ABGABEN.Fälligkeitsdatum = A.Faelligkeit
' ABGABEN.Mandant = "VERG"
ABGABEN.Niederlassung = d1.OperatorId
ABGABEN.Abfertigungsdatum = d1.Datum
ABGABEN.Übernahmedatum = d1.Datum
ABGABEN.Eingabedatum = Now.ToShortDateString
ABGABEN.Sachbearbeiter = "AUTO"
ABGABEN.LeistungsBez = LeistungsBez
If If(ABGABEN.Bezugsnummer, "").ToString.Length > 35 Then ABGABEN.Bezugsnummer = ABGABEN.Bezugsnummer.ToString.Substring(0, 35)
If If(ABGABEN.Registriernummer, "").ToString.Length > 21 Then ABGABEN.Registriernummer = ABGABEN.Registriernummer.ToString.Substring(0, 21)
Dim errHInweis = "ATC: " & ABGABEN.Registriernummer & " - BezugsNr: " & ABGABEN.Bezugsnummer
ABGABEN.SAVE(errHInweis)
End If
End If
End Select
Next