neu

VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb

@@ -110,6 +110,7 @@ Public Class cRechnungsausgang
     Property Grenze As Object = Nothing
     Property RechnungSprache As Object = Nothing
     Property FakturierungsGruppe As String = ""
+    Property TextZZ As Object = Nothing
 
 
     ' FROM [VERAG as object=nothing.[dbo as object=nothing.[Rechnungsausgang as object=nothing
@@ -124,7 +125,7 @@ Public Class cRechnungsausgang
 
     Sub New(RK_ID)
         Me.RK_ID = RK_ID
-        LOAD() : LOAD_POSITIONEN()
+        LOAD() : LOAD_POSITIONEN() : LOAD_ANHAENGE()
     End Sub
 
     Sub New(FilialenNr, AbfertigungsNr)
@@ -336,6 +337,7 @@ Public Class cRechnungsausgang
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Grenze", Grenze))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RechnungSprache", RechnungSprache))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FakturierungsGruppe", FakturierungsGruppe))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("TextZZ", TextZZ))
 
         Return list
     End Function
@@ -404,7 +406,7 @@ Public Class cRechnungsausgang
 
 
     Public Function SAVE(Optional saveAll As Boolean = True) As Boolean
-        doVorzeichen()
+        doVorzeichen() ' Für GS in Minusbeträge umwandeln
         Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
         Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM Rechnungsausgang  WHERE RK_ID=@RK_ID) " &
                            " BEGIN " & getUpdateCmd() & " END " &
@@ -416,12 +418,14 @@ Public Class cRechnungsausgang
 
 
         If RK_ID > 0 Then
-            doVorzeichenPOS()
+            doVorzeichenPOS() ' Für GS in Minusbeträge umwandeln
             If saveAll Then SAVE_POSITIONEN(RK_ID) ' positionen speicehrn
+            doVorzeichenPOS() ' Minusbeträge bei GS zurückumwandeln
+
             If saveAll Then SAVE_ANHAENGE(RK_ID) ' positionen speicehrn
-            doVorzeichenPOS()
+
         End If
-        doVorzeichen()
+        doVorzeichen() ' Minusbeträge bei GS zurückumwandeln
         Return RK_ID > 0
     End Function
 
@@ -615,7 +619,8 @@ Public Class cRechnungsausgang
                     dr.Close()
                 End Using
             End Using
-            doVorzeichenPOS()
+            doVorzeichenPOS() ' Minus in Plus umwandeln (DB hat Minus, System hat Plus-Beträge)
+
         Catch ex As Exception
             MsgBox("Fehler In der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
         End Try
@@ -644,7 +649,6 @@ Public Class cRechnungsausgang
                     dr.Close()
                 End Using
             End Using
-            doVorzeichenPOS()
         Catch ex As Exception
             MsgBox("Fehler In der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
         End Try
@@ -686,7 +690,7 @@ Public Class cRechnungsausgang
             Catch ex As Exception
                 'Preis null??
             End Try
-            POSITIONEN = POSITIONEN.OrderBy(Function(x) x.LeistungsNr).ToList()
+            POSITIONEN = POSITIONEN.OrderBy(Function(x) CInt(x.LeistungsNr)).ToList()
 
         Catch ex As Exception
             MsgBox("Fehler In der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)