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

merge ,

Browse Source 
KD-Übers
This commit is contained in:
Andreas Luxbauer
2026-02-02 10:34:05 +01:00
parent 41f28aa4fb ef8992cbd4
commit e7b1f660cd
38 changed files with 1703 additions and 663 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
SDL/Fakturierung/usrCntlFaktAbrechnung.vb
View File

@@ -565,14 +565,18 @@ Public Class usrCntlFaktAbrechnung
cboRechnungSprache.changeItem(0)
cboRgArt.Items.Clear()
If SPEDBUCH IsNot Nothing AndAlso SPEDBUCH.Abfertigungsart = 100 Then
cboRgArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("RG-Kopf", "RK"))
Else
cboRgArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Standard", "RG"))
cboRgArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Unvollständig", "RU"))
End If
cboRgArt.changeItem(0)
If FirmaTmp = "VERAG360" Then
cboRgArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Standard", "RG"))
Else
If SPEDBUCH IsNot Nothing AndAlso SPEDBUCH.Abfertigungsart = 100 Then
cboRgArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("RG-Kopf", "RK"))
Else
cboRgArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Standard", "RG"))
cboRgArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Unvollständig", "RU"))
End If
cboRgArt.changeItem(0)
End If
'cboSteuerschlüssel.fillWithSQL("SELECT tblSteuersätze.Nr, tblSteuersätze.Beschreibung FROM tblSteuersätze ORDER BY tblSteuersätze.Nr; ", False, "FMZOLL", True)
cboSteuerschlüssel.fillWithSQL("SELECT [Steuerschlüssel],isnull([AuswahlSteuerbezeichnung],'') as Steuerbezeichnung FROM [Steuertabelle] ORDER BY [Steuerschlüssel]", False, "FMZOLL", True)
@@ -1483,7 +1487,7 @@ Public Class usrCntlFaktAbrechnung
Dim isMWSTBearb As Boolean = False
Select Case r.Cells("LeistungsNr").Value
Case 124, 125, 126, 117, 118, 119, bearbNrRMC : isMWSTBearb = True
Case 123, 124, 125, 126, 117, 118, 119, bearbNrRMC : isMWSTBearb = True
End Select
@@ -2897,9 +2901,9 @@ Public Class usrCntlFaktAbrechnung
For Each row As DataGridViewRow In dgvOfferteDetailsUebersicht.Rows
If row.Cells("LeistungsNr").Value = BGebLeistungsNr And row.Cells("BerechnungsartNr").Value = 9 Then
Dim preisecChanged = row.Cells("Preis").Value
Dim preiseChanged = row.Cells("Preis").Value
If preisecChanged <> (sumOffertRMC + sumOffertFremd) * IIf(RECHNUNG.Vorzeichen = "-", -1, 1) Then
If preiseChanged <> (sumOffertRMC + sumOffertFremd) * IIf(RECHNUNG.Vorzeichen = "-", -1, 1) Then
' If row.Cells("Preis").Value = curBGebBetrag * 2 AndAlso minBetragRMCUsed Then 'wenn RMCPOS und MIND-BERTAG 2x verrechnet -> nur 1x berechnen v