IDS_Anhang, VM Formulare, MDM, Asfinag, UTA, MSE, RMC
This commit is contained in:
@@ -8,8 +8,6 @@ Imports System.Reflection
|
||||
Imports System.Text.RegularExpressions
|
||||
Imports System.Windows.Documents
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
|
||||
|
||||
Public Class frmFormulare
|
||||
Dim isSingleForm = False
|
||||
Event ShownFIN()
|
||||
@@ -1812,6 +1810,7 @@ Public Class FormularManagerNEU
|
||||
Case "date_month" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(usrCntl.cbxPrintDateAndCity.Checked AndAlso IsDate(usrCntl.datDatum.Text), usrCntl.datDatum.Text.ToString.Substring(3, 2), "")))
|
||||
Case "date_year" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(usrCntl.cbxPrintDateAndCity.Checked AndAlso IsDate(usrCntl.datDatum.Text), usrCntl.datDatum.Text.ToString.Substring(6, 4), "")))
|
||||
|
||||
Case "Unterschrift1" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, "X"))
|
||||
|
||||
|
||||
End Select
|
||||
@@ -1827,10 +1826,13 @@ Public Class FormularManagerNEU
|
||||
|
||||
Next
|
||||
|
||||
If usrCntl.cboLand._value = "IT" Then
|
||||
printMultipleTimes(1, striList, fm.fillPDF_Editierbar("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", "MDM", "", "VM_NICHTEU_" & usrCntl.cboLand._value, listItem2, listTowrite,,,,,, False))
|
||||
Else
|
||||
printMultipleTimes(usrCntl.txtAnzahlAusdrucke.Text, striList, fm.fillPDF_Editierbar("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", "MDM", "", "VM_NICHTEU_" & usrCntl.cboLand._value, listItem2, listTowrite,,,,,, False))
|
||||
End If
|
||||
|
||||
|
||||
striList.Add(fm.fillPDF_Editierbar("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", "MDM", "", "VM_NICHTEU_" & usrCntl.cboLand._value, listItem2, listTowrite,,,,,, False))
|
||||
|
||||
'aktuell WORD und PDF
|
||||
|
||||
Dim odoc As Microsoft.Office.Interop.Word.Document = Nothing
|
||||
@@ -1864,8 +1866,6 @@ Public Class FormularManagerNEU
|
||||
Case "name4" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtFirma.Text
|
||||
Case "name5" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtFirma.Text
|
||||
|
||||
|
||||
|
||||
Case "address" : odoc.FormFields(fieldName).Range.Text = IIf(usrCntl.txtAdresse1.Text <> "", usrCntl.txtAdresse1.Text & ", ", "") & usrCntl.cbxLandKz._value & "-" & usrCntl.txtAdresse2.Text & " " & usrCntl.txtAdresse3.Text '
|
||||
Case "address1" : odoc.FormFields(fieldName).Range.Text = IIf(usrCntl.txtAdresse1.Text <> "", usrCntl.txtAdresse1.Text & ", ", "") & usrCntl.cbxLandKz._value & "-" & usrCntl.txtAdresse2.Text & " " & usrCntl.txtAdresse3.Text '
|
||||
Case "address2" : odoc.FormFields(fieldName).Range.Text = IIf(usrCntl.txtAdresse1.Text <> "", usrCntl.txtAdresse1.Text & ", ", "") & usrCntl.cbxLandKz._value & "-" & usrCntl.txtAdresse2.Text & " " & usrCntl.txtAdresse3.Text '
|
||||
@@ -1996,7 +1996,10 @@ Public Class FormularManagerNEU
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
If path <> "" Then striList.Add(path)
|
||||
If path <> "" Then
|
||||
printMultipleTimes(usrCntl.txtAnzahlAusdrucke.Text, striList, path)
|
||||
End If
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
@@ -2025,7 +2028,7 @@ Public Class FormularManagerNEU
|
||||
Dim FIRMA As New VERAG_PROG_ALLGEMEIN.cFirmen(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA_ID)
|
||||
Dim FIRMA_DE As New VERAG_PROG_ALLGEMEIN.cFirmen(2)
|
||||
Dim isKundeDE = IIf(usrCntl.cbxLandKz._value = "DE" Or usrCntl.cbxLandKz._value = "D", True, False)
|
||||
|
||||
Dim dtKundenBank As DataTable = (New VERAG_PROG_ALLGEMEIN.SQL).loadDgvBySql("select bnk_iban, bnk_bic, bnk_anschrift from tblBankverbindungen where bnk_archiv = 0 and bnk_hauptkonto = 0 and bnk_KundenNr = '" & usrCntl.KdNR & "'", "FMZOLL")
|
||||
Dim docBez As String = ""
|
||||
|
||||
docBez = "VOLLMACHT_" & usrCntl.cboLand._value
|
||||
@@ -2046,6 +2049,7 @@ Public Class FormularManagerNEU
|
||||
|
||||
Select Case fieldName
|
||||
Case "name" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtFirma.Text
|
||||
|
||||
Case "name_1" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtFirma.Text
|
||||
Case "name_2" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtFirma.Text
|
||||
Case "address" : odoc.FormFields(fieldName).Range.Text = IIf(usrCntl.txtAdresse1.Text <> "", usrCntl.txtAdresse1.Text & ", ", "") & usrCntl.cbxLandKz._value & "-" & usrCntl.txtAdresse2.Text & " " & usrCntl.txtAdresse3.Text
|
||||
@@ -2089,7 +2093,15 @@ Public Class FormularManagerNEU
|
||||
Case "c_bank" : odoc.FormFields(fieldName).Range.Text = IIf(Not isKundeDE, FIRMA.Firma_Bankverbindung1, FIRMA_DE.Firma_Bankverbindung1)
|
||||
Case "c_iban" : odoc.FormFields(fieldName).Range.Text = IIf(Not isKundeDE, FIRMA.Firma_IBAN1.Replace("IBAN:", ""), FIRMA_DE.Firma_IBAN1.Replace("IBAN:", ""))
|
||||
Case "c_bic" : odoc.FormFields(fieldName).Range.Text = IIf(Not isKundeDE, FIRMA.Firma_BIC1.Replace("BIC:", ""), FIRMA_DE.Firma_BIC1.Replace("BIC:", ""))
|
||||
Case "place_date" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtOrt.Text & ", " & IIf(IsDate(usrCntl.datDatum.Text), usrCntl.datDatum.Text, "")
|
||||
Case "place_date" : odoc.FormFields(fieldName).Range.Text = IIf(usrCntl.cbxPrintDateAndCity.Checked, usrCntl.txtOrt.Text & ", " & IIf(IsDate(usrCntl.datDatum.Text), usrCntl.datDatum.Text, ""), "")
|
||||
|
||||
|
||||
Case "bank" : odoc.FormFields(fieldName).Range.Text = IIf(dtKundenBank.Rows.Count = 1 AndAlso Not IsDBNull(dtKundenBank.Rows(0).Item("bnk_anschrift")), dtKundenBank.Rows(0).Item("bnk_anschrift"), "")
|
||||
Case "iban" : odoc.FormFields(fieldName).Range.Text = IIf(dtKundenBank.Rows.Count = 1 AndAlso Not IsDBNull(dtKundenBank.Rows(0).Item("bnk_iban")), dtKundenBank.Rows(0).Item("bnk_iban"), "")
|
||||
Case "bic" : odoc.FormFields(fieldName).Range.Text = IIf(dtKundenBank.Rows.Count = 1 AndAlso Not IsDBNull(dtKundenBank.Rows(0).Item("bnk_bic")), dtKundenBank.Rows(0).Item("bnk_bic"), "")
|
||||
Case "name1" : odoc.FormFields(fieldName).Range.Text = IIf(dtKundenBank.Rows.Count = 1, usrCntl.txtFirma.Text, "")
|
||||
|
||||
|
||||
|
||||
End Select
|
||||
|
||||
@@ -2117,16 +2129,15 @@ Public Class FormularManagerNEU
|
||||
Next
|
||||
Next
|
||||
|
||||
|
||||
odoc.Save() : odoc.Activate()
|
||||
|
||||
|
||||
If openWord Then
|
||||
oWord.Visible = True
|
||||
Return New List(Of String)
|
||||
ElseIf printReportElsePDF Then
|
||||
|
||||
oWord.DisplayAlerts = False
|
||||
oWord.
|
||||
oWord.PrintOut()
|
||||
Try
|
||||
oWord.Documents.Close()
|
||||
@@ -2151,7 +2162,9 @@ Public Class FormularManagerNEU
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
striList.Add(path)
|
||||
|
||||
printMultipleTimes(usrCntl.txtAnzahlAusdrucke.Text, striList, path)
|
||||
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
@@ -2162,6 +2175,18 @@ Public Class FormularManagerNEU
|
||||
|
||||
|
||||
|
||||
End Function
|
||||
|
||||
Shared Function printMultipleTimes(AnzahlAusdrucke As Integer, stringList As List(Of String), path As String) As Boolean
|
||||
|
||||
|
||||
For i As Integer = 1 To AnzahlAusdrucke
|
||||
stringList.Add(path)
|
||||
Next
|
||||
|
||||
Return True
|
||||
|
||||
|
||||
End Function
|
||||
|
||||
Shared Function VM_AT(usrCntl As usrcntlVollmacht_AT) As String
|
||||
@@ -2257,6 +2282,7 @@ Public Class FormularManagerNEU
|
||||
Return DispSendungslisteoListe(AVISO, SENDUNG_LIST,,, RechnugnAn)
|
||||
End Function
|
||||
|
||||
|
||||
Shared Function DispSendungslisteoListe(AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNGEN As List(Of VERAG_PROG_ALLGEMEIN.cSendungen), Optional printReportElsePDF As Boolean = False, Optional printername As String = "", Optional RechnugnAn As String = "AVISIERER") As String
|
||||
' Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
|
||||
Dim tmpPath = ""
|
||||
|
||||
Reference in New Issue
Block a user