From 4937308362bf92a9a9d8d82f38b1b2cc019356c1 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Fri, 20 Jun 2025 08:53:58 +0200 Subject: [PATCH] fakt Mail, --- SDL/Fakturierung/cFakturierung.vb | 2 +- SDL/Fakturierung/frmAbrechnungsMaske.vb | 2 +- SDL/Fakturierung/frmFaktEmail.vb | 6 ++-- SDL/Fakturierung/usrCntlFaktAbrechnung.vb | 15 ++++----- .../usrCntlFakturierung.Designer.vb | 1 - SDL/seriendruck/usrCntlFakturierung.vb | 31 ++++++++++--------- 6 files changed, 29 insertions(+), 28 deletions(-) diff --git a/SDL/Fakturierung/cFakturierung.vb b/SDL/Fakturierung/cFakturierung.vb index 61a93326..4b3e04ee 100644 --- a/SDL/Fakturierung/cFakturierung.vb +++ b/SDL/Fakturierung/cFakturierung.vb @@ -744,7 +744,7 @@ Public Class cFakturierung If Rechnugnsdruck <= 0 Then Rechnugnsdruck = 3 ' Default Mail If SPEDBUCH_TMP Is Nothing Then Return False - Dim f As New frmFaktEmail(RG_TMP, SPEDBUCH_TMP, Nothing, Rechnugnsdruck, RechnungsDatum) + Dim f As New frmFaktEmail(RG_TMP, SPEDBUCH_TMP, Nothing, Rechnugnsdruck, RechnungsDatum, RG_TMP.Firma_ID) f.Show() Return True ' Return doRechnungsDruck(New VERAG_PROG_ALLGEMEIN.cRechnungsausgang(RK_ID), RechnungsDatum, vorschau, Rechnugnsdruck, Path, PrinterName, SammelrechnungAnlagendruck, printStbVdb) diff --git a/SDL/Fakturierung/frmAbrechnungsMaske.vb b/SDL/Fakturierung/frmAbrechnungsMaske.vb index 8ffcf1fd..b6e3cc7d 100644 --- a/SDL/Fakturierung/frmAbrechnungsMaske.vb +++ b/SDL/Fakturierung/frmAbrechnungsMaske.vb @@ -520,7 +520,7 @@ Public Class frmAbrechnungsMaske RG_DRUCK = 5 End If - Dim f As New frmFaktEmail(RECHNUNG, SPEDBUCH, True, RG_DRUCK) + Dim f As New frmFaktEmail(RECHNUNG, SPEDBUCH, True, RG_DRUCK, RECHNUNG.Firma_ID) f.ShowDialog(Me) End If diff --git a/SDL/Fakturierung/frmFaktEmail.vb b/SDL/Fakturierung/frmFaktEmail.vb index 7d78aad8..e21efb2e 100644 --- a/SDL/Fakturierung/frmFaktEmail.vb +++ b/SDL/Fakturierung/frmFaktEmail.vb @@ -34,13 +34,13 @@ Public Class frmFaktEmail Dim printRgCopy As Boolean = False Dim SR = False - Sub New(RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, printOriginalRg As Object, Rechnungsdruck As Integer, Optional Rechnungsdatum As Object = Nothing) + Sub New(RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, printOriginalRg As Object, Rechnungsdruck As Integer, FirmaID As Integer, Optional Rechnungsdatum As Object = Nothing) ' Dieser Aufruf ist für den Designer erforderlich. InitializeComponent() Me.RECHNUNG = RECHNUNG - Me.Firma_ID = Firma_ID + Me.Firma_ID = FirmaID Me.SPEDBUCH = SPEDBUCH Me.printOriginalRg = printOriginalRg Me.KdNr = RECHNUNG.RechnungsKundenNr @@ -383,7 +383,7 @@ Public Class frmFaktEmail If RECHNUNG.FilialenNr = 4817 And Firma_ID = 19 AndAlso RECHNUNG.ErfassungsNr IsNot Nothing Then Dim SPEDBUCH = New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch(RECHNUNG.FilialenNr, RECHNUNG.AbfertigungsNr, RECHNUNG.UnterNr) - If SPEDBUCH.hasEntry AndAlso (SPEDBUCH.Abfertigungsart = 114 Or SPEDBUCH.Abfertigungsart = 115) Then + If SPEDBUCH.hasEntry AndAlso (SPEDBUCH.Abfertigungsart = 114 Or SPEDBUCH.Abfertigungsart = 115 Or SPEDBUCH.Abfertigungsart = 10) Then Dim USTV_ANTRAG As New cUSTVAntrag(RECHNUNG.ErfassungsNr) If USTV_ANTRAG.UStVAn_Sicherheit Then replaceKZ("KZ1", TextHTML) diff --git a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb index 0a14c57a..7417896c 100644 --- a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb +++ b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb @@ -1756,6 +1756,7 @@ Public Class usrCntlFaktAbrechnung Next End If End If + RECHNUNG.LOAD_ANHAENGE() If RECHNUNG IsNot Nothing AndAlso RECHNUNG.ANHAENGE IsNot Nothing Then @@ -1847,7 +1848,7 @@ Public Class usrCntlFaktAbrechnung If .Rows.Count > 0 Then For Each r As DataGridViewRow In .Rows - If .Columns.Contains("clmnBezeichnung") AndAlso r.Cells("clmnBezeichnung").Value = DS.da_name Then + If .Columns.Contains("clmnBezeichnung") AndAlso r.Cells("clmnBezeichnung").Value = DS.da_name AndAlso RECHNUNG.DruckDatumZeit Is Nothing Then .Rows.Remove(r) For Each ATT As cRechnungsausgangAnhaenge In RECHNUNG.ANHAENGE If ATT.Bezeichnung = DS.da_name AndAlso RECHNUNG.DruckDatumZeit Is Nothing Then @@ -1862,7 +1863,7 @@ Public Class usrCntlFaktAbrechnung End If If RECHNUNG.ANHAENGE.Count > 0 Then - If RECHNUNG.DruckDatumZeit Is Nothing OrElse Not RECHNUNG.ANHAENGE.Exists(Function(c) c.Bezeichnung = DS.da_name) Then + If RECHNUNG.DruckDatumZeit IsNot Nothing AndAlso Not RECHNUNG.ANHAENGE.Exists(Function(c) c.Bezeichnung = DS.da_name) Or RECHNUNG.DruckDatumZeit Is Nothing Then .Rows.Add(-1, "POS-LIST", DS.da_name, DS.da_id, -1) End If Else @@ -3060,14 +3061,14 @@ Public Class usrCntlFaktAbrechnung If fixeTaxe <= 0 Then Exit Sub 'Sucht, ob Fixetaxe schon vorhanden ist,... - Dim FixeTaxePOS = RECHNUNG.POSITIONEN.Find(Function(x) x.LeistungsNr = 441 And x.LeistungsBez = "Fixe Taxe" And x.BerechnungsartNr = 9) + Dim FixeTaxePOS = RECHNUNG.POSITIONEN.Find(Function(x) x.LeistungsNr = 441 And x.BerechnungsartNr = 9) '... sonst wird eine neue Pos eingefügt... - If FixeTaxePOS Is Nothing Then - FixeTaxePOS = New VERAG_PROG_ALLGEMEIN.cRechnungsausgangPositionen + If FixeTaxePOS IsNot Nothing Then + 'FixeTaxePOS = New VERAG_PROG_ALLGEMEIN.cRechnungsausgangPositionen FixeTaxePOS.LeistungsNr = 441 '441 und nicht 440 laut Brigitte weil Steuerfrei!! FixeTaxePOS.LeistungsBez = "Fixe Taxe" FixeTaxePOS.BerechnungsartNr = 9 - RECHNUNG.POSITIONEN.Add(FixeTaxePOS) + 'RECHNUNG.POSITIONEN.Add(FixeTaxePOS) '...und der Wert gesetzt. FixeTaxePOS.Anzahl = 1 FixeTaxePOS.Preis = getVorzeichen(RECHNUNG) * fixeTaxe @@ -3935,7 +3936,7 @@ Nächste_Textzeile_lesen: RG_DRUCK = 5 End If - Dim f As New frmFaktEmail(RECHNUNG, SPEDBUCH, If(cbxOriginalPrint.Visible, cbxOriginalPrint.Checked, Nothing), RG_DRUCK) + Dim f As New frmFaktEmail(RECHNUNG, SPEDBUCH, If(cbxOriginalPrint.Visible, cbxOriginalPrint.Checked, Nothing), RG_DRUCK, RECHNUNG.Firma_ID) f.ShowDialog(Me) initRECHNUNG() RaiseEvent SOMETHING_CHANGED(-1) diff --git a/SDL/seriendruck/usrCntlFakturierung.Designer.vb b/SDL/seriendruck/usrCntlFakturierung.Designer.vb index f2d543ae..5a7d977e 100644 --- a/SDL/seriendruck/usrCntlFakturierung.Designer.vb +++ b/SDL/seriendruck/usrCntlFakturierung.Designer.vb @@ -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 ' diff --git a/SDL/seriendruck/usrCntlFakturierung.vb b/SDL/seriendruck/usrCntlFakturierung.vb index 3617f02a..99d99432 100644 --- a/SDL/seriendruck/usrCntlFakturierung.vb +++ b/SDL/seriendruck/usrCntlFakturierung.vb @@ -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