diff --git a/cNCTSPartnerWorker/NCTSPartnerWorker.vbproj b/cNCTSPartnerWorker/NCTSPartnerWorker.vbproj index ae8cb50..fec87b5 100644 --- a/cNCTSPartnerWorker/NCTSPartnerWorker.vbproj +++ b/cNCTSPartnerWorker/NCTSPartnerWorker.vbproj @@ -65,7 +65,6 @@ - diff --git a/cNCTSPartnerWorker/cNCTS_TR.vb b/cNCTSPartnerWorker/cNCTS_TR.vb deleted file mode 100644 index 9ab1f86..0000000 --- a/cNCTSPartnerWorker/cNCTS_TR.vb +++ /dev/null @@ -1,1488 +0,0 @@ -Imports System.Data.SqlClient -Imports System.Reflection - -Public Class cNCTS_TR - - Property ncts_Id As Integer - Property ncts_Partnersystem As Object = Nothing 'DAKOSY_Worker.cDY_Statusliste.S_00 - Property ncts_Status As Object = Nothing ' DAKOSY_Worker.cDY_Statusliste.S_00 - Property ncts_Status_KEWILL_Equivalent As Object = Nothing 'DAKOSY_Worker.cDY_Statusliste.S_00 - Property ncts_dyaArt As String = "" - Property ncts_dyaAnmID As Integer - - Property ncts_ANR As Object = Nothing - Property ncts_MRN As Object = Nothing - - Property ncts_Erstellung As DateTime = Now - Property ncts_Erstellung_SB As Object = Nothing - Property ncts_LetzteBearbeitung As DateTime = Now - Property ncts_LetzteBearbeitung_SB As Object = Nothing - Property ncts_firma As Object = Nothing - Property ncts_niederlassung As Object = Nothing - - - Property ncts_Gestellt As Boolean = False - Property ncts_GestelltAm As Object = Nothing - Property ncts_Trans_Partner As Object = Nothing - Property ncts_Trans_Div1 As Object = Nothing - Property ncts_Trans_Div2 As Object = Nothing - Property ncts_Trans_Div3 As Object = Nothing - Property ncts_Trans_Referenz As Object = Nothing - Property ncts_Trans_DatumZeit As DateTime = Now - Property ncts_Trans_Version As Object = Nothing - Property ncts_NachrichtenSenderTIN As Object = Nothing - Property ncts_NachrichtenSenderNLNR As Object = Nothing - Property ncts_NachrichtenempfaengerDST As Object = Nothing - - Property ncts_ObjectName As Object = Nothing - Property ncts_ObjectAlias As Object = Nothing - Property ncts_BezugsnummerVorblendung As Object = Nothing - Property ncts_Bearbeiter As Object = Nothing - Property ncts_VersendungsLandCode As Object = Nothing - Property ncts_BestimmungslandCode As Object = Nothing - Property ncts_ArtAnmeldung As Object = Nothing - Property ncts_BeladungsOrt As Object = Nothing - - Property ncts_DurchgangszollstelleDienststellnummer1 As Object = Nothing - Property ncts_DurchgangszollstelleDienststellnummer2 As Object = Nothing - Property ncts_DurchgangszollstelleDienststellnummer3 As Object = Nothing - Property ncts_DurchgangszollstelleDienststellnummer4 As Object = Nothing - Property ncts_DurchgangszollstelleDienststellnummer5 As Object = Nothing - Property ncts_DurchgangszollstelleDienststellnummer6 As Object = Nothing - Property ncts_DurchgangszollstelleDienststellnummer7 As Object = Nothing - Property ncts_DurchgangszollstelleDienststellnummer8 As Object = Nothing - Property ncts_DurchgangszollstelleDienststellnummer9 As Object = Nothing - - Property ncts_BestimmungsstelleDienststellennummer As Object = Nothing - Property ncts_AbgangsDienststellennummer As Object = Nothing - Property ncts_Wiedergestellungsdatum As Object = Nothing - Property ncts_KzVereinfachtesVerfahren As Object = Nothing - Property ncts_GesamtRohmasse As Object = Nothing - Property ncts_GesamtAnzahlPackstuecke As Object = Nothing - Property ncts_Verschluss_ArtCode As Object = Nothing - Property ncts_Verschluss_Anzahl As Object = Nothing - Property ncts_Verschluss_Zeichen1 As Object = Nothing - Property ncts_Verschluss_Zeichen2 As Object = Nothing - Property ncts_Verschluss_Zeichen3 As Object = Nothing - Property ncts_Verschluss_Zeichen4 As Object = Nothing - Property ncts_Verschluss_Zeichen5 As Object = Nothing - Property ncts_Verschluss_Zeichen6 As Object = Nothing - Property ncts_Verschluss_Zeichen7 As Object = Nothing - Property ncts_Verschluss_Zeichen8 As Object = Nothing - Property ncts_Verschluss_Zeichen9 As Object = Nothing - Property ncts_Verschluss_Zeichen10 As Object = Nothing - Property ncts_Verschluss_Zeichen11 As Object = Nothing - Property ncts_Verschluss_Zeichen12 As Object = Nothing - Property ncts_Verschluss_Zeichen13 As Object = Nothing - Property ncts_Verschluss_Zeichen14 As Object = Nothing - Property ncts_Verschluss_Zeichen15 As Object = Nothing - Property ncts_Verschluss_Zeichen16 As Object = Nothing - Property ncts_Befoerderungsmittel_KennzeichenAbgang As Object = Nothing - Property ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode As Object = Nothing - Property ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent As Object = Nothing - Property ncts_Befoerderungsmittel_ArtGrenzueberschreitung As Object = Nothing - Property ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend As Object = Nothing - Property ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode As Object = Nothing - Property ncts_Versender_EORI As Object = Nothing - Property ncts_Versender_NLNR As Object = Nothing - Property ncts_Versender_TIN As Object = Nothing - Property ncts_Versender_Name As Object = Nothing - Property ncts_Versender_StrasseHausnummer As Object = Nothing - Property ncts_Versender_Ort As Object = Nothing - Property ncts_Versender_PLZ As Object = Nothing - Property ncts_Versender_Land As Object = Nothing - Property ncts_Empfaenger_EORI As Object = Nothing - Property ncts_Empfaenger_NLNR As Object = Nothing - Property ncts_Empfaenger_TIN As Object = Nothing - Property ncts_Empfaenger_Name As Object = Nothing - Property ncts_Empfaenger_StrasseHausnummer As Object = Nothing - Property ncts_Empfaenger_Ort As Object = Nothing - Property ncts_Empfaenger_PLZ As Object = Nothing - Property ncts_Empfaenger_Land As Object = Nothing - Property ncts_Hauptverpflichteter_EORI As Object = Nothing - Property ncts_Hauptverpflichteter_NLNR As Object = Nothing - Property ncts_Hauptverpflichteter_TIN As Object = Nothing - Property ncts_Hauptverpflichteter_Name As Object = Nothing - Property ncts_Hauptverpflichteter_StrasseHausnummer As Object = Nothing - Property ncts_Hauptverpflichteter_Ort As Object = Nothing - Property ncts_Hauptverpflichteter_PLZ As Object = Nothing - Property ncts_Hauptverpflichteter_Land As Object = Nothing - Property ncts_ZugelassenerEmpfaenger_IDCarnet As Object = Nothing - Property ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender As Object = Nothing - Property ncts_ZugelassenerEmpfaenger_EORI As Object = Nothing - Property ncts_ZugelassenerEmpfaenger_TIN As Object = Nothing - - Property ncts_SumA_KzSumASicherheit As Object = Nothing - Property ncts_SumA_KennnummerSendung As Object = Nothing - Property ncts_SumA_BesondereUmstaende As Object = Nothing - Property ncts_SumA_NummerBefoerderung As Object = Nothing - Property ncts_SumA_Ladeort As Object = Nothing - Property ncts_SumA_Entladeort As Object = Nothing - Property ncts_SumA_BefoerderungskostenZahlungsweise As Object = Nothing - Property ncts_SumA_BefoerderungsrouteLand1 As Object = Nothing - Property ncts_SumA_BefoerderungsrouteLand2 As Object = Nothing - Property ncts_SumA_BefoerderungsrouteLand3 As Object = Nothing - Property ncts_SumA_BefoerderungsrouteLand4 As Object = Nothing - Property ncts_SumA_BefoerderungsrouteLand5 As Object = Nothing - Property ncts_SumA_BefoerderungsrouteLand6 As Object = Nothing - Property ncts_SumA_BefoerderungsrouteLand7 As Object = Nothing - Property ncts_SumA_BefoerderungsrouteLand8 As Object = Nothing - Property ncts_SumA_BefoerderungsrouteLand9 As Object = Nothing - Property ncts_SumA_BefoerderungsrouteLand10 As Object = Nothing - Property ncts_SumA_BefoerderungsrouteLand11 As Object = Nothing - Property ncts_SumA_BefoerderungsrouteLand12 As Object = Nothing - Property ncts_SumA_Versender_EORI As Object = Nothing - Property ncts_SumA_Versender_NLNR As Object = Nothing - Property ncts_SumA_Versender_TIN As Object = Nothing - Property ncts_SumA_Versender_Name As Object = Nothing - Property ncts_SumA_Versender_StrasseHausnummer As Object = Nothing - Property ncts_SumA_Versender_Land As Object = Nothing - Property ncts_SumA_Versender_PLZ As Object = Nothing - Property ncts_SumA_Versender_Ort As Object = Nothing - - Property ncts_SumA_Empfaenger_EORI As Object = Nothing - Property ncts_SumA_Empfaenger_NLNR As Object = Nothing - Property ncts_SumA_Empfaenger_TIN As Object = Nothing - Property ncts_SumA_Empfaenger_Name As Object = Nothing - Property ncts_SumA_Empfaenger_StrasseHausnummer As Object = Nothing - Property ncts_SumA_Empfaenger_Land As Object = Nothing - Property ncts_SumA_Empfaenger_PLZ As Object = Nothing - Property ncts_SumA_Empfaenger_Ort As Object = Nothing - - Property ncts_SumA_Befoerderer_EORI As Object = Nothing - Property ncts_SumA_Befoerderer_NLNR As Object = Nothing - Property ncts_SumA_Befoerderer_TIN As Object = Nothing - Property ncts_SumA_Befoerderer_Name As Object = Nothing - Property ncts_SumA_Befoerderer_StrasseHausnummer As Object = Nothing - Property ncts_SumA_Befoerderer_Land As Object = Nothing - Property ncts_SumA_Befoerderer_PLZ As Object = Nothing - Property ncts_SumA_Befoerderer_Ort As Object = Nothing - Property ncts_Stammreferenz As Object = Nothing - - Property ncts_GUID As Object = Nothing - Property ncts_Eroeffnung As Object = Nothing - Property ncts_Ankunft As Object = Nothing - Property ncts_Erledigung As Object = Nothing - Property ncts_AVISO_einarbeitet As Boolean = False - - Property ncts_SICHERHEITSANGABEN As New List(Of cNCTS_TR_Sicherheitsangaben) - Property ncts_WARENPOS As New List(Of cNCTS_TR_Warenposition) - - - Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL - - - Function GET_SHIPMENTS(Partnersystem, VorpapierArt, VorpapierNr) As List(Of VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_FULL) - GET_SHIPMENTS = New List(Of VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_FULL) - Dim dt = SQL.loadDgvBySql("Select [shTr_id] FROM [tblTR_Shipment] where shTr_Partnersystem='" & Partnersystem & "' AND [PrePaperCode]='" & VorpapierArt & "' and [PrePaperNr]='" & VorpapierNr & "'", "FMZOLL") - ' MsgBox("Select [shTr_id] FROM [tblTR_Shipment] where shTr_Partnersystem='" & Partnersystem & "' AND [PrePaperCode]='" & VorpapierArt & "' and [PrePaperNr]='" & VorpapierNr & "'") - If dt IsNot Nothing Then - For Each r In dt.Rows - Dim SH As New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_FULL(CInt(r("shTr_id"))) - If SH IsNot Nothing Then - GET_SHIPMENTS.Add(SH) - End If - Next - End If - - End Function - - Sub New() - - End Sub - - Sub New(ncts_dyaAnmID As Integer, ncts_Erstellung_SB As Integer) - Me.ncts_dyaAnmID = ncts_dyaAnmID - Me.ncts_Erstellung_SB = ncts_Erstellung_SB - Me.ncts_LetzteBearbeitung_SB = ncts_Erstellung_SB - End Sub - - Sub New(ncts_Id) - Me.ncts_Id = ncts_Id - LOAD() - End Sub - - Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) - Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Id", ncts_Id, , True, True)) - - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Partnersystem", ncts_Partnersystem)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Status", ncts_Status)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Status_KEWILL_Equivalent", ncts_Status_KEWILL_Equivalent)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_dyaArt", ncts_dyaArt)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_dyaAnmID", ncts_dyaAnmID)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ANR", ncts_ANR)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_MRN", ncts_MRN)) - - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Erstellung", ncts_Erstellung)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Erstellung_SB", ncts_Erstellung_SB)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_LetzteBearbeitung", ncts_LetzteBearbeitung)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_LetzteBearbeitung_SB", ncts_LetzteBearbeitung_SB)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_firma", ncts_firma)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_niederlassung", ncts_niederlassung)) - - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Gestellt", ncts_Gestellt)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_GestelltAm", ncts_GestelltAm)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Trans_Partner", ncts_Trans_Partner)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Trans_Div1", ncts_Trans_Div1)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Trans_Div2", ncts_Trans_Div2)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Trans_Div3", ncts_Trans_Div3)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Trans_Referenz", ncts_Trans_Referenz)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Trans_DatumZeit", ncts_Trans_DatumZeit)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Trans_Version", ncts_Trans_Version)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_NachrichtenSenderTIN", ncts_NachrichtenSenderTIN)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_NachrichtenSenderNLNR", ncts_NachrichtenSenderNLNR)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_NachrichtenempfaengerDST", ncts_NachrichtenempfaengerDST)) - - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ObjectName", ncts_ObjectName)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ObjectAlias", ncts_ObjectAlias)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_BezugsnummerVorblendung", ncts_BezugsnummerVorblendung)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Bearbeiter", ncts_Bearbeiter)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_VersendungsLandCode", ncts_VersendungsLandCode)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_BestimmungslandCode", ncts_BestimmungslandCode)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ArtAnmeldung", ncts_ArtAnmeldung)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_BeladungsOrt", ncts_BeladungsOrt)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_DurchgangszollstelleDienststellnummer1", ncts_DurchgangszollstelleDienststellnummer1)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_DurchgangszollstelleDienststellnummer2", ncts_DurchgangszollstelleDienststellnummer2)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_DurchgangszollstelleDienststellnummer3", ncts_DurchgangszollstelleDienststellnummer3)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_DurchgangszollstelleDienststellnummer4", ncts_DurchgangszollstelleDienststellnummer4)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_DurchgangszollstelleDienststellnummer5", ncts_DurchgangszollstelleDienststellnummer5)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_DurchgangszollstelleDienststellnummer6", ncts_DurchgangszollstelleDienststellnummer6)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_DurchgangszollstelleDienststellnummer7", ncts_DurchgangszollstelleDienststellnummer7)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_DurchgangszollstelleDienststellnummer8", ncts_DurchgangszollstelleDienststellnummer8)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_DurchgangszollstelleDienststellnummer9", ncts_DurchgangszollstelleDienststellnummer9)) - - - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_BestimmungsstelleDienststellennummer", ncts_BestimmungsstelleDienststellennummer)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AbgangsDienststellennummer", ncts_AbgangsDienststellennummer)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Wiedergestellungsdatum", ncts_Wiedergestellungsdatum)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_KzVereinfachtesVerfahren", ncts_KzVereinfachtesVerfahren)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_GesamtRohmasse", ncts_GesamtRohmasse)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_GesamtAnzahlPackstuecke", ncts_GesamtAnzahlPackstuecke)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Verschluss_ArtCode", ncts_Verschluss_ArtCode)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Verschluss_Anzahl", ncts_Verschluss_Anzahl)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Verschluss_Zeichen1", ncts_Verschluss_Zeichen1)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Verschluss_Zeichen2", ncts_Verschluss_Zeichen2)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Verschluss_Zeichen3", ncts_Verschluss_Zeichen3)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Verschluss_Zeichen4", ncts_Verschluss_Zeichen4)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Verschluss_Zeichen5", ncts_Verschluss_Zeichen5)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Verschluss_Zeichen6", ncts_Verschluss_Zeichen6)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Verschluss_Zeichen7", ncts_Verschluss_Zeichen7)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Verschluss_Zeichen8", ncts_Verschluss_Zeichen8)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Verschluss_Zeichen9", ncts_Verschluss_Zeichen9)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Verschluss_Zeichen10", ncts_Verschluss_Zeichen10)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Verschluss_Zeichen11", ncts_Verschluss_Zeichen11)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Verschluss_Zeichen12", ncts_Verschluss_Zeichen12)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Verschluss_Zeichen13", ncts_Verschluss_Zeichen13)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Verschluss_Zeichen14", ncts_Verschluss_Zeichen14)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Verschluss_Zeichen15", ncts_Verschluss_Zeichen15)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Verschluss_Zeichen16", ncts_Verschluss_Zeichen16)) - - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Befoerderungsmittel_KennzeichenAbgang", ncts_Befoerderungsmittel_KennzeichenAbgang)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode", ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent", ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Befoerderungsmittel_ArtGrenzueberschreitung", ncts_Befoerderungsmittel_ArtGrenzueberschreitung)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend", ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode", ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Versender_EORI", ncts_Versender_EORI)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Versender_NLNR", ncts_Versender_NLNR)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Versender_TIN", ncts_Versender_TIN)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Versender_Name", ncts_Versender_Name)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Versender_StrasseHausnummer", ncts_Versender_StrasseHausnummer)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Versender_Ort", ncts_Versender_Ort)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Versender_PLZ", ncts_Versender_PLZ)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Versender_Land", ncts_Versender_Land)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Empfaenger_EORI", ncts_Empfaenger_EORI)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Empfaenger_NLNR", ncts_Empfaenger_NLNR)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Empfaenger_TIN", ncts_Empfaenger_TIN)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Empfaenger_Name", ncts_Empfaenger_Name)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Empfaenger_StrasseHausnummer", ncts_Empfaenger_StrasseHausnummer)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Empfaenger_Ort", ncts_Empfaenger_Ort)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Empfaenger_PLZ", ncts_Empfaenger_PLZ)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Empfaenger_Land", ncts_Empfaenger_Land)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Hauptverpflichteter_EORI", ncts_Hauptverpflichteter_EORI)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Hauptverpflichteter_NLNR", ncts_Hauptverpflichteter_NLNR)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Hauptverpflichteter_TIN", ncts_Hauptverpflichteter_TIN)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Hauptverpflichteter_Name", ncts_Hauptverpflichteter_Name)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Hauptverpflichteter_StrasseHausnummer", ncts_Hauptverpflichteter_StrasseHausnummer)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Hauptverpflichteter_Ort", ncts_Hauptverpflichteter_Ort)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Hauptverpflichteter_PLZ", ncts_Hauptverpflichteter_PLZ)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Hauptverpflichteter_Land", ncts_Hauptverpflichteter_Land)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ZugelassenerEmpfaenger_IDCarnet", ncts_ZugelassenerEmpfaenger_IDCarnet)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender", ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ZugelassenerEmpfaenger_EORI", ncts_ZugelassenerEmpfaenger_EORI)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ZugelassenerEmpfaenger_TIN", ncts_ZugelassenerEmpfaenger_TIN)) - - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_KzSumASicherheit", ncts_SumA_KzSumASicherheit)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_KennnummerSendung", ncts_SumA_KennnummerSendung)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_NummerBefoerderung", ncts_SumA_NummerBefoerderung)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_BesondereUmstaende", ncts_SumA_BesondereUmstaende)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Ladeort", ncts_SumA_Ladeort)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Entladeort", ncts_SumA_Entladeort)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_BefoerderungskostenZahlungsweise", ncts_SumA_BefoerderungskostenZahlungsweise)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_BefoerderungsrouteLand1", ncts_SumA_BefoerderungsrouteLand1)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_BefoerderungsrouteLand2", ncts_SumA_BefoerderungsrouteLand2)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_BefoerderungsrouteLand3", ncts_SumA_BefoerderungsrouteLand3)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_BefoerderungsrouteLand4", ncts_SumA_BefoerderungsrouteLand4)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_BefoerderungsrouteLand5", ncts_SumA_BefoerderungsrouteLand5)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_BefoerderungsrouteLand6", ncts_SumA_BefoerderungsrouteLand6)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_BefoerderungsrouteLand7", ncts_SumA_BefoerderungsrouteLand7)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_BefoerderungsrouteLand8", ncts_SumA_BefoerderungsrouteLand8)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_BefoerderungsrouteLand9", ncts_SumA_BefoerderungsrouteLand9)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_BefoerderungsrouteLand10", ncts_SumA_BefoerderungsrouteLand10)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_BefoerderungsrouteLand11", ncts_SumA_BefoerderungsrouteLand11)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_BefoerderungsrouteLand12", ncts_SumA_BefoerderungsrouteLand12)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Versender_EORI", ncts_SumA_Versender_EORI)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Versender_NLNR", ncts_SumA_Versender_NLNR)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Versender_TIN", ncts_SumA_Versender_TIN)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Versender_Name", ncts_SumA_Versender_Name)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Versender_StrasseHausnummer", ncts_SumA_Versender_StrasseHausnummer)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Versender_Land", ncts_SumA_Versender_Land)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Versender_PLZ", ncts_SumA_Versender_PLZ)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Versender_Ort", ncts_SumA_Versender_Ort)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Empfaenger_EORI", ncts_SumA_Empfaenger_EORI)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Empfaenger_NLNR", ncts_SumA_Empfaenger_NLNR)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Empfaenger_TIN", ncts_SumA_Empfaenger_TIN)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Empfaenger_Name", ncts_SumA_Empfaenger_Name)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Empfaenger_StrasseHausnummer", ncts_SumA_Empfaenger_StrasseHausnummer)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Empfaenger_Land", ncts_SumA_Empfaenger_Land)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Empfaenger_PLZ", ncts_SumA_Empfaenger_PLZ)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Empfaenger_Ort", ncts_SumA_Empfaenger_Ort)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Befoerderer_EORI", ncts_SumA_Befoerderer_EORI)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Befoerderer_NLNR", ncts_SumA_Befoerderer_NLNR)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Befoerderer_TIN", ncts_SumA_Befoerderer_TIN)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Befoerderer_Name", ncts_SumA_Befoerderer_Name)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Befoerderer_StrasseHausnummer", ncts_SumA_Befoerderer_StrasseHausnummer)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Befoerderer_Land", ncts_SumA_Befoerderer_Land)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Befoerderer_PLZ", ncts_SumA_Befoerderer_PLZ)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Befoerderer_Ort", ncts_SumA_Befoerderer_Ort)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Stammreferenz", ncts_Stammreferenz)) - - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_GUID", ncts_GUID)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Eroeffnung", ncts_Eroeffnung)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Ankunft", ncts_Ankunft)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Erledigung", ncts_Erledigung)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AVISO_einarbeitet", ncts_AVISO_einarbeitet)) - - Return list - End Function - - Public Function UPDATE_STATUS(status) As Boolean - Me.ncts_Status = status - Return Me.SAVE - End Function - - Public Function SAVE(Optional errHinweis = "") As Boolean - Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() - - Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblNCTS_TR WITH(updlock,serializable) WHERE ncts_Id=@ncts_Id) " & - " BEGIN " & getUpdateCmd() & " END " & - " Else " & - " BEGIN " & getInsertCmd() & " END " & - " commit tran " - - Dim ncts_IdTMP = ncts_Id - ncts_IdTMP = SQL.doSQLVarListID(ncts_IdTMP, sqlstr, "FMZOLL", , list, , errHinweis) - If ncts_Id <= 0 Then ncts_Id = ncts_IdTMP - Return ncts_Id > 0 - End Function - - Public Function SAVE_ALL(Optional errHinweis = "") As Boolean - If Not SAVE(errHinweis) Then Return False - If Not SAVE_Warenposition() Or Not SAVE_Sicherheitsangaben() Then Return False - - Return True - End Function - - Public Function LOAD(Optional loadALL As Boolean = True) As Boolean - Try - LOAD = False - If loadALL Then - ncts_SICHERHEITSANGABEN.Clear() - ncts_WARENPOS.Clear() - End If - Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() - Using cmd As New SqlCommand("SELECT * FROM tblNCTS_TR WHERE ncts_Id=@ncts_Id ", conn) - cmd.Parameters.AddWithValue("@ncts_Id", ncts_Id) - Dim dr = cmd.ExecuteReader() - If dr.Read Then - For Each l In getParameterList() - Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable) - - If dr.Item(l.Text) Is DBNull.Value Then - propInfo.SetValue(Me, Nothing) - Else - propInfo.SetValue(Me, dr.Item(l.Text)) - End If - - Next - If loadALL Then - LOAD_Sicherheitsangaben() - LOAD_Warenposition() - End If - LOAD = True - End If - dr.Close() - - 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) - End Try - Return LOAD - End Function - - - - - Shared Function LOADByAnmIDFull(ncts_dyaAnmID As String, loadALL As Boolean) As cNCTS_TR - Try - Dim NCTS As New cNCTS_TR - Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL - - Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() - Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblNCTS_TR WHERE ncts_dyaAnmID=@ncts_dyaAnmID ", conn) - cmd.Parameters.AddWithValue("@ncts_dyaAnmID", ncts_dyaAnmID) - Dim dr = cmd.ExecuteReader() - If dr.Read Then - For Each l In NCTS.getParameterList() - Dim propInfo As PropertyInfo = NCTS.GetType.GetProperty(l.Scalarvariable) - - If dr.Item(l.Text) Is DBNull.Value Then - propInfo.SetValue(NCTS, Nothing) - Else - propInfo.SetValue(NCTS, dr.Item(l.Text)) - End If - - Next - If loadALL Then - NCTS.LOAD_Sicherheitsangaben() - NCTS.LOAD_Warenposition() - End If - - dr.Close() - Return NCTS - End If - dr.Close() - 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) - End Try - Return Nothing - End Function - - Shared Function UPDATE_StatusById(ncts_Id As Integer, status As Integer) As String - If ncts_Id > 0 Then - Try - Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Id", ncts_Id, , True)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Status_KEWILL_Equivalent", status, , True)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Status", status, , True)) - 'dy_Status_KEWILL_Equivalent = status - 'dy_Status = status - Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL - - Return SQL.doSQLVarList(" UPDATE [tblNCTS_TR] SET ncts_Status_KEWILL_Equivalent=@ncts_Status_KEWILL_Equivalent,ncts_Status=@ncts_Status WHERE ncts_Id=@ncts_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) - End Try - End If - Return "" - End Function - - - Public Function LOADByAnmID(ncts_dyaAnmID As String, loadALL As Boolean) As Boolean - Try - LOADByAnmID = False - If loadALL Then - ncts_SICHERHEITSANGABEN.Clear() - ncts_WARENPOS.Clear() - End If - Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() - Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblNCTS_TR WHERE ncts_dyaAnmID=@ncts_dyaAnmID ", conn) - cmd.Parameters.AddWithValue("@ncts_dyaAnmID", ncts_dyaAnmID) - Dim dr = cmd.ExecuteReader() - If dr.Read Then - For Each l In getParameterList() - Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable) - - If dr.Item(l.Text) Is DBNull.Value Then - propInfo.SetValue(Me, Nothing) - Else - propInfo.SetValue(Me, dr.Item(l.Text)) - End If - - Next - If loadALL Then - LOAD_Sicherheitsangaben() - LOAD_Warenposition() - End If - LOADByAnmID = True - End If - dr.Close() - 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) - End Try - Return LOADByAnmID - End Function - - Shared Function LOADByBezugsNr_or_GUID_or_MRN(bezugsNr As String, GUID As String, MRN As String, loadALL As Boolean, Optional checkValidStatus As Boolean = False, Optional Partnersystem As String = "") As cNCTS_TR - LOADByBezugsNr_or_GUID_or_MRN = Nothing - - If bezugsNr <> "" Then LOADByBezugsNr_or_GUID_or_MRN = LOADByBezugsNr(bezugsNr, loadALL, checkValidStatus, Partnersystem) - - If LOADByBezugsNr_or_GUID_or_MRN Is Nothing Then - If GUID <> "" Then LOADByBezugsNr_or_GUID_or_MRN = LOADByGUID(GUID, loadALL, checkValidStatus, Partnersystem) - End If - If LOADByBezugsNr_or_GUID_or_MRN Is Nothing Then - If MRN <> "" Then LOADByBezugsNr_or_GUID_or_MRN = LOADByMRN(MRN, loadALL, checkValidStatus, Partnersystem) - End If - End Function - - - Shared Function LOADByMRN(MRN As String, loadALL As Boolean, Optional checkValidStatus As Boolean = False, Optional Partnersystem As String = "") As cNCTS_TR - Try - Dim NCTS As New cNCTS_TR - Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL - - Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() - ' Using cmd As New SqlCommand("SELECT TOP 1 * FROM (SELECT * FROM tblNCTS_TR WHERE ncts_ObjectName LIKE @bezugsNr " & If(checkValidStatus, " AND ncts_status BETWEEN 40 and 90 ", "") & " ) AS T order by ncts_status desc, (SELECT top 1 dySt_ts FROM [tblDakosy_Statusmeldungen] WHERE ncts_dyaAnmID=ncts_dyaAnmID order by dySt_ts desc) desc,ncts_LetzteBearbeitung desc ", conn) - 'Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblNCTS_TR WHERE ncts_ObjectName LIKE @bezugsNr " & If(checkValidStatus, " AND ncts_status BETWEEN 40 and 90 ", "") & " order by ncts_status desc, (SELECT top 1 dySt_ts FROM [tblDakosy_Statusmeldungen] WHERE ncts_dyaAnmID=ncts_dyaAnmID order by dySt_ts desc) desc,ncts_LetzteBearbeitung desc ", conn) - Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblNCTS_TR WHERE ncts_MRN LIKE @MRN " & If(checkValidStatus, " AND ncts_status BETWEEN 40 and 90 ", "") & If(Partnersystem <> "", " AND ncts_Partnersystem ='" & Partnersystem & "' ", "") & " order by ncts_LetzteBearbeitung desc", conn) - 'MsgBox("SELECT TOP 1 * FROM tblNCTS_TR WHERE ncts_ObjectName LIKE " & bezugsNr & " " & If(checkValidStatus, " AND ncts_status BETWEEN 40 and 90 ", "") & " order by ncts_status desc, (SELECT top 1 dySt_ts FROM [tblDakosy_Statusmeldungen] inner join tblDakosy_Zollanmeldungen on dy_id = dySt_dyId WHERE ncts_dyaAnmID=dy_id order by dySt_ts desc) desc,ncts_LetzteBearbeitung desc ") - cmd.Parameters.AddWithValue("@MRN", MRN) - Dim dr = cmd.ExecuteReader() - If dr.Read Then - For Each l In NCTS.getParameterList() - Dim propInfo As PropertyInfo = NCTS.GetType.GetProperty(l.Scalarvariable) - - If dr.Item(l.Text) Is DBNull.Value Then - propInfo.SetValue(NCTS, Nothing) - Else - propInfo.SetValue(NCTS, dr.Item(l.Text)) - End If - - Next - If loadALL Then - NCTS.LOAD_Sicherheitsangaben() - NCTS.LOAD_Warenposition() - End If - - dr.Close() - Return NCTS - End If - dr.Close() - 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) - End Try - Return Nothing - - End Function - Shared Function LOADByBezugsNr(bezugsNr As String, loadALL As Boolean, Optional checkValidStatus As Boolean = False, Optional Partnersystem As String = "") As cNCTS_TR - Try - Dim NCTS As New cNCTS_TR - Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL - - Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() - ' Using cmd As New SqlCommand("SELECT TOP 1 * FROM (SELECT * FROM tblNCTS_TR WHERE ncts_ObjectName LIKE @bezugsNr " & If(checkValidStatus, " AND ncts_status BETWEEN 40 and 90 ", "") & " ) AS T order by ncts_status desc, (SELECT top 1 dySt_ts FROM [tblDakosy_Statusmeldungen] WHERE ncts_dyaAnmID=ncts_dyaAnmID order by dySt_ts desc) desc,ncts_LetzteBearbeitung desc ", conn) - 'Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblNCTS_TR WHERE ncts_ObjectName LIKE @bezugsNr " & If(checkValidStatus, " AND ncts_status BETWEEN 40 and 90 ", "") & " order by ncts_status desc, (SELECT top 1 dySt_ts FROM [tblDakosy_Statusmeldungen] WHERE ncts_dyaAnmID=ncts_dyaAnmID order by dySt_ts desc) desc,ncts_LetzteBearbeitung desc ", conn) - Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblNCTS_TR WHERE ncts_ObjectName LIKE @bezugsNr " & If(checkValidStatus, " AND ncts_status BETWEEN 40 and 90 ", "") & If(Partnersystem <> "", " AND ncts_Partnersystem ='" & Partnersystem & "' ", "") & " order by ncts_LetzteBearbeitung desc", conn) - ' MsgBox("SELECT TOP 1 * FROM tblNCTS_TR WHERE ncts_ObjectName LIKE '" & bezugsNr & "' " & If(checkValidStatus, " AND ncts_status BETWEEN 40 and 90 ", "") & If(Partnersystem <> "", " AND ncts_Partnersystem ='" & Partnersystem & "' ", "") & " order by ncts_LetzteBearbeitung desc") - cmd.Parameters.AddWithValue("@bezugsNr", bezugsNr) - Dim dr = cmd.ExecuteReader() - If dr.Read Then - For Each l In NCTS.getParameterList() - Dim propInfo As PropertyInfo = NCTS.GetType.GetProperty(l.Scalarvariable) - - If dr.Item(l.Text) Is DBNull.Value Then - propInfo.SetValue(NCTS, Nothing) - Else - propInfo.SetValue(NCTS, dr.Item(l.Text)) - End If - - Next - If loadALL Then - NCTS.LOAD_Sicherheitsangaben() - NCTS.LOAD_Warenposition() - End If - - dr.Close() - Return NCTS - End If - dr.Close() - 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) - End Try - Return Nothing - End Function - - Shared Function LOADByGUID(GUID As String, loadALL As Boolean, Optional checkValidStatus As Boolean = False, Optional Partnersystem As String = "") As cNCTS_TR - Try - Dim NCTS As New cNCTS_TR - Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL - - Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() - ' Using cmd As New SqlCommand("SELECT TOP 1 * FROM (SELECT * FROM tblNCTS_TR WHERE ncts_ObjectName LIKE @bezugsNr " & If(checkValidStatus, " AND ncts_status BETWEEN 40 and 90 ", "") & " ) AS T order by ncts_status desc, (SELECT top 1 dySt_ts FROM [tblDakosy_Statusmeldungen] WHERE ncts_dyaAnmID=ncts_dyaAnmID order by dySt_ts desc) desc,ncts_LetzteBearbeitung desc ", conn) - 'Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblNCTS_TR WHERE ncts_ObjectName LIKE @bezugsNr " & If(checkValidStatus, " AND ncts_status BETWEEN 40 and 90 ", "") & " order by ncts_status desc, (SELECT top 1 dySt_ts FROM [tblDakosy_Statusmeldungen] WHERE ncts_dyaAnmID=ncts_dyaAnmID order by dySt_ts desc) desc,ncts_LetzteBearbeitung desc ", conn) - Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblNCTS_TR WHERE ncts_GUID LIKE @GUID " & If(checkValidStatus, " AND ncts_status BETWEEN 40 and 90 ", "") & If(Partnersystem <> "", " AND ncts_Partnersystem ='" & Partnersystem & "' ", "") & " order by ncts_LetzteBearbeitung desc", conn) - 'MsgBox("SELECT TOP 1 * FROM tblNCTS_TR WHERE ncts_ObjectName LIKE " & bezugsNr & " " & If(checkValidStatus, " AND ncts_status BETWEEN 40 and 90 ", "") & " order by ncts_status desc, (SELECT top 1 dySt_ts FROM [tblDakosy_Statusmeldungen] inner join tblDakosy_Zollanmeldungen on dy_id = dySt_dyId WHERE ncts_dyaAnmID=dy_id order by dySt_ts desc) desc,ncts_LetzteBearbeitung desc ") - cmd.Parameters.AddWithValue("@GUID", GUID) - Dim dr = cmd.ExecuteReader() - If dr.Read Then - For Each l In NCTS.getParameterList() - Dim propInfo As PropertyInfo = NCTS.GetType.GetProperty(l.Scalarvariable) - - If dr.Item(l.Text) Is DBNull.Value Then - propInfo.SetValue(NCTS, Nothing) - Else - propInfo.SetValue(NCTS, dr.Item(l.Text)) - End If - - Next - If loadALL Then - NCTS.LOAD_Sicherheitsangaben() - NCTS.LOAD_Warenposition() - End If - - dr.Close() - Return NCTS - End If - dr.Close() - 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) - End Try - Return Nothing - End Function - - - Public Function UPDATE_Status(status As Integer) As String - If ncts_Id > 0 Then - Try - Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Id", ncts_Id, , True)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Status", status, , True)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Status_KEWILL_Equivalent", status, , True)) - ncts_Status = status - ncts_Status_KEWILL_Equivalent = status - Return SQL.doSQLVarList(" UPDATE [tblNCTS_TR] SET ncts_Status=@ncts_Status WHERE ncts_Id=@ncts_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) - End Try - End If - Return "" - End Function - - - Public Function UPDATE_AVISO_Einarbeitet(ncts_AVISO_einarbeitet As Boolean) As String - If ncts_Id > 0 Then - Try - - Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Id", ncts_Id, , True)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AVISO_einarbeitet", ncts_AVISO_einarbeitet)) - ncts_AVISO_einarbeitet = ncts_AVISO_einarbeitet - Return SQL.doSQLVarList(" UPDATE [tblNCTS_TR] SET ncts_AVISO_einarbeitet=@ncts_AVISO_einarbeitet WHERE ncts_Id=@ncts_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) - End Try - End If - Return "" - End Function - - Public Function getUpdateCmd() As String - Try - Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() - - Dim str As String = "" - For Each i In list - If Not i.isPrimaryParam Then - str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," - End If - Next - str = str.Substring(0, str.Length - 1) 'wg. ',' - Return (" UPDATE [tblNCTS_TR] SET " & str & " WHERE ncts_Id=@ncts_Id ") - - Catch ex As Exception - MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) - End Try - Return "" - End Function - - - Public Function getInsertCmd() As String - Try - Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() - Dim str As String = "" - Dim values As String = "" - For Each i In list - If Not i.isPrimaryParam Then - str &= "[" & i.Text & "]," - values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," - End If - Next - str = str.Substring(0, str.Length - 1) 'wg. ',' - values = values.Substring(0, values.Length - 1) 'wg. ',' - Return (" INSERT INTO tblNCTS_TR (" & 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) - End Try - Return "" - End Function - - Public Sub LOAD_Sicherheitsangaben() - Try - ncts_SICHERHEITSANGABEN.Clear() - Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() - Using cmd As New SqlCommand("SELECT * FROM tblNCTS_TR_Sicherheitsangaben WHERE nctsSA_NctsId=@ncts_Id ", conn) - cmd.Parameters.AddWithValue("@ncts_Id", Me.ncts_Id) - Dim dr = cmd.ExecuteReader() - While dr.Read - Dim l As New cNCTS_TR_Sicherheitsangaben - For Each i In l.getParameterList() - Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable) - If dr.Item(i.Text) Is DBNull.Value Then - propInfo.SetValue(l, Nothing) - Else - propInfo.SetValue(l, dr.Item(i.Text)) - End If - Next - ncts_SICHERHEITSANGABEN.Add(l) - End While - dr.Close() - 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) - End Try - End Sub - - Public Sub LOAD_Warenposition() - Try - ncts_WARENPOS.Clear() - Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() - Using cmd As New SqlCommand("SELECT * FROM tblNCTS_TR_Warenposition WHERE nctsWP_NctsId=@ncts_Id ", conn) - cmd.Parameters.AddWithValue("@ncts_Id", Me.ncts_Id) - Dim dr = cmd.ExecuteReader() - While dr.Read - Dim l As New cNCTS_TR_Warenposition() - For Each i In l.getParameterList() - Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable) - If dr.Item(i.Text) Is DBNull.Value Then - propInfo.SetValue(l, Nothing) - Else - propInfo.SetValue(l, dr.Item(i.Text)) - End If - Next - l.LOAD_WarenpositionPackstuecke() - 'l.LOAD_WarenpositionUnterlagen() - ncts_WARENPOS.Add(l) - End While - dr.Close() - 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) - End Try - End Sub - - - Public Shared Function get_Warenposition(ncts_Id As Integer, Optional loadAll As Boolean = False) As List(Of cNCTS_TR_Warenposition) - Try - Dim ncts_WARENPOS As New List(Of cNCTS_TR_Warenposition) - Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL - Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() - Using cmd As New SqlCommand("SELECT * FROM tblNCTS_TR_Warenposition WHERE nctsWP_NctsId=@ncts_Id ", conn) - cmd.Parameters.AddWithValue("@ncts_Id", ncts_Id) - Dim dr = cmd.ExecuteReader() - While dr.Read - Dim l As New cNCTS_TR_Warenposition() - For Each i In l.getParameterList() - Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable) - If dr.Item(i.Text) Is DBNull.Value Then - propInfo.SetValue(l, Nothing) - Else - propInfo.SetValue(l, dr.Item(i.Text)) - End If - Next - l.LOAD_WarenpositionPackstuecke() - ' l.LOAD_WarenpositionUnterlagen() - ncts_WARENPOS.Add(l) - End While - dr.Close() - End Using - End Using - Return ncts_WARENPOS - Catch ex As Exception - MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) - End Try - Return Nothing - End Function - - Function DELETE_Warenpositionen() As Boolean 'obj As Object, tablename As String, where As String) As Boolean - Dim sqlstr = " DELETE FROM [tblNCTS_TR_Warenposition] WHERE nctsWP_NctsId=" & Me.ncts_Id & " " - ' MsgBox(sqlstr) - Return SQL.doSQL(sqlstr, "FMZOLL") - End Function - - Function DELETE_WarenpositionPackstuecke() As Boolean 'obj As Object, tablename As String, where As String) As Boolean - Dim sqlstr = " DELETE FROM [tblNCTS_TR_WarenpositionPackstuecke] WHERE nctsWpPk_NctsId=" & Me.ncts_Id & " " - Return SQL.doSQL(sqlstr, "FMZOLL") - End Function - - 'Function DELETE_WarenpositionUnterlagen() As Boolean 'obj As Object, tablename As String, where As String) As Boolean - ' Dim sqlstr = " DELETE FROM [tblNCTS_TR_WarenpositionVorgelegteUnterlagen] WHERE nctsWpUl_NctsId =" & Me.ncts_Id & " " - ' Return SQL.doSQL(sqlstr, "FMZOLL") - 'End Function - - Public Function SAVE_Warenposition() As Boolean - 'Zuserst alle OffertenPos von dem Offert löschen - If DELETE_Warenpositionen() And DELETE_WarenpositionPackstuecke() Then 'And DELETE_WarenpositionUnterlagen() Then - 'jetzt die Standartofferten einfügen - For Each p In ncts_WARENPOS - p.nctsWP_NctsId = ncts_Id - If p.INSERT() Then - p.INSERT_WarenpositionPackstuecke(p.nctsWP_Id, Me.ncts_Id) - 'p.INSERT_WarenpositionUnterlagen(p.nctsWP_Id, Me.ncts_Id) - Else - Return False - End If - Next - Else - Return False - End If - - Return True - End Function - - Function DELETE_Sicherheitsangaben() As Boolean 'obj As Object, tablename As String, where As String) As Boolean - Dim sqlstr = " DELETE FROM [tblNCTS_TR_Sicherheitsangaben] WHERE nctsSA_NctsId=" & Me.ncts_Id & " " - Return SQL.doSQL(sqlstr, "FMZOLL") - End Function - - Public Function SAVE_Sicherheitsangaben() As Boolean - 'Zuserst alle OffertenPos von dem Offert löschen - If DELETE_Sicherheitsangaben() Then - 'jetzt die Standartofferten einfügen - For Each p In ncts_SICHERHEITSANGABEN - p.nctsSA_NctsId = ncts_Id - If Not p.INSERT() Then - Return False - End If - Next - Else - Return False - End If - Return True - End Function - - Function countSpedbuchEntrys(filiale, ncts) As Integer - If If(ncts, "") = "" Then Return 0 - Return SQL.getValueTxtBySqlVarList("SELECT isnull(count(*),0) FROM Speditionsbuch WHERE [FilialenNr]='" & filiale & "' AND AtlasBezNrNCTS='" & ncts & "'", "FMZOLL") - End Function - - - - Function countSpedbuchEntrysFilialeAbf(filiale, abfertigungsnummer) As Integer - If If(abfertigungsnummer, "") = "" Then Return 0 - Return SQL.getValueTxtBySqlVarList("SELECT isnull(count(*),0) FROM Speditionsbuch WHERE [FilialenNr]='" & filiale & "' AND AbfertigungsNr='" & abfertigungsnummer & "'", "FMZOLL") - End Function - - - - - - Shared Function getFiliale(ByVal bezugsNr, ByRef filialeBez) As String - getFiliale = "" - If If(bezugsNr, "").ToString.Length > 4 Then - Select Case bezugsNr.ToString.Substring(0, 4) - Case "4803" : Return bezugsNr.ToString.Substring(0, 4) '...... derzeit nur 4803 - Case "4811" : Return bezugsNr.ToString.Substring(0, 4) '...... derzeit nur 4803 - Case "5003" : Return bezugsNr.ToString.Substring(0, 4) '...... derzeit nur 4803 - Case "5103" : Return bezugsNr.ToString.Substring(0, 4) '...... derzeit nur 4803 - Case "5303" : Return bezugsNr.ToString.Substring(0, 4) '...... derzeit nur 4803 - Case "5501", "5601", "5701", "5801" : Return bezugsNr.ToString.Substring(0, 4) '...... derzeit nur 4803 - Case Else - If IsNumeric(bezugsNr.ToString.Substring(0, 4)) Then Return bezugsNr.ToString.Substring(0, 4) 'Case Else : Return bezugsNr.ToString.Substring(0, 4) '...... derzeit nur 4803 - 'Case "4801", "4803", "4805", "4807", "4811", "5003", "5103", "5303" : Return bezugsNr.ToString.Substring(0, 4) ...... derzeit nur 4803 - 'filialeBez SUB, NKD, WAI,.-.. - End Select - End If - End Function - - - Shared Function getAbfertigungsnummer(ByVal bezugsNr) As String - getAbfertigungsnummer = "" - If If(bezugsNr, "").ToString.Length > 5 Then - - Dim abf = "" - For Each s In bezugsNr.ToString.Substring(5) - If Not IsNumeric(s) Then Exit For - abf &= s - Next - - - If IsNumeric(abf) Then - If CLng(abf) < 99000000 Then ' wenn zu groß, fehlerhaft - If CLng(abf) > 18000000 And CLng(abf) < 99000000 Then - Return abf - Else - Return "18" & CInt(abf).ToString("000000") - End If - End If - End If - End If - Return "" - End Function - Sub getFilialeAbfertigungsnummerFromSendung(ByRef filiale, ByRef abfertigungsnummer, dy_SendungsId) - If dy_SendungsId IsNot Nothing AndAlso IsNumeric(dy_SendungsId) Then - Dim SND As New VERAG_PROG_ALLGEMEIN.cSendungen(dy_SendungsId) - If SND IsNot Nothing Then - If SND.FilialenNr > 0 Then filiale = SND.FilialenNr - If SND.AbfertigungsNr > 0 Then abfertigungsnummer = SND.AbfertigungsNr - End If - End If - End Sub - - - - - Shared Function getAdresseFromEORI(EORI As String, EORI_NL As String, SQL As VERAG_PROG_ALLGEMEIN.SQL) - If EORI Is Nothing Then Return Nothing - If If(EORI, "") <> "" Then - Dim kdNrTmp = SQL.getFMZOLLKdNrFromEORI(EORI, EORI_NL) - If IsNumeric(kdNrTmp) Then - Dim ADRESSE As New VERAG_PROG_ALLGEMEIN.cAdressen(kdNrTmp) - Return ADRESSE - End If - End If - Return Nothing - End Function - -End Class - - - -Public Class cNCTS_TR_Sicherheitsangaben - - Property nctsSA_Id As Integer - Property nctsSA_NctsId As Object = Nothing - Property nctsSA_ArtCode As Object = Nothing - Property nctsSA_BezeichnungBescheinigun As Object = Nothing - Property nctsSA_AbgabenBetrag As Object = Nothing - Property nctsSA_GRN As Object = Nothing - Property nctsSA_Zugriffcode As Object = Nothing - Property nctsSA_TIN As Object = Nothing - - - 'Public selButton As Object = Nothing ' Für die GUI - 'Public SA_OBJECT As Object = Nothing ' Für die GUI - - Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL - - Sub New() - End Sub - - 'Sub New(nctsSA_Id) - ' Me.nctsSA_Id = nctsSA_Id - ' LOAD() - ' End Sub - - - Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) - Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsSA_Id", nctsSA_Id, , True, True)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsSA_NctsId", nctsSA_NctsId)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsSA_ArtCode", nctsSA_ArtCode)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsSA_BezeichnungBescheinigun", nctsSA_BezeichnungBescheinigun)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsSA_AbgabenBetrag", nctsSA_AbgabenBetrag)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsSA_GRN", nctsSA_GRN)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsSA_Zugriffcode", nctsSA_Zugriffcode)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsSA_TIN", nctsSA_TIN)) - - Return list - End Function - - - Public Function INSERT() As Boolean - Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() - 'Return SQL.doSQLVarList(getInsertCmd, "FMZOLL", , list) - nctsSA_Id = SQL.doSQLVarListID(nctsSA_Id, getInsertCmd, "FMZOLL", , list) - Return nctsSA_Id > 0 - End Function - - Public Function getInsertCmd() As String - Try - Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() - Dim str As String = "" - Dim values As String = "" - For Each i In list - If Not i.isPrimaryParam Then - str &= "[" & i.Text & "]," - values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," - End If - Next - str = str.Substring(0, str.Length - 1) 'wg. ',' - values = values.Substring(0, values.Length - 1) 'wg. ',' - Return (" INSERT INTO tblNCTS_TR_Sicherheitsangaben (" & 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) - End Try - Return "" - End Function - -End Class - - -Public Class cNCTS_TR_Warenposition - Property nctsWP_Id As Integer - Property nctsWP_NctsId As Integer - Property nctsWP_PositionsNummer As Object = Nothing - Property nctsWP_Warennummer As Object = Nothing - Property nctsWP_ArtAnmeldungPositionCode As Object = Nothing - Property nctsWP_Warenbezeichnung As Object = Nothing - Property nctsWP_Warenwert As Object = Nothing - Property nctsWP_WarenwertWaehrung As Object = Nothing - Property nctsWP_SchaetzKz As Object = Nothing - Property nctsWP_WarenwertProzent As Object = Nothing - Property nctsWP_VersendungslandPositionCode As Object = Nothing - Property nctsWP_BestimmungslandPositionCode As Object = Nothing - Property nctsWP_Rohmasse As Object = Nothing - Property nctsWP_Eigenmasse As Object = Nothing - - - Property nctsWP_VorpapierTyp As Object = Nothing - Property nctsWP_VorpapierReferenz1 As Object = Nothing - Property nctsWP_VorpapierZusatz1 As Object = Nothing - Property nctsWP_VorpapierReferenz2 As Object = Nothing - Property nctsWP_VorpapierZusatz2 As Object = Nothing - Property nctsWP_VorpapierReferenz3 As Object = Nothing - Property nctsWP_VorpapierZusatz3 As Object = Nothing - Property nctsWP_VorpapierReferenz4 As Object = Nothing - Property nctsWP_VorpapierZusatz4 As Object = Nothing - Property nctsWP_VorpapierReferenz5 As Object = Nothing - Property nctsWP_VorpapierZusatz5 As Object = Nothing - Property nctsWP_VorpapierReferenz6 As Object = Nothing - Property nctsWP_VorpapierZusatz6 As Object = Nothing - Property nctsWP_VorpapierReferenz7 As Object = Nothing - Property nctsWP_VorpapierZusatz7 As Object = Nothing - Property nctsWP_VorpapierReferenz8 As Object = Nothing - Property nctsWP_VorpapierZusatz8 As Object = Nothing - Property nctsWP_VorpapierReferenz9 As Object = Nothing - Property nctsWP_VorpapierZusatz9 As Object = Nothing - - - - Property nctsWP_BesondereVermeke_ExportAusEU As Object = Nothing - Property nctsWP_BesondereVermeke_ExportAusLand As Object = Nothing - Property nctsWP_BesondereVermeke_Export As Object = Nothing - - Property nctsWP_BesondereVermeke_ExportBeschraenkung As Object = Nothing - Property nctsWP_BesondereVermeke_ExportAbgaben As Object = Nothing - Property nctsWP_BesondereVermeke_Vermerk As Object = Nothing - Property nctsWP_BesondereVermeke_Kz10600 As Object = Nothing - - - Property nctsWP_Versender_EORI As Object = Nothing - Property nctsWP_Versender_NLNR As Object = Nothing - Property nctsWP_Versender_TIN As Object = Nothing - Property nctsWP_Versender_Name As Object = Nothing - Property nctsWP_Versender_StrasseHausnummer As Object = Nothing - Property nctsWP_Versender_Ort As Object = Nothing - Property nctsWP_Versender_PLZ As Object = Nothing - Property nctsWP_Versender_Land As Object = Nothing - Property nctsWP_Empfaenger_EORI As Object = Nothing - Property nctsWP_Empfaenger_NLNR As Object = Nothing - Property nctsWP_Empfaenger_TIN As Object = Nothing - Property nctsWP_Empfaenger_Name As Object = Nothing - Property nctsWP_Empfaenger_StrasseHausnummer As Object = Nothing - Property nctsWP_Empfaenger_Ort As Object = Nothing - Property nctsWP_Empfaenger_PLZ As Object = Nothing - Property nctsWP_Empfaenger_Land As Object = Nothing - Property nctsWP_SumAKennnummerSendung As Object = Nothing - Property nctsWP_SumABefoerderungskostenZahlungsweise As Object = Nothing - Property nctsWP_SumAUNGefahrgutnummer As Object = Nothing - Property nctsWP_SumAVersender_EORI As Object = Nothing - Property nctsWP_SumAVersender_NLNR As Object = Nothing - Property nctsWP_SumAVersender_TIN As Object = Nothing - Property nctsWP_SumAVersender_Name As Object = Nothing - Property nctsWP_SumAVersender_StrasseHausnummer As Object = Nothing - Property nctsWP_SumAVersender_Ort As Object = Nothing - Property nctsWP_SumAVersender_PLZ As Object = Nothing - Property nctsWP_SumAVersender_Land As Object = Nothing - Property nctsWP_SumAEmpfaenger_EORI As Object = Nothing - Property nctsWP_SumAEmpfaenger_NLNR As Object = Nothing - Property nctsWP_SumAEmpfaenger_TIN As Object = Nothing - Property nctsWP_SumAEmpfaenger_Name As Object = Nothing - Property nctsWP_SumAEmpfaenger_StrasseHausnummer As Object = Nothing - Property nctsWP_SumAEmpfaenger_Ort As Object = Nothing - Property nctsWP_SumAEmpfaenger_PLZ As Object = Nothing - Property nctsWP_SumAEmpfaenger_Land As Object = Nothing - - - Property nctsWP_KdRefNr As Object = Nothing - - - Property nctsWP_PACKSTUECKE As New List(Of cNCTS_TR_WarenpositionPackstuecke) - ' Property nctsWP_UNTERLAGEN As New List(Of cNCTS_TR_WarenpositionVorgelegteUnterlagen) - - Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL - - Sub New() - ' Me.nctsWP_NctsId = nctsWP_NctsId - End Sub - - 'Sub New(nctsSA_Id) - ' Me.nctsSA_Id = nctsSA_Id - ' LOAD() - ' End Sub - - - Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) - Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Id", nctsWP_Id, , True, True)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_NctsId", nctsWP_NctsId)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_PositionsNummer", nctsWP_PositionsNummer)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Warennummer", nctsWP_Warennummer)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_ArtAnmeldungPositionCode", nctsWP_ArtAnmeldungPositionCode)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Warenbezeichnung", nctsWP_Warenbezeichnung)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Warenwert", nctsWP_Warenwert)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_WarenwertWaehrung", nctsWP_WarenwertWaehrung)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SchaetzKz", nctsWP_SchaetzKz)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_WarenwertProzent", nctsWP_WarenwertProzent)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_VersendungslandPositionCode", nctsWP_VersendungslandPositionCode)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_BestimmungslandPositionCode", nctsWP_BestimmungslandPositionCode)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Rohmasse", nctsWP_Rohmasse)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Eigenmasse", nctsWP_Eigenmasse)) - - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_VorpapierTyp", nctsWP_VorpapierTyp)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_VorpapierReferenz1", nctsWP_VorpapierReferenz1)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_VorpapierZusatz1", nctsWP_VorpapierZusatz1)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_VorpapierReferenz2", nctsWP_VorpapierReferenz2)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_VorpapierZusatz2", nctsWP_VorpapierZusatz2)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_VorpapierReferenz3", nctsWP_VorpapierReferenz3)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_VorpapierZusatz3", nctsWP_VorpapierZusatz3)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_VorpapierReferenz4", nctsWP_VorpapierReferenz4)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_VorpapierZusatz4", nctsWP_VorpapierZusatz4)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_VorpapierReferenz5", nctsWP_VorpapierReferenz5)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_VorpapierZusatz5", nctsWP_VorpapierZusatz5)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_VorpapierReferenz6", nctsWP_VorpapierReferenz6)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_VorpapierZusatz6", nctsWP_VorpapierZusatz6)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_VorpapierReferenz7", nctsWP_VorpapierReferenz7)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_VorpapierZusatz7", nctsWP_VorpapierZusatz7)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_VorpapierReferenz8", nctsWP_VorpapierReferenz8)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_VorpapierZusatz8", nctsWP_VorpapierZusatz8)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_VorpapierReferenz9", nctsWP_VorpapierReferenz9)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_VorpapierZusatz9", nctsWP_VorpapierZusatz9)) - - - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_BesondereVermeke_ExportAusEU", nctsWP_BesondereVermeke_ExportAusEU)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_BesondereVermeke_ExportAusLand", nctsWP_BesondereVermeke_ExportAusLand)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_BesondereVermeke_Export", nctsWP_BesondereVermeke_Export)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_BesondereVermeke_ExportBeschraenkung", nctsWP_BesondereVermeke_ExportBeschraenkung)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_BesondereVermeke_ExportAbgaben", nctsWP_BesondereVermeke_ExportAbgaben)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_BesondereVermeke_Vermerk", nctsWP_BesondereVermeke_Vermerk)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_BesondereVermeke_Kz10600", nctsWP_BesondereVermeke_Kz10600)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Versender_EORI", nctsWP_Versender_EORI)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Versender_NLNR", nctsWP_Versender_NLNR)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Versender_TIN", nctsWP_Versender_TIN)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Versender_Name", nctsWP_Versender_Name)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Versender_StrasseHausnummer", nctsWP_Versender_StrasseHausnummer)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Versender_Ort", nctsWP_Versender_Ort)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Versender_PLZ", nctsWP_Versender_PLZ)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Versender_Land", nctsWP_Versender_Land)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Empfaenger_EORI", nctsWP_Empfaenger_EORI)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Empfaenger_NLNR", nctsWP_Empfaenger_NLNR)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Empfaenger_TIN", nctsWP_Empfaenger_TIN)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Empfaenger_Name", nctsWP_Empfaenger_Name)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Empfaenger_StrasseHausnummer", nctsWP_Empfaenger_StrasseHausnummer)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Empfaenger_Ort", nctsWP_Empfaenger_Ort)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Empfaenger_PLZ", nctsWP_Empfaenger_PLZ)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Empfaenger_Land", nctsWP_Empfaenger_Land)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumAKennnummerSendung", nctsWP_SumAKennnummerSendung)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumABefoerderungskostenZahlungsweise", nctsWP_SumABefoerderungskostenZahlungsweise)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumAUNGefahrgutnummer", nctsWP_SumAUNGefahrgutnummer)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumAVersender_EORI", nctsWP_SumAVersender_EORI)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumAVersender_NLNR", nctsWP_SumAVersender_NLNR)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumAVersender_TIN", nctsWP_SumAVersender_TIN)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumAVersender_Name", nctsWP_SumAVersender_Name)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumAVersender_StrasseHausnummer", nctsWP_SumAVersender_StrasseHausnummer)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumAVersender_Ort", nctsWP_SumAVersender_Ort)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumAVersender_PLZ", nctsWP_SumAVersender_PLZ)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumAVersender_Land", nctsWP_SumAVersender_Land)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumAEmpfaenger_EORI", nctsWP_SumAEmpfaenger_EORI)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumAEmpfaenger_NLNR", nctsWP_SumAEmpfaenger_NLNR)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumAEmpfaenger_TIN", nctsWP_SumAEmpfaenger_TIN)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumAEmpfaenger_Name", nctsWP_SumAEmpfaenger_Name)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumAEmpfaenger_StrasseHausnummer", nctsWP_SumAEmpfaenger_StrasseHausnummer)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumAEmpfaenger_Ort", nctsWP_SumAEmpfaenger_Ort)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumAEmpfaenger_PLZ", nctsWP_SumAEmpfaenger_PLZ)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumAEmpfaenger_Land", nctsWP_SumAEmpfaenger_Land)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_KdRefNr", nctsWP_KdRefNr)) - - - Return list - End Function - - - Public Function INSERT() As Boolean - Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() - 'Return SQL.doSQLVarList(getInsertCmd, "FMZOLL", , list) - nctsWP_Id = SQL.doSQLVarListID(nctsWP_Id, getInsertCmd, "FMZOLL", , list) - Return nctsWP_Id > 0 - End Function - - Public Function getInsertCmd() As String - Try - Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() - Dim str As String = "" - Dim values As String = "" - For Each i In list - If Not i.isPrimaryParam Then - str &= "[" & i.Text & "]," - values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," - End If - Next - str = str.Substring(0, str.Length - 1) 'wg. ',' - values = values.Substring(0, values.Length - 1) 'wg. ',' - Return (" INSERT INTO tblNCTS_TR_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) - End Try - Return "" - End Function - - - - - Public Sub LOAD_WarenpositionPackstuecke() - Try - nctsWP_PACKSTUECKE.Clear() - Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() - Using cmd As New SqlCommand("SELECT * FROM tblNCTS_TR_WarenpositionPackstuecke WHERE nctsWpPk_nctsWPId=@nctsWP_Id ", conn) - cmd.Parameters.AddWithValue("@nctsWP_Id", Me.nctsWP_Id) - Dim dr = cmd.ExecuteReader() - While dr.Read - Dim l As New cNCTS_TR_WarenpositionPackstuecke() - For Each i In l.getParameterList() - Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable) - If dr.Item(i.Text) Is DBNull.Value Then - propInfo.SetValue(l, Nothing) - Else - propInfo.SetValue(l, dr.Item(i.Text)) - End If - Next - nctsWP_PACKSTUECKE.Add(l) - End While - dr.Close() - 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) - End Try - End Sub - - Public Function DELETE_WarenpositionPackstuecke() As Boolean 'obj As Object, tablename As String, where As String) As Boolean - Dim sqlstr = " DELETE FROM [tblNCTS_TR_WarenpositionPackstuecke] WHERE nctsWpPk_nctsWPId=" & Me.nctsWP_Id & " " - Return SQL.doSQL(sqlstr, "FMZOLL") - End Function - - Public Function INSERT_WarenpositionPackstuecke(wp_id, ncts_id) As Boolean - 'Zuserst alle OffertenPos von dem Offert löschen - - 'jetzt die Standartofferten einfügen - For Each p In nctsWP_PACKSTUECKE - p.nctsWpPk_nctsWPId = wp_id - p.nctsWpPk_NctsId = ncts_id - If Not p.INSERT() Then - Return False - End If - Next - - Return True - End Function - - - - 'Public Sub LOAD_WarenpositionUnterlagen() - ' Try - ' nctsWP_UNTERLAGEN.Clear() - ' Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() - ' Using cmd As New SqlCommand("SELECT * FROM tblNCTS_TR_WarenpositionVorgelegteUnterlagen WHERE nctsWpUl_nctsWPId=@nctsWP_Id ", conn) - ' cmd.Parameters.AddWithValue("@nctsWP_Id", Me.nctsWP_Id) - ' Dim dr = cmd.ExecuteReader() - ' While dr.Read - ' Dim l As New cNCTS_TR_WarenpositionVorgelegteUnterlagen - ' For Each i In l.getParameterList() - ' Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable) - ' If dr.Item(i.Text) Is DBNull.Value Then - ' propInfo.SetValue(l, Nothing) - ' Else - ' propInfo.SetValue(l, dr.Item(i.Text)) - ' End If - ' Next - ' nctsWP_UNTERLAGEN.Add(l) - ' End While - ' dr.Close() - ' 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) - ' End Try - 'End Sub - - 'Public Function DELETE_WarenpositionUnterlagen() As Boolean 'obj As Object, tablename As String, where As String) As Boolean - ' Dim sqlstr = " DELETE FROM [tblNCTS_TR_WarenpositionVorgelegteUnterlagen] WHERE nctsWpUl_nctsWPId=" & Me.nctsWP_Id & " " - ' Return SQL.doSQL(sqlstr, "FMZOLL") - 'End Function - - 'Public Function INSERT_WarenpositionUnterlagen(wp_id, ncts_id) As Boolean - ' 'Zuserst alle OffertenPos von dem Offert löschen - - ' 'jetzt die Standartofferten einfügen - ' For Each p In nctsWP_UNTERLAGEN - ' p.nctsWpUl_nctsWPId = wp_id - ' p.nctsWpUl_NctsId = ncts_id - ' If Not p.INSERT() Then - ' Return False - ' End If - ' Next - - ' Return True - 'End Function - - - - -End Class - - - -Public Class cNCTS_TR_WarenpositionPackstuecke - - Property nctsWpPk_Id As Integer - Property nctsWpPk_nctsWPId As Integer - Property nctsWpPk_NctsId As Integer - - Property nctsWpPk_PackstueckeAnzahl As Object = Nothing - Property nctsWpPk_Verpackungsart As Object = Nothing - Property nctsWpPk_ZeichenNummern As Object = Nothing - - - Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL - - Sub New() - ' Me.nctsWpPk_nctsWPId = nctsWpPk_nctsWPId - End Sub - - - Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) - Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpPk_Id", nctsWpPk_Id, , True, True)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpPk_nctsWPId", nctsWpPk_nctsWPId)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpPk_NctsId", nctsWpPk_NctsId)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpPk_PackstueckeAnzahl", nctsWpPk_PackstueckeAnzahl)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpPk_Verpackungsart", nctsWpPk_Verpackungsart)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpPk_ZeichenNummern", nctsWpPk_ZeichenNummern)) - Return list - End Function - - - Public Function INSERT() As Boolean - Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() - nctsWpPk_Id = SQL.doSQLVarListID(nctsWpPk_Id, getInsertCmd(), "FMZOLL", , list) - Return nctsWpPk_Id > 0 - End Function - - Public Function getInsertCmd() As String - Try - Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() - Dim str As String = "" - Dim values As String = "" - For Each i In list - If Not i.isPrimaryParam Then - str &= "[" & i.Text & "]," - values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," - End If - Next - str = str.Substring(0, str.Length - 1) 'wg. ',' - values = values.Substring(0, values.Length - 1) 'wg. ',' - Return (" INSERT INTO tblNCTS_TR_WarenpositionPackstuecke (" & 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) - End Try - Return "" - End Function - -End Class - -'Public Class cNCTS_TR_WarenpositionVorgelegteUnterlagen - -' Property nctsWpUl_Id As Integer -' Property nctsWpUl_nctsWPId As Integer -' Property nctsWpUl_NctsId As Integer -' Property nctsWpUl_Typ As Object = Nothing -' Property nctsWpUl_Referenz As Object = Nothing -' Property nctsWpUl_Zusatz As Object = Nothing - - - -' Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL - -' Sub New() -' ' Me.nctsWpUl_nctsWPId = nctsWpUl_nctsWPId -' End Sub - - -' Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) -' Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) -' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpUl_Id", nctsWpUl_Id, , True, True)) -' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpUl_nctsWPId", nctsWpUl_nctsWPId)) -' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpUl_NctsId", nctsWpUl_NctsId)) -' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpUl_Typ", nctsWpUl_Typ)) -' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpUl_Referenz", nctsWpUl_Referenz)) -' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpUl_Zusatz", nctsWpUl_Zusatz)) -' Return list -' End Function - - -' Public Function INSERT() As Boolean -' Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() -' nctsWpUl_Id = SQL.doSQLVarListID(nctsWpUl_Id, getInsertCmd(), "FMZOLL", , list) -' Return nctsWpUl_Id > 0 -' End Function - -' Public Function getInsertCmd() As String -' Try -' Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() -' Dim str As String = "" -' Dim values As String = "" -' For Each i In list -' If Not i.isPrimaryParam Then -' str &= "[" & i.Text & "]," -' values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," -' End If -' Next -' str = str.Substring(0, str.Length - 1) 'wg. ',' -' values = values.Substring(0, values.Length - 1) 'wg. ',' -' Return (" INSERT INTO tblNCTS_TR_WarenpositionVorgelegteUnterlagen (" & 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) -' End Try -' Return "" -' End Function - - - -'End Class diff --git a/initATLASAufschubkonten/cMAVIWorker.vb b/initATLASAufschubkonten/cMAVIWorker.vb index 90b6d00..f119ce0 100644 --- a/initATLASAufschubkonten/cMAVIWorker.vb +++ b/initATLASAufschubkonten/cMAVIWorker.vb @@ -7,7 +7,7 @@ Public Class cMAVIWorker Shared SQL As New VERAG_PROG_ALLGEMEIN.SQL - + Shared Partnersystem = "" ' FUnzt noch nciht --> leer für zuordnung guid mrn, sonst problem Public Shared Function readNCTS_VersandanmeldungXML_CC015B(FORM As frmTRNCTS_NachrichtenVerarbeitung, doc As XmlDocument) As String Try @@ -35,35 +35,35 @@ Public Class cMAVIWorker Dim AnsprechpTMP_Email = "" - Dim NCTS As cNCTSPartnerWorker.cNCTS_TR = cNCTSPartnerWorker.cNCTS_TR.LOADByBezugsNr(LRN, True,, "MAVI") - If NCTS Is Nothing Then NCTS = New cNCTSPartnerWorker.cNCTS_TR - NCTS.ncts_ObjectName = LRN + Dim NCTS As VERAG_PROG_ALLGEMEIN.cNCTS_TR = VERAG_PROG_ALLGEMEIN.cNCTS_TR.LOADByBezugsNr(LRN, True,, Partnersystem) + If NCTS Is Nothing Then NCTS = New VERAG_PROG_ALLGEMEIN.cNCTS_TR + NCTS.ncts_ObjectName = LRN - NCTS.ncts_Partnersystem = "MAVI" + NCTS.ncts_Partnersystem = "MAVI" - If doc.GetElementsByTagName("GuaRefNumGRNREF1").Count > 0 AndAlso doc.GetElementsByTagName("AmoConREF7").Count > 0 Then - Dim BRG As New cNCTSPartnerWorker.cNCTS_TR_Sicherheitsangaben - BRG.nctsSA_GRN = doc.GetElementsByTagName("GuaRefNumGRNREF1")(0).InnerText - Dim Betrag = doc.GetElementsByTagName("AmoConREF7")(0).InnerText - If IsNumeric(Betrag) Then - BRG.nctsSA_AbgabenBetrag = CDbl(Betrag) - End If - - NCTS.ncts_SICHERHEITSANGABEN = New List(Of cNCTSPartnerWorker.cNCTS_TR_Sicherheitsangaben) - NCTS.ncts_SICHERHEITSANGABEN.Add(BRG) + If doc.GetElementsByTagName("GuaRefNumGRNREF1").Count > 0 AndAlso doc.GetElementsByTagName("AmoConREF7").Count > 0 Then + Dim BRG As New VERAG_PROG_ALLGEMEIN.cNCTS_TR_Sicherheitsangaben + BRG.nctsSA_GRN = doc.GetElementsByTagName("GuaRefNumGRNREF1")(0).InnerText + Dim Betrag = doc.GetElementsByTagName("AmoConREF7")(0).InnerText + If IsNumeric(Betrag) Then + BRG.nctsSA_AbgabenBetrag = CDbl(Betrag) End If + NCTS.ncts_SICHERHEITSANGABEN = New List(Of VERAG_PROG_ALLGEMEIN.cNCTS_TR_Sicherheitsangaben) + NCTS.ncts_SICHERHEITSANGABEN.Add(BRG) + End If - If If(NCTS.ncts_Status, 0) <= 5 Then NCTS.ncts_Status = DAKOSY_Worker.cDY_Statusliste.S_05 - ' If If(NCTS.ncts_Status_KEWILL_Equivalent, 0) <= 5 Then NCTS.ncts_Status_KEWILL_Equivalent = DAKOSY_Worker.cDY_Statusliste.S_05 - NCTS.ncts_Status_KEWILL_Equivalent = NCTS.ncts_Status - If NCTS.SAVE_ALL() Then - ' If If(NCTS.ncts_Status, 0) <= 5 Then DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_TMP, DAKOSY_Worker.cDY_Statusliste.S_05,,,, statusTMP) - Else - readNCTS_VersandanmeldungXML_CC015B = "" - End If + If If(NCTS.ncts_Status, 0) <= 5 Then NCTS.ncts_Status = DAKOSY_Worker.cDY_Statusliste.S_05 + ' If If(NCTS.ncts_Status_KEWILL_Equivalent, 0) <= 5 Then NCTS.ncts_Status_KEWILL_Equivalent = DAKOSY_Worker.cDY_Statusliste.S_05 + NCTS.ncts_Status_KEWILL_Equivalent = NCTS.ncts_Status + + If NCTS.SAVE_ALL() Then + ' If If(NCTS.ncts_Status, 0) <= 5 Then DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_TMP, DAKOSY_Worker.cDY_Statusliste.S_05,,,, statusTMP) + Else + readNCTS_VersandanmeldungXML_CC015B = "" + End If @@ -114,8 +114,8 @@ Public Class cMAVIWorker Dim AnsprechpTMP_Email = "" - Dim NCTS As cNCTSPartnerWorker.cNCTS_TR = cNCTSPartnerWorker.cNCTS_TR.LOADByBezugsNr_or_GUID_or_MRN(LRN, GUID, "", True,, "MAVI") - If NCTS Is Nothing Then NCTS = New cNCTSPartnerWorker.cNCTS_TR + Dim NCTS As VERAG_PROG_ALLGEMEIN.cNCTS_TR = VERAG_PROG_ALLGEMEIN.cNCTS_TR.LOADByBezugsNr_or_GUID_or_MRN(LRN, GUID, "", True,, Partnersystem) + If NCTS Is Nothing Then NCTS = New VERAG_PROG_ALLGEMEIN.cNCTS_TR NCTS.ncts_ObjectName = LRN NCTS.ncts_GUID = GUID @@ -219,8 +219,8 @@ Public Class cMAVIWorker Dim AnsprechpTMP_Email = "" - Dim NCTS As cNCTSPartnerWorker.cNCTS_TR = cNCTSPartnerWorker.cNCTS_TR.LOADByBezugsNr_or_GUID_or_MRN(LRN, "", MRN, True,, "MAVI") - If NCTS Is Nothing Then NCTS = New cNCTSPartnerWorker.cNCTS_TR + Dim NCTS As VERAG_PROG_ALLGEMEIN.cNCTS_TR = VERAG_PROG_ALLGEMEIN.cNCTS_TR.LOADByBezugsNr_or_GUID_or_MRN(LRN, "", MRN, True,, Partnersystem) + If NCTS Is Nothing Then NCTS = New VERAG_PROG_ALLGEMEIN.cNCTS_TR NCTS.ncts_ObjectName = LRN NCTS.ncts_Partnersystem = "MAVI" @@ -230,14 +230,14 @@ Public Class cMAVIWorker NCTS.ncts_Befoerderungsmittel_KennzeichenAbgang = ncts_Befoerderungsmittel_KennzeichenAbgang NCTS.ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend = ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend 'If doc.GetElementsByTagName("GuaRefNumGRNREF1").Count > 0 AndAlso doc.GetElementsByTagName("AmoConREF7").Count > 0 Then - ' Dim BRG As New cNCTSPartnerWorker.cNCTS_TR_Sicherheitsangaben + ' Dim BRG As New VERAG_PROG_ALLGEMEIN.cNCTS_TR_Sicherheitsangaben ' BRG.nctsSA_GRN = doc.GetElementsByTagName("GuaRefNumGRNREF1")(0).InnerText ' Dim Betrag = doc.GetElementsByTagName("AmoConREF7")(0).InnerText ' If IsNumeric(Betrag) Then ' BRG.nctsSA_AbgabenBetrag = CDbl(Betrag) ' End If - ' NCTS.ncts_SICHERHEITSANGABEN = New List(Of cNCTSPartnerWorker.cNCTS_TR_Sicherheitsangaben) + ' NCTS.ncts_SICHERHEITSANGABEN = New List(Of VERAG_PROG_ALLGEMEIN.cNCTS_TR_Sicherheitsangaben) ' NCTS.ncts_SICHERHEITSANGABEN.Add(BRG) 'End If @@ -303,13 +303,13 @@ Public Class cMAVIWorker Catch ex As Exception End Try - Dim NCTS As cNCTSPartnerWorker.cNCTS_TR = cNCTSPartnerWorker.cNCTS_TR.LOADByMRN(MRN, True,, "MAVI") - If NCTS Is Nothing Then NCTS = New cNCTSPartnerWorker.cNCTS_TR + Dim NCTS As VERAG_PROG_ALLGEMEIN.cNCTS_TR = VERAG_PROG_ALLGEMEIN.cNCTS_TR.LOADByMRN(MRN, True,, Partnersystem) + If NCTS Is Nothing Then NCTS = New VERAG_PROG_ALLGEMEIN.cNCTS_TR 'NCTS.ncts_ObjectName = LRN ' NCTS.ncts_GUID = Guid NCTS.ncts_MRN = MRN NCTS.ncts_Erledigung = TMSTMP.ToShortDateString - readNCTS_ErledigungsmitteilungXML_CC045A=MRN + readNCTS_ErledigungsmitteilungXML_CC045A = MRN NCTS.ncts_Partnersystem = "MAVI" @@ -370,8 +370,8 @@ Public Class cMAVIWorker Dim AnsprechpTMP_Email = "" - Dim NCTS As cNCTSPartnerWorker.cNCTS_TR = cNCTSPartnerWorker.cNCTS_TR.LOADByGUID(GUID, True,, "MAVI") - If NCTS Is Nothing Then NCTS = New cNCTSPartnerWorker.cNCTS_TR + Dim NCTS As VERAG_PROG_ALLGEMEIN.cNCTS_TR = VERAG_PROG_ALLGEMEIN.cNCTS_TR.LOADByGUID(GUID, True,, Partnersystem) + If NCTS Is Nothing Then NCTS = New VERAG_PROG_ALLGEMEIN.cNCTS_TR 'NCTS.ncts_ObjectName = LRN NCTS.ncts_GUID = GUID @@ -441,8 +441,8 @@ Public Class cMAVIWorker outputFile.Write(xmlCC009A) outputFile.Close() - Dim NCTS As cNCTSPartnerWorker.cNCTS_TR = cNCTSPartnerWorker.cNCTS_TR.LOADByBezugsNr_or_GUID_or_MRN("", "", MRN, True,, "MAVI") - If NCTS Is Nothing Then NCTS = New cNCTSPartnerWorker.cNCTS_TR + Dim NCTS As VERAG_PROG_ALLGEMEIN.cNCTS_TR = VERAG_PROG_ALLGEMEIN.cNCTS_TR.LOADByBezugsNr_or_GUID_or_MRN("", "", MRN, True,, Partnersystem) + If NCTS Is Nothing Then NCTS = New VERAG_PROG_ALLGEMEIN.cNCTS_TR NCTS.ncts_Partnersystem = "MAVI" NCTS.ncts_MRN = MRN @@ -509,8 +509,8 @@ Public Class cMAVIWorker outputFile.Write(xmlCC016A) outputFile.Close() - Dim NCTS As cNCTSPartnerWorker.cNCTS_TR = cNCTSPartnerWorker.cNCTS_TR.LOADByBezugsNr_or_GUID_or_MRN(LRN, "", "", True,, "MAVI") - If NCTS Is Nothing Then NCTS = New cNCTSPartnerWorker.cNCTS_TR + Dim NCTS As VERAG_PROG_ALLGEMEIN.cNCTS_TR = VERAG_PROG_ALLGEMEIN.cNCTS_TR.LOADByBezugsNr_or_GUID_or_MRN(LRN, "", "", True,, Partnersystem) + If NCTS Is Nothing Then NCTS = New VERAG_PROG_ALLGEMEIN.cNCTS_TR NCTS.ncts_Partnersystem = "MAVI" NCTS.ncts_ObjectName = LRN @@ -575,8 +575,8 @@ Public Class cMAVIWorker outputFile.Write(xmlCC051B) outputFile.Close() - Dim NCTS As cNCTSPartnerWorker.cNCTS_TR = cNCTSPartnerWorker.cNCTS_TR.LOADByBezugsNr_or_GUID_or_MRN("", "", MRN, True,, "MAVI") - If NCTS Is Nothing Then NCTS = New cNCTSPartnerWorker.cNCTS_TR + Dim NCTS As VERAG_PROG_ALLGEMEIN.cNCTS_TR = VERAG_PROG_ALLGEMEIN.cNCTS_TR.LOADByBezugsNr_or_GUID_or_MRN("", "", MRN, True,, Partnersystem) + If NCTS Is Nothing Then NCTS = New VERAG_PROG_ALLGEMEIN.cNCTS_TR NCTS.ncts_Partnersystem = "MAVI" NCTS.ncts_MRN = MRN @@ -637,8 +637,8 @@ Public Class cMAVIWorker Dim AnsprechpTMP_Email = "" - Dim NCTS As cNCTSPartnerWorker.cNCTS_TR = cNCTSPartnerWorker.cNCTS_TR.LOADByGUID(GUID, True,, "MAVI") - If NCTS Is Nothing Then NCTS = New cNCTSPartnerWorker.cNCTS_TR + Dim NCTS As VERAG_PROG_ALLGEMEIN.cNCTS_TR = VERAG_PROG_ALLGEMEIN.cNCTS_TR.LOADByGUID(GUID, True,, Partnersystem) + If NCTS Is Nothing Then NCTS = New VERAG_PROG_ALLGEMEIN.cNCTS_TR 'NCTS.ncts_ObjectName = LRN NCTS.ncts_GUID = GUID diff --git a/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb b/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb index 7418f2d..4039fa9 100644 --- a/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb +++ b/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb @@ -600,11 +600,25 @@ Public Class frmDYNachrichtenVerarbeitung Case "IME" AES_TMP.aes_firma = "IMEX" AES_TMP.aes_niederlassung = "IMEX" + Case "UNAT", "ATSPED" + AES_TMP.aes_firma = "UNISPED" + AES_TMP.aes_niederlassung = "ATSP" End Select + + AES_TMP.SAVE() End If End If + + If If(AES_TMP.aes_firma, "") = "" And If(AES_TMP.aes_firma, "") = "" Then + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA 'Gehrt nur bei UNSPED + Case "UNISPED" + AES_TMP.aes_firma = "UNISPED" + AES_TMP.aes_niederlassung = "ATSP" + End Select + End If + End Sub @@ -643,9 +657,14 @@ Public Class frmDYNachrichtenVerarbeitung Case "IME" EZA_TMP.eza_firma = "IMEX" EZA_TMP.eza_niederlassung = "IMX" + Case "UNAT", "ATSPED" + EZA_TMP.eza_firma = "UNISPED" + EZA_TMP.eza_niederlassung = "ATSP" End Select - firma = EZA_TMP.eza_firma - nl = EZA_TMP.eza_niederlassung + firma = If(EZA_TMP.eza_firma, "") + nl = If(EZA_TMP.eza_niederlassung, "") + + EZA_TMP.SAVE() End If @@ -654,6 +673,18 @@ Public Class frmDYNachrichtenVerarbeitung DY_TMP.tryFindAviso() DY_TMP.SAVE() End If + + + If If(EZA_TMP.eza_firma, "") = "" And If(EZA_TMP.eza_niederlassung, "") = "" Then + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA 'Gehrt nur bei UNSPED + Case "UNISPED" + EZA_TMP.eza_firma = "UNISPED" + EZA_TMP.eza_niederlassung = "ATSP" + firma = EZA_TMP.eza_firma + nl = EZA_TMP.eza_niederlassung + End Select + + End If End Sub @@ -4355,7 +4386,7 @@ Public Class frmDYNachrichtenVerarbeitung ' niederlassung = "SBG" Case "4803", "5003", "5103", "5303", "4805", "4811" firma = "VERAG" - Case "4801" + Case "5601" firma = "UNISPED" niederlassung = "ATSP" End Select @@ -5446,7 +5477,6 @@ Public Class frmDYNachrichtenVerarbeitung Dim nl = "" SaveEZA_FirmaNL(EZA_TMP, DY_TMP, division, firma, nl) - If AUFSCHUB IsNot Nothing And EZA_TMP IsNot Nothing Then EZA_TMP.eza_AUFSCHUB.Clear() For Each a In AUFSCHUB diff --git a/initATLASAufschubkonten/frmStartOptions.vb b/initATLASAufschubkonten/frmStartOptions.vb index ed2b16e..cc42dad 100644 --- a/initATLASAufschubkonten/frmStartOptions.vb +++ b/initATLASAufschubkonten/frmStartOptions.vb @@ -697,6 +697,21 @@ Public Class frmStartOptions ' LC.Add(New VERAG_PROG_ALLGEMEIN.cEZB_Waehrungskurse(Code, Description, StartDate, EndDate)) ' VERAG_PROG_ALLGEMEIN. getEZB_Waehrungskurse = True + + Try + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + SQL.doSQL("IF NOT EXISTS (SELECT * FROM baskur WHERE baskur_code ='" & EZB.ezb_waehrungscode & "' AND baskur_gbdat =cast(getdate() as date) ) + BEGIN + INSERT INTO [baskur] + ([baskur_code],[baskur_typ],[baskur_bez],[baskur_faktor],[baskur_kurs],[baskur_gvdat],[baskur_gbdat],[baskur_edat],[baskur_adat],[baskur_sb],[baskur_cdealt],[baskur_wkz]) + VALUES ('" & EZB.ezb_waehrungscode & "',1,'-',1," & Entry.Attributes("rate").Value & ",cast(getdate() as date),cast(getdate() as date),getdate(),getdate(),'VRG',000,'EUR') + END", "ATLAS") + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + + End Try + Next End If VERAG_PROG_ALLGEMEIN.cEZB_Waehrungskurse.UPDATE_Waehrungstabelle(datum) ' Waehrungstabelle befüllen @@ -730,7 +745,7 @@ Public Class frmStartOptions Dim list As New List(Of String) list.Add(PDF) Dim Body = "Anbei befinden sich die Auflistung der geprüfen UID-Nummern.
Bei UID-Nummer mit dem Prüfungserbnis 'OK' wurde das Prüfdatum in den Kundenstamm eingetragen. " - Body &= "
Ungültige UID-Nummern bitte manuell bearbeiten!" + Body &= "
Ungültige UID-Nummern bitte manuell bearbeiten!" Body &= "

Erstellt am: " & Now.ToShortDateString & ", um " & Now.ToShortTimeString Body &= "

Automatisch generiertes E-Mail." @@ -797,6 +812,25 @@ Public Class frmStartOptions ' LC.Add(New VERAG_PROG_ALLGEMEIN.cEZB_Waehrungskurse(Code, Description, StartDate, EndDate)) ' VERAG_PROG_ALLGEMEIN. getEZB_Waehrungskurse90D = True + + + 'MsgBox(datum.ToShortDateString & " - " & Now.ToShortDateString) + + 'If datum.ToShortDateString = Now.ToShortDateString Then 'aktuellen TAG sichern. + ' Try + + ' Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + ' SQL.doSQL("INSERT INTO [baskur] + ' ([baskur_code],[baskur_typ],[baskur_bez],[baskur_faktor],[baskur_kurs],[baskur_gvdat],[baskur_gbdat],[baskur_edat],[baskur_adat],[baskur_sb],[baskur_cdealt],[baskur_wkz]) + ' VALUES ('" & EZB.ezb_waehrungscode & "',1,'-',1," & Entry.Attributes("rate").Value & ",cast(getdate() as date),cast(getdate() as date),getdate(),getdate(),'VRG',000,'EUR')", "ATLAS") + + ' Catch ex As Exception + ' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + + ' End Try + 'End If + + Next