edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Abrechnungslogik Sammelrechnungen MDM

Browse Source
This commit is contained in:
d.breimaier
2025-01-21 10:01:06 +01:00
parent dbb13dffb0
commit 627f48826e
11 changed files with 670 additions and 294 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb
View File

@@ -564,7 +564,7 @@ Public Class cRechnungsausgang
End If
Return True
End Function
Public Function SAVE_ANHAENGE(RK_ID As Integer, Optional delete As Boolean = True) As Boolean
Public Function SAVE_ANHAENGE(RK_ID As Integer, Optional delete As Boolean = True, Optional showError As Boolean = True) As Boolean
Select Case delete
@@ -572,7 +572,7 @@ Public Class cRechnungsausgang
If DELETE_ANHAENGE() Then
For Each p In ANHAENGE
If Not p.INSERT(RK_ID) Then Return False
If Not p.INSERT(RK_ID, showError) Then Return False
Next
Else
Return False
@@ -581,7 +581,7 @@ Public Class cRechnungsausgang
Case Else
For Each p In ANHAENGE
If Not p.INSERT(RK_ID) Then Return False
If Not p.INSERT(RK_ID, showError) Then Return False
Next
End Select
@@ -999,10 +999,10 @@ Public Class cRechnungsausgangAnhaenge
Return list
End Function
Public Function INSERT(RK_ID) As Boolean
Public Function INSERT(RK_ID As Integer, Optional showError As Boolean = True) As Boolean
Me.RK_ID = RK_ID
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Return SQL.doSQLVarList(getInsertCmd, "FMZOLL", , list)
Return SQL.doSQLVarList(getInsertCmd, "FMZOLL", showError, list)
End Function