From c47adbc7cbb5d9d1ea15e01e18d0133b20b1447d Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Wed, 4 Jun 2025 10:10:07 +0200 Subject: [PATCH] vers, tr bank, lagervertrag --- SDL/Fakturierung/cFakturierung.vb | 50 ++- SDL/Fakturierung/rptRechnungDruck.Designer.vb | 4 +- .../usrcntLagervertrag.Designer.vb | 312 +++--------------- .../FormulareBaukasten/usrcntLagervertrag.vb | 14 +- SDL/Formulare/KDFormulare/frmFormulare.vb | 98 +++++- SDL/My Project/AssemblyInfo.vb | 4 +- 6 files changed, 190 insertions(+), 292 deletions(-) diff --git a/SDL/Fakturierung/cFakturierung.vb b/SDL/Fakturierung/cFakturierung.vb index b162c047..cf90452f 100644 --- a/SDL/Fakturierung/cFakturierung.vb +++ b/SDL/Fakturierung/cFakturierung.vb @@ -953,11 +953,28 @@ Public Class cFakturierung End If End If Case Else 'VERAG,ATILLA - rpt.txtBank1.Text = If(FIRMA.Firma_Bankverbindung1, "") & vbNewLine & If(FIRMA.Firma_IBAN1, "") & vbNewLine & If(FIRMA.Firma_BIC1, "").ToString.Trim - rpt.txtBank2.Text = If(FIRMA.Firma_Bankverbindung2, "") & vbNewLine & If(FIRMA.Firma_IBAN2, "") & vbNewLine & If(FIRMA.Firma_BIC2, "").ToString.Trim - rpt.txtBank1.Text = rpt.txtBank1.Text.Replace("Österreich: ", "Österreich:" & vbNewLine).Replace("BRD: ", "Deutschland:" & vbNewLine).Replace("Deutschland: ", "Deutschland:" & vbNewLine) - rpt.txtBank2.Text = rpt.txtBank2.Text.Replace("Österreich: ", "Österreich:" & vbNewLine).Replace("BRD: ", "Deutschland:" & vbNewLine).Replace("Deutschland: ", "Deutschland:" & vbNewLine) + If RechnungsLandKz = "TR" Then + rpt.txtBank1.Text = If(FIRMA.Firma_Bankverbindung1, "") & vbNewLine & If(FIRMA.Firma_IBAN1, "") & vbNewLine & If(FIRMA.Firma_BIC1, "").ToString.Trim + rpt.txtBank2.Text = If(FIRMA.Firma_Bankverbindung2, "") & vbNewLine & If(FIRMA.Firma_IBAN2, "") & vbNewLine & If(FIRMA.Firma_BIC2, "").ToString.Trim + + rpt.txtBank1.Text = rpt.txtBank1.Text.Replace("Österreich: ", "Österreich:" & vbNewLine).Replace("BRD: ", "Deutschland:" & vbNewLine).Replace("Deutschland: ", "Deutschland:" & vbNewLine) + rpt.txtBank2.Text = rpt.txtBank2.Text.Replace("Österreich: ", "Österreich:" & vbNewLine).Replace("BRD: ", "Deutschland:" & vbNewLine).Replace("Deutschland: ", "Deutschland:" & vbNewLine) + + If Not hasEUSTZOLL(RechnungsNr) Then + + rpt.txtBank1.Text = "Türkei:" & vbNewLine & "Garanti Bank Hadimköy " & vbNewLine & "EUR-IBAN: TR96 0006 2000 5440 0009 0672 28" & vbNewLine & "SWIFT: TGBATRISXXX | Kto: 544" + + End If + Else + rpt.txtBank1.Text = If(FIRMA.Firma_Bankverbindung1, "") & vbNewLine & If(FIRMA.Firma_IBAN1, "") & vbNewLine & If(FIRMA.Firma_BIC1, "").ToString.Trim + rpt.txtBank2.Text = If(FIRMA.Firma_Bankverbindung2, "") & vbNewLine & If(FIRMA.Firma_IBAN2, "") & vbNewLine & If(FIRMA.Firma_BIC2, "").ToString.Trim + + rpt.txtBank1.Text = rpt.txtBank1.Text.Replace("Österreich: ", "Österreich:" & vbNewLine).Replace("BRD: ", "Deutschland:" & vbNewLine).Replace("Deutschland: ", "Deutschland:" & vbNewLine) + rpt.txtBank2.Text = rpt.txtBank2.Text.Replace("Österreich: ", "Österreich:" & vbNewLine).Replace("BRD: ", "Deutschland:" & vbNewLine).Replace("Deutschland: ", "Deutschland:" & vbNewLine) + + End If + End Select @@ -1026,11 +1043,28 @@ Public Class cFakturierung End If End If Case Else 'VERAG,ATILLA, VERAG360 - rpt.txtBank1.Text = If(FIRMA.Firma_Bankverbindung1, "") & vbNewLine & If(FIRMA.Firma_IBAN1, "") & vbNewLine & If(FIRMA.Firma_BIC1, "").ToString.Trim - rpt.txtBank2.Text = If(FIRMA.Firma_Bankverbindung2, "") & vbNewLine & If(FIRMA.Firma_IBAN2, "") & vbNewLine & If(FIRMA.Firma_BIC2, "").ToString.Trim - rpt.txtBank1.Text = rpt.txtBank1.Text.Replace("Österreich: ", "Österreich:" & vbNewLine).Replace("BRD: ", "Deutschland:" & vbNewLine).Replace("Deutschland: ", "Deutschland:" & vbNewLine) - rpt.txtBank2.Text = rpt.txtBank2.Text.Replace("Österreich: ", "Österreich:" & vbNewLine).Replace("BRD: ", "Deutschland:" & vbNewLine).Replace("Deutschland: ", "Deutschland:" & vbNewLine) + + If RechnungsLandKz = "TR" Then + rpt.txtBank1.Text = If(FIRMA.Firma_Bankverbindung1, "") & vbNewLine & If(FIRMA.Firma_IBAN1, "") & vbNewLine & If(FIRMA.Firma_BIC1, "").ToString.Trim + rpt.txtBank2.Text = If(FIRMA.Firma_Bankverbindung2, "") & vbNewLine & If(FIRMA.Firma_IBAN2, "") & vbNewLine & If(FIRMA.Firma_BIC2, "").ToString.Trim + + rpt.txtBank1.Text = rpt.txtBank1.Text.Replace("Österreich: ", "Österreich:" & vbNewLine).Replace("BRD: ", "Deutschland:" & vbNewLine).Replace("Deutschland: ", "Deutschland:" & vbNewLine) + rpt.txtBank2.Text = rpt.txtBank2.Text.Replace("Österreich: ", "Österreich:" & vbNewLine).Replace("BRD: ", "Deutschland:" & vbNewLine).Replace("Deutschland: ", "Deutschland:" & vbNewLine) + + If Not hasEUSTZOLL(RechnungsNr) Then + + rpt.txtBank1.Text = "Türkei:" & vbNewLine & "Garanti Bank Hadimköy " & vbNewLine & "EUR-IBAN: TR96 0006 2000 5440 0009 0672 28" & vbNewLine & "SWIFT: TGBATRISXXX | Kto: 544" + + End If + Else + rpt.txtBank1.Text = If(FIRMA.Firma_Bankverbindung1, "") & vbNewLine & If(FIRMA.Firma_IBAN1, "") & vbNewLine & If(FIRMA.Firma_BIC1, "").ToString.Trim + rpt.txtBank2.Text = If(FIRMA.Firma_Bankverbindung2, "") & vbNewLine & If(FIRMA.Firma_IBAN2, "") & vbNewLine & If(FIRMA.Firma_BIC2, "").ToString.Trim + + rpt.txtBank1.Text = rpt.txtBank1.Text.Replace("Österreich: ", "Österreich:" & vbNewLine).Replace("BRD: ", "Deutschland:" & vbNewLine).Replace("Deutschland: ", "Deutschland:" & vbNewLine) + rpt.txtBank2.Text = rpt.txtBank2.Text.Replace("Österreich: ", "Österreich:" & vbNewLine).Replace("BRD: ", "Deutschland:" & vbNewLine).Replace("Deutschland: ", "Deutschland:" & vbNewLine) + + End If End Select diff --git a/SDL/Fakturierung/rptRechnungDruck.Designer.vb b/SDL/Fakturierung/rptRechnungDruck.Designer.vb index d09bc61f..5475ea83 100644 --- a/SDL/Fakturierung/rptRechnungDruck.Designer.vb +++ b/SDL/Fakturierung/rptRechnungDruck.Designer.vb @@ -375,7 +375,7 @@ Partial Public Class rptRechnungDruck Me.txtBank2.Text = "Deutschland:" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Raiffeisenbank Suben" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "IBAN: AT54 3445 5000 0420 7791" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "BIC: RZOOAT2L" & "455" Me.txtBank2.Top = 0.1173228! - Me.txtBank2.Width = 1.779134! + Me.txtBank2.Width = 1.892914! ' 'txtDisclaimer ' @@ -393,7 +393,7 @@ Partial Public Class rptRechnungDruck Me.txtBank3.DataField = "" Me.txtBank3.DistinctField = "" Me.txtBank3.Height = 0.4181104! - Me.txtBank3.Left = 4.783071! + Me.txtBank3.Left = 4.834252! Me.txtBank3.Name = "txtBank3" Me.txtBank3.Style = "color: Black; font-size: 6.75pt; font-weight: normal; text-align: left; text-just" & "ify: auto; ddo-char-set: 0" diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntLagervertrag.Designer.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntLagervertrag.Designer.vb index 2b0bc87a..a0418f7e 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntLagervertrag.Designer.vb +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntLagervertrag.Designer.vb @@ -24,36 +24,25 @@ Partial Class usrcntLagervertrag Private Sub InitializeComponent() Me.lbl = New System.Windows.Forms.Label() Me.Label1 = New System.Windows.Forms.Label() - Me.Label2 = New System.Windows.Forms.Label() - Me.Label3 = New System.Windows.Forms.Label() - Me.Label4 = New System.Windows.Forms.Label() Me.Label5 = New System.Windows.Forms.Label() Me.Label6 = New System.Windows.Forms.Label() - Me.cbxEinmaligeVollmacht = New System.Windows.Forms.CheckBox() - Me.Label7 = New System.Windows.Forms.Label() Me.btn = New System.Windows.Forms.Button() Me.Label8 = New System.Windows.Forms.Label() Me.txtAnsprechpartner = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtEinmalig_RgDat = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtEinmalig_RgNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtEmail = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtFax = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtTel = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtEori = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtUid = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtAdresse2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtAdresse1 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtFirma = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.pic = New System.Windows.Forms.PictureBox() - Me.lblVollmachtDE = New System.Windows.Forms.Label() + Me.lblLagervertrag = 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.Label12 = New System.Windows.Forms.Label() Me.cboSprache = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.cbxEinmaligeVollmachtCarnetATA = New System.Windows.Forms.CheckBox() - Me.txtEinmalig_CarnetATA = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.cbxVollmachtmitBefristung = New System.Windows.Forms.CheckBox() + Me.Label2 = New System.Windows.Forms.Label() + Me.txtDauer = New VERAG_PROG_ALLGEMEIN.MyTextBox() CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' @@ -75,37 +64,10 @@ Partial Class usrcntLagervertrag Me.Label1.TabIndex = 11 Me.Label1.Text = "Adresse:" ' - 'Label2 - ' - Me.Label2.AutoSize = True - Me.Label2.Location = New System.Drawing.Point(170, 101) - Me.Label2.Name = "Label2" - Me.Label2.Size = New System.Drawing.Size(43, 13) - Me.Label2.TabIndex = 14 - Me.Label2.Text = "UID-Nr:" - ' - 'Label3 - ' - Me.Label3.AutoSize = True - Me.Label3.Location = New System.Drawing.Point(587, 101) - Me.Label3.Name = "Label3" - Me.Label3.Size = New System.Drawing.Size(50, 13) - Me.Label3.TabIndex = 16 - Me.Label3.Text = "EORI-Nr:" - ' - 'Label4 - ' - Me.Label4.AutoSize = True - Me.Label4.Location = New System.Drawing.Point(587, 120) - Me.Label4.Name = "Label4" - Me.Label4.Size = New System.Drawing.Size(27, 13) - Me.Label4.TabIndex = 20 - Me.Label4.Text = "Fax:" - ' 'Label5 ' Me.Label5.AutoSize = True - Me.Label5.Location = New System.Drawing.Point(170, 120) + Me.Label5.Location = New System.Drawing.Point(170, 101) Me.Label5.Name = "Label5" Me.Label5.Size = New System.Drawing.Size(28, 13) Me.Label5.TabIndex = 18 @@ -114,31 +76,12 @@ Partial Class usrcntLagervertrag 'Label6 ' Me.Label6.AutoSize = True - Me.Label6.Location = New System.Drawing.Point(170, 139) + Me.Label6.Location = New System.Drawing.Point(569, 101) Me.Label6.Name = "Label6" Me.Label6.Size = New System.Drawing.Size(39, 13) Me.Label6.TabIndex = 22 Me.Label6.Text = "E-Mail:" ' - 'cbxEinmaligeVollmacht - ' - Me.cbxEinmaligeVollmacht.AutoSize = True - Me.cbxEinmaligeVollmacht.Location = New System.Drawing.Point(173, 164) - Me.cbxEinmaligeVollmacht.Name = "cbxEinmaligeVollmacht" - Me.cbxEinmaligeVollmacht.Size = New System.Drawing.Size(184, 17) - Me.cbxEinmaligeVollmacht.TabIndex = 24 - Me.cbxEinmaligeVollmacht.Text = "Einmalige Vollmacht, für Rg-Nr.:" - Me.cbxEinmaligeVollmacht.UseVisualStyleBackColor = True - ' - 'Label7 - ' - Me.Label7.AutoSize = True - Me.Label7.Location = New System.Drawing.Point(587, 165) - Me.Label7.Name = "Label7" - Me.Label7.Size = New System.Drawing.Size(56, 13) - Me.Label7.TabIndex = 26 - Me.Label7.Text = "Rg-datum:" - ' 'btn ' Me.btn.BackgroundImage = Global.SDL.My.Resources.Resources.search @@ -182,54 +125,6 @@ Partial Class usrcntLagervertrag Me.txtAnsprechpartner.Size = New System.Drawing.Size(310, 20) Me.txtAnsprechpartner.TabIndex = 3 ' - 'txtEinmalig_RgDat - ' - Me.txtEinmalig_RgDat._DateTimeOnly = False - Me.txtEinmalig_RgDat._numbersOnly = False - Me.txtEinmalig_RgDat._numbersOnlyKommastellen = "" - Me.txtEinmalig_RgDat._numbersOnlyTrennzeichen = True - Me.txtEinmalig_RgDat._Prozent = False - Me.txtEinmalig_RgDat._ShortDateNew = False - Me.txtEinmalig_RgDat._ShortDateOnly = False - Me.txtEinmalig_RgDat._TimeOnly = False - Me.txtEinmalig_RgDat._TimeOnly_Seconds = False - Me.txtEinmalig_RgDat._value = Nothing - Me.txtEinmalig_RgDat._Waehrung = False - Me.txtEinmalig_RgDat._WaehrungZeichen = True - Me.txtEinmalig_RgDat.Enabled = False - Me.txtEinmalig_RgDat.ForeColor = System.Drawing.Color.Black - Me.txtEinmalig_RgDat.Location = New System.Drawing.Point(653, 162) - Me.txtEinmalig_RgDat.MaxLineLength = -1 - Me.txtEinmalig_RgDat.MaxLines_Warning = "" - Me.txtEinmalig_RgDat.MaxLines_Warning_Label = Nothing - Me.txtEinmalig_RgDat.Name = "txtEinmalig_RgDat" - Me.txtEinmalig_RgDat.Size = New System.Drawing.Size(310, 20) - Me.txtEinmalig_RgDat.TabIndex = 27 - ' - 'txtEinmalig_RgNr - ' - Me.txtEinmalig_RgNr._DateTimeOnly = False - Me.txtEinmalig_RgNr._numbersOnly = False - Me.txtEinmalig_RgNr._numbersOnlyKommastellen = "" - Me.txtEinmalig_RgNr._numbersOnlyTrennzeichen = True - Me.txtEinmalig_RgNr._Prozent = False - Me.txtEinmalig_RgNr._ShortDateNew = False - Me.txtEinmalig_RgNr._ShortDateOnly = False - Me.txtEinmalig_RgNr._TimeOnly = False - Me.txtEinmalig_RgNr._TimeOnly_Seconds = False - Me.txtEinmalig_RgNr._value = Nothing - Me.txtEinmalig_RgNr._Waehrung = False - Me.txtEinmalig_RgNr._WaehrungZeichen = True - Me.txtEinmalig_RgNr.Enabled = False - Me.txtEinmalig_RgNr.ForeColor = System.Drawing.Color.Black - Me.txtEinmalig_RgNr.Location = New System.Drawing.Point(363, 162) - Me.txtEinmalig_RgNr.MaxLineLength = -1 - Me.txtEinmalig_RgNr.MaxLines_Warning = "" - Me.txtEinmalig_RgNr.MaxLines_Warning_Label = Nothing - Me.txtEinmalig_RgNr.Name = "txtEinmalig_RgNr" - Me.txtEinmalig_RgNr.Size = New System.Drawing.Size(201, 20) - Me.txtEinmalig_RgNr.TabIndex = 25 - ' 'txtEmail ' Me.txtEmail._DateTimeOnly = False @@ -245,7 +140,7 @@ Partial Class usrcntLagervertrag Me.txtEmail._Waehrung = False Me.txtEmail._WaehrungZeichen = True Me.txtEmail.ForeColor = System.Drawing.Color.Black - Me.txtEmail.Location = New System.Drawing.Point(254, 136) + Me.txtEmail.Location = New System.Drawing.Point(653, 98) Me.txtEmail.MaxLineLength = -1 Me.txtEmail.MaxLines_Warning = "" Me.txtEmail.MaxLines_Warning_Label = Nothing @@ -253,29 +148,6 @@ Partial Class usrcntLagervertrag Me.txtEmail.Size = New System.Drawing.Size(310, 20) Me.txtEmail.TabIndex = 23 ' - '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(653, 117) - 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 = 21 - ' 'txtTel ' Me.txtTel._DateTimeOnly = False @@ -291,7 +163,7 @@ Partial Class usrcntLagervertrag Me.txtTel._Waehrung = False Me.txtTel._WaehrungZeichen = True Me.txtTel.ForeColor = System.Drawing.Color.Black - Me.txtTel.Location = New System.Drawing.Point(254, 117) + Me.txtTel.Location = New System.Drawing.Point(254, 98) Me.txtTel.MaxLineLength = -1 Me.txtTel.MaxLines_Warning = "" Me.txtTel.MaxLines_Warning_Label = Nothing @@ -299,52 +171,6 @@ Partial Class usrcntLagervertrag Me.txtTel.Size = New System.Drawing.Size(310, 20) Me.txtTel.TabIndex = 19 ' - '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(653, 98) - 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 = 17 - ' - '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(254, 98) - 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 = 15 - ' 'txtAdresse2 ' Me.txtAdresse2._DateTimeOnly = False @@ -425,15 +251,15 @@ Partial Class usrcntLagervertrag Me.pic.TabIndex = 32 Me.pic.TabStop = False ' - 'lblVollmachtDE + 'lblLagervertrag ' - Me.lblVollmachtDE.AutoSize = True - Me.lblVollmachtDE.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblVollmachtDE.Location = New System.Drawing.Point(43, 9) - Me.lblVollmachtDE.Name = "lblVollmachtDE" - Me.lblVollmachtDE.Size = New System.Drawing.Size(118, 20) - Me.lblVollmachtDE.TabIndex = 1 - Me.lblVollmachtDE.Text = "Vollmacht DE" + Me.lblLagervertrag.AutoSize = True + Me.lblLagervertrag.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblLagervertrag.Location = New System.Drawing.Point(43, 9) + Me.lblLagervertrag.Name = "lblLagervertrag" + Me.lblLagervertrag.Size = New System.Drawing.Size(111, 20) + Me.lblLagervertrag.TabIndex = 1 + Me.lblLagervertrag.Text = "Lagervertrag" ' 'btnDown ' @@ -491,90 +317,67 @@ Partial Class usrcntLagervertrag Me.cboSprache.Size = New System.Drawing.Size(89, 21) Me.cboSprache.TabIndex = 10 ' - 'cbxEinmaligeVollmachtCarnetATA + 'Label2 ' - Me.cbxEinmaligeVollmachtCarnetATA.AutoSize = True - Me.cbxEinmaligeVollmachtCarnetATA.Location = New System.Drawing.Point(173, 183) - Me.cbxEinmaligeVollmachtCarnetATA.Name = "cbxEinmaligeVollmachtCarnetATA" - Me.cbxEinmaligeVollmachtCarnetATA.Size = New System.Drawing.Size(211, 17) - Me.cbxEinmaligeVollmachtCarnetATA.TabIndex = 33 - Me.cbxEinmaligeVollmachtCarnetATA.Text = "Einmalige Vollmacht, für Carnet-ATA.:" - Me.cbxEinmaligeVollmachtCarnetATA.UseVisualStyleBackColor = True + Me.Label2.AutoSize = True + Me.Label2.Location = New System.Drawing.Point(170, 127) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(82, 13) + Me.Label2.TabIndex = 33 + Me.Label2.Text = "Dauer (von-bis:)" ' - 'txtEinmalig_CarnetATA + 'txtDauer ' - Me.txtEinmalig_CarnetATA._DateTimeOnly = False - Me.txtEinmalig_CarnetATA._numbersOnly = False - Me.txtEinmalig_CarnetATA._numbersOnlyKommastellen = "" - Me.txtEinmalig_CarnetATA._numbersOnlyTrennzeichen = True - Me.txtEinmalig_CarnetATA._Prozent = False - Me.txtEinmalig_CarnetATA._ShortDateNew = False - Me.txtEinmalig_CarnetATA._ShortDateOnly = False - Me.txtEinmalig_CarnetATA._TimeOnly = False - Me.txtEinmalig_CarnetATA._TimeOnly_Seconds = False - Me.txtEinmalig_CarnetATA._value = Nothing - Me.txtEinmalig_CarnetATA._Waehrung = False - Me.txtEinmalig_CarnetATA._WaehrungZeichen = True - Me.txtEinmalig_CarnetATA.Enabled = False - Me.txtEinmalig_CarnetATA.ForeColor = System.Drawing.Color.Black - Me.txtEinmalig_CarnetATA.Location = New System.Drawing.Point(390, 181) - Me.txtEinmalig_CarnetATA.MaxLineLength = -1 - Me.txtEinmalig_CarnetATA.MaxLines_Warning = "" - Me.txtEinmalig_CarnetATA.MaxLines_Warning_Label = Nothing - Me.txtEinmalig_CarnetATA.Name = "txtEinmalig_CarnetATA" - Me.txtEinmalig_CarnetATA.Size = New System.Drawing.Size(174, 20) - Me.txtEinmalig_CarnetATA.TabIndex = 34 + Me.txtDauer._DateTimeOnly = False + Me.txtDauer._numbersOnly = False + Me.txtDauer._numbersOnlyKommastellen = "" + Me.txtDauer._numbersOnlyTrennzeichen = True + Me.txtDauer._Prozent = False + Me.txtDauer._ShortDateNew = False + Me.txtDauer._ShortDateOnly = False + Me.txtDauer._TimeOnly = False + Me.txtDauer._TimeOnly_Seconds = False + Me.txtDauer._value = Nothing + Me.txtDauer._Waehrung = False + Me.txtDauer._WaehrungZeichen = True + Me.txtDauer.ForeColor = System.Drawing.Color.Black + Me.txtDauer.Location = New System.Drawing.Point(254, 124) + Me.txtDauer.MaxLineLength = -1 + Me.txtDauer.MaxLines_Warning = "" + Me.txtDauer.MaxLines_Warning_Label = Nothing + Me.txtDauer.Name = "txtDauer" + Me.txtDauer.Size = New System.Drawing.Size(310, 20) + Me.txtDauer.TabIndex = 34 ' - 'cbxVollmachtmitBefristung - ' - Me.cbxVollmachtmitBefristung.AutoSize = True - Me.cbxVollmachtmitBefristung.Location = New System.Drawing.Point(590, 183) - Me.cbxVollmachtmitBefristung.Name = "cbxVollmachtmitBefristung" - Me.cbxVollmachtmitBefristung.Size = New System.Drawing.Size(141, 17) - Me.cbxVollmachtmitBefristung.TabIndex = 38 - Me.cbxVollmachtmitBefristung.Text = "Vollmacht mit Befristung:" - Me.cbxVollmachtmitBefristung.UseVisualStyleBackColor = True - ' - 'usrcntlVollmacht_DE + 'usrcntLagervertrag ' 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.cbxVollmachtmitBefristung) - Me.Controls.Add(Me.txtEinmalig_CarnetATA) - Me.Controls.Add(Me.cbxEinmaligeVollmachtCarnetATA) + Me.Controls.Add(Me.txtDauer) + Me.Controls.Add(Me.Label2) Me.Controls.Add(Me.Label12) Me.Controls.Add(Me.cboSprache) Me.Controls.Add(Me.btnDown) Me.Controls.Add(Me.btnUp) Me.Controls.Add(Me.btnDel) Me.Controls.Add(Me.pic) - Me.Controls.Add(Me.lblVollmachtDE) + Me.Controls.Add(Me.lblLagervertrag) Me.Controls.Add(Me.txtAnsprechpartner) Me.Controls.Add(Me.Label8) Me.Controls.Add(Me.btn) - Me.Controls.Add(Me.txtEinmalig_RgDat) - Me.Controls.Add(Me.Label7) - Me.Controls.Add(Me.txtEinmalig_RgNr) - Me.Controls.Add(Me.cbxEinmaligeVollmacht) 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.lbl) - Me.Name = "usrcntlVollmacht_DE" - Me.Size = New System.Drawing.Size(1000, 202) + Me.Name = "usrcntLagervertrag" + Me.Size = New System.Drawing.Size(1000, 155) CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() @@ -585,31 +388,20 @@ Partial Class usrcntLagervertrag Friend WithEvents txtAdresse1 As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents txtAdresse2 As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents txtUid As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents Label2 As System.Windows.Forms.Label - Friend WithEvents txtEori As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents Label3 As System.Windows.Forms.Label - Friend WithEvents txtFax As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents Label4 As System.Windows.Forms.Label Friend WithEvents txtTel As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents Label5 As System.Windows.Forms.Label Friend WithEvents txtEmail As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents Label6 As System.Windows.Forms.Label - Friend WithEvents cbxEinmaligeVollmacht As System.Windows.Forms.CheckBox - Friend WithEvents txtEinmalig_RgDat As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents Label7 As System.Windows.Forms.Label - Friend WithEvents txtEinmalig_RgNr As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents btn As System.Windows.Forms.Button Friend WithEvents txtAnsprechpartner As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents Label8 As System.Windows.Forms.Label Friend WithEvents pic As System.Windows.Forms.PictureBox - Friend WithEvents lblVollmachtDE As System.Windows.Forms.Label + Friend WithEvents lblLagervertrag As System.Windows.Forms.Label Friend WithEvents btnDown As System.Windows.Forms.Button Friend WithEvents btnUp As System.Windows.Forms.Button Friend WithEvents btnDel As System.Windows.Forms.Button Friend WithEvents Label12 As System.Windows.Forms.Label Friend WithEvents cboSprache As VERAG_PROG_ALLGEMEIN.MyComboBox - Friend WithEvents cbxEinmaligeVollmachtCarnetATA As System.Windows.Forms.CheckBox - Friend WithEvents txtEinmalig_CarnetATA As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents cbxVollmachtmitBefristung As CheckBox + Friend WithEvents Label2 As Label + Friend WithEvents txtDauer As VERAG_PROG_ALLGEMEIN.MyTextBox End Class diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntLagervertrag.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntLagervertrag.vb index d5f598b1..54b36df6 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntLagervertrag.vb +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntLagervertrag.vb @@ -32,10 +32,6 @@ End Sub - Private Sub cbxEinmaligeVollmacht_CheckedChanged(sender As Object, e As EventArgs) Handles cbxEinmaligeVollmacht.CheckedChanged - txtEinmalig_RgNr.Enabled = sender.checked - txtEinmalig_RgDat.Enabled = sender.checked - End Sub Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click Dim kdsrch As New SDL.frmKundenSuche @@ -57,10 +53,7 @@ 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, "") txtAnsprechpartner.Text = (If(ADRESSE.Anrede, "") & " " & If(ADRESSE.Ansprechpartner, "")).trim End Sub @@ -81,7 +74,9 @@ initControlsHandler() cboSprache.Items.Clear() cboSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Deutsch", "DE")) - cboSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Englisch", "EN")) + 'cboSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Englisch", "EN")) + + txtDauer.Text = Now.ToShortDateString & " - " & Now.AddYears(1).ToShortDateString If KdNR > 0 Then initKdNR(KdNR) End Sub @@ -89,8 +84,5 @@ FormularManagerNEU.genPDF(Me, True) End Sub - Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles cbxEinmaligeVollmachtCarnetATA.CheckedChanged - txtEinmalig_CarnetATA.Enabled = sender.checked - End Sub End Class diff --git a/SDL/Formulare/KDFormulare/frmFormulare.vb b/SDL/Formulare/KDFormulare/frmFormulare.vb index 2487835c..5ddf1977 100644 --- a/SDL/Formulare/KDFormulare/frmFormulare.vb +++ b/SDL/Formulare/KDFormulare/frmFormulare.vb @@ -252,6 +252,9 @@ Public Class frmFormulare MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Zollbeschau Protokoll", FormularManagerArten.Zollbeschau_Protokoll)) MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Russlandbestätigungen - Y824 / EU VO 833/2014", FormularManagerArten.Einfuhrverbot)) + MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Lagervertrag", FormularManagerArten.Lagervertrag)) + + cboVorlage.Items.Clear() cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", "")) cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neukunde DE", FormularVorlagenGruppe.NeukundeDE)) @@ -864,6 +867,19 @@ Public Class frmFormulare AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown MyFlowLayoutPanel1.Controls.Add(c) + Case FormularManagerArten.Lagervertrag + Dim c As New usrcntLagervertrag + If ControlExists_addOK(c.GetType.ToString) Then + c.Width = MyFlowLayoutPanel1.Width - 6 + c.KdNR = KdNr + AddHandler c.CHANGED, AddressOf ValueChanged + AddHandler c.KDNR_CHANGED, AddressOf KDNR_CHANGED + AddHandler c.DELETE, AddressOf ControlDELETE + AddHandler c.MOVE_UP, AddressOf ControlMoveUp + AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown + MyFlowLayoutPanel1.Controls.Add(c) + End If + Case Else '"VUB_AG", "VUB_CS" Dim displayName = "" @@ -1496,6 +1512,10 @@ Public Class FormularManagerNEU Case GetType(usrcntlVollmacht_MDM_NICHT_EU).ToString striList = FormularManagerNEU.VM_MDM_NICHT_EU(c, printReportElsePdf, printerName, openWord) + Case GetType(usrcntLagervertrag).ToString + retStr = FormularManagerNEU.LAGERVERTRAG(c) + + End Select If retStr <> "" Then striList.Add(retStr) @@ -1560,6 +1580,65 @@ Public Class FormularManagerNEU End Function + Shared Function LAGERVERTRAG(usrCntl As usrcntLagervertrag) As String + + 'Dim list As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem) + 'Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager + + '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.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.txtTel.Text, 40, 74, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + 'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 120, 74, 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 + ' top = 25 + 'End If + + 'Select Case usrCntl.cboSprache._value + ' Case "EN" + ' Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "LAGERVERTRAG", listTowrite) + ' Case Else + ' Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "LAGERVERTRAG", listTowrite) + 'End Select + 'Return "" + + + 'Dim list As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem) + Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager + + Dim Top = -10 + Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues) + + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 140, Top + 30, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 40, top + 50, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 40, top + 56, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 40, top + 62, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, Top + 70, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 120, Top + 70, 90, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtDauer.Text, 40, Top + 78, 90, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + + + + + Select Case usrCntl.cboSprache._value + Case "EN" + Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "LAGERVERTRAG", listTowrite) + Case Else + Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "LAGERVERTRAG", listTowrite) + End Select + Return "" + + + End Function Shared Function VM_De(usrCntl As usrcntlVollmacht_DE) As String 'Dim list As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem) @@ -1567,17 +1646,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 @@ -6799,6 +6878,7 @@ Public Class FormularManagerArten Shared Property Zollbeschau_Protokoll = "Zollbeschau Protokoll" Shared Property Qualitaetskontrolle = "Qualitätskontrolle" Shared Property Einfuhrverbot = "Y824 / EU VO 833/2014" + Shared Property Lagervertrag = "Lagervertrag" End Class diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb index c857e0c7..a4b9dedf 100644 --- a/SDL/My Project/AssemblyInfo.vb +++ b/SDL/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + +