DY NL

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