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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2020-05-31 22:26:21 +02:00
parent a40477b387
commit 6e3e35ac70
37 changed files with 2287 additions and 437 deletions
Download Patch File Download Diff File Expand all files Collapse all files

110
initATLASAufschubkonten/EZollAufschubEinlesen.vb
View File

@@ -32,7 +32,7 @@ Public Class EZollAufschubEinlesen
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)
LeistungsBez = DAKOSY_Worker.cZOLL_IMPORT.getLeistungsBez(d1.Abgabenart)
End Select
If saveAbgaben Then
@@ -64,114 +64,6 @@ Public Class EZollAufschubEinlesen
'MsgBox("TEST3")
End Sub
Function getLeistungsBez(LeistungsBez)
Select Case LeistungsBez
Case "0ML"
getLeistungsBez = "Altlastenbeitrag"
Case "0PB"
getLeistungsBez = "Punzierungskontrollgeb. Platin"
Case "0PG"
getLeistungsBez = "Punzierungskontrollgebühr Gold"
Case "0PS"
getLeistungsBez = "Punzierungskontrollgeb. Silber"
Case "1BD"
getLeistungsBez = "Bemessungsdatum"
Case "1LG"
getLeistungsBez = "Lagergeld gemäß §104 ZollR-DG"
Case "1ZK"
getLeistungsBez = "Kreditzinsen, Säumniszinsen"
Case "1ZN"
getLeistungsBez = "Nebenansprüche"
Case "2AS"
getLeistungsBez = "Agrarsicherheiten"
Case "2DU"
getLeistungsBez = "Antidumping-Sicherheit"
Case "2EU"
getLeistungsBez = "EUSt-Sicherheit"
Case "2IG"
getLeistungsBez = "Sicherheit EUSt ig. Lieferung"
Case "2KO"
getLeistungsBez = "Sicherheit für Kontingent"
Case "2PE"
getLeistungsBez = "Sicherheit bei Einfuhrwerten"
Case "2RB"
getLeistungsBez = "Sicherheit Bürgerschaft"
Case "2SB"
getLeistungsBez = "Summe der befreiten Sicherheit"
Case "2SI"
getLeistungsBez = "Sicherheit Geldbetragerlag"
Case "2VF"
getLeistungsBez = "Sicherheit bei Verifizierung"
Case "2VS"
getLeistungsBez = "Summe der vorg. Sicherheit"
Case "2ZG"
getLeistungsBez = "Zusatzzoll Geflügel"
Case "2ZZ"
getLeistungsBez = "Zusatzzoll Zucker"
Case "2ZZ"
getLeistungsBez = "Zusatzzoll 2ZZ"
Case "5DU"
getLeistungsBez = "Antidumping-und Ausgleichszoll"
Case "5EU"
getLeistungsBez = "Einfuhrumsatzsteuer"
Case "5EV"
getLeistungsBez = "EUSt gem. §26 Abs. 3Z.2UStG"
Case "5SI"
getLeistungsBez = "Agrarsicherheit"
Case "5VS"
getLeistungsBez = "Verbrauchsteuern"
Case "5ZO"
getLeistungsBez = "Zoll 5ZO"
Case "5ZZ"
getLeistungsBez = "Zusatzzoll 5ZZ"
Case "6AK"
getLeistungsBez = "Alkoholsteuer"
Case "6BE"
getLeistungsBez = "Biersteuer"
Case "6MS"
getLeistungsBez = "Mineralölsteuer"
Case "6SS"
getLeistungsBez = "Schaumweinsteuer"
Case "6TS"
getLeistungsBez = "Tabaksteuer"
Case "6ZW"
getLeistungsBez = "Zwischenerzeugnissteuer"
Case "9EA"
getLeistungsBez = "Summe Gesamtabgaben"
Case "A00"
getLeistungsBez = "Zölle auf gewerbliche Waren"
Case "A00"
getLeistungsBez = "Zollabgaben"
Case "A10"
getLeistungsBez = "Zölle landwirt. Erzeugnisse"
Case "A20"
getLeistungsBez = "Zusatzzölle"
Case "A30"
getLeistungsBez = "endgültige Antidumpingzölle"
Case "A35"
getLeistungsBez = "vorläufige Antidumpingzölle"
Case "A40"
getLeistungsBez = "endgültiger Ausgleichszoll"
Case "A45"
getLeistungsBez = "vorläufiger Ausgleichszoll"
Case "B00"
getLeistungsBez = "Einfuhrumsatzsteuer(EUSt)"
Case "B10"
getLeistungsBez = "Ausgleichszinsen(EUSt)"
Case "C00"
getLeistungsBez = "Ausfuhrabgaben"
Case "C10"
getLeistungsBez = "Ausfuhrabg. landwirt. Erzeug."
Case "D00"
getLeistungsBez = "Verzugszinsen"
Case "D10"
getLeistungsBez = "Ausgleichszinsen"
Case "E00"
getLeistungsBez = "Abgaben anderer Länder"
Case Else
getLeistungsBez = ""
End Select
End Function
Public Function loadSqlZOLARIS(ByVal datumVon As DateTime, ByVal datumBis As DateTime, Optional where As String = "") As List(Of cEZollData)
Try