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

DY_GenerellesErgebnis-> NCTS

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-12-18 15:29:25 +01:00
parent 4b4a4a3286
commit 17d24140cb
13 changed files with 1911 additions and 168 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -1,5 +1,6 @@
Imports System.Data.SqlClient Imports System.Data.SqlClient
Imports System.Reflection Imports System.Reflection
Imports VERAG_PROG_ALLGEMEIN.TESTJSON
Public Class cDakosyEZA Public Class cDakosyEZA
@@ -106,6 +107,7 @@ Public Class cDakosyEZA
Property eza_UNTERLAGEN As New List(Of cDakosy_EZA_Unterlagen) Property eza_UNTERLAGEN As New List(Of cDakosy_EZA_Unterlagen)
Property eza_WARENPOS As New List(Of cDakosy_EZA_Warenposition) Property eza_WARENPOS As New List(Of cDakosy_EZA_Warenposition)
@@ -149,52 +151,49 @@ Public Class cDakosyEZA
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_LetzteBearbeitung_SB", eza_LetzteBearbeitung_SB)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_LetzteBearbeitung_SB", eza_LetzteBearbeitung_SB))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_firma", eza_firma)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_firma", eza_firma))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_niederlassung", eza_niederlassung)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_niederlassung", eza_niederlassung))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_Trans_Partner", eza_Trans_Partner))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_Trans_Partner", eza_Trans_Partner)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_Trans_Div1", eza_Trans_Div1))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_Trans_Div1", eza_Trans_Div1)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_Trans_Div2", eza_Trans_Div2))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_Trans_Div2", eza_Trans_Div2)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_Trans_Div3", eza_Trans_Div3))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_Trans_Div3", eza_Trans_Div3)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_Trans_Referenz", eza_Trans_Referenz))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_Trans_Referenz", eza_Trans_Referenz)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_Trans_DatumZeit", eza_Trans_DatumZeit))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_Trans_DatumZeit", eza_Trans_DatumZeit)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_Trans_Version", eza_Trans_Version))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_Trans_Version", eza_Trans_Version)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_NachrichtenSenderTIN", eza_NachrichtenSenderTIN))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_NachrichtenSenderTIN", eza_NachrichtenSenderTIN)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_NachrichtenSenderNLNR", eza_NachrichtenSenderNLNR))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_NachrichtenSenderNLNR", eza_NachrichtenSenderNLNR)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_NachrichtenempfaengerDST", eza_NachrichtenempfaengerDST))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_NachrichtenempfaengerDST", eza_NachrichtenempfaengerDST)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_ObjectName", eza_ObjectName))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_ObjectAlias", eza_ObjectAlias))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_ObjectName", eza_ObjectName)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_BezugsnummerVorblendung", eza_BezugsnummerVorblendung))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_ObjectAlias", eza_ObjectAlias)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_Bearbeiter", eza_Bearbeiter))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_AnmeldungArt", eza_AnmeldungArt))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_BezugsnummerVorblendung", eza_BezugsnummerVorblendung)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_CompliancePruefung", eza_CompliancePruefung))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_Bearbeiter", eza_Bearbeiter)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_AnfBemerkungStatusanzeige", eza_AnfBemerkungStatusanzeige))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_AnmeldungArt", eza_AnmeldungArt)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_AdressierteZollstelle", eza_AdressierteZollstelle))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_CompliancePruefung", eza_CompliancePruefung)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_AnmelderistEmpfaenger", eza_AnmelderistEmpfaenger))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_AnfBemerkungStatusanzeige", eza_AnfBemerkungStatusanzeige)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_VertretungsVerhaeltnisCode", eza_VertretungsVerhaeltnisCode))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_AdressierteZollstelle", eza_AdressierteZollstelle)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_Vorsteuerabzug", eza_Vorsteuerabzug))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_AnmelderistEmpfaenger", eza_AnmelderistEmpfaenger)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_AnmeldenderBearbeiterName", eza_AnmeldenderBearbeiterName))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_VertretungsVerhaeltnisCode", eza_VertretungsVerhaeltnisCode)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_AnmeldenderBearbeiterTel", eza_AnmeldenderBearbeiterTel))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_Vorsteuerabzug", eza_Vorsteuerabzug)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_AnmeldenderBearbeiterStellung", eza_AnmeldenderBearbeiterStellung))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_AnmeldenderBearbeiterName", eza_AnmeldenderBearbeiterName))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_AnmeldenderBearbeiterTel", eza_AnmeldenderBearbeiterTel))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_AnmeldenderBearbeiterStellung", eza_AnmeldenderBearbeiterStellung))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_AnmeldenderBearbeiterEMail", eza_AnmeldenderBearbeiterEMail)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_AnmeldenderBearbeiterEMail", eza_AnmeldenderBearbeiterEMail))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_FiskalvertretungKz", eza_FiskalvertretungKz)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_FiskalvertretungKz", eza_FiskalvertretungKz))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_Ausstellungsort", eza_Ausstellungsort)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_Ausstellungsort", eza_Ausstellungsort))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_ZollrechtlicherStatus", eza_ZollrechtlicherStatus)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_ZollrechtlicherStatus", eza_ZollrechtlicherStatus))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_GesamtRohmasse", eza_GesamtRohmasse)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_GesamtRohmasse", eza_GesamtRohmasse))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_VerfahrenBeantragtCode", eza_VerfahrenBeantragtCode)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_VerfahrenBeantragtCode", eza_VerfahrenBeantragtCode))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_VerkehrszweigInland", eza_VerkehrszweigInland)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_VerkehrszweigInland", eza_VerkehrszweigInland))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_VerkehrszweigGrenze", eza_VerkehrszweigGrenze)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_VerkehrszweigGrenze", eza_VerkehrszweigGrenze))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_VersendungsLandCode", eza_VersendungsLandCode)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_VersendungsLandCode", eza_VersendungsLandCode))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_Bestimmungsbundesland", eza_Bestimmungsbundesland)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_Bestimmungsbundesland", eza_Bestimmungsbundesland))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_Bestimmungsland", eza_Bestimmungsland)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_Bestimmungsland", eza_Bestimmungsland))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_KennzeichenNameBefoerderungsmittelAnkunft", eza_KennzeichenNameBefoerderungsmittelAnkunft)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_KennzeichenNameBefoerderungsmittelAnkunft", eza_KennzeichenNameBefoerderungsmittelAnkunft))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_BeförderungsmittelGrenzeStaatszugehörigkeitCode", eza_BeförderungsmittelGrenzeStaatszugehörigkeitCode)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_BeförderungsmittelGrenzeStaatszugehörigkeitCode", eza_BeförderungsmittelGrenzeStaatszugehörigkeitCode))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_BeförderungsmittelGrenzeArt", eza_BeförderungsmittelGrenzeArt)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_BeförderungsmittelGrenzeArt", eza_BeförderungsmittelGrenzeArt))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_BeförderungsmittelGrenze", eza_BeförderungsmittelGrenze)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_BeförderungsmittelGrenze", eza_BeförderungsmittelGrenze))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_LieferbedingungCode", eza_LieferbedingungCode)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_LieferbedingungCode", eza_LieferbedingungCode))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_LieferbedingungText", eza_LieferbedingungText)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_LieferbedingungText", eza_LieferbedingungText))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_LieferbedingungSchluessel", eza_LieferbedingungSchluessel)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_LieferbedingungSchluessel", eza_LieferbedingungSchluessel))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_LieferbedingungOrt", eza_LieferbedingungOrt)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_LieferbedingungOrt", eza_LieferbedingungOrt))
@@ -203,36 +202,36 @@ Public Class cDakosyEZA
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_ArtGeschaeftCode", eza_ArtGeschaeftCode)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_ArtGeschaeftCode", eza_ArtGeschaeftCode))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_Statistikstatus", eza_Statistikstatus)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_Statistikstatus", eza_Statistikstatus))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_Warenort", eza_Warenort)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_Warenort", eza_Warenort))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_Rechnungspreis", eza_Rechnungspreis)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_Rechnungspreis", eza_Rechnungspreis))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_Rechnungswaehrung", eza_Rechnungswaehrung)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_Rechnungswaehrung", eza_Rechnungswaehrung))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_DV1Kz", eza_DV1Kz)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_DV1Kz", eza_DV1Kz))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_DV1Vertretungsverhaeltnis", eza_DV1Vertretungsverhaeltnis)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_DV1Vertretungsverhaeltnis", eza_DV1Vertretungsverhaeltnis))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_DV1FruehereEntscheidungen", eza_DV1FruehereEntscheidungen)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_DV1FruehereEntscheidungen", eza_DV1FruehereEntscheidungen))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_DV1Verbundenheit", eza_DV1Verbundenheit)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_DV1Verbundenheit", eza_DV1Verbundenheit))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_DV1VerbungenheitEinzelheiten", eza_DV1VerbungenheitEinzelheiten)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_DV1VerbungenheitEinzelheiten", eza_DV1VerbungenheitEinzelheiten))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_DV1EinschraenkungenKz", eza_DV1EinschraenkungenKz)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_DV1EinschraenkungenKz", eza_DV1EinschraenkungenKz))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_DV1BedingungenLeistungenKz", eza_DV1BedingungenLeistungenKz)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_DV1BedingungenLeistungenKz", eza_DV1BedingungenLeistungenKz))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_DV1BedingungenLeistungenArt", eza_DV1BedingungenLeistungenArt)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_DV1BedingungenLeistungenArt", eza_DV1BedingungenLeistungenArt))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_DV1LizenzgebuehrenKz", eza_DV1LizenzgebuehrenKz)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_DV1LizenzgebuehrenKz", eza_DV1LizenzgebuehrenKz))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_DV1LizenzgebuehrenUmstand", eza_DV1LizenzgebuehrenUmstand)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_DV1LizenzgebuehrenUmstand", eza_DV1LizenzgebuehrenUmstand))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_DV1SpezielleVereinbarungKz", eza_DV1SpezielleVereinbarungKz)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_DV1SpezielleVereinbarungKz", eza_DV1SpezielleVereinbarungKz))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_DV1SpezielleVereinbarungUmstand", eza_DV1SpezielleVereinbarungUmstand)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_DV1SpezielleVereinbarungUmstand", eza_DV1SpezielleVereinbarungUmstand))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_ZusatzangabenAnmeldung", eza_ZusatzangabenAnmeldung)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_ZusatzangabenAnmeldung", eza_ZusatzangabenAnmeldung))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_KzAutoBestaetigung", eza_KzAutoBestaetigung)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_KzAutoBestaetigung", eza_KzAutoBestaetigung))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_AnschreibungDatum", eza_AnschreibungDatum)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_AnschreibungDatum", eza_AnschreibungDatum))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_Eingangszollstelle", eza_Eingangszollstelle)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_Eingangszollstelle", eza_Eingangszollstelle))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_Zahlungsart", eza_Zahlungsart)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_Zahlungsart", eza_Zahlungsart))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_ContainerNr1", eza_ContainerNr1)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_ContainerNr1", eza_ContainerNr1))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_ContainerNr2", eza_ContainerNr2)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_ContainerNr2", eza_ContainerNr2))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_ContainerNr3", eza_ContainerNr3)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_ContainerNr3", eza_ContainerNr3))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_ContainerNr4", eza_ContainerNr4)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_ContainerNr4", eza_ContainerNr4))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_ContainerNr5", eza_ContainerNr5)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_ContainerNr5", eza_ContainerNr5))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_ContainerNr6", eza_ContainerNr6)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_ContainerNr6", eza_ContainerNr6))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_ContainerNr8", eza_ContainerNr8)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_ContainerNr8", eza_ContainerNr8))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_ContainerNr9", eza_ContainerNr9)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_ContainerNr9", eza_ContainerNr9))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_BeendigungsanteilArtCode", eza_BeendigungsanteilArtCode)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_BeendigungsanteilArtCode", eza_BeendigungsanteilArtCode))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_BewilligungsIDZLAVUV", eza_BewilligungsIDZLAVUV)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_BewilligungsIDZLAVUV", eza_BewilligungsIDZLAVUV))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_BezugsnummerBEAnteilZL", eza_BezugsnummerBEAnteilZL)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_BezugsnummerBEAnteilZL", eza_BezugsnummerBEAnteilZL))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_UstIdAnmelder", eza_UstIdAnmelder)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_UstIdAnmelder", eza_UstIdAnmelder))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_FinanzamtAnmelder", eza_FinanzamtAnmelder)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_FinanzamtAnmelder", eza_FinanzamtAnmelder))
@@ -313,7 +312,7 @@ Public Class cDakosyEZA
End Using End Using
End Using End Using
Catch ex As Exception Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try End Try
Return LOAD Return LOAD
End Function End Function
@@ -356,7 +355,7 @@ Public Class cDakosyEZA
End Using End Using
End Using End Using
Catch ex As Exception Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try End Try
Return Nothing Return Nothing
End Function End Function
@@ -377,7 +376,7 @@ Public Class cDakosyEZA
Return SQL.doSQLVarList(" UPDATE [tblDakosy_EZA] SET eza_Status_KEWILL_Equivalent=@eza_Status_KEWILL_Equivalent,eza_Status=@eza_Status WHERE eza_id=@eza_id ", "FMZOLL", , list) Return SQL.doSQLVarList(" UPDATE [tblDakosy_EZA] SET eza_Status_KEWILL_Equivalent=@eza_Status_KEWILL_Equivalent,eza_Status=@eza_Status WHERE eza_id=@eza_id ", "FMZOLL", , list)
Catch ex As Exception Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try End Try
End If End If
Return "" Return ""
@@ -426,7 +425,7 @@ Public Class cDakosyEZA
End Using End Using
End Using End Using
Catch ex As Exception Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try End Try
Return LOADByAnmID Return LOADByAnmID
End Function End Function
@@ -469,7 +468,7 @@ Public Class cDakosyEZA
End Using End Using
End Using End Using
Catch ex As Exception Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try End Try
Return Nothing Return Nothing
End Function End Function
@@ -487,7 +486,7 @@ Public Class cDakosyEZA
Return SQL.doSQLVarList(" UPDATE [tblDakosy_eza] SET eza_Status_KEWILL_Equivalent=@eza_Status_KEWILL_Equivalent,eza_Status=@eza_Status WHERE eza_Id=@eza_Id ", "FMZOLL", , list) Return SQL.doSQLVarList(" UPDATE [tblDakosy_eza] SET eza_Status_KEWILL_Equivalent=@eza_Status_KEWILL_Equivalent,eza_Status=@eza_Status WHERE eza_Id=@eza_Id ", "FMZOLL", , list)
Catch ex As Exception Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try End Try
End If End If
Return "" Return ""
@@ -508,7 +507,7 @@ Public Class cDakosyEZA
Return (" UPDATE [tblDakosy_EZA] SET " & str & " WHERE eza_id=@eza_id ") Return (" UPDATE [tblDakosy_EZA] SET " & str & " WHERE eza_id=@eza_id ")
Catch ex As Exception Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try End Try
Return "" Return ""
End Function End Function
@@ -529,7 +528,7 @@ Public Class cDakosyEZA
values = values.Substring(0, values.Length - 1) 'wg. ',' values = values.Substring(0, values.Length - 1) 'wg. ','
Return (" INSERT INTO tblDakosy_EZA (" & str & ") VALUES(" & values & ") ") Return (" INSERT INTO tblDakosy_EZA (" & str & ") VALUES(" & values & ") ")
Catch ex As Exception Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try End Try
Return "" Return ""
End Function End Function
@@ -557,7 +556,7 @@ Public Class cDakosyEZA
End Using End Using
End Using End Using
Catch ex As Exception Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try End Try
End Sub End Sub
@@ -585,7 +584,7 @@ Public Class cDakosyEZA
End Using End Using
End Using End Using
Catch ex As Exception Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try End Try
End Sub End Sub
Public Sub LOAD_Aufschub() Public Sub LOAD_Aufschub()
@@ -611,7 +610,7 @@ Public Class cDakosyEZA
End Using End Using
End Using End Using
Catch ex As Exception Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try End Try
End Sub End Sub
Public Sub LOAD_BEAnteilZLAVUV() Public Sub LOAD_BEAnteilZLAVUV()
@@ -637,7 +636,7 @@ Public Class cDakosyEZA
End Using End Using
End Using End Using
Catch ex As Exception Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try End Try
End Sub End Sub
Public Sub LOAD_SumABeendigungsAnteil() Public Sub LOAD_SumABeendigungsAnteil()
@@ -663,7 +662,7 @@ Public Class cDakosyEZA
End Using End Using
End Using End Using
Catch ex As Exception Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try End Try
End Sub End Sub
@@ -672,7 +671,7 @@ Public Class cDakosyEZA
eza_WARENPOS.Clear() eza_WARENPOS.Clear()
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
Using cmd As New SqlCommand("SELECT * FROM tblDakosy_EZA_Warenposition WHERE ezaWP_EzaId=@eza_id ", conn) Using cmd As New SqlCommand("SELECT * FROM tblDakosy_EZA_Warenposition WHERE ezaWP_EzaId=@eza_id ", conn)
cmd.Parameters.AddWithValue("@eza_id", Me.eza_id) cmd.Parameters.AddWithValue("@eza_id", Me.eza_Id)
Dim dr = cmd.ExecuteReader() Dim dr = cmd.ExecuteReader()
While dr.Read While dr.Read
Dim l As New cDakosy_EZA_Warenposition() Dim l As New cDakosy_EZA_Warenposition()
@@ -692,7 +691,7 @@ Public Class cDakosyEZA
End Using End Using
End Using End Using
Catch ex As Exception Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try End Try
End Sub End Sub
@@ -1061,7 +1060,9 @@ Public Class cDakosyEZA
Catch ex As Exception Catch ex As Exception
MsgBox("ERR: " & ex.Message & ex.StackTrace) ' MsgBox("ERR: " & ex.Message & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try End Try
@@ -1083,7 +1084,7 @@ Public Class cDakosyEZA
For Each ADR In DY.eza_ADRESSEN For Each ADR In DY.eza_ADRESSEN
'Verkäufer 'Verkäufer
If ADR.ezaAd_AdressTyp = "CZ" Then If ADR.ezaAd_AdressTyp = "CZ" Then
Dim AD = getAdresseFromEORI(ADR.ezaAd_TeilnehmerEORI, ADR.ezaAd_TeilnehmerNLNR, SQL) Dim AD = getAdresseFromEORI(ADR.ezaAd_TeilnehmerEORI, ADR.ezaAd_TeilnehmerNLNR, SQL, DY.eza_firma)
If AD IsNot Nothing Then If AD IsNot Nothing Then
SPEDITIONSBUCH.AbsenderKundenNr = AD.AdressenNr SPEDITIONSBUCH.AbsenderKundenNr = AD.AdressenNr
SPEDITIONSBUCH.Absender = AD.Ordnungsbegriff SPEDITIONSBUCH.Absender = AD.Ordnungsbegriff
@@ -1105,14 +1106,14 @@ Public Class cDakosyEZA
'Empfänger 'Empfänger
If ADR.ezaAd_AdressTyp = "CN" Then If ADR.ezaAd_AdressTyp = "CN" Then
Dim AD = getAdresseFromEORI(ADR.ezaAd_TeilnehmerEORI, ADR.ezaAd_TeilnehmerNLNR, SQL) Dim AD = getAdresseFromEORI(ADR.ezaAd_TeilnehmerEORI, ADR.ezaAd_TeilnehmerNLNR, SQL, DY.eza_firma)
If AD IsNot Nothing Then If AD IsNot Nothing Then
SPEDITIONSBUCH.EmpfängerKundenNr = AD.AdressenNr SPEDITIONSBUCH.EmpfängerKundenNr = AD.AdressenNr
SPEDITIONSBUCH.Empfänger = AD.Ordnungsbegriff 'Oranier Küchentechnik GmbH; Haiger SPEDITIONSBUCH.Empfänger = AD.Ordnungsbegriff 'Oranier Küchentechnik GmbH; Haiger
End If End If
If If(SPEDITIONSBUCH.Empfänger, "").Trim = String.Empty Then If If(SPEDITIONSBUCH.Empfänger, "").Trim = String.Empty Then
SPEDITIONSBUCH.Empfänger = (If(ADR.ezaAd_NameFirma1, "") & " " & If(ADR.ezaAd_NameFirma1, "") & " " & If(ADR.ezaAd_NameFirma1, "")).trim SPEDITIONSBUCH.Empfänger = (If(ADR.ezaAd_NameFirma1, "") & " " & If(ADR.ezaAd_NameFirma1, "") & " " & If(ADR.ezaAd_NameFirma1, "")).trim
SPEDITIONSBUCH.Empfänger &= ", " & If(ADR.ezaAd_LandCode, "") SPEDITIONSBUCH.Empfänger &= ", " & If(ADR.ezaAd_LandCode, "")
SPEDITIONSBUCH.Empfänger &= " " & If(ADR.ezaAd_PLZ, "") SPEDITIONSBUCH.Empfänger &= " " & If(ADR.ezaAd_PLZ, "")
SPEDITIONSBUCH.Empfänger &= " " & If(ADR.ezaAd_Ort, "") SPEDITIONSBUCH.Empfänger &= " " & If(ADR.ezaAd_Ort, "")
@@ -1150,7 +1151,9 @@ Public Class cDakosyEZA
SPEDITIONSBUCH.Personalnummer = If(IsNumeric(p), p, Nothing) SPEDITIONSBUCH.Personalnummer = If(IsNumeric(p), p, Nothing)
End If End If
Catch ex As Exception Catch ex As Exception
MsgBox("Fehler DAKOSY Personal: " & vbNewLine & ex.Message & vbNewLine & ex.StackTrace) ' MsgBox( vbNewLine & ex.Message & vbNewLine & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "Fehler DAKOSY Personal: " & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try End Try
@@ -1184,7 +1187,8 @@ Public Class cDakosyEZA
Catch ex As Exception Catch ex As Exception
MsgBox("ERR: " & ex.Message & ex.StackTrace) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try End Try
End Sub End Sub
@@ -1208,7 +1212,7 @@ Public Class cDakosyEZA
SPEDITIONSBUCH.DokumentId_AVM = ANM.dy_AVM_dsId SPEDITIONSBUCH.DokumentId_AVM = ANM.dy_AVM_dsId
Catch ex As Exception Catch ex As Exception
MsgBox("ERR: " & ex.Message & ex.StackTrace) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try End Try
@@ -1223,7 +1227,7 @@ Public Class cDakosyEZA
'Absender 'Absender
Dim AD = getAdresseFromEORI(DY.aes_AusfuehrerTeilnehmerEORI, DY.aes_AusfuehrerTeilnehmerNLNR, SQL) Dim AD = getAdresseFromEORI(DY.aes_AusfuehrerTeilnehmerEORI, DY.aes_AusfuehrerTeilnehmerNLNR, SQL, DY.aes_firma)
If AD IsNot Nothing Then If AD IsNot Nothing Then
SPEDITIONSBUCH.AbsenderKundenNr = AD.AdressenNr SPEDITIONSBUCH.AbsenderKundenNr = AD.AdressenNr
SPEDITIONSBUCH.Absender = AD.Ordnungsbegriff 'Oranier Küchentechnik GmbH; Haiger SPEDITIONSBUCH.Absender = AD.Ordnungsbegriff 'Oranier Küchentechnik GmbH; Haiger
@@ -1241,7 +1245,7 @@ Public Class cDakosyEZA
'Empfänger 'Empfänger
AD = Nothing AD = Nothing
AD = getAdresseFromEORI(DY.aes_EmpfaengerTeilnehmerEORI, DY.aes_EmpfaengerTeilnehmerNLNR, SQL) AD = getAdresseFromEORI(DY.aes_EmpfaengerTeilnehmerEORI, DY.aes_EmpfaengerTeilnehmerNLNR, SQL, DY.aes_firma)
If AD IsNot Nothing Then If AD IsNot Nothing Then
SPEDITIONSBUCH.EmpfängerKundenNr = AD.AdressenNr SPEDITIONSBUCH.EmpfängerKundenNr = AD.AdressenNr
SPEDITIONSBUCH.Empfänger = AD.Ordnungsbegriff 'Oranier Küchentechnik GmbH; Haiger SPEDITIONSBUCH.Empfänger = AD.Ordnungsbegriff 'Oranier Küchentechnik GmbH; Haiger
@@ -1249,9 +1253,9 @@ Public Class cDakosyEZA
If If(SPEDITIONSBUCH.Empfänger, "").Trim = String.Empty Then If If(SPEDITIONSBUCH.Empfänger, "").Trim = String.Empty Then
SPEDITIONSBUCH.Empfänger = (If(DY.aes_EmpfaengerTeilnehmerName, "")).Trim SPEDITIONSBUCH.Empfänger = (If(DY.aes_EmpfaengerTeilnehmerName, "")).Trim
SPEDITIONSBUCH.Empfänger &= ", " & If(DY.aes_EmpfaengerTeilnehmerLandCode, "") SPEDITIONSBUCH.Empfänger &= ", " & If(DY.aes_EmpfaengerTeilnehmerLandCode, "")
SPEDITIONSBUCH.Empfänger &= " " & If(DY.aes_EmpfaengerTeilnehmerPLZ, "") SPEDITIONSBUCH.Empfänger &= " " & If(DY.aes_EmpfaengerTeilnehmerPLZ, "")
SPEDITIONSBUCH.Empfänger &= " " & If(DY.aes_EmpfaengerTeilnehmerOrt, "") SPEDITIONSBUCH.Empfänger &= " " & If(DY.aes_EmpfaengerTeilnehmerOrt, "")
SPEDITIONSBUCH.Empfänger = SPEDITIONSBUCH.Empfänger.Trim SPEDITIONSBUCH.Empfänger = SPEDITIONSBUCH.Empfänger.Trim
If SPEDITIONSBUCH.Empfänger.Length > 50 Then If SPEDITIONSBUCH.Empfänger.Length > 50 Then
SPEDITIONSBUCH.Empfänger = SPEDITIONSBUCH.Empfänger.Substring(0, 50) SPEDITIONSBUCH.Empfänger = SPEDITIONSBUCH.Empfänger.Substring(0, 50)
End If End If
@@ -1271,7 +1275,8 @@ Public Class cDakosyEZA
SPEDITIONSBUCH.Personalnummer = If(IsNumeric(p), p, Nothing) SPEDITIONSBUCH.Personalnummer = If(IsNumeric(p), p, Nothing)
End If End If
Catch ex As Exception Catch ex As Exception
MsgBox("Fehler DAKOSY Personal: " & vbNewLine & ex.Message & vbNewLine & ex.StackTrace) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "Fehler DAKOSY Personal: " & ex.StackTrace & vbNewLine, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try End Try
@@ -1306,21 +1311,22 @@ Public Class cDakosyEZA
Catch ex As Exception Catch ex As Exception
MsgBox("ERR: " & ex.Message & ex.StackTrace) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try End Try
End Sub End Sub
Shared Function getWaehr(s As String, SQL As VERAG_PROG_ALLGEMEIN.SQL) As String Shared Function getWaehr(s As String, SQL As VERAG_PROG_ALLGEMEIN.SQL) As String
'Return KDSQL.getValueTxtBySql("SELECT TOP 1 isnull([LandNr],-1) FROM [Länderverzeichnis für die Außenhandelsstatistik] WHERE [Währungscode]='" & s & "'", "FMZOLL") 'Return KDSQL.getValueTxtBySql("SELECT TOP 1 isnull([LandNr],-1) FROM [Länderverzeichnis für die Außenhandelsstatistik] WHERE [Währungscode]='" & s & "'", "FMZOLL")
s = s.replace("TRY", "TRL") ' Türkische Lira s = s.Replace("TRY", "TRL") ' Türkische Lira
Return SQL.getValueTxtBySql("SELECT TOP 1 isnull([Währungsschlüssel],-1) FROM [Währungstabelle] WHERE [Währungscode]='" & s & "'", "FMZOLL") Return SQL.getValueTxtBySql("SELECT TOP 1 isnull([Währungsschlüssel],-1) FROM [Währungstabelle] WHERE [Währungscode]='" & s & "'", "FMZOLL")
End Function End Function
Shared Function getAdresseFromEORI(EORI As String, EORI_NL As String, SQL As VERAG_PROG_ALLGEMEIN.SQL) Shared Function getAdresseFromEORI(EORI As String, EORI_NL As String, SQL As VERAG_PROG_ALLGEMEIN.SQL, Firma As String)
If EORI Is Nothing Then Return Nothing If EORI Is Nothing Then Return Nothing
If If(EORI, "") <> "" Then If If(EORI, "") <> "" Then
Dim kdNrTmp = SQL.getFMZOLLKdNrFromEORI(EORI, EORI_NL) Dim kdNrTmp = SQL.getFMZOLLKdNrFromEORI(EORI, EORI_NL, Firma)
If IsNumeric(kdNrTmp) Then If IsNumeric(kdNrTmp) Then
Dim ADRESSE As New VERAG_PROG_ALLGEMEIN.cAdressen(kdNrTmp) Dim ADRESSE As New VERAG_PROG_ALLGEMEIN.cAdressen(kdNrTmp)
Return ADRESSE Return ADRESSE
@@ -1336,12 +1342,6 @@ Public Class cDakosyEZA
End Class End Class
Public Class cDakosy_EZA_Adressen Public Class cDakosy_EZA_Adressen
@@ -1425,7 +1425,9 @@ Public Class cDakosy_EZA_Adressen
values = values.Substring(0, values.Length - 1) 'wg. ',' values = values.Substring(0, values.Length - 1) 'wg. ','
Return (" INSERT INTO tblDakosy_EZA_Adressen (" & str & ") VALUES(" & values & ") ") Return (" INSERT INTO tblDakosy_EZA_Adressen (" & str & ") VALUES(" & values & ") ")
Catch ex As Exception Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) ' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine , System.Reflection.MethodInfo.GetCurrentMethod.Name)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try End Try
Return "" Return ""
End Function End Function
@@ -1511,7 +1513,9 @@ Public Class cDakosy_EZA_Aufschub
values = values.Substring(0, values.Length - 1) 'wg. ',' values = values.Substring(0, values.Length - 1) 'wg. ','
Return (" INSERT INTO tblDakosy_EZA_Aufschub (" & str & ") VALUES(" & values & ") ") Return (" INSERT INTO tblDakosy_EZA_Aufschub (" & str & ") VALUES(" & values & ") ")
Catch ex As Exception Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) ' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine , System.Reflection.MethodInfo.GetCurrentMethod.Name)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try End Try
Return "" Return ""
End Function End Function
@@ -1576,7 +1580,9 @@ Public Class cDakosy_EZA_Unterlagen
values = values.Substring(0, values.Length - 1) 'wg. ',' values = values.Substring(0, values.Length - 1) 'wg. ','
Return (" INSERT INTO tblDakosy_EZA_Unterlagen (" & str & ") VALUES(" & values & ") ") Return (" INSERT INTO tblDakosy_EZA_Unterlagen (" & str & ") VALUES(" & values & ") ")
Catch ex As Exception Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) ' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine , System.Reflection.MethodInfo.GetCurrentMethod.Name)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try End Try
Return "" Return ""
End Function End Function
@@ -1664,7 +1670,9 @@ Public Class cDakosy_EZA_BEAnteilZLAVUV
values = values.Substring(0, values.Length - 1) 'wg. ',' values = values.Substring(0, values.Length - 1) 'wg. ','
Return (" INSERT INTO tblDakosy_EZA_BEAnteilZLAVUV (" & str & ") VALUES(" & values & ") ") Return (" INSERT INTO tblDakosy_EZA_BEAnteilZLAVUV (" & str & ") VALUES(" & values & ") ")
Catch ex As Exception Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) ' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine , System.Reflection.MethodInfo.GetCurrentMethod.Name)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try End Try
Return "" Return ""
End Function End Function
@@ -1684,7 +1692,7 @@ Public Class cDakosy_EZA_SumABeendigungsAnteil
Property ezaBa_VerwahrerEORI As Object = Nothing Property ezaBa_VerwahrerEORI As Object = Nothing
Property ezaBa_SpezifOrdnungsbegriffArt As Object = Nothing Property ezaBa_SpezifOrdnungsbegriffArt As Object = Nothing
Property ezaBa_SpezifOrdnungsbegriff As Object = Nothing Property ezaBa_SpezifOrdnungsbegriff As Object = Nothing
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
@@ -1702,7 +1710,7 @@ Public Class cDakosy_EZA_SumABeendigungsAnteil
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaBa_Artidentifikation", ezaBa_Artidentifikation)) ' VARCHAR (20) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaBa_Artidentifikation", ezaBa_Artidentifikation)) ' VARCHAR (20) NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaBa_VerwahrerEORI", ezaBa_VerwahrerEORI)) ' VARCHAR (35) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaBa_VerwahrerEORI", ezaBa_VerwahrerEORI)) ' VARCHAR (35) NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaBa_SpezifOrdnungsbegriffArt", ezaBa_SpezifOrdnungsbegriffArt)) ' VARCHAR (2) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaBa_SpezifOrdnungsbegriffArt", ezaBa_SpezifOrdnungsbegriffArt)) ' VARCHAR (2) NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaBa_SpezifOrdnungsbegriff", ezaBa_SpezifOrdnungsbegriff)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaBa_SpezifOrdnungsbegriff", ezaBa_SpezifOrdnungsbegriff))
Return list Return list
@@ -1731,7 +1739,7 @@ Public Class cDakosy_EZA_SumABeendigungsAnteil
values = values.Substring(0, values.Length - 1) 'wg. ',' values = values.Substring(0, values.Length - 1) 'wg. ','
Return (" INSERT INTO tblDakosy_EZA_SumABeendigungsAnteil (" & str & ") VALUES(" & values & ") ") Return (" INSERT INTO tblDakosy_EZA_SumABeendigungsAnteil (" & str & ") VALUES(" & values & ") ")
Catch ex As Exception Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try End Try
Return "" Return ""
End Function End Function
@@ -1889,7 +1897,7 @@ Public Class cDakosy_EZA_Warenposition
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_Id", ezaWP_Id, , True, True)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_Id", ezaWP_Id, , True, True))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_EzaId", ezaWP_EzaId)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_EzaId", ezaWP_EzaId))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_PositionsNummer", ezaWP_PositionsNummer)) ' DECIMAL (5) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_PositionsNummer", ezaWP_PositionsNummer)) ' DECIMAL (5) NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_Artikelnummer", ezaWP_Artikelnummer)) ' VARCHAR (35) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_Artikelnummer", ezaWP_Artikelnummer)) ' VARCHAR (35) NULL,
@@ -2037,7 +2045,7 @@ Public Class cDakosy_EZA_Warenposition
values = values.Substring(0, values.Length - 1) 'wg. ',' values = values.Substring(0, values.Length - 1) 'wg. ','
Return (" INSERT INTO tblDakosy_EZA_Warenposition (" & str & ") VALUES(" & values & ") ") Return (" INSERT INTO tblDakosy_EZA_Warenposition (" & str & ") VALUES(" & values & ") ")
Catch ex As Exception Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try End Try
Return "" Return ""
End Function End Function
@@ -2115,7 +2123,7 @@ Public Class cDakosy_EZA_Warenposition
End Using End Using
End Using End Using
Catch ex As Exception Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try End Try
End Sub End Sub
@@ -2142,7 +2150,7 @@ Public Class cDakosy_EZA_Warenposition
End Using End Using
End Using End Using
Catch ex As Exception Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try End Try
End Sub End Sub
@@ -2169,7 +2177,7 @@ Public Class cDakosy_EZA_Warenposition
End Using End Using
End Using End Using
Catch ex As Exception Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try End Try
End Sub End Sub
@@ -2251,7 +2259,7 @@ Public Class cDakosy_EZA_WarenpositionSonderfalldaten
values = values.Substring(0, values.Length - 1) 'wg. ',' values = values.Substring(0, values.Length - 1) 'wg. ','
Return (" INSERT INTO tblDakosy_EZA_WarenpositionSonderfalldaten (" & str & ") VALUES(" & values & ") ") Return (" INSERT INTO tblDakosy_EZA_WarenpositionSonderfalldaten (" & str & ") VALUES(" & values & ") ")
Catch ex As Exception Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try End Try
Return "" Return ""
End Function End Function
@@ -2320,7 +2328,7 @@ Public Class cDakosy_EZA_WarenpositionVorgelegteUnterlagen
values = values.Substring(0, values.Length - 1) 'wg. ',' values = values.Substring(0, values.Length - 1) 'wg. ','
Return (" INSERT INTO tblDakosy_EZA_WarenpositionUnterlagen (" & str & ") VALUES(" & values & ") ") Return (" INSERT INTO tblDakosy_EZA_WarenpositionUnterlagen (" & str & ") VALUES(" & values & ") ")
Catch ex As Exception Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try End Try
Return "" Return ""
End Function End Function
@@ -2384,7 +2392,7 @@ Public Class cDakosy_EZA_WarenpositionVerbrauchssteuer
values = values.Substring(0, values.Length - 1) 'wg. ',' values = values.Substring(0, values.Length - 1) 'wg. ','
Return (" INSERT INTO tblDakosy_EZA_WarenpositionVerbrauchssteuer (" & str & ") VALUES(" & values & ") ") Return (" INSERT INTO tblDakosy_EZA_WarenpositionVerbrauchssteuer (" & str & ") VALUES(" & values & ") ")
Catch ex As Exception Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try End Try
Return "" Return ""
End Function End Function

1475
DAKOSY_Worker/DAKOSY/ATLAS/NCTS/GenerellesErgebnis/GenerellesEreignis_005.Designer.vb generated Normal file
View File

File diff suppressed because it is too large Load Diff

107
DAKOSY_Worker/DAKOSY/ATLAS/NCTS/GenerellesErgebnis/GenerellesEreignis_005.xsd Normal file
View File

@@ -0,0 +1,107 @@
<?xml version="1.0" encoding="UTF-8"?>
<xs:schema xmlns:xs="http://www.w3.org/2001/XMLSchema">
<xs:element name="GenerellesEreignis" type="GenerellesEreignisGETyp"/>
<xs:simpleType name="an..10">
<xs:restriction base="xs:string">
<xs:maxLength value="10"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an..100">
<xs:restriction base="xs:string">
<xs:maxLength value="100"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an..17">
<xs:restriction base="xs:string">
<xs:maxLength value="17"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an..20">
<xs:restriction base="xs:string">
<xs:maxLength value="20"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an..35">
<xs:restriction base="xs:string">
<xs:maxLength value="35"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an..4">
<xs:restriction base="xs:string">
<xs:maxLength value="4"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an..4000">
<xs:restriction base="xs:string">
<xs:maxLength value="4000"/>
</xs:restriction>
</xs:simpleType>
<xs:complexType name="DatenaustauschAllgemeinTyp">
<xs:sequence>
<xs:element name="Transaktion" type="TransaktionAllgemeinTyp"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="EinzelEreignisTyp">
<xs:sequence>
<xs:element name="ObjektIdentifizierung" type="ObjektIdentifizierungGETyp"/>
<xs:element name="KopfDaten" type="KopfDatenEreignisTyp" minOccurs="0" maxOccurs="unbounded"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="EreignisGETyp">
<xs:sequence>
<xs:element name="Positionsnummer" type="n5" minOccurs="0"/>
<xs:element name="EreignisCode" type="an..17" minOccurs="0"/>
<xs:element name="Ereignismitteilung" type="an..4000" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="GenerellesEreignisGETyp">
<xs:complexContent>
<xs:extension base="DatenaustauschAllgemeinTyp">
<xs:sequence>
<xs:element name="EinzelEreignisObjekt" type="EinzelEreignisTyp" maxOccurs="unbounded"/>
</xs:sequence>
</xs:extension>
</xs:complexContent>
</xs:complexType>
<xs:complexType name="KopfDatenEreignisTyp">
<xs:sequence>
<xs:element name="Registrierdatum" type="xs:date" minOccurs="0"/>
<xs:element name="RegistrierNrATLAS" type="an..35" minOccurs="0"/>
<xs:element name="Ereignis" type="EreignisGETyp" minOccurs="0" maxOccurs="9999999"/>
</xs:sequence>
</xs:complexType>
<xs:simpleType name="n3">
<xs:restriction base="xs:nonNegativeInteger">
<xs:pattern value="\d{3}"/>
<xs:totalDigits value="3"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="n5">
<xs:restriction base="xs:nonNegativeInteger">
<xs:pattern value="\d{5}"/>
<xs:totalDigits value="5"/>
</xs:restriction>
</xs:simpleType>
<xs:complexType name="ObjektIdentifizierungGETyp">
<xs:sequence>
<xs:element name="ObjektName" type="an..35"/>
<xs:element name="ObjektAlias" type="an..35" minOccurs="0"/>
<xs:element name="ObjektAntragArt" type="an..4"/>
<xs:element name="EDIFACTNachrichtenNr" type="an..35" minOccurs="0"/>
<xs:element name="ZeitpunktEingang" type="xs:dateTime"/>
<xs:element name="Ereignisgewichtung" type="an..10"/>
<xs:element name="Meldestelle" type="an..20"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="TransaktionAllgemeinTyp">
<xs:sequence>
<xs:element name="IOPartner" type="an..100"/>
<xs:element name="IODivision1" type="an..10" minOccurs="0"/>
<xs:element name="IODivision2" type="an..10" minOccurs="0"/>
<xs:element name="IODivision3" type="an..10" minOccurs="0"/>
<xs:element name="IOReferenz" type="an..35"/>
<xs:element name="IODatumZeit" type="xs:dateTime"/>
<xs:element name="Version" type="n3" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
</xs:schema>

22
DAKOSY_Worker/DAKOSY/ATLAS/NCTS/cDakosyNCTSOut.vb
View File

@@ -978,10 +978,10 @@ Public Class cDakosyNCTSOut
'SPEDITIONSBUCH.Abfertigungsdatum= 'SPEDITIONSBUCH.Abfertigungsdatum=
SPEDITIONSBUCH.BelegNr = DY.ncts_MRN SPEDITIONSBUCH.BelegNr = DY.ncts_MRN
SPEDITIONSBUCH.LKW_Kennzeichen = If(DY.ncts_Befoerderungsmittel_KennzeichenAbgang, "") SPEDITIONSBUCH.LKW_Kennzeichen = If(DY.ncts_Befoerderungsmittel_KennzeichenAbgang, "")
Dim AD = getAdresseFromEORI(DY.ncts_SumA_Versender_EORI, DY.ncts_SumA_Versender_NLNR, SQL) Dim AD = getAdresseFromEORI(DY.ncts_SumA_Versender_EORI, DY.ncts_SumA_Versender_NLNR, SQL, DY.ncts_firma)
If AD IsNot Nothing Then If AD IsNot Nothing Then
SPEDITIONSBUCH.AbsenderKundenNr = AD.AdressenNr SPEDITIONSBUCH.AbsenderKundenNr = AD.AdressenNr
SPEDITIONSBUCH.Absender = AD.Ordnungsbegriff SPEDITIONSBUCH.Absender = AD.Ordnungsbegriff
End If End If
@@ -993,8 +993,8 @@ Public Class cDakosyNCTSOut
SPEDITIONSBUCH.Absender &= " " & If(DY.ncts_SumA_Versender_Ort, "") SPEDITIONSBUCH.Absender &= " " & If(DY.ncts_SumA_Versender_Ort, "")
ElseIf DY.ncts_WARENPOS.Count > 0 Then ElseIf DY.ncts_WARENPOS.Count > 0 Then
Dim WP = DY.ncts_WARENPOS(0) Dim WP = DY.ncts_WARENPOS(0)
Dim AD_pos = getAdresseFromEORI(WP.nctsWP_SumAVersender_EORI, WP.nctsWP_SumAVersender_NLNR, SQL) Dim AD_pos = getAdresseFromEORI(WP.nctsWP_SumAVersender_EORI, WP.nctsWP_SumAVersender_NLNR, SQL, DY.ncts_firma)
If AD_pos IsNot Nothing Then If AD_pos IsNot Nothing Then
SPEDITIONSBUCH.AbsenderKundenNr = AD_pos.AdressenNr SPEDITIONSBUCH.AbsenderKundenNr = AD_pos.AdressenNr
SPEDITIONSBUCH.Absender = AD_pos.Ordnungsbegriff SPEDITIONSBUCH.Absender = AD_pos.Ordnungsbegriff
End If End If
@@ -1011,8 +1011,8 @@ Public Class cDakosyNCTSOut
End If End If
Dim AD2 = getAdresseFromEORI(DY.ncts_SumA_Empfaenger_EORI, DY.ncts_SumA_Empfaenger_NLNR, SQL) Dim AD2 = getAdresseFromEORI(DY.ncts_SumA_Empfaenger_EORI, DY.ncts_SumA_Empfaenger_NLNR, SQL, DY.ncts_firma)
If AD2 IsNot Nothing Then If AD2 IsNot Nothing Then
SPEDITIONSBUCH.EmpfängerKundenNr = AD2.AdressenNr SPEDITIONSBUCH.EmpfängerKundenNr = AD2.AdressenNr
SPEDITIONSBUCH.Empfänger = AD2.Ordnungsbegriff SPEDITIONSBUCH.Empfänger = AD2.Ordnungsbegriff
End If End If
@@ -1024,8 +1024,8 @@ Public Class cDakosyNCTSOut
SPEDITIONSBUCH.Empfänger &= " " & If(DY.ncts_SumA_Empfaenger_Ort, "") SPEDITIONSBUCH.Empfänger &= " " & If(DY.ncts_SumA_Empfaenger_Ort, "")
ElseIf DY.ncts_WARENPOS.Count > 0 Then ElseIf DY.ncts_WARENPOS.Count > 0 Then
Dim WP = DY.ncts_WARENPOS(0) Dim WP = DY.ncts_WARENPOS(0)
Dim AD_pos = getAdresseFromEORI(WP.nctsWP_SumAEmpfaenger_EORI, WP.nctsWP_SumAEmpfaenger_NLNR, SQL) Dim AD_pos = getAdresseFromEORI(WP.nctsWP_SumAEmpfaenger_EORI, WP.nctsWP_SumAEmpfaenger_NLNR, SQL, DY.ncts_firma)
If AD_pos IsNot Nothing Then If AD_pos IsNot Nothing Then
SPEDITIONSBUCH.EmpfängerKundenNr = AD_pos.AdressenNr SPEDITIONSBUCH.EmpfängerKundenNr = AD_pos.AdressenNr
SPEDITIONSBUCH.Empfänger = AD_pos.Ordnungsbegriff SPEDITIONSBUCH.Empfänger = AD_pos.Ordnungsbegriff
End If End If
@@ -1085,10 +1085,10 @@ Public Class cDakosyNCTSOut
End Sub End Sub
Shared Function getAdresseFromEORI(EORI As String, EORI_NL As String, SQL As VERAG_PROG_ALLGEMEIN.SQL) Shared Function getAdresseFromEORI(EORI As String, EORI_NL As String, SQL As VERAG_PROG_ALLGEMEIN.SQL, Firma As String)
If EORI Is Nothing Then Return Nothing If EORI Is Nothing Then Return Nothing
If If(EORI, "") <> "" Then If If(EORI, "") <> "" Then
Dim kdNrTmp = SQL.getFMZOLLKdNrFromEORI(EORI, EORI_NL) Dim kdNrTmp = SQL.getFMZOLLKdNrFromEORI(EORI, EORI_NL, Firma)
If IsNumeric(kdNrTmp) Then If IsNumeric(kdNrTmp) Then
Dim ADRESSE As New VERAG_PROG_ALLGEMEIN.cAdressen(kdNrTmp) Dim ADRESSE As New VERAG_PROG_ALLGEMEIN.cAdressen(kdNrTmp)
Return ADRESSE Return ADRESSE

14
DAKOSY_Worker/DAKOSY/ATLAS/NCTS/cDakosyNCTSOut004.vb
View File

@@ -1177,7 +1177,7 @@ Public Class cDakosyNCTSOut004
Public Function SAVE_Guarantee() As Boolean Public Function SAVE_Guarantee() As Boolean
'Zuserst alle OffertenPos von dem Offert löschen 'Zuserst alle OffertenPos von dem Offert löschen
If True Then ' DELETE_Guarantee() Then If DELETE_Guarantee() Then
'jetzt die Standartofferten einfügen 'jetzt die Standartofferten einfügen
For Each p In ncts_GUARANTEE For Each p In ncts_GUARANTEE
p.nctsGRT_NctsId = ncts_Id p.nctsGRT_NctsId = ncts_Id
@@ -1447,7 +1447,7 @@ Public Class cDakosyNCTSOut004
SPEDITIONSBUCH.BelegNr = DY.ncts_MRN SPEDITIONSBUCH.BelegNr = DY.ncts_MRN
SPEDITIONSBUCH.LKW_Kennzeichen = If(DY.ncts_DepartureTransportMeans_1_IdentificationNumber, "") SPEDITIONSBUCH.LKW_Kennzeichen = If(DY.ncts_DepartureTransportMeans_1_IdentificationNumber, "")
Dim AD = getAdresseFromEORI(DY.ncts_Consignor_IdentificationNumber, DY.ncts_Consignor_SubsidiaryNumber, SQL) Dim AD = getAdresseFromEORI(DY.ncts_Consignor_IdentificationNumber, DY.ncts_Consignor_SubsidiaryNumber, SQL, DY.ncts_firma)
If AD IsNot Nothing Then If AD IsNot Nothing Then
SPEDITIONSBUCH.AbsenderKundenNr = AD.AdressenNr SPEDITIONSBUCH.AbsenderKundenNr = AD.AdressenNr
SPEDITIONSBUCH.Absender = AD.Ordnungsbegriff SPEDITIONSBUCH.Absender = AD.Ordnungsbegriff
@@ -1460,7 +1460,7 @@ Public Class cDakosyNCTSOut004
SPEDITIONSBUCH.Absender &= " " & If(DY.ncts_Consignor_City, "") SPEDITIONSBUCH.Absender &= " " & If(DY.ncts_Consignor_City, "")
ElseIf DY.ncts_HOUSE_CONSIGNMENT.Count > 0 Then ElseIf DY.ncts_HOUSE_CONSIGNMENT.Count > 0 Then
Dim WP = DY.ncts_HOUSE_CONSIGNMENT(0) Dim WP = DY.ncts_HOUSE_CONSIGNMENT(0)
Dim AD_pos = getAdresseFromEORI(WP.nctsHC_Consignor_IdentificationNumber, WP.nctsHC_Consignor_SubsidiaryNumber, SQL) Dim AD_pos = getAdresseFromEORI(WP.nctsHC_Consignor_IdentificationNumber, WP.nctsHC_Consignor_SubsidiaryNumber, SQL, DY.ncts_firma)
If AD_pos IsNot Nothing Then If AD_pos IsNot Nothing Then
SPEDITIONSBUCH.AbsenderKundenNr = AD_pos.AdressenNr SPEDITIONSBUCH.AbsenderKundenNr = AD_pos.AdressenNr
SPEDITIONSBUCH.Absender = AD_pos.Ordnungsbegriff SPEDITIONSBUCH.Absender = AD_pos.Ordnungsbegriff
@@ -1478,7 +1478,7 @@ Public Class cDakosyNCTSOut004
End If End If
Dim AD2 = getAdresseFromEORI(DY.ncts_Consignee_IdentificationNumber, DY.ncts_Consignee_SubsidiaryNumber, SQL) Dim AD2 = getAdresseFromEORI(DY.ncts_Consignee_IdentificationNumber, DY.ncts_Consignee_SubsidiaryNumber, SQL, DY.ncts_firma)
If AD2 IsNot Nothing Then If AD2 IsNot Nothing Then
SPEDITIONSBUCH.EmpfängerKundenNr = AD2.AdressenNr SPEDITIONSBUCH.EmpfängerKundenNr = AD2.AdressenNr
SPEDITIONSBUCH.Empfänger = AD2.Ordnungsbegriff SPEDITIONSBUCH.Empfänger = AD2.Ordnungsbegriff
@@ -1491,7 +1491,7 @@ Public Class cDakosyNCTSOut004
SPEDITIONSBUCH.Empfänger &= " " & If(DY.ncts_Consignee_City, "") SPEDITIONSBUCH.Empfänger &= " " & If(DY.ncts_Consignee_City, "")
ElseIf DY.ncts_HOUSE_CONSIGNMENT.Count > 0 Then ElseIf DY.ncts_HOUSE_CONSIGNMENT.Count > 0 Then
Dim WP = DY.ncts_HOUSE_CONSIGNMENT(0) Dim WP = DY.ncts_HOUSE_CONSIGNMENT(0)
Dim AD_pos = getAdresseFromEORI(WP.nctsHC_Consignee_IdentificationNumber, WP.nctsHC_Consignee_SubsidiaryNumber, SQL) Dim AD_pos = getAdresseFromEORI(WP.nctsHC_Consignee_IdentificationNumber, WP.nctsHC_Consignee_SubsidiaryNumber, SQL, DY.ncts_firma)
If AD_pos IsNot Nothing Then If AD_pos IsNot Nothing Then
SPEDITIONSBUCH.EmpfängerKundenNr = AD_pos.AdressenNr SPEDITIONSBUCH.EmpfängerKundenNr = AD_pos.AdressenNr
SPEDITIONSBUCH.Empfänger = AD_pos.Ordnungsbegriff SPEDITIONSBUCH.Empfänger = AD_pos.Ordnungsbegriff
@@ -1562,10 +1562,10 @@ Public Class cDakosyNCTSOut004
End Sub End Sub
Shared Function getAdresseFromEORI(EORI As String, EORI_NL As String, SQL As VERAG_PROG_ALLGEMEIN.SQL) Shared Function getAdresseFromEORI(EORI As String, EORI_NL As String, SQL As VERAG_PROG_ALLGEMEIN.SQL, Firma As String)
If EORI Is Nothing Then Return Nothing If EORI Is Nothing Then Return Nothing
If If(EORI, "") <> "" Then If If(EORI, "") <> "" Then
Dim kdNrTmp = SQL.getFMZOLLKdNrFromEORI(EORI, EORI_NL) Dim kdNrTmp = SQL.getFMZOLLKdNrFromEORI(EORI, EORI_NL, Firma)
If IsNumeric(kdNrTmp) Then If IsNumeric(kdNrTmp) Then
Dim ADRESSE As New VERAG_PROG_ALLGEMEIN.cAdressen(kdNrTmp) Dim ADRESSE As New VERAG_PROG_ALLGEMEIN.cAdressen(kdNrTmp)
Return ADRESSE Return ADRESSE

4
DAKOSY_Worker/DAKOSY_Worker_lib.vbproj
View File

@@ -132,6 +132,7 @@
<Compile Include="DAKOSY\ATLAS\NCTS\Erledigungsmeldung\ErledigungsmeldungNCTSDE_002.Designer.vb" /> <Compile Include="DAKOSY\ATLAS\NCTS\Erledigungsmeldung\ErledigungsmeldungNCTSDE_002.Designer.vb" />
<Compile Include="DAKOSY\ATLAS\NCTS\Erledigungsmeldung\ErledigungsmeldungNCTSDE_003.Designer.vb" /> <Compile Include="DAKOSY\ATLAS\NCTS\Erledigungsmeldung\ErledigungsmeldungNCTSDE_003.Designer.vb" />
<Compile Include="DAKOSY\ATLAS\NCTS\GenerellesErgebnis\GenerellesEreignis_003.Designer.vb" /> <Compile Include="DAKOSY\ATLAS\NCTS\GenerellesErgebnis\GenerellesEreignis_003.Designer.vb" />
<Compile Include="DAKOSY\ATLAS\NCTS\GenerellesErgebnis\GenerellesEreignis_005.Designer.vb" />
<Compile Include="DAKOSY\ATLAS\NCTS\Statusmeldung\StatusmeldungNCTSDE_002.Designer.vb" /> <Compile Include="DAKOSY\ATLAS\NCTS\Statusmeldung\StatusmeldungNCTSDE_002.Designer.vb" />
<Compile Include="DAKOSY\ATLAS\NCTS\Statusmeldung\StatusmeldungNCTSDE_003.Designer.vb" /> <Compile Include="DAKOSY\ATLAS\NCTS\Statusmeldung\StatusmeldungNCTSDE_003.Designer.vb" />
<Compile Include="DAKOSY\ATLAS\NCTS\Ueberlassungsmeldung\e_dep_rel.Designer.vb" /> <Compile Include="DAKOSY\ATLAS\NCTS\Ueberlassungsmeldung\e_dep_rel.Designer.vb" />
@@ -359,6 +360,9 @@
<None Include="DAKOSY\ATLAS\NCTS\GenerellesErgebnis\GenerellesEreignis_003.xsd"> <None Include="DAKOSY\ATLAS\NCTS\GenerellesErgebnis\GenerellesEreignis_003.xsd">
<SubType>Designer</SubType> <SubType>Designer</SubType>
</None> </None>
<None Include="DAKOSY\ATLAS\NCTS\GenerellesErgebnis\GenerellesEreignis_005.xsd">
<SubType>Designer</SubType>
</None>
<None Include="DAKOSY\ATLAS\NCTS\QuittungEingangsverarbeitung_004.xsd"> <None Include="DAKOSY\ATLAS\NCTS\QuittungEingangsverarbeitung_004.xsd">
<SubType>Designer</SubType> <SubType>Designer</SubType>
</None> </None>

1
DAKOSY_Worker/cDY_Statusliste.vb
View File

@@ -39,6 +39,7 @@ Public Class cDY_Statusliste
Shared Property S_20 As Integer = 20 ' Sendebestätigung Shared Property S_20 As Integer = 20 ' Sendebestätigung
Shared Property S_30 As Integer = 30 ' Zustellquittung Zoll Shared Property S_30 As Integer = 30 ' Zustellquittung Zoll
Shared Property S_40 As Integer = 40 ' XX_GENERELLE Rückmeldung
Shared Property S_41 As Integer = 41 ' ARN vergeben Shared Property S_41 As Integer = 41 ' ARN vergeben
Shared Property S_42 As Integer = 42 ' ERledigung Vorpapier?? Shared Property S_42 As Integer = 42 ' ERledigung Vorpapier??
Shared Property S_50 As Integer = 50 ' Überlassungsmeldung Shared Property S_50 As Integer = 50 ' Überlassungsmeldung

6
DAKOSY_Worker/cZOLL_IMPORT.vb
View File

@@ -1400,10 +1400,10 @@ Public Class cZOLL_IMPORT
Function getAdresseFromEORI(EORI, EORI_NL) Function getAdresseFromEORI(EORI, EORI_NL, Firma)
If EORI Is Nothing Then Return Nothing If EORI Is Nothing Then Return Nothing
If If(EORI, "") <> "" Then If If(EORI, "") <> "" Then
Dim kdNrTmp = KDSQL.getFMZOLLKdNrFromEORI(EORI, EORI_NL) Dim kdNrTmp = KDSQL.getFMZOLLKdNrFromEORI(EORI, EORI_NL, Firma)
If IsNumeric(kdNrTmp) Then If IsNumeric(kdNrTmp) Then
Dim ADRESSE As New VERAG_PROG_ALLGEMEIN.cAdressen(kdNrTmp) Dim ADRESSE As New VERAG_PROG_ALLGEMEIN.cAdressen(kdNrTmp)
Return ADRESSE Return ADRESSE
@@ -1742,7 +1742,7 @@ Public Class cZOLL_IMPORT
Dim kdnr_tmp As String = "" Dim kdnr_tmp As String = ""
If KUNDE_TXT = "" And KUNDE_KDNR <= 0 Then If KUNDE_TXT = "" And KUNDE_KDNR <= 0 Then
kdnr_tmp = KDSQL.getFMZOLLKdNrFromEORI(eori, eori_NL) kdnr_tmp = KDSQL.getFMZOLLKdNrFromEORI(eori, eori_NL, "VERAG")
If IsNull(kdnr_tmp) Then If IsNull(kdnr_tmp) Then
If Not IsNull(zollNr) AndAlso IsNumeric(zollNr) AndAlso zollNr <> 0 Then If Not IsNull(zollNr) AndAlso IsNumeric(zollNr) AndAlso zollNr <> 0 Then
kdnr_tmp = KDSQL.getATLASKdNrFromZollNr(zollNr) kdnr_tmp = KDSQL.getATLASKdNrFromZollNr(zollNr)

12
TELOTEK_Worker_lib/cTelokec.vb
View File

@@ -762,7 +762,7 @@ Public Class cTelotec_Anmeldung
'Versender 'Verkäufer 'Versender 'Verkäufer
If If(DY.ConorTra_Na, "") <> "" Or If(DY.ConorTra_TIN, "") <> "" Then If If(DY.ConorTra_Na, "") <> "" Or If(DY.ConorTra_TIN, "") <> "" Then
Dim AD = getAdresseFromEORI(DY.ConorTra_TIN, "", SQL) Dim AD = getAdresseFromEORI(DY.ConorTra_TIN, "", SQL, DY.telanm_firma)
If AD IsNot Nothing Then If AD IsNot Nothing Then
SPEDITIONSBUCH.AbsenderKundenNr = AD.AdressenNr SPEDITIONSBUCH.AbsenderKundenNr = AD.AdressenNr
SPEDITIONSBUCH.Absender = AD.Ordnungsbegriff SPEDITIONSBUCH.Absender = AD.Ordnungsbegriff
@@ -783,7 +783,7 @@ Public Class cTelotec_Anmeldung
'Empfänger 'Empfänger
If If(DY.ConeeTra_Na, "") <> "" Or If(DY.ConeeTra_TIN, "") <> "" Then If If(DY.ConeeTra_Na, "") <> "" Or If(DY.ConeeTra_TIN, "") <> "" Then
Dim AD = getAdresseFromEORI(DY.ConeeTra_TIN, "", SQL) Dim AD = getAdresseFromEORI(DY.ConeeTra_TIN, "", SQL, DY.telanm_firma)
If AD IsNot Nothing Then If AD IsNot Nothing Then
SPEDITIONSBUCH.EmpfängerKundenNr = AD.AdressenNr SPEDITIONSBUCH.EmpfängerKundenNr = AD.AdressenNr
SPEDITIONSBUCH.Empfänger = AD.Ordnungsbegriff SPEDITIONSBUCH.Empfänger = AD.Ordnungsbegriff
@@ -915,7 +915,7 @@ Public Class cTelotec_Anmeldung
'Versender 'Verkäufer 'Versender 'Verkäufer
If If(DY.ConorTra_Na, "") <> "" Or If(DY.ConorTra_TIN, "") <> "" Then If If(DY.ConorTra_Na, "") <> "" Or If(DY.ConorTra_TIN, "") <> "" Then
Dim AD = getAdresseFromEORI(DY.ConorTra_TIN, "", SQL) Dim AD = getAdresseFromEORI(DY.ConorTra_TIN, "", SQL, DY.telanm_firma)
If AD IsNot Nothing Then If AD IsNot Nothing Then
SPEDITIONSBUCH.AbsenderKundenNr = AD.AdressenNr SPEDITIONSBUCH.AbsenderKundenNr = AD.AdressenNr
SPEDITIONSBUCH.Absender = AD.Ordnungsbegriff SPEDITIONSBUCH.Absender = AD.Ordnungsbegriff
@@ -936,7 +936,7 @@ Public Class cTelotec_Anmeldung
'Empfänger 'Empfänger
If If(DY.ConeeTra_Na, "") <> "" Or If(DY.ConeeTra_TIN, "") <> "" Then If If(DY.ConeeTra_Na, "") <> "" Or If(DY.ConeeTra_TIN, "") <> "" Then
Dim AD = getAdresseFromEORI(DY.ConeeTra_TIN, "", SQL) Dim AD = getAdresseFromEORI(DY.ConeeTra_TIN, "", SQL, DY.telanm_firma)
If AD IsNot Nothing Then If AD IsNot Nothing Then
SPEDITIONSBUCH.EmpfängerKundenNr = AD.AdressenNr SPEDITIONSBUCH.EmpfängerKundenNr = AD.AdressenNr
SPEDITIONSBUCH.Empfänger = AD.Ordnungsbegriff SPEDITIONSBUCH.Empfänger = AD.Ordnungsbegriff
@@ -1035,10 +1035,10 @@ Public Class cTelotec_Anmeldung
End Function End Function
Shared Function getAdresseFromEORI(EORI As String, EORI_NL As String, SQL As VERAG_PROG_ALLGEMEIN.SQL) Shared Function getAdresseFromEORI(EORI As String, EORI_NL As String, SQL As VERAG_PROG_ALLGEMEIN.SQL, Firma As String)
If EORI Is Nothing Then Return Nothing If EORI Is Nothing Then Return Nothing
If If(EORI, "") <> "" Then If If(EORI, "") <> "" Then
Dim kdNrTmp = SQL.getFMZOLLKdNrFromEORI(EORI, EORI_NL) Dim kdNrTmp = SQL.getFMZOLLKdNrFromEORI(EORI, EORI_NL, Firma)
If IsNumeric(kdNrTmp) Then If IsNumeric(kdNrTmp) Then
Dim ADRESSE As New VERAG_PROG_ALLGEMEIN.cAdressen(kdNrTmp) Dim ADRESSE As New VERAG_PROG_ALLGEMEIN.cAdressen(kdNrTmp)
Return ADRESSE Return ADRESSE

5
initATLASAufschubkonten/cGetMsgType.vb
View File

@@ -537,9 +537,12 @@ Public Class cGetMsgType
Return False Return False
End Function End Function
Shared Function isNCTS_GenerellesEreignis(doc As XmlDocument) As Boolean Shared Function isNCTS_GenerellesEreignis(doc As XmlDocument, ByRef version As String) As Boolean
If doc.HasChildNodes Then If doc.HasChildNodes Then
If doc.GetElementsByTagName("GenerellesEreignis").Count > 0 Then If doc.GetElementsByTagName("GenerellesEreignis").Count > 0 Then
If doc.GetElementsByTagName("Version").Count > 0 Then
version = doc.GetElementsByTagName("Version")(0).InnerText
End If
Return True Return True
End If End If
End If End If

14
initATLASAufschubkonten/cWorker_NCTS.vb
View File

@@ -2177,10 +2177,10 @@ Public Class cWorker_NCTS
saveDY_NCTS = NCTS_TMP saveDY_NCTS = NCTS_TMP
End Function End Function
Shared Function saveDY_NCTS004(STATUS As DAKOSY_Worker.cDakosy_Statusmeldungen, DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen, transID As String, transDate As Date, Optional ANR As String = "", Optional MRN As String = "") As DAKOSY_Worker.cDakosyNCTSOut004 Shared Function saveDY_NCTS004(STATUS As DAKOSY_Worker.cDakosy_Statusmeldungen, DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen, transID As String, transDate As Date, Optional ANR As String = "", Optional MRN As String = "", Optional loadAll As Boolean = False) As DAKOSY_Worker.cDakosyNCTSOut004
'EINTRAG IN tblDakosyNCTSOut 'EINTRAG IN tblDakosyNCTSOut
Dim NCTS_TMP As DAKOSY_Worker.cDakosyNCTSOut004 = Nothing Dim NCTS_TMP As DAKOSY_Worker.cDakosyNCTSOut004 = Nothing
NCTS_TMP = DAKOSY_Worker.cDakosyNCTSOut004.LOADByBezugsNr(STATUS.dySt_BezugsNr.ToString, False) NCTS_TMP = DAKOSY_Worker.cDakosyNCTSOut004.LOADByBezugsNr(STATUS.dySt_BezugsNr.ToString, loadAll)
If NCTS_TMP Is Nothing Then If NCTS_TMP Is Nothing Then
NCTS_TMP = New DAKOSY_Worker.cDakosyNCTSOut004 NCTS_TMP = New DAKOSY_Worker.cDakosyNCTSOut004
NCTS_TMP.ncts_ObjectName = STATUS.dySt_BezugsNr NCTS_TMP.ncts_ObjectName = STATUS.dySt_BezugsNr
@@ -2429,6 +2429,12 @@ Public Class cWorker_NCTS
If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id
STATUS.SAVE() STATUS.SAVE()
'=====ATEZ BEREITSTELLUNG==========
checkATEZ_Bereitstellung(DY_TMP, d)
'==================================
FORM.addDGVEinarbeitung("NCTS: StatusmeldungNCTSDE", STATUS.dySt_BezugsNr) FORM.addDGVEinarbeitung("NCTS: StatusmeldungNCTSDE", STATUS.dySt_BezugsNr)
End If End If
@@ -3806,7 +3812,7 @@ Public Class cWorker_NCTS
STATUS.dySt_ergZeitpunkt = zp STATUS.dySt_ergZeitpunkt = zp
'EINTRAG IN tblDakosy_Zollanmeldungen 'EINTRAG IN tblDakosy_Zollanmeldungen
Dim DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen = FORM.saveDY_ZA(STATUS, NCTS.Transaktion.IOReferenz, If(zp, NCTS.Transaktion.IODatumZeit), "NCTS") Dim DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen = FORM.saveDY_ZA(STATUS, NCTS.Transaktion.IOReferenz, If(zp, NCTS.Transaktion.IODatumZeit), "NCTS")
Dim NCTS_TMP As DAKOSY_Worker.cDakosyNCTSOut004 = saveDY_NCTS004(STATUS, DY_TMP, NCTS.Transaktion.IOReferenz, If(zp, NCTS.Transaktion.IODatumZeit), , MRN) Dim NCTS_TMP As DAKOSY_Worker.cDakosyNCTSOut004 = saveDY_NCTS004(STATUS, DY_TMP, NCTS.Transaktion.IOReferenz, If(zp, NCTS.Transaktion.IODatumZeit), , MRN, True)
NCTS_TMP.ncts_Eroeffnung = zp NCTS_TMP.ncts_Eroeffnung = zp
@@ -3902,7 +3908,7 @@ Public Class cWorker_NCTS
Shared Sub checkATEZ_Bereitstellung(DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen, filePath As String) Shared Sub checkATEZ_Bereitstellung(DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen, filePath As String)
If DY_TMP Is Nothing Then Exit Sub If DY_TMP Is Nothing Then Exit Sub
Dim ATEZ = VERAG_PROG_ALLGEMEIN.cATEZ_NCTS_DATA.LOAD_ByBezugsNr(DY_TMP.dy_BezugsNr) Dim ATEZ = VERAG_PROG_ALLGEMEIN.cATEZ_NCTS_DATA.LOAD_ByBezugsNr(DY_TMP.dy_BezugsNr)
If ATEZ IsNot Nothing AndAlso ATEZ.hasEntry Then If (DY_TMP.dy_BezugsNr.Contains("ATEZ") Or DY_TMP.dy_BezugsNr.Contains("PLH")) OrElse (ATEZ IsNot Nothing AndAlso ATEZ.hasEntry) Then
' If ATEZ.status IsNot Nothing Then ' If ATEZ.status IsNot Nothing Then
'If ATEZ.status < 40 Then 'If ATEZ.status < 40 Then
Dim fio As New IO.FileInfo(filePath) Dim fio As New IO.FileInfo(filePath)

147
initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb
View File

@@ -5,6 +5,7 @@ Imports Renci.SshNet
Imports System.Net.Mail Imports System.Net.Mail
Imports GrapeCity.Enterprise.Data.DataEngine.DataProcessing Imports GrapeCity.Enterprise.Data.DataEngine.DataProcessing
Imports DocumentFormat.OpenXml.Wordprocessing Imports DocumentFormat.OpenXml.Wordprocessing
Imports DAKOSY_Worker
Public Class frmDYNachrichtenVerarbeitung Public Class frmDYNachrichtenVerarbeitung
Dim cntDatenEingelesen As Integer = 0 Dim cntDatenEingelesen As Integer = 0
@@ -593,10 +594,12 @@ Public Class frmDYNachrichtenVerarbeitung
'------------------ Diverse ------------------ '------------------ Diverse ------------------
'------------------------------------------ '------------------------------------------
'SONDERFALL: Betrifft div. Arten von Anmeldungen: GenerellesEreignis 'SONDERFALL: Betrifft div. Arten von Anmeldungen: GenerellesEreignis
If Not found And cGetMsgType.isNCTS_GenerellesEreignis(doc) Then If Not found And cGetMsgType.isNCTS_GenerellesEreignis(doc, VERSION) Then
If readNCTS_GenerellesEreignis(d) Then Select Case VERSION
found = True Case "005" : If readNCTS_GenerellesEreignis_005(d, statusTMP) Then found = True
End If Case Else : If readNCTS_GenerellesEreignis(d) Then found = True
End Select
End If End If
@@ -823,6 +826,7 @@ Public Class frmDYNachrichtenVerarbeitung
Function getVerahrensartFromBezugsNr(bezugsNr) As String Function getVerahrensartFromBezugsNr(bezugsNr) As String
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
If SQL.getValueTxtBySql("SELECT TOP 1 COUNT(*) FROM tblDakosy_NCTSOut004 WHERE ncts_ObjectName='" & bezugsNr & "'", "FMZOLL") > 0 Then Return "NCTS"
If SQL.getValueTxtBySql("SELECT TOP 1 COUNT(*) FROM tblDakosy_NCTSOut WHERE ncts_ObjectName='" & bezugsNr & "'", "FMZOLL") > 0 Then Return "NCTS" If SQL.getValueTxtBySql("SELECT TOP 1 COUNT(*) FROM tblDakosy_NCTSOut WHERE ncts_ObjectName='" & bezugsNr & "'", "FMZOLL") > 0 Then Return "NCTS"
If SQL.getValueTxtBySql("SELECT TOP 1 COUNT(*) FROM tblDakosy_EZA WHERE eza_ObjectName='" & bezugsNr & "'", "FMZOLL") > 0 Then Return "EZA" If SQL.getValueTxtBySql("SELECT TOP 1 COUNT(*) FROM tblDakosy_EZA WHERE eza_ObjectName='" & bezugsNr & "'", "FMZOLL") > 0 Then Return "EZA"
Return "" Return ""
@@ -1008,6 +1012,141 @@ Public Class frmDYNachrichtenVerarbeitung
End Function End Function
Function readNCTS_GenerellesEreignis_005(d As String, ByRef STATUSTMP As DAKOSY_Worker.cDakosy_Statusmeldungen) As Boolean
Try
Dim NCTS As DAKOSY_Worker.GenerellesEreignis005.GenerellesEreignisGETyp = DAKOSY_Worker.GenerellesEreignis005.GenerellesEreignisGETyp.LoadFromFile(d)
Dim division = ""
readNCTS_GenerellesEreignis_005 = False
If NCTS IsNot Nothing Then
If NCTS.Transaktion IsNot Nothing Then
If NCTS.Transaktion.IODivision3 IsNot Nothing Then
division = NCTS.Transaktion.IODivision3
End If
End If
If NCTS.EinzelEreignisObjekt IsNot Nothing Then
For Each ge In NCTS.EinzelEreignisObjekt
If ge.ObjektIdentifizierung IsNot Nothing Then
If ge.ObjektIdentifizierung.ObjektName IsNot Nothing And ge.ObjektIdentifizierung.Ereignisgewichtung IsNot Nothing Then
' ListBox4.Items.Add(ge.ObjektIdentifizierung.ObjektName)
Dim STATUS2 As DAKOSY_Worker.cDakosy_Statusmeldungen = getStatusCheckTransID(NCTS.Transaktion.IOReferenz, NCTS.Transaktion.IODatumZeit)
STATUS2.dySt_artMitteilung = "GE"
STATUS2.dySt_dyArt = "" '"NCTS" 'T1/T2
STATUS2.dySt_BezugsNr = ge.ObjektIdentifizierung.ObjektName
STATUS2.dySt_ergCode = "" 'erg.EreignisCode
STATUS2.dySt_ergMitteilung = "" 'erg.Ereignismitteilung
If ge.ObjektIdentifizierung.Ereignisgewichtung.Contains("OKAY") Then
STATUS2.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_07
ElseIf ge.ObjektIdentifizierung.Ereignisgewichtung.Contains("INFO") Then
STATUS2.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_40
Else
STATUS2.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_98
End If
readNCTS_GenerellesEreignis_005 = True
Select Case getVerahrensartFromBezugsNr(ge.ObjektIdentifizierung.ObjektName)
Case "NCTS"
Dim DY_TMP2 As DAKOSY_Worker.cDakosy_Zollanmeldungen = saveDY_ZA(STATUS2, NCTS.Transaktion.IOReferenz, NCTS.Transaktion.IODatumZeit, "NCTS")
Dim NCTS_TMP2 As DAKOSY_Worker.cDakosyNCTSOut = cWorker_NCTS.saveDY_NCTS(STATUS2, DY_TMP2, NCTS.Transaktion.IOReferenz, NCTS.Transaktion.IODatumZeit)
If DY_TMP2 IsNot Nothing Then STATUS2.dySt_dyId = DY_TMP2.dy_Id
cWorker_NCTS.SaveNCTS_FirmaNL(NCTS_TMP2, DY_TMP2, division)
STATUS2.dySt_dyArt = "NCTS"
'=====ATEZ BEREITSTELLUNG==========
cWorker_NCTS.checkATEZ_Bereitstellung(DY_TMP2, d)
'==================================
Case "EZA", ""
Dim DY_TMP2 As DAKOSY_Worker.cDakosy_Zollanmeldungen = saveDY_ZA(STATUS2, NCTS.Transaktion.IOReferenz, NCTS.Transaktion.IODatumZeit, "EZA")
Dim EZA_TMP As DAKOSY_Worker.cDakosyEZA = saveDY_EZA(STATUS2, DY_TMP2, NCTS.Transaktion.IOReferenz, NCTS.Transaktion.IODatumZeit)
If DY_TMP2 IsNot Nothing Then STATUS2.dySt_dyId = DY_TMP2.dy_Id
SaveEZA_FirmaNL(EZA_TMP, DY_TMP2, division)
STATUS2.dySt_dyArt = "EZA"
End Select
STATUS2.SAVE()
'Nur wenn BezugsNr vorhanden:
If ge.KopfDaten IsNot Nothing Then
For Each kopf In ge.KopfDaten
If kopf.Ereignis IsNot Nothing Then
If kopf.RegistrierNrATLAS IsNot Nothing Then
'MsgBox(kopf.RegistrierNrATLAS)
If True Then
Dim STATUS As DAKOSY_Worker.cDakosy_Statusmeldungen = getStatusCheckTransID(NCTS.Transaktion.IOReferenz, NCTS.Transaktion.IODatumZeit)
STATUS.dySt_artMitteilung = "GE"
STATUS.dySt_dyArt = "" '"NCTS" 'T1/T2
STATUS.dySt_BezugsNr = ge.ObjektIdentifizierung.ObjektName
If kopf.RegistrierNrATLAS.StartsWith("ATA") Or kopf.RegistrierNrATLAS.StartsWith("ATC") Then
STATUS.dySt_ergCode = "ATA"
STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_41
Else
STATUS.dySt_ergCode = "GE"
STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_40
End If
STATUS.dySt_ergMitteilung = kopf.RegistrierNrATLAS
STATUS.dySt_ergZeitpunkt = ge.ObjektIdentifizierung.ZeitpunktEingang
readNCTS_GenerellesEreignis_005 = True
Select Case getVerahrensartFromBezugsNr(ge.ObjektIdentifizierung.ObjektName)
Case "NCTS"
Dim DY_TMP2 As DAKOSY_Worker.cDakosy_Zollanmeldungen = saveDY_ZA(STATUS, NCTS.Transaktion.IOReferenz, NCTS.Transaktion.IODatumZeit, "NCTS")
Dim NCTS_TMP2 As DAKOSY_Worker.cDakosyNCTSOut = cWorker_NCTS.saveDY_NCTS(STATUS, DY_TMP2, NCTS.Transaktion.IOReferenz, NCTS.Transaktion.IODatumZeit, kopf.RegistrierNrATLAS)
If DY_TMP2 IsNot Nothing Then STATUS.dySt_dyId = DY_TMP2.dy_Id
cWorker_NCTS.SaveNCTS_FirmaNL(NCTS_TMP2, DY_TMP2, division)
STATUS.dySt_dyArt = "NCTS"
Case "EZA"
Dim DY_TMP2 As DAKOSY_Worker.cDakosy_Zollanmeldungen = saveDY_ZA(STATUS, NCTS.Transaktion.IOReferenz, NCTS.Transaktion.IODatumZeit, "EZA")
Dim EZA_TMP As DAKOSY_Worker.cDakosyEZA = saveDY_EZA(STATUS, DY_TMP2, NCTS.Transaktion.IOReferenz, NCTS.Transaktion.IODatumZeit, kopf.RegistrierNrATLAS)
If DY_TMP2 IsNot Nothing Then STATUS.dySt_dyId = DY_TMP2.dy_Id
SaveEZA_FirmaNL(EZA_TMP, DY_TMP2, division)
STATUS.dySt_dyArt = "EZA"
End Select
STATUS.SAVE()
End If
End If
End If
Next
End If
STATUSTMP = STATUS2
addDGVEinarbeitung("** GenerellesEreignis **", ge.ObjektIdentifizierung.ObjektName)
End If
End If
Next
End If
End If
' NCTS.LOADByBezugsNr(bezugsNr, False) ' Falls schon ein DS mit dieser Bezugsnummer vorhanden ist.
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
readNCTS_GenerellesEreignis_005 = False
End Try
End Function
Function saveDY_AES(STATUS As DAKOSY_Worker.cDakosy_Statusmeldungen, DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen, transID As String, transDate As Date, Optional ANR As String = "", Optional MRN As String = "") As DAKOSY_Worker.cDakosyAES Function saveDY_AES(STATUS As DAKOSY_Worker.cDakosy_Statusmeldungen, DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen, transID As String, transDate As Date, Optional ANR As String = "", Optional MRN As String = "") As DAKOSY_Worker.cDakosyAES
'EINTRAG IN tblDakosyAESOut 'EINTRAG IN tblDakosyAESOut
Dim AES_TMP As DAKOSY_Worker.cDakosyAES = Nothing Dim AES_TMP As DAKOSY_Worker.cDakosyAES = Nothing

28
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -3241,18 +3241,18 @@ Public Class frmStartOptions
End If End If
SDL.Sachbearbeiter = "ASFINAG" SDL.Sachbearbeiter = "ASFINAG"
Dim Validto = SQl.checkNullStr(oRDR.GetValue("DatumVertragsabschluss")) Dim Validto = SQL.checkNullStr(oRDR.GetValue("DatumVertragsabschluss"))
SDL.KartenNr = SQl.checkNullStr(oRDR.GetValue("CardNumber")) SDL.KartenNr = SQL.checkNullStr(oRDR.GetValue("CardNumber"))
If Validto <> "" Then If Validto <> "" Then
SDL.GültigBis = DateAdd("d", -1, DateAdd("m", 1, DateSerial("20" & Mid(oRDR.GetValue("CardNumber"), 1, 2), Mid(Validto, 3, 2), 1))) SDL.GültigBis = DateAdd("d", -1, DateAdd("m", 1, DateSerial("20" & Mid(oRDR.GetValue("CardNumber"), 1, 2), Mid(Validto, 3, 2), 1)))
End If End If
SDL.OBUID = SQl.checkNullStr(oRDR.GetValue("OBUID")) SDL.OBUID = SQL.checkNullStr(oRDR.GetValue("OBUID"))
SDL.Vertragsabschlussdatum = SQl.checkNullStr(oRDR.GetValue("DatumVertragsabschluss")) SDL.Vertragsabschlussdatum = SQL.checkNullStr(oRDR.GetValue("DatumVertragsabschluss"))
SDL.Kategorie = SQl.checkNullStr(oRDR.GetValue("Kategorie")) SDL.Kategorie = SQL.checkNullStr(oRDR.GetValue("Kategorie"))
SDL.Schadstoffklasse = SQl.checkNullStr(oRDR.GetValue("Schadstoffklasse")) SDL.Schadstoffklasse = SQL.checkNullStr(oRDR.GetValue("Schadstoffklasse"))
SDL.Status = SQl.checkNullStr(oRDR.GetValue("Status")) SDL.Status = SQL.checkNullStr(oRDR.GetValue("Status"))
SDL.SAVE() SDL.SAVE()
End If End If
@@ -3298,19 +3298,19 @@ Public Class frmStartOptions
End If End If
SDL.Sachbearbeiter = "ASFINAG" & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "_TEST", "") SDL.Sachbearbeiter = "ASFINAG" & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "_TEST", "")
Dim Validto = SQl.checkNullStr(row.Item("contractDate")) Dim Validto = SQL.checkNullStr(row.Item("contractDate"))
SDL.KartenNr = SQl.checkNullStr(row.Item("cardNumber")) SDL.KartenNr = SQL.checkNullStr(row.Item("cardNumber"))
If Validto <> "" Then If Validto <> "" Then
'MsgBox(Mid(row.Item("ValidTo"), 1, 2) & " " & Mid(row.Item("ValidTo"), 3, 2)) 'MsgBox(Mid(row.Item("ValidTo"), 1, 2) & " " & Mid(row.Item("ValidTo"), 3, 2))
SDL.GültigBis = DateAdd("d", -1, DateAdd("m", 1, DateSerial("20" & Mid(row.Item("ValidTo"), 1, 2), Mid(row.Item("ValidTo"), 3, 2), 1))) 'noch im DETAIL checken! SDL.GültigBis = DateAdd("d", -1, DateAdd("m", 1, DateSerial("20" & Mid(row.Item("ValidTo"), 1, 2), Mid(row.Item("ValidTo"), 3, 2), 1))) 'noch im DETAIL checken!
End If End If
SDL.OBUID = SQl.checkNullStr(row.Item("OBUID")) SDL.OBUID = SQL.checkNullStr(row.Item("OBUID"))
SDL.Vertragsabschlussdatum = SQl.checkNullStr(row.Item("contractDate")) SDL.Vertragsabschlussdatum = SQL.checkNullStr(row.Item("contractDate"))
SDL.Kategorie = SQl.checkNullStr(row.Item("vehicleCategory")) SDL.Kategorie = SQL.checkNullStr(row.Item("vehicleCategory"))
SDL.Schadstoffklasse = SQl.checkNullStr(row.Item("emissionCategory")) SDL.Schadstoffklasse = SQL.checkNullStr(row.Item("emissionCategory"))
SDL.Status = SQl.checkNullStr(row.Item("status")) SDL.Status = SQL.checkNullStr(row.Item("status"))
SDL.SAVE() SDL.SAVE()
End If End If