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

cAutomailversand, etc.

Browse Source
This commit is contained in:
d.breimaier
2026-10-23 10:07:13 +02:00
parent c9d1febc98
commit 119ff9973d
4 changed files with 20 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
SDL/Fakturierung/cAutomailversand.vb
View File

@@ -1376,7 +1376,7 @@ Public Class cAutomailversand
Next
End If
If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, EMail_subject, EMail_HTML, accountToSend, False, False, EMails_CC, EMails_BCC, attachList,, IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "d.breimaier@verag.ag", accountToSend)) Then
If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, EMail_subject, EMail_HTML, accountToSend, False, False, EMails_CC, EMails_BCC, attachList, 5, IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "d.breimaier@verag.ag", accountToSend)) Then
API.UPDTAE_OK()
@@ -1732,7 +1732,7 @@ Public Class cAutomailversand
LoadZollAttachments(SPEDBUCH, SPEDBUCH.FilialenNr, FirmaID, False, attachList, Nothing, True)
Dim accountToSend = setAccountToSend(FirmaID)
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(MailTo, Subject, TextHTML, accountToSend, False, False, MailCC, accountToSend, attachList,, IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "d.breimaier@verag.ag", accountToSend))
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(MailTo, Subject, TextHTML, accountToSend, False, False, MailCC, accountToSend, attachList, 5, IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "d.breimaier@verag.ag", accountToSend))
''-----------------------------------------------------------------
''Steuerbescheid anfügen

18
SDL/seriendruck/usrCntlFakturierung.vb
View File

@@ -629,7 +629,7 @@ Public Class usrcntlFakturierung
If Not IsDBNull(r("BetragExclusivFT")) AndAlso r("BetragExclusivFT") > 0 Then
If Not cbxFixeTaxe.Checked OrElse r("BetragExclusivFT") < 500 Then
If r("BetragExclusivFT") < 500 AndAlso cbxFixeTaxe.Checked Then
intZlr = r("AnzahlFT") - 1
Else
intZlr = r("AnzahlFT")
@@ -637,16 +637,24 @@ Public Class usrcntlFakturierung
Else
If Not cbxFixeTaxe.Checked OrElse (0 - r("BetragExclusivFT")) < 500 Then
intZlr = r("AnzahlFT") - 1
If cbxFixeTaxe.Checked Then
If (0 - r("BetragExclusivFT")) < 500 Then
intZlr = r("AnzahlFT") - 1
Else
intZlr = r("AnzahlFT") - 1
End If
Else
intZlr = r("AnzahlFT") - 1
intZlr = r("AnzahlFT")
End If
End If
If intZlr > 0 Then
If intZlr > 0 Then
Dim steuersatz As Single = r("Steuersatz %") 'Single same as real-datatype in SQL (wichtig, sonst findet er den wert nicht!!!)

2
VERAG_PROG_ALLGEMEIN/VERAG_Zollanmeldung/cVERAG_CustomsDeclarations.vb
View File

@@ -824,7 +824,7 @@ Public Class cVERAG_CustomsDeclarations
Dim bis As Date
Dim CBAMZertifikatKosten As Double = 0
If CountryOfOrigin = "" Then Return False
'If CountryOfOrigin = "" Then Return False
Select Case cbamQquarter
Case "1"

4
VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb
View File

@@ -897,6 +897,10 @@ BindingFlags.Instance Or BindingFlags.NonPublic, Nothing, [Control], New Object(
Select Case art
Case "3", "4" 'Export
sqlWHere = " AND mail_kindOfMail = 'EXP'"
Case "5" 'Buchhaltung
sqlWHere = " AND mail_kindOfMail = 'BH'"
Case Else
sqlWHere = " AND mail_kindOfMail = 'IMP'"
End Select