Maut, QU-Kontrolle, MAhnlauf, Kundebearbeiten, etc.
This commit is contained in:
26
SDL/buchhaltung/frmBU_Mahnlauf.Designer.vb
generated
26
SDL/buchhaltung/frmBU_Mahnlauf.Designer.vb
generated
@@ -40,6 +40,7 @@ Partial Class frmBU_Mahnlauf
|
||||
Me.Panel2 = New System.Windows.Forms.Panel()
|
||||
Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
|
||||
Me.Panel3 = New System.Windows.Forms.Panel()
|
||||
Me.Button7 = New System.Windows.Forms.Button()
|
||||
Me.cbxMahnstufeErh = New System.Windows.Forms.CheckBox()
|
||||
Me.Label8 = New System.Windows.Forms.Label()
|
||||
Me.Button6 = New System.Windows.Forms.Button()
|
||||
@@ -54,7 +55,6 @@ Partial Class frmBU_Mahnlauf
|
||||
Me.Button2 = New System.Windows.Forms.Button()
|
||||
Me.Button1 = New System.Windows.Forms.Button()
|
||||
Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.Button7 = New System.Windows.Forms.Button()
|
||||
Me.Panel1.SuspendLayout()
|
||||
Me.pnlTop.SuspendLayout()
|
||||
Me.Panel2.SuspendLayout()
|
||||
@@ -288,6 +288,18 @@ Partial Class frmBU_Mahnlauf
|
||||
Me.Panel3.Size = New System.Drawing.Size(1287, 147)
|
||||
Me.Panel3.TabIndex = 1
|
||||
'
|
||||
'Button7
|
||||
'
|
||||
Me.Button7.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
|
||||
Me.Button7.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.Button7.Location = New System.Drawing.Point(38, 89)
|
||||
Me.Button7.Name = "Button7"
|
||||
Me.Button7.Size = New System.Drawing.Size(123, 23)
|
||||
Me.Button7.TabIndex = 45
|
||||
Me.Button7.Text = "Übersetzungen"
|
||||
Me.Button7.UseVisualStyleBackColor = True
|
||||
'
|
||||
'cbxMahnstufeErh
|
||||
'
|
||||
Me.cbxMahnstufeErh.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
@@ -473,18 +485,6 @@ Partial Class frmBU_Mahnlauf
|
||||
Me.MyTextBox2.TabIndex = 39
|
||||
Me.MyTextBox2.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
|
||||
'
|
||||
'Button7
|
||||
'
|
||||
Me.Button7.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
|
||||
Me.Button7.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.Button7.Location = New System.Drawing.Point(38, 89)
|
||||
Me.Button7.Name = "Button7"
|
||||
Me.Button7.Size = New System.Drawing.Size(123, 23)
|
||||
Me.Button7.TabIndex = 45
|
||||
Me.Button7.Text = "Übersetzungen"
|
||||
Me.Button7.UseVisualStyleBackColor = True
|
||||
'
|
||||
'frmBU_Mahnlauf
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
|
||||
@@ -1,9 +1,13 @@
|
||||
Imports System.Globalization
|
||||
Imports System.Windows
|
||||
Imports Microsoft.Office.Interop
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
Imports VERAG_PROG_ALLGEMEIN.TESTJSON
|
||||
|
||||
Public Class frmBU_Mahnlauf
|
||||
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
Dim listOfTextconserven As cTextkonserve_LIST
|
||||
Private Sub btnSuche_Click(sender As Object, e As EventArgs) Handles btnSuche.Click
|
||||
initDGV()
|
||||
End Sub
|
||||
@@ -251,6 +255,7 @@ Public Class frmBU_Mahnlauf
|
||||
' 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)
|
||||
Try
|
||||
|
||||
Dim KD As New VERAG_PROG_ALLGEMEIN.cKunde(KdNr)
|
||||
@@ -536,47 +541,106 @@ Public Class frmBU_Mahnlauf
|
||||
Dim Mail_CC = ""
|
||||
Dim Mail_BCC = ""
|
||||
|
||||
Select Case AD.LandKz
|
||||
Case "TR"
|
||||
Mail_Subject = "PAYMENT REMINDER" & IIf(KdNr > 0, " - Cust.: " & KdNr, "")
|
||||
Mail_HTMLBody = "Sayin bayanlar ve baylar,<br><br>ekli dosyada sirketimize olan borcunuza dair acik kalem listemizi iletiyoruz.<br>Listeyi kontrol edip, eksik fatura varsa bildirmenizi rica ederiz."
|
||||
Mail_HTMLBody &= "<br><br>"
|
||||
'Mail_HTMLBody &= "Vadesi dolmus olan faturalarin, en kisa sürede asagidaki hesabimiza havale yapilmasini önemle arz ederiz. "
|
||||
Mail_HTMLBody &= "<br>Gecikmiş faturaları mümkün olan en kısa sürede hesabımıza aktarmanızı rica ederiz."
|
||||
Mail_HTMLBody &= "<br>Yapilan ödemeden sonra lütfen dekont ve detay gönderiniz."
|
||||
|
||||
'Gecikmiş faturaları mümkün olan en kısa sürede hesabımıza aktarmanızı rica ederiz.
|
||||
Mail_HTMLBody &= "<br><br>"
|
||||
'Mail_HTMLBody &= "Garanti Bank Hadimköy/TR TR 96 0006 2000 5440 0009 0672 28 Kto.: 544<br>Hesap Sahibi: Verag Spedition AG EURO Hesabi<br>"
|
||||
'Mail_HTMLBody &= "Sizden geri dönüs beklemekteyiz."
|
||||
'Mail_HTMLBody &= "<br><br>"
|
||||
Mail_HTMLBody &= "Iyi calismalar diler, saygilarimizi sunariz"
|
||||
Mail_HTMLBody &= "<br><br><br>"
|
||||
Mail_HTMLBody &= "<i>If you are not responsible for this matter, please send us an e-mail address to <b>buchhaltung@verag.ag</b>,
|
||||
to which future reminders should be sent.<br>
|
||||
In the meantime, we ask you to forward them to the responsible persons in your company.</i>"
|
||||
Mail_HTMLBody &= "<br><br><br>" & cFakturierung.getSignature(AD.LandKz, FIRMA.Firma_ID)
|
||||
'---------------
|
||||
If Firma_ID = 19 Then 'dynMailvorlage aktuell nur Verag360!
|
||||
|
||||
Case "A", "AT", "D", "DE", "CH"
|
||||
Dim emailMahnungen = IIf(FIRMA.Firma_E_Mail_Mahnungen <> "", FIRMA.Firma_E_Mail_Mahnungen, "buchhaltung@verag.ag")
|
||||
|
||||
Mail_Subject = MAHNTEXT & IIf(KdNr > 0, " - KdNr.: " & KdNr, "")
|
||||
Mail_HTMLBody = "Sehr geehrte Damen und Herren,<br><br>im Anhang finden Sie ihre Mahnung, mit der Bitte um Bearbeitung. "
|
||||
Mail_HTMLBody &= "<br><br><br>"
|
||||
Mail_HTMLBody &= "<i>Sollten Sie für diesen Sachverhalt nicht zuständig sein, teilen Sie uns bitte per Mail an <b>buchhaltung@verag.ag</b> eine Mailadresse mit,
|
||||
an welche zukünftig die Mahnungen versandt werden sollen.<br>
|
||||
Derweil bitten wir um Weiterleitung an die zuständigen Personen in ihrem Haus.</i>"
|
||||
Mail_HTMLBody &= "<br><br><br>Mit freundlichen Grüßen<br><br>" & cFakturierung.getSignature(AD.LandKz, FIRMA.Firma_ID)
|
||||
Dim spracheMahnung As String = "EN" 'Defaultsprache
|
||||
|
||||
Case Else
|
||||
Select Case AD.LandKz
|
||||
Case "TR" : spracheMahnung = AD.LandKz
|
||||
Case "A", "AT", "D", "DE", "CH" : spracheMahnung = "DE"
|
||||
Case "RO" : spracheMahnung = "RO"
|
||||
End Select
|
||||
|
||||
If listOfTextconserven.LIST.Any(Function(c) c.txt_sprache = spracheMahnung) Then
|
||||
|
||||
|
||||
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
|
||||
|
||||
Dim TextHTML = ""
|
||||
TextHTML &= r.txt_text
|
||||
Mail.Subject = Mail.Subject.Replace("%KdNr%", KdNr)
|
||||
Mail.Subject = Mail.Subject.Replace("%Mahntext%", MAHNTEXT)
|
||||
|
||||
TextHTML = TextHTML.Replace("%email_mahnung%", emailMahnungen)
|
||||
|
||||
Mail_HTMLBody = "<div style=""font-family:Calibri, Arial"">" & TextHTML & "</div>"
|
||||
Mail_To = VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdress(AD.AdressenNr, "Mahnung an")
|
||||
Mail_CC = VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdressCC(AD.AdressenNr, "Mahnung an")
|
||||
Mail_BCC = VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdressBCC(AD.AdressenNr, "Mahnung an")
|
||||
Mail_HTMLBody &= "<br><br><br>" & 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
|
||||
|
||||
|
||||
'---------------
|
||||
Else
|
||||
|
||||
Select Case AD.LandKz
|
||||
Case "TR"
|
||||
Mail_Subject = "PAYMENT REMINDER" & IIf(KdNr > 0, " - Cust.: " & KdNr, "")
|
||||
Mail_HTMLBody = "Sayin bayanlar ve baylar,<br><br>ekli dosyada sirketimize olan borcunuza dair acik kalem listemizi iletiyoruz.<br>Listeyi kontrol edip, eksik fatura varsa bildirmenizi rica ederiz."
|
||||
Mail_HTMLBody &= "<br><br>"
|
||||
'Mail_HTMLBody &= "Vadesi dolmus olan faturalarin, en kisa sürede asagidaki hesabimiza havale yapilmasini önemle arz ederiz. "
|
||||
Mail_HTMLBody &= "<br>Gecikmiş faturaları mümkün olan en kısa sürede hesabımıza aktarmanızı rica ederiz."
|
||||
Mail_HTMLBody &= "<br>Yapilan ödemeden sonra lütfen dekont ve detay gönderiniz."
|
||||
|
||||
'Gecikmiş faturaları mümkün olan en kısa sürede hesabımıza aktarmanızı rica ederiz.
|
||||
Mail_HTMLBody &= "<br><br>"
|
||||
'Mail_HTMLBody &= "Garanti Bank Hadimköy/TR TR 96 0006 2000 5440 0009 0672 28 Kto.: 544<br>Hesap Sahibi: Verag Spedition AG EURO Hesabi<br>"
|
||||
'Mail_HTMLBody &= "Sizden geri dönüs beklemekteyiz."
|
||||
'Mail_HTMLBody &= "<br><br>"
|
||||
Mail_HTMLBody &= "Iyi calismalar diler, saygilarimizi sunariz"
|
||||
Mail_HTMLBody &= "<br><br><br>"
|
||||
Mail_HTMLBody &= "<i>If you are not responsible for this matter, please send us an e-mail address to <b>buchhaltung@verag.ag</b>,
|
||||
to which future reminders should be sent.<br>
|
||||
In the meantime, we ask you to forward them to the responsible persons in your company.</i>"
|
||||
Mail_HTMLBody &= "<br><br><br>" & cFakturierung.getSignature(AD.LandKz, FIRMA.Firma_ID)
|
||||
|
||||
Case "A", "AT", "D", "DE", "CH"
|
||||
|
||||
Mail_Subject = MAHNTEXT & IIf(KdNr > 0, " - KdNr.: " & KdNr, "")
|
||||
Mail_HTMLBody = "Sehr geehrte Damen und Herren,<br><br>im Anhang finden Sie ihre Mahnung, mit der Bitte um Bearbeitung. "
|
||||
Mail_HTMLBody &= "<br><br><br>"
|
||||
Mail_HTMLBody &= "<i>Sollten Sie für diesen Sachverhalt nicht zuständig sein, teilen Sie uns bitte per Mail an <b>buchhaltung@verag.ag</b> eine Mailadresse mit,
|
||||
an welche zukünftig die Mahnungen versandt werden sollen.<br>
|
||||
Derweil bitten wir um Weiterleitung an die zuständigen Personen in ihrem Haus.</i>"
|
||||
Mail_HTMLBody &= "<br><br><br>Mit freundlichen Grüßen<br><br>" & cFakturierung.getSignature(AD.LandKz, FIRMA.Firma_ID)
|
||||
|
||||
Case Else
|
||||
|
||||
Mail_Subject = "PAYMENT REMINDER" & IIf(KdNr > 0, " - Cust.: " & KdNr, "")
|
||||
Mail_HTMLBody = "Dear Sear or Madam,<br><br>attached we send you the invoice reminder."
|
||||
Mail_HTMLBody &= "<br><br><br>"
|
||||
Mail_HTMLBody &= "<i>If you are not responsible for this matter, please send us an e-mail address to <b>buchhaltung@verag.ag</b>,
|
||||
to which future reminders should be sent.<br>
|
||||
In the meantime, we ask you to forward them to the responsible persons in your company.</i>"
|
||||
Mail_HTMLBody &= "<br><br><br>Best regards<br><br>" & cFakturierung.getSignature(AD.LandKz, FIRMA.Firma_ID)
|
||||
End Select
|
||||
|
||||
End If
|
||||
|
||||
Mail_Subject = "PAYMENT REMINDER" & IIf(KdNr > 0, " - Cust.: " & KdNr, "")
|
||||
Mail_HTMLBody = "Dear Sear or Madam,<br><br>attached we send you the invoice reminder."
|
||||
Mail_HTMLBody &= "<br><br><br>"
|
||||
Mail_HTMLBody &= "<i>If you are not responsible for this matter, please send us an e-mail address to <b>buchhaltung@verag.ag</b>,
|
||||
to which future reminders should be sent.<br>
|
||||
In the meantime, we ask you to forward them to the responsible persons in your company.</i>"
|
||||
Mail_HTMLBody &= "<br><br><br>Best regards<br><br>" & cFakturierung.getSignature(AD.LandKz, FIRMA.Firma_ID)
|
||||
End Select
|
||||
Mail_HTMLBody = "<div style=""font-family:Calibri, Arial"">" & Mail_HTMLBody & "</div>"
|
||||
Mail_To = VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdress(AD.AdressenNr, "Mahnung an")
|
||||
Mail_CC = VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdressCC(AD.AdressenNr, "Mahnung an")
|
||||
@@ -597,23 +661,26 @@ 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
|
||||
Dim outl As New Outlook.Application
|
||||
Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
|
||||
Mail = outl.CreateItem(0)
|
||||
Mail.Subject = Mail_Subject
|
||||
Mail.HTMLBody = Mail_HTMLBody
|
||||
If Firma_ID <> 19 Then
|
||||
|
||||
Mail.To = Mail_To
|
||||
Mail.CC = Mail_CC
|
||||
Mail.BCC = Mail_BCC
|
||||
Mail.Attachments.Add(tmpPath, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , "Mahnung.pdf")
|
||||
Dim outl As New Outlook.Application
|
||||
Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
|
||||
Mail = outl.CreateItem(0)
|
||||
Mail.Subject = Mail_Subject
|
||||
Mail.HTMLBody = Mail_HTMLBody
|
||||
|
||||
Try
|
||||
Mail.SentOnBehalfOfName = SDL.cFakturierung.getDefaultMail("AMBAR") ',"buchhaltung@verag.ag"
|
||||
Catch ex2 As Exception
|
||||
MsgBox(ex2.Message)
|
||||
End Try
|
||||
Mail.Display()
|
||||
Mail.To = Mail_To
|
||||
Mail.CC = Mail_CC
|
||||
Mail.BCC = Mail_BCC
|
||||
Mail.Attachments.Add(tmpPath, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , "Mahnung.pdf")
|
||||
|
||||
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
|
||||
|
||||
|
||||
@@ -641,14 +708,12 @@ Public Class frmBU_Mahnlauf
|
||||
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message & ex.StackTrace)
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
Return False
|
||||
End Function
|
||||
|
||||
Shared Sub initRgFirma(ByRef rpt As rptMahnung, FIRMA As VERAG_PROG_ALLGEMEIN.cFirmen, LandKz As String)
|
||||
|
||||
rpt.lblFirmaOrt.Text = If(FIRMA.Firma_Ort, "")
|
||||
rpt.lblFirmaStrasse.Text = If(FIRMA.Firma_Straße, "")
|
||||
rpt.lblFirmaTel.Text = If(FIRMA.Firma_Telefon, "")
|
||||
@@ -1144,4 +1209,5 @@ Public Class frmBU_Mahnlauf
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
Reference in New Issue
Block a user