neu

VERAG_PROG_ALLGEMEIN/Classes/cAbgaben.vb

@@ -97,6 +97,18 @@ Public Class cAbgaben
         Return [Index] > 0
     End Function
 
+    Shared Function EXISTS(LeistungsNr, Betrag, Registriernummer, AOFD, AKTO, Fälligkeitsdatum) As Boolean
+        Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LeistungsNr", LeistungsNr))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Betrag", Betrag))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Registriernummer", Registriernummer))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AOFD", AOFD))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AKTO", AKTO))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Fälligkeitsdatum", Fälligkeitsdatum))
+        Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+        Dim count = SQL.getValueTxtBySqlVarList("SELECT count(*) FROM Zkteing WHERE LeistungsNr=@LeistungsNr AND Betrag=@Betrag AND Registriernummer=@Registriernummer AND AOFD=@AOFD AND AKTO=@AKTO AND Fälligkeitsdatum=@Fälligkeitsdatum  ", "FMZOLL", list, 0)
+        Return (count > 0)
+    End Function
     Public Sub LOAD()
         Try
             Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()

VERAG_PROG_ALLGEMEIN/Classes/cEmailBenachrichtigung.vb

@@ -0,0 +1,261 @@
+
+Imports System.Data.SqlClient
+Imports System.Reflection
+
+Public Class cEmailBenachrichtigungList
+    Property eb_KundenNr As Object = Nothing
+    Property eb_ebartId As Object = Nothing
+    Public LIST As New List(Of cEmailBenachrichtigung)
+    Dim SQL As New SQL
+
+    Sub New()
+
+    End Sub
+
+
+    Sub New(eb_KundenNr, eb_ebartId)
+        Me.eb_KundenNr = eb_KundenNr
+        Me.eb_ebartId = eb_ebartId
+        LOAD(Me.eb_KundenNr, Me.eb_ebartId)
+    End Sub
+    Public Sub CLEAR()
+        LIST.Clear()
+    End Sub
+    Public Sub ADD(eb_EMail As String, Optional cc As Boolean = False, Optional bcc As Boolean = False)
+        Dim l As New cEmailBenachrichtigung
+        l.eb_KundenNr = eb_KundenNr
+        l.eb_ebartId = eb_ebartId
+        l.eb_EMail = eb_EMail
+        l.eb_cc = cc
+        l.eb_bcc = bcc
+        LIST.Add(l)
+    End Sub
+    Public Sub LOAD(eb_KundenNr, eb_ebartId)
+        Try
+            LIST.Clear()
+            Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL()
+                Using cmd As New SqlCommand("SELECT * FROM tblEmailBenachrichtigung WHERE eb_KundenNr=@eb_KundenNr and eb_ebartId=@eb_ebartId  ", conn)
+                    cmd.Parameters.AddWithValue("@eb_KundenNr", eb_KundenNr)
+                    cmd.Parameters.AddWithValue("@eb_ebartId", eb_ebartId)
+                    Dim dr = cmd.ExecuteReader()
+                    While dr.Read
+                        Dim l As New cEmailBenachrichtigung
+                        l.eb_KundenNr = dr.Item("eb_KundenNr")
+                        l.eb_ebartId = dr.Item("eb_ebartId")
+                        l.eb_EMail = dr.Item("eb_EMail")
+                        l.eb_cc = dr.Item("eb_cc")
+                        l.eb_bcc = dr.Item("eb_bcc")
+                        LIST.Add(l)
+                    End While
+                    dr.Close()
+                End Using
+            End Using
+        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
+    Function SAVE()
+        If SQL.doSQLVarList("DELETE FROM tblEmailBenachrichtigung WHERE eb_KundenNr=" & Me.eb_KundenNr & " and eb_ebartId=" & Me.eb_ebartId & " ", "FMZOLL") Then
+            For Each l In LIST
+                If Not l.INSERT() Then Return False
+            Next
+            Return True
+        Else
+            Return False
+        End If
+    End Function
+End Class
+Public Class cEmailBenachrichtigung
+    Property eb_KundenNr As Object = Nothing
+    Property eb_ebartId As Object = Nothing
+    Property eb_EMail As Object = Nothing
+    Property eb_cc As Boolean = False
+    Property eb_bcc As Boolean = False
+
+    Dim SQL As New SQL
+
+    Sub New()
+    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("eb_KundenNr", eb_KundenNr))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eb_ebartId", eb_ebartId))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eb_EMail", eb_EMail))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eb_cc", eb_cc))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eb_bcc", eb_bcc))
+        Return list
+    End Function
+
+    Public Function INSERT() As Boolean
+        Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
+        Return SQL.doSQLVarList(getInsertCmd, "FMZOLL", , list)
+    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 & "," '.Replace("-", "").Replace(" ", "") & ","
+                End If
+            Next
+            str = str.Substring(0, str.Length - 1) 'wg. ','
+            values = values.Substring(0, values.Length - 1) 'wg. ','
+            Return (" INSERT INTO tblEmailBenachrichtigung  (" & str & ") VALUES(" & values & ")  ")
+        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 ""
+    End Function
+
+
+    Shared Sub eMails_einlesen(Kdnr As String, art As Integer, ByRef Emails As String, ByRef Emails_CC As String, ByRef Emails_BCC As String, Emails_list_sent As VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigungList)
+        'ART:
+        '1=Ankunft
+        '2=Freigabe
+        '3=Ankunft Export
+        '4=Freigabe Export
+        Dim Firmen As New cFirmenDAL
+        Dim Firma As New cFirma
+
+        Emails = ""
+        Emails_CC = ""
+        Emails_BCC = ""
+
+        If Kdnr Is Nothing OrElse Not IsNumeric(Kdnr) Then Exit Sub
+        '  Dim Avisierer As New cKunde(hAuftraggeber_kdnr)
+        '  Dim Fraechter As New cKunde(hFrächter_kdnr)
+        Dim Kdnr_Mails As New VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigungList(Kdnr, art)
+        ' Dim Fraechter_Mails As New VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigungList(hFrächter_kdnr, art)
+        '  If hAuftraggeber_kdnr <> hFrächter_kdnr Then Fraechter_Mails = New VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigungList(hFrächter_kdnr, art)
+
+        Dim Emails_list As New VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigungList
+        Dim Emails_CC_list As New VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigungList
+        Dim Emails_BCC_list As New VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigungList
+
+        'Dim Emails As String
+        For Each i In Kdnr_Mails.LIST
+            If i.eb_bcc Then
+                If Not existing(Kdnr, i.eb_EMail, Emails_BCC_list.LIST, Emails_CC_list.LIST, Emails_list.LIST) And Not existing(Kdnr, i.eb_EMail, Emails_list_sent.LIST) Then Emails_BCC_list.LIST.Add(i) ' &= i.eb_EMail & ";"
+            ElseIf i.eb_cc Then
+                If Not existing(Kdnr, i.eb_EMail, Emails_BCC_list.LIST, Emails_CC_list.LIST, Emails_list.LIST) And Not existing(Kdnr, i.eb_EMail, Emails_list_sent.LIST) Then Emails_CC_list.LIST.Add(i) ' &= i.eb_EMail & ";"
+            Else
+                If Not existing(Kdnr, i.eb_EMail, Emails_BCC_list.LIST, Emails_CC_list.LIST, Emails_list.LIST) And Not existing(Kdnr, i.eb_EMail, Emails_list_sent.LIST) Then Emails_list.LIST.Add(i) ' &= i.eb_EMail & ";"
+            End If
+        Next
+        'For Each i In Fraechter_Mails.LIST
+        '    If i.eb_bcc Then
+        '        If Not existing(hFrächter_kdnr, i.eb_EMail, Emails_BCC_list.LIST, Emails_CC_list.LIST, Emails_list.LIST) And Not existing(hFrächter_kdnr, i.eb_EMail, Emails_list_sent.LIST) Then Emails_BCC_list.LIST.Add(i) ' &= i.eb_EMail & ";"
+        '    ElseIf i.eb_cc Then
+        '        If Not existing(hFrächter_kdnr, i.eb_EMail, Emails_BCC_list.LIST, Emails_CC_list.LIST, Emails_list.LIST) And Not existing(hFrächter_kdnr, i.eb_EMail, Emails_list_sent.LIST) Then Emails_CC_list.LIST.Add(i) ' &= i.eb_EMail & ";"
+        '    Else
+        '        If Not existing(hFrächter_kdnr, i.eb_EMail, Emails_BCC_list.LIST, Emails_CC_list.LIST, Emails_list.LIST) And Not existing(hFrächter_kdnr, i.eb_EMail, Emails_list_sent.LIST) Then Emails_list.LIST.Add(i) ' &= i.eb_EMail & ";"
+        '    End If
+        'Next
+
+        For Each i In Emails_list.LIST
+            Emails &= i.eb_EMail & ";"
+        Next
+        For Each i In Emails_CC_list.LIST
+            Emails_CC &= i.eb_EMail & ";"
+        Next
+        For Each i In Emails_BCC_list.LIST
+            Emails_BCC &= i.eb_EMail & ";"
+        Next
+
+        For Each i In Emails_list.LIST : Emails_list_sent.LIST.Add(i) : Next
+        For Each i In Emails_CC_list.LIST : Emails_list_sent.LIST.Add(i) : Next
+        For Each i In Emails_BCC_list.LIST : Emails_list_sent.LIST.Add(i) : Next
+
+    End Sub
+
+    Public Shared Function getAbsenderEmail() As String
+        Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+            Case "IMEX" : Return "noreply@imex-group.at"
+            Case "ATILLA" : Return "noreply@verag.ag"
+            Case "UNISPED" : Return "No-Reply@unisped.at"
+            Case "FRONTOFFICE" : Return "noreply@front-office.eu"
+            Case Else : Return "noreply@verag.ag"
+        End Select
+    End Function
+
+    Shared Sub eMails_einlesenOLD(hFrächter_kdnr As String, hAuftraggeber_kdnr As String, art As Integer, ByRef Emails As String, ByRef Emails_CC As String, ByRef Emails_BCC As String, Emails_list_sent As VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigungList)
+        'ART:
+        '1=Ankunft
+        '2=Freigabe
+        '3=Ankunft Export
+        '4=Freigabe Export
+        Dim Firmen As New cFirmenDAL
+        Dim Firma As New cFirma
+
+        Emails = ""
+        Emails_CC = ""
+        Emails_BCC = ""
+
+        '  Dim Avisierer As New cKunde(hAuftraggeber_kdnr)
+        '  Dim Fraechter As New cKunde(hFrächter_kdnr)
+        Dim Avisierer_Mails As New VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigungList(hAuftraggeber_kdnr, art)
+        Dim Fraechter_Mails As New VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigungList(hFrächter_kdnr, art)
+        If hAuftraggeber_kdnr <> hFrächter_kdnr Then Fraechter_Mails = New VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigungList(hFrächter_kdnr, art)
+
+        Dim Emails_list As New VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigungList
+        Dim Emails_CC_list As New VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigungList
+        Dim Emails_BCC_list As New VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigungList
+
+        'Dim Emails As String
+        For Each i In Avisierer_Mails.LIST
+            If i.eb_bcc Then
+                If Not existing(hFrächter_kdnr, i.eb_EMail, Emails_BCC_list.LIST, Emails_CC_list.LIST, Emails_list.LIST) And Not existing(hFrächter_kdnr, i.eb_EMail, Emails_list_sent.LIST) Then Emails_BCC_list.LIST.Add(i) ' &= i.eb_EMail & ";"
+            ElseIf i.eb_cc Then
+                If Not existing(hFrächter_kdnr, i.eb_EMail, Emails_BCC_list.LIST, Emails_CC_list.LIST, Emails_list.LIST) And Not existing(hFrächter_kdnr, i.eb_EMail, Emails_list_sent.LIST) Then Emails_CC_list.LIST.Add(i) ' &= i.eb_EMail & ";"
+            Else
+                If Not existing(hFrächter_kdnr, i.eb_EMail, Emails_BCC_list.LIST, Emails_CC_list.LIST, Emails_list.LIST) And Not existing(hFrächter_kdnr, i.eb_EMail, Emails_list_sent.LIST) Then Emails_list.LIST.Add(i) ' &= i.eb_EMail & ";"
+            End If
+        Next
+        For Each i In Fraechter_Mails.LIST
+            If i.eb_bcc Then
+                If Not existing(hFrächter_kdnr, i.eb_EMail, Emails_BCC_list.LIST, Emails_CC_list.LIST, Emails_list.LIST) And Not existing(hFrächter_kdnr, i.eb_EMail, Emails_list_sent.LIST) Then Emails_BCC_list.LIST.Add(i) ' &= i.eb_EMail & ";"
+            ElseIf i.eb_cc Then
+                If Not existing(hFrächter_kdnr, i.eb_EMail, Emails_BCC_list.LIST, Emails_CC_list.LIST, Emails_list.LIST) And Not existing(hFrächter_kdnr, i.eb_EMail, Emails_list_sent.LIST) Then Emails_CC_list.LIST.Add(i) ' &= i.eb_EMail & ";"
+            Else
+                If Not existing(hFrächter_kdnr, i.eb_EMail, Emails_BCC_list.LIST, Emails_CC_list.LIST, Emails_list.LIST) And Not existing(hFrächter_kdnr, i.eb_EMail, Emails_list_sent.LIST) Then Emails_list.LIST.Add(i) ' &= i.eb_EMail & ";"
+            End If
+        Next
+
+        For Each i In Emails_list.LIST
+            Emails &= i.eb_EMail & ";"
+        Next
+        For Each i In Emails_CC_list.LIST
+            Emails_CC &= i.eb_EMail & ";"
+        Next
+        For Each i In Emails_BCC_list.LIST
+            Emails_BCC &= i.eb_EMail & ";"
+        Next
+
+        For Each i In Emails_list.LIST : Emails_list_sent.LIST.Add(i) : Next
+
+    End Sub
+    Shared Function existing(KundenNr As Integer, Email As String, Emails_list As List(Of VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung), Optional ListEmails_CC_list As List(Of VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung) = Nothing, Optional ListEmails_BCC_list As List(Of VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung) = Nothing) As Boolean
+        If Emails_list IsNot Nothing Then
+            For Each i In Emails_list
+                If i.eb_EMail = Email And i.eb_KundenNr = KundenNr Then Return True
+            Next
+        End If
+        If ListEmails_CC_list IsNot Nothing Then
+            For Each i In ListEmails_CC_list
+                If i.eb_EMail = Email And i.eb_KundenNr = KundenNr Then Return True
+            Next
+        End If
+        If ListEmails_BCC_list IsNot Nothing Then
+            For Each i In ListEmails_BCC_list
+                If i.eb_EMail = Email And i.eb_KundenNr = KundenNr Then Return True
+            Next
+        End If
+        Return False
+    End Function
+
+End Class

VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb

@@ -36,6 +36,7 @@ Public Class cKundenErweitert
     Property EmailFreigabe_SteuerbescheidPDF As Boolean = False
     Property EmailFreigabe_SteuerbescheidPDF_Bedingung As Integer
 
+    Property EmailFreigabe_Art As String = "FG" ' STB/VBD/.. bei Freigabe ; BLG --> wenn Beleg da ist.
     Property EmailFreigabe_VBDPDF As Boolean = False
     Property EmailFreigabe_ABDPDF As Boolean = False
     Property Email_AVM As Boolean = False
@@ -100,6 +101,7 @@ Public Class cKundenErweitert
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EmailFreigabeSendungsListe", EmailFreigabeSendungsListe))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EmailFreigabe_SteuerbescheidPDF", EmailFreigabe_SteuerbescheidPDF))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EmailFreigabe_SteuerbescheidPDF_Bedingung", EmailFreigabe_SteuerbescheidPDF_Bedingung))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EmailFreigabe_Art", EmailFreigabe_Art))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EmailFreigabe_VBDPDF", EmailFreigabe_VBDPDF))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EmailFreigabe_ABDPDF", EmailFreigabe_ABDPDF))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Email_AVM", Email_AVM))

VERAG_PROG_ALLGEMEIN/Classes/cKundenVertraege.vb

@@ -0,0 +1,134 @@
+
+Imports System.Data.SqlClient
+    Imports System.Reflection
+
+Public Class cKundenVertraege
+    Property kv_Id As Integer
+    Property kv_KundenNr As Integer
+    Property kv_erhalten_Datum As Date
+    Property kv_vertragArtId As Integer
+    Property kv_Info As Object = Nothing
+    Property kv_datenarchivId As Object = Nothing
+    Property kv_gueltig As Boolean = True
+
+
+    Dim SQL As New SQL
+
+    Sub New()
+
+    End Sub
+    Sub New(kv_Id)
+        Me.kv_Id = kv_Id
+        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("kv_Id", kv_Id, , True, True))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kv_KundenNr", kv_KundenNr))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kv_erhalten_Datum", kv_erhalten_Datum))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kv_vertragArtId", kv_vertragArtId))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kv_Info", kv_Info))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kv_datenarchivId", kv_datenarchivId))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kv_gueltig", kv_gueltig))
+
+        Return list
+    End Function
+
+    Public Shared Function LOAD_LIST(KundenNr As Integer) As DataTable
+        Return (New SQL).loadDgvBySql("SELECT [kv_Id],[kv_KundenNr],[kv_erhalten_Datum],[kv_vertragArtId],kva_Bezeichnung,[kv_Info],[kv_datenarchivId],[kv_gueltig] FROM tblKundenVertraege INNER JOIN tblKundenVertraegeArten ON kv_vertragArtId=kva_id WHERE kv_KundenNr=" & KundenNr, "FMZOLL")
+    End Function
+
+    Public Shared Function ENTRY_Exists(KundenNr As Integer, kv_vertragArtId As Integer) As Boolean
+        Return (CInt((New SQL).getValueTxtBySql("SELECT count(*) FROM tblKundenVertraege WHERE kv_KundenNr=" & KundenNr & " AND kv_vertragArtId='" & kv_vertragArtId & "'", "FMZOLL")) > 0)
+    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 tblKundenVertraege With(updlock, serializable) WHERE kv_Id=@kv_Id) " &
+                       " BEGIN " & getUpdateCmd() & " End " &
+                       " Else " &
+                       " BEGIN " & getInsertCmd() & " End " &
+                       " commit tran "
+
+        Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list)
+    End Function
+
+    Public Sub LOAD()
+        Try
+            Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
+                Using cmd As New SqlCommand("Select * FROM tblKundenVertraege WHERE kv_Id=@kv_Id  ", conn)
+                    cmd.Parameters.AddWithValue("@kv_Id", kv_Id)
+                    Dim dr = cmd.ExecuteReader()
+                    If dr.Read Then
+                        For Each l In getParameterList()
+                            Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
+
+                            If dr.Item(l.Text) Is DBNull.Value Then
+                                propInfo.SetValue(Me, Nothing)
+                            Else
+                                propInfo.SetValue(Me, dr.Item(l.Text))
+                            End If
+
+                        Next
+
+                    End If
+                    dr.Close()
+                End Using
+            End Using
+        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 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 & "," '.Replace("-", "").Replace(" ", "") & ","
+                End If
+            Next
+            str = str.Substring(0, str.Length - 1) 'wg. ','
+            Return (" UPDATE [tblKundenVertraege] SET " & str & " WHERE kv_Id=@kv_Id ")
+
+        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 ""
+    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 & "," '.Replace("-", "").Replace(" ", "") & ","
+                End If
+            Next
+            str = str.Substring(0, str.Length - 1) 'wg. ','
+            values = values.Substring(0, values.Length - 1) 'wg. ','
+            Return (" INSERT INTO tblKundenVertraege  (" & str & ") VALUES(" & values & ")  ")
+        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 ""
+    End Function
+
+
+    Public Function DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
+        Dim sqlstr = " DELETE FROM [tblKundenVertraege] WITH(updlock,serializable) WHERE kv_Id=" & Me.kv_Id
+        Return SQL.doSQL(sqlstr, "FMZOLL")
+    End Function
+
+
+End Class

VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb

@@ -103,7 +103,7 @@ Public Class cRechnungsausgang
     Property Handling As Object = Nothing
     Property VorschauID As Object = Nothing
     Property Grenze As Object = Nothing
-
+    Property RechnungSprache As Object = Nothing
 
 
     ' FROM [VERAG as object=nothing.[dbo as object=nothing.[Rechnungsausgang as object=nothing
@@ -242,6 +242,7 @@ Public Class cRechnungsausgang
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Handling", Handling))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("VorschauID", VorschauID))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Grenze", Grenze))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RechnungSprache", RechnungSprache))
 
         Return list
     End Function

VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb

@@ -28,6 +28,7 @@ Public Class cSendungen
     Property tblSnd_Bearbeitung_MaId As Integer = Nothing
     Property tblSnd_aufschub As String = Nothing
     Property tblSnd_anzahlHandling As Object = Nothing
+    Property tblSnd_anzahlPOS As Object = Nothing
     ' Property tblSnd_bar As Object = Nothing
     '  Property tblSnd_barBeleg As Object = Nothing
     ' Property tblSnd_betrag As Object = Nothing
@@ -283,6 +284,7 @@ Public Class cSendungen
                     Me.tblSnd_Bearbeitung_MaId = SQL.checkNullReturnValue(dr.Item("tblSnd_Bearbeitung_MaId"), Nothing)
                     Me.tblSnd_aufschub = SQL.checkNullReturnValue(dr.Item("tblSnd_aufschub"), Nothing)
                     Me.tblSnd_anzahlHandling = SQL.checkNullReturnValue(dr.Item("tblSnd_anzahlHandling"), Nothing)
+                    Me.tblSnd_anzahlPOS = SQL.checkNullReturnValue(dr.Item("tblSnd_anzahlPOS"), Nothing)
                     '  Me.tblSnd_bar = SQL.checkNullReturnValue(dr.Item("tblSnd_bar"), Nothing)
                     ' Me.tblSnd_barBeleg = SQL.checkNullReturnValue(dr.Item("tblSnd_barBeleg"), Nothing)
                     ' Me.tblSnd_betrag = SQL.checkNullReturnValue(dr.Item("tblSnd_betrag"), Nothing)
@@ -497,6 +499,7 @@ Public Class cSendungen
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Bearbeitung_MaId", tblSnd_Bearbeitung_MaId))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_aufschub", tblSnd_aufschub))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_anzahlHandling", tblSnd_anzahlHandling))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_anzahlPOS", tblSnd_anzahlPOS))
 
         ' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_bar", tblSnd_bar))
         ' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_barBeleg", tblSnd_barBeleg))

VERAG_PROG_ALLGEMEIN/Classes/cSpeditionsbuch.vb

@@ -128,6 +128,7 @@ Public Class cSpeditionsbuch
     Property Löschen As Object = Nothing
     Property Abfertigungsart As Object = Nothing
     Property Abfertigungsanzahl As Integer = 0
+    Property AbfertigungsanzahlPos As Object = Nothing
     Property Barzahlungsbetrag As Double = 0
     '  Property Sachbearbeiter As String = ""
     <VBFixedString(15)> Public Sachbearbeiter As String = ""
@@ -301,6 +302,7 @@ Public Class cSpeditionsbuch
                         Me.Löschen = SQL.checkNullDateNothing(dr.Item("Löschen"))
                         Me.Abfertigungsart = SQL.checkNullInteger(dr.Item("Abfertigungsart"))
                         Me.Abfertigungsanzahl = SQL.checkNullIntegerZero(dr.Item("Abfertigungsanzahl"))
+                        Me.AbfertigungsanzahlPos = SQL.checkNullInteger(dr.Item("AbfertigungsanzahlPos"))
                         Me.Barzahlungsbetrag = SQL.checkNulDbl(dr.Item("Barzahlungsbetrag"))
                         Me.Sachbearbeiter = SQL.checkNullStr(dr.Item("Sachbearbeiter"))
                         Me.Personalnummer = SQL.checkNullReturnValue(dr.Item("Personalnummer"), Nothing)
@@ -452,6 +454,7 @@ Public Class cSpeditionsbuch
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Löschen", Löschen))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Abfertigungsart", Abfertigungsart))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Abfertigungsanzahl", Abfertigungsanzahl))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbfertigungsanzahlPos", AbfertigungsanzahlPos))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Barzahlungsbetrag", Barzahlungsbetrag))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Sachbearbeiter", Sachbearbeiter))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Personalnummer", Personalnummer))