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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2019-09-10 13:51:31 +02:00
parent 8f8b0f4252
commit 021cce6f04
48 changed files with 6001 additions and 727 deletions
Download Patch File Download Diff File Expand all files Collapse all files

94
SDL/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA.vb
View File

@@ -132,6 +132,25 @@ Public Class usrCntlATLAS_EZA
End Function
Function getKdnr(ByRef art) As Integer
Try
If ADRESSEN IsNot Nothing Then
Select Case art
Case "EMPF" : Return ADRESSEN.usrCntl_Empfaenger.kdFirma.KdNr_value
Case "ABS" : Return ADRESSEN.usrCntl_Versender.kdFirma.KdNr_value
Case "ANM" : Return ADRESSEN.usrCntl_Anmelder.kdFirma.KdNr_value
Case "VERTR" : Return ADRESSEN.usrCntl_Vertretener.kdFirma.KdNr_value
Case "VERTRANM" : Return ADRESSEN.usrCntl_VertreterAnmelder.kdFirma.KdNr_value
End Select
End If
Catch ex As Exception
Return -1
End Try
End Function
Private Sub usrCntlATLAS_Load(sender As Object, e As EventArgs) Handles Me.Load
cboDakosyAction.Items.Clear()
@@ -143,7 +162,7 @@ Public Class usrCntlATLAS_EZA
ADRESSEN = New usrCntlATLAS_EZA_Adressen(EZA)
ALLG = New usrCntlATLAS_EZA_Allg(EZA)
POSITIONEN = New usrCntlATLAS_EZA_Positionen(EZA)
POSITIONEN = New usrCntlATLAS_EZA_Positionen(EZA, Me)
DV1 = New usrCntlATLAS_EZA_DV1(EZA)
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
@@ -353,6 +372,7 @@ Public Class usrCntlATLAS_EZA
If SENDUNG IsNot Nothing Then
Dim p As New DAKOSY_Worker.cDakosy_EZA_Warenposition
p.ezaWP_Warenbezeichnung = SENDUNG.tblSnd_Warenbezeichnung
If SENDUNG.tblSnd_Colli IsNot Nothing AndAlso IsNumeric(SENDUNG.tblSnd_Colli) Then
@@ -368,50 +388,54 @@ Public Class usrCntlATLAS_EZA
End If
If SENDUNG.tblSnd_Abfertigungsart_ID = 1 Then
If SENDUNG.tblSnd_EmpfaengerKdNr > 0 Then
If SENDUNG IsNot Nothing Then
EZA.eza_GesamtRohmasse = SENDUNG.tblSnd_Gewicht
Dim AD As New DAKOSY_Worker.cDakosy_EZA_Adressen
AD.ezaAd_AdressCode = SENDUNG.tblSnd_EmpfaengerKdNr
AD.ezaAd_AdressTyp = "CN"
Dim ADFmzoll As New VERAG_PROG_ALLGEMEIN.cAdressen(SENDUNG.tblSnd_EmpfaengerKdNr)
Dim KDFmzoll As New VERAG_PROG_ALLGEMEIN.cKunde(SENDUNG.tblSnd_EmpfaengerKdNr)
If SENDUNG.tblSnd_Abfertigungsart_ID = 1 Then
If SENDUNG.tblSnd_EmpfaengerKdNr > 0 Then
AD.ezaAd_NameFirma1 = ADFmzoll.Name_1
AD.ezaAd_NameFirma2 = ADFmzoll.Name_2
Dim AD As New DAKOSY_Worker.cDakosy_EZA_Adressen
AD.ezaAd_AdressCode = SENDUNG.tblSnd_EmpfaengerKdNr
AD.ezaAd_AdressTyp = "CN"
Dim ADFmzoll As New VERAG_PROG_ALLGEMEIN.cAdressen(SENDUNG.tblSnd_EmpfaengerKdNr)
Dim KDFmzoll As New VERAG_PROG_ALLGEMEIN.cKunde(SENDUNG.tblSnd_EmpfaengerKdNr)
AD.ezaAd_StrasseHausNr1 = ADFmzoll.Straße
AD.ezaAd_PLZ = ADFmzoll.PLZ
AD.ezaAd_Ort = ADFmzoll.Ort
AD.ezaAd_LandCode = cProgramFunctions.getISO2Land(ADFmzoll.LandKz)
AD.ezaAd_TeilnehmerEORI = KDFmzoll.EORITIN
AD.ezaAd_TeilnehmerNLNR = KDFmzoll.EORITIN_NL
AD.ezaAd_NameFirma1 = ADFmzoll.Name_1
AD.ezaAd_NameFirma2 = ADFmzoll.Name_2
cdy.eza_ADRESSEN.Add(AD)
End If
If SENDUNG.tblSnd_AbsenderKdNr > 0 Then
AD.ezaAd_StrasseHausNr1 = ADFmzoll.Straße
AD.ezaAd_PLZ = ADFmzoll.PLZ
AD.ezaAd_Ort = ADFmzoll.Ort
AD.ezaAd_LandCode = cProgramFunctions.getISO2Land(ADFmzoll.LandKz)
AD.ezaAd_TeilnehmerEORI = KDFmzoll.EORITIN
AD.ezaAd_TeilnehmerNLNR = KDFmzoll.EORITIN_NL
Dim AD As New DAKOSY_Worker.cDakosy_EZA_Adressen
AD.ezaAd_AdressCode = SENDUNG.tblSnd_AbsenderKdNr
AD.ezaAd_AdressTyp = "CZ"
Dim ADFmzoll As New VERAG_PROG_ALLGEMEIN.cAdressen(SENDUNG.tblSnd_AbsenderKdNr)
Dim KDFmzoll As New VERAG_PROG_ALLGEMEIN.cKunde(SENDUNG.tblSnd_AbsenderKdNr)
cdy.eza_ADRESSEN.Add(AD)
End If
If SENDUNG.tblSnd_AbsenderKdNr > 0 Then
AD.ezaAd_NameFirma1 = ADFmzoll.Name_1
AD.ezaAd_NameFirma2 = ADFmzoll.Name_2
Dim AD As New DAKOSY_Worker.cDakosy_EZA_Adressen
AD.ezaAd_AdressCode = SENDUNG.tblSnd_AbsenderKdNr
AD.ezaAd_AdressTyp = "CZ"
Dim ADFmzoll As New VERAG_PROG_ALLGEMEIN.cAdressen(SENDUNG.tblSnd_AbsenderKdNr)
Dim KDFmzoll As New VERAG_PROG_ALLGEMEIN.cKunde(SENDUNG.tblSnd_AbsenderKdNr)
AD.ezaAd_StrasseHausNr1 = ADFmzoll.Straße
AD.ezaAd_PLZ = ADFmzoll.PLZ
AD.ezaAd_Ort = ADFmzoll.Ort
AD.ezaAd_LandCode = cProgramFunctions.getISO2Land(ADFmzoll.LandKz)
AD.ezaAd_TeilnehmerEORI = KDFmzoll.EORITIN
AD.ezaAd_TeilnehmerNLNR = KDFmzoll.EORITIN_NL
AD.ezaAd_NameFirma1 = ADFmzoll.Name_1
AD.ezaAd_NameFirma2 = ADFmzoll.Name_2
AD.ezaAd_StrasseHausNr1 = ADFmzoll.Straße
AD.ezaAd_PLZ = ADFmzoll.PLZ
AD.ezaAd_Ort = ADFmzoll.Ort
AD.ezaAd_LandCode = cProgramFunctions.getISO2Land(ADFmzoll.LandKz)
AD.ezaAd_TeilnehmerEORI = KDFmzoll.EORITIN
AD.ezaAd_TeilnehmerNLNR = KDFmzoll.EORITIN_NL
cdy.eza_ADRESSEN.Add(AD)
End If
cdy.eza_ADRESSEN.Add(AD)
End If
End If

4
SDL/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Adressen.vb
View File

@@ -109,8 +109,4 @@
End Sub
End Class

533
SDL/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Allg.Designer.vb generated
View File

@@ -23,6 +23,23 @@ Partial Class usrCntlATLAS_EZA_Allg
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.pnl = New System.Windows.Forms.Panel()
Me.txtContainerNr3 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtContainerNr2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtContainerNr1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label32 = New System.Windows.Forms.Label()
Me.txtVP_ATBPk2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtVP_ATBPk1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtVP_ATBNr2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtVP_ATBNr1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label15 = New System.Windows.Forms.Label()
Me.txtVP_ATB2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label19 = New System.Windows.Forms.Label()
Me.txtVP_ATB1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtVPReferenz = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.cboVPArt = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label22 = New System.Windows.Forms.Label()
Me.txtRohmasse = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label29 = New System.Windows.Forms.Label()
Me.Label14 = New System.Windows.Forms.Label()
Me.cboVerfahren = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cbxAnmelderIstEmpfänger = New System.Windows.Forms.CheckBox()
@@ -36,7 +53,6 @@ Partial Class usrCntlATLAS_EZA_Allg
Me.Label2 = New System.Windows.Forms.Label()
Me.cbxFiskalvertretung = New System.Windows.Forms.CheckBox()
Me.cbxVorzeitigeAnmeldung = New System.Windows.Forms.CheckBox()
Me.Label10 = New System.Windows.Forms.Label()
Me.cboGeschaeftsArt = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label28 = New System.Windows.Forms.Label()
Me.sbAdrZollstelle = New VERAG_PROG_ALLGEMEIN.MySearchBox()
@@ -83,6 +99,9 @@ Partial Class usrCntlATLAS_EZA_Allg
Me.txtRechnungspreisWaehrung = New VERAG_PROG_ALLGEMEIN.MySearchBox()
Me.txtRechnungspreis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label21 = New System.Windows.Forms.Label()
Me.Label10 = New System.Windows.Forms.Label()
Me.Label31 = New System.Windows.Forms.Label()
Me.Label25 = New System.Windows.Forms.Label()
Me.pnl.SuspendLayout()
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel1.SuspendLayout()
@@ -92,6 +111,23 @@ Partial Class usrCntlATLAS_EZA_Allg
'
'pnl
'
Me.pnl.Controls.Add(Me.txtContainerNr3)
Me.pnl.Controls.Add(Me.txtContainerNr2)
Me.pnl.Controls.Add(Me.txtContainerNr1)
Me.pnl.Controls.Add(Me.Label32)
Me.pnl.Controls.Add(Me.txtVP_ATBPk2)
Me.pnl.Controls.Add(Me.txtVP_ATBPk1)
Me.pnl.Controls.Add(Me.txtVP_ATBNr2)
Me.pnl.Controls.Add(Me.txtVP_ATBNr1)
Me.pnl.Controls.Add(Me.Label15)
Me.pnl.Controls.Add(Me.txtVP_ATB2)
Me.pnl.Controls.Add(Me.Label19)
Me.pnl.Controls.Add(Me.txtVP_ATB1)
Me.pnl.Controls.Add(Me.txtVPReferenz)
Me.pnl.Controls.Add(Me.cboVPArt)
Me.pnl.Controls.Add(Me.Label22)
Me.pnl.Controls.Add(Me.txtRohmasse)
Me.pnl.Controls.Add(Me.Label29)
Me.pnl.Controls.Add(Me.Label14)
Me.pnl.Controls.Add(Me.cboVerfahren)
Me.pnl.Controls.Add(Me.cbxAnmelderIstEmpfänger)
@@ -105,7 +141,6 @@ Partial Class usrCntlATLAS_EZA_Allg
Me.pnl.Controls.Add(Me.Label2)
Me.pnl.Controls.Add(Me.cbxFiskalvertretung)
Me.pnl.Controls.Add(Me.cbxVorzeitigeAnmeldung)
Me.pnl.Controls.Add(Me.Label10)
Me.pnl.Controls.Add(Me.cboGeschaeftsArt)
Me.pnl.Controls.Add(Me.Label28)
Me.pnl.Controls.Add(Me.sbAdrZollstelle)
@@ -135,15 +170,330 @@ Partial Class usrCntlATLAS_EZA_Allg
Me.pnl.Controls.Add(Me.txtRechnungspreisWaehrung)
Me.pnl.Controls.Add(Me.txtRechnungspreis)
Me.pnl.Controls.Add(Me.Label21)
Me.pnl.Controls.Add(Me.Label10)
Me.pnl.Controls.Add(Me.Label31)
Me.pnl.Controls.Add(Me.Label25)
Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnl.Location = New System.Drawing.Point(0, 0)
Me.pnl.Name = "pnl"
Me.pnl.Size = New System.Drawing.Size(930, 632)
Me.pnl.TabIndex = 0
'
'txtContainerNr3
'
Me.txtContainerNr3._DateTimeOnly = False
Me.txtContainerNr3._numbersOnly = False
Me.txtContainerNr3._numbersOnlyKommastellen = ""
Me.txtContainerNr3._Prozent = False
Me.txtContainerNr3._ShortDateNew = False
Me.txtContainerNr3._ShortDateOnly = False
Me.txtContainerNr3._TimeOnly = False
Me.txtContainerNr3._value = ""
Me.txtContainerNr3._Waehrung = False
Me.txtContainerNr3._WaehrungZeichen = True
Me.txtContainerNr3.Enabled = False
Me.txtContainerNr3.ForeColor = System.Drawing.Color.Black
Me.txtContainerNr3.Location = New System.Drawing.Point(793, 260)
Me.txtContainerNr3.MaxLength = 11
Me.txtContainerNr3.MaxLineLength = -1
Me.txtContainerNr3.MaxLines_Warning = ""
Me.txtContainerNr3.MaxLines_Warning_Label = Nothing
Me.txtContainerNr3.Name = "txtContainerNr3"
Me.txtContainerNr3.Size = New System.Drawing.Size(115, 20)
Me.txtContainerNr3.TabIndex = 35
'
'txtContainerNr2
'
Me.txtContainerNr2._DateTimeOnly = False
Me.txtContainerNr2._numbersOnly = False
Me.txtContainerNr2._numbersOnlyKommastellen = ""
Me.txtContainerNr2._Prozent = False
Me.txtContainerNr2._ShortDateNew = False
Me.txtContainerNr2._ShortDateOnly = False
Me.txtContainerNr2._TimeOnly = False
Me.txtContainerNr2._value = ""
Me.txtContainerNr2._Waehrung = False
Me.txtContainerNr2._WaehrungZeichen = True
Me.txtContainerNr2.Enabled = False
Me.txtContainerNr2.ForeColor = System.Drawing.Color.Black
Me.txtContainerNr2.Location = New System.Drawing.Point(793, 241)
Me.txtContainerNr2.MaxLength = 11
Me.txtContainerNr2.MaxLineLength = -1
Me.txtContainerNr2.MaxLines_Warning = ""
Me.txtContainerNr2.MaxLines_Warning_Label = Nothing
Me.txtContainerNr2.Name = "txtContainerNr2"
Me.txtContainerNr2.Size = New System.Drawing.Size(115, 20)
Me.txtContainerNr2.TabIndex = 34
'
'txtContainerNr1
'
Me.txtContainerNr1._DateTimeOnly = False
Me.txtContainerNr1._numbersOnly = False
Me.txtContainerNr1._numbersOnlyKommastellen = ""
Me.txtContainerNr1._Prozent = False
Me.txtContainerNr1._ShortDateNew = False
Me.txtContainerNr1._ShortDateOnly = False
Me.txtContainerNr1._TimeOnly = False
Me.txtContainerNr1._value = ""
Me.txtContainerNr1._Waehrung = False
Me.txtContainerNr1._WaehrungZeichen = True
Me.txtContainerNr1.Enabled = False
Me.txtContainerNr1.ForeColor = System.Drawing.Color.Black
Me.txtContainerNr1.Location = New System.Drawing.Point(793, 222)
Me.txtContainerNr1.MaxLength = 11
Me.txtContainerNr1.MaxLineLength = -1
Me.txtContainerNr1.MaxLines_Warning = ""
Me.txtContainerNr1.MaxLines_Warning_Label = Nothing
Me.txtContainerNr1.Name = "txtContainerNr1"
Me.txtContainerNr1.Size = New System.Drawing.Size(115, 20)
Me.txtContainerNr1.TabIndex = 33
'
'Label32
'
Me.Label32.Enabled = False
Me.Label32.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label32.Location = New System.Drawing.Point(733, 225)
Me.Label32.Name = "Label32"
Me.Label32.Size = New System.Drawing.Size(103, 13)
Me.Label32.TabIndex = 22
Me.Label32.Text = "Container:"
'
'txtVP_ATBPk2
'
Me.txtVP_ATBPk2._DateTimeOnly = False
Me.txtVP_ATBPk2._numbersOnly = True
Me.txtVP_ATBPk2._numbersOnlyKommastellen = ""
Me.txtVP_ATBPk2._Prozent = False
Me.txtVP_ATBPk2._ShortDateNew = False
Me.txtVP_ATBPk2._ShortDateOnly = False
Me.txtVP_ATBPk2._TimeOnly = False
Me.txtVP_ATBPk2._value = ""
Me.txtVP_ATBPk2._Waehrung = False
Me.txtVP_ATBPk2._WaehrungZeichen = True
Me.txtVP_ATBPk2.Enabled = False
Me.txtVP_ATBPk2.ForeColor = System.Drawing.Color.Black
Me.txtVP_ATBPk2.Location = New System.Drawing.Point(550, 260)
Me.txtVP_ATBPk2.MaxLength = 5
Me.txtVP_ATBPk2.MaxLineLength = -1
Me.txtVP_ATBPk2.MaxLines_Warning = ""
Me.txtVP_ATBPk2.MaxLines_Warning_Label = Nothing
Me.txtVP_ATBPk2.Name = "txtVP_ATBPk2"
Me.txtVP_ATBPk2.Size = New System.Drawing.Size(62, 20)
Me.txtVP_ATBPk2.TabIndex = 31
'
'txtVP_ATBPk1
'
Me.txtVP_ATBPk1._DateTimeOnly = False
Me.txtVP_ATBPk1._numbersOnly = True
Me.txtVP_ATBPk1._numbersOnlyKommastellen = ""
Me.txtVP_ATBPk1._Prozent = False
Me.txtVP_ATBPk1._ShortDateNew = False
Me.txtVP_ATBPk1._ShortDateOnly = False
Me.txtVP_ATBPk1._TimeOnly = False
Me.txtVP_ATBPk1._value = ""
Me.txtVP_ATBPk1._Waehrung = False
Me.txtVP_ATBPk1._WaehrungZeichen = True
Me.txtVP_ATBPk1.Enabled = False
Me.txtVP_ATBPk1.ForeColor = System.Drawing.Color.Black
Me.txtVP_ATBPk1.Location = New System.Drawing.Point(550, 241)
Me.txtVP_ATBPk1.MaxLength = 5
Me.txtVP_ATBPk1.MaxLineLength = -1
Me.txtVP_ATBPk1.MaxLines_Warning = ""
Me.txtVP_ATBPk1.MaxLines_Warning_Label = Nothing
Me.txtVP_ATBPk1.Name = "txtVP_ATBPk1"
Me.txtVP_ATBPk1.Size = New System.Drawing.Size(62, 20)
Me.txtVP_ATBPk1.TabIndex = 26
'
'txtVP_ATBNr2
'
Me.txtVP_ATBNr2._DateTimeOnly = False
Me.txtVP_ATBNr2._numbersOnly = True
Me.txtVP_ATBNr2._numbersOnlyKommastellen = ""
Me.txtVP_ATBNr2._Prozent = False
Me.txtVP_ATBNr2._ShortDateNew = False
Me.txtVP_ATBNr2._ShortDateOnly = False
Me.txtVP_ATBNr2._TimeOnly = False
Me.txtVP_ATBNr2._value = ""
Me.txtVP_ATBNr2._Waehrung = False
Me.txtVP_ATBNr2._WaehrungZeichen = False
Me.txtVP_ATBNr2.Enabled = False
Me.txtVP_ATBNr2.ForeColor = System.Drawing.Color.Black
Me.txtVP_ATBNr2.Location = New System.Drawing.Point(495, 260)
Me.txtVP_ATBNr2.MaxLength = 4
Me.txtVP_ATBNr2.MaxLineLength = -1
Me.txtVP_ATBNr2.MaxLines_Warning = ""
Me.txtVP_ATBNr2.MaxLines_Warning_Label = Nothing
Me.txtVP_ATBNr2.Name = "txtVP_ATBNr2"
Me.txtVP_ATBNr2.Size = New System.Drawing.Size(49, 20)
Me.txtVP_ATBNr2.TabIndex = 30
'
'txtVP_ATBNr1
'
Me.txtVP_ATBNr1._DateTimeOnly = False
Me.txtVP_ATBNr1._numbersOnly = True
Me.txtVP_ATBNr1._numbersOnlyKommastellen = ""
Me.txtVP_ATBNr1._Prozent = False
Me.txtVP_ATBNr1._ShortDateNew = False
Me.txtVP_ATBNr1._ShortDateOnly = False
Me.txtVP_ATBNr1._TimeOnly = False
Me.txtVP_ATBNr1._value = ""
Me.txtVP_ATBNr1._Waehrung = False
Me.txtVP_ATBNr1._WaehrungZeichen = False
Me.txtVP_ATBNr1.Enabled = False
Me.txtVP_ATBNr1.ForeColor = System.Drawing.Color.Black
Me.txtVP_ATBNr1.Location = New System.Drawing.Point(495, 241)
Me.txtVP_ATBNr1.MaxLength = 4
Me.txtVP_ATBNr1.MaxLineLength = -1
Me.txtVP_ATBNr1.MaxLines_Warning = ""
Me.txtVP_ATBNr1.MaxLines_Warning_Label = Nothing
Me.txtVP_ATBNr1.Name = "txtVP_ATBNr1"
Me.txtVP_ATBNr1.Size = New System.Drawing.Size(49, 20)
Me.txtVP_ATBNr1.TabIndex = 25
'
'Label15
'
Me.Label15.Location = New System.Drawing.Point(250, 263)
Me.Label15.Name = "Label15"
Me.Label15.Size = New System.Drawing.Size(103, 13)
Me.Label15.TabIndex = 28
Me.Label15.Text = "ATB / PosNr.:"
Me.Label15.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'txtVP_ATB2
'
Me.txtVP_ATB2._DateTimeOnly = False
Me.txtVP_ATB2._numbersOnly = False
Me.txtVP_ATB2._numbersOnlyKommastellen = ""
Me.txtVP_ATB2._Prozent = False
Me.txtVP_ATB2._ShortDateNew = False
Me.txtVP_ATB2._ShortDateOnly = False
Me.txtVP_ATB2._TimeOnly = False
Me.txtVP_ATB2._value = Nothing
Me.txtVP_ATB2._Waehrung = False
Me.txtVP_ATB2._WaehrungZeichen = False
Me.txtVP_ATB2.Enabled = False
Me.txtVP_ATB2.ForeColor = System.Drawing.Color.Black
Me.txtVP_ATB2.Location = New System.Drawing.Point(359, 260)
Me.txtVP_ATB2.MaxLength = 21
Me.txtVP_ATB2.MaxLineLength = -1
Me.txtVP_ATB2.MaxLines_Warning = ""
Me.txtVP_ATB2.MaxLines_Warning_Label = Nothing
Me.txtVP_ATB2.Name = "txtVP_ATB2"
Me.txtVP_ATB2.Size = New System.Drawing.Size(137, 20)
Me.txtVP_ATB2.TabIndex = 29
'
'Label19
'
Me.Label19.Location = New System.Drawing.Point(250, 244)
Me.Label19.Name = "Label19"
Me.Label19.Size = New System.Drawing.Size(103, 13)
Me.Label19.TabIndex = 23
Me.Label19.Text = "ATB / PosNr.:"
Me.Label19.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'txtVP_ATB1
'
Me.txtVP_ATB1._DateTimeOnly = False
Me.txtVP_ATB1._numbersOnly = False
Me.txtVP_ATB1._numbersOnlyKommastellen = ""
Me.txtVP_ATB1._Prozent = False
Me.txtVP_ATB1._ShortDateNew = False
Me.txtVP_ATB1._ShortDateOnly = False
Me.txtVP_ATB1._TimeOnly = False
Me.txtVP_ATB1._value = Nothing
Me.txtVP_ATB1._Waehrung = False
Me.txtVP_ATB1._WaehrungZeichen = False
Me.txtVP_ATB1.Enabled = False
Me.txtVP_ATB1.ForeColor = System.Drawing.Color.Black
Me.txtVP_ATB1.Location = New System.Drawing.Point(359, 241)
Me.txtVP_ATB1.MaxLength = 21
Me.txtVP_ATB1.MaxLineLength = -1
Me.txtVP_ATB1.MaxLines_Warning = ""
Me.txtVP_ATB1.MaxLines_Warning_Label = Nothing
Me.txtVP_ATB1.Name = "txtVP_ATB1"
Me.txtVP_ATB1.Size = New System.Drawing.Size(137, 20)
Me.txtVP_ATB1.TabIndex = 24
'
'txtVPReferenz
'
Me.txtVPReferenz._DateTimeOnly = False
Me.txtVPReferenz._numbersOnly = False
Me.txtVPReferenz._numbersOnlyKommastellen = ""
Me.txtVPReferenz._Prozent = False
Me.txtVPReferenz._ShortDateNew = False
Me.txtVPReferenz._ShortDateOnly = False
Me.txtVPReferenz._TimeOnly = False
Me.txtVPReferenz._value = Nothing
Me.txtVPReferenz._Waehrung = False
Me.txtVPReferenz._WaehrungZeichen = True
Me.txtVPReferenz.Enabled = False
Me.txtVPReferenz.ForeColor = System.Drawing.Color.Black
Me.txtVPReferenz.Location = New System.Drawing.Point(417, 222)
Me.txtVPReferenz.MaxLength = 28
Me.txtVPReferenz.MaxLineLength = -1
Me.txtVPReferenz.MaxLines_Warning = ""
Me.txtVPReferenz.MaxLines_Warning_Label = Nothing
Me.txtVPReferenz.Name = "txtVPReferenz"
Me.txtVPReferenz.Size = New System.Drawing.Size(195, 20)
Me.txtVPReferenz.TabIndex = 21
'
'cboVPArt
'
Me.cboVPArt._allowedValuesFreiText = Nothing
Me.cboVPArt._allowFreiText = False
Me.cboVPArt._value = ""
Me.cboVPArt.DropDownWidth = 350
Me.cboVPArt.FormattingEnabled = True
Me.cboVPArt.Location = New System.Drawing.Point(359, 222)
Me.cboVPArt.Name = "cboVPArt"
Me.cboVPArt.Size = New System.Drawing.Size(59, 21)
Me.cboVPArt.TabIndex = 20
'
'Label22
'
Me.Label22.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label22.Location = New System.Drawing.Point(250, 225)
Me.Label22.Name = "Label22"
Me.Label22.Size = New System.Drawing.Size(103, 13)
Me.Label22.TabIndex = 19
Me.Label22.Text = "Vorpapier:"
Me.Label22.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'txtRohmasse
'
Me.txtRohmasse._DateTimeOnly = False
Me.txtRohmasse._numbersOnly = True
Me.txtRohmasse._numbersOnlyKommastellen = "1"
Me.txtRohmasse._Prozent = False
Me.txtRohmasse._ShortDateNew = False
Me.txtRohmasse._ShortDateOnly = False
Me.txtRohmasse._TimeOnly = False
Me.txtRohmasse._value = "0"
Me.txtRohmasse._Waehrung = False
Me.txtRohmasse._WaehrungZeichen = True
Me.txtRohmasse.ForeColor = System.Drawing.Color.Black
Me.txtRohmasse.Location = New System.Drawing.Point(694, 474)
Me.txtRohmasse.MaxLength = 18
Me.txtRohmasse.MaxLineLength = -1
Me.txtRohmasse.MaxLines_Warning = ""
Me.txtRohmasse.MaxLines_Warning_Label = Nothing
Me.txtRohmasse.Name = "txtRohmasse"
Me.txtRohmasse.Size = New System.Drawing.Size(214, 20)
Me.txtRohmasse.TabIndex = 55
Me.txtRohmasse.Text = "0,00"
'
'Label29
'
Me.Label29.Location = New System.Drawing.Point(580, 477)
Me.Label29.Name = "Label29"
Me.Label29.Size = New System.Drawing.Size(111, 13)
Me.Label29.TabIndex = 54
Me.Label29.Text = "Gesamtgewicht:"
Me.Label29.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'Label14
'
Me.Label14.Location = New System.Drawing.Point(7, 178)
Me.Label14.Location = New System.Drawing.Point(7, 181)
Me.Label14.Name = "Label14"
Me.Label14.Size = New System.Drawing.Size(135, 13)
Me.Label14.TabIndex = 17
@@ -157,7 +507,7 @@ Partial Class usrCntlATLAS_EZA_Allg
Me.cboVerfahren._value = ""
Me.cboVerfahren.DropDownWidth = 350
Me.cboVerfahren.FormattingEnabled = True
Me.cboVerfahren.Location = New System.Drawing.Point(145, 175)
Me.cboVerfahren.Location = New System.Drawing.Point(145, 178)
Me.cboVerfahren.Name = "cboVerfahren"
Me.cboVerfahren.Size = New System.Drawing.Size(763, 21)
Me.cboVerfahren.TabIndex = 18
@@ -167,7 +517,7 @@ Partial Class usrCntlATLAS_EZA_Allg
Me.cbxAnmelderIstEmpfänger.AutoSize = True
Me.cbxAnmelderIstEmpfänger.Checked = True
Me.cbxAnmelderIstEmpfänger.CheckState = System.Windows.Forms.CheckState.Indeterminate
Me.cbxAnmelderIstEmpfänger.Location = New System.Drawing.Point(694, 158)
Me.cbxAnmelderIstEmpfänger.Location = New System.Drawing.Point(694, 161)
Me.cbxAnmelderIstEmpfänger.Name = "cbxAnmelderIstEmpfänger"
Me.cbxAnmelderIstEmpfänger.Size = New System.Drawing.Size(133, 17)
Me.cbxAnmelderIstEmpfänger.TabIndex = 16
@@ -182,14 +532,14 @@ Partial Class usrCntlATLAS_EZA_Allg
Me.cboVertretungsart._value = ""
Me.cboVertretungsart.DropDownWidth = 350
Me.cboVertretungsart.FormattingEnabled = True
Me.cboVertretungsart.Location = New System.Drawing.Point(145, 155)
Me.cboVertretungsart.Location = New System.Drawing.Point(145, 158)
Me.cboVertretungsart.Name = "cboVertretungsart"
Me.cboVertretungsart.Size = New System.Drawing.Size(174, 21)
Me.cboVertretungsart.TabIndex = 15
'
'Label5
'
Me.Label5.Location = New System.Drawing.Point(7, 158)
Me.Label5.Location = New System.Drawing.Point(7, 161)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(135, 13)
Me.Label5.TabIndex = 14
@@ -202,15 +552,15 @@ Partial Class usrCntlATLAS_EZA_Allg
Me.sbBestimmungsBundesland._allowFreiText = False
Me.sbBestimmungsBundesland._value = ""
Me.sbBestimmungsBundesland.FormattingEnabled = True
Me.sbBestimmungsBundesland.Location = New System.Drawing.Point(694, 278)
Me.sbBestimmungsBundesland.Location = New System.Drawing.Point(694, 358)
Me.sbBestimmungsBundesland.Name = "sbBestimmungsBundesland"
Me.sbBestimmungsBundesland.Size = New System.Drawing.Size(214, 21)
Me.sbBestimmungsBundesland.TabIndex = 28
Me.sbBestimmungsBundesland.TabIndex = 45
'
'cbxDV1
'
Me.cbxDV1.AutoSize = True
Me.cbxDV1.Location = New System.Drawing.Point(694, 139)
Me.cbxDV1.Location = New System.Drawing.Point(694, 142)
Me.cbxDV1.Name = "cbxDV1"
Me.cbxDV1.Size = New System.Drawing.Size(108, 17)
Me.cbxDV1.TabIndex = 13
@@ -224,14 +574,14 @@ Partial Class usrCntlATLAS_EZA_Allg
Me.cboZollrStatus._value = ""
Me.cboZollrStatus.DropDownWidth = 350
Me.cboZollrStatus.FormattingEnabled = True
Me.cboZollrStatus.Location = New System.Drawing.Point(145, 135)
Me.cboZollrStatus.Location = New System.Drawing.Point(145, 138)
Me.cboZollrStatus.Name = "cboZollrStatus"
Me.cboZollrStatus.Size = New System.Drawing.Size(174, 21)
Me.cboZollrStatus.TabIndex = 10
'
'Label3
'
Me.Label3.Location = New System.Drawing.Point(295, 138)
Me.Label3.Location = New System.Drawing.Point(295, 141)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(135, 13)
Me.Label3.TabIndex = 11
@@ -245,14 +595,14 @@ Partial Class usrCntlATLAS_EZA_Allg
Me.cboStatStatus._value = ""
Me.cboStatStatus.DropDownWidth = 350
Me.cboStatStatus.FormattingEnabled = True
Me.cboStatStatus.Location = New System.Drawing.Point(433, 135)
Me.cboStatStatus.Location = New System.Drawing.Point(433, 138)
Me.cboStatStatus.Name = "cboStatStatus"
Me.cboStatStatus.Size = New System.Drawing.Size(214, 21)
Me.cboStatStatus.TabIndex = 12
'
'Label2
'
Me.Label2.Location = New System.Drawing.Point(7, 138)
Me.Label2.Location = New System.Drawing.Point(7, 141)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(135, 13)
Me.Label2.TabIndex = 9
@@ -272,6 +622,8 @@ Partial Class usrCntlATLAS_EZA_Allg
'cbxVorzeitigeAnmeldung
'
Me.cbxVorzeitigeAnmeldung.AutoSize = True
Me.cbxVorzeitigeAnmeldung.Checked = True
Me.cbxVorzeitigeAnmeldung.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxVorzeitigeAnmeldung.Location = New System.Drawing.Point(17, 81)
Me.cbxVorzeitigeAnmeldung.Name = "cbxVorzeitigeAnmeldung"
Me.cbxVorzeitigeAnmeldung.Size = New System.Drawing.Size(128, 17)
@@ -279,15 +631,6 @@ Partial Class usrCntlATLAS_EZA_Allg
Me.cbxVorzeitigeAnmeldung.Text = "Vorzeitige Anmeldung"
Me.cbxVorzeitigeAnmeldung.UseVisualStyleBackColor = True
'
'Label10
'
Me.Label10.Location = New System.Drawing.Point(533, 281)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(158, 13)
Me.Label10.TabIndex = 27
Me.Label10.Text = "Bestimmungs-Bundesland:"
Me.Label10.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'cboGeschaeftsArt
'
Me.cboGeschaeftsArt._allowedValuesFreiText = Nothing
@@ -295,17 +638,17 @@ Partial Class usrCntlATLAS_EZA_Allg
Me.cboGeschaeftsArt._value = ""
Me.cboGeschaeftsArt.DropDownWidth = 350
Me.cboGeschaeftsArt.FormattingEnabled = True
Me.cboGeschaeftsArt.Location = New System.Drawing.Point(145, 413)
Me.cboGeschaeftsArt.Location = New System.Drawing.Point(145, 493)
Me.cboGeschaeftsArt.Name = "cboGeschaeftsArt"
Me.cboGeschaeftsArt.Size = New System.Drawing.Size(214, 21)
Me.cboGeschaeftsArt.TabIndex = 37
Me.cboGeschaeftsArt.TabIndex = 57
'
'Label28
'
Me.Label28.Location = New System.Drawing.Point(7, 223)
Me.Label28.Location = New System.Drawing.Point(7, 303)
Me.Label28.Name = "Label28"
Me.Label28.Size = New System.Drawing.Size(135, 13)
Me.Label28.TabIndex = 21
Me.Label28.TabIndex = 36
Me.Label28.Text = "Abfertigungs-Zollstelle:"
Me.Label28.TextAlign = System.Drawing.ContentAlignment.TopRight
'
@@ -322,7 +665,7 @@ Partial Class usrCntlATLAS_EZA_Allg
Me.sbAdrZollstelle.INVISIBLE_COLUMNS = Nothing
Me.sbAdrZollstelle.key_visible = False
Me.sbAdrZollstelle.KEYPARAM = Nothing
Me.sbAdrZollstelle.Location = New System.Drawing.Point(145, 220)
Me.sbAdrZollstelle.Location = New System.Drawing.Point(145, 300)
Me.sbAdrZollstelle.Name = "sbAdrZollstelle"
Me.sbAdrZollstelle.searchActive = True
Me.sbAdrZollstelle.Size = New System.Drawing.Size(214, 20)
@@ -330,24 +673,24 @@ Partial Class usrCntlATLAS_EZA_Allg
Me.sbAdrZollstelle.SQL_SELECT = Nothing
Me.sbAdrZollstelle.SQL_WHERE = Nothing
Me.sbAdrZollstelle.SQL_WhereParamList = Nothing
Me.sbAdrZollstelle.TabIndex = 22
Me.sbAdrZollstelle.TabIndex = 37
Me.sbAdrZollstelle.usrcntl = Nothing
'
'Label26
'
Me.Label26.Location = New System.Drawing.Point(-25, 397)
Me.Label26.Location = New System.Drawing.Point(-25, 477)
Me.Label26.Name = "Label26"
Me.Label26.Size = New System.Drawing.Size(167, 13)
Me.Label26.TabIndex = 34
Me.Label26.TabIndex = 52
Me.Label26.Text = "Zahlungsart:"
Me.Label26.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'Label27
'
Me.Label27.Location = New System.Drawing.Point(7, 416)
Me.Label27.Location = New System.Drawing.Point(7, 496)
Me.Label27.Name = "Label27"
Me.Label27.Size = New System.Drawing.Size(135, 13)
Me.Label27.TabIndex = 36
Me.Label27.TabIndex = 56
Me.Label27.Text = "Art des Geschäfts:"
Me.Label27.TextAlign = System.Drawing.ContentAlignment.TopRight
'
@@ -362,15 +705,16 @@ Partial Class usrCntlATLAS_EZA_Allg
Me.txtWarenort._TimeOnly = False
Me.txtWarenort._value = Nothing
Me.txtWarenort._Waehrung = False
Me.txtWarenort._WaehrungZeichen = True
Me.txtWarenort.ForeColor = System.Drawing.Color.Black
Me.txtWarenort.Location = New System.Drawing.Point(145, 307)
Me.txtWarenort.Location = New System.Drawing.Point(145, 387)
Me.txtWarenort.MaxLength = 17
Me.txtWarenort.MaxLineLength = -1
Me.txtWarenort.MaxLines_Warning = ""
Me.txtWarenort.MaxLines_Warning_Label = Nothing
Me.txtWarenort.Name = "txtWarenort"
Me.txtWarenort.Size = New System.Drawing.Size(214, 20)
Me.txtWarenort.TabIndex = 30
Me.txtWarenort.TabIndex = 47
'
'cboZahlungsweise
'
@@ -379,14 +723,14 @@ Partial Class usrCntlATLAS_EZA_Allg
Me.cboZahlungsweise._value = ""
Me.cboZahlungsweise.DropDownWidth = 350
Me.cboZahlungsweise.FormattingEnabled = True
Me.cboZahlungsweise.Location = New System.Drawing.Point(145, 394)
Me.cboZahlungsweise.Location = New System.Drawing.Point(145, 474)
Me.cboZahlungsweise.Name = "cboZahlungsweise"
Me.cboZahlungsweise.Size = New System.Drawing.Size(214, 21)
Me.cboZahlungsweise.TabIndex = 35
Me.cboZahlungsweise.TabIndex = 53
'
'Label1
'
Me.Label1.Location = New System.Drawing.Point(7, 118)
Me.Label1.Location = New System.Drawing.Point(7, 121)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(135, 13)
Me.Label1.TabIndex = 7
@@ -400,17 +744,17 @@ Partial Class usrCntlATLAS_EZA_Allg
Me.cboArtVerfahrenUeberfuehrung._value = ""
Me.cboArtVerfahrenUeberfuehrung.DropDownWidth = 350
Me.cboArtVerfahrenUeberfuehrung.FormattingEnabled = True
Me.cboArtVerfahrenUeberfuehrung.Location = New System.Drawing.Point(145, 115)
Me.cboArtVerfahrenUeberfuehrung.Location = New System.Drawing.Point(145, 118)
Me.cboArtVerfahrenUeberfuehrung.Name = "cboArtVerfahrenUeberfuehrung"
Me.cboArtVerfahrenUeberfuehrung.Size = New System.Drawing.Size(763, 21)
Me.cboArtVerfahrenUeberfuehrung.TabIndex = 8
'
'Label17
'
Me.Label17.Location = New System.Drawing.Point(7, 348)
Me.Label17.Location = New System.Drawing.Point(7, 428)
Me.Label17.Name = "Label17"
Me.Label17.Size = New System.Drawing.Size(135, 13)
Me.Label17.TabIndex = 32
Me.Label17.TabIndex = 50
Me.Label17.Text = "Verkehrszweig Inland:"
Me.Label17.TextAlign = System.Drawing.ContentAlignment.TopRight
'
@@ -421,25 +765,25 @@ Partial Class usrCntlATLAS_EZA_Allg
Me.cboVerkehrszweigInland._value = ""
Me.cboVerkehrszweigInland.DropDownWidth = 350
Me.cboVerkehrszweigInland.FormattingEnabled = True
Me.cboVerkehrszweigInland.Location = New System.Drawing.Point(145, 345)
Me.cboVerkehrszweigInland.Location = New System.Drawing.Point(145, 425)
Me.cboVerkehrszweigInland.Name = "cboVerkehrszweigInland"
Me.cboVerkehrszweigInland.Size = New System.Drawing.Size(140, 21)
Me.cboVerkehrszweigInland.TabIndex = 33
Me.cboVerkehrszweigInland.TabIndex = 51
'
'Label16
'
Me.Label16.Location = New System.Drawing.Point(7, 310)
Me.Label16.Location = New System.Drawing.Point(7, 390)
Me.Label16.Name = "Label16"
Me.Label16.Size = New System.Drawing.Size(135, 13)
Me.Label16.TabIndex = 29
Me.Label16.TabIndex = 46
Me.Label16.Text = "Warenort:"
Me.Label16.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'pic
'
Me.pic.BackgroundImage = Global.SDL.My.Resources.lorry_motion
Me.pic.BackgroundImage = Global.SDL.My.Resources.Resources.lorry_motion
Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.pic.Location = New System.Drawing.Point(399, 248)
Me.pic.Location = New System.Drawing.Point(399, 328)
Me.pic.Name = "pic"
Me.pic.Size = New System.Drawing.Size(154, 50)
Me.pic.TabIndex = 47
@@ -510,7 +854,7 @@ Partial Class usrCntlATLAS_EZA_Allg
Me.sbBestimmungsland.INVISIBLE_COLUMNS = Nothing
Me.sbBestimmungsland.key_visible = False
Me.sbBestimmungsland.KEYPARAM = Nothing
Me.sbBestimmungsland.Location = New System.Drawing.Point(694, 259)
Me.sbBestimmungsland.Location = New System.Drawing.Point(694, 339)
Me.sbBestimmungsland.Name = "sbBestimmungsland"
Me.sbBestimmungsland.searchActive = True
Me.sbBestimmungsland.Size = New System.Drawing.Size(214, 20)
@@ -518,24 +862,24 @@ Partial Class usrCntlATLAS_EZA_Allg
Me.sbBestimmungsland.SQL_SELECT = Nothing
Me.sbBestimmungsland.SQL_WHERE = Nothing
Me.sbBestimmungsland.SQL_WhereParamList = Nothing
Me.sbBestimmungsland.TabIndex = 26
Me.sbBestimmungsland.TabIndex = 43
Me.sbBestimmungsland.usrcntl = Nothing
'
'Label11
'
Me.Label11.Location = New System.Drawing.Point(575, 262)
Me.Label11.Location = New System.Drawing.Point(575, 342)
Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(116, 13)
Me.Label11.TabIndex = 25
Me.Label11.TabIndex = 42
Me.Label11.Text = "Bestimmungs-Land:"
Me.Label11.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'Label12
'
Me.Label12.Location = New System.Drawing.Point(7, 261)
Me.Label12.Location = New System.Drawing.Point(7, 341)
Me.Label12.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(135, 13)
Me.Label12.TabIndex = 23
Me.Label12.TabIndex = 40
Me.Label12.Text = "Versendungs-Land:"
Me.Label12.TextAlign = System.Drawing.ContentAlignment.TopRight
'
@@ -552,7 +896,7 @@ Partial Class usrCntlATLAS_EZA_Allg
Me.sbVersendungsLand.INVISIBLE_COLUMNS = Nothing
Me.sbVersendungsLand.key_visible = False
Me.sbVersendungsLand.KEYPARAM = Nothing
Me.sbVersendungsLand.Location = New System.Drawing.Point(145, 258)
Me.sbVersendungsLand.Location = New System.Drawing.Point(145, 338)
Me.sbVersendungsLand.Name = "sbVersendungsLand"
Me.sbVersendungsLand.searchActive = True
Me.sbVersendungsLand.Size = New System.Drawing.Size(214, 20)
@@ -560,15 +904,15 @@ Partial Class usrCntlATLAS_EZA_Allg
Me.sbVersendungsLand.SQL_SELECT = Nothing
Me.sbVersendungsLand.SQL_WHERE = Nothing
Me.sbVersendungsLand.SQL_WhereParamList = Nothing
Me.sbVersendungsLand.TabIndex = 24
Me.sbVersendungsLand.TabIndex = 41
Me.sbVersendungsLand.usrcntl = Nothing
'
'Label9
'
Me.Label9.Location = New System.Drawing.Point(556, 223)
Me.Label9.Location = New System.Drawing.Point(556, 303)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(135, 13)
Me.Label9.TabIndex = 19
Me.Label9.TabIndex = 38
Me.Label9.Text = "Eingangs-Zollstelle:"
Me.Label9.TextAlign = System.Drawing.ContentAlignment.TopRight
'
@@ -585,7 +929,7 @@ Partial Class usrCntlATLAS_EZA_Allg
Me.sbEingangZollstelleID.INVISIBLE_COLUMNS = Nothing
Me.sbEingangZollstelleID.key_visible = False
Me.sbEingangZollstelleID.KEYPARAM = Nothing
Me.sbEingangZollstelleID.Location = New System.Drawing.Point(694, 220)
Me.sbEingangZollstelleID.Location = New System.Drawing.Point(694, 300)
Me.sbEingangZollstelleID.Name = "sbEingangZollstelleID"
Me.sbEingangZollstelleID.searchActive = True
Me.sbEingangZollstelleID.Size = New System.Drawing.Size(214, 20)
@@ -593,7 +937,7 @@ Partial Class usrCntlATLAS_EZA_Allg
Me.sbEingangZollstelleID.SQL_SELECT = Nothing
Me.sbEingangZollstelleID.SQL_WHERE = Nothing
Me.sbEingangZollstelleID.SQL_WhereParamList = Nothing
Me.sbEingangZollstelleID.TabIndex = 20
Me.sbEingangZollstelleID.TabIndex = 39
Me.sbEingangZollstelleID.usrcntl = Nothing
'
'Label8
@@ -620,10 +964,10 @@ Partial Class usrCntlATLAS_EZA_Allg
Me.Panel1.Controls.Add(Me.Label18)
Me.Panel1.Controls.Add(Me.cboArtGrenzUeberschreitung)
Me.Panel1.Controls.Add(Me.Label23)
Me.Panel1.Location = New System.Drawing.Point(3, 326)
Me.Panel1.Location = New System.Drawing.Point(3, 406)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(930, 21)
Me.Panel1.TabIndex = 31
Me.Panel1.TabIndex = 49
'
'txtKennzeichenInland
'
@@ -636,6 +980,7 @@ Partial Class usrCntlATLAS_EZA_Allg
Me.txtKennzeichenInland._TimeOnly = False
Me.txtKennzeichenInland._value = ""
Me.txtKennzeichenInland._Waehrung = False
Me.txtKennzeichenInland._WaehrungZeichen = True
Me.txtKennzeichenInland.Location = New System.Drawing.Point(142, 0)
Me.txtKennzeichenInland.MaxLength = 27
Me.txtKennzeichenInland.MaxLineLength = -1
@@ -672,7 +1017,7 @@ Partial Class usrCntlATLAS_EZA_Allg
'PictureBox1
'
Me.PictureBox1.BackColor = System.Drawing.Color.WhiteSmoke
Me.PictureBox1.BackgroundImage = Global.SDL.My.Resources.lorry
Me.PictureBox1.BackgroundImage = Global.SDL.My.Resources.Resources.lorry
Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox1.Location = New System.Drawing.Point(0, 0)
Me.PictureBox1.Name = "PictureBox1"
@@ -753,10 +1098,10 @@ Partial Class usrCntlATLAS_EZA_Allg
Me.Panel2.Controls.Add(Me.txtLieferbedingungort)
Me.Panel2.Controls.Add(Me.Label24)
Me.Panel2.Controls.Add(Me.Label30)
Me.Panel2.Location = New System.Drawing.Point(0, 471)
Me.Panel2.Location = New System.Drawing.Point(0, 551)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(930, 41)
Me.Panel2.TabIndex = 41
Me.Panel2.TabIndex = 60
'
'cboLieferbedingungSchluessel
'
@@ -802,6 +1147,7 @@ Partial Class usrCntlATLAS_EZA_Allg
Me.txtLieferbedingungText._TimeOnly = False
Me.txtLieferbedingungText._value = ""
Me.txtLieferbedingungText._Waehrung = False
Me.txtLieferbedingungText._WaehrungZeichen = True
Me.txtLieferbedingungText.Enabled = False
Me.txtLieferbedingungText.ForeColor = System.Drawing.Color.Black
Me.txtLieferbedingungText.Location = New System.Drawing.Point(694, 20)
@@ -833,6 +1179,7 @@ Partial Class usrCntlATLAS_EZA_Allg
Me.txtLieferbedingungort._TimeOnly = False
Me.txtLieferbedingungort._value = ""
Me.txtLieferbedingungort._Waehrung = False
Me.txtLieferbedingungort._WaehrungZeichen = True
Me.txtLieferbedingungort.Enabled = False
Me.txtLieferbedingungort.ForeColor = System.Drawing.Color.Black
Me.txtLieferbedingungort.Location = New System.Drawing.Point(694, 1)
@@ -875,7 +1222,7 @@ Partial Class usrCntlATLAS_EZA_Allg
Me.txtRechnungspreisWaehrung.INVISIBLE_COLUMNS = Nothing
Me.txtRechnungspreisWaehrung.key_visible = False
Me.txtRechnungspreisWaehrung.KEYPARAM = Nothing
Me.txtRechnungspreisWaehrung.Location = New System.Drawing.Point(833, 414)
Me.txtRechnungspreisWaehrung.Location = New System.Drawing.Point(833, 396)
Me.txtRechnungspreisWaehrung.Name = "txtRechnungspreisWaehrung"
Me.txtRechnungspreisWaehrung.searchActive = True
Me.txtRechnungspreisWaehrung.Size = New System.Drawing.Size(75, 20)
@@ -883,7 +1230,7 @@ Partial Class usrCntlATLAS_EZA_Allg
Me.txtRechnungspreisWaehrung.SQL_SELECT = Nothing
Me.txtRechnungspreisWaehrung.SQL_WHERE = Nothing
Me.txtRechnungspreisWaehrung.SQL_WhereParamList = Nothing
Me.txtRechnungspreisWaehrung.TabIndex = 40
Me.txtRechnungspreisWaehrung.TabIndex = 48
Me.txtRechnungspreisWaehrung.usrcntl = Nothing
'
'txtRechnungspreis
@@ -897,26 +1244,52 @@ Partial Class usrCntlATLAS_EZA_Allg
Me.txtRechnungspreis._TimeOnly = False
Me.txtRechnungspreis._value = ""
Me.txtRechnungspreis._Waehrung = False
Me.txtRechnungspreis._WaehrungZeichen = True
Me.txtRechnungspreis.ForeColor = System.Drawing.Color.Black
Me.txtRechnungspreis.Location = New System.Drawing.Point(694, 414)
Me.txtRechnungspreis.Location = New System.Drawing.Point(694, 493)
Me.txtRechnungspreis.MaxLength = 70
Me.txtRechnungspreis.MaxLineLength = -1
Me.txtRechnungspreis.MaxLines_Warning = ""
Me.txtRechnungspreis.MaxLines_Warning_Label = Nothing
Me.txtRechnungspreis.Name = "txtRechnungspreis"
Me.txtRechnungspreis.Size = New System.Drawing.Size(140, 20)
Me.txtRechnungspreis.TabIndex = 39
Me.txtRechnungspreis.TabIndex = 59
Me.txtRechnungspreis.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'Label21
'
Me.Label21.Location = New System.Drawing.Point(556, 417)
Me.Label21.Location = New System.Drawing.Point(556, 496)
Me.Label21.Name = "Label21"
Me.Label21.Size = New System.Drawing.Size(135, 13)
Me.Label21.TabIndex = 38
Me.Label21.TabIndex = 58
Me.Label21.Text = "Rechnungspreis:"
Me.Label21.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'Label10
'
Me.Label10.Location = New System.Drawing.Point(533, 361)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(158, 13)
Me.Label10.TabIndex = 44
Me.Label10.Text = "Bestimmungs-Bundesland:"
Me.Label10.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'Label31
'
Me.Label31.Location = New System.Drawing.Point(611, 263)
Me.Label31.Name = "Label31"
Me.Label31.Size = New System.Drawing.Size(103, 13)
Me.Label31.TabIndex = 32
Me.Label31.Text = "Pk."
'
'Label25
'
Me.Label25.Location = New System.Drawing.Point(611, 244)
Me.Label25.Name = "Label25"
Me.Label25.Size = New System.Drawing.Size(103, 13)
Me.Label25.TabIndex = 27
Me.Label25.Text = "Pk."
'
'usrCntlATLAS_EZA_Allg
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -997,5 +1370,23 @@ Partial Class usrCntlATLAS_EZA_Allg
Friend WithEvents cbxAnmelderIstEmpfänger As System.Windows.Forms.CheckBox
Friend WithEvents Label14 As System.Windows.Forms.Label
Friend WithEvents cboVerfahren As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents txtRohmasse As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label29 As Label
Friend WithEvents txtVP_ATBNr2 As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtVP_ATBNr1 As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label15 As Label
Friend WithEvents txtVP_ATB2 As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label19 As Label
Friend WithEvents txtVP_ATB1 As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtVPReferenz As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents cboVPArt As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Label22 As Label
Friend WithEvents Label31 As Label
Friend WithEvents Label25 As Label
Friend WithEvents txtVP_ATBPk2 As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtVP_ATBPk1 As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtContainerNr3 As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtContainerNr2 As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtContainerNr1 As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label32 As Label
End Class

140
SDL/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Allg.vb
View File

@@ -233,7 +233,65 @@
cboVertretungsart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("2 - Vertretung im eigenen Namen, aber für Rechnung eines Anderen (indirekte Vertretung)", "2"))
cboVertretungsart.changeItem("")
cboVPArt.Items.Clear()
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("0 - Keine Vertretung, sondern Handeln im eigenen Namen und für eigene Rechnung", "0"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("1 - Vertretung im Namen und für Rechnung eines Anderen (direkte Vertretung)", "1"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("2 - Vertretung im eigenen Namen, aber für Rechnung eines Anderen (indirekte Vertretung)", "2"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("A - Ausbesserungsschein", "A"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AE - Ausfuhranmeldung für Erstattungszwecke", "AE"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATA - Als Versandschein genutzt", "ATA"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATA - Carnet ATA", "ATA"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("at-AV - Aktive Veredelung als vorangegangenes Verfahren (sowohl im Papierverfahren als auch im IT-Verfahren ATLAS)", "at-AV"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATNEU - Summarische Anmeldung im IT-Verfahren ATLAS, Verfahrensbereich SumA ", "ATNEU"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("at-ZL - Zolllagerverfahren als vorangegangenes Verfahren (sowohl im Papierverfahren als auch im IT-Verfahren ATLAS)", "at-ZL"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AV - Abmeldung aus der aktiven Veredelung", "AV"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ESUMA - Eingangs - SumA", "ESUMA"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("FV - Anmeldung aus d. fr. Verkehr zur bes. Verw.", "FV"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("GB - Vom Verfahren erzeugte Registriernummer, die nicht angenommen, für ungültig erklärt oder storniert wurde", "GB"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("MAN - Rheinmanifest", "MAN"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("MO - Anm.für ausfuhrabgabepflichtige MO-Waren", "MO"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("OESUMA - Ohne ESumA gemäß Art. 136 UZK, Art. 104 UZK-DA (ohne Carnet ATA und Truppenverwendung) oder aufgrund eines Abkommens, z.B. EU - CH", "OESUMA"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("OHNE", "OHNE"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("POST - Zollinhaltserklärung(für im Postverkehr gestellte Sendungen, die nicht im Postübergabebogen erfasst werden)", "POST"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("PUEB - Postübergabebogen(für im Postverkehr gestellte Sendungen, die im Postübergabebogen erfasst werden)", "PUEB"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T- - Versandschein", "T-"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TIR - Carnet TIR", "TIR"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TRPPVW - Truppenverwendung", "TRPPVW"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T1 - Versandschein", "T1"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T1CF - Container - Frachtbrief", "T1CF"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T1DF - Deutscher Frachtbrief", "T1DF"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T1IC - IC - Übergabeschein TR", "T1IC"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T1IE - Internationaler Expreßgutschein (TIEx) - T1", "T1IE"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T1IF - Internationaler Frachtbrief (CIM) - T1", "T1IF"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T2 - Versandschein", "T2"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T2AN - Versandschein (Andorra)", "T2AN"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T2CF - Container - Frachtbrief", "T2CF"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T2DF - Deutscher Frachtbrief", "T2DF"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T2F - Versandschein", "T2F"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T2IC - IC - Übergabeschein TR - T2", "T2IC"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T2IE - Internationaler Expreßgutschein (TIEx)", "T2IE"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T2IF - Internationaler Frachtbrief (CIM)", "T2IF"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T2L - Versandschein T2L", "T2L"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T2LF - Versandschein T2LF", "T2LF"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T2M - Versandschein", "T2M"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T2SM - Versandschein (San Marino)", "T2SM"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T5 - Kontrollexemplar", "T5"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("V - Verwendungsschein", "V"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VO - Verwendungsschein", "VO"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VV - Anm.aus der vorübergehenden Verwendung", "VV"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Z - Zollanmeldung", "Z"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ZL - Zolllagerverfahren", "ZL"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("444TF - Versandschein T2F (Art. 444 ZK-DVO)", "444TF"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("444T1 - Versandschein T1 (Art. 444 ZK-DVO)", "444T1"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("444T2 - Versandschein T2 (Art. 111 Übereinkommen)", "444T2"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("445 - Versandverfahren Art. 445 ZK-DVO", "445"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("447TF - Versandschein T2F (Art. 447 ZK-DVO)", "447TF"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("447T1 - Versandschein T1 (Art. 447 ZK-DVO)", "447T1"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("447T2 - Versandschein T2 (Art. 111 Übereinkommen)", "447T2"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("448 - Versandverfahren Art. 448 ZK-DVO", "448"))
cboVPArt.changeItem("")
'btnAllgemein_Click(btnT2, New EventArgs)
@@ -292,11 +350,46 @@
EZA.eza_LieferbedingungText = cProgramFunctions.isLeerNothing(txtLieferbedingungText.Text)
EZA.eza_AnmelderistEmpfaenger = Nothing
EZA.eza_GesamtRohmasse = cProgramFunctions.isLeerNothingDbl(txtRohmasse.Text)
EZA.eza_ContainerNr1 = cProgramFunctions.isLeerNothing(txtContainerNr1.Text)
EZA.eza_ContainerNr2 = cProgramFunctions.isLeerNothing(txtContainerNr2.Text)
EZA.eza_ContainerNr3 = cProgramFunctions.isLeerNothing(txtContainerNr3.Text)
EZA.eza_SUMABA.Clear()
If cboVPArt._value <> "" Then
EZA.eza_VorpapierArtCode = cProgramFunctions.isLeerNothing(cboVPArt._value)
EZA.eza_VorpapierNr = cProgramFunctions.isLeerNothing(txtVPReferenz.Text)
If txtVP_ATB1.Text <> "" Then
Dim SUMA As New DAKOSY_Worker.cDakosy_EZA_SumABeendigungsAnteil()
SUMA.ezaBa_SumARegistriernummer = txtVP_ATB1.Text
SUMA.ezaBa_SumAPosNr = txtVP_ATBNr1.Text
SUMA.ezaBa_BeendigungsPackstueckzahl = txtVP_ATBPk1.Text
If EZA.eza_VorpapierArtCode = "ATNEU" Then SUMA.ezaBa_Artidentifikation = "REG"
EZA.eza_SUMABA.Add(SUMA)
End If
If txtVP_ATB2.Text <> "" Then
Dim SUMA As New DAKOSY_Worker.cDakosy_EZA_SumABeendigungsAnteil()
SUMA.ezaBa_SumARegistriernummer = txtVP_ATB2.Text
SUMA.ezaBa_SumAPosNr = txtVP_ATBNr2.Text
SUMA.ezaBa_BeendigungsPackstueckzahl = txtVP_ATBPk2.Text
If EZA.eza_VorpapierArtCode = "ATNEU" Then SUMA.ezaBa_Artidentifikation = "REG"
EZA.eza_SUMABA.Add(SUMA)
End If
'If EZA.eza_SUMABA.Count > 0 Then
' EZA.eza_BeendigungsanteilArtCode = "REG"
'End If
Else
EZA.eza_VorpapierArtCode = Nothing
EZA.eza_VorpapierNr = Nothing
End If
Select Case cbxAnmelderIstEmpfänger.CheckState
Case CheckState.Checked : EZA.eza_AnmelderistEmpfaenger = "J"
Case CheckState.Unchecked : EZA.eza_AnmelderistEmpfaenger = "N"
End Select
End Sub
@@ -342,6 +435,13 @@
txtLieferbedingungort.Text = If(EZA.eza_LieferbedingungOrt, "")
txtLieferbedingungText.Text = If(EZA.eza_LieferbedingungText, "")
txtRohmasse.Text = If(EZA.eza_GesamtRohmasse, "")
txtContainerNr1.Text = If(EZA.eza_ContainerNr1, "")
txtContainerNr2.Text = If(EZA.eza_ContainerNr2, "")
txtContainerNr3.Text = If(EZA.eza_ContainerNr3, "")
'cbxVorzeitigeAnmeldung.Checked=EZA.vorzeitige"!!!!!!!!!!!!!!!!!!!!!!!!!
cbxAnmelderIstEmpfänger.CheckState = CheckState.Indeterminate
@@ -351,11 +451,28 @@
Case "N" : cbxAnmelderIstEmpfänger.CheckState = CheckState.Unchecked
End Select
End If
Select Case EZA_ART
Case "EZA" : initButton(btnCo)
Case "VZA" : initButton(btnEU)
End Select
cboVPArt.changeItem(If(EZA.eza_VorpapierArtCode, ""))
txtVPReferenz.Text = If(EZA.eza_VorpapierNr, "")
If EZA.eza_SUMABA IsNot Nothing Then
If EZA.eza_SUMABA.Count > 0 Then
txtVP_ATB1.Text = If(EZA.eza_SUMABA(0).ezaBa_SumARegistriernummer, "")
txtVP_ATBNr1.Text = If(EZA.eza_SUMABA(0).ezaBa_SumAPosNr, "")
txtVP_ATBPk1.Text = If(EZA.eza_SUMABA(0).ezaBa_BeendigungsPackstueckzahl, "")
End If
If EZA.eza_SUMABA.Count > 1 Then
txtVP_ATB2.Text = If(EZA.eza_SUMABA(1).ezaBa_SumARegistriernummer, "")
txtVP_ATBNr2.Text = If(EZA.eza_SUMABA(1).ezaBa_SumAPosNr, "")
txtVP_ATBPk2.Text = If(EZA.eza_SUMABA(1).ezaBa_BeendigungsPackstueckzahl, "")
End If
End If
End Sub
@@ -448,4 +565,21 @@
Private Sub cbxDV1_CheckedChanged(sender As Object, e As EventArgs) Handles cbxDV1.CheckedChanged
RaiseEvent DV1_changed(cbxDV1.Checked)
End Sub
Private Sub cboVPArt_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboVPArt.SelectedIndexChanged
txtVP_ATB1.Enabled = (cboVPArt._value <> "")
txtVP_ATB2.Enabled = (cboVPArt._value <> "")
txtVP_ATBNr1.Enabled = (cboVPArt._value <> "")
txtVP_ATBNr2.Enabled = (cboVPArt._value <> "")
txtVPReferenz.Enabled = (cboVPArt._value <> "")
txtVP_ATBPk1.Enabled = (cboVPArt._value <> "")
txtVP_ATBPk2.Enabled = (cboVPArt._value <> "")
End Sub
Private Sub cboVPArt_LostFocus(sender As Object, e As EventArgs) Handles cboVPArt.LostFocus
If cboVPArt._value <> "" Then
txtVPReferenz.Focus() 'wg.enabled
End If
End Sub
End Class

378
SDL/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Position.Designer.vb generated
View File

@@ -25,6 +25,7 @@ Partial Class usrCntlATLAS_EZA_Position
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrCntlATLAS_EZA_Position))
Me.pnl = New System.Windows.Forms.Panel()
Me.cboZT = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cbx = New System.Windows.Forms.CheckBox()
Me.Button5 = New System.Windows.Forms.Button()
Me.btn7HHFDirektbef = New System.Windows.Forms.Button()
@@ -50,7 +51,7 @@ Partial Class usrCntlATLAS_EZA_Position
Me.txtWTZ2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtWTZ1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label30 = New System.Windows.Forms.Label()
Me.MySearchBox1 = New VERAG_PROG_ALLGEMEIN.MySearchBox()
Me.sbKundenzolltarif = New VERAG_PROG_ALLGEMEIN.MySearchBox()
Me.txtEigenmasse = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtRohmasse = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label27 = New System.Windows.Forms.Label()
@@ -66,6 +67,11 @@ Partial Class usrCntlATLAS_EZA_Position
Me.txtPkAnzahl = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label19 = New System.Windows.Forms.Label()
Me.dgvUnterlage = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.UlCode = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.UlArtTxt = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.UlNummer = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.UlADat = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.UlVorhanden = New System.Windows.Forms.DataGridViewCheckBoxColumn()
Me.Label22 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.txtWarenwert = New VERAG_PROG_ALLGEMEIN.MyTextBox()
@@ -75,11 +81,6 @@ Partial Class usrCntlATLAS_EZA_Position
Me.Label2 = New System.Windows.Forms.Label()
Me.Label29 = New System.Windows.Forms.Label()
Me.Label11 = New System.Windows.Forms.Label()
Me.UlCode = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.UlArtTxt = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.UlNummer = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.UlADat = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.UlVorhanden = New System.Windows.Forms.DataGridViewCheckBoxColumn()
Me.pnl.SuspendLayout()
CType(Me.dgvUnterlage, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
@@ -88,6 +89,7 @@ Partial Class usrCntlATLAS_EZA_Position
'
Me.pnl.AutoScroll = True
Me.pnl.BackColor = System.Drawing.Color.FloralWhite
Me.pnl.Controls.Add(Me.cboZT)
Me.pnl.Controls.Add(Me.cbx)
Me.pnl.Controls.Add(Me.Button5)
Me.pnl.Controls.Add(Me.btn7HHFDirektbef)
@@ -113,7 +115,7 @@ Partial Class usrCntlATLAS_EZA_Position
Me.pnl.Controls.Add(Me.txtWTZ2)
Me.pnl.Controls.Add(Me.txtWTZ1)
Me.pnl.Controls.Add(Me.Label30)
Me.pnl.Controls.Add(Me.MySearchBox1)
Me.pnl.Controls.Add(Me.sbKundenzolltarif)
Me.pnl.Controls.Add(Me.txtEigenmasse)
Me.pnl.Controls.Add(Me.txtRohmasse)
Me.pnl.Controls.Add(Me.Label27)
@@ -144,6 +146,18 @@ Partial Class usrCntlATLAS_EZA_Position
Me.pnl.Size = New System.Drawing.Size(730, 573)
Me.pnl.TabIndex = 0
'
'cboZT
'
Me.cboZT._allowedValuesFreiText = Nothing
Me.cboZT._allowFreiText = False
Me.cboZT._value = ""
Me.cboZT.DropDownWidth = 350
Me.cboZT.FormattingEnabled = True
Me.cboZT.Location = New System.Drawing.Point(354, 12)
Me.cboZT.Name = "cboZT"
Me.cboZT.Size = New System.Drawing.Size(123, 21)
Me.cboZT.TabIndex = 2
'
'cbx
'
Me.cbx.AutoSize = True
@@ -152,7 +166,7 @@ Partial Class usrCntlATLAS_EZA_Position
Me.cbx.Location = New System.Drawing.Point(646, 423)
Me.cbx.Name = "cbx"
Me.cbx.Size = New System.Drawing.Size(15, 14)
Me.cbx.TabIndex = 44
Me.cbx.TabIndex = 45
Me.cbx.UseVisualStyleBackColor = True
'
'Button5
@@ -161,7 +175,7 @@ Partial Class usrCntlATLAS_EZA_Position
Me.Button5.Location = New System.Drawing.Point(7, 420)
Me.Button5.Name = "Button5"
Me.Button5.Size = New System.Drawing.Size(123, 23)
Me.Button5.TabIndex = 40
Me.Button5.TabIndex = 41
Me.Button5.Text = "alle o.g."
Me.Button5.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button5.UseVisualStyleBackColor = True
@@ -224,7 +238,7 @@ Partial Class usrCntlATLAS_EZA_Position
Me.sbUrsprungsland.SQL_SELECT = Nothing
Me.sbUrsprungsland.SQL_WHERE = Nothing
Me.sbUrsprungsland.SQL_WhereParamList = Nothing
Me.sbUrsprungsland.TabIndex = 32
Me.sbUrsprungsland.TabIndex = 33
Me.sbUrsprungsland.usrcntl = Nothing
'
'cboBeguenstigung
@@ -237,14 +251,14 @@ Partial Class usrCntlATLAS_EZA_Position
Me.cboBeguenstigung.Location = New System.Drawing.Point(135, 303)
Me.cboBeguenstigung.Name = "cboBeguenstigung"
Me.cboBeguenstigung.Size = New System.Drawing.Size(217, 21)
Me.cboBeguenstigung.TabIndex = 30
Me.cboBeguenstigung.TabIndex = 31
'
'Label10
'
Me.Label10.Location = New System.Drawing.Point(18, 306)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(111, 13)
Me.Label10.TabIndex = 29
Me.Label10.TabIndex = 30
Me.Label10.Text = "Begünstigung:"
Me.Label10.TextAlign = System.Drawing.ContentAlignment.TopRight
'
@@ -253,7 +267,7 @@ Partial Class usrCntlATLAS_EZA_Position
Me.Label9.Location = New System.Drawing.Point(-2, 279)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(135, 13)
Me.Label9.TabIndex = 27
Me.Label9.TabIndex = 28
Me.Label9.Text = "Vorangeg.Verfahren:"
Me.Label9.TextAlign = System.Drawing.ContentAlignment.TopRight
'
@@ -267,14 +281,14 @@ Partial Class usrCntlATLAS_EZA_Position
Me.cboVorangegangenesVerfahren.Location = New System.Drawing.Point(136, 276)
Me.cboVorangegangenesVerfahren.Name = "cboVorangegangenesVerfahren"
Me.cboVorangegangenesVerfahren.Size = New System.Drawing.Size(533, 21)
Me.cboVorangegangenesVerfahren.TabIndex = 28
Me.cboVorangegangenesVerfahren.TabIndex = 29
'
'Label14
'
Me.Label14.Location = New System.Drawing.Point(-2, 259)
Me.Label14.Name = "Label14"
Me.Label14.Size = New System.Drawing.Size(135, 13)
Me.Label14.TabIndex = 25
Me.Label14.TabIndex = 26
Me.Label14.Text = "Angemeld.Verfahren:"
Me.Label14.TextAlign = System.Drawing.ContentAlignment.TopRight
'
@@ -288,14 +302,14 @@ Partial Class usrCntlATLAS_EZA_Position
Me.cboAngVerfahren.Location = New System.Drawing.Point(136, 256)
Me.cboAngVerfahren.Name = "cboAngVerfahren"
Me.cboAngVerfahren.Size = New System.Drawing.Size(533, 21)
Me.cboAngVerfahren.TabIndex = 26
Me.cboAngVerfahren.TabIndex = 27
'
'Label8
'
Me.Label8.Location = New System.Drawing.Point(409, 75)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(108, 13)
Me.Label8.TabIndex = 9
Me.Label8.TabIndex = 10
Me.Label8.Text = "Marke:"
'
'Label5
@@ -303,7 +317,7 @@ Partial Class usrCntlATLAS_EZA_Position
Me.Label5.Location = New System.Drawing.Point(212, 75)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(108, 13)
Me.Label5.TabIndex = 8
Me.Label5.TabIndex = 9
Me.Label5.Text = "Art:"
'
'Label4
@@ -312,7 +326,7 @@ Partial Class usrCntlATLAS_EZA_Position
Me.Label4.Location = New System.Drawing.Point(18, 94)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(108, 13)
Me.Label4.TabIndex = 10
Me.Label4.TabIndex = 11
Me.Label4.Text = "Packstücke:"
Me.Label4.TextAlign = System.Drawing.ContentAlignment.TopRight
'
@@ -322,7 +336,7 @@ Partial Class usrCntlATLAS_EZA_Position
Me.Label7.Location = New System.Drawing.Point(436, 235)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(233, 13)
Me.Label7.TabIndex = 24
Me.Label7.TabIndex = 25
Me.Label7.Text = "Eigenmasse muss kleiner als Rohmasse sein!"
Me.Label7.Visible = False
'
@@ -332,7 +346,7 @@ Partial Class usrCntlATLAS_EZA_Position
Me.Label6.Location = New System.Drawing.Point(48, 472)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(82, 13)
Me.Label6.TabIndex = 48
Me.Label6.TabIndex = 49
Me.Label6.Text = "Positionszusatz:"
'
'txtPositionszusatz
@@ -346,6 +360,7 @@ Partial Class usrCntlATLAS_EZA_Position
Me.txtPositionszusatz._TimeOnly = False
Me.txtPositionszusatz._value = Nothing
Me.txtPositionszusatz._Waehrung = False
Me.txtPositionszusatz._WaehrungZeichen = True
Me.txtPositionszusatz.ForeColor = System.Drawing.Color.Black
Me.txtPositionszusatz.Location = New System.Drawing.Point(136, 469)
Me.txtPositionszusatz.MaxLength = 280
@@ -355,7 +370,7 @@ Partial Class usrCntlATLAS_EZA_Position
Me.txtPositionszusatz.Multiline = True
Me.txtPositionszusatz.Name = "txtPositionszusatz"
Me.txtPositionszusatz.Size = New System.Drawing.Size(533, 47)
Me.txtPositionszusatz.TabIndex = 49
Me.txtPositionszusatz.TabIndex = 50
'
'lklBearbeitungAbbrechenUl
'
@@ -364,7 +379,7 @@ Partial Class usrCntlATLAS_EZA_Position
Me.lklBearbeitungAbbrechenUl.Location = New System.Drawing.Point(551, 440)
Me.lklBearbeitungAbbrechenUl.Name = "lklBearbeitungAbbrechenUl"
Me.lklBearbeitungAbbrechenUl.Size = New System.Drawing.Size(118, 13)
Me.lklBearbeitungAbbrechenUl.TabIndex = 47
Me.lklBearbeitungAbbrechenUl.TabIndex = 48
Me.lklBearbeitungAbbrechenUl.TabStop = True
Me.lklBearbeitungAbbrechenUl.Text = "Bearbeitung abbrechen"
Me.lklBearbeitungAbbrechenUl.Visible = False
@@ -379,7 +394,7 @@ Partial Class usrCntlATLAS_EZA_Position
Me.cboWaehrung.Location = New System.Drawing.Point(281, 213)
Me.cboWaehrung.Name = "cboWaehrung"
Me.cboWaehrung.Size = New System.Drawing.Size(67, 21)
Me.cboWaehrung.TabIndex = 19
Me.cboWaehrung.TabIndex = 20
Me.cboWaehrung.Text = "EUR"
'
'Label31
@@ -388,7 +403,7 @@ Partial Class usrCntlATLAS_EZA_Position
Me.Label31.Location = New System.Drawing.Point(18, 42)
Me.Label31.Name = "Label31"
Me.Label31.Size = New System.Drawing.Size(111, 13)
Me.Label31.TabIndex = 4
Me.Label31.TabIndex = 5
Me.Label31.Text = "Zolltarif:"
Me.Label31.TextAlign = System.Drawing.ContentAlignment.TopRight
'
@@ -403,6 +418,7 @@ Partial Class usrCntlATLAS_EZA_Position
Me.txtWarennummer._TimeOnly = False
Me.txtWarennummer._value = Nothing
Me.txtWarennummer._Waehrung = False
Me.txtWarennummer._WaehrungZeichen = True
Me.txtWarennummer.ForeColor = System.Drawing.Color.Black
Me.txtWarennummer.Location = New System.Drawing.Point(139, 39)
Me.txtWarennummer.MaxLength = 11
@@ -411,7 +427,7 @@ Partial Class usrCntlATLAS_EZA_Position
Me.txtWarennummer.MaxLines_Warning_Label = Nothing
Me.txtWarennummer.Name = "txtWarennummer"
Me.txtWarennummer.Size = New System.Drawing.Size(131, 20)
Me.txtWarennummer.TabIndex = 5
Me.txtWarennummer.TabIndex = 6
'
'txtWTZ2
'
@@ -424,6 +440,7 @@ Partial Class usrCntlATLAS_EZA_Position
Me.txtWTZ2._TimeOnly = False
Me.txtWTZ2._value = Nothing
Me.txtWTZ2._Waehrung = False
Me.txtWTZ2._WaehrungZeichen = True
Me.txtWTZ2.Enabled = False
Me.txtWTZ2.ForeColor = System.Drawing.Color.Black
Me.txtWTZ2.Location = New System.Drawing.Point(308, 39)
@@ -432,7 +449,7 @@ Partial Class usrCntlATLAS_EZA_Position
Me.txtWTZ2.MaxLines_Warning_Label = Nothing
Me.txtWTZ2.Name = "txtWTZ2"
Me.txtWTZ2.Size = New System.Drawing.Size(40, 20)
Me.txtWTZ2.TabIndex = 7
Me.txtWTZ2.TabIndex = 8
'
'txtWTZ1
'
@@ -445,6 +462,7 @@ Partial Class usrCntlATLAS_EZA_Position
Me.txtWTZ1._TimeOnly = False
Me.txtWTZ1._value = Nothing
Me.txtWTZ1._Waehrung = False
Me.txtWTZ1._WaehrungZeichen = True
Me.txtWTZ1.Enabled = False
Me.txtWTZ1.ForeColor = System.Drawing.Color.Black
Me.txtWTZ1.Location = New System.Drawing.Point(269, 39)
@@ -453,40 +471,40 @@ Partial Class usrCntlATLAS_EZA_Position
Me.txtWTZ1.MaxLines_Warning_Label = Nothing
Me.txtWTZ1.Name = "txtWTZ1"
Me.txtWTZ1.Size = New System.Drawing.Size(40, 20)
Me.txtWTZ1.TabIndex = 6
Me.txtWTZ1.TabIndex = 7
'
'Label30
'
Me.Label30.Location = New System.Drawing.Point(21, 16)
Me.Label30.Name = "Label30"
Me.Label30.Size = New System.Drawing.Size(108, 13)
Me.Label30.TabIndex = 1
Me.Label30.TabIndex = 0
Me.Label30.Text = "Suche Kd-Zolltarif:"
Me.Label30.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'MySearchBox1
'sbKundenzolltarif
'
Me.MySearchBox1._allowFreitext = False
Me.MySearchBox1._AllowSetValue = False
Me.MySearchBox1._autoSizeGross = False
Me.MySearchBox1._hideIfListEmpty = True
Me.MySearchBox1._value = Nothing
Me.MySearchBox1.conn_art = "FMZOLL"
Me.MySearchBox1.dgvpos = "LEFT"
Me.MySearchBox1.DISPLAY_PARAM = Nothing
Me.MySearchBox1.INVISIBLE_COLUMNS = Nothing
Me.MySearchBox1.key_visible = False
Me.MySearchBox1.KEYPARAM = Nothing
Me.MySearchBox1.Location = New System.Drawing.Point(136, 13)
Me.MySearchBox1.Name = "MySearchBox1"
Me.MySearchBox1.searchActive = True
Me.MySearchBox1.Size = New System.Drawing.Size(212, 20)
Me.MySearchBox1.SQL_ORDER_BY = Nothing
Me.MySearchBox1.SQL_SELECT = Nothing
Me.MySearchBox1.SQL_WHERE = Nothing
Me.MySearchBox1.SQL_WhereParamList = Nothing
Me.MySearchBox1.TabIndex = 2
Me.MySearchBox1.usrcntl = Nothing
Me.sbKundenzolltarif._allowFreitext = False
Me.sbKundenzolltarif._AllowSetValue = False
Me.sbKundenzolltarif._autoSizeGross = False
Me.sbKundenzolltarif._hideIfListEmpty = True
Me.sbKundenzolltarif._value = Nothing
Me.sbKundenzolltarif.conn_art = "FMZOLL"
Me.sbKundenzolltarif.dgvpos = "LEFT"
Me.sbKundenzolltarif.DISPLAY_PARAM = Nothing
Me.sbKundenzolltarif.INVISIBLE_COLUMNS = Nothing
Me.sbKundenzolltarif.key_visible = False
Me.sbKundenzolltarif.KEYPARAM = Nothing
Me.sbKundenzolltarif.Location = New System.Drawing.Point(139, 13)
Me.sbKundenzolltarif.Name = "sbKundenzolltarif"
Me.sbKundenzolltarif.searchActive = True
Me.sbKundenzolltarif.Size = New System.Drawing.Size(209, 20)
Me.sbKundenzolltarif.SQL_ORDER_BY = Nothing
Me.sbKundenzolltarif.SQL_SELECT = Nothing
Me.sbKundenzolltarif.SQL_WHERE = Nothing
Me.sbKundenzolltarif.SQL_WhereParamList = Nothing
Me.sbKundenzolltarif.TabIndex = 1
Me.sbKundenzolltarif.usrcntl = Nothing
'
'txtEigenmasse
'
@@ -499,6 +517,7 @@ Partial Class usrCntlATLAS_EZA_Position
Me.txtEigenmasse._TimeOnly = False
Me.txtEigenmasse._value = "0"
Me.txtEigenmasse._Waehrung = False
Me.txtEigenmasse._WaehrungZeichen = True
Me.txtEigenmasse.ForeColor = System.Drawing.Color.Black
Me.txtEigenmasse.Location = New System.Drawing.Point(436, 214)
Me.txtEigenmasse.MaxLength = 18
@@ -507,7 +526,7 @@ Partial Class usrCntlATLAS_EZA_Position
Me.txtEigenmasse.MaxLines_Warning_Label = Nothing
Me.txtEigenmasse.Name = "txtEigenmasse"
Me.txtEigenmasse.Size = New System.Drawing.Size(117, 20)
Me.txtEigenmasse.TabIndex = 22
Me.txtEigenmasse.TabIndex = 23
Me.txtEigenmasse.Text = "0,00"
'
'txtRohmasse
@@ -521,6 +540,7 @@ Partial Class usrCntlATLAS_EZA_Position
Me.txtRohmasse._TimeOnly = False
Me.txtRohmasse._value = "0"
Me.txtRohmasse._Waehrung = False
Me.txtRohmasse._WaehrungZeichen = True
Me.txtRohmasse.ForeColor = System.Drawing.Color.Black
Me.txtRohmasse.Location = New System.Drawing.Point(552, 214)
Me.txtRohmasse.MaxLength = 18
@@ -529,7 +549,7 @@ Partial Class usrCntlATLAS_EZA_Position
Me.txtRohmasse.MaxLines_Warning_Label = Nothing
Me.txtRohmasse.Name = "txtRohmasse"
Me.txtRohmasse.Size = New System.Drawing.Size(117, 20)
Me.txtRohmasse.TabIndex = 23
Me.txtRohmasse.TabIndex = 24
Me.txtRohmasse.Text = "0,00"
'
'Label27
@@ -538,7 +558,7 @@ Partial Class usrCntlATLAS_EZA_Position
Me.Label27.Location = New System.Drawing.Point(433, 198)
Me.Label27.Name = "Label27"
Me.Label27.Size = New System.Drawing.Size(67, 13)
Me.Label27.TabIndex = 16
Me.Label27.TabIndex = 17
Me.Label27.Text = "Eigenmasse:"
'
'Label28
@@ -547,7 +567,7 @@ Partial Class usrCntlATLAS_EZA_Position
Me.Label28.Location = New System.Drawing.Point(549, 198)
Me.Label28.Name = "Label28"
Me.Label28.Size = New System.Drawing.Size(60, 13)
Me.Label28.TabIndex = 17
Me.Label28.TabIndex = 18
Me.Label28.Text = "Rohmasse:"
'
'sbUlArt
@@ -571,7 +591,7 @@ Partial Class usrCntlATLAS_EZA_Position
Me.sbUlArt.SQL_SELECT = Nothing
Me.sbUlArt.SQL_WHERE = Nothing
Me.sbUlArt.SQL_WhereParamList = Nothing
Me.sbUlArt.TabIndex = 41
Me.sbUlArt.TabIndex = 42
Me.sbUlArt.usrcntl = Nothing
'
'sbPkTyp
@@ -595,7 +615,7 @@ Partial Class usrCntlATLAS_EZA_Position
Me.sbPkTyp.SQL_SELECT = Nothing
Me.sbPkTyp.SQL_WHERE = Nothing
Me.sbPkTyp.SQL_WhereParamList = Nothing
Me.sbPkTyp.TabIndex = 12
Me.sbPkTyp.TabIndex = 13
Me.sbPkTyp.usrcntl = Nothing
'
'Button3
@@ -618,19 +638,19 @@ Partial Class usrCntlATLAS_EZA_Position
Me.lblPosNr.Location = New System.Drawing.Point(668, 1)
Me.lblPosNr.Name = "lblPosNr"
Me.lblPosNr.Size = New System.Drawing.Size(61, 35)
Me.lblPosNr.TabIndex = 3
Me.lblPosNr.TabIndex = 4
Me.lblPosNr.Text = "1/1"
Me.lblPosNr.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Button1
'
Me.Button1.BackgroundImage = Global.SDL.My.Resources.plus
Me.Button1.BackgroundImage = Global.SDL.My.Resources.Resources.plus
Me.Button1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.Location = New System.Drawing.Point(671, 420)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(30, 20)
Me.Button1.TabIndex = 45
Me.Button1.TabIndex = 46
Me.Button1.TabStop = False
Me.Button1.UseVisualStyleBackColor = True
'
@@ -645,6 +665,7 @@ Partial Class usrCntlATLAS_EZA_Position
Me.txtUlAusstellDat._TimeOnly = False
Me.txtUlAusstellDat._value = ""
Me.txtUlAusstellDat._Waehrung = False
Me.txtUlAusstellDat._WaehrungZeichen = True
Me.txtUlAusstellDat.ForeColor = System.Drawing.Color.Black
Me.txtUlAusstellDat.Location = New System.Drawing.Point(519, 420)
Me.txtUlAusstellDat.MaxLength = 10
@@ -653,7 +674,7 @@ Partial Class usrCntlATLAS_EZA_Position
Me.txtUlAusstellDat.MaxLines_Warning_Label = Nothing
Me.txtUlAusstellDat.Name = "txtUlAusstellDat"
Me.txtUlAusstellDat.Size = New System.Drawing.Size(117, 20)
Me.txtUlAusstellDat.TabIndex = 43
Me.txtUlAusstellDat.TabIndex = 44
'
'txtUlNummer
'
@@ -666,6 +687,7 @@ Partial Class usrCntlATLAS_EZA_Position
Me.txtUlNummer._TimeOnly = False
Me.txtUlNummer._value = Nothing
Me.txtUlNummer._Waehrung = False
Me.txtUlNummer._WaehrungZeichen = True
Me.txtUlNummer.ForeColor = System.Drawing.Color.Black
Me.txtUlNummer.Location = New System.Drawing.Point(370, 420)
Me.txtUlNummer.MaxLength = 35
@@ -674,7 +696,7 @@ Partial Class usrCntlATLAS_EZA_Position
Me.txtUlNummer.MaxLines_Warning_Label = Nothing
Me.txtUlNummer.Name = "txtUlNummer"
Me.txtUlNummer.Size = New System.Drawing.Size(150, 20)
Me.txtUlNummer.TabIndex = 42
Me.txtUlNummer.TabIndex = 43
'
'txtPkMarke
'
@@ -687,6 +709,7 @@ Partial Class usrCntlATLAS_EZA_Position
Me.txtPkMarke._TimeOnly = False
Me.txtPkMarke._value = ""
Me.txtPkMarke._Waehrung = False
Me.txtPkMarke._WaehrungZeichen = True
Me.txtPkMarke.ForeColor = System.Drawing.Color.Black
Me.txtPkMarke.Location = New System.Drawing.Point(412, 91)
Me.txtPkMarke.MaxLength = 42
@@ -695,7 +718,7 @@ Partial Class usrCntlATLAS_EZA_Position
Me.txtPkMarke.MaxLines_Warning_Label = Nothing
Me.txtPkMarke.Name = "txtPkMarke"
Me.txtPkMarke.Size = New System.Drawing.Size(257, 20)
Me.txtPkMarke.TabIndex = 13
Me.txtPkMarke.TabIndex = 14
'
'txtPkAnzahl
'
@@ -708,6 +731,7 @@ Partial Class usrCntlATLAS_EZA_Position
Me.txtPkAnzahl._TimeOnly = False
Me.txtPkAnzahl._value = ""
Me.txtPkAnzahl._Waehrung = False
Me.txtPkAnzahl._WaehrungZeichen = True
Me.txtPkAnzahl.ForeColor = System.Drawing.Color.Black
Me.txtPkAnzahl.Location = New System.Drawing.Point(136, 91)
Me.txtPkAnzahl.MaxLength = 5
@@ -716,7 +740,7 @@ Partial Class usrCntlATLAS_EZA_Position
Me.txtPkAnzahl.MaxLines_Warning_Label = Nothing
Me.txtPkAnzahl.Name = "txtPkAnzahl"
Me.txtPkAnzahl.Size = New System.Drawing.Size(80, 20)
Me.txtPkAnzahl.TabIndex = 11
Me.txtPkAnzahl.TabIndex = 12
Me.txtPkAnzahl.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'Label19
@@ -726,7 +750,7 @@ Partial Class usrCntlATLAS_EZA_Position
Me.Label19.Location = New System.Drawing.Point(56, 334)
Me.Label19.Name = "Label19"
Me.Label19.Size = New System.Drawing.Size(73, 13)
Me.Label19.TabIndex = 33
Me.Label19.TabIndex = 34
Me.Label19.Text = "Unterlagen:"
Me.Label19.TextAlign = System.Drawing.ContentAlignment.TopRight
'
@@ -747,117 +771,9 @@ Partial Class usrCntlATLAS_EZA_Position
Me.dgvUnterlage.RowHeadersVisible = False
Me.dgvUnterlage.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvUnterlage.Size = New System.Drawing.Size(533, 85)
Me.dgvUnterlage.TabIndex = 34
Me.dgvUnterlage.TabIndex = 39
Me.dgvUnterlage.TabStop = False
'
'Label22
'
Me.Label22.ForeColor = System.Drawing.Color.Red
Me.Label22.Location = New System.Drawing.Point(136, 439)
Me.Label22.Name = "Label22"
Me.Label22.Size = New System.Drawing.Size(235, 13)
Me.Label22.TabIndex = 46
Me.Label22.Text = "Bitte angeben!"
Me.Label22.Visible = False
'
'Label3
'
Me.Label3.Location = New System.Drawing.Point(19, 217)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(111, 13)
Me.Label3.TabIndex = 18
Me.Label3.Text = "Artikelpreis:"
Me.Label3.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'txtWarenwert
'
Me.txtWarenwert._DateTimeOnly = False
Me.txtWarenwert._numbersOnly = False
Me.txtWarenwert._numbersOnlyKommastellen = ""
Me.txtWarenwert._Prozent = False
Me.txtWarenwert._ShortDateNew = False
Me.txtWarenwert._ShortDateOnly = False
Me.txtWarenwert._TimeOnly = False
Me.txtWarenwert._value = ""
Me.txtWarenwert._Waehrung = True
Me.txtWarenwert.ForeColor = System.Drawing.Color.Black
Me.txtWarenwert.Location = New System.Drawing.Point(136, 214)
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(146, 20)
Me.txtWarenwert.TabIndex = 20
'
'Label1
'
Me.Label1.Location = New System.Drawing.Point(22, 117)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(108, 13)
Me.Label1.TabIndex = 14
Me.Label1.Text = "Warenbezeichnung:"
Me.Label1.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'txtWarenbezeichnung
'
Me.txtWarenbezeichnung._DateTimeOnly = False
Me.txtWarenbezeichnung._numbersOnly = False
Me.txtWarenbezeichnung._numbersOnlyKommastellen = ""
Me.txtWarenbezeichnung._Prozent = False
Me.txtWarenbezeichnung._ShortDateNew = False
Me.txtWarenbezeichnung._ShortDateOnly = False
Me.txtWarenbezeichnung._TimeOnly = False
Me.txtWarenbezeichnung._value = Nothing
Me.txtWarenbezeichnung._Waehrung = False
Me.txtWarenbezeichnung.ForeColor = System.Drawing.Color.Black
Me.txtWarenbezeichnung.Location = New System.Drawing.Point(136, 117)
Me.txtWarenbezeichnung.MaxLength = 280
Me.txtWarenbezeichnung.MaxLineLength = -1
Me.txtWarenbezeichnung.MaxLines_Warning = ""
Me.txtWarenbezeichnung.MaxLines_Warning_Label = Nothing
Me.txtWarenbezeichnung.Multiline = True
Me.txtWarenbezeichnung.Name = "txtWarenbezeichnung"
Me.txtWarenbezeichnung.Size = New System.Drawing.Size(533, 70)
Me.txtWarenbezeichnung.TabIndex = 15
'
'Label21
'
Me.Label21.AutoSize = True
Me.Label21.Font = New System.Drawing.Font("Microsoft Sans Serif", 6.25!)
Me.Label21.Location = New System.Drawing.Point(668, 405)
Me.Label21.Name = "Label21"
Me.Label21.Size = New System.Drawing.Size(33, 12)
Me.Label21.TabIndex = 39
Me.Label21.Text = "(Enter)"
'
'Label2
'
Me.Label2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label2.Location = New System.Drawing.Point(552, 14)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(105, 13)
Me.Label2.TabIndex = 0
Me.Label2.Text = "PosNr.:"
Me.Label2.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'Label29
'
Me.Label29.Location = New System.Drawing.Point(322, 217)
Me.Label29.Name = "Label29"
Me.Label29.Size = New System.Drawing.Size(111, 13)
Me.Label29.TabIndex = 21
Me.Label29.Text = "Gewicht:"
Me.Label29.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'Label11
'
Me.Label11.Location = New System.Drawing.Point(322, 306)
Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(111, 13)
Me.Label11.TabIndex = 31
Me.Label11.Text = "Ursprungsland:"
Me.Label11.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'UlCode
'
Me.UlCode.HeaderText = "Code"
@@ -895,6 +811,116 @@ Partial Class usrCntlATLAS_EZA_Position
Me.UlVorhanden.ReadOnly = True
Me.UlVorhanden.Width = 35
'
'Label22
'
Me.Label22.ForeColor = System.Drawing.Color.Red
Me.Label22.Location = New System.Drawing.Point(136, 439)
Me.Label22.Name = "Label22"
Me.Label22.Size = New System.Drawing.Size(235, 13)
Me.Label22.TabIndex = 47
Me.Label22.Text = "Bitte angeben!"
Me.Label22.Visible = False
'
'Label3
'
Me.Label3.Location = New System.Drawing.Point(19, 217)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(111, 13)
Me.Label3.TabIndex = 19
Me.Label3.Text = "Artikelpreis:"
Me.Label3.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'txtWarenwert
'
Me.txtWarenwert._DateTimeOnly = False
Me.txtWarenwert._numbersOnly = False
Me.txtWarenwert._numbersOnlyKommastellen = ""
Me.txtWarenwert._Prozent = False
Me.txtWarenwert._ShortDateNew = False
Me.txtWarenwert._ShortDateOnly = False
Me.txtWarenwert._TimeOnly = False
Me.txtWarenwert._value = ""
Me.txtWarenwert._Waehrung = True
Me.txtWarenwert._WaehrungZeichen = True
Me.txtWarenwert.ForeColor = System.Drawing.Color.Black
Me.txtWarenwert.Location = New System.Drawing.Point(136, 214)
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(146, 20)
Me.txtWarenwert.TabIndex = 21
'
'Label1
'
Me.Label1.Location = New System.Drawing.Point(22, 117)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(108, 13)
Me.Label1.TabIndex = 15
Me.Label1.Text = "Warenbezeichnung:"
Me.Label1.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'txtWarenbezeichnung
'
Me.txtWarenbezeichnung._DateTimeOnly = False
Me.txtWarenbezeichnung._numbersOnly = False
Me.txtWarenbezeichnung._numbersOnlyKommastellen = ""
Me.txtWarenbezeichnung._Prozent = False
Me.txtWarenbezeichnung._ShortDateNew = False
Me.txtWarenbezeichnung._ShortDateOnly = False
Me.txtWarenbezeichnung._TimeOnly = False
Me.txtWarenbezeichnung._value = Nothing
Me.txtWarenbezeichnung._Waehrung = False
Me.txtWarenbezeichnung._WaehrungZeichen = True
Me.txtWarenbezeichnung.ForeColor = System.Drawing.Color.Black
Me.txtWarenbezeichnung.Location = New System.Drawing.Point(136, 117)
Me.txtWarenbezeichnung.MaxLength = 280
Me.txtWarenbezeichnung.MaxLineLength = -1
Me.txtWarenbezeichnung.MaxLines_Warning = ""
Me.txtWarenbezeichnung.MaxLines_Warning_Label = Nothing
Me.txtWarenbezeichnung.Multiline = True
Me.txtWarenbezeichnung.Name = "txtWarenbezeichnung"
Me.txtWarenbezeichnung.Size = New System.Drawing.Size(533, 70)
Me.txtWarenbezeichnung.TabIndex = 16
'
'Label21
'
Me.Label21.AutoSize = True
Me.Label21.Font = New System.Drawing.Font("Microsoft Sans Serif", 6.25!)
Me.Label21.Location = New System.Drawing.Point(668, 405)
Me.Label21.Name = "Label21"
Me.Label21.Size = New System.Drawing.Size(33, 12)
Me.Label21.TabIndex = 40
Me.Label21.Text = "(Enter)"
'
'Label2
'
Me.Label2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label2.Location = New System.Drawing.Point(552, 14)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(105, 13)
Me.Label2.TabIndex = 3
Me.Label2.Text = "PosNr.:"
Me.Label2.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'Label29
'
Me.Label29.Location = New System.Drawing.Point(322, 217)
Me.Label29.Name = "Label29"
Me.Label29.Size = New System.Drawing.Size(111, 13)
Me.Label29.TabIndex = 22
Me.Label29.Text = "Gewicht:"
Me.Label29.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'Label11
'
Me.Label11.Location = New System.Drawing.Point(322, 306)
Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(111, 13)
Me.Label11.TabIndex = 32
Me.Label11.Text = "Ursprungsland:"
Me.Label11.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'usrCntlATLAS_EZA_Position
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -935,7 +961,7 @@ Partial Class usrCntlATLAS_EZA_Position
Friend WithEvents Label27 As System.Windows.Forms.Label
Friend WithEvents Label28 As System.Windows.Forms.Label
Friend WithEvents Label30 As System.Windows.Forms.Label
Friend WithEvents MySearchBox1 As VERAG_PROG_ALLGEMEIN.MySearchBox
Friend WithEvents sbKundenzolltarif As VERAG_PROG_ALLGEMEIN.MySearchBox
Friend WithEvents Label31 As System.Windows.Forms.Label
Friend WithEvents txtWarennummer As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtWTZ2 As VERAG_PROG_ALLGEMEIN.MyTextBox
@@ -966,5 +992,5 @@ Partial Class usrCntlATLAS_EZA_Position
Friend WithEvents UlNummer As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents UlADat As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents UlVorhanden As System.Windows.Forms.DataGridViewCheckBoxColumn
Friend WithEvents cboZT As VERAG_PROG_ALLGEMEIN.MyComboBox
End Class

57
SDL/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Position.vb
View File

@@ -13,16 +13,21 @@
Dim UL_EDIT = -1
Dim VP_EDIT = -1
Sub New(id)
Dim USRCNTL_EZA As usrCntlATLAS_EZA = Nothing
Sub New(id As Integer, USRCNTL_EZA As usrCntlATLAS_EZA)
InitializeComponent()
Me.id = id
Me.USRCNTL_EZA = USRCNTL_EZA
End Sub
Sub New(id As Integer, WARE As DAKOSY_Worker.cDakosy_EZA_Warenposition)
Sub New(id As Integer, WARE As DAKOSY_Worker.cDakosy_EZA_Warenposition, USRCNTL_EZA As usrCntlATLAS_EZA)
InitializeComponent()
Me.id = id
Me.WARE = WARE
Me.USRCNTL_EZA = USRCNTL_EZA
End Sub
@@ -49,6 +54,14 @@
' Me.cboAngVerfahren.changeItem(If(WARE.ezaWP_AnmeldeVErfahren, ""))
cboZT.Items.Clear()
cboZT.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Absender", "ABS"))
cboZT.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Empfänger", "EMPF"))
cboZT.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Anmelder", "ANM"))
cboZT.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vertretener", "VERTR"))
cboZT.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VertreterAnmelder", "VERTRANM"))
cboZT.changeItem("EMPF")
cboAngVerfahren.Items.Clear()
cboAngVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
cboAngVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("01 - Überführung von Waren in den zollrechtlich freien Verkehr", "01"))
@@ -59,7 +72,6 @@
cboAngVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("61 - Wiedereinfuhr mit gleichzeitiger Überführung in den zoll- und steuerrechtlich freien Verkehr ohne mehrwertsteuerbefreiende Lieferung - Vorübergehende Ausfuhr im Rahmen der passiven Veredelung", "61"))
cboAngVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("63 - Wiedereinfuhr und gleichzeitige Überführung in den zoll- und steuerrechtlich freien Verkehr mit mehrwertsteuerbefreiender Lieferung in einen anderen Mitgliedstaat. - Vorübergehende Ausfuhr im Rahmen der passiven Veredelung", "63"))
cboBeguenstigung.Items.Clear()
cboBeguenstigung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
cboBeguenstigung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("100 - Anwendung des Drittlandszollsatzes (Angabe aus statistischen und dv- technischen Gründen notwendig)", "100"))
@@ -91,13 +103,22 @@
cboBeguenstigung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("420 - Kontingent im Rahmen einer Zollunion", "420"))
sbUrsprungsland.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "Code", "FMZOLL", , 400, 200)
setvalue(WARE)
End Sub
Sub initZT()
If USRCNTL_EZA IsNot Nothing Then
Dim ztKdnr = USRCNTL_EZA.getKdnr(cboZT._value)
If ztKdnr > 0 Then
sbKundenzolltarif.initSearchBox(Me.FindForm, " zollArt_id,[zollArt_Artikelnummer] AS ArtikelNr,[zollArt_Warencodenummer] as Tarifnummer,[zollArt_Kurzbezeichnung] as Bezeichnung FROM [tblZollArtikel]", {"zollArt_Artikelnummer", "zollArt_Warencodenummer", "zollArt_Kurzbezeichnung", "zollArt_Warenbeschreibung"}, " ( zollArt_Kundennummer ='" & ztKdnr & "') ", "zollArt_Warencodenummer", "zollArt_id", "Tarifnummer", "FMZOLL", , 500, 200, {"zollArt_id"})
End If
End If
End Sub
Sub setvalue(WARE As DAKOSY_Worker.cDakosy_EZA_Warenposition)
If WARE IsNot Nothing Then
Me.txtWarenbezeichnung.Text = If(WARE.ezaWP_Warenbezeichnung, "")
@@ -112,7 +133,7 @@
Me.txtWTZ2.Text = If(WARE.ezaWP_WarennummerZusatzCode2, "")
Me.txtWarennummer.Text = If(WARE.ezaWP_WarennummerEZT, "")
Me.txtPkAnzahl.Text = If(WARE.ezaWP_PackstueckAnzahl, "")
Me.sbPkTyp._value = If(WARE.ezaWP_PackstueckArt, "")
Me.txtPkMarke.Text = If(WARE.ezaWP_PackstueckZeichen, "")
@@ -135,7 +156,7 @@
End If
End If
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
addUnterlage()
@@ -161,14 +182,14 @@
sbUlArt.Focus()
End Sub
Private Sub UnterlageKeyDown(sender As Object, e As KeyEventArgs) Handles txtUlAusstellDat.KeyDown, txtUlNummer.KeyDown, sbUlArt.KeyDown, cbx.KeyDown
If e.KeyCode = Keys.Return Then addUnterlage()
e.Handled = True
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
If dgvUnterlage.SelectedRows.Count > 0 Then
If MsgBox("Möchten Sie den Eintrag in 'Unterlagen' wirklich löschen?", vbYesNoCancel) = vbYes Then
@@ -183,7 +204,7 @@
RaiseEvent RohmasseChanged(If(IsNumeric(txtRohmasse.Text), CDbl(txtRohmasse.Text), 0))
End Sub
Private Sub dgvUnterlage_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvUnterlage.CellDoubleClick
If e.RowIndex < 0 Then Exit Sub
editableRowUL(e.RowIndex)
@@ -208,7 +229,7 @@
Button1.BackgroundImage = My.Resources.plus
lklBearbeitungAbbrechenUl.Visible = False
End Sub
Private Sub txtEigenmasse_TextChanged() Handles txtEigenmasse.ValueChanged, txtRohmasse.ValueChanged
Label7.Visible = False
@@ -288,6 +309,22 @@
btn018ATR.PerformClick()
btn7HHFDirektbef.PerformClick()
End Sub
Private Sub MySearchBox1_TextChanged() Handles sbKundenzolltarif.VALUE_CHANGED
If sbKundenzolltarif._value <> "" Then
Dim ZT As New VERAG_PROG_ALLGEMEIN.cZollArtikel(sbKundenzolltarif._value)
If ZT IsNot Nothing AndAlso ZT.hasEntry Then
txtWarennummer.Text = If(ZT.zollArt_Warencodenummer, "")
txtWarenbezeichnung.Text = If(ZT.zollArt_Warenbeschreibung, "")
txtWTZ1.Text = If(ZT.zollArt_Zusatzcode_1, "")
txtWTZ2.Text = If(ZT.zollArt_Zusatzcode_2, "")
End If
End If
End Sub
Private Sub sbKundenzolltarif_GotFocus(sender As Object, e As EventArgs) Handles sbKundenzolltarif.GotFocus
initZT()
End Sub
End Class

10
SDL/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Positionen.vb
View File

@@ -1,6 +1,7 @@
Public Class usrCntlATLAS_EZA_Positionen
Dim NCTS As DAKOSY_Worker.cDakosyEZA = Nothing
Dim EZA As DAKOSY_Worker.cDakosyEZA = Nothing
Dim USRCNTL_EZA As usrCntlATLAS_EZA = Nothing
Dim POS As New List(Of usrCntlATLAS_EZA_Position)
Dim sectionChangeBLOCK = False
@@ -10,13 +11,14 @@
Event PosAnzChanged(anzahlPos As Double)
Sub New(NCTS)
Sub New(EZA As DAKOSY_Worker.cDakosyEZA, USRCNTL_EZA As usrCntlATLAS_EZA)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
Me.NCTS = NCTS
Me.EZA = EZA
Me.USRCNTL_EZA = USRCNTL_EZA
End Sub
Private Sub usrCntlATLAS_ncts_Load(sender As Object, e As EventArgs) Handles Me.Load
@@ -122,7 +124,7 @@
Function addItem(Optional POSTMP As DAKOSY_Worker.cDakosy_EZA_Warenposition = Nothing) As usrCntlATLAS_EZA_Position
Dim u = New usrCntlATLAS_EZA_Position(POS.Count, POSTMP)
Dim u = New usrCntlATLAS_EZA_Position(POS.Count, POSTMP, USRCNTL_EZA)
AddHandler u.RohmasseChanged, Sub(r)
gesRohmasse = 0

20
SDL/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS_Allg.Designer.vb generated
View File

@@ -1,9 +1,9 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class usrCntlATLAS_NCTS_Allg
Inherits System.Windows.Forms.UserControl
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
@@ -20,7 +20,7 @@ Partial Class usrCntlATLAS_NCTS_Allg
'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.
<System.Diagnostics.DebuggerStepThrough()> _
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.pnl = New System.Windows.Forms.Panel()
Me.LinkLabel1 = New System.Windows.Forms.LinkLabel()
@@ -190,6 +190,7 @@ Partial Class usrCntlATLAS_NCTS_Allg
Me.txtKennnummer._TimeOnly = False
Me.txtKennnummer._value = Nothing
Me.txtKennnummer._Waehrung = False
Me.txtKennnummer._WaehrungZeichen = True
Me.txtKennnummer.ForeColor = System.Drawing.Color.Black
Me.txtKennnummer.Location = New System.Drawing.Point(694, 460)
Me.txtKennnummer.MaxLength = 70
@@ -551,7 +552,7 @@ Partial Class usrCntlATLAS_NCTS_Allg
'
'pic
'
Me.pic.BackgroundImage = Global.SDL.My.Resources.lorry_motion
Me.pic.BackgroundImage = Global.SDL.My.Resources.Resources.lorry_motion
Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.pic.Location = New System.Drawing.Point(399, 123)
Me.pic.Name = "pic"
@@ -670,6 +671,7 @@ Partial Class usrCntlATLAS_NCTS_Allg
Me.txtBeladungsort._TimeOnly = False
Me.txtBeladungsort._value = Nothing
Me.txtBeladungsort._Waehrung = False
Me.txtBeladungsort._WaehrungZeichen = True
Me.txtBeladungsort.Enabled = False
Me.txtBeladungsort.ForeColor = System.Drawing.Color.Black
Me.txtBeladungsort.Location = New System.Drawing.Point(142, 268)
@@ -701,6 +703,7 @@ Partial Class usrCntlATLAS_NCTS_Allg
Me.txtWiedergestellungsdatum._TimeOnly = False
Me.txtWiedergestellungsdatum._value = ""
Me.txtWiedergestellungsdatum._Waehrung = False
Me.txtWiedergestellungsdatum._WaehrungZeichen = True
Me.txtWiedergestellungsdatum.Enabled = False
Me.txtWiedergestellungsdatum.ForeColor = System.Drawing.Color.Black
Me.txtWiedergestellungsdatum.Location = New System.Drawing.Point(694, 268)
@@ -1161,6 +1164,7 @@ Partial Class usrCntlATLAS_NCTS_Allg
Me.txtKennzeichenAbgang._TimeOnly = False
Me.txtKennzeichenAbgang._value = ""
Me.txtKennzeichenAbgang._Waehrung = False
Me.txtKennzeichenAbgang._WaehrungZeichen = True
Me.txtKennzeichenAbgang.Location = New System.Drawing.Point(142, 0)
Me.txtKennzeichenAbgang.MaxLength = 27
Me.txtKennzeichenAbgang.MaxLineLength = -1
@@ -1205,6 +1209,7 @@ Partial Class usrCntlATLAS_NCTS_Allg
Me.txtKennzeichenGrenze._TimeOnly = False
Me.txtKennzeichenGrenze._value = ""
Me.txtKennzeichenGrenze._Waehrung = False
Me.txtKennzeichenGrenze._WaehrungZeichen = True
Me.txtKennzeichenGrenze.Location = New System.Drawing.Point(694, 0)
Me.txtKennzeichenGrenze.MaxLength = 27
Me.txtKennzeichenGrenze.MaxLineLength = -1
@@ -1217,7 +1222,7 @@ Partial Class usrCntlATLAS_NCTS_Allg
'PictureBox2
'
Me.PictureBox2.BackColor = System.Drawing.Color.WhiteSmoke
Me.PictureBox2.BackgroundImage = Global.SDL.My.Resources.lorry
Me.PictureBox2.BackgroundImage = Global.SDL.My.Resources.Resources.lorry
Me.PictureBox2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox2.Location = New System.Drawing.Point(556, 0)
Me.PictureBox2.Name = "PictureBox2"
@@ -1228,7 +1233,7 @@ Partial Class usrCntlATLAS_NCTS_Allg
'PictureBox1
'
Me.PictureBox1.BackColor = System.Drawing.Color.WhiteSmoke
Me.PictureBox1.BackgroundImage = Global.SDL.My.Resources.lorry
Me.PictureBox1.BackgroundImage = Global.SDL.My.Resources.Resources.lorry
Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox1.Location = New System.Drawing.Point(0, 0)
Me.PictureBox1.Name = "PictureBox1"
@@ -1283,6 +1288,7 @@ Partial Class usrCntlATLAS_NCTS_Allg
Me.txtLadeort._TimeOnly = False
Me.txtLadeort._value = Nothing
Me.txtLadeort._Waehrung = False
Me.txtLadeort._WaehrungZeichen = True
Me.txtLadeort.ForeColor = System.Drawing.Color.Black
Me.txtLadeort.Location = New System.Drawing.Point(142, 287)
Me.txtLadeort.MaxLength = 17
@@ -1304,6 +1310,7 @@ Partial Class usrCntlATLAS_NCTS_Allg
Me.txtEntladeort._TimeOnly = False
Me.txtEntladeort._value = ""
Me.txtEntladeort._Waehrung = False
Me.txtEntladeort._WaehrungZeichen = True
Me.txtEntladeort.ForeColor = System.Drawing.Color.Black
Me.txtEntladeort.Location = New System.Drawing.Point(694, 287)
Me.txtEntladeort.MaxLength = 35
@@ -1403,5 +1410,4 @@ Partial Class usrCntlATLAS_NCTS_Allg
Friend WithEvents txtKennnummer As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label21 As System.Windows.Forms.Label
Friend WithEvents LinkLabel1 As System.Windows.Forms.LinkLabel
End Class

11
SDL/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS_Allg.vb
View File

@@ -14,9 +14,9 @@
End Sub
Private Sub usrCntlATLAS_NCTS_Load(sender As Object, e As EventArgs) Handles Me.Load
Private Sub usrCntlATLAS_NCTS_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'MySearchBox1.initSearchBox(Me.FindForm, "AdressenNr, [Name 1] FROM Adressen", {"[Name 1]", "Ort", "PLZ"}, "", "[Name 1]", "AdressenNr", "AdressenNr")
sbAbgangZollstelle.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land,[basncd_name] +' (' +[basncd_alpha]+')' as display FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "display", "ATLAS", , 400, 200, {"display", "basncd_dstnr"})
sbBestimmungZollstelle.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land,[basncd_name] +' (' +[basncd_alpha]+')' as display FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "display", "ATLAS", , 400, 200, {"display", "basncd_dstnr"})
@@ -203,6 +203,7 @@
NCTS.ncts_SumA_BesondereUmstaende = cProgramFunctions.isLeerNothing(cboBesondereUmstaende._value)
NCTS.ncts_SumA_BefoerderungskostenZahlungsweise = cProgramFunctions.isLeerNothing(cboZahlungsweiseBefKosten._value)
' NCTS.ncts_GesamtRohmasse = cProgramFunctions.isLeerNothing(rohm._value)
' NCTS.ncts_KzVereinfachtesVerfahren = If(cbxVereinfachtesVerfahren.Checked, True, False) '???
@@ -272,7 +273,7 @@
cboZahlungsweiseBefKosten.changeItem(NCTS.ncts_SumA_BefoerderungskostenZahlungsweise)
End Sub
Private Sub btnAllgemein_Click(sender As Object, e As EventArgs) Handles btnTMinus.Click, btnT1.Click, btnT2.Click, btnT2F.Click, btnTIR.Click
Private Sub btnAllgemein_Click(sender As Object, e As EventArgs) Handles btnTMinus.Click, btnTIR.Click, btnT2F.Click, btnT2.Click, btnT1.Click
initButton(sender)
End Sub
@@ -372,5 +373,7 @@
sbKennzeichenGrenzeLand.SET_VALUE(sbKennzeichenAbgangLand._value)
End Sub
Private Sub cboVPArt_SelectedIndexChanged(sender As Object, e As EventArgs)
End Sub
End Class

2
SDL/DAKOSY/ATLAS/cDakosyInterface_Send.vb
View File

@@ -278,6 +278,7 @@ Class DAKOSY_Interface_SEND
Next
End If
If cDY.eza_ZusatzangabenAnmeldung IsNot Nothing Then EA.KopfDaten.ZusatzAngabenAnmeldung = cDY.eza_ZusatzangabenAnmeldung
If cDY.eza_KzAutoBestaetigung IsNot Nothing Then EA.KopfDaten.KzAutoBestaetigung = CInt(Int(cDY.eza_KzAutoBestaetigung))
If cDY.eza_AnschreibungDatum IsNot Nothing Then EA.KopfDaten.AnschreibungDatum = cDY.eza_AnschreibungDatum
@@ -674,7 +675,6 @@ Class DAKOSY_Interface_SEND
Dim Interface_VERSION = "003"
Dim ObjectAktion = DY_ACTION
Dim XML As New VersandanmeldungNCTSDE.VersandanmeldungVATayp
'Transaktion:

6
SDL/DAKOSY/Stammreferenz/frmDakosyStammreferenz.vb
View File

@@ -110,7 +110,7 @@
.RowTemplate.Height = 30
.RowTemplate.DefaultCellStyle.Font = New Font(Me.Font.FontFamily, 10)
.DataSource = SQL.loadDgvBySql("SELECT [dySr_Stammreferenz],[dySr_Bezeichnung],isnull(dySr_dyId,-1) as dySr_dyId,dySr_dy_Standard,dyStr_KdNr,Ordnungsbegriff FROM [tblDakosy_Stammreferenzen] LEFT JOIN Adressen ON AdressenNr=dyStr_KdNr WHERE dySr_Land='" & cboLand._value & "' AND dySr_Verfahren='" & cboVerfahren._value & "' and dySr_dy_Mandant='" & txtDyMandant.Text & "' /*and (dySr_dy_Niederlassung is null or dySr_dy_Niederlassung='" & txtDyNiederlassung.Text & "' )*/ and dySr_visible=1 " & where & " order by dyStr_KdNr,dySr_Bezeichnung ", "FMZOLL")
.DataSource = SQL.loadDgvBySql("SELECT [dySr_Stammreferenz],[dySr_Bezeichnung],isnull(dySr_dyId,-1) as dySr_dyId,dySr_dy_Standard,dyStr_KdNr,Ordnungsbegriff,dySr_dy_Niederlassung FROM [tblDakosy_Stammreferenzen] LEFT JOIN Adressen ON AdressenNr=dyStr_KdNr WHERE dySr_Land='" & cboLand._value & "' AND dySr_Verfahren='" & cboVerfahren._value & "' and dySr_dy_Mandant='" & txtDyMandant.Text & "' /*and (dySr_dy_Niederlassung is null or dySr_dy_Niederlassung='" & txtDyNiederlassung.Text & "' )*/ and dySr_visible=1 " & where & " order by dyStr_KdNr,dySr_Bezeichnung ", "FMZOLL")
.Columns("dySr_dyId").Visible = False
.Columns("dySr_Stammreferenz").Visible = False
.Columns("dySr_dy_Standard").Visible = False
@@ -119,10 +119,14 @@
.Columns("dySr_Bezeichnung").HeaderText = "Bezeichnung"
.Columns("dySr_Bezeichnung").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns("dyStr_KdNr").HeaderText = "KundenNr"
.Columns("dyStr_KdNr").Width = 60
.Columns("Ordnungsbegriff").HeaderText = "Firma"
.Columns("Ordnungsbegriff").Width = 200
.Columns("dySr_dy_Niederlassung").HeaderText = "NL"
.Columns("dySr_dy_Niederlassung").Width = 50
.ClearSelection()

6
SDL/DAKOSY/Stammreferenz/frmStammreferenzPopup.vb
View File

@@ -18,8 +18,10 @@
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
If txtBezeichnung.Text = "" Then MsgBox("Bezeichnung angeben") : Me.DialogResult = Windows.Forms.DialogResult.None
If cboStammrefDakosy._value = "" Then MsgBox("Stammreferenz angeben") : Me.DialogResult = Windows.Forms.DialogResult.None
If KdSearchBox1.Text <> "" And KdSearchBox1.KdNrNullInt = Nothing Then MsgBox("Empfänger: Eingabe nur mit Kundennummer!") : Me.DialogResult = Windows.Forms.DialogResult.None
If sql.getValueTxtBySql("SELECT count(*) FROM [tblDakosy_Stammreferenzen] where [dySr_Verfahren]='" & verfahren & "' AND [dySr_dy_Mandant]='" & mandant & "' AND [dySr_Bezeichnung]='" & txtBezeichnung.Text & "'", "FMZOLL") > 0 Then
If KdSearchBox1.Text <> "" And KdSearchBox1.KdNrNullInt Is Nothing Then MsgBox("Empfänger: Eingabe nur mit Kundennummer!") : Me.DialogResult = Windows.Forms.DialogResult.None
Dim where = ""
If KdSearchBox1.KdNrNullInt IsNot Nothing Then where = " AND [dyStr_KdNr]='" & KdSearchBox1.KdNr_value & "' "
If sql.getValueTxtBySql("SELECT count(*) FROM [tblDakosy_Stammreferenzen] where [dySr_Verfahren]='" & verfahren & "' AND [dySr_dy_Mandant]='" & mandant & "' AND [dySr_Bezeichnung]='" & txtBezeichnung.Text & "'" & where, "FMZOLL") > 0 Then
MsgBox("Bezeichnung existiert bereits!") : Me.DialogResult = Windows.Forms.DialogResult.None
End If
End Sub

4
SDL/DAKOSY/frmZollanmeldung.Designer.vb generated
View File

@@ -31,14 +31,14 @@ Partial Class frmZollanmeldung
Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnl.Location = New System.Drawing.Point(0, 0)
Me.pnl.Name = "pnl"
Me.pnl.Size = New System.Drawing.Size(1065, 740)
Me.pnl.Size = New System.Drawing.Size(1065, 804)
Me.pnl.TabIndex = 0
'
'frmZollanmeldung
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(1065, 740)
Me.ClientSize = New System.Drawing.Size(1065, 804)
Me.Controls.Add(Me.pnl)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.KeyPreview = True

43
SDL/Fakturierung/frmRechnungenSuche.Designer.vb generated
View File

@@ -115,6 +115,8 @@ Partial Class frmRechnungenSuche
Me.Label22 = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
Me.pnlTop = New System.Windows.Forms.Panel()
Me.Label17 = New System.Windows.Forms.Label()
Me.txtMaxSrch = New VERAG_PROG_ALLGEMEIN.MyTextBox()
CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainer.Panel1.SuspendLayout()
Me.SplitContainer.Panel2.SuspendLayout()
@@ -566,7 +568,6 @@ Partial Class frmRechnungenSuche
Me.txtAbfertDatBis._value = ""
Me.txtAbfertDatBis._Waehrung = False
Me.txtAbfertDatBis._WaehrungZeichen = True
Me.txtAbfertDatBis.Enabled = False
Me.txtAbfertDatBis.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtAbfertDatBis.ForeColor = System.Drawing.Color.Black
Me.txtAbfertDatBis.Location = New System.Drawing.Point(43, 59)
@@ -1359,6 +1360,8 @@ Partial Class frmRechnungenSuche
'pnlOpt
'
Me.pnlOpt.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pnlOpt.Controls.Add(Me.Label17)
Me.pnlOpt.Controls.Add(Me.txtMaxSrch)
Me.pnlOpt.Controls.Add(Me.pnlBerichte)
Me.pnlOpt.Controls.Add(Me.pnl)
Me.pnlOpt.Controls.Add(Me.btnExcel)
@@ -1498,7 +1501,7 @@ Partial Class frmRechnungenSuche
'
'lblErgebnis
'
Me.lblErgebnis.Location = New System.Drawing.Point(990, 2)
Me.lblErgebnis.Location = New System.Drawing.Point(990, 4)
Me.lblErgebnis.Name = "lblErgebnis"
Me.lblErgebnis.Size = New System.Drawing.Size(215, 14)
Me.lblErgebnis.TabIndex = 2
@@ -1537,6 +1540,39 @@ Partial Class frmRechnungenSuche
Me.pnlTop.Size = New System.Drawing.Size(1211, 48)
Me.pnlTop.TabIndex = 0
'
'Label17
'
Me.Label17.AutoSize = True
Me.Label17.Location = New System.Drawing.Point(974, 5)
Me.Label17.Name = "Label17"
Me.Label17.Size = New System.Drawing.Size(30, 13)
Me.Label17.TabIndex = 43
Me.Label17.Text = "Max:"
'
'txtMaxSrch
'
Me.txtMaxSrch._DateTimeOnly = False
Me.txtMaxSrch._numbersOnly = True
Me.txtMaxSrch._numbersOnlyKommastellen = ""
Me.txtMaxSrch._Prozent = False
Me.txtMaxSrch._ShortDateNew = False
Me.txtMaxSrch._ShortDateOnly = False
Me.txtMaxSrch._TimeOnly = False
Me.txtMaxSrch._value = ""
Me.txtMaxSrch._Waehrung = False
Me.txtMaxSrch._WaehrungZeichen = True
Me.txtMaxSrch.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtMaxSrch.ForeColor = System.Drawing.Color.Black
Me.txtMaxSrch.Location = New System.Drawing.Point(1010, 2)
Me.txtMaxSrch.MaxLineLength = -1
Me.txtMaxSrch.MaxLines_Warning = ""
Me.txtMaxSrch.MaxLines_Warning_Label = Nothing
Me.txtMaxSrch.Name = "txtMaxSrch"
Me.txtMaxSrch.Size = New System.Drawing.Size(41, 20)
Me.txtMaxSrch.TabIndex = 44
Me.txtMaxSrch.Text = "1000"
Me.txtMaxSrch.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'frmRechnungenSuche
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
@@ -1566,6 +1602,7 @@ Partial Class frmRechnungenSuche
CType(Me.DataGridView, System.ComponentModel.ISupportInitialize).EndInit()
Me.cntxtCntxtSpeditionsbuch.ResumeLayout(False)
Me.pnlOpt.ResumeLayout(False)
Me.pnlOpt.PerformLayout()
Me.pnlBerichte.ResumeLayout(False)
Me.pnlBerichte.PerformLayout()
Me.pnl.ResumeLayout(False)
@@ -1666,4 +1703,6 @@ Partial Class frmRechnungenSuche
Friend WithEvents KdFrachtfuehrer As VERAG_PROG_ALLGEMEIN.KdSearchBox
Friend WithEvents KdFrachtfuehrerKdnr As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label15 As System.Windows.Forms.Label
Friend WithEvents Label17 As Label
Friend WithEvents txtMaxSrch As VERAG_PROG_ALLGEMEIN.MyTextBox
End Class

7
SDL/Fakturierung/frmRechnungenSuche.vb
View File

@@ -7,7 +7,8 @@ Public Class frmRechnungenSuche
Me.Cursor = Cursors.WaitCursor
Dim sqlstr As String = ""
sqlstr &= "SELECT TOP 1000 RK_ID,[RechnungsNr],[RechnungsDatum], Sammelrechnung, [FilialenNr],[AbfertigungsNr],[UnterNr],[Abfertigungsdatum], isnull(cast(RechnungsKundenNr as nvarchar(10)) + ' ','') + [RechnungsName 1] as [RechnungAn], " &
Dim TopMax = If(IsNumeric(txtMaxSrch.Text), " TOP " & txtMaxSrch.Text, "")
sqlstr &= "SELECT " & TopMax & " RK_ID,[RechnungsNr],[RechnungsDatum], Sammelrechnung, [FilialenNr],[AbfertigungsNr],[UnterNr],[Abfertigungsdatum], isnull(cast(RechnungsKundenNr as nvarchar(10)) + ' ','') + [RechnungsName 1] as [RechnungAn], " &
" /* isnull(cast([AbsenderKundenNr] as nvarchar(10)) + ' ','') + [AbsenderName 1] as Absender,isnull(cast([EmpfängerKundenNr] as nvarchar(10)) + ' ','') + [EmpfängerName 1] as Empfänger,*/ isnull(cast([VermittlerKundenNr] as nvarchar(10)) + ' ','') + [VermittlerName 1] as Vermittler, [LKW Kennzeichen],Sachbearbeiter " &
" FROM [Rechnungsausgang] WHERE 1=1 "
@@ -194,7 +195,7 @@ Public Class frmRechnungenSuche
Me.Height = Screen.FromRectangle(Me.Bounds).WorkingArea.Size.Height
Me.Top = 0
txtAbfertDat.Text = Now.ToShortDateString 'CDate("01." & Now.ToString("MM.yyyy")).AddMonths(-1).ToShortDateString
txtAbfertDat.Text = Now.ToShortDateString 'CDate("01." & Now.ToString("MM.yyyy")).AddMonths(-1).txtAbfertDatBisToShortDateString
txtAbfertDatBis.Text = Now.ToShortDateString
btnMonat.Text = MONAT.ToString("MMMM")
@@ -204,6 +205,8 @@ Public Class frmRechnungenSuche
kdtxtAbsender.initKdBox(Me, txtAbsenderKdnr) ' initKdAbsender()
kdtxtEmpfaenger.initKdBox(Me, txtEmpfaengerKdnr) 'initKdEmpfaenger()
kdtxtAuftraggeber.initKdBox(Me, txtAuftraggeberKdnr) 'initKdAuftraggeber()
kdtxtAvisierer.initKdBox(Me, txtAvisiererKdNr) 'initKdAuftraggeber()
cboBerichtRgAbfArt.fillWithSQL(" SELECT [Abfertigungsart],[Abfertigungsbezeichnung] FROM [Abfertigungsarten] ORDER BY Abfertigungsart ", True, "FMZOLL", True)
' cboSachbearbeiter.fillWithSQL("SELECT ID, Name FROM Personal WHERE [Status]<>'L' ORDER BY Name ", True, "FMZOLL", True)

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

@@ -183,6 +183,8 @@ Public Class frmFormulare
End Try
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "IMEX"
@@ -199,7 +201,7 @@ Public Class frmFormulare
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Importaviso", FormularManagerArten.Importaviso))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Gestellungsgarantie", FormularManagerArten.Gestellungsgarantie))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollungspreise", FormularManagerArten.Verzollungspreise))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Bonitäts-Auskunft", FormularManagerArten.Boniteatsauskunft))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Dispoliste", FormularManagerArten.DispoListe))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SA_Gestellung", FormularManagerArten.SA_Gestellung))
@@ -239,7 +241,7 @@ Public Class frmFormulare
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Importaviso", FormularManagerArten.Importaviso))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Gestellungsgarantie", FormularManagerArten.Gestellungsgarantie))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollungspreise", FormularManagerArten.Verzollungspreise))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Bonitäts-Auskunft", FormularManagerArten.Boniteatsauskunft))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Dispoliste", FormularManagerArten.DispoListe))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SA_Gestellung", FormularManagerArten.SA_Gestellung))

11
SDL/My Project/Resources.Designer.vb generated
View File

@@ -894,15 +894,6 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die ähnelt.
'''</summary>
Friend ReadOnly Property löl0lll() As String
Get
Return ResourceManager.GetString("löl0lll", resourceCulture)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
@@ -1961,7 +1952,7 @@ Namespace My.Resources
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die 1.1.1.5 ähnelt.
''' Sucht eine lokalisierte Zeichenfolge, die 1.1.1.6 ähnelt.
'''</summary>
Friend ReadOnly Property Version() As String
Get

5
SDL/My Project/Resources.resx
View File

@@ -713,7 +713,7 @@
<value>..\Resources\Verag-Customs-Service-GMBH-Logo_sig.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Version" xml:space="preserve">
<value>1.1.1.5</value>
<value>1.1.1.6</value>
</data>
<data name="chimes2" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\chimes.wav;System.IO.MemoryStream, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
@@ -724,7 +724,4 @@
<data name="ok_gray" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ok_gray.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="löl0lll" xml:space="preserve">
<value />
</data>
</root>

9
SDL/SDL.vbproj
View File

@@ -1140,6 +1140,12 @@
<Compile Include="kunden\frmAddLKW.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="kunden\frmBonitaet.Designer.vb">
<DependentUpon>frmBonitaet.vb</DependentUpon>
</Compile>
<Compile Include="kunden\frmBonitaet.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="kunden\frmBonitaetBearbeiten.Designer.vb">
<DependentUpon>frmBonitaetBearbeiten.vb</DependentUpon>
</Compile>
@@ -2613,6 +2619,9 @@
<EmbeddedResource Include="kunden\frmAddLKW.resx">
<DependentUpon>frmAddLKW.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="kunden\frmBonitaet.resx">
<DependentUpon>frmBonitaet.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="kunden\frmBonitaetBearbeiten.resx">
<DependentUpon>frmBonitaetBearbeiten.vb</DependentUpon>
</EmbeddedResource>

224
SDL/kunden/frmBonitaet.Designer.vb generated Normal file
View File

@@ -0,0 +1,224 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmBonitaet
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
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.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmBonitaet))
Me.txtBonitaetsindex = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label3 = New System.Windows.Forms.Label()
Me.Button1 = New System.Windows.Forms.Button()
Me.btnStandardPreiseLaden = New System.Windows.Forms.Button()
Me.txtCRDatum = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label10 = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.cboRisikostufe = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.txtHoechstkredit = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label12 = New System.Windows.Forms.Label()
Me.SuspendLayout()
'
'txtBonitaetsindex
'
Me.txtBonitaetsindex._DateTimeOnly = False
Me.txtBonitaetsindex._numbersOnly = True
Me.txtBonitaetsindex._numbersOnlyKommastellen = ""
Me.txtBonitaetsindex._Prozent = False
Me.txtBonitaetsindex._ShortDateNew = False
Me.txtBonitaetsindex._ShortDateOnly = False
Me.txtBonitaetsindex._TimeOnly = False
Me.txtBonitaetsindex._value = ""
Me.txtBonitaetsindex._Waehrung = False
Me.txtBonitaetsindex._WaehrungZeichen = True
Me.txtBonitaetsindex.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtBonitaetsindex.ForeColor = System.Drawing.Color.Black
Me.txtBonitaetsindex.Location = New System.Drawing.Point(107, 32)
Me.txtBonitaetsindex.MaxLength = 10
Me.txtBonitaetsindex.MaxLineLength = -1
Me.txtBonitaetsindex.MaxLines_Warning = ""
Me.txtBonitaetsindex.MaxLines_Warning_Label = Nothing
Me.txtBonitaetsindex.Name = "txtBonitaetsindex"
Me.txtBonitaetsindex.Size = New System.Drawing.Size(129, 26)
Me.txtBonitaetsindex.TabIndex = 27
Me.txtBonitaetsindex.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label3.Location = New System.Drawing.Point(14, 40)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(87, 13)
Me.Label3.TabIndex = 26
Me.Label3.Text = "Bonitätsindex:"
'
'Button1
'
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.Location = New System.Drawing.Point(17, 192)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(219, 23)
Me.Button1.TabIndex = 23
Me.Button1.Text = "Kunde Bonitäts-Verlauf ansehen"
Me.Button1.UseVisualStyleBackColor = True
'
'btnStandardPreiseLaden
'
Me.btnStandardPreiseLaden.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnStandardPreiseLaden.Location = New System.Drawing.Point(17, 147)
Me.btnStandardPreiseLaden.Name = "btnStandardPreiseLaden"
Me.btnStandardPreiseLaden.Size = New System.Drawing.Size(219, 43)
Me.btnStandardPreiseLaden.TabIndex = 22
Me.btnStandardPreiseLaden.Text = "Speichern"
Me.btnStandardPreiseLaden.UseVisualStyleBackColor = True
'
'txtCRDatum
'
Me.txtCRDatum._DateTimeOnly = False
Me.txtCRDatum._numbersOnly = False
Me.txtCRDatum._numbersOnlyKommastellen = ""
Me.txtCRDatum._Prozent = False
Me.txtCRDatum._ShortDateNew = True
Me.txtCRDatum._ShortDateOnly = False
Me.txtCRDatum._TimeOnly = False
Me.txtCRDatum._value = ""
Me.txtCRDatum._Waehrung = False
Me.txtCRDatum._WaehrungZeichen = True
Me.txtCRDatum.ForeColor = System.Drawing.Color.Black
Me.txtCRDatum.Location = New System.Drawing.Point(107, 6)
Me.txtCRDatum.MaxLength = 10
Me.txtCRDatum.MaxLineLength = -1
Me.txtCRDatum.MaxLines_Warning = ""
Me.txtCRDatum.MaxLines_Warning_Label = Nothing
Me.txtCRDatum.Name = "txtCRDatum"
Me.txtCRDatum.ReadOnly = True
Me.txtCRDatum.Size = New System.Drawing.Size(129, 20)
Me.txtCRDatum.TabIndex = 25
Me.txtCRDatum.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'Label10
'
Me.Label10.AutoSize = True
Me.Label10.Location = New System.Drawing.Point(14, 9)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(67, 13)
Me.Label10.TabIndex = 24
Me.Label10.Text = "Abfrage, am:"
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(14, 85)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(82, 13)
Me.Label1.TabIndex = 28
Me.Label1.Text = "Risikoklasse:"
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(104, 61)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(28, 13)
Me.Label2.TabIndex = 24
Me.Label2.Text = "oder"
'
'cboRisikostufe
'
Me.cboRisikostufe._allowedValuesFreiText = Nothing
Me.cboRisikostufe._allowFreiText = False
Me.cboRisikostufe._value = ""
Me.cboRisikostufe.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold)
Me.cboRisikostufe.FormattingEnabled = True
Me.cboRisikostufe.Location = New System.Drawing.Point(107, 77)
Me.cboRisikostufe.Name = "cboRisikostufe"
Me.cboRisikostufe.Size = New System.Drawing.Size(129, 28)
Me.cboRisikostufe.TabIndex = 30
'
'txtHoechstkredit
'
Me.txtHoechstkredit._DateTimeOnly = False
Me.txtHoechstkredit._numbersOnly = False
Me.txtHoechstkredit._numbersOnlyKommastellen = ""
Me.txtHoechstkredit._Prozent = False
Me.txtHoechstkredit._ShortDateNew = False
Me.txtHoechstkredit._ShortDateOnly = False
Me.txtHoechstkredit._TimeOnly = False
Me.txtHoechstkredit._value = Nothing
Me.txtHoechstkredit._Waehrung = True
Me.txtHoechstkredit._WaehrungZeichen = True
Me.txtHoechstkredit.ForeColor = System.Drawing.Color.Black
Me.txtHoechstkredit.Location = New System.Drawing.Point(107, 111)
Me.txtHoechstkredit.MaxLineLength = -1
Me.txtHoechstkredit.MaxLines_Warning = ""
Me.txtHoechstkredit.MaxLines_Warning_Label = Nothing
Me.txtHoechstkredit.Name = "txtHoechstkredit"
Me.txtHoechstkredit.Size = New System.Drawing.Size(129, 20)
Me.txtHoechstkredit.TabIndex = 35
'
'Label12
'
Me.Label12.AutoSize = True
Me.Label12.Location = New System.Drawing.Point(14, 114)
Me.Label12.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(70, 13)
Me.Label12.TabIndex = 34
Me.Label12.Text = "Höchstkredit:"
'
'frmBonitaet
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(253, 223)
Me.Controls.Add(Me.txtHoechstkredit)
Me.Controls.Add(Me.Label12)
Me.Controls.Add(Me.cboRisikostufe)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.txtBonitaetsindex)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.btnStandardPreiseLaden)
Me.Controls.Add(Me.txtCRDatum)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label10)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmBonitaet"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Bonität"
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents txtBonitaetsindex As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label3 As Label
Friend WithEvents Button1 As Button
Friend WithEvents btnStandardPreiseLaden As Button
Friend WithEvents txtCRDatum As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label10 As Label
Friend WithEvents Label1 As Label
Friend WithEvents Label2 As Label
Friend WithEvents cboRisikostufe As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents txtHoechstkredit As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label12 As Label
End Class

980
SDL/kunden/frmBonitaet.resx Normal file
View File

@@ -0,0 +1,980 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAEAgIAAAAEAGAAoyAAAFgAAACgAAACAAAAAAAEAAAEAGAAAAAAAAMgAAMQOAADEDgAAAAAAAAAA
AACRbEd5TB+CWC59USZ8USV9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
USZ9USZ9USZ9USZ8USV9USaCWC55TB+RbEd4Sx5mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB4Sx5/VClmMwBuPg5r
OglrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
OQhrOgluPg5mMwB/VCl0RhhmMwBmMwBnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFmMwBmMwB0RhhzRBVmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBz
RBV3Sh1mMwBnNQJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBnNQJmMwB3Sh18UCRmMwBqOQdnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFqOQdmMwB8UCR9USZmMwBrOQhn
NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwDm4N3/////////
///////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL/////////////////
//////////////////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwB0SSb39fT/
//////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////////+YfWtmMwBmMwBm
MwBmMwB0SSbu6+n////////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/////
///////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5zUy8X////////////////L
v7itmo1mMwBmMwCYfWv///////90SSZmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn
NAFmMwBmMwBmMwB0SSb////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwDu6+n///////////////////////////////////////////////////////////+j
jH1mMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwC3p5z/
///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwCYfWv////////////////Bs6pmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwB0SSb///////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCt
mo3////////////////////////////////////m4N2Mbli3p5z///////+jjH1mMwBmMwBmMwBmMwBm
MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwCMblj///////////////////////////+M
blhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////////////////////
///////////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////+3
p5xmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDU
y8X///////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////90SSZm
MwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j////////////////////////////////////////////39fTm
4N3///////+3p5xmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwC3
p5z////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3
p5z////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwCjjH3////////////////Lv7hmMwBmMwBmMwBmMwBmMwCAXUL///////////////////90
SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBm
MwC3p5z////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////////////U
y8WAXUJmMwBmMwC3p5z39fT////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
USZ9USZmMwBrOQhnNAFmMwBmMwBmMwDBs6r////////////////u6+n///////////+tmo1mMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////90SSZmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj////////////////m4N1mMwBmMwBmMwBm
MwBmMwC3p5z////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////
///////////////////////////////////////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBm
MwBmMwD39fT////////////////Lv7hmMwBmMwBmMwBmMwBmMwCAXULu6+n////////////////39fRm
MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwDm4N3/////////////
//+jjH3////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb/////////////
//////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD3
9fT///////////////90SSZmMwBmMwBmMwBmMwDm4N3///////////////+jjH1mMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwDu6+n/////////////////////////////////////////////////////
//////+3p5xmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////+MblhmMwBmMwBmMwBmMwBm
MwBmMwCMblj///////////////////90SSZmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn
NAFmMwBmMwBmMwD39fT///////////////9mMwDLv7j///////////+3p5xmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwDm4N3////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+YfWtmMwBmMwBmMwCAXUL/////////
///////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////////////////////
//////////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////
//////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+jjH1mMwBmMwBmMwBm
MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwCMblj////////////////m4N1mMwCAXUL39fT/
///////39fSAXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////Uy8VmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////////
///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwDUy8X////////////u6+lmMwBmMwBmMwBmMwCMblj///////////////////90SSZmMwBm
MwBmMwBmMwBmMwBmMwC3p5z///////////////////9mMwBmMwBmMwB0SSb/////////////////////
//////////////+3p5xmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwCjjH3/
///////////////Uy8VmMwBmMwC3p5z////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwC3p5z////////////////////////////////////////////////////m4N1mMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwCjjH3////////////////////////////////////////////////////////////d
1tGMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+tmo1mMwBmMwBmMwCt
mo3////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////////90SSZm
MwBmMwBmMwDm4N3////////////////////////////////Uy8VmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
USZ9USZmMwBrOQhnNAFmMwBmMwC3p5z///////////////+3p5xmMwBmMwB0SSb39fT///////////+Y
fWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj/////////////////////////////////////////
//////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb/////////////////////////////
//////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3
p5z////////////39fR0SSZmMwBmMwDBs6r////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBm
MwCjjH3///////////////////+jjH1mMwBmMwBmMwDBs6r////////////////////////////////3
9fRmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwDUy8X///////////////+t
mo1mMwBmMwBmMwCtmo3////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/////
//////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwDu6+n///////////////90SSZmMwBmMwBmMwBmMwBmMwCjjH3m4N3////////////////39fR0SSZm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////+3p5xmMwBmMwDUy8X/////////////
//+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////////Bs6pmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn
NAFmMwBmMwDu6+n///////////////+MblhmMwBmMwBmMwBmMwDu6+n///////////+tmo1mMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+YfWtmMwBmMwBmMwBmMwBmMwBm
MwB0SSbu6+n///////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////
///39fSAXUJmMwD39fT///////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////
///////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////Uy8W3p5y3p5yYfWtmMwBmMwBm
MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwB0SSb///////////////////90SSZmMwBmMwBmMwBm
MwCtmo3////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////m4N1m
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////
//////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j////////////////Bs6pmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwDUy8X////////////Lv7h0SSb///////////////////90SSZmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDu
6+n///////////////+jjH1mMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwCYfWv/////
///////////u6+lmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////+3p5xmMwBmMwBmMwBmMwBmMwBm
MwBmMwCjjH3///////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwCYfWv////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////
//////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+tmo3/
///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////////
//+YfWtmMwBmMwBmMwBmMwBmMwCtmo3////////////////u6+lmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
USZ9USZmMwBrOQhnNAFmMwC3p5z////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////
//////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////////+MblhmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////u6+lmMwBm
MwBmMwBmMwBmMwCAXULLv7j///////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwC3p5z////////////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwDd1tH///////////////////+3p5x0SSZmMwBmMwC3p5z///////////////////+t
mo1mMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwDLv7j////////////////Bs6pm
MwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/
//////////////////////////////////////////////////////////90SSZmMwBmMwBmMwBmMwBm
MwBmMwDm4N3////////////////////////////////////////////////////////////Bs6pmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////+3
p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////////////////
///////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn
NAFmMwDm4N3///////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+Y
fWtmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////////////////////////////////////////
//////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwDLv7j/////////////////////////////////////
///////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCj
jH3///////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwCtmo339fT///////////////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBm
MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAF0SSb///////////////////+MblhmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwDLv7j////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwC3p5z/////////////////
//////////////////////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////
///////////////////////////////////////m4N23p5yMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////9mMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH23p5z39fT////////////////Uy8W3
p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn
NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ8UCRmMwBqOQdn
NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBnNAFqOQdmMwB8UCR3Sh1mMwBnNQJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNQJmMwB3Sh1zRBVmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBz
RBV0RhhmMwBmMwBnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
NAFnNAFnNAFnNAFnNAFnNAFmMwBmMwB0Rhh/VClmMwBuPg5rOglrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOgluPg5mMwB/VCl4Sx5mMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwB4Sx6RbEd5TB+CWC59USZ8USV9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ8USV9USaCWC55TB+RbEf/////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////Bs6rBs6qYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvBs6rBs6r/////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////Uy8WYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvUy8X////////////////////////////////////////B
s6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwCjjH3Bs6rBs6r39fT/////////////////////////////////////////////////////////
///Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////////////////////////////////////////////
///////////////////////////////////////////////////////////////d1tGMblhmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvm4N3/
///////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMbljLv7j/////////////////
///////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////
////////////////////////////////////////////////////////////////////////////////
///////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X////////////////////////////d1tFmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwCMbljm4N3////////////////////////////////////////////m4N1mMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwC3p5z/////////////////////////////////////////////////////////////
//////////////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j/////////
///////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////////////
///////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////////////////////////
///////////////////////////////////////////////////////////////////Bs6pmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwCtmo3///////////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCA
XUL/////////////////////////////////////////////////////////////////////////////
///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT/////////////////
//+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3/////////////////////////////
//////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/////////////////////////////////////////
//////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwDBs6r///////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwDBs6r////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////
///////////////////////////////////////////////////////////////////////////d1tFm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6rd1tH////////39fTBs6qAXUJm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////////Lv7hmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////////////Uy8VmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwDLv7j/////////////////////////////////////////////////////////
//////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/
//////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd
1tH////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////
///////Uy8XBs6qMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL/////
///////////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj/////////
////////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////+AXUJmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwCtmo3///////////////////////////////////////+AXUJmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwC3p5z////////////////////////////////d1tGMblhmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////9mMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwB0SSb/////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT/////////////////////
///////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3/////////////
//////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj/////////////////////////////
//////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb39fT/////////////
//////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwDBs6r////////////////////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwCYfWv///////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0
SSb///////////////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwDBs6r///////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwDUy8X/////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///u6+nBs6rBs6rBs6qYfWtmMwBmMwBmMwDu6+n/////////////////////////////////////////
///Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////+3p5xmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n////////////////////////////////////////u
6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj////////////////////////Bs6pm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCY
fWv////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////
//////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwDm4N3////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////u6+m3p5xmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3////////////////////m4N1mMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwDBs6r////////////////////////////////////////////d1tFmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////////u6+lmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwCMblj/////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////Uy8XB
s6p0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////////
//////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3/////////////////////////
//////////////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////
//////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD/////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////m4N3Bs6qMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwDUy8X///////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwCMblj///////////////////////////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwB0SSb///////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwDm4N3/////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////Bs6qAXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb39fT///////////////////////+jjH1m
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb/////////////////////////////////////////
///////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///////////////////+t
mo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////Lv7hmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/
///////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////
///////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwDm4N3////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
//////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwCAXUL39fT////////////////////////////Uy8VmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////////////////////////90SSZm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////Uy8VmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
//////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbm4N3/////////////////////
///////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////////////
//////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////
///////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj/////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////Bs6pmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCM
bljm4N3///////////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwCjjH3///////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwD39fT/////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////////////////////////+M
blhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj/////////////////////////////////////
//////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j/////////////////////
//+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvBs6r/////////////////////////
//////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD/////
//////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwDd1tH///////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDL
v7j/////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////////////+Mblhm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3Bs6r/////
///////////////////////////////////////////////////////////////Bs6pmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////////////////////////+AXUJm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////////Bs6pmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
//////////////////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwCtmo3Bs6r39fT/////////////////////////////////////////////////////////////////
///////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////////
///////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n/////
///////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwB0SSbLv7j/////////////////////////////////////////////////
///////////////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwC3p5z////////////////////////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwB0SSb////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwCAXUL/////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbu6+n/////////////////////
////////////////////////////////////////////////////////////////////////////////
//90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////////////////////////////
//////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////////////////////
//////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwC3p5z////////////////////////////////////39fRmMwBmMwB0SSbBs6rBs6r39fT/////////
//////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL/
///////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwDBs6r///////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwDm4N3/////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////39fRmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////////////////////////////Bs6pm
MwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3Bs6rBs6r///////////////////////////+3p5xmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT////////////////////////////39fSMblhmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////////+3p5xmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j/////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
//////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL/////////
///////////////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD/////////
///////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////////////
///////////u6+mMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////////////
///////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////
////////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////+jjH1mMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwCjjH3////////////////////////u6+mAXUJmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwCYfWv////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwDLv7j////////////////Uy8W3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwDd1tH////////////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwCYfWv/////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMbljBs6r////////d1tG3
p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH/////////////////////////
///39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////////////////////////////////
///////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb/////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCM
blj///////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbu6+n/
//////////////////////////////////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwD39fT/////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////L
v7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////////////////+YfWtmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////////////////+jjH1m
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH/////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
//////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////////////
//////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////////////////
//////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////39fSAXUJmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwCYfWv////////////////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDB
s6r////////////////////////////////////////////////////////Lv7hmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwC3p5z/////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////u6+mMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////////////////////////////////////////
///////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwB0SSbUy8X/////////////////////////////////////////////////
///////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////////////////////
////////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////+jjH1mMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j/////////////
///////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbBs6r/////////////////////////
///////////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwB0SSb/////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////d1tGYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwDBs6r39fT///////////////////////////////////////////////////////////+AXUJm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXULBs6rBs6rm4N3/
//////////////////////////////////////////////////////////////////////////////+A
XUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD/////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////39fTBs6rBs6pmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwCjjH3Bs6rUy8X/////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
//////////////////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==
</value>
</data>
</root>

72
SDL/kunden/frmBonitaet.vb Normal file
View File

@@ -0,0 +1,72 @@
Public Class frmBonitaet
Public KdNR As Integer
Dim VSQL As New VERAG_PROG_ALLGEMEIN.SQL
Sub New(KdNR As Integer)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
Me.KdNR = KdNR
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub btnStandardPreiseLaden_Click(sender As Object, e As EventArgs) Handles btnStandardPreiseLaden.Click
If txtBonitaetsindex.Text = "" And cboRisikostufe.Text = "" Then Exit Sub
If txtBonitaetsindex.Text <> "" Then
If Not IsNumeric(txtBonitaetsindex.Text) Then Exit Sub
If CInt(txtBonitaetsindex.Text) < 100 Then Exit Sub
End If
Try
Dim cBonitaetsauskunft As VERAG_PROG_ALLGEMEIN.cBonitaetsauskunft = VERAG_PROG_ALLGEMEIN.cBonitaetsauskunft.LOADByKdNrDate(KdNR, Now)
If cBonitaetsauskunft Is Nothing Then
cBonitaetsauskunft = New VERAG_PROG_ALLGEMEIN.cBonitaetsauskunft
ElseIf vbYes <> MsgBox("Es wurde heute um '" & cBonitaetsauskunft.ba_Datum.ToShortTimeString & "' bereits eine Bonitätsauskunft für den Kunden eingeholt, möchten Sie diese überschreiben?", vbYesNoCancel) Then
Exit Sub
End If
cBonitaetsauskunft.ba_KundenNr = (KdNR)
cBonitaetsauskunft.ba_Datum = cProgramFunctions.isLeerNothing(txtCRDatum._value)
cBonitaetsauskunft.ba_BonitaetsIndex = If(IsNumeric(txtBonitaetsindex.Text), txtBonitaetsindex.Text, 0)
cBonitaetsauskunft.ba_Risikostufe = If(IsNumeric(cboRisikostufe._value), cboRisikostufe._value, Nothing)
cBonitaetsauskunft.ba_MaId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
cBonitaetsauskunft.ba_Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
cBonitaetsauskunft.ba_Hoechstkredit = cProgramFunctions.isLeerNothingDbl(txtHoechstkredit._value)
cBonitaetsauskunft.ba_Bankverbindung = ""
cBonitaetsauskunft.ba_Zahlungsweise = ""
cBonitaetsauskunft.ba_GFName = ""
cBonitaetsauskunft.ba_Sonstiges = ""
If cBonitaetsauskunft.SAVE Then
VSQL.doSQL("UPDATE Kunden SET Bonität='" & cBonitaetsauskunft.ba_BonitaetsIndex & "', Bonitätsdatum='" & cBonitaetsauskunft.ba_Datum & "', Höchstkredit=" & If(cBonitaetsauskunft.ba_Hoechstkredit Is Nothing, "null", "'" & cBonitaetsauskunft.ba_Hoechstkredit & "'") & " WHERE KundenNr='" & cBonitaetsauskunft.ba_KundenNr & "'", "FMZOLL")
Dim KDERW As New VERAG_PROG_ALLGEMEIN.cKundenErweitert(KdNR)
KDERW.kde_BonitaetsStufe = cBonitaetsauskunft.ba_Risikostufe
KDERW.SAVE()
Me.Close()
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub frmBonitaet_Load(sender As Object, e As EventArgs) Handles Me.Load
txtCRDatum._value = Now
cboRisikostufe.Items.Clear()
cboRisikostufe.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
cboRisikostufe.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("1", 1))
cboRisikostufe.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("2", 2))
cboRisikostufe.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("3", 3))
cboRisikostufe.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("4", 4))
cboRisikostufe.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("5", 5))
cboRisikostufe.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("6", 6))
cboRisikostufe.changeItem("")
End Sub
End Class

746
SDL/kunden/frmKundenUebersichtZOLL.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

12
SDL/kunden/frmKundenUebersichtZOLL.vb
View File

@@ -536,12 +536,13 @@ Public Class frmKundenUebersichtZOLL
' End If
' End If
lblBonitaet.Text = If(KUNDE.Bonität, "")
If lblBonitaet.Text = "0" Then lblBonitaet.Text = ""
If KUNDE.Bonitätsdatum IsNot Nothing AndAlso IsDate(KUNDE.Bonitätsdatum) Then
lblBonitaetsdatum.Text = CDate(KUNDE.Bonitätsdatum).ToShortDateString
Else
lblBonitaetsdatum.Text = ""
End If
lblBonitaetRisikostufe.Text = If(KUNDE_ERW.kde_BonitaetsStufe, "")
lblHoechstkredit._value = If(IsNumeric(If(KUNDE.Höchstkredit, "")), KUNDE.Höchstkredit, "")
@@ -2100,6 +2101,14 @@ Public Class frmKundenUebersichtZOLL
End Sub
Private Sub FlatButton5_Click(sender As Object, e As EventArgs) Handles btnBonitaetBearbeiten.Click
Dim f1 As New frmBonitaet(kdNr)
f1.ShowDialog(Me)
setKD(kdNr) 'aktualisieren
Exit Sub
Dim f As New frmFormulare(kdNr)
f.Show()
f.addForm("Boniteatsauskunft")
@@ -2556,4 +2565,5 @@ Public Class frmKundenUebersichtZOLL
End If
End If
End Sub
End Class

2
SDL/kunden/frmNeuerKunde.vb
View File

@@ -19,7 +19,7 @@
Case "IMEX"
ComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("1000000-1099999: IMEX", "1000000-1099990"))
ComboBox2.changeItem("1000000-1099990")
ComboBox1.changeItem("4801")
ComboBox1.changeItem("5501")
Case "ATILLA"
ComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 100000-199999: Sonstige", "100000-199999"))
ComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 700000-799999: ZOLL Abrechnung", "728000-799999"))

2
SDL/kunden/usrcntlKundeBearbeitenFull.vb
View File

@@ -1041,7 +1041,7 @@ Public Class usrcntlKundeBearbeitenFull
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "VERAG"
If ComboBox2._value = "100000-199999" Then
ComboBox1.changeItem("4801")
ComboBox1.changeItem("5501")
Else
If ComboBox1._value = "4801" Then ComboBox1.changeItem("4803")
End If

1
SDL/mdm/usrCntlLkwListe.vb
View File

@@ -30,7 +30,6 @@ Public Class usrCntlLkwListe
FlatButton2.Enabled = False
Button14.Enabled = False
End If
' Panel3.Height = Me.Height / 2 + 300
End Sub

4
SDL/zoll/usrCntlAuswertungenFiskal_IntrastatMeldung.vb
View File

@@ -64,7 +64,7 @@ Public Class usrCntlAuswertungenFiskal_IntrastatMeldung
Outputline &= " " 'Blank3
Outputline &= " " 'Blank4
Outputline &= " " 'Blank5
Outputline &= r("Warennummer") 'Warennummer
Outputline &= r("Warennummer") 'Warennummer
Outputline &= " " 'Blank6
Outputline &= " " 'Blank7
Outputline &= " " 'Blank8
@@ -121,7 +121,7 @@ Public Class usrCntlAuswertungenFiskal_IntrastatMeldung
Function getFiskal_Data() As DataTable
Dim sqlStr = ""
sqlStr &= " SELECT basman_nr as Mandant, basman_nl as Niederlassung, zbant_beznr as Bezugsnummer, zbpos_posnr as Positionsnummer, zbabg_regkz as Registrierkennzeichen, Bestimmungsland, isnull(zbant_gesart,99) as Geschäftsart, Verkehrszweig, Warennummer, zbpos_eigm as Eigenmasse, zbpos_wmahst as BesondereMasseinheit, CASE WHEN GesamtRechnungspreis>0 THEN CASE WHEN zbpos_posnr=1 THEN GesamtRechnungspreis ELSE 0 END ELSE zbapo_eustwe END AS Rechnungsbetrag, zbapo_zollw as StatistischerWert, zbant_dsenda as Bezugszeitraum, zbpos_wabes as Warenbeschreibung,GesamtRechnungspreis "
sqlStr &= " SELECT basman_nr as Mandant, basman_nl as Niederlassung, zbant_beznr as Bezugsnummer, zbpos_posnr as Positionsnummer, zbabg_regkz as Registrierkennzeichen, Bestimmungsland, isnull(zbant_gesart,99) as Geschäftsart, Verkehrszweig, isnull(Warennummer,'00000000') as Warennummer, isnull(zbpos_eigm,'0') as Eigenmasse, zbpos_wmahst as BesondereMasseinheit, CASE WHEN GesamtRechnungspreis>0 THEN CASE WHEN zbpos_posnr=1 THEN GesamtRechnungspreis ELSE 0 END ELSE zbapo_eustwe END AS Rechnungsbetrag, isnull(zbapo_zollw,'0') as StatistischerWert, zbant_dsenda as Bezugszeitraum, zbpos_wabes as Warenbeschreibung,GesamtRechnungspreis "
sqlStr &= " FROM ( "
If CheckBox2.Checked Then

42
SDL/zoll/usrCntlZOLLAuswertungen.Designer.vb generated
View File

@@ -113,6 +113,7 @@ Partial Class usrCntlZOLLAuswertungen
Me.Label35 = New System.Windows.Forms.Label()
Me.tbcntr = New System.Windows.Forms.TabControl()
Me.TabPage1 = New System.Windows.Forms.TabPage()
Me.PictureBox7 = New System.Windows.Forms.PictureBox()
Me.Label52 = New System.Windows.Forms.Label()
Me.PictureBox6 = New System.Windows.Forms.PictureBox()
Me.GroupBox8 = New System.Windows.Forms.GroupBox()
@@ -165,7 +166,6 @@ Partial Class usrCntlZOLLAuswertungen
Me.TabPage4 = New System.Windows.Forms.TabPage()
Me.UsrCntlAuswertungenAufschub_Abgabenliste1 = New SDL.usrCntlAuswertungenAufschub_Abgabenliste()
Me.pnl = New System.Windows.Forms.Panel()
Me.PictureBox7 = New System.Windows.Forms.PictureBox()
Me.GroupBox1.SuspendLayout()
Me.GroupBox2.SuspendLayout()
CType(Me.picDurmaz, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -180,6 +180,7 @@ Partial Class usrCntlZOLLAuswertungen
Me.GroupBox5.SuspendLayout()
Me.tbcntr.SuspendLayout()
Me.TabPage1.SuspendLayout()
CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox8.SuspendLayout()
Me.GroupBox7.SuspendLayout()
@@ -192,7 +193,6 @@ Partial Class usrCntlZOLLAuswertungen
Me.TabPage3.SuspendLayout()
Me.TabPage4.SuspendLayout()
Me.pnl.SuspendLayout()
CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'Label3
@@ -1142,7 +1142,7 @@ Partial Class usrCntlZOLLAuswertungen
Me.tbcntr.Location = New System.Drawing.Point(0, 57)
Me.tbcntr.Name = "tbcntr"
Me.tbcntr.SelectedIndex = 0
Me.tbcntr.Size = New System.Drawing.Size(915, 1270)
Me.tbcntr.Size = New System.Drawing.Size(898, 1270)
Me.tbcntr.TabIndex = 22
'
'TabPage1
@@ -1175,11 +1175,22 @@ Partial Class usrCntlZOLLAuswertungen
Me.TabPage1.Location = New System.Drawing.Point(4, 22)
Me.TabPage1.Name = "TabPage1"
Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage1.Size = New System.Drawing.Size(907, 1244)
Me.TabPage1.Size = New System.Drawing.Size(890, 1244)
Me.TabPage1.TabIndex = 0
Me.TabPage1.Text = "Bürgschaften"
Me.TabPage1.UseVisualStyleBackColor = True
'
'PictureBox7
'
Me.PictureBox7.Image = Global.SDL.My.Resources.Resources.IMEX_LOGO_simple
Me.PictureBox7.InitialImage = Global.SDL.My.Resources.Resources.durmaz
Me.PictureBox7.Location = New System.Drawing.Point(579, 387)
Me.PictureBox7.Name = "PictureBox7"
Me.PictureBox7.Size = New System.Drawing.Size(133, 24)
Me.PictureBox7.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
Me.PictureBox7.TabIndex = 26
Me.PictureBox7.TabStop = False
'
'Label52
'
Me.Label52.AutoSize = True
@@ -1632,7 +1643,7 @@ Partial Class usrCntlZOLLAuswertungen
Me.TabPage2.Location = New System.Drawing.Point(4, 22)
Me.TabPage2.Name = "TabPage2"
Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage2.Size = New System.Drawing.Size(924, 1244)
Me.TabPage2.Size = New System.Drawing.Size(907, 1244)
Me.TabPage2.TabIndex = 1
Me.TabPage2.Text = "Kunden"
Me.TabPage2.UseVisualStyleBackColor = True
@@ -1662,7 +1673,7 @@ Partial Class usrCntlZOLLAuswertungen
Me.TabPage3.Location = New System.Drawing.Point(4, 22)
Me.TabPage3.Name = "TabPage3"
Me.TabPage3.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage3.Size = New System.Drawing.Size(924, 1244)
Me.TabPage3.Size = New System.Drawing.Size(890, 1244)
Me.TabPage3.TabIndex = 2
Me.TabPage3.Text = "Fiskalvertretung"
Me.TabPage3.UseVisualStyleBackColor = True
@@ -1688,7 +1699,7 @@ Partial Class usrCntlZOLLAuswertungen
Me.TabPage4.Controls.Add(Me.UsrCntlAuswertungenAufschub_Abgabenliste1)
Me.TabPage4.Location = New System.Drawing.Point(4, 22)
Me.TabPage4.Name = "TabPage4"
Me.TabPage4.Size = New System.Drawing.Size(924, 1244)
Me.TabPage4.Size = New System.Drawing.Size(907, 1244)
Me.TabPage4.TabIndex = 3
Me.TabPage4.Text = "Aufschubdaten"
Me.TabPage4.UseVisualStyleBackColor = True
@@ -1707,20 +1718,9 @@ Partial Class usrCntlZOLLAuswertungen
Me.pnl.Dock = System.Windows.Forms.DockStyle.Top
Me.pnl.Location = New System.Drawing.Point(0, 0)
Me.pnl.Name = "pnl"
Me.pnl.Size = New System.Drawing.Size(915, 57)
Me.pnl.Size = New System.Drawing.Size(898, 57)
Me.pnl.TabIndex = 23
'
'PictureBox7
'
Me.PictureBox7.Image = Global.SDL.My.Resources.Resources.IMEX_LOGO_simple
Me.PictureBox7.InitialImage = Global.SDL.My.Resources.Resources.durmaz
Me.PictureBox7.Location = New System.Drawing.Point(579, 387)
Me.PictureBox7.Name = "PictureBox7"
Me.PictureBox7.Size = New System.Drawing.Size(133, 24)
Me.PictureBox7.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
Me.PictureBox7.TabIndex = 26
Me.PictureBox7.TabStop = False
'
'usrCntlZOLLAuswertungen
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -1730,7 +1730,7 @@ Partial Class usrCntlZOLLAuswertungen
Me.Controls.Add(Me.tbcntr)
Me.Controls.Add(Me.pnl)
Me.Name = "usrCntlZOLLAuswertungen"
Me.Size = New System.Drawing.Size(915, 926)
Me.Size = New System.Drawing.Size(898, 926)
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout()
Me.GroupBox2.ResumeLayout(False)
@@ -1751,6 +1751,7 @@ Partial Class usrCntlZOLLAuswertungen
Me.tbcntr.ResumeLayout(False)
Me.TabPage1.ResumeLayout(False)
Me.TabPage1.PerformLayout()
CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox8.ResumeLayout(False)
Me.GroupBox8.PerformLayout()
@@ -1767,7 +1768,6 @@ Partial Class usrCntlZOLLAuswertungen
Me.TabPage4.ResumeLayout(False)
Me.pnl.ResumeLayout(False)
Me.pnl.PerformLayout()
CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub

4
SDL/zoll/usrCntlZOLLAuswertungen.vb
View File

@@ -506,4 +506,8 @@ Public Class usrCntlZOLLAuswertungen
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
End Sub
Private Sub UsrCntlAuswertungenFiskal_IntrastatMeldung1_Load(sender As Object, e As EventArgs) Handles UsrCntlAuswertungenFiskal_IntrastatMeldung1.Load
End Sub
End Class