SDL/VERAG_PROG_ALLGEMEIN/Classes/cAvisoTrips.vb

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