diff --git a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA.vb b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA.vb
index b811efd2..2c84daa9 100644
--- a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA.vb
+++ b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA.vb
@@ -189,21 +189,28 @@ Public Class usrCntlATLAS_EZA
POSITIONEN = New usrCntlATLAS_EZA_Positionen(EZA, Me)
DV1 = New usrCntlATLAS_EZA_DV1(EZA)
- Select Case FIRMA_DY
- Case "VERAG" : txtDyMandant.Text = "VERG"
- txtDyNiederlassung.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
- ' Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
- 'Case "SUB" : txtDyNiederlassung.Text = "VERG"
- 'Case "SUW" : txtDyNiederlassung.Text = "ATIL"
- ''Case "SBG" : txtDyNiederlassung.Text = "IMEX"
- 'Case "NEU" : txtDyNiederlassung.Text = "IMEX"
- 'Case "NKD" : txtDyNiederlassung.Text = "IMEX"
- 'End Select
- Case "AMBAR" : txtDyMandant.Text = "ATIL" : txtDyNiederlassung.Text = "AMBWO"
- Case "ATILLA" : txtDyMandant.Text = "ATIL" : txtDyNiederlassung.Text = "SUW"
- Case "UNISPED" : txtDyMandant.Text = "UNAT" : txtDyNiederlassung.Text = "ATSPED"
- Case "IMEX" : txtDyMandant.Text = "IMEX" : txtDyNiederlassung.Text = "IME"
- End Select
+ 'Select Case FIRMA_DY
+ ' Case "VERAG" : txtDyMandant.Text = "VERG"
+ ' txtDyNiederlassung.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
+ ' sdf
+ ' ' Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
+ ' 'Case "SUB" : txtDyNiederlassung.Text = "VERG"
+ ' 'Case "SUW" : txtDyNiederlassung.Text = "ATIL"
+ ' ''Case "SBG" : txtDyNiederlassung.Text = "IMEX"
+ ' 'Case "NEU" : txtDyNiederlassung.Text = "IMEX"
+ ' 'Case "NKD" : txtDyNiederlassung.Text = "IMEX"
+ ' 'End Select
+ ' Case "AMBAR" : txtDyMandant.Text = "ATIL" : txtDyNiederlassung.Text = "AMBWO"
+ ' Case "ATILLA" : txtDyMandant.Text = "ATIL" : txtDyNiederlassung.Text = "SUW"
+ ' Case "UNISPED" : txtDyMandant.Text = "UNAT" : txtDyNiederlassung.Text = "ATSPED"
+ ' Case "IMEX" : txtDyMandant.Text = "IMEX" : txtDyNiederlassung.Text = "IME"
+ 'End Select
+
+ 'FIRMA_DY = cDakosyFunftions.getFirma_DY(FilialenNr.ToString, Me) ??? AUch gut ??
+ txtDyMandant.Text = cDakosyFunftions.getIOPartner(FIRMA_DY, "EZA")
+ txtDyNiederlassung.Text = cDakosyFunftions.getDivision(FIRMA_DY, "EZA")
+
+
cboStammreferenz.fillWithSQL("SELECT [dySr_Stammreferenz],[dySr_Bezeichnung] FROM [tblDakosy_Stammreferenzen] WHERE dySr_Land='DE' AND dySr_Verfahren='EZA' and dySr_dy_Mandant='" & txtDyMandant.Text & "' and dySr_dy_Niederlassung='" & txtDyNiederlassung.Text.Replace("DTB", "SUB") & "' and dySr_visible=1", False, "FMZOLL", True)
diff --git a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004.vb b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004.vb
index 67c51825..c555168a 100644
--- a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004.vb
+++ b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004.vb
@@ -162,22 +162,25 @@ Public Class usrCntlATLAS_NCTS004
AusGestllungToolStripMenuItem.Visible = True
- Select Case FIRMA_DY
- Case "VERAG" : txtDyMandant.Text = "VERG"
- txtDyNiederlassung.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
- ' Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
- 'Case "SUB" : txtDyNiederlassung.Text = "VERG"
- 'Case "SUW" : txtDyNiederlassung.Text = "ATIL"
- ''Case "SBG" : txtDyNiederlassung.Text = "IMEX"
- 'Case "NEU" : txtDyNiederlassung.Text = "IMEX"
- 'Case "NKD" : txtDyNiederlassung.Text = "IMEX"
- 'End Select
- Case "ATILLA" : txtDyMandant.Text = "ATIL" : txtDyNiederlassung.Text = "SUW"
- Case "UNISPED" : txtDyMandant.Text = "UNAT" : txtDyNiederlassung.Text = "ATSPED"
- Case "IMEX" : txtDyMandant.Text = "IMEX" : txtDyNiederlassung.Text = "IME"
- Case "AMBAR" : txtDyMandant.Text = "ATIL" : txtDyNiederlassung.Text = "AMBWO"
- End Select
+ 'Select Case FIRMA_DY
+ ' Case "VERAG" : txtDyMandant.Text = "VERG"
+ ' txtDyNiederlassung.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
+ ' ' Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
+ ' 'Case "SUB" : txtDyNiederlassung.Text = "VERG"
+ ' 'Case "SUW" : txtDyNiederlassung.Text = "ATIL"
+ ' ''Case "SBG" : txtDyNiederlassung.Text = "IMEX"
+ ' 'Case "NEU" : txtDyNiederlassung.Text = "IMEX"
+ ' 'Case "NKD" : txtDyNiederlassung.Text = "IMEX"
+ ' 'End Select
+ ' Case "ATILLA" : txtDyMandant.Text = "ATIL" : txtDyNiederlassung.Text = "SUW"
+ ' Case "UNISPED" : txtDyMandant.Text = "UNAT" : txtDyNiederlassung.Text = "ATSPED"
+ ' Case "IMEX" : txtDyMandant.Text = "IMEX" : txtDyNiederlassung.Text = "IME"
+ ' Case "AMBAR" : txtDyMandant.Text = "ATIL" : txtDyNiederlassung.Text = "AMBWO"
+ 'End Select
+ ' FIRMA_DY = cDakosyFunftions.getFirma_DY(FilialenNr.ToString, Me)?
+ txtDyMandant.Text = cDakosyFunftions.getIOPartner(FIRMA_DY)
+ txtDyNiederlassung.Text = cDakosyFunftions.getDivision(FIRMA_DY, "NCTS")
cboStammreferenz.fillWithSQL("SELECT [dySr_Stammreferenz],[dySr_Bezeichnung] FROM [tblDakosy_Stammreferenzen] WHERE dySr_Land='DE' AND dySr_Verfahren='NCTS' and dySr_dy_Mandant='" & txtDyMandant.Text & "' and dySr_dy_Niederlassung IN ('','" & txtDyNiederlassung.Text.Replace("DTB", "SUB") & "') and dySr_visible=1", False, "FMZOLL", True)
cboStammreferenz.changeItem("")
diff --git a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/Verwahrung/usrCntlATLAS_AnkunftsAnzeige.vb b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/Verwahrung/usrCntlATLAS_AnkunftsAnzeige.vb
index 31327f8a..fb827316 100644
--- a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/Verwahrung/usrCntlATLAS_AnkunftsAnzeige.vb
+++ b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/Verwahrung/usrCntlATLAS_AnkunftsAnzeige.vb
@@ -44,21 +44,25 @@ Public Class usrCntlATLAS_AnkunftsAnzeige
cboDakosyAction.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Datensatz an ZOLL senden", DY_ObjektAktion.OBJ_SEND))
cboDakosyAction.changeItem(DY_ObjektAktion.OBJ_CREATE)
- Select Case FIRMA_DY
- Case "VERAG" : txtDyMandant.Text = "VERG"
- txtDyNiederlassung.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
- ' Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
- 'Case "SUB" : txtDyNiederlassung.Text = "VERG"
- 'Case "SUW" : txtDyNiederlassung.Text = "ATIL"
- ''Case "SBG" : txtDyNiederlassung.Text = "IMEX"
- 'Case "NEU" : txtDyNiederlassung.Text = "IMEX"
- 'Case "NKD" : txtDyNiederlassung.Text = "IMEX"
- 'End Select
- Case "ATILLA" : txtDyMandant.Text = "ATIL" : txtDyNiederlassung.Text = "SUW"
- Case "UNISPED" : txtDyMandant.Text = "UNAT" : txtDyNiederlassung.Text = "ATSPED"
- Case "IMEX" : txtDyMandant.Text = "VERG" : txtDyNiederlassung.Text = "SUB" 'VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG 'txtDyMandant.Text = "IMEX" : txtDyNiederlassung.Text = "IME"
- Case "AMBAR" : txtDyMandant.Text = "ATIL" : txtDyNiederlassung.Text = "AMBWO"
- End Select
+ 'Select Case FIRMA_DY
+ ' Case "VERAG" : txtDyMandant.Text = "VERG"
+ ' txtDyNiederlassung.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
+ ' ' Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
+ ' 'Case "SUB" : txtDyNiederlassung.Text = "VERG"
+ ' 'Case "SUW" : txtDyNiederlassung.Text = "ATIL"
+ ' ''Case "SBG" : txtDyNiederlassung.Text = "IMEX"
+ ' 'Case "NEU" : txtDyNiederlassung.Text = "IMEX"
+ ' 'Case "NKD" : txtDyNiederlassung.Text = "IMEX"
+ ' 'End Select
+ ' Case "ATILLA" : txtDyMandant.Text = "ATIL" : txtDyNiederlassung.Text = "SUW"
+ ' Case "UNISPED" : txtDyMandant.Text = "UNAT" : txtDyNiederlassung.Text = "ATSPED"
+ ' Case "IMEX" : txtDyMandant.Text = "VERG" : txtDyNiederlassung.Text = "SUB" 'VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG 'txtDyMandant.Text = "IMEX" : txtDyNiederlassung.Text = "IME"
+ ' Case "AMBAR" : txtDyMandant.Text = "ATIL" : txtDyNiederlassung.Text = "AMBWO"
+ 'End Select
+
+ txtDyMandant.Text = cDakosyFunftions.getIOPartner(FIRMA_DY, "AA")
+ txtDyNiederlassung.Text = cDakosyFunftions.getDivision(FIRMA_DY, "AA")
+
Dim BezugsNr As String = ""
diff --git a/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb b/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb
index bee7dcf0..67a02d38 100644
--- a/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb
+++ b/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb
@@ -961,6 +961,7 @@ Public Class cAviso
Property VerwahrungStatus As Integer
Property VerwahrungStatusDate As Object = Nothing
Property EintragMehrfach As Boolean = False
+ Property AvisoTripId As Integer
Public VORPAPIERE As New List(Of cAvisoVorpapier)
@@ -1079,6 +1080,13 @@ Public Class cAviso
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
SQL.doSQL("UPDATE AVISO SET FahrerHandy='" & FahrerHandy & "' WHERE AvisoId=" & AvisoID, "AVISO")
End Sub
+ Sub UPDATE_Trips(AvisoTripId As Integer)
+ If AvisoID <= 0 Then Exit Sub
+ Me.AvisoTripId = AvisoTripId
+
+ Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+ SQL.doSQL("UPDATE AVISO SET AvisoTripId='" & AvisoTripId & "' WHERE AvisoId=" & AvisoID, "AVISO")
+ End Sub
Sub UPDATE_FreigabeInfo(Freigabe_Info As String)
@@ -1209,6 +1217,7 @@ Public Class cAvisoDAL
daten.VerwahrungStatus = VarToInt(dr.Item("VerwahrungStatus"))
daten.VerwahrungStatusDate = If(dr.Item("VerwahrungStatusDate") Is DBNull.Value, Nothing, dr.Item("VerwahrungStatusDate"))
daten.EintragMehrfach = VarToBool(dr.Item("EintragMehrfach"))
+ daten.AvisoTripId = VarToInt(dr.Item("AvisoTripId"))
@@ -1489,17 +1498,17 @@ Public Class cAvisoDAL
hAuswahl = "INSERT INTO Aviso " &
"(Datum, LKW_Nr, Telefonisch, Änderungen, Info, Status, Auftraggeber, Frächter, letzterMitarbeiter, " &
"Vorbereitet,Vorgeschrieben, Ankunft, Freigabe, Dauer, AvisoEingang, Grenzstelle, LKW_fertig,letzterMitarbeiterId,Handling,Sendungen_Gesamtanzahl,Sammelakt,Frächter_KdNr,Auftraggeber_KdNr,AvisoTVHinweis,Buero,Imex,Abgeschlossen,FIRMA, " &
- " Durchgangszollstelle1,Durchgangszollstelle2,Durchgangszollstelle3,Durchgangszollstelle4,Durchgangszollstelle5,Durchgangszollstelle6,Ausgangszollstelle,Zollstelle,TransportTemperatur,Zugmaschine,FahrerHandy,LKW_Nationalitaet,DakosyRef,TeamId,Cluster,Freigabe_Info,KdAuftragsNr_Frachtfuehrer,KdAuftragsNr_Avisierer,FreigabeFiliale,VoraussichtlichesEintreffen,Warenort,ZOLLDigitalEingereicht,Transportmittelart,WeiterleitungTextTV,VerwahrungStatus,VerwahrungStatusDate, EintragMehrfach) VALUES (" &
+ " Durchgangszollstelle1,Durchgangszollstelle2,Durchgangszollstelle3,Durchgangszollstelle4,Durchgangszollstelle5,Durchgangszollstelle6,Ausgangszollstelle,Zollstelle,TransportTemperatur,Zugmaschine,FahrerHandy,LKW_Nationalitaet,DakosyRef,TeamId,Cluster,Freigabe_Info,KdAuftragsNr_Frachtfuehrer,KdAuftragsNr_Avisierer,FreigabeFiliale,VoraussichtlichesEintreffen,Warenort,ZOLLDigitalEingereicht,Transportmittelart,WeiterleitungTextTV,VerwahrungStatus,VerwahrungStatusDate, EintragMehrfach,AvisoTripId) VALUES (" &
"@Datum, @LKW_Nr, @Telefonisch, @Änderungen, @Info, @Status, @Auftraggeber, @Frächter, @letzterMitarbeiter, " &
"@Vorbereitet, @Vorgeschrieben, @Ankunft, @Freigabe, @Dauer, @AvisoEingang, @Grenzstelle, @LKW_fertig,@letzterMitarbeiterId,@Handling,@Sendungen_Gesamtanzahl,@Sammelakt,@Frächter_KdNr,@Auftraggeber_KdNr,@AvisoTVHinweis,@Buero,@Imex,@Abgeschlossen,@FIRMA," &
- "@Durchgangszollstelle1,@Durchgangszollstelle2,@Durchgangszollstelle3,@Durchgangszollstelle4,@Durchgangszollstelle5,@Durchgangszollstelle6,@Ausgangszollstelle,@Zollstelle,@TransportTemperatur,@Zugmaschine,@FahrerHandy,@LKW_Nationalitaet,@DakosyRef,@TeamId,@Cluster,@Freigabe_Info,@KdAuftragsNr_Frachtfuehrer,@KdAuftragsNr_Avisierer,@FreigabeFiliale,@VoraussichtlichesEintreffen,@Warenort,@ZOLLDigitalEingereicht,@Transportmittelart,@WeiterleitungTextTV,@VerwahrungStatus,@VerwahrungStatusDate, @EintragMehrfach); SELECT CAST(scope_identity() AS int);"
+ "@Durchgangszollstelle1,@Durchgangszollstelle2,@Durchgangszollstelle3,@Durchgangszollstelle4,@Durchgangszollstelle5,@Durchgangszollstelle6,@Ausgangszollstelle,@Zollstelle,@TransportTemperatur,@Zugmaschine,@FahrerHandy,@LKW_Nationalitaet,@DakosyRef,@TeamId,@Cluster,@Freigabe_Info,@KdAuftragsNr_Frachtfuehrer,@KdAuftragsNr_Avisierer,@FreigabeFiliale,@VoraussichtlichesEintreffen,@Warenort,@ZOLLDigitalEingereicht,@Transportmittelart,@WeiterleitungTextTV,@VerwahrungStatus,@VerwahrungStatusDate, @EintragMehrfach,@AvisoTripId); SELECT CAST(scope_identity() AS int);"
Else
id = d.AvisoID
'Änderung
hAuswahl = String.Format(
"UPDATE Aviso SET Datum = @Datum, LKW_Nr = @LKW_Nr, Telefonisch=@Telefonisch, Änderungen=@Änderungen, Info=@Info, Status=@Status, Auftraggeber=@Auftraggeber, Frächter=@Frächter, " &
" letzterMitarbeiter = @letzterMitarbeiter, Vorbereitet=@Vorbereitet,Vorgeschrieben=@Vorgeschrieben, Ankunft = @Ankunft, Freigabe = @Freigabe, Dauer = @Dauer, AvisoEingang = @AvisoEingang, Grenzstelle=@Grenzstelle, LKW_fertig=@LKW_fertig, letzterMitarbeiterId=@letzterMitarbeiterId, Handling=@Handling,Sendungen_Gesamtanzahl=@Sendungen_Gesamtanzahl,Sammelakt=@Sammelakt,Frächter_KdNr=@Frächter_KdNr,Auftraggeber_KdNr=@Auftraggeber_KdNr,AvisoTVHinweis=@AvisoTVHinweis,Buero=@Buero,Imex=@Imex,Abgeschlossen=@Abgeschlossen, " &
- " Durchgangszollstelle1=@Durchgangszollstelle1,Durchgangszollstelle2=@Durchgangszollstelle2,Durchgangszollstelle3=@Durchgangszollstelle3,Durchgangszollstelle4=@Durchgangszollstelle4,Durchgangszollstelle5=@Durchgangszollstelle5,Durchgangszollstelle6=@Durchgangszollstelle6,Ausgangszollstelle=@Ausgangszollstelle,Zollstelle=@Zollstelle,TransportTemperatur=@TransportTemperatur,Zugmaschine=@Zugmaschine,FahrerHandy=@FahrerHandy, LKW_Nationalitaet=@LKW_Nationalitaet, DakosyRef=@DakosyRef,TeamId=@TeamId,Cluster=@Cluster,Freigabe_Info=@Freigabe_Info,KdAuftragsNr_Frachtfuehrer =@KdAuftragsNr_Frachtfuehrer,KdAuftragsNr_Avisierer=@KdAuftragsNr_Avisierer , FreigabeFiliale=@FreigabeFiliale,VoraussichtlichesEintreffen=@VoraussichtlichesEintreffen,Warenort=@Warenort,ZOLLDigitalEingereicht=@ZOLLDigitalEingereicht,Transportmittelart=@Transportmittelart,WeiterleitungTextTV=@WeiterleitungTextTV,VerwahrungStatus=@VerwahrungStatus,VerwahrungStatusDate=@VerwahrungStatusDate,EintragMehrfach=@EintragMehrfach,FIRMA=@FIRMA" &
+ " Durchgangszollstelle1=@Durchgangszollstelle1,Durchgangszollstelle2=@Durchgangszollstelle2,Durchgangszollstelle3=@Durchgangszollstelle3,Durchgangszollstelle4=@Durchgangszollstelle4,Durchgangszollstelle5=@Durchgangszollstelle5,Durchgangszollstelle6=@Durchgangszollstelle6,Ausgangszollstelle=@Ausgangszollstelle,Zollstelle=@Zollstelle,TransportTemperatur=@TransportTemperatur,Zugmaschine=@Zugmaschine,FahrerHandy=@FahrerHandy, LKW_Nationalitaet=@LKW_Nationalitaet, DakosyRef=@DakosyRef,TeamId=@TeamId,Cluster=@Cluster,Freigabe_Info=@Freigabe_Info,KdAuftragsNr_Frachtfuehrer =@KdAuftragsNr_Frachtfuehrer,KdAuftragsNr_Avisierer=@KdAuftragsNr_Avisierer , FreigabeFiliale=@FreigabeFiliale,VoraussichtlichesEintreffen=@VoraussichtlichesEintreffen,Warenort=@Warenort,ZOLLDigitalEingereicht=@ZOLLDigitalEingereicht,Transportmittelart=@Transportmittelart,WeiterleitungTextTV=@WeiterleitungTextTV,VerwahrungStatus=@VerwahrungStatus,VerwahrungStatusDate=@VerwahrungStatusDate,EintragMehrfach=@EintragMehrfach,AvisoTripId=@AvisoTripId,FIRMA=@FIRMA" &
" WHERE AvisoID = @AvisoID")
End If
@@ -1576,6 +1585,7 @@ Public Class cAvisoDAL
cmd.Parameters.AddWithValue("@VerwahrungStatusDate", If(d.VerwahrungStatusDate Is Nothing, DBNull.Value, d.VerwahrungStatusDate))
cmd.Parameters.AddWithValue("@EintragMehrfach", d.EintragMehrfach)
+ cmd.Parameters.AddWithValue("@AvisoTripId", d.AvisoTripId)
Try
If d.AvisoID <= 0 Then
diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cAvisoTrips.vb b/VERAG_PROG_ALLGEMEIN/Classes/cAvisoTrips.vb
new file mode 100644
index 00000000..da14bfb2
--- /dev/null
+++ b/VERAG_PROG_ALLGEMEIN/Classes/cAvisoTrips.vb
@@ -0,0 +1,217 @@
+Imports System.Data.SqlClient
+Imports System.Reflection
+
+Public Class cAvisoTrips
+
+ Property AvisoTripId As Integer
+ Property CreateDatum As Object = Nothing
+ Property LKW_Nr As Object = Nothing
+ Property Zugmaschine As Object = Nothing
+ Property LKW_Nationalitaet As Object = Nothing
+ Property Auftraggeber_KdNr As Object = Nothing
+ Property Frächter_KdNr As Object = Nothing
+ Property Auftraggeber As Object = Nothing
+ Property Frächter As Object = Nothing
+
+ Public hasEntry As Boolean = False
+
+ Dim SQL As New SQL
+
+ Sub New(_AvisoTripId As Integer)
+ Me.AvisoTripId = _AvisoTripId
+ 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("AvisoTripId", AvisoTripId, , True))
+ list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CreateDatum", CreateDatum))
+ list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LKW_Nr", LKW_Nr))
+ list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Zugmaschine", Zugmaschine))
+ list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LKW_Nationalitaet", LKW_Nationalitaet))
+ list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Auftraggeber_KdNr", Auftraggeber_KdNr))
+ list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Frächter_KdNr", Frächter_KdNr))
+ list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Auftraggeber", Auftraggeber))
+ list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Frächter", Frächter))
+
+ Return list
+ 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 AvisoTrips WHERE AvisoTripId=@AvisoTripId) " &
+ "BEGIN " & getUpdateCmd() & " END " &
+ "ELSE " &
+ "BEGIN " & getInsertCmd() & " END " &
+ "COMMIT TRAN"
+ Dim id = SQL.doSQLVarListID(AvisoTripId, sqlstr, "AVISO", , list)
+ If id > 0 Then AvisoTripId = id
+ Return (id > 0)
+ End Function
+
+ Public Sub LOAD()
+ Try
+ hasEntry = False
+
+ Using conn As SqlConnection = SQL.GetNewOpenConnectionAVISO()
+ Using cmd As New SqlCommand("SELECT * FROM AvisoTrips WHERE AvisoTripId=@AvisoTripId", conn)
+ cmd.Parameters.AddWithValue("@AvisoTripId", AvisoTripId)
+
+ Dim dr = cmd.ExecuteReader()
+ If dr.Read Then
+ For Each li In getParameterList()
+ Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
+
+ If propInfo IsNot Nothing Then
+ If dr.Item(li.Text) Is DBNull.Value Then
+ propInfo.SetValue(Me, Nothing)
+ Else
+ propInfo.SetValue(Me, dr.Item(li.Text))
+ End If
+ End If
+ Next
+
+ hasEntry = True
+ End If
+ dr.Close()
+ End Using
+ End Using
+
+ Catch ex As Exception
+ VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, MethodInfo.GetCurrentMethod.Name)
+ End Try
+ End Sub
+
+ 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 & ","
+ End If
+ Next
+
+ str = str.Substring(0, str.Length - 1)
+
+ Return "UPDATE AVISO.dbo.AvisoTrips SET " & str & " WHERE AvisoTripId=@AvisoTripId"
+
+ Catch ex As Exception
+ VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, MethodInfo.GetCurrentMethod.Name)
+ 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 & ","
+ End If
+ Next
+
+ str = str.Substring(0, str.Length - 1)
+ values = values.Substring(0, values.Length - 1)
+
+ Return "INSERT INTO AvisoTrips (" & str & ") VALUES (" & values & ")"
+
+ Catch ex As Exception
+ VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, MethodInfo.GetCurrentMethod.Name)
+ End Try
+
+ Return ""
+ End Function
+
+
+ Public Function getAvisos() As List(Of cAvisoTripsItem)
+ Dim ret As New List(Of cAvisoTripsItem)
+
+ Try
+ Dim sqlstr As String =
+ "SELECT AvisoID, Grenzstelle, Zollstelle " &
+ "FROM Aviso " &
+ "WHERE AvisoTripId = " & Val(AvisoTripId) & " " &
+ " AND Status NOT IN ('" & cGlobal.Status_NichtEingetroffen & "') " &
+ "ORDER BY AvisoID"
+
+ Dim dt As DataTable = SQL.loadDgvBySql(sqlstr, "AVISO")
+
+ If dt IsNot Nothing Then
+ For Each dr As DataRow In dt.Rows
+
+ Dim obj As New cAvisoTripsItem
+
+ If Not IsDBNull(dr("AvisoID")) Then
+ obj.AvisoId = CInt(dr("AvisoID"))
+ End If
+ obj.Grenzstelle = GetGrenzstelleText(dr("Grenzstelle"), dr("Zollstelle"))
+
+ ret.Add(obj)
+
+ Next
+ End If
+
+ Catch ex As Exception
+ VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, Reflection.MethodInfo.GetCurrentMethod.Name)
+ End Try
+
+ Return ret
+ End Function
+
+ Public Shared Function GetGrenzstelleText(GrenzstelleObj As Object, ZollstelleObj As Object) As String
+ Try
+ Dim grenze As String = ""
+ Dim zollstelleCode As String = ""
+
+ Dim SQL As New SQL
+
+ If GrenzstelleObj IsNot Nothing AndAlso Not IsDBNull(GrenzstelleObj) Then
+ grenze = GrenzstelleObj.ToString().Trim()
+ End If
+
+ If ZollstelleObj IsNot Nothing AndAlso Not IsDBNull(ZollstelleObj) Then
+ zollstelleCode = ZollstelleObj.ToString().Trim()
+ End If
+
+ If String.IsNullOrEmpty(grenze) OrElse grenze = "???" Then
+
+ If Not String.IsNullOrEmpty(zollstelleCode) Then
+ Return SQL.getValueTxtBySql(
+ "SELECT Code + ' - ' + [Description] " &
+ "FROM tbl_DY_ZollDE_C0141_Zollstellen " &
+ "WHERE Code='" & zollstelleCode & "' " &
+ "AND ((StartDate IS NULL OR StartDate < GETDATE()) " &
+ "AND (EndDate IS NULL OR EndDate > GETDATE()))",
+ "FMZOLL"
+ )
+ Else
+ Return ""
+ End If
+
+ Else
+ Return grenze
+ End If
+
+ Catch ex As Exception
+ VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, Reflection.MethodInfo.GetCurrentMethod.Name)
+ End Try
+
+ Return ""
+ End Function
+End Class
+
+
+Public Class cAvisoTripsItem
+
+ Property AvisoId As Integer
+ Property Grenzstelle As String
+End Class
\ No newline at end of file
diff --git a/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj b/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj
index ec06e656..fd4a7706 100644
--- a/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj
+++ b/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj
@@ -362,6 +362,7 @@
+