Imports System.Data.SqlClient Imports System.Reflection Public Class cDakosyNCTSOut Property ncts_Id As Integer Property ncts_Status As Object = DAKOSY_Worker.cDY_Statusliste.S_00 Property ncts_Status_KEWILL_Equivalent As Object = 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_SICHERHEITSANGABEN As New List(Of cDakosy_NCTSOut_Sicherheitsangaben) Property ncts_WARENPOS As New List(Of cDakosy_NCTSOut_Warenposition) Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL 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_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)) 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 tblDakosy_NCTSOut 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 tblDakosy_NCTSOut 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 cDakosyNCTSOut Try Dim NCTS As New cDakosyNCTSOut Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblDakosy_NCTSOut 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 [tblDakosy_NCTSOut] 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 tblDakosy_NCTSOut 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(bezugsNr As String, loadALL As Boolean) As cDakosyNCTSOut Try Dim NCTS As New cDakosyNCTSOut Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblDakosy_NCTSOut WHERE ncts_ObjectName=@bezugsNr ", conn) 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 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 [tblDakosy_NCTSOut] 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 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 [tblDakosy_NCTSOut] 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 tblDakosy_NCTSOut (" & 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 tblDakosy_NCTSOut_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 cDakosy_NCTSOut_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 tblDakosy_NCTSOut_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 cDakosy_NCTSOut_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 Function DELETE_Warenpositionen() As Boolean 'obj As Object, tablename As String, where As String) As Boolean Dim sqlstr = " DELETE FROM [tblDakosy_NCTSOut_Warenposition] WHERE nctsWP_NctsId=" & Me.ncts_Id & " " 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 [tblDakosy_NCTSOut_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 [tblDakosy_NCTSOut_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() 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 [tblDakosy_NCTSOut_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 Function insertIntoSpedBuch(DY As cDakosy_Zollanmeldungen) As Boolean Dim SPEDBUCH As New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch If False Then 'If(Me.ncts_firma, "") = "IMEX" Then 'If countSpedbuchEntrys(5501, Me.ncts_ObjectName) = 0 Then ' SPEDBUCH.FilialenNr = 5501 ' SPEDBUCH.AbfertigungsNr = VERAG_PROG_ALLGEMEIN.cAllgemein.getMaxPosNrIncrement(SPEDBUCH.FilialenNr, Now.Year) ' SPEDBUCH.NewUNTER_NR() ' 'SPEDBUCH.Abfertigungsart= If dy. ' SPEDBUCH.AtlasBezNrNCTS = Me.ncts_ObjectName ' SPEDBUCH.Zollsystem = "D" ' SPEDBUCH.Fakturiert = 1 ' SPEDBUCH.Sachbearbeiter = "AUTO" ' Dim notfound = False ' DakosyNCTSDatenbereitstellung(SPEDBUCH, Me.ncts_ObjectName, notfound) ' If Not notfound Then ' Return SPEDBUCH.SAVE ' Else ' Return False ' End If 'End If 'If DY.dy_SendungsId IsNot Nothing Then 'Else ' Return False 'Ohne Sendungsverweis kein eintrag... 'End If 'Return SPEDBUCH.SAVE Else Dim firmaTmp = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = If(If(Me.ncts_firma, "") <> "", Me.ncts_firma, "VERAG") If DY.dy_SendungsId IsNot Nothing Then 'Filiale erkennen: Dim filialeBez = "" Dim filiale = getFiliale(Me.ncts_ObjectName, filialeBez) Dim abfertigungsnummer = getAbfertigungsnummer(Me.ncts_ObjectName) If filiale <> "" And abfertigungsnummer <> "" Then ' If countSpedbuchEntrysFilialeAbf(filiale, abfertigungsnummer) = 0 Then If countSpedbuchEntrys(filiale, Me.ncts_ObjectName) = 0 Then ' VERAG_PROG_ALLGEMEIN.cErrorHandler.sendERRORperMail("HEUREKA NCTS ", "" & Me.ncts_ObjectName, Now.ToString("yyyy.MM.dd HH:mm"), "al@verag.ag", "") SPEDBUCH.FilialenNr = filiale SPEDBUCH.AbfertigungsNr = abfertigungsnummer SPEDBUCH.NewUNTER_NR() SPEDBUCH.Abfertigungsanzahl = 1 SPEDBUCH.Fakturiert = 0 SPEDBUCH.AtlasBezNrNCTS = Me.ncts_ObjectName SPEDBUCH.Zollsystem = "D" SPEDBUCH.Sachbearbeiter = "AUTO" SPEDBUCH.AvisoID = DY.dy_AvisoId SPEDBUCH.SendungID = DY.dy_SendungsId Dim ZOLL_IMPORT As New cZOLL_IMPORT Dim notfound = False Dim posAnzahl = 0 SPEDBUCH = ZOLL_IMPORT.IMPORT(SPEDBUCH, DY.dy_AvisoId, DY.dy_SendungsId, "VERA", filialeBez, 2, "", Me.ncts_ObjectName, notfound, True) If notfound Then Return False ' VERAG_PROG_ALLGEMEIN.cErrorHandler.sendERRORperMail("HEUREKA NCTS!! ", "" & Me.ncts_ObjectName, Now.ToString("yyyy.MM.dd HH:mm"), "al@verag.ag", "") VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = firmaTmp If SPEDBUCH.SAVE Then VERAG_PROG_ALLGEMEIN.cSendungen.SET_SpedbuchEntry(DY.dy_SendungsId, True) Return True Else Return False End If End If End If Else Return False 'Ohne Sendungsverweis kein eintrag... End If End If Return False 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 "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 Public Shared Sub DakosyNCTSDatenbereitstellung(ByRef SPEDITIONSBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, NCTS_Nr As String, ByRef notFound As Boolean) Dim DY As DAKOSY_Worker.cDakosyNCTSOut = DAKOSY_Worker.cDakosyNCTSOut.LOADByBezugsNr(NCTS_Nr, True) If DY Is Nothing Then notFound = True Exit Sub End If DakosyNCTSDatenbereitstellung(SPEDITIONSBUCH, DY, notFound) End Sub Public Shared Sub DakosyNCTSDatenbereitstellung(ByRef SPEDITIONSBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, DY As DAKOSY_Worker.cDakosyNCTSOut, ByRef notFound As Boolean) Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL notFound = False 'Ermittlung ob T1 oder T2 If If(SPEDITIONSBUCH.Abfertigungsart, "") = "" Then If If(DY.ncts_ArtAnmeldung, "").ToString.Contains("T2") Then SPEDITIONSBUCH.Abfertigungsart = 6 For Each s In DY.ncts_SICHERHEITSANGABEN Select Case If(s.nctsSA_GRN, "") Case "15TR0004000020917", "12TR0004000004665", "17TR0004000032349", "17TR0004000029518" : SPEDITIONSBUCH.Abfertigungsart = 34 Case "16DE0000000068410" : SPEDITIONSBUCH.Abfertigungsart = 33 Case "15TR0004000020908", "13TR0004000005094", "18DE0000000073276" : SPEDITIONSBUCH.Abfertigungsart = 37 End Select Next ElseIf If(DY.ncts_ArtAnmeldung, "").ToString.Contains("TIR") Then 'For Each s In DY.ncts_SICHERHEITSANGABEN ' If If(s.nctsSA_ArtCode, "") = "B" Then ' SPEDITIONSBUCH.Abfertigungsart = 8 ' End If 'Next If DY.ncts_BestimmungslandCode = "TR" Then SPEDITIONSBUCH.Abfertigungsart = 12 Else SPEDITIONSBUCH.Abfertigungsart = 8 End If Else SPEDITIONSBUCH.Abfertigungsart = 5 End If End If Try Dim ANM As New DAKOSY_Worker.cDakosy_Zollanmeldungen(DY.ncts_dyaAnmID) SPEDITIONSBUCH.DokumentId_Steuerbeleg = ANM.dy_Steuerbescheid_dsId SPEDITIONSBUCH.DokumentId_VBD = ANM.dy_VBD_dsId Catch ex As Exception MsgBox("ERR: " & ex.Message & ex.StackTrace) End Try If SPEDITIONSBUCH.Abfertigungsdatum Is Nothing Then SPEDITIONSBUCH.Abfertigungsdatum = Now ' CDate(DY.ncts_Trans_DatumZeit).ToShortDateString SPEDITIONSBUCH.Bestimmungszollstelle = DY.ncts_BestimmungsstelleDienststellennummer SPEDITIONSBUCH.Versendungsland = DY.ncts_VersendungsLandCode SPEDITIONSBUCH.Bestimmungsland = DY.ncts_BestimmungslandCode If DY.ncts_SICHERHEITSANGABEN.Count > 0 Then SPEDITIONSBUCH.Bürgschaft = DY.ncts_SICHERHEITSANGABEN(0).nctsSA_GRN Dim sumBrg As Double = 0 For Each S In DY.ncts_SICHERHEITSANGABEN sumBrg += If(S.nctsSA_AbgabenBetrag, 0) Next If sumBrg > 0 Then SPEDITIONSBUCH.Sicherheitsbetrag = sumBrg End If 'SPEDITIONSBUCH.Abfertigungsdatum= SPEDITIONSBUCH.BelegNr = DY.ncts_MRN SPEDITIONSBUCH.LKW_Kennzeichen = If(DY.ncts_Befoerderungsmittel_KennzeichenAbgang, "") Dim AD = getAdresseFromEORI(DY.ncts_SumA_Versender_EORI, SQL) If AD IsNot Nothing Then SPEDITIONSBUCH.AbsenderKundenNr = AD.AdressenNr SPEDITIONSBUCH.Absender = AD.Ordnungsbegriff End If If If(SPEDITIONSBUCH.Absender, "").Trim = "" Then If If(DY.ncts_SumA_Versender_Name, "").ToString.Trim <> "" Then SPEDITIONSBUCH.Absender = If(DY.ncts_SumA_Versender_Name, "") SPEDITIONSBUCH.Absender &= ", " & If(DY.ncts_SumA_Versender_Land, "") SPEDITIONSBUCH.Absender &= " " & If(DY.ncts_SumA_Versender_PLZ, "") 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, SQL) If AD_pos IsNot Nothing Then SPEDITIONSBUCH.AbsenderKundenNr = AD_pos.AdressenNr SPEDITIONSBUCH.Absender = AD_pos.Ordnungsbegriff End If If If(WP.nctsWP_SumAVersender_Name, "").ToString.Trim <> "" Then SPEDITIONSBUCH.Absender = If(WP.nctsWP_SumAVersender_Name, "") SPEDITIONSBUCH.Absender &= ", " & If(WP.nctsWP_SumAVersender_Land, "") SPEDITIONSBUCH.Absender &= " " & If(WP.nctsWP_SumAVersender_PLZ, "") SPEDITIONSBUCH.Absender &= " " & If(WP.nctsWP_SumAVersender_Ort, "") End If If If(SPEDITIONSBUCH.Absender, "").Trim = String.Empty Then SPEDITIONSBUCH.Absender &= (" " & If(WP.nctsWP_SumAVersender_EORI, "")).ToString.Trim End If If If(SPEDITIONSBUCH.Absender, "").Trim = String.Empty Then SPEDITIONSBUCH.Absender &= (" " & If(DY.ncts_SumA_Versender_EORI, "")).ToString.Trim End If Dim AD2 = getAdresseFromEORI(DY.ncts_SumA_Empfaenger_EORI, SQL) If AD2 IsNot Nothing Then SPEDITIONSBUCH.EmpfängerKundenNr = AD2.AdressenNr SPEDITIONSBUCH.Empfänger = AD2.Ordnungsbegriff End If If If(SPEDITIONSBUCH.Empfänger, "") = "" Then If If(DY.ncts_SumA_Empfaenger_Name, "").ToString.Trim <> "" Then SPEDITIONSBUCH.Empfänger = If(DY.ncts_SumA_Empfaenger_Name, "") SPEDITIONSBUCH.Empfänger &= ", " & If(DY.ncts_SumA_Empfaenger_Land, "") SPEDITIONSBUCH.Empfänger &= " " & If(DY.ncts_SumA_Empfaenger_PLZ, "") 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, SQL) If AD_pos IsNot Nothing Then SPEDITIONSBUCH.EmpfängerKundenNr = AD_pos.AdressenNr SPEDITIONSBUCH.Empfänger = AD_pos.Ordnungsbegriff End If If AD2 IsNot Nothing Then SPEDITIONSBUCH.EmpfängerKundenNr = AD2.AdressenNr SPEDITIONSBUCH.Empfänger = AD2.Ordnungsbegriff End If If If(WP.nctsWP_SumAEmpfaenger_Name, "").ToString.Trim <> "" Then SPEDITIONSBUCH.Empfänger = If(WP.nctsWP_SumAEmpfaenger_Name, "") SPEDITIONSBUCH.Empfänger &= ", " & If(WP.nctsWP_SumAEmpfaenger_Land, "") SPEDITIONSBUCH.Empfänger &= " " & If(WP.nctsWP_SumAEmpfaenger_PLZ, "") SPEDITIONSBUCH.Empfänger &= " " & If(WP.nctsWP_SumAEmpfaenger_Ort, "") End If If If(SPEDITIONSBUCH.Empfänger, "").Trim = String.Empty Then SPEDITIONSBUCH.Empfänger &= (" " & If(WP.nctsWP_SumAEmpfaenger_EORI, "")).ToString.Trim End If If If(SPEDITIONSBUCH.Empfänger, "").Trim = String.Empty Then SPEDITIONSBUCH.Empfänger &= (" " & If(DY.ncts_SumA_Empfaenger_EORI, "")).ToString.Trim End If Dim packSt = "" If DY.ncts_GesamtAnzahlPackstuecke IsNot Nothing Then packSt = DY.ncts_GesamtAnzahlPackstuecke & " Pk. " If DY.ncts_WARENPOS.Count > 0 Then 'SPEDITIONSBUCH.Währungsschlüssel = If(DY.ncts_WARENPOS(0).nctsWP_WarenwertWaehrung, "") SPEDITIONSBUCH.Währungsschlüssel = "900" If DY.ncts_GesamtRohmasse IsNot Nothing Then packSt &= If(DY.ncts_WARENPOS(0).nctsWP_Warenbezeichnung, "") Dim sumBrg As Double = 0 For Each S In DY.ncts_WARENPOS sumBrg += If(S.nctsWP_Warenwert, 0) Next If sumBrg > 0 Then SPEDITIONSBUCH.Rechnungsbetrag = sumBrg End If If packSt.Trim <> String.Empty Then SPEDITIONSBUCH.Packstücke = packSt.Trim If DY.ncts_GesamtRohmasse IsNot Nothing AndAlso IsNumeric(DY.ncts_GesamtRohmasse) Then SPEDITIONSBUCH.Rohmasse = CInt(DY.ncts_GesamtRohmasse) 'CDbl(DY.ncts_GesamtRohmasse).ToString("N2") 'Personal Abfertigung: Try If DY.ncts_Bearbeiter IsNot Nothing Then Dim p = SQL.getValueTxtBySql("SELECT ISNULL(CASE WHEN [mit_FMZollPersIDKasseIsnotSpedBuch]=1 THEN [mit_FMZollPersIDSpedBuch] ELSE [mit_FMZollPersID] END ,-1) as [mit_FMZollPersID] FROM [ADMIN].[dbo].[tblMitarbeiter] WHERE [mit_DAKOSY_SB]='" & DY.ncts_Bearbeiter & "'", "ADMIN") SPEDITIONSBUCH.Personalnummer = If(IsNumeric(p), p, Nothing) End If Catch ex As Exception MsgBox("Fehler DAKOSY Personal: " & vbNewLine & ex.Message & vbNewLine & ex.StackTrace) End Try End Sub Shared Function getAdresseFromEORI(EORI As String, SQL As VERAG_PROG_ALLGEMEIN.SQL) If EORI Is Nothing Then Return Nothing If If(EORI, "") <> "" Then Dim kdNrTmp = SQL.getFMZOLLKdNrFromEORI(EORI) 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 cDakosy_NCTSOut_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 tblDakosy_NCTSOut_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 cDakosy_NCTSOut_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_PACKSTUECKE As New List(Of cDakosy_NCTSOut_WarenpositionPackstuecke) Property nctsWP_UNTERLAGEN As New List(Of cDakosy_NCTSOut_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)) 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 tblDakosy_NCTSOut_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 tblDakosy_NCTSOut_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 cDakosy_NCTSOut_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 [tblDakosy_NCTSOut_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 tblDakosy_NCTSOut_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 cDakosy_NCTSOut_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 [tblDakosy_NCTSOut_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 cDakosy_NCTSOut_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 tblDakosy_NCTSOut_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 cDakosy_NCTSOut_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 tblDakosy_NCTSOut_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