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/SQL.vb
+++ b/VERAG_PROG_ALLGEMEIN/Classes/SQL.vb
@@ -508,6 +508,17 @@ Public Class SQL
    End Function


+    Function DLookupArray(srchField, table, where, Optional conn_art = "SDL") As List(Of String)
+        Dim list As New List(Of String)
+        Dim dt = loadDgvBySql("SELECT  " & srchField & "  FROM " & table & " WHERE " & where & "", conn_art)
+        If dt IsNot Nothing Then
+            For Each r As DataRow In dt.Rows
+                list.Add(r(srchField))
+            Next
+        End If
+        Return list
+    End Function
+

    Public Function getValueTxtBySql(ByVal sql As String, Optional conn_art As String = "SDL", Optional List As List(Of MyListItem2) = Nothing, Optional conn As SqlConnection = Nothing, Optional defaultReturn As Object = "") As String

--- a/VERAG_PROG_ALLGEMEIN/Classes/cKundenBesonderheiten.vb
+++ b/VERAG_PROG_ALLGEMEIN/Classes/cKundenBesonderheiten.vb
@@ -84,6 +84,12 @@ Public Class cKundenBesonderheiten
        End Try
    End Sub

+    Public Shared Function DELETE_ALL_KD(kdb_KundenNr As Integer) As Boolean
+        Dim SQL As New SQL
+        Dim sqlstr = " DELETE FROM tblKundenBesonderheiten  WHERE kdb_KundenNr=" & kdb_KundenNr
+        Return SQL.doSQL(sqlstr, "FMZOLL")
+    End Function
+


    Public Function getUpdateCmd() As String
--- a/VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb
+++ b/VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb
@@ -48,6 +48,7 @@ Public Class cKundenErweitert
    Property kde_Inkasso_UebergebenAm As Object = Nothing
    Property kde_Inkasso_GemeldeterBetrag As Object = Nothing
    Property AutoFakturierung As Boolean = False
+    Property Veranlagungskunde As Boolean = False
    Property Anmerkungen_Warnhinweis As Object = Nothing
    Property kde_VERAG_INTERFACE_ID As Object = Nothing
    Property kde_BesonderheitenNeu As Boolean = False
@@ -104,6 +105,7 @@ Public Class cKundenErweitert
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_Inkasso_UebergebenAm", kde_Inkasso_UebergebenAm))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_Inkasso_GemeldeterBetrag", kde_Inkasso_GemeldeterBetrag))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AutoFakturierung", AutoFakturierung))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Veranlagungskunde", Veranlagungskunde))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Anmerkungen_Warnhinweis", Anmerkungen_Warnhinweis))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_VERAG_INTERFACE_ID", kde_VERAG_INTERFACE_ID))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_BesonderheitenNeu", kde_BesonderheitenNeu))
--- a/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb
+++ b/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb
@@ -349,6 +349,7 @@ Public Class cRechnungsausgang
    Public Function CHECK_Validation(ByRef errMsg As String) As Boolean
        If Firma_ID <= 0 Then errMsg = "ERROR: Firma auswählen!" : Return False
        If Rechnung_an = 0 OrElse CStr(Rechnung_an) = "" Then errMsg = "ERROR: Rechnungsempfänger auswählen!" : Return False
+        If SpeditionsbuchUnterNr Is Nothing Then errMsg = "ERROR: Speditionsbuch-UnterNr auswählen!" : Return False
        '   If Steuerschlüssel Then errMsg = "ERROR: Steuerschlüssel muss angegeben werden!" : Return False

        Return True
--- a/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsnummern.vb
+++ b/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsnummern.vb
@@ -70,6 +70,17 @@ Public Class cRechnungsnummern
    End Function


+    Public Function CHECK_RGNR() As Integer ' Prüfung, ob RgNr schon vergeben wurde --> dann +1, bis freie Nr.
+        Dim increased = False
+        While SQL.DLookup("count(*)", "Rechnungsausgang", " RechnungsNr='" & LfdRechnungsNr & "' and Firma_ID='" & SpeditionsbuchNr & "' ", "FMZOLL", 0) > 0
+            LfdRechnungsNr += 1
+            increased = True
+        End While
+        If increased Then SAVE()
+        Return LfdRechnungsNr
+    End Function
+
+
    Public Function SAVE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
        Dim list As List(Of VERAG_PROG_ALLGEMEIN.MyListItem2) = getParameterList()

--- a/VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb
+++ b/VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb
@@ -86,6 +86,9 @@ Public Class cSendungen
    Property VORSYSTEM_Id As Object = Nothing
    Property tblSnd_FilialeAbklaerung As Object = Nothing

+    Property tblSnd_AbklaerungTR As Object = Nothing
+    Property tblSnd_AbklaerungTR_MA As Object = Nothing
+

    Public saveSachbearbeiter As Boolean = False

@@ -272,6 +275,8 @@ Public Class cSendungen
                    Me.tblSnd_FilialeAbklaerung = SQL.checkNullReturnValue(dr.Item("tblSnd_FilialeAbklaerung"), Nothing)
                    Me.VORSYSTEM = SQL.checkNullReturnValue(dr.Item("VORSYSTEM"), Nothing)
                    Me.VORSYSTEM_Id = SQL.checkNullReturnValue(dr.Item("VORSYSTEM_Id"), Nothing)
+                    Me.tblSnd_AbklaerungTR = SQL.checkNullReturnValue(dr.Item("tblSnd_AbklaerungTR"), Nothing)
+                    Me.tblSnd_AbklaerungTR_MA = SQL.checkNullReturnValue(dr.Item("tblSnd_AbklaerungTR_MA"), Nothing)

                End If

@@ -442,6 +447,10 @@ Public Class cSendungen
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_FilialeAbklaerung", tblSnd_FilialeAbklaerung))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("VORSYSTEM", VORSYSTEM))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("VORSYSTEM_Id", VORSYSTEM_Id))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_AbklaerungTR", tblSnd_AbklaerungTR))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_AbklaerungTR_MA", tblSnd_AbklaerungTR_MA))
+
+


        Return list
--- 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