edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

vers, tr bank, lagervertrag

Browse Source
This commit is contained in:
Andreas Luxbauer
2025-06-04 10:10:07 +02:00
parent 6ed6fd9fa7
commit c47adbc7cb
6 changed files with 190 additions and 292 deletions
Download Patch File Download Diff File Expand all files Collapse all files

50
SDL/Fakturierung/cFakturierung.vb
View File

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

4
SDL/Fakturierung/rptRechnungDruck.Designer.vb generated
View File

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

312
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntLagervertrag.Designer.vb generated
View File

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

14
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntLagervertrag.vb
View File

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

98
SDL/Formulare/KDFormulare/frmFormulare.vb
View File

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

4
SDL/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.4.1.5")>
<Assembly: AssemblyFileVersion("1.4.1.5")>
<Assembly: AssemblyVersion("1.4.1.6")>
<Assembly: AssemblyFileVersion("1.4.1.6")>