201020

2020-10-20 09:03:00 +02:00
parent 75b12f314d
commit 00cd158bf0
54 changed files with 11763 additions and 323 deletions
--- a/VERAG_PROG_ALLGEMEIN/Classes/cSpeditionsbuch.vb
+++ b/VERAG_PROG_ALLGEMEIN/Classes/cSpeditionsbuch.vb
@@ -178,10 +178,12 @@ Public Class cSpeditionsbuch
    Property HandlingZuKassieren As Double = 0

    Property FilialenNrAbklaerung As Object = Nothing
+    Property PersonalnummerAbklTR As Object = Nothing


    Property UNTERPOS As New List(Of cSpeditionsbuchUnterPos)
    Property VORKOSTEN As New List(Of cVorkosten)
+    Property ENDEMPFAENGER As New List(Of cEndEmpfaener)

    Dim SQL As New SQL

@@ -233,7 +235,7 @@ Public Class cSpeditionsbuch
                       " commit tran "

        If SQL.doSQLVarList(sqlstr, "FMZOLL", , list) Then
-            If SAVE_VORKOSTEN() Then
+            If SAVE_VORKOSTEN() And SAVE_ENDEMPFAENGER() Then
                Return True
            End If
        End If
@@ -338,10 +340,12 @@ Public Class cSpeditionsbuch
                        Me.FilialenNrHandling = SQL.checkNullReturnValue(dr.Item("FilialenNrHandling"), Nothing)
                        Me.FilialenNrAbklaerung = SQL.checkNullReturnValue(dr.Item("FilialenNrAbklaerung"), Nothing)
                        Me.HandlingZuKassieren = SQL.checkNulDbl(dr.Item("HandlingZuKassieren"))
+                        Me.PersonalnummerAbklTR = SQL.checkNullReturnValue(dr.Item("PersonalnummerAbklTR"), Nothing)

                        Me.SB_CMRNr = SQL.checkNullReturnValue(dr.Item("SB_CMRNr"), Nothing)

                        LOAD_VORKOSTEN()
+                        LOAD_ENDEMPFAENGER()

                        Me.SB_Zeitstempel = SQL.checkNullDateNothing(dr.Item("SB_Zeitstempel"))

@@ -446,6 +450,7 @@ Public Class cSpeditionsbuch
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FilialenNrHandling", FilialenNrHandling))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FilialenNrAbklaerung", FilialenNrAbklaerung))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("HandlingZuKassieren", HandlingZuKassieren))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("PersonalnummerAbklTR", PersonalnummerAbklTR))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SB_CMRNr", SB_CMRNr))


@@ -555,6 +560,44 @@ Public Class cSpeditionsbuch
            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
        End Try
    End Sub
+
+    Public Sub LOAD_ENDEMPFAENGER()
+        Try
+            Dim conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
+
+            'Using cmd2 As New SqlCommand("SELECT * FROM tblSpeditionsbuchUnterPos INNER JOIN [Abfertigungsarten] ON sbup_Abfertigungsart=Abfertigungsart WHERE sbup_Filiale=@sbup_Filiale AND sbup_AbfertigungsNr=@sbup_AbfertigungsNr AND sbup_UnterNr=@sbup_UnterNr ", conn)
+            Using cmd2 As New SqlCommand("SELECT * FROM tblSpeditionsbuchEndEmpfaenger WHERE FilialenNr=@FilialenNr AND AbfertigungsNr=@AbfertigungsNr AND UnterNr=@UnterNr ", conn)
+                cmd2.Parameters.AddWithValue("@FilialenNr", Me.FilialenNr)
+                cmd2.Parameters.AddWithValue("@AbfertigungsNr", Me.AbfertigungsNr)
+                cmd2.Parameters.AddWithValue("@UnterNr", Me.UnterNr)
+                Dim dr2 = cmd2.ExecuteReader()
+                Me.ENDEMPFAENGER.Clear()
+                While dr2.Read
+                    Dim a As New cEndEmpfaener()
+
+                    a.FilialenNr = SQL.checkNullReturnValue(dr2.Item("FilialenNr"), -1)
+                    a.AbfertigungsNr = SQL.checkNullReturnValue(dr2.Item("AbfertigungsNr"), -1)
+                    a.UnterNr = SQL.checkNullReturnValue(dr2.Item("UnterNr"), -1)
+                    a.EndEmpfaengerKdNr = SQL.checkNullReturnValue(dr2.Item("EndEmpfaengerKdNr"), -1)
+                    a.EndEmpfaenger = SQL.checkNullReturnValue(dr2.Item("EndEmpfaenger"), "")
+                    a.UstIdKz = SQL.checkNullReturnValue(dr2.Item("UstIdKz"), Nothing)
+                    a.UstIdNr = SQL.checkNullReturnValue(dr2.Item("UstIdNr"), Nothing)
+                    a.Rechnungsbetrag = SQL.checkNullReturnValue(dr2.Item("Rechnungsbetrag"), Nothing)
+                    a.RechnungsNr = SQL.checkNullReturnValue(dr2.Item("RechnungsNr"), Nothing)
+                    '   a.Abfertigungsbezeichnung = SQL.checkNullReturnValue(dr2.Item("Abfertigungsbezeichnung"), "-")
+
+                    Me.ENDEMPFAENGER.Add(a)
+                End While
+                dr2.Close()
+            End Using
+
+            conn.Close()
+            'End Using
+            'Return Nothing
+        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 SAVE_UNTERPOS() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
        '   Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
        SAVE_UNTERPOS = False
@@ -579,6 +622,19 @@ Public Class cSpeditionsbuch
            Next
        End If

+        '   Return b
+    End Function
+    Public Function SAVE_ENDEMPFAENGER() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
+        '   Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
+        SAVE_ENDEMPFAENGER = False
+        Dim sqlstr = " DELETE FROM tblSpeditionsbuchEndEmpfaenger WHERE FilialenNr=" & Me.FilialenNr & " AND AbfertigungsNr=" & Me.AbfertigungsNr & " AND UnterNr=" & Me.UnterNr & " "
+        If SQL.doSQL(sqlstr, "FMZOLL") Then
+            SAVE_ENDEMPFAENGER = True
+            For Each a In ENDEMPFAENGER
+                If Not a.INSERT() Then SAVE_ENDEMPFAENGER = False
+            Next
+        End If
+
        '   Return b
    End Function
 End Class
@@ -698,4 +754,72 @@ Public Class cVorkosten
        Return False
    End Function

+End Class
+
+
+Public Class cEndEmpfaener
+
+    Property FilialenNr As Integer
+    Property AbfertigungsNr As Integer
+    Property UnterNr As Integer
+    Property EndEmpfaengerKdNr As Integer
+    Property EndEmpfaenger As Object = Nothing
+    Property UstIdKz As Object = Nothing
+    Property UstIdNr As Object = Nothing
+    Property Rechnungsbetrag As Object = Nothing
+    Property RechnungsNr As Object = Nothing
+
+    '  Property Abfertigungsbezeichnung As String = "-"
+    Dim SQL As New SQL
+
+    Sub New()
+    End Sub
+
+    Sub New(FilialenNr, AbfertigungsNr, UnterNr, EndEmpfaengerKdNr, EndEmpfaenger, UstIdKz, UstIdNr, Rechnungsbetrag, RechnungsNr)
+        Me.FilialenNr = FilialenNr
+        Me.AbfertigungsNr = AbfertigungsNr
+        Me.UnterNr = UnterNr
+        Me.EndEmpfaengerKdNr = EndEmpfaengerKdNr
+        Me.EndEmpfaenger = EndEmpfaenger
+        Me.UstIdKz = UstIdKz
+        Me.UstIdNr = UstIdNr
+        Me.Rechnungsbetrag = Rechnungsbetrag
+        Me.RechnungsNr = RechnungsNr
+    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("FilialenNr", FilialenNr))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbfertigungsNr", AbfertigungsNr))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UnterNr", UnterNr))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EndEmpfaengerKdNr", EndEmpfaengerKdNr))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EndEmpfaenger", EndEmpfaenger))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UstIdKz", UstIdKz))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UstIdNr", UstIdNr))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Rechnungsbetrag", Rechnungsbetrag))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RechnungsNr", RechnungsNr))
+        Return list
+    End Function
+
+    Public Function INSERT() As Boolean
+        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.Text.Replace("-", "").Replace(" ", "") & ","
+                End If
+            Next
+            str = str.Substring(0, str.Length - 1) 'wg. ','
+            values = values.Substring(0, values.Length - 1) 'wg. ','
+
+            Return SQL.doSQLVarList(" INSERT INTO [tblSpeditionsbuchEndEmpfaenger]  (" & str & ") VALUES(" & values & ")  ", "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
+        Return False
+    End Function
+
 End Class