From fd5916794f9352873bfc716489abacbba943606e Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Fri, 9 Aug 2024 09:51:54 +0200 Subject: [PATCH 1/3] Textkonserve, Mahnlauf und Mailvorlage. --- SDL/buchhaltung/frmBU_Mahnlauf.vb | 4 +- SDL/frmdynMailvorlage.Designer.vb | 109 +++++++++++------- SDL/frmdynMailvorlage.vb | 5 +- VERAG_PROG_ALLGEMEIN/Classes/cTextkonserve.vb | 3 +- 4 files changed, 73 insertions(+), 48 deletions(-) diff --git a/SDL/buchhaltung/frmBU_Mahnlauf.vb b/SDL/buchhaltung/frmBU_Mahnlauf.vb index d48ef696..60897c5a 100644 --- a/SDL/buchhaltung/frmBU_Mahnlauf.vb +++ b/SDL/buchhaltung/frmBU_Mahnlauf.vb @@ -512,8 +512,8 @@ Public Class frmBU_Mahnlauf End Select Mail_HTMLBody = "
" & Mail_HTMLBody & "
" Mail_To = VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdress(AD.AdressenNr, "Mahnung an") - Mail_cc = VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdressCC(AD.AdressenNr, "Mahnung an") - Mail_bcc = VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdressBCC(AD.AdressenNr, "Mahnung an") + Mail_CC = VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdressCC(AD.AdressenNr, "Mahnung an") + Mail_BCC = VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdressBCC(AD.AdressenNr, "Mahnung an") ' isnull(( SELECT TOP 1 [kkd_Email] FROM [FMZOLL\SQLFMZOLL].[VERAG].[dbo].[tblKundenKontakt] where kkd_kkaId=10 and kkd_KundenNr=i_personenkonto ) ,'') Email, 'isnull(( SELECT TOP 1 [kkd_Email] FROM [FMZOLL\SQLFMZOLL].[VERAG].[dbo].[tblKundenKontakt] where kkd_kkaId=10 and kkd_KundenNr=i_personenkonto ) ,'') Email, diff --git a/SDL/frmdynMailvorlage.Designer.vb b/SDL/frmdynMailvorlage.Designer.vb index 597f05cc..911867a5 100644 --- a/SDL/frmdynMailvorlage.Designer.vb +++ b/SDL/frmdynMailvorlage.Designer.vb @@ -24,6 +24,8 @@ Partial Class frmdynMailvorlagen Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() Me.mainPanel = New System.Windows.Forms.Panel() + Me.Label11 = New System.Windows.Forms.Label() + Me.rtb_txthtml = New System.Windows.Forms.RichTextBox() Me.cbxSendungsvermerk = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Label10 = New System.Windows.Forms.Label() Me.txtSendungsvermerk = New System.Windows.Forms.TextBox() @@ -36,7 +38,6 @@ Partial Class frmdynMailvorlagen Me.Label7 = New System.Windows.Forms.Label() Me.txtBezeichnung = New System.Windows.Forms.TextBox() Me.Label6 = New System.Windows.Forms.Label() - Me.TextBox1 = New System.Windows.Forms.TextBox() Me.txtBetreff = New System.Windows.Forms.TextBox() Me.Label5 = New System.Windows.Forms.Label() Me.cboSprache = New VERAG_PROG_ALLGEMEIN.MyComboBox() @@ -59,8 +60,9 @@ Partial Class frmdynMailvorlagen Me.Label3 = New System.Windows.Forms.Label() Me.cbxFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.dgvMailvorlagen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) - Me.Label11 = New System.Windows.Forms.Label() - Me.rtb_txthtml = New System.Windows.Forms.RichTextBox() + Me.txtfixeEmail = New System.Windows.Forms.TextBox() + Me.Label12 = New System.Windows.Forms.Label() + Me.TextBox1 = New System.Windows.Forms.TextBox() Me.mainPanel.SuspendLayout() Me.pnlTop.SuspendLayout() CType(Me.dgvMailvorlagen, System.ComponentModel.ISupportInitialize).BeginInit() @@ -71,6 +73,9 @@ Partial Class frmdynMailvorlagen Me.mainPanel.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.mainPanel.Controls.Add(Me.TextBox1) + Me.mainPanel.Controls.Add(Me.txtfixeEmail) + Me.mainPanel.Controls.Add(Me.Label12) Me.mainPanel.Controls.Add(Me.Label11) Me.mainPanel.Controls.Add(Me.rtb_txthtml) Me.mainPanel.Controls.Add(Me.cbxSendungsvermerk) @@ -85,7 +90,6 @@ Partial Class frmdynMailvorlagen Me.mainPanel.Controls.Add(Me.Label7) Me.mainPanel.Controls.Add(Me.txtBezeichnung) Me.mainPanel.Controls.Add(Me.Label6) - Me.mainPanel.Controls.Add(Me.TextBox1) Me.mainPanel.Controls.Add(Me.txtBetreff) Me.mainPanel.Controls.Add(Me.Label5) Me.mainPanel.Controls.Add(Me.cboSprache) @@ -101,6 +105,26 @@ Partial Class frmdynMailvorlagen Me.mainPanel.Size = New System.Drawing.Size(1283, 457) Me.mainPanel.TabIndex = 101 ' + 'Label11 + ' + Me.Label11.AutoSize = True + Me.Label11.Location = New System.Drawing.Point(638, 71) + Me.Label11.Name = "Label11" + Me.Label11.Size = New System.Drawing.Size(89, 13) + Me.Label11.TabIndex = 41 + Me.Label11.Text = "Email-Text-HTML" + ' + 'rtb_txthtml + ' + Me.rtb_txthtml.AcceptsTab = True + Me.rtb_txthtml.BackColor = System.Drawing.SystemColors.Window + Me.rtb_txthtml.Location = New System.Drawing.Point(641, 87) + Me.rtb_txthtml.Name = "rtb_txthtml" + Me.rtb_txthtml.ReadOnly = True + Me.rtb_txthtml.Size = New System.Drawing.Size(625, 307) + Me.rtb_txthtml.TabIndex = 40 + Me.rtb_txthtml.Text = "" + ' 'cbxSendungsvermerk ' Me.cbxSendungsvermerk._allowedValuesFreiText = Nothing @@ -156,12 +180,13 @@ Partial Class frmdynMailvorlagen ' Me.TextBox2.BackColor = System.Drawing.SystemColors.Control Me.TextBox2.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.TextBox2.Location = New System.Drawing.Point(22, 400) + Me.TextBox2.Location = New System.Drawing.Point(10, 414) Me.TextBox2.Multiline = True Me.TextBox2.Name = "TextBox2" - Me.TextBox2.Size = New System.Drawing.Size(256, 45) + Me.TextBox2.Size = New System.Drawing.Size(576, 31) Me.TextBox2.TabIndex = 34 - Me.TextBox2.Text = "* Email-Text-Variablen: " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "%VAR-GRENZE%" + Me.TextBox2.Text = "%VAR-GRENZE%, %LKW%, %LKWKennzeichen%, %Empfaenger%, %voraus-Eintreffen%, %Filial" & + "enNr%, %AbfertigungsNr%, %Absender%, %Gewicht%, %ImEx%, %Zollstelle%" ' 'btn ' @@ -222,28 +247,17 @@ Partial Class frmdynMailvorlagen Me.Label6.TabIndex = 28 Me.Label6.Text = "Bezeichnung" ' - 'TextBox1 - ' - Me.TextBox1.BackColor = System.Drawing.SystemColors.Control - Me.TextBox1.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.TextBox1.Location = New System.Drawing.Point(823, 3) - Me.TextBox1.Multiline = True - Me.TextBox1.Name = "TextBox1" - Me.TextBox1.Size = New System.Drawing.Size(110, 61) - Me.TextBox1.TabIndex = 27 - Me.TextBox1.Text = "* Betreff-Variablen: " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "%LKW%" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "%LKWKennzeichen%" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "%Empfaenger%" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) - ' 'txtBetreff ' - Me.txtBetreff.Location = New System.Drawing.Point(465, 20) + Me.txtBetreff.Location = New System.Drawing.Point(421, 21) Me.txtBetreff.Name = "txtBetreff" - Me.txtBetreff.Size = New System.Drawing.Size(290, 20) + Me.txtBetreff.Size = New System.Drawing.Size(460, 20) Me.txtBetreff.TabIndex = 26 ' 'Label5 ' Me.Label5.AutoSize = True - Me.Label5.Location = New System.Drawing.Point(462, 3) + Me.Label5.Location = New System.Drawing.Point(418, 4) Me.Label5.Name = "Label5" Me.Label5.Size = New System.Drawing.Size(42, 13) Me.Label5.TabIndex = 25 @@ -274,9 +288,9 @@ Partial Class frmdynMailvorlagen ' Me.rtb_Emailtext.AcceptsTab = True Me.rtb_Emailtext.BackColor = System.Drawing.SystemColors.Window - Me.rtb_Emailtext.Location = New System.Drawing.Point(10, 72) + Me.rtb_Emailtext.Location = New System.Drawing.Point(10, 87) Me.rtb_Emailtext.Name = "rtb_Emailtext" - Me.rtb_Emailtext.Size = New System.Drawing.Size(625, 322) + Me.rtb_Emailtext.Size = New System.Drawing.Size(625, 307) Me.rtb_Emailtext.TabIndex = 22 Me.rtb_Emailtext.Text = "" ' @@ -323,7 +337,7 @@ Partial Class frmdynMailvorlagen 'Label1 ' Me.Label1.AutoSize = True - Me.Label1.Location = New System.Drawing.Point(19, 56) + Me.Label1.Location = New System.Drawing.Point(19, 71) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(60, 13) Me.Label1.TabIndex = 1 @@ -483,27 +497,34 @@ Partial Class frmdynMailvorlagen Me.dgvMailvorlagen.Size = New System.Drawing.Size(1283, 365) Me.dgvMailvorlagen.TabIndex = 104 ' - 'Label11 + 'txtfixeEmail ' - Me.Label11.AutoSize = True - Me.Label11.Location = New System.Drawing.Point(647, 56) - Me.Label11.Name = "Label11" - Me.Label11.Size = New System.Drawing.Size(89, 13) - Me.Label11.TabIndex = 41 - Me.Label11.Text = "Email-Text-HTML" + Me.txtfixeEmail.Location = New System.Drawing.Point(136, 61) + Me.txtfixeEmail.Name = "txtfixeEmail" + Me.txtfixeEmail.Size = New System.Drawing.Size(324, 20) + Me.txtfixeEmail.TabIndex = 43 ' - 'rtb_txthtml + 'Label12 ' - Me.rtb_txthtml.AcceptsTab = True - Me.rtb_txthtml.BackColor = System.Drawing.SystemColors.Window - Me.rtb_txthtml.Location = New System.Drawing.Point(641, 72) - Me.rtb_txthtml.Name = "rtb_txthtml" - Me.rtb_txthtml.ReadOnly = True - Me.rtb_txthtml.Size = New System.Drawing.Size(625, 322) - Me.rtb_txthtml.TabIndex = 40 - Me.rtb_txthtml.Text = "" + Me.Label12.AutoSize = True + Me.Label12.Location = New System.Drawing.Point(133, 45) + Me.Label12.Name = "Label12" + Me.Label12.Size = New System.Drawing.Size(194, 13) + Me.Label12.TabIndex = 42 + Me.Label12.Text = "fixer Empfänger (mehrere mit ; getrennt):" ' - 'frmdynMailvorlage + 'TextBox1 + ' + Me.TextBox1.BackColor = System.Drawing.SystemColors.Control + Me.TextBox1.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.TextBox1.Location = New System.Drawing.Point(10, 395) + Me.TextBox1.Multiline = True + Me.TextBox1.Name = "TextBox1" + Me.TextBox1.Size = New System.Drawing.Size(109, 18) + Me.TextBox1.TabIndex = 44 + Me.TextBox1.Text = "* Text-Variablen:" + ' + 'frmdynMailvorlagen ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font @@ -513,7 +534,7 @@ Partial Class frmdynMailvorlagen Me.Controls.Add(Me.btnDelete) Me.Controls.Add(Me.pnlTop) Me.Controls.Add(Me.dgvMailvorlagen) - Me.Name = "frmdynMailvorlage" + Me.Name = "frmdynMailvorlagen" Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen Me.Text = "frmdynMailvorlage" Me.mainPanel.ResumeLayout(False) @@ -542,7 +563,6 @@ Partial Class frmdynMailvorlagen Friend WithEvents Label2 As Label Friend WithEvents rtb_Emailtext As RichTextBox Friend WithEvents Label5 As Label - Friend WithEvents TextBox1 As TextBox Friend WithEvents txtBetreff As TextBox Friend WithEvents txtBezeichnung As TextBox Friend WithEvents Label6 As Label @@ -562,4 +582,7 @@ Partial Class frmdynMailvorlagen Friend WithEvents cbSendungsvermerk As CheckBox Friend WithEvents Label11 As Label Friend WithEvents rtb_txthtml As RichTextBox + Friend WithEvents txtfixeEmail As TextBox + Friend WithEvents Label12 As Label + Friend WithEvents TextBox1 As TextBox End Class diff --git a/SDL/frmdynMailvorlage.vb b/SDL/frmdynMailvorlage.vb index 15e80ae7..38f6cb1e 100644 --- a/SDL/frmdynMailvorlage.vb +++ b/SDL/frmdynMailvorlage.vb @@ -210,10 +210,10 @@ Public Class frmdynMailvorlagen rtb_txthtml.Text = txtkonserve.txt_text cboFirmensignatur.changeItem(txtkonserve.txt_firmaSig) cbxFirmaChange.changeItem(txtkonserve.txt_FIRMA) - cbSendungsvermerk.Checked = txtkonserve.txt_sendungsvermerk cbxSendungsvermerk.changeItem(txtkonserve.txt_sendungsvermerkId) txtSendungsvermerk.Text = txtkonserve.txt_sendungsvermerkText + txtfixeEmail.Text = txtkonserve.txt_fixerEmpfaengerEmail Catch ex As Exception @@ -240,7 +240,7 @@ Public Class frmdynMailvorlagen txtKS.txt_firmaSig = cboFirmensignatur._value txtKS.txt_letzteAenderung = DateTime.Now txtKS.txt_letzteAenderungUser = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME - + txtKS.txt_fixerEmpfaengerEmail = txtfixeEmail.Text txtKS.txt_sendungsvermerk = cbSendungsvermerk.Checked If cbSendungsvermerk.Checked AndAlso cbxSendungsvermerk._value = "" Then MsgBox("SendungsvermerksID hinterlegen!") : Exit Sub @@ -346,6 +346,7 @@ Public Class frmdynMailvorlagen Dim Mail As Microsoft.Office.Interop.Outlook.MailItem Mail = outl.CreateItem(0) + If txtfixeEmail.Text <> "" Then Mail.To = txtfixeEmail.Text If rtb_Emailtext.Text <> "" AndAlso cboSprache._value <> "" Then diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cTextkonserve.vb b/VERAG_PROG_ALLGEMEIN/Classes/cTextkonserve.vb index a761c7d2..ad4d1168 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cTextkonserve.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cTextkonserve.vb @@ -70,10 +70,10 @@ Public Class cTextkonserve Property txt_dynMailvorlage As Boolean Property txt_letzteAenderungUser As String Property txt_letzteAenderung As DateTime - Property txt_sendungsvermerk As Boolean Property txt_sendungsvermerkId As Integer Property txt_sendungsvermerkText As String + Property txt_fixerEmpfaengerEmail As String @@ -118,6 +118,7 @@ Public Class cTextkonserve list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("txt_sendungsvermerk", txt_sendungsvermerk)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("txt_sendungsvermerkId", txt_sendungsvermerkId)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("txt_sendungsvermerkText", txt_sendungsvermerkText)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("txt_fixerEmpfaengerEmail", txt_fixerEmpfaengerEmail)) Return list End Function From f27c628f1511a3c6f89744605fc698ac055cd52c Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Fri, 9 Aug 2024 14:47:01 +0200 Subject: [PATCH 2/3] Vollmacht Finanzamt --- .../usrcntlVollmacht_FA.Designer.vb | 599 ++++++++++++++++++ .../usrcntlVollmacht_FA.resx | 120 ++++ .../FormulareBaukasten/usrcntlVollmacht_FA.vb | 154 +++++ SDL/Formulare/KDFormulare/frmFormulare.vb | 132 +++- SDL/SDL.vbproj | 9 + .../frmKundenUebersichtZOLL.Designer.vb | 27 +- SDL/kunden/frmKundenUebersichtZOLL.vb | 4 + 7 files changed, 1026 insertions(+), 19 deletions(-) create mode 100644 SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_FA.Designer.vb create mode 100644 SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_FA.resx create mode 100644 SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_FA.vb diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_FA.Designer.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_FA.Designer.vb new file mode 100644 index 00000000..997f8f93 --- /dev/null +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_FA.Designer.vb @@ -0,0 +1,599 @@ + +Partial Class usrcntlVollmacht_FA + Inherits System.Windows.Forms.UserControl + + 'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + + Private Sub InitializeComponent() + Me.lblVollmachtDE = New System.Windows.Forms.Label() + Me.lbl = New System.Windows.Forms.Label() + Me.Label1 = New System.Windows.Forms.Label() + Me.Label2 = New System.Windows.Forms.Label() + Me.Label3 = New System.Windows.Forms.Label() + Me.Label4 = New System.Windows.Forms.Label() + Me.Label5 = New System.Windows.Forms.Label() + Me.Label6 = New System.Windows.Forms.Label() + Me.btn = New System.Windows.Forms.Button() + Me.txtEmail = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtFax = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtTel = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtSteuerNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtUid = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtAdresse2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtAdresse1 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtFirma = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtAEO = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label11 = New System.Windows.Forms.Label() + Me.pic = New System.Windows.Forms.PictureBox() + Me.btnDown = New System.Windows.Forms.Button() + Me.btnUp = New System.Windows.Forms.Button() + Me.btnDel = New System.Windows.Forms.Button() + Me.cboSprache = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.Label12 = New System.Windows.Forms.Label() + Me.Label7 = New System.Windows.Forms.Label() + Me.cbxFA = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtFAAdresse1 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtFAAdresse2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtFAAdresse3 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label9 = New System.Windows.Forms.Label() + CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'lblVollmachtDE + ' + Me.lblVollmachtDE.AutoSize = True + Me.lblVollmachtDE.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblVollmachtDE.Location = New System.Drawing.Point(43, 9) + Me.lblVollmachtDE.Name = "lblVollmachtDE" + Me.lblVollmachtDE.Size = New System.Drawing.Size(143, 20) + Me.lblVollmachtDE.TabIndex = 1 + Me.lblVollmachtDE.Text = "VOLLMACHT FA" + ' + 'lbl + ' + Me.lbl.AutoSize = True + Me.lbl.Location = New System.Drawing.Point(177, 92) + Me.lbl.Name = "lbl" + Me.lbl.Size = New System.Drawing.Size(78, 13) + Me.lbl.TabIndex = 4 + Me.lbl.Text = "Firmenwortlaut:" + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(177, 111) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(48, 13) + Me.Label1.TabIndex = 9 + Me.Label1.Text = "Adresse:" + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Location = New System.Drawing.Point(177, 156) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(43, 13) + Me.Label2.TabIndex = 12 + Me.Label2.Text = "UID-Nr:" + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Location = New System.Drawing.Point(594, 156) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(55, 13) + Me.Label3.TabIndex = 14 + Me.Label3.Text = "Steuer-Nr:" + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.Location = New System.Drawing.Point(594, 175) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(27, 13) + Me.Label4.TabIndex = 18 + Me.Label4.Text = "Fax:" + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.Location = New System.Drawing.Point(177, 175) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(28, 13) + Me.Label5.TabIndex = 16 + Me.Label5.Text = "Tel.:" + ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.Location = New System.Drawing.Point(177, 194) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(39, 13) + Me.Label6.TabIndex = 20 + Me.Label6.Text = "E-Mail:" + ' + 'btn + ' + Me.btn.BackgroundImage = Global.SDL.My.Resources.Resources.search + Me.btn.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btn.Location = New System.Drawing.Point(944, 89) + Me.btn.Name = "btn" + Me.btn.Size = New System.Drawing.Size(26, 20) + Me.btn.TabIndex = 6 + Me.btn.UseVisualStyleBackColor = True + ' + 'txtEmail + ' + Me.txtEmail._DateTimeOnly = False + Me.txtEmail._numbersOnly = False + Me.txtEmail._numbersOnlyKommastellen = "" + Me.txtEmail._numbersOnlyTrennzeichen = True + Me.txtEmail._Prozent = False + Me.txtEmail._ShortDateNew = False + Me.txtEmail._ShortDateOnly = False + Me.txtEmail._TimeOnly = False + Me.txtEmail._TimeOnly_Seconds = False + Me.txtEmail._value = Nothing + Me.txtEmail._Waehrung = False + Me.txtEmail._WaehrungZeichen = True + Me.txtEmail.ForeColor = System.Drawing.Color.Black + Me.txtEmail.Location = New System.Drawing.Point(261, 191) + Me.txtEmail.MaxLineLength = -1 + Me.txtEmail.MaxLines_Warning = "" + Me.txtEmail.MaxLines_Warning_Label = Nothing + Me.txtEmail.Name = "txtEmail" + Me.txtEmail.Size = New System.Drawing.Size(310, 20) + Me.txtEmail.TabIndex = 21 + ' + 'txtFax + ' + Me.txtFax._DateTimeOnly = False + Me.txtFax._numbersOnly = False + Me.txtFax._numbersOnlyKommastellen = "" + Me.txtFax._numbersOnlyTrennzeichen = True + Me.txtFax._Prozent = False + Me.txtFax._ShortDateNew = False + Me.txtFax._ShortDateOnly = False + Me.txtFax._TimeOnly = False + Me.txtFax._TimeOnly_Seconds = False + Me.txtFax._value = Nothing + Me.txtFax._Waehrung = False + Me.txtFax._WaehrungZeichen = True + Me.txtFax.ForeColor = System.Drawing.Color.Black + Me.txtFax.Location = New System.Drawing.Point(660, 172) + Me.txtFax.MaxLineLength = -1 + Me.txtFax.MaxLines_Warning = "" + Me.txtFax.MaxLines_Warning_Label = Nothing + Me.txtFax.Name = "txtFax" + Me.txtFax.Size = New System.Drawing.Size(310, 20) + Me.txtFax.TabIndex = 19 + ' + 'txtTel + ' + Me.txtTel._DateTimeOnly = False + Me.txtTel._numbersOnly = False + Me.txtTel._numbersOnlyKommastellen = "" + Me.txtTel._numbersOnlyTrennzeichen = True + Me.txtTel._Prozent = False + Me.txtTel._ShortDateNew = False + Me.txtTel._ShortDateOnly = False + Me.txtTel._TimeOnly = False + Me.txtTel._TimeOnly_Seconds = False + Me.txtTel._value = Nothing + Me.txtTel._Waehrung = False + Me.txtTel._WaehrungZeichen = True + Me.txtTel.ForeColor = System.Drawing.Color.Black + Me.txtTel.Location = New System.Drawing.Point(261, 172) + Me.txtTel.MaxLineLength = -1 + Me.txtTel.MaxLines_Warning = "" + Me.txtTel.MaxLines_Warning_Label = Nothing + Me.txtTel.Name = "txtTel" + Me.txtTel.Size = New System.Drawing.Size(310, 20) + Me.txtTel.TabIndex = 17 + ' + 'txtSteuerNr + ' + Me.txtSteuerNr._DateTimeOnly = False + Me.txtSteuerNr._numbersOnly = False + Me.txtSteuerNr._numbersOnlyKommastellen = "" + Me.txtSteuerNr._numbersOnlyTrennzeichen = True + Me.txtSteuerNr._Prozent = False + Me.txtSteuerNr._ShortDateNew = False + Me.txtSteuerNr._ShortDateOnly = False + Me.txtSteuerNr._TimeOnly = False + Me.txtSteuerNr._TimeOnly_Seconds = False + Me.txtSteuerNr._value = Nothing + Me.txtSteuerNr._Waehrung = False + Me.txtSteuerNr._WaehrungZeichen = True + Me.txtSteuerNr.ForeColor = System.Drawing.Color.Black + Me.txtSteuerNr.Location = New System.Drawing.Point(660, 153) + Me.txtSteuerNr.MaxLineLength = -1 + Me.txtSteuerNr.MaxLines_Warning = "" + Me.txtSteuerNr.MaxLines_Warning_Label = Nothing + Me.txtSteuerNr.Name = "txtSteuerNr" + Me.txtSteuerNr.Size = New System.Drawing.Size(310, 20) + Me.txtSteuerNr.TabIndex = 15 + ' + 'txtUid + ' + Me.txtUid._DateTimeOnly = False + Me.txtUid._numbersOnly = False + Me.txtUid._numbersOnlyKommastellen = "" + Me.txtUid._numbersOnlyTrennzeichen = True + Me.txtUid._Prozent = False + Me.txtUid._ShortDateNew = False + Me.txtUid._ShortDateOnly = False + Me.txtUid._TimeOnly = False + Me.txtUid._TimeOnly_Seconds = False + Me.txtUid._value = Nothing + Me.txtUid._Waehrung = False + Me.txtUid._WaehrungZeichen = True + Me.txtUid.ForeColor = System.Drawing.Color.Black + Me.txtUid.Location = New System.Drawing.Point(261, 153) + Me.txtUid.MaxLineLength = -1 + Me.txtUid.MaxLines_Warning = "" + Me.txtUid.MaxLines_Warning_Label = Nothing + Me.txtUid.Name = "txtUid" + Me.txtUid.Size = New System.Drawing.Size(310, 20) + Me.txtUid.TabIndex = 13 + ' + 'txtAdresse2 + ' + Me.txtAdresse2._DateTimeOnly = False + Me.txtAdresse2._numbersOnly = False + Me.txtAdresse2._numbersOnlyKommastellen = "" + Me.txtAdresse2._numbersOnlyTrennzeichen = True + Me.txtAdresse2._Prozent = False + Me.txtAdresse2._ShortDateNew = False + Me.txtAdresse2._ShortDateOnly = False + Me.txtAdresse2._TimeOnly = False + Me.txtAdresse2._TimeOnly_Seconds = False + Me.txtAdresse2._value = Nothing + Me.txtAdresse2._Waehrung = False + Me.txtAdresse2._WaehrungZeichen = True + Me.txtAdresse2.ForeColor = System.Drawing.Color.Black + Me.txtAdresse2.Location = New System.Drawing.Point(261, 127) + Me.txtAdresse2.MaxLineLength = -1 + Me.txtAdresse2.MaxLines_Warning = "" + Me.txtAdresse2.MaxLines_Warning_Label = Nothing + Me.txtAdresse2.Name = "txtAdresse2" + Me.txtAdresse2.Size = New System.Drawing.Size(709, 20) + Me.txtAdresse2.TabIndex = 11 + ' + 'txtAdresse1 + ' + Me.txtAdresse1._DateTimeOnly = False + Me.txtAdresse1._numbersOnly = False + Me.txtAdresse1._numbersOnlyKommastellen = "" + Me.txtAdresse1._numbersOnlyTrennzeichen = True + Me.txtAdresse1._Prozent = False + Me.txtAdresse1._ShortDateNew = False + Me.txtAdresse1._ShortDateOnly = False + Me.txtAdresse1._TimeOnly = False + Me.txtAdresse1._TimeOnly_Seconds = False + Me.txtAdresse1._value = Nothing + Me.txtAdresse1._Waehrung = False + Me.txtAdresse1._WaehrungZeichen = True + Me.txtAdresse1.ForeColor = System.Drawing.Color.Black + Me.txtAdresse1.Location = New System.Drawing.Point(261, 108) + Me.txtAdresse1.MaxLineLength = -1 + Me.txtAdresse1.MaxLines_Warning = "" + Me.txtAdresse1.MaxLines_Warning_Label = Nothing + Me.txtAdresse1.Name = "txtAdresse1" + Me.txtAdresse1.Size = New System.Drawing.Size(709, 20) + Me.txtAdresse1.TabIndex = 10 + ' + 'txtFirma + ' + Me.txtFirma._DateTimeOnly = False + Me.txtFirma._numbersOnly = False + Me.txtFirma._numbersOnlyKommastellen = "" + Me.txtFirma._numbersOnlyTrennzeichen = True + Me.txtFirma._Prozent = False + Me.txtFirma._ShortDateNew = False + Me.txtFirma._ShortDateOnly = False + Me.txtFirma._TimeOnly = False + Me.txtFirma._TimeOnly_Seconds = False + Me.txtFirma._value = Nothing + Me.txtFirma._Waehrung = False + Me.txtFirma._WaehrungZeichen = True + Me.txtFirma.ForeColor = System.Drawing.Color.Black + Me.txtFirma.Location = New System.Drawing.Point(261, 89) + Me.txtFirma.MaxLineLength = -1 + Me.txtFirma.MaxLines_Warning = "" + Me.txtFirma.MaxLines_Warning_Label = Nothing + Me.txtFirma.Name = "txtFirma" + Me.txtFirma.Size = New System.Drawing.Size(684, 20) + Me.txtFirma.TabIndex = 5 + ' + 'txtAEO + ' + Me.txtAEO._DateTimeOnly = False + Me.txtAEO._numbersOnly = False + Me.txtAEO._numbersOnlyKommastellen = "" + Me.txtAEO._numbersOnlyTrennzeichen = True + Me.txtAEO._Prozent = False + Me.txtAEO._ShortDateNew = False + Me.txtAEO._ShortDateOnly = False + Me.txtAEO._TimeOnly = False + Me.txtAEO._TimeOnly_Seconds = False + Me.txtAEO._value = Nothing + Me.txtAEO._Waehrung = False + Me.txtAEO._WaehrungZeichen = True + Me.txtAEO.ForeColor = System.Drawing.Color.Black + Me.txtAEO.Location = New System.Drawing.Point(660, 191) + Me.txtAEO.MaxLineLength = -1 + Me.txtAEO.MaxLines_Warning = "" + Me.txtAEO.MaxLines_Warning_Label = Nothing + Me.txtAEO.Name = "txtAEO" + Me.txtAEO.Size = New System.Drawing.Size(310, 20) + Me.txtAEO.TabIndex = 23 + ' + 'Label11 + ' + Me.Label11.AutoSize = True + Me.Label11.Location = New System.Drawing.Point(594, 194) + Me.Label11.Name = "Label11" + Me.Label11.Size = New System.Drawing.Size(57, 13) + Me.Label11.TabIndex = 22 + Me.Label11.Text = "AEO-Zert.:" + ' + 'pic + ' + Me.pic.BackgroundImage = Global.SDL.My.Resources.Resources.pdf + Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.pic.Cursor = System.Windows.Forms.Cursors.Hand + Me.pic.Location = New System.Drawing.Point(5, 5) + Me.pic.Name = "pic" + Me.pic.Size = New System.Drawing.Size(32, 32) + Me.pic.TabIndex = 30 + Me.pic.TabStop = False + ' + 'btnDown + ' + Me.btnDown.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnDown.BackgroundImage = Global.SDL.My.Resources.Resources.pfeil_unten + Me.btnDown.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.btnDown.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnDown.Location = New System.Drawing.Point(976, 42) + Me.btnDown.Name = "btnDown" + Me.btnDown.Size = New System.Drawing.Size(25, 21) + Me.btnDown.TabIndex = 7 + Me.btnDown.UseVisualStyleBackColor = True + ' + 'btnUp + ' + Me.btnUp.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnUp.BackgroundImage = Global.SDL.My.Resources.Resources.pfeil_oben + Me.btnUp.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.btnUp.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnUp.Location = New System.Drawing.Point(976, 22) + Me.btnUp.Name = "btnUp" + Me.btnUp.Size = New System.Drawing.Size(25, 21) + Me.btnUp.TabIndex = 2 + Me.btnUp.UseVisualStyleBackColor = True + ' + 'btnDel + ' + Me.btnDel.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnDel.BackgroundImage = Global.SDL.My.Resources.Resources.del + Me.btnDel.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.btnDel.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnDel.Location = New System.Drawing.Point(976, -1) + Me.btnDel.Name = "btnDel" + Me.btnDel.Size = New System.Drawing.Size(25, 21) + Me.btnDel.TabIndex = 0 + Me.btnDel.UseVisualStyleBackColor = True + ' + 'cboSprache + ' + Me.cboSprache._allowedValuesFreiText = Nothing + Me.cboSprache._allowFreiText = False + Me.cboSprache._value = "" + Me.cboSprache.FormattingEnabled = True + Me.cboSprache.Location = New System.Drawing.Point(15, 73) + Me.cboSprache.Name = "cboSprache" + Me.cboSprache.Size = New System.Drawing.Size(89, 21) + Me.cboSprache.TabIndex = 8 + ' + 'Label12 + ' + Me.Label12.AutoSize = True + Me.Label12.Location = New System.Drawing.Point(12, 57) + Me.Label12.Name = "Label12" + Me.Label12.Size = New System.Drawing.Size(50, 13) + Me.Label12.TabIndex = 3 + Me.Label12.Text = "Sprache:" + ' + 'Label7 + ' + Me.Label7.AutoSize = True + Me.Label7.Location = New System.Drawing.Point(232, 20) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(23, 13) + Me.Label7.TabIndex = 31 + Me.Label7.Text = "FA:" + ' + 'cbxFA + ' + Me.cbxFA._allowedValuesFreiText = Nothing + Me.cbxFA._allowFreiText = False + Me.cbxFA._value = "" + Me.cbxFA.FormattingEnabled = True + Me.cbxFA.Location = New System.Drawing.Point(261, 16) + Me.cbxFA.Name = "cbxFA" + Me.cbxFA.Size = New System.Drawing.Size(154, 21) + Me.cbxFA.TabIndex = 32 + ' + 'txtFAAdresse1 + ' + Me.txtFAAdresse1._DateTimeOnly = False + Me.txtFAAdresse1._numbersOnly = False + Me.txtFAAdresse1._numbersOnlyKommastellen = "" + Me.txtFAAdresse1._numbersOnlyTrennzeichen = True + Me.txtFAAdresse1._Prozent = False + Me.txtFAAdresse1._ShortDateNew = False + Me.txtFAAdresse1._ShortDateOnly = False + Me.txtFAAdresse1._TimeOnly = False + Me.txtFAAdresse1._TimeOnly_Seconds = False + Me.txtFAAdresse1._value = Nothing + Me.txtFAAdresse1._Waehrung = False + Me.txtFAAdresse1._WaehrungZeichen = True + Me.txtFAAdresse1.ForeColor = System.Drawing.Color.Black + Me.txtFAAdresse1.Location = New System.Drawing.Point(660, 23) + Me.txtFAAdresse1.MaxLineLength = -1 + Me.txtFAAdresse1.MaxLines_Warning = "" + Me.txtFAAdresse1.MaxLines_Warning_Label = Nothing + Me.txtFAAdresse1.Name = "txtFAAdresse1" + Me.txtFAAdresse1.Size = New System.Drawing.Size(310, 20) + Me.txtFAAdresse1.TabIndex = 33 + ' + 'txtFAAdresse2 + ' + Me.txtFAAdresse2._DateTimeOnly = False + Me.txtFAAdresse2._numbersOnly = False + Me.txtFAAdresse2._numbersOnlyKommastellen = "" + Me.txtFAAdresse2._numbersOnlyTrennzeichen = True + Me.txtFAAdresse2._Prozent = False + Me.txtFAAdresse2._ShortDateNew = False + Me.txtFAAdresse2._ShortDateOnly = False + Me.txtFAAdresse2._TimeOnly = False + Me.txtFAAdresse2._TimeOnly_Seconds = False + Me.txtFAAdresse2._value = Nothing + Me.txtFAAdresse2._Waehrung = False + Me.txtFAAdresse2._WaehrungZeichen = True + Me.txtFAAdresse2.ForeColor = System.Drawing.Color.Black + Me.txtFAAdresse2.Location = New System.Drawing.Point(660, 42) + Me.txtFAAdresse2.MaxLineLength = -1 + Me.txtFAAdresse2.MaxLines_Warning = "" + Me.txtFAAdresse2.MaxLines_Warning_Label = Nothing + Me.txtFAAdresse2.Name = "txtFAAdresse2" + Me.txtFAAdresse2.Size = New System.Drawing.Size(309, 20) + Me.txtFAAdresse2.TabIndex = 34 + ' + 'txtFAAdresse3 + ' + Me.txtFAAdresse3._DateTimeOnly = False + Me.txtFAAdresse3._numbersOnly = False + Me.txtFAAdresse3._numbersOnlyKommastellen = "" + Me.txtFAAdresse3._numbersOnlyTrennzeichen = True + Me.txtFAAdresse3._Prozent = False + Me.txtFAAdresse3._ShortDateNew = False + Me.txtFAAdresse3._ShortDateOnly = False + Me.txtFAAdresse3._TimeOnly = False + Me.txtFAAdresse3._TimeOnly_Seconds = False + Me.txtFAAdresse3._value = Nothing + Me.txtFAAdresse3._Waehrung = False + Me.txtFAAdresse3._WaehrungZeichen = True + Me.txtFAAdresse3.ForeColor = System.Drawing.Color.Black + Me.txtFAAdresse3.Location = New System.Drawing.Point(660, 59) + Me.txtFAAdresse3.MaxLineLength = -1 + Me.txtFAAdresse3.MaxLines_Warning = "" + Me.txtFAAdresse3.MaxLines_Warning_Label = Nothing + Me.txtFAAdresse3.Name = "txtFAAdresse3" + Me.txtFAAdresse3.Size = New System.Drawing.Size(309, 20) + Me.txtFAAdresse3.TabIndex = 35 + ' + 'Label9 + ' + Me.Label9.AutoSize = True + Me.Label9.Location = New System.Drawing.Point(580, 23) + Me.Label9.Name = "Label9" + Me.Label9.Size = New System.Drawing.Size(64, 13) + Me.Label9.TabIndex = 37 + Me.Label9.Text = "FA-Adresse:" + ' + 'usrcntlVollmacht_FA + ' + 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.Label9) + Me.Controls.Add(Me.txtFAAdresse3) + Me.Controls.Add(Me.txtFAAdresse2) + Me.Controls.Add(Me.txtFAAdresse1) + Me.Controls.Add(Me.cbxFA) + Me.Controls.Add(Me.Label7) + Me.Controls.Add(Me.Label12) + Me.Controls.Add(Me.cboSprache) + Me.Controls.Add(Me.btnDown) + Me.Controls.Add(Me.btnUp) + Me.Controls.Add(Me.btnDel) + Me.Controls.Add(Me.pic) + Me.Controls.Add(Me.txtAEO) + Me.Controls.Add(Me.Label11) + Me.Controls.Add(Me.btn) + Me.Controls.Add(Me.txtEmail) + Me.Controls.Add(Me.Label6) + Me.Controls.Add(Me.txtFax) + Me.Controls.Add(Me.Label4) + Me.Controls.Add(Me.txtTel) + Me.Controls.Add(Me.Label5) + Me.Controls.Add(Me.txtSteuerNr) + Me.Controls.Add(Me.Label3) + Me.Controls.Add(Me.txtUid) + Me.Controls.Add(Me.Label2) + Me.Controls.Add(Me.txtAdresse2) + Me.Controls.Add(Me.txtAdresse1) + Me.Controls.Add(Me.Label1) + Me.Controls.Add(Me.txtFirma) + Me.Controls.Add(Me.lbl) + Me.Controls.Add(Me.lblVollmachtDE) + Me.Name = "usrcntlVollmacht_FA" + Me.Size = New System.Drawing.Size(1000, 251) + CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents lblVollmachtDE As System.Windows.Forms.Label + Friend WithEvents lbl As System.Windows.Forms.Label + Friend WithEvents txtFirma As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtAdresse1 As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents txtAdresse2 As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtUid As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents txtSteuerNr As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label3 As System.Windows.Forms.Label + Friend WithEvents txtFax As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label4 As System.Windows.Forms.Label + Friend WithEvents txtTel As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label5 As System.Windows.Forms.Label + Friend WithEvents txtEmail As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label6 As System.Windows.Forms.Label + Friend WithEvents btn As System.Windows.Forms.Button + Friend WithEvents txtAEO As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label11 As System.Windows.Forms.Label + Friend WithEvents pic As System.Windows.Forms.PictureBox + Friend WithEvents btnDown As System.Windows.Forms.Button + Friend WithEvents btnUp As System.Windows.Forms.Button + Friend WithEvents btnDel As System.Windows.Forms.Button + Friend WithEvents cboSprache As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents Label12 As System.Windows.Forms.Label + Friend WithEvents Label7 As Label + Friend WithEvents cbxFA As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents txtFAAdresse1 As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtFAAdresse2 As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtFAAdresse3 As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label9 As Label +End Class diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_FA.resx b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_FA.resx new file mode 100644 index 00000000..1af7de15 --- /dev/null +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_FA.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_FA.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_FA.vb new file mode 100644 index 00000000..b4f210a5 --- /dev/null +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_FA.vb @@ -0,0 +1,154 @@ +Public Class usrcntlVollmacht_FA + Implements FormualrInterface + + Public Event CHANGED(name, value) + Public Event KDNR_CHANGED(kdnr) + Public Event DELETE(c As Control) + Public Event MOVE_UP(c As Control) + Public Event MOVE_DOWN(c As Control) + + Public KdNR As Integer = -1 + Public Sub ChangeKDNr(kdnr As Integer) _ + Implements FormualrInterface.ChangeKDNr + initKdNR(kdnr) + End Sub + + 'Dim KdNR As Integer = -1 + Sub initControlsHandler() + For Each c In Me.Controls + Select Case c.GetType.ToString + Case GetType(VERAG_PROG_ALLGEMEIN.MyTextBox).ToString + AddHandler DirectCast(c, VERAG_PROG_ALLGEMEIN.MyTextBox).Leave, Sub() + RaiseEvent CHANGED(c.name, c.text) + End Sub + Case GetType(VERAG_PROG_ALLGEMEIN.MyComboBox).ToString + AddHandler DirectCast(c, VERAG_PROG_ALLGEMEIN.MyComboBox).SelectedIndexChanged, Sub() + RaiseEvent CHANGED(c.name, c._value) + End Sub + Case GetType(TextBox).ToString + AddHandler DirectCast(c, TextBox).Leave, Sub() + RaiseEvent CHANGED(c.name, c.text) + End Sub + End Select + Next + End Sub + + + Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click + Dim kdsrch As New SDL.frmKundenSuche + 'Panel1.Enabled = False + If kdsrch.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK Then + If IsNumeric(kdsrch.kundenNrSearch.Text) Then + initKdNR(kdsrch.kundenNrSearch.Text) + RaiseEvent KDNR_CHANGED(KdNR) + End If + End If + ' Panel1.Enabled = True + End Sub + + Public Sub initKdNR(KdNR) + Me.KdNR = KdNR + Dim KUNDE As New VERAG_PROG_ALLGEMEIN.cKunde(KdNR) + Dim ADRESSE As New VERAG_PROG_ALLGEMEIN.cAdressen(KdNR) + + txtFirma.Text = If(ADRESSE.Name_1, "") & If(If(ADRESSE.Name_2, "") <> "", " " & ADRESSE.Name_2, "") + txtAdresse1.Text = If(ADRESSE.Straße, "") + txtAdresse2.Text = (If(ADRESSE.LandKz, "") & " " & If(ADRESSE.PLZ, "") & " " & If(ADRESSE.Ort, "")).ToString.Trim + txtUid.Text = If(ADRESSE.UstIdKz, "") & If(ADRESSE.UstIdNr, "") + txtSteuerNr.Text = If(KUNDE.EORITIN, "") + txtTel.Text = If(ADRESSE.Telefon, "") + txtFax.Text = If(ADRESSE.Telefax, "") + txtEmail.Text = If(ADRESSE.E_Mail, "") + txtSteuerNr.Text = If(ADRESSE.Steuernummer, "") + + End Sub + + + Private Sub btnDel_Click(sender As Object, e As EventArgs) Handles btnDel.Click + RaiseEvent DELETE(Me) + End Sub + + Private Sub btnup_Click(sender As Object, e As EventArgs) Handles btnUp.Click + RaiseEvent MOVE_UP(Me) + End Sub + + Private Sub btnDown_Click(sender As Object, e As EventArgs) Handles btnDown.Click + RaiseEvent MOVE_DOWN(Me) + End Sub + + Private Sub Button1_Click(sender As Object, e As EventArgs) + + End Sub + + Private Sub usrcntlVollmacht_AT_Load(sender As Object, e As EventArgs) Handles Me.Load + initControlsHandler() + cboSprache.Items.Clear() + cboSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Deutsch", "DE")) + cboSprache.changeItem("Deutsch") + + cbxFA.Items.Clear() + cbxFA.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT-FA", "Finanzamt Österreich,Postfach 260,1000 Wien")) + cbxFA.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE-FA Dortmund", "Finanzamt Dormund-Unna,Trakehnerweg 4,D-44143 Dortmund")) + cbxFA.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE-FA Berlin", "Finanzamt Berlin International,Thiemannstr. 1,D-12059 Berlin")) + cbxFA.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE-FA Hannover", "Finanzamt Hannover-Nord,Vahrenwalder Str. 206,D-30165 Hannover")) + + + If KdNR > 0 Then initKdNR(KdNR) + End Sub + + Private Sub pic_Click(sender As Object, e As EventArgs) Handles pic.Click + FormularManagerNEU.genPDF(Me, True) + End Sub + + Private Sub cbxFA_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbxFA.SelectedIndexChanged + + + Dim faAd1 As String = "" + Dim faAd2 As String = "" + Dim faAd3 As String = "" + + + txtFAAdresse1.Text = faAd1 + txtFAAdresse2.Text = faAd2 + txtFAAdresse3.Text = faAd3 + + If Not cbxFA._value.ToString.Contains(",") Then Exit Sub + + Try + + + Dim searchedString = cbxFA._value.ToString + Dim firstIndex = searchedString.IndexOf(",", 0) + + faAd1 = searchedString.Substring(0, firstIndex) + txtFAAdresse1.Text = faAd1 + searchedString = searchedString.Replace(faAd1 & ",", "") + + If Not searchedString.Contains(",") Then + faAd2 = searchedString + txtFAAdresse2.Text = faAd2 + Exit Sub + End If + + firstIndex = searchedString.IndexOf(",", 0) + faAd2 = searchedString.Substring(0, firstIndex) + txtFAAdresse2.Text = faAd2 + + searchedString = searchedString.Replace(faAd2 & ",", "") + + If Not searchedString.Contains(",") Then + faAd3 = searchedString + txtFAAdresse3.Text = faAd3 + Exit Sub + End If + + firstIndex = searchedString.IndexOf(",", 0) + faAd3 = searchedString.Substring(0, firstIndex) + + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + + End Sub +End Class diff --git a/SDL/Formulare/KDFormulare/frmFormulare.vb b/SDL/Formulare/KDFormulare/frmFormulare.vb index ad0a4ab6..e820ee42 100644 --- a/SDL/Formulare/KDFormulare/frmFormulare.vb +++ b/SDL/Formulare/KDFormulare/frmFormulare.vb @@ -288,6 +288,7 @@ Public Class frmFormulare MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Importaviso", FormularManagerArten.Importaviso)) MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Gestellungsgarantie", FormularManagerArten.Gestellungsgarantie)) MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollungspreise", FormularManagerArten.Verzollungspreise)) + MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vollmacht FA", FormularManagerArten.Vollmacht_FA)) MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Dispoliste", FormularManagerArten.DispoListe)) MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SA_Gestellung", FormularManagerArten.SA_Gestellung)) @@ -526,6 +527,18 @@ Public Class frmFormulare AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown MyFlowLayoutPanel1.Controls.Add(c) End If + Case FormularManagerArten.Vollmacht_FA + Dim c As New usrcntlVollmacht_FA + If ControlExists_addOK(c.GetType.ToString) Then + c.Width = MyFlowLayoutPanel1.Width - 6 + c.KdNR = KdNr + AddHandler c.CHANGED, AddressOf ValueChanged + AddHandler c.KDNR_CHANGED, AddressOf KDNR_CHANGED + AddHandler c.DELETE, AddressOf ControlDELETE + AddHandler c.MOVE_UP, AddressOf ControlMoveUp + AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown + MyFlowLayoutPanel1.Controls.Add(c) + End If Case FormularManagerArten.Importaviso_VK Dim c As usrcntlVorauskasse If param Is Nothing Then @@ -1400,6 +1413,8 @@ Public Class FormularManagerNEU retStr = FormularManagerNEU.VM_ATILLA_EXPORT(c) Case GetType(usrcntlVollmacht_VERAG_EXPORT).ToString retStr = FormularManagerNEU.VM_VERAG_EXPORT(c) + Case GetType(usrcntlVollmacht_FA).ToString + striList = FormularManagerNEU.VM_VERAG_FA(c, printReportElsePdf, printerName) Case GetType(usrcntlVorauskasse).ToString retStr = FormularManagerNEU.Importaviso_VK(c) Case GetType(usrcntlImportaviso).ToString @@ -3669,6 +3684,113 @@ Public Class FormularManagerNEU Return "" End Function + Shared Function VM_VERAG_FA(usrCntl As usrcntlVollmacht_FA, Optional printReportElsePDF As Boolean = False, Optional printername As String = "", Optional openWord As Boolean = False) As List(Of String) + + + Dim striList As New List(Of String) + + Try + + Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager + Dim odoc As Microsoft.Office.Interop.Word.Document = Nothing + Dim oWord As New Microsoft.Office.Interop.Word.Application + Dim FIRMA As cFirmen + Dim FIRMA2 As cFirmen + + Dim docBez As String = "" + + If usrCntl.cbxFA.SelectedItem.ToString = "AT-FA" Then + docBez = "Vollmacht_Steuerabwicklung_AT" + FIRMA = New cFirmen(11) 'CS + Else + docBez = "Vollmacht_Steuerabwicklung_DE" + FIRMA = New cFirmen(1) 'AG + FIRMA2 = New cFirmen(2) ' GMBH + End If + + Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", "", "", docBez) + Dim pfadWord = DS.GET_TOP1_PATH(False) + + Dim cGenWord As New cGenWord + + odoc = cGenWord.openWord(pfadWord, False, oWord) + If odoc Is Nothing Then Return striList + + + 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 "name" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtFirma.Text & ", " & usrCntl.txtAdresse1.Text & " " & usrCntl.txtAdresse2.Text + Case "taxno" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtSteuerNr.Text + Case "mandant" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Bez & ", " & FIRMA.Firma_Straße & " in " & FIRMA.Firma_Ort + Case "mandant2" : odoc.FormFields(fieldName).Range.Text = FIRMA2.Firma_Bez & ", " & FIRMA2.Firma_Straße & " in " & FIRMA2.Firma_Ort + Case "mandant_anschrift" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Bez & ", " & FIRMA.Firma_Straße & ", " & FIRMA.Firma_Ort + Case "mandant_anschrift2" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Telefon & " " & FIRMA.Firma_Telefax + Case "mandant2_anschrift" : odoc.FormFields(fieldName).Range.Text = FIRMA2.Firma_Bez & ", " & FIRMA2.Firma_Straße & ", " & FIRMA2.Firma_Ort + Case "mandant2_anschrift2" : odoc.FormFields(fieldName).Range.Text = FIRMA2.Firma_Telefon & " " & FIRMA2.Firma_Telefax + Case "fa2" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtFAAdresse2.Text + Case "fa3" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtFAAdresse3.Text + Case "kunde1" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtFirma.Text + Case "kunde2" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtAdresse1.Text + Case "kunde3" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtAdresse2.Text + Case "fa_bez" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtFAAdresse1.Text + Case "date" : odoc.FormFields(fieldName).Range.Text = Today().ToString("dd-MM-yyyy") + End Select + + Next + + + odoc.Save() : odoc.Activate() + + + If openWord Then + oWord.Visible = True + Return New List(Of String) + ElseIf printReportElsePDF Then + + oWord.DisplayAlerts = False + oWord.PrintOut() + Try + oWord.Documents.Close() + 'Quit word application + oWord.Quit() + + 'Release + oWord = Nothing + Catch ex As Exception + 'NIX, kann sein, dass noch offen.. + End Try + + Else + 'oWord.Visible = True + Dim path = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("VOLLMACHT_" & docBez & ".pdf", ".pdf", True, False) + + odoc.SaveAs(path, Word.WdSaveFormat.wdFormatPDF) + + Try + odoc.Close() + oWord.Quit() + Catch ex As Exception + MsgBox(ex.Message) + End Try + striList.Add(path) + End If + + Catch ex As Exception + MessageBox.Show(ex.ToString & ex.StackTrace) + End Try + + Return striList + + + + End Function + + + Shared Function VM_VERAG_GB_IE(usrCntl As usrcntlVollmacht_GB_IE) As String 'Dim list As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem) @@ -6114,22 +6236,17 @@ Public Class FormularManagerArten Shared Property DE_Vollmacht = "DE_Vollmacht" Shared Property DE_Vollmacht_indirekt = "DE_Vollmacht_indirekt" - Shared Property DE_Fiskal = "DE_Fiskal" Shared Property AT_Vollmacht = "AT_Vollmacht" Shared Property AT_Vollmacht_EV = "AT_Vollmacht_EV" Shared Property AT_Fiskal = "AT_Fiskal" - Shared Property GB_Vollmacht_IE = "GB_Vollmacht_IE" Shared Property GB_Vollmacht_indirekt = "GB_Vollmacht_indirekt" - Shared Property MDM_Vollmacht_PDF = "MDM_Vollmacht_PDF" - Shared Property MDM_Vollmacht_Word = "MDM_Vollmacht_Word" - + Shared Property Vollmacht_FA = "Vollmacht_FA" Shared Property VERAG_EXPORT = "VERAG_EXPORT" Shared Property ATILLA_EXPORT = "ATILLA_EXPORT" - Shared Property VUB = "VUB" Shared Property VUB_AG = "VUB_AG" Shared Property VUB_IMEX = "VUB_IMEX" @@ -6144,7 +6261,6 @@ Public Class FormularManagerArten Shared Property DE_InformationsblattFiskalverzollung = "DE_InformationsblattFiskalverzollung" Shared Property AT_InformationsblattFiskalverzollung = "AT_InformationsblattFiskalverzollung" Shared Property EORI_Antrag = "EORI_Antrag" - Shared Property Verzollungsunterlagen = "Verzollungsunterlagen" Shared Property VerzollungsunterlagenBAR = "VerzollungsunterlagenBAR" Shared Property Gelangensbestaetigung = "Gelangensbestaetigung" @@ -6152,11 +6268,9 @@ Public Class FormularManagerArten Shared Property SA_Gestellung = "SA_Gestellung" Shared Property Importaviso = "Importaviso" Shared Property Verbundenheit = "Verbundenheit" - Shared Property Sendungsliste = "Sendungsliste" Shared Property Rechnungsbestaetigung = "Rechnungsbestaetigung" Shared Property Zollbeschau_Protokoll = "Zollbeschau Protokoll" - Shared Property Qualitaetskontrolle = "Qualitätskontrolle" Shared Property Einfuhrverbot = "Y824 / EU VO 833/2014" diff --git a/SDL/SDL.vbproj b/SDL/SDL.vbproj index 058d8956..31d1b370 100644 --- a/SDL/SDL.vbproj +++ b/SDL/SDL.vbproj @@ -666,6 +666,12 @@ UserControl + + usrcntlVollmacht_FA.vb + + + UserControl + usrCntlZollbeschau.vb @@ -3196,6 +3202,9 @@ usrcntlVollmacht_GB_IE.vb + + usrcntlVollmacht_FA.vb + usrCntlZollbeschau.vb diff --git a/SDL/kunden/frmKundenUebersichtZOLL.Designer.vb b/SDL/kunden/frmKundenUebersichtZOLL.Designer.vb index f20ac37f..fe8d465a 100644 --- a/SDL/kunden/frmKundenUebersichtZOLL.Designer.vb +++ b/SDL/kunden/frmKundenUebersichtZOLL.Designer.vb @@ -22,7 +22,6 @@ Partial Class frmKundenUebersichtZOLL 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. Private Sub InitializeComponent() - Me.components = New System.ComponentModel.Container() Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() @@ -30,13 +29,13 @@ Partial Class frmKundenUebersichtZOLL Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmKundenUebersichtZOLL)) - Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip() Me.KopierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.tabZolltarife = New System.Windows.Forms.TabPage() Me.pnlZollTarife = New System.Windows.Forms.Panel() Me.tabKundendaten = New System.Windows.Forms.TabPage() Me.usrcntlKundenuebersicht = New SDL.usrCntlKundenuebersicht() - Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip() Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem() Me.tbcntrKundenDaten = New System.Windows.Forms.TabControl() Me.TabPage1 = New System.Windows.Forms.TabPage() @@ -84,10 +83,10 @@ Partial Class frmKundenUebersichtZOLL Me.btnSpeichern = New System.Windows.Forms.Button() Me.Label35 = New System.Windows.Forms.Label() Me.tbRechnungen = New System.Windows.Forms.TabPage() - Me.dgvRg = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) - Me.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components) + Me.dgvRg = New VERAG_PROG_ALLGEMEIN.MyDatagridview() + Me.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel() Me.btnRgPdf = New System.Windows.Forms.Button() - Me.ctxtRg = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.ctxtRg = New System.Windows.Forms.ContextMenuStrip() Me.DateiHochladenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.btnMonat = New System.Windows.Forms.Button() Me.Button10 = New System.Windows.Forms.Button() @@ -97,7 +96,7 @@ Partial Class frmKundenUebersichtZOLL Me.tbFiskaluebersicht = New System.Windows.Forms.TabPage() Me.UsrcntlFiskaluebersicht1 = New SDL.usrcntlFiskaluebersicht() Me.tbCBAM = New System.Windows.Forms.TabPage() - Me.NotifyIcon1 = New System.Windows.Forms.NotifyIcon(Me.components) + Me.NotifyIcon1 = New System.Windows.Forms.NotifyIcon() Me.Panel1 = New System.Windows.Forms.Panel() Me.MenuStripKunden = New System.Windows.Forms.MenuStrip() Me.mnueKunden = New System.Windows.Forms.ToolStripMenuItem() @@ -144,8 +143,8 @@ Partial Class frmKundenUebersichtZOLL Me.pic = New System.Windows.Forms.PictureBox() Me.KdSearchBox1 = New VERAG_PROG_ALLGEMEIN.KdSearchBox() Me.rtbInfo = New System.Windows.Forms.RichTextBox() - Me.tmrFiskal = New System.Windows.Forms.Timer(Me.components) - Me.ContextMenuStrip3 = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.tmrFiskal = New System.Windows.Forms.Timer() + Me.ContextMenuStrip3 = New System.Windows.Forms.ContextMenuStrip() Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripMenuItem() Me.ÄndernToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.HochladenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() @@ -153,6 +152,7 @@ Partial Class frmKundenUebersichtZOLL Me.PDFLöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.VollmachtFinanzamtToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.ContextMenuStrip1.SuspendLayout() Me.tabZolltarife.SuspendLayout() Me.tabKundendaten.SuspendLayout() @@ -1144,7 +1144,7 @@ Partial Class frmKundenUebersichtZOLL ' 'ToolStripMenuItem4 ' - Me.ToolStripMenuItem4.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.toolStrVM_de, Me.ZollvollmachtDEFiskalToolStripMenuItem, Me.ToolStripMenuItem6, Me.ToolStripMenuItem8, Me.ZollvollmachtATEVToolStripMenuItem}) + Me.ToolStripMenuItem4.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.toolStrVM_de, Me.ZollvollmachtDEFiskalToolStripMenuItem, Me.ToolStripMenuItem6, Me.ToolStripMenuItem8, Me.ZollvollmachtATEVToolStripMenuItem, Me.VollmachtFinanzamtToolStripMenuItem}) Me.ToolStripMenuItem4.Name = "ToolStripMenuItem4" Me.ToolStripMenuItem4.Size = New System.Drawing.Size(242, 22) Me.ToolStripMenuItem4.Text = "Vollmachten" @@ -1512,6 +1512,12 @@ Partial Class frmKundenUebersichtZOLL Me.DataGridViewTextBoxColumn2.HeaderText = "KundenNr" Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2" ' + 'VollmachtFinanzamtToolStripMenuItem + ' + Me.VollmachtFinanzamtToolStripMenuItem.Name = "VollmachtFinanzamtToolStripMenuItem" + Me.VollmachtFinanzamtToolStripMenuItem.Size = New System.Drawing.Size(204, 22) + Me.VollmachtFinanzamtToolStripMenuItem.Text = "Vollmacht Finanzamt" + ' 'frmKundenUebersichtZOLL ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -1685,4 +1691,5 @@ Partial Class frmKundenUebersichtZOLL Friend WithEvents mnueCBAM As ToolStripMenuItem Friend WithEvents EinfuhrverbotToolStripMenuItem As ToolStripMenuItem Friend WithEvents TOBBKdNrÄndernToolStripMenuItem As ToolStripMenuItem + Friend WithEvents VollmachtFinanzamtToolStripMenuItem As ToolStripMenuItem End Class diff --git a/SDL/kunden/frmKundenUebersichtZOLL.vb b/SDL/kunden/frmKundenUebersichtZOLL.vb index eb572f79..f70652ef 100644 --- a/SDL/kunden/frmKundenUebersichtZOLL.vb +++ b/SDL/kunden/frmKundenUebersichtZOLL.vb @@ -1465,6 +1465,10 @@ Public Class frmKundenUebersichtZOLL Dim f As New frmKundenTOBBKdNr(kdNr) f.ShowDialog(Me) End Sub + + Private Sub VollmachtFinanzamtToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VollmachtFinanzamtToolStripMenuItem.Click + SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Vollmacht_FA, kdNr, {}) + End Sub End Class From 77cf27117eceb38733042a2ac5e1648be2ead54d Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Fri, 9 Aug 2024 14:51:01 +0200 Subject: [PATCH 3/3] Design VM FA --- .../usrcntlVollmacht_FA.Designer.vb | 166 +----------------- 1 file changed, 7 insertions(+), 159 deletions(-) diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_FA.Designer.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_FA.Designer.vb index 997f8f93..2fe3fee9 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_FA.Designer.vb +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_FA.Designer.vb @@ -25,22 +25,14 @@ Partial Class usrcntlVollmacht_FA Me.lblVollmachtDE = New System.Windows.Forms.Label() Me.lbl = New System.Windows.Forms.Label() Me.Label1 = New System.Windows.Forms.Label() - Me.Label2 = New System.Windows.Forms.Label() Me.Label3 = New System.Windows.Forms.Label() - Me.Label4 = New System.Windows.Forms.Label() - Me.Label5 = New System.Windows.Forms.Label() Me.Label6 = New System.Windows.Forms.Label() Me.btn = New System.Windows.Forms.Button() Me.txtEmail = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtFax = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtTel = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtSteuerNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtUid = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtAdresse2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtAdresse1 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtFirma = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtAEO = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.Label11 = New System.Windows.Forms.Label() Me.pic = New System.Windows.Forms.PictureBox() Me.btnDown = New System.Windows.Forms.Button() Me.btnUp = New System.Windows.Forms.Button() @@ -84,15 +76,6 @@ Partial Class usrcntlVollmacht_FA Me.Label1.TabIndex = 9 Me.Label1.Text = "Adresse:" ' - 'Label2 - ' - Me.Label2.AutoSize = True - Me.Label2.Location = New System.Drawing.Point(177, 156) - Me.Label2.Name = "Label2" - Me.Label2.Size = New System.Drawing.Size(43, 13) - Me.Label2.TabIndex = 12 - Me.Label2.Text = "UID-Nr:" - ' 'Label3 ' Me.Label3.AutoSize = True @@ -102,28 +85,10 @@ Partial Class usrcntlVollmacht_FA Me.Label3.TabIndex = 14 Me.Label3.Text = "Steuer-Nr:" ' - 'Label4 - ' - Me.Label4.AutoSize = True - Me.Label4.Location = New System.Drawing.Point(594, 175) - Me.Label4.Name = "Label4" - Me.Label4.Size = New System.Drawing.Size(27, 13) - Me.Label4.TabIndex = 18 - Me.Label4.Text = "Fax:" - ' - 'Label5 - ' - Me.Label5.AutoSize = True - Me.Label5.Location = New System.Drawing.Point(177, 175) - Me.Label5.Name = "Label5" - Me.Label5.Size = New System.Drawing.Size(28, 13) - Me.Label5.TabIndex = 16 - Me.Label5.Text = "Tel.:" - ' 'Label6 ' Me.Label6.AutoSize = True - Me.Label6.Location = New System.Drawing.Point(177, 194) + Me.Label6.Location = New System.Drawing.Point(177, 159) Me.Label6.Name = "Label6" Me.Label6.Size = New System.Drawing.Size(39, 13) Me.Label6.TabIndex = 20 @@ -155,7 +120,7 @@ Partial Class usrcntlVollmacht_FA Me.txtEmail._Waehrung = False Me.txtEmail._WaehrungZeichen = True Me.txtEmail.ForeColor = System.Drawing.Color.Black - Me.txtEmail.Location = New System.Drawing.Point(261, 191) + Me.txtEmail.Location = New System.Drawing.Point(261, 156) Me.txtEmail.MaxLineLength = -1 Me.txtEmail.MaxLines_Warning = "" Me.txtEmail.MaxLines_Warning_Label = Nothing @@ -163,52 +128,6 @@ Partial Class usrcntlVollmacht_FA Me.txtEmail.Size = New System.Drawing.Size(310, 20) Me.txtEmail.TabIndex = 21 ' - 'txtFax - ' - Me.txtFax._DateTimeOnly = False - Me.txtFax._numbersOnly = False - Me.txtFax._numbersOnlyKommastellen = "" - Me.txtFax._numbersOnlyTrennzeichen = True - Me.txtFax._Prozent = False - Me.txtFax._ShortDateNew = False - Me.txtFax._ShortDateOnly = False - Me.txtFax._TimeOnly = False - Me.txtFax._TimeOnly_Seconds = False - Me.txtFax._value = Nothing - Me.txtFax._Waehrung = False - Me.txtFax._WaehrungZeichen = True - Me.txtFax.ForeColor = System.Drawing.Color.Black - Me.txtFax.Location = New System.Drawing.Point(660, 172) - Me.txtFax.MaxLineLength = -1 - Me.txtFax.MaxLines_Warning = "" - Me.txtFax.MaxLines_Warning_Label = Nothing - Me.txtFax.Name = "txtFax" - Me.txtFax.Size = New System.Drawing.Size(310, 20) - Me.txtFax.TabIndex = 19 - ' - 'txtTel - ' - Me.txtTel._DateTimeOnly = False - Me.txtTel._numbersOnly = False - Me.txtTel._numbersOnlyKommastellen = "" - Me.txtTel._numbersOnlyTrennzeichen = True - Me.txtTel._Prozent = False - Me.txtTel._ShortDateNew = False - Me.txtTel._ShortDateOnly = False - Me.txtTel._TimeOnly = False - Me.txtTel._TimeOnly_Seconds = False - Me.txtTel._value = Nothing - Me.txtTel._Waehrung = False - Me.txtTel._WaehrungZeichen = True - Me.txtTel.ForeColor = System.Drawing.Color.Black - Me.txtTel.Location = New System.Drawing.Point(261, 172) - Me.txtTel.MaxLineLength = -1 - Me.txtTel.MaxLines_Warning = "" - Me.txtTel.MaxLines_Warning_Label = Nothing - Me.txtTel.Name = "txtTel" - Me.txtTel.Size = New System.Drawing.Size(310, 20) - Me.txtTel.TabIndex = 17 - ' 'txtSteuerNr ' Me.txtSteuerNr._DateTimeOnly = False @@ -232,29 +151,6 @@ Partial Class usrcntlVollmacht_FA Me.txtSteuerNr.Size = New System.Drawing.Size(310, 20) Me.txtSteuerNr.TabIndex = 15 ' - 'txtUid - ' - Me.txtUid._DateTimeOnly = False - Me.txtUid._numbersOnly = False - Me.txtUid._numbersOnlyKommastellen = "" - Me.txtUid._numbersOnlyTrennzeichen = True - Me.txtUid._Prozent = False - Me.txtUid._ShortDateNew = False - Me.txtUid._ShortDateOnly = False - Me.txtUid._TimeOnly = False - Me.txtUid._TimeOnly_Seconds = False - Me.txtUid._value = Nothing - Me.txtUid._Waehrung = False - Me.txtUid._WaehrungZeichen = True - Me.txtUid.ForeColor = System.Drawing.Color.Black - Me.txtUid.Location = New System.Drawing.Point(261, 153) - Me.txtUid.MaxLineLength = -1 - Me.txtUid.MaxLines_Warning = "" - Me.txtUid.MaxLines_Warning_Label = Nothing - Me.txtUid.Name = "txtUid" - Me.txtUid.Size = New System.Drawing.Size(310, 20) - Me.txtUid.TabIndex = 13 - ' 'txtAdresse2 ' Me.txtAdresse2._DateTimeOnly = False @@ -324,38 +220,6 @@ Partial Class usrcntlVollmacht_FA Me.txtFirma.Size = New System.Drawing.Size(684, 20) Me.txtFirma.TabIndex = 5 ' - 'txtAEO - ' - Me.txtAEO._DateTimeOnly = False - Me.txtAEO._numbersOnly = False - Me.txtAEO._numbersOnlyKommastellen = "" - Me.txtAEO._numbersOnlyTrennzeichen = True - Me.txtAEO._Prozent = False - Me.txtAEO._ShortDateNew = False - Me.txtAEO._ShortDateOnly = False - Me.txtAEO._TimeOnly = False - Me.txtAEO._TimeOnly_Seconds = False - Me.txtAEO._value = Nothing - Me.txtAEO._Waehrung = False - Me.txtAEO._WaehrungZeichen = True - Me.txtAEO.ForeColor = System.Drawing.Color.Black - Me.txtAEO.Location = New System.Drawing.Point(660, 191) - Me.txtAEO.MaxLineLength = -1 - Me.txtAEO.MaxLines_Warning = "" - Me.txtAEO.MaxLines_Warning_Label = Nothing - Me.txtAEO.Name = "txtAEO" - Me.txtAEO.Size = New System.Drawing.Size(310, 20) - Me.txtAEO.TabIndex = 23 - ' - 'Label11 - ' - Me.Label11.AutoSize = True - Me.Label11.Location = New System.Drawing.Point(594, 194) - Me.Label11.Name = "Label11" - Me.Label11.Size = New System.Drawing.Size(57, 13) - Me.Label11.TabIndex = 22 - Me.Label11.Text = "AEO-Zert.:" - ' 'pic ' Me.pic.BackgroundImage = Global.SDL.My.Resources.Resources.pdf @@ -458,7 +322,7 @@ Partial Class usrcntlVollmacht_FA Me.txtFAAdresse1._Waehrung = False Me.txtFAAdresse1._WaehrungZeichen = True Me.txtFAAdresse1.ForeColor = System.Drawing.Color.Black - Me.txtFAAdresse1.Location = New System.Drawing.Point(660, 23) + Me.txtFAAdresse1.Location = New System.Drawing.Point(660, 18) Me.txtFAAdresse1.MaxLineLength = -1 Me.txtFAAdresse1.MaxLines_Warning = "" Me.txtFAAdresse1.MaxLines_Warning_Label = Nothing @@ -481,7 +345,7 @@ Partial Class usrcntlVollmacht_FA Me.txtFAAdresse2._Waehrung = False Me.txtFAAdresse2._WaehrungZeichen = True Me.txtFAAdresse2.ForeColor = System.Drawing.Color.Black - Me.txtFAAdresse2.Location = New System.Drawing.Point(660, 42) + Me.txtFAAdresse2.Location = New System.Drawing.Point(660, 37) Me.txtFAAdresse2.MaxLineLength = -1 Me.txtFAAdresse2.MaxLines_Warning = "" Me.txtFAAdresse2.MaxLines_Warning_Label = Nothing @@ -504,7 +368,7 @@ Partial Class usrcntlVollmacht_FA Me.txtFAAdresse3._Waehrung = False Me.txtFAAdresse3._WaehrungZeichen = True Me.txtFAAdresse3.ForeColor = System.Drawing.Color.Black - Me.txtFAAdresse3.Location = New System.Drawing.Point(660, 59) + Me.txtFAAdresse3.Location = New System.Drawing.Point(660, 54) Me.txtFAAdresse3.MaxLineLength = -1 Me.txtFAAdresse3.MaxLines_Warning = "" Me.txtFAAdresse3.MaxLines_Warning_Label = Nothing @@ -515,7 +379,7 @@ Partial Class usrcntlVollmacht_FA 'Label9 ' Me.Label9.AutoSize = True - Me.Label9.Location = New System.Drawing.Point(580, 23) + Me.Label9.Location = New System.Drawing.Point(580, 18) Me.Label9.Name = "Label9" Me.Label9.Size = New System.Drawing.Size(64, 13) Me.Label9.TabIndex = 37 @@ -539,19 +403,11 @@ Partial Class usrcntlVollmacht_FA Me.Controls.Add(Me.btnUp) Me.Controls.Add(Me.btnDel) Me.Controls.Add(Me.pic) - Me.Controls.Add(Me.txtAEO) - Me.Controls.Add(Me.Label11) Me.Controls.Add(Me.btn) Me.Controls.Add(Me.txtEmail) Me.Controls.Add(Me.Label6) - Me.Controls.Add(Me.txtFax) - Me.Controls.Add(Me.Label4) - Me.Controls.Add(Me.txtTel) - Me.Controls.Add(Me.Label5) Me.Controls.Add(Me.txtSteuerNr) Me.Controls.Add(Me.Label3) - Me.Controls.Add(Me.txtUid) - Me.Controls.Add(Me.Label2) Me.Controls.Add(Me.txtAdresse2) Me.Controls.Add(Me.txtAdresse1) Me.Controls.Add(Me.Label1) @@ -559,7 +415,7 @@ Partial Class usrcntlVollmacht_FA Me.Controls.Add(Me.lbl) Me.Controls.Add(Me.lblVollmachtDE) Me.Name = "usrcntlVollmacht_FA" - Me.Size = New System.Drawing.Size(1000, 251) + Me.Size = New System.Drawing.Size(1000, 190) CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() @@ -571,19 +427,11 @@ Partial Class usrcntlVollmacht_FA Friend WithEvents txtAdresse1 As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents txtAdresse2 As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents txtUid As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents Label2 As System.Windows.Forms.Label Friend WithEvents txtSteuerNr As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents Label3 As System.Windows.Forms.Label - Friend WithEvents txtFax As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents Label4 As System.Windows.Forms.Label - Friend WithEvents txtTel As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents Label5 As System.Windows.Forms.Label Friend WithEvents txtEmail As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents Label6 As System.Windows.Forms.Label Friend WithEvents btn As System.Windows.Forms.Button - Friend WithEvents txtAEO As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents Label11 As System.Windows.Forms.Label Friend WithEvents pic As System.Windows.Forms.PictureBox Friend WithEvents btnDown As System.Windows.Forms.Button Friend WithEvents btnUp As System.Windows.Forms.Button