Merge branch 'newMaster2024' of https://git.it.verag.ag/edv/SDL into newMaster2024

VERAG_PROG_ALLGEMEIN/Classes/USTV/cUSTVAntrag.vb

@@ -278,6 +278,18 @@ Public Class cUSTVAntrag
         Return -1
     End Function
 
+    Public Function getMaxPosinterneNr() As Integer
+        Try
+            Dim maxPosNr = -1
+
+            Return SQL.getValueTxtBySql("SELECT isnull(max([UStVPo_interneNr]),0)+1 FROM [tblUStVPositionen] where UStVAn_ID='" & UStVAn_ID & "'", "FMZOLL",,, "1")
+
+        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 -1
+    End Function
+
     Public Function getMaxPosNrErst() As Integer
         Try
             Dim maxPosNr = -1
@@ -290,6 +302,18 @@ Public Class cUSTVAntrag
         Return -1
     End Function
 
+    Public Function getMaxinternePosNrErst() As Integer
+        Try
+            Dim maxPosNr = -1
+
+            Return SQL.getValueTxtBySql("SELECT isnull(max([UStVEr_interneNr]),0)+1 FROM [tblUStVErstattung] where UStVAn_ID='" & UStVAn_ID & "'", "FMZOLL",,, "1")
+
+        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 -1
+    End Function
+
 
 
     Public Function DELETE() As Boolean
@@ -323,6 +347,8 @@ Public Class cUStVPositionen
     Property UStVPo_LeistenderId As Integer ' 
     Property UStVPo_VZ As Boolean = False
     Property UStVPo_VZ_RKID As Object = Nothing '
+    Property UStVPo_interneNr As Integer
+
 
     Dim SQL As New SQL
 
@@ -439,6 +465,7 @@ Public Class cUStVPositionen
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVPo_LeistenderId", UStVPo_LeistenderId))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVPo_VZ", UStVPo_VZ))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVPo_VZ_RKID", UStVPo_VZ_RKID))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVPo_interneNr", UStVPo_interneNr))
         Return list
     End Function
 
@@ -496,6 +523,7 @@ Public Class cUStVErstattungPositionen
     Property UStVEr_Sachbearbeiter As Object = Nothing
     Property UStVEr_Zeitstempel As Object = Nothing
     Property UStVEr_daId As Object = Nothing
+    Property UStVEr_interneNr As Integer
 
     Public hasEntry = False
 
@@ -521,6 +549,7 @@ Public Class cUStVErstattungPositionen
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVEr_Sachbearbeiter", UStVEr_Sachbearbeiter))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVEr_Zeitstempel", UStVEr_Zeitstempel))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVEr_daId", UStVEr_daId))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVEr_interneNr", UStVEr_interneNr))
         Return list
     End Function
 
@@ -646,6 +675,18 @@ Public Class cUStVErstattungPositionen
         Return -1
     End Function
 
+    Public Function getMaxInternePosNr() As Integer
+        Try
+            Dim maxPosNr = -1
+
+            Return SQL.getValueTxtBySql("SELECT isnull(max([UStVEr_interneNr]),0)+1 FROM [tblUStVErstattung] where UStVAn_ID='" & UStVAn_ID & "'", "FMZOLL",,, "1")
+
+        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 -1
+    End Function
+
 
 
 End Class

VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb

@@ -105,6 +105,8 @@ Public Class cKundenErweitert
     Property kde_betreuer As Object = Nothing
     Property kde_ATEZ_LogicustID As Object = Nothing
     Property kde_ATEZ_GreenpulseID As Object = Nothing
+    Property kde_SEG_Summe As Object = Nothing
+    Property kde_SEG_Datum As Object = Nothing
 
 
     Dim SQL As New SQL
@@ -216,6 +218,8 @@ Public Class cKundenErweitert
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_betreuer", kde_betreuer))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_ATEZ_LogicustID", kde_ATEZ_LogicustID))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_ATEZ_GreenpulseID", kde_ATEZ_GreenpulseID))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_SEG_Summe", kde_SEG_Summe))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_SEG_Datum", kde_SEG_Datum))
 
         Return list
     End Function

VERAG_PROG_ALLGEMEIN/Classes/cSpeditionsbuch.vb

@@ -770,6 +770,7 @@ Public Class cVorkosten
     Property LeistungsNr As Integer
     Property LeistungsBez As Object = Nothing
     Property Preis As Double = 0
+    Property Bezeichnung As Object = Nothing
 
     '  Property Abfertigungsbezeichnung As String = "-"
     Dim SQL As New SQL
@@ -786,6 +787,16 @@ Public Class cVorkosten
         Me.Preis = Preis
     End Sub
 
+    Sub New(FilialenNr, AbfertigungsNr, UnterNr, LeistungsNr, LeistungsBez, Preis, Bezeichnung)
+        Me.FilialenNr = FilialenNr
+        Me.AbfertigungsNr = AbfertigungsNr
+        Me.UnterNr = UnterNr
+        Me.LeistungsNr = LeistungsNr
+        Me.LeistungsBez = LeistungsBez
+        Me.Preis = Preis
+        Me.Bezeichnung = Bezeichnung
+    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))
@@ -794,6 +805,7 @@ Public Class cVorkosten
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LeistungsNr", LeistungsNr))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LeistungsBez", LeistungsBez))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Preis", Preis))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bezeichnung", Bezeichnung))
         Return list
     End Function