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

BH, nacherfassung leihgeld, etc.

Browse Source
This commit is contained in:
d.breimaier
2025-11-04 15:26:49 +01:00
parent 18b089d9ab
commit 05edf96d95
12 changed files with 3380 additions and 143 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
SDL/Fakturierung/cFakturierung.vb
View File

@@ -2039,7 +2039,8 @@ Public Class cFakturierung
Public Shared Function doRechnungsdruck_MDM(RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, firma As cFirmen, KD_RG As cAdressen, Optional RechnungsDatum As Object = Nothing, Optional vorschau As Boolean = False, Optional Rechnugnsdruck As Integer = -1, Optional ByRef Path As String = "", Optional ByRef PrinterName As String = "", Optional printOriginalRg As Boolean = False, Optional SammelrechnungAnlagendruck As Boolean = False, Optional printStbVdb As Boolean = False) As Boolean
Dim rpt As New rptRechnungDruck_MDM(RECHNUNG.RechnungSprache)
Dim rpt As New rptRechnungDruck_MDM(RECHNUNG.RechnungSprache, IIf(RECHNUNG.OffertenNr = 95, RECHNUNG.OffertenNr, Nothing), RECHNUNG.Firma_ID)
If RECHNUNG.POSITIONEN.Count = 0 Then MsgBox("Keine Daten vorhanden!") : Return False
Dim dtDataSource As New DataTable
@@ -2467,16 +2468,14 @@ Public Class cFakturierung
Dim sumSteuerpflichtig As Double = 0
Dim sumSteuerfrei As Double = 0
' Dim Anz As Double = 0
' Dim gesSumBt As Double = 0
' Dim gesAnz As Double = 0
'Dim Anz As Double = 0
'Dim gesSumBt As Double = 0
'Dim gesAnz As Double = 0
Dim vorzeichen = If(If(RECHNUNG.Vorzeichen, "") = "-", -1, 1)
' Dim KUNDE_ERW As New VERAG_PROG_ALLGEMEIN.cKundenErweitert(RECHNUNG.RechnungsKundenNr)
' rpt.Line10.AnchorBottom = True
' rpt.Line10.Height = rpt.Detail.Height