From c73cdd053559205a2fe26c85820766848e06b4b7 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Wed, 21 Dec 2022 14:05:51 +0100 Subject: [PATCH] Zollbeschau AMBAR --- .../usrCntlZollbeschau.Designer.vb | 1500 +++++++++++++++++ .../usrCntlZollbeschau.resx | 120 ++ .../FormulareBaukasten/usrCntlZollbeschau.vb | 198 +++ SDL/Formulare/KDFormulare/frmFormulare.vb | 477 +++--- SDL/SDL.vbproj | 12 +- 5 files changed, 2107 insertions(+), 200 deletions(-) create mode 100644 SDL/Formulare/KDFormulare/FormulareBaukasten/usrCntlZollbeschau.Designer.vb create mode 100644 SDL/Formulare/KDFormulare/FormulareBaukasten/usrCntlZollbeschau.resx create mode 100644 SDL/Formulare/KDFormulare/FormulareBaukasten/usrCntlZollbeschau.vb diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrCntlZollbeschau.Designer.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrCntlZollbeschau.Designer.vb new file mode 100644 index 00000000..278d42b6 --- /dev/null +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrCntlZollbeschau.Designer.vb @@ -0,0 +1,1500 @@ + _ +Partial Class usrCntlZollbeschau + 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.txtAbfNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label46 = New System.Windows.Forms.Label() + Me.Button2 = New System.Windows.Forms.Button() + Me.LinkLabel3 = New System.Windows.Forms.LinkLabel() + Me.txtDW = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtWarenbez = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label41 = New System.Windows.Forms.Label() + Me.Label40 = New System.Windows.Forms.Label() + Me.txtGewicht = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label7 = New System.Windows.Forms.Label() + Me.txtAnzVerp = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label9 = New System.Windows.Forms.Label() + Me.txtLKWKennz = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label37 = New System.Windows.Forms.Label() + Me.txtAbsender = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label39 = New System.Windows.Forms.Label() + Me.txtHerrFrau = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label26 = New System.Windows.Forms.Label() + Me.btnDown = New System.Windows.Forms.Button() + Me.btnUp = New System.Windows.Forms.Button() + Me.btnDel = New System.Windows.Forms.Button() + Me.pic = New System.Windows.Forms.PictureBox() + Me.txtFaStNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label11 = New System.Windows.Forms.Label() + Me.txtAnsprechpartnerVERAG = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label8 = New System.Windows.Forms.Label() + Me.btn = New System.Windows.Forms.Button() + Me.txtEmail = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label6 = New System.Windows.Forms.Label() + Me.txtFax = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label4 = New System.Windows.Forms.Label() + Me.txtTel = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label5 = New System.Windows.Forms.Label() + Me.txtEori = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label3 = New System.Windows.Forms.Label() + Me.txtUid = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label2 = New System.Windows.Forms.Label() + Me.txtAdresse2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtAdresse1 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label1 = New System.Windows.Forms.Label() + Me.txtFirma = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.lblHerrFrau = New System.Windows.Forms.Label() + Me.lblVollmachtDE = New System.Windows.Forms.Label() + Me.txtWarenwert = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label12 = New System.Windows.Forms.Label() + Me.txtFilialNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label14 = New System.Windows.Forms.Label() + Me.txtFrächter = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label15 = New System.Windows.Forms.Label() + Me.Label16 = New System.Windows.Forms.Label() + Me.txtZollb2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label10 = New System.Windows.Forms.Label() + Me.txtZollb1 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label17 = New System.Windows.Forms.Label() + Me.txtBeschauDat = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.dtpBeschauDat = New System.Windows.Forms.DateTimePicker() + Me.txtZollagent = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label18 = New System.Windows.Forms.Label() + Me.Label19 = New System.Windows.Forms.Label() + Me.txtT1 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label20 = New System.Windows.Forms.Label() + Me.txtATB = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label21 = New System.Windows.Forms.Label() + Me.txtATC = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label22 = New System.Windows.Forms.Label() + Me.txtZoll1Date = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker() + Me.txtZoll2Date = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.DateTimePicker2 = New System.Windows.Forms.DateTimePicker() + Me.txtTimeZoll1 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtTimeZoll2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label23 = New System.Windows.Forms.Label() + Me.Label24 = New System.Windows.Forms.Label() + Me.Label25 = New System.Windows.Forms.Label() + Me.Label27 = New System.Windows.Forms.Label() + Me.Label28 = New System.Windows.Forms.Label() + Me.Label13 = New System.Windows.Forms.Label() + Me.txtVZDatum = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.DateTimePicker3 = New System.Windows.Forms.DateTimePicker() + CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'txtAbfNr + ' + Me.txtAbfNr._DateTimeOnly = False + Me.txtAbfNr._numbersOnly = False + Me.txtAbfNr._numbersOnlyKommastellen = "" + Me.txtAbfNr._numbersOnlyTrennzeichen = True + Me.txtAbfNr._Prozent = False + Me.txtAbfNr._ShortDateNew = False + Me.txtAbfNr._ShortDateOnly = False + Me.txtAbfNr._TimeOnly = False + Me.txtAbfNr._TimeOnly_Seconds = False + Me.txtAbfNr._value = Nothing + Me.txtAbfNr._Waehrung = False + Me.txtAbfNr._WaehrungZeichen = True + Me.txtAbfNr.ForeColor = System.Drawing.Color.Black + Me.txtAbfNr.Location = New System.Drawing.Point(262, 185) + Me.txtAbfNr.MaxLineLength = -1 + Me.txtAbfNr.MaxLines_Warning = "" + Me.txtAbfNr.MaxLines_Warning_Label = Nothing + Me.txtAbfNr.Name = "txtAbfNr" + Me.txtAbfNr.Size = New System.Drawing.Size(165, 20) + Me.txtAbfNr.TabIndex = 84 + ' + 'Label46 + ' + Me.Label46.AutoSize = True + Me.Label46.Location = New System.Drawing.Point(178, 188) + Me.Label46.Name = "Label46" + Me.Label46.Size = New System.Drawing.Size(43, 13) + Me.Label46.TabIndex = 83 + Me.Label46.Text = "Abf-Nr.:" + ' + 'Button2 + ' + Me.Button2.BackgroundImage = Global.SDL.My.Resources.Resources.person + Me.Button2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button2.Location = New System.Drawing.Point(922, 48) + Me.Button2.Name = "Button2" + Me.Button2.Size = New System.Drawing.Size(24, 20) + Me.Button2.TabIndex = 64 + Me.Button2.UseVisualStyleBackColor = True + Me.Button2.Visible = False + ' + 'LinkLabel3 + ' + Me.LinkLabel3.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.LinkLabel3.Location = New System.Drawing.Point(47, 51) + Me.LinkLabel3.Name = "LinkLabel3" + Me.LinkLabel3.Size = New System.Drawing.Size(125, 13) + Me.LinkLabel3.TabIndex = 61 + Me.LinkLabel3.TabStop = True + Me.LinkLabel3.Text = "Kopplung aufheben" + Me.LinkLabel3.TextAlign = System.Drawing.ContentAlignment.TopRight + Me.LinkLabel3.Visible = False + ' + 'txtDW + ' + Me.txtDW._DateTimeOnly = False + Me.txtDW._numbersOnly = False + Me.txtDW._numbersOnlyKommastellen = "" + Me.txtDW._numbersOnlyTrennzeichen = True + Me.txtDW._Prozent = False + Me.txtDW._ShortDateNew = False + Me.txtDW._ShortDateOnly = False + Me.txtDW._TimeOnly = False + Me.txtDW._TimeOnly_Seconds = False + Me.txtDW._value = "0" + Me.txtDW._Waehrung = False + Me.txtDW._WaehrungZeichen = True + Me.txtDW.ForeColor = System.Drawing.Color.Black + Me.txtDW.Location = New System.Drawing.Point(945, 4) + Me.txtDW.MaxLineLength = -1 + Me.txtDW.MaxLines_Warning = "" + Me.txtDW.MaxLines_Warning_Label = Nothing + Me.txtDW.Name = "txtDW" + Me.txtDW.Size = New System.Drawing.Size(26, 20) + Me.txtDW.TabIndex = 56 + Me.txtDW.Text = "0" + Me.txtDW.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + 'txtWarenbez + ' + Me.txtWarenbez._DateTimeOnly = False + Me.txtWarenbez._numbersOnly = False + Me.txtWarenbez._numbersOnlyKommastellen = "" + Me.txtWarenbez._numbersOnlyTrennzeichen = True + Me.txtWarenbez._Prozent = False + Me.txtWarenbez._ShortDateNew = False + Me.txtWarenbez._ShortDateOnly = False + Me.txtWarenbez._TimeOnly = False + Me.txtWarenbez._TimeOnly_Seconds = False + Me.txtWarenbez._value = Nothing + Me.txtWarenbez._Waehrung = False + Me.txtWarenbez._WaehrungZeichen = True + Me.txtWarenbez.ForeColor = System.Drawing.Color.Black + Me.txtWarenbez.Location = New System.Drawing.Point(262, 265) + Me.txtWarenbez.MaxLineLength = -1 + Me.txtWarenbez.MaxLines_Warning = "" + Me.txtWarenbez.MaxLines_Warning_Label = Nothing + Me.txtWarenbez.Name = "txtWarenbez" + Me.txtWarenbez.Size = New System.Drawing.Size(310, 20) + Me.txtWarenbez.TabIndex = 96 + ' + 'Label41 + ' + Me.Label41.AutoSize = True + Me.Label41.Location = New System.Drawing.Point(178, 268) + Me.Label41.Name = "Label41" + Me.Label41.Size = New System.Drawing.Size(62, 13) + Me.Label41.TabIndex = 95 + Me.Label41.Text = "Warenbez.:" + ' + 'Label40 + ' + Me.Label40.AutoSize = True + Me.Label40.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label40.Location = New System.Drawing.Point(52, 188) + Me.Label40.Name = "Label40" + Me.Label40.Size = New System.Drawing.Size(99, 13) + Me.Label40.TabIndex = 82 + Me.Label40.Text = "Sendungsdaten:" + ' + 'txtGewicht + ' + Me.txtGewicht._DateTimeOnly = False + Me.txtGewicht._numbersOnly = False + Me.txtGewicht._numbersOnlyKommastellen = "" + Me.txtGewicht._numbersOnlyTrennzeichen = True + Me.txtGewicht._Prozent = False + Me.txtGewicht._ShortDateNew = False + Me.txtGewicht._ShortDateOnly = False + Me.txtGewicht._TimeOnly = False + Me.txtGewicht._TimeOnly_Seconds = False + Me.txtGewicht._value = Nothing + Me.txtGewicht._Waehrung = False + Me.txtGewicht._WaehrungZeichen = True + Me.txtGewicht.ForeColor = System.Drawing.Color.Black + Me.txtGewicht.Location = New System.Drawing.Point(763, 265) + Me.txtGewicht.MaxLineLength = -1 + Me.txtGewicht.MaxLines_Warning = "" + Me.txtGewicht.MaxLines_Warning_Label = Nothing + Me.txtGewicht.Name = "txtGewicht" + Me.txtGewicht.Size = New System.Drawing.Size(62, 20) + Me.txtGewicht.TabIndex = 98 + ' + 'Label7 + ' + Me.Label7.AutoSize = True + Me.Label7.Location = New System.Drawing.Point(708, 271) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(49, 13) + Me.Label7.TabIndex = 97 + Me.Label7.Text = "Gewicht:" + ' + 'txtAnzVerp + ' + Me.txtAnzVerp._DateTimeOnly = False + Me.txtAnzVerp._numbersOnly = False + Me.txtAnzVerp._numbersOnlyKommastellen = "" + Me.txtAnzVerp._numbersOnlyTrennzeichen = True + Me.txtAnzVerp._Prozent = False + Me.txtAnzVerp._ShortDateNew = False + Me.txtAnzVerp._ShortDateOnly = False + Me.txtAnzVerp._TimeOnly = False + Me.txtAnzVerp._TimeOnly_Seconds = False + Me.txtAnzVerp._value = Nothing + Me.txtAnzVerp._Waehrung = False + Me.txtAnzVerp._WaehrungZeichen = True + Me.txtAnzVerp.ForeColor = System.Drawing.Color.Black + Me.txtAnzVerp.Location = New System.Drawing.Point(662, 265) + Me.txtAnzVerp.MaxLineLength = -1 + Me.txtAnzVerp.MaxLines_Warning = "" + Me.txtAnzVerp.MaxLines_Warning_Label = Nothing + Me.txtAnzVerp.Name = "txtAnzVerp" + Me.txtAnzVerp.Size = New System.Drawing.Size(40, 20) + Me.txtAnzVerp.TabIndex = 94 + ' + 'Label9 + ' + Me.Label9.AutoSize = True + Me.Label9.Location = New System.Drawing.Point(590, 268) + Me.Label9.Name = "Label9" + Me.Label9.Size = New System.Drawing.Size(61, 13) + Me.Label9.TabIndex = 93 + Me.Label9.Text = "Anz./Verp.:" + ' + 'txtLKWKennz + ' + Me.txtLKWKennz._DateTimeOnly = False + Me.txtLKWKennz._numbersOnly = False + Me.txtLKWKennz._numbersOnlyKommastellen = "" + Me.txtLKWKennz._numbersOnlyTrennzeichen = True + Me.txtLKWKennz._Prozent = False + Me.txtLKWKennz._ShortDateNew = False + Me.txtLKWKennz._ShortDateOnly = False + Me.txtLKWKennz._TimeOnly = False + Me.txtLKWKennz._TimeOnly_Seconds = False + Me.txtLKWKennz._value = Nothing + Me.txtLKWKennz._Waehrung = False + Me.txtLKWKennz._WaehrungZeichen = True + Me.txtLKWKennz.ForeColor = System.Drawing.Color.Black + Me.txtLKWKennz.Location = New System.Drawing.Point(262, 223) + Me.txtLKWKennz.MaxLineLength = -1 + Me.txtLKWKennz.MaxLines_Warning = "" + Me.txtLKWKennz.MaxLines_Warning_Label = Nothing + Me.txtLKWKennz.Name = "txtLKWKennz" + Me.txtLKWKennz.Size = New System.Drawing.Size(310, 20) + Me.txtLKWKennz.TabIndex = 90 + ' + 'Label37 + ' + Me.Label37.AutoSize = True + Me.Label37.Location = New System.Drawing.Point(178, 226) + Me.Label37.Name = "Label37" + Me.Label37.Size = New System.Drawing.Size(70, 13) + Me.Label37.TabIndex = 89 + Me.Label37.Text = "LKW-Kennz.:" + ' + 'txtAbsender + ' + Me.txtAbsender._DateTimeOnly = False + Me.txtAbsender._numbersOnly = False + Me.txtAbsender._numbersOnlyKommastellen = "" + Me.txtAbsender._numbersOnlyTrennzeichen = True + Me.txtAbsender._Prozent = False + Me.txtAbsender._ShortDateNew = False + Me.txtAbsender._ShortDateOnly = False + Me.txtAbsender._TimeOnly = False + Me.txtAbsender._TimeOnly_Seconds = False + Me.txtAbsender._value = Nothing + Me.txtAbsender._Waehrung = False + Me.txtAbsender._WaehrungZeichen = True + Me.txtAbsender.ForeColor = System.Drawing.Color.Black + Me.txtAbsender.Location = New System.Drawing.Point(262, 204) + Me.txtAbsender.MaxLineLength = -1 + Me.txtAbsender.MaxLines_Warning = "" + Me.txtAbsender.MaxLines_Warning_Label = Nothing + Me.txtAbsender.Name = "txtAbsender" + Me.txtAbsender.Size = New System.Drawing.Size(310, 20) + Me.txtAbsender.TabIndex = 86 + ' + 'Label39 + ' + Me.Label39.AutoSize = True + Me.Label39.Location = New System.Drawing.Point(178, 207) + Me.Label39.Name = "Label39" + Me.Label39.Size = New System.Drawing.Size(55, 13) + Me.Label39.TabIndex = 85 + Me.Label39.Text = "Absender:" + ' + 'txtHerrFrau + ' + Me.txtHerrFrau._DateTimeOnly = False + Me.txtHerrFrau._numbersOnly = False + Me.txtHerrFrau._numbersOnlyKommastellen = "" + Me.txtHerrFrau._numbersOnlyTrennzeichen = True + Me.txtHerrFrau._Prozent = False + Me.txtHerrFrau._ShortDateNew = False + Me.txtHerrFrau._ShortDateOnly = False + Me.txtHerrFrau._TimeOnly = False + Me.txtHerrFrau._TimeOnly_Seconds = False + Me.txtHerrFrau._value = Nothing + Me.txtHerrFrau._Waehrung = False + Me.txtHerrFrau._WaehrungZeichen = True + Me.txtHerrFrau.ForeColor = System.Drawing.Color.Black + Me.txtHerrFrau.Location = New System.Drawing.Point(262, 29) + Me.txtHerrFrau.MaxLineLength = -1 + Me.txtHerrFrau.MaxLines_Warning = "" + Me.txtHerrFrau.MaxLines_Warning_Label = Nothing + Me.txtHerrFrau.Name = "txtHerrFrau" + Me.txtHerrFrau.Size = New System.Drawing.Size(684, 20) + Me.txtHerrFrau.TabIndex = 59 + ' + 'Label26 + ' + Me.Label26.AutoSize = True + Me.Label26.Location = New System.Drawing.Point(178, 51) + Me.Label26.Name = "Label26" + Me.Label26.Size = New System.Drawing.Size(78, 13) + Me.Label26.TabIndex = 62 + Me.Label26.Text = "Firmenwortlaut:" + ' + '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(978, 46) + Me.btnDown.Name = "btnDown" + Me.btnDown.Size = New System.Drawing.Size(25, 21) + Me.btnDown.TabIndex = 60 + 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(978, 26) + Me.btnUp.Name = "btnUp" + Me.btnUp.Size = New System.Drawing.Size(25, 21) + Me.btnUp.TabIndex = 57 + 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(978, 3) + Me.btnDel.Name = "btnDel" + Me.btnDel.Size = New System.Drawing.Size(25, 21) + Me.btnDel.TabIndex = 50 + Me.btnDel.UseVisualStyleBackColor = True + ' + '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(13, 0) + Me.pic.Name = "pic" + Me.pic.Size = New System.Drawing.Size(32, 32) + Me.pic.TabIndex = 80 + Me.pic.TabStop = False + ' + 'txtFaStNr + ' + Me.txtFaStNr._DateTimeOnly = False + Me.txtFaStNr._numbersOnly = False + Me.txtFaStNr._numbersOnlyKommastellen = "" + Me.txtFaStNr._numbersOnlyTrennzeichen = True + Me.txtFaStNr._Prozent = False + Me.txtFaStNr._ShortDateNew = False + Me.txtFaStNr._ShortDateOnly = False + Me.txtFaStNr._TimeOnly = False + Me.txtFaStNr._TimeOnly_Seconds = False + Me.txtFaStNr._value = Nothing + Me.txtFaStNr._Waehrung = False + Me.txtFaStNr._WaehrungZeichen = True + Me.txtFaStNr.ForeColor = System.Drawing.Color.Black + Me.txtFaStNr.Location = New System.Drawing.Point(661, 150) + Me.txtFaStNr.MaxLineLength = -1 + Me.txtFaStNr.MaxLines_Warning = "" + Me.txtFaStNr.MaxLines_Warning_Label = Nothing + Me.txtFaStNr.Name = "txtFaStNr" + Me.txtFaStNr.Size = New System.Drawing.Size(310, 20) + Me.txtFaStNr.TabIndex = 81 + ' + 'Label11 + ' + Me.Label11.AutoSize = True + Me.Label11.Location = New System.Drawing.Point(590, 153) + Me.Label11.Name = "Label11" + Me.Label11.Size = New System.Drawing.Size(56, 13) + Me.Label11.TabIndex = 79 + Me.Label11.Text = "FA-St.-Nr.:" + ' + 'txtAnsprechpartnerVERAG + ' + Me.txtAnsprechpartnerVERAG._DateTimeOnly = False + Me.txtAnsprechpartnerVERAG._numbersOnly = False + Me.txtAnsprechpartnerVERAG._numbersOnlyKommastellen = "" + Me.txtAnsprechpartnerVERAG._numbersOnlyTrennzeichen = True + Me.txtAnsprechpartnerVERAG._Prozent = False + Me.txtAnsprechpartnerVERAG._ShortDateNew = False + Me.txtAnsprechpartnerVERAG._ShortDateOnly = False + Me.txtAnsprechpartnerVERAG._TimeOnly = False + Me.txtAnsprechpartnerVERAG._TimeOnly_Seconds = False + Me.txtAnsprechpartnerVERAG._value = Nothing + Me.txtAnsprechpartnerVERAG._Waehrung = False + Me.txtAnsprechpartnerVERAG._WaehrungZeichen = True + Me.txtAnsprechpartnerVERAG.ForeColor = System.Drawing.Color.Black + Me.txtAnsprechpartnerVERAG.Location = New System.Drawing.Point(763, 4) + Me.txtAnsprechpartnerVERAG.MaxLineLength = -1 + Me.txtAnsprechpartnerVERAG.MaxLines_Warning = "" + Me.txtAnsprechpartnerVERAG.MaxLines_Warning_Label = Nothing + Me.txtAnsprechpartnerVERAG.Name = "txtAnsprechpartnerVERAG" + Me.txtAnsprechpartnerVERAG.Size = New System.Drawing.Size(183, 20) + Me.txtAnsprechpartnerVERAG.TabIndex = 55 + ' + 'Label8 + ' + Me.Label8.AutoSize = True + Me.Label8.Location = New System.Drawing.Point(669, 7) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(88, 13) + Me.Label8.TabIndex = 54 + Me.Label8.Text = "Ansprechpartner:" + ' + '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(945, 48) + Me.btn.Name = "btn" + Me.btn.Size = New System.Drawing.Size(26, 20) + Me.btn.TabIndex = 65 + 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(262, 150) + 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 = 78 + ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.Location = New System.Drawing.Point(178, 153) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(39, 13) + Me.Label6.TabIndex = 77 + Me.Label6.Text = "E-Mail:" + ' + '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(661, 131) + 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 = 76 + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.Location = New System.Drawing.Point(590, 134) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(27, 13) + Me.Label4.TabIndex = 75 + Me.Label4.Text = "Fax:" + ' + '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(262, 131) + 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 = 74 + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.Location = New System.Drawing.Point(178, 134) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(28, 13) + Me.Label5.TabIndex = 73 + Me.Label5.Text = "Tel.:" + ' + 'txtEori + ' + Me.txtEori._DateTimeOnly = False + Me.txtEori._numbersOnly = False + Me.txtEori._numbersOnlyKommastellen = "" + Me.txtEori._numbersOnlyTrennzeichen = True + Me.txtEori._Prozent = False + Me.txtEori._ShortDateNew = False + Me.txtEori._ShortDateOnly = False + Me.txtEori._TimeOnly = False + Me.txtEori._TimeOnly_Seconds = False + Me.txtEori._value = Nothing + Me.txtEori._Waehrung = False + Me.txtEori._WaehrungZeichen = True + Me.txtEori.ForeColor = System.Drawing.Color.Black + Me.txtEori.Location = New System.Drawing.Point(661, 112) + Me.txtEori.MaxLineLength = -1 + Me.txtEori.MaxLines_Warning = "" + Me.txtEori.MaxLines_Warning_Label = Nothing + Me.txtEori.Name = "txtEori" + Me.txtEori.Size = New System.Drawing.Size(310, 20) + Me.txtEori.TabIndex = 72 + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Location = New System.Drawing.Point(590, 115) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(50, 13) + Me.Label3.TabIndex = 71 + Me.Label3.Text = "EORI-Nr:" + ' + '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(262, 112) + 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 = 70 + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Location = New System.Drawing.Point(178, 115) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(43, 13) + Me.Label2.TabIndex = 69 + Me.Label2.Text = "UID-Nr:" + ' + '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(262, 86) + 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 = 68 + ' + '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(262, 67) + 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 = 67 + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(178, 70) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(48, 13) + Me.Label1.TabIndex = 66 + Me.Label1.Text = "Adresse:" + ' + '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(262, 48) + 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 = 63 + ' + 'lblHerrFrau + ' + Me.lblHerrFrau.AutoSize = True + Me.lblHerrFrau.Location = New System.Drawing.Point(178, 32) + Me.lblHerrFrau.Name = "lblHerrFrau" + Me.lblHerrFrau.Size = New System.Drawing.Size(56, 13) + Me.lblHerrFrau.TabIndex = 58 + Me.lblHerrFrau.Text = "Herr/Frau:" + ' + '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(51, 4) + Me.lblVollmachtDE.Name = "lblVollmachtDE" + Me.lblVollmachtDE.Size = New System.Drawing.Size(139, 20) + Me.lblVollmachtDE.TabIndex = 51 + Me.lblVollmachtDE.Text = "ZOLLBESCHAU" + ' + 'txtWarenwert + ' + Me.txtWarenwert._DateTimeOnly = False + Me.txtWarenwert._numbersOnly = False + Me.txtWarenwert._numbersOnlyKommastellen = "" + Me.txtWarenwert._numbersOnlyTrennzeichen = True + Me.txtWarenwert._Prozent = False + Me.txtWarenwert._ShortDateNew = False + Me.txtWarenwert._ShortDateOnly = False + Me.txtWarenwert._TimeOnly = False + Me.txtWarenwert._TimeOnly_Seconds = False + Me.txtWarenwert._value = Nothing + Me.txtWarenwert._Waehrung = False + Me.txtWarenwert._WaehrungZeichen = True + Me.txtWarenwert.ForeColor = System.Drawing.Color.Black + Me.txtWarenwert.Location = New System.Drawing.Point(893, 265) + Me.txtWarenwert.MaxLineLength = -1 + Me.txtWarenwert.MaxLines_Warning = "" + Me.txtWarenwert.MaxLines_Warning_Label = Nothing + Me.txtWarenwert.Name = "txtWarenwert" + Me.txtWarenwert.Size = New System.Drawing.Size(79, 20) + Me.txtWarenwert.TabIndex = 100 + ' + 'Label12 + ' + Me.Label12.AutoSize = True + Me.Label12.Location = New System.Drawing.Point(831, 271) + Me.Label12.Name = "Label12" + Me.Label12.Size = New System.Drawing.Size(59, 13) + Me.Label12.TabIndex = 99 + Me.Label12.Text = "Warenwert" + ' + 'txtFilialNr + ' + Me.txtFilialNr._DateTimeOnly = False + Me.txtFilialNr._numbersOnly = False + Me.txtFilialNr._numbersOnlyKommastellen = "" + Me.txtFilialNr._numbersOnlyTrennzeichen = True + Me.txtFilialNr._Prozent = False + Me.txtFilialNr._ShortDateNew = False + Me.txtFilialNr._ShortDateOnly = False + Me.txtFilialNr._TimeOnly = False + Me.txtFilialNr._TimeOnly_Seconds = False + Me.txtFilialNr._value = Nothing + Me.txtFilialNr._Waehrung = False + Me.txtFilialNr._WaehrungZeichen = True + Me.txtFilialNr.ForeColor = System.Drawing.Color.Black + Me.txtFilialNr.Location = New System.Drawing.Point(501, 181) + Me.txtFilialNr.MaxLineLength = -1 + Me.txtFilialNr.MaxLines_Warning = "" + Me.txtFilialNr.MaxLines_Warning_Label = Nothing + Me.txtFilialNr.Name = "txtFilialNr" + Me.txtFilialNr.Size = New System.Drawing.Size(71, 20) + Me.txtFilialNr.TabIndex = 104 + ' + 'Label14 + ' + Me.Label14.AutoSize = True + Me.Label14.Location = New System.Drawing.Point(444, 188) + Me.Label14.Name = "Label14" + Me.Label14.Size = New System.Drawing.Size(47, 13) + Me.Label14.TabIndex = 103 + Me.Label14.Text = "Filial-Nr.:" + ' + 'txtFrächter + ' + Me.txtFrächter._DateTimeOnly = False + Me.txtFrächter._numbersOnly = False + Me.txtFrächter._numbersOnlyKommastellen = "" + Me.txtFrächter._numbersOnlyTrennzeichen = True + Me.txtFrächter._Prozent = False + Me.txtFrächter._ShortDateNew = False + Me.txtFrächter._ShortDateOnly = False + Me.txtFrächter._TimeOnly = False + Me.txtFrächter._TimeOnly_Seconds = False + Me.txtFrächter._value = Nothing + Me.txtFrächter._Waehrung = False + Me.txtFrächter._WaehrungZeichen = True + Me.txtFrächter.ForeColor = System.Drawing.Color.Black + Me.txtFrächter.Location = New System.Drawing.Point(262, 243) + Me.txtFrächter.MaxLineLength = -1 + Me.txtFrächter.MaxLines_Warning = "" + Me.txtFrächter.MaxLines_Warning_Label = Nothing + Me.txtFrächter.Name = "txtFrächter" + Me.txtFrächter.Size = New System.Drawing.Size(310, 20) + Me.txtFrächter.TabIndex = 106 + ' + 'Label15 + ' + Me.Label15.AutoSize = True + Me.Label15.Location = New System.Drawing.Point(178, 246) + Me.Label15.Name = "Label15" + Me.Label15.Size = New System.Drawing.Size(49, 13) + Me.Label15.TabIndex = 105 + Me.Label15.Text = "Frächter:" + ' + 'Label16 + ' + Me.Label16.AutoSize = True + Me.Label16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label16.Location = New System.Drawing.Point(52, 32) + Me.Label16.Name = "Label16" + Me.Label16.Size = New System.Drawing.Size(71, 13) + Me.Label16.TabIndex = 107 + Me.Label16.Text = "Empfänger:" + ' + 'txtZollb2 + ' + Me.txtZollb2._DateTimeOnly = False + Me.txtZollb2._numbersOnly = False + Me.txtZollb2._numbersOnlyKommastellen = "" + Me.txtZollb2._numbersOnlyTrennzeichen = True + Me.txtZollb2._Prozent = False + Me.txtZollb2._ShortDateNew = False + Me.txtZollb2._ShortDateOnly = False + Me.txtZollb2._TimeOnly = False + Me.txtZollb2._TimeOnly_Seconds = False + Me.txtZollb2._value = Nothing + Me.txtZollb2._Waehrung = False + Me.txtZollb2._WaehrungZeichen = True + Me.txtZollb2.ForeColor = System.Drawing.Color.Black + Me.txtZollb2.Location = New System.Drawing.Point(262, 322) + Me.txtZollb2.MaxLineLength = -1 + Me.txtZollb2.MaxLines_Warning = "" + Me.txtZollb2.MaxLines_Warning_Label = Nothing + Me.txtZollb2.Name = "txtZollb2" + Me.txtZollb2.Size = New System.Drawing.Size(162, 20) + Me.txtZollb2.TabIndex = 111 + ' + 'Label10 + ' + Me.Label10.AutoSize = True + Me.Label10.Location = New System.Drawing.Point(178, 326) + Me.Label10.Name = "Label10" + Me.Label10.Size = New System.Drawing.Size(74, 13) + Me.Label10.TabIndex = 110 + Me.Label10.Text = "Zollbeamter 2:" + ' + 'txtZollb1 + ' + Me.txtZollb1._DateTimeOnly = False + Me.txtZollb1._numbersOnly = False + Me.txtZollb1._numbersOnlyKommastellen = "" + Me.txtZollb1._numbersOnlyTrennzeichen = True + Me.txtZollb1._Prozent = False + Me.txtZollb1._ShortDateNew = False + Me.txtZollb1._ShortDateOnly = False + Me.txtZollb1._TimeOnly = False + Me.txtZollb1._TimeOnly_Seconds = False + Me.txtZollb1._value = Nothing + Me.txtZollb1._Waehrung = False + Me.txtZollb1._WaehrungZeichen = True + Me.txtZollb1.ForeColor = System.Drawing.Color.Black + Me.txtZollb1.Location = New System.Drawing.Point(262, 302) + Me.txtZollb1.MaxLineLength = -1 + Me.txtZollb1.MaxLines_Warning = "" + Me.txtZollb1.MaxLines_Warning_Label = Nothing + Me.txtZollb1.Name = "txtZollb1" + Me.txtZollb1.Size = New System.Drawing.Size(162, 20) + Me.txtZollb1.TabIndex = 109 + ' + 'Label17 + ' + Me.Label17.AutoSize = True + Me.Label17.Location = New System.Drawing.Point(178, 308) + Me.Label17.Name = "Label17" + Me.Label17.Size = New System.Drawing.Size(74, 13) + Me.Label17.TabIndex = 108 + Me.Label17.Text = "Zollbeamter 1:" + ' + 'txtBeschauDat + ' + Me.txtBeschauDat._DateTimeOnly = False + Me.txtBeschauDat._numbersOnly = False + Me.txtBeschauDat._numbersOnlyKommastellen = "" + Me.txtBeschauDat._numbersOnlyTrennzeichen = True + Me.txtBeschauDat._Prozent = False + Me.txtBeschauDat._ShortDateNew = False + Me.txtBeschauDat._ShortDateOnly = True + Me.txtBeschauDat._TimeOnly = False + Me.txtBeschauDat._TimeOnly_Seconds = False + Me.txtBeschauDat._value = "" + Me.txtBeschauDat._Waehrung = False + Me.txtBeschauDat._WaehrungZeichen = True + Me.txtBeschauDat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtBeschauDat.ForeColor = System.Drawing.Color.Black + Me.txtBeschauDat.Location = New System.Drawing.Point(364, 4) + Me.txtBeschauDat.MaxLength = 10 + Me.txtBeschauDat.MaxLineLength = -1 + Me.txtBeschauDat.MaxLines_Warning = "" + Me.txtBeschauDat.MaxLines_Warning_Label = Nothing + Me.txtBeschauDat.Name = "txtBeschauDat" + Me.txtBeschauDat.Size = New System.Drawing.Size(78, 20) + Me.txtBeschauDat.TabIndex = 112 + ' + 'dtpBeschauDat + ' + Me.dtpBeschauDat.CustomFormat = "''" + Me.dtpBeschauDat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.dtpBeschauDat.Format = System.Windows.Forms.DateTimePickerFormat.Custom + Me.dtpBeschauDat.Location = New System.Drawing.Point(363, 4) + Me.dtpBeschauDat.Margin = New System.Windows.Forms.Padding(0) + Me.dtpBeschauDat.Name = "dtpBeschauDat" + Me.dtpBeschauDat.RightToLeft = System.Windows.Forms.RightToLeft.No + Me.dtpBeschauDat.Size = New System.Drawing.Size(110, 20) + Me.dtpBeschauDat.TabIndex = 113 + ' + 'txtZollagent + ' + Me.txtZollagent._DateTimeOnly = False + Me.txtZollagent._numbersOnly = False + Me.txtZollagent._numbersOnlyKommastellen = "" + Me.txtZollagent._numbersOnlyTrennzeichen = True + Me.txtZollagent._Prozent = False + Me.txtZollagent._ShortDateNew = False + Me.txtZollagent._ShortDateOnly = False + Me.txtZollagent._TimeOnly = False + Me.txtZollagent._TimeOnly_Seconds = False + Me.txtZollagent._value = Nothing + Me.txtZollagent._Waehrung = False + Me.txtZollagent._WaehrungZeichen = True + Me.txtZollagent.ForeColor = System.Drawing.Color.Black + Me.txtZollagent.Location = New System.Drawing.Point(662, 185) + Me.txtZollagent.MaxLineLength = -1 + Me.txtZollagent.MaxLines_Warning = "" + Me.txtZollagent.MaxLines_Warning_Label = Nothing + Me.txtZollagent.Name = "txtZollagent" + Me.txtZollagent.Size = New System.Drawing.Size(310, 20) + Me.txtZollagent.TabIndex = 117 + ' + 'Label18 + ' + Me.Label18.AutoSize = True + Me.Label18.Location = New System.Drawing.Point(590, 188) + Me.Label18.Name = "Label18" + Me.Label18.Size = New System.Drawing.Size(54, 13) + Me.Label18.TabIndex = 116 + Me.Label18.Text = "Zollagent:" + ' + 'Label19 + ' + Me.Label19.AutoSize = True + Me.Label19.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label19.Location = New System.Drawing.Point(259, 7) + Me.Label19.Name = "Label19" + Me.Label19.Size = New System.Drawing.Size(101, 13) + Me.Label19.TabIndex = 118 + Me.Label19.Text = "angekündigt am:" + ' + 'txtT1 + ' + Me.txtT1._DateTimeOnly = False + Me.txtT1._numbersOnly = False + Me.txtT1._numbersOnlyKommastellen = "" + Me.txtT1._numbersOnlyTrennzeichen = True + Me.txtT1._Prozent = False + Me.txtT1._ShortDateNew = False + Me.txtT1._ShortDateOnly = False + Me.txtT1._TimeOnly = False + Me.txtT1._TimeOnly_Seconds = False + Me.txtT1._value = Nothing + Me.txtT1._Waehrung = False + Me.txtT1._WaehrungZeichen = True + Me.txtT1.ForeColor = System.Drawing.Color.Black + Me.txtT1.Location = New System.Drawing.Point(662, 204) + Me.txtT1.MaxLineLength = -1 + Me.txtT1.MaxLines_Warning = "" + Me.txtT1.MaxLines_Warning_Label = Nothing + Me.txtT1.Name = "txtT1" + Me.txtT1.Size = New System.Drawing.Size(310, 20) + Me.txtT1.TabIndex = 120 + ' + 'Label20 + ' + Me.Label20.AutoSize = True + Me.Label20.Location = New System.Drawing.Point(590, 207) + Me.Label20.Name = "Label20" + Me.Label20.Size = New System.Drawing.Size(23, 13) + Me.Label20.TabIndex = 119 + Me.Label20.Text = "T1:" + ' + 'txtATB + ' + Me.txtATB._DateTimeOnly = False + Me.txtATB._numbersOnly = False + Me.txtATB._numbersOnlyKommastellen = "" + Me.txtATB._numbersOnlyTrennzeichen = True + Me.txtATB._Prozent = False + Me.txtATB._ShortDateNew = False + Me.txtATB._ShortDateOnly = False + Me.txtATB._TimeOnly = False + Me.txtATB._TimeOnly_Seconds = False + Me.txtATB._value = Nothing + Me.txtATB._Waehrung = False + Me.txtATB._WaehrungZeichen = True + Me.txtATB.ForeColor = System.Drawing.Color.Black + Me.txtATB.Location = New System.Drawing.Point(662, 223) + Me.txtATB.MaxLineLength = -1 + Me.txtATB.MaxLines_Warning = "" + Me.txtATB.MaxLines_Warning_Label = Nothing + Me.txtATB.Name = "txtATB" + Me.txtATB.Size = New System.Drawing.Size(310, 20) + Me.txtATB.TabIndex = 122 + ' + 'Label21 + ' + Me.Label21.AutoSize = True + Me.Label21.Location = New System.Drawing.Point(590, 226) + Me.Label21.Name = "Label21" + Me.Label21.Size = New System.Drawing.Size(31, 13) + Me.Label21.TabIndex = 121 + Me.Label21.Text = "ATB:" + ' + 'txtATC + ' + Me.txtATC._DateTimeOnly = False + Me.txtATC._numbersOnly = False + Me.txtATC._numbersOnlyKommastellen = "" + Me.txtATC._numbersOnlyTrennzeichen = True + Me.txtATC._Prozent = False + Me.txtATC._ShortDateNew = False + Me.txtATC._ShortDateOnly = False + Me.txtATC._TimeOnly = False + Me.txtATC._TimeOnly_Seconds = False + Me.txtATC._value = Nothing + Me.txtATC._Waehrung = False + Me.txtATC._WaehrungZeichen = True + Me.txtATC.ForeColor = System.Drawing.Color.Black + Me.txtATC.Location = New System.Drawing.Point(662, 243) + Me.txtATC.MaxLineLength = -1 + Me.txtATC.MaxLines_Warning = "" + Me.txtATC.MaxLines_Warning_Label = Nothing + Me.txtATC.Name = "txtATC" + Me.txtATC.Size = New System.Drawing.Size(310, 20) + Me.txtATC.TabIndex = 124 + ' + 'Label22 + ' + Me.Label22.AutoSize = True + Me.Label22.Location = New System.Drawing.Point(590, 246) + Me.Label22.Name = "Label22" + Me.Label22.Size = New System.Drawing.Size(31, 13) + Me.Label22.TabIndex = 123 + Me.Label22.Text = "ATC:" + ' + 'txtZoll1Date + ' + Me.txtZoll1Date._DateTimeOnly = False + Me.txtZoll1Date._numbersOnly = False + Me.txtZoll1Date._numbersOnlyKommastellen = "" + Me.txtZoll1Date._numbersOnlyTrennzeichen = True + Me.txtZoll1Date._Prozent = False + Me.txtZoll1Date._ShortDateNew = False + Me.txtZoll1Date._ShortDateOnly = True + Me.txtZoll1Date._TimeOnly = False + Me.txtZoll1Date._TimeOnly_Seconds = False + Me.txtZoll1Date._value = "" + Me.txtZoll1Date._Waehrung = False + Me.txtZoll1Date._WaehrungZeichen = True + Me.txtZoll1Date.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtZoll1Date.ForeColor = System.Drawing.Color.Black + Me.txtZoll1Date.Location = New System.Drawing.Point(510, 301) + Me.txtZoll1Date.MaxLength = 10 + Me.txtZoll1Date.MaxLineLength = -1 + Me.txtZoll1Date.MaxLines_Warning = "" + Me.txtZoll1Date.MaxLines_Warning_Label = Nothing + Me.txtZoll1Date.Name = "txtZoll1Date" + Me.txtZoll1Date.Size = New System.Drawing.Size(78, 20) + Me.txtZoll1Date.TabIndex = 125 + ' + 'DateTimePicker1 + ' + Me.DateTimePicker1.CustomFormat = "''" + Me.DateTimePicker1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.DateTimePicker1.Format = System.Windows.Forms.DateTimePickerFormat.Custom + Me.DateTimePicker1.Location = New System.Drawing.Point(509, 301) + Me.DateTimePicker1.Margin = New System.Windows.Forms.Padding(0) + Me.DateTimePicker1.Name = "DateTimePicker1" + Me.DateTimePicker1.RightToLeft = System.Windows.Forms.RightToLeft.No + Me.DateTimePicker1.Size = New System.Drawing.Size(110, 20) + Me.DateTimePicker1.TabIndex = 126 + ' + 'txtZoll2Date + ' + Me.txtZoll2Date._DateTimeOnly = False + Me.txtZoll2Date._numbersOnly = False + Me.txtZoll2Date._numbersOnlyKommastellen = "" + Me.txtZoll2Date._numbersOnlyTrennzeichen = True + Me.txtZoll2Date._Prozent = False + Me.txtZoll2Date._ShortDateNew = False + Me.txtZoll2Date._ShortDateOnly = True + Me.txtZoll2Date._TimeOnly = False + Me.txtZoll2Date._TimeOnly_Seconds = False + Me.txtZoll2Date._value = "" + Me.txtZoll2Date._Waehrung = False + Me.txtZoll2Date._WaehrungZeichen = True + Me.txtZoll2Date.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtZoll2Date.ForeColor = System.Drawing.Color.Black + Me.txtZoll2Date.Location = New System.Drawing.Point(510, 322) + Me.txtZoll2Date.MaxLength = 10 + Me.txtZoll2Date.MaxLineLength = -1 + Me.txtZoll2Date.MaxLines_Warning = "" + Me.txtZoll2Date.MaxLines_Warning_Label = Nothing + Me.txtZoll2Date.Name = "txtZoll2Date" + Me.txtZoll2Date.Size = New System.Drawing.Size(78, 20) + Me.txtZoll2Date.TabIndex = 127 + ' + 'DateTimePicker2 + ' + Me.DateTimePicker2.CustomFormat = "''" + Me.DateTimePicker2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.DateTimePicker2.Format = System.Windows.Forms.DateTimePickerFormat.Custom + Me.DateTimePicker2.Location = New System.Drawing.Point(509, 322) + Me.DateTimePicker2.Margin = New System.Windows.Forms.Padding(0) + Me.DateTimePicker2.Name = "DateTimePicker2" + Me.DateTimePicker2.RightToLeft = System.Windows.Forms.RightToLeft.No + Me.DateTimePicker2.Size = New System.Drawing.Size(110, 20) + Me.DateTimePicker2.TabIndex = 128 + ' + 'txtTimeZoll1 + ' + Me.txtTimeZoll1._DateTimeOnly = False + Me.txtTimeZoll1._numbersOnly = False + Me.txtTimeZoll1._numbersOnlyKommastellen = "" + Me.txtTimeZoll1._numbersOnlyTrennzeichen = True + Me.txtTimeZoll1._Prozent = False + Me.txtTimeZoll1._ShortDateNew = False + Me.txtTimeZoll1._ShortDateOnly = False + Me.txtTimeZoll1._TimeOnly = True + Me.txtTimeZoll1._TimeOnly_Seconds = False + Me.txtTimeZoll1._value = "" + Me.txtTimeZoll1._Waehrung = False + Me.txtTimeZoll1._WaehrungZeichen = False + Me.txtTimeZoll1.ForeColor = System.Drawing.Color.Black + Me.txtTimeZoll1.Location = New System.Drawing.Point(674, 302) + Me.txtTimeZoll1.MaxLength = 8 + Me.txtTimeZoll1.MaxLineLength = -1 + Me.txtTimeZoll1.MaxLines_Warning = "" + Me.txtTimeZoll1.MaxLines_Warning_Label = Nothing + Me.txtTimeZoll1.Name = "txtTimeZoll1" + Me.txtTimeZoll1.Size = New System.Drawing.Size(55, 20) + Me.txtTimeZoll1.TabIndex = 131 + ' + 'txtTimeZoll2 + ' + Me.txtTimeZoll2._DateTimeOnly = False + Me.txtTimeZoll2._numbersOnly = False + Me.txtTimeZoll2._numbersOnlyKommastellen = "" + Me.txtTimeZoll2._numbersOnlyTrennzeichen = True + Me.txtTimeZoll2._Prozent = False + Me.txtTimeZoll2._ShortDateNew = False + Me.txtTimeZoll2._ShortDateOnly = False + Me.txtTimeZoll2._TimeOnly = True + Me.txtTimeZoll2._TimeOnly_Seconds = False + Me.txtTimeZoll2._value = "" + Me.txtTimeZoll2._Waehrung = False + Me.txtTimeZoll2._WaehrungZeichen = False + Me.txtTimeZoll2.ForeColor = System.Drawing.Color.Black + Me.txtTimeZoll2.Location = New System.Drawing.Point(674, 323) + Me.txtTimeZoll2.MaxLength = 8 + Me.txtTimeZoll2.MaxLineLength = -1 + Me.txtTimeZoll2.MaxLines_Warning = "" + Me.txtTimeZoll2.MaxLines_Warning_Label = Nothing + Me.txtTimeZoll2.Name = "txtTimeZoll2" + Me.txtTimeZoll2.Size = New System.Drawing.Size(55, 20) + Me.txtTimeZoll2.TabIndex = 132 + ' + 'Label23 + ' + Me.Label23.AutoSize = True + Me.Label23.Location = New System.Drawing.Point(442, 309) + Me.Label23.Name = "Label23" + Me.Label23.Size = New System.Drawing.Size(41, 13) + Me.Label23.TabIndex = 133 + Me.Label23.Text = "Datum:" + ' + 'Label24 + ' + Me.Label24.AutoSize = True + Me.Label24.Location = New System.Drawing.Point(442, 328) + Me.Label24.Name = "Label24" + Me.Label24.Size = New System.Drawing.Size(41, 13) + Me.Label24.TabIndex = 134 + Me.Label24.Text = "Datum:" + ' + 'Label25 + ' + Me.Label25.AutoSize = True + Me.Label25.Location = New System.Drawing.Point(629, 308) + Me.Label25.Name = "Label25" + Me.Label25.Size = New System.Drawing.Size(39, 13) + Me.Label25.TabIndex = 135 + Me.Label25.Text = "Dauer:" + ' + 'Label27 + ' + Me.Label27.AutoSize = True + Me.Label27.Location = New System.Drawing.Point(629, 328) + Me.Label27.Name = "Label27" + Me.Label27.Size = New System.Drawing.Size(39, 13) + Me.Label27.TabIndex = 136 + Me.Label27.Text = "Dauer:" + ' + 'Label28 + ' + Me.Label28.AutoSize = True + Me.Label28.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label28.Location = New System.Drawing.Point(52, 305) + Me.Label28.Name = "Label28" + Me.Label28.Size = New System.Drawing.Size(73, 13) + Me.Label28.TabIndex = 137 + Me.Label28.Text = "Zollbeamte:" + ' + 'Label13 + ' + Me.Label13.AutoSize = True + Me.Label13.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label13.Location = New System.Drawing.Point(485, 7) + Me.Label13.Name = "Label13" + Me.Label13.Size = New System.Drawing.Size(58, 13) + Me.Label13.TabIndex = 139 + Me.Label13.Text = "VZ-Datum:" + ' + 'txtVZDatum + ' + Me.txtVZDatum._DateTimeOnly = False + Me.txtVZDatum._numbersOnly = False + Me.txtVZDatum._numbersOnlyKommastellen = "" + Me.txtVZDatum._numbersOnlyTrennzeichen = True + Me.txtVZDatum._Prozent = False + Me.txtVZDatum._ShortDateNew = False + Me.txtVZDatum._ShortDateOnly = True + Me.txtVZDatum._TimeOnly = False + Me.txtVZDatum._TimeOnly_Seconds = False + Me.txtVZDatum._value = "" + Me.txtVZDatum._Waehrung = False + Me.txtVZDatum._WaehrungZeichen = True + Me.txtVZDatum.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtVZDatum.ForeColor = System.Drawing.Color.Black + Me.txtVZDatum.Location = New System.Drawing.Point(547, 3) + Me.txtVZDatum.MaxLength = 10 + Me.txtVZDatum.MaxLineLength = -1 + Me.txtVZDatum.MaxLines_Warning = "" + Me.txtVZDatum.MaxLines_Warning_Label = Nothing + Me.txtVZDatum.Name = "txtVZDatum" + Me.txtVZDatum.Size = New System.Drawing.Size(78, 20) + Me.txtVZDatum.TabIndex = 140 + ' + 'DateTimePicker3 + ' + Me.DateTimePicker3.CustomFormat = "''" + Me.DateTimePicker3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.DateTimePicker3.Format = System.Windows.Forms.DateTimePickerFormat.Custom + Me.DateTimePicker3.Location = New System.Drawing.Point(546, 3) + Me.DateTimePicker3.Margin = New System.Windows.Forms.Padding(0) + Me.DateTimePicker3.Name = "DateTimePicker3" + Me.DateTimePicker3.RightToLeft = System.Windows.Forms.RightToLeft.No + Me.DateTimePicker3.Size = New System.Drawing.Size(110, 20) + Me.DateTimePicker3.TabIndex = 141 + ' + 'usrCntlZollbeschau + ' + 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.txtVZDatum) + Me.Controls.Add(Me.DateTimePicker3) + Me.Controls.Add(Me.Label13) + Me.Controls.Add(Me.Label28) + Me.Controls.Add(Me.Label27) + Me.Controls.Add(Me.Label25) + Me.Controls.Add(Me.Label24) + Me.Controls.Add(Me.Label23) + Me.Controls.Add(Me.txtTimeZoll2) + Me.Controls.Add(Me.txtTimeZoll1) + Me.Controls.Add(Me.txtZoll2Date) + Me.Controls.Add(Me.DateTimePicker2) + Me.Controls.Add(Me.txtZoll1Date) + Me.Controls.Add(Me.DateTimePicker1) + Me.Controls.Add(Me.txtATC) + Me.Controls.Add(Me.Label22) + Me.Controls.Add(Me.txtATB) + Me.Controls.Add(Me.Label21) + Me.Controls.Add(Me.txtT1) + Me.Controls.Add(Me.Label20) + Me.Controls.Add(Me.Label19) + Me.Controls.Add(Me.txtZollagent) + Me.Controls.Add(Me.Label18) + Me.Controls.Add(Me.txtBeschauDat) + Me.Controls.Add(Me.dtpBeschauDat) + Me.Controls.Add(Me.txtZollb2) + Me.Controls.Add(Me.Label10) + Me.Controls.Add(Me.txtZollb1) + Me.Controls.Add(Me.Label17) + Me.Controls.Add(Me.Label16) + Me.Controls.Add(Me.txtFrächter) + Me.Controls.Add(Me.Label15) + Me.Controls.Add(Me.txtFilialNr) + Me.Controls.Add(Me.Label14) + Me.Controls.Add(Me.txtWarenwert) + Me.Controls.Add(Me.Label12) + Me.Controls.Add(Me.txtAbfNr) + Me.Controls.Add(Me.Label46) + Me.Controls.Add(Me.Button2) + Me.Controls.Add(Me.LinkLabel3) + Me.Controls.Add(Me.txtDW) + Me.Controls.Add(Me.txtWarenbez) + Me.Controls.Add(Me.Label41) + Me.Controls.Add(Me.Label40) + Me.Controls.Add(Me.txtGewicht) + Me.Controls.Add(Me.Label7) + Me.Controls.Add(Me.txtAnzVerp) + Me.Controls.Add(Me.Label9) + Me.Controls.Add(Me.txtLKWKennz) + Me.Controls.Add(Me.Label37) + Me.Controls.Add(Me.txtAbsender) + Me.Controls.Add(Me.Label39) + Me.Controls.Add(Me.txtHerrFrau) + Me.Controls.Add(Me.Label26) + Me.Controls.Add(Me.btnDown) + Me.Controls.Add(Me.btnUp) + Me.Controls.Add(Me.btnDel) + Me.Controls.Add(Me.pic) + Me.Controls.Add(Me.txtFaStNr) + Me.Controls.Add(Me.Label11) + Me.Controls.Add(Me.txtAnsprechpartnerVERAG) + Me.Controls.Add(Me.Label8) + 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.txtEori) + 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.lblHerrFrau) + Me.Controls.Add(Me.lblVollmachtDE) + Me.Name = "usrCntlZollbeschau" + Me.Size = New System.Drawing.Size(1018, 389) + CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents txtAbfNr As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label46 As Label + Friend WithEvents Button2 As Button + Friend WithEvents LinkLabel3 As LinkLabel + Friend WithEvents txtDW As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtWarenbez As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label41 As Label + Friend WithEvents Label40 As Label + Friend WithEvents txtGewicht As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label7 As Label + Friend WithEvents txtAnzVerp As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label9 As Label + Friend WithEvents txtLKWKennz As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label37 As Label + Friend WithEvents txtAbsender As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label39 As Label + Friend WithEvents txtHerrFrau As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label26 As Label + Friend WithEvents btnDown As Button + Friend WithEvents btnUp As Button + Friend WithEvents btnDel As Button + Friend WithEvents pic As PictureBox + Friend WithEvents txtFaStNr As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label11 As Label + Friend WithEvents txtAnsprechpartnerVERAG As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label8 As Label + Friend WithEvents btn As Button + Friend WithEvents txtEmail As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label6 As Label + Friend WithEvents txtFax As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label4 As Label + Friend WithEvents txtTel As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label5 As Label + Friend WithEvents txtEori As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label3 As Label + Friend WithEvents txtUid As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label2 As Label + Friend WithEvents txtAdresse2 As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtAdresse1 As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label1 As Label + Friend WithEvents txtFirma As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents lblHerrFrau As Label + Friend WithEvents lblVollmachtDE As Label + Friend WithEvents txtWarenwert As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label12 As Label + Friend WithEvents txtFilialNr As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label14 As Label + Friend WithEvents txtFrächter As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label15 As Label + Friend WithEvents Label16 As Label + Friend WithEvents txtZollb2 As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label10 As Label + Friend WithEvents txtZollb1 As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label17 As Label + Friend WithEvents txtBeschauDat As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents dtpBeschauDat As DateTimePicker + Friend WithEvents txtZollagent As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label18 As Label + Friend WithEvents Label19 As Label + Friend WithEvents txtT1 As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label20 As Label + Friend WithEvents txtATB As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label21 As Label + Friend WithEvents txtATC As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label22 As Label + Friend WithEvents txtZoll1Date As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents DateTimePicker1 As DateTimePicker + Friend WithEvents txtZoll2Date As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents DateTimePicker2 As DateTimePicker + Friend WithEvents txtTimeZoll1 As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtTimeZoll2 As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label23 As Label + Friend WithEvents Label24 As Label + Friend WithEvents Label25 As Label + Friend WithEvents Label27 As Label + Friend WithEvents Label28 As Label + Friend WithEvents Label13 As Label + Friend WithEvents txtVZDatum As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents DateTimePicker3 As DateTimePicker +End Class diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrCntlZollbeschau.resx b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrCntlZollbeschau.resx new file mode 100644 index 00000000..1af7de15 --- /dev/null +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrCntlZollbeschau.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/usrCntlZollbeschau.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrCntlZollbeschau.vb new file mode 100644 index 00000000..7762c95e --- /dev/null +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrCntlZollbeschau.vb @@ -0,0 +1,198 @@ +Public Class usrCntlZollbeschau + 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) + Dim FV_ID = -1 + Public KdNR As Integer = -1 + Public KdFirma As String = "" + Public SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen = Nothing + Public AVISO As VERAG_PROG_ALLGEMEIN.cAviso = Nothing + Public Rolle As String = "" + + + Sub New() + + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + + End Sub + + Sub New(param() As Object) + + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + + If param.Length > 0 AndAlso param(0) IsNot Nothing Then KdNR = param(0) + If param.Length > 1 Then KdFirma = param(1) + If param.Length > 2 Then SENDUNG = param(2) + If param.Length > 3 Then AVISO = param(3) + If param.Length > 4 Then Rolle = param(4) + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + + End Sub + 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 + 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 initSND() + If SENDUNG IsNot Nothing Then + txtFilialNr.Text = SENDUNG.FilialenNr.ToString + txtAbfNr.Text = SENDUNG.AbfertigungsNr.ToString + txtT1.Text = If(SENDUNG.tblSnd_ATB_T1, "") + txtATB.Text = If(SENDUNG.tblSnd_ATB_Nr, "") + txtATC.Text = If(SENDUNG.tblSnd_ATCMRN_Fremd, "") + txtWarenbez.Text = If(SENDUNG.tblSnd_Warenbezeichnung, "") + txtAnzVerp.Text = If(SENDUNG.tblSnd_Colli, "") + txtGewicht.Text = If(SENDUNG.tblSnd_Gewicht, "") + txtGewicht.Text &= " kg" + txtAbsender.Text = If(SENDUNG.tblSnd_Absender, "") + txtWarenwert.Text = If(SENDUNG.tblSnd_Warenwert, "") + txtFrächter.Text = If(SENDUNG.tblSnd_Frachtfuehrer, "") + txtAbsender.Text = If(SENDUNG.tblSnd_Absender, "") + txtZollagent.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + + End If + If AVISO IsNot Nothing Then + txtLKWKennz.Text = If(AVISO.LKW_Nr, "") + End If + End Sub + + Public Sub initKdNR(KdNR) + If KdNR > 0 Then + 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, "") + txtEori.Text = If(KUNDE.EORITIN, "") + txtTel.Text = If(ADRESSE.Telefon, "") + txtFax.Text = If(ADRESSE.Telefax, "") + txtEmail.Text = If(ADRESSE.E_Mail, "") + ' txtAnsprechpartnerVERAG.Text = If(ADRESSE.Ansprechpartner, "") + Else + txtFirma.Text = KdFirma + End If + + 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 usrCntlZollbeschau_Load(sender As Object, e As EventArgs) Handles Me.Load + Label16.Text = Rolle.ToString + txtTimeZoll1.Text = "00:00" + txtTimeZoll2.Text = "00:00" + txtTimeZoll1.Enabled = False + txtTimeZoll2.Enabled = False + initControlsHandler() + txtAnsprechpartnerVERAG.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME + txtBeschauDat.Text = Date.Today.ToString("dd.MM.yyyy") + txtVZDatum.Text = Date.Today.ToString("dd.MM.yyyy") + + If IsNumeric(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_durchwahl) Then + txtDW.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_durchwahl + End If + initKdNR(KdNR) + initSND() + End Sub + + Private Sub pic_Click(sender As Object, e As EventArgs) Handles pic.Click + FormularManagerNEU.genPDF(Me, True) + End Sub + + + + + Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click + If KdNR > 0 Then + Dim f As New frmKundenUebersichtZOLL(KdNR) + f.ShowDialog(Me) + End If + End Sub + + + Private Sub DateTimePicker1_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker1.ValueChanged + txtZoll1Date._value = CDate(sender.value).ToShortDateString + If txtZoll1Date._value <> "" Then + txtTimeZoll1.Enabled = True + Else + txtTimeZoll1.Enabled = False + End If + End Sub + + Private Sub DateTimePicker2_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker2.ValueChanged + txtZoll2Date._value = CDate(sender.value).ToShortDateString + If txtZoll2Date._value <> "" Then + txtTimeZoll2.Enabled = True + Else + txtTimeZoll2.Enabled = False + End If + End Sub + + Private Sub dtpBeschauDat_ValueChanged(sender As Object, e As EventArgs) Handles dtpBeschauDat.ValueChanged + txtBeschauDat._value = CDate(sender.value).ToShortDateString + End Sub + + + + Private Sub DateTimePicker3_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker3.ValueChanged + txtVZDatum._value = CDate(sender.value).ToShortDateString + End Sub +End Class diff --git a/SDL/Formulare/KDFormulare/frmFormulare.vb b/SDL/Formulare/KDFormulare/frmFormulare.vb index 4af68417..e4f4a8db 100644 --- a/SDL/Formulare/KDFormulare/frmFormulare.vb +++ b/SDL/Formulare/KDFormulare/frmFormulare.vb @@ -11,6 +11,7 @@ Imports Microsoft.VisualBasic.ApplicationServices Imports System.Net.Mail Imports System.Reflection Imports System.Text.RegularExpressions +Imports DAKOSY_Worker.NichtAbschliessendeFestsetzung Public Class frmFormulare Dim isSingleForm = False @@ -247,6 +248,8 @@ Public Class frmFormulare MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verbundenheit Käufer/Verkäufer", FormularManagerArten.Verbundenheit)) + MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Zollbeschau Protokoll", FormularManagerArten.Zollbeschau_Protokoll)) + cboVorlage.Items.Clear() cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", "")) cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neukunde DE", FormularVorlagenGruppe.NeukundeDE)) @@ -720,6 +723,23 @@ Public Class frmFormulare AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown MyFlowLayoutPanel1.Controls.Add(c) + Case FormularManagerArten.Zollbeschau_Protokoll + Dim displayName = "" + Dim c As usrCntlZollbeschau + If param Is Nothing Then + c = New usrCntlZollbeschau + Else + c = New usrCntlZollbeschau(param) + End If + If ControlExists_addOK(c.GetType.ToString) Then + c.Width = MyFlowLayoutPanel1.Width - 6 + c.KdNR = KdNr + AddHandler c.DELETE, AddressOf ControlDELETE + AddHandler c.MOVE_UP, AddressOf ControlMoveUp + AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown + MyFlowLayoutPanel1.Controls.Add(c) + End If + @@ -1054,7 +1074,7 @@ Public Class frmFormulare End If End If - End If + End If End If printed = True @@ -1131,13 +1151,13 @@ Public Class frmFormulare Next End If For Each i In cboPrinter.Items - If i.ToString = oPS.PrinterName Then - cboPrinter.SelectedItem = i - Exit Sub - End If - Next + If i.ToString = oPS.PrinterName Then + cboPrinter.SelectedItem = i + Exit Sub + End If + Next - End If + End If End If End Sub @@ -1305,6 +1325,9 @@ Public Class FormularManagerNEU Case GetType(usrcntlVUB).ToString retStr = FormularManagerNEU.VUB(c) + Case GetType(usrCntlZollbeschau).ToString + retStr = FormularManagerNEU.Zollbeschau(c) + End Select If retStr <> "" Then striList.Add(retStr) @@ -1376,17 +1399,17 @@ Public Class FormularManagerNEU Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 128, 36, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 128, 36, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 40, 50, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 40, 56, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 40, 62, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 40, 50, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 40, 56, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 40, 62, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUid.Text, 40, 68, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 119, 68, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, 74, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 119, 74, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 81, 90, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUid.Text, 40, 68, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 119, 68, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, 74, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 119, 74, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 81, 90, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) Dim top = 0 If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then @@ -1416,17 +1439,17 @@ Public Class FormularManagerNEU Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 128, 36, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 128, 36, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 40, 50, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 40, 56, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 40, 62, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 40, 50, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 40, 56, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 40, 62, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUid.Text, 40, 68, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 119, 68, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, 74, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 119, 74, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 80, 90, 6, "bold", 8, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUid.Text, 40, 68, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 119, 68, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, 74, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 119, 74, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 80, 90, 6, "bold", 8, , itextsharp.text.Element.ALIGN_LEFT)) Dim top = 0 If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then @@ -1456,22 +1479,22 @@ Public Class FormularManagerNEU Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 128, 34, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 128, 34, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 40, 49, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 40, 55, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 40, 61, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 40, 49, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 40, 55, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 40, 61, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtRechtsform.Text, 40, 67, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtInhaber.Text, 129, 67, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtRechtsform.Text, 40, 67, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtInhaber.Text, 129, 67, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUid.Text, 40, 75, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 129, 75, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, 82, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 129, 82, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 88, 65, 6, "bold", 8, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFaStNr.Text, 132, 88, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUid.Text, 40, 75, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 129, 75, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, 82, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 129, 82, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 88, 65, 6, "bold", 8, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFaStNr.Text, 132, 88, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) If usrCntl.cbxEinmaligeVollmacht.Checked Then listTowrite = addEinmaligeVM(listTowrite, 0, 220, usrCntl.cboSprache._value, usrCntl.txtEinmalig_RgNr.Text, usrCntl.txtEinmalig_RgDat.Text) @@ -2949,7 +2972,7 @@ Public Class FormularManagerNEU Case "NKD" : ort = "Nickelsdorf" Case "NEU" : ort = "Neuhaus am Inn" End Select - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(ort & ", den " & Now.ToShortDateString, 25, 270, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(ort & ", den " & Now.ToShortDateString, 25, 270, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) striList.Add(fm.fillPDFVorhandenesLokalesPDF_Path(path, listTowrite, , , , , bc)) @@ -2969,24 +2992,24 @@ Public Class FormularManagerNEU Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 128, 33, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 128, 33, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 40, 45, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 40, 51, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 40, 56, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 40, 45, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 40, 51, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 40, 56, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) Select Case usrCntl.cboSprache._value - Case "EN" : listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtRechtsform.Text, 50, 62, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - Case Else : listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtRechtsform.Text, 40, 62, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + Case "EN" : listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtRechtsform.Text, 50, 62, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + Case Else : listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtRechtsform.Text, 40, 62, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) End Select - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtInhaber.Text, 129, 62, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtInhaber.Text, 129, 62, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUid.Text, 40, 70, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 129, 70, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, 75, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 129, 75, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 81, 90, 6, "bold", 8, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUid.Text, 40, 70, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 129, 70, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, 75, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 129, 75, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 81, 90, 6, "bold", 8, , itextsharp.text.Element.ALIGN_LEFT)) If usrCntl.cbxEinmaligeVollmacht.Checked Then listTowrite = addEinmaligeVM(listTowrite, 88, 110, usrCntl.cboSprache._value, usrCntl.txtEinmalig_RgNr.Text, usrCntl.txtEinmalig_RgDat.Text, True) @@ -3050,19 +3073,19 @@ Public Class FormularManagerNEU Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Stufe " & stufe, 73, 86.5, 150, 10, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(ErgebnisTXT, 73, 110, 150, 10, "bold", 14, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Stufe " & stufe, 73, 86.5, 150, 10, "normal", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(ErgebnisTXT, 73, 110, 150, 10, "bold", 14, , itextsharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(abfrageDatum.ToShortDateString & " " & abfrageDatum.ToShortTimeString & " Uhr", 73, 118, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(uidAbfrage, ""), 73, 126, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(firma, ""), 73, 133, 150, 30, If(If(firma, "").ToString.StartsWith("*"), "normal", "bold"), 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(abfrageDatum.ToShortDateString & " " & abfrageDatum.ToShortTimeString & " Uhr", 73, 118, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(uidAbfrage, ""), 73, 126, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(firma, ""), 73, 133, 150, 30, If(If(firma, "").ToString.StartsWith("*"), "normal", "bold"), 10, , itextsharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(tid, ""), 73, 163, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(tid, ""), 73, 163, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(uidAntragsteller, 73, 170, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(SB <> "", SB, VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME), 73, 179, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(sessionID, ""), 73, 191, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(uidAntragsteller, 73, 170, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(SB <> "", SB, VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME), 73, 179, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(sessionID, ""), 73, 191, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) ' Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "UID_Prüfung", listTowrite) Dim PdfTmp = fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2_FO, "", "UID_Prufung", listTowrite) @@ -3084,17 +3107,17 @@ Public Class FormularManagerNEU Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(ErgebnisTXT, 73, 110, 150, 10, "bold", 14, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(ErgebnisTXT, 73, 110, 150, 10, "bold", 14, , itextsharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(Now.ToShortDateString & " " & Now.ToShortTimeString & " Uhr", 73, 118, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(txtEORI, 73, 126, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(firma, 73, 133, 150, 30, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(Now.ToShortDateString & " " & Now.ToShortTimeString & " Uhr", 73, 118, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(txtEORI, 73, 126, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(firma, 73, 133, 150, 30, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) ' listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(tid, 73, 163, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) ' listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(uidAntragsteller, 73, 170, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME, 73, 158, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME, 73, 158, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) ' listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(sessionID, 73, 191, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) ' Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "UID_Prüfung", listTowrite) @@ -3114,28 +3137,28 @@ Public Class FormularManagerNEU Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 128, 33, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 128, 33, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 40, 47, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 40, 53, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 40, 59, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 40, 47, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 40, 53, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 40, 59, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) Select Case usrCntl.cboSprache._value - Case "EN" : listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtRechtsform.Text, 52, 66, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - Case Else : listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtRechtsform.Text, 40, 66, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + Case "EN" : listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtRechtsform.Text, 52, 66, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + Case Else : listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtRechtsform.Text, 40, 66, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) End Select - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtInhaber.Text, 129, 66, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtInhaber.Text, 129, 66, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUid.Text, 40, 74, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 129, 74, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, 80, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 129, 80, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 86, 80, 6, "bold", 8, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFaStNr.Text, If(usrCntl.cboSprache._value = "EN", 135, 129), 86, 65, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUid.Text, 40, 74, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 129, 74, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, 80, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 129, 80, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 86, 80, 6, "bold", 8, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFaStNr.Text, If(usrCntl.cboSprache._value = "EN", 135, 129), 86, 65, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(usrCntl.cbxEVVerzollung.Checked, "x", ""), 38, 94, 3, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(usrCntl.cbxKonto.Checked, "x", ""), 38, 98, 3, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(usrCntl.cbxEVVerzollung.Checked, "x", ""), 38, 94, 3, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(usrCntl.cbxKonto.Checked, "x", ""), 38, 98, 3, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) If usrCntl.cbxEinmaligeVollmacht.Checked Then listTowrite = addEinmaligeVM(listTowrite, 0, 225, usrCntl.cboSprache._value, usrCntl.txtEinmalig_RgNr.Text, usrCntl.txtEinmalig_RgDat.Text) @@ -3162,18 +3185,18 @@ Public Class FormularManagerNEU Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 40, 36, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 40, 42, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 40, 47, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 40, 36, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 40, 42, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 40, 47, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) Select Case usrCntl.cboSprache._value - Case "EN", "FR" : listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtRechtsform.Text, 45, 53, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - Case Else : listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtRechtsform.Text, 40, 53, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + Case "EN", "FR" : listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtRechtsform.Text, 45, 53, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + Case Else : listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtRechtsform.Text, 40, 53, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) End Select - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUid.Text, 40, 61, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, 66, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 72, 80, 6, "bold", 8, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUid.Text, 40, 61, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, 66, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 72, 80, 6, "bold", 8, , itextsharp.text.Element.ALIGN_LEFT)) If usrCntl.cbxEinmaligeVollmacht.Checked Then listTowrite = addEinmaligeVM(listTowrite, 88, 100, usrCntl.cboSprache._value, usrCntl.txtEinmalig_RgNr.Text, usrCntl.txtEinmalig_RgDat.Text, True) @@ -3184,22 +3207,22 @@ Public Class FormularManagerNEU Select Case usrCntl.cboSprache._value Case "EN" - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 128, 24, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtInhaber.Text, 140, 53, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 133, 66, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 133, 61, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 128, 24, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtInhaber.Text, 140, 53, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 133, 66, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 133, 61, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", getUO2, "", "VM_AT_Fiskal_EN", listTowrite) Case "FR" - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 145, 24, 130, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtInhaber.Text, 140, 53, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 133, 66, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 133, 61, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 145, 24, 130, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtInhaber.Text, 140, 53, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 133, 66, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 133, 61, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", getUO2, "", "VM_AT_Fiskal_FR", listTowrite) Case Else - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 128, 24, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtInhaber.Text, 129, 53, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 129, 66, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 129, 61, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 128, 24, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtInhaber.Text, 129, 53, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 129, 66, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 129, 61, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", getUO2, "", "VM_AT_Fiskal", listTowrite) End Select Return "" @@ -3213,25 +3236,25 @@ Public Class FormularManagerNEU ' listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 128, 36, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 40, 68, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 40, 74, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 40, 80, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 40, 68, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 40, 74, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 40, 80, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 40, 87, 71, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAEO.Text, 133, 87, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, 93, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 133, 93, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 99, 80, 6, "bold", 8, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 40, 87, 71, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAEO.Text, 133, 87, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, 93, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 133, 93, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 99, 80, 6, "bold", 8, , itextsharp.text.Element.ALIGN_LEFT)) 'If usrCntl.cbxEinmaligeVollmacht.Checked Then 'listTowrite = addEinmaligeVM(listTowrite, 0, 215, usrCntl.cboSprache._value, usrCntl.txtEinmalig_RgNr.Text, usrCntl.txtEinmalig_RgDat.Text) ' End If If usrCntl.cbxEinmaligeVollmacht.Checked Then - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("x", 40, 54, 3, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEinmalig_RgNr.Text, 67, 54, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEinmalig_RgDat.Text, 134, 54, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("x", 40, 54, 3, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEinmalig_RgNr.Text, 67, 54, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_CENTER)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEinmalig_RgDat.Text, 134, 54, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_CENTER)) Else - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("x", 40, 49, 3, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("x", 40, 49, 3, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) End If @@ -3250,25 +3273,25 @@ Public Class FormularManagerNEU Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 40, 68, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 40, 74, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 40, 80, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 40, 68, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 40, 74, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 40, 80, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 40, 87, 71, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAEO.Text, 133, 87, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, 93, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 133, 93, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 99, 80, 6, "bold", 8, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 40, 87, 71, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAEO.Text, 133, 87, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, 93, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 133, 93, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 99, 80, 6, "bold", 8, , itextsharp.text.Element.ALIGN_LEFT)) 'If usrCntl.cbxEinmaligeVollmacht.Checked Then 'listTowrite = addEinmaligeVM(listTowrite, 0, 215, usrCntl.cboSprache._value, usrCntl.txtEinmalig_RgNr.Text, usrCntl.txtEinmalig_RgDat.Text) ' End If If usrCntl.cbxEinmaligeVollmacht.Checked Then - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("x", 40, 54, 3, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEinmalig_RgNr.Text, 67, 54, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEinmalig_RgDat.Text, 134, 54, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("x", 40, 54, 3, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEinmalig_RgNr.Text, 67, 54, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_CENTER)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEinmalig_RgDat.Text, 134, 54, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_CENTER)) Else - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("x", 40, 49, 3, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("x", 40, 49, 3, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) End If @@ -3299,98 +3322,98 @@ Public Class FormularManagerNEU Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartnerVERAG.Text, 144, 36, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("– " & usrCntl.txtDW.Text, 45, 30.2, 15, 4, "normal", 8, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartnerVERAG.Text, 144, 36, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("– " & usrCntl.txtDW.Text, 45, 30.2, 15, 4, "normal", 8, , itextsharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtHerrFrau.Text, 32, 52, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 32, 60, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 32, 66, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 32, 71, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtHerrFrau.Text, 32, 52, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 32, 60, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 32, 66, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 32, 71, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 32, 78, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 120, 78, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 32, 85, 80, 6, "bold", 8, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 32, 78, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 120, 78, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 32, 85, 80, 6, "bold", 8, , itextsharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUid.Text, 32, 91, 65, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 120, 91, 65, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUid.Text, 32, 91, 65, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 120, 91, 65, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtRechnungsnummern.Text, 83, 106, 110, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtRechnungsnummern.Text, 83, 106, 110, 6, "bold", 10, , itextsharp.text.Element.ALIGN_CENTER)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAbsender.Text, 32, 113, 88, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtATUEur1.Text, 145, 113, 40, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtLKWKennz.Text, 43, 120, 45, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUnternehmer.Text, 112, 120, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnzVerp.Text, 32, 126, 32, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtWarenbez.Text, 83, 126, 62, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(usrCntl.txtGewicht.Text.Trim.EndsWith("kg"), usrCntl.txtGewicht.Text, usrCntl.txtGewicht.Text & " kg"), 160, 126, 30, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAbsender.Text, 32, 113, 88, 6, "bold", 10, , itextsharp.text.Element.ALIGN_CENTER)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtATUEur1.Text, 145, 113, 40, 6, "bold", 10, , itextsharp.text.Element.ALIGN_CENTER)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtLKWKennz.Text, 43, 120, 45, 6, "bold", 10, , itextsharp.text.Element.ALIGN_CENTER)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUnternehmer.Text, 112, 120, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_CENTER)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnzVerp.Text, 32, 126, 32, 6, "bold", 10, , itextsharp.text.Element.ALIGN_CENTER)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtWarenbez.Text, 83, 126, 62, 6, "bold", 10, , itextsharp.text.Element.ALIGN_CENTER)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(usrCntl.txtGewicht.Text.Trim.EndsWith("kg"), usrCntl.txtGewicht.Text, usrCntl.txtGewicht.Text & " kg"), 160, 126, 30, 6, "bold", 10, , itextsharp.text.Element.ALIGN_CENTER)) Dim top = 208 If usrCntl.cboFiliale._value <> "" Then - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.cboFiliale._value & "/" & usrCntl.txtAbfertigungsNr.Text, 60, top + 71.5, 43, 8, "bold", 13, , iTextSharp.text.Element.ALIGN_RIGHT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.cboFiliale._value & "/" & usrCntl.txtAbfertigungsNr.Text, 60, top + 71.5, 43, 8, "bold", 13, , itextsharp.text.Element.ALIGN_RIGHT)) Else - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAbfertigungsNr.Text, 60, top + 71.5, 43, 8, "bold", 13, , iTextSharp.text.Element.ALIGN_RIGHT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAbfertigungsNr.Text, 60, top + 71.5, 43, 8, "bold", 13, , itextsharp.text.Element.ALIGN_RIGHT)) End If Dim w = "" If usrCntl.cboFirma._value = "26" Then w = "GBP" 'VERAG-UNISPED LTD - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Document-Date: " & Now.ToShortDateString, 100, 185.7, 100, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Document-Date: " & Now.ToShortDateString, 100, 185.7, 100, 6, "bold", 10, , itextsharp.text.Element.ALIGN_RIGHT)) Else - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Vorauskasse-Datum: " & Now.ToShortDateString, 100, 185.7, 100, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Vorauskasse-Datum: " & Now.ToShortDateString, 100, 185.7, 100, 6, "bold", 10, , itextsharp.text.Element.ALIGN_RIGHT)) End If - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.lblRechnungsbetrag.Text, w), 70, top + 0, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtFrachtkostenAusl.Text, w), 70, top + 4, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtZwischensumme.Text, w), 70, top + 8.5, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtZoll.Text, w), 70, top + 12, 30, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtZollProzent.Text, 40, top + 12, 30, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtFrachtkostenInl.Text, w), 70, top + 16, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEustSonstText.Text, 13, top + 20.8, 40, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtEustSonstBetrag.Text, w), 70, top + 20.5, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtSumme.Text, w), 70, top + 25, 30, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.lblRechnungsbetrag.Text, w), 70, top + 0, 30, 6, "normal", 10, , itextsharp.text.Element.ALIGN_RIGHT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtFrachtkostenAusl.Text, w), 70, top + 4, 30, 6, "normal", 10, , itextsharp.text.Element.ALIGN_RIGHT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtZwischensumme.Text, w), 70, top + 8.5, 30, 6, "normal", 10, , itextsharp.text.Element.ALIGN_RIGHT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtZoll.Text, w), 70, top + 12, 30, 6, "bold", 10, , itextsharp.text.Element.ALIGN_RIGHT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtZollProzent.Text, 40, top + 12, 30, 6, "bold", 10, , itextsharp.text.Element.ALIGN_RIGHT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtFrachtkostenInl.Text, w), 70, top + 16, 30, 6, "normal", 10, , itextsharp.text.Element.ALIGN_RIGHT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEustSonstText.Text, 13, top + 20.8, 40, 6, "normal", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtEustSonstBetrag.Text, w), 70, top + 20.5, 30, 6, "normal", 10, , itextsharp.text.Element.ALIGN_RIGHT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtSumme.Text, w), 70, top + 25, 30, 6, "bold", 10, , itextsharp.text.Element.ALIGN_RIGHT)) Dim eustProz = If(IsNumeric(usrCntl.txtEustProzent._value), CDbl(usrCntl.txtEustProzent._value).ToString("P2"), usrCntl.txtEustProzent._value) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(eustProz, 40, top + 29, 30, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtEUST.Text, w), 70, top + 29, 30, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(eustProz, 40, top + 29, 30, 6, "bold", 10, , itextsharp.text.Element.ALIGN_RIGHT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtEUST.Text, w), 70, top + 29, 30, 6, "bold", 10, , itextsharp.text.Element.ALIGN_RIGHT)) top = 209 - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtZoll2.Text, w), 170, top + 0, 30, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtEust2.Text, w), 170, top + 4, 30, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAndereAbgabenText.Text, 116.5, top + 8, 40, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtAndereAbgabenBetrag.Text, w), 170, top + 8, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtVerzollungskosten.Text, w), 170, top + 13, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtWeitereTarifPos.Text, w), 170, top + 17, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtATLAS.Text, w), 170, top + 21, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtClearing.Text, w), 170, top + 25, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtKorrRechnung.Text, w), 170, top + 29, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtUebersetzungRg.Text, w), 170, top + 33, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtZoll2.Text, w), 170, top + 0, 30, 6, "bold", 10, , itextsharp.text.Element.ALIGN_RIGHT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtEust2.Text, w), 170, top + 4, 30, 6, "bold", 10, , itextsharp.text.Element.ALIGN_RIGHT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAndereAbgabenText.Text, 116.5, top + 8, 40, 6, "normal", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtAndereAbgabenBetrag.Text, w), 170, top + 8, 30, 6, "normal", 10, , itextsharp.text.Element.ALIGN_RIGHT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtVerzollungskosten.Text, w), 170, top + 13, 30, 6, "normal", 10, , itextsharp.text.Element.ALIGN_RIGHT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtWeitereTarifPos.Text, w), 170, top + 17, 30, 6, "normal", 10, , itextsharp.text.Element.ALIGN_RIGHT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtATLAS.Text, w), 170, top + 21, 30, 6, "normal", 10, , itextsharp.text.Element.ALIGN_RIGHT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtClearing.Text, w), 170, top + 25, 30, 6, "normal", 10, , itextsharp.text.Element.ALIGN_RIGHT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtKorrRechnung.Text, w), 170, top + 29, 30, 6, "normal", 10, , itextsharp.text.Element.ALIGN_RIGHT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtUebersetzungRg.Text, w), 170, top + 33, 30, 6, "normal", 10, , itextsharp.text.Element.ALIGN_RIGHT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtAviso.Text, w), 170, top + 37, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtSvs.Text, w), 170, top + 41, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtAviso.Text, w), 170, top + 37, 30, 6, "normal", 10, , itextsharp.text.Element.ALIGN_RIGHT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtSvs.Text, w), 170, top + 41, 30, 6, "normal", 10, , itextsharp.text.Element.ALIGN_RIGHT)) 'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtSonstigeKostenText.Text, 116.5, top + 45, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT)) 'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtSonstigeKosten.Text, 170, top + 45, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT)) 'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtMwstProzent.Text, 140, top + 49, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT)) 'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtMWST.Text, 170, top + 49, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT)) 'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtPapierePorti.Text, 170, top + 56, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtPapierePorti.Text, w), 170, top + 45, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtSonstigeKostenText.Text, 116.5, top + 49, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtSonstigeKosten.Text, w), 170, top + 49, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtMwstProzent.Text, 140, top + 53, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtMWST.Text, w), 170, top + 53, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtPapierePorti.Text, w), 170, top + 45, 30, 6, "normal", 10, , itextsharp.text.Element.ALIGN_RIGHT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtSonstigeKostenText.Text, 116.5, top + 49, 30, 6, "normal", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtSonstigeKosten.Text, w), 170, top + 49, 30, 6, "normal", 10, , itextsharp.text.Element.ALIGN_RIGHT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtMwstProzent.Text, 140, top + 53, 30, 6, "normal", 10, , itextsharp.text.Element.ALIGN_RIGHT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtMWST.Text, w), 170, top + 53, 30, 6, "normal", 10, , itextsharp.text.Element.ALIGN_RIGHT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.lblWaehrung.Text, w), 140, top + 61, 30, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtGesamtsumme.Text, w), 170, top + 61, 30, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.lblWaehrung.Text, w), 140, top + 61, 30, 6, "bold", 10, , itextsharp.text.Element.ALIGN_RIGHT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtGesamtsumme.Text, w), 170, top + 61, 30, 6, "bold", 10, , itextsharp.text.Element.ALIGN_RIGHT)) If usrCntl.cbxLKWWartet.Checked Then - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("!!! LKW wartet !!!", 141, 12, 60, 15, "boldRed", 20, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("!!! LKW wartet !!!", 141, 12, 60, 15, "boldRed", 20, , itextsharp.text.Element.ALIGN_LEFT)) End If If usrCntl.cbxBeimErstellenSpeichern.Checked Then @@ -3474,31 +3497,31 @@ Public Class FormularManagerNEU Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues) Dim top = -5 - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartnerVERAG.Text, 144, 38 + top, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("– " & usrCntl.txtDW.Text, 45, 32.8 + top, 15, 4, "normal", 8, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartnerVERAG.Text, 144, 38 + top, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("– " & usrCntl.txtDW.Text, 45, 32.8 + top, 15, 4, "normal", 8, , itextsharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtHerrFrau.Text, 32, 53.5 + top, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 32, 60 + top, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 32, 66 + top, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 32, 71.5 + top, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtHerrFrau.Text, 32, 53.5 + top, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 32, 60 + top, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 32, 66 + top, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 32, 71.5 + top, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 32, 78 + top, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 120, 78 + top, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 32, 85 + top, 80, 6, "bold", 8, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 32, 78 + top, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 120, 78 + top, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 32, 85 + top, 80, 6, "bold", 8, , itextsharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUid.Text, 32, 91 + top, 65, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 120, 91 + top, 65, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUid.Text, 32, 91 + top, 65, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 120, 91 + top, 65, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) top = -10 - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtRechnungsnummern.Text, 83, 107.5 + top, 110, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtRechnungsnummern.Text, 83, 107.5 + top, 110, 6, "bold", 10, , itextsharp.text.Element.ALIGN_CENTER)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAbsender.Text, 32, 114 + top, 88, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtATUEur1.Text, 145, 114 + top, 40, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtLKWKennz.Text, 43, 120 + top, 45, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUnternehmer.Text, 112, 120 + top, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnzVerp.Text, 32, 127 + top, 32, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtWarenbez.Text, 83, 127 + top, 62, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(usrCntl.txtGewicht.Text.Trim.EndsWith("kg"), usrCntl.txtGewicht.Text, usrCntl.txtGewicht.Text & " kg"), 163, 127 + top, 30, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAbsender.Text, 32, 114 + top, 88, 6, "bold", 10, , itextsharp.text.Element.ALIGN_CENTER)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtATUEur1.Text, 145, 114 + top, 40, 6, "bold", 10, , itextsharp.text.Element.ALIGN_CENTER)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtLKWKennz.Text, 43, 120 + top, 45, 6, "bold", 10, , itextsharp.text.Element.ALIGN_CENTER)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUnternehmer.Text, 112, 120 + top, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_CENTER)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnzVerp.Text, 32, 127 + top, 32, 6, "bold", 10, , itextsharp.text.Element.ALIGN_CENTER)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtWarenbez.Text, 83, 127 + top, 62, 6, "bold", 10, , itextsharp.text.Element.ALIGN_CENTER)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(usrCntl.txtGewicht.Text.Trim.EndsWith("kg"), usrCntl.txtGewicht.Text, usrCntl.txtGewicht.Text & " kg"), 163, 127 + top, 30, 6, "bold", 10, , itextsharp.text.Element.ALIGN_CENTER)) @@ -3521,7 +3544,7 @@ Public Class FormularManagerNEU If usrCntl.cbxLKWWartet.Checked Then - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("!!! LKW wartet !!!", 141, 11, 60, 15, "boldRed", 20, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("!!! LKW wartet !!!", 141, 11, 60, 15, "boldRed", 20, , itextsharp.text.Element.ALIGN_LEFT)) End If Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA @@ -3539,6 +3562,65 @@ Public Class FormularManagerNEU Return "" End Function + Shared Function Zollbeschau(usrCntl As usrCntlZollbeschau) As String + Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager + + Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues) + Dim top = 0 + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartnerVERAG.Text, 145, 50 + top, 150, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFilialNr.Text & "/" & usrCntl.txtAbfNr.Text, 40, 50 + top, 150, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtT1.Text, 145, 55 + top, 150, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtATB.Text, 145, 60 + top, 150, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtATC.Text, 145, 65 + top, 150, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtVZDatum.Text, 120, 72 + top, 150, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT)) + + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtZollagent.Text, 40, 82 + top, 55, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFrächter.Text, 40, 88 + top, 55, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAbsender.Text, 40, 93 + top, 55, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtZollb1.Text, 40, 98 + top, 150, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtZollb2.Text, 40, 103 + top, 150, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT)) + + + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtBeschauDat.Text, 141, 82 + top, 150, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtLKWKennz.Text, 135, 88 + top, 135, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 135, 93 + top, 135, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT)) + + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(IIf(usrCntl.txtZoll1Date.Text <> "", usrCntl.txtZoll1Date.Text & " " & usrCntl.txtTimeZoll1.Text, ""), 135, 97 + top, 135, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(IIf(usrCntl.txtZoll2Date.Text <> "", usrCntl.txtZoll2Date.Text & " " & usrCntl.txtTimeZoll2.Text, ""), 135, 102 + top, 135, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT)) + + 'Sendungsdaten + + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnzVerp.Text, 130, 130 + top, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtGewicht.Text, 160, 130 + top, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtWarenbez.Text, 42, 146 + top, 150, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT)) + + + 'Tabelle + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("60 €", 122, 151 + top, 150, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("60 €", 122, 199 + top, 200, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT)) + + Dim ort As String = "" + + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG + Case "AMB" : ort = "Bad Reichenhall" + End Select + + 'Signatur + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(ort & ", " & Date.Today.ToString("dd.MM.yyyy"), 17, 267 + top, 200, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT)) + + + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + Case "AMBAR" + Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "ZollbeschauAMBAR", listTowrite) + Case Else + MsgBox("Funktion für " & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & " nicht implementiert! ") + + End Select + + Return "" + End Function + + Shared Function Gestellungsgarantie(usrCntl As usrcntlGestellungsgarantie) As String Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager @@ -5241,6 +5323,7 @@ Public Class FormularManagerArten Shared Property Sendungsliste = "Sendungsliste" Shared Property Rechnungsbestaetigung = "Rechnungsbestaetigung" + Shared Property Zollbeschau_Protokoll = "Zollbeschau Protokoll" diff --git a/SDL/SDL.vbproj b/SDL/SDL.vbproj index ba8ee61d..15373a8d 100644 --- a/SDL/SDL.vbproj +++ b/SDL/SDL.vbproj @@ -554,6 +554,12 @@ UserControl + + usrCntlZollbeschau.vb + + + UserControl + frmKundenBesonderheiten_Add.vb @@ -2792,6 +2798,9 @@ usrcntlVollmacht_DE_indirekt.vb + + usrCntlZollbeschau.vb + frmKundenBesonderheiten_Add.vb @@ -3862,9 +3871,6 @@ Always - - Always - Always