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

fakt Mail,

Browse Source
This commit is contained in:
d.breimaier
2025-06-20 08:53:58 +02:00
parent b231c71feb
commit 4937308362
6 changed files with 29 additions and 28 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
SDL/seriendruck/usrCntlFakturierung.Designer.vb generated
View File

@@ -411,7 +411,6 @@ Partial Class usrcntlFakturierung
Me.btnFixeTaxe.TabIndex = 126
Me.btnFixeTaxe.Text = "FT berechnen"
Me.btnFixeTaxe.UseVisualStyleBackColor = True
Me.btnFixeTaxe.Visible = False
'
'Label11
'

31
SDL/seriendruck/usrCntlFakturierung.vb
View File

@@ -497,8 +497,8 @@ Public Class usrcntlFakturierung
Rechnungsausgang.Währungscode,
isnull(Rechnungsausgang.[Steuersatz %],0) as [Steuersatz %],
cast(Rechnungsausgang.Lastschrift as bit) as Lastschrift,
SUM(CASE WHEN LeistungsNr = 441 THEN Anzahl ELSE 0 END) AS AnzahlFT,
SUM(CASE WHEN LeistungsNr = 441 THEN 0 ELSE SteuerpflichtigerBetrag + SteuerfreierBetrag END) AS BetragExclusivFT
SUM(CASE WHEN LeistungsNr = 440 and LeistungsBez = 'Fixe Taxe' THEN Anzahl ELSE 0 END) AS AnzahlFT,
SUM(CASE WHEN LeistungsNr = 440 and LeistungsBez = 'Fixe Taxe' THEN 0 ELSE SteuerpflichtigerBetrag + SteuerfreierBetrag END) AS BetragExclusivFT
FROM
Rechnungsausgang
INNER JOIN
@@ -520,7 +520,7 @@ Public Class usrcntlFakturierung
Rechnungsausgang.[Steuersatz %],
Rechnungsausgang.Lastschrift
HAVING
SUM(CASE WHEN LeistungsNr = 441 THEN Anzahl ELSE 0 END) > 0
SUM(CASE WHEN LeistungsNr = 440 and LeistungsBez = 'Fixe Taxe' THEN Anzahl ELSE 0 END) > 0
ORDER BY
Rechnungsausgang.Firma_ID,
Rechnungsausgang.Status,
@@ -545,18 +545,19 @@ Public Class usrcntlFakturierung
If Not IsDBNull(r("BetragExclusivFT")) AndAlso r("BetragExclusivFT") > 0 Then
If r("BetragExclusivFT") < 500 Then
intZlr = r("AnzahlFT") - 1
Else
intZlr = r("AnzahlFT")
End If
Else
If (0 - r("BetragExclusivFT")) < 500 Then
intZlr = r("AnzahlFT") - 1
Else
intZlr = r("AnzahlFT") - 1
End If
'If r("BetragExclusivFT") < 500 Then
'intZlr = r("AnzahlFT") - 1
'Else
intZlr = r("AnzahlFT")
'End If
'Else
' If (0 - r("BetragExclusivFT")) < 500 Then
' intZlr = r("AnzahlFT") - 1
' Else
' intZlr = r("AnzahlFT") - 1
' End If
End If
If intZlr > 0 Then
@@ -598,7 +599,7 @@ Public Class usrcntlFakturierung
Dim dtREPOSANZ As DataTable = (New SQL).loadDgvBySql("Select [RK_ID], [LeistungsNr], cast([Steuerpflichtig] as bit) as Steuerpflichtig, [LeistungsBez],[IndexZkteing], Anzahl, SteuerpflichtigerBetrag, SteuerfreierBetrag,upsize_ts From RechnungsausgangPositionen Where RechnungsausgangPositionen.RK_ID = " & re("RK_ID") & " And RechnungsausgangPositionen.LeistungsNr = 441", "FMZOLL")
Dim dtREPOSANZ As DataTable = (New SQL).loadDgvBySql("Select [RK_ID], [LeistungsNr], cast([Steuerpflichtig] as bit) as Steuerpflichtig, [LeistungsBez],[IndexZkteing], Anzahl, SteuerpflichtigerBetrag, SteuerfreierBetrag,upsize_ts From RechnungsausgangPositionen Where RechnungsausgangPositionen.RK_ID = " & re("RK_ID") & " And RechnungsausgangPositionen.LeistungsNr = 440 and LeistungsBez = 'Fixe Taxe'", "FMZOLL")
If dtREPOSANZ.Rows.Count > 0 Then