diff --git a/SDL/Fakturierung/frmFaktEmail.vb b/SDL/Fakturierung/frmFaktEmail.vb index 1c996495..7d78aad8 100644 --- a/SDL/Fakturierung/frmFaktEmail.vb +++ b/SDL/Fakturierung/frmFaktEmail.vb @@ -379,37 +379,39 @@ Public Class frmFaktEmail Dim KUNDE_ERW As New cKundenErweitert(KdNr) - 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 - Dim USTV_ANTRAG As New cUSTVAntrag(RECHNUNG.ErfassungsNr) - If USTV_ANTRAG.UStVAn_Sicherheit Then - replaceKZ("KZ1", TextHTML) - TextHTML = TextHTML.ToString.Replace("%KZ4:", "") : TextHTML = TextHTML.ToString.Replace("%", "") + If Not SR Then - ElseIf KUNDE_ERW.kde_Erstattungsart = 4 Then - replaceKZ("KZ1", TextHTML) - TextHTML = TextHTML.ToString.Replace("%KZ4:", "") : TextHTML = TextHTML.ToString.Replace("%", "") + 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 + Dim USTV_ANTRAG As New cUSTVAntrag(RECHNUNG.ErfassungsNr) + If USTV_ANTRAG.UStVAn_Sicherheit Then + replaceKZ("KZ1", TextHTML) + TextHTML = TextHTML.ToString.Replace("%KZ4:", "") : TextHTML = TextHTML.ToString.Replace("%", "") - ElseIf KUNDE_ERW.kde_Erstattungsart = 1 Then - replaceKZ("KZ4", TextHTML) - TextHTML = TextHTML.ToString.Replace("%KZ1:", "") : TextHTML = TextHTML.ToString.Replace("%", "") + ElseIf KUNDE_ERW.kde_Erstattungsart = 4 Then + replaceKZ("KZ1", TextHTML) + TextHTML = TextHTML.ToString.Replace("%KZ4:", "") : TextHTML = TextHTML.ToString.Replace("%", "") + + ElseIf KUNDE_ERW.kde_Erstattungsart = 1 Then + replaceKZ("KZ4", TextHTML) + TextHTML = TextHTML.ToString.Replace("%KZ1:", "") : TextHTML = TextHTML.ToString.Replace("%", "") + + Else + replaceKZ("KZ1", TextHTML) + replaceKZ("KZ4", TextHTML) + TextHTML = TextHTML.ToString.Replace("%", "") + End If + + If mailText <> "" Then TextHTML &= mailText & vbNewLine + 'TextHTML &= "


" & cFakturierung.getSignature(RechnungsLandKz, Firma_ID) - Else - replaceKZ("KZ1", TextHTML) - replaceKZ("KZ4", TextHTML) - TextHTML = TextHTML.ToString.Replace("%", "") End If - - If mailText <> "" Then TextHTML &= mailText & vbNewLine - 'TextHTML &= "


" & cFakturierung.getSignature(RechnungsLandKz, Firma_ID) - End If End If - End If - End If + End If End If