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

Merge branch 'master' of https://verag.visualstudio.com/SDL/_git/SDL

Browse Source
This commit is contained in:
ms
2019-09-10 16:55:25 +02:00
parent 18e9a06de5 021cce6f04
commit 5c4fce107f
78 changed files with 13550 additions and 970 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

1
SDL/Fakturierung/frmFaktEmail.Designer.vb generated
View File

@@ -465,7 +465,6 @@ Partial Class frmFaktEmail
Me.Button4.Text = "Daten im Kunden-" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Stamm speichern"
Me.Button4.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button4.UseVisualStyleBackColor = True
Me.Button4.Visible = False
'
'frmFaktEmail
'

58
SDL/Fakturierung/frmFaktEmail.vb
View File

@@ -85,7 +85,7 @@ Public Class frmFaktEmail
If SR Then
AD = New VERAG_PROG_ALLGEMEIN.cAdressen(KdNr)
FISKAL = New cFiskal_Daten(RECHNUNG.RechnungsKundenNr)
FISKAL = New cFiskal_Daten(KdNr)
setMailText(AD.LandKz)
initList()
cbxStb.Enabled = True : cbxStb.Checked = True
@@ -181,6 +181,7 @@ Public Class frmFaktEmail
End Sub
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
Dim abfNr = ""
If SR Then
Try
@@ -210,9 +211,7 @@ Public Class frmFaktEmail
Mail.Subject = txtSubject.Text
Dim TextHTML = "<div style=""font-family:Calibri, Arial"">" & RichTextBox.Text.Replace(ControlChars.Lf, "<br>") & cFakturierung.getSignature(AD.LandKz, Firma_ID) & "</div>"
Mail.HTMLBody = TextHTML
'Mail-Adressen eintragen
'-----------------------------------------------------------------
@@ -227,8 +226,14 @@ Public Class frmFaktEmail
Next
Mail.HTMLBody = Mail.HTMLBody.Replace("%RgNr%", lastAktuelle_RgNr)
Mail.Subject = Mail.Subject.Replace("%RgNr%", lastAktuelle_RgNr)
RichTextBox.Text = RichTextBox.Text.Replace("%RgNr%", lastAktuelle_RgNr)
txtSubject.Text = txtSubject.Text.Replace("%RgNr%", lastAktuelle_RgNr)
Dim TextHTML = "<div style=""font-family:Calibri, Arial"">" & RichTextBox.Text.Replace(ControlChars.Lf, "<br>") & cFakturierung.getSignature(AD.LandKz, Firma_ID) & "</div>"
Mail.HTMLBody = TextHTML
Mail.Subject = txtSubject.Text
ATTACHMENTS.Clear()
'-----------------------------------------------------------------
@@ -254,7 +259,7 @@ Public Class frmFaktEmail
Mail.Display()
'------------------------------------------------------------------------------------------
' STB /FA
send_StbFAMail(AD.AdressenNr)
send_StbFAMail(AD.AdressenNr, " Rg-Nr.: " & lastAktuelle_RgNr)
'------------------------------------------------------------------------------------------
End If
@@ -265,18 +270,14 @@ Public Class frmFaktEmail
Else
If RECHNUNG.Status <> 0 OrElse vbYes = MsgBox("Möchten Sie das PDF als Mail-Anhang erstellen?" & vbNewLine & "Es wird eine Rechnungsnummer vergeben, die Rechnung gilt somit als gedruckt und kann nicht mehr bearbeitet werden.", vbYesNoCancel) Then
abfNr = " Pos-Nr.: " & RECHNUNG.FilialenNr & "-" & RECHNUNG.AbfertigungsNr & "-" & RECHNUNG.SpeditionsbuchUnterNr
Try
Dim outl As New Outlook.Application
Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
Mail = outl.CreateItem(0)
Mail.Subject = txtSubject.Text
Dim TextHTML = "<div style=""font-family:Calibri, Arial"">" & RichTextBox.Text.Replace(ControlChars.Lf, "<br>") & cFakturierung.getSignature(RECHNUNG) & "</div>"
Mail.HTMLBody = TextHTML
'Mail-Adressen eintragen
'-----------------------------------------------------------------
For Each r In dgvEmail.Rows
@@ -298,8 +299,20 @@ Public Class frmFaktEmail
RechnungsNr = RECHNUNG.RechnungsNr
If pathRG <> "" Then ATTACHMENTS.Add(New cFakt_MailATTach(pathRG, "Rechnung.pdf"))
Mail.HTMLBody = Mail.HTMLBody.Replace("%RgNr%", RECHNUNG.RechnungsNr)
Mail.Subject = Mail.Subject.Replace("%RgNr%", RECHNUNG.RechnungsNr)
RichTextBox.Text = RichTextBox.Text.Replace("%RgNr%", RechnungsNr)
txtSubject.Text = txtSubject.Text.Replace("%RgNr%", RechnungsNr) & abfNr
Dim TextHTML = "<div style=""font-family:Calibri, Arial"">" & RichTextBox.Text.Replace(ControlChars.Lf, "<br>") & cFakturierung.getSignature(RECHNUNG) & "</div>"
Mail.HTMLBody = TextHTML
Mail.Subject = txtSubject.Text
' Mail.HTMLBody = Mail.HTMLBody.Replace("%RgNr%", RECHNUNG.RechnungsNr)
' Mail.Subject = Mail.Subject.Replace("%RgNr%", RECHNUNG.RechnungsNr & abfNr)
'-----------------------------------------------------------------
'Steuerbescheid/VDB anfügen
@@ -316,7 +329,7 @@ Public Class frmFaktEmail
'------------------------------------------------------------------------------------------
' STB /FA
send_StbFAMail(RECHNUNG.RechnungsKundenNr)
send_StbFAMail(RECHNUNG.RechnungsKundenNr, " Rg-Nr.: " & RechnungsNr & abfNr)
'------------------------------------------------------------------------------------------
Catch ex As Exception
@@ -326,8 +339,8 @@ Public Class frmFaktEmail
End If
End If
RichTextBox.Text = RichTextBox.Text.Replace("%RgNr%", RechnungsNr)
txtSubject.Text = txtSubject.Text.Replace("%RgNr%", RechnungsNr)
ATTACHMENTS.Clear()
@@ -335,7 +348,7 @@ Public Class frmFaktEmail
End Sub
Sub send_StbFAMail(KundenNr)
Sub send_StbFAMail(KundenNr, RgAbfNr)
Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(KundenNr)
Dim KD As New VERAG_PROG_ALLGEMEIN.cKunde(KundenNr)
@@ -373,7 +386,7 @@ Public Class frmFaktEmail
TextHTML &= "</div>"
Mail_StbFA.HTMLBody = TextHTML
Mail_StbFA.Subject = "Meldung innergemeinschaftlicher Erwerb - " & AD.Ordnungsbegriff
Mail_StbFA.Subject = "Meldung innergemeinschaftlicher Erwerb - " & AD.Ordnungsbegriff & RgAbfNr
If txtSteuerberaterEmail.Text <> "" Then
Mail_StbFA.To = txtSteuerberaterEmail.Text
@@ -414,7 +427,6 @@ Public Class frmFaktEmail
Next
End Sub
Sub getAnhaengeSingle()
ATTACHMENTS.Clear()
If cbxStbMitt.Checked Then 'AT
If cbxStbMitt.Checked Then ATTACHMENTS.Add(New cFakt_MailATTach(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(SPEDBUCH.DokumentId_Mitteilung), "Abgabenbescheid.pdf"))
If cbxStb.Checked Then ATTACHMENTS.Add(New cFakt_MailATTach(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(SPEDBUCH.DokumentId_Steuerbeleg), "Verzollungsnachweis.pdf"))
@@ -516,6 +528,14 @@ Public Class frmFaktEmail
Private Sub cbxFAEmail_CheckedChanged(sender As Object, e As EventArgs) Handles cbxFAEmail.CheckedChanged
txtFAEmail.Enabled = sender.checked
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
If KdNr <= 0 Then Exit Sub
Dim FISKAL As New cFiskal_Daten(KdNr)
FISKAL.fisk_schreibenSB_Mail = txtSteuerberaterEmail.Text
FISKAL.fisk_schreibenFA_Mail = txtFAEmail.Text
FISKAL.SAVE()
End Sub
End Class

7
SDL/Fakturierung/frmFaktSammelRgDrucken.vb
View File

@@ -55,7 +55,7 @@ Public Class frmFaktSammelRgDrucken
Sub initDGV()
With MyDatagridview1
Dim sqlStr = " SELECT Rechnungsausgang.RechnungsKundenNr, max(Rechnungsausgang.[RechnungsName 1]) as [RechnungsName 1]," & If(Sammelrechung = 7, "AvisoId", "0") & " as AvisoId,max(Rechnungsausgang.[RechnungsLandKz]) as [RechnungsLandKz] , count(*) as Anzahl
Dim sqlStr = " SELECT Rechnungsausgang.RechnungsKundenNr, max(Rechnungsausgang.[RechnungsName 1]) as [RechnungsName 1]," & If(Sammelrechung = 7, "AvisoId", "0") & " as AvisoId,max(Rechnungsausgang.[RechnungsLandKz]) as [RechnungsLandKz] , count(*) as Anzahl" & If(Sammelrechung = 7, ",max([LKW Kennzeichen]) as LKW", "") & "
FROM Rechnungsausgang
WHERE Rechnungsausgang.Status IN (0,2) And Rechnungsausgang.Firma_ID = '" & cboFirma._value & "' And Rechnungsausgang.Sammelrechnung = '" & Sammelrechung & "' And CONVERT(DATE,Rechnungsausgang.Abfertigungsdatum,104) <= '" & txtZeitraumBis._value & "'
" & If(Sammelrechung = 7 And cboSB._value <> "", " AND Sachbearbeiter='" & cboSB._value & "' ", "") & "
@@ -71,6 +71,11 @@ Public Class frmFaktSammelRgDrucken
.Columns("Anzahl").Width = 42
.Columns("Anzahl").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
.Columns(2).Visible = False
If .Columns.Count = 6 Then
.Columns("LKW").Width = 80
End If
.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
.ClearSelection()
End With

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)

47
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungsunterlagen_BAR.Designer.vb generated
View File

@@ -41,6 +41,7 @@ Partial Class usrcntlVerzollungsunterlagen_BAR
Me.cboTEXT = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label12 = New System.Windows.Forms.Label()
Me.cboSprache = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cbx = New System.Windows.Forms.CheckBox()
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
@@ -60,7 +61,7 @@ Partial Class usrcntlVerzollungsunterlagen_BAR
Me.lbl.Location = New System.Drawing.Point(170, 63)
Me.lbl.Name = "lbl"
Me.lbl.Size = New System.Drawing.Size(78, 13)
Me.lbl.TabIndex = 11
Me.lbl.TabIndex = 14
Me.lbl.Text = "Firmenwortlaut:"
'
'Label6
@@ -69,7 +70,7 @@ Partial Class usrcntlVerzollungsunterlagen_BAR
Me.Label6.Location = New System.Drawing.Point(170, 37)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(76, 13)
Me.Label6.TabIndex = 5
Me.Label6.TabIndex = 3
Me.Label6.Text = "Filiale/Pos.Nr::"
'
'txtAdresse1
@@ -91,7 +92,7 @@ Partial Class usrcntlVerzollungsunterlagen_BAR
Me.txtAdresse1.MaxLines_Warning_Label = Nothing
Me.txtAdresse1.Name = "txtAdresse1"
Me.txtAdresse1.Size = New System.Drawing.Size(709, 20)
Me.txtAdresse1.TabIndex = 14
Me.txtAdresse1.TabIndex = 16
'
'pic
'
@@ -113,7 +114,7 @@ Partial Class usrcntlVerzollungsunterlagen_BAR
Me.btnDown.Location = New System.Drawing.Point(976, 42)
Me.btnDown.Name = "btnDown"
Me.btnDown.Size = New System.Drawing.Size(25, 21)
Me.btnDown.TabIndex = 10
Me.btnDown.TabIndex = 12
Me.btnDown.UseVisualStyleBackColor = True
'
'btnUp
@@ -125,7 +126,7 @@ Partial Class usrcntlVerzollungsunterlagen_BAR
Me.btnUp.Location = New System.Drawing.Point(976, 22)
Me.btnUp.Name = "btnUp"
Me.btnUp.Size = New System.Drawing.Size(25, 21)
Me.btnUp.TabIndex = 4
Me.btnUp.TabIndex = 8
Me.btnUp.UseVisualStyleBackColor = True
'
'btnDel
@@ -161,7 +162,7 @@ Partial Class usrcntlVerzollungsunterlagen_BAR
Me.txtFirma.nurAktive = True
Me.txtFirma.searchActive = True
Me.txtFirma.Size = New System.Drawing.Size(709, 20)
Me.txtFirma.TabIndex = 12
Me.txtFirma.TabIndex = 15
Me.txtFirma.usrcntl = Nothing
'
'cboFiliale
@@ -174,7 +175,7 @@ Partial Class usrcntlVerzollungsunterlagen_BAR
Me.cboFiliale.Location = New System.Drawing.Point(254, 34)
Me.cboFiliale.Name = "cboFiliale"
Me.cboFiliale.Size = New System.Drawing.Size(67, 21)
Me.cboFiliale.TabIndex = 6
Me.cboFiliale.TabIndex = 4
'
'txtAbfertigungsnummer
'
@@ -196,7 +197,7 @@ Partial Class usrcntlVerzollungsunterlagen_BAR
Me.txtAbfertigungsnummer.Multiline = True
Me.txtAbfertigungsnummer.Name = "txtAbfertigungsnummer"
Me.txtAbfertigungsnummer.Size = New System.Drawing.Size(244, 21)
Me.txtAbfertigungsnummer.TabIndex = 7
Me.txtAbfertigungsnummer.TabIndex = 5
'
'cboRechnungAn
'
@@ -207,7 +208,7 @@ Partial Class usrcntlVerzollungsunterlagen_BAR
Me.cboRechnungAn.Location = New System.Drawing.Point(780, 34)
Me.cboRechnungAn.Name = "cboRechnungAn"
Me.cboRechnungAn.Size = New System.Drawing.Size(183, 21)
Me.cboRechnungAn.TabIndex = 9
Me.cboRechnungAn.TabIndex = 10
'
'Label1
'
@@ -215,7 +216,7 @@ Partial Class usrcntlVerzollungsunterlagen_BAR
Me.Label1.Location = New System.Drawing.Point(733, 37)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(41, 13)
Me.Label1.TabIndex = 8
Me.Label1.TabIndex = 9
Me.Label1.Text = "Kunde:"
'
'cboSpedBuchUnterNr
@@ -229,7 +230,7 @@ Partial Class usrcntlVerzollungsunterlagen_BAR
Me.cboSpedBuchUnterNr.Margin = New System.Windows.Forms.Padding(2)
Me.cboSpedBuchUnterNr.Name = "cboSpedBuchUnterNr"
Me.cboSpedBuchUnterNr.Size = New System.Drawing.Size(71, 21)
Me.cboSpedBuchUnterNr.TabIndex = 31
Me.cboSpedBuchUnterNr.TabIndex = 6
'
'Button1
'
@@ -239,7 +240,7 @@ Partial Class usrcntlVerzollungsunterlagen_BAR
Me.Button1.Location = New System.Drawing.Point(639, 21)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(83, 34)
Me.Button1.TabIndex = 32
Me.Button1.TabIndex = 7
Me.Button1.Text = "Daten laden"
Me.Button1.UseVisualStyleBackColor = False
'
@@ -249,7 +250,7 @@ Partial Class usrcntlVerzollungsunterlagen_BAR
Me.Label2.Location = New System.Drawing.Point(170, 109)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(31, 13)
Me.Label2.TabIndex = 33
Me.Label2.TabIndex = 17
Me.Label2.Text = "Text:"
'
'cboTEXT
@@ -261,7 +262,7 @@ Partial Class usrcntlVerzollungsunterlagen_BAR
Me.cboTEXT.Location = New System.Drawing.Point(254, 106)
Me.cboTEXT.Name = "cboTEXT"
Me.cboTEXT.Size = New System.Drawing.Size(183, 21)
Me.cboTEXT.TabIndex = 34
Me.cboTEXT.TabIndex = 18
'
'Label12
'
@@ -269,7 +270,7 @@ Partial Class usrcntlVerzollungsunterlagen_BAR
Me.Label12.Location = New System.Drawing.Point(44, 44)
Me.Label12.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(50, 13)
Me.Label12.TabIndex = 35
Me.Label12.TabIndex = 11
Me.Label12.Text = "Sprache:"
'
'cboSprache
@@ -281,7 +282,19 @@ Partial Class usrcntlVerzollungsunterlagen_BAR
Me.cboSprache.Location = New System.Drawing.Point(47, 60)
Me.cboSprache.Name = "cboSprache"
Me.cboSprache.Size = New System.Drawing.Size(89, 21)
Me.cboSprache.TabIndex = 36
Me.cboSprache.TabIndex = 13
'
'cbx
'
Me.cbx.AutoSize = True
Me.cbx.Checked = True
Me.cbx.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbx.Location = New System.Drawing.Point(639, 5)
Me.cbx.Name = "cbx"
Me.cbx.Size = New System.Drawing.Size(135, 17)
Me.cbx.TabIndex = 1
Me.cbx.Text = "Anhänge zurücksetzen"
Me.cbx.UseVisualStyleBackColor = True
'
'usrcntlVerzollungsunterlagen_BAR
'
@@ -308,6 +321,7 @@ Partial Class usrcntlVerzollungsunterlagen_BAR
Me.Controls.Add(Me.cboFiliale)
Me.Controls.Add(Me.txtAbfertigungsnummer)
Me.Controls.Add(Me.Label6)
Me.Controls.Add(Me.cbx)
Me.Name = "usrcntlVerzollungsunterlagen_BAR"
Me.Size = New System.Drawing.Size(1000, 147)
CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
@@ -334,4 +348,5 @@ Partial Class usrcntlVerzollungsunterlagen_BAR
Friend WithEvents cboTEXT As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Label12 As Label
Friend WithEvents cboSprache As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents cbx As CheckBox
End Class

37
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungsunterlagen_BAR.vb
View File

@@ -80,6 +80,7 @@
cboTEXT.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
cboTEXT.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT Fiskal", "AT_FISKAL"))
cboTEXT.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Fiskal", "DE_FISKAL"))
cboTEXT.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EV Verzollung", "EV"))
' cboFiliale.fillWithSQL(" SELECT FilialenNr, Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", , "FMZOLL", True)
@@ -120,13 +121,15 @@
End Sub
Private Sub cboRechnungAn_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboRechnungAn.SelectedIndexChanged
Select Case cboRechnungAn._value
Case "1" : loadAdressen(SPEDBUCH.AbsenderKundenNr)
Case "2" : loadAdressen(SPEDBUCH.EmpfängerKundenNr)
Case "3" : loadAdressen(SPEDBUCH.VermittlerKundenNr)
Case "4" : loadAdressen(SPEDBUCH.AvisiererKundenNr)
Case Else : loadAdressen(-1)
End Select
If SPEDBUCH IsNot Nothing Then
Select Case cboRechnungAn._value
Case "1" : loadAdressen(SPEDBUCH.AbsenderKundenNr)
Case "2" : loadAdressen(SPEDBUCH.EmpfängerKundenNr)
Case "3" : loadAdressen(SPEDBUCH.VermittlerKundenNr)
Case "4" : loadAdressen(SPEDBUCH.AvisiererKundenNr)
Case Else : loadAdressen(-1)
End Select
End If
End Sub
Sub loadAdressen(KdNr)
@@ -144,21 +147,16 @@
End If
End Sub
Private Sub txtAbfertigungsNr_TextChanged(sender As Object, e As EventArgs) Handles txtAbfertigungsnummer.Leave
If txtAbfertigungsnummer.Text.Length >= 8 And cboFiliale._value <> "" Then
Private Sub txtAbfertigungsNr_TextChanged(sender As Object, e As EventArgs) Handles txtAbfertigungsnummer.Leave, txtAbfertigungsnummer.Leave
If txtAbfertigungsnummer.Text.Length >= 8 And cboFiliale._value <> "" And cboSpedBuchUnterNr._value <> "" Then
If cboRechnungAn._value = "" Then cboRechnungAn.changeItem("2")
End If
End Sub
Sub loadData()
Dim Spedbuch As New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch()
End Sub
Private Sub txtAbfertigungsnummer_Leave(sender As Object, e As EventArgs) Handles txtAbfertigungsnummer.Leave
If IsNumeric(txtAbfertigungsnummer.Text) AndAlso txtAbfertigungsnummer.Text.Length <= 6 Then
@@ -224,9 +222,14 @@
Dim SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch = Nothing
Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
Dim FORMULARE As frmFormulare = Me.FindForm
If cbx.Checked Then FORMULARE.clearExceptMe(Me)
SPEDBUCH = Nothing
SPEDBUCH = New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch(cboFiliale._value, txtAbfertigungsnummer.Text, cboSpedBuchUnterNr._value) 'txtUnterNr.Text)
If Not SPEDBUCH.hasEntry Then Exit Sub
Dim FORMULARE As frmFormulare = Me.FindForm
If cboRechnungAn._value = "" Then cboRechnungAn.changeItem("2")
If SPEDBUCH.DokumentId_Steuerbeleg IsNot Nothing AndAlso SPEDBUCH.DokumentId_Steuerbeleg.ToString <> "" Then
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(SPEDBUCH.DokumentId_Steuerbeleg)
@@ -239,10 +242,12 @@
txtFirma.Focus() ' Leave
Select Case SPEDBUCH.Abfertigungsart
Case "26", "38"
Case "26"
cboTEXT.changeItem("AT_FISKAL")
Case "28" 'DE
cboTEXT.changeItem("DE_FISKAL")
Case "38" 'EV
cboTEXT.changeItem("EV")
End Select
End Sub

239
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungsunterlagen_Verbringsungsnachweis.Designer.vb generated Normal file
View File

@@ -0,0 +1,239 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class usrcntlVerzollungsunterlagen_Verbringsungsnachweis
Inherits System.Windows.Forms.UserControl
'UserControl ü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()
Me.lblVollmachtDE = New System.Windows.Forms.Label()
Me.lbl = New System.Windows.Forms.Label()
Me.txtAdresse1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.pic = New System.Windows.Forms.PictureBox()
Me.btnDown = New System.Windows.Forms.Button()
Me.btnUp = New System.Windows.Forms.Button()
Me.btnDel = New System.Windows.Forms.Button()
Me.txtFirma = New VERAG_PROG_ALLGEMEIN.KdSearchBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.cboTEXT = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.txtvbnr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label1 = New System.Windows.Forms.Label()
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'lblVollmachtDE
'
Me.lblVollmachtDE.AutoSize = True
Me.lblVollmachtDE.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblVollmachtDE.Location = New System.Drawing.Point(43, 9)
Me.lblVollmachtDE.Name = "lblVollmachtDE"
Me.lblVollmachtDE.Size = New System.Drawing.Size(191, 20)
Me.lblVollmachtDE.TabIndex = 2
Me.lblVollmachtDE.Text = "Gelangensbestätigung"
'
'lbl
'
Me.lbl.AutoSize = True
Me.lbl.Location = New System.Drawing.Point(170, 40)
Me.lbl.Name = "lbl"
Me.lbl.Size = New System.Drawing.Size(78, 13)
Me.lbl.TabIndex = 11
Me.lbl.Text = "Firmenwortlaut:"
'
'txtAdresse1
'
Me.txtAdresse1._DateTimeOnly = False
Me.txtAdresse1._numbersOnly = False
Me.txtAdresse1._numbersOnlyKommastellen = ""
Me.txtAdresse1._Prozent = False
Me.txtAdresse1._ShortDateNew = False
Me.txtAdresse1._ShortDateOnly = False
Me.txtAdresse1._TimeOnly = False
Me.txtAdresse1._value = Nothing
Me.txtAdresse1._Waehrung = False
Me.txtAdresse1._WaehrungZeichen = True
Me.txtAdresse1.ForeColor = System.Drawing.Color.Black
Me.txtAdresse1.Location = New System.Drawing.Point(254, 57)
Me.txtAdresse1.MaxLineLength = -1
Me.txtAdresse1.MaxLines_Warning = ""
Me.txtAdresse1.MaxLines_Warning_Label = Nothing
Me.txtAdresse1.Name = "txtAdresse1"
Me.txtAdresse1.Size = New System.Drawing.Size(709, 20)
Me.txtAdresse1.TabIndex = 14
'
'pic
'
Me.pic.BackgroundImage = Global.SDL.My.Resources.Resources.pdf
Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
Me.pic.Cursor = System.Windows.Forms.Cursors.Hand
Me.pic.Location = New System.Drawing.Point(5, 5)
Me.pic.Name = "pic"
Me.pic.Size = New System.Drawing.Size(32, 32)
Me.pic.TabIndex = 30
Me.pic.TabStop = False
'
'btnDown
'
Me.btnDown.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnDown.BackgroundImage = Global.SDL.My.Resources.Resources.pfeil_unten
Me.btnDown.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.btnDown.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnDown.Location = New System.Drawing.Point(976, 42)
Me.btnDown.Name = "btnDown"
Me.btnDown.Size = New System.Drawing.Size(25, 21)
Me.btnDown.TabIndex = 10
Me.btnDown.UseVisualStyleBackColor = True
'
'btnUp
'
Me.btnUp.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnUp.BackgroundImage = Global.SDL.My.Resources.Resources.pfeil_oben
Me.btnUp.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.btnUp.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnUp.Location = New System.Drawing.Point(976, 22)
Me.btnUp.Name = "btnUp"
Me.btnUp.Size = New System.Drawing.Size(25, 21)
Me.btnUp.TabIndex = 4
Me.btnUp.UseVisualStyleBackColor = True
'
'btnDel
'
Me.btnDel.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnDel.BackgroundImage = Global.SDL.My.Resources.Resources.del
Me.btnDel.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.btnDel.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnDel.Location = New System.Drawing.Point(976, -1)
Me.btnDel.Name = "btnDel"
Me.btnDel.Size = New System.Drawing.Size(25, 21)
Me.btnDel.TabIndex = 0
Me.btnDel.UseVisualStyleBackColor = True
'
'txtFirma
'
Me.txtFirma._AllowSetValue = True
Me.txtFirma._autoSizeGross = False
Me.txtFirma._display_Name1 = True
Me.txtFirma._displayAVISO_Email = False
Me.txtFirma._displayFullName = False
Me.txtFirma._displayWoelflKd = False
Me.txtFirma._hideIfListEmpty = True
Me.txtFirma._loadKdData = True
Me.txtFirma._ValueKdAndName = False
Me.txtFirma.dgvpos = "LEFT"
Me.txtFirma.KdName = Nothing
Me.txtFirma.KdNr = "-1"
Me.txtFirma.kdNrField = Nothing
Me.txtFirma.KdNrNullInt = Nothing
Me.txtFirma.Location = New System.Drawing.Point(254, 38)
Me.txtFirma.Name = "txtFirma"
Me.txtFirma.nurAktive = True
Me.txtFirma.searchActive = True
Me.txtFirma.Size = New System.Drawing.Size(709, 20)
Me.txtFirma.TabIndex = 12
Me.txtFirma.usrcntl = Nothing
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(170, 86)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(31, 13)
Me.Label2.TabIndex = 33
Me.Label2.Text = "Text:"
'
'cboTEXT
'
Me.cboTEXT._allowedValuesFreiText = Nothing
Me.cboTEXT._allowFreiText = False
Me.cboTEXT._value = ""
Me.cboTEXT.FormattingEnabled = True
Me.cboTEXT.Location = New System.Drawing.Point(254, 83)
Me.cboTEXT.Name = "cboTEXT"
Me.cboTEXT.Size = New System.Drawing.Size(183, 21)
Me.cboTEXT.TabIndex = 34
'
'txtvbnr
'
Me.txtvbnr._DateTimeOnly = False
Me.txtvbnr._numbersOnly = True
Me.txtvbnr._numbersOnlyKommastellen = ""
Me.txtvbnr._Prozent = False
Me.txtvbnr._ShortDateNew = False
Me.txtvbnr._ShortDateOnly = False
Me.txtvbnr._TimeOnly = False
Me.txtvbnr._value = ""
Me.txtvbnr._Waehrung = False
Me.txtvbnr._WaehrungZeichen = True
Me.txtvbnr.ForeColor = System.Drawing.Color.Black
Me.txtvbnr.Location = New System.Drawing.Point(748, 83)
Me.txtvbnr.MaxLineLength = -1
Me.txtvbnr.MaxLines_Warning = ""
Me.txtvbnr.MaxLines_Warning_Label = Nothing
Me.txtvbnr.Name = "txtvbnr"
Me.txtvbnr.ReadOnly = True
Me.txtvbnr.Size = New System.Drawing.Size(215, 20)
Me.txtvbnr.TabIndex = 14
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(718, 86)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(24, 13)
Me.Label1.TabIndex = 35
Me.Label1.Text = "Nr.:"
'
'usrcntlVerzollungsunterlagen_Verbringsungsnachweis
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.WhiteSmoke
Me.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.cboTEXT)
Me.Controls.Add(Me.txtFirma)
Me.Controls.Add(Me.btnDown)
Me.Controls.Add(Me.btnUp)
Me.Controls.Add(Me.btnDel)
Me.Controls.Add(Me.pic)
Me.Controls.Add(Me.txtvbnr)
Me.Controls.Add(Me.txtAdresse1)
Me.Controls.Add(Me.lbl)
Me.Controls.Add(Me.lblVollmachtDE)
Me.Name = "usrcntlVerzollungsunterlagen_Verbringsungsnachweis"
Me.Size = New System.Drawing.Size(1000, 132)
CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents lblVollmachtDE As System.Windows.Forms.Label
Friend WithEvents lbl As System.Windows.Forms.Label
Friend WithEvents txtAdresse1 As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents pic As System.Windows.Forms.PictureBox
Friend WithEvents btnDown As System.Windows.Forms.Button
Friend WithEvents btnUp As System.Windows.Forms.Button
Friend WithEvents btnDel As System.Windows.Forms.Button
Friend WithEvents txtFirma As VERAG_PROG_ALLGEMEIN.KdSearchBox
Friend WithEvents Label2 As Label
Friend WithEvents cboTEXT As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents txtvbnr As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label1 As Label
End Class

120
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungsunterlagen_Verbringsungsnachweis.resx Normal file
View File

@@ -0,0 +1,120 @@
<?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>
</root>

127
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungsunterlagen_Verbringsungsnachweis.vb Normal file
View File

@@ -0,0 +1,127 @@
Public Class usrcntlVerzollungsunterlagen_Verbringsungsnachweis
Implements FormualrInterface
Public Event CHANGED(name, value)
Public Event KDNR_CHANGED(kdnr)
Public Event DELETE(c As Control)
Public Event MOVE_UP(c As Control)
Public Event MOVE_DOWN(c As Control)
Public KdNR As Integer = -1
Public Path As String = ""
Public VBNr As Integer = -1
Public Sub ChangeKDNr(kdnr As Integer) _
Implements FormualrInterface.ChangeKDNr
'initKdNR(kdnr)
txtFirma.KdNr = kdnr
End Sub
'Dim KdNR As Integer = -1
Sub initControlsHandler()
For Each c In Me.Controls
Select Case c.GetType.ToString
Case GetType(VERAG_PROG_ALLGEMEIN.MyTextBox).ToString
AddHandler DirectCast(c, VERAG_PROG_ALLGEMEIN.MyTextBox).Leave, Sub()
RaiseEvent CHANGED(c.name, c.text)
End Sub
Case GetType(VERAG_PROG_ALLGEMEIN.MyComboBox).ToString
AddHandler DirectCast(c, VERAG_PROG_ALLGEMEIN.MyComboBox).SelectedIndexChanged, Sub()
RaiseEvent CHANGED(c.name, c._value)
End Sub
Case GetType(TextBox).ToString
AddHandler DirectCast(c, TextBox).Leave, Sub()
RaiseEvent CHANGED(c.name, c.text)
End Sub
End Select
Next
End Sub
Private Sub btnDel_Click(sender As Object, e As EventArgs) Handles btnDel.Click
RaiseEvent DELETE(Me)
End Sub
Private Sub btnup_Click(sender As Object, e As EventArgs) Handles btnUp.Click
RaiseEvent MOVE_UP(Me)
End Sub
Private Sub btnDown_Click(sender As Object, e As EventArgs) Handles btnDown.Click
RaiseEvent MOVE_DOWN(Me)
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs)
End Sub
Private Sub usrcntlVollmacht_AT_Load(sender As Object, e As EventArgs) Handles Me.Load
txtFirma.initKdBox(Me.FindForm)
AddHandler txtFirma.PropertyChanged, Sub()
Me.KdNR = txtFirma.KdNr_value
If txtFirma.KdNr_value > 0 Then
If txtFirma.KdData_ADRESSEN IsNot Nothing Then
Dim ADRESSE = txtFirma.KdData_ADRESSEN
txtFirma.Text = If(ADRESSE.Name_1, ADRESSE.Ordnungsbegriff)
txtAdresse1.Text = (If(ADRESSE.LandKz, "") & " " & If(ADRESSE.PLZ, "") & " " & If(ADRESSE.Ort, "")).ToString.Trim
End If
End If
RaiseEvent KDNR_CHANGED(KdNR)
End Sub
initControlsHandler()
If KdNR > 0 Then txtFirma.KdNr = KdNR
If VBNr > 0 Then txtvbnr.Text = VBNr
cboTEXT.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
cboTEXT.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT Fiskal (direkt)", "AT_FISKAL_DIREKT"))
cboTEXT.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT Fiskal (indirekt)", "AT_FISKAL_INDIREKT"))
cboTEXT.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Fiskal (GB)", "DE_FISKAL_GB"))
cboTEXT.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Fiskal (FR)", "DE_FISKAL_FR"))
End Sub
Private Sub pic_Click(sender As Object, e As EventArgs) Handles pic.Click
Process.Start(Path)
End Sub
Private Sub PictureBox1_Click(sender As Object, e As EventArgs)
FormularManagerNEU.genPDF(Me, , , , True)
End Sub
Sub loadAdressen(KdNr)
Me.KdNR = KdNr
If KdNr IsNot Nothing AndAlso IsNumeric(KdNr) AndAlso KdNr > 0 Then
Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(KdNr)
txtFirma.Text = If(AD.Name_1, "")
' txtFirma2.Text = If(AD.Name_2, "")
txtAdresse1.Text = If(AD.LandKz, "") & " " & If(AD.PLZ, "") & " " & If(AD.Ort, "")
Else
txtFirma.Text = ""
' txtFirma2.Text = ""
txtAdresse1.Text = ""
End If
End Sub
Sub loadData()
Dim Spedbuch As New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch()
End Sub
End Class

525
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))
@@ -290,6 +292,19 @@ Public Class frmFormulare
Next
End Sub
Public Sub clearExceptMe(usrCntl)
Dim list As New List(Of Object)
For Each o In MyFlowLayoutPanel1.Controls
If o.GetType IsNot usrCntl.GetType Then
list.Add(o)
End If
Next
For Each i In list
MyFlowLayoutPanel1.Controls.Remove(i)
Next
End Sub
Public Sub MyListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles MyListBox1.DoubleClick, MyListBox2.DoubleClick
Dim lb = DirectCast(sender, VERAG_PROG_ALLGEMEIN.MyListBox)
If lb.SelectedItems().Count = 0 Then Exit Sub
@@ -560,6 +575,19 @@ Public Class frmFormulare
AddHandler c.MOVE_UP, AddressOf ControlMoveUp
AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown
MyFlowLayoutPanel1.Controls.Add(c)
Case FormularManagerArten.Gelangensbestaetigung
' If param Is Nothing Then Exit Sub
Dim c As New usrcntlVerzollungsunterlagen_Verbringsungsnachweis
c.KdNR = param(0)
c.Path = param(1)
c.VBNr = param(2)
c.Width = MyFlowLayoutPanel1.Width - 6
c.KdNR = KdNr
AddHandler c.DELETE, AddressOf ControlDELETE
AddHandler c.MOVE_UP, AddressOf ControlMoveUp
AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown
MyFlowLayoutPanel1.Controls.Add(c)
Case FormularManagerArten.AT_InformationsblattFiskalverzollung, FormularManagerArten.DE_InformationsblattFiskalverzollung
Dim displayName = ""
' If param Is Nothing Then Exit Sub
@@ -716,12 +744,9 @@ Public Class frmFormulare
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click, btn.Click, btnPrint.Click
Me.Cursor = Cursors.WaitCursor
Dim MailHTMLText = ""
Dim Mail_To = ""
Dim Mail_CC = ""
Dim Mail_Subject = ""
Dim listMail As New List(Of FormMangagerEmail)
Try
@@ -744,13 +769,13 @@ Public Class frmFormulare
If isSingleForm And sender Is btnPrint Then 'Sofortdruck --> wir bei ActiveRepots benötigt --> schneller, als zuerst pdf....
If Not MyFlowLayoutPanel1.Controls.Count = 1 Then Me.Cursor = Cursors.Default : Exit Sub 'funkt. nur bei genau 1 Control
FormularManagerNEU.genPDF(MyFlowLayoutPanel1.Controls(0), , True, cboPrinter.SelectedItem.ToString,, MailHTMLText, Mail_To, Mail_CC, Mail_Subject)
FormularManagerNEU.genPDF(MyFlowLayoutPanel1.Controls(0), , True, cboPrinter.SelectedItem.ToString,, listMail)
Else
Dim list As New List(Of String) ' Sammlung PDFs
For Each c In MyFlowLayoutPanel1.Controls
Dim pfadList As List(Of String) = FormularManagerNEU.genPDF(c,,,,, MailHTMLText, Mail_To, Mail_CC, Mail_Subject)
Dim pfadList As List(Of String) = FormularManagerNEU.genPDF(c,,,,, listMail)
For Each pfad In pfadList
If pfad <> "" Then list.Add(pfad)
Next
@@ -835,7 +860,7 @@ Public Class frmFormulare
' MailMessage.From = New MailAddress("someone@yourdomain.com")
MailMessage.Subject = "" ' "Your subject here"
MailMessage.IsBodyHtml = True
MailMessage.Body = MailHTMLText '"<span style='font-size: 12pt; color: red;'>My HTML formatted body</span>"
' MailMessage.Body = MailHTMLText '"<span style='font-size: 12pt; color: red;'>My HTML formatted body</span>"
MailMessage.Attachments.Add(New Attachment(dest_path))
@@ -866,18 +891,34 @@ Public Class frmFormulare
' Else
' Dim outl = CreateObject("Outlook.Application")
' Dim Mail = CreateObject("Microsoft.Office.Interop.Outlook.MailItem")
Dim outl As New Outlook.Application
Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
Mail = outl.CreateItem(0)
If MailHTMLText <> "" Then Mail.HTMLBody = MailHTMLText
If Mail_To <> "" Then Mail.To = Mail_To
If Mail_CC <> "" Then Mail.CC = Mail_CC
If Mail_Subject <> "" Then Mail.Subject = Mail_Subject
If listMail IsNot Nothing AndAlso listMail.Count > 0 Then
For Each l In listMail
Dim outl As New Outlook.Application
Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
Mail = outl.CreateItem(0)
If l.MailHTMLText <> "" Then Mail.HTMLBody = l.MailHTMLText
If l.Mail_To <> "" Then Mail.To = l.Mail_To
If l.Mail_CC <> "" Then Mail.CC = l.Mail_CC
If l.Mail_BCC <> "" Then Mail.CC = l.Mail_BCC
If l.Mail_Subject <> "" Then Mail.Subject = l.Mail_Subject
Mail.Attachments.Add(dest_path, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , "VERAG_Formular.pdf")
Mail.Display()
Mail.Attachments.Add(dest_path, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , "VERAG_Formular.pdf")
Mail.Display()
Next
Else
Dim outl As New Outlook.Application
Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
Mail = outl.CreateItem(0)
Mail.Attachments.Add(dest_path, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , "VERAG_Formular.pdf")
Mail.Display()
End If
'Dim matilPath = "C:\TEMP\VERAG_Mail.msg"
' Mail.SaveAs(matilPath)
@@ -1055,7 +1096,7 @@ End Class
Public Class FormularManagerNEU
Shared VSQL As New VERAG_PROG_ALLGEMEIN.SQL
Shared Function genPDF(c As Control, Optional open As Boolean = False, Optional printReportElsePdf As Boolean = False, Optional printerName As String = "", Optional openWord As Boolean = False, Optional ByRef MailHTMLText As String = "", Optional ByRef Mail_To As String = "", Optional ByRef Mail_CC As String = "", Optional ByRef Mail_Subject As String = "") As List(Of String)
Shared Function genPDF(c As Control, Optional open As Boolean = False, Optional printReportElsePdf As Boolean = False, Optional printerName As String = "", Optional openWord As Boolean = False, Optional ByRef listMail As List(Of FormMangagerEmail) = Nothing) As List(Of String)
Dim retStr = ""
Dim striList As New List(Of String)
Select Case c.GetType.ToString
@@ -1102,7 +1143,9 @@ Public Class FormularManagerNEU
Case GetType(usrcntlVerzollungsunterlagen).ToString
striList = FormularManagerNEU.Verzollungsunterlagen(c, printReportElsePdf, printerName, openWord)
Case GetType(usrcntlVerzollungsunterlagen_BAR).ToString
striList = FormularManagerNEU.VerzollungsunterlagenBAR(c, MailHTMLText, Mail_To, Mail_CC, Mail_Subject)
striList = FormularManagerNEU.VerzollungsunterlagenBAR(c, listMail)
Case GetType(usrcntlVerzollungsunterlagen_Verbringsungsnachweis).ToString
striList = FormularManagerNEU.Verzollungsunterlagen_Verbringungsnachweis(c, listMail)
Case GetType(usrcntlQS_UeDok).ToString
retStr = FormularManagerNEU.QS_UeDok(c)
@@ -2724,10 +2767,233 @@ Public Class FormularManagerNEU
End Function
Shared Function VerzollungsunterlagenBAR(usrCntl As usrcntlVerzollungsunterlagen_BAR, ByRef MailHTMLText As String, ByRef Mail_To As String, ByRef Mail_CC As String, ByRef Mail_Subject As String) As List(Of String)
Shared Function VerzollungsunterlagenBAR(usrCntl As usrcntlVerzollungsunterlagen_BAR, ByRef listMail As List(Of FormMangagerEmail)) As List(Of String)
Try
Dim MailHTMLText = ""
Dim Mail_Subject = ""
Dim MailHTMLText_STBFA = ""
Dim Mail_Subject_STBFA = ""
Dim mail_To = ""
Dim mail_To_Stb = ""
Dim mail_To_FA = ""
Dim AD As VERAG_PROG_ALLGEMEIN.cAdressen = Nothing
Dim KD As VERAG_PROG_ALLGEMEIN.cKunde = Nothing
If usrCntl.KdNR > 0 Then
AD = New VERAG_PROG_ALLGEMEIN.cAdressen(usrCntl.KdNR)
KD = New VERAG_PROG_ALLGEMEIN.cKunde(usrCntl.KdNR)
If AD IsNot Nothing AndAlso AD.E_Mail <> "" Then
mail_To = AD.E_Mail
End If
Dim FISKAL As New cFiskal_Daten(usrCntl.KdNR)
If FISKAL IsNot Nothing Then
mail_To_Stb = If(FISKAL.fisk_schreibenSB_Mail, "")
mail_To_FA = If(FISKAL.fisk_schreibenFA_Mail, "")
End If
End If
Dim posNr = usrCntl.cboFiliale._value & "/" & usrCntl.txtAbfertigungsnummer.Text
If posNr = "/" Then
posNr = ""
Else
posNr = " Pos.Nr.: " & posNr
End If
Dim bool_StbFA = False
MailHTMLText = "<div style=""font-family:Calibri, Arial"">"
MailHTMLText_STBFA = "<div style=""font-family:Calibri, Arial"">"
Mail_Subject_STBFA = "Meldung innergemeinschaftlicher Erwerb" & posNr
MailHTMLText_STBFA &= "<b><table style=""font-family:Calibri, Arial;font-weight:bold"">"
MailHTMLText_STBFA &= "<tr><td>EORI-Nr.:</td><td>" & If(KD IsNot Nothing, If(KD.EORITIN, ""), "") & "</td></tr>"
MailHTMLText_STBFA &= "<tr><td>UID-Nr.:</td><td>" & If(AD IsNot Nothing, If(AD.UstIdKz, ""), "") & If(AD IsNot Nothing, If(AD.UstIdNr, ""), "") & "</td></tr>"
MailHTMLText_STBFA &= "<tr><td>Firma:</td><td>" & If(AD IsNot Nothing, AD.Name_1, "") & If(AD IsNot Nothing, If(AD.Name_2, ""), "") & "</td></tr>"
Try : MailHTMLText_STBFA &= "<tr><td></td><td>" & If(AD IsNot Nothing, AD.Straße, "") & "</td></tr>" : Catch ex As Exception : End Try
Try : MailHTMLText_STBFA &= "<tr><td></td><td>" & If(AD IsNot Nothing, AD.LandKz, "") & " " & If(AD IsNot Nothing, AD.PLZ, "") & " " & If(AD IsNot Nothing, AD.Ort, "") & "</td></tr>" : Catch ex As Exception : End Try
MailHTMLText_STBFA &= "</table></b>"
MailHTMLText_STBFA &= "<br>"
MailHTMLText_STBFA &= "Sehr geehrte Damen und Herren,<br>"
MailHTMLText_STBFA &= "<br>"
MailHTMLText_STBFA &= "wir teilen Ihnen mit, dass wir für oben genanntes Unternehmen eine Zollabfertigung mit anschließender<br>"
MailHTMLText_STBFA &= "innergemeinschaftlicher Lieferung (Verfahren 4200) lt. beiliegenden Unterlagen durchgeführt haben.<br>"
MailHTMLText_STBFA &= "<br>"
MailHTMLText_STBFA &= "Dies muss dem Finanzamt als ""innergemeinschaftlicher Erwerb"" gemeldet werden.<br>"
MailHTMLText_STBFA &= "<br>"
MailHTMLText_STBFA &= "<br>"
MailHTMLText_STBFA &= "<br>"
MailHTMLText_STBFA &= "Freundlichen Grüßen<br>"
MailHTMLText_STBFA &= "<br>"
MailHTMLText_STBFA &= "<br>"
Select Case usrCntl.cboTEXT._value
Case "AT_FISKAL"
bool_StbFA = True
Select Case usrCntl.cboSprache._value
Case "DE", ""
Mail_Subject = "Meldung innergemeinschaftlicher Erwerb" & posNr
MailHTMLText &= "<b>!!! DRINGENDE ZOLLSACHE !!!</b><br>"
MailHTMLText &= "<br>"
MailHTMLText &= "Sehr geehrte Damen und Herren,<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "in der Anlage erhalten Sie die Unterlagen zu der Verzollung im Verfahren 4200.<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "Bitte melden Sie den Import in Ihrer Steuererklärung (UVA) als <b>""innergemeinschaftlichen Erwerb""</b><br>"
MailHTMLText &= "mit unser <b>Sonder - UID-Nr.: ATU 68374145 an</b>.<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "Des Weiteren möchten wir Sie darauf hinweisen, dass eine <b>Intrastat Anmeldung</b> zu machen ist! <br>"
MailHTMLText &= "<br>"
MailHTMLText &= "Die österreichische Zollbehörde verlangt in diesem Verfahren die Vorlegung einer gültigen Empfangsbestätigung. Aufgrund dessen ersuchen wir Sie den CMR/Frachtbrief, welchen der Fahrer bei der Abladung abgibt, zu bestätigen. <br>"
MailHTMLText &= "Wir müssen diesen im Original vorlegen können, deshalb bitten wir Sie, das Dokument per Post an uns abzusenden!<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "<b>Bitte:<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "• GUT LESBAR<br>"
MailHTMLText &= "• VERMERK: WAREN ERHALTEN<br>"
MailHTMLText &= "• GENAUES DATUM DER WARENÜBERNAHME<br>"
MailHTMLText &= "• ORIGINAL FIRMENSTEMPEL<br>"
MailHTMLText &= "• ORIGINAL UNTERSCHRIFT</b><br>"
MailHTMLText &= "<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "<b>Post Adresse:</b><br>"
MailHTMLText &= "VERAG CUSTOMS SERVICE GMBH<br>"
MailHTMLText &= "POSTFACH 1013<br>"
MailHTMLText &= "D 94152 NEUHAUS AM INN<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "Freundlichen Grüßen<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "<br>"
MailHTMLText &= cFakturierung.getSignature("D", 11)
MailHTMLText_STBFA &= cFakturierung.getSignature("D", 11)
Case "EN"
Mail_Subject = "intra-community acquisition" & posNr
MailHTMLText &= "<b>!! URGENT CUSTOMS MATTER !!</b><br>"
MailHTMLText &= "<br>"
MailHTMLText &= "Dear Sir / Madam,<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "Please find enclosed the documents regarding the customs clearance (process 4200).<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "Please register the import on your tax decleration ( turnover tax advance return ) as <br>"
MailHTMLText &= "<b>""intra-community acquisition""</b> with our <b>special value added tax identification number ATU68374145.</b>"
MailHTMLText &= "<br>"
MailHTMLText &= "Furthermore, we would like to point out that you must fill out an <b>Intrastat decleration!</b> <br>"
MailHTMLText &= "<br>"
MailHTMLText &= "In this procedure, the Austrian customs authority requires the presentation of a valid entry certificate. For this reason, we ask you to confirm the CMR/consignment note which the driver hands out in during unloading. <br>"
MailHTMLText &= "We must be able to present this document in original. Therefore we ask you to send the document to us by post!<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "<b>Please ensure the following:<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "• THE DOCUMENT IS FULLY LEGIBLE<br>"
MailHTMLText &= "• YOU NOTE ON THE FORM: GOODS RECEIVED<br>"
MailHTMLText &= "• YOU NOTE THE EXACT DATE OF RECEIPT OF GOODS<br>"
MailHTMLText &= "• YOU PROVIDE AN ORIGINAL COMPANY STAMP<br>"
MailHTMLText &= "• YOU PROVIDE AN ORIGINAL SIGNATURE</b><br>"
MailHTMLText &= "<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "<b>Adress:</b><br>"
MailHTMLText &= "VERAG CUSTOMS SERVICE GMBH<br>"
MailHTMLText &= "POSTFACH 1013<br>"
MailHTMLText &= "D 94152 NEUHAUS AM INN<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "Yours faithfully,<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "<br>"
MailHTMLText &= cFakturierung.getSignature("EN", 11)
MailHTMLText_STBFA &= cFakturierung.getSignature("D", 11)
End Select
Case "DE_FISKAL"
bool_StbFA = True
Select Case usrCntl.cboSprache._value
Case "EN"
Mail_Subject = "intra-community acquisition" & posNr
MailHTMLText &= "<b>!! URGENT CUSTOMS MATTER !!</b><br>"
MailHTMLText &= "<br>"
MailHTMLText &= "Dear Sir / Madam,<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "Please find enclosed the documents regarding the customs clearance (process 4200).<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "Please register the import on your tax declaration (turnover tax advance return) as ""<b>intra-Community acquisition</b>"" with our <b>special value added tax identification number DE 813667748.</b> <br>"
MailHTMLText &= "<b>""intra-community acquisition""</b> with our <b>special value added tax identification number ATU68374145.</b>"
MailHTMLText &= "<br>"
MailHTMLText &= "Furthermore, we would like to point out that you must fill out an Intrastat declaration!<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "Yours faithfully<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "<br>"
MailHTMLText &= cFakturierung.getSignature("EN", 99)
MailHTMLText_STBFA &= cFakturierung.getSignature("D", 99)
End Select
Case "EV"
Select Case usrCntl.cboSprache._value
Case "DE", ""
Mail_Subject = "Verzollungsunterlagen" & posNr
MailHTMLText &= "Sehr geehrte Damen und Herren,<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "in der Anlage erhalten Sie die Unterlagen zu der Verzollung.<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "Freundlichen Grüßen<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "<br>"
MailHTMLText &= cFakturierung.getSignature("D", 11)
Case "EN"
Mail_Subject = "Verzollungsunterlagen" & posNr
MailHTMLText &= "Dear Sir / Madam,<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "attached you will find the documents for customs clearance.<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "Yours faithfully<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "<br>"
MailHTMLText &= cFakturierung.getSignature("EN", 11)
End Select
'MailHTMLText &= cFakturierung.getSignature(11)
End Select
MailHTMLText &= "</div>"
'MAIL??
listMail.Add(New FormMangagerEmail(mail_To, "", "", Mail_Subject, MailHTMLText))
If bool_StbFA Then listMail.Add(New FormMangagerEmail(mail_To_Stb, mail_To_FA, "", Mail_Subject_STBFA, MailHTMLText_STBFA))
Catch ex As Exception
MessageBox.Show(ex.ToString & ex.StackTrace)
End Try
Return New List(Of String)
End Function
Shared Function Verzollungsunterlagen_Verbringungsnachweis(usrCntl As usrcntlVerzollungsunterlagen_Verbringsungsnachweis, ByRef listMail As List(Of FormMangagerEmail)) As List(Of String)
Dim striList = New List(Of String)
Try
Dim VBNW_Nr = usrCntl.VBNr
Dim MailHTMLText = "<div style=""font-family:Calibri, Arial"">"
Dim Mail_Subject = ""
Dim Mail_CC = ""
Dim Mail_To = ""
If usrCntl.KdNR > 0 Then
Dim FISKAL As New cFiskal_Daten(usrCntl.KdNR)
@@ -2737,120 +3003,123 @@ Public Class FormularManagerNEU
End If
Select Case usrCntl.cboTEXT._value
Case "AT_FISKAL"
Select Case usrCntl.cboSprache._value
Case "DE", ""
Mail_Subject = "Meldung innergemeinschaftlicher Erwerb"
MailHTMLText &= "<b>!!! DRINGENDE ZOLLSACHE !!!</b><br>"
MailHTMLText &= "<br>"
MailHTMLText &= "Sehr geehrte Damen und Herren,<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "in der Anlage erhalten Sie die Unterlagen zu der Verzollung im Verfahren 4200.<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "Bitte melden Sie den Import in Ihrer Steuererklärung (UVA) als <b>""innergemeinschaftlichen Erwerb""</b><br>"
MailHTMLText &= "mit unser <b>Sonder - UID-Nr.: ATU 68374145 an</b>.<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "Des Weiteren möchten wir Sie darauf hinweisen, dass eine <b>Intrastat Anmeldung</b> zu machen ist! <br>"
MailHTMLText &= "<br>"
MailHTMLText &= "Die österreichische Zollbehörde verlangt in diesem Verfahren die Vorlegung einer gültigen Empfangsbestätigung. Aufgrund dessen ersuchen wir Sie den CMR/Frachtbrief, welchen der Fahrer bei der Abladung abgibt, zu bestätigen. <br>"
MailHTMLText &= "Wir müssen diesen im Original vorlegen können, deshalb bitten wir Sie, das Dokument per Post an uns abzusenden!<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "<b>Bitte:<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "• GUT LESBAR<br>"
MailHTMLText &= "• VERMERK: WAREN ERHALTEN<br>"
MailHTMLText &= "• GENAUES DATUM DER WARENÜBERNAHME<br>"
MailHTMLText &= "• ORIGINAL FIRMENSTEMPEL<br>"
MailHTMLText &= "• ORIGINAL UNTERSCHRIFT</b><br>"
MailHTMLText &= "<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "<b>Post Adresse:</b><br>"
MailHTMLText &= "VERAG CUSTOMS SERVICE GMBH<br>"
MailHTMLText &= "POSTFACH 1013<br>"
MailHTMLText &= "D 94152 NEUHAUS AM INN<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "Freundlichen Grüßen<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "<br>"
MailHTMLText &= cFakturierung.getSignature("D", 11)
Case "EN"
Case "AT_FISKAL_DIREKT"
Mail_Subject = "intra-community acquisition"
MailHTMLText &= "<b>!! URGENT CUSTOMS MATTER !!</b><br>"
MailHTMLText &= "<br>"
MailHTMLText &= "Dear Sir / Madam,<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "Please find enclosed the documents regarding the customs clearance (process 4200).<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "Please register the import on your tax decleration ( turnover tax advance return ) as <br>"
MailHTMLText &= "<b>""intra-community acquisition""</b> with our <b>special value added tax identification number ATU68374145.</b>"
MailHTMLText &= "<br>"
MailHTMLText &= "Furthermore, we would like to point out that you must fill out an <b>Intrastat decleration!</b> <br>"
MailHTMLText &= "<br>"
MailHTMLText &= "In this procedure, the Austrian customs authority requires the presentation of a valid entry certificate. For this reason, we ask you to confirm the CMR/consignment note which the driver hands out in during unloading. <br>"
MailHTMLText &= "We must be able to present this document in original. Therefore we ask you to send the document to us by post!<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "<b>Please ensure the following:<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "• THE DOCUMENT IS FULLY LEGIBLE<br>"
MailHTMLText &= "• YOU NOTE ON THE FORM: GOODS RECEIVED<br>"
MailHTMLText &= "• YOU NOTE THE EXACT DATE OF RECEIPT OF GOODS<br>"
MailHTMLText &= "• YOU PROVIDE AN ORIGINAL COMPANY STAMP<br>"
MailHTMLText &= "• YOU PROVIDE AN ORIGINAL SIGNATURE</b><br>"
MailHTMLText &= "<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "<b>Adress:</b><br>"
MailHTMLText &= "VERAG CUSTOMS SERVICE GMBH<br>"
MailHTMLText &= "POSTFACH 1013<br>"
MailHTMLText &= "D 94152 NEUHAUS AM INN<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "Yours faithfully,<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "<br>"
MailHTMLText &= cFakturierung.getSignature("EN", 11)
Mail_Subject = "Verbringungsnachweis AT-Fiskal | Nr.: " & VBNW_Nr
End Select
MailHTMLText &= "Sehr geehrte Damen und Herren,<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "beiliegend erhalten Sie eine Liste der Sendungen, bei denen eine FIskalverzollung durchgeführt wurde.<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "Die Aufstellung dient als Verbringungsnachweis der Ware, wir bitten Sie das Eingangsdatum der Sendung auszufüllen und das Formular mit Firmenstempel, Unterschrift und aktuellem Datum zu bestätigen.<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "<b>Bitte den <u>Original</u>-Verbringungsnachweis umgehend an folgende Adresse senden:<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "Verag Customs Service GmbH<br>"
MailHTMLText &= "Postfach 1013<br>"
MailHTMLText &= "DE-94152 Neuhaus/Inn</b><br>"
MailHTMLText &= "<br>"
MailHTMLText &= "Vielen Dank im Voraus.<br>"
MailHTMLText &= "<br>"
MailHTMLText &= cFakturierung.getSignature("D", 11)
Case "DE_FISKAL"
Select Case usrCntl.cboSprache._value
Case "EN"
Case "AT_FISKAL_INDIREKT"
Mail_Subject = "intra-community acquisition"
MailHTMLText &= "<b>!! URGENT CUSTOMS MATTER !!</b><br>"
MailHTMLText &= "<br>"
MailHTMLText &= "Dear Sir / Madam,<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "Please find enclosed the documents regarding the customs clearance (process 4200).<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "Please register the import on your tax declaration (turnover tax advance return) as ""<b>intra-Community acquisition</b>"" with our <b>special value added tax identification number DE 813667748.</b> <br>"
MailHTMLText &= "<b>""intra-community acquisition""</b> with our <b>special value added tax identification number ATU68374145.</b>"
MailHTMLText &= "<br>"
MailHTMLText &= "Furthermore, we would like to point out that you must fill out an Intrastat declaration!<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "Yours faithfully,<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "<br>"
MailHTMLText &= cFakturierung.getSignature("EN", 99)
Mail_Subject = "Verbringungsnachweis AT-Fiskal | Nr.: " & VBNW_Nr
End Select
MailHTMLText &= "Sehr geehrte Damen und Herren,<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "beiliegend erhalten Sie die Verbringungsnachweise für die jeweiligen Firmen, bei denen eine Fikalverzollung duchgeführt wurde.<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "Die jeweiligen Kunden sollen den beigefügten Verbringungsnachweis mit dem Eingangsdatum der Sendung ausfüllen und mit Firmenstempel,<br>"
MailHTMLText &= "Unterschrift und aktuellem Datum ergänzen.<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "<b>Wir bitten Sie den <u>Original</u>-Verbringungsnachweis umgehend an folgende Adresse zu senden:<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "Verag Customs Service GmbH<br>"
MailHTMLText &= "Postfach 1013<br>"
MailHTMLText &= "DE-94152 Neuhaus/Inn<br>"
MailHTMLText &= "</b><br>"
MailHTMLText &= "Vielen Dank im Voraus.<br>"
MailHTMLText &= "<br>"
MailHTMLText &= cFakturierung.getSignature("D", 11)
Case "DE_FISKAL_GB"
Mail_Subject = "ENTRY CERTIFICATE | Nr.: " & VBNW_Nr
MailHTMLText &= "Dear Sir Or Madam,<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "we made german fiscal custom clearances for you at the border.<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "In relation to this, we would like to inform you, that you have to register the acquisition and submit an Intrastat declaration.<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "You also have to send us the necessary entry certificate.<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "<b>Please confirm us the attached entry certificate With the date Of delivery, company stamp, Signature And<br>"
MailHTMLText &= "the current date And send it back by E-Mail.</b><br>"
MailHTMLText &= "<br>"
MailHTMLText &= "Thanks in advance.<br>"
MailHTMLText &= "<br>"
MailHTMLText &= cFakturierung.getSignature("GB", 99)
Case "DE_FISKAL_FR"
Mail_Subject = "ATTESTATION DE RECEPTION | Nr.: " & VBNW_Nr
MailHTMLText &= "Madame, Monsieur!<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "Nous avons transporté pour vous de la marchandise provenant dans le cadre d'une livraison intracommunautaire exemptée de taxes.<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "Par consequent, nous vous informons du fait que vous êtes tenus de déclarer l'acquisation intracommunautaire et de remettre une déclaration Intrastat.<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "En outre, s'il vous plaît envoyer nous la nécessité attestation de reception.<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "<b>Confirmez, simplement la attestation de reception (voir ci-joint) avec du cachet de l'entreprise, signature, <br>"
MailHTMLText &= "date de la marchandise d'entrée et la date courante et retourner à mon adresse e-mail.</b><br>"
MailHTMLText &= "<br>"
MailHTMLText &= "Merci d'avance.<br>"
MailHTMLText &= "<br>"
MailHTMLText &= cFakturierung.getSignature("FR", 99)
'MailHTMLText &= cFakturierung.getSignature(11)
End Select
MailHTMLText &= "</div>"
'MAIL??
listMail.Add(New FormMangagerEmail(Mail_To, Mail_CC, "", Mail_Subject, MailHTMLText))
Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 53, 82, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
' listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtBestimmungszollamt.Text, 82, 152, 100, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
' Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "GESTELLUNGSGARANTIEN", getUO2, "", "Gestellungsgarantie_EN", listTowrite)
'oWord.Visible = True
striList.Add(usrCntl.Path)
Catch ex As Exception
MessageBox.Show(ex.ToString & ex.StackTrace)
End Try
Return New List(Of String)
Return striList
End Function
Shared Function Verbundenheit(usrCntl As usrcntlVerbundenheit) As String
Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager
@@ -3307,6 +3576,7 @@ Public Class FormularManagerArten
Shared Property AT_InformationsblattFiskalverzollung = "AT_InformationsblattFiskalverzollung"
Shared Property Verzollungsunterlagen = "Verzollungsunterlagen"
Shared Property VerzollungsunterlagenBAR = "VerzollungsunterlagenBAR"
Shared Property Gelangensbestaetigung = "Gelangensbestaetigung"
Shared Property QS_UeDok = "QS_UeDok"
Shared Property SA_Gestellung = "SA_Gestellung"
Shared Property Importaviso = "Importaviso"
@@ -3341,4 +3611,19 @@ Public NotInheritable Class FormularManagerArten2
End Class
Public Class FormMangagerEmail
Property Mail_To
Property Mail_CC
Property Mail_BCC
Property Mail_Subject
Property MailHTMLText
Sub New(Mail_To, Mail_CC, Mail_BCC, Mail_Subject, MailHTMLText)
Me.Mail_To = Mail_To
Me.Mail_CC = Mail_CC
Me.Mail_BCC = Mail_BCC
Me.Mail_Subject = Mail_Subject
Me.MailHTMLText = MailHTMLText
End Sub
End Class
'Member von System.Windows.Forms

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

@@ -1693,15 +1693,6 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die ähnelt.
'''</summary>
Friend ReadOnly Property String1dasdasasdasd() As String
Get
Return ResourceManager.GetString("String1dasdasasdasd", 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.0 ä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.0</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="String1dasdasasdasd" xml:space="preserve">
<value />
</data>
</root>

45
SDL/SDL.vbproj
View File

@@ -792,6 +792,12 @@
<Compile Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlVerbundenheit.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlVerzollungsunterlagen_Verbringsungsnachweis.Designer.vb">
<DependentUpon>usrcntlVerzollungsunterlagen_Verbringsungsnachweis.vb</DependentUpon>
</Compile>
<Compile Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlVerzollungsunterlagen_Verbringsungsnachweis.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlVerzollungsunterlagen_BAR.Designer.vb">
<DependentUpon>usrcntlVerzollungsunterlagen_BAR.vb</DependentUpon>
</Compile>
@@ -1134,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>
@@ -1278,6 +1290,18 @@
<Compile Include="mdm\Bestellung\frmSDLBestellungEintrag.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="mdm\PLOSE\rptPLOSE_TransaktionenSumary.Designer.vb">
<DependentUpon>rptPLOSE_TransaktionenSumary.vb</DependentUpon>
</Compile>
<Compile Include="mdm\PLOSE\rptPLOSE_TransaktionenSumary.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="mdm\PLOSE\rptPLOSE_Anhang.Designer.vb">
<DependentUpon>rptPLOSE_Anhang.vb</DependentUpon>
</Compile>
<Compile Include="mdm\PLOSE\rptPLOSE_Anhang.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="mdm\SDLAbholung\frmSDLAbholung.Designer.vb">
<DependentUpon>frmSDLAbholung.vb</DependentUpon>
</Compile>
@@ -1984,6 +2008,12 @@
<Compile Include="Speditionsbuch\Nacherfassung\frmPosNr.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Speditionsbuch\Nacherfassung\rptSpeditionsbericht_Gelangensbestaetigung.Designer.vb">
<DependentUpon>rptSpeditionsbericht_Gelangensbestaetigung.vb</DependentUpon>
</Compile>
<Compile Include="Speditionsbuch\Nacherfassung\rptSpeditionsbericht_Gelangensbestaetigung.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="Speditionsbuch\Nacherfassung\rptSpeditionsberichtKdSpez.Designer.vb">
<DependentUpon>rptSpeditionsberichtKdSpez.vb</DependentUpon>
</Compile>
@@ -2415,6 +2445,9 @@
<EmbeddedResource Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlVerbundenheit.resx">
<DependentUpon>usrcntlVerbundenheit.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlVerzollungsunterlagen_Verbringsungsnachweis.resx">
<DependentUpon>usrcntlVerzollungsunterlagen_Verbringsungsnachweis.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlVerzollungsunterlagen_BAR.resx">
<DependentUpon>usrcntlVerzollungsunterlagen_BAR.vb</DependentUpon>
</EmbeddedResource>
@@ -2586,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>
@@ -2658,6 +2694,12 @@
<EmbeddedResource Include="mdm\Bestellung\frmSDLBestellungEintrag.resx">
<DependentUpon>frmSDLBestellungEintrag.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="mdm\PLOSE\rptPLOSE_TransaktionenSumary.resx">
<DependentUpon>rptPLOSE_TransaktionenSumary.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="mdm\PLOSE\rptPLOSE_Anhang.resx">
<DependentUpon>rptPLOSE_Anhang.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="mdm\SDLAbholung\frmSDLAbholung.resx">
<DependentUpon>frmSDLAbholung.vb</DependentUpon>
</EmbeddedResource>
@@ -3013,6 +3055,9 @@
<EmbeddedResource Include="Speditionsbuch\Nacherfassung\frmPosNr.resx">
<DependentUpon>frmPosNr.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Speditionsbuch\Nacherfassung\rptSpeditionsbericht_Gelangensbestaetigung.resx">
<DependentUpon>rptSpeditionsbericht_Gelangensbestaetigung.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Speditionsbuch\Nacherfassung\rptSpeditionsberichtKdSpez.resx">
<DependentUpon>rptSpeditionsberichtKdSpez.vb</DependentUpon>
</EmbeddedResource>

71
SDL/Speditionsbuch/Nacherfassung/frmNacherfassungNEU.Designer.vb generated
View File

@@ -131,9 +131,12 @@ Partial Class frmNacherfassungNEU
Me.TabPage1 = New System.Windows.Forms.TabPage()
Me.TabPage2 = New System.Windows.Forms.TabPage()
Me.TabPage3 = New System.Windows.Forms.TabPage()
Me.TabPage4 = New System.Windows.Forms.TabPage()
Me.Button3 = New System.Windows.Forms.Button()
Me.txtT1Verzollungsadresse = New System.Windows.Forms.RichTextBox()
Me.pnlFiskal = New System.Windows.Forms.Panel()
Me.txtCMRDatum = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.cbxCMR = New System.Windows.Forms.CheckBox()
Me.cboFiskalSchreiben = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label57 = New System.Windows.Forms.Label()
Me.Button2 = New System.Windows.Forms.Button()
@@ -215,7 +218,6 @@ Partial Class frmNacherfassungNEU
Me.DataGridViewTextBoxColumn3 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn4 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn5 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.TabPage4 = New System.Windows.Forms.TabPage()
Me.pnl.SuspendLayout()
Me.Panel3.SuspendLayout()
Me.GroupBox4.SuspendLayout()
@@ -1688,6 +1690,16 @@ Partial Class frmNacherfassungNEU
Me.TabPage3.Text = "Zollanmeldungen"
Me.TabPage3.UseVisualStyleBackColor = True
'
'TabPage4
'
Me.TabPage4.Location = New System.Drawing.Point(4, 22)
Me.TabPage4.Name = "TabPage4"
Me.TabPage4.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage4.Size = New System.Drawing.Size(353, 0)
Me.TabPage4.TabIndex = 3
Me.TabPage4.Text = "Anhänge"
Me.TabPage4.UseVisualStyleBackColor = True
'
'Button3
'
Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
@@ -1715,6 +1727,8 @@ Partial Class frmNacherfassungNEU
'pnlFiskal
'
Me.pnlFiskal.BackColor = System.Drawing.Color.WhiteSmoke
Me.pnlFiskal.Controls.Add(Me.txtCMRDatum)
Me.pnlFiskal.Controls.Add(Me.cbxCMR)
Me.pnlFiskal.Controls.Add(Me.cboFiskalSchreiben)
Me.pnlFiskal.Controls.Add(Me.Label57)
Me.pnlFiskal.Controls.Add(Me.Button2)
@@ -1724,6 +1738,40 @@ Partial Class frmNacherfassungNEU
Me.pnlFiskal.TabIndex = 53
Me.pnlFiskal.Visible = False
'
'txtCMRDatum
'
Me.txtCMRDatum._DateTimeOnly = False
Me.txtCMRDatum._numbersOnly = False
Me.txtCMRDatum._numbersOnlyKommastellen = ""
Me.txtCMRDatum._Prozent = False
Me.txtCMRDatum._ShortDateNew = True
Me.txtCMRDatum._ShortDateOnly = False
Me.txtCMRDatum._TimeOnly = False
Me.txtCMRDatum._value = ""
Me.txtCMRDatum._Waehrung = False
Me.txtCMRDatum._WaehrungZeichen = True
Me.txtCMRDatum.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtCMRDatum.Location = New System.Drawing.Point(93, 51)
Me.txtCMRDatum.MaxLength = 10
Me.txtCMRDatum.MaxLineLength = -1
Me.txtCMRDatum.MaxLines_Warning = ""
Me.txtCMRDatum.MaxLines_Warning_Label = Nothing
Me.txtCMRDatum.Name = "txtCMRDatum"
Me.txtCMRDatum.Size = New System.Drawing.Size(93, 20)
Me.txtCMRDatum.TabIndex = 92
'
'cbxCMR
'
Me.cbxCMR.AutoSize = True
Me.cbxCMR.BackColor = System.Drawing.Color.WhiteSmoke
Me.cbxCMR.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxCMR.Location = New System.Drawing.Point(6, 53)
Me.cbxCMR.Name = "cbxCMR"
Me.cbxCMR.Size = New System.Drawing.Size(81, 17)
Me.cbxCMR.TabIndex = 92
Me.cbxCMR.Text = "CMR, am:"
Me.cbxCMR.UseVisualStyleBackColor = False
'
'cboFiskalSchreiben
'
Me.cboFiskalSchreiben._allowedValuesFreiText = Nothing
@@ -1734,7 +1782,7 @@ Partial Class frmNacherfassungNEU
Me.cboFiskalSchreiben.FormattingEnabled = True
Me.cboFiskalSchreiben.Location = New System.Drawing.Point(6, 16)
Me.cboFiskalSchreiben.Name = "cboFiskalSchreiben"
Me.cboFiskalSchreiben.Size = New System.Drawing.Size(180, 21)
Me.cboFiskalSchreiben.Size = New System.Drawing.Size(120, 21)
Me.cboFiskalSchreiben.TabIndex = 1
'
'Label57
@@ -1750,11 +1798,12 @@ Partial Class frmNacherfassungNEU
'Button2
'
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button2.Location = New System.Drawing.Point(6, 40)
Me.Button2.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!)
Me.Button2.Location = New System.Drawing.Point(128, 6)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(180, 35)
Me.Button2.Size = New System.Drawing.Size(58, 31)
Me.Button2.TabIndex = 2
Me.Button2.Text = "Fiskal-Schreiben"
Me.Button2.Text = "öffnen"
Me.Button2.UseVisualStyleBackColor = True
'
'Label55
@@ -3012,16 +3061,6 @@ Partial Class frmNacherfassungNEU
Me.DataGridViewTextBoxColumn5.HeaderText = "Anzahl"
Me.DataGridViewTextBoxColumn5.Name = "DataGridViewTextBoxColumn5"
'
'TabPage4
'
Me.TabPage4.Location = New System.Drawing.Point(4, 22)
Me.TabPage4.Name = "TabPage4"
Me.TabPage4.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage4.Size = New System.Drawing.Size(353, 0)
Me.TabPage4.TabIndex = 3
Me.TabPage4.Text = "Anhänge"
Me.TabPage4.UseVisualStyleBackColor = True
'
'frmNacherfassungNEU
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -3245,4 +3284,6 @@ Partial Class frmNacherfassungNEU
Friend WithEvents txtKdAuftragsnummerFrachtfuehrer As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtKdAuftragsnummerAvisierer As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents TabPage4 As TabPage
Friend WithEvents txtCMRDatum As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents cbxCMR As CheckBox
End Class

9
SDL/Speditionsbuch/Nacherfassung/frmNacherfassungNEU.vb
View File

@@ -292,6 +292,10 @@ Public Class frmNacherfassungNEU
txtInkasso.Text = If(SPEDITIONSBUCH.AuftraggeberBetragKassiert, "")
cbxCMR.Checked = SPEDITIONSBUCH.SB_CMR
txtCMRDatum.Text = If(SPEDITIONSBUCH.SB_CMRDatum, "")
lblLastMa.Text = SPEDITIONSBUCH.Sachbearbeiter
If SPEDITIONSBUCH.AvisoID IsNot Nothing Then avisoLinkId = SPEDITIONSBUCH.AvisoID
@@ -922,6 +926,11 @@ Public Class frmNacherfassungNEU
SPEDITIONSBUCH.KdAuftragsNrFrachtfuehrer = txtKdAuftragsnummerFrachtfuehrer.Text
SPEDITIONSBUCH.AuftraggeberBetragKassiert = txtInkasso._value
SPEDITIONSBUCH.SB_CMRDatum = Nothing
If pnlFiskal.Visible Then
SPEDITIONSBUCH.SB_CMR = cbxCMR.Checked
If txtCMRDatum.Text <> "" Then SPEDITIONSBUCH.SB_CMRDatum = txtCMRDatum.Text
End If
End Sub
Private Sub Panel1_Paint(sender As Object, e As PaintEventArgs) Handles Panel1.Paint

1043
SDL/Speditionsbuch/Nacherfassung/rptSpeditionsbericht_Gelangensbestaetigung.Designer.vb generated Normal file
View File

File diff suppressed because it is too large Load Diff

756
SDL/Speditionsbuch/Nacherfassung/rptSpeditionsbericht_Gelangensbestaetigung.resx Normal file
View File

@@ -0,0 +1,756 @@
<?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>
<data name="picVERAG.ImageData" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAEAQAAABZTeXN0ZW0uSU8uTWVtb3J5U3RyZWFtCgAAAAdfYnVmZmVyB19v
cmlnaW4JX3Bvc2l0aW9uB19sZW5ndGgJX2NhcGFjaXR5C19leHBhbmRhYmxlCV93cml0YWJsZQpfZXhw
b3NhYmxlB19pc09wZW4dTWFyc2hhbEJ5UmVmT2JqZWN0K19faWRlbnRpdHkHAAAAAAAAAAACAggICAgB
AQEBCQIAAAAAAAAAAAAAAL6QAAC+kAAAAQEBAQoPAgAAAL6QAAACArmQAACJUE5HDQoaCgAAAA1JSERS
AAAIMAAAAZIIBgAAAB9io5MAAAABc1JHQgCuzhzpAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29mdHdh
cmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAJA+SURBVHhe7d0HlG1Fte7xAxwySBCQJKKgIgZA4YgBxQDy
RL2IiBgwBwxgzuEeFRUTIiYQUdRWQVExY0LMIEowICiioEgUBBGQdN832Rx3r95fd6/urqq9wt8xfuON
V5fTVWuuqtp7r5qratH//d//AQAAAAAAAAAAAAAAjJUtBAAAAAAAAAAAAAAAKMkWAgAAAAAAAAAAAAAA
lGQLAQAAAAAAAAAAAAAASrKFAAAAAAAAAAAAAAAAJdlCAAAAAAAAAAAAAACAkmwhAAAAAAAAAAAAAABA
SbYQAAAAAAAAAAAAAACgJFsIAAAAAAAAAAAAAABQki0EAAAAAAAAAAAAAAAoyRYCAAAAAAAAAAAAAACU
ZAsBAAAAAAAAAAAAAABKsoUAAAAAAAAAAAAAAAAl2UIAAAAAAAAAAAAAAICSbCEAAAAAAAAAAAAAAEBJ
thAAAAAAAAAAAAAAAKAkWwgAAAAAAAAAAAAAAFCSLQQAAAAAAAAAAAAAACjJFgIAAAAAAAAAAAAAAJRk
CwEAAAAAAAAAAAAAAEqyhQAAAAAAAAAAAAAAACXZQgAAAAAAAAAAAAAAgJJsIQAAAAAAAAAAAAAAQEm2
EAAAAAAAAAAAAAAAoCRbCAAAAAAAAAAAAAAAUJItBAAAAAAAAAAAAAAAKMkWAgAAAAAAAAAAAAAAlGQL
AQAAAAAAAAAAAAAASrKFAAAAAAAAAAAAAAAAJdlCAAAAAAAAAAAAAACAkmwhAAAAAAAAAAAAAABASbYQ
AAAAAAAAAAAAAACgJFsIAAAAAAAAAAAAAABQki0EAAAAAAAAAAAAAAAoyRYCAAAAAAAAAAAAAACUZAsB
AAAAAAAAAAAAAABKsoUAAAAAAAAAAAAAAAAl2UIAAAAAAAAAAAAAAICSbCEAAAAAAAAAAAAAAEBJthAA
AAAAAAAAAAAAAKAkWwgAAAAAAAAAAAAAAFCSLQQAAAAAAAAAAAAAACjJFpa0aMlSAAAAAAAAAACANlhN
NpMdZDd5irxQXivvkA/Jp+UrcqL8RE6X38lf5AL5562uk/9DMTfIstiH8yTuSThT4j79UuK+fVuOk8/J
UfJBea8slZfKs2Uf2V0eLNvI7WV1cf2md9yaIADUYQtLcpMaAAAAAAAAAABAQSvI5rKTPFFeJe+XL8rJ
Eovd14hbGAcm+4/8XX4rP5LPywckklyeIZH4ci9ZR1xf7AS3JggAddjCktykBgAAAAAAAAAAkMHGsqvs
L5Gg8HU5S64XtxgN5BQ7QcTOD1+WgyV289hZ1hfXf1vDrQkCQB22MAdNVj8VNzmj6lrZSEYme6Chlpcz
xPVnDDCu03mJuBgDaKfYitGNdTRLPExx9w/omqnbyP5a4kFibPn7LYm3pj4uh8ib5RXyNHmU3E/uIrcV
N44AoI4l4uYnpBHzejzDcLEH0E0rSRzzsJ/E9v9xLMDl4uYIoIkulei3kdgQx1XcSVxfbyS3VggAddjC
HDRZPUjcBIxR8WVqZLIHGiq2vHL9GEMHiYsd5o4EBqBbSGBoBxIYgLmJN/fOl5/LsRK/714je0s8QCfJ
AcB0YotpN68gnaeKiz2AbthSniyxVf9JEtv4u7kAaLNIaojnKfGc9B6ynLjxMHZurRAA6rCFuWjCirdW
3ISLqnjgdQcZmfCBhllNLhDXjzEQiz5ri4sf5o4EBqBbSGBoBxIYgPSuktPkaHmTPE7uLiuKG4cAuu/R
4uYLpBU77MQb2e4eAGifeIb+dDlKYny7cQ903cXyadlL1hA3VsbCrRMCQB22MBdNWNuJm2AxKr50jUz4
QMO8UVz/xVC8bedih/khgQHoFhIY2oEEBqCcG+RUOUJiq+PYsWFlcWMTQHcslt+JmxeQ3ovF3QcAzRfz
5c7yXjlb3BgH+uw6+Zo8ReLlQzeOinHrhABQhy3MSZPWMeImVlTdKHeTkUkfaIgN5Wpx/RcDF8qq4uKH
+SGBAegWEhjagQQGYLziIWRsK/822U1uI26sAmivZ4kb/8gjtt5eU9y9ANA8kcz5WPmMXC5uXAMY9S/5
uOwkbmxl59YIAaAOW5iTJq27SCzOuwkVVZ+XkUkfaIjDxPVbDD1PXOwwfyQwAN1CAkM7kMAANEv8no6E
htfLvaWxZ94CqCWS3jmasbw3i7sfAJpheYmdFmJXqivEjWMA9cXxdU+VoscouTVCAKjDFuamiSu+eLhJ
FKPi2I2RiR8Ys62FRKSZnSOxrZ2LH+aPBAagW0hgaAcSGIBmu0giufhhEg/73TgG0FyRjOTGNvKKHSU3
EHdPAIxPjMuYF88XN3YBLMzfJZ6vFtk12K0PAkAdtjA3TVy3l2vFTaCo+qaMTPzAmH1dXH/F0BPExQ4L
QwID0C0kMLQDCQxAe8QDyUOFRHigHdaTK8WNZ+QX86W7LwDKu7/EERHXixuvANKKJKHnStYX8Nz6IADU
YQtL0OR1sLiJE6MeICOTPzAm8WaX66cYOlXYyjcPEhiAbiGBoR1IYADa6VcSDyU55x1orlhAd+MXZcRC
6Z3E3RsAZcRzxhPFjVEA+f1Gsq0/ubVBAKjDFpagySuyzK8SN2miKr7EjUz+wBjElrSxOO/6KYYeIS5+
WDgSGIBuIYGhHUhgANotxvA7ZENxYxzAeGwhvGk8fhPi7g+AvOLZ2UnixiWA8j4ma4sbr/Pm1gYBoA5b
WIomsKXiJkuMYkEUTbCvuP6JoR+Iix3SIIEB6BYSGNqBBAagG66Tw2RjcWMdQFlHixurKOtm2UbcPQKQ
3t3l2+LGI4DxOk+S7sbg1gUBoA5bWIomsDXkMnGTJapOEbakxzitKn8V1z8xtKO4+CENEhiAbiGBoR1I
YAC65Ro5UNYSN+YB5Le9uPGJ8fiGuPsEIJ3bykfkRnHjEEAzxBh9oyRZi3LrggBQhy0sSZPYS8VNlBi1
h4x8CACFvE5cv8TQl8XFDumQwAB0CwkM7UACA9BNl8gTxY17AHmdIG5cYnweJO5eAVi4eKZ9kbixB6CZ
jpHVxI3p2tyaIADUYQtL0iQWb3WfL26SRNWZsryMfBAAmW0gV4nrlxiI7NStxcUP6ZDAAHQLCQztQAID
0G3fks3EjX8A6e0ubixivH4u7n4BmL/YdeEz4sYcgOb7hWwobnzX4tYEAaAOW1jSrRPZs8RNkBi1r1Q+
BIACPiiuP2LoE+Jih7RIYAC6hQSGdiCBAei+K+Sx4uYAAOnESym/ETcOMX7sfAqk80D5m7ixBqA9zpFN
xY3zWbk1QQCowxaWdOtEtljOFjdBoio+MFaUygcBkNFdhfPpZnad8NZaGSQwAN1CAkM7kMAA9Mchwu9N
IJ9niht7aIbY+XQFcfcOQH3x7IZniUB3zDuJwa0JAkAdtrCkSZPZ3uImR4zaTybHDsjpK+L6IYYOFhc7
pEcCA9AtJDC0AwkMQL8cL2uImw8AzF8cocrbyM0XSSbu/gGYXSRBHilubAFot0hiWF/c2J+WWxMEgDps
YUmTJrPl5DRxkyOq4gdv/PCdHD8ghweL64MYukrWExc/pEcCA9AtJDC0AwkMQP/8Uub8gBLAjF4tbryh
Wc4XnrkBc7eafFvcuALQDSdLjHU3B1huTRAA6rCFJU2Z0HYTNzFi1EtlavyAlCKpKB5cuv6HoTeJix/y
IIEB6BYSGNqBBAagn+KcfpIYgDRuK3yetsfLxd1HAN5a8lNx4wlAt8RuzbFu4OaCEW5NEADqsIUlmUnt
RHETI6ouE7b1RE5PEtf3MHSJMA7LIoEB6BYSGNqBBRegvyKhORYl3NwAoL44dtCNMTRTPHNbW9y9BFC1
psRb2W4sAeim14ubD0a4NUEAqMMWlmQmtfuLmxQxije/kcsq8hdx/Q5DB4iLH/IhgQHoFhIY2oEEBqDf
fihxprWbHwDM7o5yvbjxheZ6m7j7CWBoJfm+uDEEoLtukjh62s0LFW5NEADqsIUluUlNviZuYkRVPExe
V1wMgYV4lbg+h6E/S/xQc/FDPiQwAN1CAkM7kMAA4CPi5gcAs/uMuHGFZvu3bCTungIYbCF/jLjxA6D7
LpR1xM0P/+XWBAGgDltYkpvUZBu5WdzEiKqDxMUQmK/1hIWK2T1VXPyQFwkMQLeQwNAOfC8AEJ4rbo4A
ML17ixtPaIcPi7uvAJYsfYO4cQOgP44SNz/8l1sTBIA6bGFJblK7FRnq9VwjZIQjpUPF9TUM/UaWFxc/
5EUCA9AtJDC0AwkMAMK1cjdx8wQA73vixhPa4QbZUty9BfrsUcLLhwDCruLmiVu4NUEAqMMWluQmtVvF
D4T4oeAmRVR9QFwMgbm6s3A25+weLS5+yI8EBqBbSGBoBxIYACxzqqwobq4AUPUIceMI7RJb5Lv7C/RV
PLPn9wGAZc6VaY9ZdmuCAFCHLSzJTWqTHCZuUkRVLDhvJi6GwFx8UVwfw9BPxcUOZZDAAHQLCQztwANK
AJO9WdxcAWAoduw7Q9wYQvvEUSDuPgN9s4L8XNw4AdBfLxc3Z9g1QQCowxaW5Ca1SeJohNim0k2KqJr1
vCFgFg8U17dQtZO4+KEMEhiAbiGBoR1IYAAw2XWyhbj5AsDAU8WNH7TTd8TdZ6Bv3iBujADotytkXRmZ
N9yaIADUYQtLcpPaFO8UNymi6kbZSlwMgdksJyeL61sY+oa4+KEcEhiAbiGBoR1IYAAwFd+LgemtKueL
Gztor4eJu99AX2wnHPcMYDoHycjc4dYEAaAOW1iSm9SmiMwtHprWw7l8mK+9xfUpDN0s24iLH8ohgQHo
FhIY2oHv4gCcON/fzRlA371S3JhBu50i8fKHu+dA18WxOLz4BGAmV8naUpk/3JogANRhC0uaOqFNg+2p
6otsWBdDYDorybni+hOGJsTFD2WRwAB0CwkM7UACAwAnFjJYzAOq1pHYRtmNGbTfXuLuO9B1zxE3JgBg
stdLZf5wa4IAUIctLGnqhDaNNeRicZMiqtjKE3P1cnF9CUPXC+f8NgMJDEC3kMDQDiQwAJjOHuLmDaCv
3iNurKAbzpbF4u490FWRmHWJuDEBAJNdKivLf+cQtyYIAHXYwpImT2azOEDcpIhR9xcXQ2CqOKKFt0Nm
90Fx8UN5JDAA3UICQzuQwABgOr8SN28AfXQHuU7cWEF3PFfc/Qe66n3ixgIAOHFU9X/nELcmCAB12MKS
Jk9ms4ht7s8TNymi6kRxMQSmOlhcH8LQ1bKhuPihPBIYgG4hgaEdSGAAMJOdxM0dQN98WtwYQbf8XVYV
1weArtlIrhU3FgDA+b78dx5xa4IAUIctLGnyZFbD08VNihi1i7gYAsvcSeJoBNd/MHSguPhhPEhgALqF
BIZ2IIEBwEyOFTd3AH2yrdwsboyge14trh8AXXOIuDEAADPZUm6ZR9yaIADUYQtLWjaR1bSCnCluUkTV
ybKcuDgC4fPi+g6GLpO1xcUP40ECA9AtJDC0AwkMAGZyo9xe3PwB9MV3xY0PdFN8N1pHXF8AumIzYfcF
APPxRrllLnFrggBQhy0sadlENgd7ipsUMWoPcTEE7ieuz6DqFeLih/EhgQHoFhIY2oEEBgCzeb24+QPo
g4eLGxfotneJ6w9AV0Qfd30fAGZzutwyl7g1QQCowxaWtGwim4PYVeAX4iZGVP1WlhcXR/RXjKGfiusz
GPqrcK5l85DAAHQLCQztQAIDgNmcLW7+ALounrmcKm5coNvizfRNxPULoO1WlyvE9X0AqGMLsWuCAFCH
LSwpJrF5ILu9vieLiyH663Hi+gqqniUufhgvEhiAbiGBoR1IYABQxxJxcwjQZU8RNx7QD0eI6xdA2+0n
rs8DQF2vFLsmCAB12MKSYhKbpxPETYyoOkcWi4sh+mcl+aO4voKhs4Rx00wkMADdQgJDO5DAAKCOg8XN
IUBXrSx/ETce0A83ylbi+gfQVrFz6+/F9XkAqOu7YtcEAaAOW1hSTGLzdF9xEyNGPU9cDNE/LxbXR1AV
u1S4+GH8SGAAuoUEhnYggQFAHZE87+YQoKteLm4soF++KK5/AG11f3F9HQDm4jpZxa0JAkAdtrAkTWIL
EQ+93eSIKs7yR1hb/iGuj2DoFxLZ5i6GGD8SGIBuIYGhHUhgAFDX1uLmEaBr4vf15eLGAfqHI3TQJYeJ
6+cAMFcPd2uCAFCHLSxJk9hCxMORm8VNjqiKRT8XQ/THe8T1DVQ9TFz80AwkMADdQgJDO5DAAKCu14ib
R4Cueae4MYB+imNuXT8B2iaOxrlCXD8HgLl6u1sTBIA6bGFJmsQW6pPiJkdUXSZriIshum9ziW2bXN/A
0C1nc6HRSGAAuoUEhnYggQFAXd8TN48AXXJ7uVbcGEB/7SquvwBtEkequv4NAPPxPbcmCAB12MKSNIkt
1B3lenETJKreKC6G6L7PiusTqNpeXPzQHCQwAN1CAkM7kMAAoK5rZCVxcwnQFUeJ6//ot9OE4yjRdkeL
698AMB9XyfJuXRAAZmMLS9IElsIHxE2QqIqHz+uIiyG6awdx/QFVXxAXPzQLCQxAt5DA0A4kMACYiweK
m0uALriXcJQppvNEcf0GaIMV5UpxfRsA5mtrty4IALOxhSVpAkthI7la3ASJqoPExRDd9WNxfQFDN8pd
xMUPzUICA9AtJDC0AwkMAObiDeLmEqALviWu3wPhHIlFYNd3gKbbRVy/BoCF2NetCwLAbGxhSZrAUnm7
uAkSVf+WSPhwMUT3PFZcP0DVEeLih+YhgQHoFhIY2oEEBgBz8Q1xcwnQdg8T1+eByV4orv8ATccOxwBy
OMitCwLAbGxhSZrAUllbeLhaz6HiYohuWSxni+sDGLpWNhEXQzQPCQxAt5DA0A58xwYwFxeJm0uANltO
fimuzwOTXShriOtHQJP9WVyfBoCF+KpbFwSA2djCkjSBpfQacZMkqq6XzcTFEN3xInH3H1XvEhc/NBMJ
DEC3kMDQDiQwAJgrEoTRNU8U19cBh6N00Dabi+vLALBQ57p1QQCYjS0sSRNYSqtKZDq7iRJVHxcXQ3TD
WnKpuHuPoViQWVdcDNFMJDAA3UICQzuQwABgrh4jbj4B2mglOVdcXwec+O60nrj+BDTR08X1ZQBYqJtl
Fbc2CAAzsYUlafJK7QXiJkpU3Sh3ERdDtN9B4u47ql4nLn5oLhIYgG4hgaEdSGAAMFdvFDefAG3EbxDM
x8Hi+hPQREeJ68cAkMJWbm0QAGZiC0vS5JVaZMb/SdxEiaqjxcUQ7RbHg1wr7p5jKHZrWV1cDNFcPDwE
uoUEhnYggQHAXE2Im0+AtllbLhPXz4GZXCcc34q2+Iu4fgwAKezm1gYBYCa2sCRNXjnsK26iRFVs37Od
uBiivT4t7n6jKnZrcfFDs5HAAHQLCQztQAIDgLk6Vdx8ArTN28X1caCOT4jrV0CTbCSu/wJAKvu5tUEA
mIktLEmTVw7Ly2/ETZao+pq4GKKd7iORmOLuNYbOkRXFxRDNRgID0C0kMLQDCQwA5upqcfMJ0CabCLsb
Tu8aU4aqm+Tu4voX0BSPEdd/MV4xf8Tusb+Ub8hH5Z3yBnmxPF0eKw+X+8q2ckfZ/FZ3kNhFqM3WkWXX
E2I+jZcxd5bdZA95mjxXXiPvko9JPGf4sZwp/xAXX5T1drc2CAAzsYUlafLK5X/ETZYYtaO4GKJ9fiDu
HqPqSeLih+YjgQHoFhIY2oEEBgDzsbG4OQVoiyPF9W0MPFFiYc393zD0FXH9C2iKt4jru8gvfmf9SI6Q
V8qesr3ErhgriLtfmLs4QngreYQ8W6LPf0EiweFGcfcGaX3KrQ0CwExsYUmavHI6SdyEiaoTxcUP7fJo
cfcXVadJ7NLiYojmI4FhVBey6tFf8SDBjXU0CwkMAOaDRHm02T0k3n51fRtLlv5KlpOHTCrD9O4vrp8B
TRBv97t+i7Rid6rvyIESz3A3FXc/UNZKci95shwmvxd3/7Aw33JrgwAwE1tYkiavnGI7ITdhYlRsN+Vi
iHZYLHzBqueR4mKIdiCBYVQsArtYAUAqJDBUnS9Tk3HQDreV2H42ttiNbWefKbEVbzy4/7u4+435e4K4
OQVog6+L69cYmPwMiVjNLt6wnty/gCa5SFy/xcKdKv8rD5B4duvij+ZZX/aST8vl4u4t5uYUtzYIADOx
hSVp8srt2+ImTVTFbhWRPe9iiObbT9x9RdUPxcUP7UECw6hYkHGxAoBUSGCo+ou4OKH9YmvZ/SW+M7p7
j7l5hbg4A03HyzAz+55MjlfsVsEW3LN7lEyOG9AE64nrr5i/s+R1spm4mKNdVpZIyuX3wcKc79YGAWAm
trAkTV653UfcpIlRe4iLIZptTblY3D1F1f3ExRDtQQLDKBIYAORGAkMVCQz9sIUcIteK6weY3aHiYgs0
WbzYcYq4Po2BeM42NW4fE/ffYujXwnGWaJoHieuvmLvjZRfhBcHuiufKPxN3/zGza93aIADMxBaWpMmr
hGPFTZyo+o3wY6p94uw0dz9R9RVx8UO7kMAwigQGALmRwFBFAkO/bCRHiesLmNkx4mIKNNnjxfVnDBwt
Lm4by7/F/RsM7SsufsC4PEdcX0V9saAdR0S4+KJ7IkHlAPmPuP6A6S1264MAMB1bWJImrhLuJmxnV8+T
xMUQzbSp8FbY7G6Wu4uLIdqFBIZRJDAAyI0EhioSGPopdqv7h7g+AW/qNvNA060k54jrz1iy9HrZUlzs
wlvF/TsM/Vmin7n4AePwPnF9FbOL57EvEl4G7Kf7yqXi+ga8td36IABMxxaWpImrlI+LmzhRFT/WF4uL
IZrnE+LuI6rirTkXP7QPCQyjSGAAkBsJDFUkMPTXXSQWn1y/wKjY4c/FEWiq/cX1ZQx8UFzcluF4y3pe
LC5+wDh8S1w/xcz+KtuJiyn6Yyvhc6++O7j1QQCYji0sSRNXKZsJW/vU81xxMUSzbCOxs4C7hxiKt0Tu
IC6GaB8SGEaRwAAgNxIYqkhg6LfN5e/i+gaqIk4uhkAT3UZ4k3J6V8uG4mI32QvF/XsMRT9bQ1z8gNLO
EtdPMb14+S92xHXxRP/cWzhCqZ67u/VBAJiOLSxJE1dJh4ibPFF1vqwqLoZojtiS1d0/VMW4d/FDO5HA
MIoEBgC5kcBQRQIDYsvYG8T1DwxFIrGLH9BEB4rrxxh4i7i4TRU7ep4t7m9gaKm4+AGlcSzt3MRxYjMd
pYN+eoa4/oKqHdz6IABMxxaWpImrpPUlssbdBIqqWCR0MUQzPFLcfUNVjPcY9y6GaCcSGEaRwAAgNxIY
qkhgQGCxsx7OekcbbCzXiOvDGOwYEMdDuNg5jxX3dzAUzyo2EBc/oJR4Xub6J6a3i7hYAt8Q12cwtLNb
HwSA6djCkjRxlRZZ424CRdUlwpZ2zbSC/FbcfUMVbzV0DwkMo0hgAJAbCQxVJDAgrCx/EtdHMMT3FLTB
EeL6LwYOEBe3mfxE3N/C0KHiYgeUch9xfRPeweLiCIQtJHYfc30HAyQwAJgTW1iSJq7S1pLLxE2iqHq9
uBhivJ4t7n6hKsY5STjdQwLDKBYGAORGAkMVCQxY5uni+giGNhcXO6Ap7iY3iuu/WLL0zzKfnVTuJ+7v
YSgWuu4oLn5ACeyWUt9fZXVxcQSWOVxc/8EACQwA5sQWlqSJaxxeIW4SRVU8rGZhrFliQf5CcfcLVRyD
0k0kMIxingaQGwkMVSQwYJk46/18cf0EA1uLix3QFF8V13cx8BRxcavjWHF/E0OfFhc7oIQXiOuXGBVJ
qy6GwGR3Edd/MPBwtz4IANOxhSVp4hqHVeUCcRMpqt4hLoYYjzeLu0+oOk84b7ebSGAYRQIDgNxIYKgi
gQGTvU1cP8HAtuLiBjTBTuL6LQZOl+XFxa6OOwvbac/sZrmXuPgBucWxq65fouqPEkmrLobAVD8U14+w
ZOkebn0QAKZjC0vSxDUuzxU3kaLqatlQXAxR1sbyb3H3CVVkRncXCQyjSGAAkBsJDFUkMGCyrcT1Eww8
QFzcgHFbTk4S128xsJu42M3FB8T9bQx9Q1zsgNw+JK5PoirWEFz8AGc/cf0IJDAAmCNbWJImrnGJzMlz
xE2mqDpEXAxR1sfE3R9U/U4W8pYImo0EhlEkMADIjQSGKhIYMBW/K6e3s7iYAeO2l7g+i4EfiIvbXK0v
V4qrA0MPEhc/IKdjxPVHDF0hq4mLH+BsIq4vYcnSXd36IABMxxaWpIlrnPYRN5miKrb820xcDFHGPeUm
cfcHVXuIiyG6gQSGUSQwAMiNBIYqEhgwFYnG0yOBAU0UL7T8QVyfxcAScbGbj9eLqwNDPxMXOyCn74vr
jxg6TFzsgJnE70XXn/puZ7c+CADTsYUlaeIap3hL+zRxEyqqjhQXQ5RxvLj7gqqfi4sfuoMEhlEkMADI
jQSGKhIYMNW+4voKSGBAM71QXH/FwLHi4jZfq8rfxNWFof8RFz8gl1+L64sYeqC42AEz+ay4/tR3JDAA
mBNbWJImrnHbXdyEiqob5c7iYoi8dhV3TzDqweJiiO4ggWEUCQwAciOBoYoEBky1rbi+giVLHyouZsC4
rCEXi+uvGDz7uYu42C3EM8TVh6EzZQVx8QNy4C3xmV0kHFGL+ThAXJ/qOxIYAMyJLSxJE1cT/FjcpIqq
o8XFD/nEF2Uyouv5lrgYoltIYBhFAgOA3EhgqCKBAVOtIhz35rEDA5rmLeL6KgZybZfOs416ItHDxQ/I
4TJx/RADHxcXN2A2jxTXp/qOBAYAc2ILS9LE1QQ7iZtUUXWzxNtFLobIg7cU6om+uZ24GKJbSGAYRQID
gNxIYKgigQEObzF6JDCgSTaSq8X1VSxZeo1EjFzsUthNXL0YOl8iKc7FD0jtWnH9EAN7i4sbMJutxfWp
viOBAcCc2MKSNHE1xTfFTayo+qq4+CG91eQCcfcBVXG2mIshuocEhlEkMADIjQSGKhIY4Jwkrr/0HUe8
oUkOF9dPMfA2cXFL6Xvi6sbQy8XFDkhpOXH9D0MbiosdMJt4pu/6VN/d360PAsB0bGFJmriaIt7edhMr
Ru0oLoZI643i4o+qG2RLcTFE95DAMIoEBgC5kcBQRQIDnK+I6y99xw5+aIq7yo3i+ikGW8mX+F0Rz95i
B0XXBgyUuhfot+hjrv9h4GxxcQPqulJc3+qzbdz6IABMxxaWpImrSY4WN7mi6gfi4od0IsuXrS3r+bC4
GKKbSGAYxcMtALmRwFBFAgOco8T1l74jgQFN8SVxfRQDLxMXtxw+La4NGDpQXOyAVDYV1/cw8BlxcQPq
ulhc3+qzzd36IABMxxaWpImrSeItbjLy63mYuBgiDba2rCf3GZ1oHhIYRpHAACA3EhiqSGCA80Fx/aXv
SGBAEzxAXP/EwPmysrjY5XAH4ez9mcULLTzrQE6bi+t7GCiZ1IVuit+Mrm/12fpufRAApmMLS9LE1TQf
FTfBoirOeHXxw8JtLSTS1PN2cTFEd5HAMIoEBgC5kcBQRQIDnEPE9Ze+20JcvICSfiquf2LgaeLiltO7
xbUFQ+w2iZxIYJgZL+5hoX4jrm/12WpufRAApmMLS9LE1TSxhRaZ4PX8j7gYYmG+Li7eqLpcWLjtHxIY
RjEOAORGAkMVCQxwSGDweIMY47anuL6JgVhgWV5c7HKK3zD/ENcmDNwgsVOsix+wUCQwzGwTcXED6nqL
xBFzuJVbGwSAmdjCkjR5NdF7xX15QdUZMo4ful0WGb4u1hj1KnExRLeRwDCKBAYAuZHAUEUCAxwSGLxV
xcULKGGxnC2ub2LgUeJiV8JLxbUJQ58TFztgoe4hrs9hydKrxMUMwDy4NUEAqMMWluQmtQZYT64U9yUG
VfuIiyHmLpJBThMXZ1RdIDwM7ScSGEaRwAAgNxIYqkhggEMCw6jrxcUKKOV54vomBn4kLm6lrCTnimsb
hu4tLn7AQmwrrr9hydLTxcUMwDy4NUEAqMMWluQmtYb4X3FfYlB1jsRbDS6GmJt9xcUYo54jLoboPhIY
RpHAACA3EhiqSGCAc4S4/tJnl4iLFVDCGnKhuL6JgfuJi11J8VKMaxuGviMudsBCkMAwvePExQzAPLg1
QQCowxaW5Ca1hogfu5eJ+yKDqmeLiyHqi90E/iouvqj6g5A0018kMIwigQFAbiQwVJHAAOeT4vpLn8X3
dhcroIQ3ieuXGPiyuLiVtpycIq6NGHqouPgB80UCw/Q+KC5mAObBrQkCQB22sCQ3qTUIC2X1nC8ri4sh
6nmduNhi1OPFxRD9wLw8igQGALmRwFBFAgOcr4rrL30Wi5IuVkBut5OrxfVLLFl6o9xNXOzG4cHi2omh
X0gke7j4AfNBAsP03iAuZgDmwa0JAkAdtrAkN6k1SCzKx+K8+zKDqlhUdDHE7DaQq8TFFVW/En609xsJ
DKNIYACQGwkMVSQwwPmJuP7SZ8eLixWQ24fE9UkMfExc3Mbpa+LaiqG9xMUOmA8SGKb3fHExAzAPbk0Q
AOqwhSW5Sa1hninuywyqLpY4dsPFEDPj4Up9u4iLIfqDBIZRJDAAyI0EhioSGOCcKa6/9NkR4mIF5HQX
iR0GXJ/EkqXXyibiYjdOWwv3bWZnC8dpIhUSGKa3t7iYAZgHtyYIAHXYwpLcpNYw8ePgLHFfaFAVxyC4
GGJ6dxV+pNfzfXExRL+QwAC0AzszdQsJDFUkMMC5XFx/6bM3i4sVkNOx4vojBt4lLm5NEElPrs0Yeo64
2AFzRQLD9B4mLmYA5sGtCQJAHbawJDepNVCcue++0KAqHm7zJvDcfEVcLDFqibgYol9IYADagQSGbiGB
oYoEBkx1G3F9pe9YaENpO4rrixi4Qpr8zGYjuVpc2zFwgawqLn7AXJDAML1txMUMwDy4NUEAqMMWluQm
tQaKM/fj7H33pQZVbxcXQ4x6sLgYYtQXxcUQ/UMCA9AOJDB0CwkMVSQwYKp7iesrfbebuHgBufxYXF/E
wCvFxa1JYucW13YMvVpc7IC5IIFhek08ZgdoLbcmCAB12MKS3KTWUI8Q96UGVZEtfztxMcRQJMX8UlwM
URVHbGwlLo7oHxIYgHYggaFbSGCoIoEBU+0hrq/03d3FxQvI4THi+iEG/ipteHN/DblI3DVggN1PkQIJ
DNNjfAEJuTVBAKjDFpbkJrUGO1HcFxtUHSIufhh6irjYYdSR4mKIfiKBAWgHEhi6hQSGKhIYMNVbxPWV
vltTXLyA1BbL78X1Qww8U1zsmmg/cdeAoXeKix1QFwkM0yOBAUjIrQkCQB22sCQ3qTXY/cR9sUHVf2Qz
cTHEkqWrSDz4drFD1bVye3FxRD+RwAC0AwkM3UICQxUJDJjqG+L6Sp+dLy5WQA7PEdcPMXCmRJKHi10T
RVvPEnctGIhnJWxzj4UggWF6K4qLGYB5cGuCAFCHLSzJTWoN91VxX25Q9TFx8cOSpa8SFzOMeq+4GKK/
SGAA2oEEhm4hgaGKBAZMdaG4vtJnx4uLFZDaasIYnNn/iItdk0Wb3bVg6AhxsQPqIIFhei5eAObJrQkC
QB22sCQ3qTXcPeVmcV9wMHSjbCkuhn22nrAIUE/EKeLl4oj+IoEBaAcSGLqF7y5VJDBgsnuJ6yd9d7C4
eAGpvUFcH8TAT8XFrQ1+LO6aMBDP3e4qLnbAbEhgmJ6LV99wjDZy2tmtEwLAVLawJE1YbTQhbvJF1efE
xa/PPiAuVhgVD6JcDNFvJDAA7UACQ7eQwFBFAgMmY3c1r03n7aO91perxPVBDDxQXOza4L7irglDx4qL
HTAbEhi8K8XFq29IYEBOJDAAqMUWlqQJq41iZ4HrxU3AGIqdKuKNJBfDPrqz3CAuVqi6SNYQF0f0GwkM
QDuQwNAtJDBUkcCAyeLtZtdP+m5HcfECUuIFgZl9TVzc2uTz4q4NQzuIix0wExIYvPjd4+LVNyQwICcS
GADUYgtL0oTVVh8WNwGj6jhx8eujL4qLEUa9SFwMARIYgHYggaFbSGCoIoEBy9xNXB/pu5uEZGTkxosl
M4sXSu4hLnZtsoVwn2d2grjYATMhgcEjgWGABAbkRAIDgFpsYUmasNpqI7lW3CSMKt6+GWzb6GKDUefK
SuLiCJDAALQDCQzdQgJDFQkMWOZgcX2k784QFy8gpS+I638Y+IS4uLXR+8VdI4Z2FRc7YDokMHgkMAyQ
wICcSGAAUIstLEkTVpsdJG4SRtX3xcWvL5aTk8XFBqOeIi6OQCCBAWgHEhi6hQSGKhIYECKh/RpxfaTv
PiouZkAqsWW+63sYiJdtNhMXuzZaT/guMrNTJZ49ufgBDgkMHgkMAyQwICcSGADUYgtL0oTVZusIP6Lq
eYi4GPbBPuJiglHxttby4uIIBBIYgHYggaFb+L5bRQIDwuHi+gdISEZ+LKzM7L3i4tZmrxF3rRiKZ08u
doBDAoNHAsMAn7PIiQQGALXYwpI0YbXd68VNxKg6SVz8ui6OQogjEVxMMOpR4uIILEMCA9AOJDB0CwkM
VSQw4EES58u7/oElSzcVFzcghfjN6PodBuIz+7biYtdmq8pfxV0zBs6RFcXFD5iKBAaPBIYBEhiQEwkM
AGqxhSVpwmq7NeRCcZMxqh4jLoZd9nJxscCoH4uLITAZCQxAO5DA0C0kMFSRwNBvsTjP77/p/V5c3IAU
VpDfiut7GHiduNh1wdPEXTOGXiAudsBUJDB4JDAMkMCAnEhgAFCLLSxJE1YX7C9uMkbV6dKn4wHWlSvE
xQKjHiAujsBkJDAA7UACQ7eQwFBFAkN/RfLCWeL6BQa6uHU9muNZ4vodBv4usVOBi10XxPOkOHbSXTsG
IsFudXHxAyYjgcEjgWGABAbkRAIDgFpsYUmasLogjgmIB5luQkZVn87ke5+4GGDU18TFEJiKBAagHUhg
6BYSGKpIYOin+wrbl8/uIeLiByxULMxfIK7fYeA54mLXJbuKu3YMvUFc7IDJSGDwSGAYIIEBOZHAAKAW
W1iSJqyueLq4CRlVf5TF4mLYJVvI9eJigKo4P/ie4uIITEUCA9AOJDB0CwkMVSQw9Mva8k65UVx/wNAl
Elv8uzgCCxVHI7h+h4GzpQ/PWsJ3xMUAA/G9bT1xsQOWIYHBI4FhgAQG5EQCA4BabGFJmrC6IrayO1Pc
pIyq2PbRxbBLPi/u2jHq0+JiCDgkMADtQAJDt5DAUEUCQz9sIK+Ry8T1A4w6TFwsgYWKxVg+i2b2OHGx
66JtJF6EcHHAAMf5YDYkMHgkMAyQwICcSGAAUIstLEkTVpfsIW5SRtX5EsduuBh2wf3EXTdGxS4VdxQX
R8AhgQFoBxIYuoVFoyoSGLprE3mmfFluEHf/Mb0HiIsrsFCHiOtzGDhZlhMXu676pLhYYOBa2Uxc7IBA
AoNHAsMACQzIiQQGALXYwpI0YXVJ/GCMH45uYkZVVxc2og/8VNw1Y9Sh4uIITIcEBqAdSGDoFhIYqkhg
aJ/YVj2OgritbC73kEdIHAP4ZjlO/iTufqOes8TFHlioOwnHM87sweJi12W3l1ikd/HAwCfExQ4IJDB4
JDAMkMCAnEhgAFCLLSxJE1bXPEzcxIyqi2QNcTFss73EXS9GXS23ExdHYDokMADtQAJDt5DAAGA2zPvI
5XPi+hwGvikubn1wkLiYYOAm2Vpc7AASGDwSGAZIYEBOJDAAqMUWlqQJq4u+L25yRtVrxcWvreJYjHPE
XStGvUVcHIGZkMAAtAMLWd1CAgOAmVwltxE3fwALsb24PoeBm2UbcbHrg9hZ5zJxscFA7DDkYgeQwOCR
wDBAAgNyIoEBQC22sCRNWF20RNzkjKr4Uhg/OF0M2+jF4q4To+IhAw85MR8kMADtQAJDt5DAAGAm8Ra0
mzuAheLlkJl9Wlzc+oTnMLO7v7jYod9IYPBIYBgggQE5kcAAoBZbWJImrK76srgJGlUHiotf20Qixj/E
XSNGvUxcHIHZkMAAtAMJDN1CAgOA6cSxcOuJmzuAhfh/4vocBq6XzcXFrk9iJ8w/iYsRBn4kLnboNxIY
PBIYBkhgQE4kMACoxRaWpAmrq+KcudjOz03SGIoHXuuLi2GbvEfc9WHU+bKKuDgCsyGBAWgHEhi6hQQG
ANPpSkI6mmV5+bW4PoeB94mLXR/tLS5GGNpdXOzQXyQweCQwDJDAgJxIYABQiy0sSRNWlx0lbpJG1SHi
4tcWd5T/iLs2jHqmuDgCdZDAALQDCQzdQgIDAOfvsoa4eQNYiKeL63MYuErY+WRoOTlZXKwwcIZEYpCL
H/qJBAaPBIYBEhiQEwkMAGqxhSVpwuqyO0hs6+cmagxdK5uJi2EbfFbcdWHUmbJYXByBOkhgANqBBIZu
IYEBgPMEcXMGsBCryl/F9TkMvFFc7PpsJ3GxwtC+4mKHfiKBwSOBYYAEBuREAgOAWmxhSZqwuu5QcRM1
qj4qLn5Nt4O464H3WHFxBOoigQFoBxIYuoUEBgBTHSduvgAW6tXi+hwGLhR2PvG+Ii5mGPizrCQudugf
Ehg8EhgGSGBATiQwAKjFFpakCavrNpSrxU3WGLpRthQXwyb7sbjrwajY0jG2dnRxBOoigQFoBxIYuoUE
BgCTxdER64ubL4CFWFf4zJnZC8TFDkuWbiXxbMnFDQMHiIsd+ocEBo8EhgESGJATCQwAarGFJWnC6oO3
iZusURVHMbj4NVXsJuCuA95DxMURmAsSGIB2IIGhW1hMArBMLA7yvR65vFdcv8PAOcKRjDM7TFzsMHCJ
sIMHAgkMHgkMAyQwICcSGADUYgtL0oTVB2vL5eImbAzdLPcUF8OmiYcGfxB3HRj1bXFxBOaKBAagHUhg
6BYSGAAs8yJx8wSwUJvLf8T1OwzsLS52GGIX1NktFRc79AsJDB4JDAMkMCAnEhgA1GILS9KE1Rec41hP
W85SjQd3rv3w7i0ujsBckcAAtAMJDN1CAgOAEG/HuzkCSGFCXL/DwC+FIxnr+V9xMcRAJHhwDBBIYPBI
YBgggQE5kcAAoBZbWJImrL5YVS4UN2mjakdxMWyKteRScW3HqGPExRGYDxIYgHYggaFbSGAAcLiweIpc
IuE9dmR0fQ8DDxMXO4yKIxJ4/jaz94uLHfqDBAaPBIYBEhiQEwkMAGqxhSVpwuqT54ubtFH1PXHxa4qD
xLUbo+KM3DuLiyMwHyQwAO1AAkO3kMAA9NtHhOQF5BTPAFzfw8B3xMUN03uuuFhi4HqJY1tc7NAPJDB4
JDAMkMCAnEhgAFCLLSxJE1afrCTniJu4UbWzuBiO2x3kWnFtxqh4U8vFEZgvEhiAdiCBoVtIYAD6K85K
J3kBOe0qru9haDtxscP0FsuZ4uKJgU+Lix36gQQGjwSGARIYkBMJDABqsYUlacLqmyeLm7hRdZK4+I1b
/MBz7cWoSPTYSFwcgfkigQFoBxIYuoUEBqB/rpGniJsTgFSWl9PF9UEMfFZc7DC7R4uLKQbi2JZ7iYsd
uo8EBo8EhgESGJATCQwAarGFJWnC6pv4gf5rcZM3quLHpovhuNxHOJezvneKiyOwECQwAO1AAkO3kMAA
9MvZwqIWSthXXB/EQGzzv4W42KGeH4qLLQa+Li5u6D4SGDwSGAZIYEBOJDAAqMUWlqQJq48eI27yRtVp
EgkfLobj8ANx7cSo+MK/trg4AgtBAgPQDiQwdAsJDEB/fFBWEzcXACmtIueJ64cY+IC42KG+HcTFFkM7
iYsduo0EBo8EhgESGJATCQwAarGFJWnC6qufiZvAUbWPuPiVxtaDc/MacXEEFooEBqAdSGDoFhIYgO77
nTxA3BwA5PAKcX0RA1fLBuJih7k5WlyMMRDPJ13c0G0kMHgkMAyQwICcSGAAUIstLEkTVl/tLG4CR1Vs
X7pYXAxLifrPEtc+jLpQVhUXS2ChSGAA2oEEhm4hgQHorkvlRTLu31zol3XkCnF9EgNvFhc7zN2dJI7j
cHHGwP+Iix26iwQGL+YKF6++IYEBOZHAAKAWW1iSJqw+O17cJI6qZ4iLXyn7iWsXvIiXiyOQAgkMQDuQ
wNAtJDAA3XOZxK5pa4gb90BO7xbXLzFwiTA203qfuFhjIHbhadIRrsiPBIbpuXj1DQkMyIkEBgC12MKS
NGH12b3FTeKoOl9WEhfD3NaUi8W1C6POEd7eQk4kMADtQAJDt5DAAHTHHyR2XGBxFOOymVwrrn9iYH9x
scP83Vb4PjOzcb88hLJIYJjeKuJi1ickMCAnEhgA1GILS9KE1XdfEDeRo+oAcfHL7UBx7YH3BHFxBFIh
gQFoBxIYuoUH/kC7xWLx5+Rhspy4cQ6U8ilx/RTAeMXLQyzc9gcJDNNbW1zM+oQEBuREAgOAWmxhSZqw
+u6ucqO4yRxDF8rq4mKYy6bCmyH1nSY8EEVuJDAA7UACQ7eQwAC0z7/lOHmysNsCmmIbuVlcnwUwfi8T
N3bRPSQwTO924mLWJyQwICcSGADUYgtL0oSFJUuPFDeZoyrOaHXxy+Uoce2A9whxcQRSIoEBaAcSGLqF
BAagHc6Q90h8L19Z3HgGxunb4vougGa4TNYSN37RLSQwTG9LcTHrExIYkBMJDABqsYUlacLC4AzI68RN
6Bi6Qkpt48WbIXPzA3FxBFIjgWHUHSTmRqBJWDjrFhIYgHa4Ur4sL5S7iBvPwLg8XFy/BdAscZSqG8Po
FhIYpndfcTHrExIYkBMJDABqsYUlacLCwCHiJnRUvVVc/FL7nrj64e0oLo5AaiQwjIrFYhcrAEiFBAag
nf4kB0kkZ7uxDZQSRw2eKq6fAmiWq2UjcWMZ3UECw/R2FxezPiGBATmRwACgFltYkiYsDKwn8SPBTeoY
ihhFrFwMU3mkuLrhxVteLo5ADiQwjCKBAUBuJDAA7XeWvElYlMI4PFlcvwTQTB8SN5bRHSQwTO854mLW
JyQwICcSGADUYgtL0oSFoaXiJnVUxW4VLn4pLJbfiqsXo26SrcXFEsiBBIZRJDAAyI0EBqA7bpBj5MHi
xjuQ2kryZ3H9EUAzXS9bihvT6AYSGKZXavffJiOBATmRwACgFltYkiYsDN1GLhM3sWPoWrm9uBguVGTZ
ujrhfUJcHIFcSGAYRQIDgNxIYAC66STZTdy4B1J5mbj+B6DZPiduTKMbSGCY3lHiYtYnJDAgJxIYANRi
C0vShIWql4ub2FF1uLj4LcQacqG4+jDqOtlMXCyBXEhgGEUCA4DcSGAAuu2n8iBx4x9YiPie+g9x/Q5A
820nbmyj/UhgmN7PxcWsT+IZeXyGY37uKa5vYYAEBgC12MKSNGGhalX5m7jJHUM3Surt7N4sri547xMX
RyAnEhhGxY8jFysASIUEBqAfJuR24uYBYD7eKa6vAWiHb4sb22g/Ehimd4W4mAF1rSyub2GABAYAtdjC
kjRhYRTHGNTzGXHxm4+N5d/i6sGoq2Q9cbEEciKBYRQJDAByI4EB6I94aP88WU7cfADUtanE8Y+unwFo
j4eKG+NoNxIYZraJuLgBdV0krm+BBAYANdnCkjRhYdRi+aO4CR5DN8s9xMVwro4UVwe8N4mLI5AbCQyj
SGAAkBsJDED/fEs2EDcnAHV8XFzfAtAuvxCS2rqHBIaZPUZc3IC6ThLXt0ACA4CabGFJmrDg7SNugkfV
ceLiNxdxLlUkQ7i/j1GXSJyF5mIJ5EYCwygSGADkRgID0E8XyP3EzQvATPiNDXTL48SNdbQXCQwze6u4
uAF1fV5c3wIJDABqsoUlacKCF9nNp4mb5FG1RFwM6zpe3N+Fd4C4OAIlkMAwigQGALmRwAD01/XyFHFz
AzCdb4jrTwDa6SyJ3WLdeEc7kcAwsxPFxQ2o66Pi+hZIYABQky0sSRMWpvf/xE3yqPqOuPjVsau4vwnv
L7KSuFgCJZDAMIoEBgC5kcAA4BXi5gdgqjgv3/UhAO32HHFjHu10F3H3GQPXyariYgfU8S5xfQskMACo
yRaWpAkLM/uRuIkeVTuLi99Mlpdfi/t78J4qLpZAKSQwjCKBAUBuJDAACK8RN0cAy8ROkr8U138AtFsc
K8SCbndsLu4+Y2h3cbED6jhYXL8CCQwAarKFJWnCwsweKG6iR9XPxMVvJs8S97fg/UYi6cPFEiiFBIZR
JDAAyI0EBgDLvFTcPAGEfcT1GwDd8CpxYx/tQwLD7A4XFzugjo+J61cggQFATbawJE1YmB3nR9Yzl8zY
1SSyx93fgfcYcbEESiKBYRQJDAByI4EBwDI3y+PEzRXotzhq8E/i+g2AbrhC+P3ZDSQwzO4SWVFc/IDZ
HCOuX4EEBgA12cKSNGFhdttKPChyEz6GTpPYstLFcKo3ivsb8H4qLo5AaSQwjOIBEoDcSGAAMNm/5V7i
5gv01wHi+guAbnmnuDkA7bKuuPuLqkeJix8wmx+K61MggQFATbawJE1YqOdz4iZ8VD1BXPwm21CuFvfv
4T1IXCyB0khgGEUCA4DcSGAAMNUfZA1xcwb6Zy25TFxfAdAt18rG4uYCtMfK4u4vqr4mLn7AbC4S16dA
AgOAmmxhSZqwUM+WcqO4SR9DZ8licTFc5qPi/i28OMLExREYBxIYRpHAACA3EhgAOPG7ys0Z6J+3iesj
ALqJ+b8bbhB3fzEUOyJvIS5+wHQ2EdefMEACA4BabGFJmrBQ3+HiJn1UPV1c/MLdhUSQ+uKL+jbiYgmM
AwkMo0hgAJAbCQwApvMwcfMG+iMe0scb2a5/AOimeK52F3FzAtrjcnH3F1VHiosfMJ2niOtLGCCBAUAt
trAkTViojwcD9ZwvK4mL4dfF/Rt4nxEXR2BcSGAYRQIDgNxIYAAwnbNlRXFzB/ohFnZc3wDQbceKmxPQ
Hn8Rd29RFQk7dxYXQ8A5WlxfwgAJDABqsYUlacLC3Lxb3MSPqv1lauzi7SD338K7XtgmDU1DAsMoEhgA
5EYCA4CZvFjc3IHuY4dDoN92EDc3oB3OEHdfMYrjdVHXmnKNuH6EARIYANRiC0vShIW5WU94iDy7C2U1
WRa35eU0cf8tvA/K5L4HNAEJDKNIYACQG989AcwkfnutIm7+QLd9TVyfANAP3xc3N6AdfiDuvsJ7rLg4
ApO9VFz/wRAJDABqsYUlacLC3L1J3OSPqtfIspg97dYy1HO1bCST+x3QBCQwjCKBAUBuJDAAmM1+4uYP
dNeDxPUFAP2yi7g5As3HNvdzc6nwrBQzWV0isdf1HwyRwACgFltYkiYszN0acom4DwAMXS6xsLeq/PXW
MtRzoLi+B4wbCQyjSGAAkBsJDABmc56sIG4OQfcsJ78Q1xcA9MupEnOCmyvQbO8Xd08xvR/JSuLiCbxd
XL9BFQkMAGqxhSVpwsL8sIhXz1vkdVPKMLN/CAuiaCrmvlGMVwC5kcAAoI5HiptD0D2PF9cHAPTTE8TN
FWi214q7n5jZx4WkHUy1o9wors+gigQGALXYwpI0YWF+ItvzfHEfAhiKoxCumlKGmb1CXJ8DmoAEhlEk
MADIjQQGAHUcI24OQbesKOeI6wMA+inmhMXi5gw017PE3U/M7iNCEgOW2UTY/bk+EhgA1GILS9KEhfl7
hrgPAWC+4stWHLnh+hvQBCQwjCKBAUBuJDAAqOM64XtJ971I3P0H0G8vEDdnoLkeIe5eop6jZWVxsUV/
rC+/EddH4JHAAKAWW1iSJizMX2Q3/17cBwEwH88W19eApiCBYRQLBQByI4EBQF37iptH0A1ryiXi7j2A
frtQVhc3d6CZ7izuXqK+X8kW4uKL7ot7z9rM3JHAAKAWW1iSJiwszOPEfRAAc3WWsOUfmo4EhlEkMADI
jQQGAHV9Stw8gm54q7j7DgDh9eLmDjRTHE98k7h7ifr+LXEcL89U+2VPuVxcn8DMSGAAUIstLEkTFhYm
ztv6pbgPA2AuIhnG9TGgSUhgGEUCA4DcSGAAUFe8gcuZ0N20kcQijbvvABDiO+Ntxc0haKbzxN1LzN2Z
EovafA/qtk0kjg9xfQD1kMAAoBZbWJImLCzcruI+DIC6ThG+YKMNSGAYRQIDgNxIYAAwF/cQN5eg3Y4Q
d78BYLL3iptD0Ew/EHcfMX+/lWfJKuJijnbaWN4t14q776iPBAYAtdjCkjRhIY0TxX0gAHU8TFy/ApqG
BIZRJDAAyI0EhqrzJeZeNNuGsrncUx4ou8uT5dXyAfminC7XibvPmL+ni5tL0F53kxvF3W8AmCwW9zYT
N5egeT4q7j5i4eI31EfkAbK8uPij2eJYkHhxNHZcuF7cfcbckcAAoBZbWJImLKSxo7gPBGA23xPXp4Am
IoFhVCzSuFgBQCokMFT9RVyc0E4ryF1kb/mg/EZuFnfvUc8h4mKN9jpO3L0GAOfj4uYSNM/+4u4h0vq7
HCaPlbXE3Qs0wzryJPmsXCHufmJhSGAAUIstLEkTFtLhoQLmY3tx/QloIhIYRpHAACA3EhiqSGDovtgi
Nr5z/EJcH8DMYjtqF1e0U+xg4u4zAEwndmzZWtycgmZ5sLh7iHxukl/KofJEiURadmgYj5Ukdmt7rnxM
zhQSmfMjgQFALbawJE1YSCfOGuVDFnPxBXF9CWgqEhhGkcAAIDcSGKpIYOiX+8u3xPUFeJeIiyXaZzn5
mbj7DAAziZes3LyCZonnCe7+oayr5efyCYnjzmKnhh0kjkSLz2J371DP6rKV7CLPkIMk5qezheOxxoME
BgC12MKSNGEhrU+L+2AApoovaXcV14+ApiKBAeguzkxvLhIYqkhg6KdHyAXi+gRGrSwujmiXx4m7vwBQ
x/3EzS1olvPE3T80w/USvz9+KkdL7NzwVnmFPEceL7vKfWVb2UI2v1XsKhZJKss0eaeHFWVyW8O6suxa
4rri+iK5eGfZQ+IIuGfJK+UdcrjEy3rfl98KR0A003ZunRAAprKFJWnCQlrxYR5fbNyHAzDZEeL6ENBk
JDAA3UUCQ3ORwFBFAkN/3U5iy1/XL1B1J3ExRHsslj+Iu78AUMcPxc0vaJYvibt/AJDDtm6dEACmsoUl
acJCeh8S9+EALHOtbCKu/wBNRgID0F0kMDQXCQxVJDD021ryG3F9A0MPFBc/tMcLxN1bAJiL3cXNMWiO
l4u7dwCQw9ZunRAAprKFJWnCQnobyTXiPiCA8G5xfQdoOhIYgO4igaG5SGCoIoEBsbvAVeL6Bwbi6AEX
O7TDGnKRuHsLAHNxhjR523oMjh5w9w4ActjQrRMCwFS2sCRNWMjjIHEfEEAsQsQZYq7fAE1HAgPQXSQw
NBcJDFUkMCDsL65/YIA5vd2WiruvADAfTxE316AZVhRehANQykpunRAAprKFJWnCQh5rCw+b4bxeXJ8B
2oAEBqC7WOxqLr5TVpHAgLBYzhbXR7Bk6XPExQ3Nt6FcLe6+AsB8nCsriZtz0Aw/EHfvACClf7k1QgBw
bGFJmrSQz2vFfVCgvy6U1cX1F6ANSGAAuosEhuYigaGKBAYs8wxxfQSD72wuZmi+j4i7pwCwEAeIm3PQ
DK8Wd98AIKVz3BohADi2sCRNWsgnFqpjwdp9WKCfXiCurwBtQQID0F0kMDQXCQxVJDBgmdWE8eG9RlzM
0Gx3lRvF3VMAWIhLZA1xcw/G757i7hsApPR9t0YIAI4tLEmTFvJ6kbgPC/TPOcKWfWg7EhiA7iKBoblY
oK0igQGTHSmun/TdUnHxQrN9Sdz9BIAU/lfc3INmOF/cfQOAVD7m1ggBwLGFJWnSQl6xYP1ncR8Y6Jcn
iesjQJuQwAB0FwkMzUUCQxUJDJhsL3H9pO9IYGif+4u7lwCQyr9kPXFzEMaPI4QA5PYGt0YIAI4tLEmT
FvJ7qrgPDPTHabK8uP4BtAkJDEB3kcDQXCQwVJHAgMnWlpvF9ZU+I4GhfX4i7l4CQErvFzcHYfweLu6e
AUAqj3NrhADg2MKSNGkhv1i4/p24Dw30wyPF9Q2gbUhgALqLBIbmIoGhigQGTBVHtbm+0mckMLTLHuLu
IwCkdr1sLm4uwnjF8+MLxN03AEhhS7dGCACOLSxJkxbK4IFEf/1QXJ8A2ogEBqC7SGBoLhIYqkhgwFRf
FNdX+owEhvZYLGeJu48AkMOnxM1HGL93i7tnALBQcYzQcm6NEAAcW1iSJi2UsZycJO7DA90WZ5m6PgG0
EQkMQHeRwNBcJDBUkcCAqQ4U11f6jASG9nieuHsIALnE0Uv3FDcnYby2FXfPAGChfuzWBwFgOrawJE1c
KOeh4j480F1fEdcXgLYigQHoLhIYmosEhioSGDDV88X1lT4jgaEd1pALxd1DAMjp6+LmJYzfL8TdMwBY
iAPd+iAATMcWlqSJC2V9V9wHCLonMtrvLq4fAG1FAgPQXSQwNBcJDFUkMGAqjusbRQJDO7xR3P0DgBJ2
Ejc3YbyeIu5+AcBCPNytDwLAdGxhSZq4UNYO4j5A0D2fFNcHgDYjgQHoLhIYmosEhioSGDDVg8T1lT4j
gaH5NpA4i9jdP4z6u2wkawPTWE/OFdd/4P1U3PyE8VpJ2J0HQEr/kdXc+iAATMcWlqSJC+V9SdwHCbrj
ermDuPsPtBkJDEB3kcDQXCQwVJHAgKk4L3oUCQzN90Fx9w4e31NQx57i+g+m9xhxscR4vUnc/QKA+fiW
WxsEgJnYwpI0eaG8reVGcR8m6IZDxN17oO1IYAC6i4WB5iKBoYoEBky1jbi+0mckMDTbneUGcfcOo06R
5cXFEpjqRHH9CN7vhPHVPLGrCL8BAKTyHLc2CAAzsYUlafLCeBwl7sME7Xe1rC/uvgNtRwID0F0kMDQX
Dy+rSGDAVJuL6yt9RgJDsx0r7r7Bu7+4OAJO7Mpzs7i+BI/fAc0Un+XufgHAXMRn4gZubRAAZmILS9Lk
hfHYTOKYAfehgnbjYSG6jAQGoLt4cNlcJDBUkcCAqUhgGMVvkua6r7h7Bu9z4uIIzOQIcf0J3vmysrhY
YnxuI5eJu2cAUNc33bogAMzGFpakCQzj835xHypor/hhsaa4+w10AQkMQHeRwNBcJDBUkcCAqUhgGEUC
Q3P9SNw9w6hr5Pbi4gjM5HZylbh+Be9l4mKJ8XqluPsFAHU9zq0LAsBsbGFJmsAwPvGDKo4bcB8saKdY
3HX3GugKEhiA7iKBoblIYKgigQFTkcAwigSGZnq0uPsFj36MhXi1uH4FL17IWUtcLDE+K8lZ4u4ZAMzm
IlnRrQsCwGxsYUmawDBebxX34YL2iS334oeFu89AV5DAAHQXCQzNRQJDFQkMmIoEhlEs/DbPYvmduPuF
UX+V1cTFEqgjjkQ4V1z/ghfPKF0sMV67iLtfADCbN7g1QQCowxaWpEkM47W2/EPcBwzahYUf9AEJDEB3
8TnWXCQwVJHAgKlIYBhFAkPzPFvcvYL3RHFxBOZiT3H9C17sEruhuFhivL4g7p4BwHTiKKW13ZogANRh
C0vSJIbxe5W4Dxm0R7xJs7y4+wt0CQkMQHeRwNBcJDBUkcCAqUhgGEUCQ7PETgJ/F3evMOpnspy4WAJz
daK4fgbvQ+LiiPHaSHgBDsBcHCR2TRAA6rCFJcUkhrFbVS4U90GDdthD3L0FuoYEBqC7SGBoLhIYqkhg
wFQkMIwigaFZ3iDuPmHUzbJEXByB+dhWol+5/oZR18uW4mKJ8XqcuHsGAFNFwtM6YtcEAaAOW1hSTGJo
hP3Efdig+X4u7p4CXUQCA9BdJDA0FwkMVSQwYCoSGEaRwNAc68mV4u4TRh0lLo7AQhwhrr/B+6y4OGL8
PinungHAZC+SW+YNtyYIAHXYwpKWTWQYu8VyjrgPHDTbzuLuKdBFJDAA3UUCQ3ORwFBFAgOmIoFhFAkM
zXGouHuEUXH+/sbi4ggsxO0kzgJ3/Q6jYseK7cTFEuN1G+H5MYCZ/FZiremWecOtCQJAHbawpGUTGRrh
SeI+dNBc3xJ3L4GuIoEB6C4SGJqLBIYqEhgwFQkMo0hgaIYtJLZjd/cIo14rLo5ACq8W1+/gfVtcHDF+
95BI+HL3DUC/3Sjby3/nDLcmCAB12MKSJk9mGLvl5QxxHz5oHjLS0UckMADdRQJDc5HAUEUCA6YigWEU
CQzNcIy4+4NRf5ZVxMURSGFlOVdc/4P3EHGxxPjtJe6eAei3t0llvnBrggBQhy0saeqEhrF7tLgPHzTP
58TdQ6DLSGAAuosEhuYigaGKBAZMRQLDKBIYxm8HcfcGXizGuTgCKe0prv/BO1mWExdLjN9bxd03AP0U
c/ZKUpkr3JogANRhC0uaOqGhEX4q7kMIzXGDbCnu/gFdRgID0F0kMDQXCQxVJDBgKhIYRpHAMH4/EHdv
MOpEcTEEcoj+5vohvMeJiyPGL5JLPi7uvgHol4tlUxmZK9yaIADUYQtLcpMaxu7B4j6I0BwfEXfvgK4j
gQHoLhIYmosEhioSGDAVCQyjSGAYr93F3ReMiqMZtxUXRyCH6G/R71x/xKizZLG4WGL8VpDjxN07AP1w
vUx75I9bEwSAOmxhSW5SQyMcL+4DCeN3jWwk7r4BXUcCA9BdJDA0FwkMVSQwYCoSGEaRwDA+y8tvxN0X
jDpcXByBnI4Q1x/hPVtcHNEMq8oJ4u4dgG6LhLx9xM0Nt3BrggBQhy0syU1qaITtxH0oYfzeLu6eAX1A
AgPQXSQwNBcJDFUkMGAqEhhGkcAwPs8Ud08w6krZQFwcgZxuJ1eJ65cY9TeJRXIXSzTDakISA9A/B4ib
E/7LrQkCQB22sCQ3qaExjhH3wYTxuULWFne/gD4ggQHoLhIYmosEhioSGDAVCQyjSGAYj1jgi4U+d08w
6pXi4giU8Gpx/RLeq8TFEc0RSQzs6Av0x6zJC8GtCQJAHbawJDepoTHuIjeK+4DCePCDDX1HAgPQXSQw
NBcJDFUkMGAqEhhGkcAwHq8Vdz8w6g+ykrg4AiWsLOeK658YxQs97RDz6ufE3UMA3XCTxI5fbg4Y4dYE
AaAOW1iSm9TQKB8T90GF8i4QtsxD35HAAHQXCQzNRQJDFQkMmIoEhlEkMJS3njBf1/cYcXEEStpTXP+E
9w5xcUSzLCdvEXcPAbRbHH/0KHFj33JrggBQhy0syU1qaJTN5FpxH1go67ni7hHQJyQwAN1FAkNzsSBW
RQIDpiKBYRQJDOUdLO5eYNR3xMUQGIcTxfVTjIrnkxuJiyOa50lynbh7CaB9zpGtxY33abk1QQCowxaW
5CY1NA4PQsYvtrdcLO7+AH1CAgPQXSQwNBcJDFUkMGAqEhhGkcBQ1h3lenH3AlVxTObdxcURGIdt5WZx
/RWjPioujmim+8n54u4lgPY4WuZ1jI9bEwSAOmxhSW5SQ+PEVpT/EvfhhTL2FndvgL4hgQHoLhIYmosE
hioSGDAVCQyjSGAo6zPi7gNGfUhcDIFxOkJcf8WoSEK6i7g4opnWlS+Lu58Ami2OjNhX3Niuxa0JAkAd
trAkN6mhkeIBlPsQQ36/kjg/zt0XoG9IYAC6iwSG5iKBoYoEBkxFAsMoEhjKuY+4e4BRl0sspLk4AuN0
O4lFItdvMeoL4uKI5ornmi+Uf4u7pwCaJ+baTcWN6drcmiAA1GELS3KTGhppTblM3IcZ8tpF3D0B+ogE
BqC7SGBoLhIYqkhgwFQkMIwigaGc74u7Bxh1gLgYAk3wanH9Ft724uKIZosjj74j7p4CaIY/ym7ixvCc
uTVBAKjDFpbkJjU01svEfaghnxPE3Qugr0hgALqLBIbmIoGhigQGTEUCwygSGMr4f+Lij1G/l8Xi4gg0
wcpyrrj+i1GRvOXiiOaL3Rjit9/F4u4tgPH4qzxHkn5fcmuCAFCHLSzJTWporFXlfHEfcMhjibh7AfQV
CQxAd5HA0FwkMFSRwICpSGAYRQJDfsvLGeLij1GPEBdHoEn2FNd/4bFjabvdRt4h14q7vwDK+LPsL7H2
48bqgrg1QQCowxaW5CY1NNqzxX3QIb0virsHQJ+RwAB0FwkMzUUCQxUJDJiKBIZRJDDk91Rxsceob4iL
IdBEPxTXjzHqVxJv87s4oj3ie9RRcqO4+wwgj5Pk8ZJ1hyq3JggAddjCktykhkaLD7Q/iPvQQzrxpf1u
4u4B0GckMADdRQJDc5HAUEUCA6YigWEUCQx5sTtifdfLXcXFEWiie8vN4vozRu0tLo5ony3lcIl5291r
AAt3uXxAthE3DpNza4IAUIctLMlNami8+HHgPgCRzpHiYg/0HQkMQHeRwNBcJDBUkcCAqUhgGEUCQ16v
FBd3jDpYXAyBJvu4uP6MUedI1reHUdzt5e1yibh7DmBu4piW2On5CbKKuHGXjVsTBIA6bGFJblJD48X2
bKeJ+0DEwsWXis3ExR7oOxIYgO4igaG5SGCoIoEBU5HAMIoEhnzWFeblei6VtcXFEWiyDeVf4vo1Rj1f
XBzRbitLHJf0E3H3HcD0rpBjZB9ZQ9wYK8KtCQJAHbawJDepoRV2E/fhiIV7r7iYAyCBAegyEhiai4Wy
KhIYMBUJDKNIYMgnfi+6mGPU88TFEGiD14rr1xh1oawmLo7ohjvJG+RscX0A6Lub5JfyDnmgrCBuLBXn
1gQBoA5bWJKb1NAaPxT3gYn5iwWC9cTFGwAJDECXkcDQXCQwVJHAgKlIYBhFAkMed5DrxMUcVb+Wxjy8
B+Yhtvn+s7j+jVGvFxdHdM+9JO73yXKzuP4AdN0N8gt5jzxK1hI3XsbOrQkCQB22sCQ3qaE1HiDuAxTz
90ZxsQYwQAID0F0kMDQXCQxVJDBgKhIYRpHAkMenxcUbox4iLoZAmzxeXP/GqPi+eltxcUR3xXErT5GP
yTni+gbQdrG7wu9lQvaXHSWOWHFjonHcmiAA1GELS3KTGlrla+I+WDF3F8lYz6QCWoAEBqC7SGBoLhIY
qkhgwFQkMIwigSG9bYU3Tev5krgYAm30I3H9HKPiTWQXQ/THpvIEOUi+K5eL6ytAE8X3vPPkO/I+eYbc
R1YV199bwa0JAkAdtrAkN6mhVSLbb20ksbq4GAMYYs4BumslceMe4xfbUbp71le3ERcn9Nfy4vpKn8XW
5y5WmD++B9fHdwp0CWO/vjXFxRD9Fomm/0/ihZgPywnyVyEpEOMQR4GdJcfLR+W18jiJo1FanagwHbcm
CAB12MKS3KQGAAAAAAAAAACQwYoSyQ07yZMlFpI/JJ+XEyW27L9U3CI0MNUV8kc5Sb4uh0vsSPY8eZRs
L3HkieuLnebWBAGgDltYkpvUAAAAAAAAAAAAxmix3E7uKveVXWVvea68Ut4sh8hhcpR8Wb4pkQTxKzld
fidxDF2II4TjiL5wo7jFcORxkyyL/cWy7J7E/Yn79BOJHTqOk89J3M+4t2+XV8t+8iTZXR4od5dISohk
GNd3IG5NEADqsIUAAAAAAAAAAAAAAAAl2UIAAAAAAAAAAAAAAICSbCEAAAAAAAAAAAAAAEBJthAAAAAA
AAAAAAAAAKAkWwgAAAAAAAAAAAAAAFCSLQQAAAAAAAAAAAAAACjJFgIAAAAAAAAAAAAAAJRkCwEAAAAA
AAAAAAAAAEqyhQAAAAAAAAAAAAAAACXZQgAAAAAAAAAAAAAAgJJsIQAAAAAAAAAAAAAAQEm2EAAAAAAA
AAAAAAAAoCRbCAAAAAAAAAAAAAAAUJItBAAAAAAAAAAAAAAAKMkWAgAAAAAAAAAAAAAAlGQLAQAAAAAA
AAAAAAAASrKFAAAAAAAAAAAAAAAAJdlCAAAAAAAAAAAAAACAkmwhAAAAAAAAAAAAAABASbYQAAAAAAAA
AAAAAACgJFsIAAAAAAAAAAAAAABQki0EAAAAAAAAAAAAAAAoyRYCAAAAAAAAAAAAAACUZAsBAAAAAAAA
AAAAAABKsoUAAAAAAAAAAAAAAAAl2UIAAAAAAAAAAAAAAICSbCEAAAAAAAAAAAAAAEBJthAAAAAAAAAA
AAAAAKAkWwgAAAAAAAAAAAAAAFCSLQQAAAAAAAAAAAAAACjJFgIAAAAAAAAAAAAAAJRkCwEAAAAAAAAA
AAAAAEqyhQAAAAAAAAAAAAAAACXZQgAAAAAAAAAAAAAAgJJsIQAAAAAAAAAAAAAAQEm2EAAAAAAAVC1a
srS0jeTB8ix5vRwqn5XvyIlyspw+xc/lBPmSfFzeLS+Vx8sSWVtcXQAAAGie28h95AnyKjlY4vvgN+Qn
MvW74E8lvid+U+K/i++Cr5QnyQOE74Kozf0m6pOJiQkgt7Vle9lbXinvlvjfV+VEOd2I8h/IsXK4vE1e
JLvLXWUlcXXNiRsTJdlCAAAAAABQ5R7qJbSh7CXvkXgY/S/5v0wukEiCeJs8Sm4rrk1dd5RMfejfBKdK
LDyEuE9fkI9JLFj8r7xA/kdiMeN24q6tSz4nLk599jVZRVy8Svm6uLaVFIt035Xj5JMSSV6R7LWfxBjZ
VtYR134M5BxfHxRXZw6xqOvagIGfSSRFutjl0JV+NQ6LZUeJhINIRj1X3He5hfqbHC8HysNlNXHt6YtS
3zV2Fld/CZEU7do0H7fMKe73Ute4Rd2Ge624Be9cloprB7y15BEScfum/FX+L4Ob5HfyKdlftpHlxLVp
Wm5MlGQLAQAAAABA1SL/MHAh7iWxIH2KuIfLpdwssZvDUtlOXFu7ZkW5Rlw82uY6OU1iAfcV8jDpykJE
XMf14q6772LBycWshPXFtampLpcfyWHyPNlGVhB3bX1SYnxFX3F1p3aSuPox9GJxsUutS/2qlLVkXzlW
rhJ3zbnFPYvEyf2lZLJLE5T8rvErWV5cO3J7q7g2zddL3O+lrnGLug12X7lR3IJ2Lr8V1xYM3VMiYeGn
Uvr+THaxfFoeL6uIa2uFGxMl2UIAAAAAAFC1yD8MnKs15bkSDzDdw8AmOFNeKxuIu4YuiLcb3bV3xX8k
3qyMxdrYetrFoA3iTUV3fX13o6whLmYl7CGuXW0Su9x8VZ4vm4q7zq7LPb7+KK7e1GLx8QZxbcDQ9uLi
l1pX+lVusYi9m8QuC/GZ7a51XG6S78tTJBI+Xfu7pPR3jaeJa0duPxDXnvm6r/u91DVuUbehYkH6LHEL
17mtK65NfXZHiaSFP4mL2bhdKR+XJeLafws3JkqyhQAAAAAAoGqRfxhYV5w3HDsc/FPcQ8Amijf7j5St
xF1Tm8VOBe6au+jf8hHZQlwsmuwN4q6p734pLl6lxFE3rl1tFbvQxMLO02VlcdfcRbnH1yfE1ZvaQ8TV
j6GrJY4mcPFLrSv9KpdV5YXyJ3HX1zRx1EQcZxHfY931dEHp7xoR0+gHri25pN55LP7WYvd7qWvcom5D
vVvcQnUJjxbXpr6JIxoeKceLi1NT/UQeIyNHTLgxUZItBAAAAAAAVYv8A8HZxDblL5E2JS5MFW97f0w2
EXeNbfQVcdfaZXEf4+zwdcXFpIliFwl3LX33XnHxKqXL2/VfIm+SNu9cUlfu8fVMcfWmFvfL1Y+huNcu
djl0pV+ltpIcIBeJu66mu0IikaGLSV7j+K4RSROuLbmk3nnsBPdbqYumLug21I5yk7jF6RLeJa5dfbG8
7CNxnIaLT1ucLA+U/16bGxMl2UIAAAAAAFC1yD8QnEmcs36KuAd/bRRbrr9IxnV2byrLyWXirrEPLpU9
xcWmSSL5Z1xngTddHOHgYlZCX7brjzni5VLqrfXSSoyvu4irO7XviKsfQ6UWS7vUr1LaXdqy48Js4giP
XcRdZxuN67tGfKfeUFybcki989hb3G+lLpq8mNtQ4zw6YpmTxLWtD3aRM8TFpa3if7cVOyZKsoUAAAAA
AKBqkX8gOJ3YHvh6cQ/92u5HsrG4626Du4m7rr75kMQboS5GTbCduHZjvLtoPFRcm7rqN3J/cbFos9zj
62Jx9aYWi49xPIJrA4Z2Ehe/1LrSr1KJBeovi7uWtvuwlD4GIYd7i7u+Ej4qrk05pO6Hu7rfSl0Ui7gN
N86jI5a5XlYT176u2kyOExePLrhIdndjoiRbCAAAAAAAqhb5B4JTxdvJnxH3sK9LYhEhzh13MWi654q7
pj76oawlLk7jFlttuzb33W/FxauUPm7Xf5McKF3ajSH3+PqiuHpT215c/Ri6TlYRF7/UutKvUoidcv4h
7jq6IhK82rgjxmTj/K4RR3vdQ1y7Uovdt1wb5iM+E9dwv5W6aMIvXjfFuI+OmOwh4trYNcvJC+RqcXHo
mjfLcm5slGALAQAAAABA1SL/QHCyWAg+UdzDvi6KHSYeLy4WTfYpcdfTV7+WJiYxfF5ce/su3np18Sql
z9v1x/y+nri4tE3u8fVScfWm9hJx9WModk1yscuhK/1qIVaUQ8S1v4uukLYmtIZxf9f4lrh2pbSVuLrn
61fud1JXTfhF7CZowtERk71RXDu7ZAM5Xtz1d9kXZFU3PnKzhQAAAAAAoGqRfyi4TCwAnyruQV+XxVtY
TxcXk6Y6V9y19NlJUuoN3bouFNfWvttHXLxKYLv+JUv/LLEY5OLTJrnH1w7i6k3tWHH1Yyh2D3Gxy6Er
/Wq+1pbviWt7l0VC6+PExaTpmvBdY1dxbUvl2eLqna9D3O+krprwC9lN0ISjIyb7jrh2dsUD5QJx194H
J8hqbozkZAsBAAAAAEDVIv9QMKwkJ4h7yNcHkcTwGHGxaZqNxV0Dliz9uLiYjcMW4tqIQR92MSvhPuLa
1DexFfc24mLUBrnHVyS5lDpuI44zcm3A0CPExS61LvWr+dhUfi+u7X3Qpu+CyzTlu0bshLW8uDam8Alx
9c7XXu53UldN+MXscWvS0RHLxJEKi8W1t+2eIdeLu+4++Yas4MZJLrYQAAAAAABULfIPBcOR4h7w9ck1
sq24+DTJE8S1HwNNWXx4mrj29d054uJVyovFtauPYtv0e4qLU9PlHl/xBrqrN7U4e9/Vj6E4Y38NcfFL
rSv9aj62lNidxbW7T2Inhp3ExaiJmvRdI3ZJcG1M4Y/i6pyvDd3vpK6a8Ava49S0oyMm215cm9vsreKu
ta8OduMkF1sIAAAAAACqFvmHgnuKe7jXR/GANI7ScHFqig+IazsG/iKxo4iLXUlHiGtf38VblC5epXxB
XLv66gK5o7hYNVnu8fW/4upN7Vni6sfQL8TFLofc/WqpuHrH7Q7yN3Ft7qN/yObiYtU0TfquEUdZ5Eg2
2lBcffP1R/cbqcsm/KL2ODXt6IjJXiquzW20nHxY3HX23ZPdWMnBFgIAAAAAgKpFow8F46zj2ErcPeDL
Ld5yu1xiwTkSB+L/jf//teL++1LGvcA6m9PEtRtD+4mLXUlniWtb3z1dXLxKuUhcu1KIrddPn8XvJOa6
ODYg5kD3d0r7rZR6wz2V3OPrYeLqTY1Ep9m9R1zscuhKv5qLWByOnXFce0u6UiKJYtn3wXF9N13mZFlR
XMyapGnfNd4srp0LsZe4uubrE+43UpdN+MXtcdlJbha3qNwEXxTX7raJ5IWPiLvGcbhM/iJ/lL/Jv8T9
d6X8UzZx4yU1WwgAAAAAAKoWjT4UfIu4h3up3SwnSdQXZ1nHG78riGtTuJ3cT54pR8l54v5uLg8R165x
u43EGc2uzSnE33aLrtOJBdtYaAiXyX/E/d3SzhAXv1LWF9eulCLm7p403Z3ExayE2CLdxTKFSEZYVVy9
M1lPtpMny7sk5snYMt/VkdOXxLWviXKPr4j/6uLqTm0HiaQ0N1ZSiB023DWm8k9x9aa0i7jYpdalflVX
JC6dKq69OUWy6mfkGRJjYLoEqthNKT4z9pCDpHRbm7pjxjIlvmvM1b9lE3Htna/3iatrvp7lfiN12YRf
4B6H1SQWsN2CclNcIq7tbfMBcddXwjlyqDxRtpY4MsS1cQXZQh4rsSvHmeL+Xi5fceMlNVsIAAAAAACq
FlUfCMZi+NXiHu6lEg/sD5O7ytT65+oBEskMJd5ajreklxfXjnHaTVx7U4mFNFfvXMRCRNzvXWV/iXuW
+uziOu4hrn0lPFZcm1K6j7i6Mb1YLHOxTOHn4uqcj3XlOfJLcXXl8lxx7Wma3OOr5JEFuX1Q3DWm8g5x
9bZRLJK7a0ylaf1qOfmKuLbm8hP5H5kpgXU2W8vhcoO4OlKKpMxIfHPtaIIS3zXmI/VOZqeIq2e+7up+
I3XZhF88HodDxC0kN81W4trfFq8Wd105XStxXMV9xLWprh3kGHF15LCzGzMp2UIAAAAAAFC1qPpAMOdi
XohtbbeXqfUuVLyN921xdaa0r7j6x+lAcW1N5VBx9aZwN/mAlFh0CC8R144S3iuuTalE4tFCFoD66khx
8Uwhdk9wdS7UwyWOeHB1phb9qg3nvuceXweLq7eNYgcDd42pPFJcvW3Ut34VW/27duYQuzWlPj7j7lJi
R4Yvi6u/CXL32fmKXde2EdfmuYqk2JS7El3ifh913YRfKC6t6UdHTPZscdfQBrGbgbumnD4mG4lrz3xF
f4mdHFx9Kf3cjZmUbCEAAAAAAKhaVH0omDMJIN64j61tp9aZSrw5GFv7urpT+bq4usfpRHFtTWVvcfWm
FDsHxDnXrv6UPieu/hLi7GzXplRi7Lp6MbOzxcUzhceIqzOFxRIJEq7e1Jq8WLdM7vG1p7h622YtyXnk
UCxSri2u7jbqU7+KZIK4f66dqX1EVhHXjoVaTb4qrt6U4pgfV/+45e6zC/E9cW2eq0jic39/vr7kfh91
3YRfIC4px9ERfzBlqXxS3HU0XRzX8C9x15TD3+RB4tqSwrpysri6U8q6C4MtBAAAAAAAVYuGDwTjeISr
xD3cS+HRMrm+XFInMcQD/T/LNySOrHB1jkucBX2NuHanspG4ulOLLZkvFteGVH4lru7cYkEl5duCzhvF
1Y3pbSAulqncVly9KT1Fci5IL/NgcfU3QYnxFX3F1d02uY8c+rW4etuoT/0q5qq/i2tjSvF9Ko6Rcm1I
aVWJ4zlcG1KZEFf3OJXoswv1KHFtn4vU3/Nf6n4fdd2EXxwuKfXRESfKPlPKUjpX3HU02crya3HXk8NP
ZD1xbUlpLTlDXBtS+awbN6nYQgAAAAAAULVo+EDwzrc+yMtlZZlcXy6xE8O3xLVhJnGMQRxx8SWJYxme
LPGGXTwQdvU0wY7iriWVP4mrN5fdxbUjlfPE1ZvbQ8W1J6WdxdWN6cXbzy6WKfxOXJ05vEhcG1I6QVzd
TZB7fMUuHa7eNnqbuGtM5cPi6m2jPvWrz4hrY2rPF1d/DpEUeZ24dqTwHymRpDYXJb5rLNSZEjsIufbX
9V1xf3u+dnC/j7puwi8Ml5L66IjrJXYauNOkshw2Fnc9TXWwuOvI4auyqrh25HBnuUZcW1L4j6zrxk4K
thAAAAAAAFQtGj4QzP3gs+SbhneU68W141qJM8A/K2+SWMSMc5NXFPe3muyV4q4xlaPE1ZvTz8W1JYV/
iqszt+hnrj2pRF9vcqJNU8X58y6eKRwmrs5cviCuHSktEVf3uOUeXx8TV28b/VDcNabyRHH1tlFf+tUu
4tqXWiTPuPpzyjnHh/3E1TsuuftsKgtJZInkh6vF/d35iL+12P0+6roJvyhcQo6jI94uy/7+ZbeW5RA7
PEy+libbQW4Sdx2pfV9WEteOnF4nrj2pPMWNnRRsIQAAAAAAqFo0fCj4OHEP91J5jkyuL7dYQDxJYhE+
FvrjCIs7SRyV4f77NvqKuFin8mxx9eb0VnFtSeFycXXm9h1x7Ukl+rmrFzPLucV4HO3g6sxlE0m5qON8
VFzd45Z7fD1dXL1tE0cORQKfu8ZUbi+u7jbqQ7+KxM3Yecq1L6WfyAri2pBTJLPGsRWuTSl8W1y945K7
z6ZyidxG3DXMZntxf3O+vud+G/XBhF8QLiH10RF/lkiKWPb3jxf336XwQZl8LU21vJwm7hpS+73EkQ6u
HbnFff+HuHalMOHGTgq2EAAAAAAAVC0aPhTMncBwlbDNfTpxVMY/xMU6la3E1Z3TAeLaksIfxdWZUyza
5F5Yfpe4ujG91SXnWeGbi6s3p9xvG18pcba8q3tcSoyv2Ire1d029xN3famM64ieHPrSr+JNeNe2lOK7
XyQSuPpLOFlcu1KIIypWEVdvaan7bByr5spTebu465jNi8X9vfla6n4b9cGEXxDOLfXREeGRMrmOA8X9
dymcIZPraqpniGt/anGEw1bi2lDKu8W1LYUfubGTgi0EAAAAAABVi4YPBXe99WFebp+QbWVy3Zi7rcXF
N5VLxdWbW84dGH4grs6cUr8t6DxGXN2Y3sPFxTKFv4mrM7ctxLUnpd3F1T0uucfXReLqbaNXibvGVD4j
rt426kO/imSkC8W1L6WXiau/lJzfKcIDxdVbWuo++0bJuXtF7Aazmbhrmckx4v7efD3c/Tbqgwm/GJxT
jqMjjpWp9TxG3H+bQiRfrC1T62ySOMrhfHHtT+0F4tpQ0n3EtW2u/iVnSuzgcYS8Ue7sxk4KthAAAAAA
AFQtGj4UjLcB3cO9XM6QOBP5/hLbGE9uC2b3PHFxTeXL4urNLbaadu1J4VBxdeb0EnFtSem24urG9JaK
i2UKR4urs4TTxLUplXGMoZnkHl9fEFdvG31N3DWmsp+4etuoD/2qxO4Lf5A4usTVX8qe4tqWSsTR1Vta
6j4buwh9fEpZahPirmUmfxH3t+YjdmFaw/026oMJvxic06HiFo7nKxacN5Wp9Wwk7r9PZeqOD02zn7h2
p3ayxFEVrg0lLSeXimvjMjdIHDXyI/mMvEOeL7vLvWQdN0ZysoUAAAAAAKBq0fCh4PLyT3EP+XK7RuLt
+ANlD5nPW1l982lxsUxlHG9N5t7ifB9x9eZ0rLi2pPI7cfViZt8TF88UXiiuzhIOEtemVCLxzNU7LrnH
V2xX7uptmzhy6HJx15jKPcTV3UZd71fRHyK5wLUtpb3E1V/SPcW1LZVDxNVbWso+G9/Jo49sKP+6tSyX
2DnCXY+zkbi/MV+nuN9FfTHhF4NzeYi4heWFeKm4usIF4v5NCgeJq7MJYjE/9S4X07mfuDaMw5FyinxJ
3i8vl71lR9lYRhIt3JgoyRYCAAAAAICqRdWHg18U95BvHGKxJRYZ3yNPlrtLnPE7tc199WdxcUtlibh6
c1lTYjHetSWFm2Q9cXXnFFuFu/akcpi4ejG9xZLzfPttxNVbwuPEtSmVeGN1ZXF1j0Pu8XUfcfW2TXx+
uutLJT6vIwnS1d1GXe9Xu4hrV0pnShP6RHzuu/al8i1x9ZaWss+eIsv+7mtvLcvlhzL5OmbyWHF/Y77e
534X9cXUBd2M1pB4+90tgs/X6bJYXH3hOHH/LoWfiKuzCXYT1+bUviqu/tZwY6IkWwgAAAAAAKoWVR8O
xtty7iFfU8SZuSfLh2VfuYtMvYY+2ERcfFL5t8Qir6s7h7XkBHFtSeW74urO6c7i2pLS3+X0homt6lcR
F5Mm2EFcLFOIXWzGuWh3N3HtSune4uouLff4iiSXriTNxfEO7hpT+bq4etuoD/0qjrlxbUspEk9d3aXF
EWWufanEZ56rt6TUffZwWfa347M8d8JsJCZMvp7pvFPcv5+vPd3vor5wi7qZfEjcIvh83SzxZr2ra5nX
i/u3KfxHVhFX77h9XlybU9tJXP2t4cZESbYQAAAAAABULao+HIxF6/PFPehrqsvkm/Ia2VH6sEtDHIXg
YpHK98XVm0Ps9HC2uHakNI6trJ8hri19EG/4upg0wUvFtTmFmItcnaWsLq5dKdVdbMot9/j6jrh62yjO
mnfXmEp8/rp626jr/WoNybkDTbhEVhJX/zi4NqZyjrg6S0rdZyPhafLff4K4/y6VOM4kEk0m1+nEbg3u
38/XBu53UV+4Rd0Mchwdcbi4uibbVdy/TeVB4uodp7XkWnHtTelUcfW3ihsTJdlCAAAAAABQtWj0AWHs
bOAe9LXFlRJvg8YZ03cSd41t90Fx157KUnH1phJnKz9QjpGbxbUhpVhgKLmjxDJHimtP18U9XVtcTJog
51E5sd22q7Ok2KnGtS2V/cXVW1ru8fVGcfW20V/EXWMqDxBXbxt1vV/tKa5dKb1LXN3jkDup60Jx9ZaU
us/GLkWT/358Z/uJuP82lQNkcp1TxXe42B3M/dv5ONv9JuoTt6ibWI6jIy6RdcTVN9m64v59Kq8TV+84
7SOurantL67+VnFjoiRbCAAAAAAAqhaNPiSMB5U/EPfAr41+K2+T7cRdbxvFlsXuWlN5uLh65yP600YS
C1zxVt9R8ldx9eYSbye6tuVWYmeJJoqzz108muJice1OYSdxdZZ0ubi2pZI7wamu3OPrIeLqbZtNxV1f
KtfJyuLqbqOu96uPiWtXSvcUV/c4rC+ujanEsUGu3pJS9tkbxI3n7SVnwuk/ZKbExzi6yP27+TrS/Sbq
E7eom1jqoyPCvuLqcv4o7m+kcLy4Osfp0+LamtJNsoG4+lvFjYmSbCEAAAAAAKha5B8UbiwXiXvo12aR
zBBvD68p7rrbYC25Sdz1pRIL0JEkMV9/knjjN473yN3W2Zwqy4uLZU63E9eePjhCXEya4K7i2pzCfyTO
C3f1lhQLQa59qTTh7erc4ysW8VYTV3fb5D5y6Mfi6m2jDcRdYypN6FfnimtbKnEcgKt3XO4hrp2pjDuB
IfVc+Ctx9YRIQHX/JpX3iKs3PF/cv5mvZ7jfRH3iFnUTynF0xA9kOXH1OUeL+zspXCkriKt3XC4U19aU
fiyu7tZxY6IkWwgAAAAAAKoW+QeFIbaQ/Ze4B39tFw+c4y3iSAZw195ku4m7Joy6UeKtQRfH3B4nrk19
8ExxMWmCZ4lrcwo/FVdnabnn7UPE1VtS7vF1krh62+hD4q4xlbeLq7eNut6vYjck166UmnR8RMj9nek8
cfWWkrrPxnzh6gmR3Hy1uH+XQiQB3lFc3Z8S92/m687uN1GfuEXdRHIcHXG93E1cfdN5ubi/lcp24uod
hy3EtTG1V4mrv657yekt8Cu5uxs3qdhCAAAAAABQtcg/KFzmgXKluId/XXCJxIJmHHPgrr+J4jgMdy0Y
9QZxMSzhfeLa1Ad3ExeTJviEuDancJC4OktaUVzbUprpLdlSco+vJlxjKmeIu8ZU/p+4etuo6/3qUeLa
lVIkDLi6xyV23XLtTOU34uotJXWffZK4epZ5k7h/l8rnxdUbO3u4/34+Yoc5+5uoTyb8AnMKOY6OeJu4
umbyIHF/K5UDxNU7Dk8U18bUthZXf10RM/d3m+h9btykYgsBAAAAAEBVPMSbxb0kjgNwDwG74tuyobjr
b5ofirsGVH1RxnF0xDKniGtX18XxBU1OCPqjuHansLu4OkuKt1dd21KK3Wtc3SXlHl97iKu3bWKXoZzn
1sffbuNORtPper96rbh2pRK7Hq0hru5xOUxcW1M5QVy9paTus3cSV88yq8r54v5tKveTyXWuI+6/m69j
xf4m6pMJv8C8UDmOjviTrCquvpmsLjeJ+5spfF5cvePwdnFtTOkv4uqei5zHeqS2lxs3qdhCAAAAAABQ
FQ/xalhXviTuQWBX/F3i2Ax3/U2xklwrrv0YigWFcZ4zHgs4sZDj2tZ13xQXkyaIJCXX5hRiITcWWVy9
JT1EXPtSOkBc3aWUGF/ri6u7bWJ3BHd9qcTuDq7eNupDv/q4uHalcrq4esfpZHFtTSWONnD1lpC6z14s
rp6pniju36cSxzFNToTcRdx/N18vFvubqE8m/ALzQuQ4OiL8P3H11fE7cX8zhYvE1TkOXxLXxpTif67u
uThf3N9uovXduEnFFgIAAAAAgKp4iDcHe0nuN6/GKc72fai4a2+CeCvNtRtDx8s4kxfCw8W1rQ/GeWzH
bGL+cm1OYdzbiC/zMnHtS+kJ4uouJff4OktcvW30dnHXmMpM5+W3TR/6VST3ubalMiGu3nGJ7wK5k1Le
LK7uElL32ePE1TNVJBf8TNzfSGVvWVbf628tS+U+Yn8T9cmEX2BeiI+KWwheiC+Iq6uuT4j7u6lsKa7e
0k4V176U9hNXd12bivu7TfQ7N2ZSsoUAAAAAAKAqHuLNUWwf+xKJHQvcg8G2u0ruLe7ax+1V4tqMgTgL
egVxsSsptth37euDJicAHSKuzSl8RFydpX1GXPtSuq+4ukvJPb4+Kq7eNvqRuGtMZR9x9bZRH/rV78W1
LZU4osLVOy4lkgnHmdCVus++Wlw9zhJxfyOVcyV2HYu6vnxrWQqRqHzL90T3m6hPJvwi83ztKm4heCGu
kk3E1VfXC8X97VSeIa7e0i4V176U7iGu7rqeIO7vNtFhbsykZAsBAAAAAEBVPMSbp3iwGIsX35WbxD0o
bKvz5LbirnucviquvX0XyTSPFhezcfieuHZ2XcwDTTv/fLJfimt3Ck8SV2dJ8VZsicSy24irv5Tc4+up
4uptm/iMvk7cNaayqbi626gP/SqOCHBtSyWOFnD1jkskNbp2pnQ3cXWXkLrPPkhcPdOJHTfc30nl5RL1
XDCpbKG+I7e03/0m6pMJv8g8H7eRHEcDvERcfXOxg7i/ncrHxdVb2s3i2pfKDbKiuLrrer+4v91E+7gx
k5ItBAAAAAAAVcse5C3QBvJ8OVFuEPfQsG3Gea6xE4uT/xDX1r76j7xX1hIXs3FYLPGGn2tv150mLiZN
kPt8+83E1VvStuLaltKfxdVdSonxdSdxdbfN/cVdXyp/EVdvG/WlX/1TXNtS2VlcveMSb/G7dqZyhSwv
ru7cUvfZ+O4eO6y5uqYTCUzXiPt7KUR/veeUsoV6k9zSfvebqE8m/CLzfBwhbhF4IU6TxeLqm4uVJRbf
XR0p/FFcvSWtLa5tKZ0lru65+IW4v91EG7oxk5ItBAAAAAAAVcse5CUUb+fuIYfLOeIeILbFDuKucRzu
Lq6NfXStvF+asGg8Ve5tlZvsw+Ji0gS7imtzCueLq7O0t4trX0rjPuM+9/iKHSxcvW0U28G7a0xl3H0h
pfisd9eYSlP6lWtbSncVV+84xFFgro0pfV1c3SWkngt/Ia6e2eQ+euW3pmwh/nvMlftN1CcTfpF5rnIc
HRG7CdxXXH3zcYq4elLZUFy9pawvrl0pHSeu7rpWkxvF/e2mOduNl9RsIQAAAAAAqFr2IC+jjWRvOVRi
C/c27dBwnLhrGof9xLWxT/4q8bB8PXExaoKXiWt7Sqc31P+Ii0kTvEVcLFP4jLg6S4q3gCORwrUvpeeJ
q7+U3OPrGHH1ttHXxF1jKvGZ5Opto770q9i1yLUvlc3F1TsO8Z3TtTGlA8TVXULqPhvxcvXMZjX5m7i/
2TSxC1O095a2u99EfTLhF5rnItfRER8RV998HSaunlT2EldvKZuLa1dKscuGq7uuB4v7u030MTdeUrOF
AAAAAACgatmDvIJWlu3lOXKYnCK5H6rPVzzs3FDcdZSW+6zhpootkmPx59GygrjYNMmXxF1HKr8XVy9m
doK4eKbQhIXcR4lrW2q3F1d/KbnH1/7i6m2bSGi5XNw1phK7Arm626gv/Sr3MVTriKu3tPieeZm4NqY0
zmNBUvfZJ4qrp44ni/ubTXOy/Lfd7jdRn0z4hea5yHF0RIhjGU5P6O/i6knl/eLiU8p64tqV0nvE1V3X
a8X93SZ6ihsvqdlCAAAAAABQNflh3hitKLHd77KkhlPlJnEPIEt7trg2lxbnjbv2dc118jN5t8SibCxE
uHg01SXiriuVj4qrF9OLs8JzntN9D3H1lvRjcW1LKXbQcXWXlHt8bSeu3raJPumuL5VIjlhOXN1t1Jd+
lft7xNri6i3tmeLal9KvxNVdSuo+u5DdM2IuiCMo3N9tkvfIf9vtfhP1yYRfaK4rx9ERbXWquBiVsqq4
dqW0VFzddX1d3N9tok3deEnNFgIAAAAAgKrJD/MaZg3ZRf5Xvi/j2qXhU+LaV9Km4tqWShzr4Y4ESOkk
OVG+IrGjwpHyLnmVPF0eJneQeHPYxaAN4vxvF9+UniqubkzvvuJimUIs5I67z8aZ3q5tqb1UXP2l5B5f
V0kbdnmpI/eRQ3E8hau3jXL3qyulKf0qkkNdG1PZTFy9pf1aXPtSGud8mLrPxhEQrp65uL+4v90ke8h/
2+x+E/XJhF9oriPX0RFtdZNETFysSok2uLalspAdGJaTf4j7u01zrhsrOdhCAAAAAABQNflhXsOtLnGM
QLyBHgtN7uFkDvEg3LWnpH3EtS2VeHvb1Yu5eZa4+KZ0R3F1Y3ovFxfLFL4urs5S4s3X2BnBtS2lSCBb
T1wbSsk9vo4XV28bfUbcNabyanH1tlGf+tXnxbUxldhJy9Vb0m7i2pZS7BS1rrj6S0jdZ48WV89cfU7c
32+K9eW/7XW/ifpkwi8215Hr6Ig2201crErJfUzGZ8XVW8edxf3NJjrKjZUcbCEAAAAAAKia/DCvRVaT
l8nV4h5SpnSFuDaU9CFxbUvlHeLqxdx8Qlx8U7lAXL2Y2ZfFxTOF14irs5QSSTOhCTvR5B5frxdXbxud
J+4aU4m3rV29bdSnfvVmcW1M5bHi6i2l1FEGHxdXfymp++wLxdUzV7EDx7Xi6hi3s6TSXvebqE8m/GLz
bDg6wjtQXLxKOVFcu1L5tbh664gdGI6S0xP5p7g2pvB0N1ZysIUAAAAAAKBq6gO9STaQOEf7ERLb1sdC
3fsltv+PN/b/IBuJ+7elbC/xJpx7WJmSq7ukM8S1K5X/J65ezM0fxcU3lVRvSfbNpeLimcIDxNVZwoby
T3HtSu3u4tpQUu7x9WBx9bbN7cVdXyrxmbuSuLrbqE/96gni2pjKW8TVW0okULh2pXSz3E1c/aWk7rPb
iKtnPqIPuDrG7QiptNX9JuqTCb/YPJO1haMjvB+Ki1kph4trVyo3y7ri6i5pDblMXBtT2NyNlRxsIQAA
AAAAfbZoydIVZRNZInEcw/NkqRwmX5WTJc7CvV7cA8CpYheEygPBMThUXNtScvWWspbEA3PXrhTib0cd
rm7UF4vJLr4pvUhc3ZjeVuJimUIs5K4srt7c4k3jb4hrV2pfFNeGknKPr/jMW1Vc3W3zRHHXmMqPxNXb
Rn3rV5uKa2cqPxRXbwkxF+dORglxTIKrv5TUfTaS4JYXV9d8xHFvfxdX1zg9TSptdb+T+mTCLxDPJN6i
d4u+mJi4TlYSF7cS9hfXrpSeJ67ukt4qrm0p/NWNk1xsIQAAAAAAfbNo8GAyFqAuEfdQbyHOl3G/ibmP
uLalcpW4ekuJ3RFcu1KJ3R1cvZibx4uLb0op35Lsi+eIi2UK41zIfZu4NqV2g9xZXBtKyj2+fi6u3jb6
sLhrTOXt4uptoz72q9g9y7U1hZskFthdvbnFUViuTSnFfLiluPpLSd1nvymunoV4uri6xmkLqbTT/Wbq
kwm/QDyd3cUt+mLoAeJiV8J24tqU0pkSx0G4+kvYSiJRxLUthQk3TnKxhQAAAAAA9M2iwcNW9zAvlXGf
AZ97gf/P4uotJRaLXLtS+ZC4ejE3cbyKi28qV0rKtyT74pPi4pnCOBZyY+eF3OfYT3awuHaUlnt8vUtc
vW30a3HXmMpu4uptoz72q2iTa2sq4zhGIo46y7lT1TLvFld/San77GvF1bMQ8V3ll+LqG4cLZaSd7jdT
n0z4RWInjo64QNyiL4ZeIy5+JSwvl4hrV0rPFFd/bivLKeLalMqz3TjJxRYCAAAAANBHi/Juq/sfua+M
PBws5A3i2pXKt8TVW0q85e3alUrsYOHqxdz8Slx8Uxl3P2yrP4mLZwqRPOXqzGVt+YK4tuRwnqwhri2l
5R5fjxFXb9tEH8m5kBtv2HfpyKE+9qt7iWtrKv+SjcXVnUNcTyT4ubakFDuOrSmuDSWl7rMPFFfPQsXf
dfWNw+dlpI3u91KfTPiFYoejI+r5urj4lXKEuHaldLlsJq7+XGLXh0+Ja09KW7pxkostBAAAAACgjxYt
WXqIuId6qVwq28rIA8LMYnHtb+LalEq87ezqLiGO54hz9l27UtlEXN2oL/phLOy5+KaS4y3JrttIXCxT
iEXiUgu58TbrvhJvkbq25BJvNbv2lFZifN1WXN1t80hx15fK6eLqbaM+96uTxbU3le/KCuLqTuneEt8/
XRtS21VcG0pK3Wfj++Uq4upK4Rhx9Za2v4y0z/1e6pMJv1g8FUdH1HeFxE4ILo4l7CSuXamdKmuJa0Nq
Ec+PiGtHShe5MZKTLQQAAAAAoI8WDc7Odw/1Uoq37p4gIw8JM1lZviGuLSk9SFz9JdxfXJtSGffxGF0R
CxsuvintJK5uTG9vcbFM4Qxxdaa0ujxTfieuDTm9T1ybxiH3+DpTXL1t9A5x15jKB8XV20a5+1WMW1dv
EzxeXJtT+oysKK7+FJ4k/xZXd2pN6fep++xPxNWTyuaSOwm3ju1kpH3u91KfTPgF48k4OmLu7iUuliXE
TgW/Edeu1H4m64lrRyqRJPFVcfWndrQbIznZQgAAAAAA+mrRkqU/FPdgL7WvytYy8rAwobtL7q2fw18k
zpx3bSjh1eLalcqnxdWLuYkzv118U4ljWnK+JdlVh4qLZwofElfnQt1Oni6x5fVV4urO7SSJBDHXvnHI
Pb4OE1dvG/1Y3DWm0qUjh/rcr2JXl9hNw7U7pTgC607i2jBfm0nJo3Tiu2ZT5sPUffYgcfWklDupajbx
OWp3A3G/lfpkwi8aT8bREXP3QnGxLOVp4tqVw/nyCHHtWKg95a/i6s1hPzdGcrKFAAAAAAD01aIlSx8l
7uFeDrG9euyOEG9Ax1vEIw8O5ym2Cz5KbhRXb2pLxbWjlK+Ja1cqzxVXL+bmBHHxTSX3W5Jddaq4eKaw
kIXcOBomFuF2lD3ljXKsnCOurpL+LnH0hmv3uOQeX08RV2/bxCIrRw7V1/d+9TBx7U7tWokdXRaayBDH
lH1UrhdXTw6XyB3EtWccUvfZOHLG1ZPSmnKRuPpLOF5cu+xvpT6Z8AvHy+Q6OuJfcvoYXS6uXakcLS6e
pawgvxPXtlxOlEfJiuLaVNfKsrecJK6enLZyYyQnWwgAAAAAQJ8tGpxL7B7w5RRvj58o8RbWU+WBsrGM
PEycIv6b+G/jbeSPyB/F/f1crpT1xLWthNj54XJxbUvlbuLqRn2xRfY14uKbSvSDeFu2bey504XcRnKe
b3+2uGt24qiW2M3lCvmnuL/XBDHnxXFDLp7jUmJ8xTbnru62eYC460ulS0cOLRb61ZKlE+LansvJcqBE
Qm0kNEx3xEQked1LIlEsdtKJ+dP9vZwiGahJRzelngsj0XhtcXWlFkchuTaU8AZxbbK/k/pkwi8ih5xH
R8QOAa7OUt4srl2pRNxcvSU9TFzbcrtUIoHjBfIg2UDiWAvXxrCu7CwvkmPkCnF/N7do93JujORkCwEA
AAAA6LNFS5beQ24Q95BvHGIx70KJhZFIUDj/1rImnJn7Uhl54FlQ3CvXrlQuk3Eej9EV8Ra9iy+WLP2b
uJiVsJu4NsGLhbEmLdYtk3t8jbOPpvYacdeYSpeOHKJfDawj0VZ3DaXELgeRoBA70ERbIpHK/XclRfLb
48TFbFxS99lfi6snhziyJOeOSDPZWVyb7O+kPpnwi8oh19ER8ab+TAvaJeTaWWKyO4qru6QjxbWttBvk
7/IX+b2cI5fIdeL++3E41o2P3GwhAAAAAAB9t2jJ0teLe8iHoZ+LPTO3oP3EtS2Vr4irF3PzCnHxxZKl
R4uLWQnxlq9rE0bFgmETkxdC7vE1zj6a2tfFXWMqzxNXbxvRr4ZiYbzksQxNF8kLTxYXq3FK3Wc/LK6e
XB4krh05Rb9eTVx77G+kPpnwC9+5Fvivl63F1VnShuLal9JTxdVd0hpylrj2oepFbnzkZgsBAAAAAOi7
RYM3ob4h7mEfliy9VOJ8+pGHnYV9Rlz7UomH4a5ezM1x4uKLJUtfJC5mJcSxNa5NqIodcLYXF8MmyD2+
Xiiu3raJz/XcRw5tLa7uNqJfVe0r7jr6JpIXniUuRuOWus/G8Ryunpy+JK4tuZwkrh23cL+R+mRidNH7
tnKhuEXehXqbuDrH4XxxbUzlCHH1lraVXCmujRi6pxsfudlCAAAAAABwSxLDmnKauAd+fRbbqN9fRh50
jsF54tqYSrx16epFfXEERyS8uPhiydJ7iotbbnF+eu7z7bsgPgOakKw1nRLjaxtxdbdN7iOH/iFdOXKI
fuW9TNy19EW8rb+XuNiMW44+u6m4unK6k/xHXHtyeJe4dtzC/T7qk4nRBe/PiFvgXahzZVVxdY7Dl8S1
M5XY+cDVOw47yTXi2omJictleTc+crOFAAAAAABgYNGSpetLnIHrHvr1USx4PlRGHnKOwe3FtTGVuNYV
xdWN+rYSF18M3gaPt8Jd3HLLfb59Fxwmq4iLX1PkHl9xdMa4+mhqzxd3jal8VVy9bZS7X/1T2tqvXiLu
mrruEokjDlxMmiB1n/2LuHpKeKe4NuXwGHFtuIX7bdQnE9WF7j3ELfCm8EiZWt84vUZcO1NaX1zd4/BQ
IYnBO86NjRJsIQAAAAAAGFq0ZOlacoK4B399Em+23U9GHnCOyRPFtTOVH4irF3PzHHHxxZKlXxEXsxJe
Ka5NWLL0ItlTXNyaJvf4+qa4etvos+KuMZVXiau3jehXM4ujBa4Vd21d9CvZXFwsmiJ1n50QV08Jt5GL
xbUrtduKa8Mt3O+iPpkYLnDH0REXiVvgXahjZXJdTbCLuLam9FhxdY/LfSTX8SBt9hI3NkqwhQAAAAAA
oGrRkqWL5b1ys7gHgF33C2naw+sPi2trKm8VVy/m5pPi4oslS18hLmYlRPKEa1Ofxfz+cZlxQadhco+v
14qrt43OF3eNqTQpwW+h6Fez20HiLX13fV3yPokjh1wMmiR1n32euHpKKZH8eaa4uv/L/Sbqk4nh4nau
oyP+JZvK5LqaYC1x7U3pYHF1j9PG8hNx7W2ruJ63Timbi3u7sVGCLQQAAAAAAFWTHuY9RM4T9yCwi26S
A6WJRynkPtpjV3H1Ym7+JC6+WLJ0ibiY5RZnhV8mrk199TMZ1/1YiNzjaydx9bbNZuKuL5V4G78Ni7x1
0a/qWUc+L+4a2+6P0qb7lLrPbi2unlJWkNzfcw8XV/d/ud9EfTIxWNTOeXTES2XyAnqT/FFcm1M5RVy9
47ZYXi//EdfuNnmfrCT3mFQ2F1fKCm5slGALAQAAAABA1ZQHemtKLOpfI+6BYFecJE1d0Ftbcu6GEYkb
a4irG/VtLC6+WLL0aomdXVzccouFGdemPjpNHi0uTk2Xe3z9R1YRV3fbPEncNabyQ3H1ttFG4q4xlS71
q2X2kgvEXW/b/FteJ226R6nnwn9IJPq5ukp6qLj2pbKvuHr/y/0m6pOJvEdHnC6xWD51Ab0pcu06scyN
soa4uptgK/m5uLY33fmyqyy7luXkYnH/7Uy+7sZFKbYQAAAAAABUuYd6sol8RLp2DnJssx0PNZvw8HY6
jxTX9lTivGdXL+bmCeLiiyVLvyMuZiXE1tiuTX1yguwmTZ7nZpN7fP1UXL1tFJ/V7hpTeZu4etuIfjU/
y5JbIznNXXfTRWLJIRIJLO76mix1n40jllw943CcuDamcEdxdf6X+03UJxP5FvFvlh1l2QJzE8XuEK7t
Ke0iru6miIX/J8m54trfNNfLu2VNmXotR4v7NzN5hRsXpdhCAAAAAABQ5R7qTbK+/K9cKO4BYVv8UuIt
1XG9FT4X7xB3DanEQ3xXL+bmA+LiiyVL3yAuZiV8Wlybui7m6IPlbuLi0ja5x9dB4upto9+Iu8ZUIhnG
1dtG9KuFuZ1EIkNbjum5XOI7Vexi4K6nDVL32VeKq2cctpTrxbVzIWLHEFdfhftN1BcTeY+OOFymLjA3
zQPEtT2lN4uru2niGIb9pamJDJG4cJhsJq79YT9x/3Ym93VjoxRbCAAAAAAAqtxDPSPOq41FjM9KW97A
u1jiwe+O4q6pqX4s7npSie2gXb2Ym9ie38UXS5Y+WFzMSvizuDZ1UZzjHglJsRV3zNEuHm2Ve3w9Sly9
bbOO5D5yaC1xdbcR/SqNVeX5crK4OIxT9NnYheYpEu107W+T1H22ad+J3yOunQtxtLi6Ktxvoj6YyHt0
xCWyjkxdYG6a1eUmcdeQygni6m6q5SUSW6LdsYuGu6aSLpODZabEhWXuLO5vTOdqWezGRym2EAAAAAAA
VLmHerNYWXaV98vvxT08HIdYxImdFt4pbV3Qix0ich/bsaG4ulHf6hKLJC6+fXedjOt88ejbrk1tFzE9
S74u8Tbx3tLGrdDryj2+4rNiXXF1t00kFrprTCUWT129bUS/ymMLeY3E969xfS7+W2J+3E82ENfONkrd
Z6+RlcTVNS5ry6Xi2jtfLxRXV4X7TdQHExMT75i0kJvavjJ1cbmpfi3uGlL5t6wgru6m21heLidJyWSG
iNlX5PESO0O4tk3nb+L+pnO8Gxsl2UIAAAAAAFDlHurN0W1ld4ltheM823grOPdD7BvlHPmCvF4eKV1Z
OHiLnJ7Jt8TVibl7t7gY992EuHiVcrhEO/4gf5mj8+Sf8xAJBm6eCvF/m/zfxpbmUdfvJBb8TpSvyeck
doyJ4zdiEe7xcn9p89bnC5FzfDXpDPiFijfMvynuOlMY53EwOeTsV/H9x9XZJ7FbR+xCEW/V/0hivnPz
4kL9Sb4kr5YHSCTWuvZ0Qco+e5S4OsbtGeLaO193F1dPhftN1AcTExPbyukZfE6Wk6kLy011oLjrSOVN
4uptm3Uldmb4gPxKrhGXFDAf/5Ify3vl4bKyuDbUEf9zdTivcWOjJFsIAAAAAACq3EO9BOIN7DiL/RHy
bHmTHCpxPn28JReLdj+TqQ8dT5H4v4VYDDhS4uHta+WZEjsr3ElWFFcvAAAAmiF2i3m4PEteJx+SSD79
nsR3vfjeN/l7YOz6EeWRaPQpiV21XiaPk21lDXH1AHPifhP1yYRfBAZmE7tKxJENe8oBcpB8Sr4tJ8rJ
siyJ45e3lh0vkeDyTtlfHit3lTi2wtUxH3vJ5ASSmezgxkRJthAAAAAAAAAAAAAAAKAkWwgAAAAAAAAA
AAAAAFCSLQQAAAAAAAAAAAAAACjJFgIAAAAAAAAAAAAAAJRkCwEAAAAAAAAAAAAAAEqyhQAAAAAAAAAA
AAAAACXZQgAAAAAAAAAAAAAAgJJsIQAAAAAAAAAAAAAAQEm2EAAAAAAAAAAAAAAAoCRbCAAAAAAAAAAA
AAAAUJItBAAAAAAAAAAAAAAAKMkWAgAAAAAAAAAAAAAAlGQLAQAAAAAAAAAAAAAASrKFAAAAAAAAAAAA
AAAAJdlCAAAAAAAAAAAAAACAkmwhAAAAAAAAAAAAAABASbYQAAAAAAAAAAAAAACgJFsIAAAAAAAAAAAA
AABQki0EAAAAAAAAAAAAAAAoyRYCAAAAAAAAAAAAAACUZAsBAAAAAAAAAAAAAADK+b9F/x9qbIygM988
TgAAAABJRU5ErkJgggs=
</value>
</data>
<data name="Label22.Text" xml:space="preserve">
<value>Bestätigung über das Gelangen von Gegenständen aus innergemeinschaftlichen Lieferungen in einen anderen EU-Mitgliedsstaat.
Confirmation of the reach of objects from Intra-Community deliveries in another EU member state.</value>
</data>
<metadata name="$this.ScriptEditorPositionForUndo" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>0, 0</value>
</metadata>
<metadata name="$this.ScriptEditorPositionForRedo" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>0, 0</value>
</metadata>
</root>

9
SDL/Speditionsbuch/Nacherfassung/rptSpeditionsbericht_Gelangensbestaetigung.vb Normal file
View File

@@ -0,0 +1,9 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class rptSpeditionsbericht_Gelangensbestaetigung
Private Sub GroupHeader3_Format(sender As Object, e As EventArgs)
End Sub
End Class

116
SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.Designer.vb generated
View File

@@ -56,6 +56,7 @@ Partial Class usrCntlSpeditionsBuchSuche
Me.dgvLKW = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.pnlOpt = New System.Windows.Forms.Panel()
Me.pnlBerichte = New System.Windows.Forms.Panel()
Me.Button18 = New System.Windows.Forms.Button()
Me.Label43 = New System.Windows.Forms.Label()
Me.Button16 = New System.Windows.Forms.Button()
Me.Button17 = New System.Windows.Forms.Button()
@@ -139,6 +140,7 @@ Partial Class usrCntlSpeditionsBuchSuche
Me.Label3 = New System.Windows.Forms.Label()
Me.Label12 = New System.Windows.Forms.Label()
Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker()
Me.cbxCMR = New System.Windows.Forms.CheckBox()
Me.Label41 = New System.Windows.Forms.Label()
Me.lstGrenze = New VERAG_PROG_ALLGEMEIN.MyListBox()
Me.txtKdAuftragsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
@@ -163,6 +165,7 @@ Partial Class usrCntlSpeditionsBuchSuche
Me.Label16 = New System.Windows.Forms.Label()
Me.cbxOderEmpfanger = New System.Windows.Forms.CheckBox()
Me.SplitContainer = New System.Windows.Forms.SplitContainer()
Me.Button19 = New System.Windows.Forms.Button()
Me.cntxtCntxtSpeditionsbuch.SuspendLayout()
Me.pnlRechts.SuspendLayout()
CType(Me.DataGridView, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -220,6 +223,7 @@ Partial Class usrCntlSpeditionsBuchSuche
Me.txtAvisoId._TimeOnly = False
Me.txtAvisoId._value = Nothing
Me.txtAvisoId._Waehrung = False
Me.txtAvisoId._WaehrungZeichen = True
Me.txtAvisoId.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtAvisoId.ForeColor = System.Drawing.Color.Black
Me.txtAvisoId.Location = New System.Drawing.Point(353, 188)
@@ -287,6 +291,7 @@ Partial Class usrCntlSpeditionsBuchSuche
Me.txtAuftraggeberKdnr._TimeOnly = False
Me.txtAuftraggeberKdnr._value = Nothing
Me.txtAuftraggeberKdnr._Waehrung = False
Me.txtAuftraggeberKdnr._WaehrungZeichen = True
Me.txtAuftraggeberKdnr.BackColor = System.Drawing.Color.White
Me.txtAuftraggeberKdnr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtAuftraggeberKdnr.ForeColor = System.Drawing.Color.Black
@@ -310,6 +315,7 @@ Partial Class usrCntlSpeditionsBuchSuche
Me.txtCRN._TimeOnly = False
Me.txtCRN._value = Nothing
Me.txtCRN._Waehrung = False
Me.txtCRN._WaehrungZeichen = True
Me.txtCRN.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtCRN.ForeColor = System.Drawing.Color.Black
Me.txtCRN.Location = New System.Drawing.Point(738, 26)
@@ -331,6 +337,7 @@ Partial Class usrCntlSpeditionsBuchSuche
Me.txtBelegNr._TimeOnly = False
Me.txtBelegNr._value = Nothing
Me.txtBelegNr._Waehrung = False
Me.txtBelegNr._WaehrungZeichen = True
Me.txtBelegNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtBelegNr.ForeColor = System.Drawing.Color.Black
Me.txtBelegNr.Location = New System.Drawing.Point(511, 70)
@@ -385,6 +392,7 @@ Partial Class usrCntlSpeditionsBuchSuche
Me.txtPackstücke._TimeOnly = False
Me.txtPackstücke._value = Nothing
Me.txtPackstücke._Waehrung = False
Me.txtPackstücke._WaehrungZeichen = True
Me.txtPackstücke.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtPackstücke.ForeColor = System.Drawing.Color.Black
Me.txtPackstücke.Location = New System.Drawing.Point(511, 108)
@@ -481,6 +489,7 @@ Partial Class usrCntlSpeditionsBuchSuche
Me.txtAvisiererKdNr._TimeOnly = False
Me.txtAvisiererKdNr._value = Nothing
Me.txtAvisiererKdNr._Waehrung = False
Me.txtAvisiererKdNr._WaehrungZeichen = True
Me.txtAvisiererKdNr.BackColor = System.Drawing.Color.White
Me.txtAvisiererKdNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtAvisiererKdNr.ForeColor = System.Drawing.Color.Black
@@ -571,6 +580,7 @@ Partial Class usrCntlSpeditionsBuchSuche
Me.txtFiskalEndempfaenger._TimeOnly = False
Me.txtFiskalEndempfaenger._value = Nothing
Me.txtFiskalEndempfaenger._Waehrung = False
Me.txtFiskalEndempfaenger._WaehrungZeichen = True
Me.txtFiskalEndempfaenger.BackColor = System.Drawing.Color.White
Me.txtFiskalEndempfaenger.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtFiskalEndempfaenger.ForeColor = System.Drawing.Color.Black
@@ -649,6 +659,8 @@ Partial Class usrCntlSpeditionsBuchSuche
'
'pnlBerichte
'
Me.pnlBerichte.Controls.Add(Me.Button19)
Me.pnlBerichte.Controls.Add(Me.Button18)
Me.pnlBerichte.Controls.Add(Me.Label43)
Me.pnlBerichte.Controls.Add(Me.Button16)
Me.pnlBerichte.Controls.Add(Me.Button17)
@@ -674,13 +686,27 @@ Partial Class usrCntlSpeditionsBuchSuche
Me.pnlBerichte.TabIndex = 6
Me.pnlBerichte.Visible = False
'
'Button18
'
Me.Button18.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button18.Image = Global.SDL.My.Resources.Resources.statistik_small
Me.Button18.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button18.Location = New System.Drawing.Point(606, 54)
Me.Button18.Margin = New System.Windows.Forms.Padding(0)
Me.Button18.Name = "Button18"
Me.Button18.Size = New System.Drawing.Size(159, 28)
Me.Button18.TabIndex = 56
Me.Button18.Text = "Gelangensbestätigung"
Me.Button18.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button18.UseVisualStyleBackColor = True
'
'Label43
'
Me.Label43.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.Label43.AutoSize = True
Me.Label43.BackColor = System.Drawing.Color.WhiteSmoke
Me.Label43.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label43.Location = New System.Drawing.Point(603, 60)
Me.Label43.Location = New System.Drawing.Point(603, 83)
Me.Label43.Name = "Label43"
Me.Label43.Size = New System.Drawing.Size(86, 13)
Me.Label43.TabIndex = 55
@@ -689,9 +715,9 @@ Partial Class usrCntlSpeditionsBuchSuche
'Button16
'
Me.Button16.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button16.Image = Global.SDL.My.Resources.statistik_small
Me.Button16.Image = Global.SDL.My.Resources.Resources.statistik_small
Me.Button16.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button16.Location = New System.Drawing.Point(692, 73)
Me.Button16.Location = New System.Drawing.Point(685, 96)
Me.Button16.Margin = New System.Windows.Forms.Padding(0)
Me.Button16.Name = "Button16"
Me.Button16.Size = New System.Drawing.Size(80, 25)
@@ -704,9 +730,9 @@ Partial Class usrCntlSpeditionsBuchSuche
'Button17
'
Me.Button17.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button17.Image = Global.SDL.My.Resources.statistik_small
Me.Button17.Image = Global.SDL.My.Resources.Resources.statistik_small
Me.Button17.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button17.Location = New System.Drawing.Point(606, 73)
Me.Button17.Location = New System.Drawing.Point(606, 96)
Me.Button17.Margin = New System.Windows.Forms.Padding(0)
Me.Button17.Name = "Button17"
Me.Button17.Size = New System.Drawing.Size(80, 25)
@@ -738,6 +764,7 @@ Partial Class usrCntlSpeditionsBuchSuche
Me.txtUeberschr._TimeOnly = False
Me.txtUeberschr._value = ""
Me.txtUeberschr._Waehrung = False
Me.txtUeberschr._WaehrungZeichen = True
Me.txtUeberschr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtUeberschr.ForeColor = System.Drawing.Color.Black
Me.txtUeberschr.Location = New System.Drawing.Point(204, 101)
@@ -761,12 +788,12 @@ Partial Class usrCntlSpeditionsBuchSuche
'btnCSAufteilung
'
Me.btnCSAufteilung.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnCSAufteilung.Image = Global.SDL.My.Resources.statistik_small
Me.btnCSAufteilung.Image = Global.SDL.My.Resources.Resources.statistik_small
Me.btnCSAufteilung.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnCSAufteilung.Location = New System.Drawing.Point(399, 36)
Me.btnCSAufteilung.Margin = New System.Windows.Forms.Padding(0)
Me.btnCSAufteilung.Name = "btnCSAufteilung"
Me.btnCSAufteilung.Size = New System.Drawing.Size(141, 25)
Me.btnCSAufteilung.Size = New System.Drawing.Size(154, 25)
Me.btnCSAufteilung.TabIndex = 49
Me.btnCSAufteilung.Text = "CS GmbH-Aufteilung"
Me.btnCSAufteilung.TextAlign = System.Drawing.ContentAlignment.MiddleRight
@@ -776,12 +803,12 @@ Partial Class usrCntlSpeditionsBuchSuche
'Button14
'
Me.Button14.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button14.Image = Global.SDL.My.Resources.statistik_small
Me.Button14.Image = Global.SDL.My.Resources.Resources.statistik_small
Me.Button14.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button14.Location = New System.Drawing.Point(399, 64)
Me.Button14.Margin = New System.Windows.Forms.Padding(0)
Me.Button14.Name = "Button14"
Me.Button14.Size = New System.Drawing.Size(141, 25)
Me.Button14.Size = New System.Drawing.Size(154, 25)
Me.Button14.TabIndex = 44
Me.Button14.Text = "Grenzstelle"
Me.Button14.TextAlign = System.Drawing.ContentAlignment.MiddleRight
@@ -811,6 +838,7 @@ Partial Class usrCntlSpeditionsBuchSuche
Me.txtMax._TimeOnly = False
Me.txtMax._value = ""
Me.txtMax._Waehrung = False
Me.txtMax._WaehrungZeichen = True
Me.txtMax.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtMax.ForeColor = System.Drawing.Color.Black
Me.txtMax.Location = New System.Drawing.Point(743, 8)
@@ -854,7 +882,7 @@ Partial Class usrCntlSpeditionsBuchSuche
'Button9
'
Me.Button9.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button9.Image = Global.SDL.My.Resources.statistik_small
Me.Button9.Image = Global.SDL.My.Resources.Resources.statistik_small
Me.Button9.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button9.Location = New System.Drawing.Point(606, 8)
Me.Button9.Margin = New System.Windows.Forms.Padding(0)
@@ -868,12 +896,12 @@ Partial Class usrCntlSpeditionsBuchSuche
'btnQSAufteilung
'
Me.btnQSAufteilung.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnQSAufteilung.Image = Global.SDL.My.Resources.statistik_small
Me.btnQSAufteilung.Image = Global.SDL.My.Resources.Resources.statistik_small
Me.btnQSAufteilung.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnQSAufteilung.Location = New System.Drawing.Point(399, 8)
Me.btnQSAufteilung.Margin = New System.Windows.Forms.Padding(0)
Me.btnQSAufteilung.Name = "btnQSAufteilung"
Me.btnQSAufteilung.Size = New System.Drawing.Size(141, 25)
Me.btnQSAufteilung.Size = New System.Drawing.Size(154, 25)
Me.btnQSAufteilung.TabIndex = 33
Me.btnQSAufteilung.Text = "QS-Aufteilung"
Me.btnQSAufteilung.TextAlign = System.Drawing.ContentAlignment.MiddleRight
@@ -893,7 +921,7 @@ Partial Class usrCntlSpeditionsBuchSuche
'Button8
'
Me.Button8.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button8.Image = Global.SDL.My.Resources.statistik_small
Me.Button8.Image = Global.SDL.My.Resources.Resources.statistik_small
Me.Button8.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button8.Location = New System.Drawing.Point(9, 19)
Me.Button8.Margin = New System.Windows.Forms.Padding(0)
@@ -992,7 +1020,7 @@ Partial Class usrCntlSpeditionsBuchSuche
'Button10
'
Me.Button10.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button10.Image = Global.SDL.My.Resources.statistik_small
Me.Button10.Image = Global.SDL.My.Resources.Resources.statistik_small
Me.Button10.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button10.Location = New System.Drawing.Point(5, 20)
Me.Button10.Margin = New System.Windows.Forms.Padding(0)
@@ -1028,7 +1056,7 @@ Partial Class usrCntlSpeditionsBuchSuche
'Button15
'
Me.Button15.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button15.Image = Global.SDL.My.Resources.therefore1
Me.Button15.Image = Global.SDL.My.Resources.Resources.therefore1
Me.Button15.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button15.Location = New System.Drawing.Point(105, 19)
Me.Button15.Margin = New System.Windows.Forms.Padding(10, 3, 3, 3)
@@ -1052,7 +1080,7 @@ Partial Class usrCntlSpeditionsBuchSuche
'Button1
'
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.Image = Global.SDL.My.Resources.plus
Me.Button1.Image = Global.SDL.My.Resources.Resources.plus
Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button1.Location = New System.Drawing.Point(16, 19)
Me.Button1.Margin = New System.Windows.Forms.Padding(0)
@@ -1067,7 +1095,7 @@ Partial Class usrCntlSpeditionsBuchSuche
'btnExcel
'
Me.btnExcel.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.btnExcel.BackgroundImage = Global.SDL.My.Resources.Excel_logo
Me.btnExcel.BackgroundImage = Global.SDL.My.Resources.Resources.Excel_logo
Me.btnExcel.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
Me.btnExcel.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnExcel.Location = New System.Drawing.Point(1089, 89)
@@ -1079,7 +1107,7 @@ Partial Class usrCntlSpeditionsBuchSuche
'FlatButton7
'
Me.FlatButton7.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.FlatButton7.BackgroundImage = Global.SDL.My.Resources.refresh
Me.FlatButton7.BackgroundImage = Global.SDL.My.Resources.Resources.refresh
Me.FlatButton7.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.FlatButton7.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.FlatButton7.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -1111,6 +1139,7 @@ Partial Class usrCntlSpeditionsBuchSuche
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(1136, 31)
@@ -1137,7 +1166,7 @@ Partial Class usrCntlSpeditionsBuchSuche
'
Me.Button3.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button3.Image = Global.SDL.My.Resources.plus
Me.Button3.Image = Global.SDL.My.Resources.Resources.plus
Me.Button3.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button3.Location = New System.Drawing.Point(112, 180)
Me.Button3.Margin = New System.Windows.Forms.Padding(0)
@@ -1321,6 +1350,7 @@ Partial Class usrCntlSpeditionsBuchSuche
Me.txtAbfertDat._TimeOnly = False
Me.txtAbfertDat._value = ""
Me.txtAbfertDat._Waehrung = False
Me.txtAbfertDat._WaehrungZeichen = True
Me.txtAbfertDat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtAbfertDat.ForeColor = System.Drawing.Color.Black
Me.txtAbfertDat.Location = New System.Drawing.Point(43, 30)
@@ -1343,6 +1373,7 @@ Partial Class usrCntlSpeditionsBuchSuche
Me.txtAbfertDatBis._TimeOnly = False
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
@@ -1393,6 +1424,7 @@ Partial Class usrCntlSpeditionsBuchSuche
Me.txtUnterNr._TimeOnly = False
Me.txtUnterNr._value = Nothing
Me.txtUnterNr._Waehrung = False
Me.txtUnterNr._WaehrungZeichen = True
Me.txtUnterNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtUnterNr.ForeColor = System.Drawing.Color.Black
Me.txtUnterNr.Location = New System.Drawing.Point(633, 31)
@@ -1414,6 +1446,7 @@ Partial Class usrCntlSpeditionsBuchSuche
Me.txtAbfertigungsnummerBis._TimeOnly = False
Me.txtAbfertigungsnummerBis._value = Nothing
Me.txtAbfertigungsnummerBis._Waehrung = False
Me.txtAbfertigungsnummerBis._WaehrungZeichen = True
Me.txtAbfertigungsnummerBis.Enabled = False
Me.txtAbfertigungsnummerBis.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtAbfertigungsnummerBis.ForeColor = System.Drawing.Color.Black
@@ -1436,6 +1469,7 @@ Partial Class usrCntlSpeditionsBuchSuche
Me.txtAbfertigungsnummer._TimeOnly = False
Me.txtAbfertigungsnummer._value = Nothing
Me.txtAbfertigungsnummer._Waehrung = False
Me.txtAbfertigungsnummer._WaehrungZeichen = True
Me.txtAbfertigungsnummer.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtAbfertigungsnummer.ForeColor = System.Drawing.Color.Black
Me.txtAbfertigungsnummer.Location = New System.Drawing.Point(466, 32)
@@ -1494,7 +1528,7 @@ Partial Class usrCntlSpeditionsBuchSuche
'
Me.btnSuche.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnSuche.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnSuche.Image = Global.SDL.My.Resources.search
Me.btnSuche.Image = Global.SDL.My.Resources.Resources.search
Me.btnSuche.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnSuche.Location = New System.Drawing.Point(1015, 6)
Me.btnSuche.Name = "btnSuche"
@@ -1561,6 +1595,7 @@ Partial Class usrCntlSpeditionsBuchSuche
'
'SplitContainer1.Panel2
'
Me.SplitContainer1.Panel2.Controls.Add(Me.cbxCMR)
Me.SplitContainer1.Panel2.Controls.Add(Me.Label41)
Me.SplitContainer1.Panel2.Controls.Add(Me.lstGrenze)
Me.SplitContainer1.Panel2.Controls.Add(Me.txtKdAuftragsNr)
@@ -1735,7 +1770,7 @@ Partial Class usrCntlSpeditionsBuchSuche
Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button4.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold)
Me.Button4.ForeColor = System.Drawing.Color.White
Me.Button4.Image = Global.SDL.My.Resources.pfeil_unten
Me.Button4.Image = Global.SDL.My.Resources.Resources.pfeil_unten
Me.Button4.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button4.Location = New System.Drawing.Point(1015, 57)
Me.Button4.Margin = New System.Windows.Forms.Padding(0)
@@ -1845,6 +1880,20 @@ Partial Class usrCntlSpeditionsBuchSuche
Me.DateTimePicker1.Size = New System.Drawing.Size(115, 20)
Me.DateTimePicker1.TabIndex = 2
'
'cbxCMR
'
Me.cbxCMR.AutoSize = True
Me.cbxCMR.BackColor = System.Drawing.Color.White
Me.cbxCMR.Checked = True
Me.cbxCMR.CheckState = System.Windows.Forms.CheckState.Indeterminate
Me.cbxCMR.Location = New System.Drawing.Point(678, 180)
Me.cbxCMR.Name = "cbxCMR"
Me.cbxCMR.Size = New System.Drawing.Size(50, 17)
Me.cbxCMR.TabIndex = 49
Me.cbxCMR.Text = "CMR"
Me.cbxCMR.ThreeState = True
Me.cbxCMR.UseVisualStyleBackColor = False
'
'Label41
'
Me.Label41.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -1877,6 +1926,7 @@ Partial Class usrCntlSpeditionsBuchSuche
Me.txtKdAuftragsNr._TimeOnly = False
Me.txtKdAuftragsNr._value = Nothing
Me.txtKdAuftragsNr._Waehrung = False
Me.txtKdAuftragsNr._WaehrungZeichen = True
Me.txtKdAuftragsNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtKdAuftragsNr.ForeColor = System.Drawing.Color.Black
Me.txtKdAuftragsNr.Location = New System.Drawing.Point(511, 26)
@@ -1925,6 +1975,7 @@ Partial Class usrCntlSpeditionsBuchSuche
Me.MyTextBox14._TimeOnly = False
Me.MyTextBox14._value = Nothing
Me.MyTextBox14._Waehrung = False
Me.MyTextBox14._WaehrungZeichen = True
Me.MyTextBox14.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.MyTextBox14.ForeColor = System.Drawing.Color.Black
Me.MyTextBox14.Location = New System.Drawing.Point(135, 188)
@@ -2002,6 +2053,7 @@ Partial Class usrCntlSpeditionsBuchSuche
Me.txtAbsenderKdnr._TimeOnly = False
Me.txtAbsenderKdnr._value = Nothing
Me.txtAbsenderKdnr._Waehrung = False
Me.txtAbsenderKdnr._WaehrungZeichen = True
Me.txtAbsenderKdnr.BackColor = System.Drawing.Color.White
Me.txtAbsenderKdnr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtAbsenderKdnr.ForeColor = System.Drawing.Color.Black
@@ -2063,6 +2115,7 @@ Partial Class usrCntlSpeditionsBuchSuche
Me.txtEmpfaengerKdnr._TimeOnly = False
Me.txtEmpfaengerKdnr._value = Nothing
Me.txtEmpfaengerKdnr._Waehrung = False
Me.txtEmpfaengerKdnr._WaehrungZeichen = True
Me.txtEmpfaengerKdnr.BackColor = System.Drawing.Color.White
Me.txtEmpfaengerKdnr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtEmpfaengerKdnr.ForeColor = System.Drawing.Color.Black
@@ -2110,6 +2163,7 @@ Partial Class usrCntlSpeditionsBuchSuche
Me.txtFrachtfuehrerKdnr._TimeOnly = False
Me.txtFrachtfuehrerKdnr._value = Nothing
Me.txtFrachtfuehrerKdnr._Waehrung = False
Me.txtFrachtfuehrerKdnr._WaehrungZeichen = True
Me.txtFrachtfuehrerKdnr.BackColor = System.Drawing.Color.White
Me.txtFrachtfuehrerKdnr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtFrachtfuehrerKdnr.ForeColor = System.Drawing.Color.Black
@@ -2133,6 +2187,7 @@ Partial Class usrCntlSpeditionsBuchSuche
Me.txtEndempfaengerKdnr._TimeOnly = False
Me.txtEndempfaengerKdnr._value = Nothing
Me.txtEndempfaengerKdnr._Waehrung = False
Me.txtEndempfaengerKdnr._WaehrungZeichen = True
Me.txtEndempfaengerKdnr.BackColor = System.Drawing.Color.White
Me.txtEndempfaengerKdnr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtEndempfaengerKdnr.ForeColor = System.Drawing.Color.Black
@@ -2165,6 +2220,7 @@ Partial Class usrCntlSpeditionsBuchSuche
Me.txtErfassungsnNr._TimeOnly = False
Me.txtErfassungsnNr._value = Nothing
Me.txtErfassungsnNr._Waehrung = False
Me.txtErfassungsnNr._WaehrungZeichen = True
Me.txtErfassungsnNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtErfassungsnNr.ForeColor = System.Drawing.Color.Black
Me.txtErfassungsnNr.Location = New System.Drawing.Point(511, 154)
@@ -2225,6 +2281,20 @@ Partial Class usrCntlSpeditionsBuchSuche
Me.SplitContainer.SplitterWidth = 2
Me.SplitContainer.TabIndex = 3
'
'Button19
'
Me.Button19.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button19.Image = Global.SDL.My.Resources.Resources.statistik_small
Me.Button19.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button19.Location = New System.Drawing.Point(764, 54)
Me.Button19.Margin = New System.Windows.Forms.Padding(0)
Me.Button19.Name = "Button19"
Me.Button19.Size = New System.Drawing.Size(83, 28)
Me.Button19.TabIndex = 57
Me.Button19.Text = "Fehlende"
Me.Button19.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button19.UseVisualStyleBackColor = True
'
'usrCntlSpeditionsBuchSuche
'
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None
@@ -2405,5 +2475,7 @@ Partial Class usrCntlSpeditionsBuchSuche
Friend WithEvents Button17 As System.Windows.Forms.Button
Friend WithEvents cboDetailberichtKdAtrNr As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Label44 As System.Windows.Forms.Label
Friend WithEvents Button18 As Button
Friend WithEvents cbxCMR As CheckBox
Friend WithEvents Button19 As Button
End Class

202
SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb
View File

@@ -262,8 +262,12 @@ Public Class usrCntlSpeditionsBuchSuche
If MyTextBox14.Text <> "" Then sqlstr &= " AND [LKW Kennzeichen] LIKE @LKW "
If cbxBar.CheckState = CheckState.Checked Then sqlstr &= " AND Bar=1 "
If cbxFakturiert.CheckState = CheckState.Checked Then sqlstr &= " AND Fakturiert=1 "
If cbxCMR.CheckState = CheckState.Checked Then sqlstr &= " AND SB_CMR=1 "
If cbxBar.CheckState = CheckState.Unchecked Then sqlstr &= " AND Bar=0 "
If cbxFakturiert.CheckState = CheckState.Unchecked Then sqlstr &= " AND Fakturiert=0 "
If cbxCMR.CheckState = CheckState.Unchecked Then sqlstr &= " AND SB_CMR=0 "
If cboSachbearbeiter._value <> "" Then sqlstr &= " AND [Personalnummer] = @Personalnummer "
If cboSB_Qs._value <> "" Then sqlstr &= " AND [PersonalnummerQS] = @PersonalnummerQS "
@@ -1296,4 +1300,202 @@ Public Class usrCntlSpeditionsBuchSuche
End If
End Sub
Private Sub Button18_Click(sender As Object, e As EventArgs) Handles Button18.Click
Dim kdnrTmp = -1
Dim FirmaTmp = ""
If kdtxtAuftraggeber.KdNr_value > 0 Then kdnrTmp = kdtxtAuftraggeber.KdNr_value : FirmaTmp = kdtxtAuftraggeber.Text
If kdtxtEmpfaenger.KdNr_value > 0 Then kdnrTmp = kdtxtEmpfaenger.KdNr_value : FirmaTmp = kdtxtEmpfaenger.Text
If kdtxtEndempfaenger.KdNr_value > 0 Then kdnrTmp = kdtxtEndempfaenger.KdNr_value : FirmaTmp = kdtxtEndempfaenger.Text
If kdtxtAvisierer.KdNr_value > 0 Then kdnrTmp = kdtxtAvisierer.KdNr_value : FirmaTmp = kdtxtAvisierer.Text
Dim VBNr = -1
Dim path = getGelangensbestätigung(FirmaTmp, kdnrTmp,, VBNr)
If path <> "" Then
SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Gelangensbestaetigung, kdnrTmp, {kdnrTmp, path, VBNr})
End If
End Sub
Function getGelangensbestätigung(Firma As String, kdnrTmp As Integer, Optional showDok As Boolean = False, Optional ByRef VBNr As Integer = -1) As String
Dim displayFilter = cbxFilterInBericht.Checked
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ZOLL_Auswertungen", "SDL") Then
Dim sqlstr As String = ""
' If CheckBox1.Checked Then
Dim sql_KdAuftragsNr = "" '",Speditionsbuch.KdAuftragsNr as KdAuftragsNr"
sqlstr &= " SELECT FilialenNr, AbfertigungsNr,UnterNr, Speditionsbuch.Abfertigungsart as Abfertigungsart ,Abfertigungsdatum, BelegNr, Rohmasse, Vermerk, Packstücke, AbsenderKundenNr, Absender, EmpfängerKundenNr, Empfänger,EndEmpfänger,EndEmpfängerKundenNr, VermittlerKundenNr, Vermittler, "
sqlstr &= " FrachtführerKundenNr, Frachtführer, AvisiererKundenNr, Avisierer,Währungscode,Barzahlungsbetrag,Rechnungsbetrag, [LKW Kennzeichen],"
sqlstr &= " Abfertigungsanzahl, Speditionsbuch.Abfertigungsart, Abfertigungsbezeichnung,AvisoID" & sql_KdAuftragsNr & ",Speditionsbuch.KdAuftragsNrAvisierer,Speditionsbuch.KdAuftragsNrEmpfaenger,Speditionsbuch.KdAuftragsNrFrachtfuehrer, Speditionsbuch.Bemerkungen "
sqlstr &= " FROM Speditionsbuch LEFT JOIN Abfertigungsarten ON Speditionsbuch.Abfertigungsart=Abfertigungsarten.Abfertigungsart "
sqlstr &= " LEFT JOIN Währungstabelle on Währungstabelle.Währungsschlüssel=speditionsbuch.Währungsschlüssel WHERE 1=1 "
sqlstr &= getSpedBuchWhere()
' sqlstr &= " order by FilialenNr, AvisoId,Speditionsbuch.Abfertigungsart,Abfertigungsdatum"
sqlstr &= " order by FilialenNr, Speditionsbuch.Abfertigungsart,Abfertigungsdatum"
Dim dt As DataTable = SQL.loadDgvBySql_Param(sqlstr, "FMZOLL", , getSpedbuchList())
Dim print As New frmPrintLayout
print.Text = "Gelangensbestätigung"
Dim rpt As New rptSpeditionsbericht_Gelangensbestaetigung
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "IMEX" : rpt.picVERAG.Image = My.Resources.IMEX_LOGO_simple : rpt.Label28.Text = "IMEX Customs Service GmbH"
Case "ATILLA" : rpt.picVERAG.Image = My.Resources.Atilla : rpt.Label28.Text = "ATILLA Spedition"
Case Else
End Select
rpt.DataSource = dt
If vbYes = MsgBox("Neue Gelangensbestätigungs-Nr. vergeben?", MsgBoxStyle.YesNo) Then
Dim GBST = New VERAG_PROG_ALLGEMEIN.cGelangensbestaetigung(Firma, kdnrTmp)
If GBST.SAVE Then
rpt.lblNr.Text = GBST.gb_nr
VBNr = GBST.gb_nr
End If
Else
rpt.Label17.Visible = False
End If
If rpt.DataSource.rows.count = 0 Then
rpt.Dispose() : print.Dispose()
MsgBox("Keine Daten vorhanden!")
Return ""
End If
Dim AvsioIdNull As String = ""
For Each r In rpt.DataSource.rows
If r("AvisoId") Is DBNull.Value OrElse r("AvisoId") <= 0 Then
AvsioIdNull &= r("FilialenNr") & " " & r("AbfertigungsNr") & " " & r("UnterNr") & " - " & r("Abfertigungsdatum") & " - " & r("LKW Kennzeichen") & vbNewLine
End If
Next
If AvsioIdNull <> "" Then
MsgBox("Achtung: folgende Sendungen sind keinem LKW/Aviso zugeordnet:" & vbNewLine & AvsioIdNull)
End If
Dim sum = 0
rpt.lblSachbearbeiter.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
'rpt.lblMandantNiederlassung.Text = PERSONAL.Mandant & " / " & PERSONAL.Niederlassung
'Dim cnt As Integer = 0
rpt.lblDat.Text = Now.ToLongDateString
Dim sumAnz As Double = 0
Dim sumBar As Double = 0
Dim sumRg As Double = 0
Dim gesSumAnz As Double = 0
Dim gesSumBar As Double = 0
Dim gesSumRg As Double = 0
Dim gesgesSumAnz As Double = 0
Dim gesgesSumBar As Double = 0
Dim gesgesSumRg As Double = 0
Dim SumAnzLKW As Double = 0
Dim gesSumAnzLKW As Double = 0
Dim gesgesSumAnzLKW As Double = 0
Dim sumAbfBez = ""
Dim gesFilBez = ""
' Dim gesgesAbfBez = ""
AddHandler rpt.Detail.Format, Sub()
' rpt.lblVon.Text = CDate(rpt.Fields.Item("von").Value).ToShortDateString
' rpt.lblLKWNr.Text = CDate(rpt.Fields.Item("bis").Value).ToShortDateString
rpt.lblPosNr.Text = rpt.Fields.Item("FilialenNr").Value & " " & rpt.Fields.Item("AbfertigungsNr").Value & " " & rpt.Fields.Item("UnterNr").Value
rpt.lblAbfDatum.Text = "Datum: " & rpt.Fields.Item("Abfertigungsdatum").Value
rpt.lblBezugsNr.Text = checkNull(rpt.Fields.Item("BelegNr").Value)
rpt.lblRohmasse.Text = "Rohmasse: " & checkNull(rpt.Fields.Item("Rohmasse").Value, "0") & "kg"
rpt.txtVermerk.Text = checkNull(rpt.Fields.Item("Vermerk").Value)
rpt.txtPackstücke.Text = checkNull(rpt.Fields.Item("Packstücke").Value)
If cbxSpedDetailBem.Checked Then
If checkNull(rpt.Fields.Item("Bemerkungen").Value) <> "" Then
rpt.txtPackstücke.Text = (rpt.txtPackstücke.Text & vbNewLine & vbNewLine & checkNull(rpt.Fields.Item("Bemerkungen").Value)).trim
End If
End If
rpt.lblAbsKdNr.Text = checkNull(rpt.Fields.Item("AbsenderKundenNr").Value)
rpt.lblAbs.Text = checkNull(rpt.Fields.Item("Absender").Value)
rpt.lblEmpfKdNr.Text = checkNull(rpt.Fields.Item("EmpfängerKundenNr").Value)
rpt.lblEmpf.Text = checkNull(rpt.Fields.Item("Empfänger").Value)
rpt.lblEndEmpfKdNr.Text = checkNull(rpt.Fields.Item("EndEmpfängerKundenNr").Value)
rpt.lblEndEmpf.Text = checkNull(rpt.Fields.Item("EndEmpfänger").Value)
rpt.lblAuftrKdNr.Text = checkNull(rpt.Fields.Item("VermittlerKundenNr").Value)
rpt.lblAuftr.Text = checkNull(rpt.Fields.Item("Vermittler").Value)
rpt.lblFrachtfKdNr.Text = checkNull(rpt.Fields.Item("FrachtführerKundenNr").Value)
rpt.lblFrachtf.Text = checkNull(rpt.Fields.Item("Frachtführer").Value)
' rpt.lblLKWNr.Text = rpt.Fields.Item("AvisiererKundenNr").Value
' rpt.lblLKWNr.Text = rpt.Fields.Item("Avisierer").Value
'lblGesgesWaehrung.te
' rpt.lblKdAuftragNr.Text = checkNull(rpt.Fields.Item("KdAuftragsNr").Value)
'If rpt.lblKdAuftragNr.Text <> "" Then rpt.lblKdAuftragNr.Text = "Auftrag: " & rpt.lblKdAuftragNr.Text
Dim bar As Double = 0
Dim rg As Double = 0
Dim anz As Double = 0
If IsNumeric(checkNull(rpt.Fields.Item("Barzahlungsbetrag").Value)) Then bar = CDbl(rpt.Fields.Item("Barzahlungsbetrag").Value())
If IsNumeric(checkNull(rpt.Fields.Item("Rechnungsbetrag").Value)) Then rg = CDbl(rpt.Fields.Item("Rechnungsbetrag").Value())
' rpt.lblRechnungsbetragInEur.Text = rpt.Fields.Item("Rechnungsbetrag").Value * rpt.Fields.Item("Umrechnungskurs").Value
rpt.lblLKWNr.Text = checkNull(rpt.Fields.Item("LKW Kennzeichen").Value)
rpt.lblAnzahl.Text = checkNull(rpt.Fields.Item("Abfertigungsanzahl").Value)
rpt.lblAbfertigungsart.Text = checkNull(rpt.Fields.Item("Abfertigungsbezeichnung").Value)
' rpt.lblAbs.Text = checkNull(rpt.Fields.Item("Abfertigungsbezeichnung").Value)
' rpt.lblBarzahlungsbetrag.Text = CDbl(rpt.Fields.Item("Barzahlungsbetrag").Value()).ToString("C")
'sumBar += CDbl(rpt.Fields.Item("Barzahlungsbetrag").Value)
If IsNumeric(checkNull(rpt.Fields.Item("Abfertigungsanzahl").Value)) Then anz = CDbl(rpt.Fields.Item("Abfertigungsanzahl").Value)
sumAbfBez = checkNull(rpt.Fields.Item("Abfertigungsbezeichnung").Value)
gesgesSumAnz += anz
End Sub
AddHandler rpt.ReportFooter1.Format, Sub()
rpt.lblGesGesSumAnzahl.Text = gesgesSumAnz.ToString("N0")
End Sub
If showDok Then
print.Viewer.LoadDocument(rpt)
print.Viewer.ViewType = GrapeCity.Viewer.Common.Model.ViewType.Continuous
print.Show()
Else
Dim tmpPath = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("Verbringungsnachweis_" & Firma & ".pdf", ".pdf", True, False)
Dim p As New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport
rpt.Run(False)
p.NeverEmbedFonts = ""
p.Export(rpt.Document, tmpPath)
rpt.Dispose()
Return tmpPath
End If
End If
Return ""
End Function
Private Sub Button19_Click(sender As Object, e As EventArgs) Handles Button19.Click
Dim SQLStr = "SELECT [FilialenNr],[AbfertigungsNr],[UnterNr],[Abfertigungsdatum],[LKW Kennzeichen],[EmpfängerKundenNr],[Empfänger],Abfertigungsart,AtlasBezNrEZA as BezugsNr
, isnull((SELECT SUM(Betrag) FROM Zkteing WHERE Bezugsnummer=AtlasBezNrEZA) ,'') as EUST
FROM [VERAG].[dbo].[Speditionsbuch]
where Abfertigungsart IN (26,28) AND Abfertigungsdatum > DATEADD(Month,-6 ,getdate()) AND isnull(SB_CMR ,0)=0 AND FilialenNr NOT IN (5501)
order by Abfertigungsdatum ASC"
Dim dt As DataTable = SQL.loadDgvBySql(SQLStr, "FMZOLL")
cProgramFunctions.genExcelFromDT_NEW(dt, {"J1:J" & (dt.Rows.Count + 2)})
End Sub
End Class

23
SDL/frmMain.Designer.vb generated
View File

@@ -93,6 +93,8 @@ Partial Class frmMain
Me.cntxtZOLL = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.AuswertungenToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.SchnittstellenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator()
Me.pnlLeft.SuspendLayout()
Me.MenuStripSDL.SuspendLayout()
Me.Panel1.SuspendLayout()
@@ -152,7 +154,7 @@ Partial Class frmMain
'mnueMDM
'
Me.mnueMDM.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.mnueMDM.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.KartenverwaltungToolStripMenuItem1, Me.VERAGCardParkplatzToolStripMenuItem1, Me.LKWListeToolStripMenuItem1, Me.SDLAbholaufträgeToolStripMenuItem, Me.ToolStripSeparator1, Me.AuswertungenToolStripMenuItem2})
Me.mnueMDM.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.KartenverwaltungToolStripMenuItem1, Me.VERAGCardParkplatzToolStripMenuItem1, Me.LKWListeToolStripMenuItem1, Me.SDLAbholaufträgeToolStripMenuItem, Me.ToolStripSeparator1, Me.SchnittstellenToolStripMenuItem, Me.ToolStripSeparator2, Me.AuswertungenToolStripMenuItem2})
Me.mnueMDM.ForeColor = System.Drawing.Color.White
Me.mnueMDM.Image = Global.SDL.My.Resources.Resources.logo_mdm
Me.mnueMDM.ImageAlign = System.Drawing.ContentAlignment.TopCenter
@@ -219,19 +221,19 @@ Partial Class frmMain
'ArtikelTarifierenToolStripMenuItem
'
Me.ArtikelTarifierenToolStripMenuItem.Name = "ArtikelTarifierenToolStripMenuItem"
Me.ArtikelTarifierenToolStripMenuItem.Size = New System.Drawing.Size(158, 22)
Me.ArtikelTarifierenToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.ArtikelTarifierenToolStripMenuItem.Text = "Artikel tarifieren"
'
'SpeditionsbuchToolStripMenuItem
'
Me.SpeditionsbuchToolStripMenuItem.Name = "SpeditionsbuchToolStripMenuItem"
Me.SpeditionsbuchToolStripMenuItem.Size = New System.Drawing.Size(158, 22)
Me.SpeditionsbuchToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.SpeditionsbuchToolStripMenuItem.Text = "Speditionsbuch"
'
'AuswertungToolStripMenuItem
'
Me.AuswertungToolStripMenuItem.Name = "AuswertungToolStripMenuItem"
Me.AuswertungToolStripMenuItem.Size = New System.Drawing.Size(158, 22)
Me.AuswertungToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.AuswertungToolStripMenuItem.Text = "Auswertung"
'
'mnueBerichte
@@ -812,6 +814,17 @@ Partial Class frmMain
Me.AuswertungenToolStripMenuItem1.Size = New System.Drawing.Size(150, 24)
Me.AuswertungenToolStripMenuItem1.Text = "Auswertungen"
'
'SchnittstellenToolStripMenuItem
'
Me.SchnittstellenToolStripMenuItem.Name = "SchnittstellenToolStripMenuItem"
Me.SchnittstellenToolStripMenuItem.Size = New System.Drawing.Size(199, 22)
Me.SchnittstellenToolStripMenuItem.Text = "Schnittstellen"
'
'ToolStripSeparator2
'
Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
Me.ToolStripSeparator2.Size = New System.Drawing.Size(196, 6)
'
'frmMain
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
@@ -915,4 +928,6 @@ Partial Class frmMain
Friend WithEvents NeueSMSSendenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents SMSVerlaufToolStripMenuItem As ToolStripMenuItem
Public WithEvents lblVersion As Label
Friend WithEvents SchnittstellenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ToolStripSeparator2 As ToolStripSeparator
End Class

4
SDL/frmMain.vb
View File

@@ -765,6 +765,10 @@ Public Class frmMain
Dim f As New SDL.frmSMS
f.Show(Me)
End Sub
Private Sub SchnittstellenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SchnittstellenToolStripMenuItem.Click
End Sub
End Class
Public Class MyRenderer

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

100
SDL/kunden/frmLKWDetails.Designer.vb generated
View File

@@ -45,6 +45,11 @@ Partial Class frmLKWDetails
Me.Label2 = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.lbl = New System.Windows.Forms.Label()
Me.Label8 = New System.Windows.Forms.Label()
Me.txtBaujahr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.cbxLeasing = New System.Windows.Forms.CheckBox()
Me.cbxMiete = New System.Windows.Forms.CheckBox()
Me.cbxFinanzierungBank = New System.Windows.Forms.CheckBox()
Me.pnl.SuspendLayout()
Me.Panel1.SuspendLayout()
Me.SuspendLayout()
@@ -53,12 +58,16 @@ Partial Class frmLKWDetails
'
Me.pnl.BackColor = System.Drawing.Color.White
Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pnl.Controls.Add(Me.cbxFinanzierungBank)
Me.pnl.Controls.Add(Me.cbxMiete)
Me.pnl.Controls.Add(Me.cbxLeasing)
Me.pnl.Controls.Add(Me.txtBaujahr)
Me.pnl.Controls.Add(Me.Label8)
Me.pnl.Controls.Add(Me.Panel1)
Me.pnl.Controls.Add(Me.cbxKZAenderung)
Me.pnl.Controls.Add(Me.Label5)
Me.pnl.Controls.Add(Me.KdSearchBox1)
Me.pnl.Controls.Add(Me.cbxAbgemeldet)
Me.pnl.Controls.Add(Me.cbxVerkauft)
Me.pnl.Controls.Add(Me.txtVermerk)
Me.pnl.Controls.Add(Me.Label3)
Me.pnl.Controls.Add(Me.btnAbbrechen)
@@ -68,10 +77,11 @@ Partial Class frmLKWDetails
Me.pnl.Controls.Add(Me.Label2)
Me.pnl.Controls.Add(Me.Label1)
Me.pnl.Controls.Add(Me.lbl)
Me.pnl.Controls.Add(Me.cbxVerkauft)
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(315, 229)
Me.pnl.Size = New System.Drawing.Size(411, 229)
Me.pnl.TabIndex = 1
'
'Panel1
@@ -188,7 +198,7 @@ Partial Class frmLKWDetails
Me.KdSearchBox1.nurAktive = True
Me.KdSearchBox1.ReadOnly = True
Me.KdSearchBox1.searchActive = True
Me.KdSearchBox1.Size = New System.Drawing.Size(260, 13)
Me.KdSearchBox1.Size = New System.Drawing.Size(348, 13)
Me.KdSearchBox1.TabIndex = 12
Me.KdSearchBox1.usrcntl = Nothing
'
@@ -228,19 +238,19 @@ Partial Class frmLKWDetails
Me.txtVermerk._WaehrungZeichen = True
Me.txtVermerk.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtVermerk.ForeColor = System.Drawing.Color.Black
Me.txtVermerk.Location = New System.Drawing.Point(5, 127)
Me.txtVermerk.Location = New System.Drawing.Point(6, 129)
Me.txtVermerk.MaxLength = 100
Me.txtVermerk.MaxLineLength = -1
Me.txtVermerk.MaxLines_Warning = ""
Me.txtVermerk.MaxLines_Warning_Label = Nothing
Me.txtVermerk.Name = "txtVermerk"
Me.txtVermerk.Size = New System.Drawing.Size(291, 23)
Me.txtVermerk.Size = New System.Drawing.Size(392, 23)
Me.txtVermerk.TabIndex = 8
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(2, 108)
Me.Label3.Location = New System.Drawing.Point(3, 113)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(49, 13)
Me.Label3.TabIndex = 7
@@ -250,7 +260,7 @@ Partial Class frmLKWDetails
'
Me.btnAbbrechen.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.btnAbbrechen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnAbbrechen.Location = New System.Drawing.Point(61, 156)
Me.btnAbbrechen.Location = New System.Drawing.Point(145, 158)
Me.btnAbbrechen.Name = "btnAbbrechen"
Me.btnAbbrechen.Size = New System.Drawing.Size(87, 34)
Me.btnAbbrechen.TabIndex = 5
@@ -261,9 +271,9 @@ Partial Class frmLKWDetails
'
Me.btnOK.DialogResult = System.Windows.Forms.DialogResult.OK
Me.btnOK.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnOK.Location = New System.Drawing.Point(154, 156)
Me.btnOK.Location = New System.Drawing.Point(238, 158)
Me.btnOK.Name = "btnOK"
Me.btnOK.Size = New System.Drawing.Size(142, 34)
Me.btnOK.Size = New System.Drawing.Size(160, 34)
Me.btnOK.TabIndex = 6
Me.btnOK.Text = "OK"
Me.btnOK.UseVisualStyleBackColor = True
@@ -342,11 +352,76 @@ Partial Class frmLKWDetails
Me.lbl.TabIndex = 0
Me.lbl.Text = "Bitte geben Sie die Datem zum LKW ein:"
'
'Label8
'
Me.Label8.AutoSize = True
Me.Label8.Location = New System.Drawing.Point(302, 34)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(46, 13)
Me.Label8.TabIndex = 16
Me.Label8.Text = "Baujahr:"
'
'txtBaujahr
'
Me.txtBaujahr._DateTimeOnly = False
Me.txtBaujahr._numbersOnly = False
Me.txtBaujahr._numbersOnlyKommastellen = ""
Me.txtBaujahr._Prozent = False
Me.txtBaujahr._ShortDateNew = True
Me.txtBaujahr._ShortDateOnly = False
Me.txtBaujahr._TimeOnly = False
Me.txtBaujahr._value = Nothing
Me.txtBaujahr._Waehrung = False
Me.txtBaujahr._WaehrungZeichen = True
Me.txtBaujahr.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtBaujahr.ForeColor = System.Drawing.Color.Black
Me.txtBaujahr.Location = New System.Drawing.Point(302, 51)
Me.txtBaujahr.MaxLength = 10
Me.txtBaujahr.MaxLineLength = -1
Me.txtBaujahr.MaxLines_Warning = ""
Me.txtBaujahr.MaxLines_Warning_Label = Nothing
Me.txtBaujahr.Name = "txtBaujahr"
Me.txtBaujahr.Size = New System.Drawing.Size(96, 26)
Me.txtBaujahr.TabIndex = 17
'
'cbxLeasing
'
Me.cbxLeasing.AutoSize = True
Me.cbxLeasing.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxLeasing.Location = New System.Drawing.Point(236, 83)
Me.cbxLeasing.Name = "cbxLeasing"
Me.cbxLeasing.Size = New System.Drawing.Size(63, 17)
Me.cbxLeasing.TabIndex = 18
Me.cbxLeasing.Text = "Leasing"
Me.cbxLeasing.UseVisualStyleBackColor = True
'
'cbxMiete
'
Me.cbxMiete.AutoSize = True
Me.cbxMiete.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxMiete.Location = New System.Drawing.Point(302, 83)
Me.cbxMiete.Name = "cbxMiete"
Me.cbxMiete.Size = New System.Drawing.Size(52, 17)
Me.cbxMiete.TabIndex = 19
Me.cbxMiete.Text = "Miete"
Me.cbxMiete.UseVisualStyleBackColor = True
'
'cbxFinanzierungBank
'
Me.cbxFinanzierungBank.AutoSize = True
Me.cbxFinanzierungBank.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxFinanzierungBank.Location = New System.Drawing.Point(236, 106)
Me.cbxFinanzierungBank.Name = "cbxFinanzierungBank"
Me.cbxFinanzierungBank.Size = New System.Drawing.Size(114, 17)
Me.cbxFinanzierungBank.TabIndex = 20
Me.cbxFinanzierungBank.Text = "Finanzierung Bank"
Me.cbxFinanzierungBank.UseVisualStyleBackColor = True
'
'frmLKWDetails
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(315, 229)
Me.ClientSize = New System.Drawing.Size(411, 229)
Me.Controls.Add(Me.pnl)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.KeyPreview = True
@@ -382,4 +457,9 @@ Partial Class frmLKWDetails
Friend WithEvents KdSearchBox1 As VERAG_PROG_ALLGEMEIN.KdSearchBox
Friend WithEvents cbxKZAenderung As System.Windows.Forms.CheckBox
Friend WithEvents Panel1 As System.Windows.Forms.Panel
Friend WithEvents cbxFinanzierungBank As CheckBox
Friend WithEvents cbxMiete As CheckBox
Friend WithEvents cbxLeasing As CheckBox
Public WithEvents txtBaujahr As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label8 As Label
End Class

7
SDL/kunden/frmLKWDetails.vb
View File

@@ -68,6 +68,11 @@
lblSachbearb.DataBindings.Add(New Binding("Text", s.bindingSource, "Sachbearbeiter", True, DataSourceUpdateMode.OnPropertyChanged, ""))
txtBaujahr.DataBindings.Add(New Binding("Text", s.bindingSource, "Baujahr", True, DataSourceUpdateMode.OnPropertyChanged, ""))
cbxMiete.DataBindings.Add(New Binding("Checked", s.bindingSource, "KzMiete", True, DataSourceUpdateMode.OnPropertyChanged, False))
cbxLeasing.DataBindings.Add(New Binding("Checked", s.bindingSource, "KzLeasing", True, DataSourceUpdateMode.OnPropertyChanged, False))
cbxFinanzierungBank.DataBindings.Add(New Binding("Checked", s.bindingSource, "KzFinanzierungBank", True, DataSourceUpdateMode.OnPropertyChanged, False))
Catch ex As Exception
MsgBox(ex.Message)
End Try
@@ -119,7 +124,7 @@
End Sub
Private Sub frmLKWDetails_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me) Then
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_LKW_bearbeiten", Me) Then
MsgBox("Keine Berechtigung!")
Me.Close()
End If

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

959
SDL/mdm/PLOSE/rptPLOSE_Anhang.Designer.vb generated Normal file
View File

@@ -0,0 +1,959 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Public Class rptPLOSE_Anhang
Inherits GrapeCity.ActiveReports.SectionReport
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
End If
MyBase.Dispose(disposing)
End Sub
'NOTE: The following procedure is required by the ActiveReports Designer
'It can be modified using the ActiveReports Designer.
'Do not modify it using the code editor.
Private WithEvents PageHeader As GrapeCity.ActiveReports.SectionReportModel.PageHeader
Private WithEvents PageFooter As GrapeCity.ActiveReports.SectionReportModel.PageFooter
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(rptPLOSE_Anhang))
Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
Me.lblKategorie = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.txtProdukt = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtBrutto = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtNetto = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtMWST = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.ReportInfo2 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo()
Me.ReportHeader1 = New GrapeCity.ActiveReports.SectionReportModel.ReportHeader()
Me.txtKunde = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label16 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Picture1 = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.picVERAG = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.lblUeberschriftRG_GS = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line3 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.lblFirmaOrt = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblFirmaStrasse = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblFirmaTel = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblFirmaFax = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblFirmaEmail = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblFirmaWeb = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label18 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblRgDatum = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
Me.GroupHeader4 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
Me.lblBrutto = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblMWST = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line16 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.lblProdukt = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblNetto = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.GroupFooter4 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
Me.GroupHeaderKat = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
Me.GroupFooterKat = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
Me.GroupHeaderKz = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
Me.GroupFooterKz = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
Me.lblKennzeichen = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtKennzeichen = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtLand = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtDatum = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblLand = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblDatum = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblKartennummer = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtKartennummer = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblService = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtEingang = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtAusgang = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtBruttoKzSum = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtNettoKzSum = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtMWSTKzSum = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line4 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.lblSummeKennzeichen = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtBruttoKatSum = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtNettoKatSum = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtMWSTKatSum = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSumKategorie = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line5 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.txtBruttoGesSum = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtNettoGesSum = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtMWSTGEsSum = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblGessumme = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line7 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Line8 = New GrapeCity.ActiveReports.SectionReportModel.Line()
CType(Me.lblKategorie, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtProdukt, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtBrutto, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtNetto, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtMWST, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtKunde, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label16, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Picture1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblUeberschriftRG_GS, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblFirmaOrt, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblFirmaStrasse, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblFirmaTel, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblFirmaFax, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblFirmaEmail, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblFirmaWeb, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label18, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblRgDatum, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblBrutto, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblMWST, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblProdukt, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblNetto, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblKennzeichen, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtKennzeichen, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtLand, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtDatum, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblLand, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblDatum, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblKartennummer, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtKartennummer, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblService, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtEingang, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAusgang, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtBruttoKzSum, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtNettoKzSum, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtMWSTKzSum, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSummeKennzeichen, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtBruttoKatSum, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtNettoKatSum, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtMWSTKatSum, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSumKategorie, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtBruttoGesSum, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtNettoGesSum, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtMWSTGEsSum, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblGessumme, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'PageHeader
'
Me.PageHeader.Height = 0!
Me.PageHeader.Name = "PageHeader"
'
'lblKategorie
'
Me.lblKategorie.Height = 0.2094488!
Me.lblKategorie.HyperLink = Nothing
Me.lblKategorie.Left = 0!
Me.lblKategorie.Name = "lblKategorie"
Me.lblKategorie.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0)
Me.lblKategorie.Style = "background-color: #003680; color: White; font-size: 10pt; font-weight: bold; text" &
"-align: left; text-justify: auto; vertical-align: middle; ddo-char-set: 1"
Me.lblKategorie.Text = "KATEGORIE IT TELEPASS"
Me.lblKategorie.Top = 0!
Me.lblKategorie.Width = 7.466142!
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtProdukt, Me.txtBrutto, Me.txtNetto, Me.txtMWST, Me.txtLand, Me.txtDatum, Me.txtKartennummer, Me.txtEingang, Me.txtAusgang})
Me.Detail.Height = 0.1212599!
Me.Detail.KeepTogether = True
Me.Detail.Name = "Detail"
'
'txtProdukt
'
Me.txtProdukt.Height = 0.1212599!
Me.txtProdukt.HyperLink = Nothing
Me.txtProdukt.Left = 0.718504!
Me.txtProdukt.Name = "txtProdukt"
Me.txtProdukt.Style = "font-size: 6pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.txtProdukt.Text = "Produkt"
Me.txtProdukt.Top = 0!
Me.txtProdukt.Width = 1.062992!
'
'txtBrutto
'
Me.txtBrutto.Height = 0.1212599!
Me.txtBrutto.HyperLink = Nothing
Me.txtBrutto.Left = 6.563389!
Me.txtBrutto.Name = "txtBrutto"
Me.txtBrutto.Style = "font-size: 6pt; font-weight: normal; text-align: right; ddo-char-set: 1"
Me.txtBrutto.Text = "Betrag"
Me.txtBrutto.Top = 0!
Me.txtBrutto.Width = 0.9169284!
'
'txtNetto
'
Me.txtNetto.Height = 0.1212599!
Me.txtNetto.HyperLink = Nothing
Me.txtNetto.Left = 4.897638!
Me.txtNetto.Name = "txtNetto"
Me.txtNetto.Style = "font-size: 6pt; font-weight: normal; text-align: right; ddo-char-set: 1"
Me.txtNetto.Text = "Betrag"
Me.txtNetto.Top = 0!
Me.txtNetto.Width = 0.748817!
'
'txtMWST
'
Me.txtMWST.Height = 0.1212599!
Me.txtMWST.HyperLink = Nothing
Me.txtMWST.Left = 5.646456!
Me.txtMWST.Name = "txtMWST"
Me.txtMWST.Style = "font-size: 6pt; font-weight: normal; text-align: right; ddo-char-set: 1"
Me.txtMWST.Text = "Betrag"
Me.txtMWST.Top = 0!
Me.txtMWST.Width = 0.9169284!
'
'PageFooter
'
Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Line2, Me.ReportInfo2})
Me.PageFooter.Height = 0.2503937!
Me.PageFooter.Name = "PageFooter"
'
'Line2
'
Me.Line2.Height = 0!
Me.Line2.Left = 0!
Me.Line2.LineWeight = 1.0!
Me.Line2.Name = "Line2"
Me.Line2.Top = 0.07401575!
Me.Line2.Width = 7.480313!
Me.Line2.X1 = 0!
Me.Line2.X2 = 7.480313!
Me.Line2.Y1 = 0.07401575!
Me.Line2.Y2 = 0.07401575!
'
'ReportInfo2
'
Me.ReportInfo2.FormatString = "Seite {PageNumber} von {PageCount} Seiten "
Me.ReportInfo2.Height = 0.1330709!
Me.ReportInfo2.Left = 5.480315!
Me.ReportInfo2.Name = "ReportInfo2"
Me.ReportInfo2.Style = "font-size: 8pt; text-align: right"
Me.ReportInfo2.Top = 0.1173228!
Me.ReportInfo2.Width = 1.994928!
'
'ReportHeader1
'
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblRgDatum, Me.txtKunde, Me.Label16, Me.Picture1, Me.picVERAG, Me.lblUeberschriftRG_GS, Me.Line3, Me.lblFirmaOrt, Me.lblFirmaStrasse, Me.lblFirmaTel, Me.lblFirmaFax, Me.lblFirmaEmail, Me.lblFirmaWeb, Me.Label18})
Me.ReportHeader1.Height = 1.065354!
Me.ReportHeader1.Name = "ReportHeader1"
'
'txtKunde
'
Me.txtKunde.Height = 0.1574803!
Me.txtKunde.HyperLink = Nothing
Me.txtKunde.Left = 4.855512!
Me.txtKunde.Name = "txtKunde"
Me.txtKunde.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" &
"-char-set: 1"
Me.txtKunde.Text = "1000000 TEST"
Me.txtKunde.Top = 0.868504!
Me.txtKunde.Width = 2.614567!
'
'Label16
'
Me.Label16.Height = 0.1574803!
Me.Label16.HyperLink = Nothing
Me.Label16.Left = 4.500394!
Me.Label16.Name = "Label16"
Me.Label16.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" &
"o-char-set: 1"
Me.Label16.Text = "Kunde:"
Me.Label16.Top = 0.868504!
Me.Label16.Width = 1.165748!
'
'Picture1
'
Me.Picture1.Height = 0.6102362!
Me.Picture1.HyperLink = Nothing
Me.Picture1.ImageData = CType(resources.GetObject("Picture1.ImageData"), System.IO.Stream)
Me.Picture1.Left = 3.244882!
Me.Picture1.Name = "Picture1"
Me.Picture1.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
Me.Picture1.Top = 0!
Me.Picture1.Visible = False
Me.Picture1.Width = 1.059449!
'
'picVERAG
'
Me.picVERAG.Height = 0.4169292!
Me.picVERAG.HyperLink = Nothing
Me.picVERAG.ImageData = CType(resources.GetObject("picVERAG.ImageData"), System.IO.Stream)
Me.picVERAG.Left = 0.01023622!
Me.picVERAG.Name = "picVERAG"
Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
Me.picVERAG.Top = 0.1220473!
Me.picVERAG.Width = 2.198425!
'
'lblUeberschriftRG_GS
'
Me.lblUeberschriftRG_GS.Height = 0.2311024!
Me.lblUeberschriftRG_GS.HyperLink = Nothing
Me.lblUeberschriftRG_GS.Left = 4.500394!
Me.lblUeberschriftRG_GS.Name = "lblUeberschriftRG_GS"
Me.lblUeberschriftRG_GS.Style = "font-size: 12pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.lblUeberschriftRG_GS.Text = "Anlage zur Sammelrechnung"
Me.lblUeberschriftRG_GS.Top = 0.3870079!
Me.lblUeberschriftRG_GS.Width = 2.969686!
'
'Line3
'
Me.Line3.Height = 0!
Me.Line3.Left = 0.002755864!
Me.Line3.LineColor = System.Drawing.Color.DimGray
Me.Line3.LineWeight = 1.0!
Me.Line3.Name = "Line3"
Me.Line3.Top = 0.6102362!
Me.Line3.Width = 7.475196!
Me.Line3.X1 = 0.002755864!
Me.Line3.X2 = 7.477952!
Me.Line3.Y1 = 0.6102362!
Me.Line3.Y2 = 0.6102362!
'
'lblFirmaOrt
'
Me.lblFirmaOrt.Height = 0.1181102!
Me.lblFirmaOrt.HyperLink = Nothing
Me.lblFirmaOrt.Left = 0.01417317!
Me.lblFirmaOrt.Name = "lblFirmaOrt"
Me.lblFirmaOrt.Style = "font-size: 7pt; font-weight: normal; text-align: left; vertical-align: middle; dd" &
"o-char-set: 1"
Me.lblFirmaOrt.Text = "A-4975 Suben"
Me.lblFirmaOrt.Top = 0.7503937!
Me.lblFirmaOrt.Width = 1.19685!
'
'lblFirmaStrasse
'
Me.lblFirmaStrasse.Height = 0.1181102!
Me.lblFirmaStrasse.HyperLink = Nothing
Me.lblFirmaStrasse.Left = 0.01417319!
Me.lblFirmaStrasse.Name = "lblFirmaStrasse"
Me.lblFirmaStrasse.Style = "font-size: 7pt; font-weight: normal; text-align: left; vertical-align: middle; dd" &
"o-char-set: 1"
Me.lblFirmaStrasse.Text = "Suben Nr. 100"
Me.lblFirmaStrasse.Top = 0.8685039!
Me.lblFirmaStrasse.Width = 1.19685!
'
'lblFirmaTel
'
Me.lblFirmaTel.Height = 0.1181103!
Me.lblFirmaTel.HyperLink = Nothing
Me.lblFirmaTel.Left = 1.211024!
Me.lblFirmaTel.Name = "lblFirmaTel"
Me.lblFirmaTel.Style = "font-size: 7pt; font-weight: normal; text-align: left; vertical-align: middle; dd" &
"o-char-set: 1"
Me.lblFirmaTel.Text = "Tel. +43 7711 2777 - 0"
Me.lblFirmaTel.Top = 0.7503937!
Me.lblFirmaTel.Width = 1.28189!
'
'lblFirmaFax
'
Me.lblFirmaFax.Height = 0.1181103!
Me.lblFirmaFax.HyperLink = Nothing
Me.lblFirmaFax.Left = 1.211024!
Me.lblFirmaFax.Name = "lblFirmaFax"
Me.lblFirmaFax.Style = "font-size: 7pt; font-weight: normal; text-align: left; vertical-align: middle; dd" &
"o-char-set: 1"
Me.lblFirmaFax.Text = "Fax +43 7711 31600"
Me.lblFirmaFax.Top = 0.868504!
Me.lblFirmaFax.Width = 1.28189!
'
'lblFirmaEmail
'
Me.lblFirmaEmail.Height = 0.1181103!
Me.lblFirmaEmail.HyperLink = Nothing
Me.lblFirmaEmail.Left = 2.492913!
Me.lblFirmaEmail.Name = "lblFirmaEmail"
Me.lblFirmaEmail.Style = "font-size: 7pt; font-weight: normal; text-align: right; vertical-align: middle; d" &
"do-char-set: 1"
Me.lblFirmaEmail.Text = "s.kriegner@verag.ag"
Me.lblFirmaEmail.Top = 0.7503937!
Me.lblFirmaEmail.Width = 1.436614!
'
'lblFirmaWeb
'
Me.lblFirmaWeb.Height = 0.1181103!
Me.lblFirmaWeb.HyperLink = Nothing
Me.lblFirmaWeb.Left = 2.492913!
Me.lblFirmaWeb.Name = "lblFirmaWeb"
Me.lblFirmaWeb.Style = "font-size: 7pt; font-weight: normal; text-align: right; vertical-align: middle; d" &
"do-char-set: 1"
Me.lblFirmaWeb.Text = "www.verag.ag"
Me.lblFirmaWeb.Top = 0.8685042!
Me.lblFirmaWeb.Width = 1.436614!
'
'Label18
'
Me.Label18.Height = 0.1574803!
Me.Label18.HyperLink = Nothing
Me.Label18.Left = 4.500394!
Me.Label18.Name = "Label18"
Me.Label18.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" &
"o-char-set: 1"
Me.Label18.Text = "Datum:"
Me.Label18.Top = 0.7110237!
Me.Label18.Width = 1.165748!
'
'lblRgDatum
'
Me.lblRgDatum.Height = 0.1574803!
Me.lblRgDatum.HyperLink = Nothing
Me.lblRgDatum.Left = 5.511811!
Me.lblRgDatum.Name = "lblRgDatum"
Me.lblRgDatum.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" &
"-char-set: 1"
Me.lblRgDatum.Text = "01.01.2019"
Me.lblRgDatum.Top = 0.7110237!
Me.lblRgDatum.Width = 1.958268!
'
'ReportFooter1
'
Me.ReportFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtBruttoGesSum, Me.txtNettoGesSum, Me.txtMWSTGEsSum, Me.lblGessumme, Me.Line7, Me.Line8})
Me.ReportFooter1.Height = 0.2515748!
Me.ReportFooter1.KeepTogether = True
Me.ReportFooter1.Name = "ReportFooter1"
'
'GroupHeader4
'
Me.GroupHeader4.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblDatum, Me.lblLand, Me.lblBrutto, Me.lblMWST, Me.Line16, Me.lblProdukt, Me.lblNetto, Me.lblKartennummer, Me.lblService})
Me.GroupHeader4.Height = 0.1511811!
Me.GroupHeader4.KeepTogether = True
Me.GroupHeader4.Name = "GroupHeader4"
'
'lblBrutto
'
Me.lblBrutto.Height = 0.1425197!
Me.lblBrutto.HyperLink = Nothing
Me.lblBrutto.Left = 6.563386!
Me.lblBrutto.Name = "lblBrutto"
Me.lblBrutto.Style = "font-size: 6pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" &
"-char-set: 1"
Me.lblBrutto.Text = "Brutto"
Me.lblBrutto.Top = 0.008661418!
Me.lblBrutto.Width = 0.9169292!
'
'lblMWST
'
Me.lblMWST.Height = 0.1425197!
Me.lblMWST.HyperLink = Nothing
Me.lblMWST.Left = 5.646457!
Me.lblMWST.Name = "lblMWST"
Me.lblMWST.Style = "font-size: 6pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" &
"-char-set: 1"
Me.lblMWST.Text = "MWST"
Me.lblMWST.Top = 0.008661418!
Me.lblMWST.Width = 0.9169284!
'
'Line16
'
Me.Line16.Height = 0!
Me.Line16.Left = 0.002755906!
Me.Line16.LineWeight = 1.0!
Me.Line16.Name = "Line16"
Me.Line16.Top = 0!
Me.Line16.Width = 7.475195!
Me.Line16.X1 = 0.002755906!
Me.Line16.X2 = 7.477951!
Me.Line16.Y1 = 0!
Me.Line16.Y2 = 0!
'
'lblProdukt
'
Me.lblProdukt.Height = 0.1425197!
Me.lblProdukt.HyperLink = Nothing
Me.lblProdukt.Left = 0.718504!
Me.lblProdukt.Name = "lblProdukt"
Me.lblProdukt.Style = "font-size: 6pt; font-weight: bold; text-align: left; vertical-align: middle; ddo-" &
"char-set: 1"
Me.lblProdukt.Text = "Produkt"
Me.lblProdukt.Top = 0.008661418!
Me.lblProdukt.Width = 1.062992!
'
'lblNetto
'
Me.lblNetto.Height = 0.1425197!
Me.lblNetto.HyperLink = Nothing
Me.lblNetto.Left = 4.896063!
Me.lblNetto.Name = "lblNetto"
Me.lblNetto.Style = "font-size: 6pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" &
"-char-set: 1"
Me.lblNetto.Text = "Netto"
Me.lblNetto.Top = 0.008661418!
Me.lblNetto.Width = 0.7503939!
'
'GroupFooter4
'
Me.GroupFooter4.Height = 0!
Me.GroupFooter4.Name = "GroupFooter4"
'
'GroupHeaderKat
'
Me.GroupHeaderKat.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblKategorie})
Me.GroupHeaderKat.Name = "GroupHeaderKat"
'
'GroupFooterKat
'
Me.GroupFooterKat.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtBruttoKatSum, Me.txtNettoKatSum, Me.txtMWSTKatSum, Me.lblSumKategorie, Me.Line5})
Me.GroupFooterKat.Height = 0.375!
Me.GroupFooterKat.Name = "GroupFooterKat"
'
'GroupHeaderKz
'
Me.GroupHeaderKz.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblKennzeichen, Me.txtKennzeichen})
Me.GroupHeaderKz.Name = "GroupHeaderKz"
'
'GroupFooterKz
'
Me.GroupFooterKz.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtBruttoKzSum, Me.txtNettoKzSum, Me.txtMWSTKzSum, Me.Line4, Me.lblSummeKennzeichen})
Me.GroupFooterKz.Name = "GroupFooterKz"
'
'lblKennzeichen
'
Me.lblKennzeichen.Height = 0.1425197!
Me.lblKennzeichen.HyperLink = Nothing
Me.lblKennzeichen.Left = 0.01417327!
Me.lblKennzeichen.Name = "lblKennzeichen"
Me.lblKennzeichen.Padding = New GrapeCity.ActiveReports.PaddingEx(3, 0, 0, 0)
Me.lblKennzeichen.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" &
"o-char-set: 1"
Me.lblKennzeichen.Text = "LKW-Kennzeichen:"
Me.lblKennzeichen.Top = 0.05354331!
Me.lblKennzeichen.Width = 1.34252!
'
'txtKennzeichen
'
Me.txtKennzeichen.Height = 0.1425197!
Me.txtKennzeichen.HyperLink = Nothing
Me.txtKennzeichen.Left = 1.356693!
Me.txtKennzeichen.Name = "txtKennzeichen"
Me.txtKennzeichen.Padding = New GrapeCity.ActiveReports.PaddingEx(3, 0, 0, 0)
Me.txtKennzeichen.Style = "font-size: 10pt; font-weight: bold; text-align: left; vertical-align: middle; ddo" &
"-char-set: 1"
Me.txtKennzeichen.Text = "SD 123 ABC"
Me.txtKennzeichen.Top = 0.05354331!
Me.txtKennzeichen.Width = 1.34252!
'
'txtLand
'
Me.txtLand.Height = 0.1212599!
Me.txtLand.HyperLink = Nothing
Me.txtLand.Left = 0.01023622!
Me.txtLand.Name = "txtLand"
Me.txtLand.Style = "font-size: 6pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.txtLand.Text = "IT"
Me.txtLand.Top = 0!
Me.txtLand.Width = 0.1980315!
'
'txtDatum
'
Me.txtDatum.Height = 0.1212599!
Me.txtDatum.HyperLink = Nothing
Me.txtDatum.Left = 0.2082677!
Me.txtDatum.Name = "txtDatum"
Me.txtDatum.Style = "font-size: 6pt; font-weight: normal; text-align: center; ddo-char-set: 1"
Me.txtDatum.Text = "01.01.2019"
Me.txtDatum.Top = 0!
Me.txtDatum.Width = 0.5102363!
'
'lblLand
'
Me.lblLand.Height = 0.1425197!
Me.lblLand.HyperLink = Nothing
Me.lblLand.Left = 0!
Me.lblLand.Name = "lblLand"
Me.lblLand.Style = "font-size: 6pt; font-weight: bold; text-align: left; vertical-align: middle; ddo-" &
"char-set: 1"
Me.lblLand.Text = "Land"
Me.lblLand.Top = 0.008661417!
Me.lblLand.Width = 0.3228347!
'
'lblDatum
'
Me.lblDatum.Height = 0.1425197!
Me.lblDatum.HyperLink = Nothing
Me.lblDatum.Left = 0.2082677!
Me.lblDatum.Name = "lblDatum"
Me.lblDatum.Style = "font-size: 6pt; font-weight: bold; text-align: center; vertical-align: middle; dd" &
"o-char-set: 1"
Me.lblDatum.Text = "Datum"
Me.lblDatum.Top = 0.008661418!
Me.lblDatum.Width = 0.5102363!
'
'lblKartennummer
'
Me.lblKartennummer.Height = 0.1425197!
Me.lblKartennummer.HyperLink = Nothing
Me.lblKartennummer.Left = 1.781496!
Me.lblKartennummer.Name = "lblKartennummer"
Me.lblKartennummer.Style = "font-size: 6pt; font-weight: bold; text-align: left; vertical-align: middle; ddo-" &
"char-set: 1"
Me.lblKartennummer.Text = "Kartennummer"
Me.lblKartennummer.Top = 0.008661418!
Me.lblKartennummer.Width = 0.9901576!
'
'txtKartennummer
'
Me.txtKartennummer.Height = 0.1212599!
Me.txtKartennummer.HyperLink = Nothing
Me.txtKartennummer.Left = 1.781496!
Me.txtKartennummer.Name = "txtKartennummer"
Me.txtKartennummer.Style = "font-size: 6pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.txtKartennummer.Text = "Kartennummer"
Me.txtKartennummer.Top = 1.862645E-9!
Me.txtKartennummer.Width = 0.9913387!
'
'lblService
'
Me.lblService.Height = 0.1425197!
Me.lblService.HyperLink = Nothing
Me.lblService.Left = 2.771654!
Me.lblService.Name = "lblService"
Me.lblService.Style = "font-size: 6pt; font-weight: bold; text-align: left; vertical-align: middle; ddo-" &
"char-set: 1"
Me.lblService.Text = "Service"
Me.lblService.Top = 0.008661418!
Me.lblService.Width = 2.125984!
'
'txtEingang
'
Me.txtEingang.Height = 0.1212599!
Me.txtEingang.HyperLink = Nothing
Me.txtEingang.Left = 2.771654!
Me.txtEingang.Name = "txtEingang"
Me.txtEingang.Style = "font-size: 6pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.txtEingang.Text = "Eingang"
Me.txtEingang.Top = 0!
Me.txtEingang.Width = 1.062992!
'
'txtAusgang
'
Me.txtAusgang.Height = 0.1212599!
Me.txtAusgang.HyperLink = Nothing
Me.txtAusgang.Left = 3.834646!
Me.txtAusgang.Name = "txtAusgang"
Me.txtAusgang.Style = "font-size: 6pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.txtAusgang.Text = "Ausgang"
Me.txtAusgang.Top = 0!
Me.txtAusgang.Width = 1.062992!
'
'txtBruttoKzSum
'
Me.txtBruttoKzSum.Height = 0.1417323!
Me.txtBruttoKzSum.HyperLink = Nothing
Me.txtBruttoKzSum.Left = 6.56339!
Me.txtBruttoKzSum.Name = "txtBruttoKzSum"
Me.txtBruttoKzSum.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.txtBruttoKzSum.Text = "Betrag"
Me.txtBruttoKzSum.Top = 0.01968504!
Me.txtBruttoKzSum.Width = 0.9169284!
'
'txtNettoKzSum
'
Me.txtNettoKzSum.Height = 0.1417323!
Me.txtNettoKzSum.HyperLink = Nothing
Me.txtNettoKzSum.Left = 4.729528!
Me.txtNettoKzSum.Name = "txtNettoKzSum"
Me.txtNettoKzSum.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.txtNettoKzSum.Text = "Betrag"
Me.txtNettoKzSum.Top = 0.01968504!
Me.txtNettoKzSum.Width = 0.9169284!
'
'txtMWSTKzSum
'
Me.txtMWSTKzSum.Height = 0.1417323!
Me.txtMWSTKzSum.HyperLink = Nothing
Me.txtMWSTKzSum.Left = 5.646457!
Me.txtMWSTKzSum.Name = "txtMWSTKzSum"
Me.txtMWSTKzSum.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.txtMWSTKzSum.Text = "Betrag"
Me.txtMWSTKzSum.Top = 0.01968504!
Me.txtMWSTKzSum.Width = 0.9169284!
'
'Line4
'
Me.Line4.Height = 0!
Me.Line4.Left = 0.002755906!
Me.Line4.LineWeight = 1.0!
Me.Line4.Name = "Line4"
Me.Line4.Top = 0!
Me.Line4.Width = 7.475195!
Me.Line4.X1 = 0.002755906!
Me.Line4.X2 = 7.477951!
Me.Line4.Y1 = 0!
Me.Line4.Y2 = 0!
'
'lblSummeKennzeichen
'
Me.lblSummeKennzeichen.Height = 0.1417323!
Me.lblSummeKennzeichen.HyperLink = Nothing
Me.lblSummeKennzeichen.Left = 3.244882!
Me.lblSummeKennzeichen.Name = "lblSummeKennzeichen"
Me.lblSummeKennzeichen.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1; ddo-font-v" &
"ertical: none"
Me.lblSummeKennzeichen.Text = "Summe Kennzeichen"
Me.lblSummeKennzeichen.Top = 0.01968504!
Me.lblSummeKennzeichen.Width = 1.484645!
'
'txtBruttoKatSum
'
Me.txtBruttoKatSum.Height = 0.1417323!
Me.txtBruttoKatSum.HyperLink = Nothing
Me.txtBruttoKatSum.Left = 6.563391!
Me.txtBruttoKatSum.Name = "txtBruttoKatSum"
Me.txtBruttoKatSum.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.txtBruttoKatSum.Text = "Betrag"
Me.txtBruttoKatSum.Top = 0.1708661!
Me.txtBruttoKatSum.Width = 0.9169284!
'
'txtNettoKatSum
'
Me.txtNettoKatSum.Height = 0.1417323!
Me.txtNettoKatSum.HyperLink = Nothing
Me.txtNettoKatSum.Left = 4.729528!
Me.txtNettoKatSum.Name = "txtNettoKatSum"
Me.txtNettoKatSum.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.txtNettoKatSum.Text = "Betrag"
Me.txtNettoKatSum.Top = 0.1708661!
Me.txtNettoKatSum.Width = 0.9169284!
'
'txtMWSTKatSum
'
Me.txtMWSTKatSum.Height = 0.1417323!
Me.txtMWSTKatSum.HyperLink = Nothing
Me.txtMWSTKatSum.Left = 5.646457!
Me.txtMWSTKatSum.Name = "txtMWSTKatSum"
Me.txtMWSTKatSum.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.txtMWSTKatSum.Text = "Betrag"
Me.txtMWSTKatSum.Top = 0.1708661!
Me.txtMWSTKatSum.Width = 0.9169284!
'
'lblSumKategorie
'
Me.lblSumKategorie.Height = 0.1417323!
Me.lblSumKategorie.HyperLink = Nothing
Me.lblSumKategorie.Left = 3.244882!
Me.lblSumKategorie.Name = "lblSumKategorie"
Me.lblSumKategorie.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1; ddo-font-v" &
"ertical: none"
Me.lblSumKategorie.Text = "Summe Kategorie:"
Me.lblSumKategorie.Top = 0.1708661!
Me.lblSumKategorie.Width = 1.484645!
'
'Line5
'
Me.Line5.Height = 0!
Me.Line5.Left = 0.002755906!
Me.Line5.LineWeight = 2.0!
Me.Line5.Name = "Line5"
Me.Line5.Top = 0.06102363!
Me.Line5.Width = 7.475195!
Me.Line5.X1 = 0.002755906!
Me.Line5.X2 = 7.477951!
Me.Line5.Y1 = 0.06102363!
Me.Line5.Y2 = 0.06102363!
'
'txtBruttoGesSum
'
Me.txtBruttoGesSum.Height = 0.1417323!
Me.txtBruttoGesSum.HyperLink = Nothing
Me.txtBruttoGesSum.Left = 6.563386!
Me.txtBruttoGesSum.Name = "txtBruttoGesSum"
Me.txtBruttoGesSum.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.txtBruttoGesSum.Text = "Betrag"
Me.txtBruttoGesSum.Top = 0.1098426!
Me.txtBruttoGesSum.Width = 0.9169284!
'
'txtNettoGesSum
'
Me.txtNettoGesSum.Height = 0.1417323!
Me.txtNettoGesSum.HyperLink = Nothing
Me.txtNettoGesSum.Left = 4.729524!
Me.txtNettoGesSum.Name = "txtNettoGesSum"
Me.txtNettoGesSum.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.txtNettoGesSum.Text = "Betrag"
Me.txtNettoGesSum.Top = 0.1098426!
Me.txtNettoGesSum.Width = 0.9169284!
'
'txtMWSTGEsSum
'
Me.txtMWSTGEsSum.Height = 0.1417323!
Me.txtMWSTGEsSum.HyperLink = Nothing
Me.txtMWSTGEsSum.Left = 5.646452!
Me.txtMWSTGEsSum.Name = "txtMWSTGEsSum"
Me.txtMWSTGEsSum.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.txtMWSTGEsSum.Text = "Betrag"
Me.txtMWSTGEsSum.Top = 0.1098426!
Me.txtMWSTGEsSum.Width = 0.9169284!
'
'lblGessumme
'
Me.lblGessumme.Height = 0.1417323!
Me.lblGessumme.HyperLink = Nothing
Me.lblGessumme.Left = 3.244878!
Me.lblGessumme.Name = "lblGessumme"
Me.lblGessumme.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1; ddo-font-v" &
"ertical: none"
Me.lblGessumme.Text = "Gesamtsumme:"
Me.lblGessumme.Top = 0.1098426!
Me.lblGessumme.Width = 1.484645!
'
'Line7
'
Me.Line7.Height = 0!
Me.Line7.Left = 0.002752304!
Me.Line7.LineWeight = 2.0!
Me.Line7.Name = "Line7"
Me.Line7.Top = 0!
Me.Line7.Width = 7.475195!
Me.Line7.X1 = 0.002752304!
Me.Line7.X2 = 7.477948!
Me.Line7.Y1 = 0!
Me.Line7.Y2 = 0!
'
'Line8
'
Me.Line8.Height = 0!
Me.Line8.Left = 0.002752304!
Me.Line8.LineWeight = 2.0!
Me.Line8.Name = "Line8"
Me.Line8.Top = 0.03543304!
Me.Line8.Width = 7.475195!
Me.Line8.X1 = 0.002752304!
Me.Line8.X2 = 7.477948!
Me.Line8.Y1 = 0.03543304!
Me.Line8.Y2 = 0.03543304!
'
'rptPLOSE_Anhang
'
Me.MasterReport = False
Me.PageSettings.Margins.Bottom = 0.3937008!
Me.PageSettings.Margins.Left = 0.3937008!
Me.PageSettings.Margins.Right = 0.3937008!
Me.PageSettings.Margins.Top = 0.3937008!
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 7.480319!
Me.Sections.Add(Me.ReportHeader1)
Me.Sections.Add(Me.PageHeader)
Me.Sections.Add(Me.GroupHeaderKat)
Me.Sections.Add(Me.GroupHeaderKz)
Me.Sections.Add(Me.GroupHeader4)
Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.GroupFooter4)
Me.Sections.Add(Me.GroupFooterKz)
Me.Sections.Add(Me.GroupFooterKat)
Me.Sections.Add(Me.PageFooter)
Me.Sections.Add(Me.ReportFooter1)
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" &
"l; font-size: 10pt; color: Black; ddo-char-set: 204", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" &
"lic", "Heading2", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
CType(Me.lblKategorie, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtProdukt, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtBrutto, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtNetto, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtMWST, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtKunde, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label16, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Picture1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblUeberschriftRG_GS, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblFirmaOrt, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblFirmaStrasse, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblFirmaTel, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblFirmaFax, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblFirmaEmail, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblFirmaWeb, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label18, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblRgDatum, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblBrutto, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblMWST, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblProdukt, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblNetto, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblKennzeichen, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtKennzeichen, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtLand, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtDatum, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblLand, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblDatum, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblKartennummer, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtKartennummer, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblService, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtEingang, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAusgang, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtBruttoKzSum, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtNettoKzSum, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtMWSTKzSum, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSummeKennzeichen, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtBruttoKatSum, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtNettoKatSum, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtMWSTKatSum, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSumKategorie, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtBruttoGesSum, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtNettoGesSum, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtMWSTGEsSum, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblGessumme, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents ReportHeader1 As GrapeCity.ActiveReports.SectionReportModel.ReportHeader
Private WithEvents Line2 As GrapeCity.ActiveReports.SectionReportModel.Line
Public WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
Public WithEvents lblUeberschriftRG_GS As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents ReportInfo2 As GrapeCity.ActiveReports.SectionReportModel.ReportInfo
Public WithEvents ReportFooter1 As GrapeCity.ActiveReports.SectionReportModel.ReportFooter
Private WithEvents GroupHeader4 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader
Private WithEvents GroupFooter4 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter
Private WithEvents Line3 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Label18 As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents txtKunde As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblRgDatum As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents Picture1 As GrapeCity.ActiveReports.SectionReportModel.Picture
Public WithEvents picVERAG As GrapeCity.ActiveReports.SectionReportModel.Picture
Public WithEvents lblFirmaOrt As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblFirmaStrasse As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblFirmaTel As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblFirmaFax As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblFirmaEmail As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblFirmaWeb As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Line16 As GrapeCity.ActiveReports.SectionReportModel.Line
Public WithEvents Label16 As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents txtBrutto As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents txtNetto As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents txtMWST As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents txtProdukt As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Line5 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line4 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line7 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line8 As GrapeCity.ActiveReports.SectionReportModel.Line
Public WithEvents txtLand As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents txtDatum As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents txtKartennummer As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents txtEingang As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents txtAusgang As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblDatum As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblLand As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblKartennummer As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblService As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents txtBruttoKatSum As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents txtNettoKatSum As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents txtMWSTKatSum As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblSumKategorie As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents txtBruttoKzSum As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents txtNettoKzSum As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents txtMWSTKzSum As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblSummeKennzeichen As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents txtBruttoGesSum As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents txtNettoGesSum As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents txtMWSTGEsSum As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblGessumme As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblKategorie As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblProdukt As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblBrutto As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblMWST As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblNetto As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents GroupFooterKat As GrapeCity.ActiveReports.SectionReportModel.GroupFooter
Public WithEvents GroupFooterKz As GrapeCity.ActiveReports.SectionReportModel.GroupFooter
Public WithEvents GroupHeaderKz As GrapeCity.ActiveReports.SectionReportModel.GroupHeader
Public WithEvents txtKennzeichen As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents GroupHeaderKat As GrapeCity.ActiveReports.SectionReportModel.GroupHeader
Public WithEvents lblKennzeichen As GrapeCity.ActiveReports.SectionReportModel.Label
End Class

1128
SDL/mdm/PLOSE/rptPLOSE_Anhang.resx Normal file
View File

File diff suppressed because it is too large Load Diff

7
SDL/mdm/PLOSE/rptPLOSE_Anhang.vb Normal file
View File

@@ -0,0 +1,7 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class rptPLOSE_Anhang
End Class

581
SDL/mdm/PLOSE/rptPLOSE_TransaktionenSumary.Designer.vb generated Normal file
View File

@@ -0,0 +1,581 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Public Class rptPLOSE_TransaktionenSumary
Inherits GrapeCity.ActiveReports.SectionReport
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
End If
MyBase.Dispose(disposing)
End Sub
'NOTE: The following procedure is required by the ActiveReports Designer
'It can be modified using the ActiveReports Designer.
'Do not modify it using the code editor.
Private WithEvents PageHeader As GrapeCity.ActiveReports.SectionReportModel.PageHeader
Private WithEvents PageFooter As GrapeCity.ActiveReports.SectionReportModel.PageFooter
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(rptPLOSE_TransaktionenSumary))
Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
Me.Label8 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label14 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line4 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.lblAnzahl = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblProdukt = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line3 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
Me.Label28 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.ReportInfo2 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo()
Me.lblDat = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.ReportHeader1 = New GrapeCity.ActiveReports.SectionReportModel.ReportHeader()
Me.picVERAG = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.Label3 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSachbearbeiter = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
Me.Line1 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.lblLandFooter = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line7 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Label1 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label2 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label4 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label5 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label6 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblBrutto = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblMenge = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblPreis = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblNetto = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblMWST = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSumBrutto = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSumMwst = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSumNetto = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSumPreis = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSumMenge = New GrapeCity.ActiveReports.SectionReportModel.Label()
CType(Me.Label8, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label14, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblAnzahl, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblProdukt, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label28, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblDat, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSachbearbeiter, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblLandFooter, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblBrutto, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblMenge, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblPreis, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblNetto, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblMWST, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSumBrutto, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSumMwst, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSumNetto, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSumPreis, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSumMenge, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'PageHeader
'
Me.PageHeader.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Label8, Me.Label14, Me.Line4, Me.Label1, Me.Label2, Me.Label4, Me.Label5, Me.Label6})
Me.PageHeader.Height = 0.1969654!
Me.PageHeader.Name = "PageHeader"
'
'Label8
'
Me.Label8.Height = 0.1795276!
Me.Label8.HyperLink = Nothing
Me.Label8.Left = 0.5877953!
Me.Label8.Name = "Label8"
Me.Label8.Padding = New GrapeCity.ActiveReports.PaddingEx(3, 0, 0, 0)
Me.Label8.Style = "font-size: 8pt; font-weight: bold; text-align: left; vertical-align: middle; ddo-" &
"char-set: 1"
Me.Label8.Text = "Produkt"
Me.Label8.Top = 0!
Me.Label8.Width = 1.20315!
'
'Label14
'
Me.Label14.Height = 0.1795276!
Me.Label14.HyperLink = Nothing
Me.Label14.Left = 6.957087!
Me.Label14.Name = "Label14"
Me.Label14.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" &
"-char-set: 1"
Me.Label14.Text = "Brutto"
Me.Label14.Top = 0!
Me.Label14.Width = 0.9169288!
'
'Line4
'
Me.Line4.Height = 0.0000001043081!
Me.Line4.Left = 0!
Me.Line4.LineWeight = 1.0!
Me.Line4.Name = "Line4"
Me.Line4.Top = 0.1795276!
Me.Line4.Width = 7.874014!
Me.Line4.X1 = 0!
Me.Line4.X2 = 7.874014!
Me.Line4.Y1 = 0.1795276!
Me.Line4.Y2 = 0.1795277!
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblProdukt, Me.lblAnzahl, Me.lblBrutto, Me.Line3, Me.lblMenge, Me.lblPreis, Me.lblNetto, Me.lblMWST})
Me.Detail.Height = 0.1452756!
Me.Detail.Name = "Detail"
'
'lblAnzahl
'
Me.lblAnzahl.Height = 0.1417323!
Me.lblAnzahl.HyperLink = Nothing
Me.lblAnzahl.Left = 0.01023622!
Me.lblAnzahl.Name = "lblAnzahl"
Me.lblAnzahl.Style = "font-size: 8pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.lblAnzahl.Text = "-"
Me.lblAnzahl.Top = 0!
Me.lblAnzahl.Width = 0.5775591!
'
'lblProdukt
'
Me.lblProdukt.Height = 0.1417323!
Me.lblProdukt.HyperLink = Nothing
Me.lblProdukt.Left = 0.5877953!
Me.lblProdukt.Name = "lblProdukt"
Me.lblProdukt.Padding = New GrapeCity.ActiveReports.PaddingEx(3, 0, 0, 0)
Me.lblProdukt.Style = "font-size: 8pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.lblProdukt.Text = "Produkt"
Me.lblProdukt.Top = 0!
Me.lblProdukt.Width = 3.138977!
'
'Line3
'
Me.Line3.Height = 0!
Me.Line3.Left = 0!
Me.Line3.LineColor = System.Drawing.Color.Gray
Me.Line3.LineWeight = 1.0!
Me.Line3.Name = "Line3"
Me.Line3.Top = 0.1417323!
Me.Line3.Width = 7.874014!
Me.Line3.X1 = 0!
Me.Line3.X2 = 7.874014!
Me.Line3.Y1 = 0.1417323!
Me.Line3.Y2 = 0.1417323!
'
'PageFooter
'
Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Label28, Me.Line2, Me.ReportInfo2, Me.lblDat})
Me.PageFooter.Name = "PageFooter"
'
'Label28
'
Me.Label28.Height = 0.1330709!
Me.Label28.HyperLink = Nothing
Me.Label28.Left = 2.13937!
Me.Label28.Name = "Label28"
Me.Label28.Style = "font-size: 8pt; font-weight: bold; text-align: center; ddo-char-set: 1"
Me.Label28.Text = "VERAG Spediton AG"
Me.Label28.Top = 0.08622044!
Me.Label28.Width = 2.649606!
'
'Line2
'
Me.Line2.Height = 0.00000001862645!
Me.Line2.Left = 0!
Me.Line2.LineWeight = 1.0!
Me.Line2.Name = "Line2"
Me.Line2.Top = 0.03070864!
Me.Line2.Width = 7.874016!
Me.Line2.X1 = 0!
Me.Line2.X2 = 7.874016!
Me.Line2.Y1 = 0.03070864!
Me.Line2.Y2 = 0.03070866!
'
'ReportInfo2
'
Me.ReportInfo2.FormatString = "Seite {PageNumber} von {PageCount} Seiten "
Me.ReportInfo2.Height = 0.1330709!
Me.ReportInfo2.Left = 5.04252!
Me.ReportInfo2.Name = "ReportInfo2"
Me.ReportInfo2.Style = "font-size: 8pt; text-align: right"
Me.ReportInfo2.Top = 0.08622046!
Me.ReportInfo2.Width = 2.831496!
'
'lblDat
'
Me.lblDat.Height = 0.1330708!
Me.lblDat.HyperLink = Nothing
Me.lblDat.Left = 0.01023622!
Me.lblDat.Name = "lblDat"
Me.lblDat.Style = "font-size: 8pt; text-align: left"
Me.lblDat.Text = "Mittwoch, 02.11.2016"
Me.lblDat.Top = 0.08622044!
Me.lblDat.Width = 2.649606!
'
'ReportHeader1
'
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.picVERAG, Me.Label3, Me.lblUeberschrift, Me.lblSachbearbeiter})
Me.ReportHeader1.Height = 0.6968505!
Me.ReportHeader1.Name = "ReportHeader1"
'
'picVERAG
'
Me.picVERAG.Height = 0.4169292!
Me.picVERAG.HyperLink = Nothing
Me.picVERAG.ImageData = CType(resources.GetObject("picVERAG.ImageData"), System.IO.Stream)
Me.picVERAG.Left = 5.736221!
Me.picVERAG.Name = "picVERAG"
Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
Me.picVERAG.Top = 0!
Me.picVERAG.Width = 2.137795!
'
'Label3
'
Me.Label3.Height = 0.1377953!
Me.Label3.HyperLink = Nothing
Me.Label3.Left = 0!
Me.Label3.Name = "Label3"
Me.Label3.Style = "font-size: 8pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.Label3.Text = "Sachbearbeiter:"
Me.Label3.Top = 0.4551181!
Me.Label3.Width = 0.9736221!
'
'lblUeberschrift
'
Me.lblUeberschrift.Height = 0.2311024!
Me.lblUeberschrift.HyperLink = Nothing
Me.lblUeberschrift.Left = 0.01023622!
Me.lblUeberschrift.Name = "lblUeberschrift"
Me.lblUeberschrift.Style = "font-size: 12pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.lblUeberschrift.Text = "PLOSE Transaktionen 01.10.2016 bis 31.10.2016"
Me.lblUeberschrift.Top = 0.1338583!
Me.lblUeberschrift.Width = 4.875985!
'
'lblSachbearbeiter
'
Me.lblSachbearbeiter.Height = 0.1759843!
Me.lblSachbearbeiter.HyperLink = Nothing
Me.lblSachbearbeiter.Left = 0.9736221!
Me.lblSachbearbeiter.Name = "lblSachbearbeiter"
Me.lblSachbearbeiter.Style = "font-size: 10pt; font-weight: bold; text-align: left"
Me.lblSachbearbeiter.Text = "Hanslmayr Hubert (SUB)"
Me.lblSachbearbeiter.Top = 0.4169292!
Me.lblSachbearbeiter.Width = 4.606299!
'
'ReportFooter1
'
Me.ReportFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Line1, Me.lblLandFooter, Me.Line7, Me.lblSumBrutto, Me.lblSumMwst, Me.lblSumNetto, Me.lblSumPreis, Me.lblSumMenge})
Me.ReportFooter1.Height = 0.3527559!
Me.ReportFooter1.KeepTogether = True
Me.ReportFooter1.Name = "ReportFooter1"
'
'Line1
'
Me.Line1.Height = 0!
Me.Line1.Left = 0!
Me.Line1.LineWeight = 1.0!
Me.Line1.Name = "Line1"
Me.Line1.Top = 0.1295276!
Me.Line1.Width = 7.874016!
Me.Line1.X1 = 0!
Me.Line1.X2 = 7.874016!
Me.Line1.Y1 = 0.1295276!
Me.Line1.Y2 = 0.1295276!
'
'lblLandFooter
'
Me.lblLandFooter.Height = 0.1795275!
Me.lblLandFooter.HyperLink = Nothing
Me.lblLandFooter.Left = 0!
Me.lblLandFooter.Name = "lblLandFooter"
Me.lblLandFooter.Padding = New GrapeCity.ActiveReports.PaddingEx(3, 0, 0, 0)
Me.lblLandFooter.Style = "font-size: 8pt; font-weight: bold; text-align: left; vertical-align: top; ddo-cha" &
"r-set: 1"
Me.lblLandFooter.Text = "Gesamtsumme"
Me.lblLandFooter.Top = 0.1732284!
Me.lblLandFooter.Width = 1.790945!
'
'Line7
'
Me.Line7.Height = 0!
Me.Line7.Left = 0.005118111!
Me.Line7.LineWeight = 1.0!
Me.Line7.Name = "Line7"
Me.Line7.Top = 0.09409449!
Me.Line7.Width = 7.874014!
Me.Line7.X1 = 0.005118111!
Me.Line7.X2 = 7.879132!
Me.Line7.Y1 = 0.09409449!
Me.Line7.Y2 = 0.09409449!
'
'Label1
'
Me.Label1.Height = 0.1795276!
Me.Label1.HyperLink = Nothing
Me.Label1.Left = 0.01023622!
Me.Label1.Name = "Label1"
Me.Label1.Padding = New GrapeCity.ActiveReports.PaddingEx(3, 0, 0, 0)
Me.Label1.Style = "font-size: 8pt; font-weight: bold; text-align: left; vertical-align: middle; ddo-" &
"char-set: 1"
Me.Label1.Text = "Eintr<EFBFBD>ge"
Me.Label1.Top = 0.008661418!
Me.Label1.Width = 3.685433!
'
'Label2
'
Me.Label2.Height = 0.1795276!
Me.Label2.HyperLink = Nothing
Me.Label2.Left = 6.040158!
Me.Label2.Name = "Label2"
Me.Label2.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" &
"-char-set: 1"
Me.Label2.Text = "MWST"
Me.Label2.Top = 0.008661418!
Me.Label2.Width = 0.9169284!
'
'Label4
'
Me.Label4.Height = 0.1795276!
Me.Label4.HyperLink = Nothing
Me.Label4.Left = 5.123229!
Me.Label4.Name = "Label4"
Me.Label4.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" &
"-char-set: 1"
Me.Label4.Text = "Netto"
Me.Label4.Top = 0.008661418!
Me.Label4.Width = 0.9169284!
'
'Label5
'
Me.Label5.Height = 0.1795276!
Me.Label5.HyperLink = Nothing
Me.Label5.Left = 4.206299!
Me.Label5.Name = "Label5"
Me.Label5.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" &
"-char-set: 1"
Me.Label5.Text = "Preis"
Me.Label5.Top = 0.008661418!
Me.Label5.Width = 0.9169284!
'
'Label6
'
Me.Label6.Height = 0.1795276!
Me.Label6.HyperLink = Nothing
Me.Label6.Left = 3.69567!
Me.Label6.Name = "Label6"
Me.Label6.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" &
"-char-set: 1"
Me.Label6.Text = "Menge"
Me.Label6.Top = 0.008661418!
Me.Label6.Width = 0.5106292!
'
'lblBrutto
'
Me.lblBrutto.Height = 0.1417323!
Me.lblBrutto.HyperLink = Nothing
Me.lblBrutto.Left = 6.957087!
Me.lblBrutto.Name = "lblBrutto"
Me.lblBrutto.Style = "font-size: 8pt; font-weight: normal; text-align: right; ddo-char-set: 1"
Me.lblBrutto.Text = "Betrag"
Me.lblBrutto.Top = 0.003543307!
Me.lblBrutto.Width = 0.9169283!
'
'lblMenge
'
Me.lblMenge.Height = 0.1417323!
Me.lblMenge.HyperLink = Nothing
Me.lblMenge.Left = 3.69567!
Me.lblMenge.Name = "lblMenge"
Me.lblMenge.Style = "font-size: 8pt; font-weight: normal; text-align: right; ddo-char-set: 1"
Me.lblMenge.Text = "Betrag"
Me.lblMenge.Top = 0.003543307!
Me.lblMenge.Width = 0.5106292!
'
'lblPreis
'
Me.lblPreis.Height = 0.1417323!
Me.lblPreis.HyperLink = Nothing
Me.lblPreis.Left = 4.206299!
Me.lblPreis.Name = "lblPreis"
Me.lblPreis.Style = "font-size: 8pt; font-weight: normal; text-align: right; ddo-char-set: 1"
Me.lblPreis.Text = "Betrag"
Me.lblPreis.Top = 0.003543307!
Me.lblPreis.Width = 0.9169284!
'
'lblNetto
'
Me.lblNetto.Height = 0.1417323!
Me.lblNetto.HyperLink = Nothing
Me.lblNetto.Left = 5.123229!
Me.lblNetto.Name = "lblNetto"
Me.lblNetto.Style = "font-size: 8pt; font-weight: normal; text-align: right; ddo-char-set: 1"
Me.lblNetto.Text = "Betrag"
Me.lblNetto.Top = 0.003543307!
Me.lblNetto.Width = 0.9169284!
'
'lblMWST
'
Me.lblMWST.Height = 0.1417323!
Me.lblMWST.HyperLink = Nothing
Me.lblMWST.Left = 6.040158!
Me.lblMWST.Name = "lblMWST"
Me.lblMWST.Style = "font-size: 8pt; font-weight: normal; text-align: right; ddo-char-set: 1"
Me.lblMWST.Text = "Betrag"
Me.lblMWST.Top = 0.003543307!
Me.lblMWST.Width = 0.9169284!
'
'lblSumBrutto
'
Me.lblSumBrutto.Height = 0.1795276!
Me.lblSumBrutto.HyperLink = Nothing
Me.lblSumBrutto.Left = 6.957087!
Me.lblSumBrutto.Name = "lblSumBrutto"
Me.lblSumBrutto.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" &
"-char-set: 1"
Me.lblSumBrutto.Text = "Brutto"
Me.lblSumBrutto.Top = 0.1732284!
Me.lblSumBrutto.Width = 0.9169284!
'
'lblSumMwst
'
Me.lblSumMwst.Height = 0.1795276!
Me.lblSumMwst.HyperLink = Nothing
Me.lblSumMwst.Left = 6.040157!
Me.lblSumMwst.Name = "lblSumMwst"
Me.lblSumMwst.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" &
"-char-set: 1"
Me.lblSumMwst.Text = "MWST"
Me.lblSumMwst.Top = 0.1732284!
Me.lblSumMwst.Width = 0.9169284!
'
'lblSumNetto
'
Me.lblSumNetto.Height = 0.1795276!
Me.lblSumNetto.HyperLink = Nothing
Me.lblSumNetto.Left = 5.123228!
Me.lblSumNetto.Name = "lblSumNetto"
Me.lblSumNetto.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" &
"-char-set: 1"
Me.lblSumNetto.Text = "Netto"
Me.lblSumNetto.Top = 0.1732284!
Me.lblSumNetto.Width = 0.9169284!
'
'lblSumPreis
'
Me.lblSumPreis.Height = 0.1795276!
Me.lblSumPreis.HyperLink = Nothing
Me.lblSumPreis.Left = 4.206299!
Me.lblSumPreis.Name = "lblSumPreis"
Me.lblSumPreis.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" &
"-char-set: 1"
Me.lblSumPreis.Text = "Preis"
Me.lblSumPreis.Top = 0.1732284!
Me.lblSumPreis.Width = 0.9169284!
'
'lblSumMenge
'
Me.lblSumMenge.Height = 0.1795276!
Me.lblSumMenge.HyperLink = Nothing
Me.lblSumMenge.Left = 3.69567!
Me.lblSumMenge.Name = "lblSumMenge"
Me.lblSumMenge.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" &
"-char-set: 1"
Me.lblSumMenge.Text = "Menge"
Me.lblSumMenge.Top = 0.1732284!
Me.lblSumMenge.Width = 0.5106292!
'
'rptPLOSE_TransaktionenSumary
'
Me.MasterReport = False
Me.PageSettings.Margins.Bottom = 0.3937008!
Me.PageSettings.Margins.Left = 0.1968504!
Me.PageSettings.Margins.Right = 0.1968504!
Me.PageSettings.Margins.Top = 0.3937008!
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 7.884252!
Me.Sections.Add(Me.ReportHeader1)
Me.Sections.Add(Me.PageHeader)
Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.PageFooter)
Me.Sections.Add(Me.ReportFooter1)
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" &
"l; font-size: 10pt; color: Black; ddo-char-set: 204", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" &
"lic", "Heading2", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
CType(Me.Label8, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label14, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblAnzahl, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblProdukt, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label28, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblDat, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSachbearbeiter, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblLandFooter, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblBrutto, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblMenge, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblPreis, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblNetto, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblMWST, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSumBrutto, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSumMwst, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSumNetto, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSumPreis, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSumMenge, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents ReportHeader1 As GrapeCity.ActiveReports.SectionReportModel.ReportHeader
Private WithEvents picVERAG As GrapeCity.ActiveReports.SectionReportModel.Picture
Private WithEvents Label3 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Line2 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line1 As GrapeCity.ActiveReports.SectionReportModel.Line
Public WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
Public WithEvents lblUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblSachbearbeiter As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents Label28 As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents ReportInfo2 As GrapeCity.ActiveReports.SectionReportModel.ReportInfo
Public WithEvents lblDat As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblAnzahl As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblProdukt As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Line3 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Label8 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label14 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Line4 As GrapeCity.ActiveReports.SectionReportModel.Line
Public WithEvents ReportFooter1 As GrapeCity.ActiveReports.SectionReportModel.ReportFooter
Public WithEvents lblLandFooter As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Line7 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Label1 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label2 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label4 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label5 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label6 As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblBrutto As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblMenge As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblPreis As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblNetto As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblMWST As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblSumBrutto As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblSumMwst As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblSumNetto As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblSumPreis As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblSumMenge As GrapeCity.ActiveReports.SectionReportModel.Label
End Class

752
SDL/mdm/PLOSE/rptPLOSE_TransaktionenSumary.resx Normal file
View File

@@ -0,0 +1,752 @@
<?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>
<data name="picVERAG.ImageData" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAEAQAAABZTeXN0ZW0uSU8uTWVtb3J5U3RyZWFtCgAAAAdfYnVmZmVyB19v
cmlnaW4JX3Bvc2l0aW9uB19sZW5ndGgJX2NhcGFjaXR5C19leHBhbmRhYmxlCV93cml0YWJsZQpfZXhw
b3NhYmxlB19pc09wZW4dTWFyc2hhbEJ5UmVmT2JqZWN0K19faWRlbnRpdHkHAAAAAAAAAAACAggICAgB
AQEBCQIAAAAAAAAAAAAAAL6QAAC+kAAAAQEBAQoPAgAAAL6QAAACArmQAACJUE5HDQoaCgAAAA1JSERS
AAAIMAAAAZIIBgAAAB9io5MAAAABc1JHQgCuzhzpAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29mdHdh
cmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAJA+SURBVHhe7d0HlG1Fte7xAxwySBCQJKKgIgZA4YgBxQDy
RL2IiBgwBwxgzuEeFRUTIiYQUdRWQVExY0LMIEowICiioEgUBBGQdN832Rx3r95fd6/urqq9wt8xfuON
V5fTVWuuqtp7r5qratH//d//AQAAAAAAAAAAAAAAjJUtBAAAAAAAAAAAAAAAKMkWAgAAAAAAAAAAAAAA
lGQLAQAAAAAAAAAAAAAASrKFAAAAAAAAAAAAAAAAJdlCAAAAAAAAAAAAAACAkmwhAAAAAAAAAAAAAABA
SbYQAAAAAAAAAAAAAACgJFsIAAAAAAAAAAAAAABQki0EAAAAAAAAAAAAAAAoyRYCAAAAAAAAAAAAAACU
ZAsBAAAAAAAAAAAAAABKsoUAAAAAAAAAAAAAAAAl2UIAAAAAAAAAAAAAAICSbCEAAAAAAAAAAAAAAEBJ
thAAAAAAAAAAAAAAAKAkWwgAAAAAAAAAAAAAAFCSLQQAAAAAAAAAAAAAACjJFgIAAAAAAAAAAAAAAJRk
CwEAAAAAAAAAAAAAAEqyhQAAAAAAAAAAAAAAACXZQgAAAAAAAAAAAAAAgJJsIQAAAAAAAAAAAAAAQEm2
EAAAAAAAAAAAAAAAoCRbCAAAAAAAAAAAAAAAUJItBAAAAAAAAAAAAAAAKMkWAgAAAAAAAAAAAAAAlGQL
AQAAAAAAAAAAAAAASrKFAAAAAAAAAAAAAAAAJdlCAAAAAAAAAAAAAACAkmwhAAAAAAAAAAAAAABASbYQ
AAAAAAAAAAAAAACgJFsIAAAAAAAAAAAAAABQki0EAAAAAAAAAAAAAAAoyRYCAAAAAAAAAAAAAACUZAsB
AAAAAAAAAAAAAABKsoUAAAAAAAAAAAAAAAAl2UIAAAAAAAAAAAAAAICSbCEAAAAAAAAAAAAAAEBJthAA
AAAAAAAAAAAAAKAkWwgAAAAAAAAAAAAAAFCSLQQAAAAAAAAAAAAAACjJFpa0aMlSAAAAAAAAAACANlhN
NpMdZDd5irxQXivvkA/Jp+UrcqL8RE6X38lf5AL5562uk/9DMTfIstiH8yTuSThT4j79UuK+fVuOk8/J
UfJBea8slZfKs2Uf2V0eLNvI7WV1cf2md9yaIADUYQtLcpMaAAAAAAAAAABAQSvI5rKTPFFeJe+XL8rJ
Eovd14hbGAcm+4/8XX4rP5LPywckklyeIZH4ci9ZR1xf7AS3JggAddjCktykBgAAAAAAAAAAkMHGsqvs
L5Gg8HU5S64XtxgN5BQ7QcTOD1+WgyV289hZ1hfXf1vDrQkCQB22MAdNVj8VNzmj6lrZSEYme6Chlpcz
xPVnDDCu03mJuBgDaKfYitGNdTRLPExx9w/omqnbyP5a4kFibPn7LYm3pj4uh8ib5RXyNHmU3E/uIrcV
N44AoI4l4uYnpBHzejzDcLEH0E0rSRzzsJ/E9v9xLMDl4uYIoIkulei3kdgQx1XcSVxfbyS3VggAddjC
HDRZPUjcBIxR8WVqZLIHGiq2vHL9GEMHiYsd5o4EBqBbSGBoBxIYgLmJN/fOl5/LsRK/714je0s8QCfJ
AcB0YotpN68gnaeKiz2AbthSniyxVf9JEtv4u7kAaLNIaojnKfGc9B6ynLjxMHZurRAA6rCFuWjCirdW
3ISLqnjgdQcZmfCBhllNLhDXjzEQiz5ri4sf5o4EBqBbSGBoBxIYgPSuktPkaHmTPE7uLiuKG4cAuu/R
4uYLpBU77MQb2e4eAGifeIb+dDlKYny7cQ903cXyadlL1hA3VsbCrRMCQB22MBdNWNuJm2AxKr50jUz4
QMO8UVz/xVC8bedih/khgQHoFhIY2oEEBqCcG+RUOUJiq+PYsWFlcWMTQHcslt+JmxeQ3ovF3QcAzRfz
5c7yXjlb3BgH+uw6+Zo8ReLlQzeOinHrhABQhy3MSZPWMeImVlTdKHeTkUkfaIgN5Wpx/RcDF8qq4uKH
+SGBAegWEhjagQQGYLziIWRsK/822U1uI26sAmivZ4kb/8gjtt5eU9y9ANA8kcz5WPmMXC5uXAMY9S/5
uOwkbmxl59YIAaAOW5iTJq27SCzOuwkVVZ+XkUkfaIjDxPVbDD1PXOwwfyQwAN1CAkM7kMAANEv8no6E
htfLvaWxZ94CqCWS3jmasbw3i7sfAJpheYmdFmJXqivEjWMA9cXxdU+VoscouTVCAKjDFuamiSu+eLhJ
FKPi2I2RiR8Ys62FRKSZnSOxrZ2LH+aPBAagW0hgaAcSGIBmu0giufhhEg/73TgG0FyRjOTGNvKKHSU3
EHdPAIxPjMuYF88XN3YBLMzfJZ6vFtk12K0PAkAdtjA3TVy3l2vFTaCo+qaMTPzAmH1dXH/F0BPExQ4L
QwID0C0kMLQDCQxAe8QDyUOFRHigHdaTK8WNZ+QX86W7LwDKu7/EERHXixuvANKKJKHnStYX8Nz6IADU
YQtL0OR1sLiJE6MeICOTPzAm8WaX66cYOlXYyjcPEhiAbiGBoR1IYADa6VcSDyU55x1orlhAd+MXZcRC
6Z3E3RsAZcRzxhPFjVEA+f1Gsq0/ubVBAKjDFpagySuyzK8SN2miKr7EjUz+wBjElrSxOO/6KYYeIS5+
WDgSGIBuIYGhHUhgANotxvA7ZENxYxzAeGwhvGk8fhPi7g+AvOLZ2UnixiWA8j4ma4sbr/Pm1gYBoA5b
WIomsKXiJkuMYkEUTbCvuP6JoR+Iix3SIIEB6BYSGNqBBAagG66Tw2RjcWMdQFlHixurKOtm2UbcPQKQ
3t3l2+LGI4DxOk+S7sbg1gUBoA5bWIomsDXkMnGTJapOEbakxzitKn8V1z8xtKO4+CENEhiAbiGBoR1I
YAC65Ro5UNYSN+YB5Le9uPGJ8fiGuPsEIJ3bykfkRnHjEEAzxBh9oyRZi3LrggBQhy0sSZPYS8VNlBi1
h4x8CACFvE5cv8TQl8XFDumQwAB0CwkM7UACA9BNl8gTxY17AHmdIG5cYnweJO5eAVi4eKZ9kbixB6CZ
jpHVxI3p2tyaIADUYQtL0iQWb3WfL26SRNWZsryMfBAAmW0gV4nrlxiI7NStxcUP6ZDAAHQLCQztQAID
0G3fks3EjX8A6e0ubixivH4u7n4BmL/YdeEz4sYcgOb7hWwobnzX4tYEAaAOW1jSrRPZs8RNkBi1r1Q+
BIACPiiuP2LoE+Jih7RIYAC6hQSGdiCBAei+K+Sx4uYAAOnESym/ETcOMX7sfAqk80D5m7ixBqA9zpFN
xY3zWbk1QQCowxaWdOtEtljOFjdBoio+MFaUygcBkNFdhfPpZnad8NZaGSQwAN1CAkM7kMAA9Mchwu9N
IJ9niht7aIbY+XQFcfcOQH3x7IZniUB3zDuJwa0JAkAdtrCkSZPZ3uImR4zaTybHDsjpK+L6IYYOFhc7
pEcCA9AtJDC0AwkMQL8cL2uImw8AzF8cocrbyM0XSSbu/gGYXSRBHilubAFot0hiWF/c2J+WWxMEgDps
YUmTJrPl5DRxkyOq4gdv/PCdHD8ghweL64MYukrWExc/pEcCA9AtJDC0AwkMQP/8Uub8gBLAjF4tbryh
Wc4XnrkBc7eafFvcuALQDSdLjHU3B1huTRAA6rCFJU2Z0HYTNzFi1EtlavyAlCKpKB5cuv6HoTeJix/y
IIEB6BYSGNqBBAagn+KcfpIYgDRuK3yetsfLxd1HAN5a8lNx4wlAt8RuzbFu4OaCEW5NEADqsIUlmUnt
RHETI6ouE7b1RE5PEtf3MHSJMA7LIoEB6BYSGNqBBRegvyKhORYl3NwAoL44dtCNMTRTPHNbW9y9BFC1
psRb2W4sAeim14ubD0a4NUEAqMMWlmQmtfuLmxQxije/kcsq8hdx/Q5DB4iLH/IhgQHoFhIY2oEEBqDf
fihxprWbHwDM7o5yvbjxheZ6m7j7CWBoJfm+uDEEoLtukjh62s0LFW5NEADqsIUluUlNviZuYkRVPExe
V1wMgYV4lbg+h6E/S/xQc/FDPiQwAN1CAkM7kMAA4CPi5gcAs/uMuHGFZvu3bCTungIYbCF/jLjxA6D7
LpR1xM0P/+XWBAGgDltYkpvUZBu5WdzEiKqDxMUQmK/1hIWK2T1VXPyQFwkMQLeQwNAOfC8AEJ4rbo4A
ML17ixtPaIcPi7uvAJYsfYO4cQOgP44SNz/8l1sTBIA6bGFJblK7FRnq9VwjZIQjpUPF9TUM/UaWFxc/
5EUCA9AtJDC0AwkMAMK1cjdx8wQA73vixhPa4QbZUty9BfrsUcLLhwDCruLmiVu4NUEAqMMWluQmtVvF
D4T4oeAmRVR9QFwMgbm6s3A25+weLS5+yI8EBqBbSGBoBxIYACxzqqwobq4AUPUIceMI7RJb5Lv7C/RV
PLPn9wGAZc6VaY9ZdmuCAFCHLSzJTWqTHCZuUkRVLDhvJi6GwFx8UVwfw9BPxcUOZZDAAHQLCQztwANK
AJO9WdxcAWAoduw7Q9wYQvvEUSDuPgN9s4L8XNw4AdBfLxc3Z9g1QQCowxaW5Ca1SeJohNim0k2KqJr1
vCFgFg8U17dQtZO4+KEMEhiAbiGBoR1IYAAw2XWyhbj5AsDAU8WNH7TTd8TdZ6Bv3iBujADotytkXRmZ
N9yaIADUYQtLcpPaFO8UNymi6kbZSlwMgdksJyeL61sY+oa4+KEcEhiAbiGBoR1IYAAwFd+LgemtKueL
Gztor4eJu99AX2wnHPcMYDoHycjc4dYEAaAOW1iSm9SmiMwtHprWw7l8mK+9xfUpDN0s24iLH8ohgQHo
FhIY2oHv4gCcON/fzRlA371S3JhBu50i8fKHu+dA18WxOLz4BGAmV8naUpk/3JogANRhC0uaOqFNg+2p
6otsWBdDYDorybni+hOGJsTFD2WRwAB0CwkM7UACAwAnFjJYzAOq1pHYRtmNGbTfXuLuO9B1zxE3JgBg
stdLZf5wa4IAUIctLGnqhDaNNeRicZMiqtjKE3P1cnF9CUPXC+f8NgMJDEC3kMDQDiQwAJjOHuLmDaCv
3iNurKAbzpbF4u490FWRmHWJuDEBAJNdKivLf+cQtyYIAHXYwpImT2azOEDcpIhR9xcXQ2CqOKKFt0Nm
90Fx8UN5JDAA3UICQzuQwABgOr8SN28AfXQHuU7cWEF3PFfc/Qe66n3ixgIAOHFU9X/nELcmCAB12MKS
Jk9ms4ht7s8TNymi6kRxMQSmOlhcH8LQ1bKhuPihPBIYgG4hgaEdSGAAMJOdxM0dQN98WtwYQbf8XVYV
1weArtlIrhU3FgDA+b78dx5xa4IAUIctLGnyZFbD08VNihi1i7gYAsvcSeJoBNd/MHSguPhhPEhgALqF
BIZ2IIEBwEyOFTd3AH2yrdwsboyge14trh8AXXOIuDEAADPZUm6ZR9yaIADUYQtLWjaR1bSCnCluUkTV
ybKcuDgC4fPi+g6GLpO1xcUP40ECA9AtJDC0AwkMAGZyo9xe3PwB9MV3xY0PdFN8N1pHXF8AumIzYfcF
APPxRrllLnFrggBQhy0sadlENgd7ipsUMWoPcTEE7ieuz6DqFeLih/EhgQHoFhIY2oEEBgCzeb24+QPo
g4eLGxfotneJ6w9AV0Qfd30fAGZzutwyl7g1QQCowxaWtGwim4PYVeAX4iZGVP1WlhcXR/RXjKGfiusz
GPqrcK5l85DAAHQLCQztQAIDgNmcLW7+ALounrmcKm5coNvizfRNxPULoO1WlyvE9X0AqGMLsWuCAFCH
LSwpJrF5ILu9vieLiyH663Hi+gqqniUufhgvEhiAbiGBoR1IYABQxxJxcwjQZU8RNx7QD0eI6xdA2+0n
rs8DQF2vFLsmCAB12MKSYhKbpxPETYyoOkcWi4sh+mcl+aO4voKhs4Rx00wkMADdQgJDO5DAAKCOg8XN
IUBXrSx/ETce0A83ylbi+gfQVrFz6+/F9XkAqOu7YtcEAaAOW1hSTGLzdF9xEyNGPU9cDNE/LxbXR1AV
u1S4+GH8SGAAuoUEhnYggQFAHZE87+YQoKteLm4soF++KK5/AG11f3F9HQDm4jpZxa0JAkAdtrAkTWIL
EQ+93eSIKs7yR1hb/iGuj2DoFxLZ5i6GGD8SGIBuIYGhHUhgAFDX1uLmEaBr4vf15eLGAfqHI3TQJYeJ
6+cAMFcPd2uCAFCHLSxJk9hCxMORm8VNjqiKRT8XQ/THe8T1DVQ9TFz80AwkMADdQgJDO5DAAKCu14ib
R4Cueae4MYB+imNuXT8B2iaOxrlCXD8HgLl6u1sTBIA6bGFJmsQW6pPiJkdUXSZriIshum9ziW2bXN/A
0C1nc6HRSGAAuoUEhnYggQFAXd8TN48AXXJ7uVbcGEB/7SquvwBtEkequv4NAPPxPbcmCAB12MKSNIkt
1B3lenETJKreKC6G6L7PiusTqNpeXPzQHCQwAN1CAkM7kMAAoK5rZCVxcwnQFUeJ6//ot9OE4yjRdkeL
698AMB9XyfJuXRAAZmMLS9IElsIHxE2QqIqHz+uIiyG6awdx/QFVXxAXPzQLCQxAt5DA0A4kMACYiweK
m0uALriXcJQppvNEcf0GaIMV5UpxfRsA5mtrty4IALOxhSVpAkthI7la3ASJqoPExRDd9WNxfQFDN8pd
xMUPzUICA9AtJDC0AwkMAObiDeLmEqALviWu3wPhHIlFYNd3gKbbRVy/BoCF2NetCwLAbGxhSZrAUnm7
uAkSVf+WSPhwMUT3PFZcP0DVEeLih+YhgQHoFhIY2oEEBgBz8Q1xcwnQdg8T1+eByV4orv8ATccOxwBy
OMitCwLAbGxhSZrAUllbeLhaz6HiYohuWSxni+sDGLpWNhEXQzQPCQxAt5DA0A58xwYwFxeJm0uANltO
fimuzwOTXShriOtHQJP9WVyfBoCF+KpbFwSA2djCkjSBpfQacZMkqq6XzcTFEN3xInH3H1XvEhc/NBMJ
DEC3kMDQDiQwAJgrEoTRNU8U19cBh6N00Dabi+vLALBQ57p1QQCYjS0sSRNYSqtKZDq7iRJVHxcXQ3TD
WnKpuHuPoViQWVdcDNFMJDAA3UICQzuQwABgrh4jbj4B2mglOVdcXwec+O60nrj+BDTR08X1ZQBYqJtl
Fbc2CAAzsYUlafJK7QXiJkpU3Sh3ERdDtN9B4u47ql4nLn5oLhIYgG4hgaEdSGAAMFdvFDefAG3EbxDM
x8Hi+hPQREeJ68cAkMJWbm0QAGZiC0vS5JVaZMb/SdxEiaqjxcUQ7RbHg1wr7p5jKHZrWV1cDNFcPDwE
uoUEhnYggQHAXE2Im0+AtllbLhPXz4GZXCcc34q2+Iu4fgwAKezm1gYBYCa2sCRNXjnsK26iRFVs37Od
uBiivT4t7n6jKnZrcfFDs5HAAHQLCQztQAIDgLk6Vdx8ArTN28X1caCOT4jrV0CTbCSu/wJAKvu5tUEA
mIktLEmTVw7Ly2/ETZao+pq4GKKd7iORmOLuNYbOkRXFxRDNRgID0C0kMLQDCQwA5upqcfMJ0CabCLsb
Tu8aU4aqm+Tu4voX0BSPEdd/MV4xf8Tusb+Ub8hH5Z3yBnmxPF0eKw+X+8q2ckfZ/FZ3kNhFqM3WkWXX
E2I+jZcxd5bdZA95mjxXXiPvko9JPGf4sZwp/xAXX5T1drc2CAAzsYUlafLK5X/ETZYYtaO4GKJ9fiDu
HqPqSeLih+YjgQHoFhIY2oEEBgDzsbG4OQVoiyPF9W0MPFFiYc393zD0FXH9C2iKt4jru8gvfmf9SI6Q
V8qesr3ErhgriLtfmLs4QngreYQ8W6LPf0EiweFGcfcGaX3KrQ0CwExsYUmavHI6SdyEiaoTxcUP7fJo
cfcXVadJ7NLiYojmI4FhVBey6tFf8SDBjXU0CwkMAOaDRHm02T0k3n51fRtLlv5KlpOHTCrD9O4vrp8B
TRBv97t+i7Rid6rvyIESz3A3FXc/UNZKci95shwmvxd3/7Aw33JrgwAwE1tYkiavnGI7ITdhYlRsN+Vi
iHZYLHzBqueR4mKIdiCBYVQsArtYAUAqJDBUnS9Tk3HQDreV2H42ttiNbWefKbEVbzy4/7u4+435e4K4
OQVog6+L69cYmPwMiVjNLt6wnty/gCa5SFy/xcKdKv8rD5B4duvij+ZZX/aST8vl4u4t5uYUtzYIADOx
hSVp8srt2+ImTVTFbhWRPe9iiObbT9x9RdUPxcUP7UECw6hYkHGxAoBUSGCo+ou4OKH9YmvZ/SW+M7p7
j7l5hbg4A03HyzAz+55MjlfsVsEW3LN7lEyOG9AE64nrr5i/s+R1spm4mKNdVpZIyuX3wcKc79YGAWAm
trAkTV653UfcpIlRe4iLIZptTblY3D1F1f3ExRDtQQLDKBIYAORGAkMVCQz9sIUcIteK6weY3aHiYgs0
WbzYcYq4Po2BeM42NW4fE/ffYujXwnGWaJoHieuvmLvjZRfhBcHuiufKPxN3/zGza93aIADMxBaWpMmr
hGPFTZyo+o3wY6p94uw0dz9R9RVx8UO7kMAwigQGALmRwFBFAkO/bCRHiesLmNkx4mIKNNnjxfVnDBwt
Lm4by7/F/RsM7SsufsC4PEdcX0V9saAdR0S4+KJ7IkHlAPmPuP6A6S1264MAMB1bWJImrhLuJmxnV8+T
xMUQzbSp8FbY7G6Wu4uLIdqFBIZRJDAAyI0EhioSGPopdqv7h7g+AW/qNvNA060k54jrz1iy9HrZUlzs
wlvF/TsM/Vmin7n4AePwPnF9FbOL57EvEl4G7Kf7yqXi+ga8td36IABMxxaWpImrlI+LmzhRFT/WF4uL
IZrnE+LuI6rirTkXP7QPCQyjSGAAkBsJDFUkMPTXXSQWn1y/wKjY4c/FEWiq/cX1ZQx8UFzcluF4y3pe
LC5+wDh8S1w/xcz+KtuJiyn6Yyvhc6++O7j1QQCYji0sSRNXKZsJW/vU81xxMUSzbCOxs4C7hxiKt0Tu
IC6GaB8SGEaRwAAgNxIYqkhg6LfN5e/i+gaqIk4uhkAT3UZ4k3J6V8uG4mI32QvF/XsMRT9bQ1z8gNLO
EtdPMb14+S92xHXxRP/cWzhCqZ67u/VBAJiOLSxJE1dJh4ibPFF1vqwqLoZojtiS1d0/VMW4d/FDO5HA
MIoEBgC5kcBQRQIDYsvYG8T1DwxFIrGLH9BEB4rrxxh4i7i4TRU7ep4t7m9gaKm4+AGlcSzt3MRxYjMd
pYN+eoa4/oKqHdz6IABMxxaWpImrpPUlssbdBIqqWCR0MUQzPFLcfUNVjPcY9y6GaCcSGEaRwAAgNxIY
qkhgQGCxsx7OekcbbCzXiOvDGOwYEMdDuNg5jxX3dzAUzyo2EBc/oJR4Xub6J6a3i7hYAt8Q12cwtLNb
HwSA6djCkjRxlRZZ424CRdUlwpZ2zbSC/FbcfUMVbzV0DwkMo0hgAJAbCQxVJDAgrCx/EtdHMMT3FLTB
EeL6LwYOEBe3mfxE3N/C0KHiYgeUch9xfRPeweLiCIQtJHYfc30HAyQwAJgTW1iSJq7S1pLLxE2iqHq9
uBhivJ4t7n6hKsY5STjdQwLDKBYGAORGAkMVCQxY5uni+giGNhcXO6Ap7iY3iuu/WLL0zzKfnVTuJ+7v
YSgWuu4oLn5ACeyWUt9fZXVxcQSWOVxc/8EACQwA5sQWlqSJaxxeIW4SRVU8rGZhrFliQf5CcfcLVRyD
0k0kMIxingaQGwkMVSQwYJk46/18cf0EA1uLix3QFF8V13cx8BRxcavjWHF/E0OfFhc7oIQXiOuXGBVJ
qy6GwGR3Edd/MPBwtz4IANOxhSVp4hqHVeUCcRMpqt4hLoYYjzeLu0+oOk84b7ebSGAYRQIDgNxIYKgi
gQGTvU1cP8HAtuLiBjTBTuL6LQZOl+XFxa6OOwvbac/sZrmXuPgBucWxq65fouqPEkmrLobAVD8U14+w
ZOkebn0QAKZjC0vSxDUuzxU3kaLqatlQXAxR1sbyb3H3CVVkRncXCQyjSGAAkBsJDFUkMGCyrcT1Eww8
QFzcgHFbTk4S128xsJu42M3FB8T9bQx9Q1zsgNw+JK5PoirWEFz8AGc/cf0IJDAAmCNbWJImrnGJzMlz
xE2mqDpEXAxR1sfE3R9U/U4W8pYImo0EhlEkMADIjQSGKhIYMBW/K6e3s7iYAeO2l7g+i4EfiIvbXK0v
V4qrA0MPEhc/IKdjxPVHDF0hq4mLH+BsIq4vYcnSXd36IABMxxaWpIlrnPYRN5miKrb820xcDFHGPeUm
cfcHVXuIiyG6gQSGUSQwAMiNBIYqEhgwFYnG0yOBAU0UL7T8QVyfxcAScbGbj9eLqwNDPxMXOyCn74vr
jxg6TFzsgJnE70XXn/puZ7c+CADTsYUlaeIap3hL+zRxEyqqjhQXQ5RxvLj7gqqfi4sfuoMEhlEkMADI
jQSGKhIYMNW+4voKSGBAM71QXH/FwLHi4jZfq8rfxNWFof8RFz8gl1+L64sYeqC42AEz+ay4/tR3JDAA
mBNbWJImrnHbXdyEiqob5c7iYoi8dhV3TzDqweJiiO4ggWEUCQwAciOBoYoEBky1rbi+giVLHyouZsC4
rCEXi+uvGDz7uYu42C3EM8TVh6EzZQVx8QNy4C3xmV0kHFGL+ThAXJ/qOxIYAMyJLSxJE1cT/FjcpIqq
o8XFD/nEF2Uyouv5lrgYoltIYBhFAgOA3EhgqCKBAVOtIhz35rEDA5rmLeL6KgZybZfOs416ItHDxQ/I
4TJx/RADHxcXN2A2jxTXp/qOBAYAc2ILS9LE1QQ7iZtUUXWzxNtFLobIg7cU6om+uZ24GKJbSGAYRQID
gNxIYKgigQEObzF6JDCgSTaSq8X1VSxZeo1EjFzsUthNXL0YOl8iKc7FD0jtWnH9EAN7i4sbMJutxfWp
viOBAcCc2MKSNHE1xTfFTayo+qq4+CG91eQCcfcBVXG2mIshuocEhlEkMADIjQSGKhIY4Jwkrr/0HUe8
oUkOF9dPMfA2cXFL6Xvi6sbQy8XFDkhpOXH9D0MbiosdMJt4pu/6VN/d360PAsB0bGFJmriaIt7edhMr
Ru0oLoZI643i4o+qG2RLcTFE95DAMIoEBgC5kcBQRQIDnK+I6y99xw5+aIq7yo3i+ikGW8mX+F0Rz95i
B0XXBgyUuhfot+hjrv9h4GxxcQPqulJc3+qzbdz6IABMxxaWpImrSY4WN7mi6gfi4od0IsuXrS3r+bC4
GKKbSGAYxcMtALmRwFBFAgOco8T1l74jgQFN8SVxfRQDLxMXtxw+La4NGDpQXOyAVDYV1/cw8BlxcQPq
ulhc3+qzzd36IABMxxaWpImrSeItbjLy63mYuBgiDba2rCf3GZ1oHhIYRpHAACA3EhiqSGCA80Fx/aXv
SGBAEzxAXP/EwPmysrjY5XAH4ez9mcULLTzrQE6bi+t7GCiZ1IVuit+Mrm/12fpufRAApmMLS9LE1TQf
FTfBoirOeHXxw8JtLSTS1PN2cTFEd5HAMIoEBgC5kcBQRQIDnEPE9Ze+20JcvICSfiquf2LgaeLiltO7
xbUFQ+w2iZxIYJgZL+5hoX4jrm/12WpufRAApmMLS9LE1TSxhRaZ4PX8j7gYYmG+Li7eqLpcWLjtHxIY
RjEOAORGAkMVCQxwSGDweIMY47anuL6JgVhgWV5c7HKK3zD/ENcmDNwgsVOsix+wUCQwzGwTcXED6nqL
xBFzuJVbGwSAmdjCkjR5NdF7xX15QdUZMo4ful0WGb4u1hj1KnExRLeRwDCKBAYAuZHAUEUCAxwSGLxV
xcULKGGxnC2ub2LgUeJiV8JLxbUJQ58TFztgoe4hrs9hydKrxMUMwDy4NUEAqMMWluQmtQZYT64U9yUG
VfuIiyHmLpJBThMXZ1RdIDwM7ScSGEaRwAAgNxIYqkhggEMCw6jrxcUKKOV54vomBn4kLm6lrCTnimsb
hu4tLn7AQmwrrr9hydLTxcUMwDy4NUEAqMMWluQmtYb4X3FfYlB1jsRbDS6GmJt9xcUYo54jLoboPhIY
RpHAACA3EhiqSGCAc4S4/tJnl4iLFVDCGnKhuL6JgfuJi11J8VKMaxuGviMudsBCkMAwvePExQzAPLg1
QQCowxaW5Ca1hogfu5eJ+yKDqmeLiyHqi90E/iouvqj6g5A0018kMIwigQFAbiQwVJHAAOeT4vpLn8X3
dhcroIQ3ieuXGPiyuLiVtpycIq6NGHqouPgB80UCw/Q+KC5mAObBrQkCQB22sCQ3qTUIC2X1nC8ri4sh
6nmduNhi1OPFxRD9wLw8igQGALmRwFBFAgOcr4rrL30Wi5IuVkBut5OrxfVLLFl6o9xNXOzG4cHi2omh
X0gke7j4AfNBAsP03iAuZgDmwa0JAkAdtrAkN6k1SCzKx+K8+zKDqlhUdDHE7DaQq8TFFVW/En609xsJ
DKNIYACQGwkMVSQwwPmJuP7SZ8eLixWQ24fE9UkMfExc3Mbpa+LaiqG9xMUOmA8SGKb3fHExAzAPbk0Q
AOqwhSW5Sa1hninuywyqLpY4dsPFEDPj4Up9u4iLIfqDBIZRJDAAyI0EhioSGOCcKa6/9NkR4mIF5HQX
iR0GXJ/EkqXXyibiYjdOWwv3bWZnC8dpIhUSGKa3t7iYAZgHtyYIAHXYwpLcpNYw8ePgLHFfaFAVxyC4
GGJ6dxV+pNfzfXExRL+QwAC0AzszdQsJDFUkMMC5XFx/6bM3i4sVkNOx4vojBt4lLm5NEElPrs0Yeo64
2AFzRQLD9B4mLmYA5sGtCQJAHbawJDepNVCcue++0KAqHm7zJvDcfEVcLDFqibgYol9IYADagQSGbiGB
oYoEBkx1G3F9pe9YaENpO4rrixi4Qpr8zGYjuVpc2zFwgawqLn7AXJDAML1txMUMwDy4NUEAqMMWluQm
tQaKM/fj7H33pQZVbxcXQ4x6sLgYYtQXxcUQ/UMCA9AOJDB0CwkMVSQwYKp7iesrfbebuHgBufxYXF/E
wCvFxa1JYucW13YMvVpc7IC5IIFhek08ZgdoLbcmCAB12MKS3KTWUI8Q96UGVZEtfztxMcRQJMX8UlwM
URVHbGwlLo7oHxIYgHYggaFbSGCoIoEBU+0hrq/03d3FxQvI4THi+iEG/ipteHN/DblI3DVggN1PkQIJ
DNNjfAEJuTVBAKjDFpbkJrUGO1HcFxtUHSIufhh6irjYYdSR4mKIfiKBAWgHEhi6hQSGKhIYMNVbxPWV
vltTXLyA1BbL78X1Qww8U1zsmmg/cdeAoXeKix1QFwkM0yOBAUjIrQkCQB22sCQ3qTXY/cR9sUHVf2Qz
cTHEkqWrSDz4drFD1bVye3FxRD+RwAC0AwkM3UICQxUJDJjqG+L6Sp+dLy5WQA7PEdcPMXCmRJKHi10T
RVvPEnctGIhnJWxzj4UggWF6K4qLGYB5cGuCAFCHLSzJTWoN91VxX25Q9TFx8cOSpa8SFzOMeq+4GKK/
SGAA2oEEhm4hgaGKBAZMdaG4vtJnx4uLFZDaasIYnNn/iItdk0Wb3bVg6AhxsQPqIIFhei5eAObJrQkC
QB22sCQ3qTXcPeVmcV9wMHSjbCkuhn22nrAIUE/EKeLl4oj+IoEBaAcSGLqF7y5VJDBgsnuJ6yd9d7C4
eAGpvUFcH8TAT8XFrQ1+LO6aMBDP3e4qLnbAbEhgmJ6LV99wjDZy2tmtEwLAVLawJE1YbTQhbvJF1efE
xa/PPiAuVhgVD6JcDNFvJDAA7UACQ7eQwFBFAgMmY3c1r03n7aO91perxPVBDDxQXOza4L7irglDx4qL
HTAbEhi8K8XFq29IYEBOJDAAqMUWlqQJq41iZ4HrxU3AGIqdKuKNJBfDPrqz3CAuVqi6SNYQF0f0GwkM
QDuQwNAtJDBUkcCAyeLtZtdP+m5HcfECUuIFgZl9TVzc2uTz4q4NQzuIix0wExIYvPjd4+LVNyQwICcS
GADUYgtL0oTVVh8WNwGj6jhx8eujL4qLEUa9SFwMARIYgHYggaFbSGCoIoEBy9xNXB/pu5uEZGTkxosl
M4sXSu4hLnZtsoVwn2d2grjYATMhgcEjgWGABAbkRAIDgFpsYUmasNpqI7lW3CSMKt6+GWzb6GKDUefK
SuLiCJDAALQDCQzdQgJDFQkMWOZgcX2k784QFy8gpS+I638Y+IS4uLXR+8VdI4Z2FRc7YDokMHgkMAyQ
wICcSGAAUIstLEkTVpsdJG4SRtX3xcWvL5aTk8XFBqOeIi6OQCCBAWgHEhi6hQSGKhIYECKh/RpxfaTv
PiouZkAqsWW+63sYiJdtNhMXuzZaT/guMrNTJZ49ufgBDgkMHgkMAyQwICcSGADUYgtL0oTVZusIP6Lq
eYi4GPbBPuJiglHxttby4uIIBBIYgHYggaFb+L5bRQIDwuHi+gdISEZ+LKzM7L3i4tZmrxF3rRiKZ08u
doBDAoNHAsMAn7PIiQQGALXYwpI0YbXd68VNxKg6SVz8ui6OQogjEVxMMOpR4uIILEMCA9AOJDB0CwkM
VSQw4EES58u7/oElSzcVFzcghfjN6PodBuIz+7biYtdmq8pfxV0zBs6RFcXFD5iKBAaPBIYBEhiQEwkM
AGqxhSVpwmq7NeRCcZMxqh4jLoZd9nJxscCoH4uLITAZCQxAO5DA0C0kMFSRwNBvsTjP77/p/V5c3IAU
VpDfiut7GHiduNh1wdPEXTOGXiAudsBUJDB4JDAMkMCAnEhgAFCLLSxJE1YX7C9uMkbV6dKn4wHWlSvE
xQKjHiAujsBkJDAA7UACQ7eQwFBFAkN/RfLCWeL6BQa6uHU9muNZ4vodBv4usVOBi10XxPOkOHbSXTsG
IsFudXHxAyYjgcEjgWGABAbkRAIDgFpsYUmasLogjgmIB5luQkZVn87ke5+4GGDU18TFEJiKBAagHUhg
6BYSGKpIYOin+wrbl8/uIeLiByxULMxfIK7fYeA54mLXJbuKu3YMvUFc7IDJSGDwSGAYIIEBOZHAAKAW
W1iSJqyueLq4CRlVf5TF4mLYJVvI9eJigKo4P/ie4uIITEUCA9AOJDB0CwkMVSQw9Mva8k65UVx/wNAl
Elv8uzgCCxVHI7h+h4GzpQ/PWsJ3xMUAA/G9bT1xsQOWIYHBI4FhgAQG5EQCA4BabGFJmrC6IrayO1Pc
pIyq2PbRxbBLPi/u2jHq0+JiCDgkMADtQAJDt5DAUEUCQz9sIK+Ry8T1A4w6TFwsgYWKxVg+i2b2OHGx
66JtJF6EcHHAAMf5YDYkMHgkMAyQwICcSGAAUIstLEkTVpfsIW5SRtX5EsduuBh2wf3EXTdGxS4VdxQX
R8AhgQFoBxIYuoVFoyoSGLprE3mmfFluEHf/Mb0HiIsrsFCHiOtzGDhZlhMXu676pLhYYOBa2Uxc7IBA
AoNHAsMACQzIiQQGALXYwpI0YXVJ/GCMH45uYkZVVxc2og/8VNw1Y9Sh4uIITIcEBqAdSGDoFhIYqkhg
aJ/YVj2OgritbC73kEdIHAP4ZjlO/iTufqOes8TFHlioOwnHM87sweJi12W3l1ikd/HAwCfExQ4IJDB4
JDAMkMCAnEhgAFCLLSxJE1bXPEzcxIyqi2QNcTFss73EXS9GXS23ExdHYDokMADtQAJDt5DAAGA2zPvI
5XPi+hwGvikubn1wkLiYYOAm2Vpc7AASGDwSGAZIYEBOJDAAqMUWlqQJq4u+L25yRtVrxcWvreJYjHPE
XStGvUVcHIGZkMAAtAMLWd1CAgOAmVwltxE3fwALsb24PoeBm2UbcbHrg9hZ5zJxscFA7DDkYgeQwOCR
wDBAAgNyIoEBQC22sCRNWF20RNzkjKr4Uhg/OF0M2+jF4q4To+IhAw85MR8kMADtQAJDt5DAAGAm8Ra0
mzuAheLlkJl9Wlzc+oTnMLO7v7jYod9IYPBIYBgggQE5kcAAoBZbWJImrK76srgJGlUHiotf20Qixj/E
XSNGvUxcHIHZkMAAtAMJDN1CAgOA6cSxcOuJmzuAhfh/4vocBq6XzcXFrk9iJ8w/iYsRBn4kLnboNxIY
PBIYBkhgQE4kMACoxRaWpAmrq+KcudjOz03SGIoHXuuLi2GbvEfc9WHU+bKKuDgCsyGBAWgHEhi6hQQG
ANPpSkI6mmV5+bW4PoeB94mLXR/tLS5GGNpdXOzQXyQweCQwDJDAgJxIYABQiy0sSRNWlx0lbpJG1SHi
4tcWd5T/iLs2jHqmuDgCdZDAALQDCQzdQgIDAOfvsoa4eQNYiKeL63MYuErY+WRoOTlZXKwwcIZEYpCL
H/qJBAaPBIYBEhiQEwkMAGqxhSVpwuqyO0hs6+cmagxdK5uJi2EbfFbcdWHUmbJYXByBOkhgANqBBIZu
IYEBgPMEcXMGsBCryl/F9TkMvFFc7PpsJ3GxwtC+4mKHfiKBwSOBYYAEBuREAgOAWmxhSZqwuu5QcRM1
qj4qLn5Nt4O464H3WHFxBOoigQFoBxIYuoUEBgBTHSduvgAW6tXi+hwGLhR2PvG+Ii5mGPizrCQudugf
Ehg8EhgGSGBATiQwAKjFFpakCavrNpSrxU3WGLpRthQXwyb7sbjrwajY0jG2dnRxBOoigQFoBxIYuoUE
BgCTxdER64ubL4CFWFf4zJnZC8TFDkuWbiXxbMnFDQMHiIsd+ocEBo8EhgESGJATCQwAarGFJWnC6oO3
iZusURVHMbj4NVXsJuCuA95DxMURmAsSGIB2IIGhW1hMArBMLA7yvR65vFdcv8PAOcKRjDM7TFzsMHCJ
sIMHAgkMHgkMAyQwICcSGADUYgtL0oTVB2vL5eImbAzdLPcUF8OmiYcGfxB3HRj1bXFxBOaKBAagHUhg
6BYSGAAs8yJx8wSwUJvLf8T1OwzsLS52GGIX1NktFRc79AsJDB4JDAMkMCAnEhgA1GILS9KE1Rec41hP
W85SjQd3rv3w7i0ujsBckcAAtAMJDN1CAgOAEG/HuzkCSGFCXL/DwC+FIxnr+V9xMcRAJHhwDBBIYPBI
YBgggQE5kcAAoBZbWJImrL5YVS4UN2mjakdxMWyKteRScW3HqGPExRGYDxIYgHYggaFbSGAAcLiweIpc
IuE9dmR0fQ8DDxMXO4yKIxJ4/jaz94uLHfqDBAaPBIYBEhiQEwkMAGqxhSVpwuqT54ubtFH1PXHxa4qD
xLUbo+KM3DuLiyMwHyQwAO1AAkO3kMAA9NtHhOQF5BTPAFzfw8B3xMUN03uuuFhi4HqJY1tc7NAPJDB4
JDAMkMCAnEhgAFCLLSxJE1afrCTniJu4UbWzuBiO2x3kWnFtxqh4U8vFEZgvEhiAdiCBoVtIYAD6K85K
J3kBOe0qru9haDtxscP0FsuZ4uKJgU+Lix36gQQGjwSGARIYkBMJDABqsYUlacLqmyeLm7hRdZK4+I1b
/MBz7cWoSPTYSFwcgfkigQFoBxIYuoUEBqB/rpGniJsTgFSWl9PF9UEMfFZc7DC7R4uLKQbi2JZ7iYsd
uo8EBo8EhgESGJATCQwAarGFJWnC6pv4gf5rcZM3quLHpovhuNxHOJezvneKiyOwECQwAO1AAkO3kMAA
9MvZwqIWSthXXB/EQGzzv4W42KGeH4qLLQa+Li5u6D4SGDwSGAZIYEBOJDAAqMUWlqQJq48eI27yRtVp
EgkfLobj8ANx7cSo+MK/trg4AgtBAgPQDiQwdAsJDEB/fFBWEzcXACmtIueJ64cY+IC42KG+HcTFFkM7
iYsduo0EBo8EhgESGJATCQwAarGFJWnC6qufiZvAUbWPuPiVxtaDc/MacXEEFooEBqAdSGDoFhIYgO77
nTxA3BwA5PAKcX0RA1fLBuJih7k5WlyMMRDPJ13c0G0kMHgkMAyQwICcSGAAUIstLEkTVl/tLG4CR1Vs
X7pYXAxLifrPEtc+jLpQVhUXS2ChSGAA2oEEhm4hgQHorkvlRTLu31zol3XkCnF9EgNvFhc7zN2dJI7j
cHHGwP+Iix26iwQGL+YKF6++IYEBOZHAAKAWW1iSJqw+O17cJI6qZ4iLXyn7iWsXvIiXiyOQAgkMQDuQ
wNAtJDAA3XOZxK5pa4gb90BO7xbXLzFwiTA203qfuFhjIHbhadIRrsiPBIbpuXj1DQkMyIkEBgC12MKS
NGH12b3FTeKoOl9WEhfD3NaUi8W1C6POEd7eQk4kMADtQAJDt5DAAHTHHyR2XGBxFOOymVwrrn9iYH9x
scP83Vb4PjOzcb88hLJIYJjeKuJi1ickMCAnEhgA1GILS9KE1XdfEDeRo+oAcfHL7UBx7YH3BHFxBFIh
gQFoBxIYuoUH/kC7xWLx5+Rhspy4cQ6U8ilx/RTAeMXLQyzc9gcJDNNbW1zM+oQEBuREAgOAWmxhSZqw
+u6ucqO4yRxDF8rq4mKYy6bCmyH1nSY8EEVuJDAA7UACQ7eQwAC0z7/lOHmysNsCmmIbuVlcnwUwfi8T
N3bRPSQwTO924mLWJyQwICcSGADUYgtL0oSFJUuPFDeZoyrOaHXxy+Uoce2A9whxcQRSIoEBaAcSGLqF
BAagHc6Q90h8L19Z3HgGxunb4vougGa4TNYSN37RLSQwTG9LcTHrExIYkBMJDABqsYUlacLC4AzI68RN
6Bi6Qkpt48WbIXPzA3FxBFIjgWHUHSTmRqBJWDjrFhIYgHa4Ur4sL5S7iBvPwLg8XFy/BdAscZSqG8Po
FhIYpndfcTHrExIYkBMJDABqsYUlacLCwCHiJnRUvVVc/FL7nrj64e0oLo5AaiQwjIrFYhcrAEiFBAag
nf4kB0kkZ7uxDZQSRw2eKq6fAmiWq2UjcWMZ3UECw/R2FxezPiGBATmRwACgFltYkiYsDKwn8SPBTeoY
ihhFrFwMU3mkuLrhxVteLo5ADiQwjCKBAUBuJDAA7XeWvElYlMI4PFlcvwTQTB8SN5bRHSQwTO854mLW
JyQwICcSGADUYgtL0oSFoaXiJnVUxW4VLn4pLJbfiqsXo26SrcXFEsiBBIZRJDAAyI0EBqA7bpBj5MHi
xjuQ2kryZ3H9EUAzXS9bihvT6AYSGKZXavffJiOBATmRwACgFltYkiYsDN1GLhM3sWPoWrm9uBguVGTZ
ujrhfUJcHIFcSGAYRQIDgNxIYAC66STZTdy4B1J5mbj+B6DZPiduTKMbSGCY3lHiYtYnJDAgJxIYANRi
C0vShIWql4ub2FF1uLj4LcQacqG4+jDqOtlMXCyBXEhgGEUCA4DcSGAAuu2n8iBx4x9YiPie+g9x/Q5A
820nbmyj/UhgmN7PxcWsT+IZeXyGY37uKa5vYYAEBgC12MKSNGGhalX5m7jJHUM3Surt7N4sri547xMX
RyAnEhhGxY8jFysASIUEBqAfJuR24uYBYD7eKa6vAWiHb4sb22g/Ehimd4W4mAF1rSyub2GABAYAtdjC
kjRhYRTHGNTzGXHxm4+N5d/i6sGoq2Q9cbEEciKBYRQJDAByI4EB6I94aP88WU7cfADUtanE8Y+unwFo
j4eKG+NoNxIYZraJuLgBdV0krm+BBAYANdnCkjRhYdRi+aO4CR5DN8s9xMVwro4UVwe8N4mLI5AbCQyj
SGAAkBsJDED/fEs2EDcnAHV8XFzfAtAuvxCS2rqHBIaZPUZc3IC6ThLXt0ACA4CabGFJmrDg7SNugkfV
ceLiNxdxLlUkQ7i/j1GXSJyF5mIJ5EYCwygSGADkRgID0E8XyP3EzQvATPiNDXTL48SNdbQXCQwze6u4
uAF1fV5c3wIJDABqsoUlacKCF9nNp4mb5FG1RFwM6zpe3N+Fd4C4OAIlkMAwigQGALmRwAD01/XyFHFz
AzCdb4jrTwDa6SyJ3WLdeEc7kcAwsxPFxQ2o66Pi+hZIYABQky0sSRMWpvf/xE3yqPqOuPjVsau4vwnv
L7KSuFgCJZDAMIoEBgC5kcAA4BXi5gdgqjgv3/UhAO32HHFjHu10F3H3GQPXyariYgfU8S5xfQskMACo
yRaWpAkLM/uRuIkeVTuLi99Mlpdfi/t78J4qLpZAKSQwjCKBAUBuJDAACK8RN0cAy8ROkr8U138AtFsc
K8SCbndsLu4+Y2h3cbED6jhYXL8CCQwAarKFJWnCwsweKG6iR9XPxMVvJs8S97fg/UYi6cPFEiiFBIZR
JDAAyI0EBgDLvFTcPAGEfcT1GwDd8CpxYx/tQwLD7A4XFzugjo+J61cggQFATbawJE1YmB3nR9Yzl8zY
1SSyx93fgfcYcbEESiKBYRQJDAByI4EBwDI3y+PEzRXotzhq8E/i+g2AbrhC+P3ZDSQwzO4SWVFc/IDZ
HCOuX4EEBgA12cKSNGFhdttKPChyEz6GTpPYstLFcKo3ivsb8H4qLo5AaSQwjOIBEoDcSGAAMNm/5V7i
5gv01wHi+guAbnmnuDkA7bKuuPuLqkeJix8wmx+K61MggQFATbawJE1YqOdz4iZ8VD1BXPwm21CuFvfv
4T1IXCyB0khgGEUCA4DcSGAAMNUfZA1xcwb6Zy25TFxfAdAt18rG4uYCtMfK4u4vqr4mLn7AbC4S16dA
AgOAmmxhSZqwUM+WcqO4SR9DZ8licTFc5qPi/i28OMLExREYBxIYRpHAACA3EhgAOPG7ys0Z6J+3iesj
ALqJ+b8bbhB3fzEUOyJvIS5+wHQ2EdefMEACA4BabGFJmrBQ3+HiJn1UPV1c/MLdhUSQ+uKL+jbiYgmM
AwkMo0hgAJAbCQwApvMwcfMG+iMe0scb2a5/AOimeK52F3FzAtrjcnH3F1VHiosfMJ2niOtLGCCBAUAt
trAkTViojwcD9ZwvK4mL4dfF/Rt4nxEXR2BcSGAYRQIDgNxIYAAwnbNlRXFzB/ohFnZc3wDQbceKmxPQ
Hn8Rd29RFQk7dxYXQ8A5WlxfwgAJDABqsYUlacLC3Lxb3MSPqv1lauzi7SD338K7XtgmDU1DAsMoEhgA
5EYCA4CZvFjc3IHuY4dDoN92EDc3oB3OEHdfMYrjdVHXmnKNuH6EARIYANRiC0vShIW5WU94iDy7C2U1
WRa35eU0cf8tvA/K5L4HNAEJDKNIYACQG989AcwkfnutIm7+QLd9TVyfANAP3xc3N6AdfiDuvsJ7rLg4
ApO9VFz/wRAJDABqsYUlacLC3L1J3OSPqtfIspg97dYy1HO1bCST+x3QBCQwjCKBAUBuJDAAmM1+4uYP
dNeDxPUFAP2yi7g5As3HNvdzc6nwrBQzWV0isdf1HwyRwACgFltYkiYszN0acom4DwAMXS6xsLeq/PXW
MtRzoLi+B4wbCQyjSGAAkBsJDABmc56sIG4OQfcsJ78Q1xcA9MupEnOCmyvQbO8Xd08xvR/JSuLiCbxd
XL9BFQkMAGqxhSVpwsL8sIhXz1vkdVPKMLN/CAuiaCrmvlGMVwC5kcAAoI5HiptD0D2PF9cHAPTTE8TN
FWi214q7n5jZx4WkHUy1o9wors+gigQGALXYwpI0YWF+ItvzfHEfAhiKoxCumlKGmb1CXJ8DmoAEhlEk
MADIjQQGAHUcI24OQbesKOeI6wMA+inmhMXi5gw017PE3U/M7iNCEgOW2UTY/bk+EhgA1GILS9KEhfl7
hrgPAWC+4stWHLnh+hvQBCQwjCKBAUBuJDAAqOM64XtJ971I3P0H0G8vEDdnoLkeIe5eop6jZWVxsUV/
rC+/EddH4JHAAKAWW1iSJizMX2Q3/17cBwEwH88W19eApiCBYRQLBQByI4EBQF37iptH0A1ryiXi7j2A
frtQVhc3d6CZ7izuXqK+X8kW4uKL7ot7z9rM3JHAAKAWW1iSJiwszOPEfRAAc3WWsOUfmo4EhlEkMADI
jQQGAHV9Stw8gm54q7j7DgDh9eLmDjRTHE98k7h7ifr+LXEcL89U+2VPuVxcn8DMSGAAUIstLEkTFhYm
ztv6pbgPA2AuIhnG9TGgSUhgGEUCA4DcSGAAUFe8gcuZ0N20kcQijbvvABDiO+Ntxc0haKbzxN1LzN2Z
EovafA/qtk0kjg9xfQD1kMAAoBZbWJImLCzcruI+DIC6ThG+YKMNSGAYRQIDgNxIYAAwF/cQN5eg3Y4Q
d78BYLL3iptD0Ew/EHcfMX+/lWfJKuJijnbaWN4t14q776iPBAYAtdjCkjRhIY0TxX0gAHU8TFy/ApqG
BIZRJDAAyI0EhqrzJeZeNNuGsrncUx4ou8uT5dXyAfminC7XibvPmL+ni5tL0F53kxvF3W8AmCwW9zYT
N5egeT4q7j5i4eI31EfkAbK8uPij2eJYkHhxNHZcuF7cfcbckcAAoBZbWJImLKSxo7gPBGA23xPXp4Am
IoFhVCzSuFgBQCokMFT9RVyc0E4ryF1kb/mg/EZuFnfvUc8h4mKN9jpO3L0GAOfj4uYSNM/+4u4h0vq7
HCaPlbXE3Qs0wzryJPmsXCHufmJhSGAAUIstLEkTFtLhoQLmY3tx/QloIhIYRpHAACA3EhiqSGDovtgi
Nr5z/EJcH8DMYjtqF1e0U+xg4u4zAEwndmzZWtycgmZ5sLh7iHxukl/KofJEiURadmgYj5Ukdmt7rnxM
zhQSmfMjgQFALbawJE1YSCfOGuVDFnPxBXF9CWgqEhhGkcAAIDcSGKpIYOiX+8u3xPUFeJeIiyXaZzn5
mbj7DAAziZes3LyCZonnCe7+oayr5efyCYnjzmKnhh0kjkSLz2J371DP6rKV7CLPkIMk5qezheOxxoME
BgC12MKSNGEhrU+L+2AApoovaXcV14+ApiKBAeguzkxvLhIYqkhg6KdHyAXi+gRGrSwujmiXx4m7vwBQ
x/3EzS1olvPE3T80w/USvz9+KkdL7NzwVnmFPEceL7vKfWVb2UI2v1XsKhZJKss0eaeHFWVyW8O6suxa
4rri+iK5eGfZQ+IIuGfJK+UdcrjEy3rfl98KR0A003ZunRAAprKFJWnCQlrxYR5fbNyHAzDZEeL6ENBk
JDAA3UUCQ3ORwFBFAkN/3U5iy1/XL1B1J3ExRHsslj+Iu78AUMcPxc0vaJYvibt/AJDDtm6dEACmsoUl
acJCeh8S9+EALHOtbCKu/wBNRgID0F0kMDQXCQxVJDD021ryG3F9A0MPFBc/tMcLxN1bAJiL3cXNMWiO
l4u7dwCQw9ZunRAAprKFJWnCQnobyTXiPiCA8G5xfQdoOhIYgO4igaG5SGCoIoEBsbvAVeL6Bwbi6AEX
O7TDGnKRuHsLAHNxhjR523oMjh5w9w4ActjQrRMCwFS2sCRNWMjjIHEfEEAsQsQZYq7fAE1HAgPQXSQw
NBcJDFUkMCDsL65/YIA5vd2WiruvADAfTxE316AZVhRehANQykpunRAAprKFJWnCQh5rCw+b4bxeXJ8B
2oAEBqC7WOxqLr5TVpHAgLBYzhbXR7Bk6XPExQ3Nt6FcLe6+AsB8nCsriZtz0Aw/EHfvACClf7k1QgBw
bGFJmrSQz2vFfVCgvy6U1cX1F6ANSGAAuosEhuYigaGKBAYs8wxxfQSD72wuZmi+j4i7pwCwEAeIm3PQ
DK8Wd98AIKVz3BohADi2sCRNWsgnFqpjwdp9WKCfXiCurwBtQQID0F0kMDQXCQxVJDBgmdWE8eG9RlzM
0Gx3lRvF3VMAWIhLZA1xcw/G757i7hsApPR9t0YIAI4tLEmTFvJ6kbgPC/TPOcKWfWg7EhiA7iKBoblY
oK0igQGTHSmun/TdUnHxQrN9Sdz9BIAU/lfc3INmOF/cfQOAVD7m1ggBwLGFJWnSQl6xYP1ncR8Y6Jcn
iesjQJuQwAB0FwkMzUUCQxUJDJhsL3H9pO9IYGif+4u7lwCQyr9kPXFzEMaPI4QA5PYGt0YIAI4tLEmT
FvJ7qrgPDPTHabK8uP4BtAkJDEB3kcDQXCQwVJHAgMnWlpvF9ZU+I4GhfX4i7l4CQErvFzcHYfweLu6e
AUAqj3NrhADg2MKSNGkhv1i4/p24Dw30wyPF9Q2gbUhgALqLBIbmIoGhigQGTBVHtbm+0mckMLTLHuLu
IwCkdr1sLm4uwnjF8+MLxN03AEhhS7dGCACOLSxJkxbK4IFEf/1QXJ8A2ogEBqC7SGBoLhIYqkhgwFRf
FNdX+owEhvZYLGeJu48AkMOnxM1HGL93i7tnALBQcYzQcm6NEAAcW1iSJi2UsZycJO7DA90WZ5m6PgG0
EQkMQHeRwNBcJDBUkcCAqQ4U11f6jASG9nieuHsIALnE0Uv3FDcnYby2FXfPAGChfuzWBwFgOrawJE1c
KOeh4j480F1fEdcXgLYigQHoLhIYmosEhioSGDDV88X1lT4jgaEd1pALxd1DAMjp6+LmJYzfL8TdMwBY
iAPd+iAATMcWlqSJC2V9V9wHCLonMtrvLq4fAG1FAgPQXSQwNBcJDFUkMGAqjusbRQJDO7xR3P0DgBJ2
Ejc3YbyeIu5+AcBCPNytDwLAdGxhSZq4UNYO4j5A0D2fFNcHgDYjgQHoLhIYmosEhioSGDDVg8T1lT4j
gaH5NpA4i9jdP4z6u2wkawPTWE/OFdd/4P1U3PyE8VpJ2J0HQEr/kdXc+iAATMcWlqSJC+V9SdwHCbrj
ermDuPsPtBkJDEB3kcDQXCQwVJHAgKk4L3oUCQzN90Fx9w4e31NQx57i+g+m9xhxscR4vUnc/QKA+fiW
WxsEgJnYwpI0eaG8reVGcR8m6IZDxN17oO1IYAC6i4WB5iKBoYoEBky1jbi+0mckMDTbneUGcfcOo06R
5cXFEpjqRHH9CN7vhPHVPLGrCL8BAKTyHLc2CAAzsYUlafLCeBwl7sME7Xe1rC/uvgNtRwID0F0kMDQX
Dy+rSGDAVJuL6yt9RgJDsx0r7r7Bu7+4OAJO7Mpzs7i+BI/fAc0Un+XufgHAXMRn4gZubRAAZmILS9Lk
hfHYTOKYAfehgnbjYSG6jAQGoLt4cNlcJDBUkcCAqUhgGMVvkua6r7h7Bu9z4uIIzOQIcf0J3vmysrhY
YnxuI5eJu2cAUNc33bogAMzGFpakCQzj835xHypor/hhsaa4+w10AQkMQHeRwNBcJDBUkcCAqUhgGEUC
Q3P9SNw9w6hr5Pbi4gjM5HZylbh+Be9l4mKJ8XqluPsFAHU9zq0LAsBsbGFJmsAwPvGDKo4bcB8saKdY
3HX3GugKEhiA7iKBoblIYKgigQFTkcAwigSGZnq0uPsFj36MhXi1uH4FL17IWUtcLDE+K8lZ4u4ZAMzm
IlnRrQsCwGxsYUmawDBebxX34YL2iS334oeFu89AV5DAAHQXCQzNRQJDFQkMmIoEhlEs/DbPYvmduPuF
UX+V1cTFEqgjjkQ4V1z/ghfPKF0sMV67iLtfADCbN7g1QQCowxaWpEkM47W2/EPcBwzahYUf9AEJDEB3
8TnWXCQwVJHAgKlIYBhFAkPzPFvcvYL3RHFxBOZiT3H9C17sEruhuFhivL4g7p4BwHTiKKW13ZogANRh
C0vSJIbxe5W4Dxm0R7xJs7y4+wt0CQkMQHeRwNBcJDBUkcCAqUhgGEUCQ7PETgJ/F3evMOpnspy4WAJz
daK4fgbvQ+LiiPHaSHgBDsBcHCR2TRAA6rCFJcUkhrFbVS4U90GDdthD3L0FuoYEBqC7SGBoLhIYqkhg
wFQkMIwigaFZ3iDuPmHUzbJEXByB+dhWol+5/oZR18uW4mKJ8XqcuHsGAFNFwtM6YtcEAaAOW1hSTGJo
hP3Efdig+X4u7p4CXUQCA9BdJDA0FwkMVSQwYCoSGEaRwNAc68mV4u4TRh0lLo7AQhwhrr/B+6y4OGL8
PinungHAZC+SW+YNtyYIAHXYwpKWTWQYu8VyjrgPHDTbzuLuKdBFJDAA3UUCQ3ORwFBFAgOmIoFhFAkM
zXGouHuEUXH+/sbi4ggsxO0kzgJ3/Q6jYseK7cTFEuN1G+H5MYCZ/FZiremWecOtCQJAHbawpGUTGRrh
SeI+dNBc3xJ3L4GuIoEB6C4SGJqLBIYqEhgwFQkMo0hgaIYtJLZjd/cIo14rLo5ACq8W1+/gfVtcHDF+
95BI+HL3DUC/3Sjby3/nDLcmCAB12MKSJk9mGLvl5QxxHz5oHjLS0UckMADdRQJDc5HAUEUCA6YigWEU
CQzNcIy4+4NRf5ZVxMURSGFlOVdc/4P3EHGxxPjtJe6eAei3t0llvnBrggBQhy0saeqEhrF7tLgPHzTP
58TdQ6DLSGAAuosEhuYigaGKBAZMRQLDKBIYxm8HcfcGXizGuTgCKe0prv/BO1mWExdLjN9bxd03AP0U
c/ZKUpkr3JogANRhC0uaOqGhEX4q7kMIzXGDbCnu/gFdRgID0F0kMDQXCQxVJDBgKhIYRpHAMH4/EHdv
MOpEcTEEcoj+5vohvMeJiyPGL5JLPi7uvgHol4tlUxmZK9yaIADUYQtLcpMaxu7B4j6I0BwfEXfvgK4j
gQHoLhIYmosEhioSGDAVCQyjSGAYr93F3ReMiqMZtxUXRyCH6G/R71x/xKizZLG4WGL8VpDjxN07AP1w
vUx75I9bEwSAOmxhSW5SQyMcL+4DCeN3jWwk7r4BXUcCA9BdJDA0FwkMVSQwYCoSGEaRwDA+y8tvxN0X
jDpcXByBnI4Q1x/hPVtcHNEMq8oJ4u4dgG6LhLx9xM0Nt3BrggBQhy0syU1qaITtxH0oYfzeLu6eAX1A
AgPQXSQwNBcJDFUkMGAqEhhGkcAwPs8Ud08w6krZQFwcgZxuJ1eJ65cY9TeJRXIXSzTDakISA9A/B4ib
E/7LrQkCQB22sCQ3qaExjhH3wYTxuULWFne/gD4ggQHoLhIYmosEhioSGDAVCQyjSGAYj1jgi4U+d08w
6pXi4giU8Gpx/RLeq8TFEc0RSQzs6Av0x6zJC8GtCQJAHbawJDepoTHuIjeK+4DCePCDDX1HAgPQXSQw
NBcJDFUkMGAqEhhGkcAwHq8Vdz8w6g+ykrg4AiWsLOeK658YxQs97RDz6ufE3UMA3XCTxI5fbg4Y4dYE
AaAOW1iSm9TQKB8T90GF8i4QtsxD35HAAHQXCQzNRQJDFQkMmIoEhlEkMJS3njBf1/cYcXEEStpTXP+E
9w5xcUSzLCdvEXcPAbRbHH/0KHFj33JrggBQhy0syU1qaJTN5FpxH1go67ni7hHQJyQwAN1FAkNzsSBW
RQIDpiKBYRQJDOUdLO5eYNR3xMUQGIcTxfVTjIrnkxuJiyOa50lynbh7CaB9zpGtxY33abk1QQCowxaW
5CY1NA4PQsYvtrdcLO7+AH1CAgPQXSQwNBcJDFUkMGAqEhhGkcBQ1h3lenH3AlVxTObdxcURGIdt5WZx
/RWjPioujmim+8n54u4lgPY4WuZ1jI9bEwSAOmxhSW5SQ+PEVpT/EvfhhTL2FndvgL4hgQHoLhIYmosE
hioSGDAVCQyjSGAo6zPi7gNGfUhcDIFxOkJcf8WoSEK6i7g4opnWlS+Lu58Ami2OjNhX3Niuxa0JAkAd
trAkN6mhkeIBlPsQQ36/kjg/zt0XoG9IYAC6iwSG5iKBoYoEBkxFAsMoEhjKuY+4e4BRl0sspLk4AuN0
O4lFItdvMeoL4uKI5ornmi+Uf4u7pwCaJ+baTcWN6drcmiAA1GELS3KTGhppTblM3IcZ8tpF3D0B+ogE
BqC7SGBoLhIYqkhgwFQkMIwigaGc74u7Bxh1gLgYAk3wanH9Ft724uKIZosjj74j7p4CaIY/ym7ixvCc
uTVBAKjDFpbkJjU01svEfaghnxPE3Qugr0hgALqLBIbmIoGhigQGTEUCwygSGMr4f+Lij1G/l8Xi4gg0
wcpyrrj+i1GRvOXiiOaL3Rjit9/F4u4tgPH4qzxHkn5fcmuCAFCHLSzJTWporFXlfHEfcMhjibh7AfQV
CQxAd5HA0FwkMFSRwICpSGAYRQJDfsvLGeLij1GPEBdHoEn2FNd/4bFjabvdRt4h14q7vwDK+LPsL7H2
48bqgrg1QQCowxaW5CY1NNqzxX3QIb0virsHQJ+RwAB0FwkMzUUCQxUJDJiKBIZRJDDk91Rxsceob4iL
IdBEPxTXjzHqVxJv87s4oj3ie9RRcqO4+wwgj5Pk8ZJ1hyq3JggAddjCktykhkaLD7Q/iPvQQzrxpf1u
4u4B0GckMADdRQJDc5HAUEUCA6YigWEUCQx5sTtifdfLXcXFEWiie8vN4vozRu0tLo5ony3lcIl5291r
AAt3uXxAthE3DpNza4IAUIctLMlNami8+HHgPgCRzpHiYg/0HQkMQHeRwNBcJDBUkcCAqUhgGEUCQ16v
FBd3jDpYXAyBJvu4uP6MUedI1reHUdzt5e1yibh7DmBu4piW2On5CbKKuHGXjVsTBIA6bGFJblJD48X2
bKeJ+0DEwsWXis3ExR7oOxIYgO4igaG5SGCoIoEBU5HAMIoEhnzWFeblei6VtcXFEWiyDeVf4vo1Rj1f
XBzRbitLHJf0E3H3HcD0rpBjZB9ZQ9wYK8KtCQJAHbawJDepoRV2E/fhiIV7r7iYAyCBAegyEhiai4Wy
KhIYMBUJDKNIYMgnfi+6mGPU88TFEGiD14rr1xh1oawmLo7ohjvJG+RscX0A6Lub5JfyDnmgrCBuLBXn
1gQBoA5bWJKb1NAaPxT3gYn5iwWC9cTFGwAJDECXkcDQXCQwVJHAgKlIYBhFAkMed5DrxMUcVb+Wxjy8
B+Yhtvn+s7j+jVGvFxdHdM+9JO73yXKzuP4AdN0N8gt5jzxK1hI3XsbOrQkCQB22sCQ3qaE1HiDuAxTz
90ZxsQYwQAID0F0kMDQXCQxVJDBgKhIYRpHAkMenxcUbox4iLoZAmzxeXP/GqPi+eltxcUR3xXErT5GP
yTni+gbQdrG7wu9lQvaXHSWOWHFjonHcmiAA1GELS3KTGlrla+I+WDF3F8lYz6QCWoAEBqC7SGBoLhIY
qkhgwFQkMIwigSG9bYU3Tev5krgYAm30I3H9HKPiTWQXQ/THpvIEOUi+K5eL6ytAE8X3vPPkO/I+eYbc
R1YV199bwa0JAkAdtrAkN6mhVSLbb20ksbq4GAMYYs4BumslceMe4xfbUbp71le3ERcn9Nfy4vpKn8XW
5y5WmD++B9fHdwp0CWO/vjXFxRD9Fomm/0/ihZgPywnyVyEpEOMQR4GdJcfLR+W18jiJo1FanagwHbcm
CAB12MKS3KQGAAAAAAAAAACQwYoSyQ07yZMlFpI/JJ+XEyW27L9U3CI0MNUV8kc5Sb4uh0vsSPY8eZRs
L3HkieuLnebWBAGgDltYkpvUAAAAAAAAAAAAxmix3E7uKveVXWVvea68Ut4sh8hhcpR8Wb4pkQTxKzld
fidxDF2II4TjiL5wo7jFcORxkyyL/cWy7J7E/Yn79BOJHTqOk89J3M+4t2+XV8t+8iTZXR4od5dISohk
GNd3IG5NEADqsIUAAAAAAAAAAAAAAAAl2UIAAAAAAAAAAAAAAICSbCEAAAAAAAAAAAAAAEBJthAAAAAA
AAAAAAAAAKAkWwgAAAAAAAAAAAAAAFCSLQQAAAAAAAAAAAAAACjJFgIAAAAAAAAAAAAAAJRkCwEAAAAA
AAAAAAAAAEqyhQAAAAAAAAAAAAAAACXZQgAAAAAAAAAAAAAAgJJsIQAAAAAAAAAAAAAAQEm2EAAAAAAA
AAAAAAAAoCRbCAAAAAAAAAAAAAAAUJItBAAAAAAAAAAAAAAAKMkWAgAAAAAAAAAAAAAAlGQLAQAAAAAA
AAAAAAAASrKFAAAAAAAAAAAAAAAAJdlCAAAAAAAAAAAAAACAkmwhAAAAAAAAAAAAAABASbYQAAAAAAAA
AAAAAACgJFsIAAAAAAAAAAAAAABQki0EAAAAAAAAAAAAAAAoyRYCAAAAAAAAAAAAAACUZAsBAAAAAAAA
AAAAAABKsoUAAAAAAAAAAAAAAAAl2UIAAAAAAAAAAAAAAICSbCEAAAAAAAAAAAAAAEBJthAAAAAAAAAA
AAAAAKAkWwgAAAAAAAAAAAAAAFCSLQQAAAAAAAAAAAAAACjJFgIAAAAAAAAAAAAAAJRkCwEAAAAAAAAA
AAAAAEqyhQAAAAAAAAAAAAAAACXZQgAAAAAAAAAAAAAAgJJsIQAAAAAAAAAAAAAAQEm2EAAAAAAAVC1a
srS0jeTB8ix5vRwqn5XvyIlyspw+xc/lBPmSfFzeLS+Vx8sSWVtcXQAAAGie28h95AnyKjlY4vvgN+Qn
MvW74E8lvid+U+K/i++Cr5QnyQOE74Kozf0m6pOJiQkgt7Vle9lbXinvlvjfV+VEOd2I8h/IsXK4vE1e
JLvLXWUlcXXNiRsTJdlCAAAAAABQ5R7qJbSh7CXvkXgY/S/5v0wukEiCeJs8Sm4rrk1dd5RMfejfBKdK
LDyEuE9fkI9JLFj8r7xA/kdiMeN24q6tSz4nLk599jVZRVy8Svm6uLaVFIt035Xj5JMSSV6R7LWfxBjZ
VtYR134M5BxfHxRXZw6xqOvagIGfSSRFutjl0JV+NQ6LZUeJhINIRj1X3He5hfqbHC8HysNlNXHt6YtS
3zV2Fld/CZEU7do0H7fMKe73Ute4Rd2Ge624Be9cloprB7y15BEScfum/FX+L4Ob5HfyKdlftpHlxLVp
Wm5MlGQLAQAAAABA1SL/MHAh7iWxIH2KuIfLpdwssZvDUtlOXFu7ZkW5Rlw82uY6OU1iAfcV8jDpykJE
XMf14q6772LBycWshPXFtampLpcfyWHyPNlGVhB3bX1SYnxFX3F1p3aSuPox9GJxsUutS/2qlLVkXzlW
rhJ3zbnFPYvEyf2lZLJLE5T8rvErWV5cO3J7q7g2zddL3O+lrnGLug12X7lR3IJ2Lr8V1xYM3VMiYeGn
Uvr+THaxfFoeL6uIa2uFGxMl2UIAAAAAAFC1yD8MnKs15bkSDzDdw8AmOFNeKxuIu4YuiLcb3bV3xX8k
3qyMxdrYetrFoA3iTUV3fX13o6whLmYl7CGuXW0Su9x8VZ4vm4q7zq7LPb7+KK7e1GLx8QZxbcDQ9uLi
l1pX+lVusYi9m8QuC/GZ7a51XG6S78tTJBI+Xfu7pPR3jaeJa0duPxDXnvm6r/u91DVuUbehYkH6LHEL
17mtK65NfXZHiaSFP4mL2bhdKR+XJeLafws3JkqyhQAAAAAAoGqRfxhYV5w3HDsc/FPcQ8Amijf7j5St
xF1Tm8VOBe6au+jf8hHZQlwsmuwN4q6p734pLl6lxFE3rl1tFbvQxMLO02VlcdfcRbnH1yfE1ZvaQ8TV
j6GrJY4mcPFLrSv9KpdV5YXyJ3HX1zRx1EQcZxHfY931dEHp7xoR0+gHri25pN55LP7WYvd7qWvcom5D
vVvcQnUJjxbXpr6JIxoeKceLi1NT/UQeIyNHTLgxUZItBAAAAAAAVYv8A8HZxDblL5E2JS5MFW97f0w2
EXeNbfQVcdfaZXEf4+zwdcXFpIliFwl3LX33XnHxKqXL2/VfIm+SNu9cUlfu8fVMcfWmFvfL1Y+huNcu
djl0pV+ltpIcIBeJu66mu0IikaGLSV7j+K4RSROuLbmk3nnsBPdbqYumLug21I5yk7jF6RLeJa5dfbG8
7CNxnIaLT1ucLA+U/16bGxMl2UIAAAAAAFC1yD8QnEmcs36KuAd/bRRbrr9IxnV2byrLyWXirrEPLpU9
xcWmSSL5Z1xngTddHOHgYlZCX7brjzni5VLqrfXSSoyvu4irO7XviKsfQ6UWS7vUr1LaXdqy48Js4giP
XcRdZxuN67tGfKfeUFybcki989hb3G+lLpq8mNtQ4zw6YpmTxLWtD3aRM8TFpa3if7cVOyZKsoUAAAAA
AKBqkX8gOJ3YHvh6cQ/92u5HsrG4626Du4m7rr75kMQboS5GTbCduHZjvLtoPFRcm7rqN3J/cbFos9zj
62Jx9aYWi49xPIJrA4Z2Ehe/1LrSr1KJBeovi7uWtvuwlD4GIYd7i7u+Ej4qrk05pO6Hu7rfSl0Ui7gN
N86jI5a5XlYT176u2kyOExePLrhIdndjoiRbCAAAAAAAqhb5B4JTxdvJnxH3sK9LYhEhzh13MWi654q7
pj76oawlLk7jFlttuzb33W/FxauUPm7Xf5McKF3ajSH3+PqiuHpT215c/Ri6TlYRF7/UutKvUoidcv4h
7jq6IhK82rgjxmTj/K4RR3vdQ1y7Uovdt1wb5iM+E9dwv5W6aMIvXjfFuI+OmOwh4trYNcvJC+RqcXHo
mjfLcm5slGALAQAAAABA1SL/QHCyWAg+UdzDvi6KHSYeLy4WTfYpcdfTV7+WJiYxfF5ce/su3np18Sql
z9v1x/y+nri4tE3u8fVScfWm9hJx9WModk1yscuhK/1qIVaUQ8S1v4uukLYmtIZxf9f4lrh2pbSVuLrn
61fud1JXTfhF7CZowtERk71RXDu7ZAM5Xtz1d9kXZFU3PnKzhQAAAAAAoGqRfyi4TCwAnyruQV+XxVtY
TxcXk6Y6V9y19NlJUuoN3bouFNfWvttHXLxKYLv+JUv/LLEY5OLTJrnH1w7i6k3tWHH1Yyh2D3Gxy6Er
/Wq+1pbviWt7l0VC6+PExaTpmvBdY1dxbUvl2eLqna9D3O+krprwC9lN0ISjIyb7jrh2dsUD5QJx194H
J8hqbozkZAsBAAAAAEDVIv9QMKwkJ4h7yNcHkcTwGHGxaZqNxV0Dliz9uLiYjcMW4tqIQR92MSvhPuLa
1DexFfc24mLUBrnHVyS5lDpuI44zcm3A0CPExS61LvWr+dhUfi+u7X3Qpu+CyzTlu0bshLW8uDam8Alx
9c7XXu53UldN+MXscWvS0RHLxJEKi8W1t+2eIdeLu+4++Yas4MZJLrYQAAAAAABULfIPBcOR4h7w9ck1
sq24+DTJE8S1HwNNWXx4mrj29d054uJVyovFtauPYtv0e4qLU9PlHl/xBrqrN7U4e9/Vj6E4Y38NcfFL
rSv9aj62lNidxbW7T2Inhp3ExaiJmvRdI3ZJcG1M4Y/i6pyvDd3vpK6a8Ava49S0oyMm215cm9vsreKu
ta8OduMkF1sIAAAAAACqFvmHgnuKe7jXR/GANI7ScHFqig+IazsG/iKxo4iLXUlHiGtf38VblC5epXxB
XLv66gK5o7hYNVnu8fW/4upN7Vni6sfQL8TFLofc/WqpuHrH7Q7yN3Ft7qN/yObiYtU0TfquEUdZ5Eg2
2lBcffP1R/cbqcsm/KL2ODXt6IjJXiquzW20nHxY3HX23ZPdWMnBFgIAAAAAgKpFow8F46zj2ErcPeDL
Ld5yu1xiwTkSB+L/jf//teL++1LGvcA6m9PEtRtD+4mLXUlniWtb3z1dXLxKuUhcu1KIrddPn8XvJOa6
ODYg5kD3d0r7rZR6wz2V3OPrYeLqTY1Ep9m9R1zscuhKv5qLWByOnXFce0u6UiKJYtn3wXF9N13mZFlR
XMyapGnfNd4srp0LsZe4uubrE+43UpdN+MXtcdlJbha3qNwEXxTX7raJ5IWPiLvGcbhM/iJ/lL/Jv8T9
d6X8UzZx4yU1WwgAAAAAAKoWjT4UfIu4h3up3SwnSdQXZ1nHG78riGtTuJ3cT54pR8l54v5uLg8R165x
u43EGc2uzSnE33aLrtOJBdtYaAiXyX/E/d3SzhAXv1LWF9eulCLm7p403Z3ExayE2CLdxTKFSEZYVVy9
M1lPtpMny7sk5snYMt/VkdOXxLWviXKPr4j/6uLqTm0HiaQ0N1ZSiB023DWm8k9x9aa0i7jYpdalflVX
JC6dKq69OUWy6mfkGRJjYLoEqthNKT4z9pCDpHRbm7pjxjIlvmvM1b9lE3Htna/3iatrvp7lfiN12YRf
4B6H1SQWsN2CclNcIq7tbfMBcddXwjlyqDxRtpY4MsS1cQXZQh4rsSvHmeL+Xi5fceMlNVsIAAAAAACq
FlUfCMZi+NXiHu6lEg/sD5O7ytT65+oBEskMJd5ajreklxfXjnHaTVx7U4mFNFfvXMRCRNzvXWV/iXuW
+uziOu4hrn0lPFZcm1K6j7i6Mb1YLHOxTOHn4uqcj3XlOfJLcXXl8lxx7Wma3OOr5JEFuX1Q3DWm8g5x
9bZRLJK7a0ylaf1qOfmKuLbm8hP5H5kpgXU2W8vhcoO4OlKKpMxIfHPtaIIS3zXmI/VOZqeIq2e+7up+
I3XZhF88HodDxC0kN81W4trfFq8Wd105XStxXMV9xLWprh3kGHF15LCzGzMp2UIAAAAAAFC1qPpAMOdi
XohtbbeXqfUuVLyN921xdaa0r7j6x+lAcW1N5VBx9aZwN/mAlFh0CC8R144S3iuuTalE4tFCFoD66khx
8Uwhdk9wdS7UwyWOeHB1phb9qg3nvuceXweLq7eNYgcDd42pPFJcvW3Ut34VW/27duYQuzWlPj7j7lJi
R4Yvi6u/CXL32fmKXde2EdfmuYqk2JS7El3ifh913YRfKC6t6UdHTPZscdfQBrGbgbumnD4mG4lrz3xF
f4mdHFx9Kf3cjZmUbCEAAAAAAKhaVH0omDMJIN64j61tp9aZSrw5GFv7urpT+bq4usfpRHFtTWVvcfWm
FDsHxDnXrv6UPieu/hLi7GzXplRi7Lp6MbOzxcUzhceIqzOFxRIJEq7e1Jq8WLdM7vG1p7h622YtyXnk
UCxSri2u7jbqU7+KZIK4f66dqX1EVhHXjoVaTb4qrt6U4pgfV/+45e6zC/E9cW2eq0jic39/vr7kfh91
3YRfIC4px9ERfzBlqXxS3HU0XRzX8C9x15TD3+RB4tqSwrpysri6U8q6C4MtBAAAAAAAVYuGDwTjeISr
xD3cS+HRMrm+XFInMcQD/T/LNySOrHB1jkucBX2NuHanspG4ulOLLZkvFteGVH4lru7cYkEl5duCzhvF
1Y3pbSAulqncVly9KT1Fci5IL/NgcfU3QYnxFX3F1d02uY8c+rW4etuoT/0q5qq/i2tjSvF9Ko6Rcm1I
aVWJ4zlcG1KZEFf3OJXoswv1KHFtn4vU3/Nf6n4fdd2EXxwuKfXRESfKPlPKUjpX3HU02crya3HXk8NP
ZD1xbUlpLTlDXBtS+awbN6nYQgAAAAAAULVo+EDwzrc+yMtlZZlcXy6xE8O3xLVhJnGMQRxx8SWJYxme
LPGGXTwQdvU0wY7iriWVP4mrN5fdxbUjlfPE1ZvbQ8W1J6WdxdWN6cXbzy6WKfxOXJ05vEhcG1I6QVzd
TZB7fMUuHa7eNnqbuGtM5cPi6m2jPvWrz4hrY2rPF1d/DpEUeZ24dqTwHymRpDYXJb5rLNSZEjsIufbX
9V1xf3u+dnC/j7puwi8Ml5L66IjrJXYauNOkshw2Fnc9TXWwuOvI4auyqrh25HBnuUZcW1L4j6zrxk4K
thAAAAAAAFQtGj4QzP3gs+SbhneU68W141qJM8A/K2+SWMSMc5NXFPe3muyV4q4xlaPE1ZvTz8W1JYV/
iqszt+hnrj2pRF9vcqJNU8X58y6eKRwmrs5cviCuHSktEVf3uOUeXx8TV28b/VDcNabyRHH1tlFf+tUu
4tqXWiTPuPpzyjnHh/3E1TsuuftsKgtJZInkh6vF/d35iL+12P0+6roJvyhcQo6jI94uy/7+ZbeW5RA7
PEy+libbQW4Sdx2pfV9WEteOnF4nrj2pPMWNnRRsIQAAAAAAqFo0fCj4OHEP91J5jkyuL7dYQDxJYhE+
FvrjCIs7SRyV4f77NvqKuFin8mxx9eb0VnFtSeFycXXm9h1x7Ukl+rmrFzPLucV4HO3g6sxlE0m5qON8
VFzd45Z7fD1dXL1tE0cORQKfu8ZUbi+u7jbqQ7+KxM3Yecq1L6WfyAri2pBTJLPGsRWuTSl8W1y945K7
z6ZyidxG3DXMZntxf3O+vud+G/XBhF8QLiH10RF/lkiKWPb3jxf336XwQZl8LU21vJwm7hpS+73EkQ6u
HbnFff+HuHalMOHGTgq2EAAAAAAAVC0aPhTMncBwlbDNfTpxVMY/xMU6la3E1Z3TAeLaksIfxdWZUyza
5F5Yfpe4ujG91SXnWeGbi6s3p9xvG18pcba8q3tcSoyv2Ire1d029xN3famM64ieHPrSr+JNeNe2lOK7
XyQSuPpLOFlcu1KIIypWEVdvaan7bByr5spTebu465jNi8X9vfla6n4b9cGEXxDOLfXREeGRMrmOA8X9
dymcIZPraqpniGt/anGEw1bi2lDKu8W1LYUfubGTgi0EAAAAAABVi4YPBXe99WFebp+QbWVy3Zi7rcXF
N5VLxdWbW84dGH4grs6cUr8t6DxGXN2Y3sPFxTKFv4mrM7ctxLUnpd3F1T0uucfXReLqbaNXibvGVD4j
rt426kO/imSkC8W1L6WXiau/lJzfKcIDxdVbWuo++0bJuXtF7Aazmbhrmckx4v7efD3c/Tbqgwm/GJxT
jqMjjpWp9TxG3H+bQiRfrC1T62ySOMrhfHHtT+0F4tpQ0n3EtW2u/iVnSuzgcYS8Ue7sxk4KthAAAAAA
AFQtGj4UjLcB3cO9XM6QOBP5/hLbGE9uC2b3PHFxTeXL4urNLbaadu1J4VBxdeb0EnFtSem24urG9JaK
i2UKR4urs4TTxLUplXGMoZnkHl9fEFdvG31N3DWmsp+4etuoD/2qxO4Lf5A4usTVX8qe4tqWSsTR1Vta
6j4buwh9fEpZahPirmUmfxH3t+YjdmFaw/026oMJvxic06HiFo7nKxacN5Wp9Wwk7r9PZeqOD02zn7h2
p3ayxFEVrg0lLSeXimvjMjdIHDXyI/mMvEOeL7vLvWQdN0ZysoUAAAAAAKBq0fCh4PLyT3EP+XK7RuLt
+ANlD5nPW1l982lxsUxlHG9N5t7ifB9x9eZ0rLi2pPI7cfViZt8TF88UXiiuzhIOEtemVCLxzNU7LrnH
V2xX7uptmzhy6HJx15jKPcTV3UZd71fRHyK5wLUtpb3E1V/SPcW1LZVDxNVbWso+G9/Jo49sKP+6tSyX
2DnCXY+zkbi/MV+nuN9FfTHhF4NzeYi4heWFeKm4usIF4v5NCgeJq7MJYjE/9S4X07mfuDaMw5FyinxJ
3i8vl71lR9lYRhIt3JgoyRYCAAAAAICqRdWHg18U95BvHGKxJRYZ3yNPlrtLnPE7tc199WdxcUtlibh6
c1lTYjHetSWFm2Q9cXXnFFuFu/akcpi4ejG9xZLzfPttxNVbwuPEtSmVeGN1ZXF1j0Pu8XUfcfW2TXx+
uutLJT6vIwnS1d1GXe9Xu4hrV0pnShP6RHzuu/al8i1x9ZaWss+eIsv+7mtvLcvlhzL5OmbyWHF/Y77e
534X9cXUBd2M1pB4+90tgs/X6bJYXH3hOHH/LoWfiKuzCXYT1+bUviqu/tZwY6IkWwgAAAAAAKoWVR8O
xtty7iFfU8SZuSfLh2VfuYtMvYY+2ERcfFL5t8Qir6s7h7XkBHFtSeW74urO6c7i2pLS3+X0homt6lcR
F5Mm2EFcLFOIXWzGuWh3N3HtSune4uouLff4iiSXriTNxfEO7hpT+bq4etuoD/0qjrlxbUspEk9d3aXF
EWWufanEZ56rt6TUffZwWfa347M8d8JsJCZMvp7pvFPcv5+vPd3vor5wi7qZfEjcIvh83SzxZr2ra5nX
i/u3KfxHVhFX77h9XlybU9tJXP2t4cZESbYQAAAAAABULao+HIxF6/PFPehrqsvkm/Ia2VH6sEtDHIXg
YpHK98XVm0Ps9HC2uHakNI6trJ8hri19EG/4upg0wUvFtTmFmItcnaWsLq5dKdVdbMot9/j6jrh62yjO
mnfXmEp8/rp626jr/WoNybkDTbhEVhJX/zi4NqZyjrg6S0rdZyPhafLff4K4/y6VOM4kEk0m1+nEbg3u
38/XBu53UV+4Rd0Mchwdcbi4uibbVdy/TeVB4uodp7XkWnHtTelUcfW3ihsTJdlCAAAAAABQtWj0AWHs
bOAe9LXFlRJvg8YZ03cSd41t90Fx157KUnH1phJnKz9QjpGbxbUhpVhgKLmjxDJHimtP18U9XVtcTJog
51E5sd22q7Ok2KnGtS2V/cXVW1ru8fVGcfW20V/EXWMqDxBXbxt1vV/tKa5dKb1LXN3jkDup60Jx9ZaU
us/GLkWT/358Z/uJuP82lQNkcp1TxXe42B3M/dv5ONv9JuoTt6ibWI6jIy6RdcTVN9m64v59Kq8TV+84
7SOurantL67+VnFjoiRbCAAAAAAAqhaNPiSMB5U/EPfAr41+K2+T7cRdbxvFlsXuWlN5uLh65yP600YS
C1zxVt9R8ldx9eYSbye6tuVWYmeJJoqzz108muJice1OYSdxdZZ0ubi2pZI7wamu3OPrIeLqbZtNxV1f
KtfJyuLqbqOu96uPiWtXSvcUV/c4rC+ujanEsUGu3pJS9tkbxI3n7SVnwuk/ZKbExzi6yP27+TrS/Sbq
E7eom1jqoyPCvuLqcv4o7m+kcLy4Osfp0+LamtJNsoG4+lvFjYmSbCEAAAAAAKha5B8UbiwXiXvo12aR
zBBvD68p7rrbYC25Sdz1pRIL0JEkMV9/knjjN473yN3W2Zwqy4uLZU63E9eePjhCXEya4K7i2pzCfyTO
C3f1lhQLQa59qTTh7erc4ysW8VYTV3fb5D5y6Mfi6m2jDcRdYypN6FfnimtbKnEcgKt3XO4hrp2pjDuB
IfVc+Ctx9YRIQHX/JpX3iKs3PF/cv5mvZ7jfRH3iFnUTynF0xA9kOXH1OUeL+zspXCkriKt3XC4U19aU
fiyu7tZxY6IkWwgAAAAAAKoW+QeFIbaQ/Ze4B39tFw+c4y3iSAZw195ku4m7Joy6UeKtQRfH3B4nrk19
8ExxMWmCZ4lrcwo/FVdnabnn7UPE1VtS7vF1krh62+hD4q4xlbeLq7eNut6vYjck166UmnR8RMj9nek8
cfWWkrrPxnzh6gmR3Hy1uH+XQiQB3lFc3Z8S92/m687uN1GfuEXdRHIcHXG93E1cfdN5ubi/lcp24uod
hy3EtTG1V4mrv657yekt8Cu5uxs3qdhCAAAAAABQtcg/KFzmgXKluId/XXCJxIJmHHPgrr+J4jgMdy0Y
9QZxMSzhfeLa1Ad3ExeTJviEuDancJC4OktaUVzbUprpLdlSco+vJlxjKmeIu8ZU/p+4etuo6/3qUeLa
lVIkDLi6xyV23XLtTOU34uotJXWffZK4epZ5k7h/l8rnxdUbO3u4/34+Yoc5+5uoTyb8AnMKOY6OeJu4
umbyIHF/K5UDxNU7Dk8U18bUthZXf10RM/d3m+h9btykYgsBAAAAAEBVPMSbxb0kjgNwDwG74tuyobjr
b5ofirsGVH1RxnF0xDKniGtX18XxBU1OCPqjuHansLu4OkuKt1dd21KK3Wtc3SXlHl97iKu3bWKXoZzn
1sffbuNORtPper96rbh2pRK7Hq0hru5xOUxcW1M5QVy9paTus3cSV88yq8r54v5tKveTyXWuI+6/m69j
xf4m6pMJv8C8UDmOjviTrCquvpmsLjeJ+5spfF5cvePwdnFtTOkv4uqei5zHeqS2lxs3qdhCAAAAAABQ
FQ/xalhXviTuQWBX/F3i2Ax3/U2xklwrrv0YigWFcZ4zHgs4sZDj2tZ13xQXkyaIJCXX5hRiITcWWVy9
JT1EXPtSOkBc3aWUGF/ri6u7bWJ3BHd9qcTuDq7eNupDv/q4uHalcrq4esfpZHFtTSWONnD1lpC6z14s
rp6pniju36cSxzFNToTcRdx/N18vFvubqE8m/ALzQuQ4OiL8P3H11fE7cX8zhYvE1TkOXxLXxpTif67u
uThf3N9uovXduEnFFgIAAAAAgKp4iDcHe0nuN6/GKc72fai4a2+CeCvNtRtDx8s4kxfCw8W1rQ/GeWzH
bGL+cm1OYdzbiC/zMnHtS+kJ4uouJff4OktcvW30dnHXmMpM5+W3TR/6VST3ubalMiGu3nGJ7wK5k1Le
LK7uElL32ePE1TNVJBf8TNzfSGVvWVbf628tS+U+Yn8T9cmEX2BeiI+KWwheiC+Iq6uuT4j7u6lsKa7e
0k4V176U9hNXd12bivu7TfQ7N2ZSsoUAAAAAAKAqHuLNUWwf+xKJHQvcg8G2u0ruLe7ax+1V4tqMgTgL
egVxsSsptth37euDJicAHSKuzSl8RFydpX1GXPtSuq+4ukvJPb4+Kq7eNvqRuGtMZR9x9bZRH/rV78W1
LZU4osLVOy4lkgnHmdCVus++Wlw9zhJxfyOVcyV2HYu6vnxrWQqRqHzL90T3m6hPJvwi83ztKm4heCGu
kk3E1VfXC8X97VSeIa7e0i4V176U7iGu7rqeIO7vNtFhbsykZAsBAAAAAEBVPMSbp3iwGIsX35WbxD0o
bKvz5LbirnucviquvX0XyTSPFhezcfieuHZ2XcwDTTv/fLJfimt3Ck8SV2dJ8VZsicSy24irv5Tc4+up
4uptm/iMvk7cNaayqbi626gP/SqOCHBtSyWOFnD1jkskNbp2pnQ3cXWXkLrPPkhcPdOJHTfc30nl5RL1
XDCpbKG+I7e03/0m6pMJv8g8H7eRHEcDvERcfXOxg7i/ncrHxdVb2s3i2pfKDbKiuLrrer+4v91E+7gx
k5ItBAAAAAAAVcse5C3QBvJ8OVFuEPfQsG3Gea6xE4uT/xDX1r76j7xX1hIXs3FYLPGGn2tv150mLiZN
kPt8+83E1VvStuLaltKfxdVdSonxdSdxdbfN/cVdXyp/EVdvG/WlX/1TXNtS2VlcveMSb/G7dqZyhSwv
ru7cUvfZ+O4eO6y5uqYTCUzXiPt7KUR/veeUsoV6k9zSfvebqE8m/CLzfBwhbhF4IU6TxeLqm4uVJRbf
XR0p/FFcvSWtLa5tKZ0lru65+IW4v91EG7oxk5ItBAAAAAAAVcse5CUUb+fuIYfLOeIeILbFDuKucRzu
Lq6NfXStvF+asGg8Ve5tlZvsw+Ji0gS7imtzCueLq7O0t4trX0rjPuM+9/iKHSxcvW0U28G7a0xl3H0h
pfisd9eYSlP6lWtbSncVV+84xFFgro0pfV1c3SWkngt/Ia6e2eQ+euW3pmwh/nvMlftN1CcTfpF5rnIc
HRG7CdxXXH3zcYq4elLZUFy9pawvrl0pHSeu7rpWkxvF/e2mOduNl9RsIQAAAAAAqFr2IC+jjWRvOVRi
C/c27dBwnLhrGof9xLWxT/4q8bB8PXExaoKXiWt7Sqc31P+Ii0kTvEVcLFP4jLg6S4q3gCORwrUvpeeJ
q7+U3OPrGHH1ttHXxF1jKvGZ5Opto770q9i1yLUvlc3F1TsO8Z3TtTGlA8TVXULqPhvxcvXMZjX5m7i/
2TSxC1O095a2u99EfTLhF5rnItfRER8RV998HSaunlT2EldvKZuLa1dKscuGq7uuB4v7u030MTdeUrOF
AAAAAACgatmDvIJWlu3lOXKYnCK5H6rPVzzs3FDcdZSW+6zhpootkmPx59GygrjYNMmXxF1HKr8XVy9m
doK4eKbQhIXcR4lrW2q3F1d/KbnH1/7i6m2bSGi5XNw1phK7Arm626gv/Sr3MVTriKu3tPieeZm4NqY0
zmNBUvfZJ4qrp44ni/ubTXOy/Lfd7jdRn0z4hea5yHF0RIhjGU5P6O/i6knl/eLiU8p64tqV0nvE1V3X
a8X93SZ6ihsvqdlCAAAAAABQNflh3hitKLHd77KkhlPlJnEPIEt7trg2lxbnjbv2dc118jN5t8SibCxE
uHg01SXiriuVj4qrF9OLs8JzntN9D3H1lvRjcW1LKXbQcXWXlHt8bSeu3raJPumuL5VIjlhOXN1t1Jd+
lft7xNri6i3tmeLal9KvxNVdSuo+u5DdM2IuiCMo3N9tkvfIf9vtfhP1yYRfaK4rx9ERbXWquBiVsqq4
dqW0VFzddX1d3N9tok3deEnNFgIAAAAAgKrJD/MaZg3ZRf5Xvi/j2qXhU+LaV9Km4tqWShzr4Y4ESOkk
OVG+IrGjwpHyLnmVPF0eJneQeHPYxaAN4vxvF9+UniqubkzvvuJimUIs5I67z8aZ3q5tqb1UXP2l5B5f
V0kbdnmpI/eRQ3E8hau3jXL3qyulKf0qkkNdG1PZTFy9pf1aXPtSGud8mLrPxhEQrp65uL+4v90ke8h/
2+x+E/XJhF9oriPX0RFtdZNETFysSok2uLalspAdGJaTf4j7u01zrhsrOdhCAAAAAABQNflhXsOtLnGM
QLyBHgtN7uFkDvEg3LWnpH3EtS2VeHvb1Yu5eZa4+KZ0R3F1Y3ovFxfLFL4urs5S4s3X2BnBtS2lSCBb
T1wbSsk9vo4XV28bfUbcNabyanH1tlGf+tXnxbUxldhJy9Vb0m7i2pZS7BS1rrj6S0jdZ48WV89cfU7c
32+K9eW/7XW/ifpkwi8215Hr6Ig2201crErJfUzGZ8XVW8edxf3NJjrKjZUcbCEAAAAAAKia/DCvRVaT
l8nV4h5SpnSFuDaU9CFxbUvlHeLqxdx8Qlx8U7lAXL2Y2ZfFxTOF14irs5QSSTOhCTvR5B5frxdXbxud
J+4aU4m3rV29bdSnfvVmcW1M5bHi6i2l1FEGHxdXfymp++wLxdUzV7EDx7Xi6hi3s6TSXvebqE8m/GLz
bDg6wjtQXLxKOVFcu1L5tbh664gdGI6S0xP5p7g2pvB0N1ZysIUAAAAAAKBq6gO9STaQOEf7ERLb1sdC
3fsltv+PN/b/IBuJ+7elbC/xJpx7WJmSq7ukM8S1K5X/J65ezM0fxcU3lVRvSfbNpeLimcIDxNVZwoby
T3HtSu3u4tpQUu7x9WBx9bbN7cVdXyrxmbuSuLrbqE/96gni2pjKW8TVW0okULh2pXSz3E1c/aWk7rPb
iKtnPqIPuDrG7QiptNX9JuqTCb/YPJO1haMjvB+Ki1kph4trVyo3y7ri6i5pDblMXBtT2NyNlRxsIQAA
AAAAfbZoydIVZRNZInEcw/NkqRwmX5WTJc7CvV7cA8CpYheEygPBMThUXNtScvWWspbEA3PXrhTib0cd
rm7UF4vJLr4pvUhc3ZjeVuJimUIs5K4srt7c4k3jb4hrV2pfFNeGknKPr/jMW1Vc3W3zRHHXmMqPxNXb
Rn3rV5uKa2cqPxRXbwkxF+dORglxTIKrv5TUfTaS4JYXV9d8xHFvfxdX1zg9TSptdb+T+mTCLxDPJN6i
d4u+mJi4TlYSF7cS9hfXrpSeJ67ukt4qrm0p/NWNk1xsIQAAAAAAfbNo8GAyFqAuEfdQbyHOl3G/ibmP
uLalcpW4ekuJ3RFcu1KJ3R1cvZibx4uLb0op35Lsi+eIi2UK41zIfZu4NqV2g9xZXBtKyj2+fi6u3jb6
sLhrTOXt4uptoz72q9g9y7U1hZskFthdvbnFUViuTSnFfLiluPpLSd1nvymunoV4uri6xmkLqbTT/Wbq
kwm/QDyd3cUt+mLoAeJiV8J24tqU0pkSx0G4+kvYSiJRxLUthQk3TnKxhQAAAAAA9M2iwcNW9zAvlXGf
AZ97gf/P4uotJRaLXLtS+ZC4ejE3cbyKi28qV0rKtyT74pPi4pnCOBZyY+eF3OfYT3awuHaUlnt8vUtc
vW30a3HXmMpu4uptoz72q2iTa2sq4zhGIo46y7lT1TLvFld/San77GvF1bMQ8V3ll+LqG4cLZaSd7jdT
n0z4RWInjo64QNyiL4ZeIy5+JSwvl4hrV0rPFFd/bivLKeLalMqz3TjJxRYCAAAAANBHi/Juq/sfua+M
PBws5A3i2pXKt8TVW0q85e3alUrsYOHqxdz8Slx8Uxl3P2yrP4mLZwqRPOXqzGVt+YK4tuRwnqwhri2l
5R5fjxFXb9tEH8m5kBtv2HfpyKE+9qt7iWtrKv+SjcXVnUNcTyT4ubakFDuOrSmuDSWl7rMPFFfPQsXf
dfWNw+dlpI3u91KfTPiFYoejI+r5urj4lXKEuHaldLlsJq7+XGLXh0+Ja09KW7pxkostBAAAAACgjxYt
WXqIuId6qVwq28rIA8LMYnHtb+LalEq87ezqLiGO54hz9l27UtlEXN2oL/phLOy5+KaS4y3JrttIXCxT
iEXiUgu58TbrvhJvkbq25BJvNbv2lFZifN1WXN1t80hx15fK6eLqbaM+96uTxbU3le/KCuLqTuneEt8/
XRtS21VcG0pK3Wfj++Uq4upK4Rhx9Za2v4y0z/1e6pMJv1g8FUdH1HeFxE4ILo4l7CSuXamdKmuJa0Nq
Ec+PiGtHShe5MZKTLQQAAAAAoI8WDc7Odw/1Uoq37p4gIw8JM1lZviGuLSk9SFz9JdxfXJtSGffxGF0R
CxsuvintJK5uTG9vcbFM4Qxxdaa0ujxTfieuDTm9T1ybxiH3+DpTXL1t9A5x15jKB8XV20a5+1WMW1dv
EzxeXJtT+oysKK7+FJ4k/xZXd2pN6fep++xPxNWTyuaSOwm3ju1kpH3u91KfTPgF48k4OmLu7iUuliXE
TgW/Edeu1H4m64lrRyqRJPFVcfWndrQbIznZQgAAAAAA+mrRkqU/FPdgL7WvytYy8rAwobtL7q2fw18k
zpx3bSjh1eLalcqnxdWLuYkzv118U4ljWnK+JdlVh4qLZwofElfnQt1Oni6x5fVV4urO7SSJBDHXvnHI
Pb4OE1dvG/1Y3DWm0qUjh/rcr2JXl9hNw7U7pTgC607i2jBfm0nJo3Tiu2ZT5sPUffYgcfWklDupajbx
OWp3A3G/lfpkwi8aT8bREXP3QnGxLOVp4tqVw/nyCHHtWKg95a/i6s1hPzdGcrKFAAAAAAD01aIlSx8l
7uFeDrG9euyOEG9Ax1vEIw8O5ym2Cz5KbhRXb2pLxbWjlK+Ja1cqzxVXL+bmBHHxTSX3W5Jddaq4eKaw
kIXcOBomFuF2lD3ljXKsnCOurpL+LnH0hmv3uOQeX08RV2/bxCIrRw7V1/d+9TBx7U7tWokdXRaayBDH
lH1UrhdXTw6XyB3EtWccUvfZOHLG1ZPSmnKRuPpLOF5cu+xvpT6Z8AvHy+Q6OuJfcvoYXS6uXakcLS6e
pawgvxPXtlxOlEfJiuLaVNfKsrecJK6enLZyYyQnWwgAAAAAQJ8tGpxL7B7w5RRvj58o8RbWU+WBsrGM
PEycIv6b+G/jbeSPyB/F/f1crpT1xLWthNj54XJxbUvlbuLqRn2xRfY14uKbSvSDeFu2bey504XcRnKe
b3+2uGt24qiW2M3lCvmnuL/XBDHnxXFDLp7jUmJ8xTbnru62eYC460ulS0cOLRb61ZKlE+LansvJcqBE
Qm0kNEx3xEQked1LIlEsdtKJ+dP9vZwiGahJRzelngsj0XhtcXWlFkchuTaU8AZxbbK/k/pkwi8ih5xH
R8QOAa7OUt4srl2pRNxcvSU9TFzbcrtUIoHjBfIg2UDiWAvXxrCu7CwvkmPkCnF/N7do93JujORkCwEA
AAAA6LNFS5beQ24Q95BvHGIx70KJhZFIUDj/1rImnJn7Uhl54FlQ3CvXrlQuk3Eej9EV8Ra9iy+WLP2b
uJiVsJu4NsGLhbEmLdYtk3t8jbOPpvYacdeYSpeOHKJfDawj0VZ3DaXELgeRoBA70ERbIpHK/XclRfLb
48TFbFxS99lfi6snhziyJOeOSDPZWVyb7O+kPpnwi8oh19ER8ab+TAvaJeTaWWKyO4qru6QjxbWttBvk
7/IX+b2cI5fIdeL++3E41o2P3GwhAAAAAAB9t2jJ0teLe8iHoZ+LPTO3oP3EtS2Vr4irF3PzCnHxxZKl
R4uLWQnxlq9rE0bFgmETkxdC7vE1zj6a2tfFXWMqzxNXbxvRr4ZiYbzksQxNF8kLTxYXq3FK3Wc/LK6e
XB4krh05Rb9eTVx77G+kPpnwC9+5Fvivl63F1VnShuLal9JTxdVd0hpylrj2oepFbnzkZgsBAAAAAOi7
RYM3ob4h7mEfliy9VOJ8+pGHnYV9Rlz7UomH4a5ezM1x4uKLJUtfJC5mJcSxNa5NqIodcLYXF8MmyD2+
Xiiu3raJz/XcRw5tLa7uNqJfVe0r7jr6JpIXniUuRuOWus/G8Ryunpy+JK4tuZwkrh23cL+R+mRidNH7
tnKhuEXehXqbuDrH4XxxbUzlCHH1lraVXCmujRi6pxsfudlCAAAAAABwSxLDmnKauAd+fRbbqN9fRh50
jsF54tqYSrx16epFfXEERyS8uPhiydJ7iotbbnF+eu7z7bsgPgOakKw1nRLjaxtxdbdN7iOH/iFdOXKI
fuW9TNy19EW8rb+XuNiMW44+u6m4unK6k/xHXHtyeJe4dtzC/T7qk4nRBe/PiFvgXahzZVVxdY7Dl8S1
M5XY+cDVOw47yTXi2omJictleTc+crOFAAAAAABgYNGSpetLnIHrHvr1USx4PlRGHnKOwe3FtTGVuNYV
xdWN+rYSF18M3gaPt8Jd3HLLfb59Fxwmq4iLX1PkHl9xdMa4+mhqzxd3jal8VVy9bZS7X/1T2tqvXiLu
mrruEokjDlxMmiB1n/2LuHpKeKe4NuXwGHFtuIX7bdQnE9WF7j3ELfCm8EiZWt84vUZcO1NaX1zd4/BQ
IYnBO86NjRJsIQAAAAAAGFq0ZOlacoK4B399Em+23U9GHnCOyRPFtTOVH4irF3PzHHHxxZKlXxEXsxJe
Ka5NWLL0ItlTXNyaJvf4+qa4etvos+KuMZVXiau3jehXM4ujBa4Vd21d9CvZXFwsmiJ1n50QV08Jt5GL
xbUrtduKa8Mt3O+iPpkYLnDH0REXiVvgXahjZXJdTbCLuLam9FhxdY/LfSTX8SBt9hI3NkqwhQAAAAAA
oGrRkqWL5b1ys7gHgF33C2naw+sPi2trKm8VVy/m5pPi4oslS18hLmYlRPKEa1Ofxfz+cZlxQadhco+v
14qrt43OF3eNqTQpwW+h6Fez20HiLX13fV3yPokjh1wMmiR1n32euHpKKZH8eaa4uv/L/Sbqk4nh4nau
oyP+JZvK5LqaYC1x7U3pYHF1j9PG8hNx7W2ruJ63Timbi3u7sVGCLQQAAAAAAFWTHuY9RM4T9yCwi26S
A6WJRynkPtpjV3H1Ym7+JC6+WLJ0ibiY5RZnhV8mrk199TMZ1/1YiNzjaydx9bbNZuKuL5V4G78Ni7x1
0a/qWUc+L+4a2+6P0qb7lLrPbi2unlJWkNzfcw8XV/d/ud9EfTIxWNTOeXTES2XyAnqT/FFcm1M5RVy9
47ZYXi//EdfuNnmfrCT3mFQ2F1fKCm5slGALAQAAAABA1ZQHemtKLOpfI+6BYFecJE1d0Ftbcu6GEYkb
a4irG/VtLC6+WLL0aomdXVzccouFGdemPjpNHi0uTk2Xe3z9R1YRV3fbPEncNabyQ3H1ttFG4q4xlS71
q2X2kgvEXW/b/FteJ226R6nnwn9IJPq5ukp6qLj2pbKvuHr/y/0m6pOJvEdHnC6xWD51Ab0pcu06scyN
soa4uptgK/m5uLY33fmyqyy7luXkYnH/7Uy+7sZFKbYQAAAAAABUuYd6sol8RLp2DnJssx0PNZvw8HY6
jxTX9lTivGdXL+bmCeLiiyVLvyMuZiXE1tiuTX1yguwmTZ7nZpN7fP1UXL1tFJ/V7hpTeZu4etuIfjU/
y5JbIznNXXfTRWLJIRIJLO76mix1n40jllw943CcuDamcEdxdf6X+03UJxP5FvFvlh1l2QJzE8XuEK7t
Ke0iru6miIX/J8m54trfNNfLu2VNmXotR4v7NzN5hRsXpdhCAAAAAABQ5R7qTbK+/K9cKO4BYVv8UuIt
1XG9FT4X7xB3DanEQ3xXL+bmA+LiiyVL3yAuZiV8Wlybui7m6IPlbuLi0ja5x9dB4upto9+Iu8ZUIhnG
1dtG9KuFuZ1EIkNbjum5XOI7Vexi4K6nDVL32VeKq2cctpTrxbVzIWLHEFdfhftN1BcTeY+OOFymLjA3
zQPEtT2lN4uru2niGIb9pamJDJG4cJhsJq79YT9x/3Ym93VjoxRbCAAAAAAAqtxDPSPOq41FjM9KW97A
u1jiwe+O4q6pqX4s7npSie2gXb2Ym9ie38UXS5Y+WFzMSvizuDZ1UZzjHglJsRV3zNEuHm2Ve3w9Sly9
bbOO5D5yaC1xdbcR/SqNVeX5crK4OIxT9NnYheYpEu107W+T1H22ad+J3yOunQtxtLi6Ktxvoj6YyHt0
xCWyjkxdYG6a1eUmcdeQygni6m6q5SUSW6LdsYuGu6aSLpODZabEhWXuLO5vTOdqWezGRym2EAAAAAAA
VLmHerNYWXaV98vvxT08HIdYxImdFt4pbV3Qix0ich/bsaG4ulHf6hKLJC6+fXedjOt88ejbrk1tFzE9
S74u8Tbx3tLGrdDryj2+4rNiXXF1t00kFrprTCUWT129bUS/ymMLeY3E969xfS7+W2J+3E82ENfONkrd
Z6+RlcTVNS5ry6Xi2jtfLxRXV4X7TdQHExMT75i0kJvavjJ1cbmpfi3uGlL5t6wgru6m21heLidJyWSG
iNlX5PESO0O4tk3nb+L+pnO8Gxsl2UIAAAAAAFDlHurN0W1ld4ltheM823grOPdD7BvlHPmCvF4eKV1Z
OHiLnJ7Jt8TVibl7t7gY992EuHiVcrhEO/4gf5mj8+Sf8xAJBm6eCvF/m/zfxpbmUdfvJBb8TpSvyeck
doyJ4zdiEe7xcn9p89bnC5FzfDXpDPiFijfMvynuOlMY53EwOeTsV/H9x9XZJ7FbR+xCEW/V/0hivnPz
4kL9Sb4kr5YHSCTWuvZ0Qco+e5S4OsbtGeLaO193F1dPhftN1AcTExPbyukZfE6Wk6kLy011oLjrSOVN
4uptm3Uldmb4gPxKrhGXFDAf/5Ify3vl4bKyuDbUEf9zdTivcWOjJFsIAAAAAACq3EO9BOIN7DiL/RHy
bHmTHCpxPn28JReLdj+TqQ8dT5H4v4VYDDhS4uHta+WZEjsr3ElWFFcvAAAAmiF2i3m4PEteJx+SSD79
nsR3vfjeN/l7YOz6EeWRaPQpiV21XiaPk21lDXH1AHPifhP1yYRfBAZmE7tKxJENe8oBcpB8Sr4tJ8rJ
siyJ45e3lh0vkeDyTtlfHit3lTi2wtUxH3vJ5ASSmezgxkRJthAAAAAAAAAAAAAAAKAkWwgAAAAAAAAA
AAAAAFCSLQQAAAAAAAAAAAAAACjJFgIAAAAAAAAAAAAAAJRkCwEAAAAAAAAAAAAAAEqyhQAAAAAAAAAA
AAAAACXZQgAAAAAAAAAAAAAAgJJsIQAAAAAAAAAAAAAAQEm2EAAAAAAAAAAAAAAAoCRbCAAAAAAAAAAA
AAAAUJItBAAAAAAAAAAAAAAAKMkWAgAAAAAAAAAAAAAAlGQLAQAAAAAAAAAAAAAASrKFAAAAAAAAAAAA
AAAAJdlCAAAAAAAAAAAAAACAkmwhAAAAAAAAAAAAAABASbYQAAAAAAAAAAAAAACgJFsIAAAAAAAAAAAA
AABQki0EAAAAAAAAAAAAAAAoyRYCAAAAAAAAAAAAAACUZAsBAAAAAAAAAAAAAADK+b9F/x9qbIygM988
TgAAAABJRU5ErkJgggs=
</value>
</data>
<metadata name="$this.ScriptEditorPositionForUndo" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>0, 0</value>
</metadata>
<metadata name="$this.ScriptEditorPositionForRedo" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>0, 0</value>
</metadata>
</root>

7
SDL/mdm/PLOSE/rptPLOSE_TransaktionenSumary.vb Normal file
View File

@@ -0,0 +1,7 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class rptPLOSE_TransaktionenSumary
'SOU_DESCR OUT_COD OUT_DESCR OUT_GRP_COD TOT_QTY PROD_DESCR SOU_CURR ORIG_LIST_PRICE PLATTS_PRICE SC_BC_RATE EUR_IV_BC_AMNT
End Class

12
SDL/mdm/usrCntlLkwListe.vb
View File

@@ -16,7 +16,7 @@ Public Class usrCntlLkwListe
Sub init()
pnlFilter.AutoScroll = False
Me.dgvLkw.DataSource = Me.bindingSDL
newBinding("SELECT KundenNr, KfzKennzeichen, Nationalität, Verkauft,KZAenderung, Abgemeldet, Vermerk, Erfassungsdatum, Änderungsdatum, Sachbearbeiter FROM LKW WHERE 1=1 ")
newBinding("SELECT KundenNr, KfzKennzeichen, Nationalität, Baujahr, Verkauft,KZAenderung, Abgemeldet, KzMiete , KzLeasing,[KzFinanzierungBank] , Vermerk, Erfassungsdatum, Änderungsdatum, Sachbearbeiter FROM LKW WHERE 1=1 ")
End Sub
@@ -30,7 +30,6 @@ Public Class usrCntlLkwListe
FlatButton2.Enabled = False
Button14.Enabled = False
End If
' Panel3.Height = Me.Height / 2 + 300
End Sub
@@ -299,6 +298,15 @@ Public Class usrCntlLkwListe
.Columns("Verkauft").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
.Columns("KZAenderung").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
.Columns("KzMiete").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
.Columns("KzMiete").HeaderText = "Miete"
.Columns("KzLeasing").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
.Columns("KzLeasing").HeaderText = "Leasing"
.Columns("KzFinanzierungBank").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
.Columns("KzFinanzierungBank").HeaderText = "Finanz.Bank"
.Columns("Abgemeldet").Visible = False
'.Columns("Abgemeldet").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

318
SDL/mdm/usrCntlMDMAuswertungen.Designer.vb generated
View File

@@ -102,6 +102,7 @@ Partial Class usrCntlMDMAuswertungen
Me.Label29 = New System.Windows.Forms.Label()
Me.datIDSVon = New System.Windows.Forms.DateTimePicker()
Me.GroupBox8 = New System.Windows.Forms.GroupBox()
Me.cboIDSDateType = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.txtOrt = New System.Windows.Forms.TextBox()
Me.lbl = New System.Windows.Forms.Label()
Me.cbxLand = New System.Windows.Forms.CheckBox()
@@ -125,8 +126,30 @@ Partial Class usrCntlMDMAuswertungen
Me.GroupBox10 = New System.Windows.Forms.GroupBox()
Me.Label38 = New System.Windows.Forms.Label()
Me.Button10 = New System.Windows.Forms.Button()
Me.tbPLOSE = New System.Windows.Forms.TabPage()
Me.Label37 = New System.Windows.Forms.Label()
Me.GroupBox11 = New System.Windows.Forms.GroupBox()
Me.Label39 = New System.Windows.Forms.Label()
Me.Label40 = New System.Windows.Forms.Label()
Me.ProgressBar1 = New System.Windows.Forms.ProgressBar()
Me.TextBox1 = New System.Windows.Forms.TextBox()
Me.Label41 = New System.Windows.Forms.Label()
Me.Button12 = New System.Windows.Forms.Button()
Me.Label42 = New System.Windows.Forms.Label()
Me.GroupBox12 = New System.Windows.Forms.GroupBox()
Me.lblPloseAnh_Proz = New System.Windows.Forms.Label()
Me.Button13 = New System.Windows.Forms.Button()
Me.pbPloseAnh_Proz = New System.Windows.Forms.ProgressBar()
Me.txtPloseAnh_Einarbeitung = New System.Windows.Forms.TextBox()
Me.datPLOSE_Sum_Von = New System.Windows.Forms.DateTimePicker()
Me.Label44 = New System.Windows.Forms.Label()
Me.Label45 = New System.Windows.Forms.Label()
Me.Label46 = New System.Windows.Forms.Label()
Me.Button14 = New System.Windows.Forms.Button()
Me.datPLOSE_Sum_Bis = New System.Windows.Forms.DateTimePicker()
Me.pnl = New System.Windows.Forms.Panel()
Me.cboIDSDateType = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.datPloseAnhang = New System.Windows.Forms.DateTimePicker()
Me.Label43 = New System.Windows.Forms.Label()
Me.GroupBox1.SuspendLayout()
Me.GroupBox2.SuspendLayout()
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -148,6 +171,9 @@ Partial Class usrCntlMDMAuswertungen
Me.tbIDS.SuspendLayout()
Me.TabPage2.SuspendLayout()
Me.GroupBox10.SuspendLayout()
Me.tbPLOSE.SuspendLayout()
Me.GroupBox11.SuspendLayout()
Me.GroupBox12.SuspendLayout()
Me.pnl.SuspendLayout()
Me.SuspendLayout()
'
@@ -288,7 +314,7 @@ Partial Class usrCntlMDMAuswertungen
'
'pic
'
Me.pic.Image = Global.SDL.My.Resources.woelfl
Me.pic.Image = Global.SDL.My.Resources.Resources.woelfl
Me.pic.Location = New System.Drawing.Point(640, 8)
Me.pic.Name = "pic"
Me.pic.Size = New System.Drawing.Size(51, 37)
@@ -455,7 +481,7 @@ Partial Class usrCntlMDMAuswertungen
'
'PictureBox1
'
Me.PictureBox1.Image = Global.SDL.My.Resources.sanduhr
Me.PictureBox1.Image = Global.SDL.My.Resources.Resources.sanduhr
Me.PictureBox1.Location = New System.Drawing.Point(640, 8)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(51, 24)
@@ -706,7 +732,7 @@ Partial Class usrCntlMDMAuswertungen
'
'PictureBox3
'
Me.PictureBox3.Image = Global.SDL.My.Resources.cards
Me.PictureBox3.Image = Global.SDL.My.Resources.Resources.cards
Me.PictureBox3.Location = New System.Drawing.Point(640, 8)
Me.PictureBox3.Name = "PictureBox3"
Me.PictureBox3.Size = New System.Drawing.Size(51, 24)
@@ -1029,6 +1055,17 @@ Partial Class usrCntlMDMAuswertungen
Me.GroupBox8.TabIndex = 23
Me.GroupBox8.TabStop = False
'
'cboIDSDateType
'
Me.cboIDSDateType._allowedValuesFreiText = Nothing
Me.cboIDSDateType._allowFreiText = False
Me.cboIDSDateType._value = ""
Me.cboIDSDateType.FormattingEnabled = True
Me.cboIDSDateType.Location = New System.Drawing.Point(9, 63)
Me.cboIDSDateType.Name = "cboIDSDateType"
Me.cboIDSDateType.Size = New System.Drawing.Size(152, 21)
Me.cboIDSDateType.TabIndex = 27
'
'txtOrt
'
Me.txtOrt.Location = New System.Drawing.Point(201, 87)
@@ -1095,6 +1132,7 @@ Partial Class usrCntlMDMAuswertungen
Me.tbcntr.Controls.Add(Me.TabPage3)
Me.tbcntr.Controls.Add(Me.tbIDS)
Me.tbcntr.Controls.Add(Me.TabPage2)
Me.tbcntr.Controls.Add(Me.tbPLOSE)
Me.tbcntr.Dock = System.Windows.Forms.DockStyle.Fill
Me.tbcntr.Location = New System.Drawing.Point(0, 54)
Me.tbcntr.Name = "tbcntr"
@@ -1154,7 +1192,7 @@ Partial Class usrCntlMDMAuswertungen
Me.Button9.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
Me.Button9.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button9.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Button9.Image = Global.SDL.My.Resources.Excel_logo
Me.Button9.Image = Global.SDL.My.Resources.Resources.Excel_logo
Me.Button9.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button9.Location = New System.Drawing.Point(6, 62)
Me.Button9.Name = "Button9"
@@ -1169,7 +1207,7 @@ Partial Class usrCntlMDMAuswertungen
Me.Button11.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
Me.Button11.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button11.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Button11.Image = Global.SDL.My.Resources.Excel_logo
Me.Button11.Image = Global.SDL.My.Resources.Resources.Excel_logo
Me.Button11.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button11.Location = New System.Drawing.Point(6, 19)
Me.Button11.Name = "Button11"
@@ -1302,6 +1340,221 @@ Partial Class usrCntlMDMAuswertungen
Me.Button10.Text = "Durchführen"
Me.Button10.UseVisualStyleBackColor = True
'
'tbPLOSE
'
Me.tbPLOSE.Controls.Add(Me.datPloseAnhang)
Me.tbPLOSE.Controls.Add(Me.Label37)
Me.tbPLOSE.Controls.Add(Me.GroupBox11)
Me.tbPLOSE.Controls.Add(Me.Label42)
Me.tbPLOSE.Controls.Add(Me.GroupBox12)
Me.tbPLOSE.Location = New System.Drawing.Point(4, 22)
Me.tbPLOSE.Name = "tbPLOSE"
Me.tbPLOSE.Padding = New System.Windows.Forms.Padding(3)
Me.tbPLOSE.Size = New System.Drawing.Size(1049, 990)
Me.tbPLOSE.TabIndex = 4
Me.tbPLOSE.Text = "PLOSE"
Me.tbPLOSE.UseVisualStyleBackColor = True
'
'Label37
'
Me.Label37.AutoSize = True
Me.Label37.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label37.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Me.Label37.Location = New System.Drawing.Point(7, 11)
Me.Label37.Name = "Label37"
Me.Label37.Size = New System.Drawing.Size(173, 17)
Me.Label37.TabIndex = 19
Me.Label37.Text = "PLOSE Daten einlesen"
'
'GroupBox11
'
Me.GroupBox11.Controls.Add(Me.Label39)
Me.GroupBox11.Controls.Add(Me.Label40)
Me.GroupBox11.Controls.Add(Me.ProgressBar1)
Me.GroupBox11.Controls.Add(Me.TextBox1)
Me.GroupBox11.Controls.Add(Me.Label41)
Me.GroupBox11.Controls.Add(Me.Button12)
Me.GroupBox11.Enabled = False
Me.GroupBox11.Location = New System.Drawing.Point(6, 22)
Me.GroupBox11.Name = "GroupBox11"
Me.GroupBox11.Size = New System.Drawing.Size(297, 145)
Me.GroupBox11.TabIndex = 18
Me.GroupBox11.TabStop = False
'
'Label39
'
Me.Label39.Location = New System.Drawing.Point(131, 19)
Me.Label39.Name = "Label39"
Me.Label39.Size = New System.Drawing.Size(165, 52)
Me.Label39.TabIndex = 23
Me.Label39.Text = "Lädt die CSV-Daten vom PLOSE FTP-Server herunter und liest diese in die Datenbank" &
" ein."
'
'Label40
'
Me.Label40.Location = New System.Drawing.Point(220, 103)
Me.Label40.Name = "Label40"
Me.Label40.Size = New System.Drawing.Size(69, 13)
Me.Label40.TabIndex = 22
Me.Label40.Text = "0%"
Me.Label40.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'ProgressBar1
'
Me.ProgressBar1.Location = New System.Drawing.Point(6, 74)
Me.ProgressBar1.Name = "ProgressBar1"
Me.ProgressBar1.Size = New System.Drawing.Size(283, 23)
Me.ProgressBar1.TabIndex = 20
'
'TextBox1
'
Me.TextBox1.BackColor = System.Drawing.Color.White
Me.TextBox1.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.TextBox1.Location = New System.Drawing.Point(78, 103)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(106, 13)
Me.TextBox1.TabIndex = 19
'
'Label41
'
Me.Label41.AutoSize = True
Me.Label41.Location = New System.Drawing.Point(3, 103)
Me.Label41.Name = "Label41"
Me.Label41.Size = New System.Drawing.Size(69, 13)
Me.Label41.TabIndex = 18
Me.Label41.Text = "Einarbeitung:"
'
'Button12
'
Me.Button12.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button12.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Button12.Location = New System.Drawing.Point(6, 19)
Me.Button12.Name = "Button12"
Me.Button12.Size = New System.Drawing.Size(121, 49)
Me.Button12.TabIndex = 4
Me.Button12.Text = "Datei einlesen ..." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
Me.Button12.UseVisualStyleBackColor = True
'
'Label42
'
Me.Label42.AutoSize = True
Me.Label42.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label42.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Me.Label42.Location = New System.Drawing.Point(325, 11)
Me.Label42.Name = "Label42"
Me.Label42.Size = New System.Drawing.Size(199, 17)
Me.Label42.TabIndex = 24
Me.Label42.Text = "PLOSE Datenverarbeitung"
'
'GroupBox12
'
Me.GroupBox12.Controls.Add(Me.Label43)
Me.GroupBox12.Controls.Add(Me.lblPloseAnh_Proz)
Me.GroupBox12.Controls.Add(Me.Button13)
Me.GroupBox12.Controls.Add(Me.pbPloseAnh_Proz)
Me.GroupBox12.Controls.Add(Me.txtPloseAnh_Einarbeitung)
Me.GroupBox12.Controls.Add(Me.datPLOSE_Sum_Von)
Me.GroupBox12.Controls.Add(Me.Label44)
Me.GroupBox12.Controls.Add(Me.Label45)
Me.GroupBox12.Controls.Add(Me.Label46)
Me.GroupBox12.Controls.Add(Me.Button14)
Me.GroupBox12.Controls.Add(Me.datPLOSE_Sum_Bis)
Me.GroupBox12.Location = New System.Drawing.Point(322, 22)
Me.GroupBox12.Name = "GroupBox12"
Me.GroupBox12.Size = New System.Drawing.Size(587, 169)
Me.GroupBox12.TabIndex = 23
Me.GroupBox12.TabStop = False
'
'lblPloseAnh_Proz
'
Me.lblPloseAnh_Proz.Location = New System.Drawing.Point(495, 117)
Me.lblPloseAnh_Proz.Name = "lblPloseAnh_Proz"
Me.lblPloseAnh_Proz.Size = New System.Drawing.Size(69, 13)
Me.lblPloseAnh_Proz.TabIndex = 27
Me.lblPloseAnh_Proz.Text = "0%"
Me.lblPloseAnh_Proz.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'Button13
'
Me.Button13.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button13.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Button13.Location = New System.Drawing.Point(37, 88)
Me.Button13.Name = "Button13"
Me.Button13.Size = New System.Drawing.Size(238, 37)
Me.Button13.TabIndex = 26
Me.Button13.Text = "Anhänge erstellen"
Me.Button13.UseVisualStyleBackColor = True
'
'pbPloseAnh_Proz
'
Me.pbPloseAnh_Proz.Location = New System.Drawing.Point(281, 88)
Me.pbPloseAnh_Proz.Name = "pbPloseAnh_Proz"
Me.pbPloseAnh_Proz.Size = New System.Drawing.Size(283, 23)
Me.pbPloseAnh_Proz.TabIndex = 26
'
'txtPloseAnh_Einarbeitung
'
Me.txtPloseAnh_Einarbeitung.BackColor = System.Drawing.Color.White
Me.txtPloseAnh_Einarbeitung.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.txtPloseAnh_Einarbeitung.Location = New System.Drawing.Point(353, 117)
Me.txtPloseAnh_Einarbeitung.Name = "txtPloseAnh_Einarbeitung"
Me.txtPloseAnh_Einarbeitung.Size = New System.Drawing.Size(106, 13)
Me.txtPloseAnh_Einarbeitung.TabIndex = 25
'
'datPLOSE_Sum_Von
'
Me.datPLOSE_Sum_Von.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
Me.datPLOSE_Sum_Von.Location = New System.Drawing.Point(37, 19)
Me.datPLOSE_Sum_Von.Name = "datPLOSE_Sum_Von"
Me.datPLOSE_Sum_Von.Size = New System.Drawing.Size(103, 20)
Me.datPLOSE_Sum_Von.TabIndex = 18
'
'Label44
'
Me.Label44.AutoSize = True
Me.Label44.Location = New System.Drawing.Point(278, 117)
Me.Label44.Name = "Label44"
Me.Label44.Size = New System.Drawing.Size(56, 13)
Me.Label44.TabIndex = 24
Me.Label44.Text = "Fortschritt:"
'
'Label45
'
Me.Label45.AutoSize = True
Me.Label45.Location = New System.Drawing.Point(143, 22)
Me.Label45.Name = "Label45"
Me.Label45.Size = New System.Drawing.Size(23, 13)
Me.Label45.TabIndex = 21
Me.Label45.Text = "bis:"
'
'Label46
'
Me.Label46.AutoSize = True
Me.Label46.Location = New System.Drawing.Point(3, 22)
Me.Label46.Name = "Label46"
Me.Label46.Size = New System.Drawing.Size(28, 13)
Me.Label46.TabIndex = 19
Me.Label46.Text = "von:"
'
'Button14
'
Me.Button14.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button14.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Button14.Location = New System.Drawing.Point(37, 45)
Me.Button14.Name = "Button14"
Me.Button14.Size = New System.Drawing.Size(238, 37)
Me.Button14.TabIndex = 21
Me.Button14.Text = "Summenbericht erstellen"
Me.Button14.UseVisualStyleBackColor = True
'
'datPLOSE_Sum_Bis
'
Me.datPLOSE_Sum_Bis.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
Me.datPLOSE_Sum_Bis.Location = New System.Drawing.Point(172, 19)
Me.datPLOSE_Sum_Bis.Name = "datPLOSE_Sum_Bis"
Me.datPLOSE_Sum_Bis.Size = New System.Drawing.Size(103, 20)
Me.datPLOSE_Sum_Bis.TabIndex = 20
'
'pnl
'
Me.pnl.Controls.Add(Me.Label2)
@@ -1311,16 +1564,22 @@ Partial Class usrCntlMDMAuswertungen
Me.pnl.Size = New System.Drawing.Size(1057, 54)
Me.pnl.TabIndex = 26
'
'cboIDSDateType
'datPloseAnhang
'
Me.cboIDSDateType._allowedValuesFreiText = Nothing
Me.cboIDSDateType._allowFreiText = False
Me.cboIDSDateType._value = ""
Me.cboIDSDateType.FormattingEnabled = True
Me.cboIDSDateType.Location = New System.Drawing.Point(9, 63)
Me.cboIDSDateType.Name = "cboIDSDateType"
Me.cboIDSDateType.Size = New System.Drawing.Size(152, 21)
Me.cboIDSDateType.TabIndex = 27
Me.datPloseAnhang.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
Me.datPloseAnhang.Location = New System.Drawing.Point(494, 153)
Me.datPloseAnhang.Name = "datPloseAnhang"
Me.datPloseAnhang.Size = New System.Drawing.Size(103, 20)
Me.datPloseAnhang.TabIndex = 28
'
'Label43
'
Me.Label43.AutoSize = True
Me.Label43.Location = New System.Drawing.Point(85, 137)
Me.Label43.Name = "Label43"
Me.Label43.Size = New System.Drawing.Size(81, 13)
Me.Label43.TabIndex = 28
Me.Label43.Text = "Datum Anhang:"
'
'usrCntlMDMAuswertungen
'
@@ -1366,6 +1625,12 @@ Partial Class usrCntlMDMAuswertungen
Me.TabPage2.PerformLayout()
Me.GroupBox10.ResumeLayout(False)
Me.GroupBox10.PerformLayout()
Me.tbPLOSE.ResumeLayout(False)
Me.tbPLOSE.PerformLayout()
Me.GroupBox11.ResumeLayout(False)
Me.GroupBox11.PerformLayout()
Me.GroupBox12.ResumeLayout(False)
Me.GroupBox12.PerformLayout()
Me.pnl.ResumeLayout(False)
Me.pnl.PerformLayout()
Me.ResumeLayout(False)
@@ -1475,4 +1740,27 @@ Partial Class usrCntlMDMAuswertungen
Friend WithEvents txtOrt As TextBox
Friend WithEvents lbl As Label
Friend WithEvents cboIDSDateType As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents tbPLOSE As TabPage
Friend WithEvents Label37 As Label
Friend WithEvents GroupBox11 As GroupBox
Friend WithEvents Label39 As Label
Friend WithEvents Label40 As Label
Friend WithEvents ProgressBar1 As ProgressBar
Friend WithEvents TextBox1 As TextBox
Friend WithEvents Label41 As Label
Friend WithEvents Button12 As Button
Friend WithEvents Label42 As Label
Friend WithEvents GroupBox12 As GroupBox
Friend WithEvents datPLOSE_Sum_Von As DateTimePicker
Friend WithEvents Label45 As Label
Friend WithEvents Label46 As Label
Friend WithEvents datPLOSE_Sum_Bis As DateTimePicker
Friend WithEvents Button13 As Button
Friend WithEvents Button14 As Button
Friend WithEvents lblPloseAnh_Proz As Label
Friend WithEvents pbPloseAnh_Proz As ProgressBar
Friend WithEvents txtPloseAnh_Einarbeitung As TextBox
Friend WithEvents Label44 As Label
Friend WithEvents datPloseAnhang As DateTimePicker
Friend WithEvents Label43 As Label
End Class

358
SDL/mdm/usrCntlMDMAuswertungen.vb
View File

@@ -867,6 +867,364 @@ Public Class usrCntlMDMAuswertungen
Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
VERAG_PROG_ALLGEMEIN.SDL_Functions.SDL_GueltigBis_UTA_IDS()
End Sub
Private Sub ProgressBar1_Click(sender As Object, e As EventArgs) Handles ProgressBar1.Click
End Sub
Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click
Me.Cursor = Cursors.WaitCursor
Try
Dim dialog As New OpenFileDialog()
dialog.Filter = "CSV Files (*.csv)|*.csv"
If (dialog.ShowDialog() = DialogResult.OK) Then
Dim table As DataTable = convertToDT(dialog.FileName)
Dim cnt = 1
For Each r As DataRow In table.Rows
Dim IDS_Transaktionen As New IDS_Transaktionen
IDS_Transaktionen.BC_ID = cProgramFunctions.isLeerNothing(r("BC_ID"))
IDS_Transaktionen.BC_DESCR = cProgramFunctions.isLeerNothing(r("BC_DESCR"))
IDS_Transaktionen.CLUB_ID = cProgramFunctions.isLeerNothing(r("CLUB_ID"))
IDS_Transaktionen.COU_ISO_COD = cProgramFunctions.isLeerNothing(r("COU_ISO_COD"))
IDS_Transaktionen.COU_DESCR = cProgramFunctions.isLeerNothing(r("COU_DESCR"))
IDS_Transaktionen.CUST_COD = cProgramFunctions.isLeerNothing(r("CUST_COD"))
IDS_Transaktionen.CUST_LEVEL = cProgramFunctions.isLeerNothing(r("CUST_LEVEL"))
IDS_Transaktionen.CUST_NAME1 = cProgramFunctions.isLeerNothing(r("CUST_NAME1"))
IDS_Transaktionen.CARD_SER_NUM = cProgramFunctions.isLeerNothing(r("CARD_SER_NUM"))
IDS_Transaktionen.SOU_ISO_COD = cProgramFunctions.isLeerNothing(r("SOU_ISO_COD"))
IDS_Transaktionen.SOU_DESCR = cProgramFunctions.isLeerNothing(r("SOU_DESCR"))
IDS_Transaktionen.TRS_NUM = cProgramFunctions.isLeerNothing(r("TRS_NUM"))
IDS_Transaktionen.TRS_VERS_NUM = cProgramFunctions.isLeerNothing(r("TRS_VERS_NUM"))
IDS_Transaktionen.OUT_COD = cProgramFunctions.isLeerNothing(r("OUT_COD"))
IDS_Transaktionen.OUT_DESCR = cProgramFunctions.isLeerNothing(r("OUT_DESCR"))
IDS_Transaktionen.OUT_GRP_COD = cProgramFunctions.isLeerNothing(r("OUT_GRP_COD"))
IDS_Transaktionen.TRS_DATE = cProgramFunctions.isLeerNothing(r("TRS_DATE"))
IDS_Transaktionen.TOT_QTY = cProgramFunctions.isLeerNothingDblPKT(r("TOT_QTY"))
IDS_Transaktionen.PROD_NUM = cProgramFunctions.isLeerNothing(r("PROD_NUM"))
IDS_Transaktionen.PROD_DESCR = cProgramFunctions.isLeerNothing(r("PROD_DESCR"))
IDS_Transaktionen.SERVICE_PROD_NUM = cProgramFunctions.isLeerNothing(r("SERVICE_PROD_NUM"))
IDS_Transaktionen.SERVICE_PROD_DESCR = cProgramFunctions.isLeerNothing(r("SERVICE_PROD_DESCR"))
IDS_Transaktionen.SOU_CURR = cProgramFunctions.isLeerNothing(r("SOU_CURR"))
IDS_Transaktionen.ORIG_LIST_PRICE = cProgramFunctions.isLeerNothingDblPKT(r("ORIG_LIST_PRICE"))
IDS_Transaktionen.ORIG_REBATE = cProgramFunctions.isLeerNothingDblPKT(r("ORIG_REBATE"))
IDS_Transaktionen.ORIG_PRICE = cProgramFunctions.isLeerNothingDblPKT(r("ORIG_PRICE"))
IDS_Transaktionen.PLATTS_PRICE = cProgramFunctions.isLeerNothingDblPKT(r("PLATTS_PRICE"))
IDS_Transaktionen.SC_BC_RATE = cProgramFunctions.isLeerNothingDblPKT(r("SC_BC_RATE"))
IDS_Transaktionen.SC_IV_BC_AMNT = cProgramFunctions.isLeerNothingDblPKT(r("SC_IV_BC_AMNT"))
IDS_Transaktionen.COU_BENEFICIARY_CURR = cProgramFunctions.isLeerNothing(r("COU_BENEFICIARY_CURR"))
IDS_Transaktionen.CO_IV_BC_AMNT = cProgramFunctions.isLeerNothingDblPKT(r("CO_IV_BC_AMNT"))
IDS_Transaktionen.EUR_IV_BC_AMNT = cProgramFunctions.isLeerNothingDblPKT(r("EUR_IV_BC_AMNT"))
IDS_Transaktionen.SC_CO_EXCHRATE = cProgramFunctions.isLeerNothingDblPKT(r("SC_CO_EXCHRATE"))
IDS_Transaktionen.SC_EUR_EXCHRATE = cProgramFunctions.isLeerNothingDblPKT(r("SC_EUR_EXCHRATE"))
IDS_Transaktionen.BC_INVO_DATE = cProgramFunctions.isLeerNothing(r("BC_INVO_DATE"))
IDS_Transaktionen.INVO_NUM = cProgramFunctions.isLeerNothing(r("INVO_NUM"))
IDS_Transaktionen.FIXED_OR_TOTAL = cProgramFunctions.isLeerNothing(r("FIXED_OR_TOTAL"))
IDS_Transaktionen.BC_TYPE = cProgramFunctions.isLeerNothing(r("BC_TYPE"))
IDS_Transaktionen.COU_BENEFICIARY = cProgramFunctions.isLeerNothing(r("COU_BENEFICIARY"))
IDS_Transaktionen.CUST_BENEFICIARY = cProgramFunctions.isLeerNothingDblPKT(r("CUST_BENEFICIARY"))
IDS_Transaktionen.LEVEL_BENEFICIARY = cProgramFunctions.isLeerNothingDblPKT(r("LEVEL_BENEFICIARY"))
IDS_Transaktionen.CUST_GRP_BENEFICIARY = cProgramFunctions.isLeerNothing(r("CUST_GRP_BENEFICIARY"))
'IDS_Transaktionen.Importiert = cProgramFunctions.isLeerNothing(r("Importiert"))
IDS_Transaktionen.SAVE()
'MsgBox(table.Rows.Count)
If cnt Mod 10 = 0 Then
txtIDSEinarbeitung.Text = cnt & " / " & table.Rows.Count
Dim proz As Double = (cnt / table.Rows.Count) * 100
ProgressBar.Value = proz
lblProz.Text = proz.ToString("N2") & " %"
GroupBox7.Refresh()
My.Application.DoEvents()
End If
cnt += 1
Next
ProgressBar.Value = 100
txtIDSEinarbeitung.Text = table.Rows.Count & " / " & table.Rows.Count
lblProz.Text = "100.00 %"
End If
Catch ex As System.Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
Me.Cursor = Cursors.Default
End Sub
Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click
Dim displayFilter = False
Dim sqlstr As String = ""
sqlstr &= " SELECT count(*) Anzahl ,plose_ProduktCode"
sqlstr &= ",max(plose_Produktbeschreibung) as plose_Produktbeschreibung"
sqlstr &= ",sum(plose_Menge) as plose_Menge"
sqlstr &= ",sum(plose_Preis) as plose_Preis"
sqlstr &= ",sum(plose_NettobetragTransaktion) as plose_NettobetragTransaktion"
sqlstr &= ",sum(plose_MWSTBetrag) as plose_MWSTBetrag"
sqlstr &= ",sum(plose_BruttobetragTransaktion) as plose_BruttobetragTransaktion "
sqlstr &= " FROM tblPLOSE_Details"
sqlstr &= " WHERE 1=1 "
sqlstr &= " AND plose_DatumTransaktion between '" & datPLOSE_Sum_Von.Value & "' and '" & datPLOSE_Sum_Bis.Value & "' "
sqlstr &= " group by plose_ProduktCode"
sqlstr &= " order by plose_ProduktCode"
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim dt As DataTable = SQL.loadDgvBySql_Param(sqlstr, "FMZOLL")
'DataGridView.DataSource = dt
Dim print As New frmPrintLayout
print.Text = "PLOSE"
Dim rpt As New rptPLOSE_TransaktionenSumary
rpt.DataSource = dt
'If cbxProdukt.Checked Then
' rpt.GroupHeader2.DataField = "prod_descr"
'Else
' rpt.GroupHeader2.Visible = False
' rpt.GroupFooter2.Visible = False
'End If
Dim sum = 0
rpt.lblUeberschrift.Text = "PLOSE Summenbericht " & datPLOSE_Sum_Von.Text & " bis " & datPLOSE_Sum_Bis.Text
rpt.lblSachbearbeiter.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
'rpt.lblMandantNiederlassung.Text = PERSONAL.Mandant & " / " & PERSONAL.Niederlassung
'Dim cnt As Integer = 0
rpt.lblDat.Text = Now.ToLongDateString
Dim sumPreis As Double = 0
Dim sumNetto As Double = 0
Dim sumMWST As Double = 0
Dim sumBrutto As Double = 0
Dim sumMenge As Double = 0
AddHandler rpt.Detail.Format, Sub()
' rpt.lblProduktBeschreibung.Text = isDbnullEmpty(rpt.Fields.Item("BC_DESCR").Value, "")
rpt.lblAnzahl.Text = isDbnullEmpty(rpt.Fields.Item("Anzahl").Value, "")
rpt.lblProdukt.Text = isDbnullEmpty(rpt.Fields.Item("plose_ProduktCode").Value, "") & " - " & isDbnullEmpty(rpt.Fields.Item("plose_Produktbeschreibung").Value, "")
rpt.lblMenge.Text = isDbnullEmptyDbl(rpt.Fields.Item("plose_Menge").Value, 0, "")
rpt.lblPreis.Text = isDbnullEmptyDbl(rpt.Fields.Item("plose_Preis").Value, 2, "")
rpt.lblNetto.Text = isDbnullEmptyDbl(rpt.Fields.Item("plose_NettobetragTransaktion").Value, 2, "")
rpt.lblMWST.Text = isDbnullEmptyDbl(rpt.Fields.Item("plose_MWSTBetrag").Value, 2, "")
rpt.lblBrutto.Text = isDbnullEmptyDbl(rpt.Fields.Item("plose_BruttobetragTransaktion").Value, 2, "")
sumMenge += isDbnullEmptyDbl(rpt.Fields.Item("plose_Menge").Value, 4, 0)
sumPreis += isDbnullEmptyDbl(rpt.Fields.Item("plose_Preis").Value, 4, 0)
sumNetto += isDbnullEmptyDbl(rpt.Fields.Item("plose_NettobetragTransaktion").Value, 4, 0)
sumMWST += isDbnullEmptyDbl(rpt.Fields.Item("plose_MWSTBetrag").Value, 4, 0)
sumBrutto += isDbnullEmptyDbl(rpt.Fields.Item("plose_BruttobetragTransaktion").Value, 4, 0)
End Sub
AddHandler rpt.ReportFooter1.Format, Sub()
rpt.lblSumMenge.Text = sumMenge.ToString("N0")
rpt.lblSumPreis.Text = sumPreis.ToString("N2")
rpt.lblSumNetto.Text = sumNetto.ToString("N2")
rpt.lblSumMwst.Text = sumMWST.ToString("N2")
rpt.lblSumBrutto.Text = sumBrutto.ToString("N2")
End Sub
print.Viewer.LoadDocument(rpt)
print.Viewer.ViewType = GrapeCity.Viewer.Common.Model.ViewType.Continuous
print.Show()
End Sub
Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim dt_Main As DataTable = SQL.loadDgvBySql_Param("SELECT [plose_POLSEKundennummer] FROM tblPLOSE_Details where plose_FakturiertDatum is null AND plose_DatumTransaktion between '" & datPLOSE_Sum_Von.Value.ToShortDateString & "' and '" & datPLOSE_Sum_Bis.Value.ToShortDateString & "' group by [plose_POLSEKundennummer] ", "FMZOLL")
If dt_Main Is Nothing OrElse dt_Main.Rows.Count = 0 Then
MsgBox("Keine Daten!")
Exit Sub
End If
Dim cnt = 0
If vbYes = MsgBox("Es wurden Daten von " & dt_Main.Rows.Count & " Kunden gefunden " & vbNewLine & " Möchten Sie die Anhänge erstellen?",vbYesNoCancel) Then
Dim dir = "F:\FMZoll\Maut\PLOSE\" & Now.ToShortDateString
If IO.Directory.Exists(dir) Then dir &= "_" & Now.ToShortTimeString.Replace(":", "")
IO.Directory.CreateDirectory(dir)
For Each R_PLOSE In dt_Main.Rows
genPLOSEAttachmentByKdNr(R_PLOSE("plose_POLSEKundennummer"), datPLOSE_Sum_Von.Value.ToShortDateString, datPLOSE_Sum_Bis.Value.ToShortDateString, dir)
If True Then 'cnt Mod 10 = 0 Then
txtPloseAnh_Einarbeitung.Text = cnt & " / " & dt_Main.Rows.Count
Dim proz As Double = (cnt / dt_Main.Rows.Count) * 100
pbPloseAnh_Proz.Value = proz
lblPloseAnh_Proz.Text = proz.ToString("N2") & " %"
GroupBox12.Refresh()
My.Application.DoEvents()
End If
cnt += 1
Next
pbPloseAnh_Proz.Value = 100
txtPloseAnh_Einarbeitung.Text = dt_Main.Rows.Count & " / " & dt_Main.Rows.Count
lblPloseAnh_Proz.Text = "100.00 %"
End If
End Sub
Function genPLOSEAttachmentByKdNr(KdNr As String, von As Date, bis As Date, dir As String)
Try
Dim displayFilter = False
Dim sqlstr As String = ""
sqlstr &= " SELECT * "
sqlstr &= " FROM tblPLOSE_Details INNER JOIN [tblPLOSE_Produktbeschreibung] on plose_ProduktCode=plp_ProductCode "
sqlstr &= " WHERE 1=1 "
sqlstr &= " AND plose_FakturiertDatum is null "
sqlstr &= " AND plose_POLSEKundennummer = '" & KdNr & "' "
sqlstr &= " AND plose_DatumTransaktion between '" & von.ToShortDateString & "' and '" & bis.ToShortDateString & "' "
' sqlstr &= " group by plose_ProduktCode"
sqlstr &= " order by plp_Land, plose_DatumTransaktion"
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim dt As DataTable = SQL.loadDgvBySql_Param(sqlstr, "FMZOLL")
Dim rpt As New rptPLOSE_Anhang
rpt.DataSource = dt
rpt.lblRgDatum.Text = datPloseAnhang.Value.ToShortDateString
rpt.GroupHeaderKz.DataField = "plose_Kennzeichen" 'Gruppierung
Dim sumNetto As Double = 0
Dim sumMWST As Double = 0
Dim sumBrutto As Double = 0
Dim sumNettoKat As Double = 0
Dim sumMWSTKat As Double = 0
Dim sumBruttoKat As Double = 0
Dim sumNettoGes As Double = 0
Dim sumMWSTGes As Double = 0
Dim sumBruttoGes As Double = 0
Dim cntKat = 0
Dim cnt = 0
rpt.GroupFooterKat.Visible = False
AddHandler rpt.Detail.Format, Sub()
' If cnt = 0 Then
rpt.txtKunde.Text = isDbnullEmpty(rpt.Fields.Item("plose_POLSEKundennummer").Value, "") & " " & isDbnullEmpty(rpt.Fields.Item("plose_Firmenname").Value, "")
' End If
' rpt.txtProduktBeschreibung.Text = isDbnullEmpty(rpt.Fields.Item("BC_DESCR").Value, "")
Select Case "DE"
Case "DE" : rpt.txtProdukt.Text = isDbnullEmpty(rpt.Fields.Item("plp_Description_DE").Value, "") 'isDbnullEmpty(rpt.Fields.Item("plose_ProduktCode").Value, "") & " - " & isDbnullEmpty(rpt.Fields.Item("plose_Produktbeschreibung").Value, "")
Case "IT" : rpt.txtProdukt.Text = isDbnullEmpty(rpt.Fields.Item("plp_Description_IT").Value, "") 'isDbnullEmpty(rpt.Fields.Item("plose_ProduktCode").Value, "") & " - " & isDbnullEmpty(rpt.Fields.Item("plose_Produktbeschreibung").Value, "")
Case Else : rpt.txtProdukt.Text = isDbnullEmpty(rpt.Fields.Item("plp_Description_EN").Value, "") 'isDbnullEmpty(rpt.Fields.Item("plose_ProduktCode").Value, "") & " - " & isDbnullEmpty(rpt.Fields.Item("plose_Produktbeschreibung").Value, "")
End Select
rpt.txtKartennummer.Text = isDbnullEmpty(rpt.Fields.Item("plose_NummerKarteGeraet").Value, "")
rpt.txtEingang.Text = isDbnullEmpty(rpt.Fields.Item("plose_BeschreibungEinfahrt").Value, "")
rpt.txtAusgang.Text = isDbnullEmpty(rpt.Fields.Item("plose_BeschreibungAusfahrt").Value, "")
rpt.txtLand.Text = isDbnullEmpty(rpt.Fields.Item("plp_Land").Value, "")
rpt.txtDatum.Text = isDbnullEmpty(rpt.Fields.Item("plose_DatumTransaktion").Value, "")
rpt.txtNetto.Text = isDbnullEmptyDbl(rpt.Fields.Item("plose_NettobetragTransaktion").Value, 2, "")
rpt.txtMWST.Text = isDbnullEmptyDbl(rpt.Fields.Item("plose_MWSTBetrag").Value, 2, "")
rpt.txtBrutto.Text = isDbnullEmptyDbl(rpt.Fields.Item("plose_BruttobetragTransaktion").Value, 2, "")
sumNetto += isDbnullEmptyDbl(rpt.Fields.Item("plose_NettobetragTransaktion").Value, 4, 0)
sumMWST += isDbnullEmptyDbl(rpt.Fields.Item("plose_MWSTBetrag").Value, 4, 0)
sumBrutto += isDbnullEmptyDbl(rpt.Fields.Item("plose_BruttobetragTransaktion").Value, 4, 0)
cnt += 1
End Sub
AddHandler rpt.GroupHeaderKz.Format, Sub()
rpt.txtKennzeichen.Text = isDbnullEmpty(rpt.Fields.Item("plose_Kennzeichen").Value, "")
If rpt.txtKennzeichen.Text = "" Then rpt.lblKennzeichen.Visible = False
End Sub
AddHandler rpt.GroupHeaderKat.Format, Sub()
rpt.lblKategorie.Text = "MAUT REPORT"
End Sub
AddHandler rpt.GroupFooterKz.Format, Sub()
rpt.txtNettoKzSum.Text = sumNetto.ToString("N2")
rpt.txtMWSTKzSum.Text = sumMWST.ToString("N2")
rpt.txtBruttoKzSum.Text = sumBrutto.ToString("N2")
rpt.lblSummeKennzeichen.Text = rpt.lblSummeKennzeichen.Text.Replace("Kennzeichen", isDbnullEmpty(rpt.Fields.Item("plose_Kennzeichen").Value, ""))
End Sub
AddHandler rpt.GroupFooterKat.Format, Sub()
sumNettoKat += sumNetto
sumMWSTKat += sumMWST
sumBruttoKat += sumBrutto
sumNetto = 0
sumMWST = 0
sumBrutto = 0
rpt.txtNettoKatSum.Text = sumNettoKat.ToString("N2")
rpt.txtMWSTKatSum.Text = sumMWSTKat.ToString("N2")
rpt.txtBruttoKatSum.Text = sumBruttoKat.ToString("N2")
cntKat += 1
End Sub
AddHandler rpt.ReportFooter1.Format, Sub()
sumNettoGes += sumNettoKat
sumMWSTGes += sumMWSTKat
sumBruttoGes += sumBruttoKat
sumNettoKat = 0
sumMWSTKat = 0
sumBruttoKat = 0
rpt.txtNettoGesSum.Text = sumNettoGes.ToString("N2")
rpt.txtMWSTGEsSum.Text = sumMWSTGes.ToString("N2")
rpt.txtBruttoGesSum.Text = sumBruttoGes.ToString("N2")
'If cntKat <= 1 Then
' rpt.GroupFooterKat.Visible = False
'End If
End Sub
'print.Viewer.LoadDocument(rpt)
'print.Viewer.ViewType = GrapeCity.Viewer.Common.Model.ViewType.Continuous
'print.Show()
Dim tmpPath = dir & "\" & KdNr & "_PLOSE_Anhang.pdf"
Dim p As New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport
rpt.Run(False)
p.NeverEmbedFonts = ""
p.Export(rpt.Document, tmpPath)
rpt.Dispose()
Return tmpPath
Catch ex As System.Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
Return ""
End Function
End Class
Class cMDMAuswertung

6
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
@@ -164,7 +164,7 @@ Public Class usrCntlAuswertungenFiskal_IntrastatMeldung
sqlStr &= " inner join tblDakosy_EZA_Warenposition on ezaWP_EzaId=eza_Id"
' sqlStr &= " WHERE (eza_Trans_DatumZeit) Between '" & datVon.Value.ToShortDateString & "' And '" & datBis.Value.ToShortDateString & "' "
sqlStr &= " WHERE (SELECT COUNT(*) FROM [tblDakosy_Statusmeldungen] WHERE [dySt_dyId]=eza_dyaAnmID AND [dySt_status] between 60 and 70 AND CONVERT(date, [dySt_ergZeitpunkt] ,104 ) BETWEEN '" & datVon.Value.ToShortDateString & "' And '" & datBis.Value.ToShortDateString & "' )>0 "
sqlStr &= "and ezaAd_AdressTyp='UC' and eza_VerfahrenBeantragtCode LIKE '42%' and [eza_UstIdAnmelder]='DE813667748' and ezaAd_UStIDAnmelder is not null and [eza_FinanzamtAnmelder]='9153' "
sqlStr &= "and ezaAd_AdressTyp='UC' and /*eza_VerfahrenBeantragtCode LIKE '42%' and */ eza_ANR LIKE 'ATC42%' and [eza_UstIdAnmelder]='DE813667748' and ezaAd_UStIDAnmelder is not null and [eza_FinanzamtAnmelder]='9153' "
' sqlStr &= " group by eza_Id,eza_firma,eza_niederlassung,eza_ObjectName,eza_ANR,eza_Bestimmungsland,eza_ArtGeschaeftCode,eza_VerkehrszweigGrenze,eza_GesamtRohmasse,eza_Rechnungspreis,eza_Trans_DatumZeit "
End If

4
SDL/zoll/usrCntlBrgBuchungenFremd.vb
View File

@@ -60,9 +60,9 @@ Public Class usrCntlBrgBuchungenFremd
If cbxEZollDaten.Checked Then
'EZOLL:
sqlatr = " Select TOP 100 AnmeldungsDatum As Datum , (Select [CrossIdnt] FROM [zsAnmTransp] where [zsAnmTransp].AnmID=vwVERAG_Zolaris_EZoll_NCTS_Datenübernahme.AnmID ) As Kennzeichen, isnull(CRN,'') as MRN, (select [CrossIdntNat] FROM [zsAnmTransp] where [zsAnmTransp].AnmID=vwVERAG_Zolaris_EZoll_NCTS_Datenübernahme.AnmID ) as Land, cast(GarantieWert as Decimal(17,2)) as GarantieBetrag,(SELECT [Na] FROM [ezoll].[dbo].[zsAnmCarrTra] where [zsAnmCarrTra].AnmID=vwVERAG_Zolaris_EZoll_NCTS_Datenübernahme.AnmID) as Firma "
sqlatr = " Select TOP 100 AnmeldungsDatum As Datum , (Select [CrossIdnt] FROM [zsAnmTransp] where [zsAnmTransp].AnmID=vwVERAG_Zolaris_EZoll_NCTS_Datenübernahme_Eroeffnung.AnmID ) As Kennzeichen, isnull(CRN,'') as MRN, (select [CrossIdntNat] FROM [zsAnmTransp] where [zsAnmTransp].AnmID=vwVERAG_Zolaris_EZoll_NCTS_Datenübernahme_Eroeffnung.AnmID ) as Land, cast(GarantieWert as Decimal(17,2)) as GarantieBetrag,(SELECT [Na] FROM [ezoll].[dbo].[zsAnmCarrTra] where [zsAnmCarrTra].AnmID=vwVERAG_Zolaris_EZoll_NCTS_Datenübernahme_Eroeffnung.AnmID) as Firma "
sqlatr &= " " & If(cboBRG.Text.Contains("TOBB") Or cboBRG.Text.Contains("OREGON"), ", isnull(Bestimmungszollstelle,'') as Bestimmungsstelle ", "") & " "
sqlatr &= " FROM vwVERAG_Zolaris_EZoll_NCTS_Datenübernahme "
sqlatr &= " FROM vwVERAG_Zolaris_EZoll_NCTS_Datenübernahme_Eroeffnung "
sqlatr &= " WHERE GRN IN (" & cboBRG._value & ") and AnmeldungsDatum BETWEEN '" & datVon.Value.ToShortDateString & "' AND '" & datBis.Value.ToShortDateString & "' "
Dim dt2 As DataTable = SQL.loadDgvBySql(sqlatr, "EZOLL")

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

10
VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb
View File

@@ -293,6 +293,10 @@ Public Class cADMIN
End Using
Return "0"
End Function
Public Function getPwdFromUsrname(ByVal user As String, ByVal firma As String) As String
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Return SQL.getValueTxtBySql("SELECT mit_pwd FROM tblMitarbeiter where mit_username='" & user & "' COLLATE Latin1_General_CS_AS AND (mit_firma='" & firma & "' OR mit_firma='ALL' ) ", "ADMIN")
End Function
Public Function checkLogin(ByVal user As String, ByVal pwd As String, ByVal firma As String) As Boolean
@@ -381,6 +385,12 @@ Public Class cADMIN
Public Function getUstName_ByAD(Domain As String, User As String) As String
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Return SQL.getValueTxtBySql("SELECT TOP 1 [mit_username] FROM [tblMitarbeiter] WHERE [mit_AliasAD_Domain]='" & Domain & "' AND [mit_AliasAD_Username]='" & User & "'", "ADMIN")
End Function
Public Function getBezById(id As Integer) As String
Dim sql As String = "SELECT Firma_Bez FROM tblFirma WHERE Firma_ID=@id "

12
VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/frmPDFScanList.Designer.vb generated
View File

@@ -53,7 +53,7 @@ Partial Class frmPDFScanList
Me.FlowLayoutPanel.Margin = New System.Windows.Forms.Padding(1)
Me.FlowLayoutPanel.MaximumSize = New System.Drawing.Size(200, 500)
Me.FlowLayoutPanel.Name = "FlowLayoutPanel"
Me.FlowLayoutPanel.Size = New System.Drawing.Size(200, 24)
Me.FlowLayoutPanel.Size = New System.Drawing.Size(200, 14)
Me.FlowLayoutPanel.TabIndex = 1
'
'cntxtMulti
@@ -114,7 +114,7 @@ Partial Class frmPDFScanList
Me.pnlTop.Dock = System.Windows.Forms.DockStyle.Top
Me.pnlTop.Location = New System.Drawing.Point(0, 0)
Me.pnlTop.Name = "pnlTop"
Me.pnlTop.Size = New System.Drawing.Size(205, 20)
Me.pnlTop.Size = New System.Drawing.Size(222, 20)
Me.pnlTop.TabIndex = 4
'
'lblDateien
@@ -135,7 +135,7 @@ Partial Class frmPDFScanList
Me.FlatButton1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.FlatButton1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.FlatButton1.ForeColor = System.Drawing.Color.White
Me.FlatButton1.Location = New System.Drawing.Point(177, 0)
Me.FlatButton1.Location = New System.Drawing.Point(194, 0)
Me.FlatButton1.Name = "FlatButton1"
Me.FlatButton1.Size = New System.Drawing.Size(26, 20)
Me.FlatButton1.TabIndex = 0
@@ -148,7 +148,7 @@ Partial Class frmPDFScanList
Me.listlOld.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.listlOld.Dock = System.Windows.Forms.DockStyle.Bottom
Me.listlOld.FlowDirection = System.Windows.Forms.FlowDirection.TopDown
Me.listlOld.Location = New System.Drawing.Point(0, 59)
Me.listlOld.Location = New System.Drawing.Point(0, 49)
Me.listlOld.Margin = New System.Windows.Forms.Padding(1)
Me.listlOld.MaximumSize = New System.Drawing.Size(200, 200)
Me.listlOld.MinimumSize = New System.Drawing.Size(2, 10)
@@ -163,9 +163,9 @@ Partial Class frmPDFScanList
Me.pnlOldHeader.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pnlOldHeader.Controls.Add(Me.Label1)
Me.pnlOldHeader.Dock = System.Windows.Forms.DockStyle.Bottom
Me.pnlOldHeader.Location = New System.Drawing.Point(0, 44)
Me.pnlOldHeader.Location = New System.Drawing.Point(0, 34)
Me.pnlOldHeader.Name = "pnlOldHeader"
Me.pnlOldHeader.Size = New System.Drawing.Size(205, 15)
Me.pnlOldHeader.Size = New System.Drawing.Size(222, 15)
Me.pnlOldHeader.TabIndex = 6
Me.pnlOldHeader.Visible = False
'

2
VERAG_PROG_ALLGEMEIN/Classes/cAdressen.vb
View File

@@ -154,7 +154,7 @@ Public Class cAdressen
Return False
End If
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM Adressen /*WITH(updlock,serializable)*/ WHERE AdressenNr=@AdressenNr) " &
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM Adressen WHERE AdressenNr=@AdressenNr) " &
" BEGIN " & getUpdateCmd() & " END " &
" Else " &
" BEGIN " & getInsertCmd() & " END " &

163
VERAG_PROG_ALLGEMEIN/Classes/cAvisoAnhaenge.vb Normal file
View File

@@ -0,0 +1,163 @@
Imports System.Data.SqlClient
Imports System.Reflection
Public Class cAvisoAnhaenge
Property anh_id As Integer
Property anh_AvisoId As Integer
Property anh_SendungsId As Object = Nothing
Property anh_Name As String
Property anh_docId As Integer
Property anh_Art As Object = Nothing
Property anh_Typ As String
Property anh_Reihenfolge As Integer = 99
Public hasEntry As Boolean = False
Dim SQL As New SQL
Sub New()
End Sub
Sub New(anh_id)
If anh_id IsNot Nothing Then
Me.anh_id = anh_id
LOAD()
End If
End Sub
Sub New(anh_AvisoId, anh_Name, anh_docId, anh_Art, anh_Typ, Optional anh_SendungsId = Nothing, Optional anh_Reihenfolge = 99)
Me.anh_AvisoId = anh_AvisoId
Me.anh_SendungsId = anh_SendungsId
Me.anh_Name = anh_Name
Me.anh_docId = anh_docId
Me.anh_Art = anh_Art
Me.anh_Typ = anh_Typ
Me.anh_Reihenfolge = anh_Reihenfolge
End Sub
Public Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("anh_id", anh_id, , True, True))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("anh_AvisoId", anh_AvisoId))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("anh_SendungsId", anh_SendungsId))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("anh_Name", anh_Name))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("anh_docId", anh_docId))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("anh_Art", anh_Art))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("anh_Typ", anh_Typ))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("anh_Reihenfolge", anh_Reihenfolge))
Return list
End Function
Shared Sub LOAD_LIST_ByAviso(ByRef ANH_LIST As List(Of cAvisoAnhaenge), anh_AvisoId As Integer)
If ANH_LIST Is Nothing Then ANH_LIST = New List(Of cAvisoAnhaenge)
ANH_LIST.Clear()
Dim SQL As New SQL
For Each r In SQL.loadDgvBySql("SELECT anh_id FROM tblAvisoAnhaenge WHERE anh_AvisoId=" & anh_AvisoId & " ORDER BY anh_Reihenfolge,anh_Name,anh_id", "AVISO").Rows
ANH_LIST.Add(New VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge(r("anh_id")))
Next
' If allowchangeCurrIndex Then CURRENT_INDEX = IIf(ANH_LIST.Count > 0, 0, -1)
End Sub
Shared Sub LOAD_LIST_BySendung(ByRef ANH_LIST As List(Of cAvisoAnhaenge), anh_SendungsId As Integer)
If ANH_LIST Is Nothing Then ANH_LIST = New List(Of cAvisoAnhaenge)
ANH_LIST.Clear()
Dim SQL As New SQL
For Each r In SQL.loadDgvBySql("SELECT anh_id FROM tblAvisoAnhaenge WHERE anh_SendungsId=" & anh_SendungsId & " ORDER BY anh_Reihenfolge,anh_Name,anh_id", "AVISO").Rows
ANH_LIST.Add(New VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge(r("anh_id")))
Next
' If allowchangeCurrIndex Then CURRENT_INDEX = IIf(ANH_LIST.Count > 0, 0, -1)
End Sub
Public Function SAVE(Optional errHinweis = "") As Boolean
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblAvisoAnhaenge WITH(updlock,serializable) WHERE anh_id=@anh_id) " &
" BEGIN " & getUpdateCmd() & " END " &
" Else " &
" BEGIN " & getInsertCmd() & " END " &
" commit tran "
anh_id = SQL.doSQLVarListID(anh_id, sqlstr, "AVISO", , list,, errHinweis)
Return anh_id > 0
End Function
Public Sub LOAD()
Try
Using conn As SqlConnection = SQL.GetNewOpenConnectionAVISO()
Using cmd As New SqlCommand("SELECT * FROM tblAvisoAnhaenge WHERE anh_id=@anh_id ", conn)
cmd.Parameters.AddWithValue("@anh_id", anh_id)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
End If
hasEntry = True
Next
End If
dr.Close()
End Using
End Using
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
End Sub
Public Function getUpdateCmd() As String
Try
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim str As String = ""
For Each i In list
If Not i.isPrimaryParam Then
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
End If
Next
str = str.Substring(0, str.Length - 1) 'wg. ','
Return (" UPDATE [tblAvisoAnhaenge] SET " & str & " WHERE anh_id=@anh_id ")
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
Return ""
End Function
Public Function getInsertCmd() As String
Try
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim str As String = ""
Dim values As String = ""
For Each i In list
If Not i.isPrimaryParam Then
str &= "[" & i.Text & "],"
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
End If
Next
str = str.Substring(0, str.Length - 1) 'wg. ','
values = values.Substring(0, values.Length - 1) 'wg. ','
Return (" INSERT INTO tblAvisoAnhaenge (" & str & ") VALUES(" & values & ") ")
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
Return ""
End Function
Public Function DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
Dim sqlstr = " DELETE FROM [tblAvisoAnhaenge] WITH(updlock,serializable) WHERE anh_id=" & Me.anh_id
Return SQL.doSQL(sqlstr, "AVISO")
End Function
Public Shared Function DELETE(id As Integer) As Boolean 'obj As Object, tablename As String, where As String) As Boolean
Dim sqlstr = " DELETE FROM [tblAvisoAnhaenge] WITH(updlock,serializable) WHERE anh_id=" & id
Return (New VERAG_PROG_ALLGEMEIN.SQL).doSQL(sqlstr, "AVISO")
End Function
End Class

3
VERAG_PROG_ALLGEMEIN/Classes/cBonitaetsauskunft.vb
View File

@@ -24,7 +24,7 @@ Public Class cBonitaetsauskunft
Property ba_Zahlungsweise As Object = Nothing
Property ba_GFName As Object = Nothing
Property ba_Sonstiges As Object = Nothing
Property ba_Risikostufe As Object = Nothing
Dim SQL As New SQL
@@ -59,6 +59,7 @@ Public Class cBonitaetsauskunft
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ba_Zahlungsweise", ba_Zahlungsweise))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ba_GFName", ba_GFName))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ba_Sonstiges", ba_Sonstiges))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ba_Risikostufe", ba_Risikostufe))
Return list
End Function

131
VERAG_PROG_ALLGEMEIN/Classes/cGelangensbestaetigung.vb Normal file
View File

@@ -0,0 +1,131 @@

Imports System.Data.SqlClient
Imports System.Reflection
Public Class cGelangensbestaetigung
Property gb_nr As Integer
Property gb_firma As Object = Nothing
Property gb_KdNr As Object = Nothing
Property gb_datetime As Date
Property gb_sachbearbeiter As Object = Nothing
Property gb_sachbearbeiterid As Integer
Dim SQL As New SQL
Sub New(gb_nr As Integer)
Me.gb_nr = gb_nr
Me.gb_sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
Me.gb_sachbearbeiterid = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
Me.gb_datetime = Now
LOAD()
End Sub
Sub New(gb_firma As String, gb_KdNr As Object)
Me.gb_nr = SQL.getValueTxtBySqlVarList("SELECT isnull(MAX([gb_nr])+1,( YEAR( GETDATE() ) % 100 ) * 1000000) FROM [tblGelangensbestaetigung] WHERE left(cast([gb_nr] as VARCHAR),2) = ( YEAR( GETDATE() ) % 100 )", "FMZOLL")
Me.gb_firma = gb_firma
Me.gb_KdNr = gb_KdNr
Me.gb_sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
Me.gb_sachbearbeiterid = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
Me.gb_datetime = Now
End Sub
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gb_nr", gb_nr))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gb_firma", gb_firma))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gb_KdNr", gb_KdNr))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gb_datetime", gb_datetime))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gb_sachbearbeiter", gb_sachbearbeiter))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gb_sachbearbeiterid", gb_sachbearbeiterid))
Return list
End Function
Public Function SAVE() As Boolean
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblGelangensbestaetigung WITH(updlock,serializable) WHERE gb_nr=@gb_nr) " &
" BEGIN " & getUpdateCmd() & " END " &
" Else " &
" BEGIN " & getInsertCmd() & " END " &
" commit tran "
Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list)
End Function
Public Sub LOAD()
Try
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
Using cmd As New SqlCommand("SELECT * FROM tblGelangensbestaetigung WHERE gb_nr=@gb_nr ", conn)
cmd.Parameters.AddWithValue("@gb_nr", gb_nr)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
End If
Next
End If
dr.Close()
End Using
End Using
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
End Sub
Public Function getUpdateCmd() As String
Try
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim str As String = ""
For Each i In list
If Not i.isPrimaryParam Then
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
End If
Next
str = str.Substring(0, str.Length - 1) 'wg. ','
Return (" UPDATE [tblGelangensbestaetigung] SET " & str & " WHERE gb_nr=@gb_nr ")
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
Return ""
End Function
Public Function getInsertCmd() As String
Try
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim str As String = ""
Dim values As String = ""
For Each i In list
If Not i.isPrimaryParam Then
str &= "[" & i.Text & "],"
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
End If
Next
str = str.Substring(0, str.Length - 1) 'wg. ','
values = values.Substring(0, values.Length - 1) 'wg. ','
Return (" INSERT INTO tblGelangensbestaetigung (" & str & ") VALUES(" & values & ") ")
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
Return ""
End Function
End Class

2
VERAG_PROG_ALLGEMEIN/Classes/cKunde.vb
View File

@@ -235,7 +235,7 @@ Public Class cKunde
MsgBox("Fehler: KundenNr <= 0!")
Return False
End If
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM Kunden /*WITH(updlock,serializable)*/ WHERE KundenNr=@KundenNr) " &
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM Kunden WHERE KundenNr=@KundenNr) " &
" BEGIN " & getUpdateCmd() & " END " &
" Else " &
" BEGIN " & getInsertCmd() & " END " &

4
VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb
View File

@@ -42,6 +42,7 @@ Public Class cKundenErweitert
Property Zahlungsziel3 As Object = Nothing
Property EmailAnkunft_Export As Boolean = False
Property EmailFreigabe_Export As Boolean = False
Property kde_BonitaetsStufe As Object = Nothing
@@ -88,6 +89,7 @@ Public Class cKundenErweitert
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Zahlungsziel3", Zahlungsziel3))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EmailAnkunft_Export", EmailAnkunft_Export))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EmailFreigabe_Export", EmailFreigabe_Export))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_BonitaetsStufe", kde_BonitaetsStufe))
Return list
End Function
@@ -97,7 +99,7 @@ Public Class cKundenErweitert
Public Function SAVE() As Boolean
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblKundenErweitert WITH(updlock,serializable) WHERE kde_KundenNr=@kde_KundenNr) " &
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblKundenErweitert WHERE kde_KundenNr=@kde_KundenNr) " &
" BEGIN " & getUpdateCmd() & " END " &
" Else " &
" BEGIN " & getInsertCmd() & " END " &

20
VERAG_PROG_ALLGEMEIN/Classes/cKundenKontakte.vb
View File

@@ -163,7 +163,7 @@ Public Class cKundenKontakte
Public Function SAVE() As Boolean
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblKundenKontakt WITH(updlock,serializable) WHERE kkd_id=@kkd_id) " &
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblKundenKontakt WHERE kkd_id=@kkd_id) " &
" BEGIN " & getUpdateCmd() & " END " &
" Else " &
" BEGIN " & getInsertCmd() & " END " &
@@ -237,4 +237,22 @@ Public Class cKundenKontakte
End If
Return ""
End Function
Shared Function getKdNrFromMailAdress(KMail As String, Optional serchInKd As Boolean = True) As Integer
getKdNrFromMailAdress = -1
If KMail = "" Then Return -1
If Not KMail.Contains("@") Then Return -1
Dim SQL As New SQL
getKdNrFromMailAdress = SQL.getValueTxtBySql("SELECT TOP 1 [kkd_KundenNr] FROM [tblKundenKontakt] where kkd_Email LIKE ('%" & KMail & "%') AND kkd_kkaBez='OUTLOOK_AVISO_Eingang'", "FMZOLL",,, -1)
If serchInKd AndAlso getKdNrFromMailAdress < 0 Then
getKdNrFromMailAdress = SQL.getValueTxtBySql("SELECT TOP 1 AdressenNr FROM Adressen WHERE [E-Mail] LIKE ('%" & KMail & "%') ", "FMZOLL",,, -1)
If getKdNrFromMailAdress < 0 Then
Dim sp = KMail.Split("@")
getKdNrFromMailAdress = SQL.getValueTxtBySql("SELECT TOP 1 AdressenNr FROM Adressen WHERE [E-Mail] LIKE ('%" & sp(1) & "%') ", "FMZOLL",,, -1)
End If
End If
End Function
End Class

4
VERAG_PROG_ALLGEMEIN/Classes/cKundenVermerk.vb
View File

@@ -191,7 +191,7 @@ Public Class cKundenVermerkItem
Public Function SAVE() As Boolean
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblKundenVermerke WITH(updlock,serializable) WHERE kvm_id=@kvm_id) " &
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblKundenVermerke WHERE kvm_id=@kvm_id) " &
" BEGIN " & getUpdateCmd() & " END " &
" Else " &
" BEGIN " & getInsertCmd() & " END " &
@@ -203,7 +203,7 @@ Public Class cKundenVermerkItem
Public Function DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
Dim sqlstr = " DELETE FROM [tblKundenVermerke] WITH(updlock,serializable) WHERE kvm_id=" & Me.kvm_id
Dim sqlstr = " DELETE FROM [tblKundenVermerke] WHERE kvm_id=" & Me.kvm_id
Return SQL.doSQL(sqlstr, "FMZOLL")
End Function

5
VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb
View File

@@ -48,6 +48,9 @@ Public Class cMitarbeiter
Property mit_TELOTEC_SB As Object = Nothing
Property mit_AliasAD_Domain As Object = Nothing
Property mit_AliasAD_Username As Object = Nothing
Sub New()
End Sub
@@ -116,6 +119,8 @@ Public Class cMitarbeiter
If Not dr.Item("mit_FirmenDatenAnzeige") Is DBNull.Value Then Me.mit_FirmenDatenAnzeige = dr.Item("mit_FirmenDatenAnzeige")
If Not dr.Item("mit_TELOTEC_SB") Is DBNull.Value Then Me.mit_TELOTEC_SB = dr.Item("mit_TELOTEC_SB")
If Not dr.Item("mit_AliasAD_Domain") Is DBNull.Value Then Me.mit_AliasAD_Domain = dr.Item("mit_AliasAD_Domain")
If Not dr.Item("mit_AliasAD_Username") Is DBNull.Value Then Me.mit_AliasAD_Username = dr.Item("mit_AliasAD_Username")

2
VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb
View File

@@ -288,7 +288,7 @@ Public Class cRechnungsausgang
Public Function SAVE_DruckDatumZeit() As Boolean
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim sqlstr = " UPDATE Rechnungsausgang SET DruckDatumZeit=@DruckDatumZeit WHERE RK_ID=@RK_ID) "
Dim sqlstr = " UPDATE Rechnungsausgang SET DruckDatumZeit=@DruckDatumZeit WHERE RK_ID=@RK_ID "
Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list)
End Function

173
VERAG_PROG_ALLGEMEIN/Classes/cZollArtikel.vb Normal file
View File

@@ -0,0 +1,173 @@

Imports System.Data.SqlClient
Imports System.Reflection
Public Class cZollArtikel
Property zollArt_id As Integer
Property KundenNr As Integer
Property zollArt_Teilsatzschluessel As Object = Nothing
Property zollArt_Verarbeitungskennzeichen As Object = Nothing
Property zollArt_Artikelnummer As Object = Nothing
Property zollArt_Dynamische_Ergaenzung_1 As Object = Nothing
Property zollArt_Dynamische_Ergaenzung_2 As Object = Nothing
Property zollArt_Kundennummer As Object = Nothing
Property zollArt_Warencodenummer As Object = Nothing
Property zollArt_Zusatzcode_1 As Object = Nothing
Property zollArt_Zusatzcode_2 As Object = Nothing
Property zollArt_Kennzeichen_Gueltig As Object = Nothing
Property zollArt_Kurzbezeichnung As Object = Nothing
Property zollArt_Warenbeschreibung As Object = Nothing
Property zollArt_Statistische_Maßeinheit As Object = Nothing
Property zollArt_Statistische_Maßeinheit_Qualifikator As Object = Nothing
Property zollArt_Besondere_Maßeinheit As Object = Nothing
Property zollArt_Besondere_Maßeinheit_Qualifikator As Object = Nothing
Property zollArt_Gewicht As Object = Nothing
Property zollArt_Menge As Object = Nothing
Property Erfassungsdatum As Object = Nothing
Property Aenderungsdatum As Object = Nothing
Property Sachbearbeiter As Object = Nothing
Property zollArt_Status As Object = Nothing
Public hasEntry As Boolean = False
Dim SQL As New SQL
Sub New()
End Sub
Sub New(zollArt_id)
If zollArt_id IsNot Nothing Then
Me.zollArt_id = zollArt_id
LOAD()
End If
End Sub
Public Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zollArt_id", zollArt_id, , True, True))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KundenNr", KundenNr))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zollArt_Teilsatzschluessel", zollArt_Teilsatzschluessel))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zollArt_Verarbeitungskennzeichen", zollArt_Verarbeitungskennzeichen))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zollArt_Artikelnummer", zollArt_Artikelnummer))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zollArt_Dynamische_Ergaenzung_1", zollArt_Dynamische_Ergaenzung_1))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zollArt_Dynamische_Ergaenzung_2", zollArt_Dynamische_Ergaenzung_2))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zollArt_Kundennummer", zollArt_Kundennummer))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zollArt_Warencodenummer", zollArt_Warencodenummer))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zollArt_Zusatzcode_1", zollArt_Zusatzcode_1))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zollArt_Zusatzcode_2", zollArt_Zusatzcode_2))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zollArt_Kennzeichen_Gueltig", zollArt_Kennzeichen_Gueltig))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zollArt_Kurzbezeichnung", zollArt_Kurzbezeichnung))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zollArt_Warenbeschreibung", zollArt_Warenbeschreibung))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zollArt_Statistische_Maßeinheit", zollArt_Statistische_Maßeinheit))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zollArt_Statistische_Maßeinheit_Qualifikator", zollArt_Statistische_Maßeinheit_Qualifikator))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zollArt_Besondere_Maßeinheit", zollArt_Besondere_Maßeinheit))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zollArt_Besondere_Maßeinheit_Qualifikator", zollArt_Besondere_Maßeinheit_Qualifikator))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zollArt_Gewicht", zollArt_Gewicht))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zollArt_Menge", zollArt_Menge))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Erfassungsdatum", Erfassungsdatum))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Aenderungsdatum", Aenderungsdatum))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Sachbearbeiter", Sachbearbeiter))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zollArt_Status", zollArt_Status))
Return list
End Function
Public Function SAVE(Optional errHinweis = "") As Boolean
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblZollArtikel WHERE zollArt_id=@zollArt_id) " &
" BEGIN " & getUpdateCmd() & " End " &
" Else " &
" BEGIN " & getInsertCmd() & " End " &
" commit tran "
zollArt_id = SQL.doSQLVarListID(zollArt_id, sqlstr, "FMZOLL", , list,, errHinweis)
Return zollArt_id > 0
End Function
Public Sub LOAD()
Try
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
Using cmd As New SqlCommand("Select * FROM tblZollArtikel WHERE zollArt_id=@zollArt_id ", conn)
cmd.Parameters.AddWithValue("@zollArt_id", zollArt_id)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
End If
hasEntry = True
Next
End If
dr.Close()
End Using
End Using
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
End Sub
Public Function getUpdateCmd() As String
Try
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim str As String = ""
For Each i In list
If Not i.isPrimaryParam Then
str &= "" & i.Text & " = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
End If
Next
str = str.Substring(0, str.Length - 1) 'wg. ','
Return (" UPDATE tblZollArtikel SET " & str & " WHERE zollArt_id=@zollArt_id ")
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
Return ""
End Function
Public Function getInsertCmd() As String
Try
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim str As String = ""
Dim values As String = ""
For Each i In list
If Not i.isPrimaryParam Then
str &= "" & i.Text & ","
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
End If
Next
str = str.Substring(0, str.Length - 1) 'wg. ','
values = values.Substring(0, values.Length - 1) 'wg. ','
Return (" INSERT INTO tblZollArtikel (" & str & ") VALUES(" & values & ") ")
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
Return ""
End Function
Public Function DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
Dim sqlstr = " DELETE FROM tblZollArtikel WITH(updlock,serializable) WHERE zollArt_id=" & Me.zollArt_id
Return SQL.doSQL(sqlstr, "FMZOLL")
End Function
Public Shared Function DELETE(id As Integer) As Boolean
Dim SQL As New SQL
Dim sqlstr = " DELETE FROM tblZollArtikel WHERE zollArt_id=" & id
Return SQL.doSQL(sqlstr, "FMZOLL")
End Function
End Class

15
VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb
View File

@@ -212,7 +212,6 @@ Public Class cDATENSERVER
Return (destpath <> "")
End If
Return ""
End Function
Public Function insertDataToDATENSERVER(srcPath, Optional bezeichnung = "", Optional endung = "", Optional allowMsg = True, Optional coll_archiv = False) As Boolean
@@ -443,7 +442,7 @@ Public Class cDATENSERVER
' End Try
'End Function
Public Sub DELETE_COMPLETE()
Public Function DELETE_COMPLETE() As Boolean
Try
If DATA_LIST.DELETE_ALL() Then
' Dim path = SQL.getValueTxtBySql("SELECT TOP 1 isnull([coll_pfad],'') FROM [tblDatenarchiv] INNER JOIN [tblDatenarchiv_Collection] ON [da_id]=[coll_daId] WHERE da_id='" & da_id & "' ", "FMZOLL")
@@ -455,8 +454,11 @@ Public Class cDATENSERVER
'SQL.doSQL("DELETE FROM [tblDatenarchiv_Collection] WHERE [coll_daId]=" & id & " ", "FMZOLL")
End If
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
Return False
End Try
End Sub
Return True
End Function
@@ -1156,7 +1158,9 @@ Public Class cDatenarchiv_Collection
If coll_pfad.Contains("\\192.168.0.91\DATENARCHIV\") Then 'Um sicher zu gehen, dass der pfad im richtigem VZ ist.
If My.Computer.FileSystem.FileExists(coll_pfad) Then
saveFileToDel(coll_pfad)
IO.File.Delete(coll_pfad)
Try
IO.File.Delete(coll_pfad)
Catch : End Try
Return SQL.doSQL("DELETE FROM [tblDatenarchiv_Collection] WHERE [coll_id]=" & coll_id & " ", "FMZOLL")
Else
Return True
@@ -1286,7 +1290,7 @@ Public Class cDatenserverIDCollectionList
LIST.Clear()
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
'Using cmd As New SqlCommand("SELECT coll_id, coll_daId, da_pfad, da_name FROM tblDatenarchiv_Collection INNER JOIN tblDatenarchiv ON coll_daId=da_id WHERE coll_id=@coll_id ", conn)
Using cmd As New SqlCommand("SELECT coll_id, coll_daId, coll_pfad, coll_bezeichnung,coll_info,coll_archiv FROM tblDatenarchiv_Collection WHERE coll_daId=@coll_daId ", conn)
Using cmd As New SqlCommand("SELECT coll_id, coll_daId, coll_pfad, coll_bezeichnung,coll_info,coll_archiv FROM tblDatenarchiv_Collection WHERE coll_daId=@coll_daId order by coll_bezeichnung ", conn)
cmd.Parameters.AddWithValue("@coll_daId", Me.coll_daId)
Dim dr = cmd.ExecuteReader()
'LIST = New List(Of cDatenarchiv_Collection)
@@ -1423,6 +1427,7 @@ Public Class DATENVERVER_OPTIONS
Shared Function getTMPPath(name As String, extension As String, Optional special As Boolean = False, Optional delete As Boolean = True, Optional unterOrdner As String = "") As String
Dim TMP_PATH2 = TMP_PATH & If(unterOrdner <> "", "\" & unterOrdner & "\", "")
TMP_PATH2 = TMP_PATH2.replace("\\", "\")
If Not My.Computer.FileSystem.DirectoryExists(TMP_PATH2) Then
My.Computer.FileSystem.CreateDirectory(TMP_PATH2)
End If

2694
VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/OUT_NCTS/VERAG_out_ncts.Designer.vb generated Normal file
View File

File diff suppressed because it is too large Load Diff

130
VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/OUT_NCTS/VERAG_out_ncts.xsd Normal file
View File

@@ -0,0 +1,130 @@
<?xml version="1.0" encoding="UTF-8"?>
<!-- Mit XMLSpy v2017 rel. 3 sp1 (x64) (http://www.altova.com) von Andreas Luxbauer (VERAG Spedition AG) bearbeitet -->
<xs:schema xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:vc="http://www.w3.org/2007/XMLSchema-versioning" elementFormDefault="qualified" attributeFormDefault="unqualified" vc:minVersion="1.1">
<xs:element name="VERAG_out_ncts">
<xs:complexType>
<xs:sequence>
<xs:element name="Version"/>
<xs:element name="Company"/>
<xs:element name="Department" minOccurs="0"/>
<xs:element name="InternalReference" minOccurs="0">
<xs:complexType>
<xs:sequence>
<xs:element name="OfficeCode"/>
<xs:element name="PositionNumber"/>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="ProcessData">
<xs:complexType>
<xs:sequence>
<xs:element name="Status"/>
<xs:element name="TransactionDate"/>
<xs:element name="MRN"/>
<xs:element name="ReferenzNumber"/>
<xs:element name="ProcedureCode"/>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="NCTS_Data">
<xs:complexType>
<xs:sequence>
<xs:element name="DatDeterminationLimit" type="xs:date"/>
<xs:element name="LicensePlate"/>
<xs:element name="DepartureCustomsOffice"/>
<xs:element name="DestinationCustomsOffice"/>
<xs:element name="DepartureCountry"/>
<xs:element name="DestinationCountry"/>
<xs:element name="Sender" minOccurs="0">
<xs:complexType>
<xs:sequence>
<xs:element name="Name"/>
<xs:element name="Adress" minOccurs="0">
<xs:complexType>
<xs:sequence>
<xs:element name="Country" minOccurs="0"/>
<xs:element name="Postcode" minOccurs="0"/>
<xs:element name="City" minOccurs="0"/>
<xs:element name="Street" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="EORI"/>
<xs:element name="EORI_NL"/>
<xs:element name="UID_Nr" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="Consignee" minOccurs="0">
<xs:complexType>
<xs:sequence>
<xs:element name="Name"/>
<xs:element name="Adress" minOccurs="0">
<xs:complexType>
<xs:sequence>
<xs:element name="Country" minOccurs="0"/>
<xs:element name="Postcode" minOccurs="0"/>
<xs:element name="City" minOccurs="0"/>
<xs:element name="Street" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="EORI"/>
<xs:element name="EORI_NL"/>
<xs:element name="UID_Nr" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="Carrier" minOccurs="0">
<xs:complexType>
<xs:sequence>
<xs:element name="Name"/>
<xs:element name="Adress" minOccurs="0">
<xs:complexType>
<xs:sequence>
<xs:element name="Country" minOccurs="0"/>
<xs:element name="Postcode" minOccurs="0"/>
<xs:element name="City" minOccurs="0"/>
<xs:element name="Street" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="EORI"/>
<xs:element name="EORI_NL"/>
<xs:element name="UID_Nr" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="Garantee" minOccurs="0">
<xs:complexType>
<xs:sequence>
<xs:element name="GRN"/>
<xs:element name="Amount"/>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="SumGrossWeight" type="xs:decimal" minOccurs="0"/>
<xs:element name="Position" minOccurs="0">
<xs:complexType>
<xs:sequence>
<xs:element name="Position" maxOccurs="999">
<xs:complexType>
<xs:sequence>
<xs:element name="PosNr"/>
<xs:element name="Quantity" minOccurs="0"/>
<xs:element name="Packaging" minOccurs="0"/>
<xs:element name="GoodsDescription" minOccurs="0"/>
<xs:element name="GrossWeight" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
</xs:element>
</xs:sequence>
</xs:complexType>
</xs:element>
</xs:sequence>
</xs:complexType>
</xs:element>
</xs:sequence>
</xs:complexType>
</xs:element>
</xs:schema>

7
VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/cVERAG_OUT_NCTS.vb Normal file
View File

@@ -0,0 +1,7 @@
Public Class cVERAG_OUT_NCTS
Shared Function genVERAG_OUT_NCTS_FromDAKOSY(DY_BezugsNr)
Dim OUT As New cVERAG_OUT_NCTS
Dim DY As New DateTimeKind
End Function
End Class

17
VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj
View File

@@ -73,7 +73,8 @@
<Reference Include="Ghostscript.NET">
<HintPath>..\..\..\dll\Ghostscript.NET.dll</HintPath>
</Reference>
<Reference Include="itextsharp">
<Reference Include="itextsharp, Version=5.5.5.0, Culture=neutral, PublicKeyToken=8354ae6d2174ddca, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\dll\itextsharp.dll</HintPath>
</Reference>
<Reference Include="McDull.Windows.Forms">
@@ -105,6 +106,12 @@
<Reference Include="System.Core" />
<Reference Include="System.Xml.Linq" />
<Reference Include="System.Data.DataSetExtensions" />
<Reference Include="Viscomsoft.PDFViewer">
<HintPath>C:\Program Files (x86)\Viscomsoft .NET PDF Viewer SDK\Examples\VB.NET2010\Viewer\lib\Viscomsoft.PDFViewer.dll</HintPath>
</Reference>
<Reference Include="ViscomsoftPDFCore">
<HintPath>C:\Program Files (x86)\Viscomsoft .NET PDF Viewer SDK\Examples\VB.NET2010\Viewer\lib\ViscomsoftPDFCore.dll</HintPath>
</Reference>
</ItemGroup>
<ItemGroup>
<Import Include="Microsoft.VisualBasic" />
@@ -271,12 +278,14 @@
<Compile Include="cErrorHandler.vb" />
<Compile Include="Classes\cAbfertigungsarten.vb" />
<Compile Include="Classes\cAbgaben.vb" />
<Compile Include="Classes\cAvisoAnhaenge.vb" />
<Compile Include="Classes\cBonitaetsauskunft.vb" />
<Compile Include="Classes\cDHF_Anhaenge.vb" />
<Compile Include="Classes\cEZB_Waehrungskurse.vb" />
<Compile Include="Classes\cEZT_ImportCodenummern.vb" />
<Compile Include="Classes\cFirmen.vb" />
<Compile Include="Classes\cFremdSpeditionenZuordnung.vb" />
<Compile Include="Classes\cGelangensbestaetigung.vb" />
<Compile Include="Classes\cGestellungsgarantien.vb" />
<Compile Include="Classes\cGestellungsmitteilung.vb" />
<Compile Include="Classes\cKundenAufschubkonten.vb" />
@@ -297,6 +306,7 @@
<Compile Include="Classes\cVorauskasse.vb" />
<Compile Include="Classes\cWarenbezeichnungBegriffe.vb" />
<Compile Include="Classes\cZkteing.vb" />
<Compile Include="Classes\cZollArtikel.vb" />
<Compile Include="Classes\SendFileTo.vb" />
<Compile Include="cProgramFunktions.vb" />
<Compile Include="DATENSERVER\cDATENSERVER.vb" />
@@ -371,6 +381,8 @@
</Compile>
<Compile Include="Schnittstellen\cDVO_Interface.vb" />
<Compile Include="Schnittstellen\cSyska_Interface.vb" />
<Compile Include="Schnittstellen\VERAG\cVERAG_OUT_NCTS.vb" />
<Compile Include="Schnittstellen\VERAG\OUT_NCTS\VERAG_out_ncts.Designer.vb" />
<Compile Include="Web References\UIDPruefung\Reference.vb">
<AutoGen>True</AutoGen>
<DesignTime>True</DesignTime>
@@ -445,6 +457,9 @@
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
</None>
<None Include="App.config" />
<None Include="Schnittstellen\VERAG\OUT_NCTS\VERAG_out_ncts.xsd">
<SubType>Designer</SubType>
</None>
<None Include="Web References\UIDPruefung\checkVatService.wsdl" />
<None Include="Web References\UIDPruefung\matchCode.datasource">
<DependentUpon>Reference.map</DependentUpon>

29
VERAG_PROG_ALLGEMEIN/frmScan.Designer.vb generated
View File

@@ -22,6 +22,7 @@ Partial Class frmScan
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmScan))
Me.dsViewer = New Dynamsoft.Forms.DSViewer()
Me.btn = New System.Windows.Forms.Button()
@@ -56,6 +57,7 @@ Partial Class frmScan
Me.tbxCurrentImageIndex = New System.Windows.Forms.Label()
Me.tbxTotalImageNum = New System.Windows.Forms.Label()
Me.pnl = New System.Windows.Forms.Panel()
Me.UsrcntlPDFScan1 = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
Me.grpFarbe.SuspendLayout()
Me.grpTyp.SuspendLayout()
Me.pnl.SuspendLayout()
@@ -67,7 +69,7 @@ Partial Class frmScan
Me.dsViewer.Location = New System.Drawing.Point(8, 11)
Me.dsViewer.Name = "dsViewer"
Me.dsViewer.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.dsViewer.SelectionRectAspectRatio = 0.0R
Me.dsViewer.SelectionRectAspectRatio = 0R
Me.dsViewer.Size = New System.Drawing.Size(463, 626)
Me.dsViewer.TabIndex = 0
'
@@ -274,12 +276,16 @@ Partial Class frmScan
'
'tbxSaveFileName
'
Me.tbxSaveFileName._DateTimeOnly = False
Me.tbxSaveFileName._numbersOnly = False
Me.tbxSaveFileName._numbersOnlyKommastellen = ""
Me.tbxSaveFileName._Prozent = False
Me.tbxSaveFileName._ShortDateNew = False
Me.tbxSaveFileName._ShortDateOnly = False
Me.tbxSaveFileName._TimeOnly = False
Me.tbxSaveFileName._value = Nothing
Me.tbxSaveFileName._Waehrung = False
Me.tbxSaveFileName._WaehrungZeichen = True
Me.tbxSaveFileName.ForeColor = System.Drawing.Color.Black
Me.tbxSaveFileName.Location = New System.Drawing.Point(536, 563)
Me.tbxSaveFileName.MaxLineLength = -1
@@ -426,6 +432,7 @@ Partial Class frmScan
'
'pnl
'
Me.pnl.Controls.Add(Me.UsrcntlPDFScan1)
Me.pnl.Controls.Add(Me.Label2)
Me.pnl.Controls.Add(Me.dsViewer)
Me.pnl.Controls.Add(Me.Button3)
@@ -454,6 +461,25 @@ Partial Class frmScan
Me.pnl.Size = New System.Drawing.Size(741, 683)
Me.pnl.TabIndex = 21
'
'UsrcntlPDFScan1
'
Me.UsrcntlPDFScan1._ARCHIV = False
Me.UsrcntlPDFScan1._DATENSERVER_KATEGORIE = "DOKUMENTE"
Me.UsrcntlPDFScan1._DATENSERVER_ORDNER = ""
Me.UsrcntlPDFScan1._DATENSERVER_UOrdner1 = ""
Me.UsrcntlPDFScan1._DATENSERVER_UOrdner2 = ""
Me.UsrcntlPDFScan1._DATENSERVER_UOrdner3 = ""
Me.UsrcntlPDFScan1._MULTI_FILES = False
Me.UsrcntlPDFScan1._TEXT_PDF = Nothing
Me.UsrcntlPDFScan1.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.UsrcntlPDFScan1.BackColor = System.Drawing.Color.White
Me.UsrcntlPDFScan1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.UsrcntlPDFScan1.Cursor = System.Windows.Forms.Cursors.Hand
Me.UsrcntlPDFScan1.Location = New System.Drawing.Point(344, 349)
Me.UsrcntlPDFScan1.Name = "UsrcntlPDFScan1"
Me.UsrcntlPDFScan1.Size = New System.Drawing.Size(8, 8)
Me.UsrcntlPDFScan1.TabIndex = 21
'
'frmScan
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -507,4 +533,5 @@ Partial Class frmScan
Friend WithEvents tbxCurrentImageIndex As System.Windows.Forms.Label
Friend WithEvents tbxTotalImageNum As System.Windows.Forms.Label
Friend WithEvents pnl As System.Windows.Forms.Panel
Friend WithEvents UsrcntlPDFScan1 As usrcntlPDFScan
End Class

4
VERAG_PROG_ALLGEMEIN/frmScan.vb
View File

@@ -557,7 +557,6 @@ Public Class frmScan
InitDefaultValueForTWAIN()
cboResolution.Text = 150
tbxSaveFileName.Text = DefaultFileName
Select Case ART
Case "DirectScan"
grpTyp.Visible = False
@@ -623,7 +622,10 @@ Public Class frmScan
btnScan.Enabled = True
cboSource.SelectedIndex = 0
End If
tbxSaveFileName.Text = DefaultFileName
End Sub
End Class