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

CBAM/VERAG Zollanmeldungen

Browse Source
This commit is contained in:
Andreas Luxbauer
2026-01-13 10:01:43 +01:00
parent 11bc5bfa95
commit a8504ac3a2
10 changed files with 158 additions and 77 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
DAKOSY_Worker/DAKOSY/ATLAS/EZA/cDakosyEZA.vb
View File

@@ -431,6 +431,18 @@ list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_BezugsnummerBEAnteilZL", eza_
End Try End Try
Return LOADByAnmID Return LOADByAnmID
End Function End Function
Sub loadAll()
Me.LOAD_Unterlagen()
Me.LOAD_Warenposition()
Me.LOAD_Adressen()
Me.LOAD_Aufschub()
Me.LOAD_BEAnteilZLAVUV()
Me.LOAD_SumABeendigungsAnteil()
End Sub
Shared Function LOADByBezugsNr(bezugsNr As String, loadALL As Boolean, Optional checkValidStatus As Boolean = False) As cDakosyEZA Shared Function LOADByBezugsNr(bezugsNr As String, loadALL As Boolean, Optional checkValidStatus As Boolean = False) As cDakosyEZA
Try Try
Dim EZA As New cDakosyEZA Dim EZA As New cDakosyEZA

24
DAKOSY_Worker/DAKOSY/ATLAS/EZA/cDakosyEZA_Greenpulse.vb
View File

@@ -208,6 +208,30 @@ Public Class cDakosyEZA_Greenpulse
Return dest Return dest
End Function End Function
Public Shared Sub INSERT_KAFKA(za As cVERAG_CustomsDeclarations)
Try
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS Is Nothing Then
VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS = New cParameterList(VERAG_PROG_ALLGEMEIN.cAllgemein.PROGID)
End If
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("CBAM_INSERT_KAFKA") Then
Dim key = cATEZ_Greenpulse_KafkaDecs.GetUniqueKey_Pipe_FromVERAG_CustomsDec(za, za.za_MRN)
Dim rec = cDakosyEZA_Greenpulse.BuildByMrn(za)
Dim dr = cATEZ_Greenpulse_KafkaDecs.InsertOrUpdateToKafkaSync_Bool(rec, key, 30000)
'Unlerlagen
If za.za_SendungsId IsNot Nothing AndAlso za.za_SendungsId > 0 Then
Dim rec_inv = cDakosyEZA_Greenpulse.BuildInvoices(za.za_SendungsId)
Dim dr_inv = cATEZ_Greenpulse_KafkaInvoices.InsertOrUpdateToKafkaSync_Bool(rec_inv, key, 30000)
End If
End If
Catch ex As Exception
Try
cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine & za.za_MRN, Reflection.MethodInfo.GetCurrentMethod.Name)
Catch ex2 As Exception
cErrorHandler.ERR(ex.Message, ex.StackTrace, Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Try
End Sub
Public Shared Function BuildByMrn(za As cVERAG_CustomsDeclarations) As cATEZ_Greenpulse_KafkaDecs Public Shared Function BuildByMrn(za As cVERAG_CustomsDeclarations) As cATEZ_Greenpulse_KafkaDecs
If za Is Nothing Then Throw New ArgumentNullException(NameOf(za)) If za Is Nothing Then Throw New ArgumentNullException(NameOf(za))

10
DAKOSY_Worker/cImporter_DHFToVERAG.vb
View File

@@ -13,7 +13,7 @@ Public Class cImporter_DHFToVERAG
' ===================================================================== ' =====================================================================
' MAIN ENTRY ' MAIN ENTRY
' ===================================================================== ' =====================================================================
Public Function ImportEZOLLByLRN(CRN As String, EZOLL_DB As String, Optional overwrite As Boolean = True, Optional freshInsert As Boolean = True) As Boolean Public Function ImportEZOLLByLRN(CRN As String, EZOLL_DB As String, Optional overwrite As Boolean = True, Optional freshInsert As Boolean = False) As Boolean
Try Try
If String.IsNullOrWhiteSpace(CRN) Then Return False If String.IsNullOrWhiteSpace(CRN) Then Return False
@@ -192,10 +192,12 @@ Public Class cImporter_DHFToVERAG
ZA.checkfreshCBAMWarning() ZA.checkfreshCBAMWarning()
End If End If
' ---------------------------------------------------------------
' SAVE ' SAVE
' --------------------------------------------------------------- Dim saved = ZA.SAVE()
Return ZA.SAVE() ' ======KAFKA==========================================================
If freshInsert Then cDakosyEZA_Greenpulse.INSERT_KAFKA(ZA)
' ================================================================
Return saved
Catch ex As Exception Catch ex As Exception
cErrorHandler.ERR(ex.Message, ex.StackTrace, MethodInfo.GetCurrentMethod.Name) cErrorHandler.ERR(ex.Message, ex.StackTrace, MethodInfo.GetCurrentMethod.Name)

130
DAKOSY_Worker/cImporter_DakosyToVERAG.vb
View File

@@ -34,92 +34,92 @@ Public Class cImporter_DakosyToVERAG
' ================================================================ ' ================================================================
' HEADER ' HEADER
' ================================================================ ' ================================================================
Dim VERAG_ZA As cVERAG_CustomsDeclarations Dim ZA As cVERAG_CustomsDeclarations
If If(eza.eza_MRN, If(eza.eza_ANR, "")) = "" Then If If(eza.eza_MRN, If(eza.eza_ANR, "")) = "" Then
VERAG_ZA = New cVERAG_CustomsDeclarations ZA = New cVERAG_CustomsDeclarations
Else Else
VERAG_ZA = cVERAG_CustomsDeclarations.loadByMRN(If(eza.eza_MRN, If(eza.eza_ANR, "")), False) ZA = cVERAG_CustomsDeclarations.loadByMRN(If(eza.eza_MRN, If(eza.eza_ANR, "")), False)
End If End If
VERAG_ZA.za_System = "DAKOSY" ZA.za_System = "DAKOSY"
VERAG_ZA.za_CustomsSystem = "ATLAS" ZA.za_CustomsSystem = "ATLAS"
VERAG_ZA.za_REGIME = "IMPORT" ZA.za_REGIME = "IMPORT"
VERAG_ZA.za_CustomsSystemCountry = "DE" ZA.za_CustomsSystemCountry = "DE"
VERAG_ZA.za_IsExternalSystem = False ZA.za_IsExternalSystem = False
VERAG_ZA.za_IsFinalDeclaration = True ZA.za_IsFinalDeclaration = True
VERAG_ZA.za_Firma = eza.eza_firma ZA.za_Firma = eza.eza_firma
VERAG_ZA.za_Niederlassung = eza.eza_niederlassung ZA.za_Niederlassung = eza.eza_niederlassung
VERAG_ZA.za_MRN = If(eza.eza_MRN, eza.eza_ANR) ZA.za_MRN = If(eza.eza_MRN, eza.eza_ANR)
VERAG_ZA.za_LRN = eza.eza_ObjectName ZA.za_LRN = eza.eza_ObjectName
VERAG_PROG_ALLGEMEIN.cProgramFunctions.tryGetFirmaNiederlassung(VERAG_ZA.za_Firma, VERAG_ZA.za_Niederlassung, "", VERAG_ZA.za_LRN) VERAG_PROG_ALLGEMEIN.cProgramFunctions.tryGetFirmaNiederlassung(ZA.za_Firma, ZA.za_Niederlassung, "", ZA.za_LRN)
VERAG_PROG_ALLGEMEIN.cProgramFunctions.tryGetAvisoId_SndId_ByLRN(VERAG_ZA.za_LRN, VERAG_ZA.za_AvisoId, VERAG_ZA.za_SendungsId) VERAG_PROG_ALLGEMEIN.cProgramFunctions.tryGetAvisoId_SndId_ByLRN(ZA.za_LRN, ZA.za_AvisoId, ZA.za_SendungsId)
Dim DY = cDakosy_Zollanmeldungen.LOADById(eza.eza_dyaAnmID) Dim DY = cDakosy_Zollanmeldungen.LOADById(eza.eza_dyaAnmID)
If DY IsNot Nothing Then If DY IsNot Nothing Then
If VERAG_ZA.za_AvisoId Is Nothing AndAlso DY.dy_AvisoId IsNot Nothing Then VERAG_ZA.za_AvisoId = DY.dy_AvisoId If ZA.za_AvisoId Is Nothing AndAlso DY.dy_AvisoId IsNot Nothing Then ZA.za_AvisoId = DY.dy_AvisoId
If VERAG_ZA.za_SendungsId Is Nothing AndAlso DY.dy_SendungsId IsNot Nothing Then VERAG_ZA.za_SendungsId = DY.dy_SendungsId If ZA.za_SendungsId Is Nothing AndAlso DY.dy_SendungsId IsNot Nothing Then ZA.za_SendungsId = DY.dy_SendungsId
End If End If
If eza.eza_Anmeldedatum IsNot Nothing AndAlso eza.eza_Anmeldedatum.ToString <> "" Then If eza.eza_Anmeldedatum IsNot Nothing AndAlso eza.eza_Anmeldedatum.ToString <> "" Then
VERAG_ZA.za_DeclarationDate = CDate(eza.eza_Anmeldedatum) ZA.za_DeclarationDate = CDate(eza.eza_Anmeldedatum)
VERAG_ZA.za_ReleaseDate = CDate(eza.eza_Anmeldedatum) ZA.za_ReleaseDate = CDate(eza.eza_Anmeldedatum)
Else Else
Dim dateumRelease As String = (New VERAG_PROG_ALLGEMEIN.SQL).DLookup("isnull(dySt_DakosyTransaktionsDatum,'')", "[tblDakosy_Statusmeldungen]", " dySt_status = 60 And dySt_dyId = '" & eza.eza_dyaAnmID & "' Order By [dySt_DakosyTransaktionsDatum] desc", "FMZOLL",) Dim dateumRelease As String = (New VERAG_PROG_ALLGEMEIN.SQL).DLookup("isnull(dySt_DakosyTransaktionsDatum,'')", "[tblDakosy_Statusmeldungen]", " dySt_status = 60 And dySt_dyId = '" & eza.eza_dyaAnmID & "' Order By [dySt_DakosyTransaktionsDatum] desc", "FMZOLL",)
If dateumRelease <> "" AndAlso IsDate(dateumRelease) Then If dateumRelease <> "" AndAlso IsDate(dateumRelease) Then
VERAG_ZA.za_DeclarationDate = CDate(dateumRelease) ZA.za_DeclarationDate = CDate(dateumRelease)
VERAG_ZA.za_ReleaseDate = CDate(dateumRelease) ZA.za_ReleaseDate = CDate(dateumRelease)
Else Else
VERAG_ZA.za_DeclarationDate = ToNullableDate(If(eza.eza_Anmeldedatum, eza.eza_LetzteBearbeitung)) ZA.za_DeclarationDate = ToNullableDate(If(eza.eza_Anmeldedatum, eza.eza_LetzteBearbeitung))
VERAG_ZA.za_ReleaseDate = ToNullableDate(If(eza.eza_Anmeldedatum, eza.eza_LetzteBearbeitung)) ZA.za_ReleaseDate = ToNullableDate(If(eza.eza_Anmeldedatum, eza.eza_LetzteBearbeitung))
End If End If
End If End If
VERAG_ZA.za_MainProcedure = eza.eza_VerfahrenBeantragtCode ZA.za_MainProcedure = eza.eza_VerfahrenBeantragtCode
VERAG_ZA.za_RepresentationCode = eza.eza_VertretungsVerhaeltnisCode ZA.za_RepresentationCode = eza.eza_VertretungsVerhaeltnisCode
VERAG_ZA.za_FiscalRepFlag = ToNullableBool(eza.eza_FiskalvertretungKz) ZA.za_FiscalRepFlag = ToNullableBool(eza.eza_FiskalvertretungKz)
VERAG_ZA.za_ApplicantVATNo = ToStringSafe(eza.eza_UstIdAnmelder) ZA.za_ApplicantVATNo = ToStringSafe(eza.eza_UstIdAnmelder)
VERAG_ZA.za_ApplicantTaxOffice = ToStringSafe(eza.eza_FinanzamtAnmelder) ZA.za_ApplicantTaxOffice = ToStringSafe(eza.eza_FinanzamtAnmelder)
VERAG_ZA.za_TaxDeduction = ToNullableBool(eza.eza_Vorsteuerabzug) ZA.za_TaxDeduction = ToNullableBool(eza.eza_Vorsteuerabzug)
VERAG_ZA.za_CountryDispatch = eza.eza_VersendungsLandCode ZA.za_CountryDispatch = eza.eza_VersendungsLandCode
VERAG_ZA.za_CountryDestination = eza.eza_Bestimmungsland ZA.za_CountryDestination = eza.eza_Bestimmungsland
VERAG_ZA.za_CountryDestinationState = eza.eza_Bestimmungsbundesland ZA.za_CountryDestinationState = eza.eza_Bestimmungsbundesland
VERAG_ZA.za_ContainerNr1 = eza.eza_ContainerNr1 ZA.za_ContainerNr1 = eza.eza_ContainerNr1
VERAG_ZA.za_ContainerNr2 = eza.eza_ContainerNr2 ZA.za_ContainerNr2 = eza.eza_ContainerNr2
VERAG_ZA.za_ContainerNr3 = eza.eza_ContainerNr3 ZA.za_ContainerNr3 = eza.eza_ContainerNr3
VERAG_ZA.za_ContainerNr4 = eza.eza_ContainerNr4 ZA.za_ContainerNr4 = eza.eza_ContainerNr4
VERAG_ZA.za_ContainerNr5 = eza.eza_ContainerNr5 ZA.za_ContainerNr5 = eza.eza_ContainerNr5
VERAG_ZA.za_ContainerNr6 = eza.eza_ContainerNr6 ZA.za_ContainerNr6 = eza.eza_ContainerNr6
VERAG_ZA.za_ContainerNr7 = eza.eza_ContainerNr7 ZA.za_ContainerNr7 = eza.eza_ContainerNr7
VERAG_ZA.za_ContainerNr8 = eza.eza_ContainerNr8 ZA.za_ContainerNr8 = eza.eza_ContainerNr8
VERAG_ZA.za_ContainerNr9 = eza.eza_ContainerNr9 ZA.za_ContainerNr9 = eza.eza_ContainerNr9
VERAG_ZA.za_MeansOfTransport_Vehicle = eza.eza_KennzeichenNameBefoerderungsmittelAnkunft ZA.za_MeansOfTransport_Vehicle = eza.eza_KennzeichenNameBefoerderungsmittelAnkunft
VERAG_ZA.za_MeansOfTransport_Nationality = eza.eza_BeförderungsmittelGrenzeStaatszugehörigkeitCode ZA.za_MeansOfTransport_Nationality = eza.eza_BeförderungsmittelGrenzeStaatszugehörigkeitCode
VERAG_ZA.za_MeansOfTransport_Type = eza.eza_BeförderungsmittelGrenzeArt ZA.za_MeansOfTransport_Type = eza.eza_BeförderungsmittelGrenzeArt
VERAG_ZA.za_CountryImport = "DE" ZA.za_CountryImport = "DE"
VERAG_ZA.za_WarehouseCode = eza.eza_Warenort ZA.za_WarehouseCode = eza.eza_Warenort
VERAG_ZA.za_InvoiceAmount = eza.eza_Rechnungspreis ZA.za_InvoiceAmount = eza.eza_Rechnungspreis
VERAG_ZA.za_InvoiceCurrency = eza.eza_Rechnungswaehrung ZA.za_InvoiceCurrency = eza.eza_Rechnungswaehrung
VERAG_ZA.za_DV1Flag = ToNullableBool(eza.eza_DV1Kz) ZA.za_DV1Flag = ToNullableBool(eza.eza_DV1Kz)
VERAG_ZA.za_PrevDocument_No = eza.eza_VorpapierNr ZA.za_PrevDocument_No = eza.eza_VorpapierNr
VERAG_ZA.za_PrevDocument_Type = eza.eza_VorpapierArtCode ZA.za_PrevDocument_Type = eza.eza_VorpapierArtCode
VERAG_ZA.za_Incoterms = eza.eza_LieferbedingungCode ZA.za_Incoterms = eza.eza_LieferbedingungCode
VERAG_ZA.za_IncotermsPlace = eza.eza_LieferbedingungOrt ZA.za_IncotermsPlace = eza.eza_LieferbedingungOrt
VERAG_ZA.za_Sachbearbeiter = eza.eza_AnmeldenderBearbeiterName ZA.za_Sachbearbeiter = eza.eza_AnmeldenderBearbeiterName
VERAG_ZA.za_TotGrossMass = ToNullableDecimal(eza.eza_GesamtRohmasse) ZA.za_TotGrossMass = ToNullableDecimal(eza.eza_GesamtRohmasse)
VERAG_ZA.za_TransportModeBorder = ToStringSafe(eza.eza_VerkehrszweigGrenze) ZA.za_TransportModeBorder = ToStringSafe(eza.eza_VerkehrszweigGrenze)
' ================================================================ ' ================================================================
' ADRESSEN ' ADRESSEN
@@ -160,7 +160,7 @@ Public Class cImporter_DakosyToVERAG
End If End If
VERAG_ZA.Parties.Add(party) ZA.Parties.Add(party)
Next Next
End If End If
@@ -185,7 +185,7 @@ Public Class cImporter_DakosyToVERAG
duty.zaDuty_Currency = "EUR" duty.zaDuty_Currency = "EUR"
duty.zaDuty_LimitDate = ToNullableDate(d.ezaAfb_Faelligkeit) duty.zaDuty_LimitDate = ToNullableDate(d.ezaAfb_Faelligkeit)
VERAG_ZA.Duties.Add(duty) ZA.Duties.Add(duty)
Next Next
End If End If
@@ -205,7 +205,7 @@ Public Class cImporter_DakosyToVERAG
VERAG_ZA.Documents.Add(doc) ZA.Documents.Add(doc)
Next Next
End If End If
@@ -285,7 +285,7 @@ Public Class cImporter_DakosyToVERAG
Next Next
End If End If
VERAG_ZA.Items.Add(item) ZA.Items.Add(item)
Next Next
End If End If
@@ -293,16 +293,16 @@ Public Class cImporter_DakosyToVERAG
'CBAM WARNING 'CBAM WARNING
' ================================================================ ' ================================================================
If freshInsert Then If freshInsert Then
VERAG_ZA.checkfreshCBAMWarning() ZA.checkfreshCBAMWarning()
End If End If
' ================================================================ ' ================================================================
' ================================================================
' SAVE ' SAVE
Dim saved = ZA.SAVE()
' ======KAFKA==========================================================
If freshInsert Then cDakosyEZA_Greenpulse.INSERT_KAFKA(ZA)
' ================================================================ ' ================================================================
Return saved
Return VERAG_ZA.SAVE()
Catch ex As Exception Catch ex As Exception

9
DAKOSY_Worker/cImporter_TelotecToVERAG.vb
View File

@@ -11,7 +11,7 @@ Public Class cImporter_TelotecToVERAG
' ===================================================================== ' =====================================================================
' MAIN ENTRY ' MAIN ENTRY
' ===================================================================== ' =====================================================================
Public Function ImportTelotec(CRN As String, Optional overwrite As Boolean = True, Optional freshInsert As Boolean = True) As Boolean Public Function ImportTelotec(CRN As String, Optional overwrite As Boolean = True, Optional freshInsert As Boolean = False) As Boolean
If CRN Is Nothing Then Return False If CRN Is Nothing Then Return False
If CRN = "" Then Return False If CRN = "" Then Return False
@@ -22,7 +22,7 @@ Public Class cImporter_TelotecToVERAG
Return False Return False
End Function End Function
Public Function ImportTelotec(tel As cTelotec_Anmeldung, Optional overwrite As Boolean = True, Optional freshinsert As Boolean = True) As Boolean Public Function ImportTelotec(tel As cTelotec_Anmeldung, Optional overwrite As Boolean = True, Optional freshinsert As Boolean = False) As Boolean
Try Try
If tel Is Nothing Then Return False If tel Is Nothing Then Return False
If String.IsNullOrWhiteSpace(ToStringSafe(tel.Refs_LRN)) AndAlso If String.IsNullOrWhiteSpace(ToStringSafe(tel.Refs_LRN)) AndAlso
@@ -187,8 +187,11 @@ Public Class cImporter_TelotecToVERAG
' ================================================================ ' ================================================================
' ================================================================ ' ================================================================
' SAVE ' SAVE
Dim saved = ZA.SAVE()
' ======KAFKA==========================================================
cDakosyEZA_Greenpulse.INSERT_KAFKA(ZA)
' ================================================================ ' ================================================================
Return ZA.SAVE() Return saved
Catch ex As Exception Catch ex As Exception
cErrorHandler.ERR(ex.Message, ex.StackTrace, MethodInfo.GetCurrentMethod.Name) cErrorHandler.ERR(ex.Message, ex.StackTrace, MethodInfo.GetCurrentMethod.Name)

19
MailSender/MAILSender.vb
View File

@@ -50,7 +50,7 @@ Module Mail
'Exit Sub 'Exit Sub
'PARAM = "ZF_QUARTER" ' PARAM = "TETRAPAK_OKT"
'PARAM = "JAHRESABRECHNUNG AG-ZS" 'PARAM = "JAHRESABRECHNUNG AG-ZS"
' PARAM = "UID_OPS_SYSKA_ABGLEICH" ' PARAM = "UID_OPS_SYSKA_ABGLEICH"
@@ -472,6 +472,23 @@ Module Mail
System.Console.WriteLine("Vorgang erfolgreich abgeschlossen ...") System.Console.WriteLine("Vorgang erfolgreich abgeschlossen ...")
End If End If
End If End If
'Case "TETRAPAK_OKT" 'umgebaut auf neue Mailsender-Logik
' Dim von = CDate("01.10.2025")
' Dim bis = CDate("31.10.2025")
' If dtParam.Rows.Count = 1 Then
' System.Console.WriteLine("OPTION erkannt: " & dtParam.Rows(0).Item("ms_info"))
' System.Console.WriteLine("Auswertung Details gestartet...")
' If SendEmail_Tetrapak(dtParam.Rows(0).Item("ms_an"), von, bis, "DE", dtParam.Rows(0).Item("ms_cc"), dtParam.Rows(0).Item("ms_bcc"), dtParam.Rows(0).Item("ms_subject"), dtParam.Rows(0).Item("ms_mailtext")) AndAlso SendEmail_Tetrapak(dtParam.Rows(0).Item("ms_an"), von, bis, "AT", dtParam.Rows(0).Item("ms_cc"), dtParam.Rows(0).Item("ms_bcc"), dtParam.Rows(0).Item("ms_subject"), dtParam.Rows(0).Item("ms_mailtext")) Then
' System.Console.WriteLine("Vorgang erfolgreich abgeschlossen ...")
' End If
' Else
' System.Console.WriteLine("OPTION erkannt: TETRA_PAK _ Erstellt eine monatliche Auswertung der DAKSOY/EZOLL-Abfertigungen für TETRAPAK.")
' System.Console.WriteLine("Auswertung Details gestartet...")
' If SendEmail_Tetrapak("Maria.mendez@tetrapak.com; Andrea.Ronceria@tetrapak.com; nikhil.mediratta@tetrapak.com", von, bis, "DE") AndAlso SendEmail_Tetrapak("Maria.mendez@tetrapak.com;Andrea.Ronceria@tetrapak.com;nikhil.mediratta@tetrapak.com", von, bis, "AT") Then
' System.Console.WriteLine("Vorgang erfolgreich abgeschlossen ...")
' End If
' End If
Case "Imex_Kunden_keine_Abfertigung" 'umgebaut auf neue Mailsender-Logik Case "Imex_Kunden_keine_Abfertigung" 'umgebaut auf neue Mailsender-Logik
Dim von = CDate("01." & Now.AddMonths(-1).Month & "." & Now.AddMonths(-1).Year) Dim von = CDate("01." & Now.AddMonths(-1).Month & "." & Now.AddMonths(-1).Year)

6
initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb
View File

@@ -9120,6 +9120,7 @@ Public Class frmDYNachrichtenVerarbeitung
Else Else
EZA_TMP = saveDY_EZA(STATUS, DY_TMP, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit)) EZA_TMP = saveDY_EZA(STATUS, DY_TMP, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit))
End If End If
EZA_TMP.loadAll()
'Anmlededatum setzen 'Anmlededatum setzen
EZA_TMP.eza_Anmeldedatum = zp EZA_TMP.eza_Anmeldedatum = zp
@@ -9135,7 +9136,7 @@ Public Class frmDYNachrichtenVerarbeitung
'=====IMPORT IN VERAG DATENMODELL========== '=====IMPORT IN VERAG DATENMODELL==========
Dim IMP As New DAKOSY_Worker.cImporter_DakosyToVERAG Dim IMP As New DAKOSY_Worker.cImporter_DakosyToVERAG
IMP.ImportDakosyEZA(EZA_TMP, False) IMP.ImportDakosyEZA(EZA_TMP, False, True)
'================================== '==================================
'=====ATEZ BEREITSTELLUNG========== '=====ATEZ BEREITSTELLUNG==========
@@ -10265,7 +10266,7 @@ Public Class frmDYNachrichtenVerarbeitung
Else Else
EZA_TMP = saveDY_EZA(STATUS, DY_TMP, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit)) EZA_TMP = saveDY_EZA(STATUS, DY_TMP, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit))
End If End If
EZA_TMP.loadAll()
Dim firma = "" Dim firma = ""
Dim nl = "" Dim nl = ""
@@ -10337,6 +10338,7 @@ Public Class frmDYNachrichtenVerarbeitung
EZA_TMP.insertIntoSpedBuch(DY_TMP) EZA_TMP.insertIntoSpedBuch(DY_TMP)
'=====IMPORT IN VERAG DATENMODELL========== '=====IMPORT IN VERAG DATENMODELL==========
Dim IMP As New DAKOSY_Worker.cImporter_DakosyToVERAG Dim IMP As New DAKOSY_Worker.cImporter_DakosyToVERAG
IMP.ImportDakosyEZA(EZA_TMP, False, True) IMP.ImportDakosyEZA(EZA_TMP, False, True)

15
initATLASAufschubkonten/frmStartOptions.Designer.vb generated
View File

@@ -363,6 +363,7 @@ Partial Class frmStartOptions
Me.txtGJ_UNISPED = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtGJ_UNISPED = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Button21 = New System.Windows.Forms.Button() Me.Button21 = New System.Windows.Forms.Button()
Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.Button29 = New System.Windows.Forms.Button()
Me.pnl.SuspendLayout() Me.pnl.SuspendLayout()
CType(Me.PictureBox24, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox24, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox23, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox23, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -1158,6 +1159,7 @@ Partial Class frmStartOptions
' '
'TabPage1 'TabPage1
' '
Me.TabPage1.Controls.Add(Me.Button29)
Me.TabPage1.Controls.Add(Me.LinkLabel68) Me.TabPage1.Controls.Add(Me.LinkLabel68)
Me.TabPage1.Controls.Add(Me.PictureBox26) Me.TabPage1.Controls.Add(Me.PictureBox26)
Me.TabPage1.Controls.Add(Me.cbxGestellungspeichern) Me.TabPage1.Controls.Add(Me.cbxGestellungspeichern)
@@ -4856,6 +4858,18 @@ Partial Class frmStartOptions
Me.DataGridViewTextBoxColumn1.MinimumWidth = 8 Me.DataGridViewTextBoxColumn1.MinimumWidth = 8
Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1" Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1"
' '
'Button29
'
Me.Button29.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button29.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Button29.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button29.Location = New System.Drawing.Point(1072, 67)
Me.Button29.Name = "Button29"
Me.Button29.Size = New System.Drawing.Size(123, 24)
Me.Button29.TabIndex = 152
Me.Button29.Text = "testKK"
Me.Button29.UseVisualStyleBackColor = True
'
'frmStartOptions 'frmStartOptions
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -5273,4 +5287,5 @@ Partial Class frmStartOptions
Friend WithEvents lblBackToCustomer_RMC As LinkLabel Friend WithEvents lblBackToCustomer_RMC As LinkLabel
Friend WithEvents lblBackToCustomer_UTA As LinkLabel Friend WithEvents lblBackToCustomer_UTA As LinkLabel
Friend WithEvents lblBackToCustomer_PLOSE As LinkLabel Friend WithEvents lblBackToCustomer_PLOSE As LinkLabel
Friend WithEvents Button29 As Button
End Class End Class

8
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -6,6 +6,7 @@ Imports System.Security.Cryptography.X509Certificates
Imports System.Text Imports System.Text
Imports System.Threading Imports System.Threading
Imports System.Xml Imports System.Xml
Imports DAKOSY_Worker
Imports MDM_Worker Imports MDM_Worker
Imports Renci.SshNet Imports Renci.SshNet
Imports VERAG_PROG_ALLGEMEIN Imports VERAG_PROG_ALLGEMEIN
@@ -1001,7 +1002,7 @@ Public Class frmStartOptions
'=====IMPORT IN VERAG DATENMODELL========== '=====IMPORT IN VERAG DATENMODELL==========
Dim IMP As New DAKOSY_Worker.cImporter_DHFToVERAG Dim IMP As New DAKOSY_Worker.cImporter_DHFToVERAG
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "UNIDPED" : IMP.ImportEZOLLByLRN(cDHF_Anhaenge.CRN, "EZOLL_UNISPED", False) Case "UNISPED" : IMP.ImportEZOLLByLRN(cDHF_Anhaenge.CRN, "EZOLL_UNISPED", False, True)
Case Else : IMP.ImportEZOLLByLRN(cDHF_Anhaenge.CRN, "EZOLL", False) Case Else : IMP.ImportEZOLLByLRN(cDHF_Anhaenge.CRN, "EZOLL", False)
End Select End Select
'========================================== '==========================================
@@ -7193,4 +7194,9 @@ repeatRequest:
End Sub End Sub
Private Sub Button29_Click_1(sender As Object, e As EventArgs) Handles Button29.Click
Dim ZA = VERAG_PROG_ALLGEMEIN.cVERAG_CustomsDeclarations.loadByMRN("26DE7458ACA000YYR2", True)
ZA.checkfreshCBAMWarning()
End Sub
End Class End Class

2
initATLASAufschubkonten/frmTCNachrichtenVerarbeitung.vb
View File

@@ -1058,7 +1058,7 @@ Public Class frmTCNachrichtenVerarbeitung
'=====IMPORT IN VERAG DATENMODELL========== '=====IMPORT IN VERAG DATENMODELL==========
If TC.Hea_DecTy = "EUA" Then If TC.Hea_DecTy = "EUA" Then
Dim IMP As New DAKOSY_Worker.cImporter_TelotecToVERAG Dim IMP As New DAKOSY_Worker.cImporter_TelotecToVERAG
IMP.ImportTelotec(TC, False) IMP.ImportTelotec(TC, False, True)
End If End If
'================================== '==================================