KundeBeab, Seriendruck, cKundenErw.
This commit is contained in:
@@ -1,6 +1,7 @@
|
||||
Imports Microsoft.Office.Interop
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
|
||||
|
||||
Public Class usrCntlSeriendruck
|
||||
|
||||
Dim withPrint As Boolean = False
|
||||
@@ -98,7 +99,7 @@ Public Class usrCntlSeriendruck
|
||||
frmShowData.Label2.Text = "Anzahl: " & frmShowData.DataGridView1.RowCount
|
||||
End Sub
|
||||
|
||||
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
|
||||
Private Sub Button2_Click(sender As Object, e As EventArgs)
|
||||
|
||||
|
||||
Dim von As DateTime = Now
|
||||
@@ -132,8 +133,8 @@ Public Class usrCntlSeriendruck
|
||||
|
||||
Dim sqlstr As String = "SELECT * FROM vwUStSerienbriefStNrGueltigkeitsdatum WHERE LandKz='RO' AND StNrGültigkeitsdatum BETWEEN '" & von.ToShortDateString & "' AND '" & bis.ToShortDateString & "' GROUP BY [Name 1],StraßePostfach,PLZ ORDER BY PLZ, AdressenNr "
|
||||
|
||||
WordDoc.MailMerge.OpenDataSource(Name:="", _
|
||||
Connection:="DSN=dbConn_FMZOLL;DATABASE=VERAG;uid=sa;pwd=BmWr501956;", _
|
||||
WordDoc.MailMerge.OpenDataSource(Name:="",
|
||||
Connection:="DSN=dbConn_FMZOLL;DATABASE=VERAG;uid=sa;pwd=BmWr501956;",
|
||||
SQLStatement:=sqlstr, SubType:=Microsoft.Office.Interop.Word.WdMergeSubType.wdMergeSubTypeWord2000)
|
||||
|
||||
'Provider=SQLOLEDB;Server=DEVELOPER\DEVSQL;Database=VERAG;uid=sa;Password=BmWr501956;
|
||||
@@ -198,6 +199,14 @@ Public Class usrCntlSeriendruck
|
||||
cbxErstSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("YU", "YU"))
|
||||
cbxErstSprache.SelectedIndex = 0
|
||||
txtErstattungAbfNr_neu.Focus()
|
||||
|
||||
cboErstattungsart.Items.Clear()
|
||||
cboErstattungsart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", 0))
|
||||
cboErstattungsart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("1.Gegenrechnen", 1))
|
||||
cboErstattungsart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("2.Überweisung", 2))
|
||||
cboErstattungsart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("3.Bankverbindung", 3))
|
||||
cboErstattungsart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("4.Auf Sicherheit", 4))
|
||||
|
||||
End Sub
|
||||
Public Function NurZahlen(ByVal Text As String) As Boolean
|
||||
If Text.Length = 0 Then Return False
|
||||
@@ -217,5 +226,143 @@ Public Class usrCntlSeriendruck
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
|
||||
|
||||
frmShowData.Show()
|
||||
|
||||
frmShowData.DataGridView1.DataSource = generateDTErstattungen()
|
||||
frmShowData.Label2.Text = "Anzahl: " & frmShowData.DataGridView1.RowCount
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub btnMail_Intern_Click(sender As Object, e As EventArgs) Handles btnMail_Intern.Click
|
||||
|
||||
If cboErstattungsart.SelectedIndex <> 4 Then
|
||||
MsgBox("Die Erstattungsschreiben sind aktuell nur für den Typ 4 - Auf Sicherheit verfügbar!")
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
Dim dt As New DataTable
|
||||
dt = generateDTErstattungen()
|
||||
|
||||
If dt.Rows.Count > 0 Then
|
||||
|
||||
If vbYes = MsgBox("Möchten Sie " & dt.Rows.Count & " Emails für den Versand der Erstattungsinfo für die Erstattungsart " & cboErstattungsart.SelectedText & " erstellen ?", vbYesNoCancel) Then
|
||||
|
||||
Dim listOfTextconserven As New cTextkonserve_LIST(5, "", 19)
|
||||
|
||||
For Each row In dt.Rows
|
||||
|
||||
Dim spracheMail As String = "EN" 'Defaultsprache
|
||||
|
||||
Select Case row.Item("LandKz")
|
||||
Case "HR", "SRB" : spracheMail = "SRB"
|
||||
Case "A", "AT", "D", "DE", "CH" : spracheMail = "DE"
|
||||
Case "RO" : spracheMail = "RO"
|
||||
Case Else
|
||||
spracheMail = "DE"
|
||||
End Select
|
||||
|
||||
|
||||
If listOfTextconserven.LIST.Any(Function(c) c.txt_sprache = spracheMail) Then
|
||||
|
||||
|
||||
Dim r As cTextkonserve = listOfTextconserven.LIST.Find(Function(c) c.txt_sprache = spracheMail)
|
||||
If r IsNot Nothing Then
|
||||
|
||||
Dim Mail_Subject = ""
|
||||
Dim Mail_HTMLBody = ""
|
||||
|
||||
Dim Mail_To = ""
|
||||
Dim Mail_CC = ""
|
||||
Dim Mail_BCC = ""
|
||||
|
||||
Mail_Subject = r.txt_betreff
|
||||
Dim TextHTML = ""
|
||||
TextHTML &= r.txt_text
|
||||
|
||||
Mail_Subject = Mail_Subject.Replace("%BelegNr%", row.Item("Belegnummer"))
|
||||
Mail_Subject = Mail_Subject.Replace("%Belegdatum%", row.Item("Belegdatum"))
|
||||
Mail_Subject = Mail_Subject.Replace("%Name%", row.Item("Name"))
|
||||
Mail_Subject = Mail_Subject.Replace("%AbfertigungsNr%", row.Item("AbfertigungsNr"))
|
||||
Mail_Subject = Mail_Subject.Replace("%FilialenNr%", row.Item("FilialenNr"))
|
||||
Mail_Subject = Mail_Subject.Replace("%MWST%", row.Item("MWST"))
|
||||
Mail_Subject = Mail_Subject.Replace("%Betrag%", row.Item("Betrag"))
|
||||
|
||||
TextHTML = TextHTML.Replace("%BelegNr%", row.Item("Belegnummer"))
|
||||
TextHTML = TextHTML.Replace("%Belegdatum%", row.Item("Belegdatum"))
|
||||
TextHTML = TextHTML.Replace("%Betrag%", row.Item("Betrag"))
|
||||
TextHTML = TextHTML.Replace("%Name%", row.Item("Name"))
|
||||
TextHTML = TextHTML.Replace("%AbfertigungsNr%", row.Item("AbfertigungsNr"))
|
||||
TextHTML = TextHTML.Replace("%MWST%", row.Item("MWST"))
|
||||
TextHTML = TextHTML.Replace("%FilialenNr%", row.Item("FilialenNr"))
|
||||
|
||||
Mail_HTMLBody = "<div style=""font-family:Calibri, Arial"">" & TextHTML & "</div>"
|
||||
Mail_To = VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdress(row.Item("kdNr"), "Rechnung an")
|
||||
Mail_CC = VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdressCC(row.Item("kdNr"), "Rechnung an")
|
||||
Mail_BCC = VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdressBCC(row.Item("kdNr"), "Rechnung an")
|
||||
Mail_HTMLBody &= "<br><br><br>" & cFakturierung.getSignature(row.Item("LandKz"), 19)
|
||||
|
||||
|
||||
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
|
||||
|
||||
Mail.To = Mail_To
|
||||
Mail.CC = Mail_CC
|
||||
Mail.BCC = Mail_BCC
|
||||
|
||||
Try
|
||||
'Mail.SentOnBehalfOfName = SDL.cFakturierung.getDefaultMail("AMBAR") ',"buchhaltung@verag.ag"
|
||||
Catch ex2 As Exception
|
||||
MsgBox(ex2.Message)
|
||||
End Try
|
||||
Mail.Display()
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
|
||||
Next
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Private Function generateDTErstattungen() As DataTable
|
||||
|
||||
Dim dt As New DataTable
|
||||
|
||||
If txtFiliale.Text = "" Then Return Nothing
|
||||
|
||||
Dim SQLString = "SELECT dbo.tblUStVAntrag.UStVAn_KuNr as kdNr,Rechnungsausgang.RechnungsNr as Belegnummer, cast(Rechnungsausgang.RechnungsDatum as date) as Belegdatum, CONVERT(varchar(512), dbo.tblUStVAntrag.UStVAn_Name) AS Name, CONVERT(varchar(512), ISNULL(dbo.tblUStVAntrag.UStVAn_Straße, '')) AS Straße, CONVERT(varchar(255),
|
||||
dbo.tblUStVAntrag.UStVAn_PLZ + ' ' + dbo.tblUStVAntrag.UStVAn_Ort) AS Ort, CONVERT(varchar(10), dbo.tblUStVAntrag.UStVAn_LandKz) AS LandKz, CONVERT(varchar(255),
|
||||
dbo.[Länderverzeichnis für die Außenhandelsstatistik].LandKz + ' ' + SUBSTRING(CONVERT(varchar(10), dbo.tblUStVAntrag.UStVAn_ReDatVon, 20), 6, 2) + '-' + SUBSTRING(CONVERT(varchar(10),
|
||||
dbo.tblUStVAntrag.UStVAn_ReDatBis, 20), 6, 2) + '/' + SUBSTRING(CONVERT(varchar(10), dbo.tblUStVAntrag.UStVAn_ReDatBis, 20), 1, 4)) AS MWST, dbo.Rechnungsausgang.AbfertigungsNr,
|
||||
dbo.Rechnungsausgang.FilialenNr, dbo.Rechnungsausgang.UnterNr, ABS(CONVERT(decimal(12, 2),
|
||||
dbo.Rechnungsausgang.SteuerpflichtigerGesamtbetrag + dbo.Rechnungsausgang.SteuerfreierGesamtbetrag)) AS Betrag, ISNULL(dbo.Kunden.KD_Korrespondenz, '')
|
||||
AS KorrAdresse
|
||||
FROM dbo.Rechnungsausgang
|
||||
INNER JOIN dbo.tblUStVAntrag ON dbo.Rechnungsausgang.AbfertigungsNr = dbo.tblUStVAntrag.AbfertigungsNr AND dbo.Rechnungsausgang.FilialenNr = dbo.tblUStVAntrag.FilialenNr
|
||||
INNER JOIN dbo.[Länderverzeichnis für die Außenhandelsstatistik] ON dbo.tblUStVAntrag.UStVAn_LandNr = dbo.[Länderverzeichnis für die Außenhandelsstatistik].LandNr
|
||||
INNER JOIN dbo.Kunden ON dbo.tblUStVAntrag.UStVAn_KuNr = dbo.Kunden.KundenNr
|
||||
INNER JOIN dbo.tblKundenErweitert ON dbo.tblUStVAntrag.UStVAn_KuNr = tblKundenErweitert.kde_KundenNr and ISNULL(tblKundenErweitert.kde_Erstattungsart, 0) = " & cboErstattungsart.SelectedIndex &
|
||||
" WHERE dbo.Rechnungsausgang.Rechnungsdatum between '" & datVon.Value.ToShortDateString & "' and '" & datBis.Value.ToShortDateString & "' AND dbo.Rechnungsausgang.FilialenNr = " & txtFiliale.Text & " AND Rechnungsausgang.RechnungsNr is not null"
|
||||
|
||||
|
||||
dt = (New SQL).loadDgvBySql(SQLString, "FMZOLL")
|
||||
|
||||
If dt.Rows.Count > 0 Then
|
||||
|
||||
Return dt
|
||||
End If
|
||||
|
||||
End Function
|
||||
|
||||
End Class
|
||||
|
||||
Reference in New Issue
Block a user