1607 lines
88 KiB
VB.net
1607 lines
88 KiB
VB.net
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, Optional checkValidStatus As Boolean = False) 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 (SELECT * FROM tblDakosy_NCTSOut 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 tblDakosy_NCTSOut 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 tblDakosy_NCTSOut WHERE ncts_ObjectName LIKE @bezugsNr " & If(checkValidStatus, " AND ncts_status BETWEEN 40 and 90 ", "") & " order by ncts_LetzteBearbeitung desc", conn)
|
|
'MsgBox("SELECT TOP 1 * FROM tblDakosy_NCTSOut 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("@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
|
|
|
|
|
|
Public Shared Function get_Warenposition(ncts_Id As Integer, Optional loadAll As Boolean = False) As List(Of cDakosy_NCTSOut_Warenposition)
|
|
Try
|
|
Dim ncts_WARENPOS As New List(Of cDakosy_NCTSOut_Warenposition)
|
|
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
|
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", 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
|
|
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 [tblDakosy_NCTSOut_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 [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 abfertigungsnummer = "" Then
|
|
getFilialeAbfertigungsnummerFromSendung(filiale, abfertigungsnummer, DY.dy_SendungsId)
|
|
End If
|
|
|
|
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 "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
|
|
|
|
|
|
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 & ", " & CDbl(DY.ncts_GesamtRohmasse).ToString("N1") & " kg"
|
|
|
|
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_KdRefNr 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))
|
|
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 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
|