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

6
SDL/Fakturierung/frmFaktEmail.vb
View File

@@ -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)