diff --git a/SDL/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA.vb b/SDL/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA.vb index 625306a4..08218baa 100644 --- a/SDL/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA.vb +++ b/SDL/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA.vb @@ -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 diff --git a/SDL/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Adressen.vb b/SDL/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Adressen.vb index 4f123408..dcd13a38 100644 --- a/SDL/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Adressen.vb +++ b/SDL/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Adressen.vb @@ -109,8 +109,4 @@ End Sub - - - - End Class diff --git a/SDL/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Allg.Designer.vb b/SDL/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Allg.Designer.vb index ed7722e1..729c2927 100644 --- a/SDL/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Allg.Designer.vb +++ b/SDL/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Allg.Designer.vb @@ -23,6 +23,23 @@ Partial Class usrCntlATLAS_EZA_Allg _ 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 diff --git a/SDL/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Allg.vb b/SDL/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Allg.vb index b6d1ac66..0b6ef303 100644 --- a/SDL/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Allg.vb +++ b/SDL/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Allg.vb @@ -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 diff --git a/SDL/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Position.Designer.vb b/SDL/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Position.Designer.vb index 5e430d36..aa54f779 100644 --- a/SDL/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Position.Designer.vb +++ b/SDL/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Position.Designer.vb @@ -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 diff --git a/SDL/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Position.vb b/SDL/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Position.vb index ca2bf512..1b759db0 100644 --- a/SDL/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Position.vb +++ b/SDL/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Position.vb @@ -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 diff --git a/SDL/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Positionen.vb b/SDL/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Positionen.vb index ab7e7d53..407819ee 100644 --- a/SDL/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Positionen.vb +++ b/SDL/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Positionen.vb @@ -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 diff --git a/SDL/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS_Allg.Designer.vb b/SDL/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS_Allg.Designer.vb index aa4ad762..b87a1b58 100644 --- a/SDL/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS_Allg.Designer.vb +++ b/SDL/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS_Allg.Designer.vb @@ -1,9 +1,9 @@ - _ + Partial Class usrCntlATLAS_NCTS_Allg Inherits System.Windows.Forms.UserControl 'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. - _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) Try If disposing AndAlso components IsNot Nothing Then @@ -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. - _ + 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 diff --git a/SDL/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS_Allg.vb b/SDL/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS_Allg.vb index 38757126..a27a84a5 100644 --- a/SDL/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS_Allg.vb +++ b/SDL/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS_Allg.vb @@ -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 diff --git a/SDL/DAKOSY/ATLAS/cDakosyInterface_Send.vb b/SDL/DAKOSY/ATLAS/cDakosyInterface_Send.vb index ecd2a534..e5263130 100644 --- a/SDL/DAKOSY/ATLAS/cDakosyInterface_Send.vb +++ b/SDL/DAKOSY/ATLAS/cDakosyInterface_Send.vb @@ -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: diff --git a/SDL/DAKOSY/Stammreferenz/frmDakosyStammreferenz.vb b/SDL/DAKOSY/Stammreferenz/frmDakosyStammreferenz.vb index 5036264c..e3c30b43 100644 --- a/SDL/DAKOSY/Stammreferenz/frmDakosyStammreferenz.vb +++ b/SDL/DAKOSY/Stammreferenz/frmDakosyStammreferenz.vb @@ -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() diff --git a/SDL/DAKOSY/Stammreferenz/frmStammreferenzPopup.vb b/SDL/DAKOSY/Stammreferenz/frmStammreferenzPopup.vb index 1439a746..9a5ba964 100644 --- a/SDL/DAKOSY/Stammreferenz/frmStammreferenzPopup.vb +++ b/SDL/DAKOSY/Stammreferenz/frmStammreferenzPopup.vb @@ -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 diff --git a/SDL/DAKOSY/frmZollanmeldung.Designer.vb b/SDL/DAKOSY/frmZollanmeldung.Designer.vb index a5ec280a..c3bd4735 100644 --- a/SDL/DAKOSY/frmZollanmeldung.Designer.vb +++ b/SDL/DAKOSY/frmZollanmeldung.Designer.vb @@ -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 diff --git a/SDL/Fakturierung/frmRechnungenSuche.Designer.vb b/SDL/Fakturierung/frmRechnungenSuche.Designer.vb index a0012c69..93f68edd 100644 --- a/SDL/Fakturierung/frmRechnungenSuche.Designer.vb +++ b/SDL/Fakturierung/frmRechnungenSuche.Designer.vb @@ -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 diff --git a/SDL/Fakturierung/frmRechnungenSuche.vb b/SDL/Fakturierung/frmRechnungenSuche.vb index 05a1572b..1abd9b63 100644 --- a/SDL/Fakturierung/frmRechnungenSuche.vb +++ b/SDL/Fakturierung/frmRechnungenSuche.vb @@ -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) diff --git a/SDL/Formulare/KDFormulare/frmFormulare.vb b/SDL/Formulare/KDFormulare/frmFormulare.vb index 18639b99..bf6996d8 100644 --- a/SDL/Formulare/KDFormulare/frmFormulare.vb +++ b/SDL/Formulare/KDFormulare/frmFormulare.vb @@ -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)) diff --git a/SDL/My Project/Resources.Designer.vb b/SDL/My Project/Resources.Designer.vb index 9fe6ded0..4bd95ac4 100644 --- a/SDL/My Project/Resources.Designer.vb +++ b/SDL/My Project/Resources.Designer.vb @@ -894,15 +894,6 @@ Namespace My.Resources End Get End Property - ''' - ''' Sucht eine lokalisierte Zeichenfolge, die ähnelt. - ''' - Friend ReadOnly Property löl0lll() As String - Get - Return ResourceManager.GetString("löl0lll", resourceCulture) - End Get - End Property - ''' ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' @@ -1961,7 +1952,7 @@ Namespace My.Resources End Property ''' - ''' Sucht eine lokalisierte Zeichenfolge, die 1.1.1.5 ähnelt. + ''' Sucht eine lokalisierte Zeichenfolge, die 1.1.1.6 ähnelt. ''' Friend ReadOnly Property Version() As String Get diff --git a/SDL/My Project/Resources.resx b/SDL/My Project/Resources.resx index c726bcc8..f0d98c56 100644 --- a/SDL/My Project/Resources.resx +++ b/SDL/My Project/Resources.resx @@ -713,7 +713,7 @@ ..\Resources\Verag-Customs-Service-GMBH-Logo_sig.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - 1.1.1.5 + 1.1.1.6 ..\Resources\chimes.wav;System.IO.MemoryStream, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 @@ -724,7 +724,4 @@ ..\Resources\ok_gray.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - \ No newline at end of file diff --git a/SDL/SDL.vbproj b/SDL/SDL.vbproj index 394d3713..47be1d8f 100644 --- a/SDL/SDL.vbproj +++ b/SDL/SDL.vbproj @@ -1140,6 +1140,12 @@ Form + + frmBonitaet.vb + + + Form + frmBonitaetBearbeiten.vb @@ -2613,6 +2619,9 @@ frmAddLKW.vb + + frmBonitaet.vb + frmBonitaetBearbeiten.vb diff --git a/SDL/kunden/frmBonitaet.Designer.vb b/SDL/kunden/frmBonitaet.Designer.vb new file mode 100644 index 00000000..f2b109ed --- /dev/null +++ b/SDL/kunden/frmBonitaet.Designer.vb @@ -0,0 +1,224 @@ + _ +Partial Class frmBonitaet + Inherits System.Windows.Forms.Form + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + 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 diff --git a/SDL/kunden/frmBonitaet.resx b/SDL/kunden/frmBonitaet.resx new file mode 100644 index 00000000..d584bd9e --- /dev/null +++ b/SDL/kunden/frmBonitaet.resx @@ -0,0 +1,980 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + + 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== + + + \ No newline at end of file diff --git a/SDL/kunden/frmBonitaet.vb b/SDL/kunden/frmBonitaet.vb new file mode 100644 index 00000000..5d7cd013 --- /dev/null +++ b/SDL/kunden/frmBonitaet.vb @@ -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 \ No newline at end of file diff --git a/SDL/kunden/frmKundenUebersichtZOLL.Designer.vb b/SDL/kunden/frmKundenUebersichtZOLL.Designer.vb index d7a436c3..dab3b592 100644 --- a/SDL/kunden/frmKundenUebersichtZOLL.Designer.vb +++ b/SDL/kunden/frmKundenUebersichtZOLL.Designer.vb @@ -23,24 +23,24 @@ Partial Class frmKundenUebersichtZOLL Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() - Dim DataGridViewCellStyle48 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle49 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle50 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle51 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle52 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle53 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmKundenUebersichtZOLL)) - Dim DataGridViewCellStyle54 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle55 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle56 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle58 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle57 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle36 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle38 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle59 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle60 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle61 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle62 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Me.lblEmail2 = New System.Windows.Forms.TextBox() Me.lblEmail = New System.Windows.Forms.TextBox() Me.lblMobil = New System.Windows.Forms.TextBox() @@ -57,6 +57,7 @@ Partial Class frmKundenUebersichtZOLL Me.PictureBox2 = New System.Windows.Forms.PictureBox() Me.PictureBox1 = New System.Windows.Forms.PictureBox() Me.grpAbfertigung = New System.Windows.Forms.GroupBox() + Me.Label45 = New System.Windows.Forms.Label() Me.txtSammelrechnung = New System.Windows.Forms.TextBox() Me.Label12 = New System.Windows.Forms.Label() Me.txtVorauskasse = New System.Windows.Forms.TextBox() @@ -67,22 +68,14 @@ Partial Class frmKundenUebersichtZOLL Me.txtKundenbetreuerVertretung = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label34 = New System.Windows.Forms.Label() Me.txtKundenbetreuer = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.FlatButton6 = New VERAG_PROG_ALLGEMEIN.FlatButton() - Me.btnBonitaetBearbeiten = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.btnPunkt2Save = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.Button7 = New System.Windows.Forms.Button() Me.Button6 = New System.Windows.Forms.Button() Me.LinkLabel1 = New System.Windows.Forms.LinkLabel() - Me.Label39 = New System.Windows.Forms.Label() - Me.Label68 = New System.Windows.Forms.Label() Me.txtZahlungsziel = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.lblBonitaetsdatum = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label33 = New System.Windows.Forms.Label() - Me.lblHoechstkredit = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtOPFaellig = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.Label69 = New System.Windows.Forms.Label() Me.Label32 = New System.Windows.Forms.Label() - Me.lblBonitaet = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtUmsatzJahr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label29 = New System.Windows.Forms.Label() Me.txtOffenePosten = New VERAG_PROG_ALLGEMEIN.MyTextBox() @@ -103,6 +96,17 @@ Partial Class frmKundenUebersichtZOLL Me.Label3 = New System.Windows.Forms.Label() Me.lblNoGespr = New System.Windows.Forms.Label() Me.lklGanzerText = New System.Windows.Forms.LinkLabel() + Me.Panel4 = New System.Windows.Forms.Panel() + Me.FlatButton6 = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.btnBonitaetBearbeiten = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.Label68 = New System.Windows.Forms.Label() + Me.lblHoechstkredit = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label69 = New System.Windows.Forms.Label() + Me.lblBonitaet = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.lblBonitaetRisikostufe = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.lblBonitaetsdatum = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label39 = New System.Windows.Forms.Label() + Me.Label46 = New System.Windows.Forms.Label() Me.pnlAnh = New System.Windows.Forms.Panel() Me.usrCntlAnhaenge = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() Me.dgvAnhaenge = New System.Windows.Forms.DataGridView() @@ -148,6 +152,7 @@ Partial Class frmKundenUebersichtZOLL Me.TabPage10 = New System.Windows.Forms.TabPage() Me.FlatButton1 = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.TabPage11 = New System.Windows.Forms.TabPage() + Me.ucKundenKontakte = New SDL.usrCntlKundenKontakte() Me.Label38 = New System.Windows.Forms.Label() Me.txtDebitorennr = New System.Windows.Forms.TextBox() Me.lblFwlFiskal = New System.Windows.Forms.LinkLabel() @@ -163,11 +168,14 @@ Partial Class frmKundenUebersichtZOLL Me.TabPage9 = New System.Windows.Forms.TabPage() Me.dgvGestGarantie = New System.Windows.Forms.DataGridView() Me.Panel2 = New System.Windows.Forms.Panel() + Me.cbxGG = New System.Windows.Forms.CheckBox() Me.txtGGDatum = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtT1VerzollungsadresseBestimmungszollstelle = New VERAG_PROG_ALLGEMEIN.MySearchBox() Me.Label11 = New System.Windows.Forms.Label() Me.Button8 = New System.Windows.Forms.Button() + Me.Button9 = New System.Windows.Forms.Button() Me.TabPage6 = New System.Windows.Forms.TabPage() + Me.UsrCntlKundenAvisoMailBenachrichtigung1 = New SDL.usrCntlKundenAvisoMailBenachrichtigung() Me.TabPage7 = New System.Windows.Forms.TabPage() Me.Label43 = New System.Windows.Forms.Label() Me.cbxKdAuftragsNr = New System.Windows.Forms.CheckBox() @@ -200,6 +208,7 @@ Partial Class frmKundenUebersichtZOLL Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem() Me.tbcntrKundenDaten = New System.Windows.Forms.TabControl() Me.TabPage1 = New System.Windows.Forms.TabPage() + Me.UsrCntlOfferte1 = New SDL.c() Me.tbStatistik = New System.Windows.Forms.TabPage() Me.btnUbersicht = New System.Windows.Forms.Button() Me.Label27 = New System.Windows.Forms.Label() @@ -289,17 +298,12 @@ Partial Class frmKundenUebersichtZOLL Me.tmrFiskal = New System.Windows.Forms.Timer(Me.components) Me.ContextMenuStrip3 = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripMenuItem() + Me.ÄndernToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.HochladenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.ScannenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.PDFLöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.cbxGG = New System.Windows.Forms.CheckBox() - Me.ÄndernToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.ucKundenKontakte = New SDL.usrCntlKundenKontakte() - Me.UsrCntlKundenAvisoMailBenachrichtigung1 = New SDL.usrCntlKundenAvisoMailBenachrichtigung() - Me.UsrCntlOfferte1 = New SDL.c() - Me.Button9 = New System.Windows.Forms.Button() - Me.PDFLöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit() @@ -307,6 +311,7 @@ Partial Class frmKundenUebersichtZOLL Me.grpAbfertigung.SuspendLayout() Me.pnlVERAGSnspr.SuspendLayout() Me.ContextMenuStrip1.SuspendLayout() + Me.Panel4.SuspendLayout() Me.pnlAnh.SuspendLayout() CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).BeginInit() Me.Panel3.SuspendLayout() @@ -544,27 +549,20 @@ Partial Class frmKundenUebersichtZOLL ' Me.grpAbfertigung.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.grpAbfertigung.Controls.Add(Me.Label45) Me.grpAbfertigung.Controls.Add(Me.txtSammelrechnung) Me.grpAbfertigung.Controls.Add(Me.Label12) Me.grpAbfertigung.Controls.Add(Me.txtVorauskasse) Me.grpAbfertigung.Controls.Add(Me.Label42) Me.grpAbfertigung.Controls.Add(Me.pnlVERAGSnspr) - Me.grpAbfertigung.Controls.Add(Me.FlatButton6) - Me.grpAbfertigung.Controls.Add(Me.btnBonitaetBearbeiten) Me.grpAbfertigung.Controls.Add(Me.btnPunkt2Save) Me.grpAbfertigung.Controls.Add(Me.Button7) Me.grpAbfertigung.Controls.Add(Me.Button6) Me.grpAbfertigung.Controls.Add(Me.LinkLabel1) - Me.grpAbfertigung.Controls.Add(Me.Label39) - Me.grpAbfertigung.Controls.Add(Me.Label68) Me.grpAbfertigung.Controls.Add(Me.txtZahlungsziel) - Me.grpAbfertigung.Controls.Add(Me.lblBonitaetsdatum) Me.grpAbfertigung.Controls.Add(Me.Label33) - Me.grpAbfertigung.Controls.Add(Me.lblHoechstkredit) Me.grpAbfertigung.Controls.Add(Me.txtOPFaellig) - Me.grpAbfertigung.Controls.Add(Me.Label69) Me.grpAbfertigung.Controls.Add(Me.Label32) - Me.grpAbfertigung.Controls.Add(Me.lblBonitaet) Me.grpAbfertigung.Controls.Add(Me.txtUmsatzJahr) Me.grpAbfertigung.Controls.Add(Me.Label29) Me.grpAbfertigung.Controls.Add(Me.txtOffenePosten) @@ -583,6 +581,7 @@ Partial Class frmKundenUebersichtZOLL Me.grpAbfertigung.Controls.Add(Me.Label3) Me.grpAbfertigung.Controls.Add(Me.lblNoGespr) Me.grpAbfertigung.Controls.Add(Me.lklGanzerText) + Me.grpAbfertigung.Controls.Add(Me.Panel4) Me.grpAbfertigung.Cursor = System.Windows.Forms.Cursors.Default Me.grpAbfertigung.Location = New System.Drawing.Point(506, 3) Me.grpAbfertigung.Name = "grpAbfertigung" @@ -591,13 +590,22 @@ Partial Class frmKundenUebersichtZOLL Me.grpAbfertigung.TabStop = False Me.grpAbfertigung.Text = "Abfertigung" ' + 'Label45 + ' + Me.Label45.AutoSize = True + Me.Label45.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label45.Location = New System.Drawing.Point(99, 329) + Me.Label45.Name = "Label45" + Me.Label45.Size = New System.Drawing.Size(0, 13) + Me.Label45.TabIndex = 229 + ' 'txtSammelrechnung ' Me.txtSammelrechnung.BackColor = System.Drawing.Color.White Me.txtSammelrechnung.BorderStyle = System.Windows.Forms.BorderStyle.None Me.txtSammelrechnung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.txtSammelrechnung.ForeColor = System.Drawing.Color.Black - Me.txtSammelrechnung.Location = New System.Drawing.Point(104, 270) + Me.txtSammelrechnung.Location = New System.Drawing.Point(104, 267) Me.txtSammelrechnung.Name = "txtSammelrechnung" Me.txtSammelrechnung.ReadOnly = True Me.txtSammelrechnung.Size = New System.Drawing.Size(115, 13) @@ -607,7 +615,7 @@ Partial Class frmKundenUebersichtZOLL 'Label12 ' Me.Label12.AutoSize = True - Me.Label12.Location = New System.Drawing.Point(7, 270) + Me.Label12.Location = New System.Drawing.Point(7, 267) Me.Label12.Name = "Label12" Me.Label12.Size = New System.Drawing.Size(92, 13) Me.Label12.TabIndex = 227 @@ -763,35 +771,6 @@ Partial Class frmKundenUebersichtZOLL Me.txtKundenbetreuer.TabIndex = 223 Me.txtKundenbetreuer.Text = "-" ' - 'FlatButton6 - ' - Me.FlatButton6.allowBorder = False - Me.FlatButton6.BackgroundImage = Global.SDL.My.Resources.Resources.list - Me.FlatButton6.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.FlatButton6.FlatAppearance.BorderSize = 0 - Me.FlatButton6.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.FlatButton6.ForeColor = System.Drawing.Color.Black - Me.FlatButton6.Location = New System.Drawing.Point(244, 342) - Me.FlatButton6.Name = "FlatButton6" - Me.FlatButton6.Size = New System.Drawing.Size(15, 12) - Me.FlatButton6.TabIndex = 217 - Me.FlatButton6.UseVisualStyleBackColor = True - ' - 'btnBonitaetBearbeiten - ' - Me.btnBonitaetBearbeiten.allowBorder = False - Me.btnBonitaetBearbeiten.BackgroundImage = Global.SDL.My.Resources.Resources.plus - Me.btnBonitaetBearbeiten.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.btnBonitaetBearbeiten.FlatAppearance.BorderSize = 0 - Me.btnBonitaetBearbeiten.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnBonitaetBearbeiten.ForeColor = System.Drawing.Color.Black - Me.btnBonitaetBearbeiten.Location = New System.Drawing.Point(225, 341) - Me.btnBonitaetBearbeiten.Name = "btnBonitaetBearbeiten" - Me.btnBonitaetBearbeiten.Size = New System.Drawing.Size(15, 12) - Me.btnBonitaetBearbeiten.TabIndex = 40 - Me.btnBonitaetBearbeiten.UseVisualStyleBackColor = True - Me.btnBonitaetBearbeiten.Visible = False - ' 'btnPunkt2Save ' Me.btnPunkt2Save.allowBorder = False @@ -846,26 +825,6 @@ Partial Class frmKundenUebersichtZOLL Me.LinkLabel1.TabStop = True Me.LinkLabel1.Text = "Trennung ""/""" ' - 'Label39 - ' - Me.Label39.AutoSize = True - Me.Label39.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label39.Location = New System.Drawing.Point(7, 341) - Me.Label39.Name = "Label39" - Me.Label39.Size = New System.Drawing.Size(43, 13) - Me.Label39.TabIndex = 218 - Me.Label39.Text = "Bonität:" - ' - 'Label68 - ' - Me.Label68.AutoSize = True - Me.Label68.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label68.Location = New System.Drawing.Point(97, 341) - Me.Label68.Name = "Label68" - Me.Label68.Size = New System.Drawing.Size(33, 13) - Me.Label68.TabIndex = 183 - Me.Label68.Text = ",vom:" - ' 'txtZahlungsziel ' Me.txtZahlungsziel._DateTimeOnly = False @@ -882,7 +841,7 @@ Partial Class frmKundenUebersichtZOLL Me.txtZahlungsziel.BorderStyle = System.Windows.Forms.BorderStyle.None Me.txtZahlungsziel.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.txtZahlungsziel.ForeColor = System.Drawing.Color.Black - Me.txtZahlungsziel.Location = New System.Drawing.Point(358, 317) + Me.txtZahlungsziel.Location = New System.Drawing.Point(358, 311) Me.txtZahlungsziel.MaxLineLength = -1 Me.txtZahlungsziel.MaxLines_Warning = "" Me.txtZahlungsziel.MaxLines_Warning_Label = Nothing @@ -892,68 +851,16 @@ Partial Class frmKundenUebersichtZOLL Me.txtZahlungsziel.TabIndex = 214 Me.txtZahlungsziel.TextAlign = System.Windows.Forms.HorizontalAlignment.Right ' - 'lblBonitaetsdatum - ' - Me.lblBonitaetsdatum._DateTimeOnly = False - Me.lblBonitaetsdatum._numbersOnly = False - Me.lblBonitaetsdatum._numbersOnlyKommastellen = "" - Me.lblBonitaetsdatum._Prozent = False - Me.lblBonitaetsdatum._ShortDateNew = False - Me.lblBonitaetsdatum._ShortDateOnly = False - Me.lblBonitaetsdatum._TimeOnly = False - Me.lblBonitaetsdatum._value = Nothing - Me.lblBonitaetsdatum._Waehrung = False - Me.lblBonitaetsdatum._WaehrungZeichen = True - Me.lblBonitaetsdatum.BackColor = System.Drawing.Color.White - Me.lblBonitaetsdatum.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.lblBonitaetsdatum.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblBonitaetsdatum.ForeColor = System.Drawing.Color.Black - Me.lblBonitaetsdatum.Location = New System.Drawing.Point(142, 341) - Me.lblBonitaetsdatum.MaxLineLength = -1 - Me.lblBonitaetsdatum.MaxLines_Warning = "" - Me.lblBonitaetsdatum.MaxLines_Warning_Label = Nothing - Me.lblBonitaetsdatum.Name = "lblBonitaetsdatum" - Me.lblBonitaetsdatum.ReadOnly = True - Me.lblBonitaetsdatum.Size = New System.Drawing.Size(77, 13) - Me.lblBonitaetsdatum.TabIndex = 185 - Me.lblBonitaetsdatum.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' 'Label33 ' Me.Label33.AutoSize = True Me.Label33.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label33.Location = New System.Drawing.Point(270, 317) + Me.Label33.Location = New System.Drawing.Point(270, 311) Me.Label33.Name = "Label33" Me.Label33.Size = New System.Drawing.Size(69, 13) Me.Label33.TabIndex = 213 Me.Label33.Text = "Zahlungsziel:" ' - 'lblHoechstkredit - ' - Me.lblHoechstkredit._DateTimeOnly = False - Me.lblHoechstkredit._numbersOnly = True - Me.lblHoechstkredit._numbersOnlyKommastellen = "" - Me.lblHoechstkredit._Prozent = False - Me.lblHoechstkredit._ShortDateNew = False - Me.lblHoechstkredit._ShortDateOnly = False - Me.lblHoechstkredit._TimeOnly = False - Me.lblHoechstkredit._value = "" - Me.lblHoechstkredit._Waehrung = True - Me.lblHoechstkredit._WaehrungZeichen = True - Me.lblHoechstkredit.BackColor = System.Drawing.Color.White - Me.lblHoechstkredit.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.lblHoechstkredit.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblHoechstkredit.ForeColor = System.Drawing.Color.Black - Me.lblHoechstkredit.Location = New System.Drawing.Point(370, 341) - Me.lblHoechstkredit.MaxLineLength = -1 - Me.lblHoechstkredit.MaxLines_Warning = "" - Me.lblHoechstkredit.MaxLines_Warning_Label = Nothing - Me.lblHoechstkredit.Name = "lblHoechstkredit" - Me.lblHoechstkredit.ReadOnly = True - Me.lblHoechstkredit.Size = New System.Drawing.Size(107, 13) - Me.lblHoechstkredit.TabIndex = 188 - Me.lblHoechstkredit.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' 'txtOPFaellig ' Me.txtOPFaellig._DateTimeOnly = False @@ -970,7 +877,7 @@ Partial Class frmKundenUebersichtZOLL Me.txtOPFaellig.BorderStyle = System.Windows.Forms.BorderStyle.None Me.txtOPFaellig.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.txtOPFaellig.ForeColor = System.Drawing.Color.Black - Me.txtOPFaellig.Location = New System.Drawing.Point(358, 299) + Me.txtOPFaellig.Location = New System.Drawing.Point(358, 293) Me.txtOPFaellig.MaxLineLength = -1 Me.txtOPFaellig.MaxLines_Warning = "" Me.txtOPFaellig.MaxLines_Warning_Label = Nothing @@ -980,52 +887,16 @@ Partial Class frmKundenUebersichtZOLL Me.txtOPFaellig.TabIndex = 212 Me.txtOPFaellig.TextAlign = System.Windows.Forms.HorizontalAlignment.Right ' - 'Label69 - ' - Me.Label69.AutoSize = True - Me.Label69.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label69.Location = New System.Drawing.Point(270, 341) - Me.Label69.Name = "Label69" - Me.Label69.Size = New System.Drawing.Size(70, 13) - Me.Label69.TabIndex = 187 - Me.Label69.Text = "Höchstkredit:" - ' 'Label32 ' Me.Label32.AutoSize = True Me.Label32.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label32.Location = New System.Drawing.Point(270, 299) + Me.Label32.Location = New System.Drawing.Point(270, 293) Me.Label32.Name = "Label32" Me.Label32.Size = New System.Drawing.Size(93, 13) Me.Label32.TabIndex = 211 Me.Label32.Text = "OP fällig (nur Rg.):" ' - 'lblBonitaet - ' - Me.lblBonitaet._DateTimeOnly = False - Me.lblBonitaet._numbersOnly = False - Me.lblBonitaet._numbersOnlyKommastellen = "" - Me.lblBonitaet._Prozent = False - Me.lblBonitaet._ShortDateNew = False - Me.lblBonitaet._ShortDateOnly = False - Me.lblBonitaet._TimeOnly = False - Me.lblBonitaet._value = Nothing - Me.lblBonitaet._Waehrung = False - Me.lblBonitaet._WaehrungZeichen = True - Me.lblBonitaet.BackColor = System.Drawing.Color.White - Me.lblBonitaet.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.lblBonitaet.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblBonitaet.ForeColor = System.Drawing.Color.Black - Me.lblBonitaet.Location = New System.Drawing.Point(56, 341) - Me.lblBonitaet.MaxLineLength = -1 - Me.lblBonitaet.MaxLines_Warning = "" - Me.lblBonitaet.MaxLines_Warning_Label = Nothing - Me.lblBonitaet.Name = "lblBonitaet" - Me.lblBonitaet.ReadOnly = True - Me.lblBonitaet.Size = New System.Drawing.Size(37, 13) - Me.lblBonitaet.TabIndex = 186 - Me.lblBonitaet.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' 'txtUmsatzJahr ' Me.txtUmsatzJahr._DateTimeOnly = False @@ -1042,7 +913,7 @@ Partial Class frmKundenUebersichtZOLL Me.txtUmsatzJahr.BorderStyle = System.Windows.Forms.BorderStyle.None Me.txtUmsatzJahr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.txtUmsatzJahr.ForeColor = System.Drawing.Color.Black - Me.txtUmsatzJahr.Location = New System.Drawing.Point(104, 317) + Me.txtUmsatzJahr.Location = New System.Drawing.Point(104, 311) Me.txtUmsatzJahr.MaxLineLength = -1 Me.txtUmsatzJahr.MaxLines_Warning = "" Me.txtUmsatzJahr.MaxLines_Warning_Label = Nothing @@ -1056,7 +927,7 @@ Partial Class frmKundenUebersichtZOLL ' Me.Label29.AutoSize = True Me.Label29.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label29.Location = New System.Drawing.Point(7, 317) + Me.Label29.Location = New System.Drawing.Point(7, 311) Me.Label29.Name = "Label29" Me.Label29.Size = New System.Drawing.Size(68, 13) Me.Label29.TabIndex = 209 @@ -1078,7 +949,7 @@ Partial Class frmKundenUebersichtZOLL Me.txtOffenePosten.BorderStyle = System.Windows.Forms.BorderStyle.None Me.txtOffenePosten.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.txtOffenePosten.ForeColor = System.Drawing.Color.Black - Me.txtOffenePosten.Location = New System.Drawing.Point(104, 299) + Me.txtOffenePosten.Location = New System.Drawing.Point(104, 293) Me.txtOffenePosten.MaxLineLength = -1 Me.txtOffenePosten.MaxLines_Warning = "" Me.txtOffenePosten.MaxLines_Warning_Label = Nothing @@ -1092,7 +963,7 @@ Partial Class frmKundenUebersichtZOLL ' Me.Label28.AutoSize = True Me.Label28.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label28.Location = New System.Drawing.Point(7, 299) + Me.Label28.Location = New System.Drawing.Point(7, 293) Me.Label28.Name = "Label28" Me.Label28.Size = New System.Drawing.Size(78, 13) Me.Label28.TabIndex = 207 @@ -1299,6 +1170,197 @@ Partial Class frmKundenUebersichtZOLL Me.lklGanzerText.TabStop = True Me.lklGanzerText.Text = "Gesprächstext anzeigen " & Global.Microsoft.VisualBasic.ChrW(10) & "(FM-ZOLL Punkt 7)" ' + 'Panel4 + ' + Me.Panel4.BackColor = System.Drawing.Color.WhiteSmoke + Me.Panel4.Controls.Add(Me.FlatButton6) + Me.Panel4.Controls.Add(Me.btnBonitaetBearbeiten) + Me.Panel4.Controls.Add(Me.Label68) + Me.Panel4.Controls.Add(Me.lblHoechstkredit) + Me.Panel4.Controls.Add(Me.Label69) + Me.Panel4.Controls.Add(Me.lblBonitaet) + Me.Panel4.Controls.Add(Me.lblBonitaetRisikostufe) + Me.Panel4.Controls.Add(Me.lblBonitaetsdatum) + Me.Panel4.Controls.Add(Me.Label39) + Me.Panel4.Controls.Add(Me.Label46) + Me.Panel4.Location = New System.Drawing.Point(3, 335) + Me.Panel4.Name = "Panel4" + Me.Panel4.Size = New System.Drawing.Size(491, 26) + Me.Panel4.TabIndex = 231 + ' + 'FlatButton6 + ' + Me.FlatButton6.allowBorder = False + Me.FlatButton6.BackgroundImage = Global.SDL.My.Resources.Resources.list + Me.FlatButton6.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.FlatButton6.FlatAppearance.BorderSize = 0 + Me.FlatButton6.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.FlatButton6.ForeColor = System.Drawing.Color.Black + Me.FlatButton6.Location = New System.Drawing.Point(464, 8) + Me.FlatButton6.Name = "FlatButton6" + Me.FlatButton6.Size = New System.Drawing.Size(15, 12) + Me.FlatButton6.TabIndex = 217 + Me.FlatButton6.UseVisualStyleBackColor = True + ' + 'btnBonitaetBearbeiten + ' + Me.btnBonitaetBearbeiten.allowBorder = False + Me.btnBonitaetBearbeiten.BackgroundImage = Global.SDL.My.Resources.Resources.plus + Me.btnBonitaetBearbeiten.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.btnBonitaetBearbeiten.FlatAppearance.BorderSize = 0 + Me.btnBonitaetBearbeiten.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnBonitaetBearbeiten.ForeColor = System.Drawing.Color.Black + Me.btnBonitaetBearbeiten.Location = New System.Drawing.Point(445, 7) + Me.btnBonitaetBearbeiten.Name = "btnBonitaetBearbeiten" + Me.btnBonitaetBearbeiten.Size = New System.Drawing.Size(15, 12) + Me.btnBonitaetBearbeiten.TabIndex = 40 + Me.btnBonitaetBearbeiten.UseVisualStyleBackColor = True + Me.btnBonitaetBearbeiten.Visible = False + ' + 'Label68 + ' + Me.Label68.AutoSize = True + Me.Label68.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label68.Location = New System.Drawing.Point(163, 6) + Me.Label68.Name = "Label68" + Me.Label68.Size = New System.Drawing.Size(30, 13) + Me.Label68.TabIndex = 183 + Me.Label68.Text = "vom:" + ' + 'lblHoechstkredit + ' + Me.lblHoechstkredit._DateTimeOnly = False + Me.lblHoechstkredit._numbersOnly = True + Me.lblHoechstkredit._numbersOnlyKommastellen = "" + Me.lblHoechstkredit._Prozent = False + Me.lblHoechstkredit._ShortDateNew = False + Me.lblHoechstkredit._ShortDateOnly = False + Me.lblHoechstkredit._TimeOnly = False + Me.lblHoechstkredit._value = "" + Me.lblHoechstkredit._Waehrung = True + Me.lblHoechstkredit._WaehrungZeichen = True + Me.lblHoechstkredit.BackColor = System.Drawing.Color.WhiteSmoke + Me.lblHoechstkredit.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.lblHoechstkredit.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblHoechstkredit.ForeColor = System.Drawing.Color.Black + Me.lblHoechstkredit.Location = New System.Drawing.Point(343, 6) + Me.lblHoechstkredit.MaxLineLength = -1 + Me.lblHoechstkredit.MaxLines_Warning = "" + Me.lblHoechstkredit.MaxLines_Warning_Label = Nothing + Me.lblHoechstkredit.Name = "lblHoechstkredit" + Me.lblHoechstkredit.ReadOnly = True + Me.lblHoechstkredit.Size = New System.Drawing.Size(96, 13) + Me.lblHoechstkredit.TabIndex = 188 + Me.lblHoechstkredit.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + 'Label69 + ' + Me.Label69.AutoSize = True + Me.Label69.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label69.Location = New System.Drawing.Point(267, 6) + Me.Label69.Name = "Label69" + Me.Label69.Size = New System.Drawing.Size(70, 13) + Me.Label69.TabIndex = 187 + Me.Label69.Text = "Höchstkredit:" + ' + 'lblBonitaet + ' + Me.lblBonitaet._DateTimeOnly = False + Me.lblBonitaet._numbersOnly = False + Me.lblBonitaet._numbersOnlyKommastellen = "" + Me.lblBonitaet._Prozent = False + Me.lblBonitaet._ShortDateNew = False + Me.lblBonitaet._ShortDateOnly = False + Me.lblBonitaet._TimeOnly = False + Me.lblBonitaet._value = Nothing + Me.lblBonitaet._Waehrung = False + Me.lblBonitaet._WaehrungZeichen = True + Me.lblBonitaet.BackColor = System.Drawing.Color.WhiteSmoke + Me.lblBonitaet.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.lblBonitaet.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblBonitaet.ForeColor = System.Drawing.Color.Black + Me.lblBonitaet.Location = New System.Drawing.Point(106, 6) + Me.lblBonitaet.MaxLineLength = -1 + Me.lblBonitaet.MaxLines_Warning = "" + Me.lblBonitaet.MaxLines_Warning_Label = Nothing + Me.lblBonitaet.Name = "lblBonitaet" + Me.lblBonitaet.ReadOnly = True + Me.lblBonitaet.Size = New System.Drawing.Size(32, 13) + Me.lblBonitaet.TabIndex = 186 + Me.lblBonitaet.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'lblBonitaetRisikostufe + ' + Me.lblBonitaetRisikostufe._DateTimeOnly = False + Me.lblBonitaetRisikostufe._numbersOnly = False + Me.lblBonitaetRisikostufe._numbersOnlyKommastellen = "" + Me.lblBonitaetRisikostufe._Prozent = False + Me.lblBonitaetRisikostufe._ShortDateNew = False + Me.lblBonitaetRisikostufe._ShortDateOnly = False + Me.lblBonitaetRisikostufe._TimeOnly = False + Me.lblBonitaetRisikostufe._value = Nothing + Me.lblBonitaetRisikostufe._Waehrung = False + Me.lblBonitaetRisikostufe._WaehrungZeichen = True + Me.lblBonitaetRisikostufe.BackColor = System.Drawing.Color.WhiteSmoke + Me.lblBonitaetRisikostufe.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.lblBonitaetRisikostufe.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblBonitaetRisikostufe.ForeColor = System.Drawing.Color.Black + Me.lblBonitaetRisikostufe.Location = New System.Drawing.Point(145, 6) + Me.lblBonitaetRisikostufe.MaxLineLength = -1 + Me.lblBonitaetRisikostufe.MaxLines_Warning = "" + Me.lblBonitaetRisikostufe.MaxLines_Warning_Label = Nothing + Me.lblBonitaetRisikostufe.Name = "lblBonitaetRisikostufe" + Me.lblBonitaetRisikostufe.ReadOnly = True + Me.lblBonitaetRisikostufe.Size = New System.Drawing.Size(20, 13) + Me.lblBonitaetRisikostufe.TabIndex = 230 + Me.lblBonitaetRisikostufe.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'lblBonitaetsdatum + ' + Me.lblBonitaetsdatum._DateTimeOnly = False + Me.lblBonitaetsdatum._numbersOnly = False + Me.lblBonitaetsdatum._numbersOnlyKommastellen = "" + Me.lblBonitaetsdatum._Prozent = False + Me.lblBonitaetsdatum._ShortDateNew = False + Me.lblBonitaetsdatum._ShortDateOnly = False + Me.lblBonitaetsdatum._TimeOnly = False + Me.lblBonitaetsdatum._value = Nothing + Me.lblBonitaetsdatum._Waehrung = False + Me.lblBonitaetsdatum._WaehrungZeichen = True + Me.lblBonitaetsdatum.BackColor = System.Drawing.Color.WhiteSmoke + Me.lblBonitaetsdatum.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.lblBonitaetsdatum.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblBonitaetsdatum.ForeColor = System.Drawing.Color.Black + Me.lblBonitaetsdatum.Location = New System.Drawing.Point(195, 6) + Me.lblBonitaetsdatum.MaxLineLength = -1 + Me.lblBonitaetsdatum.MaxLines_Warning = "" + Me.lblBonitaetsdatum.MaxLines_Warning_Label = Nothing + Me.lblBonitaetsdatum.Name = "lblBonitaetsdatum" + Me.lblBonitaetsdatum.ReadOnly = True + Me.lblBonitaetsdatum.Size = New System.Drawing.Size(77, 13) + Me.lblBonitaetsdatum.TabIndex = 185 + ' + 'Label39 + ' + Me.Label39.AutoSize = True + Me.Label39.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label39.Location = New System.Drawing.Point(4, 6) + Me.Label39.Name = "Label39" + Me.Label39.Size = New System.Drawing.Size(107, 13) + Me.Label39.TabIndex = 218 + Me.Label39.Text = "Bonität/Risikoklasse:" + ' + 'Label46 + ' + Me.Label46.AutoSize = True + Me.Label46.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label46.Location = New System.Drawing.Point(136, 6) + Me.Label46.Name = "Label46" + Me.Label46.Size = New System.Drawing.Size(12, 13) + Me.Label46.TabIndex = 183 + Me.Label46.Text = "/" + Me.Label46.TextAlign = System.Drawing.ContentAlignment.TopCenter + ' 'pnlAnh ' Me.pnlAnh.Controls.Add(Me.usrCntlAnhaenge) @@ -1335,8 +1397,8 @@ Partial Class frmKundenUebersichtZOLL Me.dgvAnhaenge.AllowUserToAddRows = False Me.dgvAnhaenge.AllowUserToDeleteRows = False Me.dgvAnhaenge.AllowUserToResizeRows = False - DataGridViewCellStyle48.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvAnhaenge.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle48 + DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvAnhaenge.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1 Me.dgvAnhaenge.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.dgvAnhaenge.BackgroundColor = System.Drawing.Color.White Me.dgvAnhaenge.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize @@ -1461,8 +1523,8 @@ Partial Class frmKundenUebersichtZOLL Me.dgvOffenePosten.AllowUserToAddRows = False Me.dgvOffenePosten.AllowUserToDeleteRows = False Me.dgvOffenePosten.AllowUserToResizeRows = False - DataGridViewCellStyle49.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvOffenePosten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle49 + DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvOffenePosten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2 Me.dgvOffenePosten.BackgroundColor = System.Drawing.Color.White Me.dgvOffenePosten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvOffenePosten.Dock = System.Windows.Forms.DockStyle.Fill @@ -1612,8 +1674,8 @@ Partial Class frmKundenUebersichtZOLL Me.dgvOfferteDetailsUebersicht.AllowUserToDeleteRows = False Me.dgvOfferteDetailsUebersicht.AllowUserToOrderColumns = True Me.dgvOfferteDetailsUebersicht.AllowUserToResizeRows = False - DataGridViewCellStyle50.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvOfferteDetailsUebersicht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle50 + DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvOfferteDetailsUebersicht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3 Me.dgvOfferteDetailsUebersicht.BackgroundColor = System.Drawing.Color.White Me.dgvOfferteDetailsUebersicht.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D Me.dgvOfferteDetailsUebersicht.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize @@ -1633,8 +1695,8 @@ Partial Class frmKundenUebersichtZOLL Me.dgvOffertenSperrliste.AllowUserToDeleteRows = False Me.dgvOffertenSperrliste.AllowUserToOrderColumns = True Me.dgvOffertenSperrliste.AllowUserToResizeRows = False - DataGridViewCellStyle51.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvOffertenSperrliste.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle51 + DataGridViewCellStyle4.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvOffertenSperrliste.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4 Me.dgvOffertenSperrliste.BackgroundColor = System.Drawing.Color.White Me.dgvOffertenSperrliste.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D Me.dgvOffertenSperrliste.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize @@ -1644,10 +1706,10 @@ Partial Class frmKundenUebersichtZOLL Me.dgvOffertenSperrliste.Name = "dgvOffertenSperrliste" Me.dgvOffertenSperrliste.ReadOnly = True Me.dgvOffertenSperrliste.RowHeadersVisible = False - DataGridViewCellStyle52.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle52.SelectionBackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer)) - DataGridViewCellStyle52.SelectionForeColor = System.Drawing.Color.Black - Me.dgvOffertenSperrliste.RowsDefaultCellStyle = DataGridViewCellStyle52 + DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle5.SelectionBackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer)) + DataGridViewCellStyle5.SelectionForeColor = System.Drawing.Color.Black + Me.dgvOffertenSperrliste.RowsDefaultCellStyle = DataGridViewCellStyle5 Me.dgvOffertenSperrliste.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect Me.dgvOffertenSperrliste.Size = New System.Drawing.Size(173, 257) Me.dgvOffertenSperrliste.TabIndex = 4 @@ -1831,8 +1893,8 @@ Partial Class frmKundenUebersichtZOLL Me.dgvUmsatzbericht.AllowUserToDeleteRows = False Me.dgvUmsatzbericht.AllowUserToOrderColumns = True Me.dgvUmsatzbericht.AllowUserToResizeRows = False - DataGridViewCellStyle53.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvUmsatzbericht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle53 + DataGridViewCellStyle6.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvUmsatzbericht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle6 Me.dgvUmsatzbericht.BackgroundColor = System.Drawing.Color.White Me.dgvUmsatzbericht.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvUmsatzbericht.Dock = System.Windows.Forms.DockStyle.Fill @@ -1958,6 +2020,14 @@ Partial Class frmKundenUebersichtZOLL Me.TabPage11.Text = "Spezifisch" Me.TabPage11.UseVisualStyleBackColor = True ' + 'ucKundenKontakte + ' + Me.ucKundenKontakte.Dock = System.Windows.Forms.DockStyle.Fill + Me.ucKundenKontakte.Location = New System.Drawing.Point(3, 3) + Me.ucKundenKontakte.Name = "ucKundenKontakte" + Me.ucKundenKontakte.Size = New System.Drawing.Size(473, 158) + Me.ucKundenKontakte.TabIndex = 0 + ' 'Label38 ' Me.Label38.AutoSize = True @@ -2104,8 +2174,8 @@ Partial Class frmKundenUebersichtZOLL Me.dgvVollmachten.AllowUserToDeleteRows = False Me.dgvVollmachten.AllowUserToOrderColumns = True Me.dgvVollmachten.AllowUserToResizeRows = False - DataGridViewCellStyle54.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvVollmachten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle54 + DataGridViewCellStyle7.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvVollmachten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle7 Me.dgvVollmachten.BackgroundColor = System.Drawing.Color.White Me.dgvVollmachten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvVollmachten.Dock = System.Windows.Forms.DockStyle.Fill @@ -2136,8 +2206,8 @@ Partial Class frmKundenUebersichtZOLL Me.dgvGestGarantie.AllowUserToDeleteRows = False Me.dgvGestGarantie.AllowUserToOrderColumns = True Me.dgvGestGarantie.AllowUserToResizeRows = False - DataGridViewCellStyle55.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvGestGarantie.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle55 + DataGridViewCellStyle8.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvGestGarantie.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle8 Me.dgvGestGarantie.BackgroundColor = System.Drawing.Color.White Me.dgvGestGarantie.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvGestGarantie.Dock = System.Windows.Forms.DockStyle.Fill @@ -2165,6 +2235,16 @@ Partial Class frmKundenUebersichtZOLL Me.Panel2.Size = New System.Drawing.Size(473, 46) Me.Panel2.TabIndex = 8 ' + 'cbxGG + ' + Me.cbxGG.AutoSize = True + Me.cbxGG.Location = New System.Drawing.Point(87, 27) + Me.cbxGG.Name = "cbxGG" + Me.cbxGG.Size = New System.Drawing.Size(165, 17) + Me.cbxGG.TabIndex = 213 + Me.cbxGG.Text = "generelle Gestellungsgarantie" + Me.cbxGG.UseVisualStyleBackColor = True + ' 'txtGGDatum ' Me.txtGGDatum._DateTimeOnly = False @@ -2235,6 +2315,20 @@ Partial Class frmKundenUebersichtZOLL Me.Button8.Text = "Hinzufügen" Me.Button8.UseVisualStyleBackColor = True ' + 'Button9 + ' + Me.Button9.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button9.ForeColor = System.Drawing.Color.Black + Me.Button9.ImageAlign = System.Drawing.ContentAlignment.TopCenter + Me.Button9.Location = New System.Drawing.Point(362, 24) + Me.Button9.Name = "Button9" + Me.Button9.Size = New System.Drawing.Size(78, 22) + Me.Button9.TabIndex = 214 + Me.Button9.Tag = "" + Me.Button9.Text = "Abbrechen" + Me.Button9.UseVisualStyleBackColor = True + Me.Button9.Visible = False + ' 'TabPage6 ' Me.TabPage6.Controls.Add(Me.UsrCntlKundenAvisoMailBenachrichtigung1) @@ -2246,6 +2340,15 @@ Partial Class frmKundenUebersichtZOLL Me.TabPage6.Text = "Aviso E-Mails" Me.TabPage6.UseVisualStyleBackColor = True ' + 'UsrCntlKundenAvisoMailBenachrichtigung1 + ' + Me.UsrCntlKundenAvisoMailBenachrichtigung1.BackColor = System.Drawing.Color.White + Me.UsrCntlKundenAvisoMailBenachrichtigung1.Dock = System.Windows.Forms.DockStyle.Fill + Me.UsrCntlKundenAvisoMailBenachrichtigung1.Location = New System.Drawing.Point(3, 3) + Me.UsrCntlKundenAvisoMailBenachrichtigung1.Name = "UsrCntlKundenAvisoMailBenachrichtigung1" + Me.UsrCntlKundenAvisoMailBenachrichtigung1.Size = New System.Drawing.Size(473, 158) + Me.UsrCntlKundenAvisoMailBenachrichtigung1.TabIndex = 0 + ' 'TabPage7 ' Me.TabPage7.Controls.Add(Me.Label43) @@ -2510,25 +2613,25 @@ Partial Class frmKundenUebersichtZOLL Me.dgvAufschub.AllowUserToResizeColumns = False Me.dgvAufschub.AllowUserToResizeRows = False Me.dgvAufschub.BackgroundColor = System.Drawing.Color.White - DataGridViewCellStyle56.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle56.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle56.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle56.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle56.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle56.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle56.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvAufschub.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle56 + DataGridViewCellStyle9.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle9.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle9.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle9.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle9.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvAufschub.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle9 Me.dgvAufschub.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvAufschub.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.KtoId, Me.Art, Me.HZA, Me.KontoNr, Me.EORI, Me.NL}) Me.dgvAufschub.ContextMenuStrip = Me.ContextMenuStrip2 - DataGridViewCellStyle58.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle58.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle58.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle58.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle58.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle58.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle58.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.dgvAufschub.DefaultCellStyle = DataGridViewCellStyle58 + DataGridViewCellStyle11.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle11.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle11.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle11.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle11.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle11.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle11.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvAufschub.DefaultCellStyle = DataGridViewCellStyle11 Me.dgvAufschub.Location = New System.Drawing.Point(13, 61) Me.dgvAufschub.MultiSelect = False Me.dgvAufschub.Name = "dgvAufschub" @@ -2555,8 +2658,8 @@ Partial Class frmKundenUebersichtZOLL ' 'HZA ' - DataGridViewCellStyle57.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight - Me.HZA.DefaultCellStyle = DataGridViewCellStyle57 + DataGridViewCellStyle10.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight + Me.HZA.DefaultCellStyle = DataGridViewCellStyle10 Me.HZA.HeaderText = "HZA" Me.HZA.Name = "HZA" Me.HZA.ReadOnly = True @@ -2626,6 +2729,16 @@ Partial Class frmKundenUebersichtZOLL Me.TabPage1.TabIndex = 2 Me.TabPage1.Text = "Offerte" ' + 'UsrCntlOfferte1 + ' + Me.UsrCntlOfferte1.BackColor = System.Drawing.Color.White + Me.UsrCntlOfferte1.Dock = System.Windows.Forms.DockStyle.Fill + Me.UsrCntlOfferte1.Location = New System.Drawing.Point(3, 3) + Me.UsrCntlOfferte1.Margin = New System.Windows.Forms.Padding(2) + Me.UsrCntlOfferte1.Name = "UsrCntlOfferte1" + Me.UsrCntlOfferte1.Size = New System.Drawing.Size(1176, 691) + Me.UsrCntlOfferte1.TabIndex = 0 + ' 'tbStatistik ' Me.tbStatistik.BackColor = System.Drawing.Color.White @@ -2693,14 +2806,14 @@ Partial Class frmKundenUebersichtZOLL Me.dgvFilialen.AllowUserToResizeRows = False Me.dgvFilialen.BackgroundColor = System.Drawing.Color.White Me.dgvFilialen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - DataGridViewCellStyle36.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle36.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle36.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) - DataGridViewCellStyle36.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle36.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle36.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle36.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.dgvFilialen.DefaultCellStyle = DataGridViewCellStyle36 + DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle12.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle12.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) + DataGridViewCellStyle12.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle12.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle12.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvFilialen.DefaultCellStyle = DataGridViewCellStyle12 Me.dgvFilialen.Location = New System.Drawing.Point(468, 46) Me.dgvFilialen.Name = "dgvFilialen" Me.dgvFilialen.RowHeadersVisible = False @@ -2822,14 +2935,14 @@ Partial Class frmKundenUebersichtZOLL Me.dgvStat_Frachtf.AllowUserToResizeRows = False Me.dgvStat_Frachtf.BackgroundColor = System.Drawing.Color.White Me.dgvStat_Frachtf.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - DataGridViewCellStyle38.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle38.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle38.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) - DataGridViewCellStyle38.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle38.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle38.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle38.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.dgvStat_Frachtf.DefaultCellStyle = DataGridViewCellStyle38 + DataGridViewCellStyle13.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle13.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle13.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) + DataGridViewCellStyle13.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle13.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle13.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle13.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvStat_Frachtf.DefaultCellStyle = DataGridViewCellStyle13 Me.dgvStat_Frachtf.Location = New System.Drawing.Point(930, 375) Me.dgvStat_Frachtf.Name = "dgvStat_Frachtf" Me.dgvStat_Frachtf.RowHeadersVisible = False @@ -2966,14 +3079,14 @@ Partial Class frmKundenUebersichtZOLL Me.dgvStat_Avis.AllowUserToResizeRows = False Me.dgvStat_Avis.BackgroundColor = System.Drawing.Color.White Me.dgvStat_Avis.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - DataGridViewCellStyle59.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle59.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle59.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) - DataGridViewCellStyle59.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle59.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle59.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle59.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.dgvStat_Avis.DefaultCellStyle = DataGridViewCellStyle59 + DataGridViewCellStyle14.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle14.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle14.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) + DataGridViewCellStyle14.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle14.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle14.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle14.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvStat_Avis.DefaultCellStyle = DataGridViewCellStyle14 Me.dgvStat_Avis.Location = New System.Drawing.Point(699, 375) Me.dgvStat_Avis.Name = "dgvStat_Avis" Me.dgvStat_Avis.RowHeadersVisible = False @@ -3000,14 +3113,14 @@ Partial Class frmKundenUebersichtZOLL Me.dgvStat_Empf.AllowUserToResizeRows = False Me.dgvStat_Empf.BackgroundColor = System.Drawing.Color.White Me.dgvStat_Empf.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - DataGridViewCellStyle60.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle60.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle60.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) - DataGridViewCellStyle60.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle60.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle60.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle60.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.dgvStat_Empf.DefaultCellStyle = DataGridViewCellStyle60 + DataGridViewCellStyle15.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle15.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle15.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) + DataGridViewCellStyle15.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle15.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle15.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle15.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvStat_Empf.DefaultCellStyle = DataGridViewCellStyle15 Me.dgvStat_Empf.Location = New System.Drawing.Point(468, 375) Me.dgvStat_Empf.Name = "dgvStat_Empf" Me.dgvStat_Empf.RowHeadersVisible = False @@ -3034,14 +3147,14 @@ Partial Class frmKundenUebersichtZOLL Me.dgvStat_Abs.AllowUserToResizeRows = False Me.dgvStat_Abs.BackgroundColor = System.Drawing.Color.White Me.dgvStat_Abs.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - DataGridViewCellStyle61.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle61.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle61.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) - DataGridViewCellStyle61.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle61.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle61.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle61.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.dgvStat_Abs.DefaultCellStyle = DataGridViewCellStyle61 + DataGridViewCellStyle16.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle16.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle16.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) + DataGridViewCellStyle16.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle16.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle16.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle16.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvStat_Abs.DefaultCellStyle = DataGridViewCellStyle16 Me.dgvStat_Abs.Location = New System.Drawing.Point(237, 375) Me.dgvStat_Abs.Name = "dgvStat_Abs" Me.dgvStat_Abs.RowHeadersVisible = False @@ -3068,14 +3181,14 @@ Partial Class frmKundenUebersichtZOLL Me.dgvStat_Atr.AllowUserToResizeRows = False Me.dgvStat_Atr.BackgroundColor = System.Drawing.Color.White Me.dgvStat_Atr.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - DataGridViewCellStyle62.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle62.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle62.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) - DataGridViewCellStyle62.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle62.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle62.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle62.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.dgvStat_Atr.DefaultCellStyle = DataGridViewCellStyle62 + DataGridViewCellStyle17.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle17.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle17.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) + DataGridViewCellStyle17.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle17.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle17.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle17.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvStat_Atr.DefaultCellStyle = DataGridViewCellStyle17 Me.dgvStat_Atr.Location = New System.Drawing.Point(6, 375) Me.dgvStat_Atr.Name = "dgvStat_Atr" Me.dgvStat_Atr.RowHeadersVisible = False @@ -3628,29 +3741,42 @@ Partial Class frmKundenUebersichtZOLL ' Me.ContextMenuStrip3.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem3, Me.ÄndernToolStripMenuItem, Me.HochladenToolStripMenuItem, Me.ScannenToolStripMenuItem, Me.PDFLöschenToolStripMenuItem}) Me.ContextMenuStrip3.Name = "ContextMenuStrip1" - Me.ContextMenuStrip3.Size = New System.Drawing.Size(181, 136) + Me.ContextMenuStrip3.Size = New System.Drawing.Size(140, 114) ' 'ToolStripMenuItem3 ' Me.ToolStripMenuItem3.Image = Global.SDL.My.Resources.Resources.del Me.ToolStripMenuItem3.Name = "ToolStripMenuItem3" - Me.ToolStripMenuItem3.Size = New System.Drawing.Size(180, 22) + Me.ToolStripMenuItem3.Size = New System.Drawing.Size(139, 22) Me.ToolStripMenuItem3.Text = "Löschen" ' + 'ÄndernToolStripMenuItem + ' + Me.ÄndernToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.stift + Me.ÄndernToolStripMenuItem.Name = "ÄndernToolStripMenuItem" + Me.ÄndernToolStripMenuItem.Size = New System.Drawing.Size(139, 22) + Me.ÄndernToolStripMenuItem.Text = "Ändern" + ' 'HochladenToolStripMenuItem ' Me.HochladenToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.pdf Me.HochladenToolStripMenuItem.Name = "HochladenToolStripMenuItem" - Me.HochladenToolStripMenuItem.Size = New System.Drawing.Size(180, 22) + Me.HochladenToolStripMenuItem.Size = New System.Drawing.Size(139, 22) Me.HochladenToolStripMenuItem.Text = "Hochladen" ' 'ScannenToolStripMenuItem ' Me.ScannenToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.scanner1 Me.ScannenToolStripMenuItem.Name = "ScannenToolStripMenuItem" - Me.ScannenToolStripMenuItem.Size = New System.Drawing.Size(180, 22) + Me.ScannenToolStripMenuItem.Size = New System.Drawing.Size(139, 22) Me.ScannenToolStripMenuItem.Text = "Scannen" ' + 'PDFLöschenToolStripMenuItem + ' + Me.PDFLöschenToolStripMenuItem.Name = "PDFLöschenToolStripMenuItem" + Me.PDFLöschenToolStripMenuItem.Size = New System.Drawing.Size(139, 22) + Me.PDFLöschenToolStripMenuItem.Text = "PDF löschen" + ' 'DataGridViewTextBoxColumn1 ' Me.DataGridViewTextBoxColumn1.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill @@ -3662,70 +3788,6 @@ Partial Class frmKundenUebersichtZOLL Me.DataGridViewTextBoxColumn2.HeaderText = "KundenNr" Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2" ' - 'cbxGG - ' - Me.cbxGG.AutoSize = True - Me.cbxGG.Location = New System.Drawing.Point(87, 27) - Me.cbxGG.Name = "cbxGG" - Me.cbxGG.Size = New System.Drawing.Size(165, 17) - Me.cbxGG.TabIndex = 213 - Me.cbxGG.Text = "generelle Gestellungsgarantie" - Me.cbxGG.UseVisualStyleBackColor = True - ' - 'ÄndernToolStripMenuItem - ' - Me.ÄndernToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.stift - Me.ÄndernToolStripMenuItem.Name = "ÄndernToolStripMenuItem" - Me.ÄndernToolStripMenuItem.Size = New System.Drawing.Size(180, 22) - Me.ÄndernToolStripMenuItem.Text = "Ändern" - ' - 'ucKundenKontakte - ' - Me.ucKundenKontakte.Dock = System.Windows.Forms.DockStyle.Fill - Me.ucKundenKontakte.Location = New System.Drawing.Point(3, 3) - Me.ucKundenKontakte.Name = "ucKundenKontakte" - Me.ucKundenKontakte.Size = New System.Drawing.Size(473, 158) - Me.ucKundenKontakte.TabIndex = 0 - ' - 'UsrCntlKundenAvisoMailBenachrichtigung1 - ' - Me.UsrCntlKundenAvisoMailBenachrichtigung1.BackColor = System.Drawing.Color.White - Me.UsrCntlKundenAvisoMailBenachrichtigung1.Dock = System.Windows.Forms.DockStyle.Fill - Me.UsrCntlKundenAvisoMailBenachrichtigung1.Location = New System.Drawing.Point(3, 3) - Me.UsrCntlKundenAvisoMailBenachrichtigung1.Name = "UsrCntlKundenAvisoMailBenachrichtigung1" - Me.UsrCntlKundenAvisoMailBenachrichtigung1.Size = New System.Drawing.Size(473, 158) - Me.UsrCntlKundenAvisoMailBenachrichtigung1.TabIndex = 0 - ' - 'UsrCntlOfferte1 - ' - Me.UsrCntlOfferte1.BackColor = System.Drawing.Color.White - Me.UsrCntlOfferte1.Dock = System.Windows.Forms.DockStyle.Fill - Me.UsrCntlOfferte1.Location = New System.Drawing.Point(3, 3) - Me.UsrCntlOfferte1.Margin = New System.Windows.Forms.Padding(2) - Me.UsrCntlOfferte1.Name = "UsrCntlOfferte1" - Me.UsrCntlOfferte1.Size = New System.Drawing.Size(1176, 691) - Me.UsrCntlOfferte1.TabIndex = 0 - ' - 'Button9 - ' - Me.Button9.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button9.ForeColor = System.Drawing.Color.Black - Me.Button9.ImageAlign = System.Drawing.ContentAlignment.TopCenter - Me.Button9.Location = New System.Drawing.Point(362, 24) - Me.Button9.Name = "Button9" - Me.Button9.Size = New System.Drawing.Size(78, 22) - Me.Button9.TabIndex = 214 - Me.Button9.Tag = "" - Me.Button9.Text = "Abbrechen" - Me.Button9.UseVisualStyleBackColor = True - Me.Button9.Visible = False - ' - 'PDFLöschenToolStripMenuItem - ' - Me.PDFLöschenToolStripMenuItem.Name = "PDFLöschenToolStripMenuItem" - Me.PDFLöschenToolStripMenuItem.Size = New System.Drawing.Size(180, 22) - Me.PDFLöschenToolStripMenuItem.Text = "PDF löschen" - ' 'frmKundenUebersichtZOLL ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -3750,6 +3812,8 @@ Partial Class frmKundenUebersichtZOLL Me.pnlVERAGSnspr.ResumeLayout(False) Me.pnlVERAGSnspr.PerformLayout() Me.ContextMenuStrip1.ResumeLayout(False) + Me.Panel4.ResumeLayout(False) + Me.Panel4.PerformLayout() Me.pnlAnh.ResumeLayout(False) CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).EndInit() Me.Panel3.ResumeLayout(False) @@ -4081,4 +4145,8 @@ Partial Class frmKundenUebersichtZOLL Friend WithEvents ÄndernToolStripMenuItem As ToolStripMenuItem Friend WithEvents Button9 As Button Friend WithEvents PDFLöschenToolStripMenuItem As ToolStripMenuItem + Friend WithEvents Label45 As Label + Friend WithEvents lblBonitaetRisikostufe As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label46 As Label + Friend WithEvents Panel4 As Panel End Class diff --git a/SDL/kunden/frmKundenUebersichtZOLL.vb b/SDL/kunden/frmKundenUebersichtZOLL.vb index 4e6c0e77..4ee01e00 100644 --- a/SDL/kunden/frmKundenUebersichtZOLL.vb +++ b/SDL/kunden/frmKundenUebersichtZOLL.vb @@ -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 diff --git a/SDL/kunden/frmNeuerKunde.vb b/SDL/kunden/frmNeuerKunde.vb index 3008dac0..04ebdc4e 100644 --- a/SDL/kunden/frmNeuerKunde.vb +++ b/SDL/kunden/frmNeuerKunde.vb @@ -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")) diff --git a/SDL/kunden/usrcntlKundeBearbeitenFull.vb b/SDL/kunden/usrcntlKundeBearbeitenFull.vb index 06267958..6bc04e7d 100644 --- a/SDL/kunden/usrcntlKundeBearbeitenFull.vb +++ b/SDL/kunden/usrcntlKundeBearbeitenFull.vb @@ -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 diff --git a/SDL/mdm/usrCntlLkwListe.vb b/SDL/mdm/usrCntlLkwListe.vb index be404a9e..9d001115 100644 --- a/SDL/mdm/usrCntlLkwListe.vb +++ b/SDL/mdm/usrCntlLkwListe.vb @@ -30,7 +30,6 @@ Public Class usrCntlLkwListe FlatButton2.Enabled = False Button14.Enabled = False End If - ' Panel3.Height = Me.Height / 2 + 300 End Sub diff --git a/SDL/zoll/usrCntlAuswertungenFiskal_IntrastatMeldung.vb b/SDL/zoll/usrCntlAuswertungenFiskal_IntrastatMeldung.vb index 44fb9ef7..8f710072 100644 --- a/SDL/zoll/usrCntlAuswertungenFiskal_IntrastatMeldung.vb +++ b/SDL/zoll/usrCntlAuswertungenFiskal_IntrastatMeldung.vb @@ -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 diff --git a/SDL/zoll/usrCntlZOLLAuswertungen.Designer.vb b/SDL/zoll/usrCntlZOLLAuswertungen.Designer.vb index ddefff3a..e876637f 100644 --- a/SDL/zoll/usrCntlZOLLAuswertungen.Designer.vb +++ b/SDL/zoll/usrCntlZOLLAuswertungen.Designer.vb @@ -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 diff --git a/SDL/zoll/usrCntlZOLLAuswertungen.vb b/SDL/zoll/usrCntlZOLLAuswertungen.vb index fe7dcdae..6eab3ecf 100644 --- a/SDL/zoll/usrCntlZOLLAuswertungen.vb +++ b/SDL/zoll/usrCntlZOLLAuswertungen.vb @@ -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 diff --git a/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb b/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb index a2f38df6..73d31818 100644 --- a/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb +++ b/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb @@ -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 " diff --git a/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/frmPDFScanList.Designer.vb b/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/frmPDFScanList.Designer.vb index 68d385c4..96492877 100644 --- a/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/frmPDFScanList.Designer.vb +++ b/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/frmPDFScanList.Designer.vb @@ -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 ' diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cAdressen.vb b/VERAG_PROG_ALLGEMEIN/Classes/cAdressen.vb index aca635c0..fab4d4bc 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cAdressen.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cAdressen.vb @@ -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 " & diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cAvisoAnhaenge.vb b/VERAG_PROG_ALLGEMEIN/Classes/cAvisoAnhaenge.vb new file mode 100644 index 00000000..27e69a66 --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/Classes/cAvisoAnhaenge.vb @@ -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 diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cBonitaetsauskunft.vb b/VERAG_PROG_ALLGEMEIN/Classes/cBonitaetsauskunft.vb index f8b4ae97..864c4945 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cBonitaetsauskunft.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cBonitaetsauskunft.vb @@ -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 diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cKunde.vb b/VERAG_PROG_ALLGEMEIN/Classes/cKunde.vb index b2771f0b..01f8eb77 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cKunde.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cKunde.vb @@ -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 " & diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb b/VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb index 83953e4c..40e3e491 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb @@ -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 " & diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cKundenKontakte.vb b/VERAG_PROG_ALLGEMEIN/Classes/cKundenKontakte.vb index d774b841..ce20d035 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cKundenKontakte.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cKundenKontakte.vb @@ -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 diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cKundenVermerk.vb b/VERAG_PROG_ALLGEMEIN/Classes/cKundenVermerk.vb index 27307d26..b82899b7 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cKundenVermerk.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cKundenVermerk.vb @@ -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 diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb b/VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb index 5c93be80..658cf466 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb @@ -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") diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cZollArtikel.vb b/VERAG_PROG_ALLGEMEIN/Classes/cZollArtikel.vb new file mode 100644 index 00000000..b0db5c25 --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/Classes/cZollArtikel.vb @@ -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 diff --git a/VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb b/VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb index 460bde73..4f87f420 100644 --- a/VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb +++ b/VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb @@ -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 diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/OUT_NCTS/VERAG_out_ncts.Designer.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/OUT_NCTS/VERAG_out_ncts.Designer.vb new file mode 100644 index 00000000..f060fe79 --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/OUT_NCTS/VERAG_out_ncts.Designer.vb @@ -0,0 +1,2694 @@ +'' ------------------------------------------------------------------------------ +'' +'' Generated by Xsd2Code++. Version 5.0.0.47. www.xsd2code.com +'' VERAG_OUT_NCTSListVisualBasicFalseFalseFalseOnlyIfDifferentFalseNet45AllTrueTrueTrueFalseFalseFalseFalseFalseNoneStartWithUnderscoreFalseFalseFalseFalseFalsePublicTrueFalseFalseFalseFalseFalseFalseFalseFalseTrueTrueTrueFalseTrueSerializeDeserializeSaveToFileLoadFromFileFalseTrueIndent2SpaceFalseFalseUTF8XmlSerializerFalseFalseFalseFalseFalseFalseFalseEntityBaseFalseFalse +'' +'' ------------------------------------------------------------------------------ +Imports System +Imports System.Diagnostics +Imports System.Xml.Serialization +Imports System.Collections +Imports System.Xml.Schema +Imports System.ComponentModel +Imports System.IO +Imports System.Text +Imports System.Xml +Imports System.Collections.Generic + +Namespace VERAG_OUT_NCTS + + + Partial Public Class VERAG_out_ncts + +#Region "Private fields" + Private _version As Object + + Private _company As Object + + Private _department As Object + + Private _internalReference As VERAG_out_nctsInternalReference + + Private _processData As VERAG_out_nctsProcessData + + Private _nCTS_Data As VERAG_out_nctsNCTS_Data + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._nCTS_Data = New VERAG_out_nctsNCTS_Data() + Me._processData = New VERAG_out_nctsProcessData() + Me._internalReference = New VERAG_out_nctsInternalReference() + End Sub + + Public Property Version() As Object + Get + Return Me._version + End Get + Set + Me._version = Value + End Set + End Property + + Public Property Company() As Object + Get + Return Me._company + End Get + Set + Me._company = Value + End Set + End Property + + Public Property Department() As Object + Get + Return Me._department + End Get + Set + Me._department = Value + End Set + End Property + + Public Property InternalReference() As VERAG_out_nctsInternalReference + Get + Return Me._internalReference + End Get + Set + Me._internalReference = Value + End Set + End Property + + Public Property ProcessData() As VERAG_out_nctsProcessData + Get + Return Me._processData + End Get + Set + Me._processData = Value + End Set + End Property + + Public Property NCTS_Data() As VERAG_out_nctsNCTS_Data + Get + Return Me._nCTS_Data + End Get + Set + Me._nCTS_Data = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VERAG_out_ncts)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VERAG_out_ncts object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an VERAG_out_ncts object + ''' + ''' string workflow markup to deserialize + ''' Output VERAG_out_ncts object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VERAG_out_ncts, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_ncts) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VERAG_out_ncts) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As VERAG_out_ncts + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VERAG_out_ncts) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VERAG_out_ncts + Return CType(Serializer.Deserialize(s), VERAG_out_ncts) + End Function +#End Region + + ''' + ''' Serializes current VERAG_out_ncts object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VERAG_out_ncts object + ''' + ''' string xml file to load and deserialize + ''' Output VERAG_out_ncts object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VERAG_out_ncts, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_ncts) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VERAG_out_ncts) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As VERAG_out_ncts + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class VERAG_out_nctsInternalReference + +#Region "Private fields" + Private _officeCode As Object + + Private _positionNumber As Object + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property OfficeCode() As Object + Get + Return Me._officeCode + End Get + Set + Me._officeCode = Value + End Set + End Property + + Public Property PositionNumber() As Object + Get + Return Me._positionNumber + End Get + Set + Me._positionNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VERAG_out_nctsInternalReference)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VERAG_out_nctsInternalReference object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an VERAG_out_nctsInternalReference object + ''' + ''' string workflow markup to deserialize + ''' Output VERAG_out_nctsInternalReference object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VERAG_out_nctsInternalReference, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsInternalReference) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VERAG_out_nctsInternalReference) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As VERAG_out_nctsInternalReference + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VERAG_out_nctsInternalReference) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VERAG_out_nctsInternalReference + Return CType(Serializer.Deserialize(s), VERAG_out_nctsInternalReference) + End Function +#End Region + + ''' + ''' Serializes current VERAG_out_nctsInternalReference object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VERAG_out_nctsInternalReference object + ''' + ''' string xml file to load and deserialize + ''' Output VERAG_out_nctsInternalReference object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VERAG_out_nctsInternalReference, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsInternalReference) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VERAG_out_nctsInternalReference) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As VERAG_out_nctsInternalReference + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class VERAG_out_nctsProcessData + +#Region "Private fields" + Private _status As Object + + Private _transactionDate As Object + + Private _mRN As Object + + Private _referenzNumber As Object + + Private _procedureCode As Object + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Status() As Object + Get + Return Me._status + End Get + Set + Me._status = Value + End Set + End Property + + Public Property TransactionDate() As Object + Get + Return Me._transactionDate + End Get + Set + Me._transactionDate = Value + End Set + End Property + + Public Property MRN() As Object + Get + Return Me._mRN + End Get + Set + Me._mRN = Value + End Set + End Property + + Public Property ReferenzNumber() As Object + Get + Return Me._referenzNumber + End Get + Set + Me._referenzNumber = Value + End Set + End Property + + Public Property ProcedureCode() As Object + Get + Return Me._procedureCode + End Get + Set + Me._procedureCode = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VERAG_out_nctsProcessData)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VERAG_out_nctsProcessData object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an VERAG_out_nctsProcessData object + ''' + ''' string workflow markup to deserialize + ''' Output VERAG_out_nctsProcessData object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VERAG_out_nctsProcessData, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsProcessData) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VERAG_out_nctsProcessData) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As VERAG_out_nctsProcessData + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VERAG_out_nctsProcessData) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VERAG_out_nctsProcessData + Return CType(Serializer.Deserialize(s), VERAG_out_nctsProcessData) + End Function +#End Region + + ''' + ''' Serializes current VERAG_out_nctsProcessData object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VERAG_out_nctsProcessData object + ''' + ''' string xml file to load and deserialize + ''' Output VERAG_out_nctsProcessData object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VERAG_out_nctsProcessData, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsProcessData) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VERAG_out_nctsProcessData) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As VERAG_out_nctsProcessData + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class VERAG_out_nctsNCTS_Data + +#Region "Private fields" + Private _datDeterminationLimit As Date + + Private _licensePlate As Object + + Private _departureCustomsOffice As Object + + Private _destinationCustomsOffice As Object + + Private _departureCountry As Object + + Private _destinationCountry As Object + + Private _sender As VERAG_out_nctsNCTS_DataSender + + Private _consignee As VERAG_out_nctsNCTS_DataConsignee + + Private _carrier As VERAG_out_nctsNCTS_DataCarrier + + Private _garantee As VERAG_out_nctsNCTS_DataGarantee + + Private _sumGrossWeight As Decimal + + Private _position As List(Of VERAG_out_nctsNCTS_DataPosition) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._position = New List(Of VERAG_out_nctsNCTS_DataPosition)() + Me._garantee = New VERAG_out_nctsNCTS_DataGarantee() + Me._carrier = New VERAG_out_nctsNCTS_DataCarrier() + Me._consignee = New VERAG_out_nctsNCTS_DataConsignee() + Me._sender = New VERAG_out_nctsNCTS_DataSender() + End Sub + + + Public Property DatDeterminationLimit() As Date + Get + Return Me._datDeterminationLimit + End Get + Set + Me._datDeterminationLimit = Value + End Set + End Property + + Public Property LicensePlate() As Object + Get + Return Me._licensePlate + End Get + Set + Me._licensePlate = Value + End Set + End Property + + Public Property DepartureCustomsOffice() As Object + Get + Return Me._departureCustomsOffice + End Get + Set + Me._departureCustomsOffice = Value + End Set + End Property + + Public Property DestinationCustomsOffice() As Object + Get + Return Me._destinationCustomsOffice + End Get + Set + Me._destinationCustomsOffice = Value + End Set + End Property + + Public Property DepartureCountry() As Object + Get + Return Me._departureCountry + End Get + Set + Me._departureCountry = Value + End Set + End Property + + Public Property DestinationCountry() As Object + Get + Return Me._destinationCountry + End Get + Set + Me._destinationCountry = Value + End Set + End Property + + Public Property Sender() As VERAG_out_nctsNCTS_DataSender + Get + Return Me._sender + End Get + Set + Me._sender = Value + End Set + End Property + + Public Property Consignee() As VERAG_out_nctsNCTS_DataConsignee + Get + Return Me._consignee + End Get + Set + Me._consignee = Value + End Set + End Property + + Public Property Carrier() As VERAG_out_nctsNCTS_DataCarrier + Get + Return Me._carrier + End Get + Set + Me._carrier = Value + End Set + End Property + + Public Property Garantee() As VERAG_out_nctsNCTS_DataGarantee + Get + Return Me._garantee + End Get + Set + Me._garantee = Value + End Set + End Property + + Public Property SumGrossWeight() As Decimal + Get + Return Me._sumGrossWeight + End Get + Set + Me._sumGrossWeight = Value + End Set + End Property + + + Public Property Position() As List(Of VERAG_out_nctsNCTS_DataPosition) + Get + Return Me._position + End Get + Set + Me._position = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VERAG_out_nctsNCTS_Data)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VERAG_out_nctsNCTS_Data object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an VERAG_out_nctsNCTS_Data object + ''' + ''' string workflow markup to deserialize + ''' Output VERAG_out_nctsNCTS_Data object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VERAG_out_nctsNCTS_Data, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsNCTS_Data) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VERAG_out_nctsNCTS_Data) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As VERAG_out_nctsNCTS_Data + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VERAG_out_nctsNCTS_Data) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VERAG_out_nctsNCTS_Data + Return CType(Serializer.Deserialize(s), VERAG_out_nctsNCTS_Data) + End Function +#End Region + + ''' + ''' Serializes current VERAG_out_nctsNCTS_Data object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VERAG_out_nctsNCTS_Data object + ''' + ''' string xml file to load and deserialize + ''' Output VERAG_out_nctsNCTS_Data object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VERAG_out_nctsNCTS_Data, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsNCTS_Data) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VERAG_out_nctsNCTS_Data) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As VERAG_out_nctsNCTS_Data + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class VERAG_out_nctsNCTS_DataSender + +#Region "Private fields" + Private _name As Object + + Private _adress As VERAG_out_nctsNCTS_DataSenderAdress + + Private _eORI As Object + + Private _eORI_NL As Object + + Private _uID_Nr As Object + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._adress = New VERAG_out_nctsNCTS_DataSenderAdress() + End Sub + + Public Property Name() As Object + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + Public Property Adress() As VERAG_out_nctsNCTS_DataSenderAdress + Get + Return Me._adress + End Get + Set + Me._adress = Value + End Set + End Property + + Public Property EORI() As Object + Get + Return Me._eORI + End Get + Set + Me._eORI = Value + End Set + End Property + + Public Property EORI_NL() As Object + Get + Return Me._eORI_NL + End Get + Set + Me._eORI_NL = Value + End Set + End Property + + Public Property UID_Nr() As Object + Get + Return Me._uID_Nr + End Get + Set + Me._uID_Nr = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VERAG_out_nctsNCTS_DataSender)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VERAG_out_nctsNCTS_DataSender object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an VERAG_out_nctsNCTS_DataSender object + ''' + ''' string workflow markup to deserialize + ''' Output VERAG_out_nctsNCTS_DataSender object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VERAG_out_nctsNCTS_DataSender, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsNCTS_DataSender) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VERAG_out_nctsNCTS_DataSender) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As VERAG_out_nctsNCTS_DataSender + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VERAG_out_nctsNCTS_DataSender) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VERAG_out_nctsNCTS_DataSender + Return CType(Serializer.Deserialize(s), VERAG_out_nctsNCTS_DataSender) + End Function +#End Region + + ''' + ''' Serializes current VERAG_out_nctsNCTS_DataSender object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VERAG_out_nctsNCTS_DataSender object + ''' + ''' string xml file to load and deserialize + ''' Output VERAG_out_nctsNCTS_DataSender object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VERAG_out_nctsNCTS_DataSender, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsNCTS_DataSender) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VERAG_out_nctsNCTS_DataSender) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As VERAG_out_nctsNCTS_DataSender + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class VERAG_out_nctsNCTS_DataSenderAdress + +#Region "Private fields" + Private _country As Object + + Private _postcode As Object + + Private _city As Object + + Private _street As Object + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Country() As Object + Get + Return Me._country + End Get + Set + Me._country = Value + End Set + End Property + + Public Property Postcode() As Object + Get + Return Me._postcode + End Get + Set + Me._postcode = Value + End Set + End Property + + Public Property City() As Object + Get + Return Me._city + End Get + Set + Me._city = Value + End Set + End Property + + Public Property Street() As Object + Get + Return Me._street + End Get + Set + Me._street = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VERAG_out_nctsNCTS_DataSenderAdress)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VERAG_out_nctsNCTS_DataSenderAdress object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an VERAG_out_nctsNCTS_DataSenderAdress object + ''' + ''' string workflow markup to deserialize + ''' Output VERAG_out_nctsNCTS_DataSenderAdress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VERAG_out_nctsNCTS_DataSenderAdress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsNCTS_DataSenderAdress) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VERAG_out_nctsNCTS_DataSenderAdress) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As VERAG_out_nctsNCTS_DataSenderAdress + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VERAG_out_nctsNCTS_DataSenderAdress) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VERAG_out_nctsNCTS_DataSenderAdress + Return CType(Serializer.Deserialize(s), VERAG_out_nctsNCTS_DataSenderAdress) + End Function +#End Region + + ''' + ''' Serializes current VERAG_out_nctsNCTS_DataSenderAdress object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VERAG_out_nctsNCTS_DataSenderAdress object + ''' + ''' string xml file to load and deserialize + ''' Output VERAG_out_nctsNCTS_DataSenderAdress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VERAG_out_nctsNCTS_DataSenderAdress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsNCTS_DataSenderAdress) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VERAG_out_nctsNCTS_DataSenderAdress) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As VERAG_out_nctsNCTS_DataSenderAdress + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class VERAG_out_nctsNCTS_DataConsignee + +#Region "Private fields" + Private _name As Object + + Private _adress As VERAG_out_nctsNCTS_DataConsigneeAdress + + Private _eORI As Object + + Private _eORI_NL As Object + + Private _uID_Nr As Object + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._adress = New VERAG_out_nctsNCTS_DataConsigneeAdress() + End Sub + + Public Property Name() As Object + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + Public Property Adress() As VERAG_out_nctsNCTS_DataConsigneeAdress + Get + Return Me._adress + End Get + Set + Me._adress = Value + End Set + End Property + + Public Property EORI() As Object + Get + Return Me._eORI + End Get + Set + Me._eORI = Value + End Set + End Property + + Public Property EORI_NL() As Object + Get + Return Me._eORI_NL + End Get + Set + Me._eORI_NL = Value + End Set + End Property + + Public Property UID_Nr() As Object + Get + Return Me._uID_Nr + End Get + Set + Me._uID_Nr = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VERAG_out_nctsNCTS_DataConsignee)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VERAG_out_nctsNCTS_DataConsignee object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an VERAG_out_nctsNCTS_DataConsignee object + ''' + ''' string workflow markup to deserialize + ''' Output VERAG_out_nctsNCTS_DataConsignee object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VERAG_out_nctsNCTS_DataConsignee, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsNCTS_DataConsignee) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VERAG_out_nctsNCTS_DataConsignee) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As VERAG_out_nctsNCTS_DataConsignee + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VERAG_out_nctsNCTS_DataConsignee) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VERAG_out_nctsNCTS_DataConsignee + Return CType(Serializer.Deserialize(s), VERAG_out_nctsNCTS_DataConsignee) + End Function +#End Region + + ''' + ''' Serializes current VERAG_out_nctsNCTS_DataConsignee object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VERAG_out_nctsNCTS_DataConsignee object + ''' + ''' string xml file to load and deserialize + ''' Output VERAG_out_nctsNCTS_DataConsignee object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VERAG_out_nctsNCTS_DataConsignee, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsNCTS_DataConsignee) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VERAG_out_nctsNCTS_DataConsignee) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As VERAG_out_nctsNCTS_DataConsignee + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class VERAG_out_nctsNCTS_DataConsigneeAdress + +#Region "Private fields" + Private _country As Object + + Private _postcode As Object + + Private _city As Object + + Private _street As Object + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Country() As Object + Get + Return Me._country + End Get + Set + Me._country = Value + End Set + End Property + + Public Property Postcode() As Object + Get + Return Me._postcode + End Get + Set + Me._postcode = Value + End Set + End Property + + Public Property City() As Object + Get + Return Me._city + End Get + Set + Me._city = Value + End Set + End Property + + Public Property Street() As Object + Get + Return Me._street + End Get + Set + Me._street = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VERAG_out_nctsNCTS_DataConsigneeAdress)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VERAG_out_nctsNCTS_DataConsigneeAdress object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an VERAG_out_nctsNCTS_DataConsigneeAdress object + ''' + ''' string workflow markup to deserialize + ''' Output VERAG_out_nctsNCTS_DataConsigneeAdress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VERAG_out_nctsNCTS_DataConsigneeAdress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsNCTS_DataConsigneeAdress) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VERAG_out_nctsNCTS_DataConsigneeAdress) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As VERAG_out_nctsNCTS_DataConsigneeAdress + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VERAG_out_nctsNCTS_DataConsigneeAdress) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VERAG_out_nctsNCTS_DataConsigneeAdress + Return CType(Serializer.Deserialize(s), VERAG_out_nctsNCTS_DataConsigneeAdress) + End Function +#End Region + + ''' + ''' Serializes current VERAG_out_nctsNCTS_DataConsigneeAdress object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VERAG_out_nctsNCTS_DataConsigneeAdress object + ''' + ''' string xml file to load and deserialize + ''' Output VERAG_out_nctsNCTS_DataConsigneeAdress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VERAG_out_nctsNCTS_DataConsigneeAdress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsNCTS_DataConsigneeAdress) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VERAG_out_nctsNCTS_DataConsigneeAdress) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As VERAG_out_nctsNCTS_DataConsigneeAdress + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class VERAG_out_nctsNCTS_DataCarrier + +#Region "Private fields" + Private _name As Object + + Private _adress As VERAG_out_nctsNCTS_DataCarrierAdress + + Private _eORI As Object + + Private _eORI_NL As Object + + Private _uID_Nr As Object + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._adress = New VERAG_out_nctsNCTS_DataCarrierAdress() + End Sub + + Public Property Name() As Object + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + Public Property Adress() As VERAG_out_nctsNCTS_DataCarrierAdress + Get + Return Me._adress + End Get + Set + Me._adress = Value + End Set + End Property + + Public Property EORI() As Object + Get + Return Me._eORI + End Get + Set + Me._eORI = Value + End Set + End Property + + Public Property EORI_NL() As Object + Get + Return Me._eORI_NL + End Get + Set + Me._eORI_NL = Value + End Set + End Property + + Public Property UID_Nr() As Object + Get + Return Me._uID_Nr + End Get + Set + Me._uID_Nr = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VERAG_out_nctsNCTS_DataCarrier)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VERAG_out_nctsNCTS_DataCarrier object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an VERAG_out_nctsNCTS_DataCarrier object + ''' + ''' string workflow markup to deserialize + ''' Output VERAG_out_nctsNCTS_DataCarrier object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VERAG_out_nctsNCTS_DataCarrier, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsNCTS_DataCarrier) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VERAG_out_nctsNCTS_DataCarrier) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As VERAG_out_nctsNCTS_DataCarrier + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VERAG_out_nctsNCTS_DataCarrier) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VERAG_out_nctsNCTS_DataCarrier + Return CType(Serializer.Deserialize(s), VERAG_out_nctsNCTS_DataCarrier) + End Function +#End Region + + ''' + ''' Serializes current VERAG_out_nctsNCTS_DataCarrier object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VERAG_out_nctsNCTS_DataCarrier object + ''' + ''' string xml file to load and deserialize + ''' Output VERAG_out_nctsNCTS_DataCarrier object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VERAG_out_nctsNCTS_DataCarrier, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsNCTS_DataCarrier) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VERAG_out_nctsNCTS_DataCarrier) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As VERAG_out_nctsNCTS_DataCarrier + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class VERAG_out_nctsNCTS_DataCarrierAdress + +#Region "Private fields" + Private _country As Object + + Private _postcode As Object + + Private _city As Object + + Private _street As Object + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Country() As Object + Get + Return Me._country + End Get + Set + Me._country = Value + End Set + End Property + + Public Property Postcode() As Object + Get + Return Me._postcode + End Get + Set + Me._postcode = Value + End Set + End Property + + Public Property City() As Object + Get + Return Me._city + End Get + Set + Me._city = Value + End Set + End Property + + Public Property Street() As Object + Get + Return Me._street + End Get + Set + Me._street = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VERAG_out_nctsNCTS_DataCarrierAdress)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VERAG_out_nctsNCTS_DataCarrierAdress object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an VERAG_out_nctsNCTS_DataCarrierAdress object + ''' + ''' string workflow markup to deserialize + ''' Output VERAG_out_nctsNCTS_DataCarrierAdress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VERAG_out_nctsNCTS_DataCarrierAdress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsNCTS_DataCarrierAdress) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VERAG_out_nctsNCTS_DataCarrierAdress) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As VERAG_out_nctsNCTS_DataCarrierAdress + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VERAG_out_nctsNCTS_DataCarrierAdress) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VERAG_out_nctsNCTS_DataCarrierAdress + Return CType(Serializer.Deserialize(s), VERAG_out_nctsNCTS_DataCarrierAdress) + End Function +#End Region + + ''' + ''' Serializes current VERAG_out_nctsNCTS_DataCarrierAdress object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VERAG_out_nctsNCTS_DataCarrierAdress object + ''' + ''' string xml file to load and deserialize + ''' Output VERAG_out_nctsNCTS_DataCarrierAdress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VERAG_out_nctsNCTS_DataCarrierAdress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsNCTS_DataCarrierAdress) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VERAG_out_nctsNCTS_DataCarrierAdress) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As VERAG_out_nctsNCTS_DataCarrierAdress + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class VERAG_out_nctsNCTS_DataGarantee + +#Region "Private fields" + Private _gRN As Object + + Private _amount As Object + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property GRN() As Object + Get + Return Me._gRN + End Get + Set + Me._gRN = Value + End Set + End Property + + Public Property Amount() As Object + Get + Return Me._amount + End Get + Set + Me._amount = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VERAG_out_nctsNCTS_DataGarantee)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VERAG_out_nctsNCTS_DataGarantee object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an VERAG_out_nctsNCTS_DataGarantee object + ''' + ''' string workflow markup to deserialize + ''' Output VERAG_out_nctsNCTS_DataGarantee object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VERAG_out_nctsNCTS_DataGarantee, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsNCTS_DataGarantee) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VERAG_out_nctsNCTS_DataGarantee) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As VERAG_out_nctsNCTS_DataGarantee + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VERAG_out_nctsNCTS_DataGarantee) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VERAG_out_nctsNCTS_DataGarantee + Return CType(Serializer.Deserialize(s), VERAG_out_nctsNCTS_DataGarantee) + End Function +#End Region + + ''' + ''' Serializes current VERAG_out_nctsNCTS_DataGarantee object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VERAG_out_nctsNCTS_DataGarantee object + ''' + ''' string xml file to load and deserialize + ''' Output VERAG_out_nctsNCTS_DataGarantee object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VERAG_out_nctsNCTS_DataGarantee, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsNCTS_DataGarantee) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VERAG_out_nctsNCTS_DataGarantee) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As VERAG_out_nctsNCTS_DataGarantee + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class VERAG_out_nctsNCTS_DataPosition + +#Region "Private fields" + Private _posNr As Object + + Private _quantity As Object + + Private _packaging As Object + + Private _goodsDescription As Object + + Private _grossWeight As Object + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property PosNr() As Object + Get + Return Me._posNr + End Get + Set + Me._posNr = Value + End Set + End Property + + Public Property Quantity() As Object + Get + Return Me._quantity + End Get + Set + Me._quantity = Value + End Set + End Property + + Public Property Packaging() As Object + Get + Return Me._packaging + End Get + Set + Me._packaging = Value + End Set + End Property + + Public Property GoodsDescription() As Object + Get + Return Me._goodsDescription + End Get + Set + Me._goodsDescription = Value + End Set + End Property + + Public Property GrossWeight() As Object + Get + Return Me._grossWeight + End Get + Set + Me._grossWeight = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VERAG_out_nctsNCTS_DataPosition)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VERAG_out_nctsNCTS_DataPosition object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an VERAG_out_nctsNCTS_DataPosition object + ''' + ''' string workflow markup to deserialize + ''' Output VERAG_out_nctsNCTS_DataPosition object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VERAG_out_nctsNCTS_DataPosition, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsNCTS_DataPosition) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VERAG_out_nctsNCTS_DataPosition) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As VERAG_out_nctsNCTS_DataPosition + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VERAG_out_nctsNCTS_DataPosition) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VERAG_out_nctsNCTS_DataPosition + Return CType(Serializer.Deserialize(s), VERAG_out_nctsNCTS_DataPosition) + End Function +#End Region + + ''' + ''' Serializes current VERAG_out_nctsNCTS_DataPosition object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VERAG_out_nctsNCTS_DataPosition object + ''' + ''' string xml file to load and deserialize + ''' Output VERAG_out_nctsNCTS_DataPosition object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VERAG_out_nctsNCTS_DataPosition, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsNCTS_DataPosition) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VERAG_out_nctsNCTS_DataPosition) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As VERAG_out_nctsNCTS_DataPosition + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class +End Namespace diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/OUT_NCTS/VERAG_out_ncts.xsd b/VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/OUT_NCTS/VERAG_out_ncts.xsd new file mode 100644 index 00000000..69d68654 --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/OUT_NCTS/VERAG_out_ncts.xsd @@ -0,0 +1,130 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/cVERAG_OUT_NCTS.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/cVERAG_OUT_NCTS.vb new file mode 100644 index 00000000..d889d7c2 --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/cVERAG_OUT_NCTS.vb @@ -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 diff --git a/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj b/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj index b9eaeba8..5eca2b76 100644 --- a/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj +++ b/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj @@ -73,7 +73,8 @@ ..\..\..\dll\Ghostscript.NET.dll - + + False ..\..\..\dll\itextsharp.dll @@ -105,6 +106,12 @@ + + C:\Program Files (x86)\Viscomsoft .NET PDF Viewer SDK\Examples\VB.NET2010\Viewer\lib\Viscomsoft.PDFViewer.dll + + + C:\Program Files (x86)\Viscomsoft .NET PDF Viewer SDK\Examples\VB.NET2010\Viewer\lib\ViscomsoftPDFCore.dll + @@ -271,6 +278,7 @@ + @@ -298,6 +306,7 @@ + @@ -372,6 +381,8 @@ + + True True @@ -446,6 +457,9 @@ Settings.Designer.vb + + Designer + Reference.map diff --git a/VERAG_PROG_ALLGEMEIN/frmScan.Designer.vb b/VERAG_PROG_ALLGEMEIN/frmScan.Designer.vb index 8ffd7102..1d5cddd0 100644 --- a/VERAG_PROG_ALLGEMEIN/frmScan.Designer.vb +++ b/VERAG_PROG_ALLGEMEIN/frmScan.Designer.vb @@ -22,6 +22,7 @@ Partial Class frmScan 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. _ 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 diff --git a/VERAG_PROG_ALLGEMEIN/frmScan.vb b/VERAG_PROG_ALLGEMEIN/frmScan.vb index e4f4a9a5..41fbb144 100644 --- a/VERAG_PROG_ALLGEMEIN/frmScan.vb +++ b/VERAG_PROG_ALLGEMEIN/frmScan.vb @@ -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