Syska, FaktMail

This commit is contained in:
2025-08-19 17:17:21 +02:00
parent f156411fa2
commit aababa63b1
3 changed files with 5 additions and 3 deletions

View File

@@ -185,6 +185,8 @@ Public Class frmFaktEmail
If AD.AdressenNr = 1001688 Then cbxExcelEvolog.Checked = True 'EVOLOG
If AD.AdressenNr = 800020 Then cbxTransFerry.Checked = True 'TRANS FERRY 360
If (AD.AdressenNr.ToString.Substring(0, 2) = 15 Or AD.AdressenNr.ToString.Substring(0, 2) = 18) AndAlso cbxMergePDF.Enabled = True Then cbxMergePDF.Checked = True
If AD.E_Mail IsNot Nothing AndAlso AD.E_Mail <> "" Then lkl.Text = """" & AD.E_Mail & """ anfügen" : lkl.Tag = AD.E_Mail
If AD.E_Mail2 IsNot Nothing AndAlso AD.E_Mail2 <> "" Then lklcc.Text = """" & AD.E_Mail2 & """ anfügen" : lklcc.Tag = AD.E_Mail2
lblKunde.Text = AD.AdressenNr & " - " & AD.Ordnungsbegriff

View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.4.3.9")>
<Assembly: AssemblyFileVersion("1.4.3.9")>
<Assembly: AssemblyVersion("1.4.4.0")>
<Assembly: AssemblyFileVersion("1.4.4.0")>

View File

@@ -900,7 +900,7 @@ Public Class cSyska_Interface
genBuchungsZeileVZ &= Format(CDbl(FiBuSteuersatz), fmt) & vbTab 'FiBuSteuersatz
genBuchungsZeileVZ &= FormatStringDbl(FiBuSteuerbetrag) & vbTab 'FiBuSteuerbetrag
genBuchungsZeileVZ &= FiBuWährung & vbTab
genBuchungsZeileVZ &= Format(CDbl(SummeBuchungen), fmt) & vbTab
genBuchungsZeileVZ &= Format(CDbl(FiBuEigenbruttobetrag), fmt) & vbTab