IDS_Anhang, VM Formulare, MDM, Asfinag, UTA, MSE, RMC

SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_EU.Designer.vb

@@ -86,6 +86,8 @@ Partial Class usrcntlVollmacht_MDM_EU
         Me.txt_GF_vorname = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.cbxRMC = New System.Windows.Forms.CheckBox()
         Me.cbxPrintDateAndCity = New System.Windows.Forms.CheckBox()
+        Me.Label22 = New System.Windows.Forms.Label()
+        Me.txtAnzahlAusdrucke = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
@@ -196,7 +198,7 @@ Partial Class usrcntlVollmacht_MDM_EU
         'lblLand
         '
         Me.lblLand.AutoSize = True
-        Me.lblLand.Location = New System.Drawing.Point(3, 64)
+        Me.lblLand.Location = New System.Drawing.Point(3, 85)
         Me.lblLand.Name = "lblLand"
         Me.lblLand.Size = New System.Drawing.Size(49, 13)
         Me.lblLand.TabIndex = 5
@@ -590,7 +592,7 @@ Partial Class usrcntlVollmacht_MDM_EU
         Me.cboLand._allowFreiText = False
         Me.cboLand._value = ""
         Me.cboLand.FormattingEnabled = True
-        Me.cboLand.Location = New System.Drawing.Point(6, 80)
+        Me.cboLand.Location = New System.Drawing.Point(6, 101)
         Me.cboLand.Name = "cboLand"
         Me.cboLand.Size = New System.Drawing.Size(89, 21)
         Me.cboLand.TabIndex = 10
@@ -982,7 +984,7 @@ Partial Class usrcntlVollmacht_MDM_EU
         'CheckedListBox1
         '
         Me.CheckedListBox1.FormattingEnabled = True
-        Me.CheckedListBox1.Location = New System.Drawing.Point(981, 3)
+        Me.CheckedListBox1.Location = New System.Drawing.Point(978, 44)
         Me.CheckedListBox1.Name = "CheckedListBox1"
         Me.CheckedListBox1.Size = New System.Drawing.Size(126, 124)
         Me.CheckedListBox1.TabIndex = 113
@@ -1037,7 +1039,7 @@ Partial Class usrcntlVollmacht_MDM_EU
         'cbxRMC
         '
         Me.cbxRMC.AutoSize = True
-        Me.cbxRMC.Location = New System.Drawing.Point(5, 46)
+        Me.cbxRMC.Location = New System.Drawing.Point(5, 67)
         Me.cbxRMC.Name = "cbxRMC"
         Me.cbxRMC.Size = New System.Drawing.Size(50, 17)
         Me.cbxRMC.TabIndex = 147
@@ -1055,12 +1057,47 @@ Partial Class usrcntlVollmacht_MDM_EU
         Me.cbxPrintDateAndCity.TabIndex = 148
         Me.cbxPrintDateAndCity.UseVisualStyleBackColor = True
         '
+        'Label22
+        '
+        Me.Label22.AutoSize = True
+        Me.Label22.Location = New System.Drawing.Point(3, 44)
+        Me.Label22.Name = "Label22"
+        Me.Label22.Size = New System.Drawing.Size(85, 13)
+        Me.Label22.TabIndex = 149
+        Me.Label22.Text = "Anz. Ausdrucke:"
+        '
+        'txtAnzahlAusdrucke
+        '
+        Me.txtAnzahlAusdrucke._DateTimeOnly = False
+        Me.txtAnzahlAusdrucke._numbersOnly = True
+        Me.txtAnzahlAusdrucke._numbersOnlyKommastellen = ""
+        Me.txtAnzahlAusdrucke._numbersOnlyTrennzeichen = False
+        Me.txtAnzahlAusdrucke._Prozent = False
+        Me.txtAnzahlAusdrucke._ShortDateNew = False
+        Me.txtAnzahlAusdrucke._ShortDateOnly = False
+        Me.txtAnzahlAusdrucke._TimeOnly = False
+        Me.txtAnzahlAusdrucke._TimeOnly_Seconds = False
+        Me.txtAnzahlAusdrucke._value = Nothing
+        Me.txtAnzahlAusdrucke._Waehrung = False
+        Me.txtAnzahlAusdrucke._WaehrungZeichen = True
+        Me.txtAnzahlAusdrucke.ForeColor = System.Drawing.Color.Black
+        Me.txtAnzahlAusdrucke.Location = New System.Drawing.Point(94, 41)
+        Me.txtAnzahlAusdrucke.MaxLineLength = -1
+        Me.txtAnzahlAusdrucke.MaxLines_Warning = ""
+        Me.txtAnzahlAusdrucke.MaxLines_Warning_Label = Nothing
+        Me.txtAnzahlAusdrucke.Name = "txtAnzahlAusdrucke"
+        Me.txtAnzahlAusdrucke.Size = New System.Drawing.Size(32, 20)
+        Me.txtAnzahlAusdrucke.TabIndex = 150
+        Me.txtAnzahlAusdrucke.Text = "1"
+        '
         'usrcntlVollmacht_MDM_EU
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.BackColor = System.Drawing.Color.WhiteSmoke
         Me.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.Controls.Add(Me.txtAnzahlAusdrucke)
+        Me.Controls.Add(Me.Label22)
         Me.Controls.Add(Me.cbxPrintDateAndCity)
         Me.Controls.Add(Me.cbxRMC)
         Me.Controls.Add(Me.CheckedListBox1)
@@ -1196,4 +1233,6 @@ Partial Class usrcntlVollmacht_MDM_EU
     Friend WithEvents txt_GF_vorname As VERAG_PROG_ALLGEMEIN.MyTextBox
     Friend WithEvents cbxRMC As CheckBox
     Friend WithEvents cbxPrintDateAndCity As CheckBox
+    Friend WithEvents Label22 As Label
+    Friend WithEvents txtAnzahlAusdrucke As VERAG_PROG_ALLGEMEIN.MyTextBox
 End Class

SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_EU.vb

@@ -184,12 +184,21 @@ Public Class usrcntlVollmacht_MDM_EU
     End Sub
 
     Private Sub cboLand_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboLand.SelectedIndexChanged
+
         Select Case cboLand._value
 
             Case "PL"
 
-        cbxPrintDateAndCity.Checked = False
+                cbxPrintDateAndCity.Checked = False
+                txtAnzahlAusdrucke.Text = 5
 
+            Case "GB"
+                txtAnzahlAusdrucke.Text = 3
+
+            Case "AT"
+                txtAnzahlAusdrucke.Text = 2
+            Case Else
+                txtAnzahlAusdrucke.Text = 1
 
         End Select
 

SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_NICHT_EU.Designer.vb

@@ -83,6 +83,8 @@ Partial Class usrcntlVollmacht_MDM_NICHT_EU
         Me.cbxPrivatfirma = New System.Windows.Forms.CheckBox()
         Me.txt_GF_vorname = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.cbxPrintDateAndCity = New System.Windows.Forms.CheckBox()
+        Me.txtAnzahlAusdrucke = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label22 = New System.Windows.Forms.Label()
         CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
@@ -184,7 +186,7 @@ Partial Class usrcntlVollmacht_MDM_NICHT_EU
         'lblLand
         '
         Me.lblLand.AutoSize = True
-        Me.lblLand.Location = New System.Drawing.Point(3, 64)
+        Me.lblLand.Location = New System.Drawing.Point(3, 71)
         Me.lblLand.Name = "lblLand"
         Me.lblLand.Size = New System.Drawing.Size(49, 13)
         Me.lblLand.TabIndex = 5
@@ -601,7 +603,7 @@ Partial Class usrcntlVollmacht_MDM_NICHT_EU
         Me.cboLand._allowFreiText = False
         Me.cboLand._value = ""
         Me.cboLand.FormattingEnabled = True
-        Me.cboLand.Location = New System.Drawing.Point(6, 80)
+        Me.cboLand.Location = New System.Drawing.Point(6, 87)
         Me.cboLand.Name = "cboLand"
         Me.cboLand.Size = New System.Drawing.Size(89, 21)
         Me.cboLand.TabIndex = 10
@@ -1012,12 +1014,47 @@ Partial Class usrcntlVollmacht_MDM_NICHT_EU
         Me.cbxPrintDateAndCity.TabIndex = 145
         Me.cbxPrintDateAndCity.UseVisualStyleBackColor = True
         '
+        'txtAnzahlAusdrucke
+        '
+        Me.txtAnzahlAusdrucke._DateTimeOnly = False
+        Me.txtAnzahlAusdrucke._numbersOnly = True
+        Me.txtAnzahlAusdrucke._numbersOnlyKommastellen = ""
+        Me.txtAnzahlAusdrucke._numbersOnlyTrennzeichen = False
+        Me.txtAnzahlAusdrucke._Prozent = False
+        Me.txtAnzahlAusdrucke._ShortDateNew = False
+        Me.txtAnzahlAusdrucke._ShortDateOnly = False
+        Me.txtAnzahlAusdrucke._TimeOnly = False
+        Me.txtAnzahlAusdrucke._TimeOnly_Seconds = False
+        Me.txtAnzahlAusdrucke._value = ""
+        Me.txtAnzahlAusdrucke._Waehrung = False
+        Me.txtAnzahlAusdrucke._WaehrungZeichen = True
+        Me.txtAnzahlAusdrucke.ForeColor = System.Drawing.Color.Black
+        Me.txtAnzahlAusdrucke.Location = New System.Drawing.Point(94, 47)
+        Me.txtAnzahlAusdrucke.MaxLineLength = -1
+        Me.txtAnzahlAusdrucke.MaxLines_Warning = ""
+        Me.txtAnzahlAusdrucke.MaxLines_Warning_Label = Nothing
+        Me.txtAnzahlAusdrucke.Name = "txtAnzahlAusdrucke"
+        Me.txtAnzahlAusdrucke.Size = New System.Drawing.Size(27, 20)
+        Me.txtAnzahlAusdrucke.TabIndex = 152
+        Me.txtAnzahlAusdrucke.Text = "1"
+        '
+        'Label22
+        '
+        Me.Label22.AutoSize = True
+        Me.Label22.Location = New System.Drawing.Point(3, 50)
+        Me.Label22.Name = "Label22"
+        Me.Label22.Size = New System.Drawing.Size(85, 13)
+        Me.Label22.TabIndex = 151
+        Me.Label22.Text = "Anz. Ausdrucke:"
+        '
         'usrcntlVollmacht_MDM_NICHT_EU
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.BackColor = System.Drawing.Color.WhiteSmoke
         Me.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.Controls.Add(Me.txtAnzahlAusdrucke)
+        Me.Controls.Add(Me.Label22)
         Me.Controls.Add(Me.cbxPrintDateAndCity)
         Me.Controls.Add(Me.cbxPrivatfirma)
         Me.Controls.Add(Me.cbx_GF_Geburtsland)
@@ -1147,4 +1184,6 @@ Partial Class usrcntlVollmacht_MDM_NICHT_EU
     Friend WithEvents cbxPrivatfirma As CheckBox
     Friend WithEvents txt_GF_vorname As VERAG_PROG_ALLGEMEIN.MyTextBox
     Friend WithEvents cbxPrintDateAndCity As CheckBox
+    Friend WithEvents txtAnzahlAusdrucke As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label22 As Label
 End Class

SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_NICHT_EU.vb

@@ -180,16 +180,23 @@ Public Class usrcntlVollmacht_MDM_NICHT_EU
         Select Case cboLand._value
 
             Case "PL"
-
                 cbxPrintDateAndCity.Checked = False
-
-
             Case "NL"
                 privatfirma = True
             Case "HR"
                 privatfirma = True
+                txtAnzahlAusdrucke.Text = 10
+            Case "AT"
+                txtAnzahlAusdrucke.Text = 10
+            Case "LU"
+                txtAnzahlAusdrucke.Text = 5
+            Case "IT"
+                txtAnzahlAusdrucke.Text = 1
             Case Else
                 privatfirma = False
+                txtAnzahlAusdrucke.Text = 1
+
+
 
         End Select
 

SDL/Formulare/KDFormulare/frmFormulare.vb

@@ -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 = ""