syska-pfadänderung
This commit is contained in:
@@ -1,5 +1,4 @@
|
||||
Imports System.IO
|
||||
Imports com.sun.tools.doclets.internal.toolkit.util
|
||||
Imports Microsoft.Office.Interop
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
|
||||
@@ -12,7 +11,7 @@ Public Class cAutomailversand
|
||||
Dim rechnungenMailversand = "SELECT RechnungsNr,RechnungsKundenNr,isnull(tblKundenErweitert.kde_keineMWSt,0) as keineMWST, max(Rechnungsausgang.[RechnungsLandKz]) as RechnungsLandKz, MitgliedslandEU, sum(Rechnungsausgang.SteuerpflichtigerGesamtbetrag) AS Steuer FROM Rechnungsausgang
|
||||
LEFT JOIN tblKundenErweitert on tblKundenErweitert.kde_KundenNr = Rechnungsausgang.RechnungsKundenNr
|
||||
INNER JOIN Währungstabelle on LandKz = Rechnungsausgang.RechnungsLandKz
|
||||
WHERE Rechnungsausgang.Status IN (2) And Rechnungsausgang.Firma_ID = '" & FirmaID & "' And Rechnungsausgang.Sammelrechnung = '" & SammelrechungArt & "' And CONVERT(DATE,Rechnungsausgang.Abfertigungsdatum,104) = '" & Sammelrechnungsdatum.ToShortDateString & "'
|
||||
WHERE Rechnungsausgang.Status IN (2) And Rechnungsausgang.Firma_ID = '" & FirmaID & "' And Rechnungsausgang.Sammelrechnung = '" & SammelrechungArt & "' And CONVERT(DATE,Rechnungsausgang.Rechnungsdatum,104) = '" & Sammelrechnungsdatum.ToShortDateString & "'
|
||||
and isnull(Rechnungsausgang.Automailversand,0) = 1 and RechnungsNr > 0 " & IIf(KundenNr > 0, " AND RechnungsKundenNr = " & KundenNr, "") & "
|
||||
GROUP BY RechnungsNr, RechnungsKundenNr,isnull(tblKundenErweitert.kde_keineMWSt,0),RechnungsLandKz, MitgliedslandEU
|
||||
ORDER BY RechnungsLandKz, RechnungsKundenNr"
|
||||
@@ -22,35 +21,41 @@ Public Class cAutomailversand
|
||||
|
||||
|
||||
For Each row As DataRow In dt.Rows
|
||||
|
||||
Dim BelegartenNr = "70"
|
||||
Dim steuerbetrag As Double = 0
|
||||
Dim SR_DT As DataTable = Nothing
|
||||
Dim RechnungsNr As Integer = -1
|
||||
Dim DruckDatumZeit As DateTime
|
||||
Dim Rechnungsdatum = Nothing
|
||||
Dim ATTACHMENTS As New List(Of cFakt_MailATTach)
|
||||
|
||||
'AKTUELL IMMER MIT KOPIE
|
||||
MDMKopiedrucken = True
|
||||
Dim isEU As Boolean = row.Item("MitgliedslandEU")
|
||||
If FirmaID = 19 Then
|
||||
|
||||
If isEU Then
|
||||
If row.Item("keineMWST") Then
|
||||
'1. Schritt: kein MWST Kunde -> ORIGINAL-RE per Mail!
|
||||
MDMKopiedrucken = Not row.Item("keineMWST")
|
||||
'AKTUELL IMMER MIT KOPIE
|
||||
MDMKopiedrucken = True
|
||||
Dim isEU As Boolean = row.Item("MitgliedslandEU")
|
||||
|
||||
If isEU Then
|
||||
If row.Item("keineMWST") Then
|
||||
'1. Schritt: kein MWST Kunde -> ORIGINAL-RE per Mail!
|
||||
MDMKopiedrucken = Not row.Item("keineMWST")
|
||||
End If
|
||||
|
||||
'2. Schritt: MWST Kunde -> wenn kein MWST-BEtrag ->Original sonst Kopie per Mail!
|
||||
If MDMKopiedrucken Then
|
||||
MDMKopiedrucken = CDbl(row.Item("Steuer")) <> 0
|
||||
End If
|
||||
|
||||
Else
|
||||
'immer KOPIE weil Ausdruck aktuell noch gesendet!
|
||||
End If
|
||||
|
||||
'2. Schritt: MWST Kunde -> wenn kein MWST-BEtrag ->Original sonst Kopie per Mail!
|
||||
If MDMKopiedrucken Then
|
||||
MDMKopiedrucken = CDbl(row.Item("Steuer")) <> 0
|
||||
End If
|
||||
|
||||
Else
|
||||
'immer KOPIE weil Ausdruck aktuell noch gesendet!
|
||||
End If
|
||||
|
||||
SR_DT = cFakturierung.GET_SR_SQLDT(FirmaID, SammelrechungArt, Sammelrechnungsdatum, row.Item("RechnungsKundenNr"),, , , , True)
|
||||
SR_DT = cFakturierung.GET_SR_SQLDT(FirmaID, SammelrechungArt, Sammelrechnungsdatum, row.Item("RechnungsKundenNr"),,,,, True)
|
||||
|
||||
Dim AD = New VERAG_PROG_ALLGEMEIN.cAdressen(row.Item("RechnungsKundenNr"))
|
||||
Dim FISKAL = New cFiskal_Daten(row.Item("RechnungsKundenNr"))
|
||||
|
||||
If RechnungsNr = -1 Then
|
||||
If SR_DT.Rows.Count > 0 Then
|
||||
@@ -60,12 +65,16 @@ Public Class cAutomailversand
|
||||
RechnungsNr = distinctDT_SR.Rows(0).Item("RechnungsNr")
|
||||
DruckDatumZeit = distinctDT_SR.Rows(0).Item("DruckDatumZeit")
|
||||
Rechnungsdatum = distinctDT_SR.Rows(0).Item("Rechnungsdatum")
|
||||
BelegartenNr = SR_DT.Rows(0)("BelegartenNr")
|
||||
For Each r In SR_DT.Rows
|
||||
steuerbetrag += r("steuerpflichtigerGesamtbetrag")
|
||||
If BelegartenNr <> r("BelegartenNr") Then BelegartenNr = "70" : Exit For
|
||||
Next
|
||||
End If
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
Dim SR As Boolean = True
|
||||
|
||||
Dim MailTo As String = ""
|
||||
@@ -101,13 +110,14 @@ Public Class cAutomailversand
|
||||
|
||||
End If
|
||||
|
||||
'im TESTSYSTEM bewusst die Empfänger leeren!
|
||||
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
|
||||
MailTo = ""
|
||||
MailtoCC = ""
|
||||
MailtoBCC = "mmdabrechnung@verag.ag"
|
||||
|
||||
MailtoBCC = setAccountToSend(FirmaID)
|
||||
Else
|
||||
MailtoBCC = "mmdabrechnung@verag.ag"
|
||||
MailtoBCC = setAccountToSend(FirmaID)
|
||||
End If
|
||||
|
||||
|
||||
@@ -119,8 +129,8 @@ Public Class cAutomailversand
|
||||
|
||||
Dim listPDFs As New List(Of String)
|
||||
Dim showError As Boolean = False
|
||||
setEmailText(row, FirmaID, RechnungsNr, Mailsubject, HTMLMail)
|
||||
If doRechnung(row.Item("RechnungsKundenNr"), FirmaID, SammelrechungArt, Rechnungsdatum, RechnungsNr, DruckDatumZeit, MDMKopiedrucken, listPDFs,,,, showError) Then
|
||||
setEmailText(row, FirmaID, RechnungsNr, Mailsubject, HTMLMail, SammelrechungArt, dt, BelegartenNr)
|
||||
If do_SR(row.Item("RechnungsKundenNr"), FirmaID, SammelrechungArt, Rechnungsdatum, RechnungsNr, DruckDatumZeit, MDMKopiedrucken, listPDFs,,,, showError) Then
|
||||
loadAndSetAnhaenge(SR_DT, ATTACHMENTS, listPDFs)
|
||||
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then Mailsubject &= " TEST"
|
||||
@@ -156,51 +166,99 @@ Public Class cAutomailversand
|
||||
End Sub
|
||||
|
||||
|
||||
Sub sendMailEinzelrechnung(Rechnungsdatum As Date, RechungArt As Integer, FirmaID As Integer, Optional KundenNr As Integer = -1, Optional mailoeffnen As Boolean = False)
|
||||
Sub sendMailEinzelrechnungen(Rechnungsdatum As Date, FirmaID As Integer, Optional Sachbearbeiter As String = "", Optional KundenNr As Integer = -1, Optional mailoeffnen As Boolean = False)
|
||||
|
||||
Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
|
||||
Dim rechnungenMailversand = "SELECT RechnungsNr,RechnungsKundenNr,isnull(tblKundenErweitert.kde_keineMWSt,0) as keineMWST, max(Rechnungsausgang.[RechnungsLandKz]) as RechnungsLandKz, MitgliedslandEU, sum(Rechnungsausgang.SteuerpflichtigerGesamtbetrag) AS Steuer FROM Rechnungsausgang
|
||||
LEFT JOIN tblKundenErweitert on tblKundenErweitert.kde_KundenNr = Rechnungsausgang.RechnungsKundenNr
|
||||
INNER JOIN Währungstabelle on LandKz = Rechnungsausgang.RechnungsLandKz
|
||||
WHERE Rechnungsausgang.Status IN (2) And Rechnungsausgang.Firma_ID = '" & FirmaID & "' And And CONVERT(DATE,Rechnungsausgang.Rechnungsdatum,104) = '" & Rechnungsdatum.ToShortDateString & "'
|
||||
and isnull(Rechnungsausgang.Automailversand,0) = 1 and RechnungsNr > 0 " & IIf(KundenNr > 0, " AND RechnungsKundenNr = " & KundenNr, "") & "
|
||||
GROUP BY RechnungsNr, RechnungsKundenNr,isnull(tblKundenErweitert.kde_keineMWSt,0),RechnungsLandKz, MitgliedslandEU
|
||||
ORDER BY RechnungsLandKz, RechnungsKundenNr"
|
||||
|
||||
Dim dt As DataTable = sql.loadDgvBySql(rechnungenMailversand, "FMZOLL")
|
||||
Try
|
||||
|
||||
For Each r In dt.Rows
|
||||
|
||||
Dim MailTo As String = ""
|
||||
Dim MailtoCC As String = ""
|
||||
Dim MailtoBCC As String = ""
|
||||
|
||||
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
|
||||
MailTo = ""
|
||||
MailtoCC = ""
|
||||
MailtoBCC = setAccountToSend(FirmaID)
|
||||
Else
|
||||
MailtoBCC = setAccountToSend(FirmaID)
|
||||
End If
|
||||
|
||||
|
||||
Next
|
||||
|
||||
Catch ex As System.Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL,,,,,,)
|
||||
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub setEmailText(row As DataRow, Firma_ID As Integer, RechnungsNr As Integer, ByRef Subject As String, ByRef TextHTML As String)
|
||||
Private Sub setEmailText(row As DataRow, Firma_ID As Integer, RechnungsNr As Integer, ByRef Subject As String, ByRef TextHTML As String, ByRef SammelrechungArt As Integer, dt As DataTable, ByRef BelegartenNr As Integer)
|
||||
|
||||
Dim txtRgNr As String = IIf(RechnungsNr < 0, -1, RechnungsNr)
|
||||
Dim Mailtext As String
|
||||
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
Dim listOfTextconserven As cTextkonserve_LIST = New cTextkonserve_LIST(4, "", Firma_ID)
|
||||
|
||||
Dim spracheRechnung As String = "EN" 'Defaultsprache
|
||||
If SammelrechungArt <> 6 Then
|
||||
|
||||
Select Case row.Item("RechnungsLandKz")
|
||||
Case "TR", "RO", "DE", "SRB" : spracheRechnung = row.Item("RechnungsLandKz")
|
||||
Case "A", "AT", "D", "CH", "DE" : spracheRechnung = "DE"
|
||||
Case "HR", "SLO", "BIH", "MNE", "MK", "MO" : spracheRechnung = "SRB"
|
||||
End Select
|
||||
Subject = "VERAG Sammel-Rechnung"
|
||||
TextHTML &= getSammelRgTExt(getSelectionLandKz(dt), Firma_ID)
|
||||
|
||||
|
||||
If listOfTextconserven.LIST.Any(Function(c) c.txt_sprache = spracheRechnung) Then
|
||||
|
||||
Else
|
||||
|
||||
|
||||
Dim r As cTextkonserve = listOfTextconserven.LIST.Find(Function(c) c.txt_sprache = spracheRechnung)
|
||||
If r IsNot Nothing Then
|
||||
Subject = r.txt_betreff
|
||||
Subject = Subject.Replace("%BelegNr%", txtRgNr)
|
||||
TextHTML &= r.txt_text
|
||||
If Mailtext <> "" Then TextHTML &= Mailtext
|
||||
TextHTML &= vbNewLine & vbNewLine
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
Dim listOfTextconserven As cTextkonserve_LIST = New cTextkonserve_LIST(4, "", Firma_ID)
|
||||
|
||||
Dim spracheRechnung As String = "EN" 'Defaultsprache
|
||||
|
||||
Select Case row.Item("RechnungsLandKz")
|
||||
Case "TR", "RO", "DE", "SRB" : spracheRechnung = row.Item("RechnungsLandKz")
|
||||
Case "A", "AT", "D", "CH", "DE" : spracheRechnung = "DE"
|
||||
Case "HR", "SLO", "BIH", "MNE", "MK", "MO" : spracheRechnung = "SRB"
|
||||
End Select
|
||||
|
||||
|
||||
If listOfTextconserven.LIST.Any(Function(c) c.txt_sprache = spracheRechnung) Then
|
||||
|
||||
|
||||
Dim r As cTextkonserve = listOfTextconserven.LIST.Find(Function(c) c.txt_sprache = spracheRechnung)
|
||||
If r IsNot Nothing Then
|
||||
Subject = r.txt_betreff
|
||||
Subject = Subject.Replace("%BelegNr%", txtRgNr)
|
||||
TextHTML &= r.txt_text
|
||||
If Mailtext <> "" Then TextHTML &= Mailtext
|
||||
TextHTML &= vbNewLine & vbNewLine
|
||||
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Private Function doRechnung(kdNr As Integer, FirmaID As Integer, Sammelrechnungsart As Integer, Rechnungsdatum As Date, lastAktuelle_RgNr As Integer, DruckDatumZeit As Date, Kopie As Boolean, listPDFs As List(Of String), Optional EinzelAnlagen As Boolean = False, Optional Sammelbericht As Boolean = True, Optional saveInThereFore As Boolean = False, Optional showError As Boolean = True)
|
||||
Private Function do_SR(kdNr As Integer, FirmaID As Integer, Sammelrechnungsart As Integer, Rechnungsdatum As Date, lastAktuelle_RgNr As Integer, DruckDatumZeit As Date, Kopie As Boolean, listPDFs As List(Of String), Optional EinzelAnlagen As Boolean = False, Optional Sammelbericht As Boolean = True, Optional saveInThereFore As Boolean = False, Optional showError As Boolean = True)
|
||||
|
||||
Dim RechnungsNrisSet As Boolean = False
|
||||
RechnungsNrisSet = cFakturierung.doSAMMELRechnungsDruck(19, 6, Rechnungsdatum, Rechnungsdatum, "", EinzelAnlagen, Sammelbericht, kdNr, 4, listPDFs, "", lastAktuelle_RgNr, DruckDatumZeit, , , ,, ,,, True, Kopie,, saveInThereFore, showError)
|
||||
RechnungsNrisSet = cFakturierung.doSAMMELRechnungsDruck(FirmaID, Sammelrechnungsart, Rechnungsdatum, Rechnungsdatum, "", EinzelAnlagen, Sammelbericht, kdNr, 4, listPDFs, "", lastAktuelle_RgNr, DruckDatumZeit, , , ,, ,,, True, Kopie, True, saveInThereFore, showError)
|
||||
|
||||
Return RechnungsNrisSet
|
||||
End Function
|
||||
@@ -315,6 +373,9 @@ Public Class cAutomailversand
|
||||
|
||||
Private Function setLog(SR_DT As DataTable, row As DataRow, FirmaID As Integer, Sammelrechnungsart As Integer, Rechnungsdatum As Date, Optional ATTACHMENTS As List(Of cFakt_MailATTach) = Nothing, Optional Mailsubject As String = "", Optional Mailhtml As String = "", Optional MailTo As String = "", Optional MailtoCC As String = "", Optional MailtoBCC As String = "", Optional Mail As Microsoft.Office.Interop.Outlook.MailItem = Nothing) As Boolean
|
||||
|
||||
|
||||
Dim accountToSend = setAccountToSend(FirmaID)
|
||||
|
||||
Dim mailcreated As Boolean = False
|
||||
Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
|
||||
@@ -329,14 +390,14 @@ Public Class cAutomailversand
|
||||
If Mail IsNot Nothing Then
|
||||
EMails = Mail.To
|
||||
EMails_CC = Mail.CC
|
||||
EMails_BCC = Mail.BCC
|
||||
EMails_BCC = accountToSend 'Mail.BCC
|
||||
EMail_subject = Mail.Subject
|
||||
EMail_HTML = Mail.Body
|
||||
AttCount = Mail.Attachments.Count
|
||||
Else
|
||||
EMails = MailTo
|
||||
EMails_CC = MailtoCC
|
||||
EMails_BCC = MailtoBCC
|
||||
EMails_BCC = accountToSend 'MailtoBCC
|
||||
EMail_subject = Mailsubject
|
||||
EMail_HTML = Mailhtml
|
||||
AttCount = ATTACHMENTS.Count
|
||||
@@ -356,7 +417,7 @@ Public Class cAutomailversand
|
||||
|
||||
|
||||
|
||||
Dim API = VERAG_PROG_ALLGEMEIN.cAPI.INSERT_API(VERAG_PROG_ALLGEMEIN.cAPI_INOUT.OUT, VERAG_PROG_ALLGEMEIN.cAPI_Type.MAIL, VERAG_PROG_ALLGEMEIN.cAPI_ART.SDL_OUT_SAMMELRECHNUNG, "SAMMELRECHNUNG-MDM",,, row.Item("RechnungsKundenNr"), , , FilialenNr, AbfertigungsNr)
|
||||
Dim API = VERAG_PROG_ALLGEMEIN.cAPI.INSERT_API(VERAG_PROG_ALLGEMEIN.cAPI_INOUT.OUT, VERAG_PROG_ALLGEMEIN.cAPI_Type.MAIL, VERAG_PROG_ALLGEMEIN.cAPI_ART.SDL_OUT_SAMMELRECHNUNG, "SAMMELRECHNUNG_" & FirmaID,,, row.Item("RechnungsKundenNr"), , , FilialenNr, AbfertigungsNr)
|
||||
|
||||
API.api_EMail = EMails
|
||||
API.api_EMailCC = EMails_CC
|
||||
@@ -383,7 +444,7 @@ Public Class cAutomailversand
|
||||
Next
|
||||
|
||||
|
||||
If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, EMail_subject, EMail_HTML, "mmdabrechnung@verag.ag", False, False, EMails_CC, EMails_BCC, attachList,, IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "d.breimaier@verag.ag", "mmdabrechnung@verag.ag")) Then
|
||||
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
|
||||
API.UPDTAE_OK()
|
||||
mailcreated = True
|
||||
Else
|
||||
@@ -402,5 +463,130 @@ Public Class cAutomailversand
|
||||
|
||||
Return mailcreated
|
||||
|
||||
End Function
|
||||
|
||||
Function getSammelRgTExt(RechnungsLandKz, FIRMA_ID) As String
|
||||
|
||||
If RechnungsLandKz = "" Then
|
||||
|
||||
getSammelRgTExt = "Sehr geehrte Damen und Herren,<br>"
|
||||
getSammelRgTExt &= "Dear Ladies and Gentlemen,<br>"
|
||||
getSammelRgTExt &= "Sayin Bayanlar ve Baylar,<br>"
|
||||
getSammelRgTExt &= "<br>"
|
||||
getSammelRgTExt &= "im Anhang senden wir Ihnen die o.g. Rechnung.<br>"
|
||||
getSammelRgTExt &= "attached we send you the invoice mentioned above.<br>"
|
||||
getSammelRgTExt &= "ekte baslikta yazan faturayi bulabilirsinz.<br>"
|
||||
getSammelRgTExt &= "<br>"
|
||||
getSammelRgTExt &= "<br><br><br>Mit freundlichen Grüßen / Best regards / Saygilarimizla<br><br>VERAG Spedition AG<br><br>" & cFakturierung.getSignature(RechnungsLandKz, FIRMA_ID)
|
||||
Return "<div style=""font-family:Calibri, Arial"">" & getSammelRgTExt & "</div>"
|
||||
End If
|
||||
|
||||
|
||||
|
||||
getSammelRgTExt = "<div style=""font-family:Calibri, Arial"">" & getSammelRgTExt & "</div>"
|
||||
End Function
|
||||
|
||||
Function getSelectionLandKz(dt As DataTable) As String
|
||||
getSelectionLandKz = ""
|
||||
If dt.Rows.Count > 0 Then
|
||||
|
||||
If dt.Rows.Count > 0 Then
|
||||
|
||||
For Each r As DataRow In dt.Rows
|
||||
|
||||
If Not IsDBNull(r("RechnungsLandKz")) Then
|
||||
|
||||
Dim landKz As String = r("RechnungsLandKz").ToString()
|
||||
|
||||
If getSelectionLandKz = "" Then
|
||||
getSelectionLandKz = landKz
|
||||
ElseIf getSelectionLandKz <> landKz Then
|
||||
Return ""
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
End Function
|
||||
|
||||
Private Function setAccountToSend(FIRMA_ID) As String
|
||||
Dim accountToSend = ""
|
||||
|
||||
Select Case FIRMA_ID
|
||||
|
||||
Case 24
|
||||
accountToSend = SDL.cFakturierung.getDefaultMail("AMBAR",, True)
|
||||
Case 19
|
||||
accountToSend = "mmdabrechnung@verag.ag" 'bewusst falsch geschrieben!!!!
|
||||
Case 7
|
||||
accountToSend = "rechnung@atilla-spedition.com"
|
||||
Case Else
|
||||
accountToSend = "rechnungsversand@verag.ag"
|
||||
End Select
|
||||
|
||||
Return accountToSend
|
||||
End Function
|
||||
|
||||
Function addRgData_ZF_Passau(RechnungsLandKz As String, RECHNUNG As cRechnungsausgang, SPEDBUCH As cSpeditionsbuch) As String ' NUR EINZELRECHNUNG
|
||||
addRgData_ZF_Passau = vbNewLine & vbNewLine
|
||||
Dim ZOLLANMELDUNG As New DAKOSY_Worker.cZollsysteme_Aktenbeschriftung
|
||||
|
||||
Select Case RechnungsLandKz
|
||||
Case "TR"
|
||||
addRgData_ZF_Passau &= "Sender: " & RECHNUNG.AbsenderName_1 & ", " & If(RECHNUNG.AbsenderOrt, "") & vbNewLine
|
||||
If ZOLLANMELDUNG.getDataByBezugsnummer(RECHNUNG.FilialenNr & "/" & RECHNUNG.AbfertigungsNr, SPEDBUCH.Abfertigungsart, "", SPEDBUCH.Grenzstelle, SPEDBUCH.Zollsystem_Land) Then
|
||||
addRgData_ZF_Passau &= "Invoice-No.: " & ZOLLANMELDUNG.Handelsrechnung.Replace(", ", "," & vbNewLine) & vbNewLine
|
||||
addRgData_ZF_Passau &= "Invoice-Total: " & ZOLLANMELDUNG.Rechnungspreis & vbNewLine
|
||||
End If
|
||||
Case "A", "AT", "D", "DE", "CH"
|
||||
addRgData_ZF_Passau &= "Absender: " & RECHNUNG.AbsenderName_1 & ", " & If(RECHNUNG.AbsenderOrt, "") & vbNewLine
|
||||
If ZOLLANMELDUNG.getDataByBezugsnummer(RECHNUNG.FilialenNr & "/" & RECHNUNG.AbfertigungsNr, SPEDBUCH.Abfertigungsart, "", SPEDBUCH.Grenzstelle, SPEDBUCH.Zollsystem_Land) Then
|
||||
addRgData_ZF_Passau &= "Handelsrechnungs-Nr.: " & ZOLLANMELDUNG.Handelsrechnung.Replace(", ", "," & vbNewLine) & vbNewLine
|
||||
addRgData_ZF_Passau &= "Handelsrechnungs-Betrag: " & ZOLLANMELDUNG.Rechnungspreis & vbNewLine
|
||||
End If
|
||||
Case Else
|
||||
addRgData_ZF_Passau &= "Sender: " & RECHNUNG.AbsenderName_1 & ", " & If(RECHNUNG.AbsenderOrt, "") & vbNewLine
|
||||
If ZOLLANMELDUNG.getDataByBezugsnummer(RECHNUNG.FilialenNr & "/" & RECHNUNG.AbfertigungsNr, SPEDBUCH.Abfertigungsart, "", SPEDBUCH.Grenzstelle, SPEDBUCH.Zollsystem_Land) Then
|
||||
addRgData_ZF_Passau &= "Invoice-No.: " & ZOLLANMELDUNG.Handelsrechnung.Replace(", ", "," & vbNewLine) & vbNewLine
|
||||
addRgData_ZF_Passau &= "Invoice-Total: " & ZOLLANMELDUNG.Rechnungspreis & vbNewLine
|
||||
End If
|
||||
End Select
|
||||
|
||||
' addRgData_ZF_Passau = RichTextBox.Text.Replace("Mit freundlichen Grüßen", "")
|
||||
|
||||
|
||||
End Function
|
||||
Function addRgData_Parsan(RechnungsLandKz As String, RECHNUNG As cRechnungsausgang, SPEDBUCH As cSpeditionsbuch) As String 'NUR EINZELRECHNUNG
|
||||
addRgData_Parsan = vbNewLine & vbNewLine
|
||||
Dim ZOLLANMELDUNG As New DAKOSY_Worker.cZollsysteme_Aktenbeschriftung
|
||||
|
||||
Select Case RechnungsLandKz
|
||||
Case "TR"
|
||||
' addRgData_Parsan &= "Sender: " & RECHNUNG.AbsenderName_1 & ", " & If(RECHNUNG.AbsenderOrt, "") & vbNewLine
|
||||
If ZOLLANMELDUNG.getDataByBezugsnummer(RECHNUNG.FilialenNr & "/" & RECHNUNG.AbfertigungsNr, SPEDBUCH.Abfertigungsart, "", SPEDBUCH.Grenzstelle, SPEDBUCH.Zollsystem_Land) Then
|
||||
addRgData_Parsan &= "Invoice-No.: " & ZOLLANMELDUNG.Handelsrechnung.Replace(", ", "," & vbNewLine) & vbNewLine
|
||||
addRgData_Parsan &= "Invoice-Total: " & ZOLLANMELDUNG.Rechnungspreis & vbNewLine
|
||||
End If
|
||||
Case "A", "AT", "D", "DE", "CH"
|
||||
' addRgData_Parsan &= "Absender: " & RECHNUNG.AbsenderName_1 & ", " & If(RECHNUNG.AbsenderOrt, "") & vbNewLine
|
||||
If ZOLLANMELDUNG.getDataByBezugsnummer(RECHNUNG.FilialenNr & "/" & RECHNUNG.AbfertigungsNr, SPEDBUCH.Abfertigungsart, "", SPEDBUCH.Grenzstelle, SPEDBUCH.Zollsystem_Land) Then
|
||||
addRgData_Parsan &= "Handelsrechnungs-Nr.: " & ZOLLANMELDUNG.Handelsrechnung.Replace(", ", "," & vbNewLine) & vbNewLine
|
||||
addRgData_Parsan &= "Handelsrechnungs-Betrag: " & ZOLLANMELDUNG.Rechnungspreis & vbNewLine
|
||||
End If
|
||||
Case Else
|
||||
'addRgData_Parsan &= "Sender: " & RECHNUNG.AbsenderName_1 & ", " & If(RECHNUNG.AbsenderOrt, "") & vbNewLine
|
||||
If ZOLLANMELDUNG.getDataByBezugsnummer(RECHNUNG.FilialenNr & "/" & RECHNUNG.AbfertigungsNr, SPEDBUCH.Abfertigungsart, "", SPEDBUCH.Grenzstelle, SPEDBUCH.Zollsystem_Land) Then
|
||||
addRgData_Parsan &= "Invoice-No.: " & ZOLLANMELDUNG.Handelsrechnung.Replace(", ", "," & vbNewLine) & vbNewLine
|
||||
addRgData_Parsan &= "Invoice-Total: " & ZOLLANMELDUNG.Rechnungspreis & vbNewLine
|
||||
End If
|
||||
End Select
|
||||
|
||||
|
||||
|
||||
End Function
|
||||
End Class
|
||||
|
||||
Reference in New Issue
Block a user