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

Syska, FaktMail

Browse Source
This commit is contained in:
d.breimaier
2025-08-19 17:17:21 +02:00
parent f156411fa2
commit aababa63b1
3 changed files with 5 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
SDL/Fakturierung/frmFaktEmail.vb
View File

@@ -185,6 +185,8 @@ Public Class frmFaktEmail
If AD.AdressenNr = 1001688 Then cbxExcelEvolog.Checked = True 'EVOLOG If AD.AdressenNr = 1001688 Then cbxExcelEvolog.Checked = True 'EVOLOG
If AD.AdressenNr = 800020 Then cbxTransFerry.Checked = True 'TRANS FERRY 360 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_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 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 lblKunde.Text = AD.AdressenNr & " - " & AD.Ordnungsbegriff

4
SDL/My Project/AssemblyInfo.vb
View File

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

2
VERAG_PROG_ALLGEMEIN/Schnittstellen/cSyska_Interface.vb
View File

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