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

merge

Browse Source
This commit is contained in:
d.breimaier
2026-01-14 08:55:07 +01:00
parent ea0b58803e eb4fdfaf58
commit 0b6a5c9956
13 changed files with 388 additions and 135 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))

30
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) 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
@@ -185,10 +185,19 @@ Public Class cImporter_DHFToVERAG
ZA.Items.Add(it) ZA.Items.Add(it)
Next Next
' --------------------------------------------------------------- ' ================================================================
'CBAM WARNING
' ================================================================
If freshInsert Then
ZA.checkfreshCBAMWarning()
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)
@@ -462,7 +471,9 @@ Public Class cImporter_DHFToVERAG
doc.zaDoc_Reference = ToStringSafe(r("referenceNumber")) doc.zaDoc_Reference = ToStringSafe(r("referenceNumber"))
doc.zaDoc_Date = ToNullableDate(r("validityDate")) If r("validityDate") IsNot Nothing AndAlso r("validityDate") IsNot DBNull.Value Then
doc.zaDoc_Date = ToNullableDate(r("validityDate"))
End If
'doc.zaDoc_Section = ToStringSafe(r("DocumentTypID")) 'doc.zaDoc_Section = ToStringSafe(r("DocumentTypID"))
doc.zaDoc_Description = ToStringSafe(r("text")) doc.zaDoc_Description = ToStringSafe(r("text"))
@@ -471,8 +482,9 @@ Public Class cImporter_DHFToVERAG
' ------------------------------------------------------------ ' ------------------------------------------------------------
doc.zaDoc_Presentation = ToStringSafe(r("typeOfPackages")) doc.zaDoc_Presentation = ToStringSafe(r("typeOfPackages"))
doc.zaDoc_DepreciationAmount = ToNullableDecimal(r("amount")) If r("amount") IsNot Nothing AndAlso r("amount") IsNot DBNull.Value Then
doc.zaDoc_DepreciationAmount = ToNullableDecimal(r("amount"))
End If
doc.zaDoc_DepreciationUnitmeasurement = doc.zaDoc_DepreciationUnitmeasurement =
ToStringSafe(r("measurementUnitAndQualifier")) ToStringSafe(r("measurementUnitAndQualifier"))
@@ -513,7 +525,7 @@ Public Class cImporter_DHFToVERAG
Dim party As New cVERAG_CustomsDeclarations_Parties Dim party As New cVERAG_CustomsDeclarations_Parties
party.zaParty_Role = r("AdressTypID") party.zaParty_Role = ToStringSafe(r("AdressTypID"))
party.zaParty_EORI = ToStringSafe(r("identificationNumber")) party.zaParty_EORI = ToStringSafe(r("identificationNumber"))
party.zaParty_Name = ToStringSafe(r("name")) party.zaParty_Name = ToStringSafe(r("name"))
@@ -533,7 +545,7 @@ Public Class cImporter_DHFToVERAG
Private Function ExistsInVERAG(CRN As String) As Boolean Private Function ExistsInVERAG(CRN As String) As Boolean
Dim sql = Dim sql =
"SELECT TOP 1 1 FROM tblVERAG_CustomsDeclarations " & "SELECT TOP 1 1 FROM tblVERAG_CustomsDeclarations " &
"WHERE za_System='EZOLL' AND (za_MRN=@CRN )" "WHERE za_System LIKE 'DHF%' AND (za_MRN=@CRN )"
Dim p As New List(Of SQLVariable) From { Dim p As New List(Of SQLVariable) From {
New SQLVariable("CRN", CRN) New SQLVariable("CRN", CRN)

141
DAKOSY_Worker/cImporter_DakosyToVERAG.vb
View File

@@ -7,15 +7,15 @@ Public Class cImporter_DakosyToVERAG
' ======================================================================== ' ========================================================================
' MAIN ENTRY ' MAIN ENTRY
' ======================================================================== ' ========================================================================
Public Function ImportDakosyEZA(MRN As String, Optional overwrite As Boolean = True) As Boolean Public Function ImportDakosyEZA(MRN As String, Optional overwrite As Boolean = True, Optional freshInsert As Boolean = False) As Boolean
If MRN Is Nothing Then Return False If MRN Is Nothing Then Return False
If MRN = "" Then Return False If MRN = "" Then Return False
Dim EZA = cDakosyEZA.LOADByMRN(MRN, True) Dim EZA = cDakosyEZA.LOADByMRN(MRN, True)
If EZA IsNot Nothing Then Return ImportDakosyEZA(EZA) If EZA IsNot Nothing Then Return ImportDakosyEZA(EZA, overwrite, freshInsert)
Return False Return False
End Function End Function
Public Function ImportDakosyEZA(eza As cDakosyEZA, Optional overwrite As Boolean = True) As Boolean Public Function ImportDakosyEZA(eza As cDakosyEZA, Optional overwrite As Boolean = True, Optional freshInsert As Boolean = False) As Boolean
Try Try
If eza Is Nothing Then Return False If eza Is Nothing Then Return False
If String.IsNullOrWhiteSpace(eza.eza_MRN) AndAlso String.IsNullOrWhiteSpace(eza.eza_ANR) Then Return False If String.IsNullOrWhiteSpace(eza.eza_MRN) AndAlso String.IsNullOrWhiteSpace(eza.eza_ANR) Then Return False
@@ -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,14 +285,25 @@ 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
' ================================================================ ' ================================================================
' SAVE 'CBAM WARNING
' ================================================================ ' ================================================================
Return VERAG_ZA.SAVE() If freshInsert Then
ZA.checkfreshCBAMWarning()
End If
' ================================================================
' SAVE
Dim saved = 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, Reflection.MethodInfo.GetCurrentMethod.Name) cErrorHandler.ERR(ex.Message, ex.StackTrace, Reflection.MethodInfo.GetCurrentMethod.Name)

19
DAKOSY_Worker/cImporter_TelotecToVERAG.vb
View File

@@ -11,18 +11,18 @@ Public Class cImporter_TelotecToVERAG
' ===================================================================== ' =====================================================================
' MAIN ENTRY ' MAIN ENTRY
' ===================================================================== ' =====================================================================
Public Function ImportTelotec(CRN As String, Optional overwrite 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
Dim cTelotec_Anmeldung = TELOTEC_Worker.cTelotec_Anmeldung.LOADByCRN(CRN, True) Dim cTelotec_Anmeldung = TELOTEC_Worker.cTelotec_Anmeldung.LOADByCRN(CRN, True)
If cTelotec_Anmeldung IsNot Nothing Then Return ImportTelotec(cTelotec_Anmeldung, overwrite) If cTelotec_Anmeldung IsNot Nothing Then Return ImportTelotec(cTelotec_Anmeldung, overwrite, freshInsert)
Return False Return False
End Function End Function
Public Function ImportTelotec(tel As cTelotec_Anmeldung, Optional overwrite 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
@@ -177,10 +177,21 @@ Public Class cImporter_TelotecToVERAG
ZA.Items.Add(it) ZA.Items.Add(it)
Next Next
' ================================================================
'CBAM WARNING
' ================================================================
If freshinsert Then
ZA.checkfreshCBAMWarning()
End If
' ================================================================
' ================================================================ ' ================================================================
' 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)

21
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"
@@ -468,10 +468,27 @@ Module Mail
System.Console.WriteLine("OPTION erkannt: TETRA_PAK _ Erstellt eine monatliche Auswertung der DAKSOY/EZOLL-Abfertigungen für TETRAPAK.") System.Console.WriteLine("OPTION erkannt: TETRA_PAK _ Erstellt eine monatliche Auswertung der DAKSOY/EZOLL-Abfertigungen für TETRAPAK.")
System.Console.WriteLine("Auswertung Details gestartet...") System.Console.WriteLine("Auswertung Details gestartet...")
If SendEmail_Tetrapak("Maria.mendez@tetrapak.com; Andrea.Ronceria@tetrapak.com", von, bis, "DE") AndAlso SendEmail_Tetrapak("Maria.mendez@tetrapak.com;Andrea.Ronceria@tetrapak.com", von, bis, "AT") Then 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 ...") 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)

137
UID/usrctlProcedures.Designer.vb generated
View File

@@ -108,14 +108,21 @@ Partial Class usrctlProcedures
Me.Button52 = New System.Windows.Forms.Button() Me.Button52 = New System.Windows.Forms.Button()
Me.TabPage8 = New System.Windows.Forms.TabPage() Me.TabPage8 = New System.Windows.Forms.TabPage()
Me.btnImportTrStat = New System.Windows.Forms.Button() Me.btnImportTrStat = New System.Windows.Forms.Button()
Me.TabPage9 = New System.Windows.Forms.TabPage()
Me.btnT1Data = New System.Windows.Forms.Button() Me.btnT1Data = New System.Windows.Forms.Button()
Me.TabPage10 = New System.Windows.Forms.TabPage() Me.TabPage10 = New System.Windows.Forms.TabPage()
Me.btnDHF_UNISPEDtoVERAEZA_File = New System.Windows.Forms.Button()
Me.btnDHFtoVERAEZA_File = New System.Windows.Forms.Button()
Me.btnTCtoVERAEZA_File = New System.Windows.Forms.Button()
Me.btnDYtoVERAEZA_File = New System.Windows.Forms.Button()
Me.btnDHFUNItoVERAEZA = New System.Windows.Forms.Button()
Me.txtListDHFMrn = New System.Windows.Forms.TextBox()
Me.btnDHFtoVERAEZA = New System.Windows.Forms.Button()
Me.txtListTCMrn = New System.Windows.Forms.TextBox() Me.txtListTCMrn = New System.Windows.Forms.TextBox()
Me.btnTCtoVERAEZA = New System.Windows.Forms.Button() Me.btnTCtoVERAEZA = New System.Windows.Forms.Button()
Me.btnCBAM_ATEZ = New System.Windows.Forms.Button() Me.btnCBAM_ATEZ = New System.Windows.Forms.Button()
Me.txtListDYMrn = New System.Windows.Forms.TextBox() Me.txtListDYMrn = New System.Windows.Forms.TextBox()
Me.btnDYtoVERAEZA = New System.Windows.Forms.Button() Me.btnDYtoVERAEZA = New System.Windows.Forms.Button()
Me.TabPage9 = New System.Windows.Forms.TabPage()
Me.Button18 = New System.Windows.Forms.Button() Me.Button18 = New System.Windows.Forms.Button()
Me.TextBox1 = New System.Windows.Forms.TextBox() Me.TextBox1 = New System.Windows.Forms.TextBox()
Me.lblAnzahl = New System.Windows.Forms.Label() Me.lblAnzahl = New System.Windows.Forms.Label()
@@ -169,9 +176,7 @@ Partial Class usrctlProcedures
Me.Button99 = New System.Windows.Forms.Button() Me.Button99 = New System.Windows.Forms.Button()
Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.txtListDHFMrn = New System.Windows.Forms.TextBox() Me.cbxCD_Overwrite = New System.Windows.Forms.CheckBox()
Me.btnDHFtoVERAEZA = New System.Windows.Forms.Button()
Me.btnDHFUNItoVERAEZA = New System.Windows.Forms.Button()
Me.tbTRStat.SuspendLayout() Me.tbTRStat.SuspendLayout()
Me.TabPage3.SuspendLayout() Me.TabPage3.SuspendLayout()
Me.TabPage1.SuspendLayout() Me.TabPage1.SuspendLayout()
@@ -1053,6 +1058,11 @@ Partial Class usrctlProcedures
' '
'TabPage10 'TabPage10
' '
Me.TabPage10.Controls.Add(Me.cbxCD_Overwrite)
Me.TabPage10.Controls.Add(Me.btnDHF_UNISPEDtoVERAEZA_File)
Me.TabPage10.Controls.Add(Me.btnDHFtoVERAEZA_File)
Me.TabPage10.Controls.Add(Me.btnTCtoVERAEZA_File)
Me.TabPage10.Controls.Add(Me.btnDYtoVERAEZA_File)
Me.TabPage10.Controls.Add(Me.btnDHFUNItoVERAEZA) Me.TabPage10.Controls.Add(Me.btnDHFUNItoVERAEZA)
Me.TabPage10.Controls.Add(Me.txtListDHFMrn) Me.TabPage10.Controls.Add(Me.txtListDHFMrn)
Me.TabPage10.Controls.Add(Me.btnDHFtoVERAEZA) Me.TabPage10.Controls.Add(Me.btnDHFtoVERAEZA)
@@ -1069,29 +1079,92 @@ Partial Class usrctlProcedures
Me.TabPage10.Text = "TabPageDY" Me.TabPage10.Text = "TabPageDY"
Me.TabPage10.UseVisualStyleBackColor = True Me.TabPage10.UseVisualStyleBackColor = True
' '
'btnDHF_UNISPEDtoVERAEZA_File
'
Me.btnDHF_UNISPEDtoVERAEZA_File.Location = New System.Drawing.Point(448, 225)
Me.btnDHF_UNISPEDtoVERAEZA_File.Name = "btnDHF_UNISPEDtoVERAEZA_File"
Me.btnDHF_UNISPEDtoVERAEZA_File.Size = New System.Drawing.Size(63, 23)
Me.btnDHF_UNISPEDtoVERAEZA_File.TabIndex = 49
Me.btnDHF_UNISPEDtoVERAEZA_File.Text = "(FILE...)"
Me.btnDHF_UNISPEDtoVERAEZA_File.UseVisualStyleBackColor = True
'
'btnDHFtoVERAEZA_File
'
Me.btnDHFtoVERAEZA_File.Location = New System.Drawing.Point(448, 161)
Me.btnDHFtoVERAEZA_File.Name = "btnDHFtoVERAEZA_File"
Me.btnDHFtoVERAEZA_File.Size = New System.Drawing.Size(63, 23)
Me.btnDHFtoVERAEZA_File.TabIndex = 48
Me.btnDHFtoVERAEZA_File.Text = "(FILE...)"
Me.btnDHFtoVERAEZA_File.UseVisualStyleBackColor = True
'
'btnTCtoVERAEZA_File
'
Me.btnTCtoVERAEZA_File.Location = New System.Drawing.Point(279, 161)
Me.btnTCtoVERAEZA_File.Name = "btnTCtoVERAEZA_File"
Me.btnTCtoVERAEZA_File.Size = New System.Drawing.Size(63, 23)
Me.btnTCtoVERAEZA_File.TabIndex = 47
Me.btnTCtoVERAEZA_File.Text = "(FILE...)"
Me.btnTCtoVERAEZA_File.UseVisualStyleBackColor = True
'
'btnDYtoVERAEZA_File
'
Me.btnDYtoVERAEZA_File.Location = New System.Drawing.Point(115, 161)
Me.btnDYtoVERAEZA_File.Name = "btnDYtoVERAEZA_File"
Me.btnDYtoVERAEZA_File.Size = New System.Drawing.Size(63, 23)
Me.btnDYtoVERAEZA_File.TabIndex = 46
Me.btnDYtoVERAEZA_File.Text = "(FILE...)"
Me.btnDYtoVERAEZA_File.UseVisualStyleBackColor = True
'
'btnDHFUNItoVERAEZA
'
Me.btnDHFUNItoVERAEZA.Location = New System.Drawing.Point(348, 225)
Me.btnDHFUNItoVERAEZA.Name = "btnDHFUNItoVERAEZA"
Me.btnDHFUNItoVERAEZA.Size = New System.Drawing.Size(163, 58)
Me.btnDHFUNItoVERAEZA.TabIndex = 45
Me.btnDHFUNItoVERAEZA.Text = "DHF UNISPED ->VERAG ZA"
Me.btnDHFUNItoVERAEZA.UseVisualStyleBackColor = True
'
'txtListDHFMrn
'
Me.txtListDHFMrn.Location = New System.Drawing.Point(348, 14)
Me.txtListDHFMrn.Multiline = True
Me.txtListDHFMrn.Name = "txtListDHFMrn"
Me.txtListDHFMrn.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
Me.txtListDHFMrn.Size = New System.Drawing.Size(163, 133)
Me.txtListDHFMrn.TabIndex = 44
'
'btnDHFtoVERAEZA
'
Me.btnDHFtoVERAEZA.Location = New System.Drawing.Point(348, 161)
Me.btnDHFtoVERAEZA.Name = "btnDHFtoVERAEZA"
Me.btnDHFtoVERAEZA.Size = New System.Drawing.Size(163, 73)
Me.btnDHFtoVERAEZA.TabIndex = 43
Me.btnDHFtoVERAEZA.Text = "DHF VERAG->VERAG ZA"
Me.btnDHFtoVERAEZA.UseVisualStyleBackColor = True
'
'txtListTCMrn 'txtListTCMrn
' '
Me.txtListTCMrn.Location = New System.Drawing.Point(197, 14) Me.txtListTCMrn.Location = New System.Drawing.Point(197, 14)
Me.txtListTCMrn.Multiline = True Me.txtListTCMrn.Multiline = True
Me.txtListTCMrn.Name = "txtListTCMrn" Me.txtListTCMrn.Name = "txtListTCMrn"
Me.txtListTCMrn.ScrollBars = System.Windows.Forms.ScrollBars.Vertical Me.txtListTCMrn.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
Me.txtListTCMrn.Size = New System.Drawing.Size(145, 155) Me.txtListTCMrn.Size = New System.Drawing.Size(145, 133)
Me.txtListTCMrn.TabIndex = 42 Me.txtListTCMrn.TabIndex = 42
' '
'btnTCtoVERAEZA 'btnTCtoVERAEZA
' '
Me.btnTCtoVERAEZA.Location = New System.Drawing.Point(197, 175) Me.btnTCtoVERAEZA.Location = New System.Drawing.Point(197, 161)
Me.btnTCtoVERAEZA.Name = "btnTCtoVERAEZA" Me.btnTCtoVERAEZA.Name = "btnTCtoVERAEZA"
Me.btnTCtoVERAEZA.Size = New System.Drawing.Size(145, 49) Me.btnTCtoVERAEZA.Size = New System.Drawing.Size(145, 73)
Me.btnTCtoVERAEZA.TabIndex = 41 Me.btnTCtoVERAEZA.TabIndex = 41
Me.btnTCtoVERAEZA.Text = "TELOTEC->VERAG ZA" Me.btnTCtoVERAEZA.Text = "TELOTEC->VERAG ZA"
Me.btnTCtoVERAEZA.UseVisualStyleBackColor = True Me.btnTCtoVERAEZA.UseVisualStyleBackColor = True
' '
'btnCBAM_ATEZ 'btnCBAM_ATEZ
' '
Me.btnCBAM_ATEZ.Location = New System.Drawing.Point(133, 239) Me.btnCBAM_ATEZ.Location = New System.Drawing.Point(33, 249)
Me.btnCBAM_ATEZ.Name = "btnCBAM_ATEZ" Me.btnCBAM_ATEZ.Name = "btnCBAM_ATEZ"
Me.btnCBAM_ATEZ.Size = New System.Drawing.Size(145, 49) Me.btnCBAM_ATEZ.Size = New System.Drawing.Size(309, 25)
Me.btnCBAM_ATEZ.TabIndex = 40 Me.btnCBAM_ATEZ.TabIndex = 40
Me.btnCBAM_ATEZ.Text = "Überschreibe CBAM von ATEZ" Me.btnCBAM_ATEZ.Text = "Überschreibe CBAM von ATEZ"
Me.btnCBAM_ATEZ.UseVisualStyleBackColor = True Me.btnCBAM_ATEZ.UseVisualStyleBackColor = True
@@ -1102,14 +1175,14 @@ Partial Class usrctlProcedures
Me.txtListDYMrn.Multiline = True Me.txtListDYMrn.Multiline = True
Me.txtListDYMrn.Name = "txtListDYMrn" Me.txtListDYMrn.Name = "txtListDYMrn"
Me.txtListDYMrn.ScrollBars = System.Windows.Forms.ScrollBars.Vertical Me.txtListDYMrn.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
Me.txtListDYMrn.Size = New System.Drawing.Size(145, 155) Me.txtListDYMrn.Size = New System.Drawing.Size(145, 133)
Me.txtListDYMrn.TabIndex = 39 Me.txtListDYMrn.TabIndex = 39
' '
'btnDYtoVERAEZA 'btnDYtoVERAEZA
' '
Me.btnDYtoVERAEZA.Location = New System.Drawing.Point(33, 175) Me.btnDYtoVERAEZA.Location = New System.Drawing.Point(33, 161)
Me.btnDYtoVERAEZA.Name = "btnDYtoVERAEZA" Me.btnDYtoVERAEZA.Name = "btnDYtoVERAEZA"
Me.btnDYtoVERAEZA.Size = New System.Drawing.Size(145, 49) Me.btnDYtoVERAEZA.Size = New System.Drawing.Size(145, 73)
Me.btnDYtoVERAEZA.TabIndex = 36 Me.btnDYtoVERAEZA.TabIndex = 36
Me.btnDYtoVERAEZA.Text = "DY->VERAG ZA" Me.btnDYtoVERAEZA.Text = "DY->VERAG ZA"
Me.btnDYtoVERAEZA.UseVisualStyleBackColor = True Me.btnDYtoVERAEZA.UseVisualStyleBackColor = True
@@ -1593,32 +1666,17 @@ Partial Class usrctlProcedures
Me.DataGridViewTextBoxColumn2.HeaderText = "anz" Me.DataGridViewTextBoxColumn2.HeaderText = "anz"
Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2" Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
' '
'txtListDHFMrn 'cbxCD_Overwrite
' '
Me.txtListDHFMrn.Location = New System.Drawing.Point(348, 14) Me.cbxCD_Overwrite.AutoSize = True
Me.txtListDHFMrn.Multiline = True Me.cbxCD_Overwrite.Checked = True
Me.txtListDHFMrn.Name = "txtListDHFMrn" Me.cbxCD_Overwrite.CheckState = System.Windows.Forms.CheckState.Checked
Me.txtListDHFMrn.ScrollBars = System.Windows.Forms.ScrollBars.Vertical Me.cbxCD_Overwrite.Location = New System.Drawing.Point(517, 16)
Me.txtListDHFMrn.Size = New System.Drawing.Size(163, 155) Me.cbxCD_Overwrite.Name = "cbxCD_Overwrite"
Me.txtListDHFMrn.TabIndex = 44 Me.cbxCD_Overwrite.Size = New System.Drawing.Size(69, 17)
' Me.cbxCD_Overwrite.TabIndex = 50
'btnDHFtoVERAEZA Me.cbxCD_Overwrite.Text = "overwrite"
' Me.cbxCD_Overwrite.UseVisualStyleBackColor = True
Me.btnDHFtoVERAEZA.Location = New System.Drawing.Point(348, 175)
Me.btnDHFtoVERAEZA.Name = "btnDHFtoVERAEZA"
Me.btnDHFtoVERAEZA.Size = New System.Drawing.Size(163, 49)
Me.btnDHFtoVERAEZA.TabIndex = 43
Me.btnDHFtoVERAEZA.Text = "DHF VERAG->VERAG ZA"
Me.btnDHFtoVERAEZA.UseVisualStyleBackColor = True
'
'btnDHFUNItoVERAEZA
'
Me.btnDHFUNItoVERAEZA.Location = New System.Drawing.Point(348, 230)
Me.btnDHFUNItoVERAEZA.Name = "btnDHFUNItoVERAEZA"
Me.btnDHFUNItoVERAEZA.Size = New System.Drawing.Size(163, 49)
Me.btnDHFUNItoVERAEZA.TabIndex = 45
Me.btnDHFUNItoVERAEZA.Text = "DHF UNISPED ->VERAG ZA"
Me.btnDHFUNItoVERAEZA.UseVisualStyleBackColor = True
' '
'usrctlProcedures 'usrctlProcedures
' '
@@ -1854,4 +1912,9 @@ Partial Class usrctlProcedures
Friend WithEvents btnDHFUNItoVERAEZA As Button Friend WithEvents btnDHFUNItoVERAEZA As Button
Friend WithEvents txtListDHFMrn As TextBox Friend WithEvents txtListDHFMrn As TextBox
Friend WithEvents btnDHFtoVERAEZA As Button Friend WithEvents btnDHFtoVERAEZA As Button
Friend WithEvents btnDYtoVERAEZA_File As Button
Friend WithEvents btnDHF_UNISPEDtoVERAEZA_File As Button
Friend WithEvents btnDHFtoVERAEZA_File As Button
Friend WithEvents btnTCtoVERAEZA_File As Button
Friend WithEvents cbxCD_Overwrite As CheckBox
End Class End Class

6
UID/usrctlProcedures.resx
View File

@@ -123,10 +123,4 @@
<metadata name="Column2.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089"> <metadata name="Column2.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value> <value>True</value>
</metadata> </metadata>
<metadata name="Column1.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="Column2.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
</root> </root>

109
UID/usrctlProcedures.vb
View File

@@ -4535,7 +4535,7 @@ OPTION (MAXRECURSION 1000);", "AVISO") '
End Sub End Sub
Private Sub btnDYtoVERAEZA_Click(sender As Object, e As EventArgs) Handles btnDYtoVERAEZA.Click Private Sub btnDYtoVERAEZA_Click(sender As Object, e As EventArgs) Handles btnDYtoVERAEZA.Click
' MsgBox(VERAG_PROG_ALLGEMEIN.cGreendeal_CBAM_Trn.BuildCBAMPatternWhereClause("Warentarifnummer"))
If txtListDYMrn Is Nothing OrElse String.IsNullOrWhiteSpace(txtListDYMrn.Text) Then Exit Sub If txtListDYMrn Is Nothing OrElse String.IsNullOrWhiteSpace(txtListDYMrn.Text) Then Exit Sub
' Trennzeichen definieren ' Trennzeichen definieren
@@ -4550,7 +4550,7 @@ OPTION (MAXRECURSION 1000);", "AVISO") '
Dim value As String = entry.Trim() Dim value As String = entry.Trim()
If value.Length = 18 Then If value.Length = 18 Then
WRK.ImportDakosyEZA(value) WRK.ImportDakosyEZA(value, cbxCD_Overwrite.Checked)
End If End If
cnt += 1 cnt += 1
btnDYtoVERAEZA.Text = "DY->VERAG ZA" & vbNewLine & cnt & "/" & entries.Count btnDYtoVERAEZA.Text = "DY->VERAG ZA" & vbNewLine & cnt & "/" & entries.Count
@@ -4587,7 +4587,7 @@ OPTION (MAXRECURSION 1000);", "AVISO") '
Dim value As String = entry.Trim() Dim value As String = entry.Trim()
If value.Length = 18 Then If value.Length = 18 Then
WRK.ImportTelotec(value) WRK.ImportTelotec(value, cbxCD_Overwrite.Checked)
End If End If
cnt += 1 cnt += 1
btnTCtoVERAEZA.Text = "TELOTEC->VERAG ZA" & vbNewLine & cnt & "/" & entries.Count btnTCtoVERAEZA.Text = "TELOTEC->VERAG ZA" & vbNewLine & cnt & "/" & entries.Count
@@ -4610,9 +4610,9 @@ OPTION (MAXRECURSION 1000);", "AVISO") '
Dim value As String = entry.Trim() Dim value As String = entry.Trim()
If value.Length = 18 Then If value.Length >= 18 And value.Length < 30 Then
If sender Is btnDHFtoVERAEZA Then WRK.ImportEZOLLByLRN(value, "EZOLL") If sender Is btnDHFtoVERAEZA Then WRK.ImportEZOLLByLRN(value, "EZOLL", cbxCD_Overwrite.Checked)
If sender Is btnDHFUNItoVERAEZA Then WRK.ImportEZOLLByLRN(value, "EZOLL_UNISPED") If sender Is btnDHFUNItoVERAEZA Then WRK.ImportEZOLLByLRN(value, "EZOLL_UNISPED", cbxCD_Overwrite.Checked)
End If End If
cnt += 1 cnt += 1
If sender Is btnDHFtoVERAEZA Then sender.Text = "DHF VERAG ->VERAG ZA" & vbNewLine & cnt & "/" & entries.Count If sender Is btnDHFtoVERAEZA Then sender.Text = "DHF VERAG ->VERAG ZA" & vbNewLine & cnt & "/" & entries.Count
@@ -4622,6 +4622,103 @@ OPTION (MAXRECURSION 1000);", "AVISO") '
Next Next
End Sub End Sub
Private Sub Button55_Click(sender As Object, e As EventArgs) Handles btnDYtoVERAEZA_File.Click
Dim ofd As New OpenFileDialog With {
.Title = "MRN-Datei auswählen",
.Filter = "Textdateien (*.txt)|*.txt|Alle Dateien (*.*)|*.*",
.Multiselect = False
}
If ofd.ShowDialog() <> DialogResult.OK Then Exit Sub
If Not System.IO.File.Exists(ofd.FileName) Then Exit Sub
Dim lines = System.IO.File.ReadAllLines(ofd.FileName)
Dim WRK As New DAKOSY_Worker.cImporter_DakosyToVERAG
Dim cnt As Integer = 0
Dim total As Integer = lines.Length
For Each line As String In lines
Dim value As String = line.Trim()
' MRN-Validierung (klassisch 18 Zeichen)
If value.Length >= 18 And value.Length < 30 Then
WRK.ImportDakosyEZA(value, cbxCD_Overwrite.Checked)
End If
cnt += 1
btnDYtoVERAEZA.Text = "DY->VERAG ZA" & vbNewLine & cnt & "/" & total
Me.Refresh()
Application.DoEvents()
Next
End Sub
Private Sub Button55_Click_1(sender As Object, e As EventArgs) Handles btnTCtoVERAEZA_File.Click
Dim ofd As New OpenFileDialog With {
.Title = "MRN-Datei auswählen",
.Filter = "Textdateien (*.txt)|*.txt|Alle Dateien (*.*)|*.*",
.Multiselect = False
}
If ofd.ShowDialog() <> DialogResult.OK Then Exit Sub
If Not System.IO.File.Exists(ofd.FileName) Then Exit Sub
Dim lines = System.IO.File.ReadAllLines(ofd.FileName)
Dim WRK As New DAKOSY_Worker.cImporter_TelotecToVERAG
Dim cnt As Integer = 0
Dim total As Integer = lines.Length
For Each line As String In lines
Dim value As String = line.Trim()
' MRN-Validierung (klassisch 18 Zeichen)
If value.Length >= 18 And value.Length < 30 Then
WRK.ImportTelotec(value, cbxCD_Overwrite.Checked)
End If
cnt += 1
btnTCtoVERAEZA.Text = "TC->VERAG ZA" & vbNewLine & cnt & "/" & total
Me.Refresh()
Application.DoEvents()
Next
End Sub
Private Sub Button56_Click(sender As Object, e As EventArgs) Handles btnDHFtoVERAEZA_File.Click, btnDHF_UNISPEDtoVERAEZA_File.Click
Dim ofd As New OpenFileDialog With {
.Title = "MRN-Datei auswählen",
.Filter = "Textdateien (*.txt)|*.txt|Alle Dateien (*.*)|*.*",
.Multiselect = False
}
If ofd.ShowDialog() <> DialogResult.OK Then Exit Sub
If Not System.IO.File.Exists(ofd.FileName) Then Exit Sub
Dim lines = System.IO.File.ReadAllLines(ofd.FileName)
Dim WRK As New DAKOSY_Worker.cImporter_DHFToVERAG
Dim cnt As Integer = 0
Dim total As Integer = lines.Length
For Each line As String In lines
Dim value As String = line.Trim()
' MRN-Validierung (klassisch 18 Zeichen)
If value.Length >= 18 And value.Length < 30 Then
If sender Is btnDHFtoVERAEZA_File Then WRK.ImportEZOLLByLRN(value, "EZOLL", cbxCD_Overwrite.Checked)
If sender Is btnDHF_UNISPEDtoVERAEZA_File Then WRK.ImportEZOLLByLRN(value, "EZOLL_UNISPED", cbxCD_Overwrite.Checked)
End If
cnt += 1
If sender Is btnDHFtoVERAEZA_File Then btnDHFtoVERAEZA.Text = "DHF->VERAG ZA" & vbNewLine & cnt & "/" & total
If sender Is btnDHF_UNISPEDtoVERAEZA_File Then btnDHFUNItoVERAEZA.Text = "DHF->VERAG ZA" & vbNewLine & cnt & "/" & total
Me.Refresh()
Application.DoEvents()
Next
End Sub
'Private Sub Button26_Click(sender As Object, e As EventArgs) 'Private Sub Button26_Click(sender As Object, e As EventArgs)

8
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,9 +10338,10 @@ 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) IMP.ImportDakosyEZA(EZA_TMP, False, True)
'================================== '==================================

3
initATLASAufschubkonten/frmStartOptions.Designer.vb generated
View File

@@ -369,6 +369,7 @@ Partial Class frmStartOptions
Me.Label56 = New System.Windows.Forms.Label() Me.Label56 = New System.Windows.Forms.Label()
Me.Label57 = New System.Windows.Forms.Label() Me.Label57 = New System.Windows.Forms.Label()
Me.Label58 = New System.Windows.Forms.Label() Me.Label58 = New System.Windows.Forms.Label()
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()
@@ -1164,6 +1165,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)
@@ -5351,4 +5353,5 @@ Partial Class frmStartOptions
Friend WithEvents Label56 As Label Friend WithEvents Label56 As Label
Friend WithEvents Label58 As Label Friend WithEvents Label58 As Label
Friend WithEvents Label57 As Label Friend WithEvents Label57 As Label
Friend WithEvents Button29 As Button
End Class End Class

9
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
'========================================== '==========================================
@@ -7224,4 +7225,10 @@ 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)
Dim ZA = VERAG_PROG_ALLGEMEIN.cVERAG_CustomsDeclarations.loadByMRN("26DE7701ACA0024DR0", 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
'================================== '==================================