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

Fakt, Email, Nacherfassung, etc.

Browse Source
This commit is contained in:
d.breimaier
2025-06-04 09:53:11 +02:00
parent b2c4576821
commit 3e2b9bbc51
4 changed files with 57 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
SDL/Fakturierung/usrCntlFaktAbrechnung.vb
View File

@@ -2134,7 +2134,7 @@ Public Class usrCntlFaktAbrechnung
Select Case cboRgGS.SelectedIndex
Case 0 : RECHNUNG.[BelegartenKz] = "AR" : RECHNUNG.[BelegartenNr] = 70 : RECHNUNG.Vorzeichen = "+" : RECHNUNG.BelegartenBez = "Rechnung" : RECHNUNG.Text = cProgramFunctions.isLeerNothing(txtText.Text) : RECHNUNG.TextZZ = cProgramFunctions.isLeerNothing(txtTextZZ.Text)
Case 1 : RECHNUNG.[BelegartenKz] = "AG" : RECHNUNG.[BelegartenNr] = 71 : RECHNUNG.Vorzeichen = "-" : RECHNUNG.BelegartenBez = "Gutschrift" : RECHNUNG.Text = ""
Case 1 : RECHNUNG.[BelegartenKz] = "AG" : RECHNUNG.[BelegartenNr] = 71 : RECHNUNG.Vorzeichen = "-" : RECHNUNG.BelegartenBez = "Gutschrift" : RECHNUNG.Text = "" : If RECHNUNG.Firma_ID = 19 Then RECHNUNG.TextZZ = cProgramFunctions.isLeerNothing(txtTextZZ.Text)
End Select
RECHNUNG.Sammelrechnung = cProgramFunctions.isLeerNothing(cboSammelrechnung._value)
@@ -2697,9 +2697,17 @@ Public Class usrCntlFaktAbrechnung
If curBearbPreis = curBGebBetrag * 2 AndAlso minBetragRMCUsed Then 'wenn RMCPOS und MIND-BERTAG 2x verrechnet -> nur 1x berechnen
If curBearbPreis <> row.Cells("Preis").Value Then row.Cells("Preis").Value = curBGebBetrag / 2
ElseIf curBearbPreis <> curBGebBetrag * 2 AndAlso summeRMCBearb <> curBearbPreis AndAlso (minBetragRMCUsed OrElse isRMC OrElse isFREMD) AndAlso summeRMCBearb > curBGebMinBetrag Then 'wenn RMCPOS und Summe der berechneten Bearb > Mindestbetrag --> berechnetBearb verrechnet!
If summeRMCBearb <> row.Cells("Preis").Value Then row.Cells("Preis").Value = summeRMCBearb
If summeRMCBearb <> row.Cells("Preis").Value Then
If Math.Abs(row.Cells("Preis").Value - summeRMCBearb) > 0.5 Then 'Rundungsdifferenzen ignorieren (weil sonst Deadloop)
row.Cells("Preis").Value = summeRMCBearb
End If
End If
End If
Else
If minBetragRMCUsed Then
@@ -4853,14 +4861,14 @@ mwst:
If isRMCKunde Then
If OFFERT_RMC AndAlso sumRMC <> 0 Then
r.Cells("Preis").Value = sumRMC * -1
r.Cells("Preis").Value = sumRMC '* -1
ElseIf OFFERT_FREMD AndAlso sumFremdBeleg <> 0 Then
r.Cells("Preis").Value = sumFremdBeleg * -1
r.Cells("Preis").Value = sumFremdBeleg '* -1
End If
Else
If sumBelegVZ <> 0 Then
r.Cells("Preis").Value = sumBelegVZ * -1
r.Cells("Preis").Value = sumBelegVZ '* -1
Else
Dim GesamtUSteuerEUR As Double = SQL.DLookup("isnull(sum(UStVPo_USteuerbetragEUR),0)", "tblUStVPositionen", "UStVAn_ID='" & antrag.UStVAn_ID & "'", "FMZOLL", "0")
@@ -4868,7 +4876,7 @@ mwst:
Dim DiffernezbetragEUR As Double = GesamtUSteuerEUR - GesamtErstattungEUR
If DiffernezbetragEUR <> 0 Then
r.Cells("Preis").Value = DiffernezbetragEUR * -1
r.Cells("Preis").Value = DiffernezbetragEUR '* -1
End If
End If