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

2
SDL/Fakturierung/cFakturierung.vb
View File

@@ -744,7 +744,7 @@ Public Class cFakturierung
If Rechnugnsdruck <= 0 Then Rechnugnsdruck = 3 ' Default Mail If Rechnugnsdruck <= 0 Then Rechnugnsdruck = 3 ' Default Mail
If SPEDBUCH_TMP Is Nothing Then Return False 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() f.Show()
Return True Return True
' Return doRechnungsDruck(New VERAG_PROG_ALLGEMEIN.cRechnungsausgang(RK_ID), RechnungsDatum, vorschau, Rechnugnsdruck, Path, PrinterName, SammelrechnungAnlagendruck, printStbVdb) ' Return doRechnungsDruck(New VERAG_PROG_ALLGEMEIN.cRechnungsausgang(RK_ID), RechnungsDatum, vorschau, Rechnugnsdruck, Path, PrinterName, SammelrechnungAnlagendruck, printStbVdb)

2
SDL/Fakturierung/frmAbrechnungsMaske.vb
View File

@@ -520,7 +520,7 @@ Public Class frmAbrechnungsMaske
RG_DRUCK = 5 RG_DRUCK = 5
End If 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) f.ShowDialog(Me)
End If End If

6
SDL/Fakturierung/frmFaktEmail.vb
View File

@@ -34,13 +34,13 @@ Public Class frmFaktEmail
Dim printRgCopy As Boolean = False Dim printRgCopy As Boolean = False
Dim SR = 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. ' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent() InitializeComponent()
Me.RECHNUNG = RECHNUNG Me.RECHNUNG = RECHNUNG
Me.Firma_ID = Firma_ID Me.Firma_ID = FirmaID
Me.SPEDBUCH = SPEDBUCH Me.SPEDBUCH = SPEDBUCH
Me.printOriginalRg = printOriginalRg Me.printOriginalRg = printOriginalRg
Me.KdNr = RECHNUNG.RechnungsKundenNr 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 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) 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) Dim USTV_ANTRAG As New cUSTVAntrag(RECHNUNG.ErfassungsNr)
If USTV_ANTRAG.UStVAn_Sicherheit Then If USTV_ANTRAG.UStVAn_Sicherheit Then
replaceKZ("KZ1", TextHTML) replaceKZ("KZ1", TextHTML)

15
SDL/Fakturierung/usrCntlFaktAbrechnung.vb
View File

@@ -1756,6 +1756,7 @@ Public Class usrCntlFaktAbrechnung
Next Next
End If End If
End If End If
RECHNUNG.LOAD_ANHAENGE() RECHNUNG.LOAD_ANHAENGE()
If RECHNUNG IsNot Nothing AndAlso RECHNUNG.ANHAENGE IsNot Nothing Then If RECHNUNG IsNot Nothing AndAlso RECHNUNG.ANHAENGE IsNot Nothing Then
@@ -1847,7 +1848,7 @@ Public Class usrCntlFaktAbrechnung
If .Rows.Count > 0 Then If .Rows.Count > 0 Then
For Each r As DataGridViewRow In .Rows 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) .Rows.Remove(r)
For Each ATT As cRechnungsausgangAnhaenge In RECHNUNG.ANHAENGE For Each ATT As cRechnungsausgangAnhaenge In RECHNUNG.ANHAENGE
If ATT.Bezeichnung = DS.da_name AndAlso RECHNUNG.DruckDatumZeit Is Nothing Then If ATT.Bezeichnung = DS.da_name AndAlso RECHNUNG.DruckDatumZeit Is Nothing Then
@@ -1862,7 +1863,7 @@ Public Class usrCntlFaktAbrechnung
End If End If
If RECHNUNG.ANHAENGE.Count > 0 Then 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) .Rows.Add(-1, "POS-LIST", DS.da_name, DS.da_id, -1)
End If End If
Else Else
@@ -3060,14 +3061,14 @@ Public Class usrCntlFaktAbrechnung
If fixeTaxe <= 0 Then Exit Sub If fixeTaxe <= 0 Then Exit Sub
'Sucht, ob Fixetaxe schon vorhanden ist,... '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... '... sonst wird eine neue Pos eingefügt...
If FixeTaxePOS Is Nothing Then If FixeTaxePOS IsNot Nothing Then
FixeTaxePOS = New VERAG_PROG_ALLGEMEIN.cRechnungsausgangPositionen 'FixeTaxePOS = New VERAG_PROG_ALLGEMEIN.cRechnungsausgangPositionen
FixeTaxePOS.LeistungsNr = 441 '441 und nicht 440 laut Brigitte weil Steuerfrei!! FixeTaxePOS.LeistungsNr = 441 '441 und nicht 440 laut Brigitte weil Steuerfrei!!
FixeTaxePOS.LeistungsBez = "Fixe Taxe" FixeTaxePOS.LeistungsBez = "Fixe Taxe"
FixeTaxePOS.BerechnungsartNr = 9 FixeTaxePOS.BerechnungsartNr = 9
RECHNUNG.POSITIONEN.Add(FixeTaxePOS) 'RECHNUNG.POSITIONEN.Add(FixeTaxePOS)
'...und der Wert gesetzt. '...und der Wert gesetzt.
FixeTaxePOS.Anzahl = 1 FixeTaxePOS.Anzahl = 1
FixeTaxePOS.Preis = getVorzeichen(RECHNUNG) * fixeTaxe FixeTaxePOS.Preis = getVorzeichen(RECHNUNG) * fixeTaxe
@@ -3935,7 +3936,7 @@ Nächste_Textzeile_lesen:
RG_DRUCK = 5 RG_DRUCK = 5
End If 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) f.ShowDialog(Me)
initRECHNUNG() initRECHNUNG()
RaiseEvent SOMETHING_CHANGED(-1) RaiseEvent SOMETHING_CHANGED(-1)

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

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

31
SDL/seriendruck/usrCntlFakturierung.vb
View File

@@ -497,8 +497,8 @@ Public Class usrcntlFakturierung
Rechnungsausgang.Währungscode, Rechnungsausgang.Währungscode,
isnull(Rechnungsausgang.[Steuersatz %],0) as [Steuersatz %], isnull(Rechnungsausgang.[Steuersatz %],0) as [Steuersatz %],
cast(Rechnungsausgang.Lastschrift as bit) as Lastschrift, cast(Rechnungsausgang.Lastschrift as bit) as Lastschrift,
SUM(CASE WHEN LeistungsNr = 441 THEN Anzahl ELSE 0 END) AS AnzahlFT, SUM(CASE WHEN LeistungsNr = 440 and LeistungsBez = 'Fixe Taxe' 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 0 ELSE SteuerpflichtigerBetrag + SteuerfreierBetrag END) AS BetragExclusivFT
FROM FROM
Rechnungsausgang Rechnungsausgang
INNER JOIN INNER JOIN
@@ -520,7 +520,7 @@ Public Class usrcntlFakturierung
Rechnungsausgang.[Steuersatz %], Rechnungsausgang.[Steuersatz %],
Rechnungsausgang.Lastschrift Rechnungsausgang.Lastschrift
HAVING 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 ORDER BY
Rechnungsausgang.Firma_ID, Rechnungsausgang.Firma_ID,
Rechnungsausgang.Status, Rechnungsausgang.Status,
@@ -545,18 +545,19 @@ Public Class usrcntlFakturierung
If Not IsDBNull(r("BetragExclusivFT")) AndAlso r("BetragExclusivFT") > 0 Then If Not IsDBNull(r("BetragExclusivFT")) AndAlso r("BetragExclusivFT") > 0 Then
If r("BetragExclusivFT") < 500 Then 'If r("BetragExclusivFT") < 500 Then
intZlr = r("AnzahlFT") - 1 'intZlr = r("AnzahlFT") - 1
Else 'Else
intZlr = r("AnzahlFT") intZlr = r("AnzahlFT")
End If 'End If
Else 'Else
If (0 - r("BetragExclusivFT")) < 500 Then ' If (0 - r("BetragExclusivFT")) < 500 Then
intZlr = r("AnzahlFT") - 1 ' intZlr = r("AnzahlFT") - 1
Else ' Else
intZlr = r("AnzahlFT") - 1 ' intZlr = r("AnzahlFT") - 1
End If ' End If
End If End If
If intZlr > 0 Then 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 If dtREPOSANZ.Rows.Count > 0 Then