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

creditsafe, ustcnlFakt, MDMDatenverarbeitung

Browse Source
This commit is contained in:
d.breimaier
2025-10-08 12:09:03 +02:00
parent f9c3bb6f7a
commit a3d6069226
3 changed files with 30 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

34
SDL/seriendruck/usrCntlFakturierung.vb
View File

@@ -1,6 +1,7 @@
Imports System.Globalization
Imports System.IO
Imports System.Web.UI.WebControls.Expressions
Imports jdk.nashorn.internal.objects.annotations
Imports VERAG_PROG_ALLGEMEIN
Public Class usrcntlFakturierung
@@ -269,8 +270,25 @@ Public Class usrcntlFakturierung
Dim steuersatz As Single = r("Steuersatz %") 'Single same as real-datatype in SQL (wichtig, sonst findet er den wert nicht!!!)
ok = SQL.doSQL("UPDATE [Rechnungsausgang] SET [BelegartenNr] = " & BelegartenNr & ", [BelegartenKz] = '" & BelegartenKz & "' , [BelegartenBez] = '" & BelegartenBez & "' , [Vorzeichen] = '" & Vorzeichen & "'
WHERE [Firma_ID] = 19 AND [Status] = 0 AND [Sammelrechnung] = 6 AND UPPER([Sachbearbeiter])= '" & Sachbearbeiter & "' AND [RechnungsKundenNr] = " & r("RechnungsKundenNr") & " AND [Währungscode] = '" & r("Währungscode") & "' AND [Steuersatz %] = " & steuersatz.ToString.Replace(",", ".") & " AND [Lastschrift] = " & IIf(r("Lastschrift"), 1, 0) & "AND cast(Abfertigungsdatum as Date) = '" & rechnungsdatum & "'", "FMZOLL")
Dim dtRE_set As DataTable = (New SQL).loadDgvBySql("SELECT RK_ID FROM [Rechnungsausgang] WHERE [Firma_ID] = 19 AND [Status] = 0 AND [Sammelrechnung] = 6 AND UPPER([Sachbearbeiter])= '" & Sachbearbeiter & "' AND [RechnungsKundenNr] = " & r("RechnungsKundenNr") & " AND [Währungscode] = '" & r("Währungscode") & "' AND [Steuersatz %] = " & steuersatz.ToString.Replace(",", ".") & " AND [Lastschrift] = " & IIf(r("Lastschrift"), 1, 0) & "AND cast(Abfertigungsdatum as Date) = '" & rechnungsdatum & "'", "FMZOLL")
For Each RE As DataRow In dtRE_set.Rows
Dim RECHNUNG As New cRechnungsausgang(RE("RK_ID"))
RECHNUNG.BelegartenBez = BelegartenBez
RECHNUNG.BelegartenKz = BelegartenKz
RECHNUNG.BelegartenNr = BelegartenNr
RECHNUNG.Vorzeichen = Vorzeichen
ok = RECHNUNG.SAVE()
If Not ok Then Exit For
Next
'nicht per SQL-Update, sondst werden die Vorzeichen bei RE/GU uU falsch gesetzt!!!!!!!!!!!!!!!
'ok = SQL.doSQL("UPDATE [Rechnungsausgang] SET [BelegartenNr] = " & BelegartenNr & ", [BelegartenKz] = '" & BelegartenKz & "' , [BelegartenBez] = '" & BelegartenBez & "' , [Vorzeichen] = '" & Vorzeichen & "'
' WHERE [Firma_ID] = 19 AND [Status] = 0 AND [Sammelrechnung] = 6 AND UPPER([Sachbearbeiter])= '" & Sachbearbeiter & "' AND [RechnungsKundenNr] = " & r("RechnungsKundenNr") & " AND [Währungscode] = '" & r("Währungscode") & "' AND [Steuersatz %] = " & steuersatz.ToString.Replace(",", ".") & " AND [Lastschrift] = " & IIf(r("Lastschrift"), 1, 0) & "AND cast(Abfertigungsdatum as Date) = '" & rechnungsdatum & "'", "FMZOLL")
If Not ok Then MsgBox("Rechnungsdruck wird abgebrochen." & vbCrLf & "Rechnungen/Gutschriften nicht gefunden.") : Exit Sub
@@ -447,8 +465,8 @@ Public Class usrcntlFakturierung
If Not IsDBNull(row("SteuerfreierBetrag")) AndAlso IsNumeric(row("SteuerfreierBetrag")) Then stfregesBetr = stfregesBetr - CDbl(row("SteuerfreierBetrag"))
If RECHNUNG.DELETE_POSITIONEN(RECHNUNG.RK_ID, row("LeistungsNr"), row("Steuerpflichtig"), row("LeistungsBez"), row("IndexZkteing")) Then
RECHNUNG.SteuerfreierGesamtbetrag = stfregesBetr
RECHNUNG.SteuerpflichtigerGesamtbetrag = stgesBetr
RECHNUNG.SteuerfreierGesamtbetrag = stfregesBetr '* If(RECHNUNG.Vorzeichen = "-", -1, 1)
RECHNUNG.SteuerpflichtigerGesamtbetrag = stgesBetr '* If(RECHNUNG.Vorzeichen = "-", -1, 1)
isSet = RECHNUNG.SAVE(False)
End If
@@ -631,8 +649,8 @@ Public Class usrcntlFakturierung
If Not IsDBNull(row("SteuerfreierBetrag")) AndAlso IsNumeric(row("SteuerfreierBetrag")) Then stfregesBetr = stfregesBetr - CDbl(row("SteuerfreierBetrag"))
If RECHNUNG.DELETE_POSITIONEN(RECHNUNG.RK_ID, row("LeistungsNr"), row("Steuerpflichtig"), row("LeistungsBez"), row("IndexZkteing")) Then
RECHNUNG.SteuerfreierGesamtbetrag = stfregesBetr
RECHNUNG.SteuerpflichtigerGesamtbetrag = stgesBetr
RECHNUNG.SteuerfreierGesamtbetrag = stfregesBetr '* If(RECHNUNG.Vorzeichen = "-", -1, 1) 'Beim Speichern wird das Vorzeichen nochmals ermittelt
RECHNUNG.SteuerpflichtigerGesamtbetrag = stgesBetr '* If(RECHNUNG.Vorzeichen = "-", -1, 1)
isSet = RECHNUNG.SAVE(False)
End If
@@ -871,8 +889,8 @@ Public Class usrcntlFakturierung
Dim RECHNUNG As New cRechnungsausgang(re("RK_ID"))
If RECHNUNG.DELETE_POSITIONEN(RECHNUNG.RK_ID, r415("LeistungsNr"), r415("Steuerpflichtig"), r415("LeistungsBez"), r415("IndexZkteing")) Then
RECHNUNG.SteuerfreierGesamtbetrag = steuerfreiegerGesamtbetrag
RECHNUNG.SteuerpflichtigerGesamtbetrag = steuerpflichtigerGesamtbetrag
RECHNUNG.SteuerfreierGesamtbetrag = steuerfreiegerGesamtbetrag '* If(RECHNUNG.Vorzeichen = "-", -1, 1)
RECHNUNG.SteuerpflichtigerGesamtbetrag = steuerpflichtigerGesamtbetrag '* If(RECHNUNG.Vorzeichen = "-", -1, 1)
isSet = RECHNUNG.SAVE(False)
End If