DY NL
This commit is contained in:
@@ -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
|
||||
|
||||
217
VERAG_PROG_ALLGEMEIN/Classes/cAvisoTrips.vb
Normal file
217
VERAG_PROG_ALLGEMEIN/Classes/cAvisoTrips.vb
Normal file
@@ -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
|
||||
@@ -362,6 +362,7 @@
|
||||
<Compile Include="Classes\cAvisoAnhangsarten.vb" />
|
||||
<Compile Include="Classes\cAvisoBenachrichtigungen.vb" />
|
||||
<Compile Include="Classes\cAvisoStatusMails.vb" />
|
||||
<Compile Include="Classes\cAvisoTrips.vb" />
|
||||
<Compile Include="Classes\cBesuchsbericht.vb" />
|
||||
<Compile Include="Classes\cBonitaetsauskunft.vb" />
|
||||
<Compile Include="Classes\cChilkat_Helper.vb" />
|
||||
|
||||
Reference in New Issue
Block a user