DY Abgaben
This commit is contained in:
@@ -167,6 +167,7 @@ Public Class cImporter_DakosyToVERAG
|
||||
' ================================================================
|
||||
' ABGABEN
|
||||
' ================================================================
|
||||
|
||||
If eza.eza_AUFSCHUB IsNot Nothing Then
|
||||
For Each d In eza.eza_AUFSCHUB
|
||||
|
||||
|
||||
@@ -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
|
||||
|
||||
|
||||
Reference in New Issue
Block a user