540 lines
25 KiB
VB.net
540 lines
25 KiB
VB.net
Imports Microsoft.Office.Interop
|
|
|
|
|
|
|
|
Public Class frmFaktEmail
|
|
|
|
Dim RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang
|
|
Dim SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch
|
|
Dim FUNC As New cProgramFunctions
|
|
Dim printOriginalRg As Object = Nothing
|
|
Dim ATTACHMENTS As New List(Of cFakt_MailATTach)
|
|
Dim SR_List As List(Of cFakt_SR_List) = Nothing
|
|
Dim SR_DT As DataTable = Nothing
|
|
|
|
Dim Firma_ID As Integer
|
|
Dim SammelrechungArt As Integer
|
|
Dim KdNr As Integer
|
|
Dim DatumBis As Date
|
|
Dim Rechnungsdatum As Date
|
|
Dim SB As String
|
|
|
|
Dim EinzelAnlagen As Boolean
|
|
Dim Sammelbericht As Boolean
|
|
Dim RechnungsNr As Integer
|
|
Dim DruckDatumZeit As DateTime
|
|
|
|
Dim SR = False
|
|
Sub New(RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, printOriginalRg As Object)
|
|
|
|
' Dieser Aufruf ist für den Designer erforderlich.
|
|
InitializeComponent()
|
|
|
|
Me.RECHNUNG = RECHNUNG
|
|
Me.Firma_ID = RECHNUNG.Firma_ID
|
|
Me.SPEDBUCH = SPEDBUCH
|
|
Me.printOriginalRg = printOriginalRg
|
|
Me.KdNr = RECHNUNG.RechnungsKundenNr
|
|
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
|
'McDull.Windows.Forms.HTMLTextBox
|
|
End Sub
|
|
|
|
|
|
Sub New(Firma_ID As Integer, SammelrechungArt As Integer, DatumBis As Date, Rechnungsdatum As Date, PrinterName As String, Optional EinzelAnlagen As Boolean = True, Optional Sammelbericht As Boolean = True, Optional KdNr As Integer = -1, Optional RechnungsdruckArt As Integer = -1, Optional ByRef listPDFs As List(Of String) = Nothing, Optional SB As String = "", ByRef Optional lastAktuelle_RgNr As Integer = -1)
|
|
'(Firma_ID As Integer, SammelrechungArt As Integer, KdNr As Integer, DatumBis As Date, SB As String, EinzelAnlagen As Boolean, Sammelbericht As Boolean) 'Sammelrechnung
|
|
|
|
' Dieser Aufruf ist für den Designer erforderlich.
|
|
InitializeComponent()
|
|
|
|
Me.SR_DT = cFakturierung.GET_SR_SQLDT(Firma_ID, SammelrechungArt, DatumBis, KdNr, SB) 'SQL.loadDgvBySql(sqlStr, "FMZOLL")
|
|
Me.Firma_ID = Firma_ID
|
|
Me.SammelrechungArt = SammelrechungArt
|
|
Me.DatumBis = DatumBis
|
|
Me.SB = SB
|
|
Me.EinzelAnlagen = EinzelAnlagen
|
|
Me.Sammelbericht = Sammelbericht
|
|
Me.KdNr = KdNr
|
|
Me.Rechnungsdatum = Rechnungsdatum
|
|
Me.RechnungsNr = lastAktuelle_RgNr
|
|
SR = True
|
|
End Sub
|
|
|
|
|
|
|
|
|
|
Private Sub frmFaktEmail_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
'Select Case RECHNUNG.RechnungsLandKz
|
|
' Case "TR"
|
|
' txtSubject.Text = "Rechnung Nr. " & RECHNUNG.RechnungsNr
|
|
' TextHTML = "Sayin Bayanlar ve Baylar,<br><br>ekte baslikta yazan faturayi bulabilirsinz."
|
|
' TextHTML &= "<br><br><br>Saygilarimizla<br><br>" & cFakturierung.getSignature(RECHNUNG)
|
|
' Case "A", "AT", "D", "DE", "CH"
|
|
' txtSubject.Text = "Rechnung Nr. " & RECHNUNG.RechnungsNr
|
|
' TextHTML = "Sehr geehrte Damen und Herren,<br><br>im Anhang senden wir Ihnen die o.g. Rechnung."
|
|
' TextHTML &= "<br><br><br>Mit freundlichen Grüßen<br><br>" & cFakturierung.getSignature(RECHNUNG)
|
|
' Case Else
|
|
' txtSubject.Text = "Rechnung Nr. " & RECHNUNG.RechnungsNr
|
|
' TextHTML = "Sehr geehrte Damen und Herren,<br><br>attached we send you the invoice mentioned above."
|
|
' TextHTML &= "<br><br><br>Best regards<br><br>" & cFakturierung.getSignature(RECHNUNG)
|
|
'End Select
|
|
|
|
|
|
Dim AD As VERAG_PROG_ALLGEMEIN.cAdressen
|
|
Dim FISKAL As cFiskal_Daten = Nothing
|
|
|
|
|
|
If SR Then
|
|
AD = New VERAG_PROG_ALLGEMEIN.cAdressen(KdNr)
|
|
FISKAL = New cFiskal_Daten(RECHNUNG.RechnungsKundenNr)
|
|
setMailText(AD.LandKz)
|
|
initList()
|
|
cbxStb.Enabled = True : cbxStb.Checked = True
|
|
cbxStbMitt.Enabled = True : cbxStbMitt.Checked = True
|
|
cbxVBD.Enabled = True : cbxVBD.Checked = True
|
|
cbxOriginalPrint.Visible = False
|
|
Else
|
|
setMailText(RECHNUNG.RechnungsLandKz)
|
|
|
|
initRowSpedbuch(SPEDBUCH)
|
|
|
|
If SPEDBUCH.DokumentId_Steuerbeleg Then cbxStb.Enabled = True : cbxStb.Checked = True
|
|
If SPEDBUCH.DokumentId_Mitteilung Then cbxStbMitt.Enabled = True : cbxStbMitt.Checked = True
|
|
If SPEDBUCH.DokumentId_VBD Then cbxVBD.Enabled = True : cbxVBD.Checked = True
|
|
' wbShowHTML(WebBrowser, cFakturierung.getSignature(RECHNUNG))
|
|
|
|
AD = New VERAG_PROG_ALLGEMEIN.cAdressen(RECHNUNG.RechnungsKundenNr)
|
|
FISKAL = New cFiskal_Daten(RECHNUNG.RechnungsKundenNr)
|
|
|
|
If printOriginalRg Is Nothing Then
|
|
cbxOriginalPrint.Visible = False
|
|
Else
|
|
cbxOriginalPrint.Visible = True
|
|
cbxOriginalPrint.Checked = CBool(printOriginalRg)
|
|
End If
|
|
End If
|
|
|
|
If AD.E_Mail IsNot Nothing AndAlso AD.E_Mail <> "" Then lkl.Text = """" & AD.E_Mail & """ anfügen" : lkl.Tag = AD.E_Mail
|
|
lblKunde.Text = AD.AdressenNr & " - " & AD.Ordnungsbegriff
|
|
|
|
Dim EMAILTMP = VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdress(AD.AdressenNr, "Rechnung an")
|
|
If EMAILTMP <> "" Then dgvEmail.Rows.Add(EMAILTMP)
|
|
|
|
If FISKAL IsNot Nothing Then
|
|
cbxSteuerberaterEmail.Checked = (If(FISKAL.fisk_schreibenSB_Mail, "") <> "")
|
|
txtSteuerberaterEmail.Text = If(FISKAL.fisk_schreibenSB_Mail, "")
|
|
cbxFAEmail.Checked = (If(FISKAL.fisk_schreibenFA_Mail, "") <> "")
|
|
txtFAEmail.Text = If(FISKAL.fisk_schreibenFA_Mail, "")
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub wbShowHTML(ByVal WebBrowser As WebBrowser, ByVal HtmlText As String)
|
|
Try
|
|
|
|
With WebBrowser
|
|
If IsNothing(.Url) OrElse .Url.AbsoluteUri <> "about:blank" Then
|
|
' zunächst eine leere Seite laden
|
|
.Navigate("about:blank")
|
|
Application.DoEvents()
|
|
End If
|
|
|
|
' HTML-Textstring in das WebBrowser-Control schreiben
|
|
' .Document.Body.InnerHtml = HtmlText
|
|
End With
|
|
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message & ex.StackTrace)
|
|
End Try
|
|
End Sub
|
|
|
|
Function getRgNr(RechnungsNr As Integer) As String
|
|
If RechnungsNr <= 0 Then Return "%RgNr%"
|
|
Return RechnungsNr
|
|
End Function
|
|
|
|
Sub setMailText(RechnungsLandKz)
|
|
Dim txtRgNr = ""
|
|
If SR Then
|
|
txtRgNr = getRgNr(RechnungsNr)
|
|
Else
|
|
txtRgNr = getRgNr(If(RECHNUNG.RechnungsNr, -1))
|
|
End If
|
|
|
|
Dim TextHTML = ""
|
|
|
|
Select Case RechnungsLandKz
|
|
Case "TR"
|
|
txtSubject.Text = "Rechnung Nr. " & txtRgNr
|
|
TextHTML = "Sayin Bayanlar ve Baylar," & vbNewLine & vbNewLine & "ekte baslikta yazan faturayi bulabilirsinz."
|
|
TextHTML &= "" & vbNewLine & vbNewLine & vbNewLine & "Saygilarimizla" & vbNewLine & vbNewLine & ""
|
|
Case "A", "AT", "D", "DE", "CH"
|
|
txtSubject.Text = "Rechnung Nr. " & txtRgNr
|
|
TextHTML = "Sehr geehrte Damen und Herren" & vbNewLine & vbNewLine & "im Anhang senden wir Ihnen die o.g. Rechnung."
|
|
TextHTML &= "" & vbNewLine & vbNewLine & vbNewLine & "Mit freundlichen Grüßen" & vbNewLine & vbNewLine & ""
|
|
Case Else
|
|
txtSubject.Text = "Invoice No. " & txtRgNr
|
|
TextHTML = "Dear Sir or Madam," & vbNewLine & vbNewLine & "attached we send you the invoice mentioned above."
|
|
TextHTML &= "" & vbNewLine & vbNewLine & vbNewLine & "Best regards" & vbNewLine & vbNewLine & ""
|
|
End Select
|
|
RichTextBox.Text = TextHTML
|
|
|
|
|
|
End Sub
|
|
|
|
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
|
|
|
|
If SR Then
|
|
Try
|
|
If RechnungsNr > 1 OrElse vbYes = MsgBox("Möchten Sie das PDF als Mail-Anhang erstellen?" & vbNewLine & "Es wird eine Rechnungsnummer vergeben, die Rechnung gilt somit als gedruckt und kann nicht mehr bearbeitet werden.", vbYesNoCancel) Then
|
|
|
|
VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.clearTMPPath("Zusammenfassung")
|
|
Dim listPDFs As New List(Of String)
|
|
Dim lastAktuelle_RgNr As Integer = -1
|
|
'Rechnung erstellen:
|
|
'-----------------------------------------------------------------
|
|
Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(KdNr)
|
|
If RechnungsNr <= 0 Then
|
|
cFakturierung.doSAMMELRechnungsDruck(Firma_ID, SammelrechungArt, DatumBis, Rechnungsdatum, "", EinzelAnlagen, Sammelbericht, KdNr, 4, listPDFs, SB, lastAktuelle_RgNr, DruckDatumZeit)
|
|
RechnungsNr = lastAktuelle_RgNr
|
|
Else
|
|
Dim path = ""
|
|
cFakturierung.doSAMMELRechnungsDruck_Abschnitt(RechnungsNr, -1, -1, DruckDatumZeit, "", False, , 4, path, True)
|
|
|
|
lastAktuelle_RgNr = RechnungsNr
|
|
listPDFs.Add(path)
|
|
End If
|
|
|
|
|
|
Dim outl As New Outlook.Application
|
|
Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
|
|
Mail = outl.CreateItem(0)
|
|
Mail.Subject = txtSubject.Text
|
|
|
|
|
|
Dim TextHTML = "<div style=""font-family:Calibri, Arial"">" & RichTextBox.Text.Replace(ControlChars.Lf, "<br>") & cFakturierung.getSignature(AD.LandKz, Firma_ID) & "</div>"
|
|
|
|
Mail.HTMLBody = TextHTML
|
|
|
|
'Mail-Adressen eintragen
|
|
'-----------------------------------------------------------------
|
|
For Each r In dgvEmail.Rows
|
|
If r.cells(0).value <> "" Then Mail.To &= r.cells(0).value & ";"
|
|
Next
|
|
For Each r In dgvEmailCC.Rows
|
|
If r.cells(0).value <> "" Then Mail.CC &= r.cells(0).value & ";"
|
|
Next
|
|
For Each r In dgvEmailBCC.Rows
|
|
If r.cells(0).value <> "" Then Mail.BCC &= r.cells(0).value & ";"
|
|
Next
|
|
|
|
|
|
Mail.HTMLBody = Mail.HTMLBody.Replace("%RgNr%", lastAktuelle_RgNr)
|
|
Mail.Subject = Mail.Subject.Replace("%RgNr%", lastAktuelle_RgNr)
|
|
|
|
ATTACHMENTS.Clear()
|
|
'-----------------------------------------------------------------
|
|
'Rechnungen anfügen
|
|
'-----------------------------------------------------------------
|
|
For Each l In listPDFs
|
|
' Mail.Attachments.Add(l, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
|
|
ATTACHMENTS.Add(New cFakt_MailATTach(l, ""))
|
|
Next
|
|
addAttachments(Mail, lastAktuelle_RgNr, True)
|
|
|
|
'-----------------------------------------------------------------
|
|
'Steuerbescheid/VDB anfügen
|
|
'-----------------------------------------------------------------
|
|
getAnhaenge()
|
|
'For Each l In listPDFs
|
|
' ' Mail.Attachments.Add(l, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
|
|
' ATTACHMENTS.Add(New cFakt_MailATTach(l, ""))
|
|
'Next
|
|
addAttachments(Mail, lastAktuelle_RgNr, cbxMergePDF.Checked)
|
|
|
|
|
|
Mail.Display()
|
|
'------------------------------------------------------------------------------------------
|
|
' STB /FA
|
|
send_StbFAMail(AD.AdressenNr)
|
|
'------------------------------------------------------------------------------------------
|
|
|
|
End If
|
|
Catch ex As Exception
|
|
MsgBox("Fehler beim Öffnen des Mail-Programmes." & ex.Message & ex.StackTrace)
|
|
'Process.Start(a)
|
|
End Try
|
|
|
|
Else
|
|
If RECHNUNG.Status <> 0 OrElse vbYes = MsgBox("Möchten Sie das PDF als Mail-Anhang erstellen?" & vbNewLine & "Es wird eine Rechnungsnummer vergeben, die Rechnung gilt somit als gedruckt und kann nicht mehr bearbeitet werden.", vbYesNoCancel) Then
|
|
|
|
Try
|
|
Dim outl As New Outlook.Application
|
|
Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
|
|
Mail = outl.CreateItem(0)
|
|
Mail.Subject = txtSubject.Text
|
|
|
|
|
|
Dim TextHTML = "<div style=""font-family:Calibri, Arial"">" & RichTextBox.Text.Replace(ControlChars.Lf, "<br>") & cFakturierung.getSignature(RECHNUNG) & "</div>"
|
|
|
|
Mail.HTMLBody = TextHTML
|
|
|
|
'Mail-Adressen eintragen
|
|
'-----------------------------------------------------------------
|
|
For Each r In dgvEmail.Rows
|
|
If r.cells(0).value <> "" Then Mail.To &= r.cells(0).value & ";"
|
|
Next
|
|
For Each r In dgvEmailCC.Rows
|
|
If r.cells(0).value <> "" Then Mail.CC &= r.cells(0).value & ";"
|
|
Next
|
|
For Each r In dgvEmailBCC.Rows
|
|
If r.cells(0).value <> "" Then Mail.BCC &= r.cells(0).value & ";"
|
|
Next
|
|
|
|
'Rechnung erstellen:
|
|
'-----------------------------------------------------------------
|
|
Dim pathRG = ""
|
|
If Not cFakturierung.doRechnungsDruck(RECHNUNG,,, 4, pathRG,, cbxOriginalPrint.Checked) Then
|
|
Exit Sub
|
|
End If
|
|
RechnungsNr = RECHNUNG.RechnungsNr
|
|
|
|
If pathRG <> "" Then ATTACHMENTS.Add(New cFakt_MailATTach(pathRG, "Rechnung.pdf"))
|
|
Mail.HTMLBody = Mail.HTMLBody.Replace("%RgNr%", RECHNUNG.RechnungsNr)
|
|
Mail.Subject = Mail.Subject.Replace("%RgNr%", RECHNUNG.RechnungsNr)
|
|
'-----------------------------------------------------------------
|
|
|
|
'Steuerbescheid/VDB anfügen
|
|
'-----------------------------------------------------------------
|
|
getAnhaengeSingle()
|
|
'-----------------------------------------------------------------
|
|
|
|
'Anhang an Mail anfügen
|
|
'-----------------------------------------------------------------
|
|
addAttachments(Mail, RECHNUNG.RechnungsNr, cbxMergePDF.Checked)
|
|
'-----------------------------------------------------------------
|
|
|
|
Mail.Display()
|
|
|
|
'------------------------------------------------------------------------------------------
|
|
' STB /FA
|
|
send_StbFAMail(RECHNUNG.RechnungsKundenNr)
|
|
'------------------------------------------------------------------------------------------
|
|
|
|
Catch ex As Exception
|
|
MsgBox("Fehler beim Öffnen des Mail-Programmes." & ex.Message & ex.StackTrace)
|
|
'Process.Start(a)
|
|
End Try
|
|
|
|
End If
|
|
End If
|
|
RichTextBox.Text = RichTextBox.Text.Replace("%RgNr%", RechnungsNr)
|
|
txtSubject.Text = txtSubject.Text.Replace("%RgNr%", RechnungsNr)
|
|
|
|
ATTACHMENTS.Clear()
|
|
|
|
|
|
End Sub
|
|
|
|
|
|
Sub send_StbFAMail(KundenNr)
|
|
Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(KundenNr)
|
|
Dim KD As New VERAG_PROG_ALLGEMEIN.cKunde(KundenNr)
|
|
|
|
If cbxSteuerberaterEmail.Checked Or cbxFAEmail.Checked Then
|
|
|
|
Dim outl As New Outlook.Application
|
|
Dim Mail_StbFA As Microsoft.Office.Interop.Outlook.MailItem
|
|
Mail_StbFA = outl.CreateItem(0)
|
|
Mail_StbFA.Subject = txtSubject.Text
|
|
|
|
|
|
Dim TextHTML = "<div style=""font-family:Calibri, Arial"">"
|
|
|
|
TextHTML &= "<b><table style=""font-family:Calibri, Arial;font-weight:bold"">"
|
|
TextHTML &= "<tr><td>EORI-Nr.:</td><td>" & If(KD.EORITIN, "") & "</td></tr>"
|
|
TextHTML &= "<tr><td>UID-Nr.:</td><td>" & If(AD.UstIdKz, "") & If(AD.UstIdNr, "") & "</td></tr>"
|
|
TextHTML &= "<tr><td>Firma:</td><td>" & If(AD.Name_1, "") & If(AD.Name_2, "") & "</td></tr>"
|
|
TextHTML &= "<tr><td></td><td>" & If(AD.Straße, "") & "</td></tr>"
|
|
TextHTML &= "<tr><td></td><td>" & If(AD.LandKz, "") & " " & If(AD.PLZ, "") & " " & If(AD.Ort, "") & "</td></tr>"
|
|
TextHTML &= "</table></b>"
|
|
TextHTML &= "<br>"
|
|
TextHTML &= "<br>"
|
|
TextHTML &= "Sehr geehrte Damen & Herren!" & "<br>"
|
|
TextHTML &= "<br>"
|
|
TextHTML &= "Wir teilen Ihnen mit, dass wir für oben genanntes Unternehmen eine Zollabfertigung mit anschließender" & "<br>"
|
|
TextHTML &= "innergemeinschaftlicher Lieferung (Verfahren 4200) lt. beiliegenden Unterlagen durchgeführt haben." & "<br>"
|
|
TextHTML &= "<br>"
|
|
TextHTML &= "Dies muss dem Finanzamt als ""innergemeinschaftlicher Erwerb"" gemeldet werden." & "<br>"
|
|
TextHTML &= "<br><br>"
|
|
TextHTML &= "Freundliche Grüße"
|
|
TextHTML &= "<br><br>"
|
|
|
|
|
|
TextHTML &= cFakturierung.getSignature(AD.LandKz, Firma_ID)
|
|
TextHTML &= "</div>"
|
|
|
|
Mail_StbFA.HTMLBody = TextHTML
|
|
Mail_StbFA.Subject = "Meldung innergemeinschaftlicher Erwerb - " & AD.Ordnungsbegriff
|
|
|
|
If txtSteuerberaterEmail.Text <> "" Then
|
|
Mail_StbFA.To = txtSteuerberaterEmail.Text
|
|
Mail_StbFA.CC = txtFAEmail.Text
|
|
Else
|
|
Mail_StbFA.To = txtFAEmail.Text
|
|
End If
|
|
|
|
'-----------------------------------------------------------------
|
|
'Steuerbescheid anfügen
|
|
'-----------------------------------------------------------------
|
|
getAnhaenge(False)
|
|
|
|
'Anhang an Mail anfügen
|
|
'-----------------------------------------------------------------
|
|
addAttachments(Mail_StbFA, RECHNUNG.RechnungsNr, cbxMergePDF.Checked)
|
|
'-----------------------------------------------------------------
|
|
|
|
Mail_StbFA.Display()
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Sub getAnhaenge(Optional vbd As Boolean = True)
|
|
|
|
ATTACHMENTS.Clear()
|
|
For Each r As DataGridViewRow In MyDatagridview1.Rows
|
|
Dim bez = r.Cells(0).Value.replace("/", "-")
|
|
If cbxStbMitt.Checked Then 'AT
|
|
If cbxStbMitt.Checked And IsNumeric(r.Cells("clmnMitt_docID").Value) Then ATTACHMENTS.Add(New cFakt_MailATTach(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(r.Cells("clmnMitt_docID").Value), bez & "_Abgabenbescheid.pdf"))
|
|
If cbxStb.Checked And IsNumeric(r.Cells("clmnStb_docID").Value) Then ATTACHMENTS.Add(New cFakt_MailATTach(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(r.Cells("clmnStb_docID").Value), bez & "_Verzollungsnachweis.pdf"))
|
|
Else 'DE
|
|
If cbxStb.Checked And IsNumeric(r.Cells("clmnStb_docID").Value) Then ATTACHMENTS.Add(New cFakt_MailATTach(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(r.Cells("clmnStb_docID").Value), bez & "_Steuerbescheid.pdf"))
|
|
End If
|
|
If vbd Then
|
|
If cbxVBD.Checked And IsNumeric(r.Cells("clmnVBD_docID").Value) Then ATTACHMENTS.Add(New cFakt_MailATTach(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(r.Cells("clmnVBD_docID").Value), bez & "_Versandschein.pdf"))
|
|
End If
|
|
Next
|
|
End Sub
|
|
Sub getAnhaengeSingle()
|
|
ATTACHMENTS.Clear()
|
|
If cbxStbMitt.Checked Then 'AT
|
|
If cbxStbMitt.Checked Then ATTACHMENTS.Add(New cFakt_MailATTach(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(SPEDBUCH.DokumentId_Mitteilung), "Abgabenbescheid.pdf"))
|
|
If cbxStb.Checked Then ATTACHMENTS.Add(New cFakt_MailATTach(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(SPEDBUCH.DokumentId_Steuerbeleg), "Verzollungsnachweis.pdf"))
|
|
Else 'DE
|
|
If cbxStb.Checked Then ATTACHMENTS.Add(New cFakt_MailATTach(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(SPEDBUCH.DokumentId_Steuerbeleg), "Steuerbescheid.pdf"))
|
|
End If
|
|
If cbxVBD.Checked Then ATTACHMENTS.Add(New cFakt_MailATTach(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(SPEDBUCH.DokumentId_VBD), "Versandschein.pdf"))
|
|
|
|
End Sub
|
|
|
|
|
|
|
|
Sub addAttachments(ByRef Mail As Microsoft.Office.Interop.Outlook.MailItem, RgNr As Integer, MergePDF As Boolean)
|
|
If ATTACHMENTS.Count = 0 Then Exit Sub
|
|
|
|
If MergePDF And ATTACHMENTS.Count > 1 Then
|
|
Dim extension = ".pdf"
|
|
Dim zielPfadZusammenfassung = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("Rechnungs_Anhänge_" & RgNr & extension, extension,, False, "Zusammenfassung")
|
|
|
|
Dim myList As New List(Of String)
|
|
For Each a In ATTACHMENTS : myList.Add(a.Pfad) : Next
|
|
|
|
If FormularManagerNEU.MergePdfFiles(myList, zielPfadZusammenfassung) Then
|
|
ATTACHMENTS.Clear() : ATTACHMENTS.Add(New cFakt_MailATTach(zielPfadZusammenfassung, "")) ' überscheiben
|
|
End If
|
|
End If
|
|
'Anhang an Mail anfügen
|
|
'-----------------------------------------------------------------
|
|
For Each a In ATTACHMENTS
|
|
Mail.Attachments.Add(a.Pfad, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , a.MailName)
|
|
Next
|
|
'-----------------------------------------------------------------
|
|
|
|
|
|
End Sub
|
|
|
|
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
|
setMailText("DE")
|
|
End Sub
|
|
|
|
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
|
|
setMailText("TR")
|
|
End Sub
|
|
|
|
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
|
|
setMailText("EN")
|
|
End Sub
|
|
|
|
Private Sub lkl_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lkl.LinkClicked
|
|
dgvEmail.Rows.Add(lkl.Tag)
|
|
End Sub
|
|
|
|
|
|
Private Sub dgvEmail_SelectionChanged(sender As Object, e As EventArgs) Handles dgvEmail.Leave, dgvEmailCC.Leave, dgvEmailBCC.Leave
|
|
sender.ClearSelection()
|
|
End Sub
|
|
|
|
|
|
Sub initList()
|
|
MyDatagridview1.Rows.Clear()
|
|
|
|
If SR_DT Is Nothing Then Exit Sub
|
|
If SR_DT.Rows.Count = 0 Then Exit Sub
|
|
|
|
For Each r In SR_DT.Rows
|
|
|
|
Dim SPEDBUCH As New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch(r("FilialenNr"), r("AbfertigungsNr"), r("SpeditionsbuchUnterNr"))
|
|
initRowSpedbuch(SPEDBUCH)
|
|
Next
|
|
End Sub
|
|
|
|
|
|
Sub initRowSpedbuch(SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch)
|
|
MyDatagridview1.Rows.Add(SPEDBUCH.FilialenNr & "-" & SPEDBUCH.AbfertigungsNr & "-" & SPEDBUCH.UnterNr, If(SPEDBUCH.DokumentId_Steuerbeleg, ""), If(SPEDBUCH.DokumentId_Mitteilung, ""), If(SPEDBUCH.DokumentId_VBD, ""), (SPEDBUCH.DokumentId_Steuerbeleg IsNot Nothing AndAlso IsNumeric(SPEDBUCH.DokumentId_Steuerbeleg)), (SPEDBUCH.DokumentId_Mitteilung IsNot Nothing AndAlso IsNumeric(SPEDBUCH.DokumentId_Mitteilung)), (SPEDBUCH.DokumentId_VBD IsNot Nothing AndAlso IsNumeric(SPEDBUCH.DokumentId_VBD)))
|
|
End Sub
|
|
|
|
Private Sub lblKunde_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lblKunde.LinkClicked
|
|
FUNC.showKd(KdNr)
|
|
End Sub
|
|
|
|
Private Sub MyDatagridview1_CellContentDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles MyDatagridview1.CellContentDoubleClick
|
|
Dim docID = ""
|
|
Select Case MyDatagridview1.Columns(e.ColumnIndex).Name
|
|
Case "clmnStb" : If MyDatagridview1.Rows(e.RowIndex).Cells(e.ColumnIndex).Value Then docID = MyDatagridview1.Rows(e.RowIndex).Cells("clmnStb_docID").Value
|
|
Case "mnMitt" : If MyDatagridview1.Rows(e.RowIndex).Cells(e.ColumnIndex).Value Then docID = MyDatagridview1.Rows(e.RowIndex).Cells("clmnMitt_docID").Value
|
|
Case "clmnVBD" : If MyDatagridview1.Rows(e.RowIndex).Cells(e.ColumnIndex).Value Then docID = MyDatagridview1.Rows(e.RowIndex).Cells("clmnVBD_docID").Value
|
|
End Select
|
|
|
|
If docID <> "" Then
|
|
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(docID)
|
|
DS.OPEN_SINGLE()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub cbxSteuerberaterEmail_CheckedChanged(sender As Object, e As EventArgs) Handles cbxSteuerberaterEmail.CheckedChanged
|
|
txtSteuerberaterEmail.Enabled = sender.checked
|
|
End Sub
|
|
|
|
Private Sub cbxFAEmail_CheckedChanged(sender As Object, e As EventArgs) Handles cbxFAEmail.CheckedChanged
|
|
txtFAEmail.Enabled = sender.checked
|
|
End Sub
|
|
End Class
|
|
|
|
|
|
Public Class cFakt_MailATTach
|
|
Property Pfad
|
|
Property MailName
|
|
Sub New(pfad, MailName)
|
|
Me.Pfad = pfad
|
|
Me.MailName = MailName
|
|
End Sub
|
|
End Class
|
|
|
|
|
|
Public Class cFakt_SR_List
|
|
Dim RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang
|
|
Dim SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch
|
|
Sub New(RECHNUNG, SPEDBUCH)
|
|
Me.RECHNUNG = RECHNUNG
|
|
Me.SPEDBUCH = SPEDBUCH
|
|
End Sub
|
|
End Class
|