BH, Kundenkontakte, MD;
This commit is contained in:
@@ -1,5 +1,7 @@
|
||||
Imports System.DirectoryServices.ActiveDirectory
|
||||
Imports com.sun.org.apache.xerces.internal.xs
|
||||
Imports com.sun.tools.corba.se.idl.constExpr
|
||||
Imports Microsoft.Office.Interop
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
|
||||
Public Class frmGoMautBoxen
|
||||
@@ -41,7 +43,7 @@ Public Class frmGoMautBoxen
|
||||
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
||||
|
||||
End Sub
|
||||
Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
|
||||
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click, btn.Click
|
||||
|
||||
lblWarning.Text = ""
|
||||
|
||||
@@ -58,6 +60,7 @@ Public Class frmGoMautBoxen
|
||||
|
||||
If rbAP.Checked And txtbishAbrp.Text = "" Then
|
||||
lblWarning.Text = "Bitte bisherigen Abrechnungspartner eingeben."
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
|
||||
@@ -73,38 +76,13 @@ Public Class frmGoMautBoxen
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
If rbPostPay.Checked Then
|
||||
' "rpt_GO_BOX_Umstellung_Vertragsart"
|
||||
ElseIf rbAP.Checked Then
|
||||
' ' "rpt_GO_BOX_Umstellung_Vertragspartner"
|
||||
End If
|
||||
genMausboxenFormular(dgvLKW, sender)
|
||||
|
||||
btnOK.DialogResult = DialogResult.OK
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
'txtKennzeichen.Text = txtKennzeichen.Text.ToUpper.Trim
|
||||
'txtNationalitaet.Text = txtNationalitaet.Text.ToUpper
|
||||
'Label5.ForeColor = Color.Black
|
||||
'lblErfassung.ForeColor = Color.Black
|
||||
'If KdSearchBox1.KdNr < 0 Then Label5.ForeColor = Color.Red : Me.DialogResult = Windows.Forms.DialogResult.None : Exit Sub
|
||||
'If txtKennzeichen.Text = "" Then lblErfassung.ForeColor = Color.Red : Me.DialogResult = Windows.Forms.DialogResult.None : Exit Sub
|
||||
|
||||
'If s.updateBinding Then
|
||||
' Dim SQL As New SQL
|
||||
' If oldkfz <> txtKennzeichen.Text Then
|
||||
' VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.REMANE_FOLDER_KDNR(New VERAG_PROG_ALLGEMEIN.cDatenserver_Change_Value("DOKUMENTE", "MDM", kundenNr, oldkfz, Nothing, Nothing),
|
||||
' New VERAG_PROG_ALLGEMEIN.cDatenserver_Change_Value("DOKUMENTE", "MDM", kundenNr, txtKennzeichen.Text, Nothing, Nothing))
|
||||
' SQL.doSQL("UPDATE SDL SET KfzKennzeichen= '" & txtKennzeichen.Text & "' WHERE KundenNr='" & kundenNr & "' AND KfzKennzeichen='" & oldkfz & "'", "SDL", True)
|
||||
' SQL.doSQL("UPDATE [Kartenpool] SET KfzKennzeichen= '" & txtKennzeichen.Text & "' WHERE KundenNr='" & kundenNr & "' AND KfzKennzeichen='" & oldkfz & "'", "SDL", True)
|
||||
' End If
|
||||
' Me.Close()
|
||||
'End If
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
|
||||
Sub initdgv()
|
||||
Try
|
||||
|
||||
@@ -138,49 +116,15 @@ Public Class frmGoMautBoxen
|
||||
End Try
|
||||
|
||||
|
||||
If addnew Then newEntry() 'NEUER EINTRAG!
|
||||
ready = True
|
||||
End Sub
|
||||
|
||||
Public Sub newEntry()
|
||||
' s.updateBinding()
|
||||
Dim row = s.bindingdataTable.NewRow()
|
||||
row.Item("KundenNr") = kundenNr
|
||||
row.Item("KfzKennzeichen") = ""
|
||||
s.bindingdataTable.Rows.Add(row)
|
||||
|
||||
s.bindingSource.MoveLast()
|
||||
'If save Then updateBinding()
|
||||
lblAenderung.Text = Now.ToString("dd.MM.yyyy HH:mm")
|
||||
lblSachbearb.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
|
||||
If kundenNr < 0 Then KdSearchBox1.Enabled = True
|
||||
End Sub
|
||||
|
||||
Sub BindingTableColumnChanged(sender As Object, e As System.Data.DataColumnChangeEventArgs)
|
||||
If ready Then
|
||||
lblSachbearb.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
|
||||
lblAenderung.Text = Now.ToString("dd.MM.yyyy HH:mm")
|
||||
changed = True
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub btnAbbrechen_Click(sender As Object, e As EventArgs) Handles btnAbbrechen.Click ', Me.FormClosing
|
||||
If changed Then
|
||||
Select Case MsgBox("Änderungen speichern", vbYesNoCancel)
|
||||
Case vbYes : Me.DialogResult = Windows.Forms.DialogResult.None : btnOK.PerformClick()
|
||||
Case vbNo : Me.Close()
|
||||
Case vbCancel : Me.DialogResult = Windows.Forms.DialogResult.None
|
||||
End Select
|
||||
Else
|
||||
Me.Close()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub frmLKWDetails_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
|
||||
If e.KeyCode = Keys.Return Then
|
||||
btnOK.PerformClick()
|
||||
End If
|
||||
Me.Close()
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub frmLKWDetails_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
@@ -215,7 +159,7 @@ Public Class frmGoMautBoxen
|
||||
|
||||
|
||||
If adresse IsNot Nothing Then
|
||||
|
||||
kundenNr = adresse.AdressenNr
|
||||
txtName.Text = If(adresse.Name_1, "") & If(adresse.Name_2, "")
|
||||
txtStrasse.Text = If(adresse.Straße, "")
|
||||
txtOrt.Text = If(adresse.Ort, "")
|
||||
@@ -239,6 +183,7 @@ Public Class frmGoMautBoxen
|
||||
Dim KD = KdSearchBox1.KdData_KUNDE
|
||||
Dim KDERW = KdSearchBox1.KdData_KUNDE_ERW
|
||||
|
||||
kundenNr = AD.AdressenNr
|
||||
txtName.Text = If(AD.Name_1, "") & If(AD.Name_2, "")
|
||||
txtStrasse.Text = If(AD.Straße, "")
|
||||
txtOrt.Text = If(AD.Ort, "")
|
||||
@@ -246,6 +191,8 @@ Public Class frmGoMautBoxen
|
||||
cbxLandKz.changeItem(If(AD.LandKz, ""))
|
||||
txtAnsprechpartnerAnrede.Text = AD.Anrede
|
||||
txtAnsprechpartner.Text = AD.Ansprechpartner
|
||||
txtFax.Text = (If(AD.Telefax, ""))
|
||||
txtEmail.Text = (If(AD.E_Mail, ""))
|
||||
|
||||
initdgv()
|
||||
|
||||
@@ -280,4 +227,140 @@ Public Class frmGoMautBoxen
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Public Function genMausboxenFormular(dgv As DataGridView, sender As Object, Optional PrinterName As String = "", Optional ByRef pfadWord As String = "", Optional printReportElsePDF As Boolean = False, Optional openWord As Boolean = False) As Microsoft.Office.Interop.Word.Document
|
||||
|
||||
|
||||
Dim odoc As Microsoft.Office.Interop.Word.Document = Nothing
|
||||
|
||||
Try
|
||||
pfadWord = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\GOBOX_UMSTELLUNG.dotx"
|
||||
|
||||
Dim oWord As New Microsoft.Office.Interop.Word.Application
|
||||
Dim FIRMA As New VERAG_PROG_ALLGEMEIN.cFirmen(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA_ID)
|
||||
|
||||
|
||||
Dim cGenWord As New cGenWord
|
||||
|
||||
odoc = cGenWord.openWord(pfadWord, False, oWord)
|
||||
Dim oTable As Word.Table
|
||||
|
||||
'odoc.FormFields("Adresse1").Range.Text = kunde.Name_1 & " " & kunde.Name_2
|
||||
'odoc.FormFields("Adresse2").Range.Text = kunde.Straße
|
||||
'odoc.FormFields("Adresse3").Range.Text = kunde.LandKz & " " & kunde.PLZ & " " & kunde.Ort
|
||||
'' odoc.FormFields("KdNrVERAG").Range.Text = KUNDE.KundenNr
|
||||
'' odoc.FormFields("KdNrMST").Range.Text = PartnerKdNrFromFMZOLL.MSEKundenNr
|
||||
'odoc.FormFields("Sachbearbeiter").Range.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
|
||||
'odoc.FormFields("Datum").Range.Text = Now.ToShortDateString
|
||||
'odoc.FormFields("KundenNr").Range.Text = kunde.AdressenNr
|
||||
'odoc.FormFields("AuftragsNr").Range.Text = AuftragsNr.ToString("000000.##")
|
||||
|
||||
Dim textArt As String = ""
|
||||
If rbPostPay.Checked Then
|
||||
textArt = "hiermit beantragen wir die Umstellung unserer Pre-Pay GO-Box(en) auf Post-Pay." & vbNewLine & "Dies betrifft das/die folgende(n) Fahrzeug(e):"
|
||||
ElseIf rbAP.Checked Then
|
||||
textArt = "hiermit beantragen wir die Änderung des Abrechnungspartners unserer Post-Pay-GO-Boxen von " & txtbishAbrp.Text & " auf Verag." & vbNewLine & "Dies betrifft die folgenden Fahrzeuge:"
|
||||
End If
|
||||
|
||||
|
||||
Dim txtEnde As String = ""
|
||||
|
||||
If rbPostPay.Checked Then
|
||||
txtEnde = "Hiermit bestätige Ich, dass:" & vbNewLine &
|
||||
"• die Änderungen in der Reihenfolge des Eintreffens bei ASFINAG laufend bearbeitet werden." & vbNewLine &
|
||||
"• die Umstellung genau zu einem Stichtag von ASFINAG nicht zugesichert werden kann." & vbNewLine &
|
||||
"• die Änderung der Vertragsart von Pre- auf Post-Pay erst nach erfolgter Aktualisierung der in der/den GO-Box(en) gespeicherten Daten an einer GO-Vertriebsstelle wirksam wird."
|
||||
|
||||
ElseIf rbAP.Checked Then
|
||||
txtEnde = "Weitere Fahrzeuge habe ich in einer zusätzlichen Liste beigefügt." & vbNewLine &
|
||||
"Ich nehme zur Kenntnis, dass die Änderungen nach Eintreffen bei ASFINAG laufend bearbeitet werden." & vbNewLine &
|
||||
"Die Umstellung genau zu einem Stichtag ist von ASFINAG nicht zugesichert."
|
||||
End If
|
||||
|
||||
|
||||
Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
|
||||
For Each item In odoc.FormFields
|
||||
|
||||
Dim fieldName = item.Name.ToLower().Trim()
|
||||
|
||||
Select Case fieldName
|
||||
Case "adresse1" : odoc.FormFields(fieldName).Range.Text = txtName.Text
|
||||
Case "adresse2" : odoc.FormFields(fieldName).Range.Text = txtAnsprechpartnerAnrede.Text & " " & txtAnsprechpartner.Text
|
||||
Case "adresse3" : odoc.FormFields(fieldName).Range.Text = txtStrasse.Text
|
||||
Case "adresse4" : odoc.FormFields(fieldName).Range.Text = cbxLandKz._value & " " & txtPlz.Text & " " & txtOrt.Text
|
||||
Case "adresse5" : odoc.FormFields(fieldName).Range.Text = txtEmail.Text
|
||||
Case "adresse6" : odoc.FormFields(fieldName).Range.Text = txtFax.Text
|
||||
Case "sachbearbeiter" : odoc.FormFields(fieldName).Range.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
|
||||
Case "datum" : odoc.FormFields(fieldName).Range.Text = Now.ToShortDateString
|
||||
Case "kundennr" : odoc.FormFields(fieldName).Range.Text = IIf(kundenNr > 0, kundenNr, KdSearchBox1.KdNr_value)
|
||||
Case "kartennr" : odoc.FormFields(fieldName).Range.Text = cbxKK.SelectedValue
|
||||
Case "art" : odoc.FormFields(fieldName).Range.Text = IIf(rbPostPay.Checked, rbPostPay.Text, rbAP.Text)
|
||||
Case "typ_text" : odoc.FormFields(fieldName).Range.Text = textArt
|
||||
Case "ende" : odoc.FormFields(fieldName).Range.Text = txtEnde
|
||||
|
||||
End Select
|
||||
|
||||
Next
|
||||
|
||||
If True Then
|
||||
|
||||
|
||||
If odoc.Range.Bookmarks.Exists("TabelleKarten") Then
|
||||
If odoc.Bookmarks("TabelleKarten").Range.Tables.Count > 0 Then
|
||||
oTable = odoc.Bookmarks("TabelleKarten").Range.Tables(1)
|
||||
Dim i = 1
|
||||
Dim kfzTmp = ""
|
||||
For Each r As DataGridViewRow In dgvLKW.Rows
|
||||
If r.Cells(0).Value <> "" And r.Cells(1).Value <> "" Then
|
||||
oTable.Rows(i + 1).Cells(1).Range.Text = r.Cells(0).Value
|
||||
oTable.Rows(i + 1).Cells(2).Range.Text = r.Cells(1).Value
|
||||
|
||||
Else
|
||||
oTable.Rows(i + 1).Cells(1).Range.Text = ""
|
||||
oTable.Rows(i + 1).Cells(2).Range.Text = ""
|
||||
End If
|
||||
|
||||
|
||||
If i < dgvLKW.Rows.Count Then oTable.Rows.Add()
|
||||
i += 1
|
||||
Next
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
odoc.Save() : odoc.Activate()
|
||||
|
||||
Dim path = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("GOBOX_UMSTELLUNG_" & kundenNr & ".pdf", ".pdf", True, False)
|
||||
odoc.SaveAs(path, Word.WdSaveFormat.wdFormatPDF)
|
||||
|
||||
|
||||
Try
|
||||
odoc.Close()
|
||||
oWord.Quit()
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
|
||||
|
||||
If sender Is Button2 Then
|
||||
Process.Start(path)
|
||||
ElseIf sender Is btn Then
|
||||
|
||||
Dim outl As New Outlook.Application
|
||||
Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
|
||||
Mail = outl.CreateItem(0)
|
||||
Mail.Attachments.Add(path, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "_Formular.pdf")
|
||||
Mail.Display()
|
||||
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
|
||||
End Function
|
||||
|
||||
End Class
|
||||
Reference in New Issue
Block a user