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

DY Abgaben

Browse Source
This commit is contained in:
Andreas Luxbauer
2026-04-09 10:59:38 +02:00
parent ede797ddc3
commit a9dbb8c784
3 changed files with 86 additions and 82 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
DAKOSY_Worker/cImporter_DakosyToVERAG.vb
View File

@@ -167,6 +167,7 @@ Public Class cImporter_DakosyToVERAG
' ================================================================ ' ================================================================
' ABGABEN ' ABGABEN
' ================================================================ ' ================================================================
If eza.eza_AUFSCHUB IsNot Nothing Then If eza.eza_AUFSCHUB IsNot Nothing Then
For Each d In eza.eza_AUFSCHUB For Each d In eza.eza_AUFSCHUB

78
DAKOSY_Worker/cZollsysteme_Aktenbeschriftung.vb
View File

@@ -1,4 +1,5 @@
Imports VERAG_PROG_ALLGEMEIN Imports com.sun.rowset.internal
Imports VERAG_PROG_ALLGEMEIN
Public Class cZollsysteme_Aktenbeschriftung Public Class cZollsysteme_Aktenbeschriftung
@@ -28,6 +29,8 @@ Public Class cZollsysteme_Aktenbeschriftung
Property Zollstelle_Eingang As String = "" Property Zollstelle_Eingang As String = ""
Property Waehrungscode As String = "EUR" Property Waehrungscode As String = "EUR"
Property Incoterms As String = "" Property Incoterms As String = ""
Property Incoterms_code As String = ""
Property Incoterms_ort As String = ""
Property Geschaeftsart As String = "" Property Geschaeftsart As String = ""
Property isUeT1 As Boolean = False Property isUeT1 As Boolean = False
Property dtWARENPOS As New DataTable Property dtWARENPOS As New DataTable
@@ -133,6 +136,7 @@ Public Class cZollsysteme_Aktenbeschriftung
End Select End Select
Case Else Case Else
getDataByBezugsnummer = load_EZA_FromDAKOSY(BezugsNr, True)
getDataByBezugsnummer = load_NCTS004_FromDAKOSY(BezugsNr, True, PosNrAngeben) 'Neues NCTS Format! getDataByBezugsnummer = load_NCTS004_FromDAKOSY(BezugsNr, True, PosNrAngeben) 'Neues NCTS Format!
If Not getDataByBezugsnummer Then 'Falls doch nicht If Not getDataByBezugsnummer Then 'Falls doch nicht
@@ -293,6 +297,7 @@ Public Class cZollsysteme_Aktenbeschriftung
If Not IsNull(DTzsAnmValData.Rows(0).Item("InvVal")) Then Rechnungspreis = CDbl(DTzsAnmValData.Rows(0).Item("InvVal")) : RechnungspreisohneWahrung = CDbl(DTzsAnmValData.Rows(0).Item("InvVal")) If Not IsNull(DTzsAnmValData.Rows(0).Item("InvVal")) Then Rechnungspreis = CDbl(DTzsAnmValData.Rows(0).Item("InvVal")) : RechnungspreisohneWahrung = CDbl(DTzsAnmValData.Rows(0).Item("InvVal"))
If Not IsNull(DTzsAnmValData.Rows(0).Item("InvCurr")) Then Waehrungscode = DTzsAnmValData.Rows(0).Item("InvCurr") : Rechnungspreis &= " " & Waehrungscode If Not IsNull(DTzsAnmValData.Rows(0).Item("InvCurr")) Then Waehrungscode = DTzsAnmValData.Rows(0).Item("InvCurr") : Rechnungspreis &= " " & Waehrungscode
If Not IsNull(DTzsAnmValData.Rows(0).Item("TermDelCd")) Then Incoterms = DTzsAnmValData.Rows(0).Item("TermDelCd") If Not IsNull(DTzsAnmValData.Rows(0).Item("TermDelCd")) Then Incoterms = DTzsAnmValData.Rows(0).Item("TermDelCd")
If Not IsNull(DTzsAnmValData.Rows(0).Item("TermDelCd")) Then Incoterms_code = DTzsAnmValData.Rows(0).Item("TermDelCd")
If Not IsNull(DTzsAnmValData.Rows(0).Item("TransacCd")) Then Geschaeftsart = DTzsAnmValData.Rows(0).Item("TransacCd") If Not IsNull(DTzsAnmValData.Rows(0).Item("TransacCd")) Then Geschaeftsart = DTzsAnmValData.Rows(0).Item("TransacCd")
@@ -352,7 +357,7 @@ Public Class cZollsysteme_Aktenbeschriftung
If Not IsNull(row.Item("Orig")) Then R("Herkunft") = row.Item("Orig") If Not IsNull(row.Item("Orig")) Then R("Herkunft") = row.Item("Orig")
If Not IsNull(row.Item("ComCd")) AndAlso IsNumeric(row.Item("ComCd")) Then If Not IsNull(row.Item("ComCd")) AndAlso IsNumeric(row.Item("ComCd")) Then
R("isCBAM") = checkisCBAM(row.Item("ComCd")) R("isCBAM") = cGreendeal_CBAM_Trn.isCBAMTnr(row.Item("ComCd"))
End If End If
dtWARENPOS.Rows.Add(R) dtWARENPOS.Rows.Add(R)
@@ -438,42 +443,42 @@ Public Class cZollsysteme_Aktenbeschriftung
Return load_EZA_FromDAKOSY(EZA) Return load_EZA_FromDAKOSY(EZA)
End Function End Function
Function checkisCBAM(cbamWarenNr As String) As Boolean 'Function checkisCBAM(cbamWarenNr As String) As Boolean
' Return
' If (Left(cbamWarenNr, 4) = "2523" Or
' Left(cbamWarenNr, 4) = "2716" Or
' Left(cbamWarenNr, 4) = "2808" Or
' Left(cbamWarenNr, 4) = "2814" Or
' Left(cbamWarenNr, 4) = "3102" Or
' Left(cbamWarenNr, 4) = "3105" Or
' Left(cbamWarenNr, 4) = "7201" Or
' Left(cbamWarenNr, 4) = "7203" Or
' Left(cbamWarenNr, 4) = "7318" Or
' Left(cbamWarenNr, 6) = "283421" Or
' Left(cbamWarenNr, 6) = "260112" Or
' Left(cbamWarenNr, 6) = "720211" Or
' Left(cbamWarenNr, 6) = "720219" Or
' Left(cbamWarenNr, 6) = "720241" Or
' Left(cbamWarenNr, 6) = "720249" Or
' Left(cbamWarenNr, 6) = "720260" Or
' Left(cbamWarenNr, 6) = "280410" Or
' Left(cbamWarenNr, 4) = "7326" Or
' Left(cbamWarenNr, 4) = "7601" Or
' Left(cbamWarenNr, 4) = "7616" Or
' Left(cbamWarenNr, 8) = "25070080" Or
' CInt(Left(cbamWarenNr, 4)) <= 7301 And CInt(Left(cbamWarenNr, 4)) >= 7311 Or
' CInt(Left(cbamWarenNr, 4)) <= 7205 And CInt(Left(cbamWarenNr, 4)) >= 7229 Or
' CInt(Left(cbamWarenNr, 4)) <= 7603 And CInt(Left(cbamWarenNr, 4)) >= 7614) And Not Left(cbamWarenNr, 6) = "310560" Then
If (Left(cbamWarenNr, 4) = "2523" Or ' Return True
Left(cbamWarenNr, 4) = "2716" Or
Left(cbamWarenNr, 4) = "2808" Or
Left(cbamWarenNr, 4) = "2814" Or
Left(cbamWarenNr, 4) = "3102" Or
Left(cbamWarenNr, 4) = "3105" Or
Left(cbamWarenNr, 4) = "7201" Or
Left(cbamWarenNr, 4) = "7203" Or
Left(cbamWarenNr, 4) = "7318" Or
Left(cbamWarenNr, 6) = "283421" Or
Left(cbamWarenNr, 6) = "260112" Or
Left(cbamWarenNr, 6) = "720211" Or
Left(cbamWarenNr, 6) = "720219" Or
Left(cbamWarenNr, 6) = "720241" Or
Left(cbamWarenNr, 6) = "720249" Or
Left(cbamWarenNr, 6) = "720260" Or
Left(cbamWarenNr, 6) = "280410" Or
Left(cbamWarenNr, 4) = "7326" Or
Left(cbamWarenNr, 4) = "7601" Or
Left(cbamWarenNr, 4) = "7616" Or
Left(cbamWarenNr, 8) = "25070080" Or
CInt(Left(cbamWarenNr, 4)) <= 7301 And CInt(Left(cbamWarenNr, 4)) >= 7311 Or
CInt(Left(cbamWarenNr, 4)) <= 7205 And CInt(Left(cbamWarenNr, 4)) >= 7229 Or
CInt(Left(cbamWarenNr, 4)) <= 7603 And CInt(Left(cbamWarenNr, 4)) >= 7614) And Not Left(cbamWarenNr, 6) = "310560" Then
Return True ' Else
Else ' Return False
Return False ' End If
End If 'End Function
End Function
Function load_EZA_FromDAKOSY(EZA As DAKOSY_Worker.cDakosyEZA) As Boolean Function load_EZA_FromDAKOSY(EZA As DAKOSY_Worker.cDakosyEZA) As Boolean
Try Try
@@ -486,7 +491,7 @@ Public Class cZollsysteme_Aktenbeschriftung
'Me.Rechnungspreis &= " " & If(EZA.eza_Rechnungswaehrung, "") 'Me.Rechnungspreis &= " " & If(EZA.eza_Rechnungswaehrung, "")
ATCMRN = If(EZA.eza_ANR, "") ATCMRN = If(EZA.eza_ANR, "")
Me.RechnungspreisohneWahrung =Me.Rechnungspreis Me.RechnungspreisohneWahrung = Me.Rechnungspreis
Me.Rechnungspreis &= " " & If(EZA.eza_Rechnungswaehrung, "") Me.Rechnungspreis &= " " & If(EZA.eza_Rechnungswaehrung, "")
'Property Absender As String 'Property Absender As String
@@ -517,7 +522,7 @@ Public Class cZollsysteme_Aktenbeschriftung
If Not IsNull(POS.ezaWP_UrsprungslandCode) Then R("Herkunft") = POS.ezaWP_UrsprungslandCode If Not IsNull(POS.ezaWP_UrsprungslandCode) Then R("Herkunft") = POS.ezaWP_UrsprungslandCode
If Not IsNull(POS.ezaWP_Rohmasse) Then R("Netto") = POS.ezaWP_Rohmasse If Not IsNull(POS.ezaWP_Rohmasse) Then R("Netto") = POS.ezaWP_Rohmasse
If Not IsNull(POS.ezaWP_WarennummerEZT) AndAlso IsNumeric(POS.ezaWP_WarennummerEZT) Then If Not IsNull(POS.ezaWP_WarennummerEZT) AndAlso IsNumeric(POS.ezaWP_WarennummerEZT) Then
R("isCBAM") = checkisCBAM(POS.ezaWP_WarennummerEZT) R("isCBAM") = cGreendeal_CBAM_Trn.isCBAMTnr(POS.ezaWP_WarennummerEZT)
End If End If
@@ -603,9 +608,10 @@ Public Class cZollsysteme_Aktenbeschriftung
If EZA.eza_ArtGeschaeftCode IsNot Nothing AndAlso EZA.eza_ArtGeschaeftCode <> "" Then Geschaeftsart = EZA.eza_ArtGeschaeftCode If EZA.eza_ArtGeschaeftCode IsNot Nothing AndAlso EZA.eza_ArtGeschaeftCode <> "" Then Geschaeftsart = EZA.eza_ArtGeschaeftCode
If EZA.eza_LieferbedingungCode IsNot Nothing AndAlso EZA.eza_LieferbedingungCode <> "" Then Incoterms = EZA.eza_LieferbedingungCode If EZA.eza_LieferbedingungCode IsNot Nothing AndAlso EZA.eza_LieferbedingungCode <> "" Then Incoterms = EZA.eza_LieferbedingungCode
If EZA.eza_LieferbedingungCode IsNot Nothing AndAlso EZA.eza_LieferbedingungCode <> "" Then Incoterms_code = EZA.eza_LieferbedingungCode
If EZA.eza_LieferbedingungCode IsNot Nothing AndAlso EZA.eza_LieferbedingungCode <> "" Then Incoterms = EZA.eza_LieferbedingungCode
If EZA.eza_LieferbedingungOrt IsNot Nothing AndAlso EZA.eza_LieferbedingungOrt <> "" AndAlso Incoterms <> "" Then Incoterms &= " " & EZA.eza_LieferbedingungOrt If EZA.eza_LieferbedingungOrt IsNot Nothing AndAlso EZA.eza_LieferbedingungOrt <> "" AndAlso Incoterms <> "" Then Incoterms &= " " & EZA.eza_LieferbedingungOrt
If EZA.eza_LieferbedingungOrt IsNot Nothing AndAlso EZA.eza_LieferbedingungOrt <> "" AndAlso Incoterms <> "" Then Incoterms_ort = " " & EZA.eza_LieferbedingungOrt
If EZA.eza_Rechnungswaehrung IsNot Nothing AndAlso EZA.eza_Rechnungswaehrung <> "" Then Waehrungscode = EZA.eza_Rechnungswaehrung If EZA.eza_Rechnungswaehrung IsNot Nothing AndAlso EZA.eza_Rechnungswaehrung <> "" Then Waehrungscode = EZA.eza_Rechnungswaehrung

7
initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb
View File

@@ -10285,9 +10285,9 @@ Public Class frmDYNachrichtenVerarbeitung
'End If 'End If
If EZA.EinzelAbgabenbescheid.KopfDaten.AbgabenNachArt IsNot Nothing AndAlso EZA.EinzelAbgabenbescheid.KopfDaten.AbgabenNachArt.Count > 0 Then If EZA.EinzelAbgabenbescheid.KopfDaten.AbgabenNachArt IsNot Nothing AndAlso EZA.EinzelAbgabenbescheid.KopfDaten.AbgabenNachArt.Count > 0 Then
Dim a As New DAKOSY_Worker.cDakosy_EZA_Aufschub
AUFSCHUB = New List(Of DAKOSY_Worker.cDakosy_EZA_Aufschub) AUFSCHUB = New List(Of DAKOSY_Worker.cDakosy_EZA_Aufschub)
For Each ABG In EZA.EinzelAbgabenbescheid.KopfDaten.AbgabenNachArt For Each ABG In EZA.EinzelAbgabenbescheid.KopfDaten.AbgabenNachArt
Dim a As New DAKOSY_Worker.cDakosy_EZA_Aufschub
a.ezaAfb_ArtAufschubantrag = ABG.ArtAufschubAntrag a.ezaAfb_ArtAufschubantrag = ABG.ArtAufschubAntrag
a.ezaAfb_AufschubnehmerEORI = ABG.AufschubnehmerTIN a.ezaAfb_AufschubnehmerEORI = ABG.AufschubnehmerTIN
a.ezaAfb_HZA = ABG.KennBuchstabenAufschub a.ezaAfb_HZA = ABG.KennBuchstabenAufschub
@@ -10301,12 +10301,9 @@ Public Class frmDYNachrichtenVerarbeitung
' Case "B0000" 'EUST ' Case "B0000" 'EUST
' Case "B0000" 'EUST ' Case "B0000" 'EUST
'End Select 'End Select
Next
AUFSCHUB.Add(a) AUFSCHUB.Add(a)
Next
End If End If
End If End If
If readEZA_Abgabenbescheid012 <> "" Then 'BEZUGSNR vorhanden If readEZA_Abgabenbescheid012 <> "" Then 'BEZUGSNR vorhanden