cbam-checkliste, Kundenuebersicht, etc.

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

@@ -22,6 +22,7 @@ Partial Class usrcntlCBAM_Checkliste
     'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
     <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
         Me.lbl = New System.Windows.Forms.Label()
         Me.Label1 = New System.Windows.Forms.Label()
         Me.btn = New System.Windows.Forms.Button()
@@ -39,6 +40,8 @@ Partial Class usrcntlCBAM_Checkliste
         Me.cboSprache = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.Label42 = New System.Windows.Forms.Label()
+        Me.cbxNeukunde = New VERAG_PROG_ALLGEMEIN.MyCheckbox(Me.components)
+        Me.CheckVatTestService1 = New VERAG_PROG_ALLGEMEIN.eu.europa.ec.checkVatTestService()
         CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
@@ -275,12 +278,32 @@ Partial Class usrcntlCBAM_Checkliste
         Me.Label42.TabIndex = 36
         Me.Label42.Text = "Firma:"
         '
+        'cbxNeukunde
+        '
+        Me.cbxNeukunde._value = ""
+        Me.cbxNeukunde.AutoSize = True
+        Me.cbxNeukunde.Checked_value = False
+        Me.cbxNeukunde.CheckedValue = False
+        Me.cbxNeukunde.Location = New System.Drawing.Point(254, 8)
+        Me.cbxNeukunde.Name = "cbxNeukunde"
+        Me.cbxNeukunde.Size = New System.Drawing.Size(76, 17)
+        Me.cbxNeukunde.TabIndex = 38
+        Me.cbxNeukunde.Text = "Neukunde"
+        Me.cbxNeukunde.UseVisualStyleBackColor = True
+        '
+        'CheckVatTestService1
+        '
+        Me.CheckVatTestService1.Credentials = Nothing
+        Me.CheckVatTestService1.Url = "http://ec.europa.eu/taxation_customs/vies/services/checkVatTestService"
+        Me.CheckVatTestService1.UseDefaultCredentials = False
+        '
         'usrcntlCBAM_Checkliste
         '
         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.cbxNeukunde)
         Me.Controls.Add(Me.cboFirma)
         Me.Controls.Add(Me.Label42)
         Me.Controls.Add(Me.Label12)
@@ -322,4 +345,6 @@ Partial Class usrcntlCBAM_Checkliste
     Friend WithEvents cboSprache As VERAG_PROG_ALLGEMEIN.MyComboBox
     Friend WithEvents cboFirma As VERAG_PROG_ALLGEMEIN.MyComboBox
     Friend WithEvents Label42 As Label
+    Friend WithEvents cbxNeukunde As VERAG_PROG_ALLGEMEIN.MyCheckbox
+    Friend WithEvents CheckVatTestService1 As VERAG_PROG_ALLGEMEIN.eu.europa.ec.checkVatTestService
 End Class

SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlCBAM_Checkliste.resx

@@ -117,4 +117,7 @@
   <resheader name="writer">
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
+  <metadata name="CheckVatTestService1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
 </root>

SDL/Formulare/KDFormulare/frmFormulare.vb

@@ -696,8 +696,6 @@ Public Class frmFormulare
                                                  End If
                                              End Sub
                         MyFlowLayoutPanel1.Controls.Add(c)
-
-
                         c.cboSprache.Items.Clear()
                         c.cboSprache.Items.Add(New MyListItem("Deutsch", "DE"))
                         c.cboSprache.Items.Add(New MyListItem("Englisch", "EN"))
@@ -991,6 +989,11 @@ Public Class frmFormulare
                         AddHandler c.DELETE, AddressOf ControlDELETE
                         AddHandler c.MOVE_UP, AddressOf ControlMoveUp
                         AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown
+
+                        If param IsNot Nothing Then
+                            c.cbxNeukunde.Checked = param(0)
+                        End If
+
                         MyFlowLayoutPanel1.Controls.Add(c)
                     End If
                 Case FormularManagerArten.CBAM_indirekt
@@ -1490,17 +1493,20 @@ Public Class frmFormulare
                     addForm(FormularManagerArten.AT_Vollmacht_EV)
                     addForm(FormularManagerArten.Verzollungspreise, {"VZ_EV"})
                     addForm(FormularManagerArten.VUB_CS)
+                    addForm(FormularManagerArten.CBAM_Checkliste, {1})
                 Case FormularVorlagenGruppe.NeukundeATFiskal
                     MyFlowLayoutPanel1.Controls.Clear()
                     addForm(FormularManagerArten.AT_Fiskal)
                     addForm(FormularManagerArten.Verzollungspreise, {"VZ_FISKAL"})
                     addForm(FormularManagerArten.VUB_CS)
                     addForm(FormularManagerArten.AT_InformationsblattFiskalverzollung)
+                    addForm(FormularManagerArten.CBAM_Checkliste, {1})
                 Case FormularVorlagenGruppe.NeukundeDE
                     MyFlowLayoutPanel1.Controls.Clear()
                     addForm(FormularManagerArten.DE_Vollmacht)
                     addForm(FormularManagerArten.Verzollungspreise)
                     addForm(FormularManagerArten.VUB_AG)
+                    addForm(FormularManagerArten.CBAM_Checkliste, {1})
                 Case FormularVorlagenGruppe.NeukundeDEFiskal
                     MyFlowLayoutPanel1.Controls.Clear()
                     addForm(FormularManagerArten.DE_Fiskal)
@@ -1508,6 +1514,7 @@ Public Class frmFormulare
                     addForm(FormularManagerArten.Verzollungspreise, {"VZ_FISKAL_DE"})
                     addForm(FormularManagerArten.VUB_AG)
                     addForm(FormularManagerArten.DE_InformationsblattFiskalverzollung)
+                    addForm(FormularManagerArten.CBAM_Checkliste, {1})
                 Case FormularVorlagenGruppe.NeukundeAT_IMEX
                     MyFlowLayoutPanel1.Controls.Clear()
                     addForm(FormularManagerArten.AT_Vollmacht_EV)
@@ -1845,14 +1852,16 @@ Public Class FormularManagerNEU
         'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatProz(usrCntl.txtCBAM_ZertAufschlag_Paket_1._value, 1), 186.5, Top + 54, 12, 6, "bold", 8, , iTextSharp.text.Element.ALIGN_LEFT, 2))
         'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_jeZertBest_Paket_1._value, True), 168, Top + 59, 25, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT, 2))
 
+        Dim Name As String = "CBAM_Checkliste"
 
+        If usrCntl.cbxNeukunde.Checked Then Name &= "_Neukunde"
 
 
         Select Case usrCntl.cboSprache._value
             Case "EN"
-                Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", usrCntl.cboFirma._value, "", "CBAM_Checkliste", listTowrite)
+                Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", usrCntl.cboFirma._value, "", Name, listTowrite)
             Case Else
-                Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", usrCntl.cboFirma._value, "", "CBAM_Checkliste", listTowrite)
+                Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", usrCntl.cboFirma._value, "", Name, listTowrite)
         End Select
         Return ""
 
@@ -2438,7 +2447,7 @@ Public Class FormularManagerNEU
             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 = ""
+                Dim docBez As String = ""
 
             docBez = "VOLLMACHT_" & usrCntl.cboLand._value