1267 lines
72 KiB
VB.net
1267 lines
72 KiB
VB.net
Imports System.Data.SqlClient
|
|
Imports System.Reflection
|
|
|
|
Public Class cDakosyAES
|
|
|
|
Property aes_Id As Integer
|
|
Property aes_Status As Object = DAKOSY_Worker.cDY_Statusliste.S_00
|
|
Property aes_Status_KEWILL_Equivalent As Object = DAKOSY_Worker.cDY_Statusliste.S_00
|
|
Property aes_dyaArt As String = ""
|
|
Property aes_dyaAnmID As Integer
|
|
Property aes_ANR As Object = Nothing
|
|
Property aes_MRN As Object = Nothing
|
|
Property aes_Erstellung As Date = Now
|
|
Property aes_Erstellung_SB As Object = Nothing
|
|
Property aes_LetzteBearbeitung As Date = Now
|
|
Property aes_LetzteBearbeitung_SB As Object = Nothing
|
|
Property aes_Trans_Partner As Object = Nothing
|
|
Property aes_Trans_Div1 As Object = Nothing
|
|
Property aes_Trans_Div2 As Object = Nothing
|
|
Property aes_Trans_Div3 As Object = Nothing
|
|
Property aes_Trans_Referenz As Object = Nothing
|
|
Property aes_Trans_DatumZeit As Object = Nothing
|
|
Property aes_Trans_Version As Object = Nothing
|
|
Property aes_NachrichtenSenderTIN As Object = Nothing
|
|
Property aes_NachrichtenSenderNLNR As Object = Nothing
|
|
Property aes_NachrichtenempfaengerDST As Object = Nothing
|
|
|
|
Property aes_firma As Object = Nothing
|
|
Property aes_niederlassung As Object = Nothing
|
|
|
|
|
|
|
|
Property aes_ObjectName As Object = Nothing
|
|
Property aes_ObjectAlias As Object = Nothing
|
|
Property aes_BezugsnummerVorblendung As Object = Nothing
|
|
Property aes_Bearbeiter As Object = Nothing
|
|
Property aes_AnmeldeArtAusfuhrCode As Object = Nothing
|
|
Property aes_AnmeldeArtVerfahrensCode As Object = Nothing
|
|
Property aes_AnmeldeArtUeberfuehrungCode As Object = Nothing
|
|
Property aes_Ausfuhrland As Object = Nothing
|
|
Property aes_BestimmungslandCode As Object = Nothing
|
|
Property aes_AnmeldedatumZeit As Object = Nothing
|
|
Property aes_DatumAusgang As Object = Nothing
|
|
Property aes_MassgeblichesDatum As Object = Nothing
|
|
Property aes_BesondereUmstaende As Object = Nothing
|
|
Property aes_Zahlungsweisebefoerderungskosten As Object = Nothing
|
|
Property aes_ContainerIndikator As Object = Nothing
|
|
Property aes_BeteiligteKonstellation As Object = Nothing
|
|
Property aes_AdressdatenKonstellation As Object = Nothing
|
|
Property aes_GesamtRohmasse As Object = Nothing
|
|
Property aes_RegistriernummerFremdsystem As Object = Nothing
|
|
Property aes_Vermerk As Object = Nothing
|
|
Property aes_KennnummerSendung As Object = Nothing
|
|
Property aes_AnzahlPositionen As Object = Nothing
|
|
Property aes_BewiligungsnummerAusfuhr As Object = Nothing
|
|
Property aes_BewiligungsnummerAnschreibeverfahren As Object = Nothing
|
|
Property aes_BewiligungsnummerPassiveVeredelung As Object = Nothing
|
|
Property aes_BewiligungsnummerVertrausenswuerdigerAusfuehrer As Object = Nothing
|
|
Property aes_VerkehrszweigInland As Object = Nothing
|
|
Property aes_BefoerderungsmittelAbgangArtCode As Object = Nothing
|
|
Property aes_BefoerderungsmittelAbgangKennzeichen As Object = Nothing
|
|
Property aes_BefoerderungsmittelAbgangStaatCode As Object = Nothing
|
|
Property aes_VerkehrszweigGrenze As Object = Nothing
|
|
Property aes_BefoerderungsmittelGrenzeArtCode As Object = Nothing
|
|
Property aes_BefoerderungsmittelGrenzeKennzeichen As Object = Nothing
|
|
Property aes_BefoerderungsmittelGrenzeStaatCode As Object = Nothing
|
|
Property aes_LadeortOrtId As Object = Nothing
|
|
Property aes_LadeortStrasse As Object = Nothing
|
|
Property aes_LadeortPLZ As Object = Nothing
|
|
Property aes_LadeortOrt As Object = Nothing
|
|
Property aes_LadeortZusatz As Object = Nothing
|
|
Property aes_AusfuhrZollstelleID As Object = Nothing
|
|
Property aes_AusgangszollstelleID As Object = Nothing
|
|
Property aes_TatsaechlicheAusgangZollstelleID As Object = Nothing
|
|
Property aes_GeschaeftartCode As Object = Nothing
|
|
Property aes_Rechnungspreis As Object = Nothing
|
|
Property aes_Rechnungwaehrung As Object = Nothing
|
|
Property aes_BesondererTatbestand As Object = Nothing
|
|
Property aes_VerschlussArtCode As Object = Nothing
|
|
Property aes_VerschlussAnzahl As Object = Nothing
|
|
Property aes_VerschlussZeichen1 As Object = Nothing
|
|
Property aes_VerschlussZeichen2 As Object = Nothing
|
|
Property aes_VerschlussZeichen3 As Object = Nothing
|
|
Property aes_VerschlussZeichen4 As Object = Nothing
|
|
Property aes_VerschlussZeichen5 As Object = Nothing
|
|
Property aes_VerschlussZeichen6 As Object = Nothing
|
|
Property aes_VerschlussZeichen7 As Object = Nothing
|
|
Property aes_VerschlussZeichen8 As Object = Nothing
|
|
Property aes_VerschlussZeichen9 As Object = Nothing
|
|
Property aes_VerschlussZeichen10 As Object = Nothing
|
|
Property aes_VerschlussZeichen11 As Object = Nothing
|
|
Property aes_VerschlussZeichen12 As Object = Nothing
|
|
Property aes_GestellungsfristAnfangDatumZeit As Object = Nothing
|
|
Property aes_GestellungsfristEndeDatumZeit As Object = Nothing
|
|
Property aes_AusfuehrerTeilnehmerEORI As Object = Nothing
|
|
Property aes_AusfuehrerTeilnehmerNLNR As Object = Nothing
|
|
Property aes_AusfuehrerTeilnehmerName As Object = Nothing
|
|
Property aes_AusfuehrerTeilnehmerStrasse As Object = Nothing
|
|
Property aes_AusfuehrerTeilnehmerOrt As Object = Nothing
|
|
Property aes_AusfuehrerTeilnehmerPLZ As Object = Nothing
|
|
Property aes_AusfuehrerTeilnehmerLandCode As Object = Nothing
|
|
Property aes_AusfuehrerTeilnehmerAnsprechpartnerSachbearbeiter As Object = Nothing
|
|
Property aes_AusfuehrerTeilnehmerAnsprechpartnerTelefonnummer As Object = Nothing
|
|
Property aes_AusfuehrerTeilnehmerAnsprechpartnerStellung As Object = Nothing
|
|
Property aes_AusfuehrerTeilnehmerAnsprechpartnerEmail As Object = Nothing
|
|
Property aes_AusfuehrerTeilnehmerAnsprechpartnerTelefax As Object = Nothing
|
|
Property aes_EmpfaengerTeilnehmerEORI As Object = Nothing
|
|
Property aes_EmpfaengerTeilnehmerNLNR As Object = Nothing
|
|
Property aes_EmpfaengerTeilnehmerName As Object = Nothing
|
|
Property aes_EmpfaengerTeilnehmerStrasse As Object = Nothing
|
|
Property aes_EmpfaengerTeilnehmerOrt As Object = Nothing
|
|
Property aes_EmpfaengerTeilnehmerPLZ As Object = Nothing
|
|
Property aes_EmpfaengerTeilnehmerLandCode As Object = Nothing
|
|
Property aes_AnmelderTeilnehmerEORI As Object = Nothing
|
|
Property aes_AnmelderTeilnehmerNLNR As Object = Nothing
|
|
Property aes_AnmelderTeilnehmerName As Object = Nothing
|
|
Property aes_AnmelderTeilnehmerStrasse As Object = Nothing
|
|
Property aes_AnmelderTeilnehmerOrt As Object = Nothing
|
|
Property aes_AnmelderTeilnehmerPLZ As Object = Nothing
|
|
Property aes_AnmelderTeilnehmerLandCode As Object = Nothing
|
|
Property aes_AnmelderTeilnehmerAnsprechpartnerSachbearbeiter As Object = Nothing
|
|
Property aes_AnmelderTeilnehmerAnsprechpartnerTelefonnummer As Object = Nothing
|
|
Property aes_AnmelderTeilnehmerAnsprechpartnerStellung As Object = Nothing
|
|
Property aes_AnmelderTeilnehmerAnsprechpartnerEmail As Object = Nothing
|
|
Property aes_AnmelderTeilnehmerAnsprechpartnerTelefax As Object = Nothing
|
|
Property aes_VertreterAnmelderTeilnehmerEORI As Object = Nothing
|
|
Property aes_VertreterAnmelderTeilnehmerNLNR As Object = Nothing
|
|
Property aes_VertreterAnmelderTeilnehmerName As Object = Nothing
|
|
Property aes_VertreterAnmelderTeilnehmerStrasse As Object = Nothing
|
|
Property aes_VertreterAnmelderTeilnehmerOrt As Object = Nothing
|
|
Property aes_VertreterAnmelderTeilnehmerPLZ As Object = Nothing
|
|
Property aes_VertreterAnmelderTeilnehmerLandCode As Object = Nothing
|
|
Property aes_VertreterAnmelderTeilnehmerAnsprechpartnerSachbearbeiter As Object = Nothing
|
|
Property aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefonnummer As Object = Nothing
|
|
Property aes_VertreterAnmelderTeilnehmerAnsprechpartnerStellung As Object = Nothing
|
|
Property aes_VertreterAnmelderTeilnehmerAnsprechpartnerEmail As Object = Nothing
|
|
Property aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefax As Object = Nothing
|
|
Property aes_SubunternehmerTeilnehmerEORI As Object = Nothing
|
|
Property aes_SubunternehmerTeilnehmerNLNR As Object = Nothing
|
|
Property aes_SubunternehmerTeilnehmerName As Object = Nothing
|
|
Property aes_SubunternehmerTeilnehmerStrasse As Object = Nothing
|
|
Property aes_SubunternehmerTeilnehmerOrt As Object = Nothing
|
|
Property aes_SubunternehmerTeilnehmerPLZ As Object = Nothing
|
|
Property aes_SubunternehmerTeilnehmerLandCode As Object = Nothing
|
|
Property aes_SubunternehmerTeilnehmerAnsprechpartnerSachbearbeiter As Object = Nothing
|
|
Property aes_SubunternehmerTeilnehmerAnsprechpartnerTelefonnummer As Object = Nothing
|
|
Property aes_SubunternehmerTeilnehmerAnsprechpartnerStellung As Object = Nothing
|
|
Property aes_SubunternehmerTeilnehmerAnsprechpartnerEmail As Object = Nothing
|
|
Property aes_SubunternehmerTeilnehmerAnsprechpartnerTelefax As Object = Nothing
|
|
Property aes_VerfahrensinhaberPVTeilnehmerEORI As Object = Nothing
|
|
Property aes_VerfahrensinhaberPVTeilnehmerNLNR As Object = Nothing
|
|
|
|
Property aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerSachbearbeiter As Object = Nothing
|
|
Property aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefonnummer As Object = Nothing
|
|
Property aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerStellung As Object = Nothing
|
|
Property aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerEmail As Object = Nothing
|
|
Property aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefax As Object = Nothing
|
|
Property aes_BefoerderungsrouteLand1 As Object = Nothing
|
|
Property aes_BefoerderungsrouteLand2 As Object = Nothing
|
|
Property aes_BefoerderungsrouteLand3 As Object = Nothing
|
|
Property aes_BefoerderungsrouteLand4 As Object = Nothing
|
|
Property aes_BefoerderungsrouteLand5 As Object = Nothing
|
|
Property aes_BefoerderungsrouteLand6 As Object = Nothing
|
|
Property aes_BefoerderungsrouteLand7 As Object = Nothing
|
|
Property aes_BefoerderungsrouteLand8 As Object = Nothing
|
|
Property aes_BefoerderungsrouteLand9 As Object = Nothing
|
|
Property aes_BefoerderungsrouteLand10 As Object = Nothing
|
|
Property aes_BefoerderungsrouteLand11 As Object = Nothing
|
|
Property aes_BefoerderungsrouteLand12 As Object = Nothing
|
|
|
|
Property aes_LieferbedingungenCode As Object = Nothing
|
|
Property aes_LieferbedingungenText As Object = Nothing
|
|
Property aes_LieferbedingungenOrt As Object = Nothing
|
|
|
|
Property aes_WARENPOS As New List(Of cDakosy_AES_Warenposition)
|
|
|
|
|
|
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
|
|
|
|
|
Sub New()
|
|
|
|
End Sub
|
|
|
|
Sub New(aes_dyaAnmID As Integer, aes_Erstellung_SB As Integer)
|
|
Me.aes_dyaAnmID = aes_dyaAnmID
|
|
Me.aes_Erstellung_SB = aes_Erstellung_SB
|
|
Me.aes_LetzteBearbeitung_SB = aes_Erstellung_SB
|
|
End Sub
|
|
|
|
Sub New(aes_Id)
|
|
Me.aes_Id = aes_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("aes_Id", aes_Id, , True, True))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_Status", aes_Status))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_Status_KEWILL_Equivalent", aes_Status_KEWILL_Equivalent))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_dyaArt", aes_dyaArt))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_dyaAnmID", aes_dyaAnmID))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_ANR", aes_ANR))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_MRN", aes_MRN))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_Erstellung", aes_Erstellung))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_Erstellung_SB", aes_Erstellung_SB))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_LetzteBearbeitung", aes_LetzteBearbeitung))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_LetzteBearbeitung_SB", aes_LetzteBearbeitung_SB))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_firma", aes_firma))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_niederlassung", aes_niederlassung))
|
|
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_Trans_Partner", aes_Trans_Partner))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_Trans_Div1", aes_Trans_Div1))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_Trans_Div2", aes_Trans_Div2))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_Trans_Div3", aes_Trans_Div3))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_Trans_Referenz", aes_Trans_Referenz))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_Trans_DatumZeit", aes_Trans_DatumZeit))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_Trans_Version", aes_Trans_Version))
|
|
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_NachrichtenSenderTIN", aes_NachrichtenSenderTIN))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_NachrichtenSenderNLNR", aes_NachrichtenSenderNLNR))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_NachrichtenempfaengerDST", aes_NachrichtenempfaengerDST))
|
|
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_ObjectName", aes_ObjectName))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_ObjectAlias", aes_ObjectAlias))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_BezugsnummerVorblendung", aes_BezugsnummerVorblendung))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_Bearbeiter", aes_Bearbeiter))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_AnmeldeArtAusfuhrCode", aes_AnmeldeArtAusfuhrCode))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_AnmeldeArtVerfahrensCode", aes_AnmeldeArtVerfahrensCode))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_AnmeldeArtUeberfuehrungCode", aes_AnmeldeArtUeberfuehrungCode))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_Ausfuhrland", aes_Ausfuhrland))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_BestimmungslandCode", aes_BestimmungslandCode))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_AnmeldedatumZeit", aes_AnmeldedatumZeit))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_DatumAusgang", aes_DatumAusgang))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_MassgeblichesDatum", aes_MassgeblichesDatum))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_BesondereUmstaende", aes_BesondereUmstaende))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_Zahlungsweisebefoerderungskosten", aes_Zahlungsweisebefoerderungskosten))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_ContainerIndikator", aes_ContainerIndikator))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_BeteiligteKonstellation", aes_BeteiligteKonstellation))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_AdressdatenKonstellation", aes_AdressdatenKonstellation))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_GesamtRohmasse", aes_GesamtRohmasse))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_RegistriernummerFremdsystem", aes_RegistriernummerFremdsystem))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_Vermerk", aes_Vermerk))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_KennnummerSendung", aes_KennnummerSendung))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_AnzahlPositionen", aes_AnzahlPositionen))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_BewiligungsnummerAusfuhr", aes_BewiligungsnummerAusfuhr))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_BewiligungsnummerAnschreibeverfahren", aes_BewiligungsnummerAnschreibeverfahren))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_BewiligungsnummerPassiveVeredelung", aes_BewiligungsnummerPassiveVeredelung))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_BewiligungsnummerVertrausenswuerdigerAusfuehrer", aes_BewiligungsnummerVertrausenswuerdigerAusfuehrer))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_VerkehrszweigInland", aes_VerkehrszweigInland))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_BefoerderungsmittelAbgangArtCode", aes_BefoerderungsmittelAbgangArtCode))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_BefoerderungsmittelAbgangKennzeichen", aes_BefoerderungsmittelAbgangKennzeichen))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_BefoerderungsmittelAbgangStaatCode", aes_BefoerderungsmittelAbgangStaatCode))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_VerkehrszweigGrenze", aes_VerkehrszweigGrenze))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_BefoerderungsmittelGrenzeArtCode", aes_BefoerderungsmittelGrenzeArtCode))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_BefoerderungsmittelGrenzeKennzeichen", aes_BefoerderungsmittelGrenzeKennzeichen))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_BefoerderungsmittelGrenzeStaatCode", aes_BefoerderungsmittelGrenzeStaatCode))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_LadeortOrtId", aes_LadeortOrtId))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_LadeortStrasse", aes_LadeortStrasse))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_LadeortPLZ", aes_LadeortPLZ))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_LadeortOrt", aes_LadeortOrt))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_LadeortZusatz", aes_LadeortZusatz))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_AusfuhrZollstelleID", aes_AusfuhrZollstelleID))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_AusgangszollstelleID", aes_AusgangszollstelleID))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_TatsaechlicheAusgangZollstelleID", aes_TatsaechlicheAusgangZollstelleID))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_GeschaeftartCode", aes_GeschaeftartCode))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_Rechnungspreis", aes_Rechnungspreis))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_Rechnungwaehrung", aes_Rechnungwaehrung))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_BesondererTatbestand", aes_BesondererTatbestand))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_VerschlussArtCode", aes_VerschlussArtCode))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_VerschlussAnzahl", aes_VerschlussAnzahl))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_VerschlussZeichen1", aes_VerschlussZeichen1))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_VerschlussZeichen2", aes_VerschlussZeichen2))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_VerschlussZeichen3", aes_VerschlussZeichen3))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_VerschlussZeichen4", aes_VerschlussZeichen4))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_VerschlussZeichen5", aes_VerschlussZeichen5))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_VerschlussZeichen6", aes_VerschlussZeichen6))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_VerschlussZeichen7", aes_VerschlussZeichen7))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_VerschlussZeichen8", aes_VerschlussZeichen8))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_VerschlussZeichen9", aes_VerschlussZeichen9))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_VerschlussZeichen10", aes_VerschlussZeichen10))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_VerschlussZeichen11", aes_VerschlussZeichen11))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_VerschlussZeichen12", aes_VerschlussZeichen12))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_GestellungsfristAnfangDatumZeit", aes_GestellungsfristAnfangDatumZeit))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_GestellungsfristEndeDatumZeit", aes_GestellungsfristEndeDatumZeit))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_AusfuehrerTeilnehmerEORI", aes_AusfuehrerTeilnehmerEORI))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_AusfuehrerTeilnehmerNLNR", aes_AusfuehrerTeilnehmerNLNR))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_AusfuehrerTeilnehmerName", aes_AusfuehrerTeilnehmerName))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_AusfuehrerTeilnehmerStrasse", aes_AusfuehrerTeilnehmerStrasse))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_AusfuehrerTeilnehmerOrt", aes_AusfuehrerTeilnehmerOrt))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_AusfuehrerTeilnehmerPLZ", aes_AusfuehrerTeilnehmerPLZ))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_AusfuehrerTeilnehmerLandCode", aes_AusfuehrerTeilnehmerLandCode))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_AusfuehrerTeilnehmerAnsprechpartnerSachbearbeiter", aes_AusfuehrerTeilnehmerAnsprechpartnerSachbearbeiter))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_AusfuehrerTeilnehmerAnsprechpartnerTelefonnummer", aes_AusfuehrerTeilnehmerAnsprechpartnerTelefonnummer))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_AusfuehrerTeilnehmerAnsprechpartnerStellung", aes_AusfuehrerTeilnehmerAnsprechpartnerStellung))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_AusfuehrerTeilnehmerAnsprechpartnerEmail", aes_AusfuehrerTeilnehmerAnsprechpartnerEmail))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_AusfuehrerTeilnehmerAnsprechpartnerTelefax", aes_AusfuehrerTeilnehmerAnsprechpartnerTelefax))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_EmpfaengerTeilnehmerEORI", aes_EmpfaengerTeilnehmerEORI))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_EmpfaengerTeilnehmerNLNR", aes_EmpfaengerTeilnehmerNLNR))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_EmpfaengerTeilnehmerName", aes_EmpfaengerTeilnehmerName))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_EmpfaengerTeilnehmerStrasse", aes_EmpfaengerTeilnehmerStrasse))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_EmpfaengerTeilnehmerOrt", aes_EmpfaengerTeilnehmerOrt))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_EmpfaengerTeilnehmerPLZ", aes_EmpfaengerTeilnehmerPLZ))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_EmpfaengerTeilnehmerLandCode", aes_EmpfaengerTeilnehmerLandCode))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_AnmelderTeilnehmerEORI", aes_AnmelderTeilnehmerEORI))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_AnmelderTeilnehmerNLNR", aes_AnmelderTeilnehmerNLNR))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_AnmelderTeilnehmerName", aes_AnmelderTeilnehmerName))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_AnmelderTeilnehmerStrasse", aes_AnmelderTeilnehmerStrasse))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_AnmelderTeilnehmerOrt", aes_AnmelderTeilnehmerOrt))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_AnmelderTeilnehmerPLZ", aes_AnmelderTeilnehmerPLZ))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_AnmelderTeilnehmerLandCode", aes_AnmelderTeilnehmerLandCode))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_AnmelderTeilnehmerAnsprechpartnerSachbearbeiter", aes_AnmelderTeilnehmerAnsprechpartnerSachbearbeiter))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_AnmelderTeilnehmerAnsprechpartnerTelefonnummer", aes_AnmelderTeilnehmerAnsprechpartnerTelefonnummer))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_AnmelderTeilnehmerAnsprechpartnerStellung", aes_AnmelderTeilnehmerAnsprechpartnerStellung))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_AnmelderTeilnehmerAnsprechpartnerEmail", aes_AnmelderTeilnehmerAnsprechpartnerEmail))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_AnmelderTeilnehmerAnsprechpartnerTelefax", aes_AnmelderTeilnehmerAnsprechpartnerTelefax))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_VertreterAnmelderTeilnehmerEORI", aes_VertreterAnmelderTeilnehmerEORI))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_VertreterAnmelderTeilnehmerNLNR", aes_VertreterAnmelderTeilnehmerNLNR))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_VertreterAnmelderTeilnehmerName", aes_VertreterAnmelderTeilnehmerName))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_VertreterAnmelderTeilnehmerStrasse", aes_VertreterAnmelderTeilnehmerStrasse))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_VertreterAnmelderTeilnehmerOrt", aes_VertreterAnmelderTeilnehmerOrt))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_VertreterAnmelderTeilnehmerPLZ", aes_VertreterAnmelderTeilnehmerPLZ))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_VertreterAnmelderTeilnehmerLandCode", aes_VertreterAnmelderTeilnehmerLandCode))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_VertreterAnmelderTeilnehmerAnsprechpartnerSachbearbeiter", aes_VertreterAnmelderTeilnehmerAnsprechpartnerSachbearbeiter))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefonnummer", aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefonnummer))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_VertreterAnmelderTeilnehmerAnsprechpartnerStellung", aes_VertreterAnmelderTeilnehmerAnsprechpartnerStellung))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_VertreterAnmelderTeilnehmerAnsprechpartnerEmail", aes_VertreterAnmelderTeilnehmerAnsprechpartnerEmail))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefax", aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefax))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_SubunternehmerTeilnehmerEORI", aes_SubunternehmerTeilnehmerEORI))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_SubunternehmerTeilnehmerNLNR", aes_SubunternehmerTeilnehmerNLNR))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_SubunternehmerTeilnehmerName", aes_SubunternehmerTeilnehmerName))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_SubunternehmerTeilnehmerStrasse", aes_SubunternehmerTeilnehmerStrasse))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_SubunternehmerTeilnehmerOrt", aes_SubunternehmerTeilnehmerOrt))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_SubunternehmerTeilnehmerPLZ", aes_SubunternehmerTeilnehmerPLZ))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_SubunternehmerTeilnehmerLandCode", aes_SubunternehmerTeilnehmerLandCode))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_SubunternehmerTeilnehmerAnsprechpartnerSachbearbeiter", aes_SubunternehmerTeilnehmerAnsprechpartnerSachbearbeiter))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_SubunternehmerTeilnehmerAnsprechpartnerTelefonnummer", aes_SubunternehmerTeilnehmerAnsprechpartnerTelefonnummer))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_SubunternehmerTeilnehmerAnsprechpartnerStellung", aes_SubunternehmerTeilnehmerAnsprechpartnerStellung))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_SubunternehmerTeilnehmerAnsprechpartnerEmail", aes_SubunternehmerTeilnehmerAnsprechpartnerEmail))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_SubunternehmerTeilnehmerAnsprechpartnerTelefax", aes_SubunternehmerTeilnehmerAnsprechpartnerTelefax))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_VerfahrensinhaberPVTeilnehmerEORI", aes_VerfahrensinhaberPVTeilnehmerEORI))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_VerfahrensinhaberPVTeilnehmerNLNR", aes_VerfahrensinhaberPVTeilnehmerNLNR))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerSachbearbeiter", aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerSachbearbeiter))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefonnummer", aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefonnummer))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerStellung", aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerStellung))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerEmail", aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerEmail))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefax", aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefax))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_BefoerderungsrouteLand1", aes_BefoerderungsrouteLand1))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_BefoerderungsrouteLand2", aes_BefoerderungsrouteLand2))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_BefoerderungsrouteLand3", aes_BefoerderungsrouteLand3))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_BefoerderungsrouteLand4", aes_BefoerderungsrouteLand4))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_BefoerderungsrouteLand5", aes_BefoerderungsrouteLand5))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_BefoerderungsrouteLand6", aes_BefoerderungsrouteLand6))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_BefoerderungsrouteLand7", aes_BefoerderungsrouteLand7))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_BefoerderungsrouteLand8", aes_BefoerderungsrouteLand8))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_BefoerderungsrouteLand9", aes_BefoerderungsrouteLand9))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_BefoerderungsrouteLand10", aes_BefoerderungsrouteLand10))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_BefoerderungsrouteLand11", aes_BefoerderungsrouteLand11))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_BefoerderungsrouteLand12", aes_BefoerderungsrouteLand12))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_LieferbedingungenCode", aes_LieferbedingungenCode))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_LieferbedingungenText", aes_LieferbedingungenText))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_LieferbedingungenOrt", aes_LieferbedingungenOrt))
|
|
|
|
Return list
|
|
End Function
|
|
|
|
Public Function UPDATE_STATUS(status) As Boolean
|
|
Me.aes_Status = status
|
|
Return Me.SAVE
|
|
End Function
|
|
|
|
Public Function SAVE() As Boolean
|
|
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
|
|
|
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblDakosy_AES WITH(updlock,serializable) WHERE aes_Id=@aes_Id) " &
|
|
" BEGIN " & getUpdateCmd() & " END " &
|
|
" Else " &
|
|
" BEGIN " & getInsertCmd() & " END " &
|
|
" commit tran "
|
|
|
|
aes_Id = SQL.doSQLVarListID(aes_Id, sqlstr, "FMZOLL", , list)
|
|
Return aes_Id > 0
|
|
End Function
|
|
|
|
Public Function SAVE_ALL() As Boolean
|
|
If Not SAVE() Then Return False
|
|
If Not SAVE_Warenposition() Then Return False
|
|
Return True
|
|
End Function
|
|
|
|
Public Function LOAD(Optional loadALL As Boolean = True) As Boolean
|
|
Try
|
|
LOAD = False
|
|
If loadALL Then
|
|
aes_WARENPOS.Clear()
|
|
End If
|
|
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
|
Using cmd As New SqlCommand("SELECT * FROM tblDakosy_AES WHERE aes_Id=@aes_Id ", conn)
|
|
cmd.Parameters.AddWithValue("@aes_Id", aes_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_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(aes_dyaAnmID As String, loadALL As Boolean) As cDakosyAES
|
|
Try
|
|
Dim AES As New cDakosyAES
|
|
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
|
|
|
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
|
Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblDakosy_AES WHERE aes_dyaAnmID=@aes_dyaAnmID ", conn)
|
|
cmd.Parameters.AddWithValue("@aes_dyaAnmID", aes_dyaAnmID)
|
|
Dim dr = cmd.ExecuteReader()
|
|
If dr.Read Then
|
|
For Each l In AES.getParameterList()
|
|
Dim propInfo As PropertyInfo = AES.GetType.GetProperty(l.Scalarvariable)
|
|
|
|
If dr.Item(l.Text) Is DBNull.Value Then
|
|
propInfo.SetValue(AES, Nothing)
|
|
Else
|
|
propInfo.SetValue(AES, dr.Item(l.Text))
|
|
End If
|
|
|
|
Next
|
|
If loadALL Then
|
|
AES.LOAD_Warenposition()
|
|
End If
|
|
|
|
dr.Close()
|
|
Return AES
|
|
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 LOADByAnmID(aes_dyaAnmID As String, loadALL As Boolean) As Boolean
|
|
Try
|
|
LOADByAnmID = False
|
|
If loadALL Then
|
|
aes_WARENPOS.Clear()
|
|
End If
|
|
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
|
Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblDakosy_AES WHERE aes_dyaAnmID=@aes_dyaAnmID ", conn)
|
|
cmd.Parameters.AddWithValue("@aes_dyaAnmID", aes_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_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 cDakosyAES
|
|
Try
|
|
Dim AES As New cDakosyAES
|
|
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
|
|
|
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
|
Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblDakosy_AES WHERE aes_ObjectName=@bezugsNr ", conn)
|
|
cmd.Parameters.AddWithValue("@bezugsNr", bezugsNr)
|
|
Dim dr = cmd.ExecuteReader()
|
|
If dr.Read Then
|
|
For Each l In AES.getParameterList()
|
|
Dim propInfo As PropertyInfo = AES.GetType.GetProperty(l.Scalarvariable)
|
|
|
|
If dr.Item(l.Text) Is DBNull.Value Then
|
|
propInfo.SetValue(AES, Nothing)
|
|
Else
|
|
propInfo.SetValue(AES, dr.Item(l.Text))
|
|
End If
|
|
|
|
Next
|
|
If loadALL Then
|
|
AES.LOAD_Warenposition()
|
|
End If
|
|
|
|
dr.Close()
|
|
Return AES
|
|
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 aes_Id > 0 Then
|
|
Try
|
|
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_Id", aes_Id, , True))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_Status", status, , True))
|
|
aes_Status = status
|
|
|
|
Return SQL.doSQLVarList(" UPDATE [tblDakosy_AES] SET aes_Status=@aes_Status WHERE aes_Id=@aes_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_AES] SET " & str & " WHERE aes_Id=@aes_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_AES (" & 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_Warenposition()
|
|
Try
|
|
aes_WARENPOS.Clear()
|
|
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
|
Using cmd As New SqlCommand("SELECT * FROM tblDakosy_AES_Warenposition WHERE aesWP_aesId=@aes_Id ", conn)
|
|
cmd.Parameters.AddWithValue("@aes_Id", Me.aes_Id)
|
|
Dim dr = cmd.ExecuteReader()
|
|
While dr.Read
|
|
Dim l As New cDakosy_AES_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()
|
|
aes_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_AES_Warenposition] WHERE aesWP_aesId=" & Me.aes_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_AES_WarenpositionPackstuecke] WHERE aesWpPk_aesId=" & Me.aes_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_AES_WarenpositionUnterlagen] WHERE aesWpUl_aesId =" & Me.aes_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 aes_WARENPOS
|
|
p.aesWP_AESId = aes_Id
|
|
If p.INSERT() Then
|
|
p.INSERT_WarenpositionPackstuecke(p.aesWP_Id, Me.aes_Id)
|
|
p.INSERT_WarenpositionUnterlagen(p.aesWP_Id, Me.aes_Id)
|
|
Else
|
|
Return False
|
|
End If
|
|
Next
|
|
Else
|
|
Return False
|
|
End If
|
|
|
|
Return True
|
|
End Function
|
|
|
|
|
|
|
|
Function countSpedbuchEntrys(filiale, AES) As Integer
|
|
If If(AES, "") = "" Then Return 0
|
|
Return SQL.getValueTxtBySqlVarList("SELECT isnull(count(*),0) FROM Speditionsbuch WHERE [FilialenNr]='" & filiale & "' AND AtlasBezNrAES='" & AES & "'", "FMZOLL")
|
|
End Function
|
|
|
|
Function insertIntoSpedBuch(DY As cDakosy_Zollanmeldungen) As Boolean
|
|
Dim SPEDBUCH As New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch
|
|
Dim cZOLL_IMPORT As New cZOLL_IMPORT
|
|
|
|
Dim firmaTmp = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
|
VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = If(If(Me.aes_firma, "") <> "", Me.aes_firma, "VERAG")
|
|
If DY.dy_SendungsId IsNot Nothing Then
|
|
'Filiale erkennen:
|
|
Dim filialeBez = ""
|
|
Dim filiale = cDakosyEZA.getFiliale(Me.aes_ObjectName, filialeBez)
|
|
Dim abfertigungsnummer = cDakosyEZA.getAbfertigungsnummer(Me.aes_ObjectName)
|
|
|
|
If abfertigungsnummer = "" Then
|
|
cDakosyEZA.getFilialeAbfertigungsnummerFromSendung(filiale, abfertigungsnummer, DY.dy_SendungsId)
|
|
End If
|
|
|
|
If filiale <> "" And abfertigungsnummer <> "" Then
|
|
If cDakosyEZA.countSpedbuchEntrysFilialeAbf(filiale, abfertigungsnummer) = 0 Then
|
|
' VERAG_PROG_ALLGEMEIN.cErrorHandler.sendERRORperMail("HEUREKA EZA ", "" & Me.aes_ObjectName, Now.ToString("yyyy.MM.dd HH:mm"), "al@verag.ag", "")
|
|
SPEDBUCH.FilialenNr = filiale
|
|
SPEDBUCH.AbfertigungsNr = abfertigungsnummer
|
|
SPEDBUCH.NewUNTER_NR()
|
|
|
|
SPEDBUCH.Abfertigungsart = "7"
|
|
SPEDBUCH.Abfertigungsanzahl = 1
|
|
SPEDBUCH.Fakturiert = 0
|
|
SPEDBUCH.AtlasBezNrAES = Me.aes_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, "", "", notfound, True,, Me.aes_ObjectName)
|
|
|
|
If notfound Then Return False
|
|
' VERAG_PROG_ALLGEMEIN.cErrorHandler.sendERRORperMail("HEUREKA EZA !!", "" & Me.aes_ObjectName, Now.ToString("yyyy.MM.dd HH:mm"), "al@verag.ag", "")
|
|
|
|
' MsgBox(SPEDBUCH.FilialenNr & " - " & SPEDBUCH.AbfertigungsNr)
|
|
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
|
|
|
|
|
|
' MsgBox(SQL.getValueTxtBySql("select count(*) FROM [VERAG].[dbo].[Speditionsbuch] where AbfertigungsNr = 18035380", "FMZOLL"))
|
|
|
|
End If
|
|
End If
|
|
Else
|
|
Return False 'Ohne Sendungsverweis kein eintrag...
|
|
End If
|
|
Return False
|
|
|
|
End Function
|
|
|
|
|
|
'Function insertIntoSpedBuch(DY As cDakosy_Zollanmeldungen) As Boolean
|
|
' Dim SPEDBUCH As New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch
|
|
' If If(Me.aes_firma, "") = "IMEX" Then
|
|
' If countSpedbuchEntrys(5501, Me.AES_ObjectName) = 0 Then
|
|
' SPEDBUCH.FilialenNr = 5501
|
|
' SPEDBUCH.AbfertigungsNr = VERAG_PROG_ALLGEMEIN.cAllgemein.getMaxPosNrIncrement(SPEDBUCH.FilialenNr, Now.Year)
|
|
' SPEDBUCH.NewUNTER_NR()
|
|
|
|
' SPEDBUCH.AtlasBezNrNCTS = Me.aes_ObjectName
|
|
' SPEDBUCH.Zollsystem = "D"
|
|
|
|
' Dim notfound = False
|
|
' DakosyAESDatenbereitstellung(SPEDBUCH, Me.AES_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
|
|
' If False Then 'NOCH NCIHT....
|
|
|
|
' If DY.dy_SendungsId IsNot Nothing Then
|
|
|
|
' Else
|
|
' Return False 'Ohne Sendungsverweis kein eintrag...
|
|
' End If
|
|
|
|
' Return SPEDBUCH.SAVE
|
|
' End If
|
|
' End If
|
|
' Return False
|
|
|
|
'End Function
|
|
|
|
|
|
Public Shared Sub DakosyAESDatenbereitstellung(ByVal SPEDITIONSBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, AES_Nr As String, ByVal notFound As Boolean)
|
|
Dim DY As DAKOSY_Worker.cDakosyAES = DAKOSY_Worker.cDakosyAES.LOADByBezugsNr(AES_Nr, True)
|
|
If DY Is Nothing Then
|
|
notFound = True
|
|
Exit Sub
|
|
End If
|
|
DakosyAESDatenbereitstellung(SPEDITIONSBUCH, DY, notFound)
|
|
End Sub
|
|
|
|
Public Shared Sub DakosyAESDatenbereitstellung(ByVal SPEDITIONSBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, DY As DAKOSY_Worker.cDakosyAES, ByVal notFound As Boolean)
|
|
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
|
|
|
notFound = False
|
|
|
|
If SPEDITIONSBUCH.Abfertigungsdatum Is Nothing Then SPEDITIONSBUCH.Abfertigungsdatum = CDate(DY.aes_Trans_DatumZeit).ToShortDateString
|
|
|
|
' SPEDITIONSBUCH.Bestimmungszollstelle = DY.AES_BestimmungsstelleDienststellennummer
|
|
SPEDITIONSBUCH.Versendungsland = DY.aes_AusfuehrerTeilnehmerLandCode
|
|
SPEDITIONSBUCH.Bestimmungsland = DY.AES_BestimmungslandCode
|
|
|
|
|
|
'SPEDITIONSBUCH.Abfertigungsdatum=
|
|
|
|
SPEDITIONSBUCH.BelegNr = DY.AES_MRN
|
|
SPEDITIONSBUCH.LKW_Kennzeichen = If(DY.aes_BefoerderungsmittelAbgangKennzeichen, "")
|
|
|
|
If If(DY.aes_AusfuehrerTeilnehmerName, "") <> "" Then
|
|
SPEDITIONSBUCH.Absender = If(DY.aes_AusfuehrerTeilnehmerName, "")
|
|
SPEDITIONSBUCH.Absender &= ", " & If(DY.aes_AusfuehrerTeilnehmerStrasse, "")
|
|
SPEDITIONSBUCH.Absender &= " " & If(DY.aes_AusfuehrerTeilnehmerPLZ, "")
|
|
SPEDITIONSBUCH.Absender &= " " & If(DY.aes_AusfuehrerTeilnehmerOrt, "")
|
|
If If(SPEDITIONSBUCH.Absender, "").Trim = String.Empty Then SPEDITIONSBUCH.Absender &= " " & If(DY.aes_AusfuehrerTeilnehmerEORI, "")
|
|
End If
|
|
|
|
|
|
|
|
Dim packSt = ""
|
|
'If DY.pac IsNot Nothing Then packSt = DY.AES_GesamtAnzahlPackstuecke & " Pk. "
|
|
|
|
If DY.AES_WARENPOS.Count > 0 Then
|
|
'SPEDITIONSBUCH.Währungsschlüssel = If(DY.AES_WARENPOS(0).AESWP_WarenwertWaehrung, "")
|
|
SPEDITIONSBUCH.Währungsschlüssel = "900"
|
|
If DY.AES_GesamtRohmasse IsNot Nothing Then packSt &= If(DY.AES_WARENPOS(0).AESWP_Warenbezeichnung, "")
|
|
|
|
Dim sumBrg As Double = 0
|
|
For Each S In DY.AES_WARENPOS
|
|
sumBrg += If(S.aesWP_Wert, 0)
|
|
Next
|
|
If sumBrg > 0 Then SPEDITIONSBUCH.Rechnungsbetrag = sumBrg
|
|
End If
|
|
|
|
If packSt.Trim <> String.Empty Then SPEDITIONSBUCH.Packstücke = packSt.Trim
|
|
|
|
If DY.AES_GesamtRohmasse IsNot Nothing AndAlso IsNumeric(DY.AES_GesamtRohmasse) Then SPEDITIONSBUCH.Rohmasse = CInt(DY.AES_GesamtRohmasse) 'CDbl(DY.AES_GesamtRohmasse).ToString("N2")
|
|
'Personal Abfertigung:
|
|
Try
|
|
If DY.AES_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.AES_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
|
|
|
|
|
|
End Class
|
|
|
|
|
|
|
|
|
|
Public Class cDakosy_AES_Warenposition
|
|
|
|
Property aesWP_Id As Integer
|
|
Property aesWP_AESId As Integer
|
|
Property aesWP_PositionsNummer As Object = Nothing
|
|
Property aesWP_WarennummerKN8 As Object = Nothing
|
|
Property aesWP_WarennummerTARIC As Object = Nothing
|
|
Property aesWP_WarennummerZusatz1 As Object = Nothing
|
|
Property aesWP_WarennummerZusatz2 As Object = Nothing
|
|
Property aesWP_WarennummerNational As Object = Nothing
|
|
|
|
Property aesWP_Warenbezeichnung As Object = Nothing
|
|
Property aesWP_RegisternummerFremdsystem As Object = Nothing
|
|
Property aesWP_Vermerk As Object = Nothing
|
|
|
|
Property aesWP_KennungSendung As Object = Nothing
|
|
Property aesWP_UrsprungsbundeslandCode As Object = Nothing
|
|
Property aesWP_Eigenmasse As Object = Nothing
|
|
Property aesWP_Rohmasse As Object = Nothing
|
|
Property aesWP_Gefahrgutnummer As Object = Nothing
|
|
Property aesWP_ZahlungsweiseBefoerderungskosten As Object = Nothing
|
|
Property aesWP_VerfahrenAngemeldetCode As Object = Nothing
|
|
Property aesWP_VerfahrenVorangegangenCode As Object = Nothing
|
|
Property aesWP_VerfahrenNationalCode As Object = Nothing
|
|
|
|
Property aesWP_AusfuhrerstattungVerfahrensCode As Object = Nothing
|
|
Property aesWP_Menge As Object = Nothing
|
|
Property aesWP_Wert As Object = Nothing
|
|
Property aesWP_VorpapierTypCode1 As Object = Nothing
|
|
Property aesWP_ReferenzID1 As Object = Nothing
|
|
Property aesWP_Zusatz1 As Object = Nothing
|
|
Property aesWP_VorpapierTypCode2 As Object = Nothing
|
|
Property aesWP_ReferenzID2 As Object = Nothing
|
|
Property aesWP_Zusatz2 As Object = Nothing
|
|
Property aesWP_VorpapierTypCode3 As Object = Nothing
|
|
Property aesWP_ReferenzID3 As Object = Nothing
|
|
Property aesWP_Zusatz3 As Object = Nothing
|
|
Property aesWP_VorpapierTypCode4 As Object = Nothing
|
|
Property aesWP_ReferenzID4 As Object = Nothing
|
|
Property aesWP_Zusatz4 As Object = Nothing
|
|
Property aesWP_VorpapierTypCode5 As Object = Nothing
|
|
Property aesWP_ReferenzID5 As Object = Nothing
|
|
Property aesWP_Zusatz5 As Object = Nothing
|
|
Property aesWP_VorpapierTypCode6 As Object = Nothing
|
|
Property aesWP_ReferenzID6 As Object = Nothing
|
|
Property aesWP_Zusatz6 As Object = Nothing
|
|
Property aesWP_VorpapierTypCode7 As Object = Nothing
|
|
Property aesWP_ReferenzID7 As Object = Nothing
|
|
Property aesWP_Zusatz7 As Object = Nothing
|
|
Property aesWP_VorpapierTypCode8 As Object = Nothing
|
|
Property aesWP_ReferenzID8 As Object = Nothing
|
|
Property aesWP_Zusatz8 As Object = Nothing
|
|
Property aesWP_VorpapierTypCode9 As Object = Nothing
|
|
Property aesWP_ReferenzID9 As Object = Nothing
|
|
Property aesWP_Zusatz9 As Object = Nothing
|
|
Property aesWP_Containernummer1 As Object = Nothing
|
|
Property aesWP_Containernummer2 As Object = Nothing
|
|
Property aesWP_Containernummer3 As Object = Nothing
|
|
Property aesWP_Containernummer4 As Object = Nothing
|
|
|
|
Property aesWP_EmpfaengerTeilnehmerEORI As Object = Nothing
|
|
Property aesWP_EmpfaengerTeilnehmerNLNR As Object = Nothing
|
|
Property aesWP_EmpfaengerTeilnehmerName As Object = Nothing
|
|
Property aesWP_EmpfaengerTeilnehmerStrasse As Object = Nothing
|
|
Property aesWP_EmpfaengerTeilnehmerOrt As Object = Nothing
|
|
Property aesWP_EmpfaengerTeilnehmerPLZ As Object = Nothing
|
|
Property aesWP_EmpfaengerTeilnehmerLandCode As Object = Nothing
|
|
|
|
|
|
|
|
Property aesWP_PACKSTUECKE As New List(Of cDakosy_AES_WarenpositionPackstuecke)
|
|
Property aesWP_UNTERLAGEN As New List(Of cDakosy_AES_WarenpositionUnterlagen)
|
|
|
|
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
|
|
|
Sub New()
|
|
' Me.aesWP_aesId = aesWP_aesId
|
|
End Sub
|
|
|
|
'Sub New(aesSA_Id)
|
|
' Me.aesSA_Id = aesSA_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("aesWP_Id", aesWP_Id, , True, True))
|
|
|
|
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_AESId", aesWP_AESId))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_PositionsNummer", aesWP_PositionsNummer))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_WarennummerKN8", aesWP_WarennummerKN8))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_WarennummerTARIC", aesWP_WarennummerTARIC))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_WarennummerZusatz1", aesWP_WarennummerZusatz1))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_WarennummerZusatz2", aesWP_WarennummerZusatz2))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_WarennummerNational", aesWP_WarennummerNational))
|
|
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_Warenbezeichnung", aesWP_Warenbezeichnung))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_RegisternummerFremdsystem", aesWP_RegisternummerFremdsystem))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_Vermerk", aesWP_Vermerk))
|
|
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_KennungSendung", aesWP_KennungSendung))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_UrsprungsbundeslandCode", aesWP_UrsprungsbundeslandCode))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_Eigenmasse", aesWP_Eigenmasse))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_Rohmasse", aesWP_Rohmasse))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_Gefahrgutnummer", aesWP_Gefahrgutnummer))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_ZahlungsweiseBefoerderungskosten", aesWP_ZahlungsweiseBefoerderungskosten))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_VerfahrenAngemeldetCode", aesWP_VerfahrenAngemeldetCode))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_VerfahrenVorangegangenCode", aesWP_VerfahrenVorangegangenCode))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_VerfahrenNationalCode", aesWP_VerfahrenNationalCode))
|
|
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_AusfuhrerstattungVerfahrensCode", aesWP_AusfuhrerstattungVerfahrensCode))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_Menge", aesWP_Menge))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_Wert", aesWP_Wert))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_VorpapierTypCode1", aesWP_VorpapierTypCode1))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_ReferenzID1", aesWP_ReferenzID1))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_Zusatz1", aesWP_Zusatz1))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_VorpapierTypCode2", aesWP_VorpapierTypCode2))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_ReferenzID2", aesWP_ReferenzID2))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_Zusatz2", aesWP_Zusatz2))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_VorpapierTypCode3", aesWP_VorpapierTypCode3))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_ReferenzID3", aesWP_ReferenzID3))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_Zusatz3", aesWP_Zusatz3))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_VorpapierTypCode4", aesWP_VorpapierTypCode4))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_ReferenzID4", aesWP_ReferenzID4))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_Zusatz4", aesWP_Zusatz4))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_VorpapierTypCode5", aesWP_VorpapierTypCode5))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_ReferenzID5", aesWP_ReferenzID5))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_Zusatz5", aesWP_Zusatz5))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_VorpapierTypCode6", aesWP_VorpapierTypCode6))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_ReferenzID6", aesWP_ReferenzID6))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_Zusatz6", aesWP_Zusatz6))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_VorpapierTypCode7", aesWP_VorpapierTypCode7))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_ReferenzID7", aesWP_ReferenzID7))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_Zusatz7", aesWP_Zusatz7))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_VorpapierTypCode8", aesWP_VorpapierTypCode8))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_ReferenzID8", aesWP_ReferenzID8))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_Zusatz8", aesWP_Zusatz8))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_VorpapierTypCode9", aesWP_VorpapierTypCode9))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_ReferenzID9", aesWP_ReferenzID9))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_Zusatz9", aesWP_Zusatz9))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_Containernummer1", aesWP_Containernummer1))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_Containernummer2", aesWP_Containernummer2))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_Containernummer3", aesWP_Containernummer3))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_Containernummer4", aesWP_Containernummer4))
|
|
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_EmpfaengerTeilnehmerEORI", aesWP_EmpfaengerTeilnehmerEORI))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_EmpfaengerTeilnehmerNLNR", aesWP_EmpfaengerTeilnehmerNLNR))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_EmpfaengerTeilnehmerName", aesWP_EmpfaengerTeilnehmerName))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_EmpfaengerTeilnehmerStrasse", aesWP_EmpfaengerTeilnehmerStrasse))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_EmpfaengerTeilnehmerOrt", aesWP_EmpfaengerTeilnehmerOrt))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_EmpfaengerTeilnehmerPLZ", aesWP_EmpfaengerTeilnehmerPLZ))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_EmpfaengerTeilnehmerLandCode", aesWP_EmpfaengerTeilnehmerLandCode))
|
|
|
|
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)
|
|
aesWP_Id = SQL.doSQLVarListID(aesWP_Id, getInsertCmd, "FMZOLL", , list)
|
|
Return aesWP_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_AES_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
|
|
aesWP_PACKSTUECKE.Clear()
|
|
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
|
Using cmd As New SqlCommand("SELECT * FROM tblDakosy_AES_WarenpositionPackstuecke WHERE aesWpPk_aesWPId=@aesWP_Id ", conn)
|
|
cmd.Parameters.AddWithValue("@aesWP_Id", Me.aesWP_Id)
|
|
Dim dr = cmd.ExecuteReader()
|
|
While dr.Read
|
|
Dim l As New cDakosy_AES_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
|
|
aesWP_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_AES_WarenpositionPackstuecke] WHERE aesWpPk_aesWPId=" & Me.aesWP_Id & " "
|
|
Return SQL.doSQL(sqlstr, "FMZOLL")
|
|
End Function
|
|
|
|
Public Function INSERT_WarenpositionPackstuecke(wp_id, aes_Id) As Boolean
|
|
'Zuserst alle OffertenPos von dem Offert löschen
|
|
|
|
'jetzt die Standartofferten einfügen
|
|
For Each p In aesWP_PACKSTUECKE
|
|
p.aesWpPk_aesWPId = wp_id
|
|
p.aesWpPk_aesId = aes_Id
|
|
If Not p.INSERT() Then
|
|
Return False
|
|
End If
|
|
Next
|
|
|
|
Return True
|
|
End Function
|
|
|
|
|
|
|
|
Public Sub LOAD_WarenpositionUnterlagen()
|
|
Try
|
|
aesWP_UNTERLAGEN.Clear()
|
|
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
|
Using cmd As New SqlCommand("SELECT * FROM tblDakosy_AES_WarenpositionUnterlagen WHERE aesWpUl_aesWPId=@aesWP_Id ", conn)
|
|
cmd.Parameters.AddWithValue("@aesWP_Id", Me.aesWP_Id)
|
|
Dim dr = cmd.ExecuteReader()
|
|
While dr.Read
|
|
Dim l As New cDakosy_AES_WarenpositionUnterlagen
|
|
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
|
|
aesWP_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_AES_WarenpositionUnterlagen] WHERE aesWpUl_aesWPId=" & Me.aesWP_Id & " "
|
|
Return SQL.doSQL(sqlstr, "FMZOLL")
|
|
End Function
|
|
|
|
Public Function INSERT_WarenpositionUnterlagen(wp_id, aes_Id) As Boolean
|
|
'Zuserst alle OffertenPos von dem Offert löschen
|
|
|
|
'jetzt die Standartofferten einfügen
|
|
For Each p In aesWP_UNTERLAGEN
|
|
p.aesWpUl_aesWPId = wp_id
|
|
p.aesWpUl_aesId = aes_Id
|
|
If Not p.INSERT() Then
|
|
Return False
|
|
End If
|
|
Next
|
|
|
|
Return True
|
|
End Function
|
|
|
|
|
|
|
|
|
|
End Class
|
|
|
|
|
|
|
|
Public Class cDakosy_AES_WarenpositionPackstuecke
|
|
|
|
Property aesWpPk_Id As Integer
|
|
Property aesWpPk_aesWPId As Integer
|
|
Property aesWpPk_aesId As Integer
|
|
|
|
Property aesWpPk_PackstueckeAnzahl As Object = Nothing
|
|
Property aesWpPk_Verpackungsart As Object = Nothing
|
|
Property aesWpPk_Kennzeichnung As Object = Nothing
|
|
|
|
|
|
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
|
|
|
Sub New()
|
|
' Me.aesWpPk_aesWPId = aesWpPk_aesWPId
|
|
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("aesWpPk_Id", aesWpPk_Id, , True, True))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWpPk_aesWPId", aesWpPk_aesWPId))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWpPk_aesId", aesWpPk_aesId))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWpPk_PackstueckeAnzahl", aesWpPk_PackstueckeAnzahl))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWpPk_Verpackungsart", aesWpPk_Verpackungsart))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWpPk_Kennzeichnung", aesWpPk_Kennzeichnung))
|
|
Return list
|
|
End Function
|
|
|
|
|
|
Public Function INSERT() As Boolean
|
|
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
|
aesWpPk_Id = SQL.doSQLVarListID(aesWpPk_Id, getInsertCmd(), "FMZOLL", , list)
|
|
Return aesWpPk_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_AES_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_AES_WarenpositionUnterlagen
|
|
|
|
Property aesWpUl_Id As Integer
|
|
Property aesWpUl_aesWPId As Integer
|
|
Property aesWpUl_aesId As Integer
|
|
Property aesWpUl_Typ As Object = Nothing
|
|
Property aesWpUl_QualifierCode As Object = Nothing
|
|
Property aesWpUl_ReferenzID As Object = Nothing
|
|
Property aesWpUl_Zusatz As Object = Nothing
|
|
Property aesWpUl_Detail As Object = Nothing
|
|
Property aesWpUl_DatumAusstellung As Object = Nothing
|
|
Property aesWpUl_DatumEndeGueltigkeit As Object = Nothing
|
|
Property aesWpUl_Wert As Object = Nothing
|
|
Property aesWpUl_Abschreibungsmenge As Object = Nothing
|
|
Property aesWpUl_Masseinheit As Object = Nothing
|
|
|
|
|
|
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
|
|
|
Sub New()
|
|
' Me.aesWpUl_aesWPId = aesWpUl_aesWPId
|
|
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("aesWpUl_Id", aesWpUl_Id, , True, True))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWpUl_aesWPId", aesWpUl_aesWPId))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWpUl_aesId", aesWpUl_aesId))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWpUl_Typ", aesWpUl_Typ))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWpUl_QualifierCode", aesWpUl_QualifierCode))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWpUl_ReferenzID", aesWpUl_ReferenzID))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWpUl_Zusatz", aesWpUl_Zusatz))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWpUl_Detail", aesWpUl_Detail))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWpUl_DatumAusstellung", aesWpUl_DatumAusstellung))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWpUl_DatumEndeGueltigkeit", aesWpUl_DatumEndeGueltigkeit))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWpUl_Wert", aesWpUl_Wert))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWpUl_Abschreibungsmenge", aesWpUl_Abschreibungsmenge))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWpUl_Masseinheit", aesWpUl_Masseinheit))
|
|
Return list
|
|
End Function
|
|
|
|
|
|
Public Function INSERT() As Boolean
|
|
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
|
aesWpUl_Id = SQL.doSQLVarListID(aesWpUl_Id, getInsertCmd(), "FMZOLL", , list)
|
|
Return aesWpUl_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_AES_WarenpositionUnterlagen (" & str & ") VALUES(" & values & ") ")
|
|
Catch ex As Exception
|
|
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
|
End Try
|
|
Return ""
|
|
End Function
|
|
|
|
End Class
|