diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/cDakosyEZA.vb b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/cDakosyEZA.vb index bc6ffae..eac711a 100644 --- a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/cDakosyEZA.vb +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/cDakosyEZA.vb @@ -1,5 +1,6 @@ Imports System.Data.SqlClient Imports System.Reflection +Imports VERAG_PROG_ALLGEMEIN.TESTJSON Public Class cDakosyEZA @@ -106,6 +107,7 @@ Public Class cDakosyEZA + Property eza_UNTERLAGEN As New List(Of cDakosy_EZA_Unterlagen) 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_firma", eza_firma)) 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_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_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_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_NachrichtenSenderTIN", eza_NachrichtenSenderTIN)) - 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_ObjectName", eza_ObjectName)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_ObjectAlias", eza_ObjectAlias)) - - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_BezugsnummerVorblendung", eza_BezugsnummerVorblendung)) - 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_CompliancePruefung", eza_CompliancePruefung)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_AnfBemerkungStatusanzeige", eza_AnfBemerkungStatusanzeige)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_AdressierteZollstelle", eza_AdressierteZollstelle)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_AnmelderistEmpfaenger", eza_AnmelderistEmpfaenger)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_VertretungsVerhaeltnisCode", eza_VertretungsVerhaeltnisCode)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_Vorsteuerabzug", eza_Vorsteuerabzug)) - 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_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_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_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_Version", eza_Trans_Version)) +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_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_BezugsnummerVorblendung", eza_BezugsnummerVorblendung)) +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_CompliancePruefung", eza_CompliancePruefung)) +list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_AnfBemerkungStatusanzeige", eza_AnfBemerkungStatusanzeige)) +list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_AdressierteZollstelle", eza_AdressierteZollstelle)) +list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_AnmelderistEmpfaenger", eza_AnmelderistEmpfaenger)) +list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_VertretungsVerhaeltnisCode", eza_VertretungsVerhaeltnisCode)) +list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_Vorsteuerabzug", eza_Vorsteuerabzug)) +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_FiskalvertretungKz", eza_FiskalvertretungKz)) 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_GesamtRohmasse", eza_GesamtRohmasse)) 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_VerkehrszweigGrenze", eza_VerkehrszweigGrenze)) - 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_Bestimmungsland", eza_Bestimmungsland)) - 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_VerkehrszweigInland", eza_VerkehrszweigInland)) +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_Bestimmungsbundesland", eza_Bestimmungsbundesland)) +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_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örderungsmittelGrenze", eza_BeförderungsmittelGrenze)) 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_LieferbedingungSchluessel", eza_LieferbedingungSchluessel)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_LieferbedingungOrt", eza_LieferbedingungOrt)) +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_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_Statistikstatus", eza_Statistikstatus)) 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_DV1Kz", eza_DV1Kz)) - 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_DV1Verbundenheit", eza_DV1Verbundenheit)) - 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_DV1BedingungenLeistungenKz", eza_DV1BedingungenLeistungenKz)) - 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_DV1LizenzgebuehrenUmstand", eza_DV1LizenzgebuehrenUmstand)) - 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_ZusatzangabenAnmeldung", eza_ZusatzangabenAnmeldung)) - 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_Eingangszollstelle", eza_Eingangszollstelle)) - 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_ContainerNr2", eza_ContainerNr2)) - 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_ContainerNr5", eza_ContainerNr5)) - 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_ContainerNr9", eza_ContainerNr9)) - 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_BezugsnummerBEAnteilZL", eza_BezugsnummerBEAnteilZL)) +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_DV1Verbundenheit", eza_DV1Verbundenheit)) +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_DV1BedingungenLeistungenKz", eza_DV1BedingungenLeistungenKz)) +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_DV1LizenzgebuehrenUmstand", eza_DV1LizenzgebuehrenUmstand)) +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_ZusatzangabenAnmeldung", eza_ZusatzangabenAnmeldung)) +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_Eingangszollstelle", eza_Eingangszollstelle)) +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_ContainerNr2", eza_ContainerNr2)) +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_ContainerNr5", eza_ContainerNr5)) +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_ContainerNr9", eza_ContainerNr9)) +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_BezugsnummerBEAnteilZL", eza_BezugsnummerBEAnteilZL)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_UstIdAnmelder", eza_UstIdAnmelder)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_FinanzamtAnmelder", eza_FinanzamtAnmelder)) @@ -313,7 +312,7 @@ Public Class cDakosyEZA End Using End Using 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 Return LOAD End Function @@ -356,7 +355,7 @@ Public Class cDakosyEZA End Using End Using 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 Return Nothing 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) 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 If Return "" @@ -426,7 +425,7 @@ Public Class cDakosyEZA End Using End Using 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 Return LOADByAnmID End Function @@ -469,7 +468,7 @@ Public Class cDakosyEZA End Using End Using 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 Return Nothing 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) 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 If Return "" @@ -508,7 +507,7 @@ Public Class cDakosyEZA Return (" UPDATE [tblDakosy_EZA] SET " & str & " WHERE eza_id=@eza_id ") 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 Return "" End Function @@ -529,7 +528,7 @@ Public Class cDakosyEZA values = values.Substring(0, values.Length - 1) 'wg. ',' Return (" INSERT INTO tblDakosy_EZA (" & str & ") VALUES(" & values & ") ") 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 Return "" End Function @@ -557,7 +556,7 @@ Public Class cDakosyEZA End Using End Using 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 Sub @@ -585,7 +584,7 @@ Public Class cDakosyEZA End Using End Using 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 Sub Public Sub LOAD_Aufschub() @@ -611,7 +610,7 @@ Public Class cDakosyEZA End Using End Using 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 Sub Public Sub LOAD_BEAnteilZLAVUV() @@ -637,7 +636,7 @@ Public Class cDakosyEZA End Using End Using 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 Sub Public Sub LOAD_SumABeendigungsAnteil() @@ -663,7 +662,7 @@ Public Class cDakosyEZA End Using End Using 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 Sub @@ -672,7 +671,7 @@ Public Class cDakosyEZA eza_WARENPOS.Clear() Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() 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() While dr.Read Dim l As New cDakosy_EZA_Warenposition() @@ -692,7 +691,7 @@ Public Class cDakosyEZA End Using End Using 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 Sub @@ -1061,7 +1060,9 @@ Public Class cDakosyEZA 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 @@ -1083,7 +1084,7 @@ Public Class cDakosyEZA For Each ADR In DY.eza_ADRESSEN 'Verkäufer 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 SPEDITIONSBUCH.AbsenderKundenNr = AD.AdressenNr SPEDITIONSBUCH.Absender = AD.Ordnungsbegriff @@ -1105,14 +1106,14 @@ Public Class cDakosyEZA 'Empfänger 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 SPEDITIONSBUCH.EmpfängerKundenNr = AD.AdressenNr SPEDITIONSBUCH.Empfänger = AD.Ordnungsbegriff 'Oranier Küchentechnik GmbH; Haiger End If 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_PLZ, "") SPEDITIONSBUCH.Empfänger &= " " & If(ADR.ezaAd_Ort, "") @@ -1150,7 +1151,9 @@ Public Class cDakosyEZA SPEDITIONSBUCH.Personalnummer = If(IsNumeric(p), p, Nothing) End If 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 @@ -1184,7 +1187,8 @@ Public Class cDakosyEZA 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 Sub @@ -1208,7 +1212,7 @@ Public Class cDakosyEZA SPEDITIONSBUCH.DokumentId_AVM = ANM.dy_AVM_dsId 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 @@ -1223,7 +1227,7 @@ Public Class cDakosyEZA '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 SPEDITIONSBUCH.AbsenderKundenNr = AD.AdressenNr SPEDITIONSBUCH.Absender = AD.Ordnungsbegriff 'Oranier Küchentechnik GmbH; Haiger @@ -1241,7 +1245,7 @@ Public Class cDakosyEZA 'Empfänger 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 SPEDITIONSBUCH.EmpfängerKundenNr = AD.AdressenNr 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 SPEDITIONSBUCH.Empfänger = (If(DY.aes_EmpfaengerTeilnehmerName, "")).Trim SPEDITIONSBUCH.Empfänger &= ", " & If(DY.aes_EmpfaengerTeilnehmerLandCode, "") - SPEDITIONSBUCH.Empfänger &= " " & If(DY.aes_EmpfaengerTeilnehmerPLZ, "") - SPEDITIONSBUCH.Empfänger &= " " & If(DY.aes_EmpfaengerTeilnehmerOrt, "") - SPEDITIONSBUCH.Empfänger = SPEDITIONSBUCH.Empfänger.Trim + SPEDITIONSBUCH.Empfänger &= " " & If(DY.aes_EmpfaengerTeilnehmerPLZ, "") + SPEDITIONSBUCH.Empfänger &= " " & If(DY.aes_EmpfaengerTeilnehmerOrt, "") + SPEDITIONSBUCH.Empfänger = SPEDITIONSBUCH.Empfänger.Trim If SPEDITIONSBUCH.Empfänger.Length > 50 Then SPEDITIONSBUCH.Empfänger = SPEDITIONSBUCH.Empfänger.Substring(0, 50) End If @@ -1271,7 +1275,8 @@ Public Class cDakosyEZA SPEDITIONSBUCH.Personalnummer = If(IsNumeric(p), p, Nothing) End If 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 @@ -1306,21 +1311,22 @@ Public Class cDakosyEZA 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 Sub 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") - 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") 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 If(EORI, "") <> "" Then - Dim kdNrTmp = SQL.getFMZOLLKdNrFromEORI(EORI, EORI_NL) + Dim kdNrTmp = SQL.getFMZOLLKdNrFromEORI(EORI, EORI_NL, Firma) If IsNumeric(kdNrTmp) Then Dim ADRESSE As New VERAG_PROG_ALLGEMEIN.cAdressen(kdNrTmp) Return ADRESSE @@ -1336,12 +1342,6 @@ Public Class cDakosyEZA End Class - - - - - - Public Class cDakosy_EZA_Adressen @@ -1425,7 +1425,9 @@ Public Class cDakosy_EZA_Adressen values = values.Substring(0, values.Length - 1) 'wg. ',' Return (" INSERT INTO tblDakosy_EZA_Adressen (" & str & ") VALUES(" & values & ") ") 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 Return "" End Function @@ -1511,7 +1513,9 @@ Public Class cDakosy_EZA_Aufschub values = values.Substring(0, values.Length - 1) 'wg. ',' Return (" INSERT INTO tblDakosy_EZA_Aufschub (" & str & ") VALUES(" & values & ") ") 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 Return "" End Function @@ -1576,7 +1580,9 @@ Public Class cDakosy_EZA_Unterlagen values = values.Substring(0, values.Length - 1) 'wg. ',' Return (" INSERT INTO tblDakosy_EZA_Unterlagen (" & str & ") VALUES(" & values & ") ") 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 Return "" End Function @@ -1664,7 +1670,9 @@ Public Class cDakosy_EZA_BEAnteilZLAVUV values = values.Substring(0, values.Length - 1) 'wg. ',' Return (" INSERT INTO tblDakosy_EZA_BEAnteilZLAVUV (" & str & ") VALUES(" & values & ") ") 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 Return "" End Function @@ -1684,7 +1692,7 @@ Public Class cDakosy_EZA_SumABeendigungsAnteil Property ezaBa_VerwahrerEORI As Object = Nothing Property ezaBa_SpezifOrdnungsbegriffArt As Object = Nothing Property ezaBa_SpezifOrdnungsbegriff As Object = Nothing - + 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_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_SpezifOrdnungsbegriff", ezaBa_SpezifOrdnungsbegriff)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaBa_SpezifOrdnungsbegriff", ezaBa_SpezifOrdnungsbegriff)) Return list @@ -1731,7 +1739,7 @@ Public Class cDakosy_EZA_SumABeendigungsAnteil values = values.Substring(0, values.Length - 1) 'wg. ',' Return (" INSERT INTO tblDakosy_EZA_SumABeendigungsAnteil (" & str & ") VALUES(" & values & ") ") 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 Return "" End Function @@ -1889,7 +1897,7 @@ Public Class cDakosy_EZA_Warenposition 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_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_Artikelnummer", ezaWP_Artikelnummer)) ' VARCHAR (35) NULL, @@ -2037,7 +2045,7 @@ Public Class cDakosy_EZA_Warenposition values = values.Substring(0, values.Length - 1) 'wg. ',' Return (" INSERT INTO tblDakosy_EZA_Warenposition (" & str & ") VALUES(" & values & ") ") 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 Return "" End Function @@ -2115,7 +2123,7 @@ Public Class cDakosy_EZA_Warenposition End Using End Using 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 Sub @@ -2142,7 +2150,7 @@ Public Class cDakosy_EZA_Warenposition End Using End Using 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 Sub @@ -2169,7 +2177,7 @@ Public Class cDakosy_EZA_Warenposition End Using End Using 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 Sub @@ -2251,7 +2259,7 @@ Public Class cDakosy_EZA_WarenpositionSonderfalldaten values = values.Substring(0, values.Length - 1) 'wg. ',' Return (" INSERT INTO tblDakosy_EZA_WarenpositionSonderfalldaten (" & str & ") VALUES(" & values & ") ") 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 Return "" End Function @@ -2320,7 +2328,7 @@ Public Class cDakosy_EZA_WarenpositionVorgelegteUnterlagen values = values.Substring(0, values.Length - 1) 'wg. ',' Return (" INSERT INTO tblDakosy_EZA_WarenpositionUnterlagen (" & str & ") VALUES(" & values & ") ") 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 Return "" End Function @@ -2384,7 +2392,7 @@ Public Class cDakosy_EZA_WarenpositionVerbrauchssteuer values = values.Substring(0, values.Length - 1) 'wg. ',' Return (" INSERT INTO tblDakosy_EZA_WarenpositionVerbrauchssteuer (" & str & ") VALUES(" & values & ") ") 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 Return "" End Function diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/GenerellesErgebnis/GenerellesEreignis_005.Designer.vb b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/GenerellesErgebnis/GenerellesEreignis_005.Designer.vb new file mode 100644 index 0000000..79af823 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/GenerellesErgebnis/GenerellesEreignis_005.Designer.vb @@ -0,0 +1,1475 @@ +'' ------------------------------------------------------------------------------ +'' +'' Generated by Xsd2Code++. Version 6.0.0.0. www.xsd2code.com +'' {"TargetFramework":"Net47","NameSpace":"GenerellesEreignis005","Language":"VisualBasic","Properties":{},"XmlAttribute":{"Enabled":true},"ClassParams":{},"Serialization":{"ShouldSerialize":{},"AdditionalSerializers":{},"XmlSerializerEvent":{},"XmlOutput":{},"JsonOutput":{},"Enabled":true},"Miscellaneous":{}} +'' +'' ------------------------------------------------------------------------------ +#Disable Warning +Imports System +Imports System.Diagnostics +Imports System.Xml.Serialization +Imports System.Runtime.Serialization +Imports System.Collections +Imports System.Xml.Schema +Imports System.ComponentModel +Imports System.Xml +Imports System.IO +Imports System.Text +Imports System.Collections.Generic + +Namespace GenerellesEreignis005 + + + Partial Public Class GenerellesEreignisGETyp + Inherits DatenaustauschAllgemeinTyp + +#Region "Private fields" + Private _einzelEreignisObjekt As List(Of EinzelEreignisTyp) + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._einzelEreignisObjekt = New List(Of EinzelEreignisTyp)() + End Sub + + + Public Property EinzelEreignisObjekt() As List(Of EinzelEreignisTyp) + Get + Return Me._einzelEreignisObjekt + End Get + Set + Me._einzelEreignisObjekt = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(GenerellesEreignisGETyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize GenerellesEreignisGETyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes GenerellesEreignisGETyp object + ''' + ''' string to deserialize + ''' Output GenerellesEreignisGETyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As GenerellesEreignisGETyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, GenerellesEreignisGETyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As GenerellesEreignisGETyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As GenerellesEreignisGETyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), GenerellesEreignisGETyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As GenerellesEreignisGETyp + Return CType(SerializerXml.Deserialize(s), GenerellesEreignisGETyp) + End Function +#End Region + + ''' + ''' Serializes current GenerellesEreignisGETyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an GenerellesEreignisGETyp object + ''' + ''' File to load and deserialize + ''' Output GenerellesEreignisGETyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As GenerellesEreignisGETyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, GenerellesEreignisGETyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As GenerellesEreignisGETyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As GenerellesEreignisGETyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class EinzelEreignisTyp + +#Region "Private fields" + Private _objektIdentifizierung As ObjektIdentifizierungGETyp + + Private _kopfDaten As List(Of KopfDatenEreignisTyp) + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._kopfDaten = New List(Of KopfDatenEreignisTyp)() + Me._objektIdentifizierung = New ObjektIdentifizierungGETyp() + End Sub + + + Public Property ObjektIdentifizierung() As ObjektIdentifizierungGETyp + Get + Return Me._objektIdentifizierung + End Get + Set + Me._objektIdentifizierung = Value + End Set + End Property + + + Public Property KopfDaten() As List(Of KopfDatenEreignisTyp) + Get + Return Me._kopfDaten + End Get + Set + Me._kopfDaten = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(EinzelEreignisTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize EinzelEreignisTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes EinzelEreignisTyp object + ''' + ''' string to deserialize + ''' Output EinzelEreignisTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelEreignisTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelEreignisTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelEreignisTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As EinzelEreignisTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), EinzelEreignisTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As EinzelEreignisTyp + Return CType(SerializerXml.Deserialize(s), EinzelEreignisTyp) + End Function +#End Region + + ''' + ''' Serializes current EinzelEreignisTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an EinzelEreignisTyp object + ''' + ''' File to load and deserialize + ''' Output EinzelEreignisTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelEreignisTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelEreignisTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelEreignisTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As EinzelEreignisTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class ObjektIdentifizierungGETyp + +#Region "Private fields" + Private _objektName As String + + Private _objektAlias As String + + Private _objektAntragArt As String + + Private _eDIFACTNachrichtenNr As String + + Private _zeitpunktEingang As Date + + Private _ereignisgewichtung As String + + Private _meldestelle As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property ObjektName() As String + Get + Return Me._objektName + End Get + Set + Me._objektName = Value + End Set + End Property + + + Public Property ObjektAlias() As String + Get + Return Me._objektAlias + End Get + Set + Me._objektAlias = Value + End Set + End Property + + + Public Property ObjektAntragArt() As String + Get + Return Me._objektAntragArt + End Get + Set + Me._objektAntragArt = Value + End Set + End Property + + + Public Property EDIFACTNachrichtenNr() As String + Get + Return Me._eDIFACTNachrichtenNr + End Get + Set + Me._eDIFACTNachrichtenNr = Value + End Set + End Property + + + Public Property ZeitpunktEingang() As Date + Get + Return Me._zeitpunktEingang + End Get + Set + Me._zeitpunktEingang = Value + End Set + End Property + + + Public Property Ereignisgewichtung() As String + Get + Return Me._ereignisgewichtung + End Get + Set + Me._ereignisgewichtung = Value + End Set + End Property + + + Public Property Meldestelle() As String + Get + Return Me._meldestelle + End Get + Set + Me._meldestelle = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ObjektIdentifizierungGETyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize ObjektIdentifizierungGETyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes ObjektIdentifizierungGETyp object + ''' + ''' string to deserialize + ''' Output ObjektIdentifizierungGETyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungGETyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungGETyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungGETyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ObjektIdentifizierungGETyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ObjektIdentifizierungGETyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As ObjektIdentifizierungGETyp + Return CType(SerializerXml.Deserialize(s), ObjektIdentifizierungGETyp) + End Function +#End Region + + ''' + ''' Serializes current ObjektIdentifizierungGETyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an ObjektIdentifizierungGETyp object + ''' + ''' File to load and deserialize + ''' Output ObjektIdentifizierungGETyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungGETyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungGETyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungGETyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ObjektIdentifizierungGETyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class EreignisGETyp + +#Region "Private fields" + Private _positionsnummer As String + + Private _ereignisCode As String + + Private _ereignismitteilung As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property Positionsnummer() As String + Get + Return Me._positionsnummer + End Get + Set + Me._positionsnummer = Value + End Set + End Property + + + Public Property EreignisCode() As String + Get + Return Me._ereignisCode + End Get + Set + Me._ereignisCode = Value + End Set + End Property + + + Public Property Ereignismitteilung() As String + Get + Return Me._ereignismitteilung + End Get + Set + Me._ereignismitteilung = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(EreignisGETyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize EreignisGETyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes EreignisGETyp object + ''' + ''' string to deserialize + ''' Output EreignisGETyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EreignisGETyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EreignisGETyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EreignisGETyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As EreignisGETyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), EreignisGETyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As EreignisGETyp + Return CType(SerializerXml.Deserialize(s), EreignisGETyp) + End Function +#End Region + + ''' + ''' Serializes current EreignisGETyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an EreignisGETyp object + ''' + ''' File to load and deserialize + ''' Output EreignisGETyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EreignisGETyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EreignisGETyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EreignisGETyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As EreignisGETyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class KopfDatenEreignisTyp + +#Region "Private fields" + Private _registrierdatum As Date + + Private _registrierNrATLAS As String + + Private _ereignis As List(Of EreignisGETyp) + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._ereignis = New List(Of EreignisGETyp)() + End Sub + + + Public Property Registrierdatum() As Date + Get + Return Me._registrierdatum + End Get + Set + Me._registrierdatum = Value + End Set + End Property + + + Public Property RegistrierNrATLAS() As String + Get + Return Me._registrierNrATLAS + End Get + Set + Me._registrierNrATLAS = Value + End Set + End Property + + + Public Property Ereignis() As List(Of EreignisGETyp) + Get + Return Me._ereignis + End Get + Set + Me._ereignis = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(KopfDatenEreignisTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize KopfDatenEreignisTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes KopfDatenEreignisTyp object + ''' + ''' string to deserialize + ''' Output KopfDatenEreignisTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenEreignisTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfDatenEreignisTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenEreignisTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As KopfDatenEreignisTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), KopfDatenEreignisTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As KopfDatenEreignisTyp + Return CType(SerializerXml.Deserialize(s), KopfDatenEreignisTyp) + End Function +#End Region + + ''' + ''' Serializes current KopfDatenEreignisTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an KopfDatenEreignisTyp object + ''' + ''' File to load and deserialize + ''' Output KopfDatenEreignisTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KopfDatenEreignisTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfDatenEreignisTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KopfDatenEreignisTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As KopfDatenEreignisTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class TransaktionAllgemeinTyp + +#Region "Private fields" + Private _iOPartner As String + + Private _iODivision1 As String + + Private _iODivision2 As String + + Private _iODivision3 As String + + Private _iOReferenz As String + + Private _iODatumZeit As Date + + Private _version As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property IOPartner() As String + Get + Return Me._iOPartner + End Get + Set + Me._iOPartner = Value + End Set + End Property + + + Public Property IODivision1() As String + Get + Return Me._iODivision1 + End Get + Set + Me._iODivision1 = Value + End Set + End Property + + + Public Property IODivision2() As String + Get + Return Me._iODivision2 + End Get + Set + Me._iODivision2 = Value + End Set + End Property + + + Public Property IODivision3() As String + Get + Return Me._iODivision3 + End Get + Set + Me._iODivision3 = Value + End Set + End Property + + + Public Property IOReferenz() As String + Get + Return Me._iOReferenz + End Get + Set + Me._iOReferenz = Value + End Set + End Property + + + Public Property IODatumZeit() As Date + Get + Return Me._iODatumZeit + End Get + Set + Me._iODatumZeit = Value + End Set + End Property + + + Public Property Version() As String + Get + Return Me._version + End Get + Set + Me._version = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TransaktionAllgemeinTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize TransaktionAllgemeinTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes TransaktionAllgemeinTyp object + ''' + ''' string to deserialize + ''' Output TransaktionAllgemeinTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionAllgemeinTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TransaktionAllgemeinTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionAllgemeinTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As TransaktionAllgemeinTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TransaktionAllgemeinTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As TransaktionAllgemeinTyp + Return CType(SerializerXml.Deserialize(s), TransaktionAllgemeinTyp) + End Function +#End Region + + ''' + ''' Serializes current TransaktionAllgemeinTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TransaktionAllgemeinTyp object + ''' + ''' File to load and deserialize + ''' Output TransaktionAllgemeinTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransaktionAllgemeinTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TransaktionAllgemeinTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransaktionAllgemeinTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As TransaktionAllgemeinTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class DatenaustauschAllgemeinTyp + +#Region "Private fields" + Private _transaktion As TransaktionAllgemeinTyp + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._transaktion = New TransaktionAllgemeinTyp() + End Sub + + + Public Property Transaktion() As TransaktionAllgemeinTyp + Get + Return Me._transaktion + End Get + Set + Me._transaktion = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(DatenaustauschAllgemeinTyp)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize DatenaustauschAllgemeinTyp object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes DatenaustauschAllgemeinTyp object + ''' + ''' string to deserialize + ''' Output DatenaustauschAllgemeinTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschAllgemeinTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DatenaustauschAllgemeinTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschAllgemeinTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DatenaustauschAllgemeinTyp + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), DatenaustauschAllgemeinTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As DatenaustauschAllgemeinTyp + Return CType(SerializerXml.Deserialize(s), DatenaustauschAllgemeinTyp) + End Function +#End Region + + ''' + ''' Serializes current DatenaustauschAllgemeinTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an DatenaustauschAllgemeinTyp object + ''' + ''' File to load and deserialize + ''' Output DatenaustauschAllgemeinTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DatenaustauschAllgemeinTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DatenaustauschAllgemeinTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DatenaustauschAllgemeinTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As DatenaustauschAllgemeinTyp + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class +End Namespace +#Enable Warning diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/GenerellesErgebnis/GenerellesEreignis_005.xsd b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/GenerellesErgebnis/GenerellesEreignis_005.xsd new file mode 100644 index 0000000..1c82317 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/GenerellesErgebnis/GenerellesEreignis_005.xsd @@ -0,0 +1,107 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/cDakosyNCTSOut.vb b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/cDakosyNCTSOut.vb index 92c2c61..efcf6ee 100644 --- a/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/cDakosyNCTSOut.vb +++ b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/cDakosyNCTSOut.vb @@ -978,10 +978,10 @@ Public Class cDakosyNCTSOut 'SPEDITIONSBUCH.Abfertigungsdatum= 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) - If AD IsNot Nothing Then + Dim AD = getAdresseFromEORI(DY.ncts_SumA_Versender_EORI, DY.ncts_SumA_Versender_NLNR, SQL, DY.ncts_firma) + If AD IsNot Nothing Then SPEDITIONSBUCH.AbsenderKundenNr = AD.AdressenNr SPEDITIONSBUCH.Absender = AD.Ordnungsbegriff End If @@ -993,8 +993,8 @@ Public Class cDakosyNCTSOut SPEDITIONSBUCH.Absender &= " " & If(DY.ncts_SumA_Versender_Ort, "") ElseIf DY.ncts_WARENPOS.Count > 0 Then Dim WP = DY.ncts_WARENPOS(0) - Dim AD_pos = getAdresseFromEORI(WP.nctsWP_SumAVersender_EORI, WP.nctsWP_SumAVersender_NLNR, SQL) - If AD_pos IsNot Nothing Then + Dim AD_pos = getAdresseFromEORI(WP.nctsWP_SumAVersender_EORI, WP.nctsWP_SumAVersender_NLNR, SQL, DY.ncts_firma) + If AD_pos IsNot Nothing Then SPEDITIONSBUCH.AbsenderKundenNr = AD_pos.AdressenNr SPEDITIONSBUCH.Absender = AD_pos.Ordnungsbegriff End If @@ -1011,8 +1011,8 @@ Public Class cDakosyNCTSOut End If - Dim AD2 = getAdresseFromEORI(DY.ncts_SumA_Empfaenger_EORI, DY.ncts_SumA_Empfaenger_NLNR, SQL) - If AD2 IsNot Nothing Then + Dim AD2 = getAdresseFromEORI(DY.ncts_SumA_Empfaenger_EORI, DY.ncts_SumA_Empfaenger_NLNR, SQL, DY.ncts_firma) + If AD2 IsNot Nothing Then SPEDITIONSBUCH.EmpfängerKundenNr = AD2.AdressenNr SPEDITIONSBUCH.Empfänger = AD2.Ordnungsbegriff End If @@ -1024,8 +1024,8 @@ Public Class cDakosyNCTSOut SPEDITIONSBUCH.Empfänger &= " " & If(DY.ncts_SumA_Empfaenger_Ort, "") ElseIf DY.ncts_WARENPOS.Count > 0 Then Dim WP = DY.ncts_WARENPOS(0) - Dim AD_pos = getAdresseFromEORI(WP.nctsWP_SumAEmpfaenger_EORI, WP.nctsWP_SumAEmpfaenger_NLNR, SQL) - If AD_pos IsNot Nothing Then + Dim AD_pos = getAdresseFromEORI(WP.nctsWP_SumAEmpfaenger_EORI, WP.nctsWP_SumAEmpfaenger_NLNR, SQL, DY.ncts_firma) + If AD_pos IsNot Nothing Then SPEDITIONSBUCH.EmpfängerKundenNr = AD_pos.AdressenNr SPEDITIONSBUCH.Empfänger = AD_pos.Ordnungsbegriff End If @@ -1085,10 +1085,10 @@ Public Class cDakosyNCTSOut 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 If(EORI, "") <> "" Then - Dim kdNrTmp = SQL.getFMZOLLKdNrFromEORI(EORI, EORI_NL) + Dim kdNrTmp = SQL.getFMZOLLKdNrFromEORI(EORI, EORI_NL, Firma) If IsNumeric(kdNrTmp) Then Dim ADRESSE As New VERAG_PROG_ALLGEMEIN.cAdressen(kdNrTmp) Return ADRESSE diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/cDakosyNCTSOut004.vb b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/cDakosyNCTSOut004.vb index 507dc59..262a9a2 100644 --- a/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/cDakosyNCTSOut004.vb +++ b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/cDakosyNCTSOut004.vb @@ -1177,7 +1177,7 @@ Public Class cDakosyNCTSOut004 Public Function SAVE_Guarantee() As Boolean 'Zuserst alle OffertenPos von dem Offert löschen - If True Then ' DELETE_Guarantee() Then + If DELETE_Guarantee() Then 'jetzt die Standartofferten einfügen For Each p In ncts_GUARANTEE p.nctsGRT_NctsId = ncts_Id @@ -1447,7 +1447,7 @@ Public Class cDakosyNCTSOut004 SPEDITIONSBUCH.BelegNr = DY.ncts_MRN 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 SPEDITIONSBUCH.AbsenderKundenNr = AD.AdressenNr SPEDITIONSBUCH.Absender = AD.Ordnungsbegriff @@ -1460,7 +1460,7 @@ Public Class cDakosyNCTSOut004 SPEDITIONSBUCH.Absender &= " " & If(DY.ncts_Consignor_City, "") ElseIf DY.ncts_HOUSE_CONSIGNMENT.Count > 0 Then 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 SPEDITIONSBUCH.AbsenderKundenNr = AD_pos.AdressenNr SPEDITIONSBUCH.Absender = AD_pos.Ordnungsbegriff @@ -1478,7 +1478,7 @@ Public Class cDakosyNCTSOut004 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 SPEDITIONSBUCH.EmpfängerKundenNr = AD2.AdressenNr SPEDITIONSBUCH.Empfänger = AD2.Ordnungsbegriff @@ -1491,7 +1491,7 @@ Public Class cDakosyNCTSOut004 SPEDITIONSBUCH.Empfänger &= " " & If(DY.ncts_Consignee_City, "") ElseIf DY.ncts_HOUSE_CONSIGNMENT.Count > 0 Then 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 SPEDITIONSBUCH.EmpfängerKundenNr = AD_pos.AdressenNr SPEDITIONSBUCH.Empfänger = AD_pos.Ordnungsbegriff @@ -1562,10 +1562,10 @@ Public Class cDakosyNCTSOut004 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 If(EORI, "") <> "" Then - Dim kdNrTmp = SQL.getFMZOLLKdNrFromEORI(EORI, EORI_NL) + Dim kdNrTmp = SQL.getFMZOLLKdNrFromEORI(EORI, EORI_NL, Firma) If IsNumeric(kdNrTmp) Then Dim ADRESSE As New VERAG_PROG_ALLGEMEIN.cAdressen(kdNrTmp) Return ADRESSE diff --git a/DAKOSY_Worker/DAKOSY_Worker_lib.vbproj b/DAKOSY_Worker/DAKOSY_Worker_lib.vbproj index 5a6b430..48c89d0 100644 --- a/DAKOSY_Worker/DAKOSY_Worker_lib.vbproj +++ b/DAKOSY_Worker/DAKOSY_Worker_lib.vbproj @@ -132,6 +132,7 @@ + @@ -359,6 +360,9 @@ Designer + + Designer + Designer diff --git a/DAKOSY_Worker/cDY_Statusliste.vb b/DAKOSY_Worker/cDY_Statusliste.vb index f5a6988..003e4e8 100644 --- a/DAKOSY_Worker/cDY_Statusliste.vb +++ b/DAKOSY_Worker/cDY_Statusliste.vb @@ -39,6 +39,7 @@ Public Class cDY_Statusliste Shared Property S_20 As Integer = 20 ' Sendebestätigung 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_42 As Integer = 42 ' ERledigung Vorpapier?? Shared Property S_50 As Integer = 50 ' Überlassungsmeldung diff --git a/DAKOSY_Worker/cZOLL_IMPORT.vb b/DAKOSY_Worker/cZOLL_IMPORT.vb index 696a14f..63958ba 100644 --- a/DAKOSY_Worker/cZOLL_IMPORT.vb +++ b/DAKOSY_Worker/cZOLL_IMPORT.vb @@ -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 If(EORI, "") <> "" Then - Dim kdNrTmp = KDSQL.getFMZOLLKdNrFromEORI(EORI, EORI_NL) + Dim kdNrTmp = KDSQL.getFMZOLLKdNrFromEORI(EORI, EORI_NL, Firma) If IsNumeric(kdNrTmp) Then Dim ADRESSE As New VERAG_PROG_ALLGEMEIN.cAdressen(kdNrTmp) Return ADRESSE @@ -1742,7 +1742,7 @@ Public Class cZOLL_IMPORT Dim kdnr_tmp As String = "" 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 Not IsNull(zollNr) AndAlso IsNumeric(zollNr) AndAlso zollNr <> 0 Then kdnr_tmp = KDSQL.getATLASKdNrFromZollNr(zollNr) diff --git a/TELOTEK_Worker_lib/cTelokec.vb b/TELOTEK_Worker_lib/cTelokec.vb index 2802f15..e0f8823 100644 --- a/TELOTEK_Worker_lib/cTelokec.vb +++ b/TELOTEK_Worker_lib/cTelokec.vb @@ -762,7 +762,7 @@ Public Class cTelotec_Anmeldung 'Versender 'Verkäufer 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 SPEDITIONSBUCH.AbsenderKundenNr = AD.AdressenNr SPEDITIONSBUCH.Absender = AD.Ordnungsbegriff @@ -783,7 +783,7 @@ Public Class cTelotec_Anmeldung 'Empfänger 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 SPEDITIONSBUCH.EmpfängerKundenNr = AD.AdressenNr SPEDITIONSBUCH.Empfänger = AD.Ordnungsbegriff @@ -915,7 +915,7 @@ Public Class cTelotec_Anmeldung 'Versender 'Verkäufer 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 SPEDITIONSBUCH.AbsenderKundenNr = AD.AdressenNr SPEDITIONSBUCH.Absender = AD.Ordnungsbegriff @@ -936,7 +936,7 @@ Public Class cTelotec_Anmeldung 'Empfänger 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 SPEDITIONSBUCH.EmpfängerKundenNr = AD.AdressenNr SPEDITIONSBUCH.Empfänger = AD.Ordnungsbegriff @@ -1035,10 +1035,10 @@ Public Class cTelotec_Anmeldung 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 If(EORI, "") <> "" Then - Dim kdNrTmp = SQL.getFMZOLLKdNrFromEORI(EORI, EORI_NL) + Dim kdNrTmp = SQL.getFMZOLLKdNrFromEORI(EORI, EORI_NL, Firma) If IsNumeric(kdNrTmp) Then Dim ADRESSE As New VERAG_PROG_ALLGEMEIN.cAdressen(kdNrTmp) Return ADRESSE diff --git a/initATLASAufschubkonten/cGetMsgType.vb b/initATLASAufschubkonten/cGetMsgType.vb index d057c8b..eff00c1 100644 --- a/initATLASAufschubkonten/cGetMsgType.vb +++ b/initATLASAufschubkonten/cGetMsgType.vb @@ -537,9 +537,12 @@ Public Class cGetMsgType Return False 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.GetElementsByTagName("GenerellesEreignis").Count > 0 Then + If doc.GetElementsByTagName("Version").Count > 0 Then + version = doc.GetElementsByTagName("Version")(0).InnerText + End If Return True End If End If diff --git a/initATLASAufschubkonten/cWorker_NCTS.vb b/initATLASAufschubkonten/cWorker_NCTS.vb index bb64f8f..1844fa8 100644 --- a/initATLASAufschubkonten/cWorker_NCTS.vb +++ b/initATLASAufschubkonten/cWorker_NCTS.vb @@ -2177,10 +2177,10 @@ Public Class cWorker_NCTS saveDY_NCTS = NCTS_TMP 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 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 NCTS_TMP = New DAKOSY_Worker.cDakosyNCTSOut004 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 STATUS.SAVE() + + '=====ATEZ BEREITSTELLUNG========== + checkATEZ_Bereitstellung(DY_TMP, d) + '================================== + + FORM.addDGVEinarbeitung("NCTS: StatusmeldungNCTSDE", STATUS.dySt_BezugsNr) End If @@ -3806,7 +3812,7 @@ Public Class cWorker_NCTS STATUS.dySt_ergZeitpunkt = zp '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 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 @@ -3902,7 +3908,7 @@ Public Class cWorker_NCTS Shared Sub checkATEZ_Bereitstellung(DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen, filePath As String) If DY_TMP Is Nothing Then Exit Sub 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 < 40 Then Dim fio As New IO.FileInfo(filePath) diff --git a/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb b/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb index 2a76b4c..2cfa97e 100644 --- a/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb +++ b/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb @@ -5,6 +5,7 @@ Imports Renci.SshNet Imports System.Net.Mail Imports GrapeCity.Enterprise.Data.DataEngine.DataProcessing Imports DocumentFormat.OpenXml.Wordprocessing +Imports DAKOSY_Worker Public Class frmDYNachrichtenVerarbeitung Dim cntDatenEingelesen As Integer = 0 @@ -593,10 +594,12 @@ Public Class frmDYNachrichtenVerarbeitung '------------------ Diverse ------------------ '------------------------------------------ 'SONDERFALL: Betrifft div. Arten von Anmeldungen: GenerellesEreignis - If Not found And cGetMsgType.isNCTS_GenerellesEreignis(doc) Then - If readNCTS_GenerellesEreignis(d) Then - found = True - End If + If Not found And cGetMsgType.isNCTS_GenerellesEreignis(doc, VERSION) Then + Select Case VERSION + Case "005" : If readNCTS_GenerellesEreignis_005(d, statusTMP) Then found = True + Case Else : If readNCTS_GenerellesEreignis(d) Then found = True + End Select + End If @@ -823,6 +826,7 @@ Public Class frmDYNachrichtenVerarbeitung Function getVerahrensartFromBezugsNr(bezugsNr) As String 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_EZA WHERE eza_ObjectName='" & bezugsNr & "'", "FMZOLL") > 0 Then Return "EZA" Return "" @@ -1008,6 +1012,141 @@ Public Class frmDYNachrichtenVerarbeitung 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 'EINTRAG IN tblDakosyAESOut Dim AES_TMP As DAKOSY_Worker.cDakosyAES = Nothing diff --git a/initATLASAufschubkonten/frmStartOptions.vb b/initATLASAufschubkonten/frmStartOptions.vb index 1fcc167..6967610 100644 --- a/initATLASAufschubkonten/frmStartOptions.vb +++ b/initATLASAufschubkonten/frmStartOptions.vb @@ -3241,18 +3241,18 @@ Public Class frmStartOptions End If 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 SDL.GültigBis = DateAdd("d", -1, DateAdd("m", 1, DateSerial("20" & Mid(oRDR.GetValue("CardNumber"), 1, 2), Mid(Validto, 3, 2), 1))) End If - SDL.OBUID = SQl.checkNullStr(oRDR.GetValue("OBUID")) - SDL.Vertragsabschlussdatum = SQl.checkNullStr(oRDR.GetValue("DatumVertragsabschluss")) - SDL.Kategorie = SQl.checkNullStr(oRDR.GetValue("Kategorie")) - SDL.Schadstoffklasse = SQl.checkNullStr(oRDR.GetValue("Schadstoffklasse")) - SDL.Status = SQl.checkNullStr(oRDR.GetValue("Status")) + SDL.OBUID = SQL.checkNullStr(oRDR.GetValue("OBUID")) + SDL.Vertragsabschlussdatum = SQL.checkNullStr(oRDR.GetValue("DatumVertragsabschluss")) + SDL.Kategorie = SQL.checkNullStr(oRDR.GetValue("Kategorie")) + SDL.Schadstoffklasse = SQL.checkNullStr(oRDR.GetValue("Schadstoffklasse")) + SDL.Status = SQL.checkNullStr(oRDR.GetValue("Status")) SDL.SAVE() End If @@ -3298,19 +3298,19 @@ Public Class frmStartOptions End If 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 '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! End If - SDL.OBUID = SQl.checkNullStr(row.Item("OBUID")) - SDL.Vertragsabschlussdatum = SQl.checkNullStr(row.Item("contractDate")) - SDL.Kategorie = SQl.checkNullStr(row.Item("vehicleCategory")) - SDL.Schadstoffklasse = SQl.checkNullStr(row.Item("emissionCategory")) - SDL.Status = SQl.checkNullStr(row.Item("status")) + SDL.OBUID = SQL.checkNullStr(row.Item("OBUID")) + SDL.Vertragsabschlussdatum = SQL.checkNullStr(row.Item("contractDate")) + SDL.Kategorie = SQL.checkNullStr(row.Item("vehicleCategory")) + SDL.Schadstoffklasse = SQL.checkNullStr(row.Item("emissionCategory")) + SDL.Status = SQL.checkNullStr(row.Item("status")) SDL.SAVE() End If