diff --git a/DAKOSY_Worker/cImporter_DakosyToVERAG.vb b/DAKOSY_Worker/cImporter_DakosyToVERAG.vb index 45c0847..c64b775 100644 --- a/DAKOSY_Worker/cImporter_DakosyToVERAG.vb +++ b/DAKOSY_Worker/cImporter_DakosyToVERAG.vb @@ -167,6 +167,7 @@ Public Class cImporter_DakosyToVERAG ' ================================================================ ' ABGABEN ' ================================================================ + If eza.eza_AUFSCHUB IsNot Nothing Then For Each d In eza.eza_AUFSCHUB diff --git a/DAKOSY_Worker/cZollsysteme_Aktenbeschriftung.vb b/DAKOSY_Worker/cZollsysteme_Aktenbeschriftung.vb index 12859c3..42b004a 100644 --- a/DAKOSY_Worker/cZollsysteme_Aktenbeschriftung.vb +++ b/DAKOSY_Worker/cZollsysteme_Aktenbeschriftung.vb @@ -1,4 +1,5 @@ -Imports VERAG_PROG_ALLGEMEIN +Imports com.sun.rowset.internal +Imports VERAG_PROG_ALLGEMEIN Public Class cZollsysteme_Aktenbeschriftung @@ -28,6 +29,8 @@ Public Class cZollsysteme_Aktenbeschriftung Property Zollstelle_Eingang As String = "" Property Waehrungscode As String = "EUR" Property Incoterms As String = "" + Property Incoterms_code As String = "" + Property Incoterms_ort As String = "" Property Geschaeftsart As String = "" Property isUeT1 As Boolean = False Property dtWARENPOS As New DataTable @@ -97,53 +100,54 @@ Public Class cZollsysteme_Aktenbeschriftung getDataByBezugsnummer = False 'MsgBox("2 " & Abfertigungsart) Select Case Abfertigungsart - Case 38, 26 'AT - Select Case Zollsystem_Land - Case "AT" - 'eZoll - getDataByBezugsnummer = load_EZA_FromEZOLL(BezugsNr, True) + Case 38, 26 'AT + Select Case Zollsystem_Land + Case "AT" + 'eZoll + getDataByBezugsnummer = load_EZA_FromEZOLL(BezugsNr, True) ' MsgBox("1") - Case "DE" - getDataByBezugsnummer = load_EZA_FromDAKOSY(BezugsNr, True) + Case "DE" + getDataByBezugsnummer = load_EZA_FromDAKOSY(BezugsNr, True) - Case Else - getDataByBezugsnummer = load_EZA_FromEZOLL(BezugsNr, True) - - ' MsgBox("3 ") - End Select - - If Not getDataByBezugsnummer Then - ' getADFrom_EZOLL - getDataByBezugsnummer = load_NCTS004_FromDAKOSY(BezugsNr, True, PosNrAngeben) 'Neues NCTS Format! - If Not getDataByBezugsnummer Then 'Falls doch nicht - getDataByBezugsnummer = load_NCTS_FromDAKOSY(BezugsNr, True, PosNrAngeben) - isUeT1 = (getDataByBezugsnummer) - Sachbearbeiter = "" ' Bei Ü-T1 soll der SB leer sein, sonst wird dieser evtl. beim Austragen herangezogen... - End If - End If - Case 1, 2, 3, 28, 39 - '... and Systeme - Select Case Zollsystem_Land - Case "AT" - 'eZoll - getDataByBezugsnummer = load_EZA_FromEZOLL(BezugsNr, True) - - Case Else - getDataByBezugsnummer = load_EZA_FromDAKOSY(BezugsNr, True) - - End Select Case Else + getDataByBezugsnummer = load_EZA_FromEZOLL(BezugsNr, True) - getDataByBezugsnummer = load_NCTS004_FromDAKOSY(BezugsNr, True, PosNrAngeben) 'Neues NCTS Format! - If Not getDataByBezugsnummer Then 'Falls doch nicht - - getDataByBezugsnummer = load_NCTS_FromDAKOSY(BezugsNr, True, PosNrAngeben) - If Not getDataByBezugsnummer Then 'Falls doch nicht - getDataByBezugsnummer = load_EZA_FromDAKOSY(BezugsNr, True) - End If - End If + ' MsgBox("3 ") End Select + If Not getDataByBezugsnummer Then + ' getADFrom_EZOLL + getDataByBezugsnummer = load_NCTS004_FromDAKOSY(BezugsNr, True, PosNrAngeben) 'Neues NCTS Format! + If Not getDataByBezugsnummer Then 'Falls doch nicht + getDataByBezugsnummer = load_NCTS_FromDAKOSY(BezugsNr, True, PosNrAngeben) + isUeT1 = (getDataByBezugsnummer) + Sachbearbeiter = "" ' Bei Ü-T1 soll der SB leer sein, sonst wird dieser evtl. beim Austragen herangezogen... + End If + End If + Case 1, 2, 3, 28, 39 + '... and Systeme + Select Case Zollsystem_Land + Case "AT" + 'eZoll + getDataByBezugsnummer = load_EZA_FromEZOLL(BezugsNr, True) + + Case Else + getDataByBezugsnummer = load_EZA_FromDAKOSY(BezugsNr, True) + + End Select + Case Else + getDataByBezugsnummer = load_EZA_FromDAKOSY(BezugsNr, True) + + getDataByBezugsnummer = load_NCTS004_FromDAKOSY(BezugsNr, True, PosNrAngeben) 'Neues NCTS Format! + If Not getDataByBezugsnummer Then 'Falls doch nicht + + getDataByBezugsnummer = load_NCTS_FromDAKOSY(BezugsNr, True, PosNrAngeben) + If Not getDataByBezugsnummer Then 'Falls doch nicht + getDataByBezugsnummer = load_EZA_FromDAKOSY(BezugsNr, True) + End If + End If + End Select + End Function @@ -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("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_code = DTzsAnmValData.Rows(0).Item("TermDelCd") 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("ComCd")) AndAlso IsNumeric(row.Item("ComCd")) Then - R("isCBAM") = checkisCBAM(row.Item("ComCd")) + R("isCBAM") = cGreendeal_CBAM_Trn.isCBAMTnr(row.Item("ComCd")) End If dtWARENPOS.Rows.Add(R) @@ -438,42 +443,42 @@ Public Class cZollsysteme_Aktenbeschriftung Return load_EZA_FromDAKOSY(EZA) 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 - 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 - 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 Try @@ -486,7 +491,7 @@ Public Class cZollsysteme_Aktenbeschriftung 'Me.Rechnungspreis &= " " & If(EZA.eza_Rechnungswaehrung, "") ATCMRN = If(EZA.eza_ANR, "") - Me.RechnungspreisohneWahrung =Me.Rechnungspreis + Me.RechnungspreisohneWahrung = Me.Rechnungspreis Me.Rechnungspreis &= " " & If(EZA.eza_Rechnungswaehrung, "") '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_Rohmasse) Then R("Netto") = POS.ezaWP_Rohmasse 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 @@ -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_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_ort = " " & EZA.eza_LieferbedingungOrt If EZA.eza_Rechnungswaehrung IsNot Nothing AndAlso EZA.eza_Rechnungswaehrung <> "" Then Waehrungscode = EZA.eza_Rechnungswaehrung diff --git a/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb b/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb index 7d88171..7ddf207 100644 --- a/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb +++ b/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb @@ -10285,9 +10285,9 @@ Public Class frmDYNachrichtenVerarbeitung 'End If 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) For Each ABG In EZA.EinzelAbgabenbescheid.KopfDaten.AbgabenNachArt + Dim a As New DAKOSY_Worker.cDakosy_EZA_Aufschub a.ezaAfb_ArtAufschubantrag = ABG.ArtAufschubAntrag a.ezaAfb_AufschubnehmerEORI = ABG.AufschubnehmerTIN a.ezaAfb_HZA = ABG.KennBuchstabenAufschub @@ -10301,12 +10301,9 @@ Public Class frmDYNachrichtenVerarbeitung ' Case "B0000" 'EUST ' Case "B0000" 'EUST 'End Select + AUFSCHUB.Add(a) Next - AUFSCHUB.Add(a) End If - - - End If If readEZA_Abgabenbescheid012 <> "" Then 'BEZUGSNR vorhanden