diff --git a/SDL/Formulare/KDFormulare/frmFormulare.vb b/SDL/Formulare/KDFormulare/frmFormulare.vb
index 77dd6326..78d9f222 100644
--- a/SDL/Formulare/KDFormulare/frmFormulare.vb
+++ b/SDL/Formulare/KDFormulare/frmFormulare.vb
@@ -259,7 +259,7 @@ Public Class frmFormulare
If VERAG_PROG_ALLGEMEIN.cAllgemein.PROGID = "7" Then 'SDL
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vollmacht BHI", FormularManagerArten.MDM_Vollmacht_BHI))
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vollmacht EU", FormularManagerArten.MDM_Vollmacht_EU))
- 'MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vollmacht NICHT EU", FormularManagerArten.MDM_Vollmacht_NICHT_EU))
+ MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vollmacht NICHT EU", FormularManagerArten.MDM_Vollmacht_NICHT_EU))
Else
@@ -1733,6 +1733,7 @@ Public Class FormularManagerNEU
Case "c_name6" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Bez
Case "c_name7" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Bez
Case "c_address" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Straße & " " & FIRMA.Firma_Ort
+ Case "c_street" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Straße
Case "c_zipcode" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Ort
Case "c_vatno" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_UID
Case "c_phone" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Telefon & " " & FIRMA.Firma_Telefax
diff --git a/SDL/buchhaltung/frmBU_Mahnlauf.vb b/SDL/buchhaltung/frmBU_Mahnlauf.vb
index d378642a..ad2d0982 100644
--- a/SDL/buchhaltung/frmBU_Mahnlauf.vb
+++ b/SDL/buchhaltung/frmBU_Mahnlauf.vb
@@ -230,7 +230,7 @@ Public Class frmBU_Mahnlauf
and (si_mahnstufe >0 AND si_mahnstufe is not NULL) and d_mahnung>='" & Mahn_Datum.ToShortDateString & "' and d_netto<=getdate()"
Return SQL.getValueTxtBySql(sqlStr, "FIBU",,, 0)
End Function
- Public Shared Function doMahnung(Mahndruckart As Integer, KdNr As Integer, Firma_ID As Integer, Optional ByRef Path As String = "", Optional ByRef PrinterName As String = "", Optional ByRef forceMahnstufe As String = "", Optional showErr As Boolean = True, Optional hideMahnstopp As Boolean = True) As Boolean
+ Public Shared Function doMahnung(Mahndruckart As Integer, KdNr As Integer, Firma_ID As Integer, art As String, Optional ByRef Path As String = "", Optional ByRef PrinterName As String = "", Optional ByRef forceMahnstufe As String = "", Optional showErr As Boolean = True, Optional hideMahnstopp As Boolean = True) As Boolean
Dim sqlStr = "SELECT c_urbelegid OP_Typ,d_rechnung Rechnungsdatum,d_netto Faelligkeit,dec_fremdbrutto Rechnungsbetrag,c_bemerkung Bemerkung,dec_fremdzahlung Zahlung,dec_fremdbrutto+dec_fremdzahlung Ausstand,c_waehrung Währung,si_mahnstufe Mahnstufe
FROM op_debitor OP
WHERE (OP.i_firm_refid = '" & Firma_ID & "') AND (dt_geloescht IS NULL)
@@ -248,14 +248,20 @@ Public Class frmBU_Mahnlauf
Return False
End If
- Return doMahnDruck(dtDataSource, Mahndruckart, KdNr, Firma_ID, Path, PrinterName, forceMahnstufe)
+ Return doMahnDruck(dtDataSource, Mahndruckart, KdNr, Firma_ID, art, Path, PrinterName, forceMahnstufe)
End Function
- Public Shared Function doMahnDruck(dtDataSource As DataTable, Mahndruckart As Integer, KdNr As Integer, Firma_ID As Integer, Optional ByRef Path As String = "", Optional ByRef PrinterName As String = "", Optional ByRef forceMahnstufe As String = "") As Boolean
+ Public Shared Function doMahnDruck(dtDataSource As DataTable, Mahndruckart As Integer, KdNr As Integer, Firma_ID As Integer, art As String, Optional ByRef Path As String = "", Optional ByRef PrinterName As String = "", Optional ByRef forceMahnstufe As String = "") As Boolean
' If RECHNUNG Is Nothing Then MsgBox("Fehler beim Laden der Rechnungsdaten!") : Return False
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
- Dim listOfTextconserven = New cTextkonserve_LIST(2, "", Firma_ID)
+ Dim listOfTextconserven As cTextkonserve_LIST
+ Select Case art
+ Case "ZE" : listOfTextconserven = New cTextkonserve_LIST(2, "", Firma_ID)
+ Case "OP" : listOfTextconserven = New cTextkonserve_LIST(3, "", Firma_ID)
+ End Select
+
+
Try
Dim KD As New VERAG_PROG_ALLGEMEIN.cKunde(KdNr)
@@ -414,12 +420,15 @@ Public Class frmBU_Mahnlauf
Dim MahnTEXT_NACH = ""
Dim MAHNTEXT As String = "Zahlungserinnerung"
- getMahnstufetext(AD.LandKz, MAHNSTUFE, MahnTEXT_VOR, MahnTEXT_NACH, MAHNTEXT)
+ If Not Firma_ID = 19 Then 'über Übersetzung geregelt, alle anderen über getMahnstufe (sollte in Zukunft noch abgeändert werden!)
+ getMahnstufetext(AD.LandKz, MAHNSTUFE, MahnTEXT_VOR, MahnTEXT_NACH, MAHNTEXT)
+ rpt.lblUeberschriftRG_GS.Text = MAHNTEXT
+ rpt.txtMahnungstextVOR.Text = MahnTEXT_VOR
+ rpt.txtVermerk.Text = MahnTEXT_NACH
+ End If
+
- rpt.lblUeberschriftRG_GS.Text = MAHNTEXT
- rpt.txtMahnungstextVOR.Text = MahnTEXT_VOR
- rpt.txtVermerk.Text = MahnTEXT_NACH
AddHandler rpt.Detail.Format, Sub()
@@ -476,6 +485,7 @@ Public Class frmBU_Mahnlauf
End Sub
+
'Immer Exportieren, da in Therefore speichern
Dim tmpPath = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(RG_Bezeichnung, ".pdf", , False)
Dim p As New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport
@@ -484,6 +494,11 @@ Public Class frmBU_Mahnlauf
p.Export(rpt.Document, tmpPath)
Path = tmpPath
+ 'wegen Übersetzung in Formular!
+ MAHNTEXT = rpt.lblUeberschriftRG_GS.Text
+ MahnTEXT_VOR = rpt.txtMahnungstextVOR.Text
+ MahnTEXT_NACH = rpt.txtVermerk.Text
+
'THEREFORE IMPORT:
'-------------------------------------------------------------------------------
'Try
@@ -543,7 +558,7 @@ Public Class frmBU_Mahnlauf
'---------------
- If Firma_ID = 19 Then 'dynMailvorlage aktuell nur Verag360!
+ If Firma_ID = 19 Then 'dynMailvorlage aktuell nur Verag360, in zukunft für alle!!
Dim emailMahnungen = IIf(FIRMA.Firma_E_Mail_Mahnungen <> "", FIRMA.Firma_E_Mail_Mahnungen, "buchhaltung@verag.ag")
@@ -561,17 +576,12 @@ Public Class frmBU_Mahnlauf
Dim r As cTextkonserve = listOfTextconserven.LIST.Find(Function(c) c.txt_sprache = spracheMahnung)
If r IsNot Nothing Then
-
- Dim outl As New Outlook.Application
- Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
- Mail = outl.CreateItem(0)
-
- Mail.Subject = r.txt_betreff
+ Mail_Subject = r.txt_betreff
Dim TextHTML = ""
TextHTML &= r.txt_text
- Mail.Subject = Mail.Subject.Replace("%KdNr%", KdNr)
- Mail.Subject = Mail.Subject.Replace("%Mahntext%", MAHNTEXT)
+ Mail_Subject = Mail_Subject.Replace("%KdNr%", KdNr)
+ Mail_Subject = Mail_Subject.Replace("%Mahntext%", MAHNTEXT)
TextHTML = TextHTML.Replace("%email_mahnung%", emailMahnungen)
@@ -581,15 +591,6 @@ Public Class frmBU_Mahnlauf
Mail_BCC = VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdressBCC(AD.AdressenNr, "Mahnung an")
Mail_HTMLBody &= "
" & cFakturierung.getSignature(AD.LandKz, FIRMA.Firma_ID)
- Mail.HTMLBody = Mail_HTMLBody
-
- Mail.To = Mail_To
- Mail.CC = Mail_CC
- Mail.BCC = Mail_BCC
- Mail.Attachments.Add(tmpPath, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , "Mahnung.pdf")
-
- Mail.Display() 'wenn alles ok, dann Send!
-
End If
End If
@@ -597,7 +598,7 @@ Public Class frmBU_Mahnlauf
'---------------
Else
- Select Case AD.LandKz
+ Select Case AD.LandKz
Case "TR"
Mail_Subject = "PAYMENT REMINDER" & IIf(KdNr > 0, " - Cust.: " & KdNr, "")
Mail_HTMLBody = "Sayin bayanlar ve baylar,
ekli dosyada sirketimize olan borcunuza dair acik kalem listemizi iletiyoruz.
Listeyi kontrol edip, eksik fatura varsa bildirmenizi rica ederiz."
@@ -631,7 +632,7 @@ Public Class frmBU_Mahnlauf
Case Else
Mail_Subject = "PAYMENT REMINDER" & IIf(KdNr > 0, " - Cust.: " & KdNr, "")
- Mail_HTMLBody = "Dear Sear or Madam,
attached we send you the invoice reminder."
+ Mail_HTMLBody = "Dear Sir or Madam,
attached we send you the invoice reminder."
Mail_HTMLBody &= "
"
Mail_HTMLBody &= "If you are not responsible for this matter, please send us an e-mail address to buchhaltung@verag.ag,
to which future reminders should be sent.
@@ -652,6 +653,15 @@ Public Class frmBU_Mahnlauf
If Mail_To = "" Then Mahndruckart = 2 ' Wenn keine Mahn-Mail hinterlegt, sollte die Mail geöffenet werden
+ Dim pdfBezeichnung As String = ""
+
+ Select Case art
+ Case "ZE" : pdfBezeichnung = "Mahnung.pdf"
+ Case "OP" : pdfBezeichnung = "OP-Liste.pdf"
+ Case Else
+ pdfBezeichnung = "Mahnung.pdf"
+ End Select
+
Select Case Mahndruckart
Case 5 'MAIL_SEND
Dim list As New List(Of String)
@@ -661,9 +671,9 @@ Public Class frmBU_Mahnlauf
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(Mail_To, Mail_Subject, Mail_HTMLBody, IIf(FIRMA.Firma_E_Mail_Mahnungen <> "", FIRMA.Firma_E_Mail_Mahnungen, "buchhaltung@verag.ag"), False, False, Mail_CC, Mail_BCC, list)
Case Else
- If Firma_ID <> 19 Then
- Dim outl As New Outlook.Application
+
+ Dim outl As New Outlook.Application
Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
Mail = outl.CreateItem(0)
Mail.Subject = Mail_Subject
@@ -672,15 +682,15 @@ Public Class frmBU_Mahnlauf
Mail.To = Mail_To
Mail.CC = Mail_CC
Mail.BCC = Mail_BCC
- Mail.Attachments.Add(tmpPath, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , "Mahnung.pdf")
+ Mail.Attachments.Add(tmpPath, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , pdfBezeichnung)
- Try
- Mail.SentOnBehalfOfName = SDL.cFakturierung.getDefaultMail("AMBAR") ',"buchhaltung@verag.ag"
- Catch ex2 As Exception
- MsgBox(ex2.Message)
+ Try
+ 'Mail.SentOnBehalfOfName = SDL.cFakturierung.getDefaultMail("AMBAR") ',"buchhaltung@verag.ag"
+ Catch ex2 As Exception
+ MsgBox(ex2.Message)
End Try
Mail.Display()
- End If
+
End Select
@@ -782,203 +792,203 @@ Public Class frmBU_Mahnlauf
End Sub
Private Shared Sub getMahnstufetext(Sprache, MAHNSTUFE, ByRef MahnTEXT_VOR, ByRef MahnTEXT_NACH, ByRef MAHNTEXT)
- 'Select Case Sprache
- ' Case "TR"
- ' Select Case MAHNSTUFE
- ' Case -2
- ' MahnTEXT_VOR = "Aşağıdaki faturalar henüz ödenmemiştir:"
- ' MahnTEXT_NACH = ""
- ' MAHNTEXT = "List - öğeleri aç"
- ' Case -1
- ' MahnTEXT_VOR = "Aşağıdaki faturalar henüz tahsil edilmemiştir:"
- ' MahnTEXT_NACH = "Yukarıdaki tutarlar, SEPA otomatik ödeme talimatı yoluyla belirttiğiniz Benk bağlantınızdan tahsil edilecektir."
- ' MAHNTEXT = "List - öğeleri aç"
- ' Case 0
- ' MahnTEXT_VOR = "WeLütfen asagida belirilen faturalarin ödemesini yapiniz:"
- ' MahnTEXT_NACH = ""
- ' MAHNTEXT = "Ödeme hatırlatıcısı"
- ' Case 1
- ' MahnTEXT_VOR = "Lütfen asagida belirilen faturalarin ödemesini yapiniz:"
- ' MahnTEXT_NACH = "Bu gecikmenin organizasyon acisindan olusan bir hatadan kaynaklandigini düsünüyoruz. Ödemeniz tarafimiza yapildiysa ilgili ihtari gecersiz sayabilirsiniz."
- ' MAHNTEXT = "1. UYARI"
- ' Case 2
- ' MahnTEXT_VOR = "Bir önceki ihtarimiza ragmen asagida belirtilen faturalarin ödemesi gerceklesmemistir:"
- ' MahnTEXT_NACH = "WirBu gecikmenin organizasyon acisindan olusan bir hatadan kaynaklandigini düsünüyoruz, fakat bütün sorumluluklarinizi hatirlatarak, daha fazla masrafin ve olumsuzluklarin olusmamasi adina yukarida belirtilen acik tutarin acil olarak ödenmesi gerektigini bildirmek durumundayiz."
- ' MAHNTEXT = MAHNSTUFE & ". UYARI"
- ' Case 3
- ' MahnTEXT_VOR = "Iki kez iletilen hatirlatma ve ihtara ragmen asagida belirtilen faturalarin ödemesi gerceklesmemistir. Bu vesile ile sizleri son kez acik bakiyenin ödenmesi icin uyariyoruz. Lütfen yapilan ödemeye dair hesap dekontunu tarafimiza iletiniz."
- ' MahnTEXT_NACH = "Belirtilen sürenin yine olumsuz olarak gelismesi durumunda gerekli hukuki süreci, herhangi bir ön bildirim yapmaksizin baslatmamiz gerektigini bildirmek durumundayiz."
- ' MAHNTEXT = MAHNSTUFE & ". UYARI"
- ' Case >= 4
- ' MahnTEXT_VOR = "Defalarca iletilen hatirlatma ve ihtara ragmen asagida belirtilen faturalarin ödemesi gerceklesmemistir. Bu vesile ile sizleri son kez acik bakiyenin ödenmesi icin uyariyoruz. Lütfen yapilan ödemeye dair hesap dekontunu tarafimiza iletiniz."
- ' MahnTEXT_NACH = "Belirtilen sürenin yine olumsuz olarak gelismesi durumunda gerekli hukuki süreci, herhangi bir ön bildirim yapmaksizin baslatmamiz gerektigini bildirmek durumundayiz."
- ' MAHNTEXT = MAHNSTUFE & ". UYARI"
- ' End Select
- ' Case "DE", "D"
- Select Case MAHNSTUFE
- Case -2
- MahnTEXT_VOR = "Nachfolgende Rechnungen wurden noch nicht beglichen:"
- MahnTEXT_NACH = ""
- MAHNTEXT = "Liste - Offene Posten"
- Case -1
- MahnTEXT_VOR = "Nachfolgende Rechnungen wurden noch nicht eingezogen:"
- MahnTEXT_NACH = "Die oben genannten Beträge werden per SEPA-Lastschriftmandat von Ihrem angegebenen Benkverbindung eingezogen."
- MAHNTEXT = "Liste - Offene Posten"
- Case 0
- MahnTEXT_VOR = "Wir ersuchen um Ausgleich der nachfolgenden Rechnungen:"
- MahnTEXT_NACH = ""
- MAHNTEXT = "Zahlungserinnerung"
- Case 1
- MahnTEXT_VOR = "Wir ersuchen um Ausgleich der nachfolgenden Rechnungen:"
- MahnTEXT_NACH = "Wir gehen davon aus, dass dies auf einem organisatorischen Versehen beruht. " & vbNewLine & "Sollte Ihre Zahlung bereits an uns abgegangen sein, bitten wir Sie, die Mahnung als gegenstandslos zu betrachten."
- MAHNTEXT = "1. Mahnung"
- Case 2
- MahnTEXT_VOR = "Trotz unserer vorhergehenden Mahnung wurden die aufgeführten Rechnungen immer noch nicht ausgeglichen:"
- MahnTEXT_NACH = "Wir gehen davon aus, dass dies auf einem organisatorischen Versehen beruht, müssen Sie aber nunmehr mit aller Bestimmtheit auffordern, den laut oben stehender Aufstellung fälligen Betrag zur Vermeidung weiterer Kosten und Unannehmlichkeiten unverzüglich an uns zu überweisen."
- MAHNTEXT = MAHNSTUFE & ". MAHNUNG"
- Case 3
- MahnTEXT_VOR = "Trotz zweifacher Mahnung sind die unten aufgeführten Posten immer noch nicht beglichen. Wir fordern Sie hiermit letztmalig auf, den offenen Betrag unverzüglich zur Einzahlung zu bringen. Bitte senden Sie uns eine Kopie des Überweisungsbeleges."
- MahnTEXT_NACH = "Nach erfolglosem Ablauf dieser neuerlichen Frist wären wir dann gezwungen, entweder ein Inkassounternehmen mit der Einziehung der Forderung zu beauftragen oder aber ohne weitere vorherige Ankündigung gerichtliche Schritte einzuleiten."
- MAHNTEXT = MAHNSTUFE & ". MAHNUNG"
- Case >= 4
- MahnTEXT_VOR = "Trotz mehrfacher Mahnung sind die unten aufgeführten Posten immer noch nicht beglichen. Wir fordern Sie hiermit letztmalig auf, den offenen Betrag unverzüglich zur Einzahlung zu bringen. Bitte senden Sie uns eine Kopie des Überweisungsbeleges."
- MahnTEXT_NACH = "Nach erfolglosem Ablauf dieser neuerlichen Frist wären wir dann gezwungen, entweder ein Inkassounternehmen mit der Einziehung der Forderung zu beauftragen oder aber ohne weitere vorherige Ankündigung gerichtliche Schritte einzuleiten."
- MAHNTEXT = MAHNSTUFE & ". MAHNUNG"
+ Select Case Sprache
+ Case "TR"
+ Select Case MAHNSTUFE
+ Case -2
+ MahnTEXT_VOR = "Aşağıdaki faturalar henüz ödenmemiştir:"
+ MahnTEXT_NACH = ""
+ MAHNTEXT = "List - öğeleri aç"
+ Case -1
+ MahnTEXT_VOR = "Aşağıdaki faturalar henüz tahsil edilmemiştir:"
+ MahnTEXT_NACH = "Yukarıdaki tutarlar, SEPA otomatik ödeme talimatı yoluyla belirttiğiniz Benk bağlantınızdan tahsil edilecektir."
+ MAHNTEXT = "List - öğeleri aç"
+ Case 0
+ MahnTEXT_VOR = "WeLütfen asagida belirilen faturalarin ödemesini yapiniz:"
+ MahnTEXT_NACH = ""
+ MAHNTEXT = "Ödeme hatırlatıcısı"
+ Case 1
+ MahnTEXT_VOR = "Lütfen asagida belirilen faturalarin ödemesini yapiniz:"
+ MahnTEXT_NACH = "Bu gecikmenin organizasyon acisindan olusan bir hatadan kaynaklandigini düsünüyoruz. Ödemeniz tarafimiza yapildiysa ilgili ihtari gecersiz sayabilirsiniz."
+ MAHNTEXT = "1. UYARI"
+ Case 2
+ MahnTEXT_VOR = "Bir önceki ihtarimiza ragmen asagida belirtilen faturalarin ödemesi gerceklesmemistir:"
+ MahnTEXT_NACH = "WirBu gecikmenin organizasyon acisindan olusan bir hatadan kaynaklandigini düsünüyoruz, fakat bütün sorumluluklarinizi hatirlatarak, daha fazla masrafin ve olumsuzluklarin olusmamasi adina yukarida belirtilen acik tutarin acil olarak ödenmesi gerektigini bildirmek durumundayiz."
+ MAHNTEXT = MAHNSTUFE & ". UYARI"
+ Case 3
+ MahnTEXT_VOR = "Iki kez iletilen hatirlatma ve ihtara ragmen asagida belirtilen faturalarin ödemesi gerceklesmemistir. Bu vesile ile sizleri son kez acik bakiyenin ödenmesi icin uyariyoruz. Lütfen yapilan ödemeye dair hesap dekontunu tarafimiza iletiniz."
+ MahnTEXT_NACH = "Belirtilen sürenin yine olumsuz olarak gelismesi durumunda gerekli hukuki süreci, herhangi bir ön bildirim yapmaksizin baslatmamiz gerektigini bildirmek durumundayiz."
+ MAHNTEXT = MAHNSTUFE & ". UYARI"
+ Case >= 4
+ MahnTEXT_VOR = "Defalarca iletilen hatirlatma ve ihtara ragmen asagida belirtilen faturalarin ödemesi gerceklesmemistir. Bu vesile ile sizleri son kez acik bakiyenin ödenmesi icin uyariyoruz. Lütfen yapilan ödemeye dair hesap dekontunu tarafimiza iletiniz."
+ MahnTEXT_NACH = "Belirtilen sürenin yine olumsuz olarak gelismesi durumunda gerekli hukuki süreci, herhangi bir ön bildirim yapmaksizin baslatmamiz gerektigini bildirmek durumundayiz."
+ MAHNTEXT = MAHNSTUFE & ". UYARI"
+ End Select
+ Case "DE", "D"
+ Select Case MAHNSTUFE
+ Case -2
+ MahnTEXT_VOR = "Nachfolgende Rechnungen wurden noch nicht beglichen:"
+ MahnTEXT_NACH = ""
+ MAHNTEXT = "Liste - Offene Posten"
+ Case -1
+ MahnTEXT_VOR = "Nachfolgende Rechnungen wurden noch nicht eingezogen:"
+ MahnTEXT_NACH = "Die oben genannten Beträge werden per SEPA-Lastschriftmandat von Ihrem angegebenen Benkverbindung eingezogen."
+ MAHNTEXT = "Liste - Offene Posten"
+ Case 0
+ MahnTEXT_VOR = "Wir ersuchen um Ausgleich der nachfolgenden Rechnungen:"
+ MahnTEXT_NACH = ""
+ MAHNTEXT = "Zahlungserinnerung"
+ Case 1
+ MahnTEXT_VOR = "Wir ersuchen um Ausgleich der nachfolgenden Rechnungen:"
+ MahnTEXT_NACH = "Wir gehen davon aus, dass dies auf einem organisatorischen Versehen beruht. " & vbNewLine & "Sollte Ihre Zahlung bereits an uns abgegangen sein, bitten wir Sie, die Mahnung als gegenstandslos zu betrachten."
+ MAHNTEXT = "1. Mahnung"
+ Case 2
+ MahnTEXT_VOR = "Trotz unserer vorhergehenden Mahnung wurden die aufgeführten Rechnungen immer noch nicht ausgeglichen:"
+ MahnTEXT_NACH = "Wir gehen davon aus, dass dies auf einem organisatorischen Versehen beruht, müssen Sie aber nunmehr mit aller Bestimmtheit auffordern, den laut oben stehender Aufstellung fälligen Betrag zur Vermeidung weiterer Kosten und Unannehmlichkeiten unverzüglich an uns zu überweisen."
+ MAHNTEXT = MAHNSTUFE & ". MAHNUNG"
+ Case 3
+ MahnTEXT_VOR = "Trotz zweifacher Mahnung sind die unten aufgeführten Posten immer noch nicht beglichen. Wir fordern Sie hiermit letztmalig auf, den offenen Betrag unverzüglich zur Einzahlung zu bringen. Bitte senden Sie uns eine Kopie des Überweisungsbeleges."
+ MahnTEXT_NACH = "Nach erfolglosem Ablauf dieser neuerlichen Frist wären wir dann gezwungen, entweder ein Inkassounternehmen mit der Einziehung der Forderung zu beauftragen oder aber ohne weitere vorherige Ankündigung gerichtliche Schritte einzuleiten."
+ MAHNTEXT = MAHNSTUFE & ". MAHNUNG"
+ Case >= 4
+ MahnTEXT_VOR = "Trotz mehrfacher Mahnung sind die unten aufgeführten Posten immer noch nicht beglichen. Wir fordern Sie hiermit letztmalig auf, den offenen Betrag unverzüglich zur Einzahlung zu bringen. Bitte senden Sie uns eine Kopie des Überweisungsbeleges."
+ MahnTEXT_NACH = "Nach erfolglosem Ablauf dieser neuerlichen Frist wären wir dann gezwungen, entweder ein Inkassounternehmen mit der Einziehung der Forderung zu beauftragen oder aber ohne weitere vorherige Ankündigung gerichtliche Schritte einzuleiten."
+ MAHNTEXT = MAHNSTUFE & ". MAHNUNG"
+ End Select
+
+
+ Case "RO"
+ Select Case MAHNSTUFE
+ Case -2
+ MahnTEXT_VOR = "Facturile ulterioare nu au fost încă plătite:"
+ MahnTEXT_NACH = ""
+ MAHNTEXT = "Listă - Articole deschise"
+ Case -1
+ MahnTEXT_VOR = "Facturile ulterioare nu au fost încă încasate:"
+ MahnTEXT_NACH = "Sumele menționate mai sus vor fi încasate din contul dumneavoastră bancar specificat prin mandat de debitare directă SEPA."
+ MAHNTEXT = "Listă - Articole deschise"
+ Case 0
+ MahnTEXT_VOR = "Solicităm ca următoarele facturi să fie decontate:"
+ MahnTEXT_NACH = ""
+ MAHNTEXT = "Reamintire de plată"
+ Case 1
+ MahnTEXT_VOR = "Solicităm ca următoarele facturi să fie decontate:"
+ MahnTEXT_NACH = "Considerand ca neefectuarea platii se bazeaza pe o mica problema organizatorica, va rugam sa efectuati platile restante in cel mai scurt timp. In cazul in care platile au fost efectuate, va rugam sa considerati acest inscris nefondat."
+ MAHNTEXT = "1. Memento"
+ Case 2
+ MahnTEXT_VOR = "În ciuda atenționărilor noastre anterioare, facturile enumerate nu au fost încă achitate:"
+ MahnTEXT_NACH = "Presupunem că acest lucru se datorează unei inadvertențe organizaționale. " & vbNewLine & ”Dacă plata a fost deja trimisă către noi, vă rugăm să considerați că acest memento este irelevant."
+ MAHNTEXT = MAHNSTUFE & ". MENȚIUNE"
+ Case 3
+ MahnTEXT_VOR = "În ciuda a două atenționări, elementele enumerate mai jos nu au fost încă plătite. Prin prezenta, vă solicităm pentru ultima dată să achitați imediat sumele restante. Vă rugăm să ne trimiteți o copie a chitanței de plată."
+ MahnTEXT_NACH = "În cazul în care acest nou termen expiră fără succes, vom fi nevoiți fie să însărcinăm o agenție de colectare a creanțelor să recupereze datoria, fie să acționăm în justiție fără altă notificare."
+ MAHNTEXT = MAHNSTUFE & ". MENȚIUNE"
+ Case >= 4
+ MahnTEXT_VOR = "În ciuda mai multor atenționări, elementele enumerate mai jos nu au fost încă plătite. Prin prezenta, vă solicităm pentru ultima dată să achitați imediat sumele restante. Vă rugăm să ne trimiteți o copie a chitanței de remitere."
+ MahnTEXT_NACH = "În cazul în care acest nou termen expiră fără succes, vom fi nevoiți fie să instruim o agenție de colectare a creanțelor pentru a colecta datoria, fie să acționăm în justiție fără altă notificare.."
+ MAHNTEXT = MAHNSTUFE & ". MENȚIUNE"
+ End Select
+
+ Case "BG"
+ Select Case MAHNSTUFE
+ Case -2
+ MahnTEXT_VOR = "Следните фактури все още не са платени:"
+ MahnTEXT_NACH = ""
+ MAHNTEXT = "Списък - Отворени елементи"
+ Case -1
+ MahnTEXT_VOR = "Следните фактури все още не са събрани:"
+ MahnTEXT_NACH = "Горепосочените суми ще бъдат събрани от посочената от вас банкова сметка чрез SEPA мандат за директен дебит."
+ MAHNTEXT = "Списък - Отворени елементи"
+ Case 0
+ MahnTEXT_VOR = "Искаме уреждане на следните фактури:"
+ MahnTEXT_NACH = ""
+ MAHNTEXT = "Напомняне за плащане"
+ Case 1
+ MahnTEXT_VOR = "Искаме уреждане на следните фактури."
+ MahnTEXT_NACH = "Предполагаме, че това се дължи на организационен пропуск. " & vbNewLine & “Ако плащането ви вече е изпратено до нас, моля, считайте напомнянето за неуместно."
+ MAHNTEXT = "Първо напомняне"
+ Case 2
+ MahnTEXT_VOR = "Въпреки предишното ни напомняне, изброените фактури все още не са уредени.:"
+ MahnTEXT_NACH = "In cazul de fata trebuie sa insistam la efectuarea platilor facturilor sus mentionate, pentru a evita alte costuri si neplaceri. Va rugam sa efectuali platile restante pana le data de" &
+ MAHNTEXT = MAHNSTUFE & ". напомняне"
+ Case 3
+ MahnTEXT_VOR = "Въпреки двете напомняния изброените по-долу елементи все още не са платени. С настоящото ви молим за последен път да платите незабавно дължимата сума. Моля, изпратете ни копие от платежното нареждане."
+ MahnTEXT_NACH = "Ако този нов срок изтече без успех, ще бъдем принудени или да възложим на агенция за събиране на вземания да събере дълга, или да предприемем правни действия без допълнително уведомление."
+ MAHNTEXT = MAHNSTUFE & ". напомняне"
+ Case >= 4
+ MahnTEXT_VOR = "Въпреки няколкото напомняния, изброените по-долу елементи все още не са платени. С настоящото ви молим за последен път да платите незабавно дължимата сума. Моля, изпратете ни копие от платежното нареждане."
+ MahnTEXT_NACH = "Ако този нов срок изтече без успех, ще бъдем принудени или да възложим на агенция за събиране на вземания да събере дълга, или да предприемем правни действия без допълнително уведомление."
+ MAHNTEXT = MAHNSTUFE & ". напомняне"
+ End Select
+
+ Case "HR", "SRB", "BIH", "MKD"
+ Select Case MAHNSTUFE
+ Case -2
+ MahnTEXT_VOR = "Naknadni računi još nisu plaćeni:"
+ MahnTEXT_NACH = ""
+ MAHNTEXT = "Popis - Otvorene stavken"
+ Case -1
+ MahnTEXT_VOR = "Naknadni računi još nisu naplaćeni:"
+ MahnTEXT_NACH = "Gore navedeni iznosi bit će prikupljeni putem SEPA naloga za izravno terećenje s vašeg navedenog bankovnog računa."
+ MAHNTEXT = "Popis - Otvorene stavken"
+ Case 0
+ MahnTEXT_VOR = "Molimo da se podmire sljedeći računi:"
+ MahnTEXT_NACH = ""
+ MAHNTEXT = "Podsjetnik za plaćanje"
+ Case 1
+ MahnTEXT_VOR = "Molimo da se podmire sljedeći računi:"
+ MahnTEXT_NACH = "Vjerujemo da je to zbog organizacijskog propusta. " & vbNewLine & "Ako nam je vaša uplata već poslana, molimo vas da podsjetnik smatrate nevažnim."
+ MAHNTEXT = "1. upozorenje"
+ Case 2
+ MahnTEXT_VOR = "Unatoč našem prethodnom podsjećanju, navedeni računi još uvijek nisu plaćeni:"
+ MahnTEXT_NACH = "Pretpostavljamo da je to zbog organizacijskog propusta, ali sada vas moramo odlučno zamoliti da nam odmah prenesete iznos koji dugujete prema gornjem popisu kako bismo izbjegli daljnje troškove i neugodnosti."
+ MAHNTEXT = MAHNSTUFE & ". UPOZORENJE"
+ Case 3
+ MahnTEXT_VOR = "Unatoč dvama opomenama, stavke navedene u nastavku još uvijek nisu plaćene. Ovim vas posljednji put molimo da odmah položite preostali iznos. Pošaljite nam kopiju potvrde o prijenosu."
+ MahnTEXT_NACH = "Ako ovaj novi rok istekne bez uspjeha, tada bismo bili prisiljeni angažirati tvrtku za naplatu duga da naplati dug ili poduzeti pravne radnje bez daljnje prethodne obavijesti."
+ MAHNTEXT = MAHNSTUFE & ". UPOZORENJE"
+ Case >= 4
+ MahnTEXT_VOR = "Unatoč opetovanim podsjetnicima, stavke navedene u nastavku još uvijek nisu plaćene. Ovim vas posljednji put molimo da odmah položite preostali iznos. Pošaljite nam kopiju potvrde o prijenosu."
+ MahnTEXT_NACH = "Ako ovaj novi rok istekne bez uspjeha, tada bismo bili prisiljeni angažirati tvrtku za naplatu duga da naplati dug ili poduzeti pravne radnje bez daljnje prethodne obavijesti."
+ MAHNTEXT = MAHNSTUFE & ". UPOZORENJE"
+ End Select
+
+
+ Case Else
+
+ Select Case MAHNSTUFE
+ Case -2
+ MahnTEXT_VOR = "Subsequent invoices have not yet been paid:"
+ MahnTEXT_NACH = ""
+ MAHNTEXT = "List - Open accounts"
+ Case -1
+ MahnTEXT_VOR = "The following invoices have not yet been collected:"
+ MahnTEXT_NACH = "The above amounts will be collected by SEPA direct debit mandate from your specified bank account."
+ MAHNTEXT = "List - Open accounts"
+ Case 0
+ MahnTEXT_VOR = "We request that the following invoices be settled:"
+ MahnTEXT_NACH = ""
+ MAHNTEXT = "REMINDER"
+ Case 1
+ MahnTEXT_VOR = "We request that the following invoices be settled:"
+ MahnTEXT_NACH = "We assume that this is due to an organisational oversight. " & vbNewLine & "If your payment has already been sent to us, please consider the reminder as irrelevant."
+ MAHNTEXT = "1. REMINDER"
+ Case 2
+ MahnTEXT_VOR = "Despite our previous reminder, the listed invoices have still not been settled:"
+ MahnTEXT_NACH = "We assume that this is due to an organisational oversight, but we must now request you in all certainty to transfer the amount due according to the above list to us immediately in order to avoid further costs and inconvenience."
+ MAHNTEXT = MAHNSTUFE & ". REMINDER"
+ Case 3
+ MahnTEXT_VOR = "Despite two reminders, the items listed below have still not been paid. We hereby request you for the last time to pay the outstanding amount immediately. Please send us a copy of the remittance slip."
+ MahnTEXT_NACH = "After the unsuccessful expiry of this new deadline, we would then be forced either to instruct a debt collection agency to collect the debt or to take legal action without further prior notice."
+ MAHNTEXT = MAHNSTUFE & ". REMINDER"
+ Case >= 4
+ MahnTEXT_VOR = "Despite several reminders, the items listed below have still not been paid. We hereby request you for the last time to pay the outstanding amount immediately. Please send us a copy of the transfer receipt."
+ MahnTEXT_NACH = "After the unsuccessful expiry of this new deadline, we would then be forced either to instruct a debt collection agency to collect the debt or to take legal action without further prior notice."
+ MAHNTEXT = MAHNSTUFE & ". REMINDER"
+ End Select
+
+
End Select
-
-
- ' Case "RO"
- ' Select Case MAHNSTUFE
- ' Case -2
- ' MahnTEXT_VOR = "Facturile ulterioare nu au fost încă plătite:"
- ' MahnTEXT_NACH = ""
- ' MAHNTEXT = "Listă - Articole deschise"
- ' Case -1
- ' MahnTEXT_VOR = "Facturile ulterioare nu au fost încă încasate:"
- ' MahnTEXT_NACH = "Sumele menționate mai sus vor fi încasate din contul dumneavoastră bancar specificat prin mandat de debitare directă SEPA."
- ' MAHNTEXT = "Listă - Articole deschise"
- ' Case 0
- ' MahnTEXT_VOR = "Solicităm ca următoarele facturi să fie decontate:"
- ' MahnTEXT_NACH = ""
- ' MAHNTEXT = "Reamintire de plată"
- ' Case 1
- ' MahnTEXT_VOR = "Solicităm ca următoarele facturi să fie decontate:"
- ' MahnTEXT_NACH = "Considerand ca neefectuarea platii se bazeaza pe o mica problema organizatorica, va rugam sa efectuati platile restante in cel mai scurt timp. In cazul in care platile au fost efectuate, va rugam sa considerati acest inscris nefondat."
- ' MAHNTEXT = "1. Memento"
- ' Case 2
- ' MahnTEXT_VOR = "În ciuda atenționărilor noastre anterioare, facturile enumerate nu au fost încă achitate:"
- ' MahnTEXT_NACH = "Presupunem că acest lucru se datorează unei inadvertențe organizaționale. " & vbNewLine & ”Dacă plata a fost deja trimisă către noi, vă rugăm să considerați că acest memento este irelevant."
- ' MAHNTEXT = MAHNSTUFE & ". MENȚIUNE"
- ' Case 3
- ' MahnTEXT_VOR = "În ciuda a două atenționări, elementele enumerate mai jos nu au fost încă plătite. Prin prezenta, vă solicităm pentru ultima dată să achitați imediat sumele restante. Vă rugăm să ne trimiteți o copie a chitanței de plată."
- ' MahnTEXT_NACH = "În cazul în care acest nou termen expiră fără succes, vom fi nevoiți fie să însărcinăm o agenție de colectare a creanțelor să recupereze datoria, fie să acționăm în justiție fără altă notificare."
- ' MAHNTEXT = MAHNSTUFE & ". MENȚIUNE"
- ' Case >= 4
- ' MahnTEXT_VOR = "În ciuda mai multor atenționări, elementele enumerate mai jos nu au fost încă plătite. Prin prezenta, vă solicităm pentru ultima dată să achitați imediat sumele restante. Vă rugăm să ne trimiteți o copie a chitanței de remitere."
- ' MahnTEXT_NACH = "În cazul în care acest nou termen expiră fără succes, vom fi nevoiți fie să instruim o agenție de colectare a creanțelor pentru a colecta datoria, fie să acționăm în justiție fără altă notificare.."
- ' MAHNTEXT = MAHNSTUFE & ". MENȚIUNE"
- ' End Select
-
- ' Case "BG"
- ' Select Case MAHNSTUFE
- ' Case -2
- ' MahnTEXT_VOR = "Следните фактури все още не са платени:"
- ' MahnTEXT_NACH = ""
- ' MAHNTEXT = "Списък - Отворени елементи"
- ' Case -1
- ' MahnTEXT_VOR = "Следните фактури все още не са събрани:"
- ' MahnTEXT_NACH = "Горепосочените суми ще бъдат събрани от посочената от вас банкова сметка чрез SEPA мандат за директен дебит."
- ' MAHNTEXT = "Списък - Отворени елементи"
- ' Case 0
- ' MahnTEXT_VOR = "Искаме уреждане на следните фактури:"
- ' MahnTEXT_NACH = ""
- ' MAHNTEXT = "Напомняне за плащане"
- ' Case 1
- ' MahnTEXT_VOR = "Искаме уреждане на следните фактури."
- ' MahnTEXT_NACH = "Предполагаме, че това се дължи на организационен пропуск. " & vbNewLine & “Ако плащането ви вече е изпратено до нас, моля, считайте напомнянето за неуместно."
- ' MAHNTEXT = "Първо напомняне"
- ' Case 2
- ' MahnTEXT_VOR = "Въпреки предишното ни напомняне, изброените фактури все още не са уредени.:"
- ' MahnTEXT_NACH = "In cazul de fata trebuie sa insistam la efectuarea platilor facturilor sus mentionate, pentru a evita alte costuri si neplaceri. Va rugam sa efectuali platile restante pana le data de" &
- ' MAHNTEXT = MAHNSTUFE & ". напомняне"
- ' Case 3
- ' MahnTEXT_VOR = "Въпреки двете напомняния изброените по-долу елементи все още не са платени. С настоящото ви молим за последен път да платите незабавно дължимата сума. Моля, изпратете ни копие от платежното нареждане."
- ' MahnTEXT_NACH = "Ако този нов срок изтече без успех, ще бъдем принудени или да възложим на агенция за събиране на вземания да събере дълга, или да предприемем правни действия без допълнително уведомление."
- ' MAHNTEXT = MAHNSTUFE & ". напомняне"
- ' Case >= 4
- ' MahnTEXT_VOR = "Въпреки няколкото напомняния, изброените по-долу елементи все още не са платени. С настоящото ви молим за последен път да платите незабавно дължимата сума. Моля, изпратете ни копие от платежното нареждане."
- ' MahnTEXT_NACH = "Ако този нов срок изтече без успех, ще бъдем принудени или да възложим на агенция за събиране на вземания да събере дълга, или да предприемем правни действия без допълнително уведомление."
- ' MAHNTEXT = MAHNSTUFE & ". напомняне"
- ' End Select
-
- ' Case "HR", "SRB", "BIH", "MKD"
- ' Select Case MAHNSTUFE
- ' Case -2
- ' MahnTEXT_VOR = "Naknadni računi još nisu plaćeni:"
- ' MahnTEXT_NACH = ""
- ' MAHNTEXT = "Popis - Otvorene stavken"
- ' Case -1
- ' MahnTEXT_VOR = "Naknadni računi još nisu naplaćeni:"
- ' MahnTEXT_NACH = "Gore navedeni iznosi bit će prikupljeni putem SEPA naloga za izravno terećenje s vašeg navedenog bankovnog računa."
- ' MAHNTEXT = "Popis - Otvorene stavken"
- ' Case 0
- ' MahnTEXT_VOR = "Molimo da se podmire sljedeći računi:"
- ' MahnTEXT_NACH = ""
- ' MAHNTEXT = "Podsjetnik za plaćanje"
- ' Case 1
- ' MahnTEXT_VOR = "Molimo da se podmire sljedeći računi:"
- ' MahnTEXT_NACH = "Vjerujemo da je to zbog organizacijskog propusta. " & vbNewLine & "Ako nam je vaša uplata već poslana, molimo vas da podsjetnik smatrate nevažnim."
- ' MAHNTEXT = "1. upozorenje"
- ' Case 2
- ' MahnTEXT_VOR = "Unatoč našem prethodnom podsjećanju, navedeni računi još uvijek nisu plaćeni:"
- ' MahnTEXT_NACH = "Pretpostavljamo da je to zbog organizacijskog propusta, ali sada vas moramo odlučno zamoliti da nam odmah prenesete iznos koji dugujete prema gornjem popisu kako bismo izbjegli daljnje troškove i neugodnosti."
- ' MAHNTEXT = MAHNSTUFE & ". UPOZORENJE"
- ' Case 3
- ' MahnTEXT_VOR = "Unatoč dvama opomenama, stavke navedene u nastavku još uvijek nisu plaćene. Ovim vas posljednji put molimo da odmah položite preostali iznos. Pošaljite nam kopiju potvrde o prijenosu."
- ' MahnTEXT_NACH = "Ako ovaj novi rok istekne bez uspjeha, tada bismo bili prisiljeni angažirati tvrtku za naplatu duga da naplati dug ili poduzeti pravne radnje bez daljnje prethodne obavijesti."
- ' MAHNTEXT = MAHNSTUFE & ". UPOZORENJE"
- ' Case >= 4
- ' MahnTEXT_VOR = "Unatoč opetovanim podsjetnicima, stavke navedene u nastavku još uvijek nisu plaćene. Ovim vas posljednji put molimo da odmah položite preostali iznos. Pošaljite nam kopiju potvrde o prijenosu."
- ' MahnTEXT_NACH = "Ako ovaj novi rok istekne bez uspjeha, tada bismo bili prisiljeni angažirati tvrtku za naplatu duga da naplati dug ili poduzeti pravne radnje bez daljnje prethodne obavijesti."
- ' MAHNTEXT = MAHNSTUFE & ". UPOZORENJE"
- ' End Select
-
-
- ' Case Else
-
- ' Select Case MAHNSTUFE
- ' Case -2
- ' MahnTEXT_VOR = "Subsequent invoices have not yet been paid:"
- ' MahnTEXT_NACH = ""
- ' MAHNTEXT = "List - Open accounts"
- ' Case -1
- ' MahnTEXT_VOR = "The following invoices have not yet been collected:"
- ' MahnTEXT_NACH = "The above amounts will be collected by SEPA direct debit mandate from your specified bank account."
- ' MAHNTEXT = "List - Open accounts"
- ' Case 0
- ' MahnTEXT_VOR = "We request that the following invoices be settled:"
- ' MahnTEXT_NACH = ""
- ' MAHNTEXT = "REMINDER"
- ' Case 1
- ' MahnTEXT_VOR = "We request that the following invoices be settled:"
- ' MahnTEXT_NACH = "We assume that this is due to an organisational oversight. " & vbNewLine & "If your payment has already been sent to us, please consider the reminder as irrelevant."
- ' MAHNTEXT = "1. REMINDER"
- ' Case 2
- ' MahnTEXT_VOR = "Despite our previous reminder, the listed invoices have still not been settled:"
- ' MahnTEXT_NACH = "We assume that this is due to an organisational oversight, but we must now request you in all certainty to transfer the amount due according to the above list to us immediately in order to avoid further costs and inconvenience."
- ' MAHNTEXT = MAHNSTUFE & ". REMINDER"
- ' Case 3
- ' MahnTEXT_VOR = "Despite two reminders, the items listed below have still not been paid. We hereby request you for the last time to pay the outstanding amount immediately. Please send us a copy of the remittance slip."
- ' MahnTEXT_NACH = "After the unsuccessful expiry of this new deadline, we would then be forced either to instruct a debt collection agency to collect the debt or to take legal action without further prior notice."
- ' MAHNTEXT = MAHNSTUFE & ". REMINDER"
- ' Case >= 4
- ' MahnTEXT_VOR = "Despite several reminders, the items listed below have still not been paid. We hereby request you for the last time to pay the outstanding amount immediately. Please send us a copy of the transfer receipt."
- ' MahnTEXT_NACH = "After the unsuccessful expiry of this new deadline, we would then be forced either to instruct a debt collection agency to collect the debt or to take legal action without further prior notice."
- ' MAHNTEXT = MAHNSTUFE & ". REMINDER"
- ' End Select
-
-
- 'End Select
End Sub
@@ -1034,7 +1044,7 @@ Public Class frmBU_Mahnlauf
Select Case getAusgabe(MainForm, False)
Case "PDF"
If KontoList.Count = 1 Then
- doMahnung(3, KontoList(0), Firma, , srchPrinter, forceMahnstufe,, hideMahnstopp)
+ doMahnung(3, KontoList(0), Firma, art, srchPrinter, forceMahnstufe,, hideMahnstopp)
Else
Dim PDF_LIST As New List(Of String)
fProgBar.Show(MainForm)
@@ -1042,7 +1052,7 @@ Public Class frmBU_Mahnlauf
For Each konto In KontoList ' As DataGridViewRow In MyDatagridview1.SelectedRows
Dim Path = ""
- If doMahnung(4, konto, Firma, Path, srchPrinter, forceMahnstufe, False, hideMahnstopp) Then
+ If doMahnung(4, konto, Firma, art, Path, srchPrinter, forceMahnstufe, False, hideMahnstopp) Then
PDF_LIST.Add(Path)
End If
cnt += 1
@@ -1066,7 +1076,7 @@ Public Class frmBU_Mahnlauf
fProgBar.Refresh()
For Each konto In KontoList ' As DataGridViewRow In MyDatagridview1.SelectedRows
Dim Path = ""
- doMahnung(2, konto, Firma, Path, srchPrinter, forceMahnstufe, False, hideMahnstopp)
+ doMahnung(2, konto, Firma, art, Path, srchPrinter, forceMahnstufe, False, hideMahnstopp)
cnt += 1
fProgBar.progBar.Value = cnt / gesAnz * 100
fProgBar.lblAnzahl.Text = cnt & "/" & gesAnz
@@ -1076,7 +1086,7 @@ Public Class frmBU_Mahnlauf
fProgBar.Show(MainForm)
fProgBar.Refresh()
For Each konto In KontoList ' As DataGridViewRow In MyDatagridview1.SelectedRows
- doMahnung(0, konto, Firma, , srchPrinter, forceMahnstufe,, hideMahnstopp)
+ doMahnung(0, konto, Firma, art, , srchPrinter, forceMahnstufe,, hideMahnstopp)
cnt += 1
fProgBar.progBar.Value = cnt / gesAnz * 100
fProgBar.lblAnzahl.Text = cnt & "/" & gesAnz
@@ -1126,18 +1136,18 @@ Public Class frmBU_Mahnlauf
Select Case AUSGABE
Case "PDF"
If bool_increaseMahnstufe Then increaseMahnstufe(Konto, FirmaId)
- If doMahnung(4, Konto, FirmaId, Path, srchPrinter) Then
+ If doMahnung(4, Konto, FirmaId, "ZE", Path, srchPrinter) Then
PDF_LIST.Add(Path)
End If
Case "MAIL"
If bool_increaseMahnstufe Then increaseMahnstufe(Konto, FirmaId)
- doMahnung(2, Konto, FirmaId, , srchPrinter)
+ doMahnung(2, Konto, FirmaId, "ZE",, srchPrinter)
Case "MAIL_SEND"
If bool_increaseMahnstufe Then increaseMahnstufe(Konto, FirmaId)
- doMahnung(5, Konto, FirmaId, , srchPrinter)
+ doMahnung(5, Konto, FirmaId, "ZE",, srchPrinter)
Case "PRINT"
If bool_increaseMahnstufe Then increaseMahnstufe(Konto, FirmaId)
- doMahnung(0, Konto, FirmaId, , srchPrinter)
+ doMahnung(0, Konto, FirmaId, "ZE",, srchPrinter)
End Select
End If
cnt += 1