diff --git a/SDL/App.config b/SDL/App.config index 67bb3f3f..d1b0c134 100644 --- a/SDL/App.config +++ b/SDL/App.config @@ -1,35 +1,39 @@ - + -
+
- + - + - - + + - - + + - - + + - - + + + + + + @@ -53,18 +57,18 @@ - - + + - + - + diff --git a/SDL/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA.vb b/SDL/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA.vb index 08218baa..2cf515a4 100644 --- a/SDL/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA.vb +++ b/SDL/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA.vb @@ -348,6 +348,12 @@ Public Class usrCntlATLAS_EZA ' Dim cdy As New cDakosyEZA cdy.EZA_ObjectName = BezugsNr ' cdy.EZA_AbgangsDienststellennummer = "DE004102" + 'frmZollanmeldung.setAbgangszollstelle(cdy.eza_Eingangszollstelle, AVISO) + frmZollanmeldung.setZollstelle(cdy.eza_AdressierteZollstelle, AVISO) + If cdy.eza_AdressierteZollstelle IsNot Nothing AndAlso cdy.eza_AdressierteZollstelle.Length = 8 Then 'nur 4 stellen erlaubt!! 'DE00 fällt weg + EZA.eza_AdressierteZollstelle = cdy.eza_AdressierteZollstelle.Substring(4, 4) + End If + ' cdy.EZA_VersendungsLandCode = "DE" cdy.EZA_dyaArt = cDy_ART If AVISO IsNot Nothing Then @@ -390,6 +396,8 @@ Public Class usrCntlATLAS_EZA If SENDUNG IsNot Nothing Then EZA.eza_GesamtRohmasse = SENDUNG.tblSnd_Gewicht + EZA.eza_Rechnungspreis = SENDUNG.tblSnd_Warenwert + EZA.eza_Rechnungswaehrung = SENDUNG.tblSnd_WarenwertWaehrung If SENDUNG.tblSnd_Abfertigungsart_ID = 1 Then If SENDUNG.tblSnd_EmpfaengerKdNr > 0 Then @@ -410,6 +418,16 @@ Public Class usrCntlATLAS_EZA AD.ezaAd_TeilnehmerEORI = KDFmzoll.EORITIN AD.ezaAd_TeilnehmerNLNR = KDFmzoll.EORITIN_NL + If If(AD.ezaAd_LandCode, "") <> "" Then + EZA.eza_Bestimmungsland = AD.ezaAd_LandCode + End If + + If If(AD.ezaAd_LandCode, "") = "DE" And AD.ezaAd_PLZ IsNot Nothing Then + EZA.eza_Bestimmungsbundesland = VERAG_PROG_ALLGEMEIN.cDEBundeslaenderPLZ.LOADBundeslandCode_ByPLZ(AD.ezaAd_PLZ) + ElseIf If(AD.ezaAd_LandCode, "") <> "" Then + EZA.eza_Bestimmungsbundesland = 25 + End If + cdy.eza_ADRESSEN.Add(AD) End If If SENDUNG.tblSnd_AbsenderKdNr > 0 Then @@ -430,6 +448,10 @@ Public Class usrCntlATLAS_EZA AD.ezaAd_TeilnehmerEORI = KDFmzoll.EORITIN AD.ezaAd_TeilnehmerNLNR = KDFmzoll.EORITIN_NL + If If(AD.ezaAd_LandCode, "") <> "" Then + EZA.eza_VersendungsLandCode = AD.ezaAd_LandCode + End If + cdy.eza_ADRESSEN.Add(AD) End If diff --git a/SDL/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Adressen.vb b/SDL/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Adressen.vb index dcd13a38..b9fba6b0 100644 --- a/SDL/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Adressen.vb +++ b/SDL/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Adressen.vb @@ -63,6 +63,7 @@ ADR.ezaAd_LandCode = cProgramFunctions.isLeerNothing(usrCntl.sbLand._value) ADR.ezaAd_TeilnehmerEORI = cProgramFunctions.isLeerNothing(usrCntl.txtEORI.Text) ADR.ezaAd_TeilnehmerNLNR = cProgramFunctions.isLeerNothing(usrCntl.txtEORINL.Text) + ADR.ezaAd_AdressCode = cProgramFunctions.isLeerNothing(usrCntl.kdFirma.KdNr) ' ADR.ezaAd_TeilnehmerNLNR = cProgramFunctions.isLeerNothing(usrCntl.txtEORINL.Text) If typ = "UC" Then ADR.ezaAd_FinanzamtIDAnmelder = cProgramFunctions.isLeerNothing(txtUstId.Text) @@ -76,6 +77,7 @@ End Function Sub setAdresseFromUsrcntl(usrCntl As usrCntlAdresseEZA, ADR As DAKOSY_Worker.cDakosy_EZA_Adressen) + usrCntl.kdFirma.KdNr = If(ADR.ezaAd_AdressCode IsNot Nothing, ADR.ezaAd_AdressCode, -1) usrCntl.txtName1.Text = If(ADR.ezaAd_NameFirma1, "") usrCntl.txtName2.Text = If(ADR.ezaAd_NameFirma2, "") usrCntl.txtStrasse.Text = If(ADR.ezaAd_StrasseHausNr1, "") diff --git a/SDL/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Allg.Designer.vb b/SDL/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Allg.Designer.vb index 729c2927..57514724 100644 --- a/SDL/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Allg.Designer.vb +++ b/SDL/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Allg.Designer.vb @@ -102,6 +102,7 @@ Partial Class usrCntlATLAS_EZA_Allg Me.Label10 = New System.Windows.Forms.Label() Me.Label31 = New System.Windows.Forms.Label() Me.Label25 = New System.Windows.Forms.Label() + Me.Label33 = New System.Windows.Forms.Label() Me.pnl.SuspendLayout() CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit() Me.Panel1.SuspendLayout() @@ -111,6 +112,7 @@ Partial Class usrCntlATLAS_EZA_Allg ' 'pnl ' + Me.pnl.Controls.Add(Me.Label33) Me.pnl.Controls.Add(Me.txtContainerNr3) Me.pnl.Controls.Add(Me.txtContainerNr2) Me.pnl.Controls.Add(Me.txtContainerNr1) @@ -191,7 +193,6 @@ Partial Class usrCntlATLAS_EZA_Allg 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 @@ -214,7 +215,6 @@ Partial Class usrCntlATLAS_EZA_Allg 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 @@ -237,7 +237,6 @@ Partial Class usrCntlATLAS_EZA_Allg 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 @@ -250,7 +249,6 @@ Partial Class usrCntlATLAS_EZA_Allg ' '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" @@ -478,16 +476,17 @@ Partial Class usrCntlATLAS_EZA_Allg 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.Size = New System.Drawing.Size(140, 20) + Me.txtRohmasse.TabIndex = 54 Me.txtRohmasse.Text = "0,00" + Me.txtRohmasse.TextAlign = System.Windows.Forms.HorizontalAlignment.Right ' '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.TabIndex = 53 Me.Label29.Text = "Gesamtgewicht:" Me.Label29.TextAlign = System.Drawing.ContentAlignment.TopRight ' @@ -641,7 +640,7 @@ Partial Class usrCntlATLAS_EZA_Allg 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 = 57 + Me.cboGeschaeftsArt.TabIndex = 56 ' 'Label28 ' @@ -681,7 +680,7 @@ Partial Class usrCntlATLAS_EZA_Allg 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 = 52 + Me.Label26.TabIndex = 51 Me.Label26.Text = "Zahlungsart:" Me.Label26.TextAlign = System.Drawing.ContentAlignment.TopRight ' @@ -690,7 +689,7 @@ Partial Class usrCntlATLAS_EZA_Allg 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 = 56 + Me.Label27.TabIndex = 55 Me.Label27.Text = "Art des Geschäfts:" Me.Label27.TextAlign = System.Drawing.ContentAlignment.TopRight ' @@ -726,7 +725,7 @@ Partial Class usrCntlATLAS_EZA_Allg 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 = 53 + Me.cboZahlungsweise.TabIndex = 52 ' 'Label1 ' @@ -754,7 +753,7 @@ Partial Class usrCntlATLAS_EZA_Allg 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 = 50 + Me.Label17.TabIndex = 49 Me.Label17.Text = "Verkehrszweig Inland:" Me.Label17.TextAlign = System.Drawing.ContentAlignment.TopRight ' @@ -768,7 +767,7 @@ Partial Class usrCntlATLAS_EZA_Allg 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 = 51 + Me.cboVerkehrszweigInland.TabIndex = 50 ' 'Label16 ' @@ -967,7 +966,7 @@ Partial Class usrCntlATLAS_EZA_Allg 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 = 49 + Me.Panel1.TabIndex = 48 ' 'txtKennzeichenInland ' @@ -1222,7 +1221,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, 396) + Me.txtRechnungspreisWaehrung.Location = New System.Drawing.Point(833, 493) Me.txtRechnungspreisWaehrung.Name = "txtRechnungspreisWaehrung" Me.txtRechnungspreisWaehrung.searchActive = True Me.txtRechnungspreisWaehrung.Size = New System.Drawing.Size(75, 20) @@ -1230,7 +1229,7 @@ Partial Class usrCntlATLAS_EZA_Allg Me.txtRechnungspreisWaehrung.SQL_SELECT = Nothing Me.txtRechnungspreisWaehrung.SQL_WHERE = Nothing Me.txtRechnungspreisWaehrung.SQL_WhereParamList = Nothing - Me.txtRechnungspreisWaehrung.TabIndex = 48 + Me.txtRechnungspreisWaehrung.TabIndex = 59 Me.txtRechnungspreisWaehrung.usrcntl = Nothing ' 'txtRechnungspreis @@ -1253,7 +1252,7 @@ Partial Class usrCntlATLAS_EZA_Allg Me.txtRechnungspreis.MaxLines_Warning_Label = Nothing Me.txtRechnungspreis.Name = "txtRechnungspreis" Me.txtRechnungspreis.Size = New System.Drawing.Size(140, 20) - Me.txtRechnungspreis.TabIndex = 59 + Me.txtRechnungspreis.TabIndex = 58 Me.txtRechnungspreis.TextAlign = System.Windows.Forms.HorizontalAlignment.Right ' 'Label21 @@ -1261,7 +1260,7 @@ Partial Class usrCntlATLAS_EZA_Allg 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 = 58 + Me.Label21.TabIndex = 57 Me.Label21.Text = "Rechnungspreis:" Me.Label21.TextAlign = System.Drawing.ContentAlignment.TopRight ' @@ -1290,6 +1289,14 @@ Partial Class usrCntlATLAS_EZA_Allg Me.Label25.TabIndex = 27 Me.Label25.Text = "Pk." ' + 'Label33 + ' + Me.Label33.Location = New System.Drawing.Point(835, 477) + Me.Label33.Name = "Label33" + Me.Label33.Size = New System.Drawing.Size(68, 13) + Me.Label33.TabIndex = 61 + Me.Label33.Text = "kg" + ' 'usrCntlATLAS_EZA_Allg ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -1389,4 +1396,5 @@ Partial Class usrCntlATLAS_EZA_Allg Friend WithEvents txtContainerNr2 As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents txtContainerNr1 As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents Label32 As Label + Friend WithEvents Label33 As Label 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 aa54f779..da0fa999 100644 --- a/SDL/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Position.Designer.vb +++ b/SDL/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Position.Designer.vb @@ -25,6 +25,10 @@ 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.sbAHStatMasseinheit = New VERAG_PROG_ALLGEMEIN.MySearchBox() + Me.Label12 = New System.Windows.Forms.Label() + Me.txtAHStatMenge = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Button2 = New System.Windows.Forms.Button() Me.cboZT = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.cbx = New System.Windows.Forms.CheckBox() Me.Button5 = New System.Windows.Forms.Button() @@ -89,6 +93,10 @@ Partial Class usrCntlATLAS_EZA_Position ' Me.pnl.AutoScroll = True Me.pnl.BackColor = System.Drawing.Color.FloralWhite + Me.pnl.Controls.Add(Me.sbAHStatMasseinheit) + Me.pnl.Controls.Add(Me.Label12) + Me.pnl.Controls.Add(Me.txtAHStatMenge) + Me.pnl.Controls.Add(Me.Button2) Me.pnl.Controls.Add(Me.cboZT) Me.pnl.Controls.Add(Me.cbx) Me.pnl.Controls.Add(Me.Button5) @@ -146,6 +154,71 @@ Partial Class usrCntlATLAS_EZA_Position Me.pnl.Size = New System.Drawing.Size(730, 573) Me.pnl.TabIndex = 0 ' + 'sbAHStatMasseinheit + ' + Me.sbAHStatMasseinheit._allowFreitext = False + Me.sbAHStatMasseinheit._AllowSetValue = False + Me.sbAHStatMasseinheit._autoSizeGross = False + Me.sbAHStatMasseinheit._hideIfListEmpty = True + Me.sbAHStatMasseinheit._value = Nothing + Me.sbAHStatMasseinheit.conn_art = "FMZOLL" + Me.sbAHStatMasseinheit.dgvpos = "LEFT" + Me.sbAHStatMasseinheit.DISPLAY_PARAM = Nothing + Me.sbAHStatMasseinheit.INVISIBLE_COLUMNS = Nothing + Me.sbAHStatMasseinheit.key_visible = False + Me.sbAHStatMasseinheit.KEYPARAM = Nothing + Me.sbAHStatMasseinheit.Location = New System.Drawing.Point(281, 240) + Me.sbAHStatMasseinheit.Name = "sbAHStatMasseinheit" + Me.sbAHStatMasseinheit.searchActive = True + Me.sbAHStatMasseinheit.Size = New System.Drawing.Size(67, 20) + Me.sbAHStatMasseinheit.SQL_ORDER_BY = Nothing + Me.sbAHStatMasseinheit.SQL_SELECT = Nothing + Me.sbAHStatMasseinheit.SQL_WHERE = Nothing + Me.sbAHStatMasseinheit.SQL_WhereParamList = Nothing + Me.sbAHStatMasseinheit.TabIndex = 29 + Me.sbAHStatMasseinheit.usrcntl = Nothing + ' + 'Label12 + ' + Me.Label12.Location = New System.Drawing.Point(0, 243) + Me.Label12.Name = "Label12" + Me.Label12.Size = New System.Drawing.Size(130, 13) + Me.Label12.TabIndex = 27 + Me.Label12.Text = "AH-Stat.Menge/Maßeh.:" + Me.Label12.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'txtAHStatMenge + ' + Me.txtAHStatMenge._DateTimeOnly = False + Me.txtAHStatMenge._numbersOnly = True + Me.txtAHStatMenge._numbersOnlyKommastellen = "0" + Me.txtAHStatMenge._Prozent = False + Me.txtAHStatMenge._ShortDateNew = False + Me.txtAHStatMenge._ShortDateOnly = False + Me.txtAHStatMenge._TimeOnly = False + Me.txtAHStatMenge._value = "" + Me.txtAHStatMenge._Waehrung = False + Me.txtAHStatMenge._WaehrungZeichen = False + Me.txtAHStatMenge.ForeColor = System.Drawing.Color.Black + Me.txtAHStatMenge.Location = New System.Drawing.Point(136, 240) + Me.txtAHStatMenge.MaxLineLength = -1 + Me.txtAHStatMenge.MaxLines_Warning = "" + Me.txtAHStatMenge.MaxLines_Warning_Label = Nothing + Me.txtAHStatMenge.Name = "txtAHStatMenge" + Me.txtAHStatMenge.Size = New System.Drawing.Size(146, 20) + Me.txtAHStatMenge.TabIndex = 28 + ' + 'Button2 + ' + Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button2.Location = New System.Drawing.Point(483, 11) + Me.Button2.Name = "Button2" + Me.Button2.Size = New System.Drawing.Size(63, 23) + Me.Button2.TabIndex = 2 + Me.Button2.Text = "Liste" + Me.Button2.UseVisualStyleBackColor = True + Me.Button2.Visible = False + ' 'cboZT ' Me.cboZT._allowedValuesFreiText = Nothing @@ -153,29 +226,29 @@ Partial Class usrCntlATLAS_EZA_Position Me.cboZT._value = "" Me.cboZT.DropDownWidth = 350 Me.cboZT.FormattingEnabled = True - Me.cboZT.Location = New System.Drawing.Point(354, 12) + Me.cboZT.Location = New System.Drawing.Point(139, 12) Me.cboZT.Name = "cboZT" Me.cboZT.Size = New System.Drawing.Size(123, 21) - Me.cboZT.TabIndex = 2 + Me.cboZT.TabIndex = 0 ' 'cbx ' Me.cbx.AutoSize = True Me.cbx.Checked = True Me.cbx.CheckState = System.Windows.Forms.CheckState.Checked - Me.cbx.Location = New System.Drawing.Point(646, 423) + Me.cbx.Location = New System.Drawing.Point(646, 439) Me.cbx.Name = "cbx" Me.cbx.Size = New System.Drawing.Size(15, 14) - Me.cbx.TabIndex = 45 + Me.cbx.TabIndex = 49 Me.cbx.UseVisualStyleBackColor = True ' 'Button5 ' Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button5.Location = New System.Drawing.Point(7, 420) + Me.Button5.Location = New System.Drawing.Point(7, 436) Me.Button5.Name = "Button5" Me.Button5.Size = New System.Drawing.Size(123, 23) - Me.Button5.TabIndex = 41 + Me.Button5.TabIndex = 45 Me.Button5.Text = "alle o.g." Me.Button5.TextAlign = System.Drawing.ContentAlignment.MiddleLeft Me.Button5.UseVisualStyleBackColor = True @@ -184,10 +257,10 @@ Partial Class usrCntlATLAS_EZA_Position 'btn7HHFDirektbef ' Me.btn7HHFDirektbef.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btn7HHFDirektbef.Location = New System.Drawing.Point(7, 396) + Me.btn7HHFDirektbef.Location = New System.Drawing.Point(7, 412) Me.btn7HHFDirektbef.Name = "btn7HHFDirektbef" Me.btn7HHFDirektbef.Size = New System.Drawing.Size(123, 23) - Me.btn7HHFDirektbef.TabIndex = 38 + Me.btn7HHFDirektbef.TabIndex = 43 Me.btn7HHFDirektbef.Text = "4/7HHF - Direktbef.n." Me.btn7HHFDirektbef.TextAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btn7HHFDirektbef.UseVisualStyleBackColor = True @@ -196,10 +269,10 @@ Partial Class usrCntlATLAS_EZA_Position 'btn018ATR ' Me.btn018ATR.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btn018ATR.Location = New System.Drawing.Point(7, 374) + Me.btn018ATR.Location = New System.Drawing.Point(7, 390) Me.btn018ATR.Name = "btn018ATR" Me.btn018ATR.Size = New System.Drawing.Size(123, 23) - Me.btn018ATR.TabIndex = 37 + Me.btn018ATR.TabIndex = 42 Me.btn018ATR.Text = "6/N018 - A.TR" Me.btn018ATR.TextAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btn018ATR.UseVisualStyleBackColor = True @@ -208,10 +281,10 @@ Partial Class usrCntlATLAS_EZA_Position 'btn380Handelsrg ' Me.btn380Handelsrg.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btn380Handelsrg.Location = New System.Drawing.Point(7, 352) + Me.btn380Handelsrg.Location = New System.Drawing.Point(7, 368) Me.btn380Handelsrg.Name = "btn380Handelsrg" Me.btn380Handelsrg.Size = New System.Drawing.Size(123, 23) - Me.btn380Handelsrg.TabIndex = 36 + Me.btn380Handelsrg.TabIndex = 41 Me.btn380Handelsrg.Text = "4/n380 - Handelsrg." Me.btn380Handelsrg.TextAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btn380Handelsrg.UseVisualStyleBackColor = True @@ -230,7 +303,7 @@ Partial Class usrCntlATLAS_EZA_Position Me.sbUrsprungsland.INVISIBLE_COLUMNS = Nothing Me.sbUrsprungsland.key_visible = False Me.sbUrsprungsland.KEYPARAM = Nothing - Me.sbUrsprungsland.Location = New System.Drawing.Point(436, 303) + Me.sbUrsprungsland.Location = New System.Drawing.Point(436, 319) Me.sbUrsprungsland.Name = "sbUrsprungsland" Me.sbUrsprungsland.searchActive = True Me.sbUrsprungsland.Size = New System.Drawing.Size(41, 20) @@ -238,7 +311,7 @@ Partial Class usrCntlATLAS_EZA_Position Me.sbUrsprungsland.SQL_SELECT = Nothing Me.sbUrsprungsland.SQL_WHERE = Nothing Me.sbUrsprungsland.SQL_WhereParamList = Nothing - Me.sbUrsprungsland.TabIndex = 33 + Me.sbUrsprungsland.TabIndex = 37 Me.sbUrsprungsland.usrcntl = Nothing ' 'cboBeguenstigung @@ -248,26 +321,26 @@ Partial Class usrCntlATLAS_EZA_Position Me.cboBeguenstigung._value = "" Me.cboBeguenstigung.DropDownWidth = 350 Me.cboBeguenstigung.FormattingEnabled = True - Me.cboBeguenstigung.Location = New System.Drawing.Point(135, 303) + Me.cboBeguenstigung.Location = New System.Drawing.Point(135, 319) Me.cboBeguenstigung.Name = "cboBeguenstigung" Me.cboBeguenstigung.Size = New System.Drawing.Size(217, 21) - Me.cboBeguenstigung.TabIndex = 31 + Me.cboBeguenstigung.TabIndex = 35 ' 'Label10 ' - Me.Label10.Location = New System.Drawing.Point(18, 306) + Me.Label10.Location = New System.Drawing.Point(18, 322) Me.Label10.Name = "Label10" Me.Label10.Size = New System.Drawing.Size(111, 13) - Me.Label10.TabIndex = 30 + Me.Label10.TabIndex = 34 Me.Label10.Text = "Begünstigung:" Me.Label10.TextAlign = System.Drawing.ContentAlignment.TopRight ' 'Label9 ' - Me.Label9.Location = New System.Drawing.Point(-2, 279) + Me.Label9.Location = New System.Drawing.Point(-2, 295) Me.Label9.Name = "Label9" Me.Label9.Size = New System.Drawing.Size(135, 13) - Me.Label9.TabIndex = 28 + Me.Label9.TabIndex = 32 Me.Label9.Text = "Vorangeg.Verfahren:" Me.Label9.TextAlign = System.Drawing.ContentAlignment.TopRight ' @@ -278,17 +351,17 @@ Partial Class usrCntlATLAS_EZA_Position Me.cboVorangegangenesVerfahren._value = "" Me.cboVorangegangenesVerfahren.DropDownWidth = 350 Me.cboVorangegangenesVerfahren.FormattingEnabled = True - Me.cboVorangegangenesVerfahren.Location = New System.Drawing.Point(136, 276) + Me.cboVorangegangenesVerfahren.Location = New System.Drawing.Point(136, 292) Me.cboVorangegangenesVerfahren.Name = "cboVorangegangenesVerfahren" Me.cboVorangegangenesVerfahren.Size = New System.Drawing.Size(533, 21) - Me.cboVorangegangenesVerfahren.TabIndex = 29 + Me.cboVorangegangenesVerfahren.TabIndex = 33 ' 'Label14 ' - Me.Label14.Location = New System.Drawing.Point(-2, 259) + Me.Label14.Location = New System.Drawing.Point(-2, 275) Me.Label14.Name = "Label14" Me.Label14.Size = New System.Drawing.Size(135, 13) - Me.Label14.TabIndex = 26 + Me.Label14.TabIndex = 30 Me.Label14.Text = "Angemeld.Verfahren:" Me.Label14.TextAlign = System.Drawing.ContentAlignment.TopRight ' @@ -299,17 +372,17 @@ Partial Class usrCntlATLAS_EZA_Position Me.cboAngVerfahren._value = "" Me.cboAngVerfahren.DropDownWidth = 350 Me.cboAngVerfahren.FormattingEnabled = True - Me.cboAngVerfahren.Location = New System.Drawing.Point(136, 256) + Me.cboAngVerfahren.Location = New System.Drawing.Point(136, 272) Me.cboAngVerfahren.Name = "cboAngVerfahren" Me.cboAngVerfahren.Size = New System.Drawing.Size(533, 21) - Me.cboAngVerfahren.TabIndex = 27 + Me.cboAngVerfahren.TabIndex = 31 ' '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 = 10 + Me.Label8.TabIndex = 11 Me.Label8.Text = "Marke:" ' 'Label5 @@ -317,7 +390,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 = 9 + Me.Label5.TabIndex = 10 Me.Label5.Text = "Art:" ' 'Label4 @@ -326,7 +399,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 = 11 + Me.Label4.TabIndex = 12 Me.Label4.Text = "Packstücke:" Me.Label4.TextAlign = System.Drawing.ContentAlignment.TopRight ' @@ -336,17 +409,17 @@ 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 = 25 + Me.Label7.TabIndex = 26 Me.Label7.Text = "Eigenmasse muss kleiner als Rohmasse sein!" Me.Label7.Visible = False ' 'Label6 ' Me.Label6.AutoSize = True - Me.Label6.Location = New System.Drawing.Point(48, 472) + Me.Label6.Location = New System.Drawing.Point(48, 488) Me.Label6.Name = "Label6" Me.Label6.Size = New System.Drawing.Size(82, 13) - Me.Label6.TabIndex = 49 + Me.Label6.TabIndex = 53 Me.Label6.Text = "Positionszusatz:" ' 'txtPositionszusatz @@ -362,7 +435,7 @@ Partial Class usrCntlATLAS_EZA_Position 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.Location = New System.Drawing.Point(136, 485) Me.txtPositionszusatz.MaxLength = 280 Me.txtPositionszusatz.MaxLineLength = -1 Me.txtPositionszusatz.MaxLines_Warning = "" @@ -370,16 +443,16 @@ 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 = 50 + Me.txtPositionszusatz.TabIndex = 54 ' 'lklBearbeitungAbbrechenUl ' Me.lklBearbeitungAbbrechenUl.AutoSize = True Me.lklBearbeitungAbbrechenUl.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.lklBearbeitungAbbrechenUl.Location = New System.Drawing.Point(551, 440) + Me.lklBearbeitungAbbrechenUl.Location = New System.Drawing.Point(551, 456) Me.lklBearbeitungAbbrechenUl.Name = "lklBearbeitungAbbrechenUl" Me.lklBearbeitungAbbrechenUl.Size = New System.Drawing.Size(118, 13) - Me.lklBearbeitungAbbrechenUl.TabIndex = 48 + Me.lklBearbeitungAbbrechenUl.TabIndex = 52 Me.lklBearbeitungAbbrechenUl.TabStop = True Me.lklBearbeitungAbbrechenUl.Text = "Bearbeitung abbrechen" Me.lklBearbeitungAbbrechenUl.Visible = False @@ -394,7 +467,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 = 20 + Me.cboWaehrung.TabIndex = 21 Me.cboWaehrung.Text = "EUR" ' 'Label31 @@ -403,7 +476,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 = 5 + Me.Label31.TabIndex = 6 Me.Label31.Text = "Zolltarif:" Me.Label31.TextAlign = System.Drawing.ContentAlignment.TopRight ' @@ -427,7 +500,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 = 6 + Me.txtWarennummer.TabIndex = 7 ' 'txtWTZ2 ' @@ -449,7 +522,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 = 8 + Me.txtWTZ2.TabIndex = 9 ' 'txtWTZ1 ' @@ -471,14 +544,14 @@ 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 = 7 + Me.txtWTZ1.TabIndex = 8 ' '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 = 0 + Me.Label30.TabIndex = 4 Me.Label30.Text = "Suche Kd-Zolltarif:" Me.Label30.TextAlign = System.Drawing.ContentAlignment.TopRight ' @@ -495,7 +568,7 @@ Partial Class usrCntlATLAS_EZA_Position 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.Location = New System.Drawing.Point(261, 12) Me.sbKundenzolltarif.Name = "sbKundenzolltarif" Me.sbKundenzolltarif.searchActive = True Me.sbKundenzolltarif.Size = New System.Drawing.Size(209, 20) @@ -526,7 +599,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 = 23 + Me.txtEigenmasse.TabIndex = 24 Me.txtEigenmasse.Text = "0,00" ' 'txtRohmasse @@ -549,7 +622,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 = 24 + Me.txtRohmasse.TabIndex = 25 Me.txtRohmasse.Text = "0,00" ' 'Label27 @@ -558,7 +631,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 = 17 + Me.Label27.TabIndex = 18 Me.Label27.Text = "Eigenmasse:" ' 'Label28 @@ -567,7 +640,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 = 18 + Me.Label28.TabIndex = 19 Me.Label28.Text = "Rohmasse:" ' 'sbUlArt @@ -583,7 +656,7 @@ Partial Class usrCntlATLAS_EZA_Position Me.sbUlArt.INVISIBLE_COLUMNS = Nothing Me.sbUlArt.key_visible = False Me.sbUlArt.KEYPARAM = Nothing - Me.sbUlArt.Location = New System.Drawing.Point(136, 420) + Me.sbUlArt.Location = New System.Drawing.Point(136, 436) Me.sbUlArt.Name = "sbUlArt" Me.sbUlArt.searchActive = True Me.sbUlArt.Size = New System.Drawing.Size(235, 20) @@ -591,7 +664,7 @@ Partial Class usrCntlATLAS_EZA_Position Me.sbUlArt.SQL_SELECT = Nothing Me.sbUlArt.SQL_WHERE = Nothing Me.sbUlArt.SQL_WhereParamList = Nothing - Me.sbUlArt.TabIndex = 42 + Me.sbUlArt.TabIndex = 46 Me.sbUlArt.usrcntl = Nothing ' 'sbPkTyp @@ -615,7 +688,7 @@ Partial Class usrCntlATLAS_EZA_Position Me.sbPkTyp.SQL_SELECT = Nothing Me.sbPkTyp.SQL_WHERE = Nothing Me.sbPkTyp.SQL_WhereParamList = Nothing - Me.sbPkTyp.TabIndex = 13 + Me.sbPkTyp.TabIndex = 14 Me.sbPkTyp.usrcntl = Nothing ' 'Button3 @@ -623,10 +696,10 @@ Partial Class usrCntlATLAS_EZA_Position Me.Button3.BackgroundImage = CType(resources.GetObject("Button3.BackgroundImage"), System.Drawing.Image) Me.Button3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button3.Location = New System.Drawing.Point(671, 334) + Me.Button3.Location = New System.Drawing.Point(671, 350) Me.Button3.Name = "Button3" Me.Button3.Size = New System.Drawing.Size(30, 20) - Me.Button3.TabIndex = 35 + Me.Button3.TabIndex = 40 Me.Button3.TabStop = False Me.Button3.UseVisualStyleBackColor = True ' @@ -638,7 +711,7 @@ 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 = 4 + Me.lblPosNr.TabIndex = 5 Me.lblPosNr.Text = "1/1" Me.lblPosNr.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' @@ -647,10 +720,10 @@ Partial Class usrCntlATLAS_EZA_Position 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.Location = New System.Drawing.Point(671, 436) Me.Button1.Name = "Button1" Me.Button1.Size = New System.Drawing.Size(30, 20) - Me.Button1.TabIndex = 46 + Me.Button1.TabIndex = 50 Me.Button1.TabStop = False Me.Button1.UseVisualStyleBackColor = True ' @@ -667,14 +740,14 @@ Partial Class usrCntlATLAS_EZA_Position 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.Location = New System.Drawing.Point(519, 436) Me.txtUlAusstellDat.MaxLength = 10 Me.txtUlAusstellDat.MaxLineLength = -1 Me.txtUlAusstellDat.MaxLines_Warning = "" Me.txtUlAusstellDat.MaxLines_Warning_Label = Nothing Me.txtUlAusstellDat.Name = "txtUlAusstellDat" Me.txtUlAusstellDat.Size = New System.Drawing.Size(117, 20) - Me.txtUlAusstellDat.TabIndex = 44 + Me.txtUlAusstellDat.TabIndex = 48 ' 'txtUlNummer ' @@ -689,14 +762,14 @@ Partial Class usrCntlATLAS_EZA_Position 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.Location = New System.Drawing.Point(370, 436) Me.txtUlNummer.MaxLength = 35 Me.txtUlNummer.MaxLineLength = -1 Me.txtUlNummer.MaxLines_Warning = "" Me.txtUlNummer.MaxLines_Warning_Label = Nothing Me.txtUlNummer.Name = "txtUlNummer" Me.txtUlNummer.Size = New System.Drawing.Size(150, 20) - Me.txtUlNummer.TabIndex = 43 + Me.txtUlNummer.TabIndex = 47 ' 'txtPkMarke ' @@ -718,7 +791,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 = 14 + Me.txtPkMarke.TabIndex = 15 ' 'txtPkAnzahl ' @@ -740,17 +813,17 @@ 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 = 12 + Me.txtPkAnzahl.TabIndex = 13 Me.txtPkAnzahl.TextAlign = System.Windows.Forms.HorizontalAlignment.Right ' 'Label19 ' Me.Label19.AutoSize = True Me.Label19.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label19.Location = New System.Drawing.Point(56, 334) + Me.Label19.Location = New System.Drawing.Point(56, 350) Me.Label19.Name = "Label19" Me.Label19.Size = New System.Drawing.Size(73, 13) - Me.Label19.TabIndex = 34 + Me.Label19.TabIndex = 38 Me.Label19.Text = "Unterlagen:" Me.Label19.TextAlign = System.Drawing.ContentAlignment.TopRight ' @@ -764,7 +837,7 @@ Partial Class usrCntlATLAS_EZA_Position Me.dgvUnterlage.BackgroundColor = System.Drawing.Color.White Me.dgvUnterlage.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvUnterlage.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.UlCode, Me.UlArtTxt, Me.UlNummer, Me.UlADat, Me.UlVorhanden}) - Me.dgvUnterlage.Location = New System.Drawing.Point(136, 334) + Me.dgvUnterlage.Location = New System.Drawing.Point(136, 350) Me.dgvUnterlage.MultiSelect = False Me.dgvUnterlage.Name = "dgvUnterlage" Me.dgvUnterlage.ReadOnly = True @@ -814,10 +887,10 @@ Partial Class usrCntlATLAS_EZA_Position 'Label22 ' Me.Label22.ForeColor = System.Drawing.Color.Red - Me.Label22.Location = New System.Drawing.Point(136, 439) + Me.Label22.Location = New System.Drawing.Point(136, 455) Me.Label22.Name = "Label22" Me.Label22.Size = New System.Drawing.Size(235, 13) - Me.Label22.TabIndex = 47 + Me.Label22.TabIndex = 51 Me.Label22.Text = "Bitte angeben!" Me.Label22.Visible = False ' @@ -826,7 +899,7 @@ Partial Class usrCntlATLAS_EZA_Position 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.TabIndex = 20 Me.Label3.Text = "Artikelpreis:" Me.Label3.TextAlign = System.Drawing.ContentAlignment.TopRight ' @@ -849,14 +922,14 @@ Partial Class usrCntlATLAS_EZA_Position Me.txtWarenwert.MaxLines_Warning_Label = Nothing Me.txtWarenwert.Name = "txtWarenwert" Me.txtWarenwert.Size = New System.Drawing.Size(146, 20) - Me.txtWarenwert.TabIndex = 21 + Me.txtWarenwert.TabIndex = 22 ' '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.TabIndex = 16 Me.Label1.Text = "Warenbezeichnung:" Me.Label1.TextAlign = System.Drawing.ContentAlignment.TopRight ' @@ -881,16 +954,16 @@ Partial Class usrCntlATLAS_EZA_Position Me.txtWarenbezeichnung.Multiline = True Me.txtWarenbezeichnung.Name = "txtWarenbezeichnung" Me.txtWarenbezeichnung.Size = New System.Drawing.Size(533, 70) - Me.txtWarenbezeichnung.TabIndex = 16 + Me.txtWarenbezeichnung.TabIndex = 17 ' '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.Location = New System.Drawing.Point(668, 421) Me.Label21.Name = "Label21" Me.Label21.Size = New System.Drawing.Size(33, 12) - Me.Label21.TabIndex = 40 + Me.Label21.TabIndex = 44 Me.Label21.Text = "(Enter)" ' 'Label2 @@ -908,16 +981,16 @@ Partial Class usrCntlATLAS_EZA_Position 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.TabIndex = 23 Me.Label29.Text = "Gewicht:" Me.Label29.TextAlign = System.Drawing.ContentAlignment.TopRight ' 'Label11 ' - Me.Label11.Location = New System.Drawing.Point(322, 306) + Me.Label11.Location = New System.Drawing.Point(322, 322) Me.Label11.Name = "Label11" Me.Label11.Size = New System.Drawing.Size(111, 13) - Me.Label11.TabIndex = 32 + Me.Label11.TabIndex = 36 Me.Label11.Text = "Ursprungsland:" Me.Label11.TextAlign = System.Drawing.ContentAlignment.TopRight ' @@ -993,4 +1066,8 @@ Partial Class usrCntlATLAS_EZA_Position Friend WithEvents UlADat As System.Windows.Forms.DataGridViewTextBoxColumn Friend WithEvents UlVorhanden As System.Windows.Forms.DataGridViewCheckBoxColumn Friend WithEvents cboZT As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents Button2 As Button + Friend WithEvents Label12 As Label + Friend WithEvents txtAHStatMenge As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents sbAHStatMasseinheit As VERAG_PROG_ALLGEMEIN.MySearchBox End Class diff --git a/SDL/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Position.vb b/SDL/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Position.vb index 1b759db0..61f58a1f 100644 --- a/SDL/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Position.vb +++ b/SDL/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Position.vb @@ -31,7 +31,15 @@ End Sub + Public Sub initSrch() + sbPkTyp.initSearchBox(Me.FindForm, " [Code] ,[Description] as Verpackungsart, Code + ' ' + Description as display FROM tbl_DY_ZollDE_C0017_PackstueckeVerpackungsarten", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200) + sbUlArt.initSearchBox(Me.FindForm, " [Code] ,[Description] as Art, Code + ' ' + Description as display FROM tbl_DY_ZollDE_I0200_Unterlagearten", {"Description", "'%'+Code", "DocumentCode", "Division"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200) + ' sbExportAusLand.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) + sbPkTyp.SET_VALUE("Pk") + + setvalue(WARE) + End Sub Private Sub usrCntlATLAS_NCTS_Position_Load(sender As Object, e As EventArgs) Handles Me.Load ' cboColliMenge.Items.Clear() @@ -53,6 +61,8 @@ ' Me.cboVorangegangenesVerfahren.changeItem(If(WARE.ezaWP_VerfahrensCodeVorangegangenesVerfahren, "")) ' Me.cboAngVerfahren.changeItem(If(WARE.ezaWP_AnmeldeVErfahren, "")) + sbAHStatMasseinheit.initSearchBox(Me.FindForm, " CodeQualifier ,[Description] as Art, CodeQualifier + ' ' + Description as display FROM [tbl_DY_ZollDE_I0700_Masseinheiten]", {"CodeQualifier", "Description", "'%'+Code"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "CodeQualifier", "CodeQualifier", "display", "FMZOLL", , 400, 200) + 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) cboZT.Items.Clear() cboZT.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Absender", "ABS")) @@ -103,7 +113,6 @@ 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) @@ -111,10 +120,14 @@ Sub initZT() + Button2.Tag = "" + Button2.Visible = False 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"}) + Button2.Visible = True + Button2.Tag = ztKdnr End If End If End Sub @@ -128,6 +141,9 @@ Me.txtWarenwert._value = If(WARE.ezaWP_Artikelpreis, "") ' Me.txtWarennummer.Text = If(WARE.ezaWP_WarennummerEZT, "") + txtAHStatMenge.Text = If(WARE.ezaWP_AHStatMenge, "") + + sbAHStatMasseinheit.SET_VALUE(If(WARE.ezaWP_AHStatMengeMasseinheit, "") & If(WARE.ezaWP_AHStatMengeQualifier, "").ToString.Trim) Me.txtWTZ1.Text = If(WARE.ezaWP_WarennummerZusatzCode1, "") Me.txtWTZ2.Text = If(WARE.ezaWP_WarennummerZusatzCode2, "") @@ -147,6 +163,9 @@ Me.sbUrsprungsland.SET_VALUE(If(WARE.ezaWP_UrsprungslandCode, "")) + + + dgvUnterlage.Rows.Clear() If WARE.ezaWP_UNTERLAGEN IsNot Nothing Then For Each Ul In WARE.ezaWP_UNTERLAGEN @@ -163,33 +182,39 @@ End Sub Sub addUnterlage() - Label22.Visible = False - If sbUlArt._value = "" Then Label22.Visible = True : sbUlArt.Focus() : Exit Sub + Try + Label22.Visible = False + If sbUlArt._value = "" Then Label22.Visible = True : sbUlArt.Focus() : Exit Sub - If UL_EDIT >= 0 Then - dgvUnterlage.Rows.RemoveAt(UL_EDIT) - dgvUnterlage.Rows.Insert(UL_EDIT, sbUlArt._value, sbUlArt.Text, txtUlNummer.Text, txtUlAusstellDat.Text, cbx.Checked) - UL_EDIT = -1 - Button1.BackgroundImage = My.Resources.plus - lklBearbeitungAbbrechenUl.Visible = False - Else - dgvUnterlage.Rows.Add(sbUlArt._value, sbUlArt.Text, txtUlNummer.Text, txtUlAusstellDat.Text, cbx.Checked) - End If + If UL_EDIT >= 0 Then + dgvUnterlage.Rows.RemoveAt(UL_EDIT) + dgvUnterlage.Rows.Insert(UL_EDIT, sbUlArt._value, sbUlArt.Text, txtUlNummer.Text, txtUlAusstellDat.Text, cbx.Checked) + UL_EDIT = -1 + Button1.BackgroundImage = My.Resources.plus + lklBearbeitungAbbrechenUl.Visible = False + Else + dgvUnterlage.Rows.Add(sbUlArt._value, sbUlArt.Text, txtUlNummer.Text, txtUlAusstellDat.Text, cbx.Checked) + End If - txtUlAusstellDat.Text = "" : txtUlNummer.Text = "" : sbUlArt.SET_VALUE("") - dgvUnterlage.FirstDisplayedScrollingRowIndex = dgvUnterlage.RowCount - 1 - dgvUnterlage.ClearSelection() - sbUlArt.Focus() + txtUlAusstellDat.Text = "" : txtUlNummer.Text = "" : sbUlArt.SET_VALUE("") + dgvUnterlage.FirstDisplayedScrollingRowIndex = dgvUnterlage.RowCount - 1 + dgvUnterlage.ClearSelection() + sbUlArt.Focus() + + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try 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 + If e.KeyCode = Keys.Return Then + sbUlArt.Focus() ' Damit datum -_> Leave formatiert wird + addUnterlage() + e.Handled = True + End If 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 @@ -199,18 +224,15 @@ dgvUnterlage.ClearSelection() End Sub - Private Sub txtRohmasse_TextChanged(sender As Object, e As EventArgs) Handles txtRohmasse.TextChanged 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) End Sub - Sub editableRowUL(index As Integer) txtUlNummer.Text = dgvUnterlage.Rows(index).Cells("UlNummer").Value sbUlArt.SET_VALUE(dgvUnterlage.Rows(index).Cells("UlCode").Value) @@ -322,9 +344,24 @@ End If End Sub - Private Sub sbKundenzolltarif_GotFocus(sender As Object, e As EventArgs) Handles sbKundenzolltarif.GotFocus + Private Sub sbKundenzolltarif_GotFocus(sender As Object, e As EventArgs) Handles sbKundenzolltarif.GotFocus, cboZT.SelectedIndexChanged initZT() End Sub + + Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click + If IsNumeric(Button2.Tag) Then + Dim f As New frmKundenUebersichtZOLL(Button2.Tag) + f.selectedTAB = "Zolltarif" + f.Show(Me) + End If + End Sub + + + 'Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + 'Private Sub sbAHStatMasseinheit_VALUE_CHANGED() Handles sbAHStatMasseinheit.VALUE_CHANGED + ' txtAHStatMasseinheitQualifier.Text = SQL.getValueTxtBySql("") + '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 407819ee..e1d6d0a7 100644 --- a/SDL/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Positionen.vb +++ b/SDL/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Positionen.vb @@ -126,6 +126,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, USRCNTL_EZA) + AddHandler u.RohmasseChanged, Sub(r) gesRohmasse = 0 For Each p In POS @@ -139,6 +140,7 @@ ' AddHandler u.NEXT_POS, AddressOf NEXT_POS ' AddHandler u.PREV_POS, AddressOf PREV_POS POS.Add(u) + u.initSrch() initListBox() dgvPositionen.ClearSelection() If dgvPositionen.RowCount > 0 Then dgvPositionen.Rows(dgvPositionen.RowCount - 1).Selected = True @@ -147,21 +149,26 @@ End Function Sub removeItem(index) - If index < 0 Then Exit Sub - 'If index < 0 Then Exit Sub - If dgvPositionen.Rows.Count > index Then - If vbYes = MsgBox("Möchten Sie die Position wirklich löschen?", vbYesNoCancel) Then - dgvPositionen.ClearSelection() - POS.RemoveAt(index) - initListBox() - If dgvPositionen.Rows.Count > index Then - dgvPositionen.Rows(index).Selected = True 'SetSelected(index, True) - ElseIf dgvPositionen.Rows.Count > 0 Then - dgvPositionen.Rows(0).Selected = True + Try + If index < 0 Then Exit Sub + 'If index < 0 Then Exit Sub + If dgvPositionen.Rows.Count > index Then + If vbYes = MsgBox("Möchten Sie die Position wirklich löschen?", vbYesNoCancel) Then + dgvPositionen.ClearSelection() + POS.RemoveAt(index) + initListBox() + If dgvPositionen.Rows.Count > index Then + dgvPositionen.Rows(index).Selected = True 'SetSelected(index, True) + ElseIf dgvPositionen.Rows.Count > 0 Then + dgvPositionen.Rows(0).Selected = True + End If End If End If - End If - RaiseEvent PosAnzChanged(POS.Count) + RaiseEvent PosAnzChanged(POS.Count) + + Catch ex As Exception + MsgBox(ex.Message) + End Try End Sub Sub NEXT_POS() @@ -232,6 +239,20 @@ POSITION.ezaWP_Rohmasse = cProgramFunctions.isLeerNothingDbl(P.txtRohmasse.Text) POSITION.ezaWP_Eigenmasse = cProgramFunctions.isLeerNothingDbl(P.txtEigenmasse.Text) + If IsNumeric(P.txtAHStatMenge.Text) Then + POSITION.ezaWP_AHStatMenge = CInt(P.txtAHStatMenge.Text) 'keine Kommast. + Else + POSITION.ezaWP_AHStatMenge = Nothing + End If + + If P.sbAHStatMasseinheit IsNot Nothing AndAlso P.sbAHStatMasseinheit._value IsNot Nothing AndAlso P.sbAHStatMasseinheit._value.Length > 3 Then + POSITION.ezaWP_AHStatMengeMasseinheit = cProgramFunctions.isLeerNothing(P.sbAHStatMasseinheit._value.Substring(0, 3)) + POSITION.ezaWP_AHStatMengeQualifier = cProgramFunctions.isLeerNothing(P.sbAHStatMasseinheit._value.Substring(3)) + Else + POSITION.ezaWP_AHStatMengeMasseinheit = cProgramFunctions.isLeerNothing(P.sbAHStatMasseinheit._value) + POSITION.ezaWP_AHStatMengeQualifier = Nothing + End If + POSITION.ezaWP_PositionsZusatz = cProgramFunctions.isLeerNothing(P.txtPositionszusatz.Text) POSITION.ezaWP_PackstueckAnzahl = cProgramFunctions.isLeerNothing(P.txtPkAnzahl.Text) @@ -267,6 +288,15 @@ POSITION.ezaWP_UNTERLAGEN.Add(Ul) Next + + If cProgramFunctions.isLeerNothingDbl(P.txtWarenwert._value, 0) > 0 Then + 'POSITION.kostenpositionen --> Nettopreis '''''AbzugHinzurechnung + POSITION.ezaWP_Zollwert = CDbl(P.txtWarenwert._value) + POSITION.ezaWP_AHStatWert = CDbl(P.txtWarenwert._value) + 'POSITION.abzughinzurechnung + End If + + EZA.eza_WARENPOS.Add(POSITION) cnt += 1 Next diff --git a/SDL/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS.vb b/SDL/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS.vb index 9b4b903d..0d8f168c 100644 --- a/SDL/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS.vb +++ b/SDL/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS.vb @@ -5,7 +5,7 @@ Imports Tamir.SharpSsh Public Class usrCntlATLAS_NCTS Property ALLG As usrCntlATLAS_NCTS_Allg - Property ADRESSEN As usrCntlATLAS_NCTS_Adressen + Property ADRESSEN As usrCntlATLAS_ncts_Adressen Property SICHERHEIT As usrCntlATLAS_NCTS_Sicherheit Property POSITIONEN As usrCntlATLAS_NCTS_Positionen Property VERSCHLUESSE As usrCntlATLAS_NCTS_Verschluesse @@ -113,7 +113,7 @@ Public Class usrCntlATLAS_NCTS End Sub Function getBezugsnr(ByRef BezugsNr) - + BezugsNr = SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr '& If(zusatz <> "", "/" & zusatz, "") 'zusatz ' & "/" & Jahr2Stellig zusatz = "A" 'Soloagne bis die Bezugsnummer noch nicht existiert @@ -160,11 +160,11 @@ Public Class usrCntlATLAS_NCTS cboStammreferenz.fillWithSQL("SELECT [dySr_Stammreferenz],[dySr_Bezeichnung] FROM [tblDakosy_Stammreferenzen] WHERE dySr_Land='DE' AND dySr_Verfahren='NCTS' and dySr_dy_Mandant='" & txtDyMandant.Text & "' and dySr_dy_Niederlassung='" & txtDyNiederlassung.Text & "' and dySr_visible=1", False, "FMZOLL", True) cboStammreferenz.changeItem("") - SICHERHEIT = New usrCntlATLAS_ncts_Sicherheit(ncts_OUT) - VERSCHLUESSE = New usrCntlATLAS_ncts_Verschluesse() 'ncts_OUT) + SICHERHEIT = New usrCntlATLAS_NCTS_Sicherheit(ncts_OUT) + VERSCHLUESSE = New usrCntlATLAS_NCTS_Verschluesse() 'ncts_OUT) ADRESSEN = New usrCntlATLAS_ncts_Adressen(ncts_OUT) ') - ALLG = New usrCntlATLAS_ncts_Allg(ncts_OUT) - POSITIONEN = New usrCntlATLAS_ncts_Positionen(ncts_OUT) + ALLG = New usrCntlATLAS_NCTS_Allg(ncts_OUT) + POSITIONEN = New usrCntlATLAS_NCTS_Positionen(ncts_OUT) If isSTAMMREF Then @@ -191,7 +191,7 @@ Public Class usrCntlATLAS_NCTS 'Falls zur BezugsNr schon ein Eintrag in der DB vorhanden ist ncts_OUT = cDakosyNCTSOut.LOADByAnmIDFull(f.STAMMREF_DYID, True) ' DyID --> Falls bei der Stammreferenz eine Vorlage hinterlegt ist! - + If ncts_OUT IsNot Nothing Then 'Stmmreferenz - Werte zurücksetzen, damit nicht falsch übergeben ncts_OUT.ncts_dyaAnmID = -1 @@ -204,7 +204,7 @@ Public Class usrCntlATLAS_NCTS loaddataFromAVISO(ncts_OUT) cboStammreferenz.changeItem(Stammreferenz) - + End If 'ncts_OUT @@ -226,7 +226,7 @@ Public Class usrCntlATLAS_NCTS ncts_OUT.ncts_ArtAnmeldung = "T1" End If End If - + 'hinzufügen, damit alle Controls richtig geladen und initialisiert werden:s Me.SplitContainer.Panel2.Controls.Add(SICHERHEIT) @@ -299,10 +299,12 @@ Public Class usrCntlATLAS_NCTS Catch End Try End If - - If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ZOLL_DakosyZA_AVISO_Edit", "AVISO") Then - Me.FindForm.Close() - End If + Try + If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ZOLL_DakosyZA_AVISO_Edit", "AVISO") Then + Me.FindForm.Close() + End If + Catch + End Try End Sub Sub buttonClick(sender As Object, e As EventArgs) 'HANDLED @@ -335,6 +337,8 @@ Public Class usrCntlATLAS_NCTS End Sub + + Sub loaddataFromAVISO(ByRef cdy As cDakosyNCTSOut) Try @@ -342,9 +346,9 @@ Public Class usrCntlATLAS_NCTS ' Dim cdy As New cDakosyNCTSOut cdy.ncts_ObjectName = BezugsNr - cdy.ncts_AbgangsDienststellennummer = "DE007701" ' Neuhaus (öSTERR:) - - + cdy.ncts_AbgangsDienststellennummer = "" '"DE007701" ' Neuhaus (öSTERR:) + frmZollanmeldung.setZollstelle(cdy.ncts_AbgangsDienststellennummer, AVISO) + cdy.ncts_dyaArt = cDy_ART If AVISO IsNot Nothing Then cdy.ncts_Befoerderungsmittel_KennzeichenAbgang = AVISO.LKW_Nr @@ -358,7 +362,7 @@ Public Class usrCntlATLAS_NCTS End If - + cdy.ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent = "3" cdy.ncts_Befoerderungsmittel_ArtGrenzueberschreitung = "35" @@ -388,8 +392,8 @@ Public Class usrCntlATLAS_NCTS - If SENDUNG IsNot Nothing Then + Dim p As DAKOSY_Worker.cDakosy_NCTSOut_Warenposition = Nothing If cdy.ncts_WARENPOS.Count > 0 Then p = cdy.ncts_WARENPOS(0) @@ -402,9 +406,12 @@ Public Class usrCntlATLAS_NCTS Dim pk As New DAKOSY_Worker.cDakosy_NCTSOut_WarenpositionPackstuecke pk.nctsWpPk_PackstueckeAnzahl = SENDUNG.tblSnd_Colli pk.nctsWpPk_Verpackungsart = "PK" + pk.nctsWpPk_ZeichenNummern = "OHNE" p.nctsWP_PACKSTUECKE.Add(pk) End If p.nctsWP_Rohmasse = SENDUNG.tblSnd_Gewicht + p.nctsWP_Warenwert = SENDUNG.tblSnd_Warenwert + p.nctsWP_WarenwertWaehrung = SENDUNG.tblSnd_WarenwertWaehrung ' p.nctsWP_Warenbezeichnung = SENDUNG.tblSnd_Warenbezeichnung p.nctsWP_VorpapierTyp = "OHNE" @@ -461,7 +468,7 @@ Public Class usrCntlATLAS_NCTS If DY_ANM Is Nothing Then DY_ANM = New cDakosy_Zollanmeldungen(ncts_OUT.ncts_dyaAnmID) End If - DY_ANM.dy_ART = ALLG.ncts_ART 'cDy_ART + DY_ANM.dy_ART = ALLG.NCTS_ART 'cDy_ART DY_ANM.dy_BezugsNr = BezugsNr DY_ANM.dy_AvisoId = If(AVISO Is Nothing, Nothing, AVISO.AvisoID) DY_ANM.dy_SendungsId = If(SENDUNG Is Nothing, Nothing, SENDUNG.tblSnd_SendungID) @@ -470,7 +477,7 @@ Public Class usrCntlATLAS_NCTS End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click - + Me.Refresh() Me.Cursor = Cursors.WaitCursor If sentToDakosy OrElse vbYes = MsgBox("Sollen die Daten abgeschickt werden?" & vbNewLine & "Eine Änderung ist nur noch in der Dakosy Software möglich.", vbYesNoCancel) Then @@ -533,7 +540,6 @@ Public Class usrCntlATLAS_NCTS End Sub - Private Sub NeueBezugsnummerVergebenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NeueBezugsnummerVergebenToolStripMenuItem.Click BezugsNr = getBezugsnr(BezugsNr) End Sub diff --git a/SDL/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS_Allg.vb b/SDL/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS_Allg.vb index a27a84a5..664b7379 100644 --- a/SDL/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS_Allg.vb +++ b/SDL/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS_Allg.vb @@ -345,6 +345,8 @@ Private Sub cbxSumASicherheit_CheckedChanged(sender As Object, e As EventArgs) Handles cbxSumASicherheit.CheckedChanged txtEntladeort.Enabled = cbxVereinfachtesVerfahren.Checked txtLadeort.Enabled = cbxVereinfachtesVerfahren.Checked + If Not txtLadeort.Enabled Then txtLadeort.Text = "" + If Not txtEntladeort.Enabled Then txtEntladeort.Text = "" End Sub Private Sub PictureBox2_Click(sender As Object, e As EventArgs) Handles PictureBox2.Click @@ -357,14 +359,18 @@ End Sub Private Sub sbVersendungsLand_TextChanged() Handles sbVersendungsLand.VALUE_CHANGED - If sbVersendungsLand._value <> "" And txtLadeort.Text = "" Then - txtLadeort.Text = sbVersendungsLand._value + If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" And cbxVereinfachtesVerfahren.Checked Then + If sbVersendungsLand._value <> "" And txtLadeort.Text = "" Then + txtLadeort.Text = sbVersendungsLand._value + End If End If End Sub Private Sub sbBestimmungsland_TextChanged() Handles sbBestimmungsland.VALUE_CHANGED - If sbBestimmungsland._value <> "" And txtEntladeort.Text = "" Then - txtEntladeort.Text = sbBestimmungsland._value + If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" And cbxVereinfachtesVerfahren.Checked Then + If sbBestimmungsland._value <> "" And txtEntladeort.Text = "" Then + txtEntladeort.Text = sbBestimmungsland._value + End If End If End Sub @@ -373,7 +379,5 @@ 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/NCTS/usrCntlATLAS_NCTS_Position.Designer.vb b/SDL/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS_Position.Designer.vb index 478700a5..70711b8d 100644 --- a/SDL/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS_Position.Designer.vb +++ b/SDL/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS_Position.Designer.vb @@ -26,6 +26,7 @@ Partial Class usrCntlATLAS_NCTS_Position Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrCntlATLAS_NCTS_Position)) Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Me.pnl = New System.Windows.Forms.Panel() + Me.cboWaehrung = New VERAG_PROG_ALLGEMEIN.MySearchBox() Me.txtSiBetragProzent = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label8 = New System.Windows.Forms.Label() Me.usrcntlSumAEmpfaenger = New SDL.usrCntlAdresse() @@ -111,7 +112,6 @@ Partial Class usrCntlATLAS_NCTS_Position Me.Label5 = New System.Windows.Forms.Label() Me.Label29 = New System.Windows.Forms.Label() Me.lklBearbeitungAbbrechenPK = New System.Windows.Forms.LinkLabel() - Me.cboWaehrung = New VERAG_PROG_ALLGEMEIN.MySearchBox() Me.pnl.SuspendLayout() CType(Me.dgvVorpapier, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.dgvUnterlage, System.ComponentModel.ISupportInitialize).BeginInit() @@ -204,6 +204,30 @@ Partial Class usrCntlATLAS_NCTS_Position Me.pnl.Size = New System.Drawing.Size(730, 1100) Me.pnl.TabIndex = 0 ' + 'cboWaehrung + ' + Me.cboWaehrung._allowFreitext = False + Me.cboWaehrung._AllowSetValue = False + Me.cboWaehrung._autoSizeGross = False + Me.cboWaehrung._hideIfListEmpty = True + Me.cboWaehrung._value = Nothing + Me.cboWaehrung.conn_art = "FMZOLL" + Me.cboWaehrung.dgvpos = "LEFT" + Me.cboWaehrung.DISPLAY_PARAM = Nothing + Me.cboWaehrung.INVISIBLE_COLUMNS = Nothing + Me.cboWaehrung.key_visible = False + Me.cboWaehrung.KEYPARAM = Nothing + Me.cboWaehrung.Location = New System.Drawing.Point(302, 157) + Me.cboWaehrung.Name = "cboWaehrung" + Me.cboWaehrung.searchActive = True + Me.cboWaehrung.Size = New System.Drawing.Size(67, 20) + Me.cboWaehrung.SQL_ORDER_BY = Nothing + Me.cboWaehrung.SQL_SELECT = Nothing + Me.cboWaehrung.SQL_WHERE = Nothing + Me.cboWaehrung.SQL_WhereParamList = Nothing + Me.cboWaehrung.TabIndex = 21 + Me.cboWaehrung.usrcntl = Nothing + ' 'txtSiBetragProzent ' Me.txtSiBetragProzent._DateTimeOnly = False @@ -215,6 +239,7 @@ Partial Class usrCntlATLAS_NCTS_Position Me.txtSiBetragProzent._TimeOnly = False Me.txtSiBetragProzent._value = "0,25" Me.txtSiBetragProzent._Waehrung = False + Me.txtSiBetragProzent._WaehrungZeichen = True Me.txtSiBetragProzent.ForeColor = System.Drawing.Color.Black Me.txtSiBetragProzent.Location = New System.Drawing.Point(136, 176) Me.txtSiBetragProzent.MaxLineLength = -1 @@ -222,7 +247,7 @@ Partial Class usrCntlATLAS_NCTS_Position Me.txtSiBetragProzent.MaxLines_Warning_Label = Nothing Me.txtSiBetragProzent.Name = "txtSiBetragProzent" Me.txtSiBetragProzent.Size = New System.Drawing.Size(56, 20) - Me.txtSiBetragProzent.TabIndex = 26 + Me.txtSiBetragProzent.TabIndex = 25 Me.txtSiBetragProzent.Text = "25,00 %" Me.txtSiBetragProzent.TextAlign = System.Windows.Forms.HorizontalAlignment.Right ' @@ -285,7 +310,7 @@ Partial Class usrCntlATLAS_NCTS_Position Me.Label7.Location = New System.Drawing.Point(436, 178) Me.Label7.Name = "Label7" Me.Label7.Size = New System.Drawing.Size(233, 13) - Me.Label7.TabIndex = 27 + Me.Label7.TabIndex = 26 Me.Label7.Text = "Eigenmasse muss kleiner als Rohmasse sein!" Me.Label7.Visible = False ' @@ -344,6 +369,7 @@ Partial Class usrCntlATLAS_NCTS_Position Me.cbxVermerk._TimeOnly = False Me.cbxVermerk._value = Nothing Me.cbxVermerk._Waehrung = False + Me.cbxVermerk._WaehrungZeichen = True Me.cbxVermerk.ForeColor = System.Drawing.Color.Black Me.cbxVermerk.Location = New System.Drawing.Point(271, 659) Me.cbxVermerk.MaxLength = 280 @@ -378,8 +404,6 @@ Partial Class usrCntlATLAS_NCTS_Position 'cbxEmport ' Me.cbxEmport.AutoSize = True - Me.cbxEmport.Checked = True - Me.cbxEmport.CheckState = System.Windows.Forms.CheckState.Checked Me.cbxEmport.Location = New System.Drawing.Point(136, 661) Me.cbxEmport.Name = "cbxEmport" Me.cbxEmport.Size = New System.Drawing.Size(56, 17) @@ -440,7 +464,7 @@ Partial Class usrCntlATLAS_NCTS_Position Me.Label40.Location = New System.Drawing.Point(16, 525) Me.Label40.Name = "Label40" Me.Label40.Size = New System.Drawing.Size(28, 13) - Me.Label40.TabIndex = 53 + Me.Label40.TabIndex = 52 Me.Label40.Text = "Typ:" ' 'cboVpTyp @@ -453,7 +477,7 @@ Partial Class usrCntlATLAS_NCTS_Position Me.cboVpTyp.Location = New System.Drawing.Point(47, 522) Me.cboVpTyp.Name = "cboVpTyp" Me.cboVpTyp.Size = New System.Drawing.Size(82, 21) - Me.cboVpTyp.TabIndex = 54 + Me.cboVpTyp.TabIndex = 53 ' 'txtVpReferenz ' @@ -466,6 +490,7 @@ Partial Class usrCntlATLAS_NCTS_Position Me.txtVpReferenz._TimeOnly = False Me.txtVpReferenz._value = Nothing Me.txtVpReferenz._Waehrung = False + Me.txtVpReferenz._WaehrungZeichen = True Me.txtVpReferenz.ForeColor = System.Drawing.Color.Black Me.txtVpReferenz.Location = New System.Drawing.Point(136, 592) Me.txtVpReferenz.MaxLength = 35 @@ -484,13 +509,13 @@ Partial Class usrCntlATLAS_NCTS_Position Me.Button4.Location = New System.Drawing.Point(671, 506) Me.Button4.Name = "Button4" Me.Button4.Size = New System.Drawing.Size(30, 20) - Me.Button4.TabIndex = 52 + Me.Button4.TabIndex = 51 Me.Button4.TabStop = False Me.Button4.UseVisualStyleBackColor = True ' 'Button5 ' - Me.Button5.BackgroundImage = Global.SDL.My.Resources.plus + Me.Button5.BackgroundImage = Global.SDL.My.Resources.Resources.plus Me.Button5.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button5.Location = New System.Drawing.Point(671, 592) @@ -511,6 +536,7 @@ Partial Class usrCntlATLAS_NCTS_Position Me.txtVpZusatz._TimeOnly = False Me.txtVpZusatz._value = Nothing Me.txtVpZusatz._Waehrung = False + Me.txtVpZusatz._WaehrungZeichen = True Me.txtVpZusatz.ForeColor = System.Drawing.Color.Black Me.txtVpZusatz.Location = New System.Drawing.Point(335, 592) Me.txtVpZusatz.MaxLength = 26 @@ -549,7 +575,7 @@ Partial Class usrCntlATLAS_NCTS_Position Me.dgvVorpapier.RowHeadersVisible = False Me.dgvVorpapier.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect Me.dgvVorpapier.Size = New System.Drawing.Size(533, 85) - Me.dgvVorpapier.TabIndex = 51 + Me.dgvVorpapier.TabIndex = 54 Me.dgvVorpapier.TabStop = False ' 'VpReferenz @@ -633,6 +659,7 @@ Partial Class usrCntlATLAS_NCTS_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(136, 130) Me.txtWarennummer.MaxLength = 10 @@ -654,6 +681,7 @@ Partial Class usrCntlATLAS_NCTS_Position Me.txtWTNat._TimeOnly = False Me.txtWTNat._value = Nothing Me.txtWTNat._Waehrung = False + Me.txtWTNat._WaehrungZeichen = True Me.txtWTNat.Enabled = False Me.txtWTNat.ForeColor = System.Drawing.Color.Black Me.txtWTNat.Location = New System.Drawing.Point(335, 130) @@ -675,6 +703,7 @@ Partial Class usrCntlATLAS_NCTS_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(302, 130) @@ -696,6 +725,7 @@ Partial Class usrCntlATLAS_NCTS_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, 130) @@ -717,6 +747,7 @@ Partial Class usrCntlATLAS_NCTS_Position Me.txtWTTaric._TimeOnly = False Me.txtWTTaric._value = Nothing Me.txtWTTaric._Waehrung = False + Me.txtWTTaric._WaehrungZeichen = True Me.txtWTTaric.Enabled = False Me.txtWTTaric.ForeColor = System.Drawing.Color.Black Me.txtWTTaric.Location = New System.Drawing.Point(236, 130) @@ -750,7 +781,7 @@ Partial Class usrCntlATLAS_NCTS_Position 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 = 2 + Me.Label30.TabIndex = 1 Me.Label30.Text = "Suche Kd-Zolltarif:" Me.Label30.TextAlign = System.Drawing.ContentAlignment.TopRight ' @@ -775,7 +806,7 @@ Partial Class usrCntlATLAS_NCTS_Position Me.MySearchBox1.SQL_SELECT = Nothing Me.MySearchBox1.SQL_WHERE = Nothing Me.MySearchBox1.SQL_WhereParamList = Nothing - Me.MySearchBox1.TabIndex = 0 + Me.MySearchBox1.TabIndex = 2 Me.MySearchBox1.usrcntl = Nothing ' 'txtEigenmasse @@ -789,6 +820,7 @@ Partial Class usrCntlATLAS_NCTS_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, 157) Me.txtEigenmasse.MaxLength = 18 @@ -811,6 +843,7 @@ Partial Class usrCntlATLAS_NCTS_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, 157) Me.txtRohmasse.MaxLength = 18 @@ -926,7 +959,7 @@ Partial Class usrCntlATLAS_NCTS_Position ' '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, 459) @@ -947,6 +980,7 @@ Partial Class usrCntlATLAS_NCTS_Position Me.txtUlZusatz._TimeOnly = False Me.txtUlZusatz._value = Nothing Me.txtUlZusatz._Waehrung = False + Me.txtUlZusatz._WaehrungZeichen = True Me.txtUlZusatz.ForeColor = System.Drawing.Color.Black Me.txtUlZusatz.Location = New System.Drawing.Point(519, 459) Me.txtUlZusatz.MaxLength = 26 @@ -968,6 +1002,7 @@ Partial Class usrCntlATLAS_NCTS_Position Me.txtUlReferenz._TimeOnly = False Me.txtUlReferenz._value = Nothing Me.txtUlReferenz._Waehrung = False + Me.txtUlReferenz._WaehrungZeichen = True Me.txtUlReferenz.ForeColor = System.Drawing.Color.Black Me.txtUlReferenz.Location = New System.Drawing.Point(370, 459) Me.txtUlReferenz.MaxLength = 35 @@ -980,7 +1015,7 @@ Partial Class usrCntlATLAS_NCTS_Position ' 'btn ' - Me.btn.BackgroundImage = Global.SDL.My.Resources.plus + Me.btn.BackgroundImage = Global.SDL.My.Resources.Resources.plus Me.btn.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btn.Location = New System.Drawing.Point(671, 329) @@ -1001,6 +1036,7 @@ Partial Class usrCntlATLAS_NCTS_Position Me.txtPkMarke._TimeOnly = False Me.txtPkMarke._value = "ohne" Me.txtPkMarke._Waehrung = False + Me.txtPkMarke._WaehrungZeichen = True Me.txtPkMarke.ForeColor = System.Drawing.Color.Black Me.txtPkMarke.Location = New System.Drawing.Point(412, 329) Me.txtPkMarke.MaxLength = 42 @@ -1023,6 +1059,7 @@ Partial Class usrCntlATLAS_NCTS_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, 329) Me.txtPkAnzahl.MaxLength = 5 @@ -1185,7 +1222,7 @@ Partial Class usrCntlATLAS_NCTS_Position Me.Label4.Location = New System.Drawing.Point(10, 179) Me.Label4.Name = "Label4" Me.Label4.Size = New System.Drawing.Size(120, 13) - Me.Label4.TabIndex = 25 + Me.Label4.TabIndex = 27 Me.Label4.Text = "Sicherheitsbetrag (%/€):" ' 'Label3 @@ -1208,6 +1245,7 @@ Partial Class usrCntlATLAS_NCTS_Position Me.txtWarenwert._TimeOnly = False Me.txtWarenwert._value = "" Me.txtWarenwert._Waehrung = False + Me.txtWarenwert._WaehrungZeichen = True Me.txtWarenwert.ForeColor = System.Drawing.Color.Black Me.txtWarenwert.Location = New System.Drawing.Point(136, 157) Me.txtWarenwert.MaxLineLength = -1 @@ -1238,6 +1276,7 @@ Partial Class usrCntlATLAS_NCTS_Position 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, 41) Me.txtWarenbezeichnung.MaxLength = 280 @@ -1275,7 +1314,7 @@ Partial Class usrCntlATLAS_NCTS_Position 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 = 1 + Me.Label2.TabIndex = 0 Me.Label2.Text = "PosNr.:" Me.Label2.TextAlign = System.Drawing.ContentAlignment.TopRight ' @@ -1330,30 +1369,6 @@ Partial Class usrCntlATLAS_NCTS_Position Me.lklBearbeitungAbbrechenPK.Text = "Bearbeitung abbrechen" Me.lklBearbeitungAbbrechenPK.Visible = False ' - 'cboWaehrung - ' - Me.cboWaehrung._allowFreitext = False - Me.cboWaehrung._AllowSetValue = False - Me.cboWaehrung._autoSizeGross = False - Me.cboWaehrung._hideIfListEmpty = True - Me.cboWaehrung._value = Nothing - Me.cboWaehrung.conn_art = "FMZOLL" - Me.cboWaehrung.dgvpos = "LEFT" - Me.cboWaehrung.DISPLAY_PARAM = Nothing - Me.cboWaehrung.INVISIBLE_COLUMNS = Nothing - Me.cboWaehrung.key_visible = False - Me.cboWaehrung.KEYPARAM = Nothing - Me.cboWaehrung.Location = New System.Drawing.Point(302, 157) - Me.cboWaehrung.Name = "cboWaehrung" - Me.cboWaehrung.searchActive = True - Me.cboWaehrung.Size = New System.Drawing.Size(67, 20) - Me.cboWaehrung.SQL_ORDER_BY = Nothing - Me.cboWaehrung.SQL_SELECT = Nothing - Me.cboWaehrung.SQL_WHERE = Nothing - Me.cboWaehrung.SQL_WhereParamList = Nothing - Me.cboWaehrung.TabIndex = 76 - Me.cboWaehrung.usrcntl = Nothing - ' 'usrCntlATLAS_NCTS_Position ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) diff --git a/SDL/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS_Position.vb b/SDL/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS_Position.vb index eff1cb68..c7aa6369 100644 --- a/SDL/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS_Position.vb +++ b/SDL/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS_Position.vb @@ -220,13 +220,11 @@ Private Sub PackstueckeKeyDown(sender As Object, e As KeyEventArgs) Handles sbPkTyp.KeyDown, txtPkAnzahl.KeyDown, txtPkMarke.KeyDown - If e.KeyCode = Keys.Return Then addPackstuecke() - e.Handled = True + If e.KeyCode = Keys.Return Then addPackstuecke() : e.Handled = True End Sub Private Sub UnterlageKeyDown(sender As Object, e As KeyEventArgs) Handles txtUlZusatz.KeyDown, txtUlReferenz.KeyDown, sbUlArten.KeyDown - If e.KeyCode = Keys.Return Then addUnterlage() - e.Handled = True + If e.KeyCode = Keys.Return Then addUnterlage() : e.Handled = True End Sub @@ -293,8 +291,7 @@ End Sub Private Sub txtVpReferenz_KeyDown(sender As Object, e As KeyEventArgs) Handles txtVpReferenz.KeyDown, txtVpZusatz.KeyDown - If e.KeyCode = Keys.Return Then addVorpapier() - e.Handled = True + If e.KeyCode = Keys.Return Then addVorpapier() : e.Handled = True End Sub Private Sub txtRohmasse_TextChanged(sender As Object, e As EventArgs) Handles txtRohmasse.TextChanged @@ -391,6 +388,8 @@ End If End If End Sub + + End Class diff --git a/SDL/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS_Positionen.vb b/SDL/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS_Positionen.vb index 5c96d8e1..1a8f99b7 100644 --- a/SDL/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS_Positionen.vb +++ b/SDL/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS_Positionen.vb @@ -175,6 +175,10 @@ End Sub u.Dock = DockStyle.Fill u.cboVpTyp.changeItem("OHNE") + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + Case "ATILLA" + u.cbxEmport.Checked = True + End Select ' AddHandler u.ADD, AddressOf addItem ' AddHandler u.REMOVE, AddressOf removeItem ' AddHandler u.NEXT_POS, AddressOf NEXT_POS diff --git a/SDL/DAKOSY/frmZollanmeldung.vb b/SDL/DAKOSY/frmZollanmeldung.vb index e2392f13..5299d6e6 100644 --- a/SDL/DAKOSY/frmZollanmeldung.vb +++ b/SDL/DAKOSY/frmZollanmeldung.vb @@ -86,9 +86,9 @@ Me.pnl.Controls.Add(usrcntl) End If - - + + Case "AES", "EX", "EU", "CO" If Me.DY Is Nothing Then @@ -101,7 +101,7 @@ usrcntl.Dock = DockStyle.Fill Me.pnl.Controls.Add(usrcntl) - End If + End If Case "EZA", "VZA" @@ -119,4 +119,26 @@ End Select End Sub + + + + Shared Sub setZollstelle(ByRef zst As String, AVISO As VERAG_PROG_ALLGEMEIN.cAviso) + Try + If AVISO Is Nothing Then Exit Sub + If AVISO.Grenzstelle.Replace("???", "") = "" Then + zst = AVISO.Zollstelle + Else + Select Case AVISO.Grenzstelle + Case "SUB" : zst = "DE007701"'Suben Autobahngrenze + Case "SBG" : zst = "DE007458" 'Bad Reichenhall-Autobahn + Case "WAI" : zst = "DE008904" 'Weiden-Waidhaus + Case "NEU" : zst = "DE007703" 'Passau + ' Case "SFD" : zst = Asd ....DAKOS DE -.- + End Select + End If + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + End Sub + End Class \ No newline at end of file diff --git a/SDL/DAKOSY/usrCntlAdresse.vb b/SDL/DAKOSY/usrCntlAdresse.vb index 15910274..46162890 100644 --- a/SDL/DAKOSY/usrCntlAdresse.vb +++ b/SDL/DAKOSY/usrCntlAdresse.vb @@ -4,7 +4,7 @@ Public Class usrCntlAdresse Public Property _Titel As String = "ADRESSE:" Dim PROG As New SDL.cProgramFunctions - ' Public KundenNr As Integer = -1 + Public KundenNr As Integer = -1 Private Sub usrCntlAdresse_Layout(sender As Object, e As Windows.Forms.LayoutEventArgs) Handles Me.Layout Me.Label9.Text = Me._Titel @@ -32,6 +32,8 @@ Public Class usrCntlAdresse End Sub Private Sub kdFirma_TextChanged(sender As Object, e As EventArgs) Handles kdFirma.PropertyChanged + KundenNr = kdFirma.KdNr_value + txtStrasse.Text = "" sbLand.SET_VALUE("") txtPlz.Text = "" diff --git a/SDL/DAKOSY/usrCntlAdresseEZA.vb b/SDL/DAKOSY/usrCntlAdresseEZA.vb index 66c42c77..89f5260f 100644 --- a/SDL/DAKOSY/usrCntlAdresseEZA.vb +++ b/SDL/DAKOSY/usrCntlAdresseEZA.vb @@ -4,7 +4,7 @@ Public Class usrCntlAdresseEZA Public Property _Titel As String = "ADRESSE:" Dim PROG As New SDL.cProgramFunctions - ' Public KundenNr As Integer = -1 + Public KundenNr As Integer = -1 Private Sub usrCntlAdresse_Layout(sender As Object, e As Windows.Forms.LayoutEventArgs) Handles Me.Layout Me.Label9.Text = Me._Titel @@ -32,6 +32,7 @@ Public Class usrCntlAdresseEZA End Sub Private Sub kdFirma_TextChanged(sender As Object, e As EventArgs) Handles kdFirma.PropertyChanged + KundenNr = kdFirma.KdNr_value txtStrasse.Text = "" sbLand.SET_VALUE("") txtPlz.Text = "" diff --git a/SDL/Fakturierung/cFakturierung.vb b/SDL/Fakturierung/cFakturierung.vb index 9575c3d3..c0e31930 100644 --- a/SDL/Fakturierung/cFakturierung.vb +++ b/SDL/Fakturierung/cFakturierung.vb @@ -180,6 +180,155 @@ Public Class cFakturierung End Function + + + + Shared Function przRechnungstext(ByRef RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang) As String ', ByRef strZahlbar As String, ByRef strText As String) + + + Dim strZahlbar As String = "" + Dim strText As String = "" + ' Dim varPos As Object + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + + ' Dim Nettozahlungsziel + + + If RECHNUNG.RechnungsKundenNr > 0 Then + + Dim RECHNUNG_AD As New VERAG_PROG_ALLGEMEIN.cAdressen(RECHNUNG.RechnungsKundenNr) + Dim RECHNUNG_KD As New VERAG_PROG_ALLGEMEIN.cKunde(RECHNUNG.RechnungsKundenNr) + + Select Case RECHNUNG.[BelegartenNr] + Case 70 'RECHNUNG + + If Not RECHNUNG.Vorkasse Then + If RECHNUNG.Lastschrift Then + strText = strText & "Der Rechnungsbetrag wurde durch erteilten Abbuchungsauftrag eingezogen." & vbCrLf + Else + If checkIfKreditaufwendungen(RECHNUNG) Then + strZahlbar = "Zahlbar innerhalb 10 Tagen abzüglich Pos. 750; ab 10 Tagen netto fällig." + Else + 'Zahlungsziel allgemein. + strZahlbar = "Zahlbar innerhalb 10 Tagen ab Rechnungsdatum." + End If + + 'Zahlungsziel bei Maut/Diesel. + If RECHNUNG.OffertenNr IsNot Nothing And RECHNUNG.RechnungsKundenNr > 0 And RECHNUNG.RechnungsLandKz IsNot Nothing Then + Dim ZahlungszielOffert As String = SQL.getValueTxtBySql("SELECT isnull(Zahlungsziel,'') FROM Offertenstamm WHERE OffertenNr='" & RECHNUNG.OffertenNr & "' AND Zahlungsziel Is Not Null", "FMZOLL") + + If ZahlungszielOffert <> "" Then + Dim ZahlungszielKunde As String = If(RECHNUNG_KD.Zahlungsziel, "") + Dim ZahlungszielText As String = SQL.getValueTxtBySql("SELECT isnull(tblZahlungszieltexte.Text,'') FROM tblZahlungszieltexte WHERE tblZahlungszieltexte.LandKz='" & RECHNUNG.RechnungsLandKz & "' AND tblZahlungszieltexte.Text Is Not Null", "FMZOLL") + + If ZahlungszielKunde <> "" Then 'Zahlungsziel für Kunde verwenden + RECHNUNG.Nettozahlungsziel = ZahlungszielKunde + strZahlbar = If(ZahlungszielText <> "", ZahlungszielText, "Rechnung zahlbar spätestens bis") & " " & ZahlungszielKunde & "!" + Else 'Zahlungsziel für Offerte verwenden + RECHNUNG.Nettozahlungsziel = ZahlungszielOffert + strZahlbar = If(ZahlungszielText <> "", ZahlungszielText, "Rechnung zahlbar spätestens bis") & " " & ZahlungszielOffert & "!" + End If + End If + End If + + + ' Text bei Zoll oder EUSt drucken + If checkIfcheckIfZollbelege(RECHNUNG) Then + strText = strText & "Alle Zollbelege bitte sofort auf Richtigkeit prüfen da Einspruch gemäß § 355 AO nur 1 Monat nach Datum des Zollbescheides möglich." & vbCrLf + End If + + End If + Else + Dim VK = VERAG_PROG_ALLGEMEIN.cVorauskasse.LOADByFilialeAbfNr(RECHNUNG.FilialenNr, RECHNUNG.AbfertigungsNr) + If VK IsNot Nothing AndAlso CDbl(VK.vk_Betrag) > 0 Then ' Wenn 0 dann Fehler + If CDbl(VK.vk_Betrag) = CDbl(RECHNUNG.SteuerfreierGesamtbetrag + RECHNUNG.SteuerpflichtigerGesamtbetrag) Then + strText = strText & "Der Rechnungsbetrag wurde bereits per Vorauszahlung beglichen." & vbCrLf + Else + strText = strText & "Zu dieser Rechnung wurde bereits eine Vorauszahlung geleistet, bitte überweisen Sie den Differenzbetrag." & vbCrLf + End If + End If + + End If + Case 71 'GS + If RECHNUNG.Lastschrift Then + strText = strText & "Der Gutschriftsbetrag wurde mit erteilten Abbuchungsauftrag verrechnet." & vbCrLf + End If + End Select + + + ' Informations- und Werbetexte drucken + Dim sqlStr = "SELECT * FROM Rechnungstexte WHERE 1=1" + If RECHNUNG.Firma_ID > 0 Then sqlStr &= " AND (Firma_ID='" & RECHNUNG.Firma_ID & "' or Firma_ID is null) " + If If(RECHNUNG_AD.LandKz, "") <> "" Then sqlStr &= " AND (LandKz='" & RECHNUNG_AD.LandKz & "' or LandKz is null) " + If If(RECHNUNG.OffertenNr, 0) > 0 Then sqlStr &= " AND (OffertenNr='" & RECHNUNG.OffertenNr & "' or OffertenNr is null) " + + 'Wennn Rechnung als Email geschickt werden sollte Rechnungsdruck=2 + If If(RECHNUNG_AD.Rechnungsdruck, -1) = 2 And If(RECHNUNG_AD.E_Mail, "") <> "" Then sqlStr &= " AND EMailRechnung=1 " + + Select Case RECHNUNG.[BelegartenNr] + Case 70 + sqlStr &= " AND (DrucksteuerungsKz='R' OR DrucksteuerungsKz='') " + Case 71 + sqlStr &= " AND (DrucksteuerungsKz='G' OR DrucksteuerungsKz='') " + End Select + Dim dt_RechnungsTexte As DataTable = SQL.loadDgvBySql(sqlStr & " order by Firma_ID desc,LandKz desc,Offertennr desc", "FMZOLL") + + If dt_RechnungsTexte.Rows.Count > 0 Then + strText &= dt_RechnungsTexte.Rows(0)("Text") & vbCrLf + ' MsgBox(dt_RechnungsTexte.Rows(0)("Text") & vbCrLf) + End If + + + + strText = strZahlbar & vbNewLine & strText + ' Text in Rechnungskopfsatz übernehmen. + If strText = "" Then + RECHNUNG.Text = Nothing + Else + strText.Replace("", If(RECHNUNG_AD.E_Mail, " - ")) + + ' varPos = InStr(1, strText, "") + ' If varPos > 0 And Not rstAdr.EOF And Not IsNull(rstAdr![E-Mail]) Then + 'If Len(strText) > (varPos - 1 + Len("")) Then + ' strText = Left(strText, varPos - 1) & rstAdr![E-Mail] & Right(strText, Len(strText) - (varPos - 1 + Len(""))) + ' Else + ' strText = Left(strText, varPos - 1) & rstAdr![E-Mail] + ' End If + ' End If + ' Me![Text] = strText + RECHNUNG.Text = strText + End If + + End If + + + Return strText + + + End Function + + Shared Function checkIfcheckIfZollbelege(RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang) As Boolean + For Each POS In RECHNUNG.POSITIONEN + If (POS.LeistungsNr = 10 Or POS.LeistungsNr = 60 Or POS.LeistungsNr = 70) Then + Return True + End If + Next + Return False + End Function + + + + Shared Function checkIfKreditaufwendungen(RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang) As Boolean + For Each POS In RECHNUNG.POSITIONEN + If POS.LeistungsNr = 750 And POS.BerechnungsartNr = 9 Then + Return True + End If + Next + Return False + End Function + + Shared Function getRgDatInput(txt As String, ByRef RechnungsDatum As Date) As Boolean Dim f As New frmRechnungsdatum() f.ShowDialog() @@ -639,12 +788,12 @@ Public Class cFakturierung cProgramFunctions.showRpt(rpt, "Rechnungsdruck", False) Return True Else - + Dim Kopie = True 'ORIGINAL Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(RECHNUNG.RechnungsKundenNr) If RECHNUNG.Status = 0 Then If AD IsNot Nothing Then - + Kopie = False 'Aktualisierung und speichern: If Abrechnugsdaten_AKTUALISIEREN(RECHNUNG, RechnungsDatum) Then rpt.lblRgNr.Text = RECHNUNG.RechnungsNr @@ -666,19 +815,42 @@ Public Class cFakturierung 'Rechnugnsdruck = Individuell für deise Rechnung, wird optional mitgegeben Dim RG_Bezeichnung = "VERAG_Rechnung_" & If(RECHNUNG.RechnungsNr, "") & ".pdf" + + 'Immer Exportieren, da in Therefore speichern + Dim tmpPath = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(RG_Bezeichnung, ".pdf", , False) + Dim p As New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport + rpt.Run(False) + p.NeverEmbedFonts = "" + p.Export(rpt.Document, tmpPath) + + 'THEREFORE IMPORT: + '------------------------------------------------------------------------------- + Try + If Not Kopie And Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then + Select Case RECHNUNG.Firma_ID + Case 1, 11 + VERAG_PROG_ALLGEMEIN.cTherefore.saveFileTo_ImportFolder(tmpPath, RECHNUNG.FilialenNr & RECHNUNG.AbfertigungsNr, If(RECHNUNG.AvisoID, "")) + End Select + End If + Catch ex As Exception + MsgBox("Therefore-Import fehlgeschlagen!" & ex.Message & ex.StackTrace) + End Try + '------------------------------------------------------------------------------- + Select Case If(Rechnugnsdruck > 0, Rechnugnsdruck, If(AD.Rechnungsdruck, 0))'If(AD.Rechnungsdruck, 0) Case 0, 1 'DRUCKEN Return cProgramFunctions.printRpt(rpt, PrinterName) - 'Case 1 'FAX - Case 2 'MAIL - Dim tmpPath = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(RG_Bezeichnung, ".pdf", , False) - Dim p As New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport - rpt.Run(False) - p.NeverEmbedFonts = "" - p.Export(rpt.Document, tmpPath) - Path = tmpPath - rpt.Dispose() + 'Case 1 'FAX + Case 2 'MAIL + 'Dim tmpPath = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(RG_Bezeichnung, ".pdf", , False) + 'Dim p As New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport + 'rpt.Run(False) + 'p.NeverEmbedFonts = "" + 'p.Export(rpt.Document, tmpPath) + + ' rpt.Dispose() + Path = tmpPath Try Dim outl As New Outlook.Application @@ -707,29 +879,33 @@ Public Class cFakturierung MsgBox("Fehler bim Öffnen des Mail-Programmes. PDF wird geladen!") Process.Start(tmpPath) End Try + rpt.Dispose() Return True Case 3 'PDF + öffnen - Dim tmpPath = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(RG_Bezeichnung, ".pdf", , False) - Dim p As New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport - rpt.Run(False) - p.NeverEmbedFonts = "" - p.Export(rpt.Document, tmpPath) + 'Dim tmpPath = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(RG_Bezeichnung, ".pdf", , False) + 'Dim p As New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport + 'rpt.Run(False) + 'p.NeverEmbedFonts = "" + 'p.Export(rpt.Document, tmpPath) - rpt.Dispose() + ' rpt.Dispose() Path = tmpPath Process.Start(tmpPath) + rpt.Dispose() Return True Case 4 'PDF - Dim tmpPath = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(RG_Bezeichnung, ".pdf", , False) - Dim p As New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport - rpt.Run(False) - p.NeverEmbedFonts = "" - p.Export(rpt.Document, tmpPath) + 'Dim tmpPath = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(RG_Bezeichnung, ".pdf", , False) + 'Dim p As New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport + 'rpt.Run(False) + 'p.NeverEmbedFonts = "" + 'p.Export(rpt.Document, tmpPath) + + 'rpt.Dispose() + Path = tmpPath rpt.Dispose() - Path = tmpPath Return True End Select End If @@ -886,12 +1062,12 @@ Public Class cFakturierung ' 3-_> Sammel-Rg gedruckt ' 4-_> ? irgendwas mit SR 6 Maut/Diesel?? - Public Shared Function GET_SR_SQLDT(Firma_ID As Integer, SammelrechungArt As Integer, DatumBis As Date, Optional whereKdNr As String = "", Optional SB As String = "") As DataTable + Public Shared Function GET_SR_SQLDT(Firma_ID As Integer, SammelrechungArt As Integer, DatumBis As Date, Optional whereKdNr As String = "", Optional SB As String = "", Optional AvisoIds As List(Of Integer) = Nothing) As DataTable If whereKdNr <> "" Then whereKdNr = " AND RechnungsKundenNr IN(" & whereKdNr & ") " Dim sqlStr = " SELECT Rechnungsausgang.RK_ID, Rechnungsausgang.Firma_ID, Rechnungsausgang.FilialenNr, Rechnungsausgang.RechnungsKundenNr, Rechnungsausgang.BelegartenNr, Rechnungsausgang.[Steuersatz %], Rechnungsausgang.Lastschrift, Rechnungsausgang.Währungscode, Rechnungsausgang.AvisoID, Rechnungsausgang.RechnungsNr, Rechnungsausgang.RechnungsDatum, Rechnungsausgang.DruckDatumZeit, Rechnungsausgang.Status, Rechnungsausgang.Sammelrechnung, Rechnungsausgang.Abfertigungsdatum, Rechnungsausgang.Buchungsjahr,Rechnungsausgang.AbfertigungsNr,Rechnungsausgang.SpeditionsbuchUnterNr From Rechnungsausgang WHERE Rechnungsausgang.Status IN(0, 2) And Rechnungsausgang.Firma_ID = " & Firma_ID & " And Rechnungsausgang.Sammelrechnung = '" & SammelrechungArt & "' And CONVERT(DATE,Rechnungsausgang.Abfertigungsdatum,104) <= '" & DatumBis.ToShortDateString & "' " & whereKdNr & " - " & If(SammelrechungArt = 7 And SB <> "", " AND Sachbearbeiter='" & SB & "' ", "") & "" + " & If(SammelrechungArt = 7 And SB <> "", " AND Sachbearbeiter='" & SB & "' ", "") & "" & getWhereAvisoId(AvisoIds) 'Rechnungsausgang.Status IN(0, 2) --> vorher nur 2, da Anlagen vor der SR gedruckt wurden... If SammelrechungArt = 7 Then sqlStr &= " ORDER BY Rechnungsausgang.AvisoID,Rechnungsausgang.Firma_ID,Rechnungsausgang.RechnungsKundenNr,Rechnungsausgang.FilialenNr, Rechnungsausgang.AbfertigungsNr, Rechnungsausgang.BelegartenNr, Rechnungsausgang.[Steuersatz %], Rechnungsausgang.Lastschrift, Rechnungsausgang.Währungscode " @@ -903,7 +1079,19 @@ Public Class cFakturierung Return dt End Function - Public Shared Function doSAMMELRechnungsDruck(Firma_ID As Integer, SammelrechungArt As Integer, DatumBis As Date, Rechnungsdatum As Date, PrinterName As String, Optional AnlageEinzelRg As Boolean = True, Optional Sammelrechnungsbericht As Boolean = True, Optional whereKdNr As String = "", Optional RechnungsdruckArt As Integer = -1, Optional ByRef listPDFs As List(Of String) = Nothing, Optional SB As String = "", ByRef Optional lastAktuelle_RgNr As Integer = -1, ByRef Optional DruckdatumUhrzeit As DateTime = Nothing) As Boolean 'RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, Optional vorschau As Boolean = False, Optional Rechnugnsdruck As Integer = -1, Optional ByRef Path As String = "") As Boolean + Public Shared Function getWhereAvisoId(ids As List(Of Integer)) As String + If ids Is Nothing Then Return "" + If ids.Count = 0 Then Return "" + getWhereAvisoId = " AND AvisoId IN (" + For Each i In ids + getWhereAvisoId &= "'" & i & "'," + Next + getWhereAvisoId = getWhereAvisoId.Substring(0, getWhereAvisoId.Length - 1) ' "," + getWhereAvisoId &= ") " + End Function + + + Public Shared Function doSAMMELRechnungsDruck(Firma_ID As Integer, SammelrechungArt As Integer, DatumBis As Date, Rechnungsdatum As Date, PrinterName As String, Optional AnlageEinzelRg As Boolean = True, Optional Sammelrechnungsbericht As Boolean = True, Optional whereKdNr As String = "", Optional RechnungsdruckArt As Integer = -1, Optional ByRef listPDFs As List(Of String) = Nothing, Optional SB As String = "", ByRef Optional lastAktuelle_RgNr As Integer = -1, ByRef Optional DruckdatumUhrzeit As DateTime = Nothing, Optional AvisoIds As List(Of Integer) = Nothing) As Boolean 'RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, Optional vorschau As Boolean = False, Optional Rechnugnsdruck As Integer = -1, Optional ByRef Path As String = "") As Boolean 'If RECHNUNG Is Nothing Then MsgBox("Fehler beim Laden der Rechnungsdaten!") : Return False Try 'If whereKdNr <> "" Then whereKdNr = " AND RechnungsKundenNr IN(" & whereKdNr & ") " @@ -918,7 +1106,7 @@ Public Class cFakturierung ' sqlStr &= " ORDER BY Rechnungsausgang.Firma_ID, Rechnungsausgang.RechnungsKundenNr,Rechnungsausgang.FilialenNr,Rechnungsausgang.AbfertigungsNr, Rechnungsausgang.BelegartenNr, Rechnungsausgang.[Steuersatz %], Rechnungsausgang.Lastschrift, Rechnungsausgang.Währungscode, Rechnungsausgang.AvisoID " 'End If - Dim dt = GET_SR_SQLDT(Firma_ID, SammelrechungArt, DatumBis, whereKdNr, SB) 'SQL.loadDgvBySql(sqlStr, "FMZOLL") + Dim dt = GET_SR_SQLDT(Firma_ID, SammelrechungArt, DatumBis, whereKdNr, SB, AvisoIds) 'SQL.loadDgvBySql(sqlStr, "FMZOLL") If dt Is Nothing Then MsgBox("ERR01: Keine Daten") : Return True If dt.Rows.Count = 0 Then MsgBox("ERR02: Keine Daten") : Return True @@ -1020,7 +1208,7 @@ Public Class cFakturierung Dim pathPDF_Anlage As New List(Of String) '-------------- ENDE -------------- - doSAMMELRechnungsDruck_Abschnitt = doSAMMELRechnungDruck_Rechnungsdruck(dt, RechnungsNr, DruckdatumUhrzeit, 3, RechnungsdruckArt, pathPDF_SammelRg, PrinterName) 'Sammelrechnung drucken + doSAMMELRechnungsDruck_Abschnitt = doSAMMELRechnungDruck_Rechnungsdruck(dt, RechnungsNr, DruckdatumUhrzeit, 3, RechnungsdruckArt, pathPDF_SammelRg, PrinterName, SRDruckWiederholen) 'Sammelrechnung drucken If Sammelrechnungsbericht Then If Not doSAMMELRechnungDruck_Rechnungsdruck_Sammelrechnungsbericht(RechnungsNr, DruckdatumUhrzeit, RechnungsdruckArt, pathPDF_SammelBericht, PrinterName) Then doSAMMELRechnungsDruck_Abschnitt = False 'Sammelrechnungsbericht drucken If AnlageEinzelRg Then If Not doSAMMELRechnungDruck_Rechnungsdruck_Anlagen(RechnungsNr, DruckdatumUhrzeit, PrinterName, pathPDF_Anlage, RechnungsdruckArt) Then doSAMMELRechnungsDruck_Abschnitt = False 'Anlagen drucken @@ -1334,16 +1522,24 @@ Public Class cFakturierung End Function Shared Function getSBRgName(Firma_id As Integer, USRKURZNAME As String) As String + Dim firma = "" + Select Case Firma_id + Case 20 + firma = "'IMEX'" + Case Else + firma = "'VERAG','ALL'" + End Select + If USRKURZNAME Is Nothing Then Return "" If USRKURZNAME Is DBNull.Value Then Return "" If USRKURZNAME = "" Then USRKURZNAME = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME - Dim txt = SQL.getValueTxtBySql("SELECT CASE WHEN mit_geschlecht='w' THEN 'Frau ' ELSE (CASE WHEN mit_geschlecht='m' THEN 'Herr ' ELSE '' END ) END + mit_nname FROM [tblMitarbeiter] WHERE [mit_username]='" & USRKURZNAME & "'", "ADMIN") + Dim txt = SQL.getValueTxtBySql("SELECT CASE WHEN mit_geschlecht='w' THEN 'Frau ' ELSE (CASE WHEN mit_geschlecht='m' THEN 'Herr ' ELSE '' END ) END + mit_nname FROM [tblMitarbeiter] WHERE [mit_username]='" & USRKURZNAME & "' AND [mit_firma] IN (" & firma & ")", "ADMIN") If txt <> "" Then Return txt Return USRKURZNAME End Function - Shared Function doSAMMELRechnungDruck_Rechnungsdruck(dt As DataTable, RechnungsNr As Integer, DruckdatumUhrzeit As Date, Rgstatus As Integer, Optional Rechnugnsdruck As Integer = -1, Optional ByRef Path As String = "", Optional PrinterName As String = "") As Boolean 'RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, Optional vorschau As Boolean = False, Optional Rechnugnsdruck As Integer = -1, Optional ByRef Path As String = "") As Boolean + Shared Function doSAMMELRechnungDruck_Rechnungsdruck(dt As DataTable, RechnungsNr As Integer, DruckdatumUhrzeit As Date, Rgstatus As Integer, Optional Rechnugnsdruck As Integer = -1, Optional ByRef Path As String = "", Optional PrinterName As String = "", Optional SRDruckWiederholen As Boolean = False) As Boolean 'RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, Optional vorschau As Boolean = False, Optional Rechnugnsdruck As Integer = -1, Optional ByRef Path As String = "") As Boolean Try Dim rpt As New rptSammelRechnungDruck @@ -1559,21 +1755,41 @@ Public Class cFakturierung 'Rechnugnsdruck = Individuell für deise Rechnung, wird optional mitgegeben ' MsgBox("RechnungsdruckArt2: " & If(Rechnugnsdruck > 0, Rechnugnsdruck, If(AD.Rechnungsdruck, 0))) + Dim tmpPath = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(RG_Bezeichnung, ".pdf", , False) + Dim p As New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport + rpt.Run(True) + p.NeverEmbedFonts = "" + p.Export(rpt.Document, tmpPath) + + 'THEREFORE IMPORT: + '------------------------------------------------------------------------------- + Try + If Not SRDruckWiederholen And Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then + Select Case ROW("Firma_ID") + Case 1, 11 + VERAG_PROG_ALLGEMEIN.cTherefore.saveFileTo_ImportFolder(tmpPath, "SA " & RechnungsNr & " " & ROW("RechnungsName 1"), "") + End Select + End If + Catch ex As Exception + MsgBox("Therefore-Import fehlgeschlagen!" & ex.Message & ex.StackTrace) + End Try + '------------------------------------------------------------------------------- + Select Case If(Rechnugnsdruck > 0, Rechnugnsdruck, If(AD.Rechnungsdruck, 0))'If(AD.Rechnungsdruck, 0) Case 0, 1 'DRUCKEN Return cProgramFunctions.printRpt(rpt, PrinterName) - 'Case 1 'FAX + 'Case 1 'FAX Case 2 'MAIL - Dim tmpPath = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(RG_Bezeichnung, ".pdf", , False) - Dim p As New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport - rpt.Run(True) - p.NeverEmbedFonts = "" - p.Export(rpt.Document, tmpPath) + 'Dim tmpPath = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(RG_Bezeichnung, ".pdf", , False) + 'Dim p As New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport + 'rpt.Run(True) + 'p.NeverEmbedFonts = "" + 'p.Export(rpt.Document, tmpPath) + 'rpt.Dispose() Path = tmpPath - rpt.Dispose() Try Dim outl As New Outlook.Application @@ -1588,29 +1804,32 @@ Public Class cFakturierung MsgBox("Fehler bim Öffnen des Mail-Programmes. PDF wird geladen!") Process.Start(tmpPath) End Try + rpt.Dispose() Return True Case 3 'PDF + öffnen - Dim tmpPath = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(RG_Bezeichnung, ".pdf", , False) - Dim p As New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport - rpt.Run(True) - p.NeverEmbedFonts = "" - p.Export(rpt.Document, tmpPath) + 'Dim tmpPath = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(RG_Bezeichnung, ".pdf", , False) + 'Dim p As New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport + 'rpt.Run(True) + 'p.NeverEmbedFonts = "" + 'p.Export(rpt.Document, tmpPath) - rpt.Dispose() + 'rpt.Dispose() Path = tmpPath Process.Start(tmpPath) + rpt.Dispose() Return True Case 4 'PDF - Dim tmpPath = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(RG_Bezeichnung, ".pdf", , False) - Dim p As New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport - rpt.Run(True) - p.NeverEmbedFonts = "" - p.Export(rpt.Document, tmpPath) + 'Dim tmpPath = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(RG_Bezeichnung, ".pdf", , False) + 'Dim p As New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport + 'rpt.Run(True) + 'p.NeverEmbedFonts = "" + 'p.Export(rpt.Document, tmpPath) - rpt.Dispose() + 'rpt.Dispose() Path = tmpPath + rpt.Dispose() Return True End Select diff --git a/SDL/Fakturierung/frmAbrechnungsMaske.Designer.vb b/SDL/Fakturierung/frmAbrechnungsMaske.Designer.vb index 9717aa15..c8990613 100644 --- a/SDL/Fakturierung/frmAbrechnungsMaske.Designer.vb +++ b/SDL/Fakturierung/frmAbrechnungsMaske.Designer.vb @@ -835,7 +835,7 @@ Partial Class frmAbrechnungsMaske Me.KeyPreview = True Me.Name = "frmAbrechnungsMaske" Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen - Me.Text = "Rechnugnserfassung" + Me.Text = "Rechnungserfassung" Me.pnl.ResumeLayout(False) Me.SplitContainer.Panel1.ResumeLayout(False) Me.SplitContainer.Panel2.ResumeLayout(False) diff --git a/SDL/Fakturierung/frmFaktAufschubSuche.vb b/SDL/Fakturierung/frmFaktAufschubSuche.vb index f5ff05d5..fee1f5dd 100644 --- a/SDL/Fakturierung/frmFaktAufschubSuche.vb +++ b/SDL/Fakturierung/frmFaktAufschubSuche.vb @@ -34,7 +34,7 @@ cboKonto.Items.Clear() cboKonto.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("alle", "'002719','002718'")) cboKonto.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EUST (002719)", "'002719'")) - cboKonto.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ZOLL (002719)", "'002718'")) + cboKonto.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ZOLL (002718)", "'002718'")) cboKonto.SelectedIndex = 0 Case Else cboKonto.Items.Clear() @@ -271,9 +271,14 @@ e.Handled = True End If If e.KeyCode = Keys.Return Then - If MyDatagridview1.SelectedRows.Count <> 1 Then Exit Sub - gridAviso_DoubleClick(MyDatagridview1, New EventArgs) - e.Handled = True + If e.Modifiers = Keys.Control Then + Button2.PerformClick() + e.Handled = True + Else + If MyDatagridview1.SelectedRows.Count <> 1 Then Exit Sub + gridAviso_DoubleClick(MyDatagridview1, New EventArgs) + e.Handled = True + End If End If End Sub diff --git a/SDL/Fakturierung/frmFaktEmail.Designer.vb b/SDL/Fakturierung/frmFaktEmail.Designer.vb index a2ba2936..880baaf3 100644 --- a/SDL/Fakturierung/frmFaktEmail.Designer.vb +++ b/SDL/Fakturierung/frmFaktEmail.Designer.vb @@ -62,6 +62,9 @@ Partial Class frmFaktEmail Me.txtSteuerberaterEmail = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtFAEmail = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Button4 = New System.Windows.Forms.Button() + Me.cboFaStb_Sprache = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.Label6 = New System.Windows.Forms.Label() + Me.cbxMergeRg = New System.Windows.Forms.CheckBox() CType(Me.dgvEmailBCC, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.dgvEmailCC, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.dgvEmail, System.ComponentModel.ISupportInitialize).BeginInit() @@ -284,7 +287,7 @@ Partial Class frmFaktEmail 'cbxOriginalPrint ' Me.cbxOriginalPrint.AutoSize = True - Me.cbxOriginalPrint.Location = New System.Drawing.Point(610, 449) + Me.cbxOriginalPrint.Location = New System.Drawing.Point(610, 369) Me.cbxOriginalPrint.Name = "cbxOriginalPrint" Me.cbxOriginalPrint.Size = New System.Drawing.Size(134, 17) Me.cbxOriginalPrint.TabIndex = 18 @@ -361,11 +364,11 @@ Partial Class frmFaktEmail 'cbxMergePDF ' Me.cbxMergePDF.AutoSize = True - Me.cbxMergePDF.Location = New System.Drawing.Point(610, 369) + Me.cbxMergePDF.Location = New System.Drawing.Point(610, 485) Me.cbxMergePDF.Name = "cbxMergePDF" - Me.cbxMergePDF.Size = New System.Drawing.Size(135, 17) + Me.cbxMergePDF.Size = New System.Drawing.Size(106, 30) Me.cbxMergePDF.TabIndex = 20 - Me.cbxMergePDF.Text = "PDFs zusammenführen" + Me.cbxMergePDF.Text = "alle PDFs " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "zusammenführen" Me.cbxMergePDF.UseVisualStyleBackColor = True ' 'Label4 @@ -466,12 +469,47 @@ Partial Class frmFaktEmail Me.Button4.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.Button4.UseVisualStyleBackColor = True ' + 'cboFaStb_Sprache + ' + Me.cboFaStb_Sprache._allowedValuesFreiText = Nothing + Me.cboFaStb_Sprache._allowFreiText = False + Me.cboFaStb_Sprache._value = "" + Me.cboFaStb_Sprache.FormattingEnabled = True + Me.cboFaStb_Sprache.Location = New System.Drawing.Point(12, 812) + Me.cboFaStb_Sprache.Name = "cboFaStb_Sprache" + Me.cboFaStb_Sprache.Size = New System.Drawing.Size(53, 21) + Me.cboFaStb_Sprache.TabIndex = 28 + ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.Location = New System.Drawing.Point(11, 796) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(50, 13) + Me.Label6.TabIndex = 29 + Me.Label6.Text = "Sprache:" + ' + 'cbxMergeRg + ' + Me.cbxMergeRg.AutoSize = True + Me.cbxMergeRg.Checked = True + Me.cbxMergeRg.CheckState = System.Windows.Forms.CheckState.Checked + Me.cbxMergeRg.Location = New System.Drawing.Point(610, 449) + Me.cbxMergeRg.Name = "cbxMergeRg" + Me.cbxMergeRg.Size = New System.Drawing.Size(106, 30) + Me.cbxMergeRg.TabIndex = 30 + Me.cbxMergeRg.Text = "Rechnungen" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "zusammenführen" + Me.cbxMergeRg.UseVisualStyleBackColor = True + ' 'frmFaktEmail ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.BackColor = System.Drawing.Color.WhiteSmoke - Me.ClientSize = New System.Drawing.Size(753, 850) + Me.ClientSize = New System.Drawing.Size(750, 850) + Me.Controls.Add(Me.cbxMergeRg) + Me.Controls.Add(Me.Label6) + Me.Controls.Add(Me.cboFaStb_Sprache) Me.Controls.Add(Me.Button4) Me.Controls.Add(Me.txtFAEmail) Me.Controls.Add(Me.txtSteuerberaterEmail) @@ -551,4 +589,7 @@ Partial Class frmFaktEmail Friend WithEvents txtSteuerberaterEmail As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents txtFAEmail As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents Button4 As Button + Friend WithEvents cboFaStb_Sprache As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents Label6 As Label + Friend WithEvents cbxMergeRg As CheckBox End Class diff --git a/SDL/Fakturierung/frmFaktEmail.vb b/SDL/Fakturierung/frmFaktEmail.vb index 2950c571..a3a908d0 100644 --- a/SDL/Fakturierung/frmFaktEmail.vb +++ b/SDL/Fakturierung/frmFaktEmail.vb @@ -23,6 +23,7 @@ Public Class frmFaktEmail Dim Sammelbericht As Boolean Dim RechnungsNr As Integer Dim DruckDatumZeit As DateTime + Dim AvisoIds As List(Of Integer) Dim SR = False Sub New(RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, printOriginalRg As Object) @@ -40,13 +41,13 @@ Public Class frmFaktEmail End Sub - Sub New(Firma_ID As Integer, SammelrechungArt As Integer, DatumBis As Date, Rechnungsdatum As Date, PrinterName As String, Optional EinzelAnlagen As Boolean = True, Optional Sammelbericht As Boolean = True, Optional KdNr As Integer = -1, Optional RechnungsdruckArt As Integer = -1, Optional ByRef listPDFs As List(Of String) = Nothing, Optional SB As String = "", ByRef Optional lastAktuelle_RgNr As Integer = -1) + Sub New(Firma_ID As Integer, SammelrechungArt As Integer, DatumBis As Date, Rechnungsdatum As Date, PrinterName As String, Optional EinzelAnlagen As Boolean = True, Optional Sammelbericht As Boolean = True, Optional KdNr As Integer = -1, Optional RechnungsdruckArt As Integer = -1, Optional ByRef listPDFs As List(Of String) = Nothing, Optional SB As String = "", ByRef Optional lastAktuelle_RgNr As Integer = -1, Optional AvisoIds As List(Of Integer) = Nothing) '(Firma_ID As Integer, SammelrechungArt As Integer, KdNr As Integer, DatumBis As Date, SB As String, EinzelAnlagen As Boolean, Sammelbericht As Boolean) 'Sammelrechnung ' Dieser Aufruf ist für den Designer erforderlich. InitializeComponent() - Me.SR_DT = cFakturierung.GET_SR_SQLDT(Firma_ID, SammelrechungArt, DatumBis, KdNr, SB) 'SQL.loadDgvBySql(sqlStr, "FMZOLL") + Me.SR_DT = cFakturierung.GET_SR_SQLDT(Firma_ID, SammelrechungArt, DatumBis, KdNr, SB, AvisoIds) 'SQL.loadDgvBySql(sqlStr, "FMZOLL") Me.Firma_ID = Firma_ID Me.SammelrechungArt = SammelrechungArt Me.DatumBis = DatumBis @@ -56,6 +57,7 @@ Public Class frmFaktEmail Me.KdNr = KdNr Me.Rechnungsdatum = Rechnungsdatum Me.RechnungsNr = lastAktuelle_RgNr + Me.AvisoIds = AvisoIds SR = True End Sub @@ -78,11 +80,14 @@ Public Class frmFaktEmail ' TextHTML &= "


Best regards

" & cFakturierung.getSignature(RECHNUNG) 'End Select + cboFaStb_Sprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE", "DE")) + cboFaStb_Sprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EN", "EN")) + cboFaStb_Sprache.changeItem("DE") + Dim AD As VERAG_PROG_ALLGEMEIN.cAdressen Dim FISKAL As cFiskal_Daten = Nothing - If SR Then AD = New VERAG_PROG_ALLGEMEIN.cAdressen(KdNr) FISKAL = New cFiskal_Daten(KdNr) @@ -194,7 +199,7 @@ Public Class frmFaktEmail '----------------------------------------------------------------- Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(KdNr) If RechnungsNr <= 0 Then - cFakturierung.doSAMMELRechnungsDruck(Firma_ID, SammelrechungArt, DatumBis, Rechnungsdatum, "", EinzelAnlagen, Sammelbericht, KdNr, 4, listPDFs, SB, lastAktuelle_RgNr, DruckDatumZeit) + cFakturierung.doSAMMELRechnungsDruck(Firma_ID, SammelrechungArt, DatumBis, Rechnungsdatum, "", EinzelAnlagen, Sammelbericht, KdNr, 4, listPDFs, SB, lastAktuelle_RgNr, DruckDatumZeit, AvisoIds) RechnungsNr = lastAktuelle_RgNr Else Dim path = "" @@ -243,7 +248,7 @@ Public Class frmFaktEmail ' Mail.Attachments.Add(l, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue) ATTACHMENTS.Add(New cFakt_MailATTach(l, "")) Next - addAttachments(Mail, lastAktuelle_RgNr, True) + addAttachments(Mail, lastAktuelle_RgNr, cbxMergeRg.Checked) '----------------------------------------------------------------- 'Steuerbescheid/VDB anfügen @@ -359,28 +364,52 @@ Public Class frmFaktEmail Mail_StbFA = outl.CreateItem(0) Mail_StbFA.Subject = txtSubject.Text - Dim TextHTML = "
" - TextHTML &= "" - TextHTML &= "" - TextHTML &= "" - TextHTML &= "" - TextHTML &= "" - TextHTML &= "" - TextHTML &= "
EORI-Nr.:" & If(KD.EORITIN, "") & "
UID-Nr.:" & If(AD.UstIdKz, "") & If(AD.UstIdNr, "") & "
Firma:" & If(AD.Name_1, "") & If(AD.Name_2, "") & "
" & If(AD.Straße, "") & "
" & If(AD.LandKz, "") & " " & If(AD.PLZ, "") & " " & If(AD.Ort, "") & "
" - TextHTML &= "
" - TextHTML &= "
" - TextHTML &= "Sehr geehrte Damen & Herren!" & "
" - TextHTML &= "
" - TextHTML &= "Wir teilen Ihnen mit, dass wir für oben genanntes Unternehmen eine Zollabfertigung mit anschließender" & "
" - TextHTML &= "innergemeinschaftlicher Lieferung (Verfahren 4200) lt. beiliegenden Unterlagen durchgeführt haben." & "
" - TextHTML &= "
" - TextHTML &= "Dies muss dem Finanzamt als ""innergemeinschaftlicher Erwerb"" gemeldet werden." & "
" - TextHTML &= "

" - TextHTML &= "Freundliche Grüße" - TextHTML &= "

" + Select Case cboFaStb_Sprache._value + Case "DE" + TextHTML &= "" + TextHTML &= "" + TextHTML &= "" + TextHTML &= "" + TextHTML &= "" + TextHTML &= "" + TextHTML &= "
EORI-Nr.:" & If(KD.EORITIN, "") & "
UID-Nr.:" & If(AD.UstIdKz, "") & If(AD.UstIdNr, "") & "
Firma:" & If(AD.Name_1, "") & If(AD.Name_2, "") & "
" & If(AD.Straße, "") & "
" & If(AD.LandKz, "") & " " & If(AD.PLZ, "") & " " & If(AD.Ort, "") & "
" + TextHTML &= "
" + TextHTML &= "
" + TextHTML &= "Sehr geehrte Damen & Herren!" & "
" + TextHTML &= "
" + TextHTML &= "Wir teilen Ihnen mit, dass wir für oben genanntes Unternehmen eine Zollabfertigung mit anschließender" & "
" + TextHTML &= "innergemeinschaftlicher Lieferung (Verfahren 4200) lt. beiliegenden Unterlagen durchgeführt haben." & "
" + TextHTML &= "
" + TextHTML &= "Dies muss dem Finanzamt als ""innergemeinschaftlicher Erwerb"" gemeldet werden." & "
" + TextHTML &= "

" + TextHTML &= "Freundliche Grüße" + TextHTML &= "

" + + Case "EN" + + TextHTML &= "" + TextHTML &= "" + TextHTML &= "" + TextHTML &= "" + TextHTML &= "" + TextHTML &= "" + TextHTML &= "
EORI-Nr.:" & If(KD.EORITIN, "") & "
VAT-ID.:" & If(AD.UstIdKz, "") & If(AD.UstIdNr, "") & "
Company:" & If(AD.Name_1, "") & If(AD.Name_2, "") & "
" & If(AD.Straße, "") & "
" & If(AD.LandKz, "") & " " & If(AD.PLZ, "") & " " & If(AD.Ort, "") & "
" + TextHTML &= "
" + TextHTML &= "
" + TextHTML &= "Dear Sir or Madam!" & "
" + TextHTML &= "
" + TextHTML &= "We would like to inform you, that we made the customs clearance and subsequent intra-community supply of goods for the company above-mentioned (Code 4200).
" + TextHTML &= "The documents are attached." & "
" + TextHTML &= "
" + TextHTML &= "This intra-community acquisition has to be reported to the tax office." & "
" + TextHTML &= "

" + TextHTML &= "Yours faithfully," + TextHTML &= "

" + + End Select TextHTML &= cFakturierung.getSignature(AD.LandKz, Firma_ID) TextHTML &= "
" @@ -465,14 +494,17 @@ Public Class frmFaktEmail Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click setMailText("DE") + cboFaStb_Sprache.changeItem("DE") End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click setMailText("TR") + cboFaStb_Sprache.changeItem("EN") End Sub Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click setMailText("EN") + cboFaStb_Sprache.changeItem("EN") End Sub Private Sub lkl_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lkl.LinkClicked diff --git a/SDL/Fakturierung/frmFaktSammelRgDrucken.vb b/SDL/Fakturierung/frmFaktSammelRgDrucken.vb index 0906f3df..093fec23 100644 --- a/SDL/Fakturierung/frmFaktSammelRgDrucken.vb +++ b/SDL/Fakturierung/frmFaktSammelRgDrucken.vb @@ -129,6 +129,14 @@ Public Class frmFaktSammelRgDrucken Function getSelectionKdNr_Simple() As String If MyDatagridview1.Rows.Count = 1 Then Return MyDatagridview1.Rows(0).Cells("RechnungsKundenNr").Value If MyDatagridview1.SelectedRows.Count = 1 Then Return MyDatagridview1.SelectedRows(0).Cells("RechnungsKundenNr").Value + + If MyDatagridview1.Rows.Count > 0 Then ' Wenn alle gliech sind, dann wir die KdNr zurückgegben + Dim kdTmp = MyDatagridview1.Rows(0).Cells("RechnungsKundenNr").Value + For Each r As DataGridViewRow In MyDatagridview1.SelectedRows + If r.Cells("RechnungsKundenNr").Value <> kdTmp Then Return "" + Next + Return kdTmp + End If Return "" End Function @@ -177,7 +185,7 @@ Public Class frmFaktSammelRgDrucken If Not IsNumeric(getSelectionKdNr_Simple) Then MsgBox("Es muss eine eindeutige KundenNr ausgewählt werden!") : Exit Sub - Dim f As New frmFaktEmail(cboFirma._value, Sammelrechung, CDate(txtZeitraumBis.Text), CDate(txtRechnungsdatum.Text), cboPrinter.Text, cbxEinzelAnlagen.Checked, cbxSammelbericht.Checked, getSelectionKdNr_Simple, -1, Nothing, cboSB._value) + Dim f As New frmFaktEmail(cboFirma._value, Sammelrechung, CDate(txtZeitraumBis.Text), CDate(txtRechnungsdatum.Text), cboPrinter.Text, cbxEinzelAnlagen.Checked, cbxSammelbericht.Checked, getSelectionKdNr_Simple, -1, Nothing, cboSB._value,, getAvisoIds) f.ShowDialog(Me) initDGV() 'Else @@ -185,6 +193,17 @@ Public Class frmFaktSammelRgDrucken 'End If End Sub + Function getAvisoIds() As List(Of Integer) + If Sammelrechung <> 7 Then Return Nothing + Dim AvisoIds As New List(Of Integer) + If MyDatagridview1.SelectedRows.Count > 0 Then + For Each r In MyDatagridview1.SelectedRows + AvisoIds.Add(r.cells("AvisoId").value) + Next + End If + Return AvisoIds + End Function + Sub doSammelrechnung(ausgabeArt As Integer) Try If cboFirma._value = "" Then MsgBox("Bitte Firma angeben!") : Exit Sub @@ -194,7 +213,7 @@ Public Class frmFaktSammelRgDrucken Me.Enabled = False Me.Cursor = Cursors.WaitCursor Dim listPDFs As New List(Of String) - cFakturierung.doSAMMELRechnungsDruck(cboFirma._value, Sammelrechung, CDate(txtZeitraumBis.Text), CDate(txtRechnungsdatum.Text), cboPrinter.Text, cbxEinzelAnlagen.Checked, cbxSammelbericht.Checked, getSelectionKdNr, If(ausgabeArt = 1, -1, 4), listPDFs, cboSB._value) + cFakturierung.doSAMMELRechnungsDruck(cboFirma._value, Sammelrechung, CDate(txtZeitraumBis.Text), CDate(txtRechnungsdatum.Text), cboPrinter.Text, cbxEinzelAnlagen.Checked, cbxSammelbericht.Checked, getSelectionKdNr, If(ausgabeArt = 1, -1, 4), listPDFs, cboSB._value,,, getAvisoIds) '-------------- für PDF-Sammel-Rechnung -------------- diff --git a/SDL/Fakturierung/frmRechnungenSuche.Designer.vb b/SDL/Fakturierung/frmRechnungenSuche.Designer.vb index 93f68edd..17164609 100644 --- a/SDL/Fakturierung/frmRechnungenSuche.Designer.vb +++ b/SDL/Fakturierung/frmRechnungenSuche.Designer.vb @@ -1505,7 +1505,7 @@ Partial Class frmRechnungenSuche Me.lblErgebnis.Name = "lblErgebnis" Me.lblErgebnis.Size = New System.Drawing.Size(215, 14) Me.lblErgebnis.TabIndex = 2 - Me.lblErgebnis.Text = "Ergebnise: 0" + Me.lblErgebnis.Text = "Ergebnisse: 0" Me.lblErgebnis.TextAlign = System.Drawing.ContentAlignment.TopRight ' 'Label22 diff --git a/SDL/Fakturierung/frmRechnungenSuche.vb b/SDL/Fakturierung/frmRechnungenSuche.vb index 1abd9b63..662cde47 100644 --- a/SDL/Fakturierung/frmRechnungenSuche.vb +++ b/SDL/Fakturierung/frmRechnungenSuche.vb @@ -79,7 +79,7 @@ Public Class frmRechnungenSuche .Columns("Sachbearbeiter").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill - lblErgebnis.Text = "Ergebnise: " & .RowCount + lblErgebnis.Text = "Ergebnisse: " & .RowCount End With Me.Cursor = Cursors.Default diff --git a/SDL/Fakturierung/usrCntlFaktAbrechnung.Designer.vb b/SDL/Fakturierung/usrCntlFaktAbrechnung.Designer.vb index 76de2d6c..dd6b30ed 100644 --- a/SDL/Fakturierung/usrCntlFaktAbrechnung.Designer.vb +++ b/SDL/Fakturierung/usrCntlFaktAbrechnung.Designer.vb @@ -22,21 +22,20 @@ Partial Class usrCntlFaktAbrechnung 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. Private Sub InitializeComponent() - Me.components = New System.ComponentModel.Container() - 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 DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle11 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 DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrCntlFaktAbrechnung)) + 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 DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Me.Label9 = New System.Windows.Forms.Label() Me.Label4 = New System.Windows.Forms.Label() Me.pnlTop = New System.Windows.Forms.Panel() + Me.Button13 = New System.Windows.Forms.Button() Me.Button10 = New System.Windows.Forms.Button() Me.lblDruckaufheben = New System.Windows.Forms.LinkLabel() - Me.cboRgGS = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Panel3 = New System.Windows.Forms.Panel() Me.lblSendungen = New System.Windows.Forms.Label() Me.Label44 = New System.Windows.Forms.Label() @@ -45,19 +44,15 @@ Partial Class usrCntlFaktAbrechnung Me.btnNeueUnterNR = New System.Windows.Forms.Button() Me.Label45 = New System.Windows.Forms.Label() Me.Label42 = New System.Windows.Forms.Label() - Me.Button1 = New System.Windows.Forms.Button() - Me.cboSpedBuchUnterNr = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.btnDatenLaden = New System.Windows.Forms.Button() Me.lblErrFiliale = New System.Windows.Forms.Label() Me.lblErrUnterNr = New System.Windows.Forms.Label() Me.lblAbfNrExists = New System.Windows.Forms.Label() Me.lblAbfNr_Err = New System.Windows.Forms.Label() Me.Label8 = New System.Windows.Forms.Label() Me.Label41 = New System.Windows.Forms.Label() - Me.txtUnterNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label11 = New System.Windows.Forms.Label() Me.Label12 = New System.Windows.Forms.Label() - Me.cboFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtAbfertigungsnummer = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label39 = New System.Windows.Forms.Label() Me.Label38 = New System.Windows.Forms.Label() Me.lblSB = New System.Windows.Forms.Label() @@ -66,61 +61,31 @@ Partial Class usrCntlFaktAbrechnung Me.lblRechnungsNummer = New System.Windows.Forms.Label() Me.Panel1 = New System.Windows.Forms.Panel() Me.Panel2 = New System.Windows.Forms.Panel() - Me.txtPositionAnzahl = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label49 = New System.Windows.Forms.Label() - Me.txtAbfertigungsanzahl = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label48 = New System.Windows.Forms.Label() - Me.txtAbfertigungsart = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label47 = New System.Windows.Forms.Label() Me.pnlAvisierer = New System.Windows.Forms.Panel() Me.Label27 = New System.Windows.Forms.Label() Me.btnAvisiererEuro = New System.Windows.Forms.Button() Me.Label2 = New System.Windows.Forms.Label() - Me.txtkdNrAvisierer = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label21 = New System.Windows.Forms.Label() - Me.txtAvisoId = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.kdFirmaAvisierer = New VERAG_PROG_ALLGEMEIN.KdSearchBox() - Me.FlatButton5 = New VERAG_PROG_ALLGEMEIN.FlatButton() - Me.cboAnlage5 = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.cboAnlage1 = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtWarenwertUmrechnung = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label13 = New System.Windows.Forms.Label() - Me.cboAnlage2 = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Label34 = New System.Windows.Forms.Label() - Me.cboAnlage3 = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtVermerk = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.cboAnlage6 = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Label25 = New System.Windows.Forms.Label() - Me.cboAnlage4 = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtErfassungsnummer = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label24 = New System.Windows.Forms.Label() Me.Label22 = New System.Windows.Forms.Label() - Me.cboRechnungNotiz = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.pic = New System.Windows.Forms.PictureBox() - Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.lblFirma3 = New System.Windows.Forms.Label() Me.lblFirma2 = New System.Windows.Forms.Label() Me.lblFirma1 = New System.Windows.Forms.Label() Me.Label32 = New System.Windows.Forms.Label() Me.pnlAuftraggeber = New System.Windows.Forms.Panel() Me.btnAuftraggeberEuro = New System.Windows.Forms.Button() - Me.txtkdNrAuftraggeber = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.kdFirmaAuftraggeber = New VERAG_PROG_ALLGEMEIN.KdSearchBox() - Me.txtAuftraggeberName2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label15 = New System.Windows.Forms.Label() - Me.txtAuftragggeberOrt = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtAuftragggeberStrasse = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.FlatButton4 = New VERAG_PROG_ALLGEMEIN.FlatButton() - Me.txtText = New VERAG_PROG_ALLGEMEIN.MyRichTextBox() - Me.txtBefoerderungsmittel = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtGrenze = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label20 = New System.Windows.Forms.Label() Me.Label19 = New System.Windows.Forms.Label() - Me.txtSendungsdaten = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label17 = New System.Windows.Forms.Label() - Me.txtWarenwert = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label16 = New System.Windows.Forms.Label() - Me.txtZollbelegNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label10 = New System.Windows.Forms.Label() Me.pnlRechnungAn = New System.Windows.Forms.Panel() Me.lblKdInaktiv = New System.Windows.Forms.Label() @@ -128,70 +93,33 @@ Partial Class usrCntlFaktAbrechnung Me.lblUIDOK = New System.Windows.Forms.Label() Me.lblUIDErr = New System.Windows.Forms.Label() Me.Button6 = New System.Windows.Forms.Button() - Me.cboSammelrechnung = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtRechnungAnName2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.kdFirmaRechnungAn = New VERAG_PROG_ALLGEMEIN.KdSearchBox() - Me.FlatButton3 = New VERAG_PROG_ALLGEMEIN.FlatButton() - Me.txtKdAuftragsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label43 = New System.Windows.Forms.Label() - Me.txtRechnungAnUIDKz = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.lblVorauskasse = New System.Windows.Forms.Label() Me.Label1 = New System.Windows.Forms.Label() - Me.cboRechnungAn = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtRechnungAnUIDNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label6 = New System.Windows.Forms.Label() - Me.txtRechnungAnBuKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label3 = New System.Windows.Forms.Label() - Me.txtkdNrRechnungAn = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtRechnungAnOrt = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtRechnungAnStrasse = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label7 = New System.Windows.Forms.Label() Me.pnlAbsender = New System.Windows.Forms.Panel() Me.btnAbsenderEuro = New System.Windows.Forms.Button() - Me.txtkdNrAbsender = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.kdFirmaAbsender = New VERAG_PROG_ALLGEMEIN.KdSearchBox() - Me.txtAbsenderName2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtAbsenderOrt = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtAbsenderStrasse = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.FlatButton1 = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.Panel7 = New System.Windows.Forms.Panel() + Me.Button1 = New System.Windows.Forms.Button() Me.Button12 = New System.Windows.Forms.Button() Me.Label14 = New System.Windows.Forms.Label() - Me.sbLeistung = New VERAG_PROG_ALLGEMEIN.MySearchBox() Me.Button7 = New System.Windows.Forms.Button() Me.btnVorauskasseAnzeigen = New System.Windows.Forms.Button() Me.Button5 = New System.Windows.Forms.Button() Me.btn = New System.Windows.Forms.Button() - Me.txtUnterNrRef = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.cboFilialeRef = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtAbfertigungsnummerRef = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label26 = New System.Windows.Forms.Label() Me.Label31 = New System.Windows.Forms.Label() Me.Label29 = New System.Windows.Forms.Label() Me.Label30 = New System.Windows.Forms.Label() - Me.dgvRechnungenPositionen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) - Me.Leistung = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.Anzahl = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.Preis = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.SteuerpflichtigerBetrag = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.SteuerfreierBetrag = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.Aufschubkonto = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.dgvOffertenSperrliste = New System.Windows.Forms.DataGridView() - Me.dgvOfferteDetailsUebersicht = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) - Me.txtRohmasse = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label18 = New System.Windows.Forms.Label() - Me.cboWaehrung = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.cboWaehrungUmrechnung = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.pnlEmpfaenger = New System.Windows.Forms.Panel() Me.btnEmpfaengerEuro = New System.Windows.Forms.Button() - Me.txtkdNrEmpfaenger = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtEmpfeangerName2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label5 = New System.Windows.Forms.Label() - Me.txtEmpfaengerOrt = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtEmpfaengerStrasse = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.kdFirmaEmpfaenger = New VERAG_PROG_ALLGEMEIN.KdSearchBox() - Me.FlatButton2 = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.pnl = New System.Windows.Forms.Panel() + Me.cbxOriginalPrint = New System.Windows.Forms.CheckBox() Me.pnlDocs = New System.Windows.Forms.Panel() Me.Label51 = New System.Windows.Forms.Label() Me.PictureBox2 = New System.Windows.Forms.PictureBox() @@ -208,20 +136,93 @@ Partial Class usrCntlFaktAbrechnung Me.Button2 = New System.Windows.Forms.Button() Me.btnOK = New System.Windows.Forms.Button() Me.Label23 = New System.Windows.Forms.Label() - Me.txtSteuersatz = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.cboSteuerschlüssel = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtSteuerFreierBetrag = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label37 = New System.Windows.Forms.Label() Me.Label36 = New System.Windows.Forms.Label() - Me.txtGesamtsumme = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtSteuerBetrag = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtSteuerpflichtigerBetrag = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label33 = New System.Windows.Forms.Label() Me.Label35 = New System.Windows.Forms.Label() Me.Label28 = New System.Windows.Forms.Label() + Me.ToolTip = New System.Windows.Forms.ToolTip() + Me.txtPositionAnzahl = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtAbfertigungsanzahl = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtAbfertigungsart = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtkdNrAvisierer = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtAvisoId = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.kdFirmaAvisierer = New VERAG_PROG_ALLGEMEIN.KdSearchBox() + Me.FlatButton5 = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.cboAnlage5 = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboAnlage1 = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtWarenwertUmrechnung = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cboAnlage2 = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboAnlage3 = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtVermerk = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cboAnlage6 = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboAnlage4 = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtErfassungsnummer = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cboRechnungNotiz = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtkdNrAuftraggeber = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.kdFirmaAuftraggeber = New VERAG_PROG_ALLGEMEIN.KdSearchBox() + Me.txtAuftraggeberName2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtAuftragggeberOrt = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtAuftragggeberStrasse = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.FlatButton4 = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.txtText = New VERAG_PROG_ALLGEMEIN.MyRichTextBox() + Me.txtBefoerderungsmittel = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtGrenze = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtSendungsdaten = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtWarenwert = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtZollbelegNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cboSammelrechnung = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtRechnungAnName2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.kdFirmaRechnungAn = New VERAG_PROG_ALLGEMEIN.KdSearchBox() + Me.FlatButton3 = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.txtKdAuftragsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtRechnungAnUIDKz = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cboRechnungAn = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtRechnungAnUIDNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtRechnungAnBuKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtkdNrRechnungAn = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtRechnungAnOrt = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtRechnungAnStrasse = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtkdNrAbsender = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.kdFirmaAbsender = New VERAG_PROG_ALLGEMEIN.KdSearchBox() + Me.txtAbsenderName2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtAbsenderOrt = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtAbsenderStrasse = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.FlatButton1 = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.sbLeistung = New VERAG_PROG_ALLGEMEIN.MySearchBox() + Me.txtUnterNrRef = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cboFilialeRef = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtAbfertigungsnummerRef = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.dgvRechnungenPositionen = New VERAG_PROG_ALLGEMEIN.MyDatagridview() + Me.Leistung = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Anzahl = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Preis = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.SteuerpflichtigerBetrag = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.SteuerfreierBetrag = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Aufschubkonto = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.dgvOfferteDetailsUebersicht = New VERAG_PROG_ALLGEMEIN.MyDatagridview() + Me.txtRohmasse = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cboWaehrung = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboWaehrungUmrechnung = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtkdNrEmpfaenger = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtEmpfeangerName2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtEmpfaengerOrt = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtEmpfaengerStrasse = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.kdFirmaEmpfaenger = New VERAG_PROG_ALLGEMEIN.KdSearchBox() + Me.FlatButton2 = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.txtSteuersatz = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cboSteuerschlüssel = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtSteuerFreierBetrag = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtGesamtsumme = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtSteuerBetrag = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtSteuerpflichtigerBetrag = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtBesonderheiten = New VERAG_PROG_ALLGEMEIN.MyRichTextBox() - Me.ToolTip = New System.Windows.Forms.ToolTip(Me.components) - Me.cbxOriginalPrint = New System.Windows.Forms.CheckBox() + Me.cboRgGS = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboSpedBuchUnterNr = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtUnterNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cboFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtAbfertigungsnummer = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.pnlTop.SuspendLayout() Me.Panel3.SuspendLayout() Me.Panel1.SuspendLayout() @@ -233,14 +234,14 @@ Partial Class usrCntlFaktAbrechnung CType(Me.picWarnRgAn, System.ComponentModel.ISupportInitialize).BeginInit() Me.pnlAbsender.SuspendLayout() Me.Panel7.SuspendLayout() - CType(Me.dgvRechnungenPositionen, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.dgvOffertenSperrliste, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.dgvOfferteDetailsUebersicht, System.ComponentModel.ISupportInitialize).BeginInit() Me.pnlEmpfaenger.SuspendLayout() Me.pnl.SuspendLayout() Me.pnlDocs.SuspendLayout() CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.dgvRechnungenPositionen, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.dgvOfferteDetailsUebersicht, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'Label9 @@ -267,6 +268,7 @@ Partial Class usrCntlFaktAbrechnung ' Me.pnlTop.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) Me.pnlTop.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlTop.Controls.Add(Me.Button13) Me.pnlTop.Controls.Add(Me.Button10) Me.pnlTop.Controls.Add(Me.lblDruckaufheben) Me.pnlTop.Controls.Add(Me.cboRgGS) @@ -276,7 +278,7 @@ Partial Class usrCntlFaktAbrechnung Me.pnlTop.Controls.Add(Me.btnNeueUnterNR) Me.pnlTop.Controls.Add(Me.Label45) Me.pnlTop.Controls.Add(Me.Label42) - Me.pnlTop.Controls.Add(Me.Button1) + Me.pnlTop.Controls.Add(Me.btnDatenLaden) Me.pnlTop.Controls.Add(Me.cboSpedBuchUnterNr) Me.pnlTop.Controls.Add(Me.lblErrFiliale) Me.pnlTop.Controls.Add(Me.lblErrUnterNr) @@ -301,13 +303,24 @@ Partial Class usrCntlFaktAbrechnung Me.pnlTop.Size = New System.Drawing.Size(830, 83) Me.pnlTop.TabIndex = 0 ' + 'Button13 + ' + Me.Button13.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button13.ForeColor = System.Drawing.Color.White + Me.Button13.Location = New System.Drawing.Point(220, 8) + Me.Button13.Name = "Button13" + Me.Button13.Size = New System.Drawing.Size(104, 23) + Me.Button13.TabIndex = 28 + Me.Button13.Text = "+ SpedBuch" + Me.Button13.UseVisualStyleBackColor = True + ' 'Button10 ' Me.Button10.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button10.ForeColor = System.Drawing.Color.White - Me.Button10.Location = New System.Drawing.Point(262, 6) + Me.Button10.Location = New System.Drawing.Point(331, 8) Me.Button10.Name = "Button10" - Me.Button10.Size = New System.Drawing.Size(152, 23) + Me.Button10.Size = New System.Drawing.Size(141, 23) Me.Button10.TabIndex = 15 Me.Button10.Text = "SpedBuch anzeigen" Me.Button10.UseVisualStyleBackColor = True @@ -325,22 +338,6 @@ Partial Class usrCntlFaktAbrechnung Me.lblDruckaufheben.Text = "Druck aufheben" Me.lblDruckaufheben.Visible = False ' - 'cboRgGS - ' - Me.cboRgGS._allowedValuesFreiText = Nothing - Me.cboRgGS._allowFreiText = False - Me.cboRgGS._value = "" - Me.cboRgGS.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.cboRgGS.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.cboRgGS.Font = New System.Drawing.Font("Microsoft Sans Serif", 16.0!, System.Drawing.FontStyle.Bold) - Me.cboRgGS.ForeColor = System.Drawing.Color.White - Me.cboRgGS.FormattingEnabled = True - Me.cboRgGS.Items.AddRange(New Object() {"Rechnung", "Gutschrift"}) - Me.cboRgGS.Location = New System.Drawing.Point(3, -1) - Me.cboRgGS.Name = "cboRgGS" - Me.cboRgGS.Size = New System.Drawing.Size(253, 33) - Me.cboRgGS.TabIndex = 26 - ' 'Panel3 ' Me.Panel3.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) @@ -444,30 +441,17 @@ Partial Class usrCntlFaktAbrechnung Me.Label42.TabIndex = 19 Me.Label42.Text = "UnterNr Rg." ' - 'Button1 + 'btnDatenLaden ' - Me.Button1.BackColor = System.Drawing.Color.Transparent - Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button1.ForeColor = System.Drawing.Color.White - Me.Button1.Location = New System.Drawing.Point(331, 36) - Me.Button1.Name = "Button1" - Me.Button1.Size = New System.Drawing.Size(83, 34) - Me.Button1.TabIndex = 6 - Me.Button1.Text = "Daten laden" - Me.Button1.UseVisualStyleBackColor = False - ' - 'cboSpedBuchUnterNr - ' - Me.cboSpedBuchUnterNr._allowedValuesFreiText = Nothing - Me.cboSpedBuchUnterNr._allowFreiText = False - Me.cboSpedBuchUnterNr._value = "" - Me.cboSpedBuchUnterNr.DropDownWidth = 350 - Me.cboSpedBuchUnterNr.FormattingEnabled = True - Me.cboSpedBuchUnterNr.Location = New System.Drawing.Point(255, 48) - Me.cboSpedBuchUnterNr.Margin = New System.Windows.Forms.Padding(2) - Me.cboSpedBuchUnterNr.Name = "cboSpedBuchUnterNr" - Me.cboSpedBuchUnterNr.Size = New System.Drawing.Size(71, 21) - Me.cboSpedBuchUnterNr.TabIndex = 5 + Me.btnDatenLaden.BackColor = System.Drawing.Color.Transparent + Me.btnDatenLaden.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnDatenLaden.ForeColor = System.Drawing.Color.White + Me.btnDatenLaden.Location = New System.Drawing.Point(331, 36) + Me.btnDatenLaden.Name = "btnDatenLaden" + Me.btnDatenLaden.Size = New System.Drawing.Size(83, 34) + Me.btnDatenLaden.TabIndex = 6 + Me.btnDatenLaden.Text = "Daten laden" + Me.btnDatenLaden.UseVisualStyleBackColor = False ' 'lblErrFiliale ' @@ -538,28 +522,6 @@ Partial Class usrCntlFaktAbrechnung Me.Label41.Text = "Druck-Datum:" Me.Label41.TextAlign = System.Drawing.ContentAlignment.TopRight ' - 'txtUnterNr - ' - Me.txtUnterNr._DateTimeOnly = False - Me.txtUnterNr._numbersOnly = False - Me.txtUnterNr._numbersOnlyKommastellen = "" - Me.txtUnterNr._Prozent = False - Me.txtUnterNr._ShortDateNew = False - Me.txtUnterNr._ShortDateOnly = False - Me.txtUnterNr._TimeOnly = False - Me.txtUnterNr._value = Nothing - Me.txtUnterNr._Waehrung = False - Me.txtUnterNr._WaehrungZeichen = True - Me.txtUnterNr.Font = New System.Drawing.Font("Microsoft Tai Le", 8.0!) - Me.txtUnterNr.Location = New System.Drawing.Point(417, 48) - Me.txtUnterNr.MaxLineLength = -1 - Me.txtUnterNr.MaxLines_Warning = "" - Me.txtUnterNr.MaxLines_Warning_Label = Nothing - Me.txtUnterNr.Name = "txtUnterNr" - Me.txtUnterNr.ReadOnly = True - Me.txtUnterNr.Size = New System.Drawing.Size(55, 21) - Me.txtUnterNr.TabIndex = 7 - ' 'Label11 ' Me.Label11.AutoSize = True @@ -582,41 +544,6 @@ Partial Class usrCntlFaktAbrechnung Me.Label12.TabIndex = 2 Me.Label12.Text = "UnterNr" ' - 'cboFiliale - ' - Me.cboFiliale._allowedValuesFreiText = Nothing - Me.cboFiliale._allowFreiText = False - Me.cboFiliale._value = "" - Me.cboFiliale.DropDownWidth = 280 - Me.cboFiliale.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cboFiliale.FormattingEnabled = True - Me.cboFiliale.Location = New System.Drawing.Point(8, 48) - Me.cboFiliale.Name = "cboFiliale" - Me.cboFiliale.Size = New System.Drawing.Size(80, 21) - Me.cboFiliale.TabIndex = 3 - ' - 'txtAbfertigungsnummer - ' - Me.txtAbfertigungsnummer._DateTimeOnly = False - Me.txtAbfertigungsnummer._numbersOnly = True - Me.txtAbfertigungsnummer._numbersOnlyKommastellen = "" - Me.txtAbfertigungsnummer._Prozent = False - Me.txtAbfertigungsnummer._ShortDateNew = False - Me.txtAbfertigungsnummer._ShortDateOnly = False - Me.txtAbfertigungsnummer._TimeOnly = False - Me.txtAbfertigungsnummer._value = "" - Me.txtAbfertigungsnummer._Waehrung = False - Me.txtAbfertigungsnummer._WaehrungZeichen = True - Me.txtAbfertigungsnummer.Font = New System.Drawing.Font("Microsoft Tai Le", 8.0!) - Me.txtAbfertigungsnummer.Location = New System.Drawing.Point(87, 48) - Me.txtAbfertigungsnummer.MaxLength = 8 - Me.txtAbfertigungsnummer.MaxLineLength = -1 - Me.txtAbfertigungsnummer.MaxLines_Warning = "" - Me.txtAbfertigungsnummer.MaxLines_Warning_Label = Nothing - Me.txtAbfertigungsnummer.Name = "txtAbfertigungsnummer" - Me.txtAbfertigungsnummer.Size = New System.Drawing.Size(169, 21) - Me.txtAbfertigungsnummer.TabIndex = 4 - ' 'Label39 ' Me.Label39.ForeColor = System.Drawing.Color.White @@ -746,29 +673,6 @@ Partial Class usrCntlFaktAbrechnung Me.Panel2.Size = New System.Drawing.Size(411, 45) Me.Panel2.TabIndex = 41 ' - 'txtPositionAnzahl - ' - Me.txtPositionAnzahl._DateTimeOnly = False - Me.txtPositionAnzahl._numbersOnly = False - Me.txtPositionAnzahl._numbersOnlyKommastellen = "" - Me.txtPositionAnzahl._Prozent = False - Me.txtPositionAnzahl._ShortDateNew = False - Me.txtPositionAnzahl._ShortDateOnly = False - Me.txtPositionAnzahl._TimeOnly = False - Me.txtPositionAnzahl._value = Nothing - Me.txtPositionAnzahl._Waehrung = False - Me.txtPositionAnzahl._WaehrungZeichen = True - Me.txtPositionAnzahl.ForeColor = System.Drawing.Color.Black - Me.txtPositionAnzahl.Location = New System.Drawing.Point(358, 21) - Me.txtPositionAnzahl.MaxLength = 35 - Me.txtPositionAnzahl.MaxLineLength = -1 - Me.txtPositionAnzahl.MaxLines_Warning = "" - Me.txtPositionAnzahl.MaxLines_Warning_Label = Nothing - Me.txtPositionAnzahl.Name = "txtPositionAnzahl" - Me.txtPositionAnzahl.ReadOnly = True - Me.txtPositionAnzahl.Size = New System.Drawing.Size(43, 20) - Me.txtPositionAnzahl.TabIndex = 46 - ' 'Label49 ' Me.Label49.AutoSize = True @@ -779,29 +683,6 @@ Partial Class usrCntlFaktAbrechnung Me.Label49.Text = "Pos.Anz.:" Me.Label49.TextAlign = System.Drawing.ContentAlignment.TopRight ' - 'txtAbfertigungsanzahl - ' - Me.txtAbfertigungsanzahl._DateTimeOnly = False - Me.txtAbfertigungsanzahl._numbersOnly = False - Me.txtAbfertigungsanzahl._numbersOnlyKommastellen = "" - Me.txtAbfertigungsanzahl._Prozent = False - Me.txtAbfertigungsanzahl._ShortDateNew = False - Me.txtAbfertigungsanzahl._ShortDateOnly = False - Me.txtAbfertigungsanzahl._TimeOnly = False - Me.txtAbfertigungsanzahl._value = Nothing - Me.txtAbfertigungsanzahl._Waehrung = False - Me.txtAbfertigungsanzahl._WaehrungZeichen = True - Me.txtAbfertigungsanzahl.ForeColor = System.Drawing.Color.Black - Me.txtAbfertigungsanzahl.Location = New System.Drawing.Point(358, 3) - Me.txtAbfertigungsanzahl.MaxLength = 35 - Me.txtAbfertigungsanzahl.MaxLineLength = -1 - Me.txtAbfertigungsanzahl.MaxLines_Warning = "" - Me.txtAbfertigungsanzahl.MaxLines_Warning_Label = Nothing - Me.txtAbfertigungsanzahl.Name = "txtAbfertigungsanzahl" - Me.txtAbfertigungsanzahl.ReadOnly = True - Me.txtAbfertigungsanzahl.Size = New System.Drawing.Size(43, 20) - Me.txtAbfertigungsanzahl.TabIndex = 44 - ' 'Label48 ' Me.Label48.AutoSize = True @@ -812,29 +693,6 @@ Partial Class usrCntlFaktAbrechnung Me.Label48.Text = "Anzahl:" Me.Label48.TextAlign = System.Drawing.ContentAlignment.TopRight ' - 'txtAbfertigungsart - ' - Me.txtAbfertigungsart._DateTimeOnly = False - Me.txtAbfertigungsart._numbersOnly = False - Me.txtAbfertigungsart._numbersOnlyKommastellen = "" - Me.txtAbfertigungsart._Prozent = False - Me.txtAbfertigungsart._ShortDateNew = False - Me.txtAbfertigungsart._ShortDateOnly = False - Me.txtAbfertigungsart._TimeOnly = False - Me.txtAbfertigungsart._value = Nothing - Me.txtAbfertigungsart._Waehrung = False - Me.txtAbfertigungsart._WaehrungZeichen = True - Me.txtAbfertigungsart.ForeColor = System.Drawing.Color.Black - Me.txtAbfertigungsart.Location = New System.Drawing.Point(97, 3) - Me.txtAbfertigungsart.MaxLength = 35 - Me.txtAbfertigungsart.MaxLineLength = -1 - Me.txtAbfertigungsart.MaxLines_Warning = "" - Me.txtAbfertigungsart.MaxLines_Warning_Label = Nothing - Me.txtAbfertigungsart.Name = "txtAbfertigungsart" - Me.txtAbfertigungsart.ReadOnly = True - Me.txtAbfertigungsart.Size = New System.Drawing.Size(199, 20) - Me.txtAbfertigungsart.TabIndex = 42 - ' 'Label47 ' Me.Label47.AutoSize = True @@ -901,31 +759,6 @@ Partial Class usrCntlFaktAbrechnung Me.Label2.TabIndex = 5 Me.Label2.Text = "LKW-ID:" ' - 'txtkdNrAvisierer - ' - Me.txtkdNrAvisierer._DateTimeOnly = False - Me.txtkdNrAvisierer._numbersOnly = False - Me.txtkdNrAvisierer._numbersOnlyKommastellen = "" - Me.txtkdNrAvisierer._Prozent = False - Me.txtkdNrAvisierer._ShortDateNew = False - Me.txtkdNrAvisierer._ShortDateOnly = False - Me.txtkdNrAvisierer._TimeOnly = False - Me.txtkdNrAvisierer._value = Nothing - Me.txtkdNrAvisierer._Waehrung = False - Me.txtkdNrAvisierer._WaehrungZeichen = True - Me.txtkdNrAvisierer.BackColor = System.Drawing.Color.White - Me.txtkdNrAvisierer.ForeColor = System.Drawing.Color.Black - Me.txtkdNrAvisierer.Location = New System.Drawing.Point(8, 22) - Me.txtkdNrAvisierer.MaxLength = 35 - Me.txtkdNrAvisierer.MaxLineLength = -1 - Me.txtkdNrAvisierer.MaxLines_Warning = "" - Me.txtkdNrAvisierer.MaxLines_Warning_Label = Nothing - Me.txtkdNrAvisierer.Name = "txtkdNrAvisierer" - Me.txtkdNrAvisierer.ReadOnly = True - Me.txtkdNrAvisierer.Size = New System.Drawing.Size(94, 20) - Me.txtkdNrAvisierer.TabIndex = 1 - Me.txtkdNrAvisierer.TabStop = False - ' 'Label21 ' Me.Label21.AutoSize = True @@ -936,124 +769,6 @@ Partial Class usrCntlFaktAbrechnung Me.Label21.TabIndex = 0 Me.Label21.Text = "4. Avisierer:" ' - 'txtAvisoId - ' - Me.txtAvisoId._DateTimeOnly = False - Me.txtAvisoId._numbersOnly = False - Me.txtAvisoId._numbersOnlyKommastellen = "" - Me.txtAvisoId._Prozent = False - Me.txtAvisoId._ShortDateNew = False - Me.txtAvisoId._ShortDateOnly = False - Me.txtAvisoId._TimeOnly = False - Me.txtAvisoId._value = Nothing - Me.txtAvisoId._Waehrung = False - Me.txtAvisoId._WaehrungZeichen = True - Me.txtAvisoId.ForeColor = System.Drawing.Color.Black - Me.txtAvisoId.Location = New System.Drawing.Point(157, 61) - Me.txtAvisoId.MaxLength = 35 - Me.txtAvisoId.MaxLineLength = -1 - Me.txtAvisoId.MaxLines_Warning = "" - Me.txtAvisoId.MaxLines_Warning_Label = Nothing - Me.txtAvisoId.Name = "txtAvisoId" - Me.txtAvisoId.ReadOnly = True - Me.txtAvisoId.Size = New System.Drawing.Size(126, 20) - Me.txtAvisoId.TabIndex = 6 - Me.txtAvisoId.TabStop = False - Me.txtAvisoId.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' - 'kdFirmaAvisierer - ' - Me.kdFirmaAvisierer._AllowSetValue = True - Me.kdFirmaAvisierer._autoSizeGross = False - Me.kdFirmaAvisierer._display_Name1 = True - Me.kdFirmaAvisierer._displayAVISO_Email = False - Me.kdFirmaAvisierer._displayFullName = False - Me.kdFirmaAvisierer._displayWoelflKd = False - Me.kdFirmaAvisierer._hideIfListEmpty = True - Me.kdFirmaAvisierer._loadKdData = True - Me.kdFirmaAvisierer._ValueKdAndName = False - Me.kdFirmaAvisierer.BackColor = System.Drawing.Color.White - Me.kdFirmaAvisierer.dgvpos = "LEFT" - Me.kdFirmaAvisierer.KdName = Nothing - Me.kdFirmaAvisierer.KdNr = "-1" - Me.kdFirmaAvisierer.kdNrField = Nothing - Me.kdFirmaAvisierer.KdNrNullInt = Nothing - Me.kdFirmaAvisierer.Location = New System.Drawing.Point(101, 22) - Me.kdFirmaAvisierer.MaxLength = 35 - Me.kdFirmaAvisierer.Name = "kdFirmaAvisierer" - Me.kdFirmaAvisierer.nurAktive = True - Me.kdFirmaAvisierer.searchActive = True - Me.kdFirmaAvisierer.Size = New System.Drawing.Size(283, 20) - Me.kdFirmaAvisierer.TabIndex = 3 - Me.kdFirmaAvisierer.TabStop = False - Me.kdFirmaAvisierer.usrcntl = Nothing - ' - 'FlatButton5 - ' - Me.FlatButton5.allowBorder = False - Me.FlatButton5.FlatAppearance.BorderSize = 0 - Me.FlatButton5.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.FlatButton5.ForeColor = System.Drawing.Color.Black - Me.FlatButton5.Image = Global.SDL.My.Resources.Resources.personInaktiv - Me.FlatButton5.Location = New System.Drawing.Point(382, 17) - Me.FlatButton5.Name = "FlatButton5" - Me.FlatButton5.Size = New System.Drawing.Size(24, 25) - Me.FlatButton5.TabIndex = 2 - Me.FlatButton5.TabStop = False - Me.FlatButton5.UseVisualStyleBackColor = True - ' - 'cboAnlage5 - ' - Me.cboAnlage5._allowedValuesFreiText = Nothing - Me.cboAnlage5._allowFreiText = True - Me.cboAnlage5._value = "" - Me.cboAnlage5.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend - Me.cboAnlage5.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems - Me.cboAnlage5.FormattingEnabled = True - Me.cboAnlage5.Location = New System.Drawing.Point(423, 974) - Me.cboAnlage5.MaxLength = 35 - Me.cboAnlage5.Name = "cboAnlage5" - Me.cboAnlage5.Size = New System.Drawing.Size(398, 21) - Me.cboAnlage5.TabIndex = 32 - ' - 'cboAnlage1 - ' - Me.cboAnlage1._allowedValuesFreiText = Nothing - Me.cboAnlage1._allowFreiText = True - Me.cboAnlage1._value = "" - Me.cboAnlage1.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend - Me.cboAnlage1.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems - Me.cboAnlage1.FormattingEnabled = True - Me.cboAnlage1.Location = New System.Drawing.Point(10, 954) - Me.cboAnlage1.MaxLength = 35 - Me.cboAnlage1.Name = "cboAnlage1" - Me.cboAnlage1.Size = New System.Drawing.Size(397, 21) - Me.cboAnlage1.TabIndex = 28 - ' - 'txtWarenwertUmrechnung - ' - Me.txtWarenwertUmrechnung._DateTimeOnly = False - Me.txtWarenwertUmrechnung._numbersOnly = False - Me.txtWarenwertUmrechnung._numbersOnlyKommastellen = "" - Me.txtWarenwertUmrechnung._Prozent = False - Me.txtWarenwertUmrechnung._ShortDateNew = False - Me.txtWarenwertUmrechnung._ShortDateOnly = False - Me.txtWarenwertUmrechnung._TimeOnly = False - Me.txtWarenwertUmrechnung._value = "" - Me.txtWarenwertUmrechnung._Waehrung = True - Me.txtWarenwertUmrechnung._WaehrungZeichen = False - Me.txtWarenwertUmrechnung.Enabled = False - Me.txtWarenwertUmrechnung.ForeColor = System.Drawing.Color.Black - Me.txtWarenwertUmrechnung.Location = New System.Drawing.Point(147, 414) - Me.txtWarenwertUmrechnung.MaxLength = 35 - Me.txtWarenwertUmrechnung.MaxLineLength = -1 - Me.txtWarenwertUmrechnung.MaxLines_Warning = "" - Me.txtWarenwertUmrechnung.MaxLines_Warning_Label = Nothing - Me.txtWarenwertUmrechnung.Name = "txtWarenwertUmrechnung" - Me.txtWarenwertUmrechnung.Size = New System.Drawing.Size(129, 20) - Me.txtWarenwertUmrechnung.TabIndex = 18 - Me.txtWarenwertUmrechnung.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' 'Label13 ' Me.Label13.AutoSize = True @@ -1065,20 +780,6 @@ Partial Class usrCntlFaktAbrechnung Me.Label13.Text = "Anlagen:" Me.Label13.TextAlign = System.Drawing.ContentAlignment.TopRight ' - 'cboAnlage2 - ' - Me.cboAnlage2._allowedValuesFreiText = Nothing - Me.cboAnlage2._allowFreiText = True - Me.cboAnlage2._value = "" - Me.cboAnlage2.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend - Me.cboAnlage2.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems - Me.cboAnlage2.FormattingEnabled = True - Me.cboAnlage2.Location = New System.Drawing.Point(10, 974) - Me.cboAnlage2.MaxLength = 35 - Me.cboAnlage2.Name = "cboAnlage2" - Me.cboAnlage2.Size = New System.Drawing.Size(397, 21) - Me.cboAnlage2.TabIndex = 29 - ' 'Label34 ' Me.Label34.AutoSize = True @@ -1089,56 +790,6 @@ Partial Class usrCntlFaktAbrechnung Me.Label34.Text = "Umrechnung:" Me.Label34.TextAlign = System.Drawing.ContentAlignment.TopRight ' - 'cboAnlage3 - ' - Me.cboAnlage3._allowedValuesFreiText = Nothing - Me.cboAnlage3._allowFreiText = True - Me.cboAnlage3._value = "" - Me.cboAnlage3.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend - Me.cboAnlage3.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems - Me.cboAnlage3.FormattingEnabled = True - Me.cboAnlage3.Location = New System.Drawing.Point(10, 994) - Me.cboAnlage3.MaxLength = 35 - Me.cboAnlage3.Name = "cboAnlage3" - Me.cboAnlage3.Size = New System.Drawing.Size(397, 21) - Me.cboAnlage3.TabIndex = 30 - ' - 'txtVermerk - ' - Me.txtVermerk._DateTimeOnly = False - Me.txtVermerk._numbersOnly = False - Me.txtVermerk._numbersOnlyKommastellen = "" - Me.txtVermerk._Prozent = False - Me.txtVermerk._ShortDateNew = False - Me.txtVermerk._ShortDateOnly = False - Me.txtVermerk._TimeOnly = False - Me.txtVermerk._value = Nothing - Me.txtVermerk._Waehrung = False - Me.txtVermerk._WaehrungZeichen = True - Me.txtVermerk.ForeColor = System.Drawing.Color.Black - Me.txtVermerk.Location = New System.Drawing.Point(102, 456) - Me.txtVermerk.MaxLength = 35 - Me.txtVermerk.MaxLineLength = -1 - Me.txtVermerk.MaxLines_Warning = "" - Me.txtVermerk.MaxLines_Warning_Label = Nothing - Me.txtVermerk.Name = "txtVermerk" - Me.txtVermerk.Size = New System.Drawing.Size(305, 20) - Me.txtVermerk.TabIndex = 25 - ' - 'cboAnlage6 - ' - Me.cboAnlage6._allowedValuesFreiText = Nothing - Me.cboAnlage6._allowFreiText = True - Me.cboAnlage6._value = "" - Me.cboAnlage6.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend - Me.cboAnlage6.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems - Me.cboAnlage6.FormattingEnabled = True - Me.cboAnlage6.Location = New System.Drawing.Point(423, 994) - Me.cboAnlage6.MaxLength = 35 - Me.cboAnlage6.Name = "cboAnlage6" - Me.cboAnlage6.Size = New System.Drawing.Size(398, 21) - Me.cboAnlage6.TabIndex = 33 - ' 'Label25 ' Me.Label25.AutoSize = True @@ -1149,42 +800,6 @@ Partial Class usrCntlFaktAbrechnung Me.Label25.Text = "Vermerk:" Me.Label25.TextAlign = System.Drawing.ContentAlignment.TopRight ' - 'cboAnlage4 - ' - Me.cboAnlage4._allowedValuesFreiText = Nothing - Me.cboAnlage4._allowFreiText = True - Me.cboAnlage4._value = "" - Me.cboAnlage4.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend - Me.cboAnlage4.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems - Me.cboAnlage4.FormattingEnabled = True - Me.cboAnlage4.Location = New System.Drawing.Point(423, 954) - Me.cboAnlage4.MaxLength = 35 - Me.cboAnlage4.Name = "cboAnlage4" - Me.cboAnlage4.Size = New System.Drawing.Size(398, 21) - Me.cboAnlage4.TabIndex = 31 - ' - 'txtErfassungsnummer - ' - Me.txtErfassungsnummer._DateTimeOnly = False - Me.txtErfassungsnummer._numbersOnly = False - Me.txtErfassungsnummer._numbersOnlyKommastellen = "" - Me.txtErfassungsnummer._Prozent = False - Me.txtErfassungsnummer._ShortDateNew = False - Me.txtErfassungsnummer._ShortDateOnly = False - Me.txtErfassungsnummer._TimeOnly = False - Me.txtErfassungsnummer._value = Nothing - Me.txtErfassungsnummer._Waehrung = False - Me.txtErfassungsnummer._WaehrungZeichen = True - Me.txtErfassungsnummer.ForeColor = System.Drawing.Color.Black - Me.txtErfassungsnummer.Location = New System.Drawing.Point(516, 376) - Me.txtErfassungsnummer.MaxLength = 35 - Me.txtErfassungsnummer.MaxLineLength = -1 - Me.txtErfassungsnummer.MaxLines_Warning = "" - Me.txtErfassungsnummer.MaxLines_Warning_Label = Nothing - Me.txtErfassungsnummer.Name = "txtErfassungsnummer" - Me.txtErfassungsnummer.Size = New System.Drawing.Size(305, 20) - Me.txtErfassungsnummer.TabIndex = 11 - ' 'Label24 ' Me.Label24.AutoSize = True @@ -1205,17 +820,6 @@ Partial Class usrCntlFaktAbrechnung Me.Label22.Text = "Rg-Notiz:" Me.Label22.TextAlign = System.Drawing.ContentAlignment.TopRight ' - 'cboRechnungNotiz - ' - Me.cboRechnungNotiz._allowedValuesFreiText = Nothing - Me.cboRechnungNotiz._allowFreiText = True - Me.cboRechnungNotiz._value = "" - Me.cboRechnungNotiz.FormattingEnabled = True - Me.cboRechnungNotiz.Location = New System.Drawing.Point(102, 1029) - Me.cboRechnungNotiz.Name = "cboRechnungNotiz" - Me.cboRechnungNotiz.Size = New System.Drawing.Size(718, 21) - Me.cboRechnungNotiz.TabIndex = 36 - ' 'pic ' Me.pic.BackgroundImage = Global.SDL.My.Resources.Resources.Verag_AG_Logo_med @@ -1227,19 +831,6 @@ Partial Class usrCntlFaktAbrechnung Me.pic.TabIndex = 36 Me.pic.TabStop = False ' - 'cboFirma - ' - Me.cboFirma._allowedValuesFreiText = Nothing - Me.cboFirma._allowFreiText = False - Me.cboFirma._value = "" - Me.cboFirma.FormattingEnabled = True - Me.cboFirma.Location = New System.Drawing.Point(592, 51) - Me.cboFirma.Margin = New System.Windows.Forms.Padding(2) - Me.cboFirma.Name = "cboFirma" - Me.cboFirma.Size = New System.Drawing.Size(229, 21) - Me.cboFirma.TabIndex = 1 - Me.cboFirma.TabStop = False - ' 'lblFirma3 ' Me.lblFirma3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) @@ -1312,82 +903,6 @@ Partial Class usrCntlFaktAbrechnung Me.btnAuftraggeberEuro.Text = "€" Me.btnAuftraggeberEuro.UseVisualStyleBackColor = True ' - 'txtkdNrAuftraggeber - ' - Me.txtkdNrAuftraggeber._DateTimeOnly = False - Me.txtkdNrAuftraggeber._numbersOnly = False - Me.txtkdNrAuftraggeber._numbersOnlyKommastellen = "" - Me.txtkdNrAuftraggeber._Prozent = False - Me.txtkdNrAuftraggeber._ShortDateNew = False - Me.txtkdNrAuftraggeber._ShortDateOnly = False - Me.txtkdNrAuftraggeber._TimeOnly = False - Me.txtkdNrAuftraggeber._value = Nothing - Me.txtkdNrAuftraggeber._Waehrung = False - Me.txtkdNrAuftraggeber._WaehrungZeichen = True - Me.txtkdNrAuftraggeber.BackColor = System.Drawing.Color.White - Me.txtkdNrAuftraggeber.ForeColor = System.Drawing.Color.Black - Me.txtkdNrAuftraggeber.Location = New System.Drawing.Point(8, 23) - Me.txtkdNrAuftraggeber.MaxLength = 35 - Me.txtkdNrAuftraggeber.MaxLineLength = -1 - Me.txtkdNrAuftraggeber.MaxLines_Warning = "" - Me.txtkdNrAuftraggeber.MaxLines_Warning_Label = Nothing - Me.txtkdNrAuftraggeber.Name = "txtkdNrAuftraggeber" - Me.txtkdNrAuftraggeber.ReadOnly = True - Me.txtkdNrAuftraggeber.Size = New System.Drawing.Size(94, 20) - Me.txtkdNrAuftraggeber.TabIndex = 1 - Me.txtkdNrAuftraggeber.TabStop = False - ' - 'kdFirmaAuftraggeber - ' - Me.kdFirmaAuftraggeber._AllowSetValue = True - Me.kdFirmaAuftraggeber._autoSizeGross = False - Me.kdFirmaAuftraggeber._display_Name1 = True - Me.kdFirmaAuftraggeber._displayAVISO_Email = False - Me.kdFirmaAuftraggeber._displayFullName = False - Me.kdFirmaAuftraggeber._displayWoelflKd = False - Me.kdFirmaAuftraggeber._hideIfListEmpty = True - Me.kdFirmaAuftraggeber._loadKdData = True - Me.kdFirmaAuftraggeber._ValueKdAndName = False - Me.kdFirmaAuftraggeber.BackColor = System.Drawing.Color.White - Me.kdFirmaAuftraggeber.dgvpos = "LEFT" - Me.kdFirmaAuftraggeber.KdName = Nothing - Me.kdFirmaAuftraggeber.KdNr = "-1" - Me.kdFirmaAuftraggeber.kdNrField = Nothing - Me.kdFirmaAuftraggeber.KdNrNullInt = Nothing - Me.kdFirmaAuftraggeber.Location = New System.Drawing.Point(101, 23) - Me.kdFirmaAuftraggeber.MaxLength = 35 - Me.kdFirmaAuftraggeber.Name = "kdFirmaAuftraggeber" - Me.kdFirmaAuftraggeber.nurAktive = True - Me.kdFirmaAuftraggeber.searchActive = True - Me.kdFirmaAuftraggeber.Size = New System.Drawing.Size(283, 20) - Me.kdFirmaAuftraggeber.TabIndex = 3 - Me.kdFirmaAuftraggeber.TabStop = False - Me.kdFirmaAuftraggeber.usrcntl = Nothing - ' - 'txtAuftraggeberName2 - ' - Me.txtAuftraggeberName2._DateTimeOnly = False - Me.txtAuftraggeberName2._numbersOnly = False - Me.txtAuftraggeberName2._numbersOnlyKommastellen = "" - Me.txtAuftraggeberName2._Prozent = False - Me.txtAuftraggeberName2._ShortDateNew = False - Me.txtAuftraggeberName2._ShortDateOnly = False - Me.txtAuftraggeberName2._TimeOnly = False - Me.txtAuftraggeberName2._value = Nothing - Me.txtAuftraggeberName2._Waehrung = False - Me.txtAuftraggeberName2._WaehrungZeichen = True - Me.txtAuftraggeberName2.BackColor = System.Drawing.Color.White - Me.txtAuftraggeberName2.ForeColor = System.Drawing.Color.Black - Me.txtAuftraggeberName2.Location = New System.Drawing.Point(101, 42) - Me.txtAuftraggeberName2.MaxLength = 35 - Me.txtAuftraggeberName2.MaxLineLength = -1 - Me.txtAuftraggeberName2.MaxLines_Warning = "" - Me.txtAuftraggeberName2.MaxLines_Warning_Label = Nothing - Me.txtAuftraggeberName2.Name = "txtAuftraggeberName2" - Me.txtAuftraggeberName2.Size = New System.Drawing.Size(305, 20) - Me.txtAuftraggeberName2.TabIndex = 4 - Me.txtAuftraggeberName2.TabStop = False - ' 'Label15 ' Me.Label15.AutoSize = True @@ -1398,125 +913,6 @@ Partial Class usrCntlFaktAbrechnung Me.Label15.TabIndex = 0 Me.Label15.Text = "3. Auftraggeber:" ' - 'txtAuftragggeberOrt - ' - Me.txtAuftragggeberOrt._DateTimeOnly = False - Me.txtAuftragggeberOrt._numbersOnly = False - Me.txtAuftragggeberOrt._numbersOnlyKommastellen = "" - Me.txtAuftragggeberOrt._Prozent = False - Me.txtAuftragggeberOrt._ShortDateNew = False - Me.txtAuftragggeberOrt._ShortDateOnly = False - Me.txtAuftragggeberOrt._TimeOnly = False - Me.txtAuftragggeberOrt._value = Nothing - Me.txtAuftragggeberOrt._Waehrung = False - Me.txtAuftragggeberOrt._WaehrungZeichen = True - Me.txtAuftragggeberOrt.BackColor = System.Drawing.Color.White - Me.txtAuftragggeberOrt.ForeColor = System.Drawing.Color.Black - Me.txtAuftragggeberOrt.Location = New System.Drawing.Point(101, 80) - Me.txtAuftragggeberOrt.MaxLength = 35 - Me.txtAuftragggeberOrt.MaxLineLength = -1 - Me.txtAuftragggeberOrt.MaxLines_Warning = "" - Me.txtAuftragggeberOrt.MaxLines_Warning_Label = Nothing - Me.txtAuftragggeberOrt.Name = "txtAuftragggeberOrt" - Me.txtAuftragggeberOrt.Size = New System.Drawing.Size(305, 20) - Me.txtAuftragggeberOrt.TabIndex = 7 - Me.txtAuftragggeberOrt.TabStop = False - ' - 'txtAuftragggeberStrasse - ' - Me.txtAuftragggeberStrasse._DateTimeOnly = False - Me.txtAuftragggeberStrasse._numbersOnly = False - Me.txtAuftragggeberStrasse._numbersOnlyKommastellen = "" - Me.txtAuftragggeberStrasse._Prozent = False - Me.txtAuftragggeberStrasse._ShortDateNew = False - Me.txtAuftragggeberStrasse._ShortDateOnly = False - Me.txtAuftragggeberStrasse._TimeOnly = False - Me.txtAuftragggeberStrasse._value = Nothing - Me.txtAuftragggeberStrasse._Waehrung = False - Me.txtAuftragggeberStrasse._WaehrungZeichen = True - Me.txtAuftragggeberStrasse.BackColor = System.Drawing.Color.White - Me.txtAuftragggeberStrasse.ForeColor = System.Drawing.Color.Black - Me.txtAuftragggeberStrasse.Location = New System.Drawing.Point(101, 61) - Me.txtAuftragggeberStrasse.MaxLength = 35 - Me.txtAuftragggeberStrasse.MaxLineLength = -1 - Me.txtAuftragggeberStrasse.MaxLines_Warning = "" - Me.txtAuftragggeberStrasse.MaxLines_Warning_Label = Nothing - Me.txtAuftragggeberStrasse.Name = "txtAuftragggeberStrasse" - Me.txtAuftragggeberStrasse.Size = New System.Drawing.Size(305, 20) - Me.txtAuftragggeberStrasse.TabIndex = 6 - Me.txtAuftragggeberStrasse.TabStop = False - ' - 'FlatButton4 - ' - Me.FlatButton4.allowBorder = False - Me.FlatButton4.FlatAppearance.BorderSize = 0 - Me.FlatButton4.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.FlatButton4.ForeColor = System.Drawing.Color.Black - Me.FlatButton4.Image = Global.SDL.My.Resources.Resources.personInaktiv - Me.FlatButton4.Location = New System.Drawing.Point(382, 18) - Me.FlatButton4.Name = "FlatButton4" - Me.FlatButton4.Size = New System.Drawing.Size(24, 25) - Me.FlatButton4.TabIndex = 2 - Me.FlatButton4.TabStop = False - Me.FlatButton4.UseVisualStyleBackColor = True - ' - 'txtText - ' - Me.txtText.Location = New System.Drawing.Point(102, 1071) - Me.txtText.MaxLineLength = -1 - Me.txtText.MaxLines_Warning = "" - Me.txtText.MaxLines_Warning_Label = Nothing - Me.txtText.Name = "txtText" - Me.txtText.ReadOnly = True - Me.txtText.Size = New System.Drawing.Size(720, 53) - Me.txtText.TabIndex = 35 - Me.txtText.Text = "" - ' - 'txtBefoerderungsmittel - ' - Me.txtBefoerderungsmittel._DateTimeOnly = False - Me.txtBefoerderungsmittel._numbersOnly = False - Me.txtBefoerderungsmittel._numbersOnlyKommastellen = "" - Me.txtBefoerderungsmittel._Prozent = False - Me.txtBefoerderungsmittel._ShortDateNew = False - Me.txtBefoerderungsmittel._ShortDateOnly = False - Me.txtBefoerderungsmittel._TimeOnly = False - Me.txtBefoerderungsmittel._value = Nothing - Me.txtBefoerderungsmittel._Waehrung = False - Me.txtBefoerderungsmittel._WaehrungZeichen = True - Me.txtBefoerderungsmittel.ForeColor = System.Drawing.Color.Black - Me.txtBefoerderungsmittel.Location = New System.Drawing.Point(516, 413) - Me.txtBefoerderungsmittel.MaxLength = 35 - Me.txtBefoerderungsmittel.MaxLineLength = -1 - Me.txtBefoerderungsmittel.MaxLines_Warning = "" - Me.txtBefoerderungsmittel.MaxLines_Warning_Label = Nothing - Me.txtBefoerderungsmittel.Name = "txtBefoerderungsmittel" - Me.txtBefoerderungsmittel.Size = New System.Drawing.Size(305, 20) - Me.txtBefoerderungsmittel.TabIndex = 19 - ' - 'txtGrenze - ' - Me.txtGrenze._DateTimeOnly = False - Me.txtGrenze._numbersOnly = False - Me.txtGrenze._numbersOnlyKommastellen = "" - Me.txtGrenze._Prozent = False - Me.txtGrenze._ShortDateNew = False - Me.txtGrenze._ShortDateOnly = False - Me.txtGrenze._TimeOnly = False - Me.txtGrenze._value = Nothing - Me.txtGrenze._Waehrung = False - Me.txtGrenze._WaehrungZeichen = True - Me.txtGrenze.Enabled = False - Me.txtGrenze.ForeColor = System.Drawing.Color.Black - Me.txtGrenze.Location = New System.Drawing.Point(516, 394) - Me.txtGrenze.MaxLength = 35 - Me.txtGrenze.MaxLineLength = -1 - Me.txtGrenze.MaxLines_Warning = "" - Me.txtGrenze.MaxLines_Warning_Label = Nothing - Me.txtGrenze.Name = "txtGrenze" - Me.txtGrenze.Size = New System.Drawing.Size(305, 20) - Me.txtGrenze.TabIndex = 16 - ' 'Label20 ' Me.Label20.AutoSize = True @@ -1537,28 +933,6 @@ Partial Class usrCntlFaktAbrechnung Me.Label19.Text = "Grenze:" Me.Label19.TextAlign = System.Drawing.ContentAlignment.TopRight ' - 'txtSendungsdaten - ' - Me.txtSendungsdaten._DateTimeOnly = False - Me.txtSendungsdaten._numbersOnly = False - Me.txtSendungsdaten._numbersOnlyKommastellen = "" - Me.txtSendungsdaten._Prozent = False - Me.txtSendungsdaten._ShortDateNew = False - Me.txtSendungsdaten._ShortDateOnly = False - Me.txtSendungsdaten._TimeOnly = False - Me.txtSendungsdaten._value = Nothing - Me.txtSendungsdaten._Waehrung = False - Me.txtSendungsdaten._WaehrungZeichen = True - Me.txtSendungsdaten.ForeColor = System.Drawing.Color.Black - Me.txtSendungsdaten.Location = New System.Drawing.Point(102, 438) - Me.txtSendungsdaten.MaxLength = 35 - Me.txtSendungsdaten.MaxLineLength = -1 - Me.txtSendungsdaten.MaxLines_Warning = "" - Me.txtSendungsdaten.MaxLines_Warning_Label = Nothing - Me.txtSendungsdaten.Name = "txtSendungsdaten" - Me.txtSendungsdaten.Size = New System.Drawing.Size(305, 20) - Me.txtSendungsdaten.TabIndex = 22 - ' 'Label17 ' Me.Label17.AutoSize = True @@ -1569,29 +943,6 @@ Partial Class usrCntlFaktAbrechnung Me.Label17.Text = "Sendungsdaten:" Me.Label17.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 = Nothing - Me.txtWarenwert._Waehrung = True - Me.txtWarenwert._WaehrungZeichen = False - Me.txtWarenwert.ForeColor = System.Drawing.Color.Black - Me.txtWarenwert.Location = New System.Drawing.Point(147, 395) - Me.txtWarenwert.MaxLength = 35 - 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(129, 20) - Me.txtWarenwert.TabIndex = 15 - Me.txtWarenwert.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' 'Label16 ' Me.Label16.AutoSize = True @@ -1602,28 +953,6 @@ Partial Class usrCntlFaktAbrechnung Me.Label16.Text = "Warenwert:" Me.Label16.TextAlign = System.Drawing.ContentAlignment.TopRight ' - 'txtZollbelegNr - ' - Me.txtZollbelegNr._DateTimeOnly = False - Me.txtZollbelegNr._numbersOnly = False - Me.txtZollbelegNr._numbersOnlyKommastellen = "" - Me.txtZollbelegNr._Prozent = False - Me.txtZollbelegNr._ShortDateNew = False - Me.txtZollbelegNr._ShortDateOnly = False - Me.txtZollbelegNr._TimeOnly = False - Me.txtZollbelegNr._value = Nothing - Me.txtZollbelegNr._Waehrung = False - Me.txtZollbelegNr._WaehrungZeichen = True - Me.txtZollbelegNr.ForeColor = System.Drawing.Color.Black - Me.txtZollbelegNr.Location = New System.Drawing.Point(102, 376) - Me.txtZollbelegNr.MaxLength = 35 - Me.txtZollbelegNr.MaxLineLength = -1 - Me.txtZollbelegNr.MaxLines_Warning = "" - Me.txtZollbelegNr.MaxLines_Warning_Label = Nothing - Me.txtZollbelegNr.Name = "txtZollbelegNr" - Me.txtZollbelegNr.Size = New System.Drawing.Size(305, 20) - Me.txtZollbelegNr.TabIndex = 10 - ' 'Label10 ' Me.Label10.AutoSize = True @@ -1725,102 +1054,6 @@ Partial Class usrCntlFaktAbrechnung Me.Button6.Text = "UID prüfen" Me.Button6.UseVisualStyleBackColor = True ' - 'cboSammelrechnung - ' - Me.cboSammelrechnung._allowedValuesFreiText = Nothing - Me.cboSammelrechnung._allowFreiText = False - Me.cboSammelrechnung._value = "" - Me.cboSammelrechnung.FormattingEnabled = True - Me.cboSammelrechnung.Location = New System.Drawing.Point(282, 17) - Me.cboSammelrechnung.Name = "cboSammelrechnung" - Me.cboSammelrechnung.Size = New System.Drawing.Size(102, 21) - Me.cboSammelrechnung.TabIndex = 2 - ' - 'txtRechnungAnName2 - ' - Me.txtRechnungAnName2._DateTimeOnly = False - Me.txtRechnungAnName2._numbersOnly = False - Me.txtRechnungAnName2._numbersOnlyKommastellen = "" - Me.txtRechnungAnName2._Prozent = False - Me.txtRechnungAnName2._ShortDateNew = False - Me.txtRechnungAnName2._ShortDateOnly = False - Me.txtRechnungAnName2._TimeOnly = False - Me.txtRechnungAnName2._value = Nothing - Me.txtRechnungAnName2._Waehrung = False - Me.txtRechnungAnName2._WaehrungZeichen = True - Me.txtRechnungAnName2.ForeColor = System.Drawing.Color.Black - Me.txtRechnungAnName2.Location = New System.Drawing.Point(101, 56) - Me.txtRechnungAnName2.MaxLength = 35 - Me.txtRechnungAnName2.MaxLineLength = -1 - Me.txtRechnungAnName2.MaxLines_Warning = "" - Me.txtRechnungAnName2.MaxLines_Warning_Label = Nothing - Me.txtRechnungAnName2.Name = "txtRechnungAnName2" - Me.txtRechnungAnName2.Size = New System.Drawing.Size(306, 20) - Me.txtRechnungAnName2.TabIndex = 11 - Me.txtRechnungAnName2.TabStop = False - ' - 'kdFirmaRechnungAn - ' - Me.kdFirmaRechnungAn._AllowSetValue = True - Me.kdFirmaRechnungAn._autoSizeGross = False - Me.kdFirmaRechnungAn._display_Name1 = True - Me.kdFirmaRechnungAn._displayAVISO_Email = False - Me.kdFirmaRechnungAn._displayFullName = False - Me.kdFirmaRechnungAn._displayWoelflKd = False - Me.kdFirmaRechnungAn._hideIfListEmpty = True - Me.kdFirmaRechnungAn._loadKdData = True - Me.kdFirmaRechnungAn._ValueKdAndName = False - Me.kdFirmaRechnungAn.dgvpos = "LEFT" - Me.kdFirmaRechnungAn.KdName = Nothing - Me.kdFirmaRechnungAn.KdNr = "-1" - Me.kdFirmaRechnungAn.kdNrField = Nothing - Me.kdFirmaRechnungAn.KdNrNullInt = Nothing - Me.kdFirmaRechnungAn.Location = New System.Drawing.Point(101, 37) - Me.kdFirmaRechnungAn.MaxLength = 35 - Me.kdFirmaRechnungAn.Name = "kdFirmaRechnungAn" - Me.kdFirmaRechnungAn.nurAktive = True - Me.kdFirmaRechnungAn.searchActive = True - Me.kdFirmaRechnungAn.Size = New System.Drawing.Size(283, 20) - Me.kdFirmaRechnungAn.TabIndex = 5 - Me.kdFirmaRechnungAn.TabStop = False - Me.kdFirmaRechnungAn.usrcntl = Nothing - ' - 'FlatButton3 - ' - Me.FlatButton3.allowBorder = False - Me.FlatButton3.FlatAppearance.BorderSize = 0 - Me.FlatButton3.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.FlatButton3.ForeColor = System.Drawing.Color.Black - Me.FlatButton3.Image = Global.SDL.My.Resources.Resources.personInaktiv - Me.FlatButton3.Location = New System.Drawing.Point(383, 32) - Me.FlatButton3.Name = "FlatButton3" - Me.FlatButton3.Size = New System.Drawing.Size(24, 25) - Me.FlatButton3.TabIndex = 7 - Me.FlatButton3.TabStop = False - Me.FlatButton3.UseVisualStyleBackColor = True - ' - 'txtKdAuftragsNr - ' - Me.txtKdAuftragsNr._DateTimeOnly = False - Me.txtKdAuftragsNr._numbersOnly = False - Me.txtKdAuftragsNr._numbersOnlyKommastellen = "" - Me.txtKdAuftragsNr._Prozent = False - Me.txtKdAuftragsNr._ShortDateNew = False - Me.txtKdAuftragsNr._ShortDateOnly = False - Me.txtKdAuftragsNr._TimeOnly = False - Me.txtKdAuftragsNr._value = Nothing - Me.txtKdAuftragsNr._Waehrung = False - Me.txtKdAuftragsNr._WaehrungZeichen = True - Me.txtKdAuftragsNr.ForeColor = System.Drawing.Color.Black - Me.txtKdAuftragsNr.Location = New System.Drawing.Point(101, 116) - Me.txtKdAuftragsNr.MaxLength = 35 - Me.txtKdAuftragsNr.MaxLineLength = -1 - Me.txtKdAuftragsNr.MaxLines_Warning = "" - Me.txtKdAuftragsNr.MaxLines_Warning_Label = Nothing - Me.txtKdAuftragsNr.Name = "txtKdAuftragsNr" - Me.txtKdAuftragsNr.Size = New System.Drawing.Size(306, 20) - Me.txtKdAuftragsNr.TabIndex = 20 - ' 'Label43 ' Me.Label43.AutoSize = True @@ -1831,29 +1064,6 @@ Partial Class usrCntlFaktAbrechnung Me.Label43.TabIndex = 19 Me.Label43.Text = "Kd-Auftr.Nr.:" ' - 'txtRechnungAnUIDKz - ' - Me.txtRechnungAnUIDKz._DateTimeOnly = False - Me.txtRechnungAnUIDKz._numbersOnly = False - Me.txtRechnungAnUIDKz._numbersOnlyKommastellen = "" - Me.txtRechnungAnUIDKz._Prozent = False - Me.txtRechnungAnUIDKz._ShortDateNew = False - Me.txtRechnungAnUIDKz._ShortDateOnly = False - Me.txtRechnungAnUIDKz._TimeOnly = False - Me.txtRechnungAnUIDKz._value = Nothing - Me.txtRechnungAnUIDKz._Waehrung = False - Me.txtRechnungAnUIDKz._WaehrungZeichen = True - Me.txtRechnungAnUIDKz.ForeColor = System.Drawing.Color.Black - Me.txtRechnungAnUIDKz.Location = New System.Drawing.Point(481, 56) - Me.txtRechnungAnUIDKz.MaxLength = 35 - Me.txtRechnungAnUIDKz.MaxLineLength = -1 - Me.txtRechnungAnUIDKz.MaxLines_Warning = "" - Me.txtRechnungAnUIDKz.MaxLines_Warning_Label = Nothing - Me.txtRechnungAnUIDKz.Name = "txtRechnungAnUIDKz" - Me.txtRechnungAnUIDKz.Size = New System.Drawing.Size(27, 20) - Me.txtRechnungAnUIDKz.TabIndex = 18 - Me.txtRechnungAnUIDKz.TabStop = False - ' 'lblVorauskasse ' Me.lblVorauskasse.AutoSize = True @@ -1875,40 +1085,6 @@ Partial Class usrCntlFaktAbrechnung Me.Label1.Text = "Vorauskasse:" Me.Label1.TextAlign = System.Drawing.ContentAlignment.TopRight ' - 'cboRechnungAn - ' - Me.cboRechnungAn._allowedValuesFreiText = Nothing - Me.cboRechnungAn._allowFreiText = False - Me.cboRechnungAn._value = "" - Me.cboRechnungAn.FormattingEnabled = True - Me.cboRechnungAn.Location = New System.Drawing.Point(101, 17) - Me.cboRechnungAn.Name = "cboRechnungAn" - Me.cboRechnungAn.Size = New System.Drawing.Size(183, 21) - Me.cboRechnungAn.TabIndex = 1 - ' - 'txtRechnungAnUIDNr - ' - Me.txtRechnungAnUIDNr._DateTimeOnly = False - Me.txtRechnungAnUIDNr._numbersOnly = False - Me.txtRechnungAnUIDNr._numbersOnlyKommastellen = "" - Me.txtRechnungAnUIDNr._Prozent = False - Me.txtRechnungAnUIDNr._ShortDateNew = False - Me.txtRechnungAnUIDNr._ShortDateOnly = False - Me.txtRechnungAnUIDNr._TimeOnly = False - Me.txtRechnungAnUIDNr._value = Nothing - Me.txtRechnungAnUIDNr._Waehrung = False - Me.txtRechnungAnUIDNr._WaehrungZeichen = True - Me.txtRechnungAnUIDNr.ForeColor = System.Drawing.Color.Black - Me.txtRechnungAnUIDNr.Location = New System.Drawing.Point(506, 56) - Me.txtRechnungAnUIDNr.MaxLength = 35 - Me.txtRechnungAnUIDNr.MaxLineLength = -1 - Me.txtRechnungAnUIDNr.MaxLines_Warning = "" - Me.txtRechnungAnUIDNr.MaxLines_Warning_Label = Nothing - Me.txtRechnungAnUIDNr.Name = "txtRechnungAnUIDNr" - Me.txtRechnungAnUIDNr.Size = New System.Drawing.Size(69, 20) - Me.txtRechnungAnUIDNr.TabIndex = 13 - Me.txtRechnungAnUIDNr.TabStop = False - ' 'Label6 ' Me.Label6.AutoSize = True @@ -1919,29 +1095,6 @@ Partial Class usrCntlFaktAbrechnung Me.Label6.TabIndex = 12 Me.Label6.Text = "UID-Nr.:" ' - 'txtRechnungAnBuKdNr - ' - Me.txtRechnungAnBuKdNr._DateTimeOnly = False - Me.txtRechnungAnBuKdNr._numbersOnly = False - Me.txtRechnungAnBuKdNr._numbersOnlyKommastellen = "" - Me.txtRechnungAnBuKdNr._Prozent = False - Me.txtRechnungAnBuKdNr._ShortDateNew = False - Me.txtRechnungAnBuKdNr._ShortDateOnly = False - Me.txtRechnungAnBuKdNr._TimeOnly = False - Me.txtRechnungAnBuKdNr._value = Nothing - Me.txtRechnungAnBuKdNr._Waehrung = False - Me.txtRechnungAnBuKdNr._WaehrungZeichen = True - Me.txtRechnungAnBuKdNr.ForeColor = System.Drawing.Color.Black - Me.txtRechnungAnBuKdNr.Location = New System.Drawing.Point(481, 37) - Me.txtRechnungAnBuKdNr.MaxLength = 35 - Me.txtRechnungAnBuKdNr.MaxLineLength = -1 - Me.txtRechnungAnBuKdNr.MaxLines_Warning = "" - Me.txtRechnungAnBuKdNr.MaxLines_Warning_Label = Nothing - Me.txtRechnungAnBuKdNr.Name = "txtRechnungAnBuKdNr" - Me.txtRechnungAnBuKdNr.Size = New System.Drawing.Size(94, 20) - Me.txtRechnungAnBuKdNr.TabIndex = 10 - Me.txtRechnungAnBuKdNr.TabStop = False - ' 'Label3 ' Me.Label3.AutoSize = True @@ -1952,75 +1105,6 @@ Partial Class usrCntlFaktAbrechnung Me.Label3.TabIndex = 9 Me.Label3.Text = "BuKdNr:" ' - 'txtkdNrRechnungAn - ' - Me.txtkdNrRechnungAn._DateTimeOnly = False - Me.txtkdNrRechnungAn._numbersOnly = False - Me.txtkdNrRechnungAn._numbersOnlyKommastellen = "" - Me.txtkdNrRechnungAn._Prozent = False - Me.txtkdNrRechnungAn._ShortDateNew = False - Me.txtkdNrRechnungAn._ShortDateOnly = False - Me.txtkdNrRechnungAn._TimeOnly = False - Me.txtkdNrRechnungAn._value = Nothing - Me.txtkdNrRechnungAn._Waehrung = False - Me.txtkdNrRechnungAn._WaehrungZeichen = True - Me.txtkdNrRechnungAn.ForeColor = System.Drawing.Color.Black - Me.txtkdNrRechnungAn.Location = New System.Drawing.Point(8, 37) - Me.txtkdNrRechnungAn.MaxLength = 35 - Me.txtkdNrRechnungAn.MaxLineLength = -1 - Me.txtkdNrRechnungAn.MaxLines_Warning = "" - Me.txtkdNrRechnungAn.MaxLines_Warning_Label = Nothing - Me.txtkdNrRechnungAn.Name = "txtkdNrRechnungAn" - Me.txtkdNrRechnungAn.Size = New System.Drawing.Size(94, 20) - Me.txtkdNrRechnungAn.TabIndex = 3 - Me.txtkdNrRechnungAn.TabStop = False - ' - 'txtRechnungAnOrt - ' - Me.txtRechnungAnOrt._DateTimeOnly = False - Me.txtRechnungAnOrt._numbersOnly = False - Me.txtRechnungAnOrt._numbersOnlyKommastellen = "" - Me.txtRechnungAnOrt._Prozent = False - Me.txtRechnungAnOrt._ShortDateNew = False - Me.txtRechnungAnOrt._ShortDateOnly = False - Me.txtRechnungAnOrt._TimeOnly = False - Me.txtRechnungAnOrt._value = Nothing - Me.txtRechnungAnOrt._Waehrung = False - Me.txtRechnungAnOrt._WaehrungZeichen = True - Me.txtRechnungAnOrt.ForeColor = System.Drawing.Color.Black - Me.txtRechnungAnOrt.Location = New System.Drawing.Point(101, 94) - Me.txtRechnungAnOrt.MaxLength = 35 - Me.txtRechnungAnOrt.MaxLineLength = -1 - Me.txtRechnungAnOrt.MaxLines_Warning = "" - Me.txtRechnungAnOrt.MaxLines_Warning_Label = Nothing - Me.txtRechnungAnOrt.Name = "txtRechnungAnOrt" - Me.txtRechnungAnOrt.Size = New System.Drawing.Size(306, 20) - Me.txtRechnungAnOrt.TabIndex = 17 - Me.txtRechnungAnOrt.TabStop = False - ' - 'txtRechnungAnStrasse - ' - Me.txtRechnungAnStrasse._DateTimeOnly = False - Me.txtRechnungAnStrasse._numbersOnly = False - Me.txtRechnungAnStrasse._numbersOnlyKommastellen = "" - Me.txtRechnungAnStrasse._Prozent = False - Me.txtRechnungAnStrasse._ShortDateNew = False - Me.txtRechnungAnStrasse._ShortDateOnly = False - Me.txtRechnungAnStrasse._TimeOnly = False - Me.txtRechnungAnStrasse._value = Nothing - Me.txtRechnungAnStrasse._Waehrung = False - Me.txtRechnungAnStrasse._WaehrungZeichen = True - Me.txtRechnungAnStrasse.ForeColor = System.Drawing.Color.Black - Me.txtRechnungAnStrasse.Location = New System.Drawing.Point(101, 75) - Me.txtRechnungAnStrasse.MaxLength = 35 - Me.txtRechnungAnStrasse.MaxLineLength = -1 - Me.txtRechnungAnStrasse.MaxLines_Warning = "" - Me.txtRechnungAnStrasse.MaxLines_Warning_Label = Nothing - Me.txtRechnungAnStrasse.Name = "txtRechnungAnStrasse" - Me.txtRechnungAnStrasse.Size = New System.Drawing.Size(306, 20) - Me.txtRechnungAnStrasse.TabIndex = 14 - Me.txtRechnungAnStrasse.TabStop = False - ' 'Label7 ' Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) @@ -2063,149 +1147,12 @@ Partial Class usrCntlFaktAbrechnung Me.btnAbsenderEuro.Text = "€" Me.btnAbsenderEuro.UseVisualStyleBackColor = True ' - 'txtkdNrAbsender - ' - Me.txtkdNrAbsender._DateTimeOnly = False - Me.txtkdNrAbsender._numbersOnly = False - Me.txtkdNrAbsender._numbersOnlyKommastellen = "" - Me.txtkdNrAbsender._Prozent = False - Me.txtkdNrAbsender._ShortDateNew = False - Me.txtkdNrAbsender._ShortDateOnly = False - Me.txtkdNrAbsender._TimeOnly = False - Me.txtkdNrAbsender._value = Nothing - Me.txtkdNrAbsender._Waehrung = False - Me.txtkdNrAbsender._WaehrungZeichen = True - Me.txtkdNrAbsender.BackColor = System.Drawing.Color.White - Me.txtkdNrAbsender.ForeColor = System.Drawing.Color.Black - Me.txtkdNrAbsender.Location = New System.Drawing.Point(8, 23) - Me.txtkdNrAbsender.MaxLength = 35 - Me.txtkdNrAbsender.MaxLineLength = -1 - Me.txtkdNrAbsender.MaxLines_Warning = "" - Me.txtkdNrAbsender.MaxLines_Warning_Label = Nothing - Me.txtkdNrAbsender.Name = "txtkdNrAbsender" - Me.txtkdNrAbsender.ReadOnly = True - Me.txtkdNrAbsender.Size = New System.Drawing.Size(94, 20) - Me.txtkdNrAbsender.TabIndex = 1 - Me.txtkdNrAbsender.TabStop = False - ' - 'kdFirmaAbsender - ' - Me.kdFirmaAbsender._AllowSetValue = True - Me.kdFirmaAbsender._autoSizeGross = False - Me.kdFirmaAbsender._display_Name1 = True - Me.kdFirmaAbsender._displayAVISO_Email = False - Me.kdFirmaAbsender._displayFullName = False - Me.kdFirmaAbsender._displayWoelflKd = False - Me.kdFirmaAbsender._hideIfListEmpty = True - Me.kdFirmaAbsender._loadKdData = True - Me.kdFirmaAbsender._ValueKdAndName = False - Me.kdFirmaAbsender.BackColor = System.Drawing.Color.White - Me.kdFirmaAbsender.dgvpos = "LEFT" - Me.kdFirmaAbsender.KdName = Nothing - Me.kdFirmaAbsender.KdNr = "-1" - Me.kdFirmaAbsender.kdNrField = Nothing - Me.kdFirmaAbsender.KdNrNullInt = Nothing - Me.kdFirmaAbsender.Location = New System.Drawing.Point(101, 23) - Me.kdFirmaAbsender.MaxLength = 35 - Me.kdFirmaAbsender.Name = "kdFirmaAbsender" - Me.kdFirmaAbsender.nurAktive = True - Me.kdFirmaAbsender.searchActive = True - Me.kdFirmaAbsender.Size = New System.Drawing.Size(283, 20) - Me.kdFirmaAbsender.TabIndex = 3 - Me.kdFirmaAbsender.TabStop = False - Me.kdFirmaAbsender.usrcntl = Nothing - ' - 'txtAbsenderName2 - ' - Me.txtAbsenderName2._DateTimeOnly = False - Me.txtAbsenderName2._numbersOnly = False - Me.txtAbsenderName2._numbersOnlyKommastellen = "" - Me.txtAbsenderName2._Prozent = False - Me.txtAbsenderName2._ShortDateNew = False - Me.txtAbsenderName2._ShortDateOnly = False - Me.txtAbsenderName2._TimeOnly = False - Me.txtAbsenderName2._value = Nothing - Me.txtAbsenderName2._Waehrung = False - Me.txtAbsenderName2._WaehrungZeichen = True - Me.txtAbsenderName2.BackColor = System.Drawing.Color.White - Me.txtAbsenderName2.ForeColor = System.Drawing.Color.Black - Me.txtAbsenderName2.Location = New System.Drawing.Point(101, 42) - Me.txtAbsenderName2.MaxLength = 35 - Me.txtAbsenderName2.MaxLineLength = -1 - Me.txtAbsenderName2.MaxLines_Warning = "" - Me.txtAbsenderName2.MaxLines_Warning_Label = Nothing - Me.txtAbsenderName2.Name = "txtAbsenderName2" - Me.txtAbsenderName2.Size = New System.Drawing.Size(305, 20) - Me.txtAbsenderName2.TabIndex = 4 - Me.txtAbsenderName2.TabStop = False - ' - 'txtAbsenderOrt - ' - Me.txtAbsenderOrt._DateTimeOnly = False - Me.txtAbsenderOrt._numbersOnly = False - Me.txtAbsenderOrt._numbersOnlyKommastellen = "" - Me.txtAbsenderOrt._Prozent = False - Me.txtAbsenderOrt._ShortDateNew = False - Me.txtAbsenderOrt._ShortDateOnly = False - Me.txtAbsenderOrt._TimeOnly = False - Me.txtAbsenderOrt._value = Nothing - Me.txtAbsenderOrt._Waehrung = False - Me.txtAbsenderOrt._WaehrungZeichen = True - Me.txtAbsenderOrt.BackColor = System.Drawing.Color.White - Me.txtAbsenderOrt.ForeColor = System.Drawing.Color.Black - Me.txtAbsenderOrt.Location = New System.Drawing.Point(101, 80) - Me.txtAbsenderOrt.MaxLength = 35 - Me.txtAbsenderOrt.MaxLineLength = -1 - Me.txtAbsenderOrt.MaxLines_Warning = "" - Me.txtAbsenderOrt.MaxLines_Warning_Label = Nothing - Me.txtAbsenderOrt.Name = "txtAbsenderOrt" - Me.txtAbsenderOrt.Size = New System.Drawing.Size(305, 20) - Me.txtAbsenderOrt.TabIndex = 7 - Me.txtAbsenderOrt.TabStop = False - ' - 'txtAbsenderStrasse - ' - Me.txtAbsenderStrasse._DateTimeOnly = False - Me.txtAbsenderStrasse._numbersOnly = False - Me.txtAbsenderStrasse._numbersOnlyKommastellen = "" - Me.txtAbsenderStrasse._Prozent = False - Me.txtAbsenderStrasse._ShortDateNew = False - Me.txtAbsenderStrasse._ShortDateOnly = False - Me.txtAbsenderStrasse._TimeOnly = False - Me.txtAbsenderStrasse._value = Nothing - Me.txtAbsenderStrasse._Waehrung = False - Me.txtAbsenderStrasse._WaehrungZeichen = True - Me.txtAbsenderStrasse.BackColor = System.Drawing.Color.White - Me.txtAbsenderStrasse.ForeColor = System.Drawing.Color.Black - Me.txtAbsenderStrasse.Location = New System.Drawing.Point(101, 61) - Me.txtAbsenderStrasse.MaxLength = 35 - Me.txtAbsenderStrasse.MaxLineLength = -1 - Me.txtAbsenderStrasse.MaxLines_Warning = "" - Me.txtAbsenderStrasse.MaxLines_Warning_Label = Nothing - Me.txtAbsenderStrasse.Name = "txtAbsenderStrasse" - Me.txtAbsenderStrasse.Size = New System.Drawing.Size(305, 20) - Me.txtAbsenderStrasse.TabIndex = 6 - Me.txtAbsenderStrasse.TabStop = False - ' - 'FlatButton1 - ' - Me.FlatButton1.allowBorder = False - Me.FlatButton1.FlatAppearance.BorderSize = 0 - Me.FlatButton1.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.FlatButton1.ForeColor = System.Drawing.Color.Black - Me.FlatButton1.Image = Global.SDL.My.Resources.Resources.personInaktiv - Me.FlatButton1.Location = New System.Drawing.Point(382, 18) - Me.FlatButton1.Name = "FlatButton1" - Me.FlatButton1.Size = New System.Drawing.Size(24, 25) - Me.FlatButton1.TabIndex = 2 - Me.FlatButton1.TabStop = False - Me.FlatButton1.UseVisualStyleBackColor = True - ' 'Panel7 ' Me.Panel7.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.Panel7.BackColor = System.Drawing.Color.WhiteSmoke + Me.Panel7.Controls.Add(Me.Button1) Me.Panel7.Controls.Add(Me.Button12) Me.Panel7.Controls.Add(Me.Label14) Me.Panel7.Controls.Add(Me.sbLeistung) @@ -2230,6 +1177,16 @@ Partial Class usrCntlFaktAbrechnung Me.Panel7.Size = New System.Drawing.Size(829, 453) Me.Panel7.TabIndex = 27 ' + 'Button1 + ' + Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button1.Location = New System.Drawing.Point(456, 3) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(194, 23) + Me.Button1.TabIndex = 25 + Me.Button1.Text = "Alle Leistungen laden (F2)" + Me.Button1.UseVisualStyleBackColor = True + ' 'Button12 ' Me.Button12.BackgroundImage = Global.SDL.My.Resources.Resources.plus @@ -2255,48 +1212,24 @@ Partial Class usrCntlFaktAbrechnung Me.Label14.Text = "Leistung hinzufügen:" Me.Label14.TextAlign = System.Drawing.ContentAlignment.TopRight ' - 'sbLeistung - ' - Me.sbLeistung._allowFreitext = False - Me.sbLeistung._AllowSetValue = False - Me.sbLeistung._autoSizeGross = False - Me.sbLeistung._hideIfListEmpty = True - Me.sbLeistung._value = Nothing - Me.sbLeistung.conn_art = "FMZOLL" - Me.sbLeistung.dgvpos = "LEFT" - Me.sbLeistung.DISPLAY_PARAM = Nothing - Me.sbLeistung.INVISIBLE_COLUMNS = Nothing - Me.sbLeistung.key_visible = False - Me.sbLeistung.KEYPARAM = Nothing - Me.sbLeistung.Location = New System.Drawing.Point(595, 232) - Me.sbLeistung.Name = "sbLeistung" - Me.sbLeistung.searchActive = True - Me.sbLeistung.Size = New System.Drawing.Size(189, 20) - Me.sbLeistung.SQL_ORDER_BY = Nothing - Me.sbLeistung.SQL_SELECT = Nothing - Me.sbLeistung.SQL_WHERE = Nothing - Me.sbLeistung.SQL_WhereParamList = Nothing - Me.sbLeistung.TabIndex = 14 - Me.sbLeistung.usrcntl = Nothing - ' 'Button7 ' Me.Button7.Enabled = False Me.Button7.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button7.Location = New System.Drawing.Point(498, 3) + Me.Button7.Location = New System.Drawing.Point(280, 3) Me.Button7.Name = "Button7" - Me.Button7.Size = New System.Drawing.Size(152, 23) + Me.Button7.Size = New System.Drawing.Size(170, 23) Me.Button7.TabIndex = 13 - Me.Button7.Text = "Leistungen befüllen (F2)" + Me.Button7.Text = "Leistungen nach KdNr (F1)" Me.Button7.UseVisualStyleBackColor = True ' 'btnVorauskasseAnzeigen ' Me.btnVorauskasseAnzeigen.Enabled = False Me.btnVorauskasseAnzeigen.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnVorauskasseAnzeigen.Location = New System.Drawing.Point(340, 3) + Me.btnVorauskasseAnzeigen.Location = New System.Drawing.Point(220, 230) Me.btnVorauskasseAnzeigen.Name = "btnVorauskasseAnzeigen" - Me.btnVorauskasseAnzeigen.Size = New System.Drawing.Size(152, 23) + Me.btnVorauskasseAnzeigen.Size = New System.Drawing.Size(126, 23) Me.btnVorauskasseAnzeigen.TabIndex = 12 Me.btnVorauskasseAnzeigen.Text = "Vorauskasse anzeigen" Me.btnVorauskasseAnzeigen.UseVisualStyleBackColor = True @@ -2321,64 +1254,6 @@ Partial Class usrCntlFaktAbrechnung Me.btn.Text = "ZOLL / EUST Daten (F3)" Me.btn.UseVisualStyleBackColor = True ' - 'txtUnterNrRef - ' - Me.txtUnterNrRef._DateTimeOnly = False - Me.txtUnterNrRef._numbersOnly = False - Me.txtUnterNrRef._numbersOnlyKommastellen = "" - Me.txtUnterNrRef._Prozent = False - Me.txtUnterNrRef._ShortDateNew = False - Me.txtUnterNrRef._ShortDateOnly = False - Me.txtUnterNrRef._TimeOnly = False - Me.txtUnterNrRef._value = Nothing - Me.txtUnterNrRef._Waehrung = False - Me.txtUnterNrRef._WaehrungZeichen = True - Me.txtUnterNrRef.Font = New System.Drawing.Font("Microsoft Tai Le", 8.0!) - Me.txtUnterNrRef.Location = New System.Drawing.Point(536, 69) - Me.txtUnterNrRef.MaxLineLength = -1 - Me.txtUnterNrRef.MaxLines_Warning = "" - Me.txtUnterNrRef.MaxLines_Warning_Label = Nothing - Me.txtUnterNrRef.Name = "txtUnterNrRef" - Me.txtUnterNrRef.Size = New System.Drawing.Size(39, 21) - Me.txtUnterNrRef.TabIndex = 8 - Me.txtUnterNrRef.Visible = False - ' - 'cboFilialeRef - ' - Me.cboFilialeRef._allowedValuesFreiText = Nothing - Me.cboFilialeRef._allowFreiText = False - Me.cboFilialeRef._value = "" - Me.cboFilialeRef.DropDownWidth = 280 - Me.cboFilialeRef.Font = New System.Drawing.Font("Microsoft Tai Le", 8.0!) - Me.cboFilialeRef.FormattingEnabled = True - Me.cboFilialeRef.Location = New System.Drawing.Point(289, 68) - Me.cboFilialeRef.Name = "cboFilialeRef" - Me.cboFilialeRef.Size = New System.Drawing.Size(80, 22) - Me.cboFilialeRef.TabIndex = 6 - Me.cboFilialeRef.Visible = False - ' - 'txtAbfertigungsnummerRef - ' - Me.txtAbfertigungsnummerRef._DateTimeOnly = False - Me.txtAbfertigungsnummerRef._numbersOnly = False - Me.txtAbfertigungsnummerRef._numbersOnlyKommastellen = "" - Me.txtAbfertigungsnummerRef._Prozent = False - Me.txtAbfertigungsnummerRef._ShortDateNew = False - Me.txtAbfertigungsnummerRef._ShortDateOnly = False - Me.txtAbfertigungsnummerRef._TimeOnly = False - Me.txtAbfertigungsnummerRef._value = Nothing - Me.txtAbfertigungsnummerRef._Waehrung = False - Me.txtAbfertigungsnummerRef._WaehrungZeichen = True - Me.txtAbfertigungsnummerRef.Font = New System.Drawing.Font("Microsoft Tai Le", 8.0!) - Me.txtAbfertigungsnummerRef.Location = New System.Drawing.Point(368, 69) - Me.txtAbfertigungsnummerRef.MaxLineLength = -1 - Me.txtAbfertigungsnummerRef.MaxLines_Warning = "" - Me.txtAbfertigungsnummerRef.MaxLines_Warning_Label = Nothing - Me.txtAbfertigungsnummerRef.Name = "txtAbfertigungsnummerRef" - Me.txtAbfertigungsnummerRef.Size = New System.Drawing.Size(169, 21) - Me.txtAbfertigungsnummerRef.TabIndex = 7 - Me.txtAbfertigungsnummerRef.Visible = False - ' 'Label26 ' Me.Label26.AutoSize = True @@ -2421,81 +1296,6 @@ Partial Class usrCntlFaktAbrechnung Me.Label30.Text = "Positionen:" Me.Label30.TextAlign = System.Drawing.ContentAlignment.TopRight ' - 'dgvRechnungenPositionen - ' - Me.dgvRechnungenPositionen.AKTUALISIERUNGS_INTERVALL = -1 - Me.dgvRechnungenPositionen.AllowUserToAddRows = False - Me.dgvRechnungenPositionen.AllowUserToDeleteRows = False - Me.dgvRechnungenPositionen.AllowUserToResizeColumns = False - Me.dgvRechnungenPositionen.AllowUserToResizeRows = False - Me.dgvRechnungenPositionen.BackgroundColor = System.Drawing.Color.White - Me.dgvRechnungenPositionen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - Me.dgvRechnungenPositionen.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.Leistung, Me.Anzahl, Me.Preis, Me.SteuerpflichtigerBetrag, Me.SteuerfreierBetrag, Me.Aufschubkonto}) - Me.dgvRechnungenPositionen.Location = New System.Drawing.Point(10, 258) - Me.dgvRechnungenPositionen.Name = "dgvRechnungenPositionen" - Me.dgvRechnungenPositionen.ReadOnly = True - Me.dgvRechnungenPositionen.RowHeadersVisible = False - Me.dgvRechnungenPositionen.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvRechnungenPositionen.Size = New System.Drawing.Size(811, 189) - Me.dgvRechnungenPositionen.TabIndex = 5 - Me.dgvRechnungenPositionen.TabStop = False - ' - 'Leistung - ' - Me.Leistung.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill - Me.Leistung.HeaderText = "Leistung" - Me.Leistung.Name = "Leistung" - Me.Leistung.ReadOnly = True - ' - 'Anzahl - ' - DataGridViewCellStyle8.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight - DataGridViewCellStyle8.Format = "N0" - DataGridViewCellStyle8.NullValue = Nothing - Me.Anzahl.DefaultCellStyle = DataGridViewCellStyle8 - Me.Anzahl.HeaderText = "Anzahl" - Me.Anzahl.Name = "Anzahl" - Me.Anzahl.ReadOnly = True - Me.Anzahl.Width = 50 - ' - 'Preis - ' - DataGridViewCellStyle9.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight - DataGridViewCellStyle9.Format = "c2" - Me.Preis.DefaultCellStyle = DataGridViewCellStyle9 - Me.Preis.HeaderText = "Preis" - Me.Preis.Name = "Preis" - Me.Preis.ReadOnly = True - Me.Preis.Width = 80 - ' - 'SteuerpflichtigerBetrag - ' - DataGridViewCellStyle10.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight - DataGridViewCellStyle10.Format = "c2" - Me.SteuerpflichtigerBetrag.DefaultCellStyle = DataGridViewCellStyle10 - Me.SteuerpflichtigerBetrag.HeaderText = "Steuerpfl." - Me.SteuerpflichtigerBetrag.Name = "SteuerpflichtigerBetrag" - Me.SteuerpflichtigerBetrag.ReadOnly = True - Me.SteuerpflichtigerBetrag.Width = 120 - ' - 'SteuerfreierBetrag - ' - DataGridViewCellStyle11.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight - DataGridViewCellStyle11.Format = "C2" - DataGridViewCellStyle11.NullValue = Nothing - Me.SteuerfreierBetrag.DefaultCellStyle = DataGridViewCellStyle11 - Me.SteuerfreierBetrag.HeaderText = "Steuerfrei" - Me.SteuerfreierBetrag.Name = "SteuerfreierBetrag" - Me.SteuerfreierBetrag.ReadOnly = True - Me.SteuerfreierBetrag.Width = 120 - ' - 'Aufschubkonto - ' - Me.Aufschubkonto.HeaderText = "Aufschubkonto" - Me.Aufschubkonto.Name = "Aufschubkonto" - Me.Aufschubkonto.ReadOnly = True - Me.Aufschubkonto.Width = 120 - ' 'dgvOffertenSperrliste ' Me.dgvOffertenSperrliste.AllowUserToAddRows = False @@ -2510,62 +1310,15 @@ Partial Class usrCntlFaktAbrechnung Me.dgvOffertenSperrliste.Name = "dgvOffertenSperrliste" Me.dgvOffertenSperrliste.ReadOnly = True Me.dgvOffertenSperrliste.RowHeadersVisible = False - DataGridViewCellStyle12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle12.SelectionBackColor = System.Drawing.Color.PapayaWhip - DataGridViewCellStyle12.SelectionForeColor = System.Drawing.Color.Black - Me.dgvOffertenSperrliste.RowsDefaultCellStyle = DataGridViewCellStyle12 + 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.PapayaWhip + 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(204, 201) Me.dgvOffertenSperrliste.TabIndex = 2 Me.dgvOffertenSperrliste.TabStop = False ' - 'dgvOfferteDetailsUebersicht - ' - Me.dgvOfferteDetailsUebersicht.AKTUALISIERUNGS_INTERVALL = -1 - Me.dgvOfferteDetailsUebersicht.AllowUserToAddRows = False - Me.dgvOfferteDetailsUebersicht.AllowUserToDeleteRows = False - Me.dgvOfferteDetailsUebersicht.AllowUserToOrderColumns = True - Me.dgvOfferteDetailsUebersicht.AllowUserToResizeRows = False - DataGridViewCellStyle13.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvOfferteDetailsUebersicht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle13 - Me.dgvOfferteDetailsUebersicht.BackgroundColor = System.Drawing.Color.White - Me.dgvOfferteDetailsUebersicht.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D - Me.dgvOfferteDetailsUebersicht.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - Me.dgvOfferteDetailsUebersicht.Location = New System.Drawing.Point(220, 29) - Me.dgvOfferteDetailsUebersicht.MultiSelect = False - Me.dgvOfferteDetailsUebersicht.Name = "dgvOfferteDetailsUebersicht" - Me.dgvOfferteDetailsUebersicht.RowHeadersVisible = False - DataGridViewCellStyle14.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle14.SelectionBackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer)) - DataGridViewCellStyle14.SelectionForeColor = System.Drawing.Color.Black - Me.dgvOfferteDetailsUebersicht.RowsDefaultCellStyle = DataGridViewCellStyle14 - Me.dgvOfferteDetailsUebersicht.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvOfferteDetailsUebersicht.Size = New System.Drawing.Size(601, 201) - Me.dgvOfferteDetailsUebersicht.TabIndex = 3 - ' - 'txtRohmasse - ' - Me.txtRohmasse._DateTimeOnly = False - Me.txtRohmasse._numbersOnly = False - Me.txtRohmasse._numbersOnlyKommastellen = "" - Me.txtRohmasse._Prozent = False - Me.txtRohmasse._ShortDateNew = False - Me.txtRohmasse._ShortDateOnly = False - Me.txtRohmasse._TimeOnly = False - Me.txtRohmasse._value = Nothing - Me.txtRohmasse._Waehrung = False - Me.txtRohmasse._WaehrungZeichen = True - Me.txtRohmasse.ForeColor = System.Drawing.Color.Black - Me.txtRohmasse.Location = New System.Drawing.Point(370, 115) - Me.txtRohmasse.MaxLength = 35 - 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(305, 20) - Me.txtRohmasse.TabIndex = 24 - Me.txtRohmasse.Visible = False - ' 'Label18 ' Me.Label18.AutoSize = True @@ -2577,29 +1330,6 @@ Partial Class usrCntlFaktAbrechnung Me.Label18.TextAlign = System.Drawing.ContentAlignment.TopRight Me.Label18.Visible = False ' - 'cboWaehrung - ' - Me.cboWaehrung._allowedValuesFreiText = Nothing - Me.cboWaehrung._allowFreiText = False - Me.cboWaehrung._value = "" - Me.cboWaehrung.FormattingEnabled = True - Me.cboWaehrung.Location = New System.Drawing.Point(102, 394) - Me.cboWaehrung.Name = "cboWaehrung" - Me.cboWaehrung.Size = New System.Drawing.Size(47, 21) - Me.cboWaehrung.TabIndex = 14 - ' - 'cboWaehrungUmrechnung - ' - Me.cboWaehrungUmrechnung._allowedValuesFreiText = Nothing - Me.cboWaehrungUmrechnung._allowFreiText = False - Me.cboWaehrungUmrechnung._value = "" - Me.cboWaehrungUmrechnung.Enabled = False - Me.cboWaehrungUmrechnung.FormattingEnabled = True - Me.cboWaehrungUmrechnung.Location = New System.Drawing.Point(102, 413) - Me.cboWaehrungUmrechnung.Name = "cboWaehrungUmrechnung" - Me.cboWaehrungUmrechnung.Size = New System.Drawing.Size(47, 21) - Me.cboWaehrungUmrechnung.TabIndex = 17 - ' 'pnlEmpfaenger ' Me.pnlEmpfaenger.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ @@ -2634,55 +1364,6 @@ Partial Class usrCntlFaktAbrechnung Me.btnEmpfaengerEuro.Text = "€" Me.btnEmpfaengerEuro.UseVisualStyleBackColor = True ' - 'txtkdNrEmpfaenger - ' - Me.txtkdNrEmpfaenger._DateTimeOnly = False - Me.txtkdNrEmpfaenger._numbersOnly = False - Me.txtkdNrEmpfaenger._numbersOnlyKommastellen = "" - Me.txtkdNrEmpfaenger._Prozent = False - Me.txtkdNrEmpfaenger._ShortDateNew = False - Me.txtkdNrEmpfaenger._ShortDateOnly = False - Me.txtkdNrEmpfaenger._TimeOnly = False - Me.txtkdNrEmpfaenger._value = Nothing - Me.txtkdNrEmpfaenger._Waehrung = False - Me.txtkdNrEmpfaenger._WaehrungZeichen = True - Me.txtkdNrEmpfaenger.BackColor = System.Drawing.Color.White - Me.txtkdNrEmpfaenger.ForeColor = System.Drawing.Color.Black - Me.txtkdNrEmpfaenger.Location = New System.Drawing.Point(8, 21) - Me.txtkdNrEmpfaenger.MaxLength = 35 - Me.txtkdNrEmpfaenger.MaxLineLength = -1 - Me.txtkdNrEmpfaenger.MaxLines_Warning = "" - Me.txtkdNrEmpfaenger.MaxLines_Warning_Label = Nothing - Me.txtkdNrEmpfaenger.Name = "txtkdNrEmpfaenger" - Me.txtkdNrEmpfaenger.ReadOnly = True - Me.txtkdNrEmpfaenger.Size = New System.Drawing.Size(94, 20) - Me.txtkdNrEmpfaenger.TabIndex = 1 - Me.txtkdNrEmpfaenger.TabStop = False - ' - 'txtEmpfeangerName2 - ' - Me.txtEmpfeangerName2._DateTimeOnly = False - Me.txtEmpfeangerName2._numbersOnly = False - Me.txtEmpfeangerName2._numbersOnlyKommastellen = "" - Me.txtEmpfeangerName2._Prozent = False - Me.txtEmpfeangerName2._ShortDateNew = False - Me.txtEmpfeangerName2._ShortDateOnly = False - Me.txtEmpfeangerName2._TimeOnly = False - Me.txtEmpfeangerName2._value = Nothing - Me.txtEmpfeangerName2._Waehrung = False - Me.txtEmpfeangerName2._WaehrungZeichen = True - Me.txtEmpfeangerName2.BackColor = System.Drawing.Color.White - Me.txtEmpfeangerName2.ForeColor = System.Drawing.Color.Black - Me.txtEmpfeangerName2.Location = New System.Drawing.Point(101, 40) - Me.txtEmpfeangerName2.MaxLength = 35 - Me.txtEmpfeangerName2.MaxLineLength = -1 - Me.txtEmpfeangerName2.MaxLines_Warning = "" - Me.txtEmpfeangerName2.MaxLines_Warning_Label = Nothing - Me.txtEmpfeangerName2.Name = "txtEmpfeangerName2" - Me.txtEmpfeangerName2.Size = New System.Drawing.Size(305, 20) - Me.txtEmpfeangerName2.TabIndex = 4 - Me.txtEmpfeangerName2.TabStop = False - ' 'Label5 ' Me.Label5.AutoSize = True @@ -2693,95 +1374,6 @@ Partial Class usrCntlFaktAbrechnung Me.Label5.TabIndex = 0 Me.Label5.Text = "2. Empfänger:" ' - 'txtEmpfaengerOrt - ' - Me.txtEmpfaengerOrt._DateTimeOnly = False - Me.txtEmpfaengerOrt._numbersOnly = False - Me.txtEmpfaengerOrt._numbersOnlyKommastellen = "" - Me.txtEmpfaengerOrt._Prozent = False - Me.txtEmpfaengerOrt._ShortDateNew = False - Me.txtEmpfaengerOrt._ShortDateOnly = False - Me.txtEmpfaengerOrt._TimeOnly = False - Me.txtEmpfaengerOrt._value = Nothing - Me.txtEmpfaengerOrt._Waehrung = False - Me.txtEmpfaengerOrt._WaehrungZeichen = True - Me.txtEmpfaengerOrt.BackColor = System.Drawing.Color.White - Me.txtEmpfaengerOrt.ForeColor = System.Drawing.Color.Black - Me.txtEmpfaengerOrt.Location = New System.Drawing.Point(101, 78) - Me.txtEmpfaengerOrt.MaxLength = 35 - Me.txtEmpfaengerOrt.MaxLineLength = -1 - Me.txtEmpfaengerOrt.MaxLines_Warning = "" - Me.txtEmpfaengerOrt.MaxLines_Warning_Label = Nothing - Me.txtEmpfaengerOrt.Name = "txtEmpfaengerOrt" - Me.txtEmpfaengerOrt.Size = New System.Drawing.Size(305, 20) - Me.txtEmpfaengerOrt.TabIndex = 7 - Me.txtEmpfaengerOrt.TabStop = False - ' - 'txtEmpfaengerStrasse - ' - Me.txtEmpfaengerStrasse._DateTimeOnly = False - Me.txtEmpfaengerStrasse._numbersOnly = False - Me.txtEmpfaengerStrasse._numbersOnlyKommastellen = "" - Me.txtEmpfaengerStrasse._Prozent = False - Me.txtEmpfaengerStrasse._ShortDateNew = False - Me.txtEmpfaengerStrasse._ShortDateOnly = False - Me.txtEmpfaengerStrasse._TimeOnly = False - Me.txtEmpfaengerStrasse._value = Nothing - Me.txtEmpfaengerStrasse._Waehrung = False - Me.txtEmpfaengerStrasse._WaehrungZeichen = True - Me.txtEmpfaengerStrasse.BackColor = System.Drawing.Color.White - Me.txtEmpfaengerStrasse.ForeColor = System.Drawing.Color.Black - Me.txtEmpfaengerStrasse.Location = New System.Drawing.Point(101, 59) - Me.txtEmpfaengerStrasse.MaxLength = 35 - Me.txtEmpfaengerStrasse.MaxLineLength = -1 - Me.txtEmpfaengerStrasse.MaxLines_Warning = "" - Me.txtEmpfaengerStrasse.MaxLines_Warning_Label = Nothing - Me.txtEmpfaengerStrasse.Name = "txtEmpfaengerStrasse" - Me.txtEmpfaengerStrasse.Size = New System.Drawing.Size(305, 20) - Me.txtEmpfaengerStrasse.TabIndex = 6 - Me.txtEmpfaengerStrasse.TabStop = False - ' - 'kdFirmaEmpfaenger - ' - Me.kdFirmaEmpfaenger._AllowSetValue = True - Me.kdFirmaEmpfaenger._autoSizeGross = False - Me.kdFirmaEmpfaenger._display_Name1 = True - Me.kdFirmaEmpfaenger._displayAVISO_Email = False - Me.kdFirmaEmpfaenger._displayFullName = False - Me.kdFirmaEmpfaenger._displayWoelflKd = False - Me.kdFirmaEmpfaenger._hideIfListEmpty = True - Me.kdFirmaEmpfaenger._loadKdData = True - Me.kdFirmaEmpfaenger._ValueKdAndName = False - Me.kdFirmaEmpfaenger.BackColor = System.Drawing.Color.White - Me.kdFirmaEmpfaenger.dgvpos = "LEFT" - Me.kdFirmaEmpfaenger.KdName = Nothing - Me.kdFirmaEmpfaenger.KdNr = "-1" - Me.kdFirmaEmpfaenger.kdNrField = Nothing - Me.kdFirmaEmpfaenger.KdNrNullInt = Nothing - Me.kdFirmaEmpfaenger.Location = New System.Drawing.Point(101, 21) - Me.kdFirmaEmpfaenger.MaxLength = 35 - Me.kdFirmaEmpfaenger.Name = "kdFirmaEmpfaenger" - Me.kdFirmaEmpfaenger.nurAktive = True - Me.kdFirmaEmpfaenger.searchActive = True - Me.kdFirmaEmpfaenger.Size = New System.Drawing.Size(283, 20) - Me.kdFirmaEmpfaenger.TabIndex = 3 - Me.kdFirmaEmpfaenger.TabStop = False - Me.kdFirmaEmpfaenger.usrcntl = Nothing - ' - 'FlatButton2 - ' - Me.FlatButton2.allowBorder = False - Me.FlatButton2.FlatAppearance.BorderSize = 0 - Me.FlatButton2.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.FlatButton2.ForeColor = System.Drawing.Color.Black - Me.FlatButton2.Image = Global.SDL.My.Resources.Resources.personInaktiv - Me.FlatButton2.Location = New System.Drawing.Point(382, 16) - Me.FlatButton2.Name = "FlatButton2" - Me.FlatButton2.Size = New System.Drawing.Size(24, 25) - Me.FlatButton2.TabIndex = 2 - Me.FlatButton2.TabStop = False - Me.FlatButton2.UseVisualStyleBackColor = True - ' 'pnl ' Me.pnl.BackColor = System.Drawing.Color.Gainsboro @@ -2817,6 +1409,17 @@ Partial Class usrCntlFaktAbrechnung Me.pnl.Size = New System.Drawing.Size(830, 139) Me.pnl.TabIndex = 2 ' + 'cbxOriginalPrint + ' + Me.cbxOriginalPrint.AutoSize = True + Me.cbxOriginalPrint.Location = New System.Drawing.Point(531, 6) + Me.cbxOriginalPrint.Name = "cbxOriginalPrint" + Me.cbxOriginalPrint.Size = New System.Drawing.Size(134, 17) + Me.cbxOriginalPrint.TabIndex = 28 + Me.cbxOriginalPrint.Text = "Original (ohne ""Kopie"")" + Me.cbxOriginalPrint.UseVisualStyleBackColor = True + Me.cbxOriginalPrint.Visible = False + ' 'pnlDocs ' Me.pnlDocs.Controls.Add(Me.Label51) @@ -3014,6 +1617,1403 @@ Partial Class usrCntlFaktAbrechnung Me.Label23.TabIndex = 2 Me.Label23.Text = "Steuer:" ' + 'Label37 + ' + Me.Label37.AutoSize = True + Me.Label37.Location = New System.Drawing.Point(390, 94) + Me.Label37.Name = "Label37" + Me.Label37.Size = New System.Drawing.Size(98, 13) + Me.Label37.TabIndex = 9 + Me.Label37.Text = "Steuerfreier Betrag:" + Me.Label37.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'Label36 + ' + Me.Label36.AutoSize = True + Me.Label36.Location = New System.Drawing.Point(390, 77) + Me.Label36.Name = "Label36" + Me.Label36.Size = New System.Drawing.Size(75, 13) + Me.Label36.TabIndex = 7 + Me.Label36.Text = "Steuer-Betrag:" + Me.Label36.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'Label33 + ' + Me.Label33.AutoSize = True + Me.Label33.Location = New System.Drawing.Point(390, 59) + Me.Label33.Name = "Label33" + Me.Label33.Size = New System.Drawing.Size(120, 13) + Me.Label33.TabIndex = 5 + Me.Label33.Text = "Steuerpflichtiger Betrag:" + Me.Label33.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'Label35 + ' + Me.Label35.AutoSize = True + Me.Label35.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label35.Location = New System.Drawing.Point(390, 117) + Me.Label35.Name = "Label35" + Me.Label35.Size = New System.Drawing.Size(91, 13) + Me.Label35.TabIndex = 11 + Me.Label35.Text = "Gesamtsumme:" + Me.Label35.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'Label28 + ' + Me.Label28.AutoSize = True + Me.Label28.Location = New System.Drawing.Point(6, 23) + Me.Label28.Name = "Label28" + Me.Label28.Size = New System.Drawing.Size(157, 13) + Me.Label28.TabIndex = 0 + Me.Label28.Text = "Besonderheiten für Verrechung:" + Me.Label28.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'txtPositionAnzahl + ' + Me.txtPositionAnzahl._DateTimeOnly = False + Me.txtPositionAnzahl._numbersOnly = False + Me.txtPositionAnzahl._numbersOnlyKommastellen = "" + Me.txtPositionAnzahl._Prozent = False + Me.txtPositionAnzahl._ShortDateNew = False + Me.txtPositionAnzahl._ShortDateOnly = False + Me.txtPositionAnzahl._TimeOnly = False + Me.txtPositionAnzahl._value = Nothing + Me.txtPositionAnzahl._Waehrung = False + Me.txtPositionAnzahl._WaehrungZeichen = True + Me.txtPositionAnzahl.ForeColor = System.Drawing.Color.Black + Me.txtPositionAnzahl.Location = New System.Drawing.Point(358, 21) + Me.txtPositionAnzahl.MaxLength = 35 + Me.txtPositionAnzahl.MaxLineLength = -1 + Me.txtPositionAnzahl.MaxLines_Warning = "" + Me.txtPositionAnzahl.MaxLines_Warning_Label = Nothing + Me.txtPositionAnzahl.Name = "txtPositionAnzahl" + Me.txtPositionAnzahl.ReadOnly = True + Me.txtPositionAnzahl.Size = New System.Drawing.Size(43, 20) + Me.txtPositionAnzahl.TabIndex = 46 + ' + 'txtAbfertigungsanzahl + ' + Me.txtAbfertigungsanzahl._DateTimeOnly = False + Me.txtAbfertigungsanzahl._numbersOnly = False + Me.txtAbfertigungsanzahl._numbersOnlyKommastellen = "" + Me.txtAbfertigungsanzahl._Prozent = False + Me.txtAbfertigungsanzahl._ShortDateNew = False + Me.txtAbfertigungsanzahl._ShortDateOnly = False + Me.txtAbfertigungsanzahl._TimeOnly = False + Me.txtAbfertigungsanzahl._value = Nothing + Me.txtAbfertigungsanzahl._Waehrung = False + Me.txtAbfertigungsanzahl._WaehrungZeichen = True + Me.txtAbfertigungsanzahl.ForeColor = System.Drawing.Color.Black + Me.txtAbfertigungsanzahl.Location = New System.Drawing.Point(358, 3) + Me.txtAbfertigungsanzahl.MaxLength = 35 + Me.txtAbfertigungsanzahl.MaxLineLength = -1 + Me.txtAbfertigungsanzahl.MaxLines_Warning = "" + Me.txtAbfertigungsanzahl.MaxLines_Warning_Label = Nothing + Me.txtAbfertigungsanzahl.Name = "txtAbfertigungsanzahl" + Me.txtAbfertigungsanzahl.ReadOnly = True + Me.txtAbfertigungsanzahl.Size = New System.Drawing.Size(43, 20) + Me.txtAbfertigungsanzahl.TabIndex = 44 + ' + 'txtAbfertigungsart + ' + Me.txtAbfertigungsart._DateTimeOnly = False + Me.txtAbfertigungsart._numbersOnly = False + Me.txtAbfertigungsart._numbersOnlyKommastellen = "" + Me.txtAbfertigungsart._Prozent = False + Me.txtAbfertigungsart._ShortDateNew = False + Me.txtAbfertigungsart._ShortDateOnly = False + Me.txtAbfertigungsart._TimeOnly = False + Me.txtAbfertigungsart._value = Nothing + Me.txtAbfertigungsart._Waehrung = False + Me.txtAbfertigungsart._WaehrungZeichen = True + Me.txtAbfertigungsart.ForeColor = System.Drawing.Color.Black + Me.txtAbfertigungsart.Location = New System.Drawing.Point(97, 3) + Me.txtAbfertigungsart.MaxLength = 35 + Me.txtAbfertigungsart.MaxLineLength = -1 + Me.txtAbfertigungsart.MaxLines_Warning = "" + Me.txtAbfertigungsart.MaxLines_Warning_Label = Nothing + Me.txtAbfertigungsart.Name = "txtAbfertigungsart" + Me.txtAbfertigungsart.ReadOnly = True + Me.txtAbfertigungsart.Size = New System.Drawing.Size(199, 20) + Me.txtAbfertigungsart.TabIndex = 42 + ' + 'txtkdNrAvisierer + ' + Me.txtkdNrAvisierer._DateTimeOnly = False + Me.txtkdNrAvisierer._numbersOnly = False + Me.txtkdNrAvisierer._numbersOnlyKommastellen = "" + Me.txtkdNrAvisierer._Prozent = False + Me.txtkdNrAvisierer._ShortDateNew = False + Me.txtkdNrAvisierer._ShortDateOnly = False + Me.txtkdNrAvisierer._TimeOnly = False + Me.txtkdNrAvisierer._value = Nothing + Me.txtkdNrAvisierer._Waehrung = False + Me.txtkdNrAvisierer._WaehrungZeichen = True + Me.txtkdNrAvisierer.BackColor = System.Drawing.Color.White + Me.txtkdNrAvisierer.ForeColor = System.Drawing.Color.Black + Me.txtkdNrAvisierer.Location = New System.Drawing.Point(8, 22) + Me.txtkdNrAvisierer.MaxLength = 35 + Me.txtkdNrAvisierer.MaxLineLength = -1 + Me.txtkdNrAvisierer.MaxLines_Warning = "" + Me.txtkdNrAvisierer.MaxLines_Warning_Label = Nothing + Me.txtkdNrAvisierer.Name = "txtkdNrAvisierer" + Me.txtkdNrAvisierer.ReadOnly = True + Me.txtkdNrAvisierer.Size = New System.Drawing.Size(94, 20) + Me.txtkdNrAvisierer.TabIndex = 1 + Me.txtkdNrAvisierer.TabStop = False + ' + 'txtAvisoId + ' + Me.txtAvisoId._DateTimeOnly = False + Me.txtAvisoId._numbersOnly = False + Me.txtAvisoId._numbersOnlyKommastellen = "" + Me.txtAvisoId._Prozent = False + Me.txtAvisoId._ShortDateNew = False + Me.txtAvisoId._ShortDateOnly = False + Me.txtAvisoId._TimeOnly = False + Me.txtAvisoId._value = Nothing + Me.txtAvisoId._Waehrung = False + Me.txtAvisoId._WaehrungZeichen = True + Me.txtAvisoId.ForeColor = System.Drawing.Color.Black + Me.txtAvisoId.Location = New System.Drawing.Point(157, 61) + Me.txtAvisoId.MaxLength = 35 + Me.txtAvisoId.MaxLineLength = -1 + Me.txtAvisoId.MaxLines_Warning = "" + Me.txtAvisoId.MaxLines_Warning_Label = Nothing + Me.txtAvisoId.Name = "txtAvisoId" + Me.txtAvisoId.ReadOnly = True + Me.txtAvisoId.Size = New System.Drawing.Size(126, 20) + Me.txtAvisoId.TabIndex = 6 + Me.txtAvisoId.TabStop = False + Me.txtAvisoId.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + 'kdFirmaAvisierer + ' + Me.kdFirmaAvisierer._AllowSetValue = True + Me.kdFirmaAvisierer._autoSizeGross = False + Me.kdFirmaAvisierer._display_Name1 = True + Me.kdFirmaAvisierer._displayAVISO_Email = False + Me.kdFirmaAvisierer._displayFullName = False + Me.kdFirmaAvisierer._displayWoelflKd = False + Me.kdFirmaAvisierer._hideIfListEmpty = True + Me.kdFirmaAvisierer._loadKdData = True + Me.kdFirmaAvisierer._ValueKdAndName = False + Me.kdFirmaAvisierer.BackColor = System.Drawing.Color.White + Me.kdFirmaAvisierer.dgvpos = "LEFT" + Me.kdFirmaAvisierer.KdName = Nothing + Me.kdFirmaAvisierer.KdNr = "-1" + Me.kdFirmaAvisierer.kdNrField = Nothing + Me.kdFirmaAvisierer.KdNrNullInt = Nothing + Me.kdFirmaAvisierer.Location = New System.Drawing.Point(101, 22) + Me.kdFirmaAvisierer.MaxLength = 35 + Me.kdFirmaAvisierer.Name = "kdFirmaAvisierer" + Me.kdFirmaAvisierer.nurAktive = True + Me.kdFirmaAvisierer.searchActive = True + Me.kdFirmaAvisierer.Size = New System.Drawing.Size(283, 20) + Me.kdFirmaAvisierer.TabIndex = 3 + Me.kdFirmaAvisierer.TabStop = False + Me.kdFirmaAvisierer.usrcntl = Nothing + ' + 'FlatButton5 + ' + Me.FlatButton5.allowBorder = False + Me.FlatButton5.FlatAppearance.BorderSize = 0 + Me.FlatButton5.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.FlatButton5.ForeColor = System.Drawing.Color.Black + Me.FlatButton5.Image = Global.SDL.My.Resources.Resources.personInaktiv + Me.FlatButton5.Location = New System.Drawing.Point(382, 17) + Me.FlatButton5.Name = "FlatButton5" + Me.FlatButton5.Size = New System.Drawing.Size(24, 25) + Me.FlatButton5.TabIndex = 2 + Me.FlatButton5.TabStop = False + Me.FlatButton5.UseVisualStyleBackColor = True + ' + 'cboAnlage5 + ' + Me.cboAnlage5._allowedValuesFreiText = Nothing + Me.cboAnlage5._allowFreiText = True + Me.cboAnlage5._value = "" + Me.cboAnlage5.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend + Me.cboAnlage5.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems + Me.cboAnlage5.FormattingEnabled = True + Me.cboAnlage5.Location = New System.Drawing.Point(423, 974) + Me.cboAnlage5.MaxLength = 35 + Me.cboAnlage5.Name = "cboAnlage5" + Me.cboAnlage5.Size = New System.Drawing.Size(398, 21) + Me.cboAnlage5.TabIndex = 32 + ' + 'cboAnlage1 + ' + Me.cboAnlage1._allowedValuesFreiText = Nothing + Me.cboAnlage1._allowFreiText = True + Me.cboAnlage1._value = "" + Me.cboAnlage1.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend + Me.cboAnlage1.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems + Me.cboAnlage1.FormattingEnabled = True + Me.cboAnlage1.Location = New System.Drawing.Point(10, 954) + Me.cboAnlage1.MaxLength = 35 + Me.cboAnlage1.Name = "cboAnlage1" + Me.cboAnlage1.Size = New System.Drawing.Size(397, 21) + Me.cboAnlage1.TabIndex = 28 + ' + 'txtWarenwertUmrechnung + ' + Me.txtWarenwertUmrechnung._DateTimeOnly = False + Me.txtWarenwertUmrechnung._numbersOnly = False + Me.txtWarenwertUmrechnung._numbersOnlyKommastellen = "" + Me.txtWarenwertUmrechnung._Prozent = False + Me.txtWarenwertUmrechnung._ShortDateNew = False + Me.txtWarenwertUmrechnung._ShortDateOnly = False + Me.txtWarenwertUmrechnung._TimeOnly = False + Me.txtWarenwertUmrechnung._value = "" + Me.txtWarenwertUmrechnung._Waehrung = True + Me.txtWarenwertUmrechnung._WaehrungZeichen = False + Me.txtWarenwertUmrechnung.Enabled = False + Me.txtWarenwertUmrechnung.ForeColor = System.Drawing.Color.Black + Me.txtWarenwertUmrechnung.Location = New System.Drawing.Point(147, 414) + Me.txtWarenwertUmrechnung.MaxLength = 35 + Me.txtWarenwertUmrechnung.MaxLineLength = -1 + Me.txtWarenwertUmrechnung.MaxLines_Warning = "" + Me.txtWarenwertUmrechnung.MaxLines_Warning_Label = Nothing + Me.txtWarenwertUmrechnung.Name = "txtWarenwertUmrechnung" + Me.txtWarenwertUmrechnung.Size = New System.Drawing.Size(129, 20) + Me.txtWarenwertUmrechnung.TabIndex = 18 + Me.txtWarenwertUmrechnung.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + 'cboAnlage2 + ' + Me.cboAnlage2._allowedValuesFreiText = Nothing + Me.cboAnlage2._allowFreiText = True + Me.cboAnlage2._value = "" + Me.cboAnlage2.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend + Me.cboAnlage2.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems + Me.cboAnlage2.FormattingEnabled = True + Me.cboAnlage2.Location = New System.Drawing.Point(10, 974) + Me.cboAnlage2.MaxLength = 35 + Me.cboAnlage2.Name = "cboAnlage2" + Me.cboAnlage2.Size = New System.Drawing.Size(397, 21) + Me.cboAnlage2.TabIndex = 29 + ' + 'cboAnlage3 + ' + Me.cboAnlage3._allowedValuesFreiText = Nothing + Me.cboAnlage3._allowFreiText = True + Me.cboAnlage3._value = "" + Me.cboAnlage3.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend + Me.cboAnlage3.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems + Me.cboAnlage3.FormattingEnabled = True + Me.cboAnlage3.Location = New System.Drawing.Point(10, 994) + Me.cboAnlage3.MaxLength = 35 + Me.cboAnlage3.Name = "cboAnlage3" + Me.cboAnlage3.Size = New System.Drawing.Size(397, 21) + Me.cboAnlage3.TabIndex = 30 + ' + 'txtVermerk + ' + Me.txtVermerk._DateTimeOnly = False + Me.txtVermerk._numbersOnly = False + Me.txtVermerk._numbersOnlyKommastellen = "" + Me.txtVermerk._Prozent = False + Me.txtVermerk._ShortDateNew = False + Me.txtVermerk._ShortDateOnly = False + Me.txtVermerk._TimeOnly = False + Me.txtVermerk._value = Nothing + Me.txtVermerk._Waehrung = False + Me.txtVermerk._WaehrungZeichen = True + Me.txtVermerk.ForeColor = System.Drawing.Color.Black + Me.txtVermerk.Location = New System.Drawing.Point(102, 456) + Me.txtVermerk.MaxLength = 35 + Me.txtVermerk.MaxLineLength = -1 + Me.txtVermerk.MaxLines_Warning = "" + Me.txtVermerk.MaxLines_Warning_Label = Nothing + Me.txtVermerk.Name = "txtVermerk" + Me.txtVermerk.Size = New System.Drawing.Size(305, 20) + Me.txtVermerk.TabIndex = 25 + ' + 'cboAnlage6 + ' + Me.cboAnlage6._allowedValuesFreiText = Nothing + Me.cboAnlage6._allowFreiText = True + Me.cboAnlage6._value = "" + Me.cboAnlage6.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend + Me.cboAnlage6.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems + Me.cboAnlage6.FormattingEnabled = True + Me.cboAnlage6.Location = New System.Drawing.Point(423, 994) + Me.cboAnlage6.MaxLength = 35 + Me.cboAnlage6.Name = "cboAnlage6" + Me.cboAnlage6.Size = New System.Drawing.Size(398, 21) + Me.cboAnlage6.TabIndex = 33 + ' + 'cboAnlage4 + ' + Me.cboAnlage4._allowedValuesFreiText = Nothing + Me.cboAnlage4._allowFreiText = True + Me.cboAnlage4._value = "" + Me.cboAnlage4.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend + Me.cboAnlage4.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems + Me.cboAnlage4.FormattingEnabled = True + Me.cboAnlage4.Location = New System.Drawing.Point(423, 954) + Me.cboAnlage4.MaxLength = 35 + Me.cboAnlage4.Name = "cboAnlage4" + Me.cboAnlage4.Size = New System.Drawing.Size(398, 21) + Me.cboAnlage4.TabIndex = 31 + ' + 'txtErfassungsnummer + ' + Me.txtErfassungsnummer._DateTimeOnly = False + Me.txtErfassungsnummer._numbersOnly = False + Me.txtErfassungsnummer._numbersOnlyKommastellen = "" + Me.txtErfassungsnummer._Prozent = False + Me.txtErfassungsnummer._ShortDateNew = False + Me.txtErfassungsnummer._ShortDateOnly = False + Me.txtErfassungsnummer._TimeOnly = False + Me.txtErfassungsnummer._value = Nothing + Me.txtErfassungsnummer._Waehrung = False + Me.txtErfassungsnummer._WaehrungZeichen = True + Me.txtErfassungsnummer.ForeColor = System.Drawing.Color.Black + Me.txtErfassungsnummer.Location = New System.Drawing.Point(516, 376) + Me.txtErfassungsnummer.MaxLength = 35 + Me.txtErfassungsnummer.MaxLineLength = -1 + Me.txtErfassungsnummer.MaxLines_Warning = "" + Me.txtErfassungsnummer.MaxLines_Warning_Label = Nothing + Me.txtErfassungsnummer.Name = "txtErfassungsnummer" + Me.txtErfassungsnummer.Size = New System.Drawing.Size(305, 20) + Me.txtErfassungsnummer.TabIndex = 11 + ' + 'cboRechnungNotiz + ' + Me.cboRechnungNotiz._allowedValuesFreiText = Nothing + Me.cboRechnungNotiz._allowFreiText = True + Me.cboRechnungNotiz._value = "" + Me.cboRechnungNotiz.FormattingEnabled = True + Me.cboRechnungNotiz.Location = New System.Drawing.Point(102, 1029) + Me.cboRechnungNotiz.Name = "cboRechnungNotiz" + Me.cboRechnungNotiz.Size = New System.Drawing.Size(718, 21) + Me.cboRechnungNotiz.TabIndex = 36 + ' + 'cboFirma + ' + Me.cboFirma._allowedValuesFreiText = Nothing + Me.cboFirma._allowFreiText = False + Me.cboFirma._value = "" + Me.cboFirma.FormattingEnabled = True + Me.cboFirma.Location = New System.Drawing.Point(592, 51) + Me.cboFirma.Margin = New System.Windows.Forms.Padding(2) + Me.cboFirma.Name = "cboFirma" + Me.cboFirma.Size = New System.Drawing.Size(229, 21) + Me.cboFirma.TabIndex = 1 + Me.cboFirma.TabStop = False + ' + 'txtkdNrAuftraggeber + ' + Me.txtkdNrAuftraggeber._DateTimeOnly = False + Me.txtkdNrAuftraggeber._numbersOnly = False + Me.txtkdNrAuftraggeber._numbersOnlyKommastellen = "" + Me.txtkdNrAuftraggeber._Prozent = False + Me.txtkdNrAuftraggeber._ShortDateNew = False + Me.txtkdNrAuftraggeber._ShortDateOnly = False + Me.txtkdNrAuftraggeber._TimeOnly = False + Me.txtkdNrAuftraggeber._value = Nothing + Me.txtkdNrAuftraggeber._Waehrung = False + Me.txtkdNrAuftraggeber._WaehrungZeichen = True + Me.txtkdNrAuftraggeber.BackColor = System.Drawing.Color.White + Me.txtkdNrAuftraggeber.ForeColor = System.Drawing.Color.Black + Me.txtkdNrAuftraggeber.Location = New System.Drawing.Point(8, 23) + Me.txtkdNrAuftraggeber.MaxLength = 35 + Me.txtkdNrAuftraggeber.MaxLineLength = -1 + Me.txtkdNrAuftraggeber.MaxLines_Warning = "" + Me.txtkdNrAuftraggeber.MaxLines_Warning_Label = Nothing + Me.txtkdNrAuftraggeber.Name = "txtkdNrAuftraggeber" + Me.txtkdNrAuftraggeber.ReadOnly = True + Me.txtkdNrAuftraggeber.Size = New System.Drawing.Size(94, 20) + Me.txtkdNrAuftraggeber.TabIndex = 1 + Me.txtkdNrAuftraggeber.TabStop = False + ' + 'kdFirmaAuftraggeber + ' + Me.kdFirmaAuftraggeber._AllowSetValue = True + Me.kdFirmaAuftraggeber._autoSizeGross = False + Me.kdFirmaAuftraggeber._display_Name1 = True + Me.kdFirmaAuftraggeber._displayAVISO_Email = False + Me.kdFirmaAuftraggeber._displayFullName = False + Me.kdFirmaAuftraggeber._displayWoelflKd = False + Me.kdFirmaAuftraggeber._hideIfListEmpty = True + Me.kdFirmaAuftraggeber._loadKdData = True + Me.kdFirmaAuftraggeber._ValueKdAndName = False + Me.kdFirmaAuftraggeber.BackColor = System.Drawing.Color.White + Me.kdFirmaAuftraggeber.dgvpos = "LEFT" + Me.kdFirmaAuftraggeber.KdName = Nothing + Me.kdFirmaAuftraggeber.KdNr = "-1" + Me.kdFirmaAuftraggeber.kdNrField = Nothing + Me.kdFirmaAuftraggeber.KdNrNullInt = Nothing + Me.kdFirmaAuftraggeber.Location = New System.Drawing.Point(101, 23) + Me.kdFirmaAuftraggeber.MaxLength = 35 + Me.kdFirmaAuftraggeber.Name = "kdFirmaAuftraggeber" + Me.kdFirmaAuftraggeber.nurAktive = True + Me.kdFirmaAuftraggeber.searchActive = True + Me.kdFirmaAuftraggeber.Size = New System.Drawing.Size(283, 20) + Me.kdFirmaAuftraggeber.TabIndex = 3 + Me.kdFirmaAuftraggeber.TabStop = False + Me.kdFirmaAuftraggeber.usrcntl = Nothing + ' + 'txtAuftraggeberName2 + ' + Me.txtAuftraggeberName2._DateTimeOnly = False + Me.txtAuftraggeberName2._numbersOnly = False + Me.txtAuftraggeberName2._numbersOnlyKommastellen = "" + Me.txtAuftraggeberName2._Prozent = False + Me.txtAuftraggeberName2._ShortDateNew = False + Me.txtAuftraggeberName2._ShortDateOnly = False + Me.txtAuftraggeberName2._TimeOnly = False + Me.txtAuftraggeberName2._value = Nothing + Me.txtAuftraggeberName2._Waehrung = False + Me.txtAuftraggeberName2._WaehrungZeichen = True + Me.txtAuftraggeberName2.BackColor = System.Drawing.Color.White + Me.txtAuftraggeberName2.ForeColor = System.Drawing.Color.Black + Me.txtAuftraggeberName2.Location = New System.Drawing.Point(101, 42) + Me.txtAuftraggeberName2.MaxLength = 35 + Me.txtAuftraggeberName2.MaxLineLength = -1 + Me.txtAuftraggeberName2.MaxLines_Warning = "" + Me.txtAuftraggeberName2.MaxLines_Warning_Label = Nothing + Me.txtAuftraggeberName2.Name = "txtAuftraggeberName2" + Me.txtAuftraggeberName2.Size = New System.Drawing.Size(305, 20) + Me.txtAuftraggeberName2.TabIndex = 4 + Me.txtAuftraggeberName2.TabStop = False + ' + 'txtAuftragggeberOrt + ' + Me.txtAuftragggeberOrt._DateTimeOnly = False + Me.txtAuftragggeberOrt._numbersOnly = False + Me.txtAuftragggeberOrt._numbersOnlyKommastellen = "" + Me.txtAuftragggeberOrt._Prozent = False + Me.txtAuftragggeberOrt._ShortDateNew = False + Me.txtAuftragggeberOrt._ShortDateOnly = False + Me.txtAuftragggeberOrt._TimeOnly = False + Me.txtAuftragggeberOrt._value = Nothing + Me.txtAuftragggeberOrt._Waehrung = False + Me.txtAuftragggeberOrt._WaehrungZeichen = True + Me.txtAuftragggeberOrt.BackColor = System.Drawing.Color.White + Me.txtAuftragggeberOrt.ForeColor = System.Drawing.Color.Black + Me.txtAuftragggeberOrt.Location = New System.Drawing.Point(101, 80) + Me.txtAuftragggeberOrt.MaxLength = 35 + Me.txtAuftragggeberOrt.MaxLineLength = -1 + Me.txtAuftragggeberOrt.MaxLines_Warning = "" + Me.txtAuftragggeberOrt.MaxLines_Warning_Label = Nothing + Me.txtAuftragggeberOrt.Name = "txtAuftragggeberOrt" + Me.txtAuftragggeberOrt.Size = New System.Drawing.Size(305, 20) + Me.txtAuftragggeberOrt.TabIndex = 7 + Me.txtAuftragggeberOrt.TabStop = False + ' + 'txtAuftragggeberStrasse + ' + Me.txtAuftragggeberStrasse._DateTimeOnly = False + Me.txtAuftragggeberStrasse._numbersOnly = False + Me.txtAuftragggeberStrasse._numbersOnlyKommastellen = "" + Me.txtAuftragggeberStrasse._Prozent = False + Me.txtAuftragggeberStrasse._ShortDateNew = False + Me.txtAuftragggeberStrasse._ShortDateOnly = False + Me.txtAuftragggeberStrasse._TimeOnly = False + Me.txtAuftragggeberStrasse._value = Nothing + Me.txtAuftragggeberStrasse._Waehrung = False + Me.txtAuftragggeberStrasse._WaehrungZeichen = True + Me.txtAuftragggeberStrasse.BackColor = System.Drawing.Color.White + Me.txtAuftragggeberStrasse.ForeColor = System.Drawing.Color.Black + Me.txtAuftragggeberStrasse.Location = New System.Drawing.Point(101, 61) + Me.txtAuftragggeberStrasse.MaxLength = 35 + Me.txtAuftragggeberStrasse.MaxLineLength = -1 + Me.txtAuftragggeberStrasse.MaxLines_Warning = "" + Me.txtAuftragggeberStrasse.MaxLines_Warning_Label = Nothing + Me.txtAuftragggeberStrasse.Name = "txtAuftragggeberStrasse" + Me.txtAuftragggeberStrasse.Size = New System.Drawing.Size(305, 20) + Me.txtAuftragggeberStrasse.TabIndex = 6 + Me.txtAuftragggeberStrasse.TabStop = False + ' + 'FlatButton4 + ' + Me.FlatButton4.allowBorder = False + Me.FlatButton4.FlatAppearance.BorderSize = 0 + Me.FlatButton4.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.FlatButton4.ForeColor = System.Drawing.Color.Black + Me.FlatButton4.Image = Global.SDL.My.Resources.Resources.personInaktiv + Me.FlatButton4.Location = New System.Drawing.Point(382, 18) + Me.FlatButton4.Name = "FlatButton4" + Me.FlatButton4.Size = New System.Drawing.Size(24, 25) + Me.FlatButton4.TabIndex = 2 + Me.FlatButton4.TabStop = False + Me.FlatButton4.UseVisualStyleBackColor = True + ' + 'txtText + ' + Me.txtText.Location = New System.Drawing.Point(102, 1071) + Me.txtText.MaxLineLength = -1 + Me.txtText.MaxLines_Warning = "" + Me.txtText.MaxLines_Warning_Label = Nothing + Me.txtText.Name = "txtText" + Me.txtText.ReadOnly = True + Me.txtText.Size = New System.Drawing.Size(720, 53) + Me.txtText.TabIndex = 35 + Me.txtText.Text = "" + ' + 'txtBefoerderungsmittel + ' + Me.txtBefoerderungsmittel._DateTimeOnly = False + Me.txtBefoerderungsmittel._numbersOnly = False + Me.txtBefoerderungsmittel._numbersOnlyKommastellen = "" + Me.txtBefoerderungsmittel._Prozent = False + Me.txtBefoerderungsmittel._ShortDateNew = False + Me.txtBefoerderungsmittel._ShortDateOnly = False + Me.txtBefoerderungsmittel._TimeOnly = False + Me.txtBefoerderungsmittel._value = Nothing + Me.txtBefoerderungsmittel._Waehrung = False + Me.txtBefoerderungsmittel._WaehrungZeichen = True + Me.txtBefoerderungsmittel.ForeColor = System.Drawing.Color.Black + Me.txtBefoerderungsmittel.Location = New System.Drawing.Point(516, 413) + Me.txtBefoerderungsmittel.MaxLength = 35 + Me.txtBefoerderungsmittel.MaxLineLength = -1 + Me.txtBefoerderungsmittel.MaxLines_Warning = "" + Me.txtBefoerderungsmittel.MaxLines_Warning_Label = Nothing + Me.txtBefoerderungsmittel.Name = "txtBefoerderungsmittel" + Me.txtBefoerderungsmittel.Size = New System.Drawing.Size(305, 20) + Me.txtBefoerderungsmittel.TabIndex = 19 + ' + 'txtGrenze + ' + Me.txtGrenze._DateTimeOnly = False + Me.txtGrenze._numbersOnly = False + Me.txtGrenze._numbersOnlyKommastellen = "" + Me.txtGrenze._Prozent = False + Me.txtGrenze._ShortDateNew = False + Me.txtGrenze._ShortDateOnly = False + Me.txtGrenze._TimeOnly = False + Me.txtGrenze._value = Nothing + Me.txtGrenze._Waehrung = False + Me.txtGrenze._WaehrungZeichen = True + Me.txtGrenze.Enabled = False + Me.txtGrenze.ForeColor = System.Drawing.Color.Black + Me.txtGrenze.Location = New System.Drawing.Point(516, 394) + Me.txtGrenze.MaxLength = 35 + Me.txtGrenze.MaxLineLength = -1 + Me.txtGrenze.MaxLines_Warning = "" + Me.txtGrenze.MaxLines_Warning_Label = Nothing + Me.txtGrenze.Name = "txtGrenze" + Me.txtGrenze.Size = New System.Drawing.Size(305, 20) + Me.txtGrenze.TabIndex = 16 + ' + 'txtSendungsdaten + ' + Me.txtSendungsdaten._DateTimeOnly = False + Me.txtSendungsdaten._numbersOnly = False + Me.txtSendungsdaten._numbersOnlyKommastellen = "" + Me.txtSendungsdaten._Prozent = False + Me.txtSendungsdaten._ShortDateNew = False + Me.txtSendungsdaten._ShortDateOnly = False + Me.txtSendungsdaten._TimeOnly = False + Me.txtSendungsdaten._value = Nothing + Me.txtSendungsdaten._Waehrung = False + Me.txtSendungsdaten._WaehrungZeichen = True + Me.txtSendungsdaten.ForeColor = System.Drawing.Color.Black + Me.txtSendungsdaten.Location = New System.Drawing.Point(102, 438) + Me.txtSendungsdaten.MaxLength = 35 + Me.txtSendungsdaten.MaxLineLength = -1 + Me.txtSendungsdaten.MaxLines_Warning = "" + Me.txtSendungsdaten.MaxLines_Warning_Label = Nothing + Me.txtSendungsdaten.Name = "txtSendungsdaten" + Me.txtSendungsdaten.Size = New System.Drawing.Size(305, 20) + Me.txtSendungsdaten.TabIndex = 22 + ' + '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 = Nothing + Me.txtWarenwert._Waehrung = True + Me.txtWarenwert._WaehrungZeichen = False + Me.txtWarenwert.ForeColor = System.Drawing.Color.Black + Me.txtWarenwert.Location = New System.Drawing.Point(147, 395) + Me.txtWarenwert.MaxLength = 35 + 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(129, 20) + Me.txtWarenwert.TabIndex = 15 + Me.txtWarenwert.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + 'txtZollbelegNr + ' + Me.txtZollbelegNr._DateTimeOnly = False + Me.txtZollbelegNr._numbersOnly = False + Me.txtZollbelegNr._numbersOnlyKommastellen = "" + Me.txtZollbelegNr._Prozent = False + Me.txtZollbelegNr._ShortDateNew = False + Me.txtZollbelegNr._ShortDateOnly = False + Me.txtZollbelegNr._TimeOnly = False + Me.txtZollbelegNr._value = Nothing + Me.txtZollbelegNr._Waehrung = False + Me.txtZollbelegNr._WaehrungZeichen = True + Me.txtZollbelegNr.ForeColor = System.Drawing.Color.Black + Me.txtZollbelegNr.Location = New System.Drawing.Point(102, 376) + Me.txtZollbelegNr.MaxLength = 35 + Me.txtZollbelegNr.MaxLineLength = -1 + Me.txtZollbelegNr.MaxLines_Warning = "" + Me.txtZollbelegNr.MaxLines_Warning_Label = Nothing + Me.txtZollbelegNr.Name = "txtZollbelegNr" + Me.txtZollbelegNr.Size = New System.Drawing.Size(305, 20) + Me.txtZollbelegNr.TabIndex = 10 + ' + 'cboSammelrechnung + ' + Me.cboSammelrechnung._allowedValuesFreiText = Nothing + Me.cboSammelrechnung._allowFreiText = False + Me.cboSammelrechnung._value = "" + Me.cboSammelrechnung.FormattingEnabled = True + Me.cboSammelrechnung.Location = New System.Drawing.Point(282, 17) + Me.cboSammelrechnung.Name = "cboSammelrechnung" + Me.cboSammelrechnung.Size = New System.Drawing.Size(102, 21) + Me.cboSammelrechnung.TabIndex = 2 + ' + 'txtRechnungAnName2 + ' + Me.txtRechnungAnName2._DateTimeOnly = False + Me.txtRechnungAnName2._numbersOnly = False + Me.txtRechnungAnName2._numbersOnlyKommastellen = "" + Me.txtRechnungAnName2._Prozent = False + Me.txtRechnungAnName2._ShortDateNew = False + Me.txtRechnungAnName2._ShortDateOnly = False + Me.txtRechnungAnName2._TimeOnly = False + Me.txtRechnungAnName2._value = Nothing + Me.txtRechnungAnName2._Waehrung = False + Me.txtRechnungAnName2._WaehrungZeichen = True + Me.txtRechnungAnName2.ForeColor = System.Drawing.Color.Black + Me.txtRechnungAnName2.Location = New System.Drawing.Point(101, 56) + Me.txtRechnungAnName2.MaxLength = 35 + Me.txtRechnungAnName2.MaxLineLength = -1 + Me.txtRechnungAnName2.MaxLines_Warning = "" + Me.txtRechnungAnName2.MaxLines_Warning_Label = Nothing + Me.txtRechnungAnName2.Name = "txtRechnungAnName2" + Me.txtRechnungAnName2.Size = New System.Drawing.Size(306, 20) + Me.txtRechnungAnName2.TabIndex = 11 + Me.txtRechnungAnName2.TabStop = False + ' + 'kdFirmaRechnungAn + ' + Me.kdFirmaRechnungAn._AllowSetValue = True + Me.kdFirmaRechnungAn._autoSizeGross = False + Me.kdFirmaRechnungAn._display_Name1 = True + Me.kdFirmaRechnungAn._displayAVISO_Email = False + Me.kdFirmaRechnungAn._displayFullName = False + Me.kdFirmaRechnungAn._displayWoelflKd = False + Me.kdFirmaRechnungAn._hideIfListEmpty = True + Me.kdFirmaRechnungAn._loadKdData = True + Me.kdFirmaRechnungAn._ValueKdAndName = False + Me.kdFirmaRechnungAn.dgvpos = "LEFT" + Me.kdFirmaRechnungAn.KdName = Nothing + Me.kdFirmaRechnungAn.KdNr = "-1" + Me.kdFirmaRechnungAn.kdNrField = Nothing + Me.kdFirmaRechnungAn.KdNrNullInt = Nothing + Me.kdFirmaRechnungAn.Location = New System.Drawing.Point(101, 37) + Me.kdFirmaRechnungAn.MaxLength = 35 + Me.kdFirmaRechnungAn.Name = "kdFirmaRechnungAn" + Me.kdFirmaRechnungAn.nurAktive = True + Me.kdFirmaRechnungAn.searchActive = True + Me.kdFirmaRechnungAn.Size = New System.Drawing.Size(283, 20) + Me.kdFirmaRechnungAn.TabIndex = 5 + Me.kdFirmaRechnungAn.TabStop = False + Me.kdFirmaRechnungAn.usrcntl = Nothing + ' + 'FlatButton3 + ' + Me.FlatButton3.allowBorder = False + Me.FlatButton3.FlatAppearance.BorderSize = 0 + Me.FlatButton3.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.FlatButton3.ForeColor = System.Drawing.Color.Black + Me.FlatButton3.Image = Global.SDL.My.Resources.Resources.personInaktiv + Me.FlatButton3.Location = New System.Drawing.Point(383, 32) + Me.FlatButton3.Name = "FlatButton3" + Me.FlatButton3.Size = New System.Drawing.Size(24, 25) + Me.FlatButton3.TabIndex = 7 + Me.FlatButton3.TabStop = False + Me.FlatButton3.UseVisualStyleBackColor = True + ' + 'txtKdAuftragsNr + ' + Me.txtKdAuftragsNr._DateTimeOnly = False + Me.txtKdAuftragsNr._numbersOnly = False + Me.txtKdAuftragsNr._numbersOnlyKommastellen = "" + Me.txtKdAuftragsNr._Prozent = False + Me.txtKdAuftragsNr._ShortDateNew = False + Me.txtKdAuftragsNr._ShortDateOnly = False + Me.txtKdAuftragsNr._TimeOnly = False + Me.txtKdAuftragsNr._value = Nothing + Me.txtKdAuftragsNr._Waehrung = False + Me.txtKdAuftragsNr._WaehrungZeichen = True + Me.txtKdAuftragsNr.ForeColor = System.Drawing.Color.Black + Me.txtKdAuftragsNr.Location = New System.Drawing.Point(101, 116) + Me.txtKdAuftragsNr.MaxLength = 35 + Me.txtKdAuftragsNr.MaxLineLength = -1 + Me.txtKdAuftragsNr.MaxLines_Warning = "" + Me.txtKdAuftragsNr.MaxLines_Warning_Label = Nothing + Me.txtKdAuftragsNr.Name = "txtKdAuftragsNr" + Me.txtKdAuftragsNr.Size = New System.Drawing.Size(306, 20) + Me.txtKdAuftragsNr.TabIndex = 20 + ' + 'txtRechnungAnUIDKz + ' + Me.txtRechnungAnUIDKz._DateTimeOnly = False + Me.txtRechnungAnUIDKz._numbersOnly = False + Me.txtRechnungAnUIDKz._numbersOnlyKommastellen = "" + Me.txtRechnungAnUIDKz._Prozent = False + Me.txtRechnungAnUIDKz._ShortDateNew = False + Me.txtRechnungAnUIDKz._ShortDateOnly = False + Me.txtRechnungAnUIDKz._TimeOnly = False + Me.txtRechnungAnUIDKz._value = Nothing + Me.txtRechnungAnUIDKz._Waehrung = False + Me.txtRechnungAnUIDKz._WaehrungZeichen = True + Me.txtRechnungAnUIDKz.ForeColor = System.Drawing.Color.Black + Me.txtRechnungAnUIDKz.Location = New System.Drawing.Point(481, 56) + Me.txtRechnungAnUIDKz.MaxLength = 35 + Me.txtRechnungAnUIDKz.MaxLineLength = -1 + Me.txtRechnungAnUIDKz.MaxLines_Warning = "" + Me.txtRechnungAnUIDKz.MaxLines_Warning_Label = Nothing + Me.txtRechnungAnUIDKz.Name = "txtRechnungAnUIDKz" + Me.txtRechnungAnUIDKz.Size = New System.Drawing.Size(27, 20) + Me.txtRechnungAnUIDKz.TabIndex = 18 + Me.txtRechnungAnUIDKz.TabStop = False + ' + 'cboRechnungAn + ' + Me.cboRechnungAn._allowedValuesFreiText = Nothing + Me.cboRechnungAn._allowFreiText = False + Me.cboRechnungAn._value = "" + Me.cboRechnungAn.FormattingEnabled = True + Me.cboRechnungAn.Location = New System.Drawing.Point(101, 17) + Me.cboRechnungAn.Name = "cboRechnungAn" + Me.cboRechnungAn.Size = New System.Drawing.Size(183, 21) + Me.cboRechnungAn.TabIndex = 1 + ' + 'txtRechnungAnUIDNr + ' + Me.txtRechnungAnUIDNr._DateTimeOnly = False + Me.txtRechnungAnUIDNr._numbersOnly = False + Me.txtRechnungAnUIDNr._numbersOnlyKommastellen = "" + Me.txtRechnungAnUIDNr._Prozent = False + Me.txtRechnungAnUIDNr._ShortDateNew = False + Me.txtRechnungAnUIDNr._ShortDateOnly = False + Me.txtRechnungAnUIDNr._TimeOnly = False + Me.txtRechnungAnUIDNr._value = Nothing + Me.txtRechnungAnUIDNr._Waehrung = False + Me.txtRechnungAnUIDNr._WaehrungZeichen = True + Me.txtRechnungAnUIDNr.ForeColor = System.Drawing.Color.Black + Me.txtRechnungAnUIDNr.Location = New System.Drawing.Point(506, 56) + Me.txtRechnungAnUIDNr.MaxLength = 35 + Me.txtRechnungAnUIDNr.MaxLineLength = -1 + Me.txtRechnungAnUIDNr.MaxLines_Warning = "" + Me.txtRechnungAnUIDNr.MaxLines_Warning_Label = Nothing + Me.txtRechnungAnUIDNr.Name = "txtRechnungAnUIDNr" + Me.txtRechnungAnUIDNr.Size = New System.Drawing.Size(69, 20) + Me.txtRechnungAnUIDNr.TabIndex = 13 + Me.txtRechnungAnUIDNr.TabStop = False + ' + 'txtRechnungAnBuKdNr + ' + Me.txtRechnungAnBuKdNr._DateTimeOnly = False + Me.txtRechnungAnBuKdNr._numbersOnly = False + Me.txtRechnungAnBuKdNr._numbersOnlyKommastellen = "" + Me.txtRechnungAnBuKdNr._Prozent = False + Me.txtRechnungAnBuKdNr._ShortDateNew = False + Me.txtRechnungAnBuKdNr._ShortDateOnly = False + Me.txtRechnungAnBuKdNr._TimeOnly = False + Me.txtRechnungAnBuKdNr._value = Nothing + Me.txtRechnungAnBuKdNr._Waehrung = False + Me.txtRechnungAnBuKdNr._WaehrungZeichen = True + Me.txtRechnungAnBuKdNr.ForeColor = System.Drawing.Color.Black + Me.txtRechnungAnBuKdNr.Location = New System.Drawing.Point(481, 37) + Me.txtRechnungAnBuKdNr.MaxLength = 35 + Me.txtRechnungAnBuKdNr.MaxLineLength = -1 + Me.txtRechnungAnBuKdNr.MaxLines_Warning = "" + Me.txtRechnungAnBuKdNr.MaxLines_Warning_Label = Nothing + Me.txtRechnungAnBuKdNr.Name = "txtRechnungAnBuKdNr" + Me.txtRechnungAnBuKdNr.Size = New System.Drawing.Size(94, 20) + Me.txtRechnungAnBuKdNr.TabIndex = 10 + Me.txtRechnungAnBuKdNr.TabStop = False + ' + 'txtkdNrRechnungAn + ' + Me.txtkdNrRechnungAn._DateTimeOnly = False + Me.txtkdNrRechnungAn._numbersOnly = False + Me.txtkdNrRechnungAn._numbersOnlyKommastellen = "" + Me.txtkdNrRechnungAn._Prozent = False + Me.txtkdNrRechnungAn._ShortDateNew = False + Me.txtkdNrRechnungAn._ShortDateOnly = False + Me.txtkdNrRechnungAn._TimeOnly = False + Me.txtkdNrRechnungAn._value = Nothing + Me.txtkdNrRechnungAn._Waehrung = False + Me.txtkdNrRechnungAn._WaehrungZeichen = True + Me.txtkdNrRechnungAn.ForeColor = System.Drawing.Color.Black + Me.txtkdNrRechnungAn.Location = New System.Drawing.Point(8, 37) + Me.txtkdNrRechnungAn.MaxLength = 35 + Me.txtkdNrRechnungAn.MaxLineLength = -1 + Me.txtkdNrRechnungAn.MaxLines_Warning = "" + Me.txtkdNrRechnungAn.MaxLines_Warning_Label = Nothing + Me.txtkdNrRechnungAn.Name = "txtkdNrRechnungAn" + Me.txtkdNrRechnungAn.Size = New System.Drawing.Size(94, 20) + Me.txtkdNrRechnungAn.TabIndex = 3 + Me.txtkdNrRechnungAn.TabStop = False + ' + 'txtRechnungAnOrt + ' + Me.txtRechnungAnOrt._DateTimeOnly = False + Me.txtRechnungAnOrt._numbersOnly = False + Me.txtRechnungAnOrt._numbersOnlyKommastellen = "" + Me.txtRechnungAnOrt._Prozent = False + Me.txtRechnungAnOrt._ShortDateNew = False + Me.txtRechnungAnOrt._ShortDateOnly = False + Me.txtRechnungAnOrt._TimeOnly = False + Me.txtRechnungAnOrt._value = Nothing + Me.txtRechnungAnOrt._Waehrung = False + Me.txtRechnungAnOrt._WaehrungZeichen = True + Me.txtRechnungAnOrt.ForeColor = System.Drawing.Color.Black + Me.txtRechnungAnOrt.Location = New System.Drawing.Point(101, 94) + Me.txtRechnungAnOrt.MaxLength = 35 + Me.txtRechnungAnOrt.MaxLineLength = -1 + Me.txtRechnungAnOrt.MaxLines_Warning = "" + Me.txtRechnungAnOrt.MaxLines_Warning_Label = Nothing + Me.txtRechnungAnOrt.Name = "txtRechnungAnOrt" + Me.txtRechnungAnOrt.Size = New System.Drawing.Size(306, 20) + Me.txtRechnungAnOrt.TabIndex = 17 + Me.txtRechnungAnOrt.TabStop = False + ' + 'txtRechnungAnStrasse + ' + Me.txtRechnungAnStrasse._DateTimeOnly = False + Me.txtRechnungAnStrasse._numbersOnly = False + Me.txtRechnungAnStrasse._numbersOnlyKommastellen = "" + Me.txtRechnungAnStrasse._Prozent = False + Me.txtRechnungAnStrasse._ShortDateNew = False + Me.txtRechnungAnStrasse._ShortDateOnly = False + Me.txtRechnungAnStrasse._TimeOnly = False + Me.txtRechnungAnStrasse._value = Nothing + Me.txtRechnungAnStrasse._Waehrung = False + Me.txtRechnungAnStrasse._WaehrungZeichen = True + Me.txtRechnungAnStrasse.ForeColor = System.Drawing.Color.Black + Me.txtRechnungAnStrasse.Location = New System.Drawing.Point(101, 75) + Me.txtRechnungAnStrasse.MaxLength = 35 + Me.txtRechnungAnStrasse.MaxLineLength = -1 + Me.txtRechnungAnStrasse.MaxLines_Warning = "" + Me.txtRechnungAnStrasse.MaxLines_Warning_Label = Nothing + Me.txtRechnungAnStrasse.Name = "txtRechnungAnStrasse" + Me.txtRechnungAnStrasse.Size = New System.Drawing.Size(306, 20) + Me.txtRechnungAnStrasse.TabIndex = 14 + Me.txtRechnungAnStrasse.TabStop = False + ' + 'txtkdNrAbsender + ' + Me.txtkdNrAbsender._DateTimeOnly = False + Me.txtkdNrAbsender._numbersOnly = False + Me.txtkdNrAbsender._numbersOnlyKommastellen = "" + Me.txtkdNrAbsender._Prozent = False + Me.txtkdNrAbsender._ShortDateNew = False + Me.txtkdNrAbsender._ShortDateOnly = False + Me.txtkdNrAbsender._TimeOnly = False + Me.txtkdNrAbsender._value = Nothing + Me.txtkdNrAbsender._Waehrung = False + Me.txtkdNrAbsender._WaehrungZeichen = True + Me.txtkdNrAbsender.BackColor = System.Drawing.Color.White + Me.txtkdNrAbsender.ForeColor = System.Drawing.Color.Black + Me.txtkdNrAbsender.Location = New System.Drawing.Point(8, 23) + Me.txtkdNrAbsender.MaxLength = 35 + Me.txtkdNrAbsender.MaxLineLength = -1 + Me.txtkdNrAbsender.MaxLines_Warning = "" + Me.txtkdNrAbsender.MaxLines_Warning_Label = Nothing + Me.txtkdNrAbsender.Name = "txtkdNrAbsender" + Me.txtkdNrAbsender.ReadOnly = True + Me.txtkdNrAbsender.Size = New System.Drawing.Size(94, 20) + Me.txtkdNrAbsender.TabIndex = 1 + Me.txtkdNrAbsender.TabStop = False + ' + 'kdFirmaAbsender + ' + Me.kdFirmaAbsender._AllowSetValue = True + Me.kdFirmaAbsender._autoSizeGross = False + Me.kdFirmaAbsender._display_Name1 = True + Me.kdFirmaAbsender._displayAVISO_Email = False + Me.kdFirmaAbsender._displayFullName = False + Me.kdFirmaAbsender._displayWoelflKd = False + Me.kdFirmaAbsender._hideIfListEmpty = True + Me.kdFirmaAbsender._loadKdData = True + Me.kdFirmaAbsender._ValueKdAndName = False + Me.kdFirmaAbsender.BackColor = System.Drawing.Color.White + Me.kdFirmaAbsender.dgvpos = "LEFT" + Me.kdFirmaAbsender.KdName = Nothing + Me.kdFirmaAbsender.KdNr = "-1" + Me.kdFirmaAbsender.kdNrField = Nothing + Me.kdFirmaAbsender.KdNrNullInt = Nothing + Me.kdFirmaAbsender.Location = New System.Drawing.Point(101, 23) + Me.kdFirmaAbsender.MaxLength = 35 + Me.kdFirmaAbsender.Name = "kdFirmaAbsender" + Me.kdFirmaAbsender.nurAktive = True + Me.kdFirmaAbsender.searchActive = True + Me.kdFirmaAbsender.Size = New System.Drawing.Size(283, 20) + Me.kdFirmaAbsender.TabIndex = 3 + Me.kdFirmaAbsender.TabStop = False + Me.kdFirmaAbsender.usrcntl = Nothing + ' + 'txtAbsenderName2 + ' + Me.txtAbsenderName2._DateTimeOnly = False + Me.txtAbsenderName2._numbersOnly = False + Me.txtAbsenderName2._numbersOnlyKommastellen = "" + Me.txtAbsenderName2._Prozent = False + Me.txtAbsenderName2._ShortDateNew = False + Me.txtAbsenderName2._ShortDateOnly = False + Me.txtAbsenderName2._TimeOnly = False + Me.txtAbsenderName2._value = Nothing + Me.txtAbsenderName2._Waehrung = False + Me.txtAbsenderName2._WaehrungZeichen = True + Me.txtAbsenderName2.BackColor = System.Drawing.Color.White + Me.txtAbsenderName2.ForeColor = System.Drawing.Color.Black + Me.txtAbsenderName2.Location = New System.Drawing.Point(101, 42) + Me.txtAbsenderName2.MaxLength = 35 + Me.txtAbsenderName2.MaxLineLength = -1 + Me.txtAbsenderName2.MaxLines_Warning = "" + Me.txtAbsenderName2.MaxLines_Warning_Label = Nothing + Me.txtAbsenderName2.Name = "txtAbsenderName2" + Me.txtAbsenderName2.Size = New System.Drawing.Size(305, 20) + Me.txtAbsenderName2.TabIndex = 4 + Me.txtAbsenderName2.TabStop = False + ' + 'txtAbsenderOrt + ' + Me.txtAbsenderOrt._DateTimeOnly = False + Me.txtAbsenderOrt._numbersOnly = False + Me.txtAbsenderOrt._numbersOnlyKommastellen = "" + Me.txtAbsenderOrt._Prozent = False + Me.txtAbsenderOrt._ShortDateNew = False + Me.txtAbsenderOrt._ShortDateOnly = False + Me.txtAbsenderOrt._TimeOnly = False + Me.txtAbsenderOrt._value = Nothing + Me.txtAbsenderOrt._Waehrung = False + Me.txtAbsenderOrt._WaehrungZeichen = True + Me.txtAbsenderOrt.BackColor = System.Drawing.Color.White + Me.txtAbsenderOrt.ForeColor = System.Drawing.Color.Black + Me.txtAbsenderOrt.Location = New System.Drawing.Point(101, 80) + Me.txtAbsenderOrt.MaxLength = 35 + Me.txtAbsenderOrt.MaxLineLength = -1 + Me.txtAbsenderOrt.MaxLines_Warning = "" + Me.txtAbsenderOrt.MaxLines_Warning_Label = Nothing + Me.txtAbsenderOrt.Name = "txtAbsenderOrt" + Me.txtAbsenderOrt.Size = New System.Drawing.Size(305, 20) + Me.txtAbsenderOrt.TabIndex = 7 + Me.txtAbsenderOrt.TabStop = False + ' + 'txtAbsenderStrasse + ' + Me.txtAbsenderStrasse._DateTimeOnly = False + Me.txtAbsenderStrasse._numbersOnly = False + Me.txtAbsenderStrasse._numbersOnlyKommastellen = "" + Me.txtAbsenderStrasse._Prozent = False + Me.txtAbsenderStrasse._ShortDateNew = False + Me.txtAbsenderStrasse._ShortDateOnly = False + Me.txtAbsenderStrasse._TimeOnly = False + Me.txtAbsenderStrasse._value = Nothing + Me.txtAbsenderStrasse._Waehrung = False + Me.txtAbsenderStrasse._WaehrungZeichen = True + Me.txtAbsenderStrasse.BackColor = System.Drawing.Color.White + Me.txtAbsenderStrasse.ForeColor = System.Drawing.Color.Black + Me.txtAbsenderStrasse.Location = New System.Drawing.Point(101, 61) + Me.txtAbsenderStrasse.MaxLength = 35 + Me.txtAbsenderStrasse.MaxLineLength = -1 + Me.txtAbsenderStrasse.MaxLines_Warning = "" + Me.txtAbsenderStrasse.MaxLines_Warning_Label = Nothing + Me.txtAbsenderStrasse.Name = "txtAbsenderStrasse" + Me.txtAbsenderStrasse.Size = New System.Drawing.Size(305, 20) + Me.txtAbsenderStrasse.TabIndex = 6 + Me.txtAbsenderStrasse.TabStop = False + ' + 'FlatButton1 + ' + Me.FlatButton1.allowBorder = False + Me.FlatButton1.FlatAppearance.BorderSize = 0 + Me.FlatButton1.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.FlatButton1.ForeColor = System.Drawing.Color.Black + Me.FlatButton1.Image = Global.SDL.My.Resources.Resources.personInaktiv + Me.FlatButton1.Location = New System.Drawing.Point(382, 18) + Me.FlatButton1.Name = "FlatButton1" + Me.FlatButton1.Size = New System.Drawing.Size(24, 25) + Me.FlatButton1.TabIndex = 2 + Me.FlatButton1.TabStop = False + Me.FlatButton1.UseVisualStyleBackColor = True + ' + 'sbLeistung + ' + Me.sbLeistung._allowFreitext = False + Me.sbLeistung._AllowSetValue = False + Me.sbLeistung._autoSizeGross = False + Me.sbLeistung._hideIfListEmpty = True + Me.sbLeistung._value = Nothing + Me.sbLeistung.conn_art = "FMZOLL" + Me.sbLeistung.dgvpos = "LEFT" + Me.sbLeistung.DISPLAY_PARAM = Nothing + Me.sbLeistung.INVISIBLE_COLUMNS = Nothing + Me.sbLeistung.key_visible = False + Me.sbLeistung.KEYPARAM = Nothing + Me.sbLeistung.Location = New System.Drawing.Point(595, 232) + Me.sbLeistung.Name = "sbLeistung" + Me.sbLeistung.searchActive = True + Me.sbLeistung.Size = New System.Drawing.Size(189, 20) + Me.sbLeistung.SQL_ORDER_BY = Nothing + Me.sbLeistung.SQL_SELECT = Nothing + Me.sbLeistung.SQL_WHERE = Nothing + Me.sbLeistung.SQL_WhereParamList = Nothing + Me.sbLeistung.TabIndex = 14 + Me.sbLeistung.usrcntl = Nothing + ' + 'txtUnterNrRef + ' + Me.txtUnterNrRef._DateTimeOnly = False + Me.txtUnterNrRef._numbersOnly = False + Me.txtUnterNrRef._numbersOnlyKommastellen = "" + Me.txtUnterNrRef._Prozent = False + Me.txtUnterNrRef._ShortDateNew = False + Me.txtUnterNrRef._ShortDateOnly = False + Me.txtUnterNrRef._TimeOnly = False + Me.txtUnterNrRef._value = Nothing + Me.txtUnterNrRef._Waehrung = False + Me.txtUnterNrRef._WaehrungZeichen = True + Me.txtUnterNrRef.Font = New System.Drawing.Font("Microsoft Tai Le", 8.0!) + Me.txtUnterNrRef.Location = New System.Drawing.Point(536, 69) + Me.txtUnterNrRef.MaxLineLength = -1 + Me.txtUnterNrRef.MaxLines_Warning = "" + Me.txtUnterNrRef.MaxLines_Warning_Label = Nothing + Me.txtUnterNrRef.Name = "txtUnterNrRef" + Me.txtUnterNrRef.Size = New System.Drawing.Size(39, 21) + Me.txtUnterNrRef.TabIndex = 8 + Me.txtUnterNrRef.Visible = False + ' + 'cboFilialeRef + ' + Me.cboFilialeRef._allowedValuesFreiText = Nothing + Me.cboFilialeRef._allowFreiText = False + Me.cboFilialeRef._value = "" + Me.cboFilialeRef.DropDownWidth = 280 + Me.cboFilialeRef.Font = New System.Drawing.Font("Microsoft Tai Le", 8.0!) + Me.cboFilialeRef.FormattingEnabled = True + Me.cboFilialeRef.Location = New System.Drawing.Point(289, 68) + Me.cboFilialeRef.Name = "cboFilialeRef" + Me.cboFilialeRef.Size = New System.Drawing.Size(80, 22) + Me.cboFilialeRef.TabIndex = 6 + Me.cboFilialeRef.Visible = False + ' + 'txtAbfertigungsnummerRef + ' + Me.txtAbfertigungsnummerRef._DateTimeOnly = False + Me.txtAbfertigungsnummerRef._numbersOnly = False + Me.txtAbfertigungsnummerRef._numbersOnlyKommastellen = "" + Me.txtAbfertigungsnummerRef._Prozent = False + Me.txtAbfertigungsnummerRef._ShortDateNew = False + Me.txtAbfertigungsnummerRef._ShortDateOnly = False + Me.txtAbfertigungsnummerRef._TimeOnly = False + Me.txtAbfertigungsnummerRef._value = Nothing + Me.txtAbfertigungsnummerRef._Waehrung = False + Me.txtAbfertigungsnummerRef._WaehrungZeichen = True + Me.txtAbfertigungsnummerRef.Font = New System.Drawing.Font("Microsoft Tai Le", 8.0!) + Me.txtAbfertigungsnummerRef.Location = New System.Drawing.Point(368, 69) + Me.txtAbfertigungsnummerRef.MaxLineLength = -1 + Me.txtAbfertigungsnummerRef.MaxLines_Warning = "" + Me.txtAbfertigungsnummerRef.MaxLines_Warning_Label = Nothing + Me.txtAbfertigungsnummerRef.Name = "txtAbfertigungsnummerRef" + Me.txtAbfertigungsnummerRef.Size = New System.Drawing.Size(169, 21) + Me.txtAbfertigungsnummerRef.TabIndex = 7 + Me.txtAbfertigungsnummerRef.Visible = False + ' + 'dgvRechnungenPositionen + ' + Me.dgvRechnungenPositionen.AKTUALISIERUNGS_INTERVALL = -1 + Me.dgvRechnungenPositionen.AllowUserToAddRows = False + Me.dgvRechnungenPositionen.AllowUserToDeleteRows = False + Me.dgvRechnungenPositionen.AllowUserToResizeColumns = False + Me.dgvRechnungenPositionen.AllowUserToResizeRows = False + Me.dgvRechnungenPositionen.BackgroundColor = System.Drawing.Color.White + Me.dgvRechnungenPositionen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvRechnungenPositionen.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.Leistung, Me.Anzahl, Me.Preis, Me.SteuerpflichtigerBetrag, Me.SteuerfreierBetrag, Me.Aufschubkonto}) + Me.dgvRechnungenPositionen.Location = New System.Drawing.Point(10, 258) + Me.dgvRechnungenPositionen.Name = "dgvRechnungenPositionen" + Me.dgvRechnungenPositionen.ReadOnly = True + Me.dgvRechnungenPositionen.RowHeadersVisible = False + Me.dgvRechnungenPositionen.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.dgvRechnungenPositionen.Size = New System.Drawing.Size(811, 189) + Me.dgvRechnungenPositionen.TabIndex = 5 + Me.dgvRechnungenPositionen.TabStop = False + ' + 'Leistung + ' + Me.Leistung.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill + Me.Leistung.HeaderText = "Leistung" + Me.Leistung.Name = "Leistung" + Me.Leistung.ReadOnly = True + ' + 'Anzahl + ' + DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight + DataGridViewCellStyle1.Format = "N0" + DataGridViewCellStyle1.NullValue = Nothing + Me.Anzahl.DefaultCellStyle = DataGridViewCellStyle1 + Me.Anzahl.HeaderText = "Anzahl" + Me.Anzahl.Name = "Anzahl" + Me.Anzahl.ReadOnly = True + Me.Anzahl.Width = 50 + ' + 'Preis + ' + DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight + DataGridViewCellStyle2.Format = "c2" + Me.Preis.DefaultCellStyle = DataGridViewCellStyle2 + Me.Preis.HeaderText = "Preis" + Me.Preis.Name = "Preis" + Me.Preis.ReadOnly = True + Me.Preis.Width = 80 + ' + 'SteuerpflichtigerBetrag + ' + DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight + DataGridViewCellStyle3.Format = "c2" + Me.SteuerpflichtigerBetrag.DefaultCellStyle = DataGridViewCellStyle3 + Me.SteuerpflichtigerBetrag.HeaderText = "Steuerpfl." + Me.SteuerpflichtigerBetrag.Name = "SteuerpflichtigerBetrag" + Me.SteuerpflichtigerBetrag.ReadOnly = True + Me.SteuerpflichtigerBetrag.Width = 120 + ' + 'SteuerfreierBetrag + ' + DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight + DataGridViewCellStyle4.Format = "C2" + DataGridViewCellStyle4.NullValue = Nothing + Me.SteuerfreierBetrag.DefaultCellStyle = DataGridViewCellStyle4 + Me.SteuerfreierBetrag.HeaderText = "Steuerfrei" + Me.SteuerfreierBetrag.Name = "SteuerfreierBetrag" + Me.SteuerfreierBetrag.ReadOnly = True + Me.SteuerfreierBetrag.Width = 120 + ' + 'Aufschubkonto + ' + Me.Aufschubkonto.HeaderText = "Aufschubkonto" + Me.Aufschubkonto.Name = "Aufschubkonto" + Me.Aufschubkonto.ReadOnly = True + Me.Aufschubkonto.Width = 120 + ' + 'dgvOfferteDetailsUebersicht + ' + Me.dgvOfferteDetailsUebersicht.AKTUALISIERUNGS_INTERVALL = -1 + Me.dgvOfferteDetailsUebersicht.AllowUserToAddRows = False + Me.dgvOfferteDetailsUebersicht.AllowUserToDeleteRows = False + Me.dgvOfferteDetailsUebersicht.AllowUserToOrderColumns = True + Me.dgvOfferteDetailsUebersicht.AllowUserToResizeRows = False + DataGridViewCellStyle6.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvOfferteDetailsUebersicht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle6 + Me.dgvOfferteDetailsUebersicht.BackgroundColor = System.Drawing.Color.White + Me.dgvOfferteDetailsUebersicht.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D + Me.dgvOfferteDetailsUebersicht.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvOfferteDetailsUebersicht.Location = New System.Drawing.Point(220, 29) + Me.dgvOfferteDetailsUebersicht.MultiSelect = False + Me.dgvOfferteDetailsUebersicht.Name = "dgvOfferteDetailsUebersicht" + Me.dgvOfferteDetailsUebersicht.RowHeadersVisible = False + DataGridViewCellStyle7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle7.SelectionBackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer)) + DataGridViewCellStyle7.SelectionForeColor = System.Drawing.Color.Black + Me.dgvOfferteDetailsUebersicht.RowsDefaultCellStyle = DataGridViewCellStyle7 + Me.dgvOfferteDetailsUebersicht.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.dgvOfferteDetailsUebersicht.Size = New System.Drawing.Size(601, 201) + Me.dgvOfferteDetailsUebersicht.TabIndex = 3 + ' + 'txtRohmasse + ' + Me.txtRohmasse._DateTimeOnly = False + Me.txtRohmasse._numbersOnly = False + Me.txtRohmasse._numbersOnlyKommastellen = "" + Me.txtRohmasse._Prozent = False + Me.txtRohmasse._ShortDateNew = False + Me.txtRohmasse._ShortDateOnly = False + Me.txtRohmasse._TimeOnly = False + Me.txtRohmasse._value = Nothing + Me.txtRohmasse._Waehrung = False + Me.txtRohmasse._WaehrungZeichen = True + Me.txtRohmasse.ForeColor = System.Drawing.Color.Black + Me.txtRohmasse.Location = New System.Drawing.Point(370, 115) + Me.txtRohmasse.MaxLength = 35 + 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(305, 20) + Me.txtRohmasse.TabIndex = 24 + Me.txtRohmasse.Visible = False + ' + 'cboWaehrung + ' + Me.cboWaehrung._allowedValuesFreiText = Nothing + Me.cboWaehrung._allowFreiText = False + Me.cboWaehrung._value = "" + Me.cboWaehrung.FormattingEnabled = True + Me.cboWaehrung.Location = New System.Drawing.Point(102, 394) + Me.cboWaehrung.Name = "cboWaehrung" + Me.cboWaehrung.Size = New System.Drawing.Size(47, 21) + Me.cboWaehrung.TabIndex = 14 + ' + 'cboWaehrungUmrechnung + ' + Me.cboWaehrungUmrechnung._allowedValuesFreiText = Nothing + Me.cboWaehrungUmrechnung._allowFreiText = False + Me.cboWaehrungUmrechnung._value = "" + Me.cboWaehrungUmrechnung.Enabled = False + Me.cboWaehrungUmrechnung.FormattingEnabled = True + Me.cboWaehrungUmrechnung.Location = New System.Drawing.Point(102, 413) + Me.cboWaehrungUmrechnung.Name = "cboWaehrungUmrechnung" + Me.cboWaehrungUmrechnung.Size = New System.Drawing.Size(47, 21) + Me.cboWaehrungUmrechnung.TabIndex = 17 + ' + 'txtkdNrEmpfaenger + ' + Me.txtkdNrEmpfaenger._DateTimeOnly = False + Me.txtkdNrEmpfaenger._numbersOnly = False + Me.txtkdNrEmpfaenger._numbersOnlyKommastellen = "" + Me.txtkdNrEmpfaenger._Prozent = False + Me.txtkdNrEmpfaenger._ShortDateNew = False + Me.txtkdNrEmpfaenger._ShortDateOnly = False + Me.txtkdNrEmpfaenger._TimeOnly = False + Me.txtkdNrEmpfaenger._value = Nothing + Me.txtkdNrEmpfaenger._Waehrung = False + Me.txtkdNrEmpfaenger._WaehrungZeichen = True + Me.txtkdNrEmpfaenger.BackColor = System.Drawing.Color.White + Me.txtkdNrEmpfaenger.ForeColor = System.Drawing.Color.Black + Me.txtkdNrEmpfaenger.Location = New System.Drawing.Point(8, 21) + Me.txtkdNrEmpfaenger.MaxLength = 35 + Me.txtkdNrEmpfaenger.MaxLineLength = -1 + Me.txtkdNrEmpfaenger.MaxLines_Warning = "" + Me.txtkdNrEmpfaenger.MaxLines_Warning_Label = Nothing + Me.txtkdNrEmpfaenger.Name = "txtkdNrEmpfaenger" + Me.txtkdNrEmpfaenger.ReadOnly = True + Me.txtkdNrEmpfaenger.Size = New System.Drawing.Size(94, 20) + Me.txtkdNrEmpfaenger.TabIndex = 1 + Me.txtkdNrEmpfaenger.TabStop = False + ' + 'txtEmpfeangerName2 + ' + Me.txtEmpfeangerName2._DateTimeOnly = False + Me.txtEmpfeangerName2._numbersOnly = False + Me.txtEmpfeangerName2._numbersOnlyKommastellen = "" + Me.txtEmpfeangerName2._Prozent = False + Me.txtEmpfeangerName2._ShortDateNew = False + Me.txtEmpfeangerName2._ShortDateOnly = False + Me.txtEmpfeangerName2._TimeOnly = False + Me.txtEmpfeangerName2._value = Nothing + Me.txtEmpfeangerName2._Waehrung = False + Me.txtEmpfeangerName2._WaehrungZeichen = True + Me.txtEmpfeangerName2.BackColor = System.Drawing.Color.White + Me.txtEmpfeangerName2.ForeColor = System.Drawing.Color.Black + Me.txtEmpfeangerName2.Location = New System.Drawing.Point(101, 40) + Me.txtEmpfeangerName2.MaxLength = 35 + Me.txtEmpfeangerName2.MaxLineLength = -1 + Me.txtEmpfeangerName2.MaxLines_Warning = "" + Me.txtEmpfeangerName2.MaxLines_Warning_Label = Nothing + Me.txtEmpfeangerName2.Name = "txtEmpfeangerName2" + Me.txtEmpfeangerName2.Size = New System.Drawing.Size(305, 20) + Me.txtEmpfeangerName2.TabIndex = 4 + Me.txtEmpfeangerName2.TabStop = False + ' + 'txtEmpfaengerOrt + ' + Me.txtEmpfaengerOrt._DateTimeOnly = False + Me.txtEmpfaengerOrt._numbersOnly = False + Me.txtEmpfaengerOrt._numbersOnlyKommastellen = "" + Me.txtEmpfaengerOrt._Prozent = False + Me.txtEmpfaengerOrt._ShortDateNew = False + Me.txtEmpfaengerOrt._ShortDateOnly = False + Me.txtEmpfaengerOrt._TimeOnly = False + Me.txtEmpfaengerOrt._value = Nothing + Me.txtEmpfaengerOrt._Waehrung = False + Me.txtEmpfaengerOrt._WaehrungZeichen = True + Me.txtEmpfaengerOrt.BackColor = System.Drawing.Color.White + Me.txtEmpfaengerOrt.ForeColor = System.Drawing.Color.Black + Me.txtEmpfaengerOrt.Location = New System.Drawing.Point(101, 78) + Me.txtEmpfaengerOrt.MaxLength = 35 + Me.txtEmpfaengerOrt.MaxLineLength = -1 + Me.txtEmpfaengerOrt.MaxLines_Warning = "" + Me.txtEmpfaengerOrt.MaxLines_Warning_Label = Nothing + Me.txtEmpfaengerOrt.Name = "txtEmpfaengerOrt" + Me.txtEmpfaengerOrt.Size = New System.Drawing.Size(305, 20) + Me.txtEmpfaengerOrt.TabIndex = 7 + Me.txtEmpfaengerOrt.TabStop = False + ' + 'txtEmpfaengerStrasse + ' + Me.txtEmpfaengerStrasse._DateTimeOnly = False + Me.txtEmpfaengerStrasse._numbersOnly = False + Me.txtEmpfaengerStrasse._numbersOnlyKommastellen = "" + Me.txtEmpfaengerStrasse._Prozent = False + Me.txtEmpfaengerStrasse._ShortDateNew = False + Me.txtEmpfaengerStrasse._ShortDateOnly = False + Me.txtEmpfaengerStrasse._TimeOnly = False + Me.txtEmpfaengerStrasse._value = Nothing + Me.txtEmpfaengerStrasse._Waehrung = False + Me.txtEmpfaengerStrasse._WaehrungZeichen = True + Me.txtEmpfaengerStrasse.BackColor = System.Drawing.Color.White + Me.txtEmpfaengerStrasse.ForeColor = System.Drawing.Color.Black + Me.txtEmpfaengerStrasse.Location = New System.Drawing.Point(101, 59) + Me.txtEmpfaengerStrasse.MaxLength = 35 + Me.txtEmpfaengerStrasse.MaxLineLength = -1 + Me.txtEmpfaengerStrasse.MaxLines_Warning = "" + Me.txtEmpfaengerStrasse.MaxLines_Warning_Label = Nothing + Me.txtEmpfaengerStrasse.Name = "txtEmpfaengerStrasse" + Me.txtEmpfaengerStrasse.Size = New System.Drawing.Size(305, 20) + Me.txtEmpfaengerStrasse.TabIndex = 6 + Me.txtEmpfaengerStrasse.TabStop = False + ' + 'kdFirmaEmpfaenger + ' + Me.kdFirmaEmpfaenger._AllowSetValue = True + Me.kdFirmaEmpfaenger._autoSizeGross = False + Me.kdFirmaEmpfaenger._display_Name1 = True + Me.kdFirmaEmpfaenger._displayAVISO_Email = False + Me.kdFirmaEmpfaenger._displayFullName = False + Me.kdFirmaEmpfaenger._displayWoelflKd = False + Me.kdFirmaEmpfaenger._hideIfListEmpty = True + Me.kdFirmaEmpfaenger._loadKdData = True + Me.kdFirmaEmpfaenger._ValueKdAndName = False + Me.kdFirmaEmpfaenger.BackColor = System.Drawing.Color.White + Me.kdFirmaEmpfaenger.dgvpos = "LEFT" + Me.kdFirmaEmpfaenger.KdName = Nothing + Me.kdFirmaEmpfaenger.KdNr = "-1" + Me.kdFirmaEmpfaenger.kdNrField = Nothing + Me.kdFirmaEmpfaenger.KdNrNullInt = Nothing + Me.kdFirmaEmpfaenger.Location = New System.Drawing.Point(101, 21) + Me.kdFirmaEmpfaenger.MaxLength = 35 + Me.kdFirmaEmpfaenger.Name = "kdFirmaEmpfaenger" + Me.kdFirmaEmpfaenger.nurAktive = True + Me.kdFirmaEmpfaenger.searchActive = True + Me.kdFirmaEmpfaenger.Size = New System.Drawing.Size(283, 20) + Me.kdFirmaEmpfaenger.TabIndex = 3 + Me.kdFirmaEmpfaenger.TabStop = False + Me.kdFirmaEmpfaenger.usrcntl = Nothing + ' + 'FlatButton2 + ' + Me.FlatButton2.allowBorder = False + Me.FlatButton2.FlatAppearance.BorderSize = 0 + Me.FlatButton2.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.FlatButton2.ForeColor = System.Drawing.Color.Black + Me.FlatButton2.Image = Global.SDL.My.Resources.Resources.personInaktiv + Me.FlatButton2.Location = New System.Drawing.Point(382, 16) + Me.FlatButton2.Name = "FlatButton2" + Me.FlatButton2.Size = New System.Drawing.Size(24, 25) + Me.FlatButton2.TabIndex = 2 + Me.FlatButton2.TabStop = False + Me.FlatButton2.UseVisualStyleBackColor = True + ' 'txtSteuersatz ' Me.txtSteuersatz._DateTimeOnly = False @@ -3075,26 +3075,6 @@ Partial Class usrCntlFaktAbrechnung Me.txtSteuerFreierBetrag.Size = New System.Drawing.Size(147, 20) Me.txtSteuerFreierBetrag.TabIndex = 10 ' - 'Label37 - ' - Me.Label37.AutoSize = True - Me.Label37.Location = New System.Drawing.Point(390, 94) - Me.Label37.Name = "Label37" - Me.Label37.Size = New System.Drawing.Size(98, 13) - Me.Label37.TabIndex = 9 - Me.Label37.Text = "Steuerfreier Betrag:" - Me.Label37.TextAlign = System.Drawing.ContentAlignment.TopRight - ' - 'Label36 - ' - Me.Label36.AutoSize = True - Me.Label36.Location = New System.Drawing.Point(390, 77) - Me.Label36.Name = "Label36" - Me.Label36.Size = New System.Drawing.Size(75, 13) - Me.Label36.TabIndex = 7 - Me.Label36.Text = "Steuer-Betrag:" - Me.Label36.TextAlign = System.Drawing.ContentAlignment.TopRight - ' 'txtGesamtsumme ' Me.txtGesamtsumme._DateTimeOnly = False @@ -3164,37 +3144,6 @@ Partial Class usrCntlFaktAbrechnung Me.txtSteuerpflichtigerBetrag.Size = New System.Drawing.Size(147, 20) Me.txtSteuerpflichtigerBetrag.TabIndex = 6 ' - 'Label33 - ' - Me.Label33.AutoSize = True - Me.Label33.Location = New System.Drawing.Point(390, 59) - Me.Label33.Name = "Label33" - Me.Label33.Size = New System.Drawing.Size(120, 13) - Me.Label33.TabIndex = 5 - Me.Label33.Text = "Steuerpflichtiger Betrag:" - Me.Label33.TextAlign = System.Drawing.ContentAlignment.TopRight - ' - 'Label35 - ' - Me.Label35.AutoSize = True - Me.Label35.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label35.Location = New System.Drawing.Point(390, 117) - Me.Label35.Name = "Label35" - Me.Label35.Size = New System.Drawing.Size(91, 13) - Me.Label35.TabIndex = 11 - Me.Label35.Text = "Gesamtsumme:" - Me.Label35.TextAlign = System.Drawing.ContentAlignment.TopRight - ' - 'Label28 - ' - Me.Label28.AutoSize = True - Me.Label28.Location = New System.Drawing.Point(6, 23) - Me.Label28.Name = "Label28" - Me.Label28.Size = New System.Drawing.Size(157, 13) - Me.Label28.TabIndex = 0 - Me.Label28.Text = "Besonderheiten für Verrechung:" - Me.Label28.TextAlign = System.Drawing.ContentAlignment.TopRight - ' 'txtBesonderheiten ' Me.txtBesonderheiten.Location = New System.Drawing.Point(9, 37) @@ -3206,16 +3155,91 @@ Partial Class usrCntlFaktAbrechnung Me.txtBesonderheiten.TabIndex = 1 Me.txtBesonderheiten.Text = "" ' - 'cbxOriginalPrint + 'cboRgGS ' - Me.cbxOriginalPrint.AutoSize = True - Me.cbxOriginalPrint.Location = New System.Drawing.Point(531, 6) - Me.cbxOriginalPrint.Name = "cbxOriginalPrint" - Me.cbxOriginalPrint.Size = New System.Drawing.Size(134, 17) - Me.cbxOriginalPrint.TabIndex = 28 - Me.cbxOriginalPrint.Text = "Original (ohne ""Kopie"")" - Me.cbxOriginalPrint.UseVisualStyleBackColor = True - Me.cbxOriginalPrint.Visible = False + Me.cboRgGS._allowedValuesFreiText = Nothing + Me.cboRgGS._allowFreiText = False + Me.cboRgGS._value = "" + Me.cboRgGS.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.cboRgGS.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.cboRgGS.Font = New System.Drawing.Font("Microsoft Sans Serif", 16.0!, System.Drawing.FontStyle.Bold) + Me.cboRgGS.ForeColor = System.Drawing.Color.White + Me.cboRgGS.FormattingEnabled = True + Me.cboRgGS.Items.AddRange(New Object() {"Rechnung", "Gutschrift"}) + Me.cboRgGS.Location = New System.Drawing.Point(3, -1) + Me.cboRgGS.Name = "cboRgGS" + Me.cboRgGS.Size = New System.Drawing.Size(211, 33) + Me.cboRgGS.TabIndex = 26 + ' + 'cboSpedBuchUnterNr + ' + Me.cboSpedBuchUnterNr._allowedValuesFreiText = Nothing + Me.cboSpedBuchUnterNr._allowFreiText = False + Me.cboSpedBuchUnterNr._value = "" + Me.cboSpedBuchUnterNr.DropDownWidth = 350 + Me.cboSpedBuchUnterNr.FormattingEnabled = True + Me.cboSpedBuchUnterNr.Location = New System.Drawing.Point(255, 48) + Me.cboSpedBuchUnterNr.Margin = New System.Windows.Forms.Padding(2) + Me.cboSpedBuchUnterNr.Name = "cboSpedBuchUnterNr" + Me.cboSpedBuchUnterNr.Size = New System.Drawing.Size(71, 21) + Me.cboSpedBuchUnterNr.TabIndex = 5 + ' + 'txtUnterNr + ' + Me.txtUnterNr._DateTimeOnly = False + Me.txtUnterNr._numbersOnly = False + Me.txtUnterNr._numbersOnlyKommastellen = "" + Me.txtUnterNr._Prozent = False + Me.txtUnterNr._ShortDateNew = False + Me.txtUnterNr._ShortDateOnly = False + Me.txtUnterNr._TimeOnly = False + Me.txtUnterNr._value = Nothing + Me.txtUnterNr._Waehrung = False + Me.txtUnterNr._WaehrungZeichen = True + Me.txtUnterNr.Font = New System.Drawing.Font("Microsoft Tai Le", 8.0!) + Me.txtUnterNr.Location = New System.Drawing.Point(417, 48) + Me.txtUnterNr.MaxLineLength = -1 + Me.txtUnterNr.MaxLines_Warning = "" + Me.txtUnterNr.MaxLines_Warning_Label = Nothing + Me.txtUnterNr.Name = "txtUnterNr" + Me.txtUnterNr.ReadOnly = True + Me.txtUnterNr.Size = New System.Drawing.Size(55, 21) + Me.txtUnterNr.TabIndex = 7 + ' + 'cboFiliale + ' + Me.cboFiliale._allowedValuesFreiText = Nothing + Me.cboFiliale._allowFreiText = False + Me.cboFiliale._value = "" + Me.cboFiliale.DropDownWidth = 280 + Me.cboFiliale.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboFiliale.FormattingEnabled = True + Me.cboFiliale.Location = New System.Drawing.Point(8, 48) + Me.cboFiliale.Name = "cboFiliale" + Me.cboFiliale.Size = New System.Drawing.Size(80, 21) + Me.cboFiliale.TabIndex = 3 + ' + 'txtAbfertigungsnummer + ' + Me.txtAbfertigungsnummer._DateTimeOnly = False + Me.txtAbfertigungsnummer._numbersOnly = True + Me.txtAbfertigungsnummer._numbersOnlyKommastellen = "" + Me.txtAbfertigungsnummer._Prozent = False + Me.txtAbfertigungsnummer._ShortDateNew = False + Me.txtAbfertigungsnummer._ShortDateOnly = False + Me.txtAbfertigungsnummer._TimeOnly = False + Me.txtAbfertigungsnummer._value = "" + Me.txtAbfertigungsnummer._Waehrung = False + Me.txtAbfertigungsnummer._WaehrungZeichen = True + Me.txtAbfertigungsnummer.Font = New System.Drawing.Font("Microsoft Tai Le", 8.0!) + Me.txtAbfertigungsnummer.Location = New System.Drawing.Point(87, 48) + Me.txtAbfertigungsnummer.MaxLength = 8 + Me.txtAbfertigungsnummer.MaxLineLength = -1 + Me.txtAbfertigungsnummer.MaxLines_Warning = "" + Me.txtAbfertigungsnummer.MaxLines_Warning_Label = Nothing + Me.txtAbfertigungsnummer.Name = "txtAbfertigungsnummer" + Me.txtAbfertigungsnummer.Size = New System.Drawing.Size(169, 21) + Me.txtAbfertigungsnummer.TabIndex = 4 ' 'usrCntlFaktAbrechnung ' @@ -3247,9 +3271,7 @@ Partial Class usrCntlFaktAbrechnung Me.pnlAbsender.PerformLayout() Me.Panel7.ResumeLayout(False) Me.Panel7.PerformLayout() - CType(Me.dgvRechnungenPositionen, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.dgvOffertenSperrliste, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.dgvOfferteDetailsUebersicht, System.ComponentModel.ISupportInitialize).EndInit() Me.pnlEmpfaenger.ResumeLayout(False) Me.pnlEmpfaenger.PerformLayout() Me.pnl.ResumeLayout(False) @@ -3258,6 +3280,8 @@ Partial Class usrCntlFaktAbrechnung Me.pnlDocs.PerformLayout() CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.dgvRechnungenPositionen, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.dgvOfferteDetailsUebersicht, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) End Sub @@ -3355,7 +3379,7 @@ Partial Class usrCntlFaktAbrechnung Friend WithEvents Label6 As System.Windows.Forms.Label Friend WithEvents txtRechnungAnBuKdNr As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents Label3 As System.Windows.Forms.Label - Friend WithEvents Button1 As System.Windows.Forms.Button + Friend WithEvents btnDatenLaden As System.Windows.Forms.Button Friend WithEvents lblAbfNrExists As System.Windows.Forms.Label Friend WithEvents lblAbfNr_Err As System.Windows.Forms.Label Friend WithEvents Label8 As System.Windows.Forms.Label @@ -3452,4 +3476,6 @@ Partial Class usrCntlFaktAbrechnung Friend WithEvents PictureBox1 As PictureBox Friend WithEvents pnlDocs As Panel Friend WithEvents cbxOriginalPrint As CheckBox + Friend WithEvents Button13 As Button + Friend WithEvents Button1 As Button End Class diff --git a/SDL/Fakturierung/usrCntlFaktAbrechnung.resx b/SDL/Fakturierung/usrCntlFaktAbrechnung.resx index a4f2f07c..662513d8 100644 --- a/SDL/Fakturierung/usrCntlFaktAbrechnung.resx +++ b/SDL/Fakturierung/usrCntlFaktAbrechnung.resx @@ -135,24 +135,6 @@ True - - True - - - True - - - True - - - True - - - True - - - True - diff --git a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb index ecfa683e..53f73ff1 100644 --- a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb +++ b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb @@ -51,6 +51,16 @@ Public Class usrCntlFaktAbrechnung Case "IMEX" Firma = 20 'VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA cboFiliale.changeItem(5501) + Case "UNISPED" + Firma = 21 + cboFiliale.changeItem(5601) + Case "AMBAR" + Firma = 22 + cboFiliale.changeItem(5701) + Case "FRONT-OFFICE" + Firma = 23 + cboFiliale.changeItem(5801) + End Select @@ -468,6 +478,9 @@ Public Class usrCntlFaktAbrechnung Case "VERAG" : whereFirma = " AND Firma_ID<>20 " : pnlDocs.Visible = True Case "IMEX" : whereFirma = " AND Firma_ID=20 " Case "ATILLA" : whereFirma = " AND Firma_ID=7 " : pnlDocs.Visible = True + Case "UNISPED" : whereFirma = " AND Firma_ID=21 " + Case "AMBAR" : whereFirma = " AND Firma_ID=22 " + Case "FRONT-OFFICE" : whereFirma = " AND Firma_ID=23 " End Select cboFirma.fillWithSQL("SELECT [Firma_ID],[Firma_Bez] FROM [tblFirma] WHERE Firma_ID NOT IN(3) " & whereFirma & " ORDER BY Firma_ID ", True, "FMZOLL") @@ -504,8 +517,30 @@ Public Class usrCntlFaktAbrechnung initRechnungKd() FlatButton3.Image = IIf(kdFirmaRechnungAn.KdNr_value > 0, My.Resources.person1, My.Resources.personInaktiv) + + ' setOffertFromAbfArt() 'setzt dir OffertenNr in RECHNUNG, für die Auswahl wichtig! initDGVOffertenSperrliste(kdFirmaRechnungAn.KdNr_value) initWarnKd(kdFirmaRechnungAn, picWarnRgAn) + + + Try + Dim OfferteNnr = setOffertFromAbfArt() 'setzt dir OffertenNr in RECHNUNG, für die Auswahl wichtig! + For Each r As DataGridViewRow In dgvOffertenSperrliste.Rows + If r.Cells("OffertenNr").Value = OfferteNnr Then + dgvOffertenSperrliste.ClearSelection() : r.Cells("OffertenBez").Selected = True : Exit For + End If + Next + Catch ex As Exception + + End Try + + + If kdFirmaRechnungAn.KdData_KUNDE_ERW.AutoFakturierung Then + Button7.Visible = True + Button7.Enabled = True + Button7.PerformClick() + End If + Catch ex As Exception MsgBox(ex.Message & ex.StackTrace) End Try @@ -545,6 +580,17 @@ Public Class usrCntlFaktAbrechnung initRECHNUNG() End Sub + Function setOffertFromAbfArt() + Dim OffertNr = "" + If SPEDBUCH IsNot Nothing Then + If IsNumeric(SPEDBUCH.Abfertigungsart) Then + Dim OffertNrtmp = SQL.getValueTxtBySql("SELECT isnull([ao_OffertenNr],-1) FROM [tblAbfertigungsartOffertenstamm] WHERE [ao_Abfertigungsart]=" & SPEDBUCH.Abfertigungsart, "FMZOLL") + If OffertNrtmp <> "" AndAlso OffertNrtmp > 0 Then OffertNr = OffertNrtmp + 'MsgBox(OffertNr) + End If + End If + Return OffertNr + End Function 'Läuft alle Elememte durch Public Sub initChangeEvent(ByVal oContainer As Object) @@ -887,9 +933,10 @@ Public Class usrCntlFaktAbrechnung c = New DataGridViewTextBoxColumn() : c.Name = "Aufschubfälligkeit" : .Columns.Add(c) c = New DataGridViewTextBoxColumn() : c.Name = "DateiNameAufschub" : .Columns.Add(c) c = New DataGridViewTextBoxColumn() : c.Name = "Belegdaten" : .Columns.Add(c) + c = New DataGridViewTextBoxColumn() : c.Name = "BerechnungsartPosInkludiert" : .Columns.Add(c) - Dim dt As DataTable = SQL.loadDgvBySql(" SELECT [Offertenpositionen].[LeistungsNr],[Offertenpositionen].[LeistungsBez],[Anzahl],[Preis],[Offertenpositionen].[BerechnungsartNr],[BGebLeistungsNr],[BGebProzent],[BGebMinBetrag],Steuerpflichtig/*,[Geändert am],[Sachbearbeiter]*/ " & + Dim dt As DataTable = SQL.loadDgvBySql(" SELECT [Offertenpositionen].[LeistungsNr],[Offertenpositionen].[LeistungsBez],[Anzahl],[Preis],[Offertenpositionen].[BerechnungsartNr],[BGebLeistungsNr],[BGebProzent],[BGebMinBetrag],Steuerpflichtig/*,[Geändert am],[Sachbearbeiter]*/,BerechnungsartPosInkludiert " & " FROM [Offertenpositionen] INNER JOIN [Leistungen] ON leistungen.LeistungsNr=Offertenpositionen.LeistungsNr" & " WHERE KundenNr='" & kdNr & "' and OffertenNr='" & OffertenNr & "' ORDER BY LeistungsNr ", "FMZOLL") @@ -944,6 +991,7 @@ Public Class usrCntlFaktAbrechnung .Columns("BGebProzent").Visible = False .Columns("BGebMinBetrag").Visible = False .Columns("Steuerpflichtig").Visible = False + .Columns("BerechnungsartPosInkludiert").Visible = False ' .Columns("Geändert am").Visible = False '.Columns("Sachbearbeiter").Visible = False @@ -959,7 +1007,7 @@ Public Class usrCntlFaktAbrechnung For Each r As DataRow In dt.Rows dgvOfferteDetailsUebersicht.Rows.Add(r("LeistungsNr"), r("LeistungsBez"), r("Anzahl"), r("Preis"), r("BerechnungsartNr"), DBNull.Value, DBNull.Value, DBNull.Value, r("Steuerpflichtig"), - DBNull.Value, DBNull.Value, DBNull.Value, DBNull.Value, DBNull.Value) + DBNull.Value, DBNull.Value, DBNull.Value, DBNull.Value, DBNull.Value, r("BerechnungsartPosInkludiert")) @@ -1181,7 +1229,7 @@ Public Class usrCntlFaktAbrechnung End Sub - Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click + Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnDatenLaden.Click lblAbfNrExists.Visible = False lblAbfNr_Err.Visible = False lblErrFiliale.Visible = False @@ -1353,11 +1401,13 @@ Public Class usrCntlFaktAbrechnung Select Case SPEDBUCH.Abfertigungsart Case "26", "27", "38" If If(RECHNUNG.Anlage_1, String.Empty) = String.Empty Then RECHNUNG.Anlage_1 = "Zollbelege" + Case "5", "6" + If If(RECHNUNG.Anlage_1, String.Empty) = String.Empty Then RECHNUNG.Anlage_1 = "" Case Else If If(RECHNUNG.Anlage_1, String.Empty) = String.Empty Then RECHNUNG.Anlage_1 = "Zollbelege" If If(RECHNUNG.Anlage_2, String.Empty) = String.Empty Then RECHNUNG.Anlage_2 = "Lief.-Rechn." If If(RECHNUNG.Anlage_3, String.Empty) = String.Empty Then RECHNUNG.Anlage_3 = "Präferenzz./Original" - If If(RECHNUNG.Anlage_4, String.Empty) = String.Empty Then RECHNUNG.Anlage_4 = "CMR" + If If(RECHNUNG.Anlage_4, String.Empty) = String.Empty Then RECHNUNG.Anlage_4 = "" '"CMR" If If(RECHNUNG.Anlage_5, String.Empty) = String.Empty Then RECHNUNG.Anlage_5 = "" End Select @@ -1384,6 +1434,7 @@ Public Class usrCntlFaktAbrechnung Private Sub cboFirma_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboFirma.SelectedIndexChanged Dim errCOlor = Color.Red pnlTop.BackColor = Color.FromArgb(0, 54, 128) + pic.BackgroundImage = Nothing Select Case cboFirma._value Case 1 : pic.BackgroundImage = My.Resources.Verag_AG_Logo pnlTop.BackColor = Color.FromArgb(0, 54, 128) @@ -1394,8 +1445,16 @@ Public Class usrCntlFaktAbrechnung Case 20 : pic.BackgroundImage = My.Resources.IMEX_LOGO_simple pnlTop.BackColor = Color.FromArgb(250, 120, 0) : errCOlor = Color.DarkRed + Case 21 : pic.BackgroundImage = My.Resources.Unisped_logo + pnlTop.BackColor = Color.FromArgb(192, 0, 0) : errCOlor = Color.DarkRed + Case 22 : pic.BackgroundImage = My.Resources.ambar_simple + pnlTop.BackColor = Color.FromArgb(0, 120, 120) : errCOlor = Color.DarkRed + Case 23 ': pic.BackgroundImage = My.Resources.front + pnlTop.BackColor = Color.FromArgb(192, 0, 0) : errCOlor = Color.DarkRed + End Select + cboRgGS.BackColor = pnlTop.BackColor ' Panel2.BackColor = pnlTop.BackColor lblErrFiliale.ForeColor = errCOlor @@ -1404,7 +1463,6 @@ Public Class usrCntlFaktAbrechnung ' Exit Sub - pic.BackgroundImage = Nothing If cboFirma._value <> "" Then FIRMA = New VERAG_PROG_ALLGEMEIN.cFirmen(cboFirma._value) lblFirma1.Text = FIRMA.Firma_Bez @@ -1437,6 +1495,11 @@ Public Class usrCntlFaktAbrechnung Case "4805" : cboFirma.changeItem(11) : RECHNUNG.Firma_ID = 11 Case "4801" : cboFirma.changeItem(7) : RECHNUNG.Firma_ID = 7 Case "5501" : cboFirma.changeItem(20) : RECHNUNG.Firma_ID = 20 + + Case "5601" : cboFirma.changeItem(21) : RECHNUNG.Firma_ID = 21 'UNISPED + Case "5701" : cboFirma.changeItem(22) : RECHNUNG.Firma_ID = 22'AMBAR + Case "5801" : cboFirma.changeItem(23) : RECHNUNG.Firma_ID = 23 'FRONT-OFFICE + Case Else If SPEDBUCH IsNot Nothing AndAlso SPEDBUCH.Abfertigungsart = 38 Then 'EV-VZ cboFirma.changeItem(11) : RECHNUNG.Firma_ID = 11 @@ -1624,151 +1687,6 @@ Public Class usrCntlFaktAbrechnung - Private Sub przRechnungstext(ByRef Nettozahlungsziel As String) ', ByRef strZahlbar As String, ByRef strText As String) - - - Dim strZahlbar As String = "" - Dim strText As String = "" - ' Dim varPos As Object - - - - ' Dim Nettozahlungsziel - - - If RECHNUNG.RechnungsKundenNr > 0 Then - - Dim RECHNUNG_AD As New VERAG_PROG_ALLGEMEIN.cAdressen(RECHNUNG.RechnungsKundenNr) - Dim RECHNUNG_KD As New VERAG_PROG_ALLGEMEIN.cKunde(RECHNUNG.RechnungsKundenNr) - - Select Case RECHNUNG.[BelegartenNr] - Case 70 'RECHNUNG - - If Not RECHNUNG.Vorkasse Then - If RECHNUNG.Lastschrift Then - strText = strText & "Der Rechnungsbetrag wurde durch erteilten Abbuchungsauftrag eingezogen." & vbCrLf - Else - If checkIfKreditaufwendungen() Then - strZahlbar = "Zahlbar innerhalb 10 Tagen abzüglich Pos. 750; ab 10 Tagen netto fällig." - Else - 'Zahlungsziel allgemein. - strZahlbar = "Zahlbar innerhalb 10 Tagen ab Rechnungsdatum." - End If - - 'Zahlungsziel bei Maut/Diesel. - If RECHNUNG.OffertenNr IsNot Nothing And RECHNUNG.RechnungsKundenNr > 0 And RECHNUNG.RechnungsLandKz IsNot Nothing Then - Dim ZahlungszielOffert As String = SQL.getValueTxtBySql("SELECT isnull(Zahlungsziel,'') FROM Offertenstamm WHERE OffertenNr='" & RECHNUNG.OffertenNr & "' AND Zahlungsziel Is Not Null", "FMZOLL") - - If ZahlungszielOffert <> "" Then - Dim ZahlungszielKunde As String = If(RECHNUNG_KD.Zahlungsziel, "") - Dim ZahlungszielText As String = SQL.getValueTxtBySql("SELECT isnull(tblZahlungszieltexte.Text,'') FROM tblZahlungszieltexte WHERE tblZahlungszieltexte.LandKz='" & RECHNUNG.RechnungsLandKz & "' AND tblZahlungszieltexte.Text Is Not Null", "FMZOLL") - - If ZahlungszielKunde <> "" Then 'Zahlungsziel für Kunde verwenden - Nettozahlungsziel = ZahlungszielKunde - strZahlbar = If(ZahlungszielText <> "", ZahlungszielText, "Rechnung zahlbar spätestens bis") & " " & ZahlungszielKunde & "!" - Else 'Zahlungsziel für Offerte verwenden - Nettozahlungsziel = ZahlungszielOffert - strZahlbar = If(ZahlungszielText <> "", ZahlungszielText, "Rechnung zahlbar spätestens bis") & " " & ZahlungszielOffert & "!" - End If - End If - End If - - - ' Text bei Zoll oder EUSt drucken - If checkIfcheckIfZollbelege() Then - strText = strText & "Alle Zollbelege bitte sofort auf Richtigkeit prüfen da Einspruch gemäß § 355 AO nur 1 Monat nach Datum des Zollbescheides möglich." & vbCrLf - End If - - End If - Else - Dim VK = VERAG_PROG_ALLGEMEIN.cVorauskasse.LOADByFilialeAbfNr(RECHNUNG.FilialenNr, RECHNUNG.AbfertigungsNr) - If VK IsNot Nothing AndAlso CDbl(VK.vk_Betrag) > 0 Then ' Wenn 0 dann Fehler - If CDbl(VK.vk_Betrag) = CDbl(RECHNUNG.SteuerfreierGesamtbetrag + RECHNUNG.SteuerpflichtigerGesamtbetrag) Then - strText = strText & "Der Rechnungsbetrag wurde bereits per Vorauszahlung beglichen." & vbCrLf - Else - strText = strText & "Zu dieser Rechnung wurde bereits eine Vorauszahlung geleistet, bitte überweisen Sie den Differenzbetrag." & vbCrLf - End If - End If - - End If - Case 71 'GS - If RECHNUNG.Lastschrift Then - strText = strText & "Der Gutschriftsbetrag wurde mit erteilten Abbuchungsauftrag verrechnet." & vbCrLf - End If - End Select - - - ' Informations- und Werbetexte drucken - Dim sqlStr = "SELECT * FROM Rechnungstexte WHERE 1=1" - If RECHNUNG.Firma_ID > 0 Then sqlStr &= " AND (Firma_ID='" & RECHNUNG.Firma_ID & "' or Firma_ID is null) " - If If(RECHNUNG_AD.LandKz, "") <> "" Then sqlStr &= " AND (LandKz='" & RECHNUNG_AD.LandKz & "' or LandKz is null) " - If If(RECHNUNG.OffertenNr, 0) > 0 Then sqlStr &= " AND (OffertenNr='" & RECHNUNG.OffertenNr & "' or OffertenNr is null) " - - 'Wennn Rechnung als Email geschickt werden sollte Rechnungsdruck=2 - If If(RECHNUNG_AD.Rechnungsdruck, -1) = 2 And If(RECHNUNG_AD.E_Mail, "") <> "" Then sqlStr &= " AND EMailRechnung=1 " - - Select Case RECHNUNG.[BelegartenNr] - Case 70 - sqlStr &= " AND (DrucksteuerungsKz='R' OR DrucksteuerungsKz='') " - Case 71 - sqlStr &= " AND (DrucksteuerungsKz='G' OR DrucksteuerungsKz='') " - End Select - Dim dt_RechnungsTexte As DataTable = SQL.loadDgvBySql(sqlStr & " order by Firma_ID desc,LandKz desc,Offertennr desc", "FMZOLL") - - If dt_RechnungsTexte.Rows.Count > 0 Then - strText &= dt_RechnungsTexte.Rows(0)("Text") & vbCrLf - ' MsgBox(dt_RechnungsTexte.Rows(0)("Text") & vbCrLf) - End If - - - - strText = strZahlbar & vbNewLine & strText - ' Text in Rechnungskopfsatz übernehmen. - If strText = "" Then - RECHNUNG.Text = Nothing - Else - strText.Replace("", If(RECHNUNG_AD.E_Mail, " - ")) - - ' varPos = InStr(1, strText, "") - ' If varPos > 0 And Not rstAdr.EOF And Not IsNull(rstAdr![E-Mail]) Then - 'If Len(strText) > (varPos - 1 + Len("")) Then - ' strText = Left(strText, varPos - 1) & rstAdr![E-Mail] & Right(strText, Len(strText) - (varPos - 1 + Len(""))) - ' Else - ' strText = Left(strText, varPos - 1) & rstAdr![E-Mail] - ' End If - ' End If - ' Me![Text] = strText - RECHNUNG.Text = strText - End If - - End If - - - txtText.Text = strText - - - End Sub - - - Function checkIfKreditaufwendungen() As Boolean - For Each POS In RECHNUNG.POSITIONEN - If POS.LeistungsNr = 750 And POS.BerechnungsartNr = 9 Then - Return True - End If - Next - Return False - End Function - - - Function checkIfcheckIfZollbelege() As Boolean - For Each POS In RECHNUNG.POSITIONEN - If (POS.LeistungsNr = 10 Or POS.LeistungsNr = 60 Or POS.LeistungsNr = 70) Then - Return True - End If - Next - Return False - End Function - @@ -1813,6 +1731,7 @@ Public Class usrCntlFaktAbrechnung ' Call przSKR() ' SKR errechnen Call przVL() ' Vorlageprovision errechnen + Call przKapitalbereitstellung() 'Kapitalbereitstellung errechnen ' boolFehler = fktBGeb(RECHNUNG.[RK_ID], RECHNUNG.Steuersatz_Proz, RECHNUNG.[Sammelrechnung], RECHNUNG.[BelegartenNr]) ' Bearbeitungsgebühr errechnen @@ -1833,7 +1752,7 @@ Public Class usrCntlFaktAbrechnung - Call przRechnungstext(RECHNUNG.Nettozahlungsziel) ', zahlbar, MyRichTextBox2.Text) + txtText.Text = cFakturierung.przRechnungstext(RECHNUNG) ', zahlbar, MyRichTextBox2.Text) ' przRechnungstext() 'initDGVRechnungenPositionen() ?????????????? @@ -1875,7 +1794,7 @@ Public Class usrCntlFaktAbrechnung FindPOS.LeistungsBez = "Vorlageprovision" 'RECHNUNG.POSITIONEN.Add(FindPOS) FindPOS.Anzahl = 1 - FindPOS.Preis = Int(Vorlageprovision_Berechnungbetrag * (RECHNUNG.Vorlageprovision_Proz) * 10 + 0.5) / 10 + FindPOS.Preis = Math.Round(Vorlageprovision_Berechnungbetrag * (RECHNUNG.Vorlageprovision_Proz), 2) 'Int(Vorlageprovision_Berechnungbetrag * (RECHNUNG.Vorlageprovision_Proz) * 10 + 0.5) / 10 '...und der Wert gesetzt. initSteuerbetraege(RECHNUNG, FindPOS) @@ -1886,6 +1805,48 @@ Public Class usrCntlFaktAbrechnung End Sub + Private Sub przKapitalbereitstellung() + ' Vorlageprovision % WIRD VERWENDET!! + + Dim curVLPreis As Double + Dim Vorlageprovision_Berechnungbetrag As Double = 0 + + If Not leistungExistsInPos(751, 9) Then Exit Sub 'Schauen, ob die Leistung in den Positionen vorhanden ist + + If If(RECHNUNG.Vorlageprovision_Proz, 0) = 0 Then Exit Sub 'keine Vorlageprovision + If RECHNUNG.[Vorkasse] Then Exit Sub 'Vorkasse + + For Each POS In RECHNUNG.POSITIONEN + If Not POS.Preisbindung Then + If SQL.getValueTxtBySql("SELECT isnull(Vorlageprovision,0) FROM Leistungen WHERE LeistungsNr='" & POS.LeistungsNr & "'", "FMZOLL") Then + Vorlageprovision_Berechnungbetrag += POS.[Preis] * POS.Anzahl + End If + End If + Next + + + If Vorlageprovision_Berechnungbetrag > 0 Then + + 'Sucht, ob BS415 schon vorhanden ist,... + Dim FindPOS = RECHNUNG.POSITIONEN.Find(Function(x) x.LeistungsNr = 751 And x.BerechnungsartNr = 9) + If FindPOS IsNot Nothing Then + ' FindPOS = New VERAG_PROG_ALLGEMEIN.cRechnungsausgangPositionen + FindPOS.LeistungsNr = 751 + FindPOS.BerechnungsartNr = 9 + FindPOS.Steuerpflichtig = False + FindPOS.LeistungsBez = "Kapitalbereitstellung" + 'RECHNUNG.POSITIONEN.Add(FindPOS) + FindPOS.Anzahl = 1 + FindPOS.Preis = Math.Round(Vorlageprovision_Berechnungbetrag * (RECHNUNG.Vorlageprovision_Proz), 2) ' Int(Vorlageprovision_Berechnungbetrag * (RECHNUNG.Vorlageprovision_Proz) * 10 + 0.5) / 10 + '...und der Wert gesetzt. + + initSteuerbetraege(RECHNUNG, FindPOS) + End If + + End If + + End Sub + Function getNumeric(o) As Double If o Is Nothing Then Return 0 If o Is DBNull.Value Then Return 0 @@ -1914,7 +1875,7 @@ Public Class usrCntlFaktAbrechnung For Each POS In RECHNUNG.POSITIONEN ' Dim BGebErrBetrag As Double = Int(If(If(POS.BGebBgl, 0), If(POS.Preis, 0) * If(POS.Anzahl, 0)) * If(POS.BGebProzent, 0) * 10 + 0.5) / 10 - Dim BGebErrBetrag As Double = Int(If(POS.BGebBgl IsNot Nothing, POS.BGebBgl, getNumeric(POS.Preis) * getNumeric(POS.Anzahl)) * getNumeric(POS.BGebProzent) * 10 + 0.5) / 10 + Dim BGebErrBetrag As Double = Math.Round(If(POS.BGebBgl IsNot Nothing, POS.BGebBgl, getNumeric(POS.Preis) * getNumeric(POS.Anzahl)) * getNumeric(POS.BGebProzent), 2) 'Int(If(POS.BGebBgl IsNot Nothing, POS.BGebBgl, getNumeric(POS.Preis) * getNumeric(POS.Anzahl)) * getNumeric(POS.BGebProzent) * 10 + 0.5) / 10 curBGebBetrag = 0 @@ -2336,7 +2297,7 @@ Public Class usrCntlFaktAbrechnung If Kreditaufwendungen_Berechnungbetrag <> 0 Then ' MsgBox("1: " & Kreditaufwendungen_Berechnungbetrag) If Kreditaufwendungen_Berechnungbetrag < 0 Then Kreditaufwendungen_Berechnungbetrag *= -1 - Kreditaufwendungen = (Int(Kreditaufwendungen_Berechnungbetrag * KD.Kreditaufwendungen) * 10 + 0.5) / 10 + Kreditaufwendungen = Math.Round(Kreditaufwendungen_Berechnungbetrag * KD.Kreditaufwendungen, 2) '(Int(Kreditaufwendungen_Berechnungbetrag * KD.Kreditaufwendungen) * 10 + 0.5) / 10 End If End If @@ -2584,6 +2545,11 @@ Public Class usrCntlFaktAbrechnung If RECHNUNG.CHECK_Validation(errMsg) Then If RECHNUNG.SAVE(True) Then RECHNUNG.setSPEDBUCH_FAKTURIERT() 'Fakturiert wird in SpedBuch geschrieben + + If SPEDBUCH.hasEntry AndAlso SPEDBUCH.Vermittler = "" Then + addVermittlerToSpedbuch() + End If + initLblAnzahl() SAVED = True setLblGespeichert() @@ -2596,6 +2562,16 @@ Public Class usrCntlFaktAbrechnung Return False End Function + Sub addVermittlerToSpedbuch() + Try + Dim VmAd = New VERAG_PROG_ALLGEMEIN.cAdressen(RECHNUNG.RechnungsKundenNr) + SPEDBUCH.Vermittler = VmAd.Ordnungsbegriff + SPEDBUCH.VermittlerKundenNr = RECHNUNG.RechnungsKundenNr + SPEDBUCH.SAVE() + Catch ex As Exception + MsgBox("VERMITTLER: " & ex.Message & ex.StackTrace) + End Try + End Sub Private Sub txtWarenwert_TextChanged(sender As Object, e As EventArgs) Handles txtWarenwert.Leave, cboWaehrung.SelectedIndexChanged, cboWaehrungUmrechnung.SelectedIndexChanged If cbxAdmin.Checked OrElse RECHNUNG Is Nothing OrElse RECHNUNG.Status = 0 Then WarenwertUmrechnung() End Sub @@ -2665,7 +2641,7 @@ Public Class usrCntlFaktAbrechnung If loaded Then If cboSpedBuchUnterNr.Items.Count = 1 Then cboSpedBuchUnterNr.SelectedIndex = 0 - Button1.PerformClick() + btnDatenLaden.PerformClick() End If End If Else @@ -2819,6 +2795,13 @@ Nächste_Textzeile_lesen: End If End If + If keyData = Keys.F1 Then + Button7.PerformClick() + End If + If keyData = Keys.F2 Then + Button1.PerformClick() + End If + If keyData = Keys.F3 Then btn.PerformClick() End If @@ -3138,8 +3121,8 @@ Nächste_Textzeile_lesen: sbLeistung.SET_VALUE("") - ' loadFormRGPosInOfferte(False) - End If + ' loadFormRGPosInOfferte(False) + End If End Sub Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click @@ -3157,7 +3140,7 @@ Nächste_Textzeile_lesen: Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click If vbYes = MsgBox("Soll aus den Daten der Rechnung wirklich eine neue Gutschrift erstellt werden?", vbYesNoCancel) Then - + saveMe() 'Dim RECHNUNG2 = RECHNUNG RECHNUNG.RK_ID = -1 @@ -3236,4 +3219,154 @@ Nächste_Textzeile_lesen: End If End If End Sub + + Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click + If cboFiliale._value = "" Then + MsgBox("Es muss eine Filiale ausgewählt werden") + Exit Sub + End If + If vbYes = MsgBox("Möchten Sie einen neuen Speditionsbucheintrag für die Filiale '" & cboFiliale._value & "' erstellen?", vbYesNoCancel) Then + SPEDBUCH = New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch + + Dim Abfertigungsart = 10 + + SPEDBUCH.FilialenNr = cboFiliale._value + SPEDBUCH.AbfertigungsNr = VERAG_PROG_ALLGEMEIN.cAllgemein.getMaxPosNrIncrement(SPEDBUCH.FilialenNr, Now.Year) + SPEDBUCH.NewUNTER_NR() + + SPEDBUCH.Abfertigungsdatum = Now.Date + + SPEDBUCH.Abfertigungsart = Abfertigungsart + SPEDBUCH.Abfertigungsanzahl = 1 + SPEDBUCH.SgutKompl = "K" + SPEDBUCH.Zollsystem = "D" + + 'SPEDBUCH.Vermittler = "" + + SPEDBUCH.Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME + + If SPEDBUCH.SAVE Then + txtAbfertigungsnummer.Text = SPEDBUCH.AbfertigungsNr + txtUnterNr.Text = SPEDBUCH.UnterNr + btnDatenLaden.PerformClick() + End If + End If + End Sub + + Function bool_SendAbrechung(sendungsId As Integer, kdNr As Integer, art As String) + Dim SENDUNG As New VERAG_PROG_ALLGEMEIN.cSendungen(SPEDBUCH.SendungID) + If SENDUNG IsNot Nothing Then + SENDUNG.LOAD_ABRECHNUNG() + For Each AB In SENDUNG.ABRECHNUNG + If AB.sndabr_abrArt = art And AB.sndabr_wert = "X" Then + Select Case AB.sndabr_beteiligter + Case "ABS" : If kdNr = SPEDBUCH.AbsenderKundenNr Then Return True + Case "AVISIERER" : If kdNr = SPEDBUCH.AvisiererKundenNr Then Return True + Case "EMPF" : If kdNr = SPEDBUCH.EmpfängerKundenNr Then Return True + Case "FRACHTF" : If kdNr = SPEDBUCH.FrachtführerKundenNr Then Return True + Case "AUFTR" : If kdNr = SPEDBUCH.VermittlerKundenNr Then Return True + End Select + End If + Next + End If + Return False + End Function + + Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click + If kdFirmaRechnungAn.KdNr <= 0 Then Exit Sub + If dgvOfferteDetailsUebersicht.Rows.Count = 0 Then Exit Sub + + If SPEDBUCH IsNot Nothing And SPEDBUCH.SendungID IsNot Nothing Then + If If(SPEDBUCH.AtlasBezNrEZA, "") <> "" Then + + If bool_SendAbrechung(SPEDBUCH.SendungID, kdFirmaRechnungAn.KdNr, "EUST") Then + loadEUST() + End If + + If bool_SendAbrechung(SPEDBUCH.SendungID, kdFirmaRechnungAn.KdNr, "ZOLL") Then + loadZOLL() + End If + End If + + If bool_SendAbrechung(SPEDBUCH.SendungID, kdFirmaRechnungAn.KdNr, "ABFKOST") Then + loadBerechnungsArt_jePosition() + End If + End If + + End Sub + + Sub loadEUST() + Dim whereKTO = "" + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + Case "IMEX" + whereKTO = " AND AKTO IN ('002719','002718') " + Case Else + whereKTO = " AND AKTO IN ('006136','006128','3517233') " + End Select + + Dim dt As DataTable = SQL.loadDgvBySql("SELECT [Index] FROM [Zkteing] where Bezugsnummer='" & SPEDBUCH.AtlasBezNrEZA & "' AND LeistungsNr IN (20,77) AND [Status] IS NULL " & whereKTO, "FMZOLL") + For Each r In dt.Rows + VERAG_PROG_ALLGEMEIN.cZkteing.UPDATE_Status("X", r("Index")) + przInsertEUSTZOLL(r("Index")) + Next + End Sub + 'Case 20, 77 + 'Case 10, 76, 60 + 'Case 482 + Sub loadZOLL() + Dim whereKTO = "" + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + Case "IMEX" + whereKTO = " AND AKTO IN ('002719','002718') " + Case Else + whereKTO = " AND AKTO IN ('006136','006128','3517233') " + End Select + + Dim dt As DataTable = SQL.loadDgvBySql("SELECT [Index] FROM [Zkteing] where Bezugsnummer='" & SPEDBUCH.AtlasBezNrEZA & "' AND LeistungsNr NOT IN (20,77) AND [Status] IS NULL " & whereKTO, "FMZOLL") + For Each r In dt.Rows + VERAG_PROG_ALLGEMEIN.cZkteing.UPDATE_Status("X", r("Index")) + przInsertEUSTZOLL(r("Index")) + Next + End Sub + Sub loadBerechnungsArt_jeAbfertigung() + If Not IsNumeric(SPEDBUCH.Abfertigungsanzahl) Then Exit Sub + If SPEDBUCH.Abfertigungsanzahl = 0 Then Exit Sub + + 'Sucht, ob PosAnzahl schon vorhanden ist,... + 'For Each PosAnzahlPOS In RECHNUNG.POSITIONEN + For Each r As DataGridViewRow In dgvOfferteDetailsUebersicht.Rows + If r.Cells("BerechnungsartNr").Value = 1 Then + r.Cells("Anzahl").Value = SPEDBUCH.Abfertigungsanzahl + If r.Cells("Anzahl").Value < 0 Then r.Cells("Anzahl").Value = 0 + End If + Next + End Sub + + Sub loadBerechnungsArt_jePosition() + If Not IsNumeric(txtPositionAnzahl.Text) Then Exit Sub + Dim PosAnzahl = CInt(txtPositionAnzahl.Text) + If PosAnzahl = 0 Then Exit Sub + + 'inkludierte Pos ermitteln + Dim BerechnungsartPosInkludiert = 0 + For Each r As DataGridViewRow In dgvOfferteDetailsUebersicht.Rows + If r.Cells("BerechnungsartNr").Value = 1 AndAlso r.Cells("BerechnungsartPosInkludiert").Value IsNot DBNull.Value AndAlso IsNumeric(r.Cells("BerechnungsartPosInkludiert").Value) Then + BerechnungsartPosInkludiert = If(IsNumeric(r.Cells("BerechnungsartPosInkludiert").Value), r.Cells("BerechnungsartPosInkludiert").Value, 0) + Exit For + End If + Next + + For Each r As DataGridViewRow In dgvOfferteDetailsUebersicht.Rows + If r.Cells("BerechnungsartNr").Value = 10 Then + r.Cells("Anzahl").Value = PosAnzahl - BerechnungsartPosInkludiert + If r.Cells("Anzahl").Value < 0 Then r.Cells("Anzahl").Value = 0 + End If + Next + End Sub + + Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click + loadEUST() + loadZOLL() + loadBerechnungsArt_jePosition() + End Sub End Class diff --git a/SDL/Formulare/Einheitspapier/usrCntlEinheitspapier0735.Designer.vb b/SDL/Formulare/Einheitspapier/usrCntlEinheitspapier0735.Designer.vb index 66f65fea..253efe67 100644 --- a/SDL/Formulare/Einheitspapier/usrCntlEinheitspapier0735.Designer.vb +++ b/SDL/Formulare/Einheitspapier/usrCntlEinheitspapier0735.Designer.vb @@ -175,7 +175,7 @@ Partial Class usrCntlEinheitspapier0735 'Button3 ' Me.Button3.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) - Me.Button3.BackgroundImage = Global.SDL.My.Resources.search + Me.Button3.BackgroundImage = Global.SDL.My.Resources.Resources.search Me.Button3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button3.Location = New System.Drawing.Point(425, 283) @@ -188,7 +188,7 @@ Partial Class usrCntlEinheitspapier0735 'Button1 ' Me.Button1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) - Me.Button1.BackgroundImage = Global.SDL.My.Resources.search + Me.Button1.BackgroundImage = Global.SDL.My.Resources.Resources.search Me.Button1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button1.Location = New System.Drawing.Point(425, 210) @@ -200,7 +200,7 @@ Partial Class usrCntlEinheitspapier0735 'Button2 ' Me.Button2.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) - Me.Button2.BackgroundImage = Global.SDL.My.Resources.search + Me.Button2.BackgroundImage = Global.SDL.My.Resources.Resources.search Me.Button2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button2.Location = New System.Drawing.Point(425, 108) @@ -565,7 +565,7 @@ Partial Class usrCntlEinheitspapier0735 ' 'pic ' - Me.pic.BackgroundImage = Global.SDL.My.Resources.Einheitspapier_0735_top + Me.pic.BackgroundImage = Global.SDL.My.Resources.Resources.Einheitspapier_0735_top Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.pic.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.pic.Dock = System.Windows.Forms.DockStyle.Top @@ -609,7 +609,7 @@ Partial Class usrCntlEinheitspapier0735 'Button4 ' Me.Button4.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) - Me.Button4.BackgroundImage = Global.SDL.My.Resources.search + Me.Button4.BackgroundImage = Global.SDL.My.Resources.Resources.search Me.Button4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button4.Location = New System.Drawing.Point(425, 213) @@ -825,7 +825,7 @@ Partial Class usrCntlEinheitspapier0735 ' 'PictureBox1 ' - Me.PictureBox1.BackgroundImage = Global.SDL.My.Resources.Einheitspapier_0735_bottom + Me.PictureBox1.BackgroundImage = Global.SDL.My.Resources.Resources.Einheitspapier_0735_bottom Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.PictureBox1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.PictureBox1.Dock = System.Windows.Forms.DockStyle.Top diff --git a/SDL/Formulare/Einheitspapier/usrCntlEinheitspapier0735.vb b/SDL/Formulare/Einheitspapier/usrCntlEinheitspapier0735.vb index 00b7a9c7..b1ec2b4d 100644 --- a/SDL/Formulare/Einheitspapier/usrCntlEinheitspapier0735.vb +++ b/SDL/Formulare/Einheitspapier/usrCntlEinheitspapier0735.vb @@ -74,7 +74,7 @@ End Try cboSicherheit.Items.Clear() cboSicherheit.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("05AT510000G000FP7 vom HZA LINZ / WELS", "05AT510000G000FP7")) - cboSicherheit.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("05DE0000000009345 vom HZA MÜNCHEN", "05DE0000000009345")) + cboSicherheit.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("17DE0000000071678 vom HZA MÜNCHEN", "17DE0000000071678")) cboSicherheit.SelectedIndex = 0 'cboSicherheit.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("05AT510000G000FP7 vm HZA LINZ WELS", "05AT510000G000FP7 vm HZA LINZ WELS","XXXXXX")) @@ -93,7 +93,7 @@ Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Case "ATILLA" ' txtHauptverpflichteter.Text = getverag("ATILLA") - cboSicherheit.changeItem("05DE0000000009345") + cboSicherheit.changeItem("17DE0000000071678") txtHauptverpflichteterEORI.Text = "ATEOS1000000199" Case Else Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG @@ -101,17 +101,17 @@ 'txtAnmelder.Text = getverag("VERAG_GMBH") 'txtHauptverpflichteter.Text = getverag("VERAG_GMBH") txtHauptverpflichteterEORI.Text = "DE4824105" - cboSicherheit.changeItem("05DE0000000009345") + cboSicherheit.changeItem("17DE0000000071678") Case "SBG" ' txtAnmelder.Text = getverag("VERAG_GMBH") 'txtHauptverpflichteter.Text = getverag("VERAG_GMBH") txtHauptverpflichteterEORI.Text = "DE4824105" - cboSicherheit.changeItem("05DE0000000009345") + cboSicherheit.changeItem("17DE0000000071678") Case "WDH" ' txtAnmelder.Text = getverag("VERAG_GMBH_WDH") ' txtHauptverpflichteter.Text = getverag("VERAG_GMBH") txtHauptverpflichteterEORI.Text = "DE4824105" - cboSicherheit.changeItem("05DE0000000009345") + cboSicherheit.changeItem("17DE0000000071678") Case Else ' txtAnmelder.Text = getverag("VERAG_AG") ' txtHauptverpflichteter.Text = getverag("VERAG_AG") @@ -348,7 +348,7 @@ Case "05AT510000G000FP7" txtHauptverpflichteter.Text = getverag("VERAG_AG") 'txtAnmelderVertreterNr.Text = "DE4824105" - Case "05DE0000000009345" + Case "17DE0000000071678" txtHauptverpflichteter.Text = getverag("VERAG_GMBH") ' txtAnmelderVertreterNr.Text = "ATEOS1000000199" End Select diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/rptPreislisten.Designer.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/rptPreislisten.Designer.vb index a1e9b221..b439f365 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/rptPreislisten.Designer.vb +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/rptPreislisten.Designer.vb @@ -409,7 +409,7 @@ Partial Public Class rptPreislisten ' Me.ReportFooter1.CanShrink = True Me.ReportFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.TextBox16, Me.Line, Me.TextBox17, Me.Line1, Me.txtVorlageKredit, Me.txtZahlungsziel, Me.txtZahlungsziel2, Me.txtClearing, Me.TextBox12, Me.txtFirmenkennung, Me.SubReport, Me.SubReport2}) - Me.ReportFooter1.Height = 3.544096! + Me.ReportFooter1.Height = 3.201182! Me.ReportFooter1.KeepTogether = True Me.ReportFooter1.Name = "ReportFooter1" ' @@ -420,21 +420,21 @@ Partial Public Class rptPreislisten Me.TextBox16.Name = "TextBox16" Me.TextBox16.Style = "font-size: 9pt; font-weight: normal; text-align: center; ddo-char-set: 1" Me.TextBox16.Text = "Ort & Datum" - Me.TextBox16.Top = 3.376378! + Me.TextBox16.Top = 3.033465! Me.TextBox16.Width = 2.559055! ' 'Line ' - Me.Line.Height = 0.0001802444! + Me.Line.Height = 0.0001809597! Me.Line.Left = 0.02362209! Me.Line.LineWeight = 1.0! Me.Line.Name = "Line" - Me.Line.Top = 3.376378! + Me.Line.Top = 3.033465! Me.Line.Width = 2.559054! Me.Line.X1 = 0.02362209! Me.Line.X2 = 2.582676! - Me.Line.Y1 = 3.376378! - Me.Line.Y2 = 3.376559! + Me.Line.Y1 = 3.033465! + Me.Line.Y2 = 3.033646! ' 'TextBox17 ' @@ -443,21 +443,21 @@ Partial Public Class rptPreislisten Me.TextBox17.Name = "TextBox17" Me.TextBox17.Style = "font-size: 9pt; font-weight: normal; text-align: center; ddo-char-set: 1" Me.TextBox17.Text = "Zur Kenntnis genommen (Stempel, Unterschrift)" - Me.TextBox17.Top = 3.376379! + Me.TextBox17.Top = 3.033466! Me.TextBox17.Width = 3.310236! ' 'Line1 ' - Me.Line1.Height = 0.0001802444! + Me.Line1.Height = 0.000180006! Me.Line1.Left = 3.411811! Me.Line1.LineWeight = 1.0! Me.Line1.Name = "Line1" - Me.Line1.Top = 3.376379! + Me.Line1.Top = 3.033466! Me.Line1.Width = 3.319292! Me.Line1.X1 = 3.411811! Me.Line1.X2 = 6.731103! - Me.Line1.Y1 = 3.376379! - Me.Line1.Y2 = 3.376559! + Me.Line1.Y1 = 3.033466! + Me.Line1.Y2 = 3.033646! ' 'txtVorlageKredit ' @@ -494,14 +494,15 @@ Partial Public Class rptPreislisten ' 'txtClearing ' - Me.txtClearing.Height = 0.4492131! - Me.txtClearing.Left = 0! + Me.txtClearing.Height = 0.1992126! + Me.txtClearing.Left = 2.458268! Me.txtClearing.Name = "txtClearing" Me.txtClearing.Style = "font-size: 10pt; font-weight: normal; text-align: left; ddo-char-set: 1" Me.txtClearing.Text = "Für die Abklärung der Auftragslage stellen wir Ihnen einmalig Clearingkosten in R" & "echnung . (Dieser Betrag wird bei weiteren Aufträgen nicht mehr verrechnet.)" - Me.txtClearing.Top = 1.408268! - Me.txtClearing.Width = 6.692914! + Me.txtClearing.Top = 2.679921! + Me.txtClearing.Visible = False + Me.txtClearing.Width = 3.937008! ' 'TextBox12 ' @@ -509,9 +510,9 @@ Partial Public Class rptPreislisten Me.TextBox12.Left = 0! Me.TextBox12.Name = "TextBox12" Me.TextBox12.Style = "font-size: 10pt; font-weight: normal; text-align: left; ddo-char-set: 1" - Me.TextBox12.Text = "Wir bedanken uns für Ihre Aufträge und freuen uns auf eine gute Zusammenarbeit." & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(10) & - "" & Global.Microsoft.VisualBasic.ChrW(10) & "Mit freundlichen Grüßen" - Me.TextBox12.Top = 1.857481! + Me.TextBox12.Text = "Wir bedanken uns für Ihren Auftrag und freuen uns auf eine gute Zusammenarbeit." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & + "" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Mit freundlichen Grüßen" + Me.TextBox12.Top = 1.514568! Me.TextBox12.Width = 6.692914! ' 'txtFirmenkennung @@ -521,7 +522,7 @@ Partial Public Class rptPreislisten Me.txtFirmenkennung.Name = "txtFirmenkennung" Me.txtFirmenkennung.Style = "font-size: 11pt; font-weight: bold; text-align: left; ddo-char-set: 1" Me.txtFirmenkennung.Text = "VERAG Spedition AG" - Me.txtFirmenkennung.Top = 2.600789! + Me.txtFirmenkennung.Top = 2.257876! Me.txtFirmenkennung.Width = 6.692914! ' 'SubReport diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlRechnungsbestaetigung.Designer.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlRechnungsbestaetigung.Designer.vb new file mode 100644 index 00000000..31d0fe2e --- /dev/null +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlRechnungsbestaetigung.Designer.vb @@ -0,0 +1,214 @@ + +Partial Class usrcntlRechnungsbestaetigung + 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 + 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() + Me.lblVollmachtDE = New System.Windows.Forms.Label() + Me.lbl = New System.Windows.Forms.Label() + Me.txtRgNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.pic = New System.Windows.Forms.PictureBox() + Me.btnDown = New System.Windows.Forms.Button() + Me.btnUp = New System.Windows.Forms.Button() + Me.btnDel = New System.Windows.Forms.Button() + Me.Label1 = New System.Windows.Forms.Label() + Me.txtVersender = New VERAG_PROG_ALLGEMEIN.KdSearchBox() + Me.Label4 = New System.Windows.Forms.Label() + Me.cboSprache = New VERAG_PROG_ALLGEMEIN.MyComboBox() + CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'lblVollmachtDE + ' + Me.lblVollmachtDE.AutoSize = True + Me.lblVollmachtDE.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblVollmachtDE.Location = New System.Drawing.Point(43, 9) + Me.lblVollmachtDE.Name = "lblVollmachtDE" + Me.lblVollmachtDE.Size = New System.Drawing.Size(195, 20) + Me.lblVollmachtDE.TabIndex = 1 + Me.lblVollmachtDE.Text = "Rechnungsbestätigung" + ' + 'lbl + ' + Me.lbl.AutoSize = True + Me.lbl.Location = New System.Drawing.Point(170, 37) + Me.lbl.Name = "lbl" + Me.lbl.Size = New System.Drawing.Size(55, 13) + Me.lbl.TabIndex = 6 + Me.lbl.Text = "Versender" + ' + 'txtRgNr + ' + Me.txtRgNr._DateTimeOnly = False + Me.txtRgNr._numbersOnly = False + Me.txtRgNr._numbersOnlyKommastellen = "" + Me.txtRgNr._Prozent = False + Me.txtRgNr._ShortDateNew = False + Me.txtRgNr._ShortDateOnly = False + Me.txtRgNr._TimeOnly = False + Me.txtRgNr._value = Nothing + Me.txtRgNr._Waehrung = False + Me.txtRgNr._WaehrungZeichen = True + Me.txtRgNr.ForeColor = System.Drawing.Color.Black + Me.txtRgNr.Location = New System.Drawing.Point(254, 54) + Me.txtRgNr.MaxLineLength = -1 + Me.txtRgNr.MaxLines_Warning = "" + Me.txtRgNr.MaxLines_Warning_Label = Nothing + Me.txtRgNr.Name = "txtRgNr" + Me.txtRgNr.Size = New System.Drawing.Size(709, 20) + Me.txtRgNr.TabIndex = 12 + ' + 'pic + ' + Me.pic.BackgroundImage = Global.SDL.My.Resources.Resources.pdf + Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.pic.Cursor = System.Windows.Forms.Cursors.Hand + Me.pic.Location = New System.Drawing.Point(5, 5) + Me.pic.Name = "pic" + Me.pic.Size = New System.Drawing.Size(32, 32) + Me.pic.TabIndex = 30 + Me.pic.TabStop = False + ' + 'btnDown + ' + Me.btnDown.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnDown.BackgroundImage = Global.SDL.My.Resources.Resources.pfeil_unten + Me.btnDown.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.btnDown.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnDown.Location = New System.Drawing.Point(976, 42) + Me.btnDown.Name = "btnDown" + Me.btnDown.Size = New System.Drawing.Size(25, 21) + Me.btnDown.TabIndex = 9 + Me.btnDown.UseVisualStyleBackColor = True + ' + 'btnUp + ' + Me.btnUp.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnUp.BackgroundImage = Global.SDL.My.Resources.Resources.pfeil_oben + Me.btnUp.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.btnUp.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnUp.Location = New System.Drawing.Point(976, 22) + Me.btnUp.Name = "btnUp" + Me.btnUp.Size = New System.Drawing.Size(25, 21) + Me.btnUp.TabIndex = 4 + Me.btnUp.UseVisualStyleBackColor = True + ' + 'btnDel + ' + Me.btnDel.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnDel.BackgroundImage = Global.SDL.My.Resources.Resources.del + Me.btnDel.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.btnDel.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnDel.Location = New System.Drawing.Point(976, -1) + Me.btnDel.Name = "btnDel" + Me.btnDel.Size = New System.Drawing.Size(25, 21) + Me.btnDel.TabIndex = 0 + Me.btnDel.UseVisualStyleBackColor = True + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(170, 57) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(41, 13) + Me.Label1.TabIndex = 58 + Me.Label1.Text = "Rg-Nr.:" + ' + 'txtVersender + ' + Me.txtVersender._AllowSetValue = True + Me.txtVersender._autoSizeGross = False + Me.txtVersender._display_Name1 = True + Me.txtVersender._displayAVISO_Email = False + Me.txtVersender._displayFullName = False + Me.txtVersender._displayWoelflKd = False + Me.txtVersender._hideIfListEmpty = True + Me.txtVersender._loadKdData = True + Me.txtVersender._ValueKdAndName = False + Me.txtVersender.dgvpos = "LEFT" + Me.txtVersender.KdName = Nothing + Me.txtVersender.KdNr = "-1" + Me.txtVersender.kdNrField = Nothing + Me.txtVersender.KdNrNullInt = Nothing + Me.txtVersender.Location = New System.Drawing.Point(254, 35) + Me.txtVersender.Name = "txtVersender" + Me.txtVersender.nurAktive = True + Me.txtVersender.searchActive = True + Me.txtVersender.Size = New System.Drawing.Size(709, 20) + Me.txtVersender.TabIndex = 53 + Me.txtVersender.usrcntl = Nothing + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.Location = New System.Drawing.Point(44, 38) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(50, 13) + Me.Label4.TabIndex = 59 + Me.Label4.Text = "Sprache:" + ' + 'cboSprache + ' + Me.cboSprache._allowedValuesFreiText = Nothing + Me.cboSprache._allowFreiText = False + Me.cboSprache._value = "" + Me.cboSprache.FormattingEnabled = True + Me.cboSprache.Location = New System.Drawing.Point(47, 54) + Me.cboSprache.Name = "cboSprache" + Me.cboSprache.Size = New System.Drawing.Size(89, 21) + Me.cboSprache.TabIndex = 60 + ' + 'usrcntlRechnungsbestaetigung + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.Color.WhiteSmoke + Me.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Controls.Add(Me.Label4) + Me.Controls.Add(Me.cboSprache) + Me.Controls.Add(Me.lblVollmachtDE) + Me.Controls.Add(Me.Label1) + Me.Controls.Add(Me.txtVersender) + Me.Controls.Add(Me.btnDown) + Me.Controls.Add(Me.btnUp) + Me.Controls.Add(Me.btnDel) + Me.Controls.Add(Me.pic) + Me.Controls.Add(Me.txtRgNr) + Me.Controls.Add(Me.lbl) + Me.Name = "usrcntlRechnungsbestaetigung" + Me.Size = New System.Drawing.Size(1000, 89) + CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents lblVollmachtDE As System.Windows.Forms.Label + Friend WithEvents lbl As System.Windows.Forms.Label + Friend WithEvents txtRgNr As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents pic As System.Windows.Forms.PictureBox + Friend WithEvents btnDown As System.Windows.Forms.Button + Friend WithEvents btnUp As System.Windows.Forms.Button + Friend WithEvents btnDel As System.Windows.Forms.Button + Friend WithEvents Label1 As Label + Friend WithEvents txtVersender As VERAG_PROG_ALLGEMEIN.KdSearchBox + Friend WithEvents Label4 As Label + Friend WithEvents cboSprache As VERAG_PROG_ALLGEMEIN.MyComboBox +End Class diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlRechnungsbestaetigung.resx b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlRechnungsbestaetigung.resx new file mode 100644 index 00000000..1af7de15 --- /dev/null +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlRechnungsbestaetigung.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + \ No newline at end of file diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlRechnungsbestaetigung.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlRechnungsbestaetigung.vb new file mode 100644 index 00000000..3a335ee9 --- /dev/null +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlRechnungsbestaetigung.vb @@ -0,0 +1,82 @@ +Public Class usrcntlRechnungsbestaetigung + Implements FormualrInterface + + Public Event CHANGED(name, value) + Public Event KDNR_CHANGED(kdnr) + Public Event DELETE(c As Control) + Public Event MOVE_UP(c As Control) + Public Event MOVE_DOWN(c As Control) + + Public KdNR As Integer = -1 + Public Sub ChangeKDNr(kdnr As Integer) _ + Implements FormualrInterface.ChangeKDNr + 'initKdNR(kdnr) + txtVersender.KdNr = kdnr + End Sub + + Sub initControlsHandler() + For Each c In Me.Controls + Select Case c.GetType.ToString + Case GetType(VERAG_PROG_ALLGEMEIN.MyTextBox).ToString + AddHandler DirectCast(c, VERAG_PROG_ALLGEMEIN.MyTextBox).Leave, Sub() + RaiseEvent CHANGED(c.name, c.text) + End Sub + Case GetType(VERAG_PROG_ALLGEMEIN.MyComboBox).ToString + AddHandler DirectCast(c, VERAG_PROG_ALLGEMEIN.MyComboBox).SelectedIndexChanged, Sub() + RaiseEvent CHANGED(c.name, c._value) + End Sub + Case GetType(TextBox).ToString + AddHandler DirectCast(c, TextBox).Leave, Sub() + RaiseEvent CHANGED(c.name, c.text) + End Sub + End Select + Next + End Sub + + Private Sub btnDel_Click(sender As Object, e As EventArgs) Handles btnDel.Click + RaiseEvent DELETE(Me) + End Sub + + Private Sub btnup_Click(sender As Object, e As EventArgs) Handles btnUp.Click + RaiseEvent MOVE_UP(Me) + End Sub + + Private Sub btnDown_Click(sender As Object, e As EventArgs) Handles btnDown.Click + RaiseEvent MOVE_DOWN(Me) + End Sub + + Private Sub Button1_Click(sender As Object, e As EventArgs) + + End Sub + + Private Sub usrcntlVollmacht_AT_Load(sender As Object, e As EventArgs) Handles Me.Load + + txtVersender.initKdBox(Me.FindForm) + + initControlsHandler() + cboSprache.Items.Clear() + cboSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Deutsch", "DE")) + cboSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Englisch", "EN")) + cboSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Französisch", "FR")) + cboSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Türkisch", "TR")) + + If KdNR > 0 Then txtVersender.KdNr = KdNR + + ' cboFiliale.fillWithSQL(" SELECT FilialenNr, Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", , "FMZOLL", True) + + ' txtBearbeiter.Text = If(VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME, "") + + + + End Sub + + Private Sub pic_Click(sender As Object, e As EventArgs) Handles pic.Click + FormularManagerNEU.genPDF(Me, True) + End Sub + + + + Private Sub PictureBox1_Click(sender As Object, e As EventArgs) + FormularManagerNEU.genPDF(Me, , , , True) + End Sub +End Class diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.vb index 5ff2c21a..f97a0ee0 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.vb +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.vb @@ -109,6 +109,7 @@ MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Fiskal AT", "VZ_FISKAL")) MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Fiskal DE", "VZ_FISKAL_DE")) End If + MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Handling", "HANDLING")) MyComboBox1.changeItem("VZ") End Select @@ -143,7 +144,7 @@ Case "VZ" DataGridView.Rows.Add(cnt, "", "Verzollung (inkl. 1 Tarifnummer)", CDbl(93).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(6).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "440", "Papiere Porti", CDbl(12).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "440", "P.P./Fixe Taxe", CDbl(12).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(8).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 @@ -163,7 +164,7 @@ Case "VZ_EV" DataGridView.Rows.Add(cnt, "", "Verzollung (inkl. 1 Tarifnummer)", CDbl(93).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(6).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "440", "Papiere Porti", CDbl(12).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "440", "P.P./Fixe Taxe", CDbl(12).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 DataGridView.Rows.Add(cnt, "324", "EZOLL (AT) Zuschlag", CDbl(8).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 @@ -184,7 +185,7 @@ DataGridView.Rows.Add(cnt, "", "Verzollung (inkl. 1 Tarifnummer)", CDbl(93).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "", "Rückwarenverzollung", CDbl(106).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(6).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "440", "Papiere Porti", CDbl(12).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "440", "P.P./Fixe Taxe", CDbl(12).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(8).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 @@ -201,7 +202,7 @@ DataGridView.Rows.Add(cnt, "", "Fiskal-Verzollung (inkl. 1 Tarifnummer)", CDbl(240).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(12).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "440", "Papiere Porti", CDbl(12).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "440", "P.P./Fixe Taxe", CDbl(12).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 DataGridView.Rows.Add(cnt, "324", "EZOLL (AT) Zuschlag", CDbl(8).ToString("C2")) : cnt += 1 ' DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 @@ -224,7 +225,7 @@ DataGridView.Rows.Add(cnt, "", "Fiskal-Verzollung (inkl. 1 Tarifnummer)", CDbl(240).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(12).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "440", "Papiere Porti", CDbl(12).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "440", "P.P./Fixe Taxe", CDbl(12).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(8).ToString("C2")) : cnt += 1 ' DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 @@ -245,7 +246,7 @@ Case "EUST" DataGridView.Rows.Add(cnt, "", "EUST", "lt. Steuerbescheid") : cnt += 1 - DataGridView.Rows.Add(cnt, "440", "Papiere Porti", CDbl(12).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "440", "P.P./Fixe Taxe", CDbl(12).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(8).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 @@ -264,7 +265,7 @@ Case "VZ" DataGridView.Rows.Add(cnt, "", "Verzollung (inkl. 1 Tarifnummer)", CDbl(93).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(6).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "440", "Papiere Porti", CDbl(12).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "440", "P.P./Fixe Taxe", CDbl(12).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(8).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 @@ -284,7 +285,7 @@ Case "VZ_EV" DataGridView.Rows.Add(cnt, "", "Verzollung (inkl. 1 Tarifnummer)", CDbl(93).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(6).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "440", "Papiere Porti", CDbl(12).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "440", "P.P./Fixe Taxe", CDbl(12).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 DataGridView.Rows.Add(cnt, "324", "EZOLL (AT) Zuschlag", CDbl(8).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 @@ -305,7 +306,7 @@ DataGridView.Rows.Add(cnt, "", "Verzollung (inkl. 1 Tarifnummer)", CDbl(93).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "", "Rückwarenverzollung", CDbl(106).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(6).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "440", "Papiere Porti", CDbl(12).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "440", "P.P./Fixe Taxe", CDbl(12).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(8).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 @@ -322,7 +323,7 @@ DataGridView.Rows.Add(cnt, "", "Fiskal-Verzollung (inkl. 1 Tarifnummer)", CDbl(240).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(12).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "440", "Papiere Porti", CDbl(12).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "440", "P.P./Fixe Taxe", CDbl(12).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 DataGridView.Rows.Add(cnt, "324", "EZOLL (AT) Zuschlag", CDbl(8).ToString("C2")) : cnt += 1 ' DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 @@ -345,7 +346,7 @@ DataGridView.Rows.Add(cnt, "", "Fiskal-Verzollung (inkl. 1 Tarifnummer)", CDbl(240).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(12).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "440", "Papiere Porti", CDbl(12).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "440", "P.P./Fixe Taxe", CDbl(12).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(8).ToString("C2")) : cnt += 1 ' DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 @@ -366,7 +367,7 @@ Case "VZ_SPECIAL_1" '"VZ Gemüse,Arznei,Lebensmittel" DataGridView.Rows.Add(cnt, "", "Verzollung (inkl. 1 Tarifnummer)", CDbl(139).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(18).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "440", "Papiere Porti", CDbl(15).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "440", "P.P./Fixe Taxe", CDbl(15).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(8).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 @@ -386,7 +387,7 @@ Case "EUST" DataGridView.Rows.Add(cnt, "", "EUST", "lt. Steuerbescheid") : cnt += 1 - DataGridView.Rows.Add(cnt, "440", "Papiere Porti", CDbl(12).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "440", "P.P./Fixe Taxe", CDbl(12).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(8).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 @@ -395,7 +396,13 @@ dgvZusatzleistung.Rows.Add("", "347", "Clearingkosten (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2")) cboFirma.changeItem("AG") + Case "HANDLING" + ' DataGridView.Rows.Add(cnt, "", "EUST", "lt. Steuerbescheid") : cnt += 1 + DataGridView.Rows.Add(cnt, "345", "Handing/eigene Anmeldung", CDbl(25).ToString("C2")) : cnt += 1 + dgvZusatzleistung.Rows.Add("", "345", "Avisogebühr (nur wenn LKW nicht voravisiert)", CDbl(15).ToString("C2")) + + cboFirma.changeItem("AG") End Select End Select diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungsunterlagen.Designer.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungsunterlagen.Designer.vb index 16e1c7e4..270f8c9a 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungsunterlagen.Designer.vb +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungsunterlagen.Designer.vb @@ -52,9 +52,28 @@ Partial Class usrcntlVerzollungsunterlagen Me.txtAnlage4 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtAnlage5 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtAnlage6 = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtPosNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtLKW = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Panel4 = New System.Windows.Forms.Panel() + Me.Button3 = New System.Windows.Forms.Button() + Me.btnStandardPreiseLaden = New System.Windows.Forms.Button() + Me.lblCRsaved = New System.Windows.Forms.Label() + Me.cbxBeimErstellenSpeichern = New System.Windows.Forms.CheckBox() + Me.Label5 = New System.Windows.Forms.Label() + Me.KdInAuftrag = New VERAG_PROG_ALLGEMEIN.KdSearchBox() + Me.cboFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtAbfertigungsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label7 = New System.Windows.Forms.Label() + Me.Label9 = New System.Windows.Forms.Label() + Me.kdRgEmpfaenger = New VERAG_PROG_ALLGEMEIN.KdSearchBox() + Me.txtEmpfänger = New System.Windows.Forms.Label() + Me.txtAvisiererAuftragsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label8 = New System.Windows.Forms.Label() + Me.btnNEU = New System.Windows.Forms.Button() + Me.txtRefNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label10 = New System.Windows.Forms.Label() CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.Panel4.SuspendLayout() Me.SuspendLayout() ' 'lblVollmachtDE @@ -70,20 +89,20 @@ Partial Class usrcntlVerzollungsunterlagen 'lbl ' Me.lbl.AutoSize = True - Me.lbl.Location = New System.Drawing.Point(170, 37) + Me.lbl.Location = New System.Drawing.Point(167, 56) Me.lbl.Name = "lbl" Me.lbl.Size = New System.Drawing.Size(78, 13) - Me.lbl.TabIndex = 6 + Me.lbl.TabIndex = 10 Me.lbl.Text = "Firmenwortlaut:" ' 'Label6 ' Me.Label6.AutoSize = True - Me.Label6.Location = New System.Drawing.Point(170, 139) + Me.Label6.Location = New System.Drawing.Point(167, 158) Me.Label6.Name = "Label6" - Me.Label6.Size = New System.Drawing.Size(45, 13) - Me.Label6.TabIndex = 26 - Me.Label6.Text = "Pos.Nr::" + Me.Label6.Size = New System.Drawing.Size(87, 13) + Me.Label6.TabIndex = 17 + Me.Label6.Text = "LKW-/Container:" ' 'txtAdresse2 ' @@ -98,13 +117,13 @@ Partial Class usrcntlVerzollungsunterlagen Me.txtAdresse2._Waehrung = False Me.txtAdresse2._WaehrungZeichen = True Me.txtAdresse2.ForeColor = System.Drawing.Color.Black - Me.txtAdresse2.Location = New System.Drawing.Point(254, 91) + Me.txtAdresse2.Location = New System.Drawing.Point(254, 110) Me.txtAdresse2.MaxLineLength = -1 Me.txtAdresse2.MaxLines_Warning = "" Me.txtAdresse2.MaxLines_Warning_Label = Nothing Me.txtAdresse2.Name = "txtAdresse2" Me.txtAdresse2.Size = New System.Drawing.Size(709, 20) - Me.txtAdresse2.TabIndex = 13 + Me.txtAdresse2.TabIndex = 15 ' 'txtAdresse1 ' @@ -119,13 +138,13 @@ Partial Class usrcntlVerzollungsunterlagen Me.txtAdresse1._Waehrung = False Me.txtAdresse1._WaehrungZeichen = True Me.txtAdresse1.ForeColor = System.Drawing.Color.Black - Me.txtAdresse1.Location = New System.Drawing.Point(254, 72) + Me.txtAdresse1.Location = New System.Drawing.Point(254, 91) Me.txtAdresse1.MaxLineLength = -1 Me.txtAdresse1.MaxLines_Warning = "" Me.txtAdresse1.MaxLines_Warning_Label = Nothing Me.txtAdresse1.Name = "txtAdresse1" Me.txtAdresse1.Size = New System.Drawing.Size(709, 20) - Me.txtAdresse1.TabIndex = 12 + Me.txtAdresse1.TabIndex = 14 ' 'pic ' @@ -159,7 +178,7 @@ Partial Class usrcntlVerzollungsunterlagen Me.btnUp.Location = New System.Drawing.Point(976, 22) Me.btnUp.Name = "btnUp" Me.btnUp.Size = New System.Drawing.Size(25, 21) - Me.btnUp.TabIndex = 4 + Me.btnUp.TabIndex = 7 Me.btnUp.UseVisualStyleBackColor = True ' 'btnDel @@ -183,7 +202,7 @@ Partial Class usrcntlVerzollungsunterlagen Me.cboFirma.Location = New System.Drawing.Point(292, 7) Me.cboFirma.Name = "cboFirma" Me.cboFirma.Size = New System.Drawing.Size(261, 21) - Me.cboFirma.TabIndex = 10 + Me.cboFirma.TabIndex = 3 ' 'Label12 ' @@ -191,7 +210,7 @@ Partial Class usrcntlVerzollungsunterlagen Me.Label12.Location = New System.Drawing.Point(251, 10) Me.Label12.Name = "Label12" Me.Label12.Size = New System.Drawing.Size(35, 13) - Me.Label12.TabIndex = 5 + Me.Label12.TabIndex = 2 Me.Label12.Text = "Firma:" ' 'txtAdresse3 @@ -207,13 +226,13 @@ Partial Class usrcntlVerzollungsunterlagen Me.txtAdresse3._Waehrung = False Me.txtAdresse3._WaehrungZeichen = True Me.txtAdresse3.ForeColor = System.Drawing.Color.Black - Me.txtAdresse3.Location = New System.Drawing.Point(254, 110) + Me.txtAdresse3.Location = New System.Drawing.Point(254, 129) Me.txtAdresse3.MaxLineLength = -1 Me.txtAdresse3.MaxLines_Warning = "" Me.txtAdresse3.MaxLines_Warning_Label = Nothing Me.txtAdresse3.Name = "txtAdresse3" Me.txtAdresse3.Size = New System.Drawing.Size(709, 20) - Me.txtAdresse3.TabIndex = 37 + Me.txtAdresse3.TabIndex = 16 ' 'txtFirma2 ' @@ -228,13 +247,13 @@ Partial Class usrcntlVerzollungsunterlagen Me.txtFirma2._Waehrung = False Me.txtFirma2._WaehrungZeichen = True Me.txtFirma2.ForeColor = System.Drawing.Color.Black - Me.txtFirma2.Location = New System.Drawing.Point(254, 53) + Me.txtFirma2.Location = New System.Drawing.Point(254, 72) Me.txtFirma2.MaxLineLength = -1 Me.txtFirma2.MaxLines_Warning = "" Me.txtFirma2.MaxLines_Warning_Label = Nothing Me.txtFirma2.Name = "txtFirma2" Me.txtFirma2.Size = New System.Drawing.Size(709, 20) - Me.txtFirma2.TabIndex = 38 + Me.txtFirma2.TabIndex = 12 ' 'PictureBox1 ' @@ -263,21 +282,21 @@ Partial Class usrcntlVerzollungsunterlagen Me.txtFirma.KdNr = "-1" Me.txtFirma.kdNrField = Nothing Me.txtFirma.KdNrNullInt = Nothing - Me.txtFirma.Location = New System.Drawing.Point(254, 35) + Me.txtFirma.Location = New System.Drawing.Point(254, 54) Me.txtFirma.Name = "txtFirma" Me.txtFirma.nurAktive = True Me.txtFirma.searchActive = True Me.txtFirma.Size = New System.Drawing.Size(709, 20) - Me.txtFirma.TabIndex = 53 + Me.txtFirma.TabIndex = 11 Me.txtFirma.usrcntl = Nothing ' 'Label1 ' Me.Label1.AutoSize = True - Me.Label1.Location = New System.Drawing.Point(580, 165) + Me.Label1.Location = New System.Drawing.Point(580, 184) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(46, 13) - Me.Label1.TabIndex = 44 + Me.Label1.TabIndex = 24 Me.Label1.Text = "Telefon:" ' 'txtTel @@ -293,13 +312,13 @@ Partial Class usrcntlVerzollungsunterlagen Me.txtTel._Waehrung = False Me.txtTel._WaehrungZeichen = True Me.txtTel.ForeColor = System.Drawing.Color.Black - Me.txtTel.Location = New System.Drawing.Point(653, 162) + Me.txtTel.Location = New System.Drawing.Point(653, 181) Me.txtTel.MaxLineLength = -1 Me.txtTel.MaxLines_Warning = "" Me.txtTel.MaxLines_Warning_Label = Nothing Me.txtTel.Name = "txtTel" Me.txtTel.Size = New System.Drawing.Size(310, 20) - Me.txtTel.TabIndex = 45 + Me.txtTel.TabIndex = 25 ' 'txtFax ' @@ -314,13 +333,13 @@ Partial Class usrcntlVerzollungsunterlagen Me.txtFax._Waehrung = False Me.txtFax._WaehrungZeichen = True Me.txtFax.ForeColor = System.Drawing.Color.Black - Me.txtFax.Location = New System.Drawing.Point(653, 181) + Me.txtFax.Location = New System.Drawing.Point(653, 200) Me.txtFax.MaxLineLength = -1 Me.txtFax.MaxLines_Warning = "" Me.txtFax.MaxLines_Warning_Label = Nothing Me.txtFax.Name = "txtFax" Me.txtFax.Size = New System.Drawing.Size(310, 20) - Me.txtFax.TabIndex = 46 + Me.txtFax.TabIndex = 28 ' 'txtEmail ' @@ -335,13 +354,13 @@ Partial Class usrcntlVerzollungsunterlagen Me.txtEmail._Waehrung = False Me.txtEmail._WaehrungZeichen = True Me.txtEmail.ForeColor = System.Drawing.Color.Black - Me.txtEmail.Location = New System.Drawing.Point(653, 200) + Me.txtEmail.Location = New System.Drawing.Point(653, 219) Me.txtEmail.MaxLineLength = -1 Me.txtEmail.MaxLines_Warning = "" Me.txtEmail.MaxLines_Warning_Label = Nothing Me.txtEmail.Name = "txtEmail" Me.txtEmail.Size = New System.Drawing.Size(310, 20) - Me.txtEmail.TabIndex = 47 + Me.txtEmail.TabIndex = 31 ' 'txtBearbeiter ' @@ -356,48 +375,48 @@ Partial Class usrcntlVerzollungsunterlagen Me.txtBearbeiter._Waehrung = False Me.txtBearbeiter._WaehrungZeichen = True Me.txtBearbeiter.ForeColor = System.Drawing.Color.Black - Me.txtBearbeiter.Location = New System.Drawing.Point(653, 219) + Me.txtBearbeiter.Location = New System.Drawing.Point(653, 238) Me.txtBearbeiter.MaxLineLength = -1 Me.txtBearbeiter.MaxLines_Warning = "" Me.txtBearbeiter.MaxLines_Warning_Label = Nothing Me.txtBearbeiter.Name = "txtBearbeiter" Me.txtBearbeiter.Size = New System.Drawing.Size(310, 20) - Me.txtBearbeiter.TabIndex = 48 + Me.txtBearbeiter.TabIndex = 34 ' 'Label2 ' Me.Label2.AutoSize = True - Me.Label2.Location = New System.Drawing.Point(580, 184) + Me.Label2.Location = New System.Drawing.Point(580, 203) Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(27, 13) - Me.Label2.TabIndex = 49 + Me.Label2.TabIndex = 27 Me.Label2.Text = "Fax:" ' 'Label3 ' Me.Label3.AutoSize = True - Me.Label3.Location = New System.Drawing.Point(580, 203) + Me.Label3.Location = New System.Drawing.Point(580, 222) Me.Label3.Name = "Label3" Me.Label3.Size = New System.Drawing.Size(39, 13) - Me.Label3.TabIndex = 50 + Me.Label3.TabIndex = 30 Me.Label3.Text = "E-Mail:" ' 'Label4 ' Me.Label4.AutoSize = True - Me.Label4.Location = New System.Drawing.Point(580, 222) + Me.Label4.Location = New System.Drawing.Point(580, 241) Me.Label4.Name = "Label4" Me.Label4.Size = New System.Drawing.Size(58, 13) - Me.Label4.TabIndex = 51 + Me.Label4.TabIndex = 33 Me.Label4.Text = "Bearbeiter:" ' 'Label11 ' Me.Label11.AutoSize = True - Me.Label11.Location = New System.Drawing.Point(170, 165) + Me.Label11.Location = New System.Drawing.Point(167, 184) Me.Label11.Name = "Label11" Me.Label11.Size = New System.Drawing.Size(49, 13) - Me.Label11.TabIndex = 28 + Me.Label11.TabIndex = 22 Me.Label11.Text = "Anlagen:" ' 'txtAnlage1 @@ -413,13 +432,13 @@ Partial Class usrcntlVerzollungsunterlagen Me.txtAnlage1._Waehrung = False Me.txtAnlage1._WaehrungZeichen = True Me.txtAnlage1.ForeColor = System.Drawing.Color.Black - Me.txtAnlage1.Location = New System.Drawing.Point(254, 162) + Me.txtAnlage1.Location = New System.Drawing.Point(254, 181) Me.txtAnlage1.MaxLineLength = -1 Me.txtAnlage1.MaxLines_Warning = "" Me.txtAnlage1.MaxLines_Warning_Label = Nothing Me.txtAnlage1.Name = "txtAnlage1" Me.txtAnlage1.Size = New System.Drawing.Size(310, 20) - Me.txtAnlage1.TabIndex = 29 + Me.txtAnlage1.TabIndex = 23 ' 'txtAnlage2 ' @@ -434,13 +453,13 @@ Partial Class usrcntlVerzollungsunterlagen Me.txtAnlage2._Waehrung = False Me.txtAnlage2._WaehrungZeichen = True Me.txtAnlage2.ForeColor = System.Drawing.Color.Black - Me.txtAnlage2.Location = New System.Drawing.Point(254, 181) + Me.txtAnlage2.Location = New System.Drawing.Point(254, 200) Me.txtAnlage2.MaxLineLength = -1 Me.txtAnlage2.MaxLines_Warning = "" Me.txtAnlage2.MaxLines_Warning_Label = Nothing Me.txtAnlage2.Name = "txtAnlage2" Me.txtAnlage2.Size = New System.Drawing.Size(310, 20) - Me.txtAnlage2.TabIndex = 39 + Me.txtAnlage2.TabIndex = 26 ' 'txtAnlage3 ' @@ -455,13 +474,13 @@ Partial Class usrcntlVerzollungsunterlagen Me.txtAnlage3._Waehrung = False Me.txtAnlage3._WaehrungZeichen = True Me.txtAnlage3.ForeColor = System.Drawing.Color.Black - Me.txtAnlage3.Location = New System.Drawing.Point(254, 200) + Me.txtAnlage3.Location = New System.Drawing.Point(254, 219) Me.txtAnlage3.MaxLineLength = -1 Me.txtAnlage3.MaxLines_Warning = "" Me.txtAnlage3.MaxLines_Warning_Label = Nothing Me.txtAnlage3.Name = "txtAnlage3" Me.txtAnlage3.Size = New System.Drawing.Size(310, 20) - Me.txtAnlage3.TabIndex = 40 + Me.txtAnlage3.TabIndex = 29 ' 'txtAnlage4 ' @@ -476,13 +495,13 @@ Partial Class usrcntlVerzollungsunterlagen Me.txtAnlage4._Waehrung = False Me.txtAnlage4._WaehrungZeichen = True Me.txtAnlage4.ForeColor = System.Drawing.Color.Black - Me.txtAnlage4.Location = New System.Drawing.Point(254, 219) + Me.txtAnlage4.Location = New System.Drawing.Point(254, 238) Me.txtAnlage4.MaxLineLength = -1 Me.txtAnlage4.MaxLines_Warning = "" Me.txtAnlage4.MaxLines_Warning_Label = Nothing Me.txtAnlage4.Name = "txtAnlage4" Me.txtAnlage4.Size = New System.Drawing.Size(310, 20) - Me.txtAnlage4.TabIndex = 41 + Me.txtAnlage4.TabIndex = 32 ' 'txtAnlage5 ' @@ -497,13 +516,13 @@ Partial Class usrcntlVerzollungsunterlagen Me.txtAnlage5._Waehrung = False Me.txtAnlage5._WaehrungZeichen = True Me.txtAnlage5.ForeColor = System.Drawing.Color.Black - Me.txtAnlage5.Location = New System.Drawing.Point(254, 238) + Me.txtAnlage5.Location = New System.Drawing.Point(254, 257) Me.txtAnlage5.MaxLineLength = -1 Me.txtAnlage5.MaxLines_Warning = "" Me.txtAnlage5.MaxLines_Warning_Label = Nothing Me.txtAnlage5.Name = "txtAnlage5" Me.txtAnlage5.Size = New System.Drawing.Size(310, 20) - Me.txtAnlage5.TabIndex = 42 + Me.txtAnlage5.TabIndex = 35 ' 'txtAnlage6 ' @@ -518,34 +537,276 @@ Partial Class usrcntlVerzollungsunterlagen Me.txtAnlage6._Waehrung = False Me.txtAnlage6._WaehrungZeichen = True Me.txtAnlage6.ForeColor = System.Drawing.Color.Black - Me.txtAnlage6.Location = New System.Drawing.Point(254, 257) + Me.txtAnlage6.Location = New System.Drawing.Point(254, 276) Me.txtAnlage6.MaxLineLength = -1 Me.txtAnlage6.MaxLines_Warning = "" Me.txtAnlage6.MaxLines_Warning_Label = Nothing Me.txtAnlage6.Name = "txtAnlage6" Me.txtAnlage6.Size = New System.Drawing.Size(310, 20) - Me.txtAnlage6.TabIndex = 43 + Me.txtAnlage6.TabIndex = 36 ' - 'txtPosNr + 'txtLKW ' - Me.txtPosNr._DateTimeOnly = False - Me.txtPosNr._numbersOnly = False - Me.txtPosNr._numbersOnlyKommastellen = "" - Me.txtPosNr._Prozent = False - Me.txtPosNr._ShortDateNew = False - Me.txtPosNr._ShortDateOnly = False - Me.txtPosNr._TimeOnly = False - Me.txtPosNr._value = Nothing - Me.txtPosNr._Waehrung = False - Me.txtPosNr._WaehrungZeichen = True - Me.txtPosNr.ForeColor = System.Drawing.Color.Black - Me.txtPosNr.Location = New System.Drawing.Point(254, 136) - Me.txtPosNr.MaxLineLength = -1 - Me.txtPosNr.MaxLines_Warning = "" - Me.txtPosNr.MaxLines_Warning_Label = Nothing - Me.txtPosNr.Name = "txtPosNr" - Me.txtPosNr.Size = New System.Drawing.Size(310, 20) - Me.txtPosNr.TabIndex = 27 + Me.txtLKW._DateTimeOnly = False + Me.txtLKW._numbersOnly = False + Me.txtLKW._numbersOnlyKommastellen = "" + Me.txtLKW._Prozent = False + Me.txtLKW._ShortDateNew = False + Me.txtLKW._ShortDateOnly = False + Me.txtLKW._TimeOnly = False + Me.txtLKW._value = Nothing + Me.txtLKW._Waehrung = False + Me.txtLKW._WaehrungZeichen = True + Me.txtLKW.ForeColor = System.Drawing.Color.Black + Me.txtLKW.Location = New System.Drawing.Point(254, 155) + Me.txtLKW.MaxLineLength = -1 + Me.txtLKW.MaxLines_Warning = "" + Me.txtLKW.MaxLines_Warning_Label = Nothing + Me.txtLKW.Name = "txtLKW" + Me.txtLKW.Size = New System.Drawing.Size(310, 20) + Me.txtLKW.TabIndex = 18 + ' + 'Panel4 + ' + Me.Panel4.BackColor = System.Drawing.Color.OldLace + Me.Panel4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Panel4.Controls.Add(Me.Button3) + Me.Panel4.Controls.Add(Me.btnStandardPreiseLaden) + Me.Panel4.Controls.Add(Me.lblCRsaved) + Me.Panel4.Controls.Add(Me.cbxBeimErstellenSpeichern) + Me.Panel4.Location = New System.Drawing.Point(653, 264) + Me.Panel4.Name = "Panel4" + Me.Panel4.Size = New System.Drawing.Size(310, 54) + Me.Panel4.TabIndex = 38 + ' + 'Button3 + ' + Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button3.Location = New System.Drawing.Point(245, 3) + Me.Button3.Name = "Button3" + Me.Button3.Size = New System.Drawing.Size(60, 23) + Me.Button3.TabIndex = 1 + Me.Button3.Text = "Liste" + Me.Button3.UseVisualStyleBackColor = True + ' + 'btnStandardPreiseLaden + ' + Me.btnStandardPreiseLaden.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnStandardPreiseLaden.Location = New System.Drawing.Point(3, 26) + Me.btnStandardPreiseLaden.Name = "btnStandardPreiseLaden" + Me.btnStandardPreiseLaden.Size = New System.Drawing.Size(160, 23) + Me.btnStandardPreiseLaden.TabIndex = 2 + Me.btnStandardPreiseLaden.Text = "jetzt speichern" + Me.btnStandardPreiseLaden.UseVisualStyleBackColor = True + ' + 'lblCRsaved + ' + Me.lblCRsaved.AutoSize = True + Me.lblCRsaved.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblCRsaved.Location = New System.Drawing.Point(169, 31) + Me.lblCRsaved.Name = "lblCRsaved" + Me.lblCRsaved.Size = New System.Drawing.Size(113, 13) + Me.lblCRsaved.TabIndex = 3 + Me.lblCRsaved.Text = "(nicht gespeichert)" + ' + 'cbxBeimErstellenSpeichern + ' + Me.cbxBeimErstellenSpeichern.AutoSize = True + Me.cbxBeimErstellenSpeichern.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.0!) + Me.cbxBeimErstellenSpeichern.Location = New System.Drawing.Point(3, 3) + Me.cbxBeimErstellenSpeichern.Name = "cbxBeimErstellenSpeichern" + Me.cbxBeimErstellenSpeichern.Size = New System.Drawing.Size(229, 22) + Me.cbxBeimErstellenSpeichern.TabIndex = 0 + Me.cbxBeimErstellenSpeichern.Text = "In Postversand-Liste speichern" + Me.cbxBeimErstellenSpeichern.UseVisualStyleBackColor = True + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.Location = New System.Drawing.Point(559, 10) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(50, 13) + Me.Label5.TabIndex = 4 + Me.Label5.Text = "Avisierer:" + ' + 'KdInAuftrag + ' + Me.KdInAuftrag._AllowSetValue = True + Me.KdInAuftrag._autoSizeGross = False + Me.KdInAuftrag._display_Name1 = True + Me.KdInAuftrag._displayAVISO_Email = False + Me.KdInAuftrag._displayFullName = False + Me.KdInAuftrag._displayWoelflKd = False + Me.KdInAuftrag._hideIfListEmpty = True + Me.KdInAuftrag._loadKdData = True + Me.KdInAuftrag._ValueKdAndName = False + Me.KdInAuftrag.dgvpos = "LEFT" + Me.KdInAuftrag.KdName = Nothing + Me.KdInAuftrag.KdNr = "-1" + Me.KdInAuftrag.kdNrField = Nothing + Me.KdInAuftrag.KdNrNullInt = Nothing + Me.KdInAuftrag.Location = New System.Drawing.Point(644, 7) + Me.KdInAuftrag.Name = "KdInAuftrag" + Me.KdInAuftrag.nurAktive = True + Me.KdInAuftrag.searchActive = True + Me.KdInAuftrag.Size = New System.Drawing.Size(319, 20) + Me.KdInAuftrag.TabIndex = 5 + Me.KdInAuftrag.usrcntl = Nothing + ' + 'cboFiliale + ' + Me.cboFiliale._allowedValuesFreiText = Nothing + Me.cboFiliale._allowFreiText = False + Me.cboFiliale._value = "" + Me.cboFiliale.DropDownWidth = 200 + Me.cboFiliale.FormattingEnabled = True + Me.cboFiliale.Location = New System.Drawing.Point(653, 155) + Me.cboFiliale.Name = "cboFiliale" + Me.cboFiliale.Size = New System.Drawing.Size(66, 21) + Me.cboFiliale.TabIndex = 20 + ' + 'txtAbfertigungsNr + ' + Me.txtAbfertigungsNr._DateTimeOnly = False + Me.txtAbfertigungsNr._numbersOnly = True + Me.txtAbfertigungsNr._numbersOnlyKommastellen = "" + Me.txtAbfertigungsNr._Prozent = False + Me.txtAbfertigungsNr._ShortDateNew = False + Me.txtAbfertigungsNr._ShortDateOnly = False + Me.txtAbfertigungsNr._TimeOnly = False + Me.txtAbfertigungsNr._value = "" + Me.txtAbfertigungsNr._Waehrung = False + Me.txtAbfertigungsNr._WaehrungZeichen = True + Me.txtAbfertigungsNr.Location = New System.Drawing.Point(718, 155) + Me.txtAbfertigungsNr.MaxLength = 8 + Me.txtAbfertigungsNr.MaxLineLength = -1 + Me.txtAbfertigungsNr.MaxLines_Warning = "" + Me.txtAbfertigungsNr.MaxLines_Warning_Label = Nothing + Me.txtAbfertigungsNr.Multiline = True + Me.txtAbfertigungsNr.Name = "txtAbfertigungsNr" + Me.txtAbfertigungsNr.Size = New System.Drawing.Size(245, 21) + Me.txtAbfertigungsNr.TabIndex = 21 + ' + 'Label7 + ' + Me.Label7.AutoSize = True + Me.Label7.Location = New System.Drawing.Point(580, 158) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(31, 13) + Me.Label7.TabIndex = 19 + Me.Label7.Text = "Pos.:" + ' + 'Label9 + ' + Me.Label9.AutoSize = True + Me.Label9.Location = New System.Drawing.Point(167, 94) + Me.Label9.Name = "Label9" + Me.Label9.Size = New System.Drawing.Size(48, 13) + Me.Label9.TabIndex = 13 + Me.Label9.Text = "Adresse:" + ' + 'kdRgEmpfaenger + ' + Me.kdRgEmpfaenger._AllowSetValue = True + Me.kdRgEmpfaenger._autoSizeGross = False + Me.kdRgEmpfaenger._display_Name1 = True + Me.kdRgEmpfaenger._displayAVISO_Email = False + Me.kdRgEmpfaenger._displayFullName = False + Me.kdRgEmpfaenger._displayWoelflKd = False + Me.kdRgEmpfaenger._hideIfListEmpty = True + Me.kdRgEmpfaenger._loadKdData = True + Me.kdRgEmpfaenger._ValueKdAndName = False + Me.kdRgEmpfaenger.dgvpos = "LEFT" + Me.kdRgEmpfaenger.KdName = Nothing + Me.kdRgEmpfaenger.KdNr = "-1" + Me.kdRgEmpfaenger.kdNrField = Nothing + Me.kdRgEmpfaenger.KdNrNullInt = Nothing + Me.kdRgEmpfaenger.Location = New System.Drawing.Point(254, 302) + Me.kdRgEmpfaenger.Name = "kdRgEmpfaenger" + Me.kdRgEmpfaenger.nurAktive = True + Me.kdRgEmpfaenger.searchActive = True + Me.kdRgEmpfaenger.Size = New System.Drawing.Size(310, 20) + Me.kdRgEmpfaenger.TabIndex = 39 + Me.kdRgEmpfaenger.usrcntl = Nothing + ' + 'txtEmpfänger + ' + Me.txtEmpfänger.AutoSize = True + Me.txtEmpfänger.Location = New System.Drawing.Point(167, 304) + Me.txtEmpfänger.Name = "txtEmpfänger" + Me.txtEmpfänger.Size = New System.Drawing.Size(84, 13) + Me.txtEmpfänger.TabIndex = 37 + Me.txtEmpfänger.Text = "(Rg.)Empfänger:" + ' + 'txtAvisiererAuftragsNr + ' + Me.txtAvisiererAuftragsNr._DateTimeOnly = False + Me.txtAvisiererAuftragsNr._numbersOnly = False + Me.txtAvisiererAuftragsNr._numbersOnlyKommastellen = "" + Me.txtAvisiererAuftragsNr._Prozent = False + Me.txtAvisiererAuftragsNr._ShortDateNew = False + Me.txtAvisiererAuftragsNr._ShortDateOnly = False + Me.txtAvisiererAuftragsNr._TimeOnly = False + Me.txtAvisiererAuftragsNr._value = Nothing + Me.txtAvisiererAuftragsNr._Waehrung = False + Me.txtAvisiererAuftragsNr._WaehrungZeichen = True + Me.txtAvisiererAuftragsNr.ForeColor = System.Drawing.Color.Black + Me.txtAvisiererAuftragsNr.Location = New System.Drawing.Point(644, 26) + Me.txtAvisiererAuftragsNr.MaxLineLength = -1 + Me.txtAvisiererAuftragsNr.MaxLines_Warning = "" + Me.txtAvisiererAuftragsNr.MaxLines_Warning_Label = Nothing + Me.txtAvisiererAuftragsNr.Name = "txtAvisiererAuftragsNr" + Me.txtAvisiererAuftragsNr.Size = New System.Drawing.Size(319, 20) + Me.txtAvisiererAuftragsNr.TabIndex = 8 + ' + 'Label8 + ' + Me.Label8.AutoSize = True + Me.Label8.Location = New System.Drawing.Point(559, 29) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(79, 13) + Me.Label8.TabIndex = 6 + Me.Label8.Text = "Kd-AuftragsNr.:" + ' + 'btnNEU + ' + Me.btnNEU.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnNEU.Location = New System.Drawing.Point(657, 320) + Me.btnNEU.Name = "btnNEU" + Me.btnNEU.Size = New System.Drawing.Size(160, 23) + Me.btnNEU.TabIndex = 40 + Me.btnNEU.Text = "Neu" + Me.btnNEU.UseVisualStyleBackColor = True + ' + 'txtRefNr + ' + Me.txtRefNr._DateTimeOnly = False + Me.txtRefNr._numbersOnly = False + Me.txtRefNr._numbersOnlyKommastellen = "" + Me.txtRefNr._Prozent = False + Me.txtRefNr._ShortDateNew = False + Me.txtRefNr._ShortDateOnly = False + Me.txtRefNr._TimeOnly = False + Me.txtRefNr._value = Nothing + Me.txtRefNr._Waehrung = False + Me.txtRefNr._WaehrungZeichen = True + Me.txtRefNr.ForeColor = System.Drawing.Color.Black + Me.txtRefNr.Location = New System.Drawing.Point(254, 331) + Me.txtRefNr.MaxLineLength = -1 + Me.txtRefNr.MaxLines_Warning = "" + Me.txtRefNr.MaxLines_Warning_Label = Nothing + Me.txtRefNr.Name = "txtRefNr" + Me.txtRefNr.Size = New System.Drawing.Size(310, 20) + Me.txtRefNr.TabIndex = 42 + ' + 'Label10 + ' + Me.Label10.AutoSize = True + Me.Label10.Location = New System.Drawing.Point(167, 325) + Me.Label10.Name = "Label10" + Me.Label10.Size = New System.Drawing.Size(66, 26) + Me.Label10.TabIndex = 41 + Me.Label10.Text = "Paketdienst-" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Referenz:" ' 'usrcntlVerzollungsunterlagen ' @@ -553,6 +814,20 @@ Partial Class usrcntlVerzollungsunterlagen Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.BackColor = System.Drawing.Color.WhiteSmoke Me.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Controls.Add(Me.txtRefNr) + Me.Controls.Add(Me.Label10) + Me.Controls.Add(Me.btnNEU) + Me.Controls.Add(Me.Label8) + Me.Controls.Add(Me.txtAvisiererAuftragsNr) + Me.Controls.Add(Me.kdRgEmpfaenger) + Me.Controls.Add(Me.txtEmpfänger) + Me.Controls.Add(Me.Label9) + Me.Controls.Add(Me.Label7) + Me.Controls.Add(Me.cboFiliale) + Me.Controls.Add(Me.txtAbfertigungsNr) + Me.Controls.Add(Me.KdInAuftrag) + Me.Controls.Add(Me.Label5) + Me.Controls.Add(Me.Panel4) Me.Controls.Add(Me.txtFirma) Me.Controls.Add(Me.PictureBox1) Me.Controls.Add(Me.Label4) @@ -578,16 +853,18 @@ Partial Class usrcntlVerzollungsunterlagen Me.Controls.Add(Me.pic) Me.Controls.Add(Me.txtAnlage1) Me.Controls.Add(Me.Label11) - Me.Controls.Add(Me.txtPosNr) + Me.Controls.Add(Me.txtLKW) Me.Controls.Add(Me.Label6) Me.Controls.Add(Me.txtAdresse2) Me.Controls.Add(Me.txtAdresse1) Me.Controls.Add(Me.lbl) Me.Controls.Add(Me.lblVollmachtDE) Me.Name = "usrcntlVerzollungsunterlagen" - Me.Size = New System.Drawing.Size(1000, 288) + Me.Size = New System.Drawing.Size(1000, 372) CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() + Me.Panel4.ResumeLayout(False) + Me.Panel4.PerformLayout() Me.ResumeLayout(False) Me.PerformLayout() @@ -622,5 +899,23 @@ Partial Class usrcntlVerzollungsunterlagen Friend WithEvents txtAnlage4 As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents txtAnlage5 As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents txtAnlage6 As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents txtPosNr As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtLKW As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Panel4 As Panel + Friend WithEvents Button3 As Button + Friend WithEvents btnStandardPreiseLaden As Button + Friend WithEvents lblCRsaved As Label + Friend WithEvents cbxBeimErstellenSpeichern As CheckBox + Friend WithEvents Label5 As Label + Friend WithEvents KdInAuftrag As VERAG_PROG_ALLGEMEIN.KdSearchBox + Friend WithEvents cboFiliale As VERAG_PROG_ALLGEMEIN.MyComboBox + Public WithEvents txtAbfertigungsNr As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label7 As Label + Friend WithEvents Label9 As Label + Friend WithEvents kdRgEmpfaenger As VERAG_PROG_ALLGEMEIN.KdSearchBox + Friend WithEvents txtEmpfänger As Label + Friend WithEvents txtAvisiererAuftragsNr As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label8 As Label + Friend WithEvents btnNEU As Button + Friend WithEvents txtRefNr As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label10 As Label End Class diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungsunterlagen.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungsunterlagen.vb index c1609ca0..b2719422 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungsunterlagen.vb +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungsunterlagen.vb @@ -7,6 +7,16 @@ Public Event MOVE_UP(c As Control) Public Event MOVE_DOWN(c As Control) + + Public KdFirma As String = "" + Public SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen = Nothing + Public AVISO As VERAG_PROG_ALLGEMEIN.cAviso = Nothing + + Public ROLLE As String = "" + Public POST_ID = -1 + + Public BeimErstellenSpeichern = False + Public KdNR As Integer = -1 Public Sub ChangeKDNr(kdnr As Integer) _ Implements FormualrInterface.ChangeKDNr @@ -14,7 +24,31 @@ txtFirma.KdNr = kdnr End Sub - 'Dim KdNR As Integer = -1 + Sub New() + + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + + End Sub + + Sub New(param() As Object) + + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + + If param.Length > 0 AndAlso param(0) IsNot Nothing Then KdNR = param(0) + If param.Length > 1 Then KdFirma = param(1) + If param.Length > 2 Then SENDUNG = param(2) + If param.Length > 3 Then AVISO = param(3) + If param.Length > 4 Then ROLLE = param(4) + If param.Length > 5 Then POST_ID = param(5) + If param.Length > 6 Then BeimErstellenSpeichern = param(6) + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + + End Sub + 'DimKdNR As Integer = -1 Sub initControlsHandler() For Each c In Me.Controls Select Case c.GetType.ToString @@ -35,9 +69,6 @@ End Sub - - - Private Sub btnDel_Click(sender As Object, e As EventArgs) Handles btnDel.Click RaiseEvent DELETE(Me) End Sub @@ -57,6 +88,9 @@ Private Sub usrcntlVollmacht_AT_Load(sender As Object, e As EventArgs) Handles Me.Load txtFirma.initKdBox(Me.FindForm) + KdInAuftrag.initKdBox(Me.FindForm) + + cbxBeimErstellenSpeichern.Checked = BeimErstellenSpeichern AddHandler txtFirma.PropertyChanged, Sub() Me.KdNR = txtFirma.KdNr_value If txtFirma.KdNr_value > 0 Then @@ -73,9 +107,9 @@ RaiseEvent KDNR_CHANGED(KdNR) End Sub initControlsHandler() - cboFirma.Items.Clear() - cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Deutsch", "DE")) - cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Englisch", "EN")) + 'cboFirma.Items.Clear() + 'cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Deutsch", "DE")) + 'cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Englisch", "EN")) If KdNR > 0 Then txtFirma.KdNr = KdNR cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG Spedition AG", "AG")) @@ -83,18 +117,81 @@ cboFirma.changeItem("AG") ' cboFiliale.fillWithSQL(" SELECT FilialenNr, Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", , "FMZOLL", True) + + cboFiliale.fillWithSQL(" SELECT FilialenNr, Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", , "FMZOLL", True) + + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + Case "IMEX" : cboFiliale._allowedValuesFreiText = {"5501"} + Case "ATILLA" : cboFiliale._allowedValuesFreiText = {"4801"} + End Select + txtBearbeiter.Text = If(VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME, "") If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER IsNot Nothing Then txtTel.Text = If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_durchwahl, "+43 77 11 / 27 77 DW 55") txtFax.Text = "+43 77 11 / 31073" txtEmail.Text = If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_email, "verrechnung@verag.ag") - If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_firmaFMZoll = 11 Then - cboFirma.changeItem("CS") + + + End If + btnNEU.Visible = False + If POST_ID > 0 Then + Dim VK As New VERAG_PROG_ALLGEMEIN.cPostversand(POST_ID) + If VK IsNot Nothing Then setValues(VK) + btnNEU.Visible = True + Else + + If KdNR > 0 Then + txtFirma.KdNr = KdNR Else - cboFirma.changeItem("AG") + txtFirma.Text = KdFirma End If + ' 'txtWarenbez.Text = If(SENDUNG.tblSnd_Warenbezeichnung, "") + ' ' txtAnzVerp.Text = If(SENDUNG.tblSnd_Colli, "") + ' ' txtGewicht.Text = If(SENDUNG.tblSnd_Gewicht, "") + ' txtAbsender.Text = If(SENDUNG.tblSnd_Absender, "") + ' If SENDUNG.AbfertigungsNr > 0 Then + ' ' txtAbfertigungsNr.Text = SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr + ' txtAbfertigungsNr.Text = SENDUNG.AbfertigungsNr + ' If SENDUNG.FilialenNr > 0 Then + ' cboFiliale.changeItem(SENDUNG.FilialenNr) + ' Dim VK = VERAG_PROG_ALLGEMEIN.cPostversand.LOADByFilialeAbfNr(SENDUNG.FilialenNr, SENDUNG.AbfertigungsNr, ROLLE) + ' If VK IsNot Nothing Then setValues(VK) + + ' End If + ' End If + + 'End If + If AVISO IsNot Nothing Then + txtLKW.Text = If(AVISO.LKW_Nr, "") + 'txtUnternehmer.Text = If(AVISO.Frächter, "") + 'cbxLKWWartet.Checked = (AVISO.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft) + If AVISO.Auftraggeber_KdNr > 0 Then + KdInAuftrag.KdNr = AVISO.Auftraggeber_KdNr + Else + KdInAuftrag.Text = If(AVISO.Auftraggeber, "") + + End If + + + End If + + If SENDUNG IsNot Nothing Then + + cboFiliale.changeItem(SENDUNG.FilialenNr) + txtAbfertigungsNr.Text = SENDUNG.AbfertigungsNr + + If SENDUNG.tblSnd_EmpfaengerKdNr > 0 Then + kdRgEmpfaenger.KdNr = SENDUNG.tblSnd_EmpfaengerKdNr + Else + kdRgEmpfaenger.Text = SENDUNG.tblSnd_Empfaenger + End If + txtAvisiererAuftragsNr.Text = If(SENDUNG.tblSnd_KdAuftragsNrAvisierer, "") + + 'txtUnternehmer.Text = If(AVISO.Frächter, "") + 'cbxLKWWartet.Checked = (AVISO.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft) + End If End If @@ -109,4 +206,211 @@ Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click FormularManagerNEU.genPDF(Me, , , , True) End Sub + + Private Sub btnStandardPreiseLaden_Click(sender As Object, e As EventArgs) Handles btnStandardPreiseLaden.Click + If FormularManagerNEU.savePostversand(Me, POST_ID) Then + btnNEU.Visible = True + lblCRsaved.Text = "(gespeichert)" + lblCRsaved.ForeColor = Color.Green + End If + End Sub + + + + Sub getValues(ByRef cPostversand As VERAG_PROG_ALLGEMEIN.cPostversand) + cPostversand.post_Empfaenger_KdNr = If(Me.KdNR > 0, Me.KdNR, Nothing) + + cPostversand.post_FilialenNr = Me.cboFiliale._value + cPostversand.post_AbfertigungsNr = Me.txtAbfertigungsNr.Text + cPostversand.post_Datum = Now + cPostversand.post_ContainerLKWNr = Me.txtLKW.Text + cPostversand.post_Rolle = Me.ROLLE + + If SENDUNG IsNot Nothing Then + cPostversand.post_SendungsId = SENDUNG.tblSnd_SendungID + End If + If AVISO IsNot Nothing Then cPostversand.post_AvisoId = AVISO.AvisoID + + + cPostversand.post_FirmaInAuftragKdnr = Me.KdInAuftrag.KdNr + cPostversand.post_FirmaInAuftrag = Me.KdInAuftrag.Text + + cPostversand.post_Empfaenger_KdNr = txtFirma.KdNr + cPostversand.post_Empfaenger_Name1 = Me.txtFirma.Text + cPostversand.post_Empfaenger_Name2 = Me.txtFirma2.Text + cPostversand.post_Empfaenger_Adresse1 = Me.txtAdresse1.Text + cPostversand.post_Empfaenger_Adresse2 = Me.txtAdresse2.Text + cPostversand.post_Empfaenger_Adresse3 = Me.txtAdresse3.Text + cPostversand.post_art = "" + + cPostversand.post_SachbearbeiterId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID + cPostversand.post_Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME + + + cPostversand.post_ReferenzPaketdienst = txtRefNr.Text + cPostversand.post_RgEmpfaenger_KdNr = kdRgEmpfaenger.KdNr + cPostversand.post_RgEmpfaenger_Name = kdRgEmpfaenger.Text + cPostversand.post_KdAuftrNrAvisierer = Me.txtAvisiererAuftragsNr.Text + + 'VK.vk_Rolle = VERAG_PROG_ALLGEMEIN.SQL.isNullNothing(ROLLE) + 'VK.vk_Anrede = VERAG_PROG_ALLGEMEIN.SQL.isNullNothing(txtHerrFrau.Text) + 'VK.vk_Firmenwortlauf = VERAG_PROG_ALLGEMEIN.SQL.isNullNothing(txtFirma.Text) + 'VK.vk_Aresse1 = VERAG_PROG_ALLGEMEIN.SQL.isNullNothing(txtAdresse1.Text) + 'VK.vk_Adresse2 = VERAG_PROG_ALLGEMEIN.SQL.isNullNothing(txtAdresse2.Text) + 'VK.vk_UID = VERAG_PROG_ALLGEMEIN.SQL.isNullNothing(txtUid.Text) + 'VK.vk_EORI = VERAG_PROG_ALLGEMEIN.SQL.isNullNothing(txtEori.Text) + 'VK.vk_Tel = VERAG_PROG_ALLGEMEIN.SQL.isNullNothing(txtTel.Text) + 'VK.vk_Fax = VERAG_PROG_ALLGEMEIN.SQL.isNullNothing(txtFax.Text) + 'VK.vk_Email = VERAG_PROG_ALLGEMEIN.SQL.isNullNothing(txtEmail.Text) + 'VK.vk_RgNr = VERAG_PROG_ALLGEMEIN.SQL.isNullNothing(txtRechnungsnummern.Text) + 'VK.vk_Absender = VERAG_PROG_ALLGEMEIN.SQL.isNullNothing(txtAbsender.Text) + 'VK.vk_ATREUR1 = VERAG_PROG_ALLGEMEIN.SQL.isNullNothing(txtATUEur1.Text) + 'VK.vk_Fraechter = VERAG_PROG_ALLGEMEIN.SQL.isNullNothing(txtUnternehmer.Text) + 'VK.vk_Anzahl = VERAG_PROG_ALLGEMEIN.SQL.isNullNothing(txtAnzVerp.Text) + 'VK.vk_Warenbezeichnung = VERAG_PROG_ALLGEMEIN.SQL.isNullNothing(txtWarenbez.Text) + 'VK.vk_Colli = VERAG_PROG_ALLGEMEIN.SQL.isNullNothing(txtGewicht.Text) + 'VK.vk_FaStNr = VERAG_PROG_ALLGEMEIN.SQL.isNullNothing(txtFaStNr.Text) + 'VK.vk_LKW = txtLKWKennz.Text + + 'VK.vk_Berechnung_Rechnungsbetrag = VERAG_PROG_ALLGEMEIN.SQL.isNullNothingDbl(lblRechnungsbetrag._value) + 'VK.vk_Berechnung_FrachtkostAusland = VERAG_PROG_ALLGEMEIN.SQL.isNullNothingDbl(txtFrachtkostenAusl._value) + 'VK.vk_Berechnung_ZollProz = VERAG_PROG_ALLGEMEIN.SQL.isNullNothingDbl(txtZollProzent._value) + 'VK.vk_Berechnung_FrachtkostInland = VERAG_PROG_ALLGEMEIN.SQL.isNullNothingDbl(txtFrachtkostenInl._value) + 'VK.vk_Berechnung_AbgabenSonst_Bez = VERAG_PROG_ALLGEMEIN.SQL.isNullNothing(txtEustSonstText.Text) + 'VK.vk_Berechnung_AbgabenSonst_Betrag = VERAG_PROG_ALLGEMEIN.SQL.isNullNothingDbl(txtEustSonstBetrag._value) + 'VK.vk_Berechnung_EUSTProz = VERAG_PROG_ALLGEMEIN.SQL.isNullNothingDbl(txtEustProzent._value) + 'VK.vk_Berechnung_KostenSonst_Bez = VERAG_PROG_ALLGEMEIN.SQL.isNullNothing(txtAndereAbgabenText.Text) + 'VK.vk_Berechnung_KostenSonst_Betrag = VERAG_PROG_ALLGEMEIN.SQL.isNullNothingDbl(txtAndereAbgabenBetrag._value) + 'VK.vk_Berechnung_Verzollung = VERAG_PROG_ALLGEMEIN.SQL.isNullNothingDbl(txtVerzollungskosten._value) + 'VK.vk_Berechnung_jeWeitere = VERAG_PROG_ALLGEMEIN.SQL.isNullNothingDbl(txtWeitereTarifPos._value) + 'VK.vk_Berechnung_ATLAS = VERAG_PROG_ALLGEMEIN.SQL.isNullNothingDbl(txtATLAS._value) + 'VK.vk_Berechnung_Clearing = VERAG_PROG_ALLGEMEIN.SQL.isNullNothingDbl(txtClearing._value) + 'VK.vk_Berechnung_korrRg = VERAG_PROG_ALLGEMEIN.SQL.isNullNothingDbl(txtKorrRechnung._value) + 'VK.vk_Berechnung_Übersetzung = VERAG_PROG_ALLGEMEIN.SQL.isNullNothingDbl(txtUebersetzungRg._value) + 'VK.vk_Berechnung_Aviso = VERAG_PROG_ALLGEMEIN.SQL.isNullNothingDbl(txtAviso._value) + 'VK.vk_Berechnung_SVS = VERAG_PROG_ALLGEMEIN.SQL.isNullNothingDbl(txtSvs._value) + 'VK.vk_Berechnung_SonstigeKosten = VERAG_PROG_ALLGEMEIN.SQL.isNullNothingDbl(txtSonstigeKosten._value) + 'VK.vk_Berechnung_SonstigeKostenText = VERAG_PROG_ALLGEMEIN.SQL.isNullNothing(txtSonstigeKostenText.Text) + 'VK.vk_Berechnung_PP = VERAG_PROG_ALLGEMEIN.SQL.isNullNothingDbl(txtPapierePorti._value) + + + End Sub + + + Sub setValues(ByVal cPostversand As VERAG_PROG_ALLGEMEIN.cPostversand) + txtAnlage1.Text = "" + txtAnlage2.Text = "" + txtAnlage3.Text = "" + txtAnlage4.Text = "" + txtAnlage5.Text = "" + txtAnlage6.Text = "" + + Me.KdNR = If(cPostversand.post_Empfaenger_KdNr, -1) + Me.txtFirma.KdNr = If(cPostversand.post_Empfaenger_KdNr, -1) + Me.KdInAuftrag.KdNr = If(cPostversand.post_FirmaInAuftragKdnr, -1) + + Me.cboFiliale.changeItem(If(cPostversand.post_FilialenNr, "")) + Me.txtAbfertigungsNr.Text = If(cPostversand.post_AbfertigungsNr, "") + + + + Me.txtLKW.Text = If(cPostversand.post_ContainerLKWNr, "") + Me.txtFirma.Text = If(cPostversand.post_Empfaenger_Name1, "") + Me.txtFirma2.Text = If(cPostversand.post_Empfaenger_Name2, "") + Me.txtAdresse1.Text = If(cPostversand.post_Empfaenger_Adresse1, "") + Me.txtAdresse2.Text = If(cPostversand.post_Empfaenger_Adresse2, "") + Me.txtAdresse3.Text = If(cPostversand.post_Empfaenger_Adresse3, "") + Me.KdInAuftrag.Text = If(cPostversand.post_FirmaInAuftrag, "") + + + If cPostversand.post_RgEmpfaenger_KdNr IsNot Nothing Then + kdRgEmpfaenger.KdNr = cPostversand.post_RgEmpfaenger_KdNr + Else + kdRgEmpfaenger.KdNr = -1 + End If + kdRgEmpfaenger.Text = If(cPostversand.post_RgEmpfaenger_Name, "") + + txtAvisiererAuftragsNr.Text = If(cPostversand.post_KdAuftrNrAvisierer, "") + + txtRefNr.Text = If(cPostversand.post_ReferenzPaketdienst, "") + + + 'Me.txtAbfertigungsNr.Text = If(cPostversand.post_art, "") + + 'M.Text = If(cPostversand.post_Empfaenger_Adresse3, "") + 'Me.txtAdresse3.Text = If(cPostversand.post_Empfaenger_Adresse3, "") + + 'cPostversand.post_SachbearbeiterId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID + 'cPostversand.post_Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME + 'ROLLE = If(VK.vk_Rolle, "") + + 'txtHerrFrau.Text = If(VK.vk_Anrede, "") + 'txtFirma.Text = If(VK.vk_Firmenwortlauf, "") + 'txtAdresse1.Text = If(VK.vk_Aresse1, "") + 'txtAdresse2.Text = If(VK.vk_Adresse2, "") + 'txtUid.Text = If(VK.vk_UID, "") + 'txtEori.Text = If(VK.vk_EORI, "") + 'txtTel.Text = If(VK.vk_Tel, "") + 'txtFax.Text = If(VK.vk_Fax, "") + 'txtEmail.Text = If(VK.vk_Email, "") + 'txtRechnungsnummern.Text = If(VK.vk_RgNr, "") + 'txtAbsender.Text = If(VK.vk_Absender, "") + 'txtATUEur1.Text = If(VK.vk_ATREUR1, "") + 'txtUnternehmer.Text = If(VK.vk_Fraechter, "") + 'txtAnzVerp.Text = If(VK.vk_Anzahl, "") + 'txtWarenbez.Text = If(VK.vk_Warenbezeichnung, "") + 'txtGewicht.Text = If(VK.vk_Colli, "") + 'txtFaStNr.Text = If(VK.vk_FaStNr, "") + 'txtLKWKennz.Text = If(VK.vk_LKW, "") + + 'lblRechnungsbetrag._value = If(VK.vk_Berechnung_Rechnungsbetrag, "") + 'txtFrachtkostenAusl._value = If(VK.vk_Berechnung_FrachtkostAusland, "") + 'txtZollProzent._value = If(VK.vk_Berechnung_ZollProz, "") + 'txtFrachtkostenInl._value = If(VK.vk_Berechnung_FrachtkostInland, "") + 'txtEustSonstText.Text = If(VK.vk_Berechnung_AbgabenSonst_Bez, "") + 'txtEustSonstBetrag._value = If(VK.vk_Berechnung_AbgabenSonst_Betrag, "") + 'txtEustProzent._value = If(VK.vk_Berechnung_EUSTProz, "") + 'txtAndereAbgabenText.Text = If(VK.vk_Berechnung_KostenSonst_Bez, "") + 'txtAndereAbgabenBetrag._value = If(VK.vk_Berechnung_KostenSonst_Betrag, "") + 'txtVerzollungskosten._value = If(VK.vk_Berechnung_Verzollung, "") + 'txtWeitereTarifPos._value = If(VK.vk_Berechnung_jeWeitere, "") + 'txtATLAS._value = If(VK.vk_Berechnung_ATLAS, "") + 'txtClearing._value = If(VK.vk_Berechnung_Clearing, "") + 'txtKorrRechnung._value = If(VK.vk_Berechnung_korrRg, "") + 'txtUebersetzungRg._value = If(VK.vk_Berechnung_Übersetzung, "") + 'txtAviso._value = If(VK.vk_Berechnung_Aviso, "") + 'txtSvs._value = If(VK.vk_Berechnung_SVS, "") + 'txtSonstigeKosten._value = If(VK.vk_Berechnung_SonstigeKosten, "") + 'txtSonstigeKostenText.Text = If(VK.vk_Berechnung_SonstigeKostenText, "Sonstige Kosten") + + 'txtPapierePorti._value = If(VK.vk_Berechnung_PP, "") + + End Sub + + Public Function ValidValues(ByRef err) As Boolean + ValidValues = True + ' If Not IsNumeric(cboFiliale._value) Then err &= "Vorauskasse: Filiale auswählen!" & vbNewLine : cboFiliale.Focus() : ValidValues = False + ' If Not IsNumeric(txtAbfertigungsNr.Text) Then err &= "Vorauskasse: AbfertigungsNr. auswählen!" & vbNewLine : txtAbfertigungsNr.Focus() : ValidValues = False + If txtFirma.Text = "" Then err &= "Verz.Unterl.: Empfänger auswählen!" & vbNewLine : cboFiliale.Focus() : ValidValues = False + If txtLKW.Text = "" Then err &= "Verz.Unterl.: Empfänger auswählen!" & vbNewLine : cboFiliale.Focus() : ValidValues = False + End Function + + Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click + Dim f As New frmPostEinschreiben + f.Show() + End Sub + + Private Sub cboFiliale_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboFiliale.SelectedIndexChanged + Select Case cboFiliale._value + Case "4805" : cboFirma.changeItem("CS") + Case Else + cboFirma.changeItem("AG") + End Select + End Sub + + Private Sub btnNEU_Click(sender As Object, e As EventArgs) Handles btnNEU.Click + POST_ID = -1 + setValues(New VERAG_PROG_ALLGEMEIN.cPostversand) + btnNEU.Visible = False + End Sub End Class diff --git a/SDL/Formulare/KDFormulare/frmFormulare.Designer.vb b/SDL/Formulare/KDFormulare/frmFormulare.Designer.vb index 6808b67c..dd129acd 100644 --- a/SDL/Formulare/KDFormulare/frmFormulare.Designer.vb +++ b/SDL/Formulare/KDFormulare/frmFormulare.Designer.vb @@ -26,23 +26,27 @@ Partial Class frmFormulare Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmFormulare)) Me.pnl = New System.Windows.Forms.Panel() Me.Label4 = New System.Windows.Forms.Label() + Me.cboVorlage = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Label3 = New System.Windows.Forms.Label() Me.Button3 = New System.Windows.Forms.Button() + Me.MyListBox2 = New VERAG_PROG_ALLGEMEIN.MyListBox() Me.Label2 = New System.Windows.Forms.Label() Me.cbxAnderungGliecherFelderBeiAllenFormularenBerucksichtigen = New System.Windows.Forms.CheckBox() + Me.MyListBox1 = New VERAG_PROG_ALLGEMEIN.MyListBox() Me.Label1 = New System.Windows.Forms.Label() Me.lblFormularManager = New System.Windows.Forms.Label() Me.pnlBody = New System.Windows.Forms.Panel() + Me.MyFlowLayoutPanel1 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel(Me.components) Me.pnlBottom = New System.Windows.Forms.Panel() + Me.Label6 = New System.Windows.Forms.Label() + Me.cboTextKonserveSprache = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.Label5 = New System.Windows.Forms.Label() + Me.cboTextkonserve = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.txtErr = New System.Windows.Forms.RichTextBox() + Me.cboPrinter = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.btnPrint = New System.Windows.Forms.Button() Me.Button2 = New System.Windows.Forms.Button() Me.btn = New System.Windows.Forms.Button() - Me.MyFlowLayoutPanel1 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel(Me.components) - Me.cboPrinter = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.cboVorlage = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.MyListBox2 = New VERAG_PROG_ALLGEMEIN.MyListBox() - Me.MyListBox1 = New VERAG_PROG_ALLGEMEIN.MyListBox() Me.pnl.SuspendLayout() Me.pnlBody.SuspendLayout() Me.pnlBottom.SuspendLayout() @@ -74,9 +78,21 @@ Partial Class frmFormulare Me.Label4.Location = New System.Drawing.Point(12, 37) Me.Label4.Name = "Label4" Me.Label4.Size = New System.Drawing.Size(114, 13) - Me.Label4.TabIndex = 8 + Me.Label4.TabIndex = 4 Me.Label4.Text = "Vorlagengruppe laden:" ' + 'cboVorlage + ' + Me.cboVorlage._allowedValuesFreiText = Nothing + Me.cboVorlage._allowFreiText = False + Me.cboVorlage._value = "" + Me.cboVorlage.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cboVorlage.FormattingEnabled = True + Me.cboVorlage.Location = New System.Drawing.Point(132, 34) + Me.cboVorlage.Name = "cboVorlage" + Me.cboVorlage.Size = New System.Drawing.Size(205, 21) + Me.cboVorlage.TabIndex = 5 + ' 'Label3 ' Me.Label3.AutoSize = True @@ -84,13 +100,13 @@ Partial Class frmFormulare Me.Label3.Location = New System.Drawing.Point(1239, 10) Me.Label3.Name = "Label3" Me.Label3.Size = New System.Drawing.Size(86, 13) - Me.Label3.TabIndex = 6 + Me.Label3.TabIndex = 3 Me.Label3.Text = "PDF hinzufügen:" ' 'Button3 ' Me.Button3.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.Button3.BackgroundImage = Global.SDL.My.Resources.pdf + Me.Button3.BackgroundImage = Global.SDL.My.Resources.Resources.pdf Me.Button3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.Button3.FlatAppearance.BorderSize = 0 Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat @@ -99,9 +115,20 @@ Partial Class frmFormulare Me.Button3.Name = "Button3" Me.Button3.Padding = New System.Windows.Forms.Padding(5) Me.Button3.Size = New System.Drawing.Size(74, 40) - Me.Button3.TabIndex = 3 + Me.Button3.TabIndex = 8 Me.Button3.UseVisualStyleBackColor = True ' + 'MyListBox2 + ' + Me.MyListBox2._value = "" + Me.MyListBox2.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.MyListBox2.FormattingEnabled = True + Me.MyListBox2.ItemHeight = 16 + Me.MyListBox2.Location = New System.Drawing.Point(810, 26) + Me.MyListBox2.Name = "MyListBox2" + Me.MyListBox2.Size = New System.Drawing.Size(429, 68) + Me.MyListBox2.TabIndex = 7 + ' 'Label2 ' Me.Label2.AutoSize = True @@ -109,7 +136,7 @@ Partial Class frmFormulare Me.Label2.Location = New System.Drawing.Point(807, 10) Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(151, 13) - Me.Label2.TabIndex = 0 + Me.Label2.TabIndex = 2 Me.Label2.Text = "Weitere Formulare hinzufügen:" ' 'cbxAnderungGliecherFelderBeiAllenFormularenBerucksichtigen @@ -120,10 +147,21 @@ Partial Class frmFormulare Me.cbxAnderungGliecherFelderBeiAllenFormularenBerucksichtigen.Location = New System.Drawing.Point(15, 78) Me.cbxAnderungGliecherFelderBeiAllenFormularenBerucksichtigen.Name = "cbxAnderungGliecherFelderBeiAllenFormularenBerucksichtigen" Me.cbxAnderungGliecherFelderBeiAllenFormularenBerucksichtigen.Size = New System.Drawing.Size(322, 17) - Me.cbxAnderungGliecherFelderBeiAllenFormularenBerucksichtigen.TabIndex = 5 + Me.cbxAnderungGliecherFelderBeiAllenFormularenBerucksichtigen.TabIndex = 9 Me.cbxAnderungGliecherFelderBeiAllenFormularenBerucksichtigen.Text = "Änderung gleicher Felder bei allen Formularen berücksichtigen." Me.cbxAnderungGliecherFelderBeiAllenFormularenBerucksichtigen.UseVisualStyleBackColor = True ' + 'MyListBox1 + ' + Me.MyListBox1._value = "" + Me.MyListBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.MyListBox1.FormattingEnabled = True + Me.MyListBox1.ItemHeight = 16 + Me.MyListBox1.Location = New System.Drawing.Point(343, 26) + Me.MyListBox1.Name = "MyListBox1" + Me.MyListBox1.Size = New System.Drawing.Size(461, 68) + Me.MyListBox1.TabIndex = 6 + ' 'Label1 ' Me.Label1.AutoSize = True @@ -131,7 +169,7 @@ Partial Class frmFormulare Me.Label1.Location = New System.Drawing.Point(340, 10) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(111, 13) - Me.Label1.TabIndex = 2 + Me.Label1.TabIndex = 1 Me.Label1.Text = "Vollmacht hinzufügen:" ' 'lblFormularManager @@ -141,7 +179,7 @@ Partial Class frmFormulare Me.lblFormularManager.Location = New System.Drawing.Point(12, 10) Me.lblFormularManager.Name = "lblFormularManager" Me.lblFormularManager.Size = New System.Drawing.Size(140, 17) - Me.lblFormularManager.TabIndex = 1 + Me.lblFormularManager.TabIndex = 0 Me.lblFormularManager.Text = "Formular Manager" ' 'pnlBody @@ -156,74 +194,6 @@ Partial Class frmFormulare Me.pnlBody.Size = New System.Drawing.Size(1326, 636) Me.pnlBody.TabIndex = 1 ' - 'pnlBottom - ' - Me.pnlBottom.BackColor = System.Drawing.Color.White - Me.pnlBottom.Controls.Add(Me.txtErr) - Me.pnlBottom.Controls.Add(Me.cboPrinter) - Me.pnlBottom.Controls.Add(Me.btnPrint) - Me.pnlBottom.Controls.Add(Me.Button2) - Me.pnlBottom.Controls.Add(Me.btn) - Me.pnlBottom.Dock = System.Windows.Forms.DockStyle.Bottom - Me.pnlBottom.Location = New System.Drawing.Point(0, 736) - Me.pnlBottom.Name = "pnlBottom" - Me.pnlBottom.Size = New System.Drawing.Size(1326, 61) - Me.pnlBottom.TabIndex = 2 - ' - 'txtErr - ' - Me.txtErr.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ - Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.txtErr.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.txtErr.ForeColor = System.Drawing.Color.Red - Me.txtErr.Location = New System.Drawing.Point(15, 3) - Me.txtErr.Name = "txtErr" - Me.txtErr.Size = New System.Drawing.Size(454, 55) - Me.txtErr.TabIndex = 22 - Me.txtErr.Text = "" - ' - 'btnPrint - ' - Me.btnPrint.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.btnPrint.BackgroundImage = Global.SDL.My.Resources.printer2 - Me.btnPrint.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.btnPrint.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnPrint.Location = New System.Drawing.Point(1262, 10) - Me.btnPrint.Margin = New System.Windows.Forms.Padding(5) - Me.btnPrint.Name = "btnPrint" - Me.btnPrint.Padding = New System.Windows.Forms.Padding(5) - Me.btnPrint.Size = New System.Drawing.Size(50, 40) - Me.btnPrint.TabIndex = 2 - Me.btnPrint.UseVisualStyleBackColor = True - ' - 'Button2 - ' - Me.Button2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.Button2.BackgroundImage = Global.SDL.My.Resources.pdf - Me.Button2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button2.Location = New System.Drawing.Point(1202, 10) - Me.Button2.Margin = New System.Windows.Forms.Padding(5) - Me.Button2.Name = "Button2" - Me.Button2.Padding = New System.Windows.Forms.Padding(5) - Me.Button2.Size = New System.Drawing.Size(50, 40) - Me.Button2.TabIndex = 1 - Me.Button2.UseVisualStyleBackColor = True - ' - 'btn - ' - Me.btn.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.btn.BackgroundImage = Global.SDL.My.Resources.email_big - Me.btn.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btn.Location = New System.Drawing.Point(1142, 10) - Me.btn.Margin = New System.Windows.Forms.Padding(5) - Me.btn.Name = "btn" - Me.btn.Padding = New System.Windows.Forms.Padding(5) - Me.btn.Size = New System.Drawing.Size(50, 40) - Me.btn.TabIndex = 0 - Me.btn.UseVisualStyleBackColor = True - ' 'MyFlowLayoutPanel1 ' Me.MyFlowLayoutPanel1.AllowDrop = True @@ -237,6 +207,88 @@ Partial Class frmFormulare Me.MyFlowLayoutPanel1.Size = New System.Drawing.Size(1324, 634) Me.MyFlowLayoutPanel1.TabIndex = 0 ' + 'pnlBottom + ' + Me.pnlBottom.BackColor = System.Drawing.Color.White + Me.pnlBottom.Controls.Add(Me.Label6) + Me.pnlBottom.Controls.Add(Me.cboTextKonserveSprache) + Me.pnlBottom.Controls.Add(Me.Label5) + Me.pnlBottom.Controls.Add(Me.cboTextkonserve) + Me.pnlBottom.Controls.Add(Me.txtErr) + Me.pnlBottom.Controls.Add(Me.cboPrinter) + Me.pnlBottom.Controls.Add(Me.btnPrint) + Me.pnlBottom.Controls.Add(Me.Button2) + Me.pnlBottom.Controls.Add(Me.btn) + Me.pnlBottom.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pnlBottom.Location = New System.Drawing.Point(0, 736) + Me.pnlBottom.Name = "pnlBottom" + Me.pnlBottom.Size = New System.Drawing.Size(1326, 61) + Me.pnlBottom.TabIndex = 2 + ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label6.Location = New System.Drawing.Point(553, 10) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(75, 13) + Me.Label6.TabIndex = 1 + Me.Label6.Text = "Textkonserve:" + Me.Label6.Visible = False + ' + 'cboTextKonserveSprache + ' + Me.cboTextKonserveSprache._allowedValuesFreiText = Nothing + Me.cboTextKonserveSprache._allowFreiText = False + Me.cboTextKonserveSprache._value = "" + Me.cboTextKonserveSprache.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cboTextKonserveSprache.DropDownWidth = 300 + Me.cboTextKonserveSprache.FlatStyle = System.Windows.Forms.FlatStyle.System + Me.cboTextKonserveSprache.FormattingEnabled = True + Me.cboTextKonserveSprache.Location = New System.Drawing.Point(647, 28) + Me.cboTextKonserveSprache.Name = "cboTextKonserveSprache" + Me.cboTextKonserveSprache.Size = New System.Drawing.Size(191, 21) + Me.cboTextKonserveSprache.TabIndex = 4 + Me.cboTextKonserveSprache.Visible = False + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label5.Location = New System.Drawing.Point(553, 31) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(50, 13) + Me.Label5.TabIndex = 3 + Me.Label5.Text = "Sprache:" + Me.Label5.Visible = False + ' + 'cboTextkonserve + ' + Me.cboTextkonserve._allowedValuesFreiText = Nothing + Me.cboTextkonserve._allowFreiText = False + Me.cboTextkonserve._value = "" + Me.cboTextkonserve.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cboTextkonserve.DropDownWidth = 300 + Me.cboTextkonserve.FlatStyle = System.Windows.Forms.FlatStyle.System + Me.cboTextkonserve.FormattingEnabled = True + Me.cboTextkonserve.Location = New System.Drawing.Point(647, 7) + Me.cboTextkonserve.Name = "cboTextkonserve" + Me.cboTextkonserve.Size = New System.Drawing.Size(191, 21) + Me.cboTextkonserve.TabIndex = 2 + Me.cboTextkonserve.Visible = False + ' + 'txtErr + ' + Me.txtErr.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txtErr.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtErr.ForeColor = System.Drawing.Color.Red + Me.txtErr.Location = New System.Drawing.Point(15, 3) + Me.txtErr.Name = "txtErr" + Me.txtErr.Size = New System.Drawing.Size(454, 55) + Me.txtErr.TabIndex = 0 + Me.txtErr.Text = "" + ' 'cboPrinter ' Me.cboPrinter._allowedValuesFreiText = Nothing @@ -248,41 +300,49 @@ Partial Class frmFormulare Me.cboPrinter.Location = New System.Drawing.Point(943, 28) Me.cboPrinter.Name = "cboPrinter" Me.cboPrinter.Size = New System.Drawing.Size(191, 21) - Me.cboPrinter.TabIndex = 21 + Me.cboPrinter.TabIndex = 5 ' - 'cboVorlage + 'btnPrint ' - Me.cboVorlage._allowedValuesFreiText = Nothing - Me.cboVorlage._allowFreiText = False - Me.cboVorlage._value = "" - Me.cboVorlage.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.cboVorlage.FormattingEnabled = True - Me.cboVorlage.Location = New System.Drawing.Point(132, 34) - Me.cboVorlage.Name = "cboVorlage" - Me.cboVorlage.Size = New System.Drawing.Size(205, 21) - Me.cboVorlage.TabIndex = 7 + Me.btnPrint.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnPrint.BackgroundImage = Global.SDL.My.Resources.Resources.printer2 + Me.btnPrint.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.btnPrint.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnPrint.Location = New System.Drawing.Point(1262, 10) + Me.btnPrint.Margin = New System.Windows.Forms.Padding(5) + Me.btnPrint.Name = "btnPrint" + Me.btnPrint.Padding = New System.Windows.Forms.Padding(5) + Me.btnPrint.Size = New System.Drawing.Size(50, 40) + Me.btnPrint.TabIndex = 8 + Me.btnPrint.UseVisualStyleBackColor = True ' - 'MyListBox2 + 'Button2 ' - Me.MyListBox2._value = "" - Me.MyListBox2.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.MyListBox2.FormattingEnabled = True - Me.MyListBox2.ItemHeight = 16 - Me.MyListBox2.Location = New System.Drawing.Point(810, 26) - Me.MyListBox2.Name = "MyListBox2" - Me.MyListBox2.Size = New System.Drawing.Size(429, 68) - Me.MyListBox2.TabIndex = 4 + Me.Button2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Button2.BackgroundImage = Global.SDL.My.Resources.Resources.pdf + Me.Button2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button2.Location = New System.Drawing.Point(1202, 10) + Me.Button2.Margin = New System.Windows.Forms.Padding(5) + Me.Button2.Name = "Button2" + Me.Button2.Padding = New System.Windows.Forms.Padding(5) + Me.Button2.Size = New System.Drawing.Size(50, 40) + Me.Button2.TabIndex = 7 + Me.Button2.UseVisualStyleBackColor = True ' - 'MyListBox1 + 'btn ' - Me.MyListBox1._value = "" - Me.MyListBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.MyListBox1.FormattingEnabled = True - Me.MyListBox1.ItemHeight = 16 - Me.MyListBox1.Location = New System.Drawing.Point(343, 26) - Me.MyListBox1.Name = "MyListBox1" - Me.MyListBox1.Size = New System.Drawing.Size(461, 68) - Me.MyListBox1.TabIndex = 3 + Me.btn.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btn.BackgroundImage = Global.SDL.My.Resources.Resources.email_big + Me.btn.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btn.Location = New System.Drawing.Point(1142, 10) + Me.btn.Margin = New System.Windows.Forms.Padding(5) + Me.btn.Name = "btn" + Me.btn.Padding = New System.Windows.Forms.Padding(5) + Me.btn.Size = New System.Drawing.Size(50, 40) + Me.btn.TabIndex = 6 + Me.btn.UseVisualStyleBackColor = True ' 'frmFormulare ' @@ -301,6 +361,7 @@ Partial Class frmFormulare Me.pnlBody.ResumeLayout(False) Me.pnlBody.PerformLayout() Me.pnlBottom.ResumeLayout(False) + Me.pnlBottom.PerformLayout() Me.ResumeLayout(False) End Sub @@ -323,4 +384,8 @@ Partial Class frmFormulare Friend WithEvents cboVorlage As VERAG_PROG_ALLGEMEIN.MyComboBox Friend WithEvents cboPrinter As VERAG_PROG_ALLGEMEIN.MyComboBox Friend WithEvents txtErr As System.Windows.Forms.RichTextBox + Friend WithEvents Label6 As Label + Friend WithEvents cboTextKonserveSprache As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents Label5 As Label + Friend WithEvents cboTextkonserve As VERAG_PROG_ALLGEMEIN.MyComboBox End Class diff --git a/SDL/Formulare/KDFormulare/frmFormulare.vb b/SDL/Formulare/KDFormulare/frmFormulare.vb index bf6996d8..d807305c 100644 --- a/SDL/Formulare/KDFormulare/frmFormulare.vb +++ b/SDL/Formulare/KDFormulare/frmFormulare.vb @@ -16,6 +16,7 @@ Public Class frmFormulare Dim isSingleForm = False Event ShownFIN() Dim KdNr As Integer = 0 + Public printed As Boolean = False Sub New() @@ -183,7 +184,7 @@ Public Class frmFormulare End Try - + cboTextkonserve.fillWithSQL("SELECT distinct([txt_bezeichnung]) FROM [tblTextkonserve] where [txt_kategorie] ='FRM_MNGR_MailText'", False, "FMZOLL", True) Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Case "IMEX" @@ -210,6 +211,7 @@ Public Class frmFormulare MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verbundenheit Käufer/Verkäufer", FormularManagerArten.Verbundenheit)) + MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Rechnungsbestätigung", FormularManagerArten.Rechnungsbestaetigung)) ' MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Auftrag Überwachungsdokument", FormularManagerArten.QS_UeDok)) ' MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VerpflichtungserklärungFahrer", FormularManagerArten.VerpflichtungserklärungFahrer)) @@ -409,7 +411,6 @@ Public Class frmFormulare c = New usrcntlVorauskasse Else c = New usrcntlVorauskasse(param) - End If ' Dim c As New usrcntlVorauskasse(param(0)) If ControlExists_addOK(c.GetType.ToString) Then @@ -486,6 +487,20 @@ Public Class frmFormulare End Sub MyFlowLayoutPanel1.Controls.Add(c) End If + Case FormularManagerArten.Rechnungsbestaetigung + Dim c As New usrcntlRechnungsbestaetigung + If ControlExists_addOK(c.GetType.ToString) Then + c.Width = MyFlowLayoutPanel1.Width - 6 + c.KdNR = KdNr + AddHandler c.CHANGED, AddressOf ValueChanged + AddHandler c.KDNR_CHANGED, AddressOf KDNR_CHANGED + AddHandler c.DELETE, AddressOf ControlDELETE + AddHandler c.MOVE_UP, AddressOf ControlMoveUp + AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown + + MyFlowLayoutPanel1.Controls.Add(c) + End If + Case FormularManagerArten.DispoListe If param Is Nothing Then param = {0} Dim c As New usrCntlDispoliste(param(0)) @@ -559,7 +574,14 @@ Public Class frmFormulare MyFlowLayoutPanel1.Controls.Add(c) Case FormularManagerArten.Verzollungsunterlagen ' If param Is Nothing Then Exit Sub - Dim c As New usrcntlVerzollungsunterlagen() + Dim c As usrcntlVerzollungsunterlagen + If param Is Nothing Then + c = New usrcntlVerzollungsunterlagen() + Else + c = New usrcntlVerzollungsunterlagen(param) + End If + + ' Dim c As New usrcntlVerzollungsunterlagen() c.Width = MyFlowLayoutPanel1.Width - 6 c.KdNR = KdNr AddHandler c.DELETE, AddressOf ControlDELETE @@ -914,6 +936,11 @@ Public Class frmFormulare Dim Mail As Microsoft.Office.Interop.Outlook.MailItem Mail = outl.CreateItem(0) + + 'If cboTextkonserve._value <> "" AndAlso cboTextKonserveSprache._value <> "" Then + ' Dim tX As New VERAG_PROG_ALLGEMEIN.textkon + 'End If + Mail.Attachments.Add(dest_path, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , "VERAG_Formular.pdf") Mail.Display() @@ -934,6 +961,8 @@ Public Class frmFormulare End If End If + printed = True + Catch ex As Exception MsgBox(ex.Message & ex.StackTrace) End Try @@ -1090,6 +1119,12 @@ Public Class frmFormulare Private Sub cboPrinter_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboPrinter.SelectedIndexChanged End Sub + + Private Sub MyComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboTextkonserve.SelectedIndexChanged + cboTextKonserveSprache.Items.Clear() + If cboTextkonserve._value <> "" Then cboTextKonserveSprache.fillWithSQL("SELECT distinct([txt_sprache]) FROM [tblTextkonserve] where [txt_kategorie] ='FRM_MNGR_MailText' and [txt_bezeichnung]='" & cboTextkonserve._value & "' ", False, "FMZOLL", True) + End Sub + End Class @@ -1151,6 +1186,8 @@ Public Class FormularManagerNEU retStr = FormularManagerNEU.QS_UeDok(c) Case GetType(usrcntlVerbundenheit).ToString retStr = FormularManagerNEU.Verbundenheit(c) + Case GetType(usrcntlRechnungsbestaetigung).ToString + retStr = FormularManagerNEU.Rechnungsbestaetigung(c) Case GetType(usrcntlVUB).ToString retStr = FormularManagerNEU.VUB(c) @@ -1191,7 +1228,7 @@ Public Class FormularManagerNEU Case GetType(usrcntlVollmacht_VERAG_EXPORT).ToString ' retStr = FormularManagerNEU.VM_VERAG_EXPORT(c) Case GetType(usrcntlVorauskasse).ToString - validFormulare = DirectCast(c, usrcntlVorauskasse).ValidValues(err) + If Not DirectCast(c, usrcntlVorauskasse).ValidValues(err) Then validFormulare = False Case GetType(usrcntlGestellungsgarantie).ToString ' retStr = FormularManagerNEU.Gestellungsgarantie(c) Case GetType(usrcntlVerzollungspreise).ToString @@ -1206,6 +1243,8 @@ Public Class FormularManagerNEU ' striList = FormularManagerNEU.VerpflichtungserklärungFahrer(c) Case GetType(usrcntlFiskalInfoschreiben).ToString ' retStr = FormularManagerNEU.FiskalInfoschreiben(c) + Case GetType(usrcntlVerzollungsunterlagen).ToString + If Not DirectCast(c, usrcntlVerzollungsunterlagen).ValidValues(err) Then validFormulare = False Case GetType(usrcntlVUB).ToString ' retStr = FormularManagerNEU.VUB(c) @@ -1484,6 +1523,9 @@ Public Class FormularManagerNEU End If If colliGewicht <> "" Then rpt.txtAnmerkung.Text = (colliGewicht & vbNewLine & rpt.txtAnmerkung.Text).Trim + If SND.tblSnd_Abfertigungsart_ID = 23 Then 'ATA NR + If If(SND.tblSnd_ATANr, "") <> "" Then rpt.txtAnmerkung.Text &= vbNewLine & "ATA-Nr.: " & SND.tblSnd_ATANr + End If Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Case "IMEX" : rpt.txtPosNr.Text &= vbNewLine & SND.tblSnd_KdAuftragsNrAvisierer @@ -2351,6 +2393,22 @@ Public Class FormularManagerNEU + 'Dim myVermerk As New VERAG_PROG_ALLGEMEIN.cVermerk + 'myVermerk.AvisoID = usrCntl.AVISO.AvisoID + 'myVermerk.SendungID = dt.Rows(0)("tblSnd_SendungID") + 'myVermerk.Datum = If(DatumTmp, Now) + 'myVermerk.VermerkArt = "S" + 'myVermerk.Mitarbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & " (AUTO)" + 'myVermerk.MitarbeiterId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID + 'Select Case VermerkCodeId + ' Case 13 : myVermerk.Hinweis_Vermerk = "Vorauskasse angefordert" + ' Case 14 : myVermerk.Hinweis_Vermerk = "Vorauskasse erhalten" + ' Case Else : Exit Sub + 'End Select + 'myVermerk.VermerkCodeId = VermerkCodeId + + 'VermerkeDAL.SpeichernVermerk(myVermerk) + If usrCntl.cbxLKWWartet.Checked Then listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("!!! LKW wartet !!!", 141, 11, 60, 15, "boldRed", 20, , iTextSharp.text.Element.ALIGN_LEFT)) @@ -2708,7 +2766,7 @@ Public Class FormularManagerNEU odoc.FormFields("Adresse4").Range.Text = usrCntl.txtAdresse2.Text odoc.FormFields("Adresse5").Range.Text = usrCntl.txtAdresse3.Text - odoc.FormFields("PosNr").Range.Text = usrCntl.txtPosNr.Text + odoc.FormFields("PosNr").Range.Text = usrCntl.txtLKW.Text & " " & usrCntl.cboFiliale._value & "/" & usrCntl.txtAbfertigungsNr.Text odoc.FormFields("Anlage1").Range.Text = usrCntl.txtAnlage1.Text odoc.FormFields("Anlage2").Range.Text = usrCntl.txtAnlage2.Text @@ -2726,6 +2784,13 @@ Public Class FormularManagerNEU odoc.Save() : odoc.Activate() + + If usrCntl.cbxBeimErstellenSpeichern.Checked Then + ' If vbYes = MsgBox("Möchten Sie die Bonitätsauskunft in den Kundendaten speichern?", vbYesNoCancel) Then + savePostversand(usrCntl, usrCntl.POST_ID) + 'End If + End If + If openWord Then oWord.Visible = True Return New List(Of String) @@ -2836,152 +2901,152 @@ Public Class FormularManagerNEU Select Case usrCntl.cboTEXT._value - Case "AT_FISKAL" - bool_StbFA = True - Select Case usrCntl.cboSprache._value - Case "DE", "" - Mail_Subject = "Meldung innergemeinschaftlicher Erwerb" & posNr - MailHTMLText &= "!!! DRINGENDE ZOLLSACHE !!!
" - MailHTMLText &= "
" - MailHTMLText &= "Sehr geehrte Damen und Herren,
" - MailHTMLText &= "
" - MailHTMLText &= "in der Anlage erhalten Sie die Unterlagen zu der Verzollung im Verfahren 4200.
" - MailHTMLText &= "
" - MailHTMLText &= "Bitte melden Sie den Import in Ihrer Steuererklärung (UVA) als ""innergemeinschaftlichen Erwerb""
" - MailHTMLText &= "mit unser Sonder - UID-Nr.: ATU 68374145 an.
" - MailHTMLText &= "
" - MailHTMLText &= "Des Weiteren möchten wir Sie darauf hinweisen, dass eine Intrastat Anmeldung zu machen ist!
" - MailHTMLText &= "
" - MailHTMLText &= "Die österreichische Zollbehörde verlangt in diesem Verfahren die Vorlegung einer gültigen Empfangsbestätigung. Aufgrund dessen ersuchen wir Sie den CMR/Frachtbrief, welchen der Fahrer bei der Abladung abgibt, zu bestätigen.
" - MailHTMLText &= "Wir müssen diesen im Original vorlegen können, deshalb bitten wir Sie, das Dokument per Post an uns abzusenden!
" - MailHTMLText &= "
" - MailHTMLText &= "Bitte:
" - MailHTMLText &= "
" - MailHTMLText &= "• GUT LESBAR
" - MailHTMLText &= "• VERMERK: WAREN ERHALTEN
" - MailHTMLText &= "• GENAUES DATUM DER WARENÜBERNAHME
" - MailHTMLText &= "• ORIGINAL FIRMENSTEMPEL
" - MailHTMLText &= "• ORIGINAL UNTERSCHRIFT
" - MailHTMLText &= "
" - MailHTMLText &= "
" - MailHTMLText &= "Post Adresse:
" - MailHTMLText &= "VERAG CUSTOMS SERVICE GMBH
" - MailHTMLText &= "POSTFACH 1013
" - MailHTMLText &= "D 94152 NEUHAUS AM INN
" - MailHTMLText &= "
" - MailHTMLText &= "
" - MailHTMLText &= "Freundlichen Grüßen
" - MailHTMLText &= "
" - MailHTMLText &= "
" - MailHTMLText &= cFakturierung.getSignature("D", 11) - MailHTMLText_STBFA &= cFakturierung.getSignature("D", 11) - Case "EN" + Case "AT_FISKAL" + bool_StbFA = True + Select Case usrCntl.cboSprache._value + Case "DE", "" + Mail_Subject = "Meldung innergemeinschaftlicher Erwerb" & posNr + MailHTMLText &= "!!! DRINGENDE ZOLLSACHE !!!
" + MailHTMLText &= "
" + MailHTMLText &= "Sehr geehrte Damen und Herren,
" + MailHTMLText &= "
" + MailHTMLText &= "in der Anlage erhalten Sie die Unterlagen zu der Verzollung im Verfahren 4200.
" + MailHTMLText &= "
" + MailHTMLText &= "Bitte melden Sie den Import in Ihrer Steuererklärung (UVA) als ""innergemeinschaftlichen Erwerb""
" + MailHTMLText &= "mit unser Sonder - UID-Nr.: ATU 68374145 an.
" + MailHTMLText &= "
" + MailHTMLText &= "Des Weiteren möchten wir Sie darauf hinweisen, dass eine Intrastat Anmeldung zu machen ist!
" + MailHTMLText &= "
" + MailHTMLText &= "Die österreichische Zollbehörde verlangt in diesem Verfahren die Vorlegung einer gültigen Empfangsbestätigung. Aufgrund dessen ersuchen wir Sie den CMR/Frachtbrief, welchen der Fahrer bei der Abladung abgibt, zu bestätigen.
" + MailHTMLText &= "Wir müssen diesen im Original vorlegen können, deshalb bitten wir Sie, das Dokument per Post an uns abzusenden!
" + MailHTMLText &= "
" + MailHTMLText &= "Bitte:
" + MailHTMLText &= "
" + MailHTMLText &= "• GUT LESBAR
" + MailHTMLText &= "• VERMERK: WAREN ERHALTEN
" + MailHTMLText &= "• GENAUES DATUM DER WARENÜBERNAHME
" + MailHTMLText &= "• ORIGINAL FIRMENSTEMPEL
" + MailHTMLText &= "• ORIGINAL UNTERSCHRIFT
" + MailHTMLText &= "
" + MailHTMLText &= "
" + MailHTMLText &= "Post Adresse:
" + MailHTMLText &= "VERAG CUSTOMS SERVICE GMBH
" + MailHTMLText &= "POSTFACH 1013
" + MailHTMLText &= "D 94152 NEUHAUS AM INN
" + MailHTMLText &= "
" + MailHTMLText &= "
" + MailHTMLText &= "Freundlichen Grüßen
" + MailHTMLText &= "
" + MailHTMLText &= "
" + MailHTMLText &= cFakturierung.getSignature("D", 11) + MailHTMLText_STBFA &= cFakturierung.getSignature("D", 11) + Case "EN" - Mail_Subject = "intra-community acquisition" & posNr - MailHTMLText &= "!! URGENT CUSTOMS MATTER !!
" - MailHTMLText &= "
" - MailHTMLText &= "Dear Sir / Madam,
" - MailHTMLText &= "
" - MailHTMLText &= "Please find enclosed the documents regarding the customs clearance (process 4200).
" - MailHTMLText &= "
" - MailHTMLText &= "Please register the import on your tax decleration ( turnover tax advance return ) as
" - MailHTMLText &= """intra-community acquisition"" with our special value added tax identification number ATU68374145." - MailHTMLText &= "
" - MailHTMLText &= "Furthermore, we would like to point out that you must fill out an Intrastat decleration!
" - MailHTMLText &= "
" - MailHTMLText &= "In this procedure, the Austrian customs authority requires the presentation of a valid entry certificate. For this reason, we ask you to confirm the CMR/consignment note which the driver hands out in during unloading.
" - MailHTMLText &= "We must be able to present this document in original. Therefore we ask you to send the document to us by post!
" - MailHTMLText &= "
" - MailHTMLText &= "Please ensure the following:
" - MailHTMLText &= "
" - MailHTMLText &= "• THE DOCUMENT IS FULLY LEGIBLE
" - MailHTMLText &= "• YOU NOTE ON THE FORM: GOODS RECEIVED
" - MailHTMLText &= "• YOU NOTE THE EXACT DATE OF RECEIPT OF GOODS
" - MailHTMLText &= "• YOU PROVIDE AN ORIGINAL COMPANY STAMP
" - MailHTMLText &= "• YOU PROVIDE AN ORIGINAL SIGNATURE
" - MailHTMLText &= "
" - MailHTMLText &= "
" - MailHTMLText &= "Adress:
" - MailHTMLText &= "VERAG CUSTOMS SERVICE GMBH
" - MailHTMLText &= "POSTFACH 1013
" - MailHTMLText &= "D 94152 NEUHAUS AM INN
" - MailHTMLText &= "
" - MailHTMLText &= "
" - MailHTMLText &= "Yours faithfully,
" - MailHTMLText &= "
" - MailHTMLText &= "
" - MailHTMLText &= cFakturierung.getSignature("EN", 11) - MailHTMLText_STBFA &= cFakturierung.getSignature("D", 11) + Mail_Subject = "intra-community acquisition" & posNr + MailHTMLText &= "!! URGENT CUSTOMS MATTER !!
" + MailHTMLText &= "
" + MailHTMLText &= "Dear Sir / Madam,
" + MailHTMLText &= "
" + MailHTMLText &= "Please find enclosed the documents regarding the customs clearance (process 4200).
" + MailHTMLText &= "
" + MailHTMLText &= "Please register the import on your tax decleration ( turnover tax advance return ) as
" + MailHTMLText &= """intra-community acquisition"" with our special value added tax identification number ATU68374145." + MailHTMLText &= "
" + MailHTMLText &= "Furthermore, we would like to point out that you must fill out an Intrastat decleration!
" + MailHTMLText &= "
" + MailHTMLText &= "In this procedure, the Austrian customs authority requires the presentation of a valid entry certificate. For this reason, we ask you to confirm the CMR/consignment note which the driver hands out in during unloading.
" + MailHTMLText &= "We must be able to present this document in original. Therefore we ask you to send the document to us by post!
" + MailHTMLText &= "
" + MailHTMLText &= "Please ensure the following:
" + MailHTMLText &= "
" + MailHTMLText &= "• THE DOCUMENT IS FULLY LEGIBLE
" + MailHTMLText &= "• YOU NOTE ON THE FORM: GOODS RECEIVED
" + MailHTMLText &= "• YOU NOTE THE EXACT DATE OF RECEIPT OF GOODS
" + MailHTMLText &= "• YOU PROVIDE AN ORIGINAL COMPANY STAMP
" + MailHTMLText &= "• YOU PROVIDE AN ORIGINAL SIGNATURE
" + MailHTMLText &= "
" + MailHTMLText &= "
" + MailHTMLText &= "Adress:
" + MailHTMLText &= "VERAG CUSTOMS SERVICE GMBH
" + MailHTMLText &= "POSTFACH 1013
" + MailHTMLText &= "D 94152 NEUHAUS AM INN
" + MailHTMLText &= "
" + MailHTMLText &= "
" + MailHTMLText &= "Yours faithfully,
" + MailHTMLText &= "
" + MailHTMLText &= "
" + MailHTMLText &= cFakturierung.getSignature("EN", 11) + MailHTMLText_STBFA &= cFakturierung.getSignature("D", 11) - End Select + End Select - Case "DE_FISKAL" - bool_StbFA = True - Select Case usrCntl.cboSprache._value - Case "EN" + Case "DE_FISKAL" + bool_StbFA = True + Select Case usrCntl.cboSprache._value + Case "EN" - Mail_Subject = "intra-community acquisition" & posNr - MailHTMLText &= "!! URGENT CUSTOMS MATTER !!
" - MailHTMLText &= "
" - MailHTMLText &= "Dear Sir / Madam,
" - MailHTMLText &= "
" - MailHTMLText &= "Please find enclosed the documents regarding the customs clearance (process 4200).
" - MailHTMLText &= "
" - MailHTMLText &= "Please register the import on your tax declaration (turnover tax advance return) as ""intra-Community acquisition"" with our special value added tax identification number DE 813667748.
" - MailHTMLText &= """intra-community acquisition"" with our special value added tax identification number ATU68374145." - MailHTMLText &= "
" - MailHTMLText &= "Furthermore, we would like to point out that you must fill out an Intrastat declaration!
" - MailHTMLText &= "
" - MailHTMLText &= "
" - MailHTMLText &= "Yours faithfully
" - MailHTMLText &= "
" - MailHTMLText &= "
" - MailHTMLText &= cFakturierung.getSignature("EN", 99) - MailHTMLText_STBFA &= cFakturierung.getSignature("D", 99) + Mail_Subject = "intra-community acquisition" & posNr + MailHTMLText &= "!! URGENT CUSTOMS MATTER !!
" + MailHTMLText &= "
" + MailHTMLText &= "Dear Sir / Madam,
" + MailHTMLText &= "
" + MailHTMLText &= "Please find enclosed the documents regarding the customs clearance (process 4200).
" + MailHTMLText &= "
" + MailHTMLText &= "Please register the import on your tax declaration (turnover tax advance return) as ""intra-Community acquisition"" with our special value added tax identification number DE 813667748.
" + MailHTMLText &= """intra-community acquisition"" with our special value added tax identification number ATU68374145." + MailHTMLText &= "
" + MailHTMLText &= "Furthermore, we would like to point out that you must fill out an Intrastat declaration!
" + MailHTMLText &= "
" + MailHTMLText &= "
" + MailHTMLText &= "Yours faithfully
" + MailHTMLText &= "
" + MailHTMLText &= "
" + MailHTMLText &= cFakturierung.getSignature("EN", 99) + MailHTMLText_STBFA &= cFakturierung.getSignature("D", 99) - End Select + End Select - Case "EV" - Select Case usrCntl.cboSprache._value - Case "DE", "" - Mail_Subject = "Verzollungsunterlagen" & posNr - MailHTMLText &= "Sehr geehrte Damen und Herren,
" - MailHTMLText &= "
" - MailHTMLText &= "in der Anlage erhalten Sie die Unterlagen zu der Verzollung.
" - MailHTMLText &= "
" - MailHTMLText &= "
" - MailHTMLText &= "Freundlichen Grüßen
" - MailHTMLText &= "
" - MailHTMLText &= "
" - MailHTMLText &= cFakturierung.getSignature("D", 11) - Case "EN" - Mail_Subject = "Verzollungsunterlagen" & posNr - MailHTMLText &= "Dear Sir / Madam,
" - MailHTMLText &= "
" - MailHTMLText &= "attached you will find the documents for customs clearance.
" - MailHTMLText &= "
" - MailHTMLText &= "
" - MailHTMLText &= "Yours faithfully
" - MailHTMLText &= "
" - MailHTMLText &= "
" - MailHTMLText &= cFakturierung.getSignature("EN", 11) + Case "EV" + Select Case usrCntl.cboSprache._value + Case "DE", "" + Mail_Subject = "Verzollungsunterlagen" & posNr + MailHTMLText &= "Sehr geehrte Damen und Herren,
" + MailHTMLText &= "
" + MailHTMLText &= "in der Anlage erhalten Sie die Unterlagen zu der Verzollung.
" + MailHTMLText &= "
" + MailHTMLText &= "
" + MailHTMLText &= "Freundlichen Grüßen
" + MailHTMLText &= "
" + MailHTMLText &= "
" + MailHTMLText &= cFakturierung.getSignature("D", 11) + Case "EN" + Mail_Subject = "Verzollungsunterlagen" & posNr + MailHTMLText &= "Dear Sir / Madam,
" + MailHTMLText &= "
" + MailHTMLText &= "attached you will find the documents for customs clearance.
" + MailHTMLText &= "
" + MailHTMLText &= "
" + MailHTMLText &= "Yours faithfully
" + MailHTMLText &= "
" + MailHTMLText &= "
" + MailHTMLText &= cFakturierung.getSignature("EN", 11) - End Select + End Select - 'MailHTMLText &= cFakturierung.getSignature(11) - End Select + 'MailHTMLText &= cFakturierung.getSignature(11) + End Select - MailHTMLText &= "" - 'MAIL?? + MailHTMLText &= "" + 'MAIL?? - listMail.Add(New FormMangagerEmail(mail_To, "", "", Mail_Subject, MailHTMLText)) - If bool_StbFA Then listMail.Add(New FormMangagerEmail(mail_To_Stb, mail_To_FA, "", Mail_Subject_STBFA, MailHTMLText_STBFA)) + listMail.Add(New FormMangagerEmail(mail_To, "", "", Mail_Subject, MailHTMLText)) + If bool_StbFA Then listMail.Add(New FormMangagerEmail(mail_To_Stb, mail_To_FA, "", Mail_Subject_STBFA, MailHTMLText_STBFA)) - Catch ex As Exception - MessageBox.Show(ex.ToString & ex.StackTrace) + Catch ex As Exception + MessageBox.Show(ex.ToString & ex.StackTrace) End Try Return New List(Of String) End Function @@ -2996,8 +3061,9 @@ Public Class FormularManagerNEU Dim Mail_To = "" If usrCntl.KdNR > 0 Then - Dim FISKAL As New cFiskal_Daten(usrCntl.KdNR) - If FISKAL IsNot Nothing Then Mail_CC = If(FISKAL.fisk_schreibenSB_Mail, "") + 'lt. Kerstin: Steuerberater braucht den Verbringungsnachweis nicht + ' Dim FISKAL As New cFiskal_Daten(usrCntl.KdNR) + ' If FISKAL IsNot Nothing Then Mail_CC = If(FISKAL.fisk_schreibenSB_Mail, "") Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(usrCntl.KdNR) If AD IsNot Nothing Then Mail_To = If(AD.E_Mail, "") End If @@ -3143,6 +3209,32 @@ Public Class FormularManagerNEU End Function + Shared Function Rechnungsbestaetigung(usrCntl As usrcntlRechnungsbestaetigung) As String + Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager + + Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues) + Dim top = 0 + + Select Case usrCntl.cboSprache._value + Case "EN" + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtRgNr.Text, 50, 182, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtVersender.Text, 50, 200, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "Rechnungsbestaetigung_EN", listTowrite) + Case "FR" '140/102 + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtRgNr.Text, 115, 182, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtVersender.Text, 102, 142, 60, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER)) + Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "Rechnungsbestaetigung_FR", listTowrite) + Case "TR" + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtRgNr.Text, 26, 165, 30, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtVersender.Text, 60, 147, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "Rechnungsbestaetigung_TR", listTowrite) + Case Else + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtRgNr.Text, 80, 148, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtVersender.Text, 50, 165, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "Rechnungsbestaetigung", listTowrite) + End Select + + End Function Shared Function QS_UeDok(usrCntl As usrcntlQS_UeDok) As String Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager @@ -3344,6 +3436,57 @@ Public Class FormularManagerNEU End Function + Shared Function savePostversand(usrCntl As usrcntlVerzollungsunterlagen, ByRef POST_ID As Integer) As Boolean + Try + 'If Not IsNumeric(usrCntl.cboFiliale._value) Then Return False + 'If Not IsNumeric(usrCntl.txtAbfertigungsNr.Text) Then Return False + + 'Dim cPostversand As VERAG_PROG_ALLGEMEIN.cPostversand = VERAG_PROG_ALLGEMEIN.cPostversand.LOADByFilialeAbfNr(usrCntl.cboFiliale._value, usrCntl.txtAbfertigungsNr.Text, usrCntl.ROLLE) + Dim cPostversand As VERAG_PROG_ALLGEMEIN.cPostversand + + If POST_ID > 0 Then + cPostversand = New VERAG_PROG_ALLGEMEIN.cPostversand(POST_ID) + Else + cPostversand = New VERAG_PROG_ALLGEMEIN.cPostversand + End If + + 'If cPostversand Is Nothing Then + ' cPostversand = New VERAG_PROG_ALLGEMEIN.cPostversand + ' 'ElseIf vbYes <> MsgBox("Es wurde am '" & cPostversand.post_Datum.ToShortDateString & "' um '" & cPostversand.post_Datum.ToShortTimeString & "' bereits eine Vorauskasse mit dieser Abfertigungsnummer angefordert, möchten Sie diese überschreiben?", vbYesNoCancel) Then + ' ' Return False + 'End If + + + 'cPostversand.post_GeldEingetroffen = usrCntl.XXXXXXX + 'cPostversand.post_BH_SachbearbeiterId = usrCntl.XXXXXXX + 'cPostversand.post_BH_Sachbearbeiter = usrCntl.XXXXXXX + 'cPostversand.post_BH_Bemerkung = usrCntl.XXXXXXX + 'cPostversand.post_BH_DatumGeldeingang = usrCntl.XXXXXXX + + usrCntl.getValues(cPostversand) + + If cPostversand.SAVE Then + + usrCntl.btnNEU.Visible = True + POST_ID = cPostversand.post_id + usrCntl.lblCRsaved.Text = "(gespeichert)" + usrCntl.lblCRsaved.ForeColor = Color.Green + + ' cPostversandOptions.insertVermerk(cPostversand.post_FilialeNr, cPostversand.post_AbfertigungsNr, 13) + + Return True + Else + Return False + End If + + + Catch ex As Exception + MsgBox("SaveVK: " & ex.Message) + Return False + End Try + End Function + + Shared Function addEinmaligeVM(listTowrite As List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues), left As Integer, top As Integer, language As String, RgNr As String, RgDat As String, Optional small As Boolean = False) As List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues) Select Case language Case "EN", "FR" @@ -3540,6 +3683,11 @@ Public Class FormularManagerNEU Shared Sub OPEN_FORM(FORM As Form, PDFArt As String, Optional KdNr As Integer = 0, Optional param() As Object = Nothing, Optional isSingleForm As Boolean = False) Dim f As New frmFormulare(PDFArt, KdNr, param, isSingleForm) f.Show(FORM) + End Sub + + Shared Sub OPEN_FORM_Byref(PDFArt As String, Optional KdNr As Integer = 0, Optional param() As Object = Nothing, Optional isSingleForm As Boolean = False, Optional ByRef f As frmFormulare = Nothing) + f = New frmFormulare(PDFArt, KdNr, param, isSingleForm) + f.Show() End Sub End Class @@ -3583,6 +3731,7 @@ Public Class FormularManagerArten Shared Property Verbundenheit = "Verbundenheit" Shared Property Sendungsliste = "Sendungsliste" + Shared Property Rechnungsbestaetigung = "Rechnungsbestaetigung" diff --git a/SDL/My Project/Resources.Designer.vb b/SDL/My Project/Resources.Designer.vb index 4bd95ac4..d7f1dea3 100644 --- a/SDL/My Project/Resources.Designer.vb +++ b/SDL/My Project/Resources.Designer.vb @@ -150,6 +150,16 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property ambar_simple1() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("ambar_simple1", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + ''' ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' @@ -1253,6 +1263,46 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property plose() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("plose", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property plose_big() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("plose_big", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property plose_cz() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("plose_cz", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property plose_it() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("plose_it", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + ''' ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' @@ -1821,6 +1871,16 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property Unisped_logo() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("Unisped_logo", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + ''' ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' @@ -1952,7 +2012,7 @@ Namespace My.Resources End Property ''' - ''' Sucht eine lokalisierte Zeichenfolge, die 1.1.1.6 ähnelt. + ''' Sucht eine lokalisierte Zeichenfolge, die 1.1.2.4 ähnelt. ''' Friend ReadOnly Property Version() As String Get diff --git a/SDL/My Project/Resources.resx b/SDL/My Project/Resources.resx index f0d98c56..6b5872ed 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.6 + 1.1.2.4 ..\Resources\chimes.wav;System.IO.MemoryStream, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 @@ -724,4 +724,22 @@ ..\Resources\ok_gray.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\plose.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\plose_big.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\ambar_simple1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\Unisped_logo.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\plose_cz.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\plose_it.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/Post/frmPostEinschreiben.Designer.vb b/SDL/Post/frmPostEinschreiben.Designer.vb new file mode 100644 index 00000000..b7528b25 --- /dev/null +++ b/SDL/Post/frmPostEinschreiben.Designer.vb @@ -0,0 +1,834 @@ + +Partial Class frmPostEinschreiben + 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() + Me.components = New System.ComponentModel.Container() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmPostEinschreiben)) + Me.pnl = New System.Windows.Forms.Panel() + Me.txtInAuftrag = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label7 = New System.Windows.Forms.Label() + Me.txtReferenz = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label5 = New System.Windows.Forms.Label() + Me.txtFirma = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label6 = New System.Windows.Forms.Label() + Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label3 = New System.Windows.Forms.Label() + Me.txtAbfertDat = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtAbfertDatBis = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cboSachbearbeiterQS = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtAbfertigungsnummer = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Button7 = New System.Windows.Forms.Button() + Me.Button6 = New System.Windows.Forms.Button() + Me.Button5 = New System.Windows.Forms.Button() + Me.btnSuche = New System.Windows.Forms.Button() + Me.Label23 = New System.Windows.Forms.Label() + Me.btnJahr = New System.Windows.Forms.Button() + Me.pnlTop = New System.Windows.Forms.Panel() + Me.Label4 = New System.Windows.Forms.Label() + Me.btnBisJahr = New System.Windows.Forms.Button() + Me.btnVonJahr = New System.Windows.Forms.Button() + Me.btnMonat = New System.Windows.Forms.Button() + Me.btnBisMonat = New System.Windows.Forms.Button() + Me.btnVonMonat = New System.Windows.Forms.Button() + Me.DateTimePicker2 = New System.Windows.Forms.DateTimePicker() + Me.Label13 = New System.Windows.Forms.Label() + Me.lblAbfertigungsdatum = New System.Windows.Forms.Label() + Me.Label1 = New System.Windows.Forms.Label() + Me.Label2 = New System.Windows.Forms.Label() + Me.Label12 = New System.Windows.Forms.Label() + Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker() + Me.Panel1 = New System.Windows.Forms.Panel() + Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.Button2 = New System.Windows.Forms.Button() + Me.pnloptions = New System.Windows.Forms.Panel() + Me.Button1 = New System.Windows.Forms.Button() + Me.btnDel = New System.Windows.Forms.Button() + Me.btnExcel = New System.Windows.Forms.Button() + Me.FlatButton7 = New System.Windows.Forms.Button() + Me.lblErgebnis = New System.Windows.Forms.Label() + Me.Label37 = New System.Windows.Forms.Label() + Me.txtMaxSrch = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.btn = New System.Windows.Forms.Button() + Me.pnl.SuspendLayout() + Me.pnlTop.SuspendLayout() + Me.Panel1.SuspendLayout() + CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnloptions.SuspendLayout() + Me.SuspendLayout() + ' + 'pnl + ' + Me.pnl.BackColor = System.Drawing.Color.WhiteSmoke + Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnl.Controls.Add(Me.txtInAuftrag) + Me.pnl.Controls.Add(Me.Label7) + Me.pnl.Controls.Add(Me.txtReferenz) + Me.pnl.Controls.Add(Me.Label5) + Me.pnl.Controls.Add(Me.txtFirma) + Me.pnl.Controls.Add(Me.Label6) + Me.pnl.Controls.Add(Me.MyTextBox1) + Me.pnl.Controls.Add(Me.Label3) + Me.pnl.Controls.Add(Me.txtAbfertDat) + Me.pnl.Controls.Add(Me.txtAbfertDatBis) + Me.pnl.Controls.Add(Me.cboSachbearbeiterQS) + Me.pnl.Controls.Add(Me.cboFiliale) + Me.pnl.Controls.Add(Me.txtAbfertigungsnummer) + Me.pnl.Controls.Add(Me.Button7) + Me.pnl.Controls.Add(Me.Button6) + Me.pnl.Controls.Add(Me.Button5) + Me.pnl.Controls.Add(Me.btnSuche) + Me.pnl.Controls.Add(Me.Label23) + Me.pnl.Controls.Add(Me.btnJahr) + Me.pnl.Controls.Add(Me.pnlTop) + Me.pnl.Controls.Add(Me.btnBisJahr) + Me.pnl.Controls.Add(Me.btnVonJahr) + Me.pnl.Controls.Add(Me.btnMonat) + Me.pnl.Controls.Add(Me.btnBisMonat) + Me.pnl.Controls.Add(Me.btnVonMonat) + Me.pnl.Controls.Add(Me.DateTimePicker2) + Me.pnl.Controls.Add(Me.Label13) + Me.pnl.Controls.Add(Me.lblAbfertigungsdatum) + Me.pnl.Controls.Add(Me.Label1) + Me.pnl.Controls.Add(Me.Label2) + Me.pnl.Controls.Add(Me.Label12) + Me.pnl.Controls.Add(Me.DateTimePicker1) + 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(1272, 162) + Me.pnl.TabIndex = 0 + ' + 'txtInAuftrag + ' + Me.txtInAuftrag._DateTimeOnly = False + Me.txtInAuftrag._numbersOnly = False + Me.txtInAuftrag._numbersOnlyKommastellen = "" + Me.txtInAuftrag._Prozent = False + Me.txtInAuftrag._ShortDateNew = False + Me.txtInAuftrag._ShortDateOnly = False + Me.txtInAuftrag._TimeOnly = False + Me.txtInAuftrag._value = Nothing + Me.txtInAuftrag._Waehrung = False + Me.txtInAuftrag._WaehrungZeichen = True + Me.txtInAuftrag.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtInAuftrag.ForeColor = System.Drawing.Color.Black + Me.txtInAuftrag.Location = New System.Drawing.Point(666, 133) + Me.txtInAuftrag.MaxLineLength = -1 + Me.txtInAuftrag.MaxLines_Warning = "" + Me.txtInAuftrag.MaxLines_Warning_Label = Nothing + Me.txtInAuftrag.Name = "txtInAuftrag" + Me.txtInAuftrag.Size = New System.Drawing.Size(228, 20) + Me.txtInAuftrag.TabIndex = 72 + ' + 'Label7 + ' + Me.Label7.AutoSize = True + Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label7.Location = New System.Drawing.Point(607, 136) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(50, 13) + Me.Label7.TabIndex = 71 + Me.Label7.Text = "Avisierer:" + ' + 'txtReferenz + ' + Me.txtReferenz._DateTimeOnly = False + Me.txtReferenz._numbersOnly = False + Me.txtReferenz._numbersOnlyKommastellen = "" + Me.txtReferenz._Prozent = False + Me.txtReferenz._ShortDateNew = False + Me.txtReferenz._ShortDateOnly = False + Me.txtReferenz._TimeOnly = False + Me.txtReferenz._value = Nothing + Me.txtReferenz._Waehrung = False + Me.txtReferenz._WaehrungZeichen = True + Me.txtReferenz.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtReferenz.ForeColor = System.Drawing.Color.Black + Me.txtReferenz.Location = New System.Drawing.Point(666, 110) + Me.txtReferenz.MaxLineLength = -1 + Me.txtReferenz.MaxLines_Warning = "" + Me.txtReferenz.MaxLines_Warning_Label = Nothing + Me.txtReferenz.Name = "txtReferenz" + Me.txtReferenz.Size = New System.Drawing.Size(228, 20) + Me.txtReferenz.TabIndex = 70 + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label5.Location = New System.Drawing.Point(607, 113) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(53, 13) + Me.Label5.TabIndex = 69 + Me.Label5.Text = "Referenz:" + ' + 'txtFirma + ' + Me.txtFirma._DateTimeOnly = False + Me.txtFirma._numbersOnly = False + Me.txtFirma._numbersOnlyKommastellen = "" + Me.txtFirma._Prozent = False + Me.txtFirma._ShortDateNew = False + Me.txtFirma._ShortDateOnly = False + Me.txtFirma._TimeOnly = False + Me.txtFirma._value = Nothing + Me.txtFirma._Waehrung = False + Me.txtFirma._WaehrungZeichen = True + Me.txtFirma.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtFirma.ForeColor = System.Drawing.Color.Black + Me.txtFirma.Location = New System.Drawing.Point(376, 129) + Me.txtFirma.MaxLineLength = -1 + Me.txtFirma.MaxLines_Warning = "" + Me.txtFirma.MaxLines_Warning_Label = Nothing + Me.txtFirma.Name = "txtFirma" + Me.txtFirma.Size = New System.Drawing.Size(202, 20) + Me.txtFirma.TabIndex = 68 + ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label6.Location = New System.Drawing.Point(335, 132) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(35, 13) + Me.Label6.TabIndex = 67 + Me.Label6.Text = "Firma:" + ' + 'MyTextBox1 + ' + Me.MyTextBox1._DateTimeOnly = False + Me.MyTextBox1._numbersOnly = False + Me.MyTextBox1._numbersOnlyKommastellen = "" + Me.MyTextBox1._Prozent = False + Me.MyTextBox1._ShortDateNew = False + Me.MyTextBox1._ShortDateOnly = False + Me.MyTextBox1._TimeOnly = False + Me.MyTextBox1._value = Nothing + Me.MyTextBox1._Waehrung = False + Me.MyTextBox1._WaehrungZeichen = True + Me.MyTextBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.MyTextBox1.ForeColor = System.Drawing.Color.Black + Me.MyTextBox1.Location = New System.Drawing.Point(376, 110) + Me.MyTextBox1.MaxLineLength = -1 + Me.MyTextBox1.MaxLines_Warning = "" + Me.MyTextBox1.MaxLines_Warning_Label = Nothing + Me.MyTextBox1.Name = "MyTextBox1" + Me.MyTextBox1.Size = New System.Drawing.Size(202, 20) + Me.MyTextBox1.TabIndex = 66 + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label3.Location = New System.Drawing.Point(335, 113) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(34, 13) + Me.Label3.TabIndex = 65 + Me.Label3.Text = "LKW:" + ' + 'txtAbfertDat + ' + Me.txtAbfertDat._DateTimeOnly = False + Me.txtAbfertDat._numbersOnly = False + Me.txtAbfertDat._numbersOnlyKommastellen = "" + Me.txtAbfertDat._Prozent = False + Me.txtAbfertDat._ShortDateNew = True + Me.txtAbfertDat._ShortDateOnly = False + Me.txtAbfertDat._TimeOnly = False + Me.txtAbfertDat._value = "" + Me.txtAbfertDat._Waehrung = False + Me.txtAbfertDat._WaehrungZeichen = True + Me.txtAbfertDat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtAbfertDat.ForeColor = System.Drawing.Color.Black + Me.txtAbfertDat.Location = New System.Drawing.Point(41, 77) + Me.txtAbfertDat.MaxLength = 10 + Me.txtAbfertDat.MaxLineLength = -1 + Me.txtAbfertDat.MaxLines_Warning = "" + Me.txtAbfertDat.MaxLines_Warning_Label = Nothing + Me.txtAbfertDat.Name = "txtAbfertDat" + Me.txtAbfertDat.Size = New System.Drawing.Size(83, 20) + Me.txtAbfertDat.TabIndex = 33 + ' + 'txtAbfertDatBis + ' + Me.txtAbfertDatBis._DateTimeOnly = False + Me.txtAbfertDatBis._numbersOnly = False + Me.txtAbfertDatBis._numbersOnlyKommastellen = "" + Me.txtAbfertDatBis._Prozent = False + Me.txtAbfertDatBis._ShortDateNew = True + Me.txtAbfertDatBis._ShortDateOnly = False + Me.txtAbfertDatBis._TimeOnly = False + Me.txtAbfertDatBis._value = "" + Me.txtAbfertDatBis._Waehrung = False + Me.txtAbfertDatBis._WaehrungZeichen = True + 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(41, 106) + Me.txtAbfertDatBis.MaxLength = 10 + Me.txtAbfertDatBis.MaxLineLength = -1 + Me.txtAbfertDatBis.MaxLines_Warning = "" + Me.txtAbfertDatBis.MaxLines_Warning_Label = Nothing + Me.txtAbfertDatBis.Name = "txtAbfertDatBis" + Me.txtAbfertDatBis.Size = New System.Drawing.Size(83, 20) + Me.txtAbfertDatBis.TabIndex = 36 + ' + 'cboSachbearbeiterQS + ' + Me.cboSachbearbeiterQS._allowedValuesFreiText = Nothing + Me.cboSachbearbeiterQS._allowFreiText = False + Me.cboSachbearbeiterQS._value = "" + Me.cboSachbearbeiterQS.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend + Me.cboSachbearbeiterQS.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems + Me.cboSachbearbeiterQS.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboSachbearbeiterQS.FormattingEnabled = True + Me.cboSachbearbeiterQS.Location = New System.Drawing.Point(610, 77) + Me.cboSachbearbeiterQS.Name = "cboSachbearbeiterQS" + Me.cboSachbearbeiterQS.Size = New System.Drawing.Size(284, 24) + Me.cboSachbearbeiterQS.TabIndex = 59 + ' + 'cboFiliale + ' + Me.cboFiliale._allowedValuesFreiText = Nothing + Me.cboFiliale._allowFreiText = False + Me.cboFiliale._value = "" + Me.cboFiliale.DropDownWidth = 250 + Me.cboFiliale.Font = New System.Drawing.Font("Microsoft Tai Le", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboFiliale.FormattingEnabled = True + Me.cboFiliale.Location = New System.Drawing.Point(338, 77) + Me.cboFiliale.Name = "cboFiliale" + Me.cboFiliale.Size = New System.Drawing.Size(80, 22) + Me.cboFiliale.TabIndex = 53 + ' + 'txtAbfertigungsnummer + ' + Me.txtAbfertigungsnummer._DateTimeOnly = False + Me.txtAbfertigungsnummer._numbersOnly = True + Me.txtAbfertigungsnummer._numbersOnlyKommastellen = "" + Me.txtAbfertigungsnummer._Prozent = False + Me.txtAbfertigungsnummer._ShortDateNew = False + Me.txtAbfertigungsnummer._ShortDateOnly = False + Me.txtAbfertigungsnummer._TimeOnly = False + Me.txtAbfertigungsnummer._value = "" + Me.txtAbfertigungsnummer._Waehrung = False + Me.txtAbfertigungsnummer._WaehrungZeichen = True + Me.txtAbfertigungsnummer.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtAbfertigungsnummer.ForeColor = System.Drawing.Color.Black + Me.txtAbfertigungsnummer.Location = New System.Drawing.Point(417, 77) + Me.txtAbfertigungsnummer.MaxLineLength = -1 + Me.txtAbfertigungsnummer.MaxLines_Warning = "" + Me.txtAbfertigungsnummer.MaxLines_Warning_Label = Nothing + Me.txtAbfertigungsnummer.Multiline = True + Me.txtAbfertigungsnummer.Name = "txtAbfertigungsnummer" + Me.txtAbfertigungsnummer.Size = New System.Drawing.Size(161, 22) + Me.txtAbfertigungsnummer.TabIndex = 55 + ' + 'Button7 + ' + Me.Button7.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.Button7.ForeColor = System.Drawing.Color.Black + Me.Button7.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button7.Location = New System.Drawing.Point(281, 51) + Me.Button7.Margin = New System.Windows.Forms.Padding(0) + Me.Button7.Name = "Button7" + Me.Button7.Size = New System.Drawing.Size(34, 23) + Me.Button7.TabIndex = 45 + Me.Button7.Text = ">>" + Me.Button7.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button7.UseVisualStyleBackColor = True + ' + 'Button6 + ' + Me.Button6.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.Button6.ForeColor = System.Drawing.Color.Black + Me.Button6.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button6.Location = New System.Drawing.Point(162, 51) + Me.Button6.Margin = New System.Windows.Forms.Padding(0) + Me.Button6.Name = "Button6" + Me.Button6.Size = New System.Drawing.Size(34, 23) + Me.Button6.TabIndex = 41 + Me.Button6.Text = "<<" + Me.Button6.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button6.UseVisualStyleBackColor = True + ' + 'Button5 + ' + Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.Button5.ForeColor = System.Drawing.Color.Black + Me.Button5.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button5.Location = New System.Drawing.Point(195, 51) + Me.Button5.Margin = New System.Windows.Forms.Padding(0) + Me.Button5.Name = "Button5" + Me.Button5.Size = New System.Drawing.Size(87, 23) + Me.Button5.TabIndex = 43 + Me.Button5.Text = "Heute" + Me.Button5.UseVisualStyleBackColor = True + ' + 'btnSuche + ' + Me.btnSuche.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnSuche.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnSuche.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnSuche.Image = Global.SDL.My.Resources.Resources.search + Me.btnSuche.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnSuche.Location = New System.Drawing.Point(1082, 72) + Me.btnSuche.Name = "btnSuche" + Me.btnSuche.Size = New System.Drawing.Size(162, 52) + Me.btnSuche.TabIndex = 61 + Me.btnSuche.Text = "Suche starten" + Me.btnSuche.UseVisualStyleBackColor = True + ' + 'Label23 + ' + Me.Label23.AutoSize = True + Me.Label23.Location = New System.Drawing.Point(12, 109) + Me.Label23.Name = "Label23" + Me.Label23.Size = New System.Drawing.Size(23, 13) + Me.Label23.TabIndex = 38 + Me.Label23.Text = "bis:" + ' + 'btnJahr + ' + Me.btnJahr.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnJahr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.btnJahr.ForeColor = System.Drawing.Color.Black + Me.btnJahr.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnJahr.Location = New System.Drawing.Point(195, 103) + Me.btnJahr.Margin = New System.Windows.Forms.Padding(0) + Me.btnJahr.Name = "btnJahr" + Me.btnJahr.Size = New System.Drawing.Size(87, 23) + Me.btnJahr.TabIndex = 51 + Me.btnJahr.Text = "2016" + Me.btnJahr.UseVisualStyleBackColor = True + ' + 'pnlTop + ' + Me.pnlTop.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.pnlTop.Controls.Add(Me.Label4) + 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(1270, 48) + Me.pnlTop.TabIndex = 34 + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 16.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label4.ForeColor = System.Drawing.Color.White + Me.Label4.Location = New System.Drawing.Point(10, 13) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(305, 26) + Me.Label4.TabIndex = 0 + Me.Label4.Text = "Postversand (Einschreiben)" + ' + 'btnBisJahr + ' + Me.btnBisJahr.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnBisJahr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.btnBisJahr.ForeColor = System.Drawing.Color.Black + Me.btnBisJahr.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnBisJahr.Location = New System.Drawing.Point(281, 103) + Me.btnBisJahr.Margin = New System.Windows.Forms.Padding(0) + Me.btnBisJahr.Name = "btnBisJahr" + Me.btnBisJahr.Size = New System.Drawing.Size(34, 23) + Me.btnBisJahr.TabIndex = 52 + Me.btnBisJahr.Text = ">>" + Me.btnBisJahr.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnBisJahr.UseVisualStyleBackColor = True + ' + 'btnVonJahr + ' + Me.btnVonJahr.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnVonJahr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.btnVonJahr.ForeColor = System.Drawing.Color.Black + Me.btnVonJahr.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnVonJahr.Location = New System.Drawing.Point(162, 103) + Me.btnVonJahr.Margin = New System.Windows.Forms.Padding(0) + Me.btnVonJahr.Name = "btnVonJahr" + Me.btnVonJahr.Size = New System.Drawing.Size(34, 23) + Me.btnVonJahr.TabIndex = 50 + Me.btnVonJahr.Text = "<<" + Me.btnVonJahr.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnVonJahr.UseVisualStyleBackColor = True + ' + 'btnMonat + ' + Me.btnMonat.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnMonat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.btnMonat.ForeColor = System.Drawing.Color.Black + Me.btnMonat.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnMonat.Location = New System.Drawing.Point(195, 77) + Me.btnMonat.Margin = New System.Windows.Forms.Padding(0) + Me.btnMonat.Name = "btnMonat" + Me.btnMonat.Size = New System.Drawing.Size(87, 23) + Me.btnMonat.TabIndex = 48 + Me.btnMonat.Text = "September" + Me.btnMonat.UseVisualStyleBackColor = True + ' + 'btnBisMonat + ' + Me.btnBisMonat.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnBisMonat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.btnBisMonat.ForeColor = System.Drawing.Color.Black + Me.btnBisMonat.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnBisMonat.Location = New System.Drawing.Point(281, 77) + Me.btnBisMonat.Margin = New System.Windows.Forms.Padding(0) + Me.btnBisMonat.Name = "btnBisMonat" + Me.btnBisMonat.Size = New System.Drawing.Size(34, 23) + Me.btnBisMonat.TabIndex = 49 + Me.btnBisMonat.Text = ">>" + Me.btnBisMonat.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnBisMonat.UseVisualStyleBackColor = True + ' + 'btnVonMonat + ' + Me.btnVonMonat.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnVonMonat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.btnVonMonat.ForeColor = System.Drawing.Color.Black + Me.btnVonMonat.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnVonMonat.Location = New System.Drawing.Point(162, 77) + Me.btnVonMonat.Margin = New System.Windows.Forms.Padding(0) + Me.btnVonMonat.Name = "btnVonMonat" + Me.btnVonMonat.Size = New System.Drawing.Size(34, 23) + Me.btnVonMonat.TabIndex = 47 + Me.btnVonMonat.Text = "<<" + Me.btnVonMonat.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnVonMonat.UseVisualStyleBackColor = True + ' + 'DateTimePicker2 + ' + Me.DateTimePicker2.CustomFormat = "''" + Me.DateTimePicker2.Format = System.Windows.Forms.DateTimePickerFormat.Custom + Me.DateTimePicker2.Location = New System.Drawing.Point(41, 106) + Me.DateTimePicker2.Margin = New System.Windows.Forms.Padding(0) + Me.DateTimePicker2.Name = "DateTimePicker2" + Me.DateTimePicker2.RightToLeft = System.Windows.Forms.RightToLeft.No + Me.DateTimePicker2.Size = New System.Drawing.Size(115, 20) + Me.DateTimePicker2.TabIndex = 37 + ' + 'Label13 + ' + Me.Label13.AutoSize = True + Me.Label13.Location = New System.Drawing.Point(12, 81) + Me.Label13.Name = "Label13" + Me.Label13.Size = New System.Drawing.Size(28, 13) + Me.Label13.TabIndex = 46 + Me.Label13.Text = "von:" + ' + 'lblAbfertigungsdatum + ' + Me.lblAbfertigungsdatum.AutoSize = True + Me.lblAbfertigungsdatum.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblAbfertigungsdatum.Location = New System.Drawing.Point(12, 59) + Me.lblAbfertigungsdatum.Name = "lblAbfertigungsdatum" + Me.lblAbfertigungsdatum.Size = New System.Drawing.Size(43, 13) + Me.lblAbfertigungsdatum.TabIndex = 32 + Me.lblAbfertigungsdatum.Text = "Datum" + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label1.Location = New System.Drawing.Point(335, 61) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(40, 13) + Me.Label1.TabIndex = 39 + Me.Label1.Text = "Filiale" + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label2.Location = New System.Drawing.Point(416, 61) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(121, 13) + Me.Label2.TabIndex = 40 + Me.Label2.Text = "Abfertigungsnummer" + ' + 'Label12 + ' + Me.Label12.AutoSize = True + Me.Label12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label12.Location = New System.Drawing.Point(607, 61) + Me.Label12.Name = "Label12" + Me.Label12.Size = New System.Drawing.Size(97, 13) + Me.Label12.TabIndex = 44 + Me.Label12.Text = "Sachbearbeiter:" + ' + 'DateTimePicker1 + ' + Me.DateTimePicker1.CustomFormat = "''" + Me.DateTimePicker1.Format = System.Windows.Forms.DateTimePickerFormat.Custom + Me.DateTimePicker1.Location = New System.Drawing.Point(41, 77) + Me.DateTimePicker1.Margin = New System.Windows.Forms.Padding(0) + Me.DateTimePicker1.Name = "DateTimePicker1" + Me.DateTimePicker1.RightToLeft = System.Windows.Forms.RightToLeft.No + Me.DateTimePicker1.Size = New System.Drawing.Size(115, 20) + Me.DateTimePicker1.TabIndex = 35 + ' + 'Panel1 + ' + Me.Panel1.Controls.Add(Me.MyDatagridview1) + Me.Panel1.Controls.Add(Me.Button2) + Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill + Me.Panel1.Location = New System.Drawing.Point(0, 162) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(1272, 399) + Me.Panel1.TabIndex = 1 + ' + 'MyDatagridview1 + ' + Me.MyDatagridview1.AKTUALISIERUNGS_INTERVALL = -1 + Me.MyDatagridview1.AllowUserToAddRows = False + Me.MyDatagridview1.AllowUserToDeleteRows = False + Me.MyDatagridview1.AllowUserToOrderColumns = True + Me.MyDatagridview1.AllowUserToResizeRows = False + Me.MyDatagridview1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.MyDatagridview1.Dock = System.Windows.Forms.DockStyle.Fill + Me.MyDatagridview1.Location = New System.Drawing.Point(0, 0) + Me.MyDatagridview1.Name = "MyDatagridview1" + Me.MyDatagridview1.RowHeadersVisible = False + Me.MyDatagridview1.Size = New System.Drawing.Size(1272, 399) + Me.MyDatagridview1.TabIndex = 0 + ' + 'Button2 + ' + Me.Button2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button2.Image = Global.SDL.My.Resources.Resources.plus + Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button2.Location = New System.Drawing.Point(148, 342) + Me.Button2.Margin = New System.Windows.Forms.Padding(0) + Me.Button2.Name = "Button2" + Me.Button2.Padding = New System.Windows.Forms.Padding(0, 0, 10, 0) + Me.Button2.Size = New System.Drawing.Size(84, 35) + Me.Button2.TabIndex = 71 + Me.Button2.Text = "Neu" + Me.Button2.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.Button2.UseVisualStyleBackColor = True + Me.Button2.Visible = False + ' + 'pnloptions + ' + Me.pnloptions.BackColor = System.Drawing.Color.WhiteSmoke + Me.pnloptions.Controls.Add(Me.btn) + Me.pnloptions.Controls.Add(Me.Button1) + Me.pnloptions.Controls.Add(Me.btnDel) + Me.pnloptions.Controls.Add(Me.btnExcel) + Me.pnloptions.Controls.Add(Me.FlatButton7) + Me.pnloptions.Controls.Add(Me.lblErgebnis) + Me.pnloptions.Controls.Add(Me.Label37) + Me.pnloptions.Controls.Add(Me.txtMaxSrch) + Me.pnloptions.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pnloptions.Location = New System.Drawing.Point(0, 561) + Me.pnloptions.Name = "pnloptions" + Me.pnloptions.Size = New System.Drawing.Size(1272, 59) + Me.pnloptions.TabIndex = 2 + ' + 'Button1 + ' + Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.Button1.Image = Global.SDL.My.Resources.Resources.plus + Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button1.Location = New System.Drawing.Point(16, 5) + Me.Button1.Name = "Button1" + Me.Button1.Padding = New System.Windows.Forms.Padding(0, 0, 20, 0) + Me.Button1.Size = New System.Drawing.Size(109, 47) + Me.Button1.TabIndex = 74 + Me.Button1.Text = "NEU" + Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.Button1.UseVisualStyleBackColor = True + ' + 'btnDel + ' + Me.btnDel.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnDel.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnDel.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.btnDel.Image = Global.SDL.My.Resources.Resources.del_small + Me.btnDel.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnDel.Location = New System.Drawing.Point(131, 5) + Me.btnDel.Name = "btnDel" + Me.btnDel.Size = New System.Drawing.Size(137, 47) + Me.btnDel.TabIndex = 73 + Me.btnDel.Text = "Eintrag löschen" + Me.btnDel.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnDel.UseVisualStyleBackColor = True + ' + 'btnExcel + ' + Me.btnExcel.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnExcel.BackgroundImage = Global.SDL.My.Resources.Resources.Excel_logo + Me.btnExcel.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.btnExcel.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnExcel.Location = New System.Drawing.Point(1181, 22) + Me.btnExcel.Name = "btnExcel" + Me.btnExcel.Size = New System.Drawing.Size(41, 34) + Me.btnExcel.TabIndex = 67 + Me.btnExcel.UseVisualStyleBackColor = True + ' + 'FlatButton7 + ' + Me.FlatButton7.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.FlatButton7.BackgroundImage = Global.SDL.My.Resources.Resources.refresh + Me.FlatButton7.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.FlatButton7.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.FlatButton7.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.FlatButton7.ForeColor = System.Drawing.Color.Black + Me.FlatButton7.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.FlatButton7.Location = New System.Drawing.Point(1228, 22) + Me.FlatButton7.Name = "FlatButton7" + Me.FlatButton7.Size = New System.Drawing.Size(41, 34) + Me.FlatButton7.TabIndex = 68 + Me.FlatButton7.UseVisualStyleBackColor = True + ' + 'lblErgebnis + ' + Me.lblErgebnis.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lblErgebnis.Location = New System.Drawing.Point(1054, 5) + Me.lblErgebnis.Name = "lblErgebnis" + Me.lblErgebnis.Size = New System.Drawing.Size(215, 14) + Me.lblErgebnis.TabIndex = 66 + Me.lblErgebnis.Text = "Ergebnisse: 0" + Me.lblErgebnis.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'Label37 + ' + Me.Label37.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Label37.AutoSize = True + Me.Label37.Location = New System.Drawing.Point(1095, 33) + Me.Label37.Name = "Label37" + Me.Label37.Size = New System.Drawing.Size(30, 13) + Me.Label37.TabIndex = 69 + Me.Label37.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.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + 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(1127, 30) + 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(48, 20) + Me.txtMaxSrch.TabIndex = 70 + Me.txtMaxSrch.Text = "1000" + Me.txtMaxSrch.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + 'btn + ' + Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btn.Location = New System.Drawing.Point(953, 22) + Me.btn.Name = "btn" + Me.btn.Size = New System.Drawing.Size(97, 34) + Me.btn.TabIndex = 75 + Me.btn.Text = "Speichern" + Me.btn.UseVisualStyleBackColor = True + ' + 'frmPostEinschreiben + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(1272, 620) + Me.Controls.Add(Me.Panel1) + Me.Controls.Add(Me.pnl) + Me.Controls.Add(Me.pnloptions) + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.Name = "frmPostEinschreiben" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "Postversand" + Me.pnl.ResumeLayout(False) + Me.pnl.PerformLayout() + Me.pnlTop.ResumeLayout(False) + Me.pnlTop.PerformLayout() + Me.Panel1.ResumeLayout(False) + CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnloptions.ResumeLayout(False) + Me.pnloptions.PerformLayout() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents pnl As System.Windows.Forms.Panel + Friend WithEvents txtAbfertDat As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtAbfertDatBis As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents cboSachbearbeiterQS As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents cboFiliale As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents txtAbfertigungsnummer As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Button7 As System.Windows.Forms.Button + Friend WithEvents Button6 As System.Windows.Forms.Button + Friend WithEvents Button5 As System.Windows.Forms.Button + Friend WithEvents btnSuche As System.Windows.Forms.Button + Friend WithEvents Label23 As System.Windows.Forms.Label + Friend WithEvents btnJahr As System.Windows.Forms.Button + Friend WithEvents pnlTop As System.Windows.Forms.Panel + Friend WithEvents Label4 As System.Windows.Forms.Label + Friend WithEvents btnBisJahr As System.Windows.Forms.Button + Friend WithEvents btnVonJahr As System.Windows.Forms.Button + Friend WithEvents btnMonat As System.Windows.Forms.Button + Friend WithEvents btnBisMonat As System.Windows.Forms.Button + Friend WithEvents btnVonMonat As System.Windows.Forms.Button + Friend WithEvents DateTimePicker2 As System.Windows.Forms.DateTimePicker + Friend WithEvents Label13 As System.Windows.Forms.Label + Friend WithEvents lblAbfertigungsdatum As System.Windows.Forms.Label + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents Label12 As System.Windows.Forms.Label + Friend WithEvents DateTimePicker1 As System.Windows.Forms.DateTimePicker + Friend WithEvents Panel1 As System.Windows.Forms.Panel + Friend WithEvents MyDatagridview1 As VERAG_PROG_ALLGEMEIN.MyDatagridview + Friend WithEvents pnloptions As System.Windows.Forms.Panel + Friend WithEvents btnExcel As System.Windows.Forms.Button + Friend WithEvents FlatButton7 As System.Windows.Forms.Button + Friend WithEvents lblErgebnis As System.Windows.Forms.Label + Friend WithEvents Label37 As System.Windows.Forms.Label + Friend WithEvents txtMaxSrch As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents MyTextBox1 As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label3 As System.Windows.Forms.Label + Friend WithEvents Button2 As System.Windows.Forms.Button + Friend WithEvents txtFirma As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label6 As System.Windows.Forms.Label + Friend WithEvents btnDel As Button + Friend WithEvents txtReferenz As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label5 As Label + Friend WithEvents txtInAuftrag As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label7 As Label + Friend WithEvents Button1 As Button + Friend WithEvents btn As Button +End Class diff --git a/SDL/Post/frmPostEinschreiben.resx b/SDL/Post/frmPostEinschreiben.resx new file mode 100644 index 00000000..d584bd9e --- /dev/null +++ b/SDL/Post/frmPostEinschreiben.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/Post/frmPostEinschreiben.vb b/SDL/Post/frmPostEinschreiben.vb new file mode 100644 index 00000000..f388c0d4 --- /dev/null +++ b/SDL/Post/frmPostEinschreiben.vb @@ -0,0 +1,368 @@ +Public Class frmPostEinschreiben + + + + Dim MONAT As Date = CDate("01." & Now.Month & "." & Now.Year) '.AddMonths(-1) + Dim srcTAG As Date = CDate(Now.ToShortDateString) + + Dim JAHR As Date = CDate("01.01." & Now.Year) + + + ' Dim bindPOST As New cEasyBinding("FMZOLL") + Dim bindPOST As New cEasyBinding("FMZOLL") + Dim myTable As New DataTable + Private Sub frmVorauskasse_Load(sender As Object, e As EventArgs) Handles Me.Load + + Me.Top = 0 + Me.Height = My.Computer.Screen.WorkingArea.Height + + txtAbfertDat.Text = Now.ToShortDateString 'CDate("01." & Now.ToString("MM.yyyy")).AddMonths(-1).ToShortDateString + txtAbfertDatBis.Text = Now.ToShortDateString + + btnMonat.Text = MONAT.ToString("MMMM") + btnJahr.Text = JAHR.Year + + Dim QSwhere = "" + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + Case "ATILLA" : QSwhere = "" + Case "IMEX" : QSwhere = " AND mit_firma IN ('IMEX','BEIDE') " + Case Else + QSwhere = " AND mit_firma <> 'IMEX' " + End Select + + + ' cboSachbearbeiterQS.fillWithSQL("SELECT ID,/*cast(ID as nvarchar(3)) +' ' + Name as*/ Name FROM Personal WHERE [Status]<>'L' " & QSwhere & " ORDER BY Name ", False, "FMZOLL", True) + + Dim where = "" + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + Case "IMEX" + where = " AND FilialenNr IN (5501) " + Case "ATILLA" + where = " AND FilialenNr IN (4801) " + Case Else + where = " AND FilialenNr NOT IN (5501) " + End Select + + cboFiliale.fillWithSQL("SELECT FilialenNr, Grenzstelle FROM Filialen WHERE Fil_Status='A' " & where & " ORDER BY FilialenNr ", True, "FMZOLL", True) + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + Case "IMEX" + cboFiliale._allowedValuesFreiText = {"5501"} + cboFiliale.changeItem("5501") + Case "ATILLA" + cboFiliale._allowedValuesFreiText = {"4801"} + cboFiliale.changeItem("4801") + End Select + + cboSachbearbeiterQS.fillWithSQL("SELECT [mit_id],[mit_vname] + ' '+ [mit_nname] as NAME " & + " FROM [ADMIN].[dbo].[tblMitarbeiter] WHERE mit_niederlassung IN ('SUB','Suben') AND mit_abteilung='QS' AND [mit_gekuendigt]=0 " & QSwhere & " order by name", False, "ADMIN", True) + + btnMonat.PerformClick() + btnSuche.PerformClick() + bindPOST.updateImmediately = True + AddHandler bindPOST.bindingdataTable.ColumnChanged, Sub(send As Object, ev As DataColumnChangeEventArgs) + btn.PerformClick() 'geht anders nicht ?? + + End Sub + + End Sub + + + Private Sub DateTimePicker1_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker1.ValueChanged + txtAbfertDat._value = CDate(sender.value).ToShortDateString + End Sub + + Private Sub DateTimePicker2_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker2.ValueChanged + txtAbfertDatBis._value = CDate(sender.value).ToShortDateString + End Sub + + Sub initBtns(MonatJahr) + btnMonat.Text = MONAT.ToString("MMMM") + btnJahr.Text = JAHR.Year + Select Case MonatJahr + Case "Monat" + DateTimePicker1.Value = MONAT + DateTimePicker2.Value = MONAT.AddMonths(1).AddDays(-1) + Case "Jahr" + ' If cbxGeschaftsjahr.Checked Then + 'DateTimePicker1.Value = JAHR.AddMonths(1) + ' DateTimePicker2.Value = JAHR.AddYears(1).AddMonths(1).AddDays(-1) + ' Else + DateTimePicker1.Value = JAHR + DateTimePicker2.Value = JAHR.AddYears(1).AddDays(-1) + 'End If + Case "Tag" + ' If cbxGeschaftsjahr.Checked Then + 'DateTimePicker1.Value = JAHR.AddMonths(1) + ' DateTimePicker2.Value = JAHR.AddYears(1).AddMonths(1).AddDays(-1) + ' Else + DateTimePicker1.Value = srcTAG + DateTimePicker2.Value = srcTAG + If srcTAG = Now.ToShortDateString Then + Button5.Text = "Heute" + ElseIf srcTAG = Now.AddDays(-1).ToShortDateString Then + Button5.Text = "Gestern" + ElseIf srcTAG = Now.AddDays(-2).ToShortDateString Then + Button5.Text = "Vorgestern" + Else + Button5.Text = srcTAG.ToString("dd.MM") + End If + + 'End If + Case "" + DateTimePicker1.Value = ("01." & Now.Month & "." & Now.Year) + DateTimePicker2.Value = Now + End Select + btnSuche.PerformClick() + End Sub + + Dim biningInit = False + Private Sub btnSuche_Click(sender As Object, e As EventArgs) Handles btnSuche.Click + Me.Cursor = Cursors.WaitCursor + + Dim TopMax = If(IsNumeric(txtMaxSrch.Text), " TOP " & txtMaxSrch.Text, "") + Dim sqlstr As String = "" + + + ' bindPOST = New cEasyBinding("FMZOLL") + sqlstr &= " SELECT " & TopMax & " [post_id],[post_Datum],[post_FilialenNr],[post_AbfertigungsNr],[post_art],[post_Empfaenger_KdNr],[post_Empfaenger_Name1],post_Empfaenger_Adresse1 + ' ' + post_Empfaenger_Adresse2 + ' ' + post_Empfaenger_Adresse3 as Adresse,[post_ContainerLKWNr],[post_FirmaInAuftragKdnr],[post_FirmaInAuftrag],[post_Sachbearbeiter],[post_ReferenzPaketdienst],[post_KdAuftrNrAvisierer],[post_RgEmpfaenger_Name] FROM [tblPostversand] WHERE 1=1 " + + With MyDatagridview1 + ' .DataSource = myTable + '.SET_SQL(sqlstr & getVorauskasseWhere() & " ORDER BY post_Datum desc ", "FMZOLL", getVorauskasseList) + ' .LOAD() + 'bindPOST.bindingdataSet.Tables(0) = New DataTable + bindPOST.initBinding(sqlstr & getVorauskasseWhere() & " ORDER BY post_Datum desc", "tblPostversand", getVorauskasseList) + .DataSource = bindPOST.bindingdataTable + lblErgebnis.Text = "Ergebnisse: " & .Rows.Count + + 'If Not biningInit Then + ' biningInit = True + + 'End If + + ' setDGVOptions() + End With + showDGV() + + Me.Cursor = Cursors.Default + + End Sub + + + Function getVorauskasseWhere() As String + Dim sqlstr = "" + + If txtAbfertDat.Text <> "" Then + If txtAbfertDatBis.Text <> "" Then + sqlstr &= " AND ([post_Datum] BETWEEN @Datum AND @DatumBis) " + Else + sqlstr &= " AND ([post_Datum] BETWEEN @Datum AND @Datum ) " + End If + End If + + If txtAbfertigungsnummer.Text <> "" Then + ' If txtAbfertigungsnummerBis.Text <> "" Then + 'sqlstr &= " AND ([vk_AbfertigungsNr] BETWEEN @AbfertigungsNr AND @AbfertigungsNr_bis ) " + 'Else + 'sqlstr &= " AND vk_AbfertigungsNr LIKE @AbfertigungsNr " + 'End If + sqlstr &= " AND post_AbfertigungsNr LIKE @AbfertigungsNr " + End If + ' If txtUnterNr.Text <> "" Then sqlstr &= " AND [UnterNr] LIKE @UnterNr " + If cboFiliale._value <> "" Then sqlstr &= " AND [post_FilialenNr] LIKE @FilialenNr " + + If cboSachbearbeiterQS._value <> "" Then sqlstr &= " AND [post_SachbearbeiterId] = @PersonalnummerQS " + If MyTextBox1.Text <> "" Then sqlstr &= " AND [post_ContainerLKWNr] LIKE @LKW " + If txtFirma.Text <> "" Then sqlstr &= " AND [post_Empfaenger_Name1] LIKE @Firma " + If txtInAuftrag.Text <> "" Then sqlstr &= " AND [post_FirmaInAuftrag] LIKE @InAuftrag " + + If txtReferenz.Text <> "" Then sqlstr &= " AND [post_ReferenzPaketdienst] LIKE @Referenz " + + Return sqlstr + End Function + Function getVorauskasseList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Datum", txtAbfertDat.Text & " 00:00:00")) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DatumBis", txtAbfertDatBis.Text & " 23:59:59")) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbfertigungsNr", txtAbfertigungsnummer.Text.Replace("*", "%"))) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FilialenNr", cboFiliale._value)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("PersonalnummerQS", cboSachbearbeiterQS._value)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LKW", MyTextBox1.Text.Replace("*", "%"))) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma", txtFirma.Text.Replace("*", "%"))) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("InAuftrag", txtInAuftrag.Text.Replace("*", "%"))) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Referenz", txtReferenz.Text.Replace("*", "%"))) + + Return list + + End Function + + Sub showDGV() + + With MyDatagridview1 + + If .RowCount = 0 Then Me.Cursor = Cursors.Default : Exit Sub + .RowHeadersVisible = False + ' .ReadOnly = True + .SelectionMode = DataGridViewSelectionMode.FullRowSelect + .MultiSelect = False + + + .Columns("post_id").Visible = False + .Columns("post_art").Visible = False + .Columns("post_KdAuftrNrAvisierer").Visible = False + .Columns("post_RgEmpfaenger_Name").Visible = False + + .Columns("post_FilialenNr").Width = 45 + .Columns("post_FilialenNr").HeaderText = "Filiale" + .Columns("post_FilialenNr").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter + .Columns("post_AbfertigungsNr").Width = 80 + .Columns("post_AbfertigungsNr").HeaderText = "Abf-Nr" + .Columns("post_AbfertigungsNr").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter + .Columns("post_Datum").Width = 100 + .Columns("post_Datum").HeaderText = "Datum" + .Columns("post_Datum").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter + + .Columns("post_ContainerLKWNr").Width = 120 + .Columns("post_ContainerLKWNr").HeaderText = "LKW Kennz." + + + + .Columns("post_Empfaenger_KdNr").HeaderText = "KdNr" + .Columns("post_Empfaenger_KdNr").Width = 50 + .Columns("post_Empfaenger_Name1").HeaderText = "Empfänger" + .Columns("post_Empfaenger_Name1").Width = 150 + .Columns("Adresse").HeaderText = "Adresse" + .Columns("Adresse").Width = 150 + + .Columns("post_FirmaInAuftragKdnr").HeaderText = "KdNr" + .Columns("post_FirmaInAuftragKdnr").Width = 50 + .Columns("post_FirmaInAuftrag").HeaderText = "in Auftrag" + .Columns("post_FirmaInAuftrag").Width = 150 + + .Columns("post_Sachbearbeiter").MinimumWidth = 100 + .Columns("post_Sachbearbeiter").HeaderText = "Sachb." + + .Columns("post_ReferenzPaketdienst").HeaderText = "Referenz Paketdienst" + .Columns("post_ReferenzPaketdienst").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill + + For Each c As DataGridViewColumn In .Columns + If c.Name = "post_ReferenzPaketdienst" Then + c.ReadOnly = False + Else + c.ReadOnly = True + End If + Next + + End With + End Sub + + + Private Sub FlatButton7_Click(sender As Object, e As EventArgs) Handles FlatButton7.Click + btnSuche.PerformClick() + ' MyDatagridview1.RELOAD() + ' setDGVOptions() + End Sub + + 'Sub setDGVOptions() + ' Try + ' With MyDatagridview1 + ' For Each r As DataGridViewRow In .Rows + ' If r.Cells("vk_storno").Value IsNot DBNull.Value AndAlso r.Cells("vk_storno").Value Then + ' r.DefaultCellStyle.ForeColor = Color.Red + ' ElseIf r.Cells("vk_GeldEingetroffen").Value IsNot DBNull.Value AndAlso r.Cells("vk_GeldEingetroffen").Value Then + ' r.DefaultCellStyle.ForeColor = Color.DarkGreen + ' End If + ' Next + ' End With + ' Catch ex As Exception + ' MsgBox(ex.Message) + ' End Try + 'End Sub + Private Sub btnExcel_Click(sender As Object, e As EventArgs) Handles btnExcel.Click + Me.Cursor = Cursors.WaitCursor + cProgramFunctions.genExcelFromDGV_NEW(MyDatagridview1, False) + Me.Cursor = Cursors.Default + End Sub + + + + + Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click + srcTAG = srcTAG.AddDays(-1) + initBtns("Tag") + End Sub + + Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click + srcTAG = srcTAG.AddDays(1) + initBtns("Tag") + End Sub + + Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click + initBtns("Tag") + End Sub + + Private Sub btnMonat_Click(sender As Object, e As EventArgs) Handles btnMonat.Click + initBtns("Monat") + End Sub + + + + Private Sub btnJahr_Click(sender As Object, e As EventArgs) Handles btnJahr.Click + initBtns("Jahr") + End Sub + + Private Sub btnBisMonat_Click(sender As Object, e As EventArgs) Handles btnBisMonat.Click + MONAT = MONAT.AddMonths(1) + initBtns("Monat") + End Sub + + Private Sub btnVonMonat_Click(sender As Object, e As EventArgs) Handles btnVonMonat.Click + MONAT = MONAT.AddMonths(-1) + initBtns("Monat") + End Sub + + Private Sub btnBisJahr_Click(sender As Object, e As EventArgs) Handles btnBisJahr.Click + JAHR = JAHR.AddYears(1) + initBtns("Jahr") + End Sub + + Private Sub btnVonJahr_Click(sender As Object, e As EventArgs) Handles btnVonJahr.Click + JAHR = JAHR.AddYears(-1) + initBtns("Jahr") + End Sub ' + + Private Sub btnDel_Click(sender As Object, e As EventArgs) Handles btnDel.Click + + If MyDatagridview1.SelectedRows.Count > 0 Then + Dim VK As New VERAG_PROG_ALLGEMEIN.cPostversand(MyDatagridview1.SelectedRows(0).Cells("post_id").Value) + If vbYes <> MsgBox("Möchten Sie den Eintrag wirklich löschen?", vbYesNoCancel) Then Exit Sub + VK.DELETE() + btnSuche.PerformClick() + + 'MyDatagridview1.RELOAD() + ' setDGVOptions() + End If + + End Sub + + + Private Sub gridAviso_DoubleClick(sender As Object, e As System.EventArgs) Handles MyDatagridview1.DoubleClick + If MyDatagridview1.SelectedRows.Count = 0 And MyDatagridview1.SelectedRows.Count = 0 Then Exit Sub + + Dim kdnr = MyDatagridview1.SelectedRows(0).Cells("post_Empfaenger_KdNr").Value + SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Verzollungsunterlagen, kdnr, {kdnr, Nothing, Nothing, Nothing, "", MyDatagridview1.SelectedRows(0).Cells("post_id").Value}) + End Sub + + Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click + SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Verzollungsunterlagen) + btnSuche.PerformClick() + End Sub + + Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click + bindPOST.updateBinding() ' geht nur mit dem Umweg über Button + End Sub +End Class + diff --git a/SDL/Reports/MDM/BriefSDl/rptSDLBrief.vb b/SDL/Reports/MDM/BriefSDl/rptSDLBrief.vb index e7576d6e..32a9c350 100644 --- a/SDL/Reports/MDM/BriefSDl/rptSDLBrief.vb +++ b/SDL/Reports/MDM/BriefSDl/rptSDLBrief.vb @@ -53,6 +53,9 @@ Public Class rptSDLBrief Case 212 : SubReport.Report = New subrptBriefSDL_UTA(sqlStr & " AND SDLNr=" & sdlNr & " " & order) Case 101 : SubReport.Report = New subrptBriefSDL_WOELFL(sqlStr & " AND SDLNr=" & sdlNr & " " & order) Case 213 : SubReport.Report = New subrptBriefSDL_HUGO(sqlStr & " AND SDLNr=" & sdlNr & " " & order) + Case 214 : SubReport.Report = New subrptBriefSDL_PLOSE(sqlStr & " AND SDLNr=" & sdlNr & " " & order) + Case 215 : SubReport.Report = New subrptBriefSDL_PLOSE_IT(sqlStr & " AND SDLNr=" & sdlNr & " " & order) + Case 216 : SubReport.Report = New subrptBriefSDL_PLOSE_CZ(sqlStr & " AND SDLNr=" & sdlNr & " " & order) Case Else : MsgBox("Für diese Leistung kann kein Bericht erstellt werden!") End Select End Sub diff --git a/SDL/Reports/MDM/BriefSDl/subrptBriefSDL_PLOSE.Designer.vb b/SDL/Reports/MDM/BriefSDl/subrptBriefSDL_PLOSE.Designer.vb new file mode 100644 index 00000000..f67804ff --- /dev/null +++ b/SDL/Reports/MDM/BriefSDl/subrptBriefSDL_PLOSE.Designer.vb @@ -0,0 +1,194 @@ + +Partial Public Class subrptBriefSDL_PLOSE + Inherits GrapeCity.ActiveReports.SectionReport + + 'Form overrides dispose to clean up the component list. + Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) + If disposing Then + End If + MyBase.Dispose(disposing) + End Sub + + 'NOTE: The following procedure is required by the ActiveReports Designer + 'It can be modified using the ActiveReports Designer. + 'Do not modify it using the code editor. + Private WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail + + Private Sub InitializeComponent() + Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(subrptBriefSDL_PLOSE)) + Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail() + Me.lblKartenNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.lblNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.lblLKWKz = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.lblOBUId = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.GroupHeader1 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader() + Me.TextBox5 = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.TextBox6 = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.TextBox7 = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.TextBox11 = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.GroupFooter1 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter() + Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line() + CType(Me.lblKartenNr, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblNr, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblLKWKz, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblOBUId, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextBox11, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me, System.ComponentModel.ISupportInitialize).BeginInit() + ' + 'Detail + ' + Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblKartenNr, Me.lblNr, Me.lblLKWKz, Me.lblOBUId}) + Me.Detail.Height = 0.1783464! + Me.Detail.Name = "Detail" + ' + 'lblKartenNr + ' + Me.lblKartenNr.Height = 0.1586614! + Me.lblKartenNr.Left = 1.732284! + Me.lblKartenNr.Name = "lblKartenNr" + Me.lblKartenNr.Style = "font-size: 10pt; font-weight: normal; text-align: left; ddo-char-set: 1" + Me.lblKartenNr.Text = "Karten-Nr" + Me.lblKartenNr.Top = 0.01968504! + Me.lblKartenNr.Width = 1.575984! + ' + 'lblNr + ' + Me.lblNr.Height = 0.1586614! + Me.lblNr.Left = 0.0! + Me.lblNr.Name = "lblNr" + Me.lblNr.Padding = New GrapeCity.ActiveReports.PaddingEx(0, 0, 2, 0) + Me.lblNr.Style = "font-size: 10pt; text-align: right; ddo-char-set: 1" + Me.lblNr.Text = "999" + Me.lblNr.Top = 0.01968504! + Me.lblNr.Width = 0.3543307! + ' + 'lblLKWKz + ' + Me.lblLKWKz.Height = 0.1586614! + Me.lblLKWKz.Left = 0.3543298! + Me.lblLKWKz.Name = "lblLKWKz" + Me.lblLKWKz.Style = "font-size: 10pt; ddo-char-set: 1" + Me.lblLKWKz.Text = "SD 123 ASD" + Me.lblLKWKz.Top = 0.01968512! + Me.lblLKWKz.Width = 1.377953! + ' + 'lblOBUId + ' + Me.lblOBUId.Height = 0.1586614! + Me.lblOBUId.Left = 3.308267! + Me.lblOBUId.Name = "lblOBUId" + Me.lblOBUId.Style = "font-size: 10pt; ddo-char-set: 1" + Me.lblOBUId.Text = "OBUID" + Me.lblOBUId.Top = 0.01968512! + Me.lblOBUId.Width = 1.940551! + ' + 'GroupHeader1 + ' + Me.GroupHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.TextBox5, Me.TextBox6, Me.TextBox7, Me.TextBox11, Me.Line2}) + Me.GroupHeader1.Height = 0.1852909! + Me.GroupHeader1.Name = "GroupHeader1" + ' + 'TextBox5 + ' + Me.TextBox5.Height = 0.1586614! + Me.TextBox5.Left = 1.732284! + Me.TextBox5.Name = "TextBox5" + Me.TextBox5.Style = "font-size: 10pt; font-weight: bold; text-align: left; ddo-char-set: 1" + Me.TextBox5.Text = "Karten-Nr" + Me.TextBox5.Top = 0.0! + Me.TextBox5.Width = 1.575984! + ' + 'TextBox6 + ' + Me.TextBox6.Height = 0.1586614! + Me.TextBox6.Left = 0.0000002384186! + Me.TextBox6.Name = "TextBox6" + Me.TextBox6.Padding = New GrapeCity.ActiveReports.PaddingEx(0, 0, 2, 0) + Me.TextBox6.Style = "font-size: 10pt; font-weight: bold; text-align: right; ddo-char-set: 1" + Me.TextBox6.Text = "Nr" + Me.TextBox6.Top = 0.00000007450581! + Me.TextBox6.Width = 0.3543307! + ' + 'TextBox7 + ' + Me.TextBox7.Height = 0.1586614! + Me.TextBox7.Left = 0.3543308! + Me.TextBox7.Name = "TextBox7" + Me.TextBox7.Style = "font-size: 10pt; font-weight: bold; ddo-char-set: 1" + Me.TextBox7.Text = "Kennzeichen" + Me.TextBox7.Top = 0.00000007450581! + Me.TextBox7.Width = 1.377953! + ' + 'TextBox11 + ' + Me.TextBox11.Height = 0.1586614! + Me.TextBox11.Left = 3.308268! + Me.TextBox11.Name = "TextBox11" + Me.TextBox11.Style = "font-size: 10pt; font-weight: bold; ddo-char-set: 1" + Me.TextBox11.Text = "OBUID" + Me.TextBox11.Top = 0.0! + Me.TextBox11.Width = 1.940551! + ' + 'GroupFooter1 + ' + Me.GroupFooter1.Height = 0.0! + Me.GroupFooter1.Name = "GroupFooter1" + ' + 'Line2 + ' + Me.Line2.Height = 0.0001809001! + Me.Line2.Left = 0.0! + Me.Line2.LineWeight = 1.0! + Me.Line2.Name = "Line2" + Me.Line2.Top = 0.1852522! + Me.Line2.Width = 6.496063! + Me.Line2.X1 = 0.0! + Me.Line2.X2 = 6.496063! + Me.Line2.Y1 = 0.1854331! + Me.Line2.Y2 = 0.1852522! + ' + 'subrptBriefSDL_cz + ' + Me.MasterReport = False + Me.PageSettings.Margins.Bottom = 0.0! + Me.PageSettings.Margins.Left = 0.0! + Me.PageSettings.Margins.Right = 0.0! + Me.PageSettings.Margins.Top = 0.0! + Me.PageSettings.PaperHeight = 11.0! + Me.PageSettings.PaperWidth = 8.5! + Me.PrintWidth = 6.496063! + Me.Sections.Add(Me.GroupHeader1) + Me.Sections.Add(Me.Detail) + Me.Sections.Add(Me.GroupFooter1) + Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" & + "l; font-size: 10pt; color: Black; ddo-char-set: 204", "Normal")) + Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal")) + Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" & + "lic", "Heading2", "Normal")) + Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal")) + CType(Me.lblKartenNr, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblNr, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblLKWKz, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblOBUId, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextBox11, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me, System.ComponentModel.ISupportInitialize).EndInit() + + End Sub + Private WithEvents GroupHeader1 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader + Private WithEvents GroupFooter1 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter + Private WithEvents lblKartenNr As GrapeCity.ActiveReports.SectionReportModel.TextBox + Private WithEvents lblNr As GrapeCity.ActiveReports.SectionReportModel.TextBox + Private WithEvents lblLKWKz As GrapeCity.ActiveReports.SectionReportModel.TextBox + Private WithEvents lblOBUId As GrapeCity.ActiveReports.SectionReportModel.TextBox + Private WithEvents TextBox5 As GrapeCity.ActiveReports.SectionReportModel.TextBox + Private WithEvents TextBox6 As GrapeCity.ActiveReports.SectionReportModel.TextBox + Private WithEvents TextBox7 As GrapeCity.ActiveReports.SectionReportModel.TextBox + Private WithEvents TextBox11 As GrapeCity.ActiveReports.SectionReportModel.TextBox + Private WithEvents Line2 As GrapeCity.ActiveReports.SectionReportModel.Line +End Class diff --git a/SDL/Reports/MDM/BriefSDl/subrptBriefSDL_PLOSE.resx b/SDL/Reports/MDM/BriefSDl/subrptBriefSDL_PLOSE.resx new file mode 100644 index 00000000..e8cbd0f3 --- /dev/null +++ b/SDL/Reports/MDM/BriefSDl/subrptBriefSDL_PLOSE.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + 0, 0 + + + 0, 0 + + \ No newline at end of file diff --git a/SDL/Reports/MDM/BriefSDl/subrptBriefSDL_PLOSE.vb b/SDL/Reports/MDM/BriefSDl/subrptBriefSDL_PLOSE.vb new file mode 100644 index 00000000..be15ca91 --- /dev/null +++ b/SDL/Reports/MDM/BriefSDl/subrptBriefSDL_PLOSE.vb @@ -0,0 +1,45 @@ +Imports GrapeCity.ActiveReports +Imports GrapeCity.ActiveReports.Document + +Public Class subrptBriefSDL_PLOSE + Public sqlStr = "" + + + Sub New(sqlStr) + + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + Me.sqlStr = sqlStr + End Sub + Private Sub subrptAuswertungUeberfaelligeBestellungen_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart + + Dim kundenSQL As New kundenSQL + Me.DataSource = kundenSQL.loadDgvBySql(sqlStr, "SDL") + + End Sub + + Dim dummycount As Integer = 0 + Private Sub Detail1_Format(sender As System.Object, e As System.EventArgs) Handles Detail.Format + + dummycount = dummycount + 1 + lblNr.Text = dummycount + lblLKWKz.Text = cSqlDb.checkNullStr(Fields.Item("KfzKennzeichen").Value) + ' lblBestellDat.Text = cSqlDb.checkNullDate(Fields.Item("Bestelldatum").Value).ToShortDateString + ' lblLieferDat.Text = cSqlDb.checkNullDate(Fields.Item("Lieferdatum").Value).ToShortDateString + lblOBUId.Text = cSqlDb.checkNullStr(Fields.Item("OBUID").Value) + lblKartenNr.Text = cSqlDb.checkNullStr(Fields.Item("KartenNr").Value) + + + 'Abwechselnd grauen und weißen Hintergrund + If (dummycount Mod 2) = 0 Then + Detail.BackColor = Drawing.Color.White + Else + Detail.BackColor = Color.FromArgb(250, 250, 250) + End If + End Sub + + + +End Class diff --git a/SDL/Reports/MDM/BriefSDl/subrptBriefSDL_PLOSE_CZ.Designer.vb b/SDL/Reports/MDM/BriefSDl/subrptBriefSDL_PLOSE_CZ.Designer.vb new file mode 100644 index 00000000..fd58f813 --- /dev/null +++ b/SDL/Reports/MDM/BriefSDl/subrptBriefSDL_PLOSE_CZ.Designer.vb @@ -0,0 +1,194 @@ + +Partial Public Class subrptBriefSDL_PLOSE_CZ + Inherits GrapeCity.ActiveReports.SectionReport + + 'Form overrides dispose to clean up the component list. + Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) + If disposing Then + End If + MyBase.Dispose(disposing) + End Sub + + 'NOTE: The following procedure is required by the ActiveReports Designer + 'It can be modified using the ActiveReports Designer. + 'Do not modify it using the code editor. + Private WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail + + Private Sub InitializeComponent() + Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(subrptBriefSDL_PLOSE_CZ)) + Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail() + Me.lblKartenNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.lblNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.lblLKWKz = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.lblOBUId = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.GroupHeader1 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader() + Me.TextBox5 = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.TextBox6 = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.TextBox7 = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.TextBox11 = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.GroupFooter1 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter() + Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line() + CType(Me.lblKartenNr, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblNr, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblLKWKz, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblOBUId, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextBox11, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me, System.ComponentModel.ISupportInitialize).BeginInit() + ' + 'Detail + ' + Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblKartenNr, Me.lblNr, Me.lblLKWKz, Me.lblOBUId}) + Me.Detail.Height = 0.1783464! + Me.Detail.Name = "Detail" + ' + 'lblKartenNr + ' + Me.lblKartenNr.Height = 0.1586614! + Me.lblKartenNr.Left = 1.732284! + Me.lblKartenNr.Name = "lblKartenNr" + Me.lblKartenNr.Style = "font-size: 10pt; font-weight: normal; text-align: left; ddo-char-set: 1" + Me.lblKartenNr.Text = "Karten-Nr" + Me.lblKartenNr.Top = 0.01968504! + Me.lblKartenNr.Width = 1.575984! + ' + 'lblNr + ' + Me.lblNr.Height = 0.1586614! + Me.lblNr.Left = 0.0! + Me.lblNr.Name = "lblNr" + Me.lblNr.Padding = New GrapeCity.ActiveReports.PaddingEx(0, 0, 2, 0) + Me.lblNr.Style = "font-size: 10pt; text-align: right; ddo-char-set: 1" + Me.lblNr.Text = "999" + Me.lblNr.Top = 0.01968504! + Me.lblNr.Width = 0.3543307! + ' + 'lblLKWKz + ' + Me.lblLKWKz.Height = 0.1586614! + Me.lblLKWKz.Left = 0.3543298! + Me.lblLKWKz.Name = "lblLKWKz" + Me.lblLKWKz.Style = "font-size: 10pt; ddo-char-set: 1" + Me.lblLKWKz.Text = "SD 123 ASD" + Me.lblLKWKz.Top = 0.01968512! + Me.lblLKWKz.Width = 1.377953! + ' + 'lblOBUId + ' + Me.lblOBUId.Height = 0.1586614! + Me.lblOBUId.Left = 3.308267! + Me.lblOBUId.Name = "lblOBUId" + Me.lblOBUId.Style = "font-size: 10pt; ddo-char-set: 1" + Me.lblOBUId.Text = "OBUID" + Me.lblOBUId.Top = 0.01968512! + Me.lblOBUId.Width = 1.940551! + ' + 'GroupHeader1 + ' + Me.GroupHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.TextBox5, Me.TextBox6, Me.TextBox7, Me.TextBox11, Me.Line2}) + Me.GroupHeader1.Height = 0.1852909! + Me.GroupHeader1.Name = "GroupHeader1" + ' + 'TextBox5 + ' + Me.TextBox5.Height = 0.1586614! + Me.TextBox5.Left = 1.732284! + Me.TextBox5.Name = "TextBox5" + Me.TextBox5.Style = "font-size: 10pt; font-weight: bold; text-align: left; ddo-char-set: 1" + Me.TextBox5.Text = "Karten-Nr" + Me.TextBox5.Top = 0.0! + Me.TextBox5.Width = 1.575984! + ' + 'TextBox6 + ' + Me.TextBox6.Height = 0.1586614! + Me.TextBox6.Left = 0.0000002384186! + Me.TextBox6.Name = "TextBox6" + Me.TextBox6.Padding = New GrapeCity.ActiveReports.PaddingEx(0, 0, 2, 0) + Me.TextBox6.Style = "font-size: 10pt; font-weight: bold; text-align: right; ddo-char-set: 1" + Me.TextBox6.Text = "Nr" + Me.TextBox6.Top = 0.00000007450581! + Me.TextBox6.Width = 0.3543307! + ' + 'TextBox7 + ' + Me.TextBox7.Height = 0.1586614! + Me.TextBox7.Left = 0.3543308! + Me.TextBox7.Name = "TextBox7" + Me.TextBox7.Style = "font-size: 10pt; font-weight: bold; ddo-char-set: 1" + Me.TextBox7.Text = "Kennzeichen" + Me.TextBox7.Top = 0.00000007450581! + Me.TextBox7.Width = 1.377953! + ' + 'TextBox11 + ' + Me.TextBox11.Height = 0.1586614! + Me.TextBox11.Left = 3.308268! + Me.TextBox11.Name = "TextBox11" + Me.TextBox11.Style = "font-size: 10pt; font-weight: bold; ddo-char-set: 1" + Me.TextBox11.Text = "OBUID" + Me.TextBox11.Top = 0.0! + Me.TextBox11.Width = 1.940551! + ' + 'GroupFooter1 + ' + Me.GroupFooter1.Height = 0.0! + Me.GroupFooter1.Name = "GroupFooter1" + ' + 'Line2 + ' + Me.Line2.Height = 0.0001809001! + Me.Line2.Left = 0.0! + Me.Line2.LineWeight = 1.0! + Me.Line2.Name = "Line2" + Me.Line2.Top = 0.1852522! + Me.Line2.Width = 6.496063! + Me.Line2.X1 = 0.0! + Me.Line2.X2 = 6.496063! + Me.Line2.Y1 = 0.1854331! + Me.Line2.Y2 = 0.1852522! + ' + 'subrptBriefSDL_cz + ' + Me.MasterReport = False + Me.PageSettings.Margins.Bottom = 0.0! + Me.PageSettings.Margins.Left = 0.0! + Me.PageSettings.Margins.Right = 0.0! + Me.PageSettings.Margins.Top = 0.0! + Me.PageSettings.PaperHeight = 11.0! + Me.PageSettings.PaperWidth = 8.5! + Me.PrintWidth = 6.496063! + Me.Sections.Add(Me.GroupHeader1) + Me.Sections.Add(Me.Detail) + Me.Sections.Add(Me.GroupFooter1) + Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" & + "l; font-size: 10pt; color: Black; ddo-char-set: 204", "Normal")) + Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal")) + Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" & + "lic", "Heading2", "Normal")) + Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal")) + CType(Me.lblKartenNr, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblNr, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblLKWKz, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblOBUId, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextBox11, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me, System.ComponentModel.ISupportInitialize).EndInit() + + End Sub + Private WithEvents GroupHeader1 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader + Private WithEvents GroupFooter1 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter + Private WithEvents lblKartenNr As GrapeCity.ActiveReports.SectionReportModel.TextBox + Private WithEvents lblNr As GrapeCity.ActiveReports.SectionReportModel.TextBox + Private WithEvents lblLKWKz As GrapeCity.ActiveReports.SectionReportModel.TextBox + Private WithEvents lblOBUId As GrapeCity.ActiveReports.SectionReportModel.TextBox + Private WithEvents TextBox5 As GrapeCity.ActiveReports.SectionReportModel.TextBox + Private WithEvents TextBox6 As GrapeCity.ActiveReports.SectionReportModel.TextBox + Private WithEvents TextBox7 As GrapeCity.ActiveReports.SectionReportModel.TextBox + Private WithEvents TextBox11 As GrapeCity.ActiveReports.SectionReportModel.TextBox + Private WithEvents Line2 As GrapeCity.ActiveReports.SectionReportModel.Line +End Class diff --git a/SDL/Reports/MDM/BriefSDl/subrptBriefSDL_PLOSE_CZ.resx b/SDL/Reports/MDM/BriefSDl/subrptBriefSDL_PLOSE_CZ.resx new file mode 100644 index 00000000..e8cbd0f3 --- /dev/null +++ b/SDL/Reports/MDM/BriefSDl/subrptBriefSDL_PLOSE_CZ.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + 0, 0 + + + 0, 0 + + \ No newline at end of file diff --git a/SDL/Reports/MDM/BriefSDl/subrptBriefSDL_PLOSE_CZ.vb b/SDL/Reports/MDM/BriefSDl/subrptBriefSDL_PLOSE_CZ.vb new file mode 100644 index 00000000..34ac7b51 --- /dev/null +++ b/SDL/Reports/MDM/BriefSDl/subrptBriefSDL_PLOSE_CZ.vb @@ -0,0 +1,45 @@ +Imports GrapeCity.ActiveReports +Imports GrapeCity.ActiveReports.Document + +Public Class subrptBriefSDL_PLOSE_CZ + Public sqlStr = "" + + + Sub New(sqlStr) + + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + Me.sqlStr = sqlStr + End Sub + Private Sub subrptAuswertungUeberfaelligeBestellungen_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart + + Dim kundenSQL As New kundenSQL + Me.DataSource = kundenSQL.loadDgvBySql(sqlStr, "SDL") + + End Sub + + Dim dummycount As Integer = 0 + Private Sub Detail1_Format(sender As System.Object, e As System.EventArgs) Handles Detail.Format + + dummycount = dummycount + 1 + lblNr.Text = dummycount + lblLKWKz.Text = cSqlDb.checkNullStr(Fields.Item("KfzKennzeichen").Value) + ' lblBestellDat.Text = cSqlDb.checkNullDate(Fields.Item("Bestelldatum").Value).ToShortDateString + ' lblLieferDat.Text = cSqlDb.checkNullDate(Fields.Item("Lieferdatum").Value).ToShortDateString + lblOBUId.Text = cSqlDb.checkNullStr(Fields.Item("OBUID").Value) + lblKartenNr.Text = cSqlDb.checkNullStr(Fields.Item("KartenNr").Value) + + + 'Abwechselnd grauen und weißen Hintergrund + If (dummycount Mod 2) = 0 Then + Detail.BackColor = Drawing.Color.White + Else + Detail.BackColor = Color.FromArgb(250, 250, 250) + End If + End Sub + + + +End Class diff --git a/SDL/Reports/MDM/BriefSDl/subrptBriefSDL_PLOSE_IT.Designer.vb b/SDL/Reports/MDM/BriefSDl/subrptBriefSDL_PLOSE_IT.Designer.vb new file mode 100644 index 00000000..e7de7739 --- /dev/null +++ b/SDL/Reports/MDM/BriefSDl/subrptBriefSDL_PLOSE_IT.Designer.vb @@ -0,0 +1,194 @@ + +Partial Public Class subrptBriefSDL_PLOSE_IT + Inherits GrapeCity.ActiveReports.SectionReport + + 'Form overrides dispose to clean up the component list. + Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) + If disposing Then + End If + MyBase.Dispose(disposing) + End Sub + + 'NOTE: The following procedure is required by the ActiveReports Designer + 'It can be modified using the ActiveReports Designer. + 'Do not modify it using the code editor. + Private WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail + + Private Sub InitializeComponent() + Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(subrptBriefSDL_PLOSE_IT)) + Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail() + Me.lblVIACard = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.lblNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.lblLKWKz = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.lblTelepassNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.GroupHeader1 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader() + Me.TextBox5 = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.TextBox6 = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.TextBox7 = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.TextBox3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.GroupFooter1 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter() + Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line() + CType(Me.lblVIACard, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblNr, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblLKWKz, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblTelepassNr, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me, System.ComponentModel.ISupportInitialize).BeginInit() + ' + 'Detail + ' + Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblVIACard, Me.lblNr, Me.lblLKWKz, Me.lblTelepassNr}) + Me.Detail.Height = 0.1783465! + Me.Detail.Name = "Detail" + ' + 'lblVIACard + ' + Me.lblVIACard.Height = 0.1586614! + Me.lblVIACard.Left = 1.732284! + Me.lblVIACard.Name = "lblVIACard" + Me.lblVIACard.Style = "font-size: 10pt; font-weight: normal; text-align: left; ddo-char-set: 1" + Me.lblVIACard.Text = "VIA-Card-Nr" + Me.lblVIACard.Top = 0.01968504! + Me.lblVIACard.Width = 1.377953! + ' + 'lblNr + ' + Me.lblNr.Height = 0.1586614! + Me.lblNr.Left = 0.0! + Me.lblNr.Name = "lblNr" + Me.lblNr.Padding = New GrapeCity.ActiveReports.PaddingEx(0, 0, 2, 0) + Me.lblNr.Style = "font-size: 10pt; text-align: right; ddo-char-set: 1" + Me.lblNr.Text = "999" + Me.lblNr.Top = 0.01968504! + Me.lblNr.Width = 0.3543307! + ' + 'lblLKWKz + ' + Me.lblLKWKz.Height = 0.1586614! + Me.lblLKWKz.Left = 0.3543298! + Me.lblLKWKz.Name = "lblLKWKz" + Me.lblLKWKz.Style = "font-size: 10pt; ddo-char-set: 1" + Me.lblLKWKz.Text = "SD 123 ASD" + Me.lblLKWKz.Top = 0.01968504! + Me.lblLKWKz.Width = 1.377953! + ' + 'lblTelepassNr + ' + Me.lblTelepassNr.Height = 0.1586614! + Me.lblTelepassNr.Left = 3.110237! + Me.lblTelepassNr.Name = "lblTelepassNr" + Me.lblTelepassNr.Style = "font-size: 10pt; text-align: left; ddo-char-set: 1" + Me.lblTelepassNr.Text = "Telepass-Nr" + Me.lblTelepassNr.Top = 0.01968504! + Me.lblTelepassNr.Width = 1.448426! + ' + 'GroupHeader1 + ' + Me.GroupHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.TextBox5, Me.TextBox6, Me.TextBox7, Me.TextBox3, Me.Line2}) + Me.GroupHeader1.Height = 0.1852909! + Me.GroupHeader1.Name = "GroupHeader1" + ' + 'TextBox5 + ' + Me.TextBox5.Height = 0.1586614! + Me.TextBox5.Left = 1.732284! + Me.TextBox5.Name = "TextBox5" + Me.TextBox5.Style = "font-size: 10pt; font-weight: bold; text-align: left; ddo-char-set: 1" + Me.TextBox5.Text = "VIA-Card-Nr" + Me.TextBox5.Top = 0.00000008195639! + Me.TextBox5.Width = 1.377953! + ' + 'TextBox6 + ' + Me.TextBox6.Height = 0.1586614! + Me.TextBox6.Left = 0.0000002384186! + Me.TextBox6.Name = "TextBox6" + Me.TextBox6.Padding = New GrapeCity.ActiveReports.PaddingEx(0, 0, 2, 0) + Me.TextBox6.Style = "font-size: 10pt; font-weight: bold; text-align: right; ddo-char-set: 1" + Me.TextBox6.Text = "Nr" + Me.TextBox6.Top = 0.00000007450581! + Me.TextBox6.Width = 0.3543307! + ' + 'TextBox7 + ' + Me.TextBox7.Height = 0.1586614! + Me.TextBox7.Left = 0.3543308! + Me.TextBox7.Name = "TextBox7" + Me.TextBox7.Style = "font-size: 10pt; font-weight: bold; ddo-char-set: 1" + Me.TextBox7.Text = "Kennzeichen" + Me.TextBox7.Top = 0.00000007450581! + Me.TextBox7.Width = 1.377953! + ' + 'TextBox3 + ' + Me.TextBox3.Height = 0.1586614! + Me.TextBox3.Left = 3.110238! + Me.TextBox3.Name = "TextBox3" + Me.TextBox3.Style = "font-size: 10pt; font-weight: bold; text-align: left; ddo-char-set: 1" + Me.TextBox3.Text = "Telepass-Nr" + Me.TextBox3.Top = 0.0! + Me.TextBox3.Width = 1.448426! + ' + 'GroupFooter1 + ' + Me.GroupFooter1.Height = 0.0! + Me.GroupFooter1.Name = "GroupFooter1" + ' + 'Line2 + ' + Me.Line2.Height = 0.0001809001! + Me.Line2.Left = 0.0! + Me.Line2.LineWeight = 1.0! + Me.Line2.Name = "Line2" + Me.Line2.Top = 0.1852522! + Me.Line2.Width = 6.496063! + Me.Line2.X1 = 0.0! + Me.Line2.X2 = 6.496063! + Me.Line2.Y1 = 0.1854331! + Me.Line2.Y2 = 0.1852522! + ' + 'subrptBriefSDL_IT + ' + Me.MasterReport = False + Me.PageSettings.Margins.Bottom = 0.0! + Me.PageSettings.Margins.Left = 0.0! + Me.PageSettings.Margins.Right = 0.0! + Me.PageSettings.Margins.Top = 0.0! + Me.PageSettings.PaperHeight = 11.0! + Me.PageSettings.PaperWidth = 8.5! + Me.PrintWidth = 6.496063! + Me.Sections.Add(Me.GroupHeader1) + Me.Sections.Add(Me.Detail) + Me.Sections.Add(Me.GroupFooter1) + Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" & + "l; font-size: 10pt; color: Black; ddo-char-set: 204", "Normal")) + Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal")) + Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" & + "lic", "Heading2", "Normal")) + Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal")) + CType(Me.lblVIACard, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblNr, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblLKWKz, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblTelepassNr, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me, System.ComponentModel.ISupportInitialize).EndInit() + + End Sub + Private WithEvents GroupHeader1 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader + Private WithEvents GroupFooter1 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter + Private WithEvents lblVIACard As GrapeCity.ActiveReports.SectionReportModel.TextBox + Private WithEvents lblNr As GrapeCity.ActiveReports.SectionReportModel.TextBox + Private WithEvents lblLKWKz As GrapeCity.ActiveReports.SectionReportModel.TextBox + Private WithEvents TextBox5 As GrapeCity.ActiveReports.SectionReportModel.TextBox + Private WithEvents TextBox6 As GrapeCity.ActiveReports.SectionReportModel.TextBox + Private WithEvents TextBox7 As GrapeCity.ActiveReports.SectionReportModel.TextBox + Private WithEvents lblTelepassNr As GrapeCity.ActiveReports.SectionReportModel.TextBox + Private WithEvents TextBox3 As GrapeCity.ActiveReports.SectionReportModel.TextBox + Private WithEvents Line2 As GrapeCity.ActiveReports.SectionReportModel.Line +End Class diff --git a/SDL/Reports/MDM/BriefSDl/subrptBriefSDL_PLOSE_IT.resx b/SDL/Reports/MDM/BriefSDl/subrptBriefSDL_PLOSE_IT.resx new file mode 100644 index 00000000..e8cbd0f3 --- /dev/null +++ b/SDL/Reports/MDM/BriefSDl/subrptBriefSDL_PLOSE_IT.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + 0, 0 + + + 0, 0 + + \ No newline at end of file diff --git a/SDL/Reports/MDM/BriefSDl/subrptBriefSDL_PLOSE_IT.vb b/SDL/Reports/MDM/BriefSDl/subrptBriefSDL_PLOSE_IT.vb new file mode 100644 index 00000000..4bf8e6f6 --- /dev/null +++ b/SDL/Reports/MDM/BriefSDl/subrptBriefSDL_PLOSE_IT.vb @@ -0,0 +1,44 @@ +Imports GrapeCity.ActiveReports +Imports GrapeCity.ActiveReports.Document + +Public Class subrptBriefSDL_PLOSE_IT + Public sqlStr = "" + + + Sub New(sqlStr) + + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + Me.sqlStr = sqlStr + End Sub + Private Sub subrptAuswertungUeberfaelligeBestellungen_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart + + Dim kundenSQL As New kundenSQL + Me.DataSource = kundenSQL.loadDgvBySql(sqlStr, "SDL") + + End Sub + + Dim dummycount As Integer = 0 + Private Sub Detail1_Format(sender As System.Object, e As System.EventArgs) Handles Detail.Format + + + dummycount = dummycount + 1 + lblNr.Text = dummycount + lblLKWKz.Text = cSqlDb.checkNullStr(Fields.Item("KfzKennzeichen").Value) + ' lblBestellDat.Text = cSqlDb.checkNullDate(Fields.Item("Bestelldatum").Value).ToShortDateString + ' lblLieferDat.Text = cSqlDb.checkNullDate(Fields.Item("Lieferdatum").Value).ToShortDateString + lblVIACard.Text = cSqlDb.checkNullStr(Fields.Item("VIACARD").Value) + lblTelepassNr.Text = cSqlDb.checkNullStr(Fields.Item("TELEPASS-Nr").Value) + + 'Abwechselnd grauen und weißen Hintergrund + If (dummycount Mod 2) = 0 Then + Detail.BackColor = Drawing.Color.White + Else + Detail.BackColor = Color.FromArgb(250, 250, 250) + End If + End Sub + + +End Class diff --git a/SDL/Resources/Unisped_logo.jpg b/SDL/Resources/Unisped_logo.jpg new file mode 100644 index 00000000..b36b587c Binary files /dev/null and b/SDL/Resources/Unisped_logo.jpg differ diff --git a/SDL/Resources/ambar_simple1.png b/SDL/Resources/ambar_simple1.png new file mode 100644 index 00000000..12946eed Binary files /dev/null and b/SDL/Resources/ambar_simple1.png differ diff --git a/SDL/Resources/plose.png b/SDL/Resources/plose.png new file mode 100644 index 00000000..29704ec4 Binary files /dev/null and b/SDL/Resources/plose.png differ diff --git a/SDL/Resources/plose_big.png b/SDL/Resources/plose_big.png new file mode 100644 index 00000000..d9783aa7 Binary files /dev/null and b/SDL/Resources/plose_big.png differ diff --git a/SDL/Resources/plose_cz.png b/SDL/Resources/plose_cz.png new file mode 100644 index 00000000..e9065ae4 Binary files /dev/null and b/SDL/Resources/plose_cz.png differ diff --git a/SDL/Resources/plose_it.png b/SDL/Resources/plose_it.png new file mode 100644 index 00000000..4b7eb969 Binary files /dev/null and b/SDL/Resources/plose_it.png differ diff --git a/SDL/SDL.vbproj b/SDL/SDL.vbproj index 47be1d8f..efb0779c 100644 --- a/SDL/SDL.vbproj +++ b/SDL/SDL.vbproj @@ -11,7 +11,7 @@ SDL 512 WindowsForms - v4.5 + v4.7 false @@ -786,6 +786,12 @@ UserControl + + usrcntlRechnungsbestaetigung.vb + + + UserControl + usrcntlVerbundenheit.vb @@ -936,6 +942,12 @@ Form + + frmChangePWD.vb + + + Form + frmDienstplan.vb @@ -1290,6 +1302,12 @@ Form + + frmMDMDatenverarbetiung.vb + + + Form + rptPLOSE_TransaktionenSumary.vb @@ -1357,6 +1375,24 @@ UserControl + + usrCntlSDLLeistungenPLOSE_CZ.vb + + + UserControl + + + usrCntlSDLLeistungenPLOSE_IT.vb + + + UserControl + + + usrCntlSDLLeistungPLOSE.vb + + + UserControl + usrCntlSDLLeistungHUGO.vb @@ -1489,14 +1525,38 @@ Form + + frmPostEinschreiben.vb + + + Form + + + subrptBriefSDL_PLOSE.vb + + + Component + + + subrptBriefSDL_PLOSE_CZ.vb + + + Component + subrptBriefSDL_HUGO.vb Component + + subrptBriefSDL_PLOSE_IT.vb + + + Component + subrptBriefSDL_WOELFL.vb @@ -2442,6 +2502,9 @@ usrcntlFiskalInfoschreiben.vb + + usrcntlRechnungsbestaetigung.vb + usrcntlVerbundenheit.vb @@ -2517,6 +2580,9 @@ frmFormulare.vb + + frmChangePWD.vb + frmDienstplan.vb @@ -2694,6 +2760,9 @@ frmSDLBestellungEintrag.vb + + frmMDMDatenverarbetiung.vb + rptPLOSE_TransaktionenSumary.vb @@ -2727,6 +2796,15 @@ usrCntlSDLLeistungenMANAbgas.vb + + usrCntlSDLLeistungenPLOSE_CZ.vb + + + usrCntlSDLLeistungenPLOSE_IT.vb + + + usrCntlSDLLeistungPLOSE.vb + usrCntlSDLLeistungHUGO.vb @@ -2791,9 +2869,21 @@ frmPopUpInfo.vb + + frmPostEinschreiben.vb + + + subrptBriefSDL_PLOSE.vb + + + subrptBriefSDL_PLOSE_CZ.vb + subrptBriefSDL_HUGO.vb + + subrptBriefSDL_PLOSE_IT.vb + subrptBriefSDL_WOELFL.vb @@ -3503,6 +3593,11 @@ + + + + + Always @@ -3620,6 +3715,7 @@ + Always diff --git a/SDL/SMS/frmSendSMS.vb b/SDL/SMS/frmSendSMS.vb index b04d0a20..f458f33f 100644 --- a/SDL/SMS/frmSendSMS.vb +++ b/SDL/SMS/frmSendSMS.vb @@ -54,13 +54,14 @@ Public Class frmSendSMS End If End If - If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Then - Button1.Text = Button1.Text.Replace("VERAG", "IMEX") - Button2.Text = Button2.Text.Replace("VERAG", "IMEX") - Button3.Text = Button3.Text.Replace("VERAG", "IMEX") - Button4.Text = Button4.Text.Replace("VERAG", "IMEX") + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + Case "IMEX", "UNISPED" + Button1.Text = Button1.Text.Replace("VERAG", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA) + Button2.Text = Button2.Text.Replace("VERAG", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA) + Button3.Text = Button3.Text.Replace("VERAG", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA) + Button4.Text = Button4.Text.Replace("VERAG", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA) - End If + End Select cboLandVorwahl.Items.Clear() @@ -134,6 +135,8 @@ Public Class frmSendSMS End Select Case "ATILLA" : absenderAccount = "EX0252746" : absenderFirma = "ATILLA Spedition" Case "IMEX" : absenderAccount = "EX0272082" : absenderFirma = "IMEX Spedition" + Case "UNISPED" : absenderAccount = "EX0300174" : absenderFirma = "UNISPED Spedition" + Case "FRONT-OFFICE" : absenderAccount = "EX0300173" : absenderFirma = "FRONT-OFFICE SUBEN" Case Else : MsgBox("Fehler bei der Datenprüfung: Firmendaten.") : Exit Sub End Select @@ -194,8 +197,8 @@ Public Class frmSendSMS End Sub Sub fillTXT(s) - If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Then - txtNachricht.Text = s.ToString.Replace("VERAG", "IMEX") + If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA <> "VERAG" Then + txtNachricht.Text = s.ToString.Replace("VERAG", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA) Else txtNachricht.Text = s End If diff --git a/SDL/Service References/EU_UID_Pruefung/SDL.EU_UID_Pruefung.checkVatApproxResponse.datasource b/SDL/Service References/EU_UID_Pruefung/SDL.EU_UID_Pruefung.checkVatApproxResponse.datasource index a8535a7f..d16f3bab 100644 --- a/SDL/Service References/EU_UID_Pruefung/SDL.EU_UID_Pruefung.checkVatApproxResponse.datasource +++ b/SDL/Service References/EU_UID_Pruefung/SDL.EU_UID_Pruefung.checkVatApproxResponse.datasource @@ -6,5 +6,5 @@ cause the file to be unrecognizable by the program. --> - SDL.EU_UID_Pruefung.checkVatApproxResponse, Service References.EU_UID_Pruefung.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + SDL.EU_UID_Pruefung.checkVatApproxResponse, Service References.EU_UID_Pruefung.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null \ No newline at end of file diff --git a/SDL/Service References/EU_UID_Pruefung/SDL.EU_UID_Pruefung.checkVatResponse.datasource b/SDL/Service References/EU_UID_Pruefung/SDL.EU_UID_Pruefung.checkVatResponse.datasource index 637964b3..917701a4 100644 --- a/SDL/Service References/EU_UID_Pruefung/SDL.EU_UID_Pruefung.checkVatResponse.datasource +++ b/SDL/Service References/EU_UID_Pruefung/SDL.EU_UID_Pruefung.checkVatResponse.datasource @@ -6,5 +6,5 @@ cause the file to be unrecognizable by the program. --> - SDL.EU_UID_Pruefung.checkVatResponse, Service References.EU_UID_Pruefung.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + SDL.EU_UID_Pruefung.checkVatResponse, Service References.EU_UID_Pruefung.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null \ No newline at end of file diff --git a/SDL/Service References/EU_UID_Pruefung/SDL.EU_UID_Pruefung.matchCode.datasource b/SDL/Service References/EU_UID_Pruefung/SDL.EU_UID_Pruefung.matchCode.datasource index 8df5f957..1328edbd 100644 --- a/SDL/Service References/EU_UID_Pruefung/SDL.EU_UID_Pruefung.matchCode.datasource +++ b/SDL/Service References/EU_UID_Pruefung/SDL.EU_UID_Pruefung.matchCode.datasource @@ -6,5 +6,5 @@ cause the file to be unrecognizable by the program. --> - SDL.EU_UID_Pruefung.matchCode, Service References.EU_UID_Pruefung.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + SDL.EU_UID_Pruefung.matchCode, Service References.EU_UID_Pruefung.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null \ No newline at end of file diff --git a/SDL/Service References/RKSVServer/SDL.RKSVServer.ExportJWSDetailsResponse.datasource b/SDL/Service References/RKSVServer/SDL.RKSVServer.ExportJWSDetailsResponse.datasource index 50da8b79..012b0eed 100644 --- a/SDL/Service References/RKSVServer/SDL.RKSVServer.ExportJWSDetailsResponse.datasource +++ b/SDL/Service References/RKSVServer/SDL.RKSVServer.ExportJWSDetailsResponse.datasource @@ -6,5 +6,5 @@ cause the file to be unrecognizable by the program. --> - SDL.RKSVServer.ExportJWSDetailsResponse, Service References.RKSVServer.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + SDL.RKSVServer.ExportJWSDetailsResponse, Service References.RKSVServer.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null \ No newline at end of file diff --git a/SDL/Service References/RKSVServer/SDL.RKSVServer.ExportJWSResponse.datasource b/SDL/Service References/RKSVServer/SDL.RKSVServer.ExportJWSResponse.datasource index 8cf3102b..38c9d02a 100644 --- a/SDL/Service References/RKSVServer/SDL.RKSVServer.ExportJWSResponse.datasource +++ b/SDL/Service References/RKSVServer/SDL.RKSVServer.ExportJWSResponse.datasource @@ -6,5 +6,5 @@ cause the file to be unrecognizable by the program. --> - SDL.RKSVServer.ExportJWSResponse, Service References.RKSVServer.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + SDL.RKSVServer.ExportJWSResponse, Service References.RKSVServer.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null \ No newline at end of file diff --git a/SDL/Service References/RKSVServer/SDL.RKSVServer.GetCardCertificateResponse.datasource b/SDL/Service References/RKSVServer/SDL.RKSVServer.GetCardCertificateResponse.datasource index e1f63b80..ad0bcb6a 100644 --- a/SDL/Service References/RKSVServer/SDL.RKSVServer.GetCardCertificateResponse.datasource +++ b/SDL/Service References/RKSVServer/SDL.RKSVServer.GetCardCertificateResponse.datasource @@ -6,5 +6,5 @@ cause the file to be unrecognizable by the program. --> - SDL.RKSVServer.GetCardCertificateResponse, Service References.RKSVServer.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + SDL.RKSVServer.GetCardCertificateResponse, Service References.RKSVServer.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null \ No newline at end of file diff --git a/SDL/Service References/RKSVServer/SDL.RKSVServer.JWSCompactToQrStringResponse.datasource b/SDL/Service References/RKSVServer/SDL.RKSVServer.JWSCompactToQrStringResponse.datasource index 0511490a..3f0d8f29 100644 --- a/SDL/Service References/RKSVServer/SDL.RKSVServer.JWSCompactToQrStringResponse.datasource +++ b/SDL/Service References/RKSVServer/SDL.RKSVServer.JWSCompactToQrStringResponse.datasource @@ -6,5 +6,5 @@ cause the file to be unrecognizable by the program. --> - SDL.RKSVServer.JWSCompactToQrStringResponse, Service References.RKSVServer.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + SDL.RKSVServer.JWSCompactToQrStringResponse, Service References.RKSVServer.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null \ No newline at end of file diff --git a/SDL/Service References/RKSVServer/SDL.RKSVServer.RKSVJwsToImageResponse.datasource b/SDL/Service References/RKSVServer/SDL.RKSVServer.RKSVJwsToImageResponse.datasource index a1f76e68..bb8bf160 100644 --- a/SDL/Service References/RKSVServer/SDL.RKSVServer.RKSVJwsToImageResponse.datasource +++ b/SDL/Service References/RKSVServer/SDL.RKSVServer.RKSVJwsToImageResponse.datasource @@ -6,5 +6,5 @@ cause the file to be unrecognizable by the program. --> - SDL.RKSVServer.RKSVJwsToImageResponse, Service References.RKSVServer.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + SDL.RKSVServer.RKSVJwsToImageResponse, Service References.RKSVServer.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null \ No newline at end of file diff --git a/SDL/Service References/RKSVServer/SDL.RKSVServer.SignReceiptResponse.datasource b/SDL/Service References/RKSVServer/SDL.RKSVServer.SignReceiptResponse.datasource index d004e50e..beb343c2 100644 --- a/SDL/Service References/RKSVServer/SDL.RKSVServer.SignReceiptResponse.datasource +++ b/SDL/Service References/RKSVServer/SDL.RKSVServer.SignReceiptResponse.datasource @@ -6,5 +6,5 @@ cause the file to be unrecognizable by the program. --> - SDL.RKSVServer.SignReceiptResponse, Service References.RKSVServer.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + SDL.RKSVServer.SignReceiptResponse, Service References.RKSVServer.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null \ No newline at end of file diff --git a/SDL/Service References/RKSVServer/SDL.RKSVServer.SignReceiptWithDetailsResponse.datasource b/SDL/Service References/RKSVServer/SDL.RKSVServer.SignReceiptWithDetailsResponse.datasource index 1924bf46..294c23b7 100644 --- a/SDL/Service References/RKSVServer/SDL.RKSVServer.SignReceiptWithDetailsResponse.datasource +++ b/SDL/Service References/RKSVServer/SDL.RKSVServer.SignReceiptWithDetailsResponse.datasource @@ -6,5 +6,5 @@ cause the file to be unrecognizable by the program. --> - SDL.RKSVServer.SignReceiptWithDetailsResponse, Service References.RKSVServer.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + SDL.RKSVServer.SignReceiptWithDetailsResponse, Service References.RKSVServer.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null \ No newline at end of file diff --git a/SDL/Service References/RKSVServer/SDL.RKSVServer.SignStornoReceiptResponse.datasource b/SDL/Service References/RKSVServer/SDL.RKSVServer.SignStornoReceiptResponse.datasource index dbdfc166..4b929cf7 100644 --- a/SDL/Service References/RKSVServer/SDL.RKSVServer.SignStornoReceiptResponse.datasource +++ b/SDL/Service References/RKSVServer/SDL.RKSVServer.SignStornoReceiptResponse.datasource @@ -6,5 +6,5 @@ cause the file to be unrecognizable by the program. --> - SDL.RKSVServer.SignStornoReceiptResponse, Service References.RKSVServer.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + SDL.RKSVServer.SignStornoReceiptResponse, Service References.RKSVServer.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null \ No newline at end of file diff --git a/SDL/Service References/RKSVServer/SDL.RKSVServer.SignStornoReceiptWithDetailsResponse.datasource b/SDL/Service References/RKSVServer/SDL.RKSVServer.SignStornoReceiptWithDetailsResponse.datasource index 013e21f8..e9c912a8 100644 --- a/SDL/Service References/RKSVServer/SDL.RKSVServer.SignStornoReceiptWithDetailsResponse.datasource +++ b/SDL/Service References/RKSVServer/SDL.RKSVServer.SignStornoReceiptWithDetailsResponse.datasource @@ -6,5 +6,5 @@ cause the file to be unrecognizable by the program. --> - SDL.RKSVServer.SignStornoReceiptWithDetailsResponse, Service References.RKSVServer.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + SDL.RKSVServer.SignStornoReceiptWithDetailsResponse, Service References.RKSVServer.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null \ No newline at end of file diff --git a/SDL/Service References/RKSVServer/SDL.RKSVServer.SignTrainReceiptResponse.datasource b/SDL/Service References/RKSVServer/SDL.RKSVServer.SignTrainReceiptResponse.datasource index 85e2ba7c..e4afaacc 100644 --- a/SDL/Service References/RKSVServer/SDL.RKSVServer.SignTrainReceiptResponse.datasource +++ b/SDL/Service References/RKSVServer/SDL.RKSVServer.SignTrainReceiptResponse.datasource @@ -6,5 +6,5 @@ cause the file to be unrecognizable by the program. --> - SDL.RKSVServer.SignTrainReceiptResponse, Service References.RKSVServer.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + SDL.RKSVServer.SignTrainReceiptResponse, Service References.RKSVServer.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null \ No newline at end of file diff --git a/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.Designer.vb b/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.Designer.vb index ee40d35f..34a04189 100644 --- a/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.Designer.vb +++ b/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.Designer.vb @@ -1159,7 +1159,7 @@ Partial Class usrCntlSpeditionsBuchSuche Me.lblErgebnis.Name = "lblErgebnis" Me.lblErgebnis.Size = New System.Drawing.Size(215, 14) Me.lblErgebnis.TabIndex = 2 - Me.lblErgebnis.Text = "Ergebnise: 0" + Me.lblErgebnis.Text = "Ergebnisse: 0" Me.lblErgebnis.TextAlign = System.Drawing.ContentAlignment.TopRight ' 'Button3 diff --git a/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb b/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb index 7edf0fde..e3c9eab9 100644 --- a/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb +++ b/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb @@ -106,7 +106,7 @@ Public Class usrCntlSpeditionsBuchSuche .Columns("Freigabe").Width = 105 - lblErgebnis.Text = "Ergebnise: " & .RowCount + lblErgebnis.Text = "Ergebnisse: " & .RowCount AddHandler .SelectionChanged, Sub() DataGridView.Columns.Clear() @@ -190,7 +190,7 @@ Public Class usrCntlSpeditionsBuchSuche .Columns("QKN").Visible = False End If - lblErgebnis.Text = "Ergebnise: " & .RowCount + lblErgebnis.Text = "Ergebnisse: " & .RowCount End With End Sub @@ -354,28 +354,39 @@ Public Class usrCntlSpeditionsBuchSuche cboSachbearbeiter.fillWithSQL("SELECT ID,/*cast(ID as nvarchar(3)) +' ' + Name as*/ Name FROM Personal WHERE [Status]<>'L' " & sbWhere & " ORDER BY Name ", False, "FMZOLL", True) cboFiliale.fillWithSQL("SELECT FilialenNr, Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True) - Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA - Case "IMEX" : cboFiliale._allowedValuesFreiText = {"5501"} - cboFiliale.changeItem("5501") - cboFiliale.Enabled = False - Case "ATILLA" : cboFiliale._allowedValuesFreiText = {"4801"} - cboFiliale.changeItem("4801") - cboFiliale.Enabled = False - End Select + If VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE <> "" Then + cboFiliale._allowedValuesFreiText = {VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE} + cboFiliale.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE) + cboFiliale.Enabled = False + End If + + 'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + ' Case "IMEX" : cboFiliale._allowedValuesFreiText = {"5501"} + ' cboFiliale.changeItem("5501") + ' cboFiliale.Enabled = False + ' Case "ATILLA" : cboFiliale._allowedValuesFreiText = {"4801"} + ' cboFiliale.changeItem("4801") + ' cboFiliale.Enabled = False + 'End Select 'ComboBox1.fillWithSQL("SELECT [Abfertigungsart],[Abfertigungsbezeichnung] FROM [Abfertigungsarten] ORDER BY Abfertigungsart ", True, "FMZOLL") cboVersLand.fillWithSQL("SELECT LandKz, LandBez FROM [Länderverzeichnis für die Außenhandelsstatistik] ORDER BY LandKz ", True, "FMZOLL", True) cboBestLand.fillWithSQL("SELECT LandKz, LandBez FROM [Länderverzeichnis für die Außenhandelsstatistik] ORDER BY LandKz ", True, "FMZOLL", True) MyListBox1.fillWithSQL(" SELECT [Abfertigungsart],[Abfertigungsbezeichnung] FROM [Abfertigungsarten] ORDER BY Abfertigungsart ", , "FMZOLL") - Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA - Case "IMEX" - lstFiliale.fillWithSQL(" SELECT FilialenNr, Grenzstelle FROM Filialen WHERE Fil_Status='A' AND FilialenNr=5501 ORDER BY FilialenNr ", , "FMZOLL") - Case "ATILLA" - lstFiliale.fillWithSQL(" SELECT FilialenNr, Grenzstelle FROM Filialen WHERE Fil_Status='A' AND FilialenNr=4801 ORDER BY FilialenNr ", , "FMZOLL") - Case Else - lstFiliale.fillWithSQL(" SELECT FilialenNr, Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", , "FMZOLL") - End Select + If VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE <> "" Then + lstFiliale.fillWithSQL(" SELECT FilialenNr, Grenzstelle FROM Filialen WHERE Fil_Status='A' AND FilialenNr='" & VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE & "' ORDER BY FilialenNr ", , "FMZOLL") + Else + lstFiliale.fillWithSQL(" SELECT FilialenNr, Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", , "FMZOLL") + End If + 'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + ' Case "IMEX" + ' lstFiliale.fillWithSQL(" SELECT FilialenNr, Grenzstelle FROM Filialen WHERE Fil_Status='A' AND FilialenNr=5501 ORDER BY FilialenNr ", , "FMZOLL") + ' Case "ATILLA" + ' lstFiliale.fillWithSQL(" SELECT FilialenNr, Grenzstelle FROM Filialen WHERE Fil_Status='A' AND FilialenNr=4801 ORDER BY FilialenNr ", , "FMZOLL") + ' Case Else + ' lstFiliale.fillWithSQL(" SELECT FilialenNr, Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", , "FMZOLL") + 'End Select ' lstGrenze.fillWithSQL(" SELECT distinct(Grenzstelle),distinct(Grenzstelle) FROM [VERAG].[dbo].[Speditionsbuch] where Grenzstelle is not null order by Grenzstelle ", , "FMZOLL") lstGrenze.Items.Clear() @@ -388,8 +399,11 @@ Public Class usrCntlSpeditionsBuchSuche Dim where = "" Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA - Case "IMEX" : where = " AND mit_firma IN ('IMEX','BEIDE') " - ' Case "ATILLA" : cboFiliale._allowedValuesFreiText = {"4801"} + Case "VERAG", "ATILLA", "" + Case Else + where = " AND mit_firma IN ('" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "','BEIDE') " + 'Case "IMEX" : where = " AND mit_firma IN ('IMEX','BEIDE') " + ''' Case "ATILLA" : cboFiliale._allowedValuesFreiText = {"4801"} End Select cboSB_Qs.fillWithSQL("SELECT [mit_id],[mit_vname] + ' '+ [mit_nname] as NAME " & @@ -1490,7 +1504,7 @@ Public Class usrCntlSpeditionsBuchSuche Dim SQLStr = "SELECT [FilialenNr],[AbfertigungsNr],[UnterNr],[Abfertigungsdatum],[LKW Kennzeichen],[EmpfängerKundenNr],[Empfänger],Abfertigungsart,AtlasBezNrEZA as BezugsNr , isnull((SELECT SUM(Betrag) FROM Zkteing WHERE Bezugsnummer=AtlasBezNrEZA) ,'') as EUST FROM [VERAG].[dbo].[Speditionsbuch] - where Abfertigungsart IN (26,28) AND Abfertigungsdatum > DATEADD(Month,-6 ,getdate()) AND isnull(SB_CMR ,0)=0 AND FilialenNr NOT IN (5501) + where Abfertigungsart IN (26,28) AND Abfertigungsdatum > DATEADD(Month,-6 ,getdate()) AND isnull(SB_CMR ,0)=0 AND FilialenNr NOT IN (5501,5601,5701) order by Abfertigungsdatum ASC" Dim dt As DataTable = SQL.loadDgvBySql(SQLStr, "FMZOLL") diff --git a/SDL/Web References/EORI/Reference.vb b/SDL/Web References/EORI/Reference.vb index 064855e1..01171632 100644 --- a/SDL/Web References/EORI/Reference.vb +++ b/SDL/Web References/EORI/Reference.vb @@ -24,7 +24,7 @@ Imports System.Xml.Serialization Namespace EORI ''' - _ @@ -121,7 +121,7 @@ Namespace EORI End Class ''' - - - _ + _ Public Delegate Sub validateEORICompletedEventHandler(ByVal sender As Object, ByVal e As validateEORICompletedEventArgs) ''' - _ Partial Public Class validateEORICompletedEventArgs diff --git a/SDL/Web References/EORI/eoriValidationResult.datasource b/SDL/Web References/EORI/eoriValidationResult.datasource index efba1402..14e7ea38 100644 --- a/SDL/Web References/EORI/eoriValidationResult.datasource +++ b/SDL/Web References/EORI/eoriValidationResult.datasource @@ -6,5 +6,5 @@ cause the file to be unrecognizable by the program. --> - SDL.EORI.eoriValidationResult, Web References.EORI.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + SDL.EORI.eoriValidationResult, Web References.EORI.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null \ No newline at end of file diff --git a/SDL/Web References/at.gv.bmf.finanzonline/Reference.vb b/SDL/Web References/at.gv.bmf.finanzonline/Reference.vb index 3659c693..018156dc 100644 --- a/SDL/Web References/at.gv.bmf.finanzonline/Reference.vb +++ b/SDL/Web References/at.gv.bmf.finanzonline/Reference.vb @@ -24,7 +24,7 @@ Imports System.Xml.Serialization Namespace at.gv.bmf.finanzonline ''' - _ @@ -129,7 +129,7 @@ Namespace at.gv.bmf.finanzonline End Class ''' - _ Public Enum uidAbfrageServiceRequestStufe @@ -144,11 +144,11 @@ Namespace at.gv.bmf.finanzonline End Enum ''' - _ + _ Public Delegate Sub uidAbfrageCompletedEventHandler(ByVal sender As Object, ByVal e As uidAbfrageCompletedEventArgs) ''' - _ Partial Public Class uidAbfrageCompletedEventArgs diff --git a/SDL/Web References/at.gv.bmf.finanzonlineLogin/Reference.vb b/SDL/Web References/at.gv.bmf.finanzonlineLogin/Reference.vb index d5b604e6..46f96118 100644 --- a/SDL/Web References/at.gv.bmf.finanzonlineLogin/Reference.vb +++ b/SDL/Web References/at.gv.bmf.finanzonlineLogin/Reference.vb @@ -24,7 +24,7 @@ Imports System.Xml.Serialization Namespace at.gv.bmf.finanzonlineLogin ''' - _ @@ -156,11 +156,11 @@ Namespace at.gv.bmf.finanzonlineLogin End Class ''' - _ + _ Public Delegate Sub loginCompletedEventHandler(ByVal sender As Object, ByVal e As loginCompletedEventArgs) ''' - _ Partial Public Class loginCompletedEventArgs @@ -199,11 +199,11 @@ Namespace at.gv.bmf.finanzonlineLogin End Class ''' - _ + _ Public Delegate Sub logoutCompletedEventHandler(ByVal sender As Object, ByVal e As logoutCompletedEventArgs) ''' - _ Partial Public Class logoutCompletedEventArgs diff --git a/SDL/Web References/eu.europa.ec/Reference.vb b/SDL/Web References/eu.europa.ec/Reference.vb index bed556b5..39ba7fe9 100644 --- a/SDL/Web References/eu.europa.ec/Reference.vb +++ b/SDL/Web References/eu.europa.ec/Reference.vb @@ -24,7 +24,7 @@ Imports System.Xml.Serialization Namespace eu.europa.ec ''' - _ @@ -200,7 +200,7 @@ Namespace eu.europa.ec End Class ''' - _ Public Enum matchCode @@ -219,11 +219,11 @@ Namespace eu.europa.ec End Enum ''' - _ + _ Public Delegate Sub checkVatCompletedEventHandler(ByVal sender As Object, ByVal e As checkVatCompletedEventArgs) ''' - _ Partial Public Class checkVatCompletedEventArgs @@ -286,11 +286,11 @@ Namespace eu.europa.ec End Class ''' - _ + _ Public Delegate Sub checkVatApproxCompletedEventHandler(ByVal sender As Object, ByVal e As checkVatApproxCompletedEventArgs) ''' - _ Partial Public Class checkVatApproxCompletedEventArgs diff --git a/SDL/Web References/eu.europa.ec/matchCode.datasource b/SDL/Web References/eu.europa.ec/matchCode.datasource index 02497b92..105dffb2 100644 --- a/SDL/Web References/eu.europa.ec/matchCode.datasource +++ b/SDL/Web References/eu.europa.ec/matchCode.datasource @@ -6,5 +6,5 @@ cause the file to be unrecognizable by the program. --> - SDL.eu.europa.ec.matchCode, Web References.eu.europa.ec.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + SDL.eu.europa.ec.matchCode, Web References.eu.europa.ec.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null \ No newline at end of file diff --git a/SDL/cEasyBinding.vb b/SDL/cEasyBinding.vb index bbf71de9..4f44bde2 100644 --- a/SDL/cEasyBinding.vb +++ b/SDL/cEasyBinding.vb @@ -3,7 +3,7 @@ Imports Gemeinsames Imports System.ComponentModel Public Class cEasyBinding - Public bindingDataAdapter As New SqlDataAdapter + Public WithEvents bindingDataAdapter As New SqlDataAdapter Public WithEvents bindingdataTable As New DataTable Public bindingdataSet As New DataSet Public WithEvents bindingSource As New BindingSource @@ -11,7 +11,7 @@ Public Class cEasyBinding Dim connection As SqlConnection Dim initialized = False - ' Public updateImmediately = False + Public updateImmediately = False Sub New(Optional conn As String = "SDL") Select Case conn @@ -22,7 +22,9 @@ Public Class cEasyBinding End Select End Sub - Public Sub initBinding(sql, table) + + + Public Sub initBinding(sql, table, Optional List = Nothing) Try bindingSource.CancelEdit() bindingSource = New BindingSource @@ -32,7 +34,20 @@ Public Class cEasyBinding bindingdataSet.Clear() Try - Me.bindingDataAdapter = New SqlDataAdapter(sql, connection) + + If List IsNot Nothing Then + Dim cmd As New SqlCommand(sql, connection) + + For Each i In List + 'MsgBox(i.Text.trim & " " & IIf(i.Value Is Nothing, DBNull.Value, i.Value)) + cmd.Parameters.AddWithValue("@" & i.Scalarvariable.trim, IIf(i.Value Is Nothing, DBNull.Value, i.Value)) + Next + Me.bindingDataAdapter = New SqlDataAdapter(cmd) + Else + Me.bindingDataAdapter = New SqlDataAdapter(sql, connection) + End If + + Catch ex As SqlException MessageBox.Show("Der Connection-String kann nicht verarbeitet werden. Wenden Sie sich an den Programmbetreuer.") End Try @@ -66,6 +81,7 @@ Public Class cEasyBinding Dim builder As New SqlCommandBuilder(bindingDataAdapter) bindingDataAdapter.Update(bindingdataSet, bindingdataTable.TableName) Me.bindingdataSet.AcceptChanges() + Return True Catch ex As Exception MsgBox("Es ist ein SQL-Fehler beim Updaten der Daten aufgetreten:" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & "Die Werte werden zurückgesetzt!", MsgBoxStyle.OkCancel, "Datenbank-Fehler") @@ -90,7 +106,11 @@ Public Class cEasyBinding End Sub - ' Private Sub bindingdataTable_ColumnChanged(sender As Object, e As DataColumnChangeEventArgs) Handles bindingdataTable.ColumnChanged + 'Private Sub bindingdataTable_ColumnChanged(sender As Object, e As DataColumnChangeEventArgs) Handles bindingdataTable.ColumnChanged + ' If updateImmediately Then updateBinding() - ' End Sub + + 'End Sub + + End Class diff --git a/SDL/cProgramFunctions.vb b/SDL/cProgramFunctions.vb index 9dabd3aa..c5c2ee84 100644 --- a/SDL/cProgramFunctions.vb +++ b/SDL/cProgramFunctions.vb @@ -442,14 +442,14 @@ Public Class cProgramFunctions Public Shared Function isLeerNothing(o) As Object Return IIf(o = "", Nothing, o) End Function - Public Shared Function isLeerNothingDbl(o) As Object + Public Shared Function isLeerNothingDbl(o, Optional returnVal = Nothing) As Object Try - If o = "" Then Return Nothing + If o = "" Then Return returnVal If IsNumeric(o) Then Return CDbl(o) - Return Nothing + Return returnVal Catch ex As Exception - Return Nothing + Return returnVal End Try End Function Public Shared Function isLeerNothingDblPKT(o) As Object diff --git a/SDL/cSqlDb.vb b/SDL/cSqlDb.vb index 3c278e46..87e551ea 100644 --- a/SDL/cSqlDb.vb +++ b/SDL/cSqlDb.vb @@ -194,7 +194,7 @@ Public Class cOptionenDAL Try If dr.Read Then Return CStr(dr.Item("prog_aktuelleVersion")) Catch ex As Exception - MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler mit der Datenbankverbindung:" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Datenbankfehler") + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler mit der Datenbankverbindung:", "Datenbankfehler") Finally dr.Close() End Try @@ -254,7 +254,7 @@ Public Class cOptionenDAL End Using dr.Close() Catch ex As Exception - MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler mit der Datenbankverbindung:" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Datenbankfehler") + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler mit der Datenbankverbindung.", "Datenbankfehler") Return False End Try @@ -277,7 +277,7 @@ Public Class cOptionenDAL End Using dr.Close() Catch ex As Exception - MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler mit der Datenbankverbindung:" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Datenbankfehler") + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler mit der Datenbankverbindung.", "Datenbankfehler") End Try Return "" End Function @@ -308,7 +308,7 @@ Public Class cOptionenDAL End Using dr.Close() Catch ex As Exception - MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler mit der Datenbankverbindung:" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Datenbankfehler") + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler mit der Datenbankverbindun.", "Datenbankfehler") Return Nothing End Try @@ -342,7 +342,7 @@ Public Class cOptionenDAL dr = cmd.ExecuteReader() If dr.Read Then Return CInt(dr.Item(0)) Catch ex As Exception - MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler mit der Datenbankverbindung:" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Datenbankfehler") + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler mit der Datenbankverbindun.", "Datenbankfehler") Finally dr.Close() End Try @@ -364,7 +364,7 @@ Public Class cOptionenDAL dr = cmd.ExecuteReader() If dr.Read Then Return CInt(dr.Item(0)) Catch ex As Exception - MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler mit der Datenbankverbindung:" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Datenbankfehler") + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler mit der Datenbankverbindun.", "Datenbankfehler") Finally dr.Close() End Try @@ -1558,7 +1558,7 @@ Public Class kundenSQL Try Dim d As New cPartnerKdNRFMZoll Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL() - Using cmd As New SqlCommand("SELECT TOP 1 AdressenNr,IDSKundenNr,MSEKundenNr,[TELEPASS-Kd-Nr],WölflKundenNr,UTAKundenNr FROM Adressen WHERE AdressenNr=@AdressenNr ", conn) + Using cmd As New SqlCommand("SELECT TOP 1 AdressenNr,IDSKundenNr,MSEKundenNr,[TELEPASS-Kd-Nr],WölflKundenNr,UTAKundenNr,PLOSEKundenNr FROM Adressen WHERE AdressenNr=@AdressenNr ", conn) cmd.Parameters.AddWithValue("@AdressenNr", kdnr) Dim dr = cmd.ExecuteReader() If dr.Read Then @@ -1571,6 +1571,8 @@ Public Class kundenSQL d.IDSKundenNr = getPartnerKdNrFromFMZOLL_IDS(kdnr) d.ATKundenNr = getPartnerKdNrFromFMZOLL_AT(kdnr) + d.PLOSE_KundenNr = cSqlDb.checkNullStr(dr.Item("PLOSEKundenNr")) + Dim dt As DataTable = getPartnerKdNrFromFMZOLL_DE(kdnr) If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then d.MautDE_FlottenPIN = cSqlDb.checkNullStr(dt.Rows(0)("MautDE_FlottenPIN")) diff --git a/SDL/frmChangePWD.Designer.vb b/SDL/frmChangePWD.Designer.vb new file mode 100644 index 00000000..e627843c --- /dev/null +++ b/SDL/frmChangePWD.Designer.vb @@ -0,0 +1,211 @@ + +Partial Class frmChangePWD + 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(frmChangePWD)) + Me.lbl = New System.Windows.Forms.Label() + Me.txtPwdOld = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtPwdNew1 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label1 = New System.Windows.Forms.Label() + Me.txtPwdNew2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label2 = New System.Windows.Forms.Label() + Me.Label3 = New System.Windows.Forms.Label() + Me.btnSpeichern = New System.Windows.Forms.Button() + Me.Label4 = New System.Windows.Forms.Label() + Me.Label5 = New System.Windows.Forms.Label() + Me.SuspendLayout() + ' + 'lbl + ' + Me.lbl.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lbl.Location = New System.Drawing.Point(5, 51) + Me.lbl.Name = "lbl" + Me.lbl.Size = New System.Drawing.Size(118, 20) + Me.lbl.TabIndex = 2 + Me.lbl.Text = "altes Passwort:" + Me.lbl.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'txtPwdOld + ' + Me.txtPwdOld._DateTimeOnly = False + Me.txtPwdOld._numbersOnly = False + Me.txtPwdOld._numbersOnlyKommastellen = "" + Me.txtPwdOld._Prozent = False + Me.txtPwdOld._ShortDateNew = False + Me.txtPwdOld._ShortDateOnly = False + Me.txtPwdOld._TimeOnly = False + Me.txtPwdOld._value = Nothing + Me.txtPwdOld._Waehrung = False + Me.txtPwdOld.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtPwdOld.ForeColor = System.Drawing.Color.Black + Me.txtPwdOld.Location = New System.Drawing.Point(129, 48) + Me.txtPwdOld.MaxLineLength = -1 + Me.txtPwdOld.MaxLines_Warning = "" + Me.txtPwdOld.MaxLines_Warning_Label = Nothing + Me.txtPwdOld.Name = "txtPwdOld" + Me.txtPwdOld.PasswordChar = Global.Microsoft.VisualBasic.ChrW(42) + Me.txtPwdOld.Size = New System.Drawing.Size(242, 23) + Me.txtPwdOld.TabIndex = 3 + ' + 'txtPwdNew1 + ' + Me.txtPwdNew1._DateTimeOnly = False + Me.txtPwdNew1._numbersOnly = False + Me.txtPwdNew1._numbersOnlyKommastellen = "" + Me.txtPwdNew1._Prozent = False + Me.txtPwdNew1._ShortDateNew = False + Me.txtPwdNew1._ShortDateOnly = False + Me.txtPwdNew1._TimeOnly = False + Me.txtPwdNew1._value = Nothing + Me.txtPwdNew1._Waehrung = False + Me.txtPwdNew1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtPwdNew1.ForeColor = System.Drawing.Color.Black + Me.txtPwdNew1.Location = New System.Drawing.Point(129, 93) + Me.txtPwdNew1.MaxLineLength = -1 + Me.txtPwdNew1.MaxLines_Warning = "" + Me.txtPwdNew1.MaxLines_Warning_Label = Nothing + Me.txtPwdNew1.Name = "txtPwdNew1" + Me.txtPwdNew1.PasswordChar = Global.Microsoft.VisualBasic.ChrW(42) + Me.txtPwdNew1.Size = New System.Drawing.Size(242, 23) + Me.txtPwdNew1.TabIndex = 5 + ' + 'Label1 + ' + Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label1.Location = New System.Drawing.Point(5, 96) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(118, 20) + Me.Label1.TabIndex = 4 + Me.Label1.Text = "neues Passwort:" + Me.Label1.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'txtPwdNew2 + ' + Me.txtPwdNew2._DateTimeOnly = False + Me.txtPwdNew2._numbersOnly = False + Me.txtPwdNew2._numbersOnlyKommastellen = "" + Me.txtPwdNew2._Prozent = False + Me.txtPwdNew2._ShortDateNew = False + Me.txtPwdNew2._ShortDateOnly = False + Me.txtPwdNew2._TimeOnly = False + Me.txtPwdNew2._value = Nothing + Me.txtPwdNew2._Waehrung = False + Me.txtPwdNew2.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtPwdNew2.ForeColor = System.Drawing.Color.Black + Me.txtPwdNew2.Location = New System.Drawing.Point(129, 122) + Me.txtPwdNew2.MaxLineLength = -1 + Me.txtPwdNew2.MaxLines_Warning = "" + Me.txtPwdNew2.MaxLines_Warning_Label = Nothing + Me.txtPwdNew2.Name = "txtPwdNew2" + Me.txtPwdNew2.PasswordChar = Global.Microsoft.VisualBasic.ChrW(42) + Me.txtPwdNew2.Size = New System.Drawing.Size(242, 23) + Me.txtPwdNew2.TabIndex = 6 + ' + 'Label2 + ' + Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label2.Location = New System.Drawing.Point(5, 125) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(118, 49) + Me.Label2.TabIndex = 7 + Me.Label2.Text = "neues Passwort:" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(Wiederhoung)" + Me.Label2.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'Label3 + ' + Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label3.Location = New System.Drawing.Point(5, 9) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(482, 20) + Me.Label3.TabIndex = 1 + Me.Label3.Text = "Sie können hier Ihr Passwort ändern:" + ' + 'btnSpeichern + ' + Me.btnSpeichern.DialogResult = System.Windows.Forms.DialogResult.OK + Me.btnSpeichern.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnSpeichern.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnSpeichern.Location = New System.Drawing.Point(12, 178) + Me.btnSpeichern.Name = "btnSpeichern" + Me.btnSpeichern.Size = New System.Drawing.Size(359, 47) + Me.btnSpeichern.TabIndex = 9 + Me.btnSpeichern.Text = "Speichern" + Me.btnSpeichern.UseVisualStyleBackColor = True + ' + 'Label4 + ' + Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label4.ForeColor = System.Drawing.Color.Red + Me.Label4.Location = New System.Drawing.Point(5, 9) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(367, 36) + Me.Label4.TabIndex = 0 + Me.Label4.Text = "ACHTUNG:" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Es muss ein neues Login-Passwort vergeben werden:" + Me.Label4.Visible = False + ' + 'Label5 + ' + Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 6.5!) + Me.Label5.Location = New System.Drawing.Point(120, 148) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(253, 27) + Me.Label5.TabIndex = 8 + Me.Label5.Text = "Das Passwort muss Zahlen und Buchstaben enthalten!" + Me.Label5.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'frmChangePWD + ' + 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(383, 233) + Me.Controls.Add(Me.Label4) + Me.Controls.Add(Me.btnSpeichern) + Me.Controls.Add(Me.txtPwdNew2) + Me.Controls.Add(Me.Label2) + Me.Controls.Add(Me.txtPwdNew1) + Me.Controls.Add(Me.Label5) + Me.Controls.Add(Me.Label1) + Me.Controls.Add(Me.txtPwdOld) + Me.Controls.Add(Me.Label3) + Me.Controls.Add(Me.lbl) + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.Name = "frmChangePWD" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "Kassenbuch Passwort ändern" + Me.TopMost = True + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents lbl As System.Windows.Forms.Label + Friend WithEvents txtPwdNew1 As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents txtPwdNew2 As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents Label3 As System.Windows.Forms.Label + Friend WithEvents btnSpeichern As System.Windows.Forms.Button + Friend WithEvents Label4 As System.Windows.Forms.Label + Friend WithEvents Label5 As Label + Public WithEvents txtPwdOld As VERAG_PROG_ALLGEMEIN.MyTextBox +End Class diff --git a/SDL/frmChangePWD.resx b/SDL/frmChangePWD.resx new file mode 100644 index 00000000..d584bd9e --- /dev/null +++ b/SDL/frmChangePWD.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/frmChangePWD.vb b/SDL/frmChangePWD.vb new file mode 100644 index 00000000..2aa8a6fd --- /dev/null +++ b/SDL/frmChangePWD.vb @@ -0,0 +1,74 @@ +Public Class frmChangePWD + + Public PERSONAL As VERAG_PROG_ALLGEMEIN.cMitarbeiter = Nothing + + Sub New(PERSONAL As VERAG_PROG_ALLGEMEIN.cMitarbeiter) + InitializeComponent() + Me.PERSONAL = PERSONAL + If PERSONAL.mit_PasswortChanged Is Nothing Then + Label4.Visible = True + End If + End Sub + + Private Sub btnSpeichern_Click(sender As Object, e As EventArgs) Handles btnSpeichern.Click + If PERSONAL Is Nothing Then + MsgBox("Altes Passwort falsch!") + Exit Sub + Me.Close() + End If + + Me.DialogResult = Windows.Forms.DialogResult.None + If PERSONAL.mit_pwd <> txtPwdOld.Text Then + MsgBox("Altes Passwort falsch!") + Exit Sub + End If + + If txtPwdNew1.Text <> "" Then + If txtPwdNew1.Text = txtPwdNew2.Text Then + + If txtPwdNew1.Text = PERSONAL.mit_pwd Then + MsgBox("Das neue Passwort muss sich vom alten unterscheiden!") + Exit Sub + End If + + If txtPwdNew1.Text.Length <= 3 Then + MsgBox("Das Passwort muss mehr als 3 Zeichen haben!") + Exit Sub + End If + + Dim bool_zahl = False + Dim bool_text = False + For Each s In txtPwdNew1.Text + If IsNumeric(s) Then + bool_zahl = True + Else + bool_text = True + End If + Next + If Not bool_zahl Or Not bool_text Then + MsgBox("Das Passwort muss Zahlen und Buchstaben enthalten!") + Exit Sub + End If + + Dim sql As New VERAG_PROG_ALLGEMEIN.SQL + If sql.doSQL("UPDATE tblMitarbeiter SET mit_pwd='" & txtPwdNew1.Text & "', mit_PasswortChanged=GETDATE() WHERE mit_id = '" & PERSONAL.mit_id & "'", "ADMIN") Then + VERAG_PROG_ALLGEMEIN.cAllgemein.LOAD_DATA() 'Neu laden + Me.DialogResult = Windows.Forms.DialogResult.OK + End If + Else + MsgBox("Neue Passwörter stimmen nicht überein!") + Exit Sub + End If + End If + End Sub + + Private Sub txtPwdNew2_TextChanged(sender As Object, e As EventArgs) Handles txtPwdNew2.TextChanged + + End Sub + + Private Sub txtPwdNew2_KeyDown(sender As Object, e As KeyEventArgs) Handles txtPwdNew2.KeyDown + If e.KeyCode = Keys.Return Then + btnSpeichern.PerformClick() + End If + End Sub +End Class \ No newline at end of file diff --git a/SDL/frmLogin.vb b/SDL/frmLogin.vb index 3c77959d..4e465792 100644 --- a/SDL/frmLogin.vb +++ b/SDL/frmLogin.vb @@ -14,6 +14,16 @@ Private Sub btnLogin_Click(sender As Object, e As EventArgs) Handles btnLogin.Click If SDL.checkLogin(txtUser.Text, txtPwd.Text, "SDL") Then 'XXXXXX Or true + If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_PasswortChanged Is Nothing Then + Dim f As New frmChangePWD(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER) + f.txtPwdOld.Text = txtPwd.Text + f.txtPwdNew1.Focus() + If f.ShowDialog() <> Windows.Forms.DialogResult.OK Then + Exit Sub + End If + End If + + VERAG_PROG_ALLGEMEIN.cAllgemein.PROGNAME = "SDL" VERAG_PROG_ALLGEMEIN.cAllgemein.PROGVERSION = My.Resources.Version VERAG_PROG_ALLGEMEIN.cAllgemein.SESSION.LOGIN() @@ -24,6 +34,7 @@ Me.Close() End Sub frmMain.Show() + VERAG_PROG_ALLGEMEIN.cAllgemein.buildConnectionDATENARCHIV() Me.Hide() Else lblAlertTxt.Visible = True diff --git a/SDL/frmMain.Designer.vb b/SDL/frmMain.Designer.vb index 0ab7a6ff..2e75695e 100644 --- a/SDL/frmMain.Designer.vb +++ b/SDL/frmMain.Designer.vb @@ -33,6 +33,8 @@ Partial Class frmMain Me.LKWListeToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() Me.SDLAbholaufträgeToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.SchnittstellenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator() Me.AuswertungenToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem() Me.mnueZoll = New System.Windows.Forms.ToolStripMenuItem() Me.ArtikelTarifierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() @@ -93,8 +95,7 @@ Partial Class frmMain Me.cntxtZOLL = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() Me.AuswertungenToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() - Me.SchnittstellenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator() + Me.NeuesPasswortToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.pnlLeft.SuspendLayout() Me.MenuStripSDL.SuspendLayout() Me.Panel1.SuspendLayout() @@ -197,6 +198,17 @@ Partial Class frmMain Me.ToolStripSeparator1.Name = "ToolStripSeparator1" Me.ToolStripSeparator1.Size = New System.Drawing.Size(196, 6) ' + 'SchnittstellenToolStripMenuItem + ' + Me.SchnittstellenToolStripMenuItem.Name = "SchnittstellenToolStripMenuItem" + Me.SchnittstellenToolStripMenuItem.Size = New System.Drawing.Size(199, 22) + Me.SchnittstellenToolStripMenuItem.Text = "Schnittstellen" + ' + 'ToolStripSeparator2 + ' + Me.ToolStripSeparator2.Name = "ToolStripSeparator2" + Me.ToolStripSeparator2.Size = New System.Drawing.Size(196, 6) + ' 'AuswertungenToolStripMenuItem2 ' Me.AuswertungenToolStripMenuItem2.Name = "AuswertungenToolStripMenuItem2" @@ -221,19 +233,19 @@ Partial Class frmMain 'ArtikelTarifierenToolStripMenuItem ' Me.ArtikelTarifierenToolStripMenuItem.Name = "ArtikelTarifierenToolStripMenuItem" - Me.ArtikelTarifierenToolStripMenuItem.Size = New System.Drawing.Size(180, 22) + Me.ArtikelTarifierenToolStripMenuItem.Size = New System.Drawing.Size(158, 22) Me.ArtikelTarifierenToolStripMenuItem.Text = "Artikel tarifieren" ' 'SpeditionsbuchToolStripMenuItem ' Me.SpeditionsbuchToolStripMenuItem.Name = "SpeditionsbuchToolStripMenuItem" - Me.SpeditionsbuchToolStripMenuItem.Size = New System.Drawing.Size(180, 22) + Me.SpeditionsbuchToolStripMenuItem.Size = New System.Drawing.Size(158, 22) Me.SpeditionsbuchToolStripMenuItem.Text = "Speditionsbuch" ' 'AuswertungToolStripMenuItem ' Me.AuswertungToolStripMenuItem.Name = "AuswertungToolStripMenuItem" - Me.AuswertungToolStripMenuItem.Size = New System.Drawing.Size(180, 22) + Me.AuswertungToolStripMenuItem.Size = New System.Drawing.Size(158, 22) Me.AuswertungToolStripMenuItem.Text = "Auswertung" ' 'mnueBerichte @@ -566,7 +578,7 @@ Partial Class frmMain 'mnuProgramm ' Me.mnuProgramm.BackColor = System.Drawing.Color.Transparent - Me.mnuProgramm.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripSeparator4, Me.UpdateToolStripMenuItem, Me.TESTToolStripMenuItem}) + Me.mnuProgramm.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripSeparator4, Me.NeuesPasswortToolStripMenuItem, Me.UpdateToolStripMenuItem, Me.TESTToolStripMenuItem}) Me.mnuProgramm.ForeColor = System.Drawing.Color.Black Me.mnuProgramm.Name = "mnuProgramm" Me.mnuProgramm.Size = New System.Drawing.Size(78, 20) @@ -575,18 +587,18 @@ Partial Class frmMain 'ToolStripSeparator4 ' Me.ToolStripSeparator4.Name = "ToolStripSeparator4" - Me.ToolStripSeparator4.Size = New System.Drawing.Size(109, 6) + Me.ToolStripSeparator4.Size = New System.Drawing.Size(177, 6) ' 'UpdateToolStripMenuItem ' Me.UpdateToolStripMenuItem.Name = "UpdateToolStripMenuItem" - Me.UpdateToolStripMenuItem.Size = New System.Drawing.Size(112, 22) + Me.UpdateToolStripMenuItem.Size = New System.Drawing.Size(180, 22) Me.UpdateToolStripMenuItem.Text = "Update" ' 'TESTToolStripMenuItem ' Me.TESTToolStripMenuItem.Name = "TESTToolStripMenuItem" - Me.TESTToolStripMenuItem.Size = New System.Drawing.Size(112, 22) + Me.TESTToolStripMenuItem.Size = New System.Drawing.Size(180, 22) Me.TESTToolStripMenuItem.Text = "TEST" Me.TESTToolStripMenuItem.Visible = False ' @@ -814,16 +826,11 @@ Partial Class frmMain Me.AuswertungenToolStripMenuItem1.Size = New System.Drawing.Size(150, 24) Me.AuswertungenToolStripMenuItem1.Text = "Auswertungen" ' - 'SchnittstellenToolStripMenuItem + 'NeuesPasswortToolStripMenuItem ' - Me.SchnittstellenToolStripMenuItem.Name = "SchnittstellenToolStripMenuItem" - Me.SchnittstellenToolStripMenuItem.Size = New System.Drawing.Size(199, 22) - Me.SchnittstellenToolStripMenuItem.Text = "Schnittstellen" - ' - 'ToolStripSeparator2 - ' - Me.ToolStripSeparator2.Name = "ToolStripSeparator2" - Me.ToolStripSeparator2.Size = New System.Drawing.Size(196, 6) + Me.NeuesPasswortToolStripMenuItem.Name = "NeuesPasswortToolStripMenuItem" + Me.NeuesPasswortToolStripMenuItem.Size = New System.Drawing.Size(180, 22) + Me.NeuesPasswortToolStripMenuItem.Text = "Neues Passwort" ' 'frmMain ' @@ -930,4 +937,5 @@ Partial Class frmMain Public WithEvents lblVersion As Label Friend WithEvents SchnittstellenToolStripMenuItem As ToolStripMenuItem Friend WithEvents ToolStripSeparator2 As ToolStripSeparator + Friend WithEvents NeuesPasswortToolStripMenuItem As ToolStripMenuItem End Class diff --git a/SDL/frmMain.vb b/SDL/frmMain.vb index 72ca3c70..b0c1e2a8 100644 --- a/SDL/frmMain.vb +++ b/SDL/frmMain.vb @@ -769,6 +769,13 @@ Public Class frmMain Private Sub SchnittstellenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SchnittstellenToolStripMenuItem.Click End Sub + + Private Sub NeuesPasswortToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NeuesPasswortToolStripMenuItem.Click + Dim f As New frmChangePWD(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER) + If f.ShowDialog() = Windows.Forms.DialogResult.OK Then + MsgBox("Passwort geändert!", vbInformation) + End If + End Sub End Class Public Class MyRenderer diff --git a/SDL/kassenbuch/KassenbuchSuche/frmKassenbuchSuche.Designer.vb b/SDL/kassenbuch/KassenbuchSuche/frmKassenbuchSuche.Designer.vb index 0f9f70a0..21f4b1d8 100644 --- a/SDL/kassenbuch/KassenbuchSuche/frmKassenbuchSuche.Designer.vb +++ b/SDL/kassenbuch/KassenbuchSuche/frmKassenbuchSuche.Designer.vb @@ -1370,7 +1370,7 @@ Partial Class frmKassenbuchSuche Me.lblErgebnis.Name = "lblErgebnis" Me.lblErgebnis.Size = New System.Drawing.Size(215, 14) Me.lblErgebnis.TabIndex = 2 - Me.lblErgebnis.Text = "Ergebnise: 0" + Me.lblErgebnis.Text = "Ergebnisse: 0" Me.lblErgebnis.TextAlign = System.Drawing.ContentAlignment.TopRight ' 'Label22 diff --git a/SDL/kassenbuch/frmNacherfassungLeihgeld.vb b/SDL/kassenbuch/frmNacherfassungLeihgeld.vb index b0fb1b6d..b0747dde 100644 --- a/SDL/kassenbuch/frmNacherfassungLeihgeld.vb +++ b/SDL/kassenbuch/frmNacherfassungLeihgeld.vb @@ -565,7 +565,7 @@ Public Class frmNacherfassungLeihgeld If barcodeLKW IsNot Nothing Then VALUES.barcodeLKW = barcodeLKW If barcode IsNot Nothing Then VALUES.barcodeSendung = barcode - Dim rpt As New Gemeinsames.rptSendungen(VALUES, imgpath) + Dim rpt As New Gemeinsames.rptSendungen(VALUES, imgpath, Nothing) ' rpt.Document.CacheToDisk = True 'rpt.Document.CacheToDiskLocation = "C:\\Temp" ' rpt.Run() diff --git a/SDL/kunden/Vorauskasse/frmVorauskasse.Designer.vb b/SDL/kunden/Vorauskasse/frmVorauskasse.Designer.vb index 48191a17..61db07c2 100644 --- a/SDL/kunden/Vorauskasse/frmVorauskasse.Designer.vb +++ b/SDL/kunden/Vorauskasse/frmVorauskasse.Designer.vb @@ -805,7 +805,7 @@ Partial Class frmVorauskasse Me.lblErgebnis.Name = "lblErgebnis" Me.lblErgebnis.Size = New System.Drawing.Size(215, 14) Me.lblErgebnis.TabIndex = 66 - Me.lblErgebnis.Text = "Ergebnise: 0" + Me.lblErgebnis.Text = "Ergebnisse: 0" Me.lblErgebnis.TextAlign = System.Drawing.ContentAlignment.TopRight ' 'Label37 diff --git a/SDL/kunden/cKunden.vb b/SDL/kunden/cKunden.vb index ef066cd4..68fcb9a3 100644 --- a/SDL/kunden/cKunden.vb +++ b/SDL/kunden/cKunden.vb @@ -160,9 +160,10 @@ Public Class cPartnerKdNRFMZoll Property MautDE_MasterPIN As String Property MautDE_BenutzerNr As String 'Property MautAT_KartenNr As String - + Property PLOSE_KundenNr As String + End Class diff --git a/SDL/kunden/frmKundenSucheUebersicht.Designer.vb b/SDL/kunden/frmKundenSucheUebersicht.Designer.vb index 303f760c..13fa4738 100644 --- a/SDL/kunden/frmKundenSucheUebersicht.Designer.vb +++ b/SDL/kunden/frmKundenSucheUebersicht.Designer.vb @@ -615,7 +615,7 @@ Partial Class frmKundenSucheUebersicht Me.lblErgebnis.Name = "lblErgebnis" Me.lblErgebnis.Size = New System.Drawing.Size(215, 14) Me.lblErgebnis.TabIndex = 2 - Me.lblErgebnis.Text = "Ergebnise: 0" + Me.lblErgebnis.Text = "Ergebnisse: 0" Me.lblErgebnis.TextAlign = System.Drawing.ContentAlignment.TopRight ' 'Label22 diff --git a/SDL/kunden/frmKundenSucheUebersicht.vb b/SDL/kunden/frmKundenSucheUebersicht.vb index 40a5ab23..211f742a 100644 --- a/SDL/kunden/frmKundenSucheUebersicht.vb +++ b/SDL/kunden/frmKundenSucheUebersicht.vb @@ -47,10 +47,10 @@ Public Class frmKundenSucheUebersicht .Columns("Straße").MinimumWidth = 150 .Columns("Straße").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill .Columns("UstId").Width = 100 - - lblErgebnis.Text = "Ergebnise: " & .RowCount + + lblErgebnis.Text = "Ergebnisse: " & .RowCount End With Me.Cursor = Cursors.Default @@ -116,14 +116,20 @@ Public Class frmKundenSucheUebersicht 'ComboBox1.fillWithSQL("SELECT [Abfertigungsart],[Abfertigungsbezeichnung] FROM [Abfertigungsarten] ORDER BY Abfertigungsart ", True, "FMZOLL") Button4.PerformClick() - Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA - Case "IMEX" - cboFiliale._allowedValuesFreiText = {"5501"} - cboFiliale.changeItem("5501") - Case "ATILLA" - cboFiliale._allowedValuesFreiText = {"4801"} - cboFiliale.changeItem("4801") - End Select + If VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE <> "" Then + cboFiliale._allowedValuesFreiText = {VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE} + cboFiliale.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE) + cboFiliale.Enabled = False + End If + + 'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + ' Case "IMEX" + ' cboFiliale._allowedValuesFreiText = {"5501"} + ' cboFiliale.changeItem("5501") + ' Case "ATILLA" + ' cboFiliale._allowedValuesFreiText = {"4801"} + ' cboFiliale.changeItem("4801") + 'End Select If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", Me) Then diff --git a/SDL/kunden/frmKundenUebersichtZOLL.Designer.vb b/SDL/kunden/frmKundenUebersichtZOLL.Designer.vb index dab3b592..25c46a87 100644 --- a/SDL/kunden/frmKundenUebersichtZOLL.Designer.vb +++ b/SDL/kunden/frmKundenUebersichtZOLL.Designer.vb @@ -208,7 +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.UsrCntlOfferte1 = New SDL.usrCntlOfferte() Me.tbStatistik = New System.Windows.Forms.TabPage() Me.btnUbersicht = New System.Windows.Forms.Button() Me.Label27 = New System.Windows.Forms.Label() @@ -4115,7 +4115,7 @@ Partial Class frmKundenUebersichtZOLL Friend WithEvents BearbeitenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents AnDakosyÃœbertragenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents AufschubEORIBearbeitenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem - Friend WithEvents UsrCntlOfferte1 As c + Friend WithEvents UsrCntlOfferte1 As usrCntlOfferte Friend WithEvents tbKontakt As TabControl Friend WithEvents TabPage10 As TabPage Friend WithEvents TabPage11 As TabPage diff --git a/SDL/kunden/frmKundenUebersichtZOLL.vb b/SDL/kunden/frmKundenUebersichtZOLL.vb index 4ee01e00..be64c4df 100644 --- a/SDL/kunden/frmKundenUebersichtZOLL.vb +++ b/SDL/kunden/frmKundenUebersichtZOLL.vb @@ -740,11 +740,11 @@ Public Class frmKundenUebersichtZOLL With dgvVollmachten .Columns.Clear() - Dim where = "" - Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA - Case "IMEX" : where = " AND art.kdvma_Firma='IMEX' " - Case Else : where = " AND art.kdvma_Firma<>'IMEX' " - End Select + Dim where = " AND art.kdvma_Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' " + 'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + ' Case "IMEX" : where = " AND art.kdvma_Firma='IMEX' " + ' Case Else : where = " AND art.kdvma_Firma<>'IMEX' " + 'End Select .DataSource = SQL.loadDgvBySql("SELECT abf.kdvm_Id,art.kdvma_Id, art.kdvma_Bezeichnung, abf.[kdvm_KundenNr], abf.[kdvm_erhalten],abf.[kdvm_erhalten_Datum], abf.kdvm_datenarchivId,abf.kdvm_Info " & " FROM [tblKundenVollmachtenArt] as art LEFT JOIN (select * from [tblKundenVollmachten] where [kdvm_KundenNr]='" & kdNr & "' ) as abf on art.[kdvma_Id]=abf.[kdvm_kdvmaId] WHERE art.kdvma_visible=1 " & where & @@ -1164,7 +1164,7 @@ Public Class frmKundenUebersichtZOLL txtOPFaellig.ForeColor = Color.Black End If - If sumGes <> 0 Then txtOffenePosten.Text = sumGes.ToString("C") + If sumGes <> 0 Then txtOffenePosten.Text = sumGes.ToString("C") Else txtOffenePosten.Text = "" 'If sumGes > 0 Then ' txtOffenePosten.Text = sumGes.ToString("C") 'Else @@ -2152,16 +2152,16 @@ Public Class frmKundenUebersichtZOLL Private Sub ToolStripMenuItem7_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem9.Click - SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Gestellungsgarantie) + SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Gestellungsgarantie, kdNr, {}) End Sub Private Sub ZollvollmachtDEToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles toolStrVM_de.Click - SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.DE_Vollmacht) + SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.DE_Vollmacht, kdNr, {}) 'cFormularManager.fillVollmacht(-1, "ZVM_DE") End Sub Private Sub ToolStripMenuItem10_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem10.Click - SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Importaviso_VK) + SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Importaviso_VK, kdNr, {}) End Sub @@ -2171,47 +2171,47 @@ Public Class frmKundenUebersichtZOLL End Sub Private Sub ZollvollmachtDEFiskalToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ZollvollmachtDEFiskalToolStripMenuItem.Click - SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.DE_Fiskal, kdNr) + SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.DE_Fiskal, kdNr, {}) End Sub Private Sub ToolStripMenuItem6_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem6.Click - SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.AT_Vollmacht, kdNr) + SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.AT_Vollmacht, kdNr, {}) End Sub Private Sub ToolStripMenuItem8_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem8.Click - SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.AT_Fiskal, kdNr) + SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.AT_Fiskal, kdNr, {}) End Sub Private Sub ZollvollmachtATEVToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ZollvollmachtATEVToolStripMenuItem.Click - SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.AT_Vollmacht_EV, kdNr) + SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.AT_Vollmacht_EV, kdNr, {}) End Sub Private Sub ToolStripMenuItem11_Click(sender As Object, e As EventArgs) - SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Importaviso_VK, kdNr) + SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Importaviso_VK, kdNr, {}) End Sub Private Sub ToolStripMenuItem13_Click(sender As Object, e As EventArgs) - SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Importaviso_VK, kdNr) + SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Importaviso_VK, kdNr, {}) End Sub Private Sub ToolStripMenuItem14_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem14.Click - SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.DispoListe, kdNr) + SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.DispoListe, kdNr, {}) End Sub Private Sub ToolStripMenuItem16_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem16.Click - SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Verzollungspreise, kdNr) + SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Verzollungspreise, kdNr, {}) End Sub Private Sub VUBVERAGSpeditionAGToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VUBVERAGSpeditionAGToolStripMenuItem.Click - SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.VUB_AG, kdNr) + SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.VUB_AG, kdNr, {}) End Sub Private Sub VeragCustomsServiceToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VeragCustomsServiceToolStripMenuItem.Click - SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.VUB_CS, kdNr) + SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.VUB_CS, kdNr, {}) End Sub Private Sub ToolStripMenuItem19_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem19.Click - SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Boniteatsauskunft, kdNr) + SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Boniteatsauskunft, kdNr, {}) End Sub diff --git a/SDL/kunden/frmKundenblatt.Designer.vb b/SDL/kunden/frmKundenblatt.Designer.vb index 4716c16e..f25f667f 100644 --- a/SDL/kunden/frmKundenblatt.Designer.vb +++ b/SDL/kunden/frmKundenblatt.Designer.vb @@ -136,7 +136,7 @@ Partial Class frmKundenblatt Me.scanBankGarantie = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() Me.scanVertragVeragKd = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() Me.tbOfferte = New System.Windows.Forms.TabPage() - Me.UsrCntlOfferte1 = New SDL.c() + Me.UsrCntlOfferte1 = New SDL.usrCntlOfferte Me.cntxtExcel = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripMenuItem6 = New System.Windows.Forms.ToolStripMenuItem() @@ -2082,7 +2082,7 @@ Partial Class frmKundenblatt Friend WithEvents UsrcntlKundeBearbeitenFull1 As SDL.usrcntlKundeBearbeitenFull Friend WithEvents ToolStripMenuItem7 As System.Windows.Forms.ToolStripMenuItem Friend WithEvents tbOfferte As System.Windows.Forms.TabPage - Friend WithEvents UsrCntlOfferte1 As SDL.c + Friend WithEvents UsrCntlOfferte1 As SDL.usrCntlOfferte Friend WithEvents UsrCntlLKW1 As SDL.usrCntlLKW Friend WithEvents tbDokumente As System.Windows.Forms.TabPage Friend WithEvents Label3 As System.Windows.Forms.Label diff --git a/SDL/kunden/frmKundenblatt.vb b/SDL/kunden/frmKundenblatt.vb index 71c323ab..86daaa75 100644 --- a/SDL/kunden/frmKundenblatt.vb +++ b/SDL/kunden/frmKundenblatt.vb @@ -1182,6 +1182,8 @@ Public Class frmKundenblatt Case 212 : txtPartnerKdNr.Text = PartnerKdNrFromFMZOLL.UTAKundenNr 'UTA Case 101 : txtPartnerKdNr.Text = PartnerKdNrFromFMZOLL.WölflKundenNr 'WÖLFL Case 202 : txtPartnerKdNr.Text = PartnerKdNrFromFMZOLL.TELEPASS_Kd_Nr 'TELEPASS + Case 214, 215, 216 : txtPartnerKdNr.Text = PartnerKdNrFromFMZOLL.PLOSE_KundenNr 'PLOSE + Case 201 : grpMautDE.Visible = True : Panel2.Visible = False 'MAUT DE txtMautDE_FlottenPIN.Text = PartnerKdNrFromFMZOLL.MautDE_FlottenPIN 'MAUT DE txtMautDEMasterPIN.Text = PartnerKdNrFromFMZOLL.MautDE_MasterPIN 'MAUT DE @@ -1223,6 +1225,7 @@ Public Class frmKundenblatt 'gibt keine Einträge Case 202 : kundenSQL.setPartnerKdNrFromFMZOLL("TELEPASS-Kd-Nr", txtPartnerKdNr.Text, kdNr) 'TELEPASS kundenSQL.setPartnerKdNrSDL("TELEPASS-Kd-Nr", txtPartnerKdNr.Text, kdNr, sdlNrTmp) + Case 214, 215, 216 : kundenSQL.setPartnerKdNrFromFMZOLL("PLOSEKundenNr", txtPartnerKdNr.Text, kdNr) 'PLOSE Case 201 : kundenSQL.setPartnerKdNrFromFMZOLL_DE(kdNr, txtMautDE_FlottenPIN.Text, txtMautDEMasterPIN.Text, txtMautDE_BenutzerNr.Text) kundenSQL.setPartnerKdNrSDL("FlottenPIN", txtMautDE_FlottenPIN.Text, kdNr, sdlNrTmp) kundenSQL.setPartnerKdNrSDL("MasterPIN", txtMautDEMasterPIN.Text, kdNr, sdlNrTmp) diff --git a/SDL/kunden/frmLKW_AnhaengeDatenarchiv.vb b/SDL/kunden/frmLKW_AnhaengeDatenarchiv.vb index 1599c474..1c1d1cce 100644 --- a/SDL/kunden/frmLKW_AnhaengeDatenarchiv.vb +++ b/SDL/kunden/frmLKW_AnhaengeDatenarchiv.vb @@ -46,22 +46,29 @@ Public Class frmLKW_AnhaengeDatenarchiv Sub initList() - For Each l In LIST_LKW - Dim dt As DataTable = SQL.loadDgvBySql("Select da_name, (Select TOP 1 coll_pfad FROM [tblDatenarchiv_Collection] where coll_daid=da_Id And coll_archiv=0 order by coll_date desc) as coll_pfad + Try + + For Each l In LIST_LKW + Dim dt As DataTable = SQL.loadDgvBySql("Select da_name, (Select TOP 1 isnull(coll_pfad,'') as coll_pfad FROM [tblDatenarchiv_Collection] where coll_daid=da_Id And coll_archiv=0 order by coll_date desc) as coll_pfad From [tblDatenarchiv] Where da_KundenNr ='" & KdNr & "' AND da_kategorie='DOKUMENTE' and da_ordner='MDM' and da_uordner1='" & l & "' ", "FMZOLL") - Dim Zulassungsschein = "" - Dim CEMT = "" - Dim Leasing = "" - For Each r In dt.Rows - If r("da_name") = "Zulassungsschein" Then Zulassungsschein = r("coll_pfad") - If r("da_name") = "CEMT" Then CEMT = r("coll_pfad") - If r("da_name") = "Leasing-Vertrag" Then Leasing = r("coll_pfad") - Next + Dim Zulassungsschein = "" + Dim CEMT = "" + Dim Leasing = "" + For Each r In dt.Rows + If r("coll_pfad") IsNot DBNull.Value AndAlso r("coll_pfad") <> "" Then + If r("da_name") = "Zulassungsschein" Then Zulassungsschein = r("coll_pfad") + If r("da_name") = "CEMT" Then CEMT = r("coll_pfad") + If r("da_name") = "Leasing-Vertrag" Then Leasing = r("coll_pfad") + End If + Next - MyDatagridview1.Rows.Add(l, Zulassungsschein, CEMT, Leasing, (Zulassungsschein <> ""), (CEMT <> ""), (Leasing <> "")) - Next + MyDatagridview1.Rows.Add(l, Zulassungsschein, CEMT, Leasing, (Zulassungsschein <> ""), (CEMT <> ""), (Leasing <> "")) + Next + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try End Sub Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click diff --git a/SDL/kunden/frmNeuerKunde.vb b/SDL/kunden/frmNeuerKunde.vb index 04ebdc4e..58c3df55 100644 --- a/SDL/kunden/frmNeuerKunde.vb +++ b/SDL/kunden/frmNeuerKunde.vb @@ -20,6 +20,14 @@ ComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("1000000-1099999: IMEX", "1000000-1099990")) ComboBox2.changeItem("1000000-1099990") ComboBox1.changeItem("5501") + Case "UNISPED" + ComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("2000000-2099999: UNISPED", "2000000-2099990")) + ComboBox2.changeItem("2000000-2099990") + ComboBox1.changeItem("5601") + Case "AMBAR" + ComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("3000000-3099999: AMBAR", "3000000-3099990")) + ComboBox2.changeItem("3000000-3099990") + ComboBox1.changeItem("5701") 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/usrCntlLKW.vb b/SDL/kunden/usrCntlLKW.vb index 72e29233..1e3e16bf 100644 --- a/SDL/kunden/usrCntlLKW.vb +++ b/SDL/kunden/usrCntlLKW.vb @@ -401,6 +401,35 @@ Public Class usrCntlLKW AddHandler usrcntl.CHANGED, Sub(kdNr, newKfz, SDLNr, History) doChange(kdNr, newKfz, SDLNr, History) End Sub + ElseIf dgvSDLLeistungen.SelectedRows(0).Cells(2).Value = 214 Then ' PLOSE + Dim usrcntl As New usrCntlSDLLeistungPLOSE(dgvSDLLeistungen.SelectedRows(0).Cells(0).Value, dgvSDLLeistungen.SelectedRows(0).Cells(1).Value, dgvSDLLeistungen.SelectedRows(0).Cells(2).Value, dgvSDLLeistungen.SelectedRows(0).Cells(3).Value) + pnlSDLLeistungenDetails.Controls.Add(usrcntl) + AddHandler usrcntl.LKWChanged, Sub(kdNr, newKfz, SDLNr, History) + RaiseEvent LKWChanged(kdNr, newKfz, SDLNr, History) + End Sub + AddHandler usrcntl.CHANGED, Sub(kdNr, newKfz, SDLNr, History) + doChange(kdNr, newKfz, SDLNr, History) + End Sub + + ElseIf dgvSDLLeistungen.SelectedRows(0).Cells(2).Value = 215 Then ' PLOSE IT + Dim usrcntl As New usrCntlSDLLeistungenPLOSE_IT(dgvSDLLeistungen.SelectedRows(0).Cells(0).Value, dgvSDLLeistungen.SelectedRows(0).Cells(1).Value, dgvSDLLeistungen.SelectedRows(0).Cells(2).Value, dgvSDLLeistungen.SelectedRows(0).Cells(3).Value) + pnlSDLLeistungenDetails.Controls.Add(usrcntl) + AddHandler usrcntl.LKWChanged, Sub(kdNr, newKfz, SDLNr, History) + RaiseEvent LKWChanged(kdNr, newKfz, SDLNr, History) + End Sub + AddHandler usrcntl.CHANGED, Sub(kdNr, newKfz, SDLNr, History) + doChange(kdNr, newKfz, SDLNr, History) + End Sub + + ElseIf dgvSDLLeistungen.SelectedRows(0).Cells(2).Value = 216 Then ' PLOSE CZ + Dim usrcntl As New usrCntlSDLLeistungenPLOSE_CZ(dgvSDLLeistungen.SelectedRows(0).Cells(0).Value, dgvSDLLeistungen.SelectedRows(0).Cells(1).Value, dgvSDLLeistungen.SelectedRows(0).Cells(2).Value, dgvSDLLeistungen.SelectedRows(0).Cells(3).Value) + pnlSDLLeistungenDetails.Controls.Add(usrcntl) + AddHandler usrcntl.LKWChanged, Sub(kdNr, newKfz, SDLNr, History) + RaiseEvent LKWChanged(kdNr, newKfz, SDLNr, History) + End Sub + AddHandler usrcntl.CHANGED, Sub(kdNr, newKfz, SDLNr, History) + doChange(kdNr, newKfz, SDLNr, History) + End Sub ElseIf dgvSDLLeistungen.SelectedRows(0).Cells(2).Value = 500 Then ' MAN diff --git a/SDL/kunden/usrCntlOfferte.Designer.vb b/SDL/kunden/usrCntlOfferte.Designer.vb index c1a224ea..ba275b62 100644 --- a/SDL/kunden/usrCntlOfferte.Designer.vb +++ b/SDL/kunden/usrCntlOfferte.Designer.vb @@ -1,9 +1,9 @@ - _ -Partial Class c + +Partial Class usrCntlOfferte 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,11 +20,11 @@ Partial Class c '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.components = New System.ComponentModel.Container() - 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 DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Me.lblBesonderheiten = New System.Windows.Forms.Label() Me.rtbBesonderheiten = New System.Windows.Forms.RichTextBox() Me.lblOffert = New System.Windows.Forms.TextBox() @@ -57,6 +57,7 @@ Partial Class c Me.Label3 = New System.Windows.Forms.Label() Me.CheckVatService1 = New SDL.eu.europa.ec.checkVatService() Me.FlatButton3 = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.cbxAutoFakturierung = New System.Windows.Forms.CheckBox() CType(Me.dgvOfferteDetails, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.dgvOfferte, System.ComponentModel.ISupportInitialize).BeginInit() Me.cntxtAddSdl.SuspendLayout() @@ -113,8 +114,8 @@ Partial Class c Me.dgvOfferteDetails.AllowUserToDeleteRows = False Me.dgvOfferteDetails.AllowUserToOrderColumns = True Me.dgvOfferteDetails.AllowUserToResizeRows = False - DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvOfferteDetails.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3 + DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvOfferteDetails.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1 Me.dgvOfferteDetails.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) @@ -134,8 +135,8 @@ Partial Class c Me.dgvOfferte.AllowUserToDeleteRows = False Me.dgvOfferte.AllowUserToOrderColumns = True Me.dgvOfferte.AllowUserToResizeRows = False - DataGridViewCellStyle4.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvOfferte.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4 + DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvOfferte.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2 Me.dgvOfferte.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) Me.dgvOfferte.BackgroundColor = System.Drawing.Color.White @@ -200,7 +201,7 @@ Partial Class c 'Button1 ' Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) - Me.Button1.BackgroundImage = Global.SDL.My.Resources.del + Me.Button1.BackgroundImage = Global.SDL.My.Resources.Resources.del Me.Button1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button1.Location = New System.Drawing.Point(348, 226) @@ -213,7 +214,7 @@ Partial Class c 'btn ' Me.btn.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) - Me.btn.BackgroundImage = Global.SDL.My.Resources.plus + Me.btn.BackgroundImage = Global.SDL.My.Resources.Resources.plus Me.btn.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btn.Location = New System.Drawing.Point(375, 226) @@ -240,7 +241,7 @@ Partial Class c Me.btnOfferteSpeichern.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.btnOfferteSpeichern.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnOfferteSpeichern.ForeColor = System.Drawing.Color.Black - Me.btnOfferteSpeichern.Image = Global.SDL.My.Resources.save + Me.btnOfferteSpeichern.Image = Global.SDL.My.Resources.Resources.save Me.btnOfferteSpeichern.ImageAlign = System.Drawing.ContentAlignment.TopLeft Me.btnOfferteSpeichern.Location = New System.Drawing.Point(513, 0) Me.btnOfferteSpeichern.Name = "btnOfferteSpeichern" @@ -254,7 +255,7 @@ Partial Class c ' Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button2.ForeColor = System.Drawing.Color.Black - Me.Button2.Image = Global.SDL.My.Resources.plus + Me.Button2.Image = Global.SDL.My.Resources.Resources.plus Me.Button2.ImageAlign = System.Drawing.ContentAlignment.TopLeft Me.Button2.Location = New System.Drawing.Point(235, 1) Me.Button2.Name = "Button2" @@ -388,7 +389,7 @@ Partial Class c 'FlatButton2 ' Me.FlatButton2.allowBorder = False - Me.FlatButton2.BackgroundImage = Global.SDL.My.Resources.stift + Me.FlatButton2.BackgroundImage = Global.SDL.My.Resources.Resources.stift Me.FlatButton2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.FlatButton2.FlatAppearance.BorderSize = 0 Me.FlatButton2.FlatStyle = System.Windows.Forms.FlatStyle.Flat @@ -403,7 +404,7 @@ Partial Class c 'FlatButton1 ' Me.FlatButton1.allowBorder = False - Me.FlatButton1.BackgroundImage = Global.SDL.My.Resources.stift + Me.FlatButton1.BackgroundImage = Global.SDL.My.Resources.Resources.stift Me.FlatButton1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.FlatButton1.FlatAppearance.BorderSize = 0 Me.FlatButton1.FlatStyle = System.Windows.Forms.FlatStyle.Flat @@ -465,6 +466,7 @@ Partial Class c ' Me.pnlEdit.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.pnlEdit.Controls.Add(Me.cbxAutoFakturierung) Me.pnlEdit.Controls.Add(Me.Label3) Me.pnlEdit.Controls.Add(Me.Label1) Me.pnlEdit.Controls.Add(Me.Button2) @@ -499,7 +501,7 @@ Partial Class c 'FlatButton3 ' Me.FlatButton3.allowBorder = False - Me.FlatButton3.BackgroundImage = Global.SDL.My.Resources.del_small + Me.FlatButton3.BackgroundImage = Global.SDL.My.Resources.Resources.del_small Me.FlatButton3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.FlatButton3.FlatAppearance.BorderSize = 0 Me.FlatButton3.FlatStyle = System.Windows.Forms.FlatStyle.Flat @@ -511,6 +513,18 @@ Partial Class c Me.FlatButton3.UseVisualStyleBackColor = True Me.FlatButton3.Visible = False ' + 'cbxAutoFakturierung + ' + Me.cbxAutoFakturierung.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.cbxAutoFakturierung.AutoSize = True + Me.cbxAutoFakturierung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cbxAutoFakturierung.Location = New System.Drawing.Point(389, 6) + Me.cbxAutoFakturierung.Name = "cbxAutoFakturierung" + Me.cbxAutoFakturierung.Size = New System.Drawing.Size(118, 17) + Me.cbxAutoFakturierung.TabIndex = 32 + Me.cbxAutoFakturierung.Text = "AUTO Fakturierung" + Me.cbxAutoFakturierung.UseVisualStyleBackColor = True + ' 'c ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -577,4 +591,5 @@ Partial Class c Friend WithEvents CheckVatService1 As eu.europa.ec.checkVatService Friend WithEvents Label3 As Label Friend WithEvents FlatButton3 As VERAG_PROG_ALLGEMEIN.FlatButton + Friend WithEvents cbxAutoFakturierung As CheckBox End Class diff --git a/SDL/kunden/usrCntlOfferte.vb b/SDL/kunden/usrCntlOfferte.vb index e79dd6fc..c8b0ac70 100644 --- a/SDL/kunden/usrCntlOfferte.vb +++ b/SDL/kunden/usrCntlOfferte.vb @@ -1,9 +1,9 @@ -Public Class c +Public Class usrCntlOfferte Dim FUNC As New cProgramFunctions Public kdNr As Integer = -1 Dim SQL As New SQL - + Public KD_ERW As VERAG_PROG_ALLGEMEIN.cKundenErweitert Public Event OfferteChanged() @@ -26,6 +26,9 @@ Public Sub init(kdNr) Me.kdNr = kdNr initDGVOfferte() + + KD_ERW = New VERAG_PROG_ALLGEMEIN.cKundenErweitert(kdNr) + cbxAutoFakturierung.Checked = KD_ERW.AutoFakturierung End Sub Sub initDGVOfferte() dgvOfferteDetails.Columns.Clear() @@ -49,7 +52,7 @@ Try OFFERTEBind = New cEasyBinding(BIND_DB) - OFFERTEBind.initBinding(" SELECT [LeistungsNr],[LeistungsBez],[BerechnungsartNr],[Preis],[Anzahl],[BGebLeistungsNr],[BGebProzent],[BGebMinBetrag],[Eingegeben am],[Geändert am],[Sachbearbeiter],[PreisänderungProzent],[PreisAlt],[Preisänderung],KundenNr,OffertenNr " & + OFFERTEBind.initBinding(" SELECT [LeistungsNr],[LeistungsBez],[BerechnungsartNr],[Preis],[Anzahl],[BGebLeistungsNr],[BGebProzent],[BGebMinBetrag],BerechnungsartPosInkludiert,[Eingegeben am],[Geändert am],[Sachbearbeiter],[PreisänderungProzent],[PreisAlt],[Preisänderung],KundenNr,OffertenNr " & " FROM [Offertenpositionen] " & " WHERE KundenNr='" & kdNr & "' and OffertenNr='" & OffertenNr & "' ORDER BY LeistungsNr, Preis DESC", "Offertenpositionen") For Each c As DataColumn In OFFERTEBind.bindingdataTable.Columns @@ -82,7 +85,7 @@ Next Else For Each c As DataGridViewColumn In .Columns - If (c.Name = "Preis" Or c.Name = "LeistungsBez" Or c.Name = "Anzahl" Or c.Name = "BerechnungsartNr") Then + If (c.Name = "Preis" Or c.Name = "LeistungsBez" Or c.Name = "Anzahl" Or c.Name = "BerechnungsartNr" Or c.Name = "BerechnungsartPosInkludiert") Then c.ReadOnly = False Else c.ReadOnly = True @@ -103,6 +106,10 @@ .Columns("Preis").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight .Columns("Anzahl").Width = 50 .Columns("Anzahl").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter + + .Columns("BerechnungsartPosInkludiert").HeaderText = "Pos.inkl." + .Columns("BerechnungsartPosInkludiert").Width = 45 + .Columns("BGebLeistungsNr").Width = 60 .Columns("BGebProzent").Width = 55 .Columns("BGebProzent").HeaderText = "BGeb %" @@ -230,6 +237,9 @@ End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles btnOfferteSpeichern.Click + KD_ERW.AutoFakturierung = cbxAutoFakturierung.Checked + KD_ERW.SAVE() + OFFERTEBind.updateBinding() RaiseEvent OfferteChanged() End Sub diff --git a/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb b/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb index 5bafc489..d62d58d8 100644 --- a/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb +++ b/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb @@ -22,15 +22,15 @@ Partial Class usrcntlKundeBearbeitenFull 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. Private Sub InitializeComponent() - 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 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 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() + Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Me.tbcntrDetails = New System.Windows.Forms.TabControl() Me.tbAbfertigung = New System.Windows.Forms.TabPage() Me.tbcntrAbf = New System.Windows.Forms.TabControl() @@ -76,6 +76,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.rtbAbf_Besonderheiten = New System.Windows.Forms.RichTextBox() Me.tbFiskal = New System.Windows.Forms.TabPage() Me.tbVerrechnung = New System.Windows.Forms.TabPage() + Me.cbxAutoFakturierung = New System.Windows.Forms.CheckBox() Me.txtAbf_Zahlungsziel3 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtAbf_Zahlungsziel2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label36 = New System.Windows.Forms.Label() @@ -111,6 +112,11 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtAbf_Vorlageprovision = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtAbf_Zahlungsziel = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.tbVersicherung = New System.Windows.Forms.TabPage() + Me.Label81 = New System.Windows.Forms.Label() + Me.Label82 = New System.Windows.Forms.Label() + Me.cbxInkassoUebergeben = New System.Windows.Forms.CheckBox() + Me.txtInkasso_GemeldeterBetrag = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtInkassoUebergebenAm = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label1 = New System.Windows.Forms.Label() Me.txtVers_EHNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label35 = New System.Windows.Forms.Label() @@ -281,6 +287,8 @@ Partial Class usrcntlKundeBearbeitenFull Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.cbxFiBu = New System.Windows.Forms.CheckBox() Me.cbxFiBuLG = New System.Windows.Forms.CheckBox() + Me.txtSonst_KdNrPLOSE = New System.Windows.Forms.TextBox() + Me.Label83 = New System.Windows.Forms.Label() Me.tbcntrDetails.SuspendLayout() Me.tbAbfertigung.SuspendLayout() Me.tbcntrAbf.SuspendLayout() @@ -878,6 +886,7 @@ Partial Class usrcntlKundeBearbeitenFull ' 'tbVerrechnung ' + Me.tbVerrechnung.Controls.Add(Me.cbxAutoFakturierung) Me.tbVerrechnung.Controls.Add(Me.txtAbf_Zahlungsziel3) Me.tbVerrechnung.Controls.Add(Me.txtAbf_Zahlungsziel2) Me.tbVerrechnung.Controls.Add(Me.Label36) @@ -919,6 +928,17 @@ Partial Class usrcntlKundeBearbeitenFull Me.tbVerrechnung.Text = "Verrechnung" Me.tbVerrechnung.UseVisualStyleBackColor = True ' + 'cbxAutoFakturierung + ' + Me.cbxAutoFakturierung.AutoSize = True + Me.cbxAutoFakturierung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cbxAutoFakturierung.Location = New System.Drawing.Point(417, 118) + Me.cbxAutoFakturierung.Name = "cbxAutoFakturierung" + Me.cbxAutoFakturierung.Size = New System.Drawing.Size(118, 17) + Me.cbxAutoFakturierung.TabIndex = 31 + Me.cbxAutoFakturierung.Text = "AUTO Fakturierung" + Me.cbxAutoFakturierung.UseVisualStyleBackColor = True + ' 'txtAbf_Zahlungsziel3 ' Me.txtAbf_Zahlungsziel3._DateTimeOnly = False @@ -1424,6 +1444,11 @@ Partial Class usrcntlKundeBearbeitenFull ' 'tbVersicherung ' + Me.tbVersicherung.Controls.Add(Me.Label81) + Me.tbVersicherung.Controls.Add(Me.Label82) + Me.tbVersicherung.Controls.Add(Me.cbxInkassoUebergeben) + Me.tbVersicherung.Controls.Add(Me.txtInkasso_GemeldeterBetrag) + Me.tbVersicherung.Controls.Add(Me.txtInkassoUebergebenAm) Me.tbVersicherung.Controls.Add(Me.Label1) Me.tbVersicherung.Controls.Add(Me.txtVers_EHNr) Me.tbVersicherung.Controls.Add(Me.Label35) @@ -1474,6 +1499,81 @@ Partial Class usrcntlKundeBearbeitenFull Me.tbVersicherung.Text = "Versicherung" Me.tbVersicherung.UseVisualStyleBackColor = True ' + 'Label81 + ' + Me.Label81.AutoSize = True + Me.Label81.Location = New System.Drawing.Point(419, 168) + Me.Label81.Name = "Label81" + Me.Label81.Size = New System.Drawing.Size(98, 13) + Me.Label81.TabIndex = 45 + Me.Label81.Text = "Gemeldeter Betrag:" + ' + 'Label82 + ' + Me.Label82.AutoSize = True + Me.Label82.Location = New System.Drawing.Point(311, 168) + Me.Label82.Name = "Label82" + Me.Label82.Size = New System.Drawing.Size(24, 13) + Me.Label82.TabIndex = 43 + Me.Label82.Text = "am:" + ' + 'cbxInkassoUebergeben + ' + Me.cbxInkassoUebergeben.AutoSize = True + Me.cbxInkassoUebergeben.Location = New System.Drawing.Point(159, 167) + Me.cbxInkassoUebergeben.Name = "cbxInkassoUebergeben" + Me.cbxInkassoUebergeben.Size = New System.Drawing.Size(156, 17) + Me.cbxInkassoUebergeben.TabIndex = 42 + Me.cbxInkassoUebergeben.Text = "Acredia Inkasso übergeben" + Me.cbxInkassoUebergeben.UseVisualStyleBackColor = True + ' + 'txtInkasso_GemeldeterBetrag + ' + Me.txtInkasso_GemeldeterBetrag._DateTimeOnly = False + Me.txtInkasso_GemeldeterBetrag._numbersOnly = False + Me.txtInkasso_GemeldeterBetrag._numbersOnlyKommastellen = "" + Me.txtInkasso_GemeldeterBetrag._Prozent = False + Me.txtInkasso_GemeldeterBetrag._ShortDateNew = False + Me.txtInkasso_GemeldeterBetrag._ShortDateOnly = False + Me.txtInkasso_GemeldeterBetrag._TimeOnly = False + Me.txtInkasso_GemeldeterBetrag._value = "" + Me.txtInkasso_GemeldeterBetrag._Waehrung = True + Me.txtInkasso_GemeldeterBetrag._WaehrungZeichen = True + Me.txtInkasso_GemeldeterBetrag.ForeColor = System.Drawing.Color.Red + Me.txtInkasso_GemeldeterBetrag.Location = New System.Drawing.Point(523, 165) + Me.txtInkasso_GemeldeterBetrag.MaxLength = 10 + Me.txtInkasso_GemeldeterBetrag.MaxLineLength = -1 + Me.txtInkasso_GemeldeterBetrag.MaxLines_Warning = "" + Me.txtInkasso_GemeldeterBetrag.MaxLines_Warning_Label = Nothing + Me.txtInkasso_GemeldeterBetrag.Name = "txtInkasso_GemeldeterBetrag" + Me.txtInkasso_GemeldeterBetrag.Size = New System.Drawing.Size(70, 20) + Me.txtInkasso_GemeldeterBetrag.TabIndex = 46 + Me.txtInkasso_GemeldeterBetrag.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + 'txtInkassoUebergebenAm + ' + Me.txtInkassoUebergebenAm._DateTimeOnly = False + Me.txtInkassoUebergebenAm._numbersOnly = False + Me.txtInkassoUebergebenAm._numbersOnlyKommastellen = "" + Me.txtInkassoUebergebenAm._Prozent = False + Me.txtInkassoUebergebenAm._ShortDateNew = True + Me.txtInkassoUebergebenAm._ShortDateOnly = False + Me.txtInkassoUebergebenAm._TimeOnly = False + Me.txtInkassoUebergebenAm._value = "" + Me.txtInkassoUebergebenAm._Waehrung = False + Me.txtInkassoUebergebenAm._WaehrungZeichen = True + Me.txtInkassoUebergebenAm.Enabled = False + Me.txtInkassoUebergebenAm.ForeColor = System.Drawing.Color.Red + Me.txtInkassoUebergebenAm.Location = New System.Drawing.Point(341, 165) + Me.txtInkassoUebergebenAm.MaxLength = 10 + Me.txtInkassoUebergebenAm.MaxLineLength = -1 + Me.txtInkassoUebergebenAm.MaxLines_Warning = "" + Me.txtInkassoUebergebenAm.MaxLines_Warning_Label = Nothing + Me.txtInkassoUebergebenAm.Name = "txtInkassoUebergebenAm" + Me.txtInkassoUebergebenAm.Size = New System.Drawing.Size(60, 20) + Me.txtInkassoUebergebenAm.TabIndex = 44 + Me.txtInkassoUebergebenAm.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' 'Label1 ' Me.Label1.AutoSize = True @@ -1612,7 +1712,7 @@ Partial Class usrcntlKundeBearbeitenFull 'Label61 ' Me.Label61.AutoSize = True - Me.Label61.Location = New System.Drawing.Point(6, 295) + Me.Label61.Location = New System.Drawing.Point(3, 330) Me.Label61.Name = "Label61" Me.Label61.Size = New System.Drawing.Size(62, 13) Me.Label61.TabIndex = 38 @@ -1620,16 +1720,16 @@ Partial Class usrcntlKundeBearbeitenFull ' 'txtVers_Information ' - Me.txtVers_Information.Location = New System.Drawing.Point(6, 314) + Me.txtVers_Information.Location = New System.Drawing.Point(6, 346) Me.txtVers_Information.Name = "txtVers_Information" - Me.txtVers_Information.Size = New System.Drawing.Size(660, 125) + Me.txtVers_Information.Size = New System.Drawing.Size(660, 93) Me.txtVers_Information.TabIndex = 39 Me.txtVers_Information.Text = "" ' 'Label59 ' Me.Label59.AutoSize = True - Me.Label59.Location = New System.Drawing.Point(284, 234) + Me.Label59.Location = New System.Drawing.Point(281, 269) Me.Label59.Name = "Label59" Me.Label59.Size = New System.Drawing.Size(51, 13) Me.Label59.TabIndex = 34 @@ -1638,7 +1738,7 @@ Partial Class usrcntlKundeBearbeitenFull 'Label57 ' Me.Label57.AutoSize = True - Me.Label57.Location = New System.Drawing.Point(305, 208) + Me.Label57.Location = New System.Drawing.Point(302, 243) Me.Label57.Name = "Label57" Me.Label57.Size = New System.Drawing.Size(30, 13) Me.Label57.TabIndex = 30 @@ -1657,7 +1757,7 @@ Partial Class usrcntlKundeBearbeitenFull ' Me.Label60.AutoSize = True Me.Label60.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label60.Location = New System.Drawing.Point(6, 260) + Me.Label60.Location = New System.Drawing.Point(3, 295) Me.Label60.Name = "Label60" Me.Label60.Size = New System.Drawing.Size(73, 13) Me.Label60.TabIndex = 36 @@ -1667,7 +1767,7 @@ Partial Class usrcntlKundeBearbeitenFull ' Me.Label58.AutoSize = True Me.Label58.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label58.Location = New System.Drawing.Point(7, 234) + Me.Label58.Location = New System.Drawing.Point(4, 269) Me.Label58.Name = "Label58" Me.Label58.Size = New System.Drawing.Size(103, 13) Me.Label58.TabIndex = 32 @@ -1676,7 +1776,7 @@ Partial Class usrcntlKundeBearbeitenFull 'Label53 ' Me.Label53.AutoSize = True - Me.Label53.Location = New System.Drawing.Point(305, 182) + Me.Label53.Location = New System.Drawing.Point(302, 217) Me.Label53.Name = "Label53" Me.Label53.Size = New System.Drawing.Size(30, 13) Me.Label53.TabIndex = 26 @@ -1686,7 +1786,7 @@ Partial Class usrcntlKundeBearbeitenFull ' Me.Label56.AutoSize = True Me.Label56.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label56.Location = New System.Drawing.Point(7, 208) + Me.Label56.Location = New System.Drawing.Point(4, 243) Me.Label56.Name = "Label56" Me.Label56.Size = New System.Drawing.Size(87, 13) Me.Label56.TabIndex = 28 @@ -1706,7 +1806,7 @@ Partial Class usrcntlKundeBearbeitenFull ' Me.Label52.AutoSize = True Me.Label52.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label52.Location = New System.Drawing.Point(7, 182) + Me.Label52.Location = New System.Drawing.Point(4, 217) Me.Label52.Name = "Label52" Me.Label52.Size = New System.Drawing.Size(79, 13) Me.Label52.TabIndex = 24 @@ -1900,7 +2000,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtVers_BankgarantiebetragGueltigBis._Waehrung = False Me.txtVers_BankgarantiebetragGueltigBis._WaehrungZeichen = True Me.txtVers_BankgarantiebetragGueltigBis.ForeColor = System.Drawing.Color.Red - Me.txtVers_BankgarantiebetragGueltigBis.Location = New System.Drawing.Point(341, 231) + Me.txtVers_BankgarantiebetragGueltigBis.Location = New System.Drawing.Point(338, 266) Me.txtVers_BankgarantiebetragGueltigBis.MaxLength = 10 Me.txtVers_BankgarantiebetragGueltigBis.MaxLineLength = -1 Me.txtVers_BankgarantiebetragGueltigBis.MaxLines_Warning = "" @@ -1923,7 +2023,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtVers_KreditlimitVon._Waehrung = False Me.txtVers_KreditlimitVon._WaehrungZeichen = True Me.txtVers_KreditlimitVon.ForeColor = System.Drawing.Color.Red - Me.txtVers_KreditlimitVon.Location = New System.Drawing.Point(341, 205) + Me.txtVers_KreditlimitVon.Location = New System.Drawing.Point(338, 240) Me.txtVers_KreditlimitVon.MaxLength = 10 Me.txtVers_KreditlimitVon.MaxLineLength = -1 Me.txtVers_KreditlimitVon.MaxLines_Warning = "" @@ -1946,7 +2046,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtVers_Saldo._Waehrung = True Me.txtVers_Saldo._WaehrungZeichen = True Me.txtVers_Saldo.ForeColor = System.Drawing.Color.Red - Me.txtVers_Saldo.Location = New System.Drawing.Point(158, 257) + Me.txtVers_Saldo.Location = New System.Drawing.Point(156, 292) Me.txtVers_Saldo.MaxLineLength = -1 Me.txtVers_Saldo.MaxLines_Warning = "" Me.txtVers_Saldo.MaxLines_Warning_Label = Nothing @@ -1991,7 +2091,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtVers_Bankgarantiebetrag._Waehrung = True Me.txtVers_Bankgarantiebetrag._WaehrungZeichen = True Me.txtVers_Bankgarantiebetrag.ForeColor = System.Drawing.Color.Red - Me.txtVers_Bankgarantiebetrag.Location = New System.Drawing.Point(159, 231) + Me.txtVers_Bankgarantiebetrag.Location = New System.Drawing.Point(156, 266) Me.txtVers_Bankgarantiebetrag.MaxLineLength = -1 Me.txtVers_Bankgarantiebetrag.MaxLines_Warning = "" Me.txtVers_Bankgarantiebetrag.MaxLines_Warning_Label = Nothing @@ -2013,7 +2113,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtVers_Kreditlimit._Waehrung = True Me.txtVers_Kreditlimit._WaehrungZeichen = True Me.txtVers_Kreditlimit.ForeColor = System.Drawing.Color.Red - Me.txtVers_Kreditlimit.Location = New System.Drawing.Point(159, 205) + Me.txtVers_Kreditlimit.Location = New System.Drawing.Point(156, 240) Me.txtVers_Kreditlimit.MaxLineLength = -1 Me.txtVers_Kreditlimit.MaxLines_Warning = "" Me.txtVers_Kreditlimit.MaxLines_Warning_Label = Nothing @@ -2035,7 +2135,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtVers_AntragssummeVon._Waehrung = False Me.txtVers_AntragssummeVon._WaehrungZeichen = True Me.txtVers_AntragssummeVon.ForeColor = System.Drawing.Color.Red - Me.txtVers_AntragssummeVon.Location = New System.Drawing.Point(341, 179) + Me.txtVers_AntragssummeVon.Location = New System.Drawing.Point(338, 214) Me.txtVers_AntragssummeVon.MaxLength = 10 Me.txtVers_AntragssummeVon.MaxLineLength = -1 Me.txtVers_AntragssummeVon.MaxLines_Warning = "" @@ -2080,7 +2180,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtVers_Antragssumme._Waehrung = True Me.txtVers_Antragssumme._WaehrungZeichen = True Me.txtVers_Antragssumme.ForeColor = System.Drawing.Color.Red - Me.txtVers_Antragssumme.Location = New System.Drawing.Point(159, 179) + Me.txtVers_Antragssumme.Location = New System.Drawing.Point(156, 214) Me.txtVers_Antragssumme.MaxLineLength = -1 Me.txtVers_Antragssumme.MaxLines_Warning = "" Me.txtVers_Antragssumme.MaxLines_Warning_Label = Nothing @@ -2138,8 +2238,8 @@ Partial Class usrcntlKundeBearbeitenFull Me.dgvUmsatzbericht.AllowUserToDeleteRows = False Me.dgvUmsatzbericht.AllowUserToOrderColumns = True Me.dgvUmsatzbericht.AllowUserToResizeRows = False - DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvUmsatzbericht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1 + DataGridViewCellStyle11.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvUmsatzbericht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle11 Me.dgvUmsatzbericht.BackgroundColor = System.Drawing.Color.White Me.dgvUmsatzbericht.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvUmsatzbericht.Location = New System.Drawing.Point(6, 25) @@ -2236,8 +2336,8 @@ Partial Class usrcntlKundeBearbeitenFull Me.dgvOffenePosten.AllowUserToDeleteRows = False Me.dgvOffenePosten.AllowUserToOrderColumns = True Me.dgvOffenePosten.AllowUserToResizeRows = False - 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 + DataGridViewCellStyle12.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvOffenePosten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle12 Me.dgvOffenePosten.BackgroundColor = System.Drawing.Color.White Me.dgvOffenePosten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvOffenePosten.Location = New System.Drawing.Point(6, 38) @@ -2393,41 +2493,41 @@ Partial Class usrcntlKundeBearbeitenFull Me.dgvKreditkarten.AllowUserToDeleteRows = False Me.dgvKreditkarten.AllowUserToOrderColumns = True Me.dgvKreditkarten.AllowUserToResizeRows = False - DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvKreditkarten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3 + DataGridViewCellStyle13.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvKreditkarten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle13 Me.dgvKreditkarten.BackgroundColor = System.Drawing.Color.White - DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvKreditkarten.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle4 + DataGridViewCellStyle14.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle14.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle14.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle14.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle14.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle14.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle14.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvKreditkarten.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle14 Me.dgvKreditkarten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.dgvKreditkarten.DefaultCellStyle = DataGridViewCellStyle5 + DataGridViewCellStyle15.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle15.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + 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.dgvKreditkarten.DefaultCellStyle = DataGridViewCellStyle15 Me.dgvKreditkarten.Location = New System.Drawing.Point(9, 20) Me.dgvKreditkarten.MultiSelect = False Me.dgvKreditkarten.Name = "dgvKreditkarten" Me.dgvKreditkarten.ReadOnly = True - DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle6.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle6.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle6.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvKreditkarten.RowHeadersDefaultCellStyle = DataGridViewCellStyle6 + DataGridViewCellStyle16.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle16.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle16.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle16.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle16.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle16.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvKreditkarten.RowHeadersDefaultCellStyle = DataGridViewCellStyle16 Me.dgvKreditkarten.RowHeadersVisible = False - DataGridViewCellStyle7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.dgvKreditkarten.RowsDefaultCellStyle = DataGridViewCellStyle7 + DataGridViewCellStyle17.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.dgvKreditkarten.RowsDefaultCellStyle = DataGridViewCellStyle17 Me.dgvKreditkarten.RowTemplate.DefaultCellStyle.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.dgvKreditkarten.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect Me.dgvKreditkarten.Size = New System.Drawing.Size(642, 312) @@ -2565,8 +2665,8 @@ Partial Class usrcntlKundeBearbeitenFull ' 'dgvUstv_LaenderUndSteuernummern ' - DataGridViewCellStyle8.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvUstv_LaenderUndSteuernummern.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle8 + DataGridViewCellStyle18.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvUstv_LaenderUndSteuernummern.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle18 Me.dgvUstv_LaenderUndSteuernummern.BackgroundColor = System.Drawing.Color.White Me.dgvUstv_LaenderUndSteuernummern.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvUstv_LaenderUndSteuernummern.Location = New System.Drawing.Point(9, 94) @@ -2701,6 +2801,8 @@ Partial Class usrcntlKundeBearbeitenFull ' 'tbSonstiges ' + Me.tbSonstiges.Controls.Add(Me.txtSonst_KdNrPLOSE) + Me.tbSonstiges.Controls.Add(Me.Label83) Me.tbSonstiges.Controls.Add(Me.btnSonstAendSpeichern) Me.tbSonstiges.Controls.Add(Me.Label76) Me.tbSonstiges.Controls.Add(Me.dgvSonst_IDSKunden) @@ -2758,8 +2860,8 @@ Partial Class usrcntlKundeBearbeitenFull 'dgvSonst_IDSKunden ' Me.dgvSonst_IDSKunden.AllowUserToResizeRows = False - DataGridViewCellStyle9.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvSonst_IDSKunden.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle9 + DataGridViewCellStyle10.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvSonst_IDSKunden.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle10 Me.dgvSonst_IDSKunden.BackgroundColor = System.Drawing.Color.White Me.dgvSonst_IDSKunden.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvSonst_IDSKunden.Location = New System.Drawing.Point(9, 251) @@ -2771,7 +2873,7 @@ Partial Class usrcntlKundeBearbeitenFull 'cbxSonst_CsvAsfinag ' Me.cbxSonst_CsvAsfinag.AutoSize = True - Me.cbxSonst_CsvAsfinag.Location = New System.Drawing.Point(9, 188) + Me.cbxSonst_CsvAsfinag.Location = New System.Drawing.Point(119, 201) Me.cbxSonst_CsvAsfinag.Name = "cbxSonst_CsvAsfinag" Me.cbxSonst_CsvAsfinag.Size = New System.Drawing.Size(264, 17) Me.cbxSonst_CsvAsfinag.TabIndex = 15 @@ -3732,6 +3834,25 @@ Partial Class usrcntlKundeBearbeitenFull Me.cbxFiBuLG.UseVisualStyleBackColor = True Me.cbxFiBuLG.Visible = False ' + 'txtSonst_KdNrPLOSE + ' + Me.txtSonst_KdNrPLOSE.Enabled = False + Me.txtSonst_KdNrPLOSE.Location = New System.Drawing.Point(119, 175) + Me.txtSonst_KdNrPLOSE.Name = "txtSonst_KdNrPLOSE" + Me.txtSonst_KdNrPLOSE.Size = New System.Drawing.Size(122, 20) + Me.txtSonst_KdNrPLOSE.TabIndex = 20 + ' + 'Label83 + ' + Me.Label83.AutoSize = True + Me.Label83.Enabled = False + Me.Label83.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label83.Location = New System.Drawing.Point(6, 178) + Me.Label83.Name = "Label83" + Me.Label83.Size = New System.Drawing.Size(89, 13) + Me.Label83.TabIndex = 19 + Me.Label83.Text = "KdNr bei PLOSE:" + ' 'usrcntlKundeBearbeitenFull ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -4061,4 +4182,12 @@ Partial Class usrcntlKundeBearbeitenFull Friend WithEvents UsrCntlKundenAvisoMailBenachrichtigung1 As usrCntlKundenAvisoMailBenachrichtigung Friend WithEvents Label1 As Label Friend WithEvents txtVers_EHNr As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label81 As Label + Friend WithEvents Label82 As Label + Friend WithEvents cbxInkassoUebergeben As CheckBox + Friend WithEvents txtInkasso_GemeldeterBetrag As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtInkassoUebergebenAm As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents cbxAutoFakturierung As CheckBox + Friend WithEvents txtSonst_KdNrPLOSE As TextBox + Friend WithEvents Label83 As Label End Class diff --git a/SDL/kunden/usrcntlKundeBearbeitenFull.vb b/SDL/kunden/usrcntlKundeBearbeitenFull.vb index 6bc04e7d..ff254eee 100644 --- a/SDL/kunden/usrcntlKundeBearbeitenFull.vb +++ b/SDL/kunden/usrcntlKundeBearbeitenFull.vb @@ -59,6 +59,12 @@ Public Class usrcntlKundeBearbeitenFull Case "IMEX" ComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("1000000-1099999: IMEX", "1000000-1099990")) ComboBox2.changeItem("1000000-1099990") + Case "UNISPED" + ComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("2000000-2099999: UNISPED", "2000000-2099990")) + ComboBox2.changeItem("2000000-2099990") + Case "AMBAR" + ComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("3000000-3099999: AMBAR", "3000000-3099990")) + ComboBox2.changeItem("3000000-3099990") Case "ATILLA" ComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 700000-799999: ZOLL Abrechnung", "728000-799999")) ComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 900000-999999: Sonstige", "900000-999999")) @@ -231,13 +237,18 @@ Public Class usrcntlKundeBearbeitenFull txtVersicherung_GemeldeterBetrag._value = loadValue(KUNDE_ERW.kde_Versicherung_GemeldeterBetrag, "") txtVers_EHNr.Text = loadValue(KUNDE_ERW.kde_txtVersicherungEHNr, "").ToString + cbxInkassoUebergeben.Checked = KUNDE_ERW.kde_Inkasso_Uebergeben + txtInkassoUebergebenAm._value = loadValue(KUNDE_ERW.kde_Inkasso_UebergebenAm, "") + txtInkasso_GemeldeterBetrag._value = KUNDE_ERW.[kde_Inkasso_GemeldeterBetrag] + + cboProvisionStaffelArt.changeItem(loadValue(KUNDE_ERW.kde_Leihgeld_ProvisionPreisstaffel, "")) cboProvisionStaffel.changeItem(loadValue(KUNDE_ERW.kde_Leihgeld_Provision, "")) txtProvAuftraggeber._value = loadValue(KUNDE_ERW.kde_Leihgeld_ProvisionAuftraggeber, "") cbxDepot.Checked = KUNDE_ERW.Depot_Kunde - + cbxAutoFakturierung.Checked = KUNDE_ERW.AutoFakturierung ' ----- Abfertigungsverbot ----- ' cboAbfVerb_Kreditlimit.Checked=loadValue(KUNDE.Kreditlimit, "") @@ -279,6 +290,7 @@ Public Class usrcntlKundeBearbeitenFull txtSonst_KdNrWOELFL.Text = loadValue(ADRESSE.WölflKundenNr, "") txtSonst_KdNrMSE.Text = loadValue(ADRESSE.MSEKundenNr, "") txtSonst_KdNrTelepass.Text = loadValue(ADRESSE.TELEPASS_Kd_Nr, "") + txtSonst_KdNrPLOSE.Text = loadValue(ADRESSE.PLOSEKundenNr, "") cbxSonst_CsvAsfinag.Checked = loadValue(ADRESSE.ASFINAGExportCSV, False) cbxSonst_CsvMautbericht.Checked = loadValue(ADRESSE.ExportMautberichtCSV, False) cbxSonst_CsvMSE.Checked = loadValue(ADRESSE.MSEExportCSV, False) @@ -465,12 +477,16 @@ Public Class usrcntlKundeBearbeitenFull KUNDE_ERW.kde_Versicherung_GemeldeterBetrag = isLeerNothingDbl(txtVersicherung_GemeldeterBetrag._value) KUNDE_ERW.kde_txtVersicherungEHNr = isLeerNothing(txtVers_EHNr._value) + KUNDE_ERW.kde_Inkasso_Uebergeben = cbxInkassoUebergeben.Checked + KUNDE_ERW.kde_Inkasso_UebergebenAm = isLeerNothing(txtInkassoUebergebenAm._value) + KUNDE_ERW.kde_Inkasso_GemeldeterBetrag = isLeerNothingDbl(txtInkasso_GemeldeterBetrag._value) KUNDE_ERW.kde_Leihgeld_ProvisionPreisstaffel = isLeerNothing(cboProvisionStaffelArt._value) KUNDE_ERW.kde_Leihgeld_Provision = isLeerNothing(cboProvisionStaffel._value) KUNDE_ERW.kde_Leihgeld_ProvisionAuftraggeber = isLeerNothingDbl(txtProvAuftraggeber._value) KUNDE_ERW.Depot_Kunde = cbxDepot.Checked + KUNDE_ERW.AutoFakturierung = cbxAutoFakturierung.Checked ' ----- Abfertigungsverbot ----- @@ -509,6 +525,7 @@ Public Class usrcntlKundeBearbeitenFull ADRESSE.WölflKundenNr = isLeerNothing(txtSonst_KdNrWOELFL.Text) ADRESSE.MSEKundenNr = isLeerNothing(txtSonst_KdNrMSE.Text) ADRESSE.TELEPASS_Kd_Nr = isLeerNothing(txtSonst_KdNrTelepass.Text) + ADRESSE.PLOSEKundenNr = isLeerNothing(txtSonst_KdNrPLOSE.Text) ADRESSE.ASFINAGExportCSV = cbxSonst_CsvAsfinag.Checked ADRESSE.ExportMautberichtCSV = cbxSonst_CsvMautbericht.Checked ADRESSE.MSEExportCSV = cbxSonst_CsvMSE.Checked @@ -592,7 +609,8 @@ Public Class usrcntlKundeBearbeitenFull ' " FROM [Länderverzeichnis für die Außenhandelsstatistik] LEFT JOIN [Währungstabelle] ON [Länderverzeichnis für die Außenhandelsstatistik].LandNr = [Währungstabelle].[Währungsschlüssel] " & _ ' " WHERE [Währungstabelle].[MitgliedslandEU] = 1 " & _ ' " ORDER BY [Länderverzeichnis für die Außenhandelsstatistik].LandKz ", , "FMZOLL", True) - cbxLandKz.fillWithSQL(" select distinct adressen.landkz, Währungstabelle.Land from adressen inner join Währungstabelle ON Währungstabelle.LandKz=adressen.LandKz where adressen.landkz is not null order by LandKz", , "FMZOLL", True) + 'cbxLandKz.fillWithSQL(" select distinct adressen.landkz, Währungstabelle.Land from adressen inner join Währungstabelle ON Währungstabelle.LandKz=adressen.LandKz where adressen.landkz is not null order by LandKz", , "FMZOLL", True) + cbxLandKz.fillWithSQL(" select distinct landkz, Währungstabelle.Land from Währungstabelle where landkz is not null order by LandKz", , "FMZOLL", True) cboProvisionStaffelArt.fillWithSQL("SELECT [PreislistenNr],[PreislistenBez] FROM [VERAG].[dbo].[tblPreislisten] WHERE Art='E' ORDER BY Preislistenbez", False, "FMZOLL", True) @@ -603,6 +621,10 @@ Public Class usrcntlKundeBearbeitenFull Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Case "IMEX" ComboBox1.changeItem("5501") + Case "UNISPED" + ComboBox1.changeItem("5601") + Case "AMBAR" + ComboBox1.changeItem("5701") Case "ATILLA" ComboBox1.changeItem("4801") Case Else @@ -1081,4 +1103,12 @@ Public Class usrcntlKundeBearbeitenFull End If End Sub + Private Sub cbxInkassoUebergeben_CheckedChanged(sender As Object, e As EventArgs) Handles cbxInkassoUebergeben.CheckedChanged + txtInkassoUebergebenAm.Enabled = cbxInkassoUebergeben.Checked + If cbxInkassoUebergeben.Checked Then + txtInkassoUebergebenAm._value = Now.ToShortDateString + Else + txtInkassoUebergebenAm._value = "" + End If + End Sub End Class diff --git a/SDL/mdm/PLOSE/frmMDMDatenverarbetiung.Designer.vb b/SDL/mdm/PLOSE/frmMDMDatenverarbetiung.Designer.vb new file mode 100644 index 00000000..32776cac --- /dev/null +++ b/SDL/mdm/PLOSE/frmMDMDatenverarbetiung.Designer.vb @@ -0,0 +1,411 @@ + _ +Partial Class frmMDMDatenverarbetiung + 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() + Me.components = New System.ComponentModel.Container() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMDMDatenverarbetiung)) + Me.pnl = New System.Windows.Forms.Panel() + Me.FlowLayoutPanel = New System.Windows.Forms.FlowLayoutPanel() + Me.btn = New System.Windows.Forms.Button() + Me.btnDatenLaden = New System.Windows.Forms.Button() + Me.Label1 = New System.Windows.Forms.Label() + Me.dat_Sum_Von = New System.Windows.Forms.DateTimePicker() + Me.Label45 = New System.Windows.Forms.Label() + Me.Label46 = New System.Windows.Forms.Label() + Me.dat_Sum_Bis = New System.Windows.Forms.DateTimePicker() + Me.lbl = New System.Windows.Forms.Label() + Me.Panel1 = New System.Windows.Forms.Panel() + Me.cbx = New System.Windows.Forms.CheckBox() + Me.Panel2 = New System.Windows.Forms.Panel() + Me.Label43 = New System.Windows.Forms.Label() + Me.datPloseAnhang = New System.Windows.Forms.DateTimePicker() + Me.Button4 = New System.Windows.Forms.Button() + Me.Label44 = New System.Windows.Forms.Label() + Me.txtPloseAnh_Einarbeitung = New System.Windows.Forms.TextBox() + Me.pbPloseAnh_Proz = New System.Windows.Forms.ProgressBar() + Me.lblPloseAnh_Proz = New System.Windows.Forms.Label() + Me.Label3 = New System.Windows.Forms.Label() + Me.txtPrüfsumme = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label2 = New System.Windows.Forms.Label() + Me.txtAnzahl = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Button3 = New System.Windows.Forms.Button() + Me.Button2 = New System.Windows.Forms.Button() + Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.pnl.SuspendLayout() + Me.FlowLayoutPanel.SuspendLayout() + Me.Panel1.SuspendLayout() + Me.Panel2.SuspendLayout() + CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'pnl + ' + Me.pnl.Controls.Add(Me.FlowLayoutPanel) + Me.pnl.Controls.Add(Me.btnDatenLaden) + Me.pnl.Controls.Add(Me.Label1) + Me.pnl.Controls.Add(Me.dat_Sum_Von) + Me.pnl.Controls.Add(Me.Label45) + Me.pnl.Controls.Add(Me.Label46) + Me.pnl.Controls.Add(Me.dat_Sum_Bis) + Me.pnl.Controls.Add(Me.lbl) + Me.pnl.Cursor = System.Windows.Forms.Cursors.Default + 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(1054, 100) + Me.pnl.TabIndex = 1 + ' + 'FlowLayoutPanel + ' + Me.FlowLayoutPanel.BackColor = System.Drawing.Color.FloralWhite + Me.FlowLayoutPanel.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.FlowLayoutPanel.Controls.Add(Me.btn) + Me.FlowLayoutPanel.Location = New System.Drawing.Point(139, 37) + Me.FlowLayoutPanel.Name = "FlowLayoutPanel" + Me.FlowLayoutPanel.Size = New System.Drawing.Size(731, 31) + Me.FlowLayoutPanel.TabIndex = 27 + ' + 'btn + ' + Me.btn.BackColor = System.Drawing.Color.Wheat + Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btn.Location = New System.Drawing.Point(3, 3) + Me.btn.Name = "btn" + Me.btn.Size = New System.Drawing.Size(120, 23) + Me.btn.TabIndex = 0 + Me.btn.Text = "PLOSE" + Me.btn.UseVisualStyleBackColor = False + ' + 'btnDatenLaden + ' + Me.btnDatenLaden.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnDatenLaden.Location = New System.Drawing.Point(876, 37) + Me.btnDatenLaden.Name = "btnDatenLaden" + Me.btnDatenLaden.Size = New System.Drawing.Size(166, 57) + Me.btnDatenLaden.TabIndex = 1 + Me.btnDatenLaden.Text = "Daten laden" + Me.btnDatenLaden.UseVisualStyleBackColor = True + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(13, 46) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(51, 13) + Me.Label1.TabIndex = 26 + Me.Label1.Text = "Lieferant:" + ' + 'dat_Sum_Von + ' + Me.dat_Sum_Von.Format = System.Windows.Forms.DateTimePickerFormat.[Short] + Me.dat_Sum_Von.Location = New System.Drawing.Point(139, 74) + Me.dat_Sum_Von.Name = "dat_Sum_Von" + Me.dat_Sum_Von.Size = New System.Drawing.Size(103, 20) + Me.dat_Sum_Von.TabIndex = 22 + ' + 'Label45 + ' + Me.Label45.AutoSize = True + Me.Label45.Location = New System.Drawing.Point(245, 77) + Me.Label45.Name = "Label45" + Me.Label45.Size = New System.Drawing.Size(23, 13) + Me.Label45.TabIndex = 25 + Me.Label45.Text = "bis:" + ' + 'Label46 + ' + Me.Label46.AutoSize = True + Me.Label46.Location = New System.Drawing.Point(13, 77) + Me.Label46.Name = "Label46" + Me.Label46.Size = New System.Drawing.Size(119, 13) + Me.Label46.TabIndex = 23 + Me.Label46.Text = "Transaktionsdaten von:" + ' + 'dat_Sum_Bis + ' + Me.dat_Sum_Bis.Format = System.Windows.Forms.DateTimePickerFormat.[Short] + Me.dat_Sum_Bis.Location = New System.Drawing.Point(274, 74) + Me.dat_Sum_Bis.Name = "dat_Sum_Bis" + Me.dat_Sum_Bis.Size = New System.Drawing.Size(103, 20) + Me.dat_Sum_Bis.TabIndex = 24 + ' + 'lbl + ' + Me.lbl.AutoSize = True + Me.lbl.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold) + Me.lbl.Location = New System.Drawing.Point(13, 13) + Me.lbl.Name = "lbl" + Me.lbl.Size = New System.Drawing.Size(183, 17) + Me.lbl.TabIndex = 0 + Me.lbl.Text = "MDM Datenverarbeitung" + ' + 'Panel1 + ' + Me.Panel1.Controls.Add(Me.cbx) + Me.Panel1.Controls.Add(Me.Panel2) + Me.Panel1.Controls.Add(Me.Label3) + Me.Panel1.Controls.Add(Me.txtPrüfsumme) + Me.Panel1.Controls.Add(Me.Label2) + Me.Panel1.Controls.Add(Me.txtAnzahl) + Me.Panel1.Controls.Add(Me.Button3) + Me.Panel1.Controls.Add(Me.Button2) + Me.Panel1.Dock = System.Windows.Forms.DockStyle.Bottom + Me.Panel1.Location = New System.Drawing.Point(0, 677) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(1054, 114) + Me.Panel1.TabIndex = 2 + ' + 'cbx + ' + Me.cbx.AutoSize = True + Me.cbx.Location = New System.Drawing.Point(13, 73) + Me.cbx.Name = "cbx" + Me.cbx.Size = New System.Drawing.Size(103, 17) + Me.cbx.TabIndex = 42 + Me.cbx.Text = "Prüfergebnis OK" + Me.cbx.UseVisualStyleBackColor = True + ' + 'Panel2 + ' + Me.Panel2.Controls.Add(Me.Label43) + Me.Panel2.Controls.Add(Me.datPloseAnhang) + Me.Panel2.Controls.Add(Me.Button4) + Me.Panel2.Controls.Add(Me.Label44) + Me.Panel2.Controls.Add(Me.txtPloseAnh_Einarbeitung) + Me.Panel2.Controls.Add(Me.pbPloseAnh_Proz) + Me.Panel2.Controls.Add(Me.lblPloseAnh_Proz) + Me.Panel2.Enabled = False + Me.Panel2.Location = New System.Drawing.Point(154, 0) + Me.Panel2.Name = "Panel2" + Me.Panel2.Size = New System.Drawing.Size(301, 114) + Me.Panel2.TabIndex = 41 + ' + 'Label43 + ' + Me.Label43.AutoSize = True + Me.Label43.Location = New System.Drawing.Point(3, 16) + Me.Label43.Name = "Label43" + Me.Label43.Size = New System.Drawing.Size(81, 13) + Me.Label43.TabIndex = 40 + Me.Label43.Text = "Datum Anhang:" + ' + 'datPloseAnhang + ' + Me.datPloseAnhang.Format = System.Windows.Forms.DateTimePickerFormat.[Short] + Me.datPloseAnhang.Location = New System.Drawing.Point(85, 14) + Me.datPloseAnhang.Name = "datPloseAnhang" + Me.datPloseAnhang.Size = New System.Drawing.Size(103, 20) + Me.datPloseAnhang.TabIndex = 39 + ' + 'Button4 + ' + Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button4.Location = New System.Drawing.Point(6, 40) + Me.Button4.Name = "Button4" + Me.Button4.Size = New System.Drawing.Size(283, 23) + Me.Button4.TabIndex = 30 + Me.Button4.Text = "Rechnungen / Anhänge erstellen" + Me.Button4.UseVisualStyleBackColor = True + ' + 'Label44 + ' + Me.Label44.AutoSize = True + Me.Label44.Location = New System.Drawing.Point(3, 95) + Me.Label44.Name = "Label44" + Me.Label44.Size = New System.Drawing.Size(56, 13) + Me.Label44.TabIndex = 31 + Me.Label44.Text = "Fortschritt:" + ' + 'txtPloseAnh_Einarbeitung + ' + Me.txtPloseAnh_Einarbeitung.BackColor = System.Drawing.Color.White + Me.txtPloseAnh_Einarbeitung.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtPloseAnh_Einarbeitung.Location = New System.Drawing.Point(78, 95) + Me.txtPloseAnh_Einarbeitung.Name = "txtPloseAnh_Einarbeitung" + Me.txtPloseAnh_Einarbeitung.Size = New System.Drawing.Size(106, 13) + Me.txtPloseAnh_Einarbeitung.TabIndex = 32 + ' + 'pbPloseAnh_Proz + ' + Me.pbPloseAnh_Proz.Location = New System.Drawing.Point(6, 69) + Me.pbPloseAnh_Proz.Name = "pbPloseAnh_Proz" + Me.pbPloseAnh_Proz.Size = New System.Drawing.Size(283, 23) + Me.pbPloseAnh_Proz.TabIndex = 33 + ' + 'lblPloseAnh_Proz + ' + Me.lblPloseAnh_Proz.Location = New System.Drawing.Point(220, 95) + Me.lblPloseAnh_Proz.Name = "lblPloseAnh_Proz" + Me.lblPloseAnh_Proz.Size = New System.Drawing.Size(69, 13) + Me.lblPloseAnh_Proz.TabIndex = 34 + Me.lblPloseAnh_Proz.Text = "0%" + Me.lblPloseAnh_Proz.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Location = New System.Drawing.Point(855, 46) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(62, 13) + Me.Label3.TabIndex = 38 + Me.Label3.Text = "Prüfsumme:" + ' + 'txtPrüfsumme + ' + Me.txtPrüfsumme._DateTimeOnly = False + Me.txtPrüfsumme._numbersOnly = False + Me.txtPrüfsumme._numbersOnlyKommastellen = "" + Me.txtPrüfsumme._Prozent = False + Me.txtPrüfsumme._ShortDateNew = False + Me.txtPrüfsumme._ShortDateOnly = False + Me.txtPrüfsumme._TimeOnly = False + Me.txtPrüfsumme._value = "" + Me.txtPrüfsumme._Waehrung = False + Me.txtPrüfsumme._WaehrungZeichen = True + Me.txtPrüfsumme.ForeColor = System.Drawing.Color.Black + Me.txtPrüfsumme.Location = New System.Drawing.Point(942, 43) + Me.txtPrüfsumme.MaxLineLength = -1 + Me.txtPrüfsumme.MaxLines_Warning = "" + Me.txtPrüfsumme.MaxLines_Warning_Label = Nothing + Me.txtPrüfsumme.Name = "txtPrüfsumme" + Me.txtPrüfsumme.Size = New System.Drawing.Size(100, 20) + Me.txtPrüfsumme.TabIndex = 37 + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Location = New System.Drawing.Point(855, 19) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(42, 13) + Me.Label2.TabIndex = 36 + Me.Label2.Text = "Anzahl:" + ' + 'txtAnzahl + ' + Me.txtAnzahl._DateTimeOnly = False + Me.txtAnzahl._numbersOnly = False + Me.txtAnzahl._numbersOnlyKommastellen = "" + Me.txtAnzahl._Prozent = False + Me.txtAnzahl._ShortDateNew = False + Me.txtAnzahl._ShortDateOnly = False + Me.txtAnzahl._TimeOnly = False + Me.txtAnzahl._value = "" + Me.txtAnzahl._Waehrung = False + Me.txtAnzahl._WaehrungZeichen = True + Me.txtAnzahl.ForeColor = System.Drawing.Color.Black + Me.txtAnzahl.Location = New System.Drawing.Point(942, 16) + Me.txtAnzahl.MaxLineLength = -1 + Me.txtAnzahl.MaxLines_Warning = "" + Me.txtAnzahl.MaxLines_Warning_Label = Nothing + Me.txtAnzahl.Name = "txtAnzahl" + Me.txtAnzahl.Size = New System.Drawing.Size(100, 20) + Me.txtAnzahl.TabIndex = 35 + ' + 'Button3 + ' + Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button3.Location = New System.Drawing.Point(12, 43) + Me.Button3.Name = "Button3" + Me.Button3.Size = New System.Drawing.Size(120, 23) + Me.Button3.TabIndex = 29 + Me.Button3.Text = "Daten prüfen" + Me.Button3.UseVisualStyleBackColor = True + ' + 'Button2 + ' + Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button2.Location = New System.Drawing.Point(12, 14) + Me.Button2.Name = "Button2" + Me.Button2.Size = New System.Drawing.Size(120, 23) + Me.Button2.TabIndex = 28 + Me.Button2.Text = "Summenbericht" + Me.Button2.UseVisualStyleBackColor = True + ' + 'MyDatagridview1 + ' + Me.MyDatagridview1.AKTUALISIERUNGS_INTERVALL = -1 + Me.MyDatagridview1.AllowUserToAddRows = False + Me.MyDatagridview1.AllowUserToDeleteRows = False + Me.MyDatagridview1.AllowUserToResizeColumns = False + Me.MyDatagridview1.AllowUserToResizeRows = False + Me.MyDatagridview1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.MyDatagridview1.Dock = System.Windows.Forms.DockStyle.Fill + Me.MyDatagridview1.Location = New System.Drawing.Point(0, 100) + Me.MyDatagridview1.Name = "MyDatagridview1" + Me.MyDatagridview1.ReadOnly = True + Me.MyDatagridview1.Size = New System.Drawing.Size(1054, 577) + Me.MyDatagridview1.TabIndex = 0 + ' + 'frmMDMDatenverarbetiung + ' + 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(1054, 791) + Me.Controls.Add(Me.MyDatagridview1) + Me.Controls.Add(Me.Panel1) + Me.Controls.Add(Me.pnl) + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.Name = "frmMDMDatenverarbetiung" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "Datenverarbetiung" + Me.pnl.ResumeLayout(False) + Me.pnl.PerformLayout() + Me.FlowLayoutPanel.ResumeLayout(False) + Me.Panel1.ResumeLayout(False) + Me.Panel1.PerformLayout() + Me.Panel2.ResumeLayout(False) + Me.Panel2.PerformLayout() + CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + + Friend WithEvents MyDatagridview1 As VERAG_PROG_ALLGEMEIN.MyDatagridview + Friend WithEvents pnl As Panel + Friend WithEvents Panel1 As Panel + Friend WithEvents lbl As Label + Friend WithEvents dat_Sum_Von As DateTimePicker + Friend WithEvents Label45 As Label + Friend WithEvents Label46 As Label + Friend WithEvents dat_Sum_Bis As DateTimePicker + Friend WithEvents Label1 As Label + Friend WithEvents FlowLayoutPanel As FlowLayoutPanel + Friend WithEvents btn As Button + Friend WithEvents btnDatenLaden As Button + Friend WithEvents Button4 As Button + Friend WithEvents Button3 As Button + Friend WithEvents Button2 As Button + Friend WithEvents txtAnzahl As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents lblPloseAnh_Proz As Label + Friend WithEvents pbPloseAnh_Proz As ProgressBar + Friend WithEvents txtPloseAnh_Einarbeitung As TextBox + Friend WithEvents Label44 As Label + Friend WithEvents Label3 As Label + Friend WithEvents txtPrüfsumme As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label2 As Label + Friend WithEvents datPloseAnhang As DateTimePicker + Friend WithEvents Label43 As Label + Friend WithEvents cbx As CheckBox + Friend WithEvents Panel2 As Panel +End Class diff --git a/SDL/mdm/PLOSE/frmMDMDatenverarbetiung.resx b/SDL/mdm/PLOSE/frmMDMDatenverarbetiung.resx new file mode 100644 index 00000000..d584bd9e --- /dev/null +++ b/SDL/mdm/PLOSE/frmMDMDatenverarbetiung.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/mdm/PLOSE/frmMDMDatenverarbetiung.vb b/SDL/mdm/PLOSE/frmMDMDatenverarbetiung.vb new file mode 100644 index 00000000..95229c39 --- /dev/null +++ b/SDL/mdm/PLOSE/frmMDMDatenverarbetiung.vb @@ -0,0 +1,707 @@ +Public Class frmMDMDatenverarbetiung + + Public LIEFERANT = "" + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + Private Sub frmPloseDatenverarbetiung_Load(sender As Object, e As EventArgs) Handles MyBase.Load + + End Sub + + Private Sub Button4_Click(sender As Object, e As EventArgs) + + End Sub + + Private Sub pnl_Paint(sender As Object, e As PaintEventArgs) Handles pnl.Paint + + End Sub + + Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click + Select Case LIEFERANT + Case "PLOSE" : genSummenbericht_PLOSE() + End Select + End Sub + + Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click + Button3.BackColor = Color.White + Button3.ForeColor = Color.Black + + Dim pruef As Boolean = False + Select Case LIEFERANT + Case "PLOSE" : pruef = pruefData_PLOSE() + End Select + + cbx.Checked = pruef + If pruef Then + Button3.BackColor = Color.Green + Button3.ForeColor = Color.White + Else + Button3.BackColor = Color.Red + Button3.ForeColor = Color.White + End If + + End Sub + + + Private Sub btnDatenLaden_Click(sender As Object, e As EventArgs) Handles btnDatenLaden.Click + init() + End Sub + + Sub init() + txtAnzahl.Text = "" + txtPrüfsumme.Text = "" + + Select Case LIEFERANT + Case "PLOSE" : initDgv_PLOSE() + End Select + End Sub + + Private Sub Button4_Click_1(sender As Object, e As EventArgs) Handles Button4.Click + Select Case LIEFERANT + Case "PLOSE" : genRGAtt_PLOSE() + End Select + End Sub + + Sub genSummenbericht_PLOSE() + Dim displayFilter = False + Dim sqlstr As String = "" + + sqlstr &= " SELECT count(*) Anzahl ,plose_ProduktCode" + sqlstr &= ",max(plose_Produktbeschreibung) as plose_Produktbeschreibung" + sqlstr &= ",sum(plose_Menge) as plose_Menge" + sqlstr &= ",sum(plose_Preis) as plose_Preis" + sqlstr &= ",sum(plose_NettobetragTransaktion) as plose_NettobetragTransaktion" + sqlstr &= ",sum(plose_MWSTBetrag) as plose_MWSTBetrag" + sqlstr &= ",sum(plose_BruttobetragTransaktion) as plose_BruttobetragTransaktion " + sqlstr &= " FROM tblPLOSE_Details" + sqlstr &= " WHERE 1=1 " + + sqlstr &= " AND plose_DatumTransaktion between '" & dat_Sum_Von.Value & "' and '" & dat_Sum_Bis.Value & "' " + + sqlstr &= " group by plose_ProduktCode" + sqlstr &= " order by plose_ProduktCode" + + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + Dim dt As DataTable = SQL.loadDgvBySql_Param(sqlstr, "FMZOLL") + 'DataGridView.DataSource = dt + + + Dim print As New frmPrintLayout + print.Text = "PLOSE" + + Dim rpt As New rptPLOSE_TransaktionenSumary + + rpt.DataSource = dt + + + 'If cbxProdukt.Checked Then + ' rpt.GroupHeader2.DataField = "prod_descr" + 'Else + ' rpt.GroupHeader2.Visible = False + ' rpt.GroupFooter2.Visible = False + 'End If + + + + Dim sum = 0 + rpt.lblUeberschrift.Text = "PLOSE Summenbericht " & dat_Sum_Von.Text & " bis " & dat_Sum_Bis.Text + rpt.lblSachbearbeiter.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME + 'rpt.lblMandantNiederlassung.Text = PERSONAL.Mandant & " / " & PERSONAL.Niederlassung + + 'Dim cnt As Integer = 0 + rpt.lblDat.Text = Now.ToLongDateString + + + Dim sumPreis As Double = 0 + Dim sumNetto As Double = 0 + Dim sumMWST As Double = 0 + Dim sumBrutto As Double = 0 + Dim sumMenge As Double = 0 + + AddHandler rpt.Detail.Format, Sub() + ' rpt.lblProduktBeschreibung.Text = isDbnullEmpty(rpt.Fields.Item("BC_DESCR").Value, "") + rpt.lblAnzahl.Text = SQL.isDbnullEmpty(rpt.Fields.Item("Anzahl").Value, "") + rpt.lblProdukt.Text = SQL.isDbnullEmpty(rpt.Fields.Item("plose_ProduktCode").Value, "") & " - " & SQL.isDbnullEmpty(rpt.Fields.Item("plose_Produktbeschreibung").Value, "") + + rpt.lblMenge.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_Menge").Value, 0, "") + rpt.lblPreis.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_Preis").Value, 2, "") + rpt.lblNetto.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_NettobetragTransaktion").Value, 2, "") + rpt.lblMWST.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_MWSTBetrag").Value, 2, "") + rpt.lblBrutto.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_BruttobetragTransaktion").Value, 2, "") + + + + sumMenge += SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_Menge").Value, 4, 0) + sumPreis += SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_Preis").Value, 4, 0) + sumNetto += SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_NettobetragTransaktion").Value, 4, 0) + sumMWST += SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_MWSTBetrag").Value, 4, 0) + sumBrutto += SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_BruttobetragTransaktion").Value, 4, 0) + + + End Sub + + + AddHandler rpt.ReportFooter1.Format, Sub() + rpt.lblSumMenge.Text = sumMenge.ToString("N0") + rpt.lblSumPreis.Text = sumPreis.ToString("N2") + rpt.lblSumNetto.Text = sumNetto.ToString("N2") + rpt.lblSumMwst.Text = sumMWST.ToString("N2") + rpt.lblSumBrutto.Text = sumBrutto.ToString("N2") + + End Sub + + print.Viewer.LoadDocument(rpt) + print.Viewer.ViewType = GrapeCity.Viewer.Common.Model.ViewType.Continuous + print.Show() + End Sub + + + Sub initDgv_PLOSE() + With MyDatagridview1 + .Columns.Clear() + .SET_SQL(" SELECT plose_POLSEKundennummer, count(*) Anzahl,plose_ProduktCode,max(plose_Produktbeschreibung) as plose_Produktbeschreibung, sum(plose_Menge) as plose_Menge,sum(plose_Preis) as plose_Preis,sum(plose_NettobetragTransaktion) as plose_NettobetragTransaktion,sum(plose_MWSTBetrag) as plose_MWSTBetrag,sum(plose_BruttobetragTransaktion) as plose_BruttobetragTransaktion + FROM tblPLOSE_Details + WHERE 1 = 1 + And plose_DatumTransaktion between '" & dat_Sum_Von.Value & "' and '" & dat_Sum_Bis.Value & "' + AND plose_Fakturiert=0 + group by plose_POLSEKundennummer,plose_ProduktCode + order by plose_POLSEKundennummer,plose_ProduktCode", "FMZOLL") + .LOAD() + + .Columns("plose_POLSEKundennummer").HeaderText = "PLOSE KdNr" + .Columns("plose_ProduktCode").HeaderText = "ProduktCode" + .Columns("plose_Produktbeschreibung").HeaderText = "Beschreibung" + .Columns("plose_Menge").HeaderText = "Menge" + .Columns("plose_Preis").HeaderText = "Preis" + .Columns("plose_NettobetragTransaktion").HeaderText = "Netto" + .Columns("plose_MWSTBetrag").HeaderText = "MWST" + .Columns("plose_BruttobetragTransaktion").HeaderText = "Brutto" + + '.Columns("VERAGLeistungsNr").ReadOnly = False + '.Columns("VERAGKdNr").ReadOnly = False + + 'For Each r As DataGridViewColumn In .Columns + ' If r.Name = "VERAGLeistungsNr" Or r.Name = "VERAGKdNr" Then + ' r.ReadOnly = False + ' Else + ' r.ReadOnly = True + ' End If + 'Next + + + Dim c2 As New DataGridViewTextBoxColumn + c2.Name = "VERAGKdNr" + c2.HeaderText = "VERAG KdNr" + c2.MinimumWidth = 115 + .Columns.Insert(1, c2) + + Dim c As New DataGridViewTextBoxColumn + c.Name = "VERAGLeistungsNr" + c.HeaderText = "VERAG LeistungsNr." + c.MinimumWidth = 115 + .Columns.Insert(5, c) + + + .AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells + + Dim sum As Double = 0 + For Each r As DataGridViewRow In .Rows + sum += If(IsNumeric(r.Cells("plose_BruttobetragTransaktion").Value), CDbl(r.Cells("plose_BruttobetragTransaktion").Value), 0) + Next + txtAnzahl.Text = .Rows.Count + txtPrüfsumme.Text = sum.ToString("N2") + End With + + End Sub + + + Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click + initLieferant("PLOSE", sender) + End Sub + + Sub initLieferant(l As String, btn As Button) + MyDatagridview1.DataSource = Nothing + Me.LIEFERANT = l + For Each c As Button In FlowLayoutPanel.Controls + If c Is btn Then + c.BackColor = Color.Wheat + Else + c.BackColor = Color.FloralWhite + End If + Next + init() + End Sub + + + + Sub genRGAtt_PLOSE() + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + Dim dt_Main As DataTable = SQL.loadDgvBySql_Param("SELECT [plose_POLSEKundennummer] FROM tblPLOSE_Details where plose_FakturiertDatum is null AND plose_DatumTransaktion between '" & dat_Sum_Von.Value.ToShortDateString & "' and '" & dat_Sum_Bis.Value.ToShortDateString & "' group by [plose_POLSEKundennummer] ", "FMZOLL") + + If dt_Main Is Nothing OrElse dt_Main.Rows.Count = 0 Then + MsgBox("Keine Daten!") + Exit Sub + End If + Dim cnt = 0 + If vbYes = MsgBox("Es wurden Daten von " & dt_Main.Rows.Count & " Kunden gefunden " & vbNewLine & " Möchten Sie die Anhänge erstellen?", vbYesNoCancel) Then + Dim dir = "F:\FMZoll\Maut\PLOSE\" & Now.ToShortDateString + + If IO.Directory.Exists(dir) Then dir &= "_" & Now.ToShortTimeString.Replace(":", "") + IO.Directory.CreateDirectory(dir) + For Each R_PLOSE In dt_Main.Rows + + Dim SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch = Nothing + genPLOSE_SPEDBUCH_ByKdNr(R_PLOSE("plose_POLSEKundennummer"), dat_Sum_Von.Value.ToShortDateString, dat_Sum_Bis.Value.ToShortDateString, SPEDBUCH) + genPLOSE_RECHNUNG_BySPEDBUCH(R_PLOSE("plose_POLSEKundennummer"), SPEDBUCH, dat_Sum_Von.Value, dat_Sum_Bis.Value) + genPLOSEAttachmentByKdNr(R_PLOSE("plose_POLSEKundennummer"), dat_Sum_Von.Value.ToShortDateString, dat_Sum_Bis.Value.ToShortDateString, dir) + + + If True Then 'cnt Mod 10 = 0 Then + txtPloseAnh_Einarbeitung.Text = cnt & " / " & dt_Main.Rows.Count + Dim proz As Double = (cnt / dt_Main.Rows.Count) * 100 + pbPloseAnh_Proz.Value = proz + lblPloseAnh_Proz.Text = proz.ToString("N2") & " %" + 'GroupBox12.Refresh() + My.Application.DoEvents() + End If + cnt += 1 + + + Next + pbPloseAnh_Proz.Value = 100 + txtPloseAnh_Einarbeitung.Text = dt_Main.Rows.Count & " / " & dt_Main.Rows.Count + lblPloseAnh_Proz.Text = "100.00 %" + + End If + + End Sub + + Function genPLOSEAttachmentByKdNr(KdNr As String, von As Date, bis As Date, dir As String) + Try + + Dim displayFilter = False + Dim sqlstr As String = "" + + sqlstr &= " SELECT * " + sqlstr &= " FROM tblPLOSE_Details INNER JOIN [tblPLOSE_Produktbeschreibung] on plose_ProduktCode=plp_ProductCode " + sqlstr &= " WHERE 1=1 " + sqlstr &= " AND plose_FakturiertDatum is null " + sqlstr &= " AND plose_POLSEKundennummer = '" & KdNr & "' " + sqlstr &= " AND plose_DatumTransaktion between '" & von.ToShortDateString & "' and '" & bis.ToShortDateString & "' " + + ' sqlstr &= " group by plose_ProduktCode" + sqlstr &= " order by plp_Land, plose_DatumTransaktion" + + Dim dt As DataTable = SQL.loadDgvBySql_Param(sqlstr, "FMZOLL") + + Dim rpt As New rptPLOSE_Anhang + + rpt.DataSource = dt + + rpt.lblRgDatum.Text = datPloseAnhang.Value.ToShortDateString + + rpt.GroupHeaderKz.DataField = "plose_Kennzeichen" 'Gruppierung + + Dim sumNetto As Double = 0 + Dim sumMWST As Double = 0 + Dim sumBrutto As Double = 0 + + Dim sumNettoKat As Double = 0 + Dim sumMWSTKat As Double = 0 + Dim sumBruttoKat As Double = 0 + + Dim sumNettoGes As Double = 0 + Dim sumMWSTGes As Double = 0 + Dim sumBruttoGes As Double = 0 + + Dim cntKat = 0 + Dim cnt = 0 + rpt.GroupFooterKat.Visible = False + + AddHandler rpt.Detail.Format, Sub() + ' If cnt = 0 Then + rpt.txtKunde.Text = SQL.isDbnullEmpty(rpt.Fields.Item("plose_POLSEKundennummer").Value, "") & " " & SQL.isDbnullEmpty(rpt.Fields.Item("plose_Firmenname").Value, "") + ' End If + + ' rpt.txtProduktBeschreibung.Text = sql.isDbnullEmpty(rpt.Fields.Item("BC_DESCR").Value, "") + Select Case "DE" + Case "DE" : rpt.txtProdukt.Text = SQL.isDbnullEmpty(rpt.Fields.Item("plp_Description_DE").Value, "") 'sql.isDbnullEmpty(rpt.Fields.Item("plose_ProduktCode").Value, "") & " - " & sql.isDbnullEmpty(rpt.Fields.Item("plose_Produktbeschreibung").Value, "") + Case "IT" : rpt.txtProdukt.Text = SQL.isDbnullEmpty(rpt.Fields.Item("plp_Description_IT").Value, "") 'sql.isDbnullEmpty(rpt.Fields.Item("plose_ProduktCode").Value, "") & " - " & sql.isDbnullEmpty(rpt.Fields.Item("plose_Produktbeschreibung").Value, "") + Case Else : rpt.txtProdukt.Text = SQL.isDbnullEmpty(rpt.Fields.Item("plp_Description_EN").Value, "") 'sql.isDbnullEmpty(rpt.Fields.Item("plose_ProduktCode").Value, "") & " - " & sql.isDbnullEmpty(rpt.Fields.Item("plose_Produktbeschreibung").Value, "") + End Select + + rpt.txtKartennummer.Text = SQL.isDbnullEmpty(rpt.Fields.Item("plose_NummerKarteGeraet").Value, "") + rpt.txtEingang.Text = SQL.isDbnullEmpty(rpt.Fields.Item("plose_BeschreibungEinfahrt").Value, "") + rpt.txtAusgang.Text = SQL.isDbnullEmpty(rpt.Fields.Item("plose_BeschreibungAusfahrt").Value, "") + rpt.txtLand.Text = SQL.isDbnullEmpty(rpt.Fields.Item("plp_Land").Value, "") + rpt.txtDatum.Text = SQL.isDbnullEmpty(rpt.Fields.Item("plose_DatumTransaktion").Value, "") + + rpt.txtNetto.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_NettobetragTransaktion").Value, 2, "") + rpt.txtMWST.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_MWSTBetrag").Value, 2, "") + rpt.txtBrutto.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_BruttobetragTransaktion").Value, 2, "") + + sumNetto += SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_NettobetragTransaktion").Value, 4, 0) + sumMWST += SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_MWSTBetrag").Value, 4, 0) + sumBrutto += SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_BruttobetragTransaktion").Value, 4, 0) + cnt += 1 + End Sub + + AddHandler rpt.GroupHeaderKz.Format, Sub() + rpt.txtKennzeichen.Text = SQL.isDbnullEmpty(rpt.Fields.Item("plose_Kennzeichen").Value, "") + If rpt.txtKennzeichen.Text = "" Then rpt.lblKennzeichen.Visible = False + End Sub + AddHandler rpt.GroupHeaderKat.Format, Sub() + rpt.lblKategorie.Text = "MAUT REPORT" + End Sub + + AddHandler rpt.GroupFooterKz.Format, Sub() + rpt.txtNettoKzSum.Text = sumNetto.ToString("N2") + rpt.txtMWSTKzSum.Text = sumMWST.ToString("N2") + rpt.txtBruttoKzSum.Text = sumBrutto.ToString("N2") + + rpt.lblSummeKennzeichen.Text = rpt.lblSummeKennzeichen.Text.Replace("Kennzeichen", SQL.isDbnullEmpty(rpt.Fields.Item("plose_Kennzeichen").Value, "")) + End Sub + + + + AddHandler rpt.GroupFooterKat.Format, Sub() + sumNettoKat += sumNetto + sumMWSTKat += sumMWST + sumBruttoKat += sumBrutto + sumNetto = 0 + sumMWST = 0 + sumBrutto = 0 + + rpt.txtNettoKatSum.Text = sumNettoKat.ToString("N2") + rpt.txtMWSTKatSum.Text = sumMWSTKat.ToString("N2") + rpt.txtBruttoKatSum.Text = sumBruttoKat.ToString("N2") + cntKat += 1 + End Sub + AddHandler rpt.ReportFooter1.Format, Sub() + sumNettoGes += sumNettoKat + sumMWSTGes += sumMWSTKat + sumBruttoGes += sumBruttoKat + sumNettoKat = 0 + sumMWSTKat = 0 + sumBruttoKat = 0 + + rpt.txtNettoGesSum.Text = sumNettoGes.ToString("N2") + rpt.txtMWSTGEsSum.Text = sumMWSTGes.ToString("N2") + rpt.txtBruttoGesSum.Text = sumBruttoGes.ToString("N2") + + + + 'If cntKat <= 1 Then + ' rpt.GroupFooterKat.Visible = False + 'End If + End Sub + + 'print.Viewer.LoadDocument(rpt) + 'print.Viewer.ViewType = GrapeCity.Viewer.Common.Model.ViewType.Continuous + 'print.Show() + + + + Dim tmpPath = dir & "\" & KdNr & "_PLOSE_Anhang.pdf" + Dim p As New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport + rpt.Run(False) + p.NeverEmbedFonts = "" + p.Export(rpt.Document, tmpPath) + + rpt.Dispose() + + Return tmpPath + + Catch ex As System.Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + Return "" + + End Function + + Function genPLOSE_SPEDBUCH_ByKdNr(KdNr As String, von As Date, bis As Date, ByRef SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch) + Try + + 'Dim displayFilter = False + 'Dim sqlstr As String = "" + + 'sqlstr &= " SELECT * " + 'sqlstr &= " FROM tblPLOSE_Details INNER JOIN [tblPLOSE_Produktbeschreibung] on plose_ProduktCode=plp_ProductCode " + 'sqlstr &= " WHERE 1=1 " + 'sqlstr &= " AND plose_FakturiertDatum is null " + 'sqlstr &= " AND plose_POLSEKundennummer = '" & KdNr & "' " + 'sqlstr &= " AND plose_DatumTransaktion between '" & von.ToShortDateString & "' and '" & bis.ToShortDateString & "' " + + '' sqlstr &= " group by plose_ProduktCode" + 'sqlstr &= " order by plp_Land, plose_DatumTransaktion" + + 'Dim dt As DataTable = SQL.loadDgvBySql_Param(sqlstr, "FMZOLL") + + Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(KdNr) + SPEDBUCH = New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch + + Dim OffertenNr = 8 + Dim Abfertigungsart = 10 + + SPEDBUCH.FilialenNr = 4824 + SPEDBUCH.AbfertigungsNr = VERAG_PROG_ALLGEMEIN.cAllgemein.getMaxPosNrIncrement(SPEDBUCH.FilialenNr, Now.Year) + SPEDBUCH.NewUNTER_NR() + + SPEDBUCH.Vermittler = AD.Ordnungsbegriff + SPEDBUCH.VermittlerKundenNr = KdNr + SPEDBUCH.VermittlerOffertenNr = OffertenNr + SPEDBUCH.Abfertigungsdatum = datPloseAnhang.Value + + SPEDBUCH.Abfertigungsart = Abfertigungsart + SPEDBUCH.Bar = 0 + SPEDBUCH.Fakturiert = 1 + SPEDBUCH.AnzahlSonstiges = 1 + SPEDBUCH.Abfertigungsanzahl = 1 + + SPEDBUCH.Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME + + + Return SPEDBUCH.SAVE + + Catch ex As System.Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + Return False + + End Function + + Function genPLOSE_RECHNUNG_BySPEDBUCH(KdNr As String, SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, von As Date, bis As Date) + Try + + Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(SPEDBUCH.VermittlerKundenNr) + Dim KD As New VERAG_PROG_ALLGEMEIN.cKunde(SPEDBUCH.VermittlerKundenNr) + Dim RG As New VERAG_PROG_ALLGEMEIN.cRechnungsausgang + + Dim OffertenNr = 8 + Dim Abfertigungsart = 10 + + RG.FilialenNr = SPEDBUCH.FilialenNr + RG.AbfertigungsNr = SPEDBUCH.AbfertigungsNr + RG.SpeditionsbuchUnterNr = SPEDBUCH.UnterNr + RG.UnterNr = RG.getMaxRGUnterNr() + + + RG.FilialenNr = SPEDBUCH.FilialenNr + RG.Abfertigungsdatum = SPEDBUCH.Abfertigungsdatum + RG.Sammelrechnung = 6 'MAUT/DIESEL + RG.BelegartenKz = "AR" + RG.BelegartenNr = 70 + RG.BelegartenBez = "Rechnung" + RG.Vorzeichen = "+" + + RG.VermittlerKundenNr = AD.AdressenNr + RG.VermittlerLandKz = AD.LandKz + RG.VermittlerName_1 = AD.Name_1 + RG.VermittlerName_2 = AD.Name_2 + RG.VermittlerOffertenNr = OffertenNr + RG.VermittlerOrt = AD.Ort + RG.VermittlerStraße = AD.Straße + RG.Rechnung_an = 3 + RG.OffertenNr = OffertenNr + + RG.KundenNrZentrale = KD.KundenNrZentrale + RG.RechnungsKundenNr = AD.AdressenNr + RG.RechnungsLandKz = AD.LandKz + RG.RechnungsName_1 = AD.Name_1 + RG.RechnungsName_2 = AD.Name_2 + RG.RechnungsOrt = AD.Ort + RG.RechnungsStraße = AD.Straße + + RG.RechnungsUstIdKz = AD.UstIdKz + RG.RechnungsUstIdNr = AD.UstIdNr + RG.RechnungsUstIdGeprüft = AD.UstIdGeprüft + + RG.Lastschrift = KD.Lastschrift + RG.Kunden_SVS = KD.SVS + RG.Steuerschlüssel = KD.Steuerschlüssel + RG.Vorkasse = KD.Vorkasse + RG.Vorlageprovision_Proz = KD.Vorlageprovision + RG.Kreditaufwendungen_Proz = KD.Kreditaufwendungen + + + RG.Anlage_1 = "" + RG.Anlage_2 = "" + RG.Anlage_3 = "" + RG.Anlage_4 = "" + RG.Anlage_5 = "" + RG.Anlage_6 = "" + + + RG.Text = "" + RG.EMailRechnungstext = "" + + RG.Firma_ID = 15 + RG.Nettozahlungsziel = KD.Zahlungsziel + + RG.SteuerpflichtigerGesamtbetrag = "" + RG.SteuerfreierGesamtbetrag = "" + RG.Status = 0 + + RG.[Vorkosten] = 0 + RG.[Erlös] = 0 + RG.[Buchungsjahr] = 0 + RG.[Währungscode] = "EUR" + + + RG.Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME + + + + Dim sqlstr As String = "" + sqlstr &= " SELECT [plp_LeistungsNr],sum([plose_NettobetragTransaktion]) as plose_NettobetragTransaktion,sum([plose_MWSTBetrag]) as [plose_MWSTBetrag],sum([plose_BruttobetragTransaktion]) as [plose_BruttobetragTransaktion] " + sqlstr &= " FROM tblPLOSE_Details INNER JOIN [tblPLOSE_Produktbeschreibung] on plose_ProduktCode=plp_ProductCode " + sqlstr &= " WHERE 1=1 " + sqlstr &= " AND plose_FakturiertDatum is null " + sqlstr &= " AND plose_POLSEKundennummer = '" & KdNr & "' " + sqlstr &= " AND plose_DatumTransaktion between '" & von.ToShortDateString & "' and '" & bis.ToShortDateString & "' " + + sqlstr &= " group by plose_POLSEKundennummer,[plp_LeistungsNr]" + sqlstr &= " order by plose_POLSEKundennummer" + + Dim dt As DataTable = SQL.loadDgvBySql_Param(sqlstr, "FMZOLL") + + For Each r In dt.Rows + + Dim BLNr = r("plp_LeistungsNr") + Dim BProz = r("plose_BruttobetragTransaktion") + + Dim Betrag As Double = r("") '""""""!!!!!!!!!!!!!!!! + Dim LeistungsNr As Integer = r("") '""""""!!!!!!!!!!!!!!!! + + Dim OFFERTE As New VERAG_PROG_ALLGEMEIN.cOfferte(KdNr, 8, True) + + allPlosePos(RG, OFFERTE, LeistungsNr, Betrag) + + Next + + RG.Steuersatz_Proz = cFakturierung.przRechnungstext(RG) + + + + + Return SPEDBUCH.SAVE + + Catch ex As System.Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + Return "" + + End Function + + Function allPlosePos(ByRef RG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, OFFERTE As VERAG_PROG_ALLGEMEIN.cOfferte, LeistungsNr As Integer, Betrag As Double) + Try + + For Each o In OFFERTE.POSITIONEN + If o.LeistungsNr = LeistungsNr Then + Dim POS As New VERAG_PROG_ALLGEMEIN.cRechnungsausgangPositionen() + Dim LEISTUNG As New VERAG_PROG_ALLGEMEIN.cLeistungen(o.LeistungsNr) + POS.LeistungsNr = o.LeistungsNr + POS.LeistungsBez = o.LeistungsBez + + POS.BerechnungsartNr = o.BerechnungsartNr + POS.Preis = Betrag + POS.Anzahl = 1 + POS.Steuerpflichtig = LEISTUNG.Steuerpflichtig + + If POS.Steuerpflichtig Then + POS.Steuerpflichtig = Betrag + Else + POS.SteuerpflichtigerBetrag = Betrag + End If + + POS.BGebLeistungsNr = o.BGebLeistungsNr + POS.BGebProzent = o.BGebProzent + POS.BGebMinBetrag = o.BGebMinBetrag + 'POS.BGebBgl = o.bgebbgl ???????????????? + + RG.POSITIONEN.Add(POS) + + If (If(POS.BGebLeistungsNr, 0) > 0) AndAlso (If(POS.BGebProzent, 0) > 0) Then + allPlosePosBGeb(RG, OFFERTE, POS.BGebLeistungsNr, (Betrag * POS.BGebProzent)) + End If + + Return True + End If + Next + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + Return False + End Function + + Function allPlosePosBGeb(ByRef RG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, OFFERTE As VERAG_PROG_ALLGEMEIN.cOfferte, LeistungsNr As Integer, Betrag As Double) + Try + For Each o In OFFERTE.POSITIONEN + If o.LeistungsNr = LeistungsNr Then + Dim POS As New VERAG_PROG_ALLGEMEIN.cRechnungsausgangPositionen() + Dim LEISTUNG As New VERAG_PROG_ALLGEMEIN.cLeistungen(o.LeistungsNr) + POS.LeistungsNr = o.LeistungsNr + POS.LeistungsBez = o.LeistungsBez + + POS.BerechnungsartNr = o.BerechnungsartNr + POS.Preis = Betrag + POS.Anzahl = 1 + POS.Steuerpflichtig = LEISTUNG.Steuerpflichtig + + If POS.Steuerpflichtig Then + POS.Steuerpflichtig = Betrag + Else + POS.SteuerpflichtigerBetrag = Betrag + End If + + + RG.POSITIONEN.Add(POS) + Return True + + End If + Next + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + Return False + End Function + + + Private Sub dat_Sum_Von_ValueChanged(sender As Object, e As EventArgs) Handles dat_Sum_Von.ValueChanged, dat_Sum_Bis.ValueChanged + init() + End Sub + + Private Sub cbx_CheckedChanged(sender As Object, e As EventArgs) Handles cbx.CheckedChanged + Panel2.Enabled = cbx.Checked + End Sub + + + Function pruefData_PLOSE() As Boolean + pruefData_PLOSE = True + Try + For Each r As DataGridViewRow In MyDatagridview1.Rows + Dim VERAGKdNr = SQL.getValueTxtBySql("SELECT TOP 1 AdressenNr FROM Adressen WHERE PLOSEKundenNr='" & r.Cells("plose_POLSEKundennummer").Value & "'", "FMZOLL") + + If VERAGKdNr <> "" Then + r.Cells("VERAGKdNr").Value = VERAGKdNr + r.Cells("VERAGKdNr").Style.BackColor = Color.MintCream + Else + pruefData_PLOSE = False + r.Cells("VERAGKdNr").Style.BackColor = Color.PapayaWhip + End If + Dim VERAGLeistungsNr = SQL.getValueTxtBySql("SELECT TOP (1) [plp_LeistungsNr] FROM [VERAG].[dbo].[tblPLOSE_Produktbeschreibung] where plp_ProductCode='" & r.Cells("plose_ProduktCode").Value & "' and plp_Firma='PU'", "FMZOLL") + If VERAGLeistungsNr <> "" Then + r.Cells("VERAGLeistungsNr").Value = VERAGLeistungsNr + r.Cells("VERAGKdNr").Style.BackColor = Color.MintCream + Else + pruefData_PLOSE = False + r.Cells("VERAGKdNr").Style.BackColor = Color.PapayaWhip + End If + Next + + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + pruefData_PLOSE = False + End Try + End Function +End Class diff --git a/SDL/mdm/SDLAbholung/usrCntlSDLAbholung.Designer.vb b/SDL/mdm/SDLAbholung/usrCntlSDLAbholung.Designer.vb index 47695cc4..75dd7d3b 100644 --- a/SDL/mdm/SDLAbholung/usrCntlSDLAbholung.Designer.vb +++ b/SDL/mdm/SDLAbholung/usrCntlSDLAbholung.Designer.vb @@ -527,7 +527,7 @@ Partial Class usrCntlSDLAbholung Me.lblErgebnis.Name = "lblErgebnis" Me.lblErgebnis.Size = New System.Drawing.Size(215, 14) Me.lblErgebnis.TabIndex = 3 - Me.lblErgebnis.Text = "Ergebnise: 0" + Me.lblErgebnis.Text = "Ergebnisse: 0" Me.lblErgebnis.TextAlign = System.Drawing.ContentAlignment.TopRight ' 'Label37 diff --git a/SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungHUGO.vb b/SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungHUGO.vb index f0768a3f..daab6828 100644 --- a/SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungHUGO.vb +++ b/SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungHUGO.vb @@ -38,7 +38,7 @@ Public Class usrCntlSDLLeistungHUGO End Sub Private Sub usrCntlSDLLeistungenCZ_Load(sender As Object, e As EventArgs) Handles Me.Load - + UsrCntlDetails.kdNr = kdNr UsrCntlDetails.SDLNr = SDLNr UsrCntlDetails.History = History @@ -128,7 +128,7 @@ Public Class usrCntlSDLLeistungHUGO End Sub - + Public Sub newEntry() ' s.updateBinding() diff --git a/SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungPLOSE.Designer.vb b/SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungPLOSE.Designer.vb new file mode 100644 index 00000000..aa829ea9 --- /dev/null +++ b/SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungPLOSE.Designer.vb @@ -0,0 +1,587 @@ + +Partial Class usrCntlSDLLeistungPLOSE + 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 + 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() + Me.components = New System.ComponentModel.Container() + Me.cbxRetourniert = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components) + Me.txtPin = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtKartenNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtOBUID = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label3 = New System.Windows.Forms.Label() + Me.Label1 = New System.Windows.Forms.Label() + Me.Label9 = New System.Windows.Forms.Label() + Me.txtPLOSEKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label2 = New System.Windows.Forms.Label() + Me.Panel2 = New System.Windows.Forms.Panel() + Me.Label8 = New System.Windows.Forms.Label() + Me.txtVermerk = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label4 = New System.Windows.Forms.Label() + Me.cbxGestohlen = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components) + Me.cbxVerloren = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components) + Me.cbxGesperrt = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components) + Me.cbxDefekt = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components) + Me.txtLieferung = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtBestellung = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtGueltigkeit2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label6 = New System.Windows.Forms.Label() + Me.Label7 = New System.Windows.Forms.Label() + Me.Label11 = New System.Windows.Forms.Label() + Me.tbcntr = New System.Windows.Forms.TabControl() + Me.TabPage1 = New System.Windows.Forms.TabPage() + Me.UsrCntlDetails = New SDL.usrCntlAllg() + Me.TabPage2 = New System.Windows.Forms.TabPage() + Me.scanLieferschein = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() + Me.scanSonstiges = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() + Me.scanRetourniert = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() + Me.cbxArchiviert = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components) + Me.Panel2.SuspendLayout() + Me.tbcntr.SuspendLayout() + Me.TabPage1.SuspendLayout() + Me.TabPage2.SuspendLayout() + Me.SuspendLayout() + ' + 'cbxRetourniert + ' + Me.cbxRetourniert._date = Nothing + Me.cbxRetourniert._showdate = True + Me.cbxRetourniert._value = "" + Me.cbxRetourniert.AutoSize = True + Me.cbxRetourniert.Location = New System.Drawing.Point(333, 64) + Me.cbxRetourniert.Name = "cbxRetourniert" + Me.cbxRetourniert.Size = New System.Drawing.Size(78, 17) + Me.cbxRetourniert.TabIndex = 7 + Me.cbxRetourniert.Text = "Retourniert" + Me.cbxRetourniert.UseVisualStyleBackColor = True + ' + 'txtPin + ' + Me.txtPin._DateTimeOnly = False + Me.txtPin._numbersOnly = False + Me.txtPin._numbersOnlyKommastellen = "" + Me.txtPin._Prozent = False + Me.txtPin._ShortDateNew = False + Me.txtPin._ShortDateOnly = False + Me.txtPin._TimeOnly = False + Me.txtPin._value = Nothing + Me.txtPin._Waehrung = False + Me.txtPin._WaehrungZeichen = True + Me.txtPin.ForeColor = System.Drawing.Color.Black + Me.txtPin.Location = New System.Drawing.Point(106, 118) + Me.txtPin.MaxLength = 6 + Me.txtPin.MaxLineLength = -1 + Me.txtPin.MaxLines_Warning = "" + Me.txtPin.MaxLines_Warning_Label = Nothing + Me.txtPin.Name = "txtPin" + Me.txtPin.Size = New System.Drawing.Size(55, 20) + Me.txtPin.TabIndex = 3 + ' + 'txtKartenNr + ' + Me.txtKartenNr._DateTimeOnly = False + Me.txtKartenNr._numbersOnly = False + Me.txtKartenNr._numbersOnlyKommastellen = "" + Me.txtKartenNr._Prozent = False + Me.txtKartenNr._ShortDateNew = False + Me.txtKartenNr._ShortDateOnly = False + Me.txtKartenNr._TimeOnly = False + Me.txtKartenNr._value = Nothing + Me.txtKartenNr._Waehrung = False + Me.txtKartenNr._WaehrungZeichen = True + Me.txtKartenNr.ForeColor = System.Drawing.Color.Black + Me.txtKartenNr.Location = New System.Drawing.Point(106, 96) + Me.txtKartenNr.MaxLength = 22 + Me.txtKartenNr.MaxLineLength = -1 + Me.txtKartenNr.MaxLines_Warning = "" + Me.txtKartenNr.MaxLines_Warning_Label = Nothing + Me.txtKartenNr.Name = "txtKartenNr" + Me.txtKartenNr.Size = New System.Drawing.Size(183, 20) + Me.txtKartenNr.TabIndex = 2 + ' + 'txtOBUID + ' + Me.txtOBUID._DateTimeOnly = False + Me.txtOBUID._numbersOnly = False + Me.txtOBUID._numbersOnlyKommastellen = "" + Me.txtOBUID._Prozent = False + Me.txtOBUID._ShortDateNew = False + Me.txtOBUID._ShortDateOnly = False + Me.txtOBUID._TimeOnly = False + Me.txtOBUID._value = Nothing + Me.txtOBUID._Waehrung = False + Me.txtOBUID._WaehrungZeichen = True + Me.txtOBUID.ForeColor = System.Drawing.Color.Black + Me.txtOBUID.Location = New System.Drawing.Point(106, 140) + Me.txtOBUID.MaxLength = 18 + Me.txtOBUID.MaxLineLength = -1 + Me.txtOBUID.MaxLines_Warning = "" + Me.txtOBUID.MaxLines_Warning_Label = Nothing + Me.txtOBUID.Name = "txtOBUID" + Me.txtOBUID.Size = New System.Drawing.Size(183, 20) + Me.txtOBUID.TabIndex = 4 + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label3.Location = New System.Drawing.Point(3, 121) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(29, 13) + Me.Label3.TabIndex = 14 + Me.Label3.Text = "Pin:" + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label1.Location = New System.Drawing.Point(3, 99) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(69, 13) + Me.Label1.TabIndex = 9 + Me.Label1.Text = "Karten-Nr.:" + ' + 'Label9 + ' + Me.Label9.AutoSize = True + Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label9.Location = New System.Drawing.Point(3, 143) + Me.Label9.Name = "Label9" + Me.Label9.Size = New System.Drawing.Size(52, 13) + Me.Label9.TabIndex = 12 + Me.Label9.Text = "OBU-Id:" + ' + 'txtPLOSEKdNr + ' + Me.txtPLOSEKdNr._DateTimeOnly = False + Me.txtPLOSEKdNr._numbersOnly = True + Me.txtPLOSEKdNr._numbersOnlyKommastellen = "" + Me.txtPLOSEKdNr._Prozent = False + Me.txtPLOSEKdNr._ShortDateNew = False + Me.txtPLOSEKdNr._ShortDateOnly = False + Me.txtPLOSEKdNr._TimeOnly = False + Me.txtPLOSEKdNr._value = "" + Me.txtPLOSEKdNr._Waehrung = False + Me.txtPLOSEKdNr._WaehrungZeichen = True + Me.txtPLOSEKdNr.Location = New System.Drawing.Point(574, 6) + Me.txtPLOSEKdNr.MaxLineLength = -1 + Me.txtPLOSEKdNr.MaxLines_Warning = "" + Me.txtPLOSEKdNr.MaxLines_Warning_Label = Nothing + Me.txtPLOSEKdNr.Name = "txtPLOSEKdNr" + Me.txtPLOSEKdNr.Size = New System.Drawing.Size(183, 20) + Me.txtPLOSEKdNr.TabIndex = 21 + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.ForeColor = System.Drawing.Color.White + Me.Label2.Location = New System.Drawing.Point(471, 9) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(93, 13) + Me.Label2.TabIndex = 20 + Me.Label2.Text = "Plose-Kunden-Nr.:" + ' + 'Panel2 + ' + Me.Panel2.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.Panel2.Controls.Add(Me.Label8) + Me.Panel2.Controls.Add(Me.txtPLOSEKdNr) + Me.Panel2.Controls.Add(Me.Label2) + Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top + Me.Panel2.Location = New System.Drawing.Point(0, 0) + Me.Panel2.Name = "Panel2" + Me.Panel2.Size = New System.Drawing.Size(760, 30) + Me.Panel2.TabIndex = 94 + ' + 'Label8 + ' + Me.Label8.AutoSize = True + Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label8.ForeColor = System.Drawing.Color.White + Me.Label8.Location = New System.Drawing.Point(6, 9) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(47, 13) + Me.Label8.TabIndex = 14 + Me.Label8.Text = "PLOSE" + ' + 'txtVermerk + ' + Me.txtVermerk._DateTimeOnly = False + Me.txtVermerk._numbersOnly = False + Me.txtVermerk._numbersOnlyKommastellen = "" + Me.txtVermerk._Prozent = False + Me.txtVermerk._ShortDateNew = False + Me.txtVermerk._ShortDateOnly = False + Me.txtVermerk._TimeOnly = False + Me.txtVermerk._value = Nothing + Me.txtVermerk._Waehrung = False + Me.txtVermerk._WaehrungZeichen = True + Me.txtVermerk.Location = New System.Drawing.Point(106, 162) + Me.txtVermerk.MaxLength = 100 + Me.txtVermerk.MaxLineLength = -1 + Me.txtVermerk.MaxLines_Warning = "" + Me.txtVermerk.MaxLines_Warning_Label = Nothing + Me.txtVermerk.Multiline = True + Me.txtVermerk.Name = "txtVermerk" + Me.txtVermerk.Size = New System.Drawing.Size(183, 55) + Me.txtVermerk.TabIndex = 5 + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.Location = New System.Drawing.Point(3, 165) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(49, 13) + Me.Label4.TabIndex = 119 + Me.Label4.Text = "Vermerk:" + ' + 'cbxGestohlen + ' + Me.cbxGestohlen._date = Nothing + Me.cbxGestohlen._showdate = True + Me.cbxGestohlen._value = "" + Me.cbxGestohlen.AutoSize = True + Me.cbxGestohlen.Location = New System.Drawing.Point(333, 134) + Me.cbxGestohlen.Name = "cbxGestohlen" + Me.cbxGestohlen.Size = New System.Drawing.Size(74, 17) + Me.cbxGestohlen.TabIndex = 9 + Me.cbxGestohlen.Text = "Gestohlen" + Me.cbxGestohlen.UseVisualStyleBackColor = True + ' + 'cbxVerloren + ' + Me.cbxVerloren._date = Nothing + Me.cbxVerloren._showdate = True + Me.cbxVerloren._value = "" + Me.cbxVerloren.AutoSize = True + Me.cbxVerloren.Location = New System.Drawing.Point(333, 111) + Me.cbxVerloren.Name = "cbxVerloren" + Me.cbxVerloren.Size = New System.Drawing.Size(65, 17) + Me.cbxVerloren.TabIndex = 8 + Me.cbxVerloren.Text = "Verloren" + Me.cbxVerloren.UseVisualStyleBackColor = True + ' + 'cbxGesperrt + ' + Me.cbxGesperrt._date = Nothing + Me.cbxGesperrt._showdate = True + Me.cbxGesperrt._value = "" + Me.cbxGesperrt.AutoSize = True + Me.cbxGesperrt.Location = New System.Drawing.Point(333, 155) + Me.cbxGesperrt.Name = "cbxGesperrt" + Me.cbxGesperrt.Size = New System.Drawing.Size(66, 17) + Me.cbxGesperrt.TabIndex = 10 + Me.cbxGesperrt.Text = "Gesperrt" + Me.cbxGesperrt.UseVisualStyleBackColor = True + ' + 'cbxDefekt + ' + Me.cbxDefekt._date = Nothing + Me.cbxDefekt._showdate = True + Me.cbxDefekt._value = "" + Me.cbxDefekt.AutoSize = True + Me.cbxDefekt.Location = New System.Drawing.Point(333, 177) + Me.cbxDefekt.Name = "cbxDefekt" + Me.cbxDefekt.Size = New System.Drawing.Size(58, 17) + Me.cbxDefekt.TabIndex = 11 + Me.cbxDefekt.Text = "Defekt" + Me.cbxDefekt.UseVisualStyleBackColor = True + ' + 'txtLieferung + ' + Me.txtLieferung._DateTimeOnly = False + Me.txtLieferung._numbersOnly = False + Me.txtLieferung._numbersOnlyKommastellen = "" + Me.txtLieferung._Prozent = False + Me.txtLieferung._ShortDateNew = True + Me.txtLieferung._ShortDateOnly = False + Me.txtLieferung._TimeOnly = False + Me.txtLieferung._value = "" + Me.txtLieferung._Waehrung = False + Me.txtLieferung._WaehrungZeichen = True + Me.txtLieferung.ForeColor = System.Drawing.Color.Red + Me.txtLieferung.Location = New System.Drawing.Point(106, 62) + Me.txtLieferung.MaxLength = 10 + Me.txtLieferung.MaxLineLength = -1 + Me.txtLieferung.MaxLines_Warning = "" + Me.txtLieferung.MaxLines_Warning_Label = Nothing + Me.txtLieferung.Name = "txtLieferung" + Me.txtLieferung.Size = New System.Drawing.Size(74, 20) + Me.txtLieferung.TabIndex = 1 + ' + 'txtBestellung + ' + Me.txtBestellung._DateTimeOnly = False + Me.txtBestellung._numbersOnly = False + Me.txtBestellung._numbersOnlyKommastellen = "" + Me.txtBestellung._Prozent = False + Me.txtBestellung._ShortDateNew = True + Me.txtBestellung._ShortDateOnly = False + Me.txtBestellung._TimeOnly = False + Me.txtBestellung._value = "" + Me.txtBestellung._Waehrung = False + Me.txtBestellung._WaehrungZeichen = True + Me.txtBestellung.ForeColor = System.Drawing.Color.Red + Me.txtBestellung.Location = New System.Drawing.Point(106, 36) + Me.txtBestellung.MaxLength = 10 + Me.txtBestellung.MaxLineLength = -1 + Me.txtBestellung.MaxLines_Warning = "" + Me.txtBestellung.MaxLines_Warning_Label = Nothing + Me.txtBestellung.Name = "txtBestellung" + Me.txtBestellung.Size = New System.Drawing.Size(74, 20) + Me.txtBestellung.TabIndex = 0 + ' + 'txtGueltigkeit2 + ' + Me.txtGueltigkeit2._DateTimeOnly = False + Me.txtGueltigkeit2._numbersOnly = False + Me.txtGueltigkeit2._numbersOnlyKommastellen = "" + Me.txtGueltigkeit2._Prozent = False + Me.txtGueltigkeit2._ShortDateNew = True + Me.txtGueltigkeit2._ShortDateOnly = False + Me.txtGueltigkeit2._TimeOnly = False + Me.txtGueltigkeit2._value = "" + Me.txtGueltigkeit2._Waehrung = False + Me.txtGueltigkeit2._WaehrungZeichen = True + Me.txtGueltigkeit2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txtGueltigkeit2.ForeColor = System.Drawing.Color.Red + Me.txtGueltigkeit2.Location = New System.Drawing.Point(389, 36) + Me.txtGueltigkeit2.MaxLength = 10 + Me.txtGueltigkeit2.MaxLineLength = -1 + Me.txtGueltigkeit2.MaxLines_Warning = "" + Me.txtGueltigkeit2.MaxLines_Warning_Label = Nothing + Me.txtGueltigkeit2.Name = "txtGueltigkeit2" + Me.txtGueltigkeit2.Size = New System.Drawing.Size(74, 20) + Me.txtGueltigkeit2.TabIndex = 6 + Me.txtGueltigkeit2.Visible = False + ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.Location = New System.Drawing.Point(3, 65) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(65, 13) + Me.Label6.TabIndex = 123 + Me.Label6.Text = "Lieferdatum:" + ' + 'Label7 + ' + Me.Label7.AutoSize = True + Me.Label7.Location = New System.Drawing.Point(3, 39) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(70, 13) + Me.Label7.TabIndex = 122 + Me.Label7.Text = "Bestelldatum:" + ' + 'Label11 + ' + Me.Label11.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Label11.AutoSize = True + Me.Label11.Location = New System.Drawing.Point(330, 39) + Me.Label11.Name = "Label11" + Me.Label11.Size = New System.Drawing.Size(53, 13) + Me.Label11.TabIndex = 121 + Me.Label11.Text = "Gültig bis:" + Me.Label11.Visible = False + ' + 'tbcntr + ' + Me.tbcntr.Controls.Add(Me.TabPage1) + Me.tbcntr.Controls.Add(Me.TabPage2) + Me.tbcntr.Dock = System.Windows.Forms.DockStyle.Right + Me.tbcntr.Location = New System.Drawing.Point(496, 30) + Me.tbcntr.Name = "tbcntr" + Me.tbcntr.SelectedIndex = 0 + Me.tbcntr.Size = New System.Drawing.Size(264, 190) + Me.tbcntr.TabIndex = 127 + ' + 'TabPage1 + ' + Me.TabPage1.Controls.Add(Me.UsrCntlDetails) + 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(256, 164) + Me.TabPage1.TabIndex = 0 + Me.TabPage1.Text = "Details" + Me.TabPage1.UseVisualStyleBackColor = True + ' + 'UsrCntlDetails + ' + Me.UsrCntlDetails.BackColor = System.Drawing.Color.White + Me.UsrCntlDetails.Dock = System.Windows.Forms.DockStyle.Fill + Me.UsrCntlDetails.Location = New System.Drawing.Point(3, 3) + Me.UsrCntlDetails.Name = "UsrCntlDetails" + Me.UsrCntlDetails.Size = New System.Drawing.Size(250, 158) + Me.UsrCntlDetails.TabIndex = 18 + ' + 'TabPage2 + ' + Me.TabPage2.Controls.Add(Me.scanLieferschein) + Me.TabPage2.Controls.Add(Me.scanSonstiges) + Me.TabPage2.Controls.Add(Me.scanRetourniert) + 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(256, 164) + Me.TabPage2.TabIndex = 1 + Me.TabPage2.Text = "Dokumente" + Me.TabPage2.UseVisualStyleBackColor = True + ' + 'scanLieferschein + ' + Me.scanLieferschein._ARCHIV = True + Me.scanLieferschein._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanLieferschein._DATENSERVER_ORDNER = "MDM" + Me.scanLieferschein._DATENSERVER_UOrdner1 = Nothing + Me.scanLieferschein._DATENSERVER_UOrdner2 = Nothing + Me.scanLieferschein._DATENSERVER_UOrdner3 = Nothing + Me.scanLieferschein._MULTI_FILES = True + Me.scanLieferschein._TEXT_PDF = "Lieferschein" + Me.scanLieferschein.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanLieferschein.BackColor = System.Drawing.Color.White + Me.scanLieferschein.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanLieferschein.Cursor = System.Windows.Forms.Cursors.Default + Me.scanLieferschein.Location = New System.Drawing.Point(3, 4) + Me.scanLieferschein.Name = "scanLieferschein" + Me.scanLieferschein.Size = New System.Drawing.Size(94, 24) + Me.scanLieferschein.TabIndex = 23 + ' + 'scanSonstiges + ' + Me.scanSonstiges._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanSonstiges._DATENSERVER_ORDNER = "MDM" + Me.scanSonstiges._DATENSERVER_UOrdner1 = "" + Me.scanSonstiges._DATENSERVER_UOrdner2 = "" + Me.scanSonstiges._DATENSERVER_UOrdner3 = "" + Me.scanSonstiges.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanSonstiges.BackColor = System.Drawing.Color.White + Me.scanSonstiges.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanSonstiges.Cursor = System.Windows.Forms.Cursors.Hand + Me.scanSonstiges.Location = New System.Drawing.Point(3, 31) + Me.scanSonstiges.Margin = New System.Windows.Forms.Padding(0) + Me.scanSonstiges.Name = "scanSonstiges" + Me.scanSonstiges.Size = New System.Drawing.Size(250, 130) + Me.scanSonstiges.TabIndex = 21 + ' + 'scanRetourniert + ' + Me.scanRetourniert._ARCHIV = True + Me.scanRetourniert._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanRetourniert._DATENSERVER_ORDNER = "MDM" + Me.scanRetourniert._DATENSERVER_UOrdner1 = Nothing + Me.scanRetourniert._DATENSERVER_UOrdner2 = Nothing + Me.scanRetourniert._DATENSERVER_UOrdner3 = Nothing + Me.scanRetourniert._MULTI_FILES = True + Me.scanRetourniert._TEXT_PDF = "Retourniert" + Me.scanRetourniert.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanRetourniert.BackColor = System.Drawing.Color.White + Me.scanRetourniert.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanRetourniert.Cursor = System.Windows.Forms.Cursors.Default + Me.scanRetourniert.Location = New System.Drawing.Point(103, 4) + Me.scanRetourniert.Name = "scanRetourniert" + Me.scanRetourniert.Size = New System.Drawing.Size(90, 24) + Me.scanRetourniert.TabIndex = 20 + ' + 'cbxArchiviert + ' + Me.cbxArchiviert._date = Nothing + Me.cbxArchiviert._showdate = True + Me.cbxArchiviert._value = "" + Me.cbxArchiviert.AutoSize = True + Me.cbxArchiviert.Location = New System.Drawing.Point(333, 200) + Me.cbxArchiviert.Name = "cbxArchiviert" + Me.cbxArchiviert.Size = New System.Drawing.Size(91, 17) + Me.cbxArchiviert.TabIndex = 128 + Me.cbxArchiviert.Text = "ARCHIVIERT" + Me.cbxArchiviert.UseVisualStyleBackColor = True + ' + 'usrCntlSDLLeistungPLOSE + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.Color.White + Me.Controls.Add(Me.cbxArchiviert) + Me.Controls.Add(Me.tbcntr) + Me.Controls.Add(Me.txtLieferung) + Me.Controls.Add(Me.txtBestellung) + Me.Controls.Add(Me.txtGueltigkeit2) + Me.Controls.Add(Me.Label6) + Me.Controls.Add(Me.Label7) + Me.Controls.Add(Me.Label11) + Me.Controls.Add(Me.txtVermerk) + Me.Controls.Add(Me.Label4) + Me.Controls.Add(Me.cbxGestohlen) + Me.Controls.Add(Me.cbxVerloren) + Me.Controls.Add(Me.cbxGesperrt) + Me.Controls.Add(Me.cbxDefekt) + Me.Controls.Add(Me.Panel2) + Me.Controls.Add(Me.cbxRetourniert) + Me.Controls.Add(Me.txtPin) + Me.Controls.Add(Me.txtKartenNr) + Me.Controls.Add(Me.txtOBUID) + Me.Controls.Add(Me.Label3) + Me.Controls.Add(Me.Label1) + Me.Controls.Add(Me.Label9) + Me.Name = "usrCntlSDLLeistungPLOSE" + Me.Size = New System.Drawing.Size(760, 220) + Me.Panel2.ResumeLayout(False) + Me.Panel2.PerformLayout() + Me.tbcntr.ResumeLayout(False) + Me.TabPage1.ResumeLayout(False) + Me.TabPage2.ResumeLayout(False) + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents cbxRetourniert As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue + Friend WithEvents txtPin As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtKartenNr As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtOBUID As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label3 As System.Windows.Forms.Label + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents Label9 As System.Windows.Forms.Label + Friend WithEvents txtPLOSEKdNr As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents Panel2 As System.Windows.Forms.Panel + Friend WithEvents Label8 As System.Windows.Forms.Label + Friend WithEvents txtVermerk As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label4 As System.Windows.Forms.Label + Friend WithEvents cbxGestohlen As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue + Friend WithEvents cbxVerloren As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue + Friend WithEvents cbxGesperrt As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue + Friend WithEvents cbxDefekt As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue + Friend WithEvents txtLieferung As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtBestellung As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtGueltigkeit2 As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label6 As System.Windows.Forms.Label + Friend WithEvents Label7 As System.Windows.Forms.Label + Friend WithEvents Label11 As System.Windows.Forms.Label + Friend WithEvents tbcntr As System.Windows.Forms.TabControl + Friend WithEvents TabPage1 As System.Windows.Forms.TabPage + Friend WithEvents UsrCntlDetails As SDL.usrCntlAllg + Friend WithEvents TabPage2 As System.Windows.Forms.TabPage + Friend WithEvents scanSonstiges As VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList + Friend WithEvents scanRetourniert As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan + Friend WithEvents scanLieferschein As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan + Friend WithEvents cbxArchiviert As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue + +End Class diff --git a/SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungPLOSE.resx b/SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungPLOSE.resx new file mode 100644 index 00000000..1af7de15 --- /dev/null +++ b/SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungPLOSE.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + \ No newline at end of file diff --git a/SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungPLOSE.vb b/SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungPLOSE.vb new file mode 100644 index 00000000..c9d4771d --- /dev/null +++ b/SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungPLOSE.vb @@ -0,0 +1,205 @@ + +Imports System.Globalization + +Public Class usrCntlSDLLeistungPLOSE + Public KfzKennzeichen As String + Public SDLNr As String + Public kdNr As String + Dim PROG As New cProgramFunctions + Dim kundenSQL As New kundenSQL + Public History As String + + Dim culture As CultureInfo = New CultureInfo("de-DE") + Private PartnerKdNrFromFMZOLL As cPartnerKdNRFMZoll + Public addnew As Boolean = False + Dim VAL As New cValidationSDLLeistungen + Public Event LKWChanged(kdNr, newKfz, SDLNr, History) + Public Event CHANGED(kdNr, newKfz, SDLNr, History) + 'Public WithEvents s As New cBinding 'fürs Binding + Public SDL As cSDL + Dim boud = False + + + Sub New(kdNr, KfzKennzeichen, SDLNr, History) + + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + + Me.kdNr = kdNr + Me.KfzKennzeichen = KfzKennzeichen + Me.SDLNr = SDLNr + Me.History = History + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + + End Sub + + Private Sub usrCntlLKW_Disposed(sender As Object, e As EventArgs) Handles Me.Disposed + 'MsgBox("disp") + End Sub + + Private Sub usrCntlSDLLeistungenCZ_Load(sender As Object, e As EventArgs) Handles Me.Load + + UsrCntlDetails.kdNr = kdNr + UsrCntlDetails.SDLNr = SDLNr + UsrCntlDetails.History = History + UsrCntlDetails.lblLKWNr.Text = KfzKennzeichen + AddHandler UsrCntlDetails.LKWChanged, Sub(newKfz) + RaiseEvent LKWChanged(kdNr, newKfz, SDLNr, History) + End Sub + + 'Scan-Elemente initialisieren: + scanLieferschein.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History) + scanRetourniert.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History) + scanSonstiges.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History) + + initDataBinding() + boud = True + + If txtPLOSEKdNr.Text = "" Then + getPartnerKdNrFromFMZOLL() ' Lädt die Partner-KdNr + txtPLOSEKdNr.Text = PartnerKdNrFromFMZOLL.PLOSE_KundenNr + End If + ' If txtMSEKdNr.Text = "" Then + ' getPartnerKdNrFromFMZOLL() ' Lädt die Partner-KdNr + ' txtMSEKdNr.Text = PartnerKdNrFromFMZOLL.MSEKundenNr + ' End If + + If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then + cProgramFunctions.setControlReadOnly(Me) + End If + End Sub + Sub getPartnerKdNrFromFMZOLL() ' Lädt die Partner-KdNr + PartnerKdNrFromFMZOLL = kundenSQL.getPartnerKdNrFromFMZOLL(kdNr) + End Sub + + + Function gueltigBisabgelaufen(o) As Boolean + If CDate(o) > Now Then + Return False + End If + Return True + End Function + + Sub initDataBinding() + Try + SDL = New cSDL(kdNr, KfzKennzeichen, SDLNr, History) + + PROG.initDTPE(txtLieferung) + PROG.initDTPE(txtBestellung) + 'PROG.initDTPE(txtGueltigkeit2) + + txtLieferung._value = SDL.Lieferdatum + txtBestellung._value = SDL.Bestelldatum + ' txtGueltigkeit2._value = SDL.GültigBis + + cbxRetourniert._date = SDL.RetourniertAm + cbxVerloren._date = SDL.VerlorenAm + cbxGestohlen._date = SDL.GestohlenAm + cbxGesperrt._date = SDL.GesperrtAm + cbxDefekt._date = SDL.DefektAm + + cbxGesperrt.Checked = SDL.Gesperrt + cbxDefekt.Checked = SDL.Defekt + cbxGestohlen.Checked = SDL.Gestohlen + cbxVerloren.Checked = SDL.Verloren + cbxArchiviert.Checked = SDL.Archiviert + + cbxRetourniert.Checked = SDL.Retourniert + + txtVermerk.Text = SDL.Vermerk + + UsrCntlDetails.lblErfassung.Text = SDL.Erfassungsdatum + UsrCntlDetails.lblAenderung.Text = SDL.Änderungsdatum + UsrCntlDetails.lblSachbearb.Text = SDL.Sachbearbeiter + + ' txtPLOSEKdNr.Text = SDL.MSE_Kd_Nr + txtOBUID.Text = SDL.OBUID + txtKartenNr.Text = SDL.KartenNr + txtPin.Text = SDL.PIN + + Catch ex As Exception + MsgBox(ex.Message) + MsgBox(ex.StackTrace) + End Try + + End Sub + + + Public Sub newEntry() + ' s.updateBinding() + ' s.newEntry(kdNr, KfzKennzeichen, SDLNr) 'NEUER EINTRAG! + If txtBestellung.Text = "" Then txtBestellung.Text = Now.ToShortDateString + End Sub + + Sub BindingTableColumnChanged() + UsrCntlDetails.lblSachbearb.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME + UsrCntlDetails.lblAenderung.Text = Now.ToString("dd.MM.yyyy HH:mm") + ' If e.Column.ColumnName = "Sachbearbeiter" Or e.Column.ColumnName = "Änderungsdatum" Then Exit Sub + If save() Then RaiseEvent CHANGED(kdNr, KfzKennzeichen, SDLNr, History) + End Sub + + Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) + Dim valid As Boolean = VAL.checkValidDate(sender, True) + End Sub + + Public Function save() As Boolean + loadDataInClass() + Return SDL.SAVE + 'If checkSave() Then + ' Return kundenSQL.doSQLByList(s.bindingSource) + 'End If + Return False + End Function + + Sub loadDataInClass() + SDL.Lieferdatum = PROG.isEmptyNull(txtLieferung._value) + SDL.Bestelldatum = PROG.isEmptyNull(txtBestellung._value) + ' SDL.GültigBis = PROG.isEmptyNull(txtGueltigkeit2._value) + SDL.Gesperrt = cbxGesperrt.Checked + SDL.Defekt = cbxDefekt.Checked + SDL.Gestohlen = cbxGestohlen.Checked + SDL.Verloren = cbxVerloren.Checked + SDL.Retourniert = cbxRetourniert.Checked + SDL.Vermerk = txtVermerk.Text + SDL.Erfassungsdatum = UsrCntlDetails.lblErfassung.Text + SDL.Änderungsdatum = UsrCntlDetails.lblAenderung.Text + SDL.Sachbearbeiter = UsrCntlDetails.lblSachbearb.Text + 'SDL. = txtPLOSEKdNr.Text + SDL.OBUID = txtOBUID.Text + SDL.KartenNr = txtKartenNr.Text + SDL.PIN = txtPin.Text + + SDL.RetourniertAm = cbxRetourniert._date + SDL.VerlorenAm = cbxVerloren._date + SDL.GestohlenAm = cbxGestohlen._date + SDL.GesperrtAm = cbxGesperrt._date + SDL.DefektAm = cbxDefekt._date + SDL.Archiviert = cbxArchiviert.Checked + End Sub + + Function checkSave() As Boolean + ' If Not VAL.checkValidDate(txtBestellung, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Bestelldatum: Datumsformat nicht korrekt!", 3) : Return False + ' If Not VAL.checkValidDate(txtLieferung, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Lieferdatum: Datumsformat nicht korrekt!", 3) : Return False + ' If Not VAL.checkValidDate(txtGueltigkeit, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Gültigkeitsdatum: Datumsformat nicht korrekt!", 3) : Return False + Return True + End Function + + + + Private Sub txtBestellung_TextChanged(sender As Object, e As EventArgs) Handles txtBestellung.PropertyChanged, txtLieferung.PropertyChanged, txtPLOSEKdNr.TextChanged, txtOBUID.TextChanged, txtKartenNr.TextChanged, txtPin.TextChanged, txtVermerk.TextChanged, cbxDefekt.CheckedChanged, cbxVerloren.CheckedChanged, cbxGestohlen.CheckedChanged, cbxGesperrt.CheckedChanged, cbxRetourniert.CheckedChanged, cbxArchiviert.CheckedChanged ' txtGueltigkeit2.PropertyChanged, + If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then Exit Sub + + If boud And Me.FindForm IsNot Nothing Then + If sender Is txtLieferung Then + If Not PROG.checkSDLNrPartnerKdNr(kdNr, SDLNr) Then MsgBox("Bitte geben Sie die Partner-Kundennummer im Kundenblatt oder im FM-ZOLL ein!") + End If + BindingTableColumnChanged() + End If + End Sub + Function addTxtToVermerk(tmp, txt) As String + If txtVermerk.Text <> "" Then tmp &= " / " + tmp &= txt & ", am " & Now.ToShortDateString + If tmp.Length > txtVermerk.MaxLength Then tmp = tmp.Substring(0, txtVermerk.MaxLength) + Return tmp + End Function +End Class diff --git a/SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenPLOSE_CZ.Designer.vb b/SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenPLOSE_CZ.Designer.vb new file mode 100644 index 00000000..912ec63c --- /dev/null +++ b/SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenPLOSE_CZ.Designer.vb @@ -0,0 +1,509 @@ + +Partial Class usrCntlSDLLeistungenPLOSE_CZ + 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 + 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() + Me.components = New System.ComponentModel.Container() + Me.Label1 = New System.Windows.Forms.Label() + Me.cbxRetourniert = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components) + Me.Label9 = New System.Windows.Forms.Label() + Me.Label12 = New System.Windows.Forms.Label() + Me.Label10 = New System.Windows.Forms.Label() + Me.txtPLOSEKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtVermerk = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtOBUID = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtKartenNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Panel2 = New System.Windows.Forms.Panel() + Me.Label8 = New System.Windows.Forms.Label() + Me.cbxGestohlen = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components) + Me.cbxVerloren = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components) + Me.cbxGesperrt = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components) + Me.cbxDefekt = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components) + Me.txtLieferung = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtBestellung = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label6 = New System.Windows.Forms.Label() + Me.Label7 = New System.Windows.Forms.Label() + Me.tbcntr = New System.Windows.Forms.TabControl() + Me.TabPage1 = New System.Windows.Forms.TabPage() + Me.UsrCntlDetails = New SDL.usrCntlAllg() + Me.TabPage2 = New System.Windows.Forms.TabPage() + Me.scanBestellung = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() + Me.scanSonstiges = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() + Me.scanRetourniert = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() + Me.cbxArchiviert = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components) + Me.Panel2.SuspendLayout() + Me.tbcntr.SuspendLayout() + Me.TabPage1.SuspendLayout() + Me.TabPage2.SuspendLayout() + Me.SuspendLayout() + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.ForeColor = System.Drawing.Color.White + Me.Label1.Location = New System.Drawing.Point(462, 9) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(99, 13) + Me.Label1.TabIndex = 14 + Me.Label1.Text = "PLOSE-Kunden-Nr:" + ' + 'cbxRetourniert + ' + Me.cbxRetourniert._date = Nothing + Me.cbxRetourniert._showdate = True + Me.cbxRetourniert._value = "" + Me.cbxRetourniert.AutoSize = True + Me.cbxRetourniert.Location = New System.Drawing.Point(333, 64) + Me.cbxRetourniert.Name = "cbxRetourniert" + Me.cbxRetourniert.Size = New System.Drawing.Size(78, 17) + Me.cbxRetourniert.TabIndex = 5 + Me.cbxRetourniert.Text = "Retourniert" + Me.cbxRetourniert.UseVisualStyleBackColor = True + ' + 'Label9 + ' + Me.Label9.AutoSize = True + Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label9.Location = New System.Drawing.Point(3, 104) + Me.Label9.Name = "Label9" + Me.Label9.Size = New System.Drawing.Size(65, 13) + Me.Label9.TabIndex = 9 + Me.Label9.Text = "Karten-Nr:" + ' + 'Label12 + ' + Me.Label12.AutoSize = True + Me.Label12.Location = New System.Drawing.Point(3, 165) + Me.Label12.Name = "Label12" + Me.Label12.Size = New System.Drawing.Size(49, 13) + Me.Label12.TabIndex = 18 + Me.Label12.Text = "Vermerk:" + ' + 'Label10 + ' + Me.Label10.AutoSize = True + Me.Label10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label10.Location = New System.Drawing.Point(3, 129) + Me.Label10.Name = "Label10" + Me.Label10.Size = New System.Drawing.Size(54, 13) + Me.Label10.TabIndex = 12 + Me.Label10.Text = "OBU-ID:" + Me.Label10.Visible = False + ' + 'txtPLOSEKdNr + ' + Me.txtPLOSEKdNr._DateTimeOnly = False + Me.txtPLOSEKdNr._numbersOnly = True + Me.txtPLOSEKdNr._numbersOnlyKommastellen = "" + Me.txtPLOSEKdNr._Prozent = False + Me.txtPLOSEKdNr._ShortDateNew = False + Me.txtPLOSEKdNr._ShortDateOnly = False + Me.txtPLOSEKdNr._TimeOnly = False + Me.txtPLOSEKdNr._value = "" + Me.txtPLOSEKdNr._Waehrung = False + Me.txtPLOSEKdNr._WaehrungZeichen = True + Me.txtPLOSEKdNr.Location = New System.Drawing.Point(574, 6) + Me.txtPLOSEKdNr.MaxLineLength = -1 + Me.txtPLOSEKdNr.MaxLines_Warning = "" + Me.txtPLOSEKdNr.MaxLines_Warning_Label = Nothing + Me.txtPLOSEKdNr.Name = "txtPLOSEKdNr" + Me.txtPLOSEKdNr.Size = New System.Drawing.Size(183, 20) + Me.txtPLOSEKdNr.TabIndex = 15 + ' + 'txtVermerk + ' + Me.txtVermerk._DateTimeOnly = False + Me.txtVermerk._numbersOnly = False + Me.txtVermerk._numbersOnlyKommastellen = "" + Me.txtVermerk._Prozent = False + Me.txtVermerk._ShortDateNew = False + Me.txtVermerk._ShortDateOnly = False + Me.txtVermerk._TimeOnly = False + Me.txtVermerk._value = Nothing + Me.txtVermerk._Waehrung = False + Me.txtVermerk._WaehrungZeichen = True + Me.txtVermerk.Location = New System.Drawing.Point(106, 162) + Me.txtVermerk.MaxLength = 100 + Me.txtVermerk.MaxLineLength = -1 + Me.txtVermerk.MaxLines_Warning = "" + Me.txtVermerk.MaxLines_Warning_Label = Nothing + Me.txtVermerk.Multiline = True + Me.txtVermerk.Name = "txtVermerk" + Me.txtVermerk.Size = New System.Drawing.Size(183, 55) + Me.txtVermerk.TabIndex = 4 + ' + 'txtOBUID + ' + Me.txtOBUID._DateTimeOnly = False + Me.txtOBUID._numbersOnly = False + Me.txtOBUID._numbersOnlyKommastellen = "" + Me.txtOBUID._Prozent = False + Me.txtOBUID._ShortDateNew = False + Me.txtOBUID._ShortDateOnly = False + Me.txtOBUID._TimeOnly = False + Me.txtOBUID._value = Nothing + Me.txtOBUID._Waehrung = False + Me.txtOBUID._WaehrungZeichen = True + Me.txtOBUID.Location = New System.Drawing.Point(106, 126) + Me.txtOBUID.MaxLength = 18 + Me.txtOBUID.MaxLineLength = -1 + Me.txtOBUID.MaxLines_Warning = "" + Me.txtOBUID.MaxLines_Warning_Label = Nothing + Me.txtOBUID.Name = "txtOBUID" + Me.txtOBUID.Size = New System.Drawing.Size(183, 20) + Me.txtOBUID.TabIndex = 3 + Me.txtOBUID.Visible = False + ' + 'txtKartenNr + ' + Me.txtKartenNr._DateTimeOnly = False + Me.txtKartenNr._numbersOnly = False + Me.txtKartenNr._numbersOnlyKommastellen = "" + Me.txtKartenNr._Prozent = False + Me.txtKartenNr._ShortDateNew = False + Me.txtKartenNr._ShortDateOnly = False + Me.txtKartenNr._TimeOnly = False + Me.txtKartenNr._value = Nothing + Me.txtKartenNr._Waehrung = False + Me.txtKartenNr._WaehrungZeichen = True + Me.txtKartenNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtKartenNr.Location = New System.Drawing.Point(106, 99) + Me.txtKartenNr.MaxLength = 22 + Me.txtKartenNr.MaxLineLength = -1 + Me.txtKartenNr.MaxLines_Warning = "" + Me.txtKartenNr.MaxLines_Warning_Label = Nothing + Me.txtKartenNr.Name = "txtKartenNr" + Me.txtKartenNr.Size = New System.Drawing.Size(183, 23) + Me.txtKartenNr.TabIndex = 2 + ' + 'Panel2 + ' + Me.Panel2.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.Panel2.Controls.Add(Me.txtPLOSEKdNr) + Me.Panel2.Controls.Add(Me.Label8) + Me.Panel2.Controls.Add(Me.Label1) + Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top + Me.Panel2.Location = New System.Drawing.Point(0, 0) + Me.Panel2.Name = "Panel2" + Me.Panel2.Size = New System.Drawing.Size(760, 30) + Me.Panel2.TabIndex = 20 + ' + 'Label8 + ' + Me.Label8.AutoSize = True + Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label8.ForeColor = System.Drawing.Color.White + Me.Label8.Location = New System.Drawing.Point(6, 9) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(114, 13) + Me.Label8.TabIndex = 14 + Me.Label8.Text = "MAUT CZ - PLOSE" + ' + 'cbxGestohlen + ' + Me.cbxGestohlen._date = Nothing + Me.cbxGestohlen._showdate = True + Me.cbxGestohlen._value = "" + Me.cbxGestohlen.AutoSize = True + Me.cbxGestohlen.Location = New System.Drawing.Point(333, 135) + Me.cbxGestohlen.Name = "cbxGestohlen" + Me.cbxGestohlen.Size = New System.Drawing.Size(74, 17) + Me.cbxGestohlen.TabIndex = 7 + Me.cbxGestohlen.Text = "Gestohlen" + Me.cbxGestohlen.UseVisualStyleBackColor = True + ' + 'cbxVerloren + ' + Me.cbxVerloren._date = Nothing + Me.cbxVerloren._showdate = True + Me.cbxVerloren._value = "" + Me.cbxVerloren.AutoSize = True + Me.cbxVerloren.Location = New System.Drawing.Point(333, 112) + Me.cbxVerloren.Name = "cbxVerloren" + Me.cbxVerloren.Size = New System.Drawing.Size(65, 17) + Me.cbxVerloren.TabIndex = 6 + Me.cbxVerloren.Text = "Verloren" + Me.cbxVerloren.UseVisualStyleBackColor = True + ' + 'cbxGesperrt + ' + Me.cbxGesperrt._date = Nothing + Me.cbxGesperrt._showdate = True + Me.cbxGesperrt._value = "" + Me.cbxGesperrt.AutoSize = True + Me.cbxGesperrt.Location = New System.Drawing.Point(333, 156) + Me.cbxGesperrt.Name = "cbxGesperrt" + Me.cbxGesperrt.Size = New System.Drawing.Size(66, 17) + Me.cbxGesperrt.TabIndex = 8 + Me.cbxGesperrt.Text = "Gesperrt" + Me.cbxGesperrt.UseVisualStyleBackColor = True + ' + 'cbxDefekt + ' + Me.cbxDefekt._date = Nothing + Me.cbxDefekt._showdate = True + Me.cbxDefekt._value = "" + Me.cbxDefekt.AutoSize = True + Me.cbxDefekt.Location = New System.Drawing.Point(333, 178) + Me.cbxDefekt.Name = "cbxDefekt" + Me.cbxDefekt.Size = New System.Drawing.Size(58, 17) + Me.cbxDefekt.TabIndex = 9 + Me.cbxDefekt.Text = "Defekt" + Me.cbxDefekt.UseVisualStyleBackColor = True + ' + 'txtLieferung + ' + Me.txtLieferung._DateTimeOnly = False + Me.txtLieferung._numbersOnly = False + Me.txtLieferung._numbersOnlyKommastellen = "" + Me.txtLieferung._Prozent = False + Me.txtLieferung._ShortDateNew = True + Me.txtLieferung._ShortDateOnly = False + Me.txtLieferung._TimeOnly = False + Me.txtLieferung._value = "" + Me.txtLieferung._Waehrung = False + Me.txtLieferung._WaehrungZeichen = True + Me.txtLieferung.ForeColor = System.Drawing.Color.Red + Me.txtLieferung.Location = New System.Drawing.Point(105, 62) + Me.txtLieferung.MaxLength = 10 + Me.txtLieferung.MaxLineLength = -1 + Me.txtLieferung.MaxLines_Warning = "" + Me.txtLieferung.MaxLines_Warning_Label = Nothing + Me.txtLieferung.Name = "txtLieferung" + Me.txtLieferung.Size = New System.Drawing.Size(74, 20) + Me.txtLieferung.TabIndex = 1 + ' + 'txtBestellung + ' + Me.txtBestellung._DateTimeOnly = False + Me.txtBestellung._numbersOnly = False + Me.txtBestellung._numbersOnlyKommastellen = "" + Me.txtBestellung._Prozent = False + Me.txtBestellung._ShortDateNew = True + Me.txtBestellung._ShortDateOnly = False + Me.txtBestellung._TimeOnly = False + Me.txtBestellung._value = "" + Me.txtBestellung._Waehrung = False + Me.txtBestellung._WaehrungZeichen = True + Me.txtBestellung.ForeColor = System.Drawing.Color.Red + Me.txtBestellung.Location = New System.Drawing.Point(105, 36) + Me.txtBestellung.MaxLength = 10 + Me.txtBestellung.MaxLineLength = -1 + Me.txtBestellung.MaxLines_Warning = "" + Me.txtBestellung.MaxLines_Warning_Label = Nothing + Me.txtBestellung.Name = "txtBestellung" + Me.txtBestellung.Size = New System.Drawing.Size(74, 20) + Me.txtBestellung.TabIndex = 0 + ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.Location = New System.Drawing.Point(2, 65) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(65, 13) + Me.Label6.TabIndex = 85 + Me.Label6.Text = "Lieferdatum:" + ' + 'Label7 + ' + Me.Label7.AutoSize = True + Me.Label7.Location = New System.Drawing.Point(2, 39) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(70, 13) + Me.Label7.TabIndex = 84 + Me.Label7.Text = "Bestelldatum:" + ' + 'tbcntr + ' + Me.tbcntr.Controls.Add(Me.TabPage1) + Me.tbcntr.Controls.Add(Me.TabPage2) + Me.tbcntr.Dock = System.Windows.Forms.DockStyle.Right + Me.tbcntr.Location = New System.Drawing.Point(496, 30) + Me.tbcntr.Name = "tbcntr" + Me.tbcntr.SelectedIndex = 0 + Me.tbcntr.Size = New System.Drawing.Size(264, 190) + Me.tbcntr.TabIndex = 89 + ' + 'TabPage1 + ' + Me.TabPage1.Controls.Add(Me.UsrCntlDetails) + 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(256, 164) + Me.TabPage1.TabIndex = 0 + Me.TabPage1.Text = "Details" + Me.TabPage1.UseVisualStyleBackColor = True + ' + 'UsrCntlDetails + ' + Me.UsrCntlDetails.BackColor = System.Drawing.Color.White + Me.UsrCntlDetails.Dock = System.Windows.Forms.DockStyle.Fill + Me.UsrCntlDetails.Location = New System.Drawing.Point(3, 3) + Me.UsrCntlDetails.Name = "UsrCntlDetails" + Me.UsrCntlDetails.Size = New System.Drawing.Size(250, 158) + Me.UsrCntlDetails.TabIndex = 18 + ' + 'TabPage2 + ' + Me.TabPage2.Controls.Add(Me.scanBestellung) + Me.TabPage2.Controls.Add(Me.scanSonstiges) + Me.TabPage2.Controls.Add(Me.scanRetourniert) + 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(256, 164) + Me.TabPage2.TabIndex = 1 + Me.TabPage2.Text = "Dokumente" + Me.TabPage2.UseVisualStyleBackColor = True + ' + 'scanBestellung + ' + Me.scanBestellung._ARCHIV = True + Me.scanBestellung._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanBestellung._DATENSERVER_ORDNER = "MDM" + Me.scanBestellung._DATENSERVER_UOrdner1 = Nothing + Me.scanBestellung._DATENSERVER_UOrdner2 = Nothing + Me.scanBestellung._DATENSERVER_UOrdner3 = Nothing + Me.scanBestellung._MULTI_FILES = True + Me.scanBestellung._TEXT_PDF = "Bestellung" + Me.scanBestellung.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanBestellung.BackColor = System.Drawing.Color.White + Me.scanBestellung.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanBestellung.Cursor = System.Windows.Forms.Cursors.Default + Me.scanBestellung.Location = New System.Drawing.Point(3, 4) + Me.scanBestellung.Name = "scanBestellung" + Me.scanBestellung.Size = New System.Drawing.Size(91, 24) + Me.scanBestellung.TabIndex = 22 + ' + 'scanSonstiges + ' + Me.scanSonstiges._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanSonstiges._DATENSERVER_ORDNER = "MDM" + Me.scanSonstiges._DATENSERVER_UOrdner1 = "" + Me.scanSonstiges._DATENSERVER_UOrdner2 = "" + Me.scanSonstiges._DATENSERVER_UOrdner3 = "" + Me.scanSonstiges.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanSonstiges.BackColor = System.Drawing.Color.White + Me.scanSonstiges.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanSonstiges.Cursor = System.Windows.Forms.Cursors.Hand + Me.scanSonstiges.Location = New System.Drawing.Point(3, 31) + Me.scanSonstiges.Margin = New System.Windows.Forms.Padding(0) + Me.scanSonstiges.Name = "scanSonstiges" + Me.scanSonstiges.Size = New System.Drawing.Size(250, 130) + Me.scanSonstiges.TabIndex = 21 + ' + 'scanRetourniert + ' + Me.scanRetourniert._ARCHIV = True + Me.scanRetourniert._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanRetourniert._DATENSERVER_ORDNER = "MDM" + Me.scanRetourniert._DATENSERVER_UOrdner1 = Nothing + Me.scanRetourniert._DATENSERVER_UOrdner2 = Nothing + Me.scanRetourniert._DATENSERVER_UOrdner3 = Nothing + Me.scanRetourniert._MULTI_FILES = True + Me.scanRetourniert._TEXT_PDF = "Retourniert" + Me.scanRetourniert.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanRetourniert.BackColor = System.Drawing.Color.White + Me.scanRetourniert.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanRetourniert.Cursor = System.Windows.Forms.Cursors.Default + Me.scanRetourniert.Location = New System.Drawing.Point(100, 4) + Me.scanRetourniert.Name = "scanRetourniert" + Me.scanRetourniert.Size = New System.Drawing.Size(90, 24) + Me.scanRetourniert.TabIndex = 20 + ' + 'cbxArchiviert + ' + Me.cbxArchiviert._date = Nothing + Me.cbxArchiviert._showdate = True + Me.cbxArchiviert._value = "" + Me.cbxArchiviert.AutoSize = True + Me.cbxArchiviert.Location = New System.Drawing.Point(333, 201) + Me.cbxArchiviert.Name = "cbxArchiviert" + Me.cbxArchiviert.Size = New System.Drawing.Size(91, 17) + Me.cbxArchiviert.TabIndex = 90 + Me.cbxArchiviert.Text = "ARCHIVIERT" + Me.cbxArchiviert.UseVisualStyleBackColor = True + ' + 'usrCntlSDLLeistungenPLOSE_CZ + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.Color.White + Me.Controls.Add(Me.cbxArchiviert) + Me.Controls.Add(Me.tbcntr) + Me.Controls.Add(Me.txtLieferung) + Me.Controls.Add(Me.txtBestellung) + Me.Controls.Add(Me.Label6) + Me.Controls.Add(Me.Label7) + Me.Controls.Add(Me.cbxGestohlen) + Me.Controls.Add(Me.cbxVerloren) + Me.Controls.Add(Me.cbxGesperrt) + Me.Controls.Add(Me.cbxDefekt) + Me.Controls.Add(Me.Panel2) + Me.Controls.Add(Me.txtVermerk) + Me.Controls.Add(Me.txtOBUID) + Me.Controls.Add(Me.txtKartenNr) + Me.Controls.Add(Me.cbxRetourniert) + Me.Controls.Add(Me.Label9) + Me.Controls.Add(Me.Label12) + Me.Controls.Add(Me.Label10) + Me.Name = "usrCntlSDLLeistungenPLOSE_CZ" + Me.Size = New System.Drawing.Size(760, 220) + Me.Panel2.ResumeLayout(False) + Me.Panel2.PerformLayout() + Me.tbcntr.ResumeLayout(False) + Me.TabPage1.ResumeLayout(False) + Me.TabPage2.ResumeLayout(False) + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents txtPLOSEKdNr As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents txtVermerk As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtOBUID As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtKartenNr As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents cbxRetourniert As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue + Friend WithEvents Label9 As System.Windows.Forms.Label + Friend WithEvents Label12 As System.Windows.Forms.Label + Friend WithEvents Label10 As System.Windows.Forms.Label + Friend WithEvents Panel2 As System.Windows.Forms.Panel + Friend WithEvents Label8 As System.Windows.Forms.Label + Friend WithEvents cbxGestohlen As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue + Friend WithEvents cbxVerloren As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue + Friend WithEvents cbxGesperrt As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue + Friend WithEvents cbxDefekt As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue + Friend WithEvents txtLieferung As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtBestellung As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label6 As System.Windows.Forms.Label + Friend WithEvents Label7 As System.Windows.Forms.Label + Friend WithEvents tbcntr As System.Windows.Forms.TabControl + Friend WithEvents TabPage1 As System.Windows.Forms.TabPage + Friend WithEvents UsrCntlDetails As SDL.usrCntlAllg + Friend WithEvents TabPage2 As System.Windows.Forms.TabPage + Friend WithEvents scanSonstiges As VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList + Friend WithEvents scanRetourniert As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan + Friend WithEvents scanBestellung As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan + Friend WithEvents cbxArchiviert As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue + +End Class diff --git a/SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenPLOSE_CZ.resx b/SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenPLOSE_CZ.resx new file mode 100644 index 00000000..1af7de15 --- /dev/null +++ b/SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenPLOSE_CZ.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + \ No newline at end of file diff --git a/SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenPLOSE_CZ.vb b/SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenPLOSE_CZ.vb new file mode 100644 index 00000000..f5ba14f5 --- /dev/null +++ b/SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenPLOSE_CZ.vb @@ -0,0 +1,213 @@ +Imports System.Globalization + +Public Class usrCntlSDLLeistungenPLOSE_CZ + Public KfzKennzeichen As String + Public SDLNr As String + Public kdNr As String + Public History As String + Dim kundenSQL As New kundenSQL + Dim PROG As New cProgramFunctions + Dim culture As CultureInfo = New CultureInfo("de-DE") + Private PartnerKdNrFromFMZOLL As cPartnerKdNRFMZoll + Public addnew As Boolean = False + Public SDL As cSDL + ' Public WithEvents s As New cBinding 'fürs Binding + Public Event CHANGED(kdNr, newKfz, SDLNr, History) + Dim VAL As New cValidationSDLLeistungen + Public Event LKWChanged(kdNr, newKfz, SDLNr, History) + Dim boud = False + + Sub New(kdNr, KfzKennzeichen, SDLNr, History) + + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + + Me.kdNr = kdNr + Me.KfzKennzeichen = KfzKennzeichen + Me.SDLNr = SDLNr + Me.History = History + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + + End Sub + + Private Sub usrCntlSDLLeistungenCZ_Load(sender As Object, e As EventArgs) Handles Me.Load + ' initDataBinding() + ' boud = True + UsrCntlDetails.kdNr = kdNr + UsrCntlDetails.SDLNr = SDLNr + UsrCntlDetails.History = History + UsrCntlDetails.lblLKWNr.Text = KfzKennzeichen + AddHandler UsrCntlDetails.LKWChanged, Sub(newKfz) + RaiseEvent LKWChanged(kdNr, newKfz, SDLNr, History) + End Sub + + If txtPLOSEKdNr.Text = "" Then + getPartnerKdNrFromFMZOLL() ' Lädt die Partner-KdNr + txtPLOSEKdNr.Text = PartnerKdNrFromFMZOLL.PLOSE_KundenNr + End If + + 'Scan-Elemente initialisieren: + scanBestellung.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History) + scanRetourniert.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History) + scanSonstiges.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History) + + initDataBinding() + boud = True + If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then + cProgramFunctions.setControlReadOnly(Me) + End If + End Sub + Sub getPartnerKdNrFromFMZOLL() ' Lädt die Partner-KdNr + PartnerKdNrFromFMZOLL = kundenSQL.getPartnerKdNrFromFMZOLL(kdNr) + End Sub + + Function gueltigBisabgelaufen(o) As Boolean + If CDate(o) > Now Then + Return False + End If + Return True + End Function + Sub initDataBinding(Optional newKfz = "") + Try + + + If addnew Then newEntry() 'NEUER EINTRAG! + SDL = New cSDL(kdNr, KfzKennzeichen, SDLNr, History) + + PROG.initDTPE(txtLieferung) + PROG.initDTPE(txtBestellung) + + txtLieferung._value = SDL.Lieferdatum + txtBestellung._value = SDL.Bestelldatum + + + cbxRetourniert._date = SDL.RetourniertAm + cbxVerloren._date = SDL.VerlorenAm + cbxGestohlen._date = SDL.GestohlenAm + cbxGesperrt._date = SDL.GesperrtAm + cbxDefekt._date = SDL.DefektAm + + cbxGesperrt.Checked = SDL.Gesperrt + cbxDefekt.Checked = SDL.Defekt + cbxGestohlen.Checked = SDL.Gestohlen + cbxVerloren.Checked = SDL.Verloren + cbxArchiviert.Checked = SDL.Archiviert + ' cbxGesperrt.DataBindings.Add(New Binding("Checked", s.bindingSource, "Gesperrt", True, DataSourceUpdateMode.OnPropertyChanged, False)) + ' cbxDefekt.DataBindings.Add(New Binding("Checked", s.bindingSource, "Defekt", True, DataSourceUpdateMode.OnPropertyChanged, False)) + ' cbxGestohlen.DataBindings.Add(New Binding("Checked", s.bindingSource, "Gestohlen", True, DataSourceUpdateMode.OnPropertyChanged, False)) + ' cbxVerloren.DataBindings.Add(New Binding("Checked", s.bindingSource, "Verloren", True, DataSourceUpdateMode.OnPropertyChanged, False)) + + cbxRetourniert.Checked = SDL.Retourniert + 'cbxErsatzkarte.DataBindings.Add(New Binding("Checked", s.bindingSource, "Ersatzkarte", True, DataSourceUpdateMode.OnPropertyChanged, False)) + + txtVermerk.Text = SDL.Vermerk + 'txtVermerk.DataBindings.Add(New Binding("Text", s.bindingSource, "Vermerk", True, DataSourceUpdateMode.OnPropertyChanged, "")) + + UsrCntlDetails.lblErfassung.Text = SDL.Erfassungsdatum + UsrCntlDetails.lblAenderung.Text = SDL.Änderungsdatum + UsrCntlDetails.lblSachbearb.Text = SDL.Sachbearbeiter + + ' UsrCntlDetails.lblErfassung.DataBindings.Add(New Binding("Text", s.bindingSource, "Erfassungsdatum", True, DataSourceUpdateMode.OnPropertyChanged, "")) + ' UsrCntlDetails.lblAenderung.DataBindings.Add(New Binding("Text", s.bindingSource, "Änderungsdatum", True, DataSourceUpdateMode.OnPropertyChanged, "")) + ' UsrCntlDetails.lblSachbearb.DataBindings.Add(New Binding("Text", s.bindingSource, "Sachbearbeiter", True, DataSourceUpdateMode.OnPropertyChanged, "")) + + ' txtMSEKdNr.Text = SDL.MSE_Kd_Nr + txtKartenNr.Text = SDL.KartenNr + txtOBUID.Text = SDL.OBUID + + ' Dim tmpHist As String = "" 'If History <> "" Then tmpHist = " AND History='" & History & "'" + ' s.initBinding("SELECT * FROM SDL WHERE KundenNr='" & kdNr & "' AND KfzKennzeichen='" & KfzKennzeichen & "' AND SDLNr='" & SDLNr & "' " & tmpHist, "SDL") + + + ' cbxRetourniert.DataBindings.Add(New Binding("Checked", s.bindingSource, "Retourniert", True, DataSourceUpdateMode.OnPropertyChanged, False)) + + Catch ex As Exception + MsgBox(ex.Message) + MsgBox(ex.StackTrace) + End Try + + + End Sub + + Public Sub newEntry() + 's.updateBinding() + ' s.newEntry(kdNr, KfzKennzeichen, SDLNr) 'NEUER EINTRAG! + If txtBestellung.Text = "" Then txtBestellung.Text = Now.ToShortDateString + End Sub + + Sub BindingTableColumnChanged() + UsrCntlDetails.lblSachbearb.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME + UsrCntlDetails.lblAenderung.Text = Now.ToString("dd.MM.yyyy HH:mm") + 'If e.Column.ColumnName = "Sachbearbeiter" Or e.Column.ColumnName = "Änderungsdatum" Then Exit Sub + If save() Then RaiseEvent CHANGED(kdNr, KfzKennzeichen, SDLNr, History) + End Sub + + + + Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) + Dim valid As Boolean = VAL.checkValidDate(sender, True) + End Sub + + Public Function save() As Boolean + loadDataInClass() + Return SDL.SAVE + 'If checkSave() Then + ' Return kundenSQL.doSQLByList(s.bindingSource) + 'End If + Return False + End Function + + Sub loadDataInClass() + SDL.Lieferdatum = PROG.isEmptyNull(txtLieferung._value) + SDL.Bestelldatum = PROG.isEmptyNull(txtBestellung._value) + SDL.Gesperrt = cbxGesperrt.Checked + SDL.Defekt = cbxDefekt.Checked + SDL.Gestohlen = cbxGestohlen.Checked + SDL.Verloren = cbxVerloren.Checked + SDL.Retourniert = cbxRetourniert.Checked + SDL.Vermerk = txtVermerk.Text + SDL.Erfassungsdatum = UsrCntlDetails.lblErfassung.Text + SDL.Änderungsdatum = UsrCntlDetails.lblAenderung.Text + SDL.Sachbearbeiter = UsrCntlDetails.lblSachbearb.Text + ' SDL.MSE_Kd_Nr = txtMSEKdNr.Text + SDL.KartenNr = txtKartenNr.Text + SDL.OBUID = txtOBUID.Text + + SDL.RetourniertAm = cbxRetourniert._date + SDL.VerlorenAm = cbxVerloren._date + SDL.GestohlenAm = cbxGestohlen._date + SDL.GesperrtAm = cbxGesperrt._date + SDL.DefektAm = cbxDefekt._date + SDL.Archiviert = cbxArchiviert.Checked + + End Sub + + + + + Function checkSave() As Boolean + ' If Not VAL.checkValidDate(txtBestellung, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Bestelldatum: Datumsformat nicht korrekt!", 3) : Return False + ' If Not VAL.checkValidDate(txtLieferung, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Lieferdatum: Datumsformat nicht korrekt!", 3) : Return False + ' If Not VAL.checkValidDate(txtGueltigkeit, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Gültigkeitsdatum: Datumsformat nicht korrekt!", 3) : Return False + Return True + End Function + + + Private Sub txtBestellung_TextChanged(sender As Object, e As EventArgs) Handles txtBestellung.PropertyChanged, txtLieferung.PropertyChanged, txtKartenNr.TextChanged, txtPLOSEKdNr.TextChanged, txtOBUID.TextChanged, txtVermerk.TextChanged, cbxRetourniert.CheckedChanged, cbxDefekt.CheckedChanged, cbxVerloren.CheckedChanged, cbxGestohlen.CheckedChanged, cbxGesperrt.CheckedChanged, cbxArchiviert.CheckedChanged + If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then Exit Sub + + If boud And Me.FindForm IsNot Nothing Then + If sender Is txtLieferung Then + If Not PROG.checkSDLNrPartnerKdNr(kdNr, SDLNr) Then MsgBox("Bitte geben Sie die Partner-Kundennummer im Kundenblatt oder im FM-ZOLL ein!") + End If + BindingTableColumnChanged() + End If + End Sub + Function addTxtToVermerk(tmp, txt) As String + If txtVermerk.Text <> "" Then tmp &= " / " + tmp &= txt & ", am " & Now.ToShortDateString + If tmp.Length > txtVermerk.MaxLength Then tmp = tmp.Substring(0, txtVermerk.MaxLength) + Return tmp + End Function + +End Class diff --git a/SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenPLOSE_IT.Designer.vb b/SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenPLOSE_IT.Designer.vb new file mode 100644 index 00000000..4763ed98 --- /dev/null +++ b/SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenPLOSE_IT.Designer.vb @@ -0,0 +1,545 @@ + +Partial Class usrCntlSDLLeistungenPLOSE_IT + 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 + 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() + Me.components = New System.ComponentModel.Container() + Me.Label1 = New System.Windows.Forms.Label() + Me.Label9 = New System.Windows.Forms.Label() + Me.Label10 = New System.Windows.Forms.Label() + Me.Label2 = New System.Windows.Forms.Label() + Me.Panel2 = New System.Windows.Forms.Panel() + Me.Label8 = New System.Windows.Forms.Label() + Me.txtPLOSEKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label6 = New System.Windows.Forms.Label() + Me.Label7 = New System.Windows.Forms.Label() + Me.tbcntr = New System.Windows.Forms.TabControl() + Me.TabPage1 = New System.Windows.Forms.TabPage() + Me.UsrCntlDetails = New SDL.usrCntlAllg() + Me.TabPage2 = New System.Windows.Forms.TabPage() + Me.scanLieferscheinVIA = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() + Me.scanLieferscheinTP = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() + Me.scanSonstiges = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() + Me.scanRetourniert = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() + Me.cbxErsatztelepass = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components) + Me.txtLieferung = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtBestellung = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtVermerk = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cbxGestohlen = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components) + Me.cbxVerloren = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components) + Me.cbxGesperrt = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components) + Me.cbxDefekt = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components) + Me.cbxRetourniert = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components) + Me.txtVIACard = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtTelepassNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cbxArchiviert = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components) + Me.Panel2.SuspendLayout() + Me.tbcntr.SuspendLayout() + Me.TabPage1.SuspendLayout() + Me.TabPage2.SuspendLayout() + Me.SuspendLayout() + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.ForeColor = System.Drawing.Color.White + Me.Label1.Location = New System.Drawing.Point(464, 9) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(99, 13) + Me.Label1.TabIndex = 14 + Me.Label1.Text = "PLOSE-Kunden-Nr:" + ' + 'Label9 + ' + Me.Label9.AutoSize = True + Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label9.Location = New System.Drawing.Point(6, 129) + Me.Label9.Name = "Label9" + Me.Label9.Size = New System.Drawing.Size(79, 13) + Me.Label9.TabIndex = 9 + Me.Label9.Text = "Telepass-Nr:" + ' + 'Label10 + ' + Me.Label10.AutoSize = True + Me.Label10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label10.Location = New System.Drawing.Point(6, 101) + Me.Label10.Name = "Label10" + Me.Label10.Size = New System.Drawing.Size(69, 13) + Me.Label10.TabIndex = 12 + Me.Label10.Text = "VIA-CARD:" + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Location = New System.Drawing.Point(3, 165) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(49, 13) + Me.Label2.TabIndex = 66 + Me.Label2.Text = "Vermerk:" + ' + 'Panel2 + ' + Me.Panel2.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.Panel2.Controls.Add(Me.Label8) + Me.Panel2.Controls.Add(Me.txtPLOSEKdNr) + Me.Panel2.Controls.Add(Me.Label1) + Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top + Me.Panel2.Location = New System.Drawing.Point(0, 0) + Me.Panel2.Name = "Panel2" + Me.Panel2.Size = New System.Drawing.Size(760, 30) + Me.Panel2.TabIndex = 68 + ' + 'Label8 + ' + Me.Label8.AutoSize = True + Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label8.ForeColor = System.Drawing.Color.White + Me.Label8.Location = New System.Drawing.Point(6, 9) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(103, 13) + Me.Label8.TabIndex = 14 + Me.Label8.Text = "Maut IT - PLOSE" + ' + 'txtPLOSEKdNr + ' + Me.txtPLOSEKdNr._DateTimeOnly = False + Me.txtPLOSEKdNr._numbersOnly = True + Me.txtPLOSEKdNr._numbersOnlyKommastellen = "" + Me.txtPLOSEKdNr._Prozent = False + Me.txtPLOSEKdNr._ShortDateNew = False + Me.txtPLOSEKdNr._ShortDateOnly = False + Me.txtPLOSEKdNr._TimeOnly = False + Me.txtPLOSEKdNr._value = "" + Me.txtPLOSEKdNr._Waehrung = False + Me.txtPLOSEKdNr._WaehrungZeichen = True + Me.txtPLOSEKdNr.Location = New System.Drawing.Point(574, 6) + Me.txtPLOSEKdNr.MaxLineLength = -1 + Me.txtPLOSEKdNr.MaxLines_Warning = "" + Me.txtPLOSEKdNr.MaxLines_Warning_Label = Nothing + Me.txtPLOSEKdNr.Name = "txtPLOSEKdNr" + Me.txtPLOSEKdNr.Size = New System.Drawing.Size(183, 20) + Me.txtPLOSEKdNr.TabIndex = 15 + ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.Location = New System.Drawing.Point(3, 65) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(65, 13) + Me.Label6.TabIndex = 85 + Me.Label6.Text = "Lieferdatum:" + ' + 'Label7 + ' + Me.Label7.AutoSize = True + Me.Label7.Location = New System.Drawing.Point(3, 39) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(70, 13) + Me.Label7.TabIndex = 84 + Me.Label7.Text = "Bestelldatum:" + ' + 'tbcntr + ' + Me.tbcntr.Controls.Add(Me.TabPage1) + Me.tbcntr.Controls.Add(Me.TabPage2) + Me.tbcntr.Dock = System.Windows.Forms.DockStyle.Right + Me.tbcntr.Location = New System.Drawing.Point(496, 30) + Me.tbcntr.Name = "tbcntr" + Me.tbcntr.SelectedIndex = 0 + Me.tbcntr.Size = New System.Drawing.Size(264, 190) + Me.tbcntr.TabIndex = 89 + ' + 'TabPage1 + ' + Me.TabPage1.Controls.Add(Me.UsrCntlDetails) + 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(256, 164) + Me.TabPage1.TabIndex = 0 + Me.TabPage1.Text = "Details" + Me.TabPage1.UseVisualStyleBackColor = True + ' + 'UsrCntlDetails + ' + Me.UsrCntlDetails.BackColor = System.Drawing.Color.White + Me.UsrCntlDetails.Dock = System.Windows.Forms.DockStyle.Fill + Me.UsrCntlDetails.Location = New System.Drawing.Point(3, 3) + Me.UsrCntlDetails.Name = "UsrCntlDetails" + Me.UsrCntlDetails.Size = New System.Drawing.Size(250, 158) + Me.UsrCntlDetails.TabIndex = 18 + ' + 'TabPage2 + ' + Me.TabPage2.Controls.Add(Me.scanLieferscheinVIA) + Me.TabPage2.Controls.Add(Me.scanLieferscheinTP) + Me.TabPage2.Controls.Add(Me.scanSonstiges) + Me.TabPage2.Controls.Add(Me.scanRetourniert) + 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(256, 164) + Me.TabPage2.TabIndex = 1 + Me.TabPage2.Text = "Dokumente" + Me.TabPage2.UseVisualStyleBackColor = True + ' + 'scanLieferscheinVIA + ' + Me.scanLieferscheinVIA._ARCHIV = True + Me.scanLieferscheinVIA._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanLieferscheinVIA._DATENSERVER_ORDNER = "MDM" + Me.scanLieferscheinVIA._DATENSERVER_UOrdner1 = Nothing + Me.scanLieferscheinVIA._DATENSERVER_UOrdner2 = Nothing + Me.scanLieferscheinVIA._DATENSERVER_UOrdner3 = Nothing + Me.scanLieferscheinVIA._MULTI_FILES = True + Me.scanLieferscheinVIA._TEXT_PDF = "Lieferschein VIA-Card" + Me.scanLieferscheinVIA.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanLieferscheinVIA.BackColor = System.Drawing.Color.White + Me.scanLieferscheinVIA.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanLieferscheinVIA.Cursor = System.Windows.Forms.Cursors.Default + Me.scanLieferscheinVIA.Location = New System.Drawing.Point(3, 30) + Me.scanLieferscheinVIA.Name = "scanLieferscheinVIA" + Me.scanLieferscheinVIA.Size = New System.Drawing.Size(155, 24) + Me.scanLieferscheinVIA.TabIndex = 24 + ' + 'scanLieferscheinTP + ' + Me.scanLieferscheinTP._ARCHIV = True + Me.scanLieferscheinTP._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanLieferscheinTP._DATENSERVER_ORDNER = "MDM" + Me.scanLieferscheinTP._DATENSERVER_UOrdner1 = Nothing + Me.scanLieferscheinTP._DATENSERVER_UOrdner2 = Nothing + Me.scanLieferscheinTP._DATENSERVER_UOrdner3 = Nothing + Me.scanLieferscheinTP._MULTI_FILES = True + Me.scanLieferscheinTP._TEXT_PDF = "Lieferschein Telepass" + Me.scanLieferscheinTP.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanLieferscheinTP.BackColor = System.Drawing.Color.White + Me.scanLieferscheinTP.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanLieferscheinTP.Cursor = System.Windows.Forms.Cursors.Default + Me.scanLieferscheinTP.Location = New System.Drawing.Point(3, 4) + Me.scanLieferscheinTP.Name = "scanLieferscheinTP" + Me.scanLieferscheinTP.Size = New System.Drawing.Size(155, 24) + Me.scanLieferscheinTP.TabIndex = 23 + ' + 'scanSonstiges + ' + Me.scanSonstiges._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanSonstiges._DATENSERVER_ORDNER = "MDM" + Me.scanSonstiges._DATENSERVER_UOrdner1 = "" + Me.scanSonstiges._DATENSERVER_UOrdner2 = "" + Me.scanSonstiges._DATENSERVER_UOrdner3 = "" + Me.scanSonstiges.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanSonstiges.BackColor = System.Drawing.Color.White + Me.scanSonstiges.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanSonstiges.Cursor = System.Windows.Forms.Cursors.Hand + Me.scanSonstiges.Location = New System.Drawing.Point(3, 57) + Me.scanSonstiges.Margin = New System.Windows.Forms.Padding(0) + Me.scanSonstiges.Name = "scanSonstiges" + Me.scanSonstiges.Size = New System.Drawing.Size(250, 104) + Me.scanSonstiges.TabIndex = 21 + ' + 'scanRetourniert + ' + Me.scanRetourniert._ARCHIV = True + Me.scanRetourniert._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanRetourniert._DATENSERVER_ORDNER = "MDM" + Me.scanRetourniert._DATENSERVER_UOrdner1 = Nothing + Me.scanRetourniert._DATENSERVER_UOrdner2 = Nothing + Me.scanRetourniert._DATENSERVER_UOrdner3 = Nothing + Me.scanRetourniert._MULTI_FILES = True + Me.scanRetourniert._TEXT_PDF = "Retourniert" + Me.scanRetourniert.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanRetourniert.BackColor = System.Drawing.Color.White + Me.scanRetourniert.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanRetourniert.Cursor = System.Windows.Forms.Cursors.Default + Me.scanRetourniert.Location = New System.Drawing.Point(163, 30) + Me.scanRetourniert.Name = "scanRetourniert" + Me.scanRetourniert.Size = New System.Drawing.Size(90, 24) + Me.scanRetourniert.TabIndex = 20 + ' + 'cbxErsatztelepass + ' + Me.cbxErsatztelepass._date = Nothing + Me.cbxErsatztelepass._showdate = True + Me.cbxErsatztelepass._value = "" + Me.cbxErsatztelepass.AutoSize = True + Me.cbxErsatztelepass.Location = New System.Drawing.Point(327, 38) + Me.cbxErsatztelepass.Name = "cbxErsatztelepass" + Me.cbxErsatztelepass.Size = New System.Drawing.Size(94, 17) + Me.cbxErsatztelepass.TabIndex = 5 + Me.cbxErsatztelepass.Text = "Ersatztelepass" + Me.cbxErsatztelepass.UseVisualStyleBackColor = True + ' + 'txtLieferung + ' + Me.txtLieferung._DateTimeOnly = False + Me.txtLieferung._numbersOnly = False + Me.txtLieferung._numbersOnlyKommastellen = "" + Me.txtLieferung._Prozent = False + Me.txtLieferung._ShortDateNew = True + Me.txtLieferung._ShortDateOnly = False + Me.txtLieferung._TimeOnly = False + Me.txtLieferung._value = "" + Me.txtLieferung._Waehrung = False + Me.txtLieferung._WaehrungZeichen = True + Me.txtLieferung.ForeColor = System.Drawing.Color.Red + Me.txtLieferung.Location = New System.Drawing.Point(106, 62) + Me.txtLieferung.MaxLength = 10 + Me.txtLieferung.MaxLineLength = -1 + Me.txtLieferung.MaxLines_Warning = "" + Me.txtLieferung.MaxLines_Warning_Label = Nothing + Me.txtLieferung.Name = "txtLieferung" + Me.txtLieferung.Size = New System.Drawing.Size(74, 20) + Me.txtLieferung.TabIndex = 1 + ' + 'txtBestellung + ' + Me.txtBestellung._DateTimeOnly = False + Me.txtBestellung._numbersOnly = False + Me.txtBestellung._numbersOnlyKommastellen = "" + Me.txtBestellung._Prozent = False + Me.txtBestellung._ShortDateNew = True + Me.txtBestellung._ShortDateOnly = False + Me.txtBestellung._TimeOnly = False + Me.txtBestellung._value = "" + Me.txtBestellung._Waehrung = False + Me.txtBestellung._WaehrungZeichen = True + Me.txtBestellung.ForeColor = System.Drawing.Color.Red + Me.txtBestellung.Location = New System.Drawing.Point(106, 36) + Me.txtBestellung.MaxLength = 10 + Me.txtBestellung.MaxLineLength = -1 + Me.txtBestellung.MaxLines_Warning = "" + Me.txtBestellung.MaxLines_Warning_Label = Nothing + Me.txtBestellung.Name = "txtBestellung" + Me.txtBestellung.Size = New System.Drawing.Size(74, 20) + Me.txtBestellung.TabIndex = 0 + ' + 'txtVermerk + ' + Me.txtVermerk._DateTimeOnly = False + Me.txtVermerk._numbersOnly = False + Me.txtVermerk._numbersOnlyKommastellen = "" + Me.txtVermerk._Prozent = False + Me.txtVermerk._ShortDateNew = False + Me.txtVermerk._ShortDateOnly = False + Me.txtVermerk._TimeOnly = False + Me.txtVermerk._value = Nothing + Me.txtVermerk._Waehrung = False + Me.txtVermerk._WaehrungZeichen = True + Me.txtVermerk.Location = New System.Drawing.Point(106, 162) + Me.txtVermerk.MaxLength = 100 + Me.txtVermerk.MaxLineLength = -1 + Me.txtVermerk.MaxLines_Warning = "" + Me.txtVermerk.MaxLines_Warning_Label = Nothing + Me.txtVermerk.Multiline = True + Me.txtVermerk.Name = "txtVermerk" + Me.txtVermerk.Size = New System.Drawing.Size(183, 55) + Me.txtVermerk.TabIndex = 4 + ' + 'cbxGestohlen + ' + Me.cbxGestohlen._date = Nothing + Me.cbxGestohlen._showdate = True + Me.cbxGestohlen._value = "" + Me.cbxGestohlen.AutoSize = True + Me.cbxGestohlen.Location = New System.Drawing.Point(327, 134) + Me.cbxGestohlen.Name = "cbxGestohlen" + Me.cbxGestohlen.Size = New System.Drawing.Size(74, 17) + Me.cbxGestohlen.TabIndex = 8 + Me.cbxGestohlen.Text = "Gestohlen" + Me.cbxGestohlen.UseVisualStyleBackColor = True + ' + 'cbxVerloren + ' + Me.cbxVerloren._date = Nothing + Me.cbxVerloren._showdate = True + Me.cbxVerloren._value = "" + Me.cbxVerloren.AutoSize = True + Me.cbxVerloren.Location = New System.Drawing.Point(327, 111) + Me.cbxVerloren.Name = "cbxVerloren" + Me.cbxVerloren.Size = New System.Drawing.Size(65, 17) + Me.cbxVerloren.TabIndex = 7 + Me.cbxVerloren.Text = "Verloren" + Me.cbxVerloren.UseVisualStyleBackColor = True + ' + 'cbxGesperrt + ' + Me.cbxGesperrt._date = Nothing + Me.cbxGesperrt._showdate = True + Me.cbxGesperrt._value = "" + Me.cbxGesperrt.AutoSize = True + Me.cbxGesperrt.Location = New System.Drawing.Point(327, 155) + Me.cbxGesperrt.Name = "cbxGesperrt" + Me.cbxGesperrt.Size = New System.Drawing.Size(66, 17) + Me.cbxGesperrt.TabIndex = 9 + Me.cbxGesperrt.Text = "Gesperrt" + Me.cbxGesperrt.UseVisualStyleBackColor = True + ' + 'cbxDefekt + ' + Me.cbxDefekt._date = Nothing + Me.cbxDefekt._showdate = True + Me.cbxDefekt._value = "" + Me.cbxDefekt.AutoSize = True + Me.cbxDefekt.Location = New System.Drawing.Point(327, 177) + Me.cbxDefekt.Name = "cbxDefekt" + Me.cbxDefekt.Size = New System.Drawing.Size(58, 17) + Me.cbxDefekt.TabIndex = 10 + Me.cbxDefekt.Text = "Defekt" + Me.cbxDefekt.UseVisualStyleBackColor = True + ' + 'cbxRetourniert + ' + Me.cbxRetourniert._date = Nothing + Me.cbxRetourniert._showdate = True + Me.cbxRetourniert._value = "" + Me.cbxRetourniert.AutoSize = True + Me.cbxRetourniert.Location = New System.Drawing.Point(327, 64) + Me.cbxRetourniert.Name = "cbxRetourniert" + Me.cbxRetourniert.Size = New System.Drawing.Size(78, 17) + Me.cbxRetourniert.TabIndex = 6 + Me.cbxRetourniert.Text = "Retourniert" + Me.cbxRetourniert.UseVisualStyleBackColor = True + ' + 'txtVIACard + ' + Me.txtVIACard._DateTimeOnly = False + Me.txtVIACard._numbersOnly = False + Me.txtVIACard._numbersOnlyKommastellen = "" + Me.txtVIACard._Prozent = False + Me.txtVIACard._ShortDateNew = False + Me.txtVIACard._ShortDateOnly = False + Me.txtVIACard._TimeOnly = False + Me.txtVIACard._value = Nothing + Me.txtVIACard._Waehrung = False + Me.txtVIACard._WaehrungZeichen = True + Me.txtVIACard.Location = New System.Drawing.Point(106, 98) + Me.txtVIACard.MaxLength = 9 + Me.txtVIACard.MaxLineLength = -1 + Me.txtVIACard.MaxLines_Warning = "" + Me.txtVIACard.MaxLines_Warning_Label = Nothing + Me.txtVIACard.Name = "txtVIACard" + Me.txtVIACard.Size = New System.Drawing.Size(183, 20) + Me.txtVIACard.TabIndex = 2 + ' + 'txtTelepassNr + ' + Me.txtTelepassNr._DateTimeOnly = False + Me.txtTelepassNr._numbersOnly = False + Me.txtTelepassNr._numbersOnlyKommastellen = "" + Me.txtTelepassNr._Prozent = False + Me.txtTelepassNr._ShortDateNew = False + Me.txtTelepassNr._ShortDateOnly = False + Me.txtTelepassNr._TimeOnly = False + Me.txtTelepassNr._value = Nothing + Me.txtTelepassNr._Waehrung = False + Me.txtTelepassNr._WaehrungZeichen = True + Me.txtTelepassNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtTelepassNr.Location = New System.Drawing.Point(106, 124) + Me.txtTelepassNr.MaxLength = 10 + Me.txtTelepassNr.MaxLineLength = -1 + Me.txtTelepassNr.MaxLines_Warning = "" + Me.txtTelepassNr.MaxLines_Warning_Label = Nothing + Me.txtTelepassNr.Name = "txtTelepassNr" + Me.txtTelepassNr.Size = New System.Drawing.Size(183, 23) + Me.txtTelepassNr.TabIndex = 3 + ' + 'cbxArchiviert + ' + Me.cbxArchiviert._date = Nothing + Me.cbxArchiviert._showdate = True + Me.cbxArchiviert._value = "" + Me.cbxArchiviert.AutoSize = True + Me.cbxArchiviert.Location = New System.Drawing.Point(327, 200) + Me.cbxArchiviert.Name = "cbxArchiviert" + Me.cbxArchiviert.Size = New System.Drawing.Size(91, 17) + Me.cbxArchiviert.TabIndex = 91 + Me.cbxArchiviert.Text = "ARCHIVIERT" + Me.cbxArchiviert.UseVisualStyleBackColor = True + ' + 'usrCntlSDLLeistungenPLOSE_IT + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.Color.White + Me.Controls.Add(Me.cbxArchiviert) + Me.Controls.Add(Me.cbxErsatztelepass) + Me.Controls.Add(Me.tbcntr) + Me.Controls.Add(Me.txtLieferung) + Me.Controls.Add(Me.txtBestellung) + Me.Controls.Add(Me.Label6) + Me.Controls.Add(Me.Label7) + Me.Controls.Add(Me.Panel2) + Me.Controls.Add(Me.txtVermerk) + Me.Controls.Add(Me.Label2) + Me.Controls.Add(Me.cbxGestohlen) + Me.Controls.Add(Me.cbxVerloren) + Me.Controls.Add(Me.cbxGesperrt) + Me.Controls.Add(Me.cbxDefekt) + Me.Controls.Add(Me.cbxRetourniert) + Me.Controls.Add(Me.txtVIACard) + Me.Controls.Add(Me.txtTelepassNr) + Me.Controls.Add(Me.Label9) + Me.Controls.Add(Me.Label10) + Me.Name = "usrCntlSDLLeistungenPLOSE_IT" + Me.Size = New System.Drawing.Size(760, 220) + Me.Panel2.ResumeLayout(False) + Me.Panel2.PerformLayout() + Me.tbcntr.ResumeLayout(False) + Me.TabPage1.ResumeLayout(False) + Me.TabPage2.ResumeLayout(False) + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents txtPLOSEKdNr As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents txtVIACard As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtTelepassNr As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label9 As System.Windows.Forms.Label + Friend WithEvents Label10 As System.Windows.Forms.Label + Friend WithEvents cbxRetourniert As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue + Friend WithEvents txtVermerk As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents cbxGestohlen As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue + Friend WithEvents cbxVerloren As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue + Friend WithEvents cbxGesperrt As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue + Friend WithEvents cbxDefekt As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue + Friend WithEvents Panel2 As System.Windows.Forms.Panel + Friend WithEvents Label8 As System.Windows.Forms.Label + Friend WithEvents txtLieferung As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtBestellung As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label6 As System.Windows.Forms.Label + Friend WithEvents Label7 As System.Windows.Forms.Label + Friend WithEvents tbcntr As System.Windows.Forms.TabControl + Friend WithEvents TabPage1 As System.Windows.Forms.TabPage + Friend WithEvents UsrCntlDetails As SDL.usrCntlAllg + Friend WithEvents TabPage2 As System.Windows.Forms.TabPage + Friend WithEvents scanSonstiges As VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList + Friend WithEvents scanRetourniert As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan + Friend WithEvents scanLieferscheinTP As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan + Friend WithEvents scanLieferscheinVIA As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan + Friend WithEvents cbxErsatztelepass As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue + Friend WithEvents cbxArchiviert As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue + +End Class diff --git a/SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenPLOSE_IT.resx b/SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenPLOSE_IT.resx new file mode 100644 index 00000000..1af7de15 --- /dev/null +++ b/SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenPLOSE_IT.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + \ No newline at end of file diff --git a/SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenPLOSE_IT.vb b/SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenPLOSE_IT.vb new file mode 100644 index 00000000..5fc75205 --- /dev/null +++ b/SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenPLOSE_IT.vb @@ -0,0 +1,207 @@ +Imports System.Globalization + +Public Class usrCntlSDLLeistungenPLOSE_IT + Public KfzKennzeichen As String + Public SDLNr As String + Public kdNr As String + Public History As String + Dim PROG As New cProgramFunctions + Dim kundenSQL As New kundenSQL + + Dim culture As CultureInfo = New CultureInfo("de-DE") + Private PartnerKdNrFromFMZOLL As cPartnerKdNRFMZoll + Public addnew As Boolean = False + Dim VAL As New cValidationSDLLeistungen + Public Event LKWChanged(kdNr, newKfz, SDLNr, History) + Public Event CHANGED(kdNr, newKfz, SDLNr, History) + 'Public WithEvents s As New cBinding 'fürs Binding + Public SDL As cSDL + Dim boud = False + + Sub New(kdNr, KfzKennzeichen, SDLNr, History) + + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + + Me.kdNr = kdNr + Me.KfzKennzeichen = KfzKennzeichen + Me.SDLNr = SDLNr + Me.History = History + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + + End Sub + + Private Sub usrCntlSDLLeistungenCZ_Load(sender As Object, e As EventArgs) Handles Me.Load + + UsrCntlDetails.kdNr = kdNr + UsrCntlDetails.SDLNr = SDLNr + UsrCntlDetails.History = History + UsrCntlDetails.lblLKWNr.Text = KfzKennzeichen + AddHandler UsrCntlDetails.LKWChanged, Sub(newKfz) + RaiseEvent LKWChanged(kdNr, newKfz, SDLNr, History) + End Sub + 'Scan-Elemente initialisieren: + scanLieferscheinTP.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History) + scanLieferscheinVIA.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History) + scanRetourniert.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History) + scanSonstiges.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History) + + initDataBinding() + boud = True + + + If txtPLOSEKdNr.Text = "" Then + getPartnerKdNrFromFMZOLL() ' Lädt die Partner-KdNr + txtPLOSEKdNr.Text = PartnerKdNrFromFMZOLL.PLOSE_KundenNr + End If + + If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then + cProgramFunctions.setControlReadOnly(Me) + End If + End Sub + Sub getPartnerKdNrFromFMZOLL() ' Lädt die Partner-KdNr + PartnerKdNrFromFMZOLL = kundenSQL.getPartnerKdNrFromFMZOLL(kdNr) + End Sub + + Function gueltigBisabgelaufen(o) As Boolean + If CDate(o) > Now Then + Return False + End If + Return True + End Function + + + Sub initDataBinding() + Try + SDL = New cSDL(kdNr, KfzKennzeichen, SDLNr, History) + + PROG.initDTPE(txtLieferung) + PROG.initDTPE(txtBestellung) + + txtLieferung._value = SDL.Lieferdatum + txtBestellung._value = SDL.Bestelldatum + + + cbxRetourniert._date = SDL.RetourniertAm + cbxErsatztelepass._date = SDL.TelepassErsatzkarteAm + cbxVerloren._date = SDL.VerlorenAm + cbxGestohlen._date = SDL.GestohlenAm + cbxGesperrt._date = SDL.GesperrtAm + cbxDefekt._date = SDL.DefektAm + + cbxGesperrt.Checked = SDL.Gesperrt + cbxDefekt.Checked = SDL.Defekt + cbxGestohlen.Checked = SDL.Gestohlen + cbxVerloren.Checked = SDL.Verloren + cbxArchiviert.Checked = SDL.Archiviert + + cbxRetourniert.Checked = SDL.Retourniert + cbxErsatztelepass.Checked = SDL.TelepassErsatzkarte + + txtVermerk.Text = SDL.Vermerk + + UsrCntlDetails.lblErfassung.Text = SDL.Erfassungsdatum + UsrCntlDetails.lblAenderung.Text = SDL.Änderungsdatum + UsrCntlDetails.lblSachbearb.Text = SDL.Sachbearbeiter + + + txtPLOSEKdNr.Text = SDL.TELEPASS_Kd_Nr + txtTelepassNr.Text = SDL.TELEPASS_Nr + txtVIACard.Text = SDL.VIACARD + + ' txtTelepassKdNr.Text = SDL.MSE_Kd_Nr + ' txtTelepassNr.Text = SDL.PAN_Nr + ' txtVIACard.Text = SDL.SERIE_Nr + + + Catch ex As Exception + MsgBox(ex.Message) + MsgBox(ex.StackTrace) + End Try + + + + End Sub + + + Public Sub newEntry() + 's.updateBinding() + ' s.newEntry(kdNr, KfzKennzeichen, SDLNr) 'NEUER EINTRAG! + If txtBestellung.Text = "" Then txtBestellung.Text = Now.ToShortDateString + End Sub + + Sub BindingTableColumnChanged() + UsrCntlDetails.lblSachbearb.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME + UsrCntlDetails.lblAenderung.Text = Now.ToString("dd.MM.yyyy HH:mm") + ' If e.Column.ColumnName = "Sachbearbeiter" Or e.Column.ColumnName = "Änderungsdatum" Then Exit Sub + If save() Then RaiseEvent CHANGED(kdNr, KfzKennzeichen, SDLNr, History) + End Sub + + + Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) + Dim valid As Boolean = VAL.checkValidDate(sender, True) + End Sub + + Public Function save() As Boolean + loadDataInClass() + Return SDL.SAVE + 'If checkSave() Then + ' Return kundenSQL.doSQLByList(s.bindingSource) + 'End If + Return False + End Function + + Sub loadDataInClass() + SDL.Lieferdatum = PROG.isEmptyNull(txtLieferung._value) + SDL.Bestelldatum = PROG.isEmptyNull(txtBestellung._value) + SDL.Gesperrt = cbxGesperrt.Checked + SDL.Defekt = cbxDefekt.Checked + SDL.Gestohlen = cbxGestohlen.Checked + SDL.Verloren = cbxVerloren.Checked + SDL.Retourniert = cbxRetourniert.Checked + SDL.Vermerk = txtVermerk.Text + SDL.Erfassungsdatum = UsrCntlDetails.lblErfassung.Text + SDL.Änderungsdatum = UsrCntlDetails.lblAenderung.Text + SDL.Sachbearbeiter = UsrCntlDetails.lblSachbearb.Text + SDL.TELEPASS_Kd_Nr = txtPLOSEKdNr.Text + SDL.TELEPASS_Nr = txtTelepassNr.Text + SDL.VIACARD = txtVIACard.Text + SDL.TelepassErsatzkarte = cbxErsatztelepass.Checked + + SDL.RetourniertAm = cbxRetourniert._date + SDL.TelepassErsatzkarteAm = cbxErsatztelepass._date + SDL.VerlorenAm = cbxVerloren._date + SDL.GestohlenAm = cbxGestohlen._date + SDL.GesperrtAm = cbxGesperrt._date + SDL.DefektAm = cbxDefekt._date + SDL.Archiviert = cbxArchiviert.Checked + End Sub + + Function checkSave() As Boolean + ' If Not VAL.checkValidDate(txtBestellung, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Bestelldatum: Datumsformat nicht korrekt!", 3) : Return False + ' If Not VAL.checkValidDate(txtLieferung, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Lieferdatum: Datumsformat nicht korrekt!", 3) : Return False + ' If Not VAL.checkValidDate(txtGueltigkeit, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Gültigkeitsdatum: Datumsformat nicht korrekt!", 3) : Return False + Return True + End Function + + + + Private Sub txtBestellung_TextChanged(sender As Object, e As EventArgs) Handles txtBestellung.PropertyChanged, txtLieferung.PropertyChanged, txtPLOSEKdNr.TextChanged, txtTelepassNr.TextChanged, txtVIACard.TextChanged, txtVermerk.TextChanged, cbxRetourniert.CheckedChanged, cbxDefekt.CheckedChanged, cbxVerloren.CheckedChanged, cbxGestohlen.CheckedChanged, cbxGesperrt.CheckedChanged, cbxErsatztelepass.CheckedChanged, cbxArchiviert.CheckedChanged + If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then Exit Sub + + If boud And Me.FindForm IsNot Nothing Then + If sender Is txtLieferung Then + If Not PROG.checkSDLNrPartnerKdNr(kdNr, SDLNr) Then MsgBox("Bitte geben Sie die Partner-Kundennummer im Kundenblatt oder im FM-ZOLL ein!") + End If + BindingTableColumnChanged() + End If + End Sub + Function addTxtToVermerk(tmp, txt, boolDate) As String + If txtVermerk.Text <> "" Then tmp &= " / " + tmp &= txt & If(boolDate, ", am " & Now.ToShortDateString, "") + If tmp.Length > txtVermerk.MaxLength Then tmp = tmp.Substring(0, txtVermerk.MaxLength) + Return tmp + End Function + + +End Class diff --git a/SDL/mdm/frmCardDetails.vb b/SDL/mdm/frmCardDetails.vb index 9111711b..82868207 100644 --- a/SDL/mdm/frmCardDetails.vb +++ b/SDL/mdm/frmCardDetails.vb @@ -273,6 +273,21 @@ Public Class frmCardDetails If addnew Then usrcntl.addnew = True : bndSave.Enabled = True 'NEUER EINTRAG! pnlSDLLeistungenDetails.Controls.Add(usrcntl) + RemoveClickEvent(btnSave) + AddHandler btnSave.Click, Sub() + If usrcntl.save Then Me.DialogResult = Windows.Forms.DialogResult.OK : Me.Close() + End Sub + AddHandler Me.SAVE, Sub() + If usrcntl.save Then bndSave.Enabled = False + End Sub + + initChangeEvent(usrcntl) + ElseIf SDLLeistung = 214 Then ' plose + ' Panel2.BackgroundImage = Nothing + Dim usrcntl As New usrCntlSDLLeistungPLOSE(kdnr, KfzKennzeichen, SDLLeistung, history) + If addnew Then usrcntl.addnew = True : bndSave.Enabled = True 'NEUER EINTRAG! + pnlSDLLeistungenDetails.Controls.Add(usrcntl) + RemoveClickEvent(btnSave) AddHandler btnSave.Click, Sub() If usrcntl.save Then Me.DialogResult = Windows.Forms.DialogResult.OK : Me.Close() diff --git a/SDL/mdm/frmNewData.Designer.vb b/SDL/mdm/frmNewData.Designer.vb index 89597c0c..f060706c 100644 --- a/SDL/mdm/frmNewData.Designer.vb +++ b/SDL/mdm/frmNewData.Designer.vb @@ -45,9 +45,12 @@ Partial Class frmNewData Me.btnSDL_FREJUS = New System.Windows.Forms.Button() Me.btnSDL_Hugo = New System.Windows.Forms.Button() Me.btnSDL_DouBox = New System.Windows.Forms.Button() - Me.btnSDL_MotorWay = New System.Windows.Forms.Button() Me.btnSDL_MautFR = New System.Windows.Forms.Button() Me.btnSDL_MANAbgas = New System.Windows.Forms.Button() + Me.btnSDL_MotorWay = New System.Windows.Forms.Button() + Me.btnSDL_PLOSE = New System.Windows.Forms.Button() + Me.btnSDL_PLOSE_IT = New System.Windows.Forms.Button() + Me.btnSDL_PLOSE_CZ = New System.Windows.Forms.Button() Me.btnVeragParkplatz = New System.Windows.Forms.Button() Me.Label4 = New System.Windows.Forms.Label() Me.Label1 = New System.Windows.Forms.Label() @@ -68,7 +71,7 @@ Partial Class frmNewData Me.pnlMain.Dock = System.Windows.Forms.DockStyle.Fill Me.pnlMain.Location = New System.Drawing.Point(0, 0) Me.pnlMain.Name = "pnlMain" - Me.pnlMain.Size = New System.Drawing.Size(755, 268) + Me.pnlMain.Size = New System.Drawing.Size(755, 335) Me.pnlMain.TabIndex = 0 ' 'Panel1 @@ -80,7 +83,7 @@ Partial Class frmNewData Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill Me.Panel1.Location = New System.Drawing.Point(0, 0) Me.Panel1.Name = "Panel1" - Me.Panel1.Size = New System.Drawing.Size(753, 266) + Me.Panel1.Size = New System.Drawing.Size(753, 333) Me.Panel1.TabIndex = 0 ' 'FlatButton1 @@ -114,7 +117,7 @@ Partial Class frmNewData Me.Panel2.Dock = System.Windows.Forms.DockStyle.Fill Me.Panel2.Location = New System.Drawing.Point(0, 0) Me.Panel2.Name = "Panel2" - Me.Panel2.Size = New System.Drawing.Size(751, 264) + Me.Panel2.Size = New System.Drawing.Size(751, 331) Me.Panel2.TabIndex = 13 ' 'MyFlowLayoutPanel1 @@ -158,15 +161,18 @@ Partial Class frmNewData Me.FlowLayoutPanel.Controls.Add(Me.btnSDL_FREJUS) Me.FlowLayoutPanel.Controls.Add(Me.btnSDL_Hugo) Me.FlowLayoutPanel.Controls.Add(Me.btnSDL_DouBox) - Me.FlowLayoutPanel.Controls.Add(Me.btnSDL_MotorWay) Me.FlowLayoutPanel.Controls.Add(Me.btnSDL_MautFR) Me.FlowLayoutPanel.Controls.Add(Me.btnSDL_MANAbgas) + Me.FlowLayoutPanel.Controls.Add(Me.btnSDL_MotorWay) + Me.FlowLayoutPanel.Controls.Add(Me.btnSDL_PLOSE) + Me.FlowLayoutPanel.Controls.Add(Me.btnSDL_PLOSE_IT) + Me.FlowLayoutPanel.Controls.Add(Me.btnSDL_PLOSE_CZ) Me.FlowLayoutPanel.Controls.Add(Me.btnVeragParkplatz) Me.FlowLayoutPanel.Dock = System.Windows.Forms.DockStyle.Bottom Me.FlowLayoutPanel.Location = New System.Drawing.Point(0, 119) Me.FlowLayoutPanel.Name = "FlowLayoutPanel" Me.FlowLayoutPanel.Padding = New System.Windows.Forms.Padding(2) - Me.FlowLayoutPanel.Size = New System.Drawing.Size(751, 145) + Me.FlowLayoutPanel.Size = New System.Drawing.Size(751, 212) Me.FlowLayoutPanel.TabIndex = 13 ' 'btnSDL_IDS @@ -441,25 +447,6 @@ Partial Class frmNewData Me.btnSDL_DouBox.UseVisualStyleBackColor = True Me.btnSDL_DouBox.Visible = False ' - 'btnSDL_MotorWay - ' - Me.btnSDL_MotorWay.Cursor = System.Windows.Forms.Cursors.Default - Me.btnSDL_MotorWay.Enabled = False - Me.btnSDL_MotorWay.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Silver - Me.btnSDL_MotorWay.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnSDL_MotorWay.ForeColor = System.Drawing.Color.Black - Me.btnSDL_MotorWay.ImageAlign = System.Drawing.ContentAlignment.TopCenter - Me.btnSDL_MotorWay.Location = New System.Drawing.Point(414, 72) - Me.btnSDL_MotorWay.Margin = New System.Windows.Forms.Padding(2) - Me.btnSDL_MotorWay.Name = "btnSDL_MotorWay" - Me.btnSDL_MotorWay.Size = New System.Drawing.Size(78, 64) - Me.btnSDL_MotorWay.TabIndex = 41 - Me.btnSDL_MotorWay.Tag = "205" - Me.btnSDL_MotorWay.Text = "MotorWay" - Me.btnSDL_MotorWay.TextAlign = System.Drawing.ContentAlignment.BottomCenter - Me.btnSDL_MotorWay.UseVisualStyleBackColor = True - Me.btnSDL_MotorWay.Visible = False - ' 'btnSDL_MautFR ' Me.btnSDL_MautFR.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom @@ -470,7 +457,7 @@ Partial Class frmNewData Me.btnSDL_MautFR.ForeColor = System.Drawing.Color.Black Me.btnSDL_MautFR.Image = Global.SDL.My.Resources.Resources.axxes1 Me.btnSDL_MautFR.ImageAlign = System.Drawing.ContentAlignment.TopCenter - Me.btnSDL_MautFR.Location = New System.Drawing.Point(496, 72) + Me.btnSDL_MautFR.Location = New System.Drawing.Point(414, 72) Me.btnSDL_MautFR.Margin = New System.Windows.Forms.Padding(2) Me.btnSDL_MautFR.Name = "btnSDL_MautFR" Me.btnSDL_MautFR.Size = New System.Drawing.Size(78, 64) @@ -491,7 +478,7 @@ Partial Class frmNewData Me.btnSDL_MANAbgas.ForeColor = System.Drawing.Color.Black Me.btnSDL_MANAbgas.Image = Global.SDL.My.Resources.Resources.Plakette1 Me.btnSDL_MANAbgas.ImageAlign = System.Drawing.ContentAlignment.TopCenter - Me.btnSDL_MANAbgas.Location = New System.Drawing.Point(578, 72) + Me.btnSDL_MANAbgas.Location = New System.Drawing.Point(496, 72) Me.btnSDL_MANAbgas.Margin = New System.Windows.Forms.Padding(2) Me.btnSDL_MANAbgas.Name = "btnSDL_MANAbgas" Me.btnSDL_MANAbgas.Size = New System.Drawing.Size(78, 64) @@ -501,6 +488,85 @@ Partial Class frmNewData Me.btnSDL_MANAbgas.TextAlign = System.Drawing.ContentAlignment.BottomCenter Me.btnSDL_MANAbgas.UseVisualStyleBackColor = True ' + 'btnSDL_MotorWay + ' + Me.btnSDL_MotorWay.Cursor = System.Windows.Forms.Cursors.Default + Me.btnSDL_MotorWay.Enabled = False + Me.btnSDL_MotorWay.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Silver + Me.btnSDL_MotorWay.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnSDL_MotorWay.ForeColor = System.Drawing.Color.Black + Me.btnSDL_MotorWay.ImageAlign = System.Drawing.ContentAlignment.TopCenter + Me.btnSDL_MotorWay.Location = New System.Drawing.Point(578, 72) + Me.btnSDL_MotorWay.Margin = New System.Windows.Forms.Padding(2) + Me.btnSDL_MotorWay.Name = "btnSDL_MotorWay" + Me.btnSDL_MotorWay.Size = New System.Drawing.Size(78, 64) + Me.btnSDL_MotorWay.TabIndex = 41 + Me.btnSDL_MotorWay.Tag = "205" + Me.btnSDL_MotorWay.Text = "MotorWay" + Me.btnSDL_MotorWay.TextAlign = System.Drawing.ContentAlignment.BottomCenter + Me.btnSDL_MotorWay.UseVisualStyleBackColor = True + Me.btnSDL_MotorWay.Visible = False + ' + 'btnSDL_PLOSE + ' + Me.btnSDL_PLOSE.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.btnSDL_PLOSE.Cursor = System.Windows.Forms.Cursors.Default + Me.btnSDL_PLOSE.Enabled = False + Me.btnSDL_PLOSE.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Silver + Me.btnSDL_PLOSE.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnSDL_PLOSE.ForeColor = System.Drawing.Color.Black + Me.btnSDL_PLOSE.Image = Global.SDL.My.Resources.Resources.plose + Me.btnSDL_PLOSE.ImageAlign = System.Drawing.ContentAlignment.TopCenter + Me.btnSDL_PLOSE.Location = New System.Drawing.Point(660, 72) + Me.btnSDL_PLOSE.Margin = New System.Windows.Forms.Padding(2) + Me.btnSDL_PLOSE.Name = "btnSDL_PLOSE" + Me.btnSDL_PLOSE.Size = New System.Drawing.Size(78, 64) + Me.btnSDL_PLOSE.TabIndex = 58 + Me.btnSDL_PLOSE.Tag = "214" + Me.btnSDL_PLOSE.Text = "PLOSE" + Me.btnSDL_PLOSE.TextAlign = System.Drawing.ContentAlignment.BottomCenter + Me.btnSDL_PLOSE.UseVisualStyleBackColor = True + ' + 'btnSDL_PLOSE_IT + ' + Me.btnSDL_PLOSE_IT.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.btnSDL_PLOSE_IT.Cursor = System.Windows.Forms.Cursors.Default + Me.btnSDL_PLOSE_IT.Enabled = False + Me.btnSDL_PLOSE_IT.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Silver + Me.btnSDL_PLOSE_IT.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnSDL_PLOSE_IT.ForeColor = System.Drawing.Color.Black + Me.btnSDL_PLOSE_IT.Image = Global.SDL.My.Resources.Resources.plose_it + Me.btnSDL_PLOSE_IT.ImageAlign = System.Drawing.ContentAlignment.TopCenter + Me.btnSDL_PLOSE_IT.Location = New System.Drawing.Point(4, 140) + Me.btnSDL_PLOSE_IT.Margin = New System.Windows.Forms.Padding(2) + Me.btnSDL_PLOSE_IT.Name = "btnSDL_PLOSE_IT" + Me.btnSDL_PLOSE_IT.Size = New System.Drawing.Size(78, 64) + Me.btnSDL_PLOSE_IT.TabIndex = 59 + Me.btnSDL_PLOSE_IT.Tag = "215" + Me.btnSDL_PLOSE_IT.Text = "PLOSE IT" + Me.btnSDL_PLOSE_IT.TextAlign = System.Drawing.ContentAlignment.BottomCenter + Me.btnSDL_PLOSE_IT.UseVisualStyleBackColor = True + ' + 'btnSDL_PLOSE_CZ + ' + Me.btnSDL_PLOSE_CZ.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.btnSDL_PLOSE_CZ.Cursor = System.Windows.Forms.Cursors.Default + Me.btnSDL_PLOSE_CZ.Enabled = False + Me.btnSDL_PLOSE_CZ.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Silver + Me.btnSDL_PLOSE_CZ.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnSDL_PLOSE_CZ.ForeColor = System.Drawing.Color.Black + Me.btnSDL_PLOSE_CZ.Image = Global.SDL.My.Resources.Resources.plose_cz + Me.btnSDL_PLOSE_CZ.ImageAlign = System.Drawing.ContentAlignment.TopCenter + Me.btnSDL_PLOSE_CZ.Location = New System.Drawing.Point(86, 140) + Me.btnSDL_PLOSE_CZ.Margin = New System.Windows.Forms.Padding(2) + Me.btnSDL_PLOSE_CZ.Name = "btnSDL_PLOSE_CZ" + Me.btnSDL_PLOSE_CZ.Size = New System.Drawing.Size(78, 64) + Me.btnSDL_PLOSE_CZ.TabIndex = 60 + Me.btnSDL_PLOSE_CZ.Tag = "216" + Me.btnSDL_PLOSE_CZ.Text = "PLOSE CZ" + Me.btnSDL_PLOSE_CZ.TextAlign = System.Drawing.ContentAlignment.BottomCenter + Me.btnSDL_PLOSE_CZ.UseVisualStyleBackColor = True + ' 'btnVeragParkplatz ' Me.btnVeragParkplatz.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom @@ -511,7 +577,7 @@ Partial Class frmNewData Me.btnVeragParkplatz.ForeColor = System.Drawing.Color.Black Me.btnVeragParkplatz.Image = Global.SDL.My.Resources.Resources.verag_Card1 Me.btnVeragParkplatz.ImageAlign = System.Drawing.ContentAlignment.TopCenter - Me.btnVeragParkplatz.Location = New System.Drawing.Point(660, 72) + Me.btnVeragParkplatz.Location = New System.Drawing.Point(168, 140) Me.btnVeragParkplatz.Margin = New System.Windows.Forms.Padding(2) Me.btnVeragParkplatz.Name = "btnVeragParkplatz" Me.btnVeragParkplatz.Size = New System.Drawing.Size(78, 64) @@ -602,7 +668,7 @@ Partial Class frmNewData ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.ClientSize = New System.Drawing.Size(755, 268) + Me.ClientSize = New System.Drawing.Size(755, 335) Me.Controls.Add(Me.pnlMain) Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) @@ -649,4 +715,7 @@ Partial Class frmNewData Friend WithEvents MyFlowLayoutPanel1 As VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel Friend WithEvents btnSDL_MANAbgas As System.Windows.Forms.Button Friend WithEvents btnVeragParkplatz As System.Windows.Forms.Button + Friend WithEvents btnSDL_PLOSE As Button + Friend WithEvents btnSDL_PLOSE_IT As Button + Friend WithEvents btnSDL_PLOSE_CZ As Button End Class diff --git a/SDL/mdm/frmNewData.vb b/SDL/mdm/frmNewData.vb index 414237e4..86346766 100644 --- a/SDL/mdm/frmNewData.vb +++ b/SDL/mdm/frmNewData.vb @@ -202,6 +202,9 @@ Public Class frmNewData Case 202 : btnAddLeistungVordefiniert.Image = My.Resources.telepass : btnAddLeistungVordefiniert.Text = "Maut IT" & vbNewLine & "hinzufügen" Case 203 : btnAddLeistungVordefiniert.Image = My.Resources.premid : btnAddLeistungVordefiniert.Text = "Maut CZ" & vbNewLine & "hinzufügen" Case 213 : btnAddLeistungVordefiniert.Image = My.Resources.hugo : btnAddLeistungVordefiniert.Text = "Hugo" & vbNewLine & "hinzufügen" + Case 214 : btnAddLeistungVordefiniert.Image = My.Resources.plose : btnAddLeistungVordefiniert.Text = "PLOSE" & vbNewLine & "hinzufügen" + Case 215 : btnAddLeistungVordefiniert.Image = My.Resources.plose_it : btnAddLeistungVordefiniert.Text = "PLOSE IT" & vbNewLine & "hinzufügen" + Case 216 : btnAddLeistungVordefiniert.Image = My.Resources.plose_cz : btnAddLeistungVordefiniert.Text = "PLOSE CZ" & vbNewLine & "hinzufügen" Case 209 : btnAddLeistungVordefiniert.Image = My.Resources.viatoll : btnAddLeistungVordefiniert.Text = "Maut PL" & vbNewLine & "hinzufügen" Case 210 : btnAddLeistungVordefiniert.Image = My.Resources.abc_obu : btnAddLeistungVordefiniert.Text = "Maut SI" & vbNewLine & "hinzufügen" Case 208 : btnAddLeistungVordefiniert.Image = My.Resources.mse : btnAddLeistungVordefiniert.Text = "MSE" & vbNewLine & "hinzufügen" @@ -251,7 +254,7 @@ Public Class frmNewData Private Sub btnSDL_Woelfl_Click(sender As Object, e As EventArgs) Handles btnSDL_Woelfl.Click, btnSDL_IDS.Click, btnSDL_MautAT.Click, btnSDL_MautDE.Click, btnSDL_MautMSE.Click, btnSDL_UTA.Click, btnSDL_MautPL.Click, btnSDL_MautIT.Click, btnSDL_MautSI.Click, btnSDL_MautCZ.Click, btnSDL_ECOTAX.Click, btnSDL_FREJUS.Click, btnSDL_Hugo.Click, btnSDL_DouBox.Click, btnSDL_MotorWay.Click, btnSDL_MautFR.Click, btnAddLeistungVordefiniert.Click, btnSDL_MANAbgas.Click, - btnVeragParkplatz.Click + btnVeragParkplatz.Click, btnSDL_PLOSE.Click, btnSDL_PLOSE_IT.Click, btnSDL_PLOSE_CZ.Click If KdSearchBox1.KdNr <= 0 Then MsgBox("Kunde auswählen!") : Exit Sub @@ -267,7 +270,7 @@ Public Class frmNewData If cbo._value <> "" Then - + If sender.tag = "501" Then Dim kdnr_tmp = KdSearchBox1.KdNr Dim kfz_tmp = cbo.Text @@ -304,8 +307,6 @@ Public Class frmNewData Me.Close() End Sub - - End Class diff --git a/SDL/mdm/usrCntlDatenDetails.vb b/SDL/mdm/usrCntlDatenDetails.vb index d921eb67..8fd90fb3 100644 --- a/SDL/mdm/usrCntlDatenDetails.vb +++ b/SDL/mdm/usrCntlDatenDetails.vb @@ -51,7 +51,7 @@ Public Class usrCntlDatenDetails AddHandler usrcntl.CHANGED, Sub(kdNr, Kfz, SDLNr, History) RaiseEvent DataChanged(kdNr, Kfz, SDLNr, History) End Sub - + ElseIf SDLLeistung = 200 Then ' AT-MAUT pic.Image = Nothing Dim usrcntl As New usrCntlSDLLeistungMautAT(kdnr, KfzKennzeichen, SDLLeistung, history) @@ -63,7 +63,7 @@ Public Class usrCntlDatenDetails AddHandler usrcntl.CHANGED, Sub(kdNr, Kfz, SDLNr, History) RaiseEvent DataChanged(kdNr, Kfz, SDLNr, History) End Sub - + ElseIf SDLLeistung = 201 Then ' DE-MAUT pic.Image = Nothing Dim usrcntl As New usrCntlSDLLeistungMautDE(kdnr, KfzKennzeichen, SDLLeistung, history) @@ -75,7 +75,7 @@ Public Class usrCntlDatenDetails AddHandler usrcntl.CHANGED, Sub(kdNr, Kfz, SDLNr, History) RaiseEvent DataChanged(kdNr, Kfz, SDLNr, History) End Sub - + ElseIf SDLLeistung = 202 Then ' IT-MAUT pic.Image = Nothing Dim usrcntl As New usrCntlSDLLeistungenIT(kdnr, KfzKennzeichen, SDLLeistung, history) @@ -87,7 +87,7 @@ Public Class usrCntlDatenDetails AddHandler usrcntl.CHANGED, Sub(kdNr, Kfz, SDLNr, History) RaiseEvent DataChanged(kdNr, Kfz, SDLNr, History) End Sub - + ElseIf SDLLeistung = 203 Then ' CZ MAUT pic.Image = Nothing Dim usrcntl As New usrCntlSDLLeistungenCZ(kdnr, KfzKennzeichen, SDLLeistung, history) @@ -99,7 +99,7 @@ Public Class usrCntlDatenDetails AddHandler usrcntl.CHANGED, Sub(kdNr, Kfz, SDLNr, History) RaiseEvent DataChanged(kdNr, Kfz, SDLNr, History) End Sub - + ElseIf SDLLeistung = 204 Then ' FR-MAUT pic.Image = Nothing Dim usrcntl As New usrCntlSDLLeistungenFR(kdnr, KfzKennzeichen, SDLLeistung, history) @@ -111,7 +111,7 @@ Public Class usrCntlDatenDetails AddHandler usrcntl.CHANGED, Sub(kdNr, Kfz, SDLNr, History) RaiseEvent DataChanged(kdNr, Kfz, SDLNr, History) End Sub - + ElseIf SDLLeistung = 205 Then ' MotorWayMaut pic.Image = Nothing Dim usrcntl As New usrCntlSDLLeistungenMotorWayMaut(kdnr, KfzKennzeichen, SDLLeistung, history) @@ -135,7 +135,7 @@ Public Class usrCntlDatenDetails AddHandler usrcntl.CHANGED, Sub(kdNr, Kfz, SDLNr, History) RaiseEvent DataChanged(kdNr, Kfz, SDLNr, History) End Sub - + ElseIf SDLLeistung = 207 Then ' FREJUS pic.Image = Nothing Dim usrcntl As New usrCntlSDLLeistungenFREJUS(kdnr, KfzKennzeichen, SDLLeistung, history) @@ -147,7 +147,7 @@ Public Class usrCntlDatenDetails AddHandler usrcntl.CHANGED, Sub(kdNr, Kfz, SDLNr, History) RaiseEvent DataChanged(kdNr, Kfz, SDLNr, History) End Sub - + ElseIf SDLLeistung = 208 Then ' MSE Card pic.Image = Nothing Dim usrcntl As New usrCntlSDLLeistungenMSE(kdnr, KfzKennzeichen, SDLLeistung, history) @@ -159,7 +159,7 @@ Public Class usrCntlDatenDetails AddHandler usrcntl.CHANGED, Sub(kdNr, Kfz, SDLNr, History) RaiseEvent DataChanged(kdNr, Kfz, SDLNr, History) End Sub - + ElseIf SDLLeistung = 209 Then ' PL MAUT pic.Image = Nothing Dim usrcntl As New usrCntlSDLLeistungenPL(kdnr, KfzKennzeichen, SDLLeistung, history) @@ -183,7 +183,7 @@ Public Class usrCntlDatenDetails AddHandler usrcntl.CHANGED, Sub(kdNr, Kfz, SDLNr, History) RaiseEvent DataChanged(kdNr, Kfz, SDLNr, History) End Sub - + ElseIf SDLLeistung = 211 Then ' ECOTAX pic.Image = Nothing Dim usrcntl As New usrCntlSDLLeistungenECOTAX(kdnr, KfzKennzeichen, SDLLeistung, history) @@ -195,7 +195,7 @@ Public Class usrCntlDatenDetails AddHandler usrcntl.CHANGED, Sub(kdNr, Kfz, SDLNr, History) RaiseEvent DataChanged(kdNr, Kfz, SDLNr, History) End Sub - + ElseIf SDLLeistung = 212 Then ' UTA pic.Image = Nothing Dim usrcntl As New usrCntlSDLLeistungenUTA(kdnr, KfzKennzeichen, SDLLeistung, history) @@ -207,7 +207,7 @@ Public Class usrCntlDatenDetails AddHandler usrcntl.CHANGED, Sub(kdNr, Kfz, SDLNr, History) RaiseEvent DataChanged(kdNr, Kfz, SDLNr, History) End Sub - + ElseIf SDLLeistung = 213 Then ' HUGO pic.Image = Nothing Dim usrcntl As New usrCntlSDLLeistungHUGO(kdnr, KfzKennzeichen, SDLLeistung, history) @@ -220,6 +220,40 @@ Public Class usrCntlDatenDetails RaiseEvent DataChanged(kdNr, Kfz, SDLNr, History) End Sub + ElseIf SDLLeistung = 214 Then ' PLOSE + pic.Image = Nothing + Dim usrcntl As New usrCntlSDLLeistungPLOSE(kdnr, KfzKennzeichen, SDLLeistung, history) + usrcntl.Dock = DockStyle.Fill + pnlSDLLeistungenDetails.Controls.Add(usrcntl) + AddHandler usrcntl.LKWChanged, Sub(kdNr, newKfz, SDLNr, History) + RaiseEvent Changed(kdNr, newKfz, SDLNr, History) + End Sub + AddHandler usrcntl.CHANGED, Sub(kdNr, Kfz, SDLNr, History) + RaiseEvent DataChanged(kdNr, Kfz, SDLNr, History) + End Sub + ElseIf SDLLeistung = 215 Then ' PLOSE it + pic.Image = Nothing + Dim usrcntl As New usrCntlSDLLeistungenPLOSE_IT(kdnr, KfzKennzeichen, SDLLeistung, history) + usrcntl.Dock = DockStyle.Fill + pnlSDLLeistungenDetails.Controls.Add(usrcntl) + AddHandler usrcntl.LKWChanged, Sub(kdNr, newKfz, SDLNr, History) + RaiseEvent Changed(kdNr, newKfz, SDLNr, History) + End Sub + AddHandler usrcntl.CHANGED, Sub(kdNr, Kfz, SDLNr, History) + RaiseEvent DataChanged(kdNr, Kfz, SDLNr, History) + End Sub + ElseIf SDLLeistung = 216 Then ' PLOSE cz + pic.Image = Nothing + Dim usrcntl As New usrCntlSDLLeistungenPLOSE_CZ(kdnr, KfzKennzeichen, SDLLeistung, history) + usrcntl.Dock = DockStyle.Fill + pnlSDLLeistungenDetails.Controls.Add(usrcntl) + AddHandler usrcntl.LKWChanged, Sub(kdNr, newKfz, SDLNr, History) + RaiseEvent Changed(kdNr, newKfz, SDLNr, History) + End Sub + AddHandler usrcntl.CHANGED, Sub(kdNr, Kfz, SDLNr, History) + RaiseEvent DataChanged(kdNr, Kfz, SDLNr, History) + End Sub + ElseIf SDLLeistung = 500 Then ' MAN pic.Image = Nothing Dim usrcntl As New usrCntlSDLLeistungenMANAbgas(kdnr, KfzKennzeichen, SDLLeistung, history) diff --git a/SDL/mdm/usrCntlKartenDaten.Designer.vb b/SDL/mdm/usrCntlKartenDaten.Designer.vb index 8bff6eb6..4885d531 100644 --- a/SDL/mdm/usrCntlKartenDaten.Designer.vb +++ b/SDL/mdm/usrCntlKartenDaten.Designer.vb @@ -23,7 +23,7 @@ Partial Class usrCntlKartenDaten _ Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() - Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Me.DetailsAnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.FlowLayoutPanel = New System.Windows.Forms.FlowLayoutPanel() Me.btnSDL_Alle = New System.Windows.Forms.Button() @@ -45,6 +45,7 @@ Partial Class usrCntlKartenDaten Me.btnSDL_Woelfl = New System.Windows.Forms.Button() Me.btnMANAbgasplakette = New System.Windows.Forms.Button() Me.btnVERAGParkplatz = New System.Windows.Forms.Button() + Me.btnSDL_PLOSE = New System.Windows.Forms.Button() Me.btnFilter = New System.Windows.Forms.Button() Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.KundenblattAnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() @@ -71,13 +72,15 @@ Partial Class usrCntlKartenDaten Me.Panel3 = New System.Windows.Forms.Panel() Me.SplitContainer1 = New System.Windows.Forms.SplitContainer() Me.dgvSDL = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.UsrCntlDatenDetails1 = New SDL.usrCntlDatenDetails() Me.Panel4 = New System.Windows.Forms.Panel() Me.pnlTest = New System.Windows.Forms.Panel() Me.dgvFILTER = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.cntxtExcel = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripMenuItem6 = New System.Windows.Forms.ToolStripMenuItem() - Me.UsrCntlDatenDetails1 = New SDL.usrCntlDatenDetails() + Me.btnSDL_PLOSE_IT = New System.Windows.Forms.Button() + Me.btnSDL_PLOSE_CZ = New System.Windows.Forms.Button() Me.FlowLayoutPanel.SuspendLayout() Me.ContextMenuStrip1.SuspendLayout() Me.Panel1.SuspendLayout() @@ -122,6 +125,9 @@ Partial Class usrCntlKartenDaten Me.FlowLayoutPanel.Controls.Add(Me.btnSDL_Woelfl) Me.FlowLayoutPanel.Controls.Add(Me.btnMANAbgasplakette) Me.FlowLayoutPanel.Controls.Add(Me.btnVERAGParkplatz) + Me.FlowLayoutPanel.Controls.Add(Me.btnSDL_PLOSE) + Me.FlowLayoutPanel.Controls.Add(Me.btnSDL_PLOSE_IT) + Me.FlowLayoutPanel.Controls.Add(Me.btnSDL_PLOSE_CZ) Me.FlowLayoutPanel.Dock = System.Windows.Forms.DockStyle.Fill Me.FlowLayoutPanel.Location = New System.Drawing.Point(0, 0) Me.FlowLayoutPanel.Margin = New System.Windows.Forms.Padding(0) @@ -300,7 +306,7 @@ Partial Class usrCntlKartenDaten Me.btnSDL_MautIT.Name = "btnSDL_MautIT" Me.btnSDL_MautIT.Size = New System.Drawing.Size(78, 64) Me.btnSDL_MautIT.TabIndex = 37 - Me.btnSDL_MautIT.Text = "IT MAUT" + Me.btnSDL_MautIT.Text = "IT MAUT (Jara)" Me.btnSDL_MautIT.TextAlign = System.Drawing.ContentAlignment.BottomCenter Me.btnSDL_MautIT.UseVisualStyleBackColor = False ' @@ -460,6 +466,23 @@ Partial Class usrCntlKartenDaten Me.btnVERAGParkplatz.TextAlign = System.Drawing.ContentAlignment.BottomCenter Me.btnVERAGParkplatz.UseVisualStyleBackColor = True ' + 'btnSDL_PLOSE + ' + Me.btnSDL_PLOSE.Cursor = System.Windows.Forms.Cursors.Default + Me.btnSDL_PLOSE.FlatAppearance.BorderSize = 0 + Me.btnSDL_PLOSE.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnSDL_PLOSE.ForeColor = System.Drawing.Color.Black + Me.btnSDL_PLOSE.Image = Global.SDL.My.Resources.Resources.plose + Me.btnSDL_PLOSE.ImageAlign = System.Drawing.ContentAlignment.TopCenter + Me.btnSDL_PLOSE.Location = New System.Drawing.Point(156, 64) + Me.btnSDL_PLOSE.Margin = New System.Windows.Forms.Padding(0) + Me.btnSDL_PLOSE.Name = "btnSDL_PLOSE" + Me.btnSDL_PLOSE.Size = New System.Drawing.Size(78, 64) + Me.btnSDL_PLOSE.TabIndex = 41 + Me.btnSDL_PLOSE.Text = "PLOSE" + Me.btnSDL_PLOSE.TextAlign = System.Drawing.ContentAlignment.BottomCenter + Me.btnSDL_PLOSE.UseVisualStyleBackColor = True + ' 'btnFilter ' Me.btnFilter.FlatStyle = System.Windows.Forms.FlatStyle.Flat @@ -789,14 +812,23 @@ Partial Class usrCntlKartenDaten Me.dgvSDL.AllowUserToAddRows = False Me.dgvSDL.AllowUserToDeleteRows = False Me.dgvSDL.AllowUserToResizeColumns = False - DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvSDL.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1 + DataGridViewCellStyle4.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvSDL.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4 Me.dgvSDL.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvSDL.Location = New System.Drawing.Point(0, -1) Me.dgvSDL.Name = "dgvSDL" Me.dgvSDL.Size = New System.Drawing.Size(1354, 599) Me.dgvSDL.TabIndex = 29 ' + 'UsrCntlDatenDetails1 + ' + Me.UsrCntlDatenDetails1.Dock = System.Windows.Forms.DockStyle.Fill + Me.UsrCntlDatenDetails1.Location = New System.Drawing.Point(0, 0) + Me.UsrCntlDatenDetails1.Name = "UsrCntlDatenDetails1" + Me.UsrCntlDatenDetails1.Size = New System.Drawing.Size(1354, 234) + Me.UsrCntlDatenDetails1.TabIndex = 0 + Me.UsrCntlDatenDetails1.Visible = False + ' 'Panel4 ' Me.Panel4.BackColor = System.Drawing.Color.White @@ -855,14 +887,39 @@ Partial Class usrCntlKartenDaten Me.ToolStripMenuItem6.Size = New System.Drawing.Size(210, 22) Me.ToolStripMenuItem6.Text = "Formatiert (dauert länger)" ' - 'UsrCntlDatenDetails1 + 'btnSDL_PLOSE_IT ' - Me.UsrCntlDatenDetails1.Dock = System.Windows.Forms.DockStyle.Fill - Me.UsrCntlDatenDetails1.Location = New System.Drawing.Point(0, 0) - Me.UsrCntlDatenDetails1.Name = "UsrCntlDatenDetails1" - Me.UsrCntlDatenDetails1.Size = New System.Drawing.Size(1354, 234) - Me.UsrCntlDatenDetails1.TabIndex = 0 - Me.UsrCntlDatenDetails1.Visible = False + Me.btnSDL_PLOSE_IT.Cursor = System.Windows.Forms.Cursors.Default + Me.btnSDL_PLOSE_IT.FlatAppearance.BorderSize = 0 + Me.btnSDL_PLOSE_IT.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnSDL_PLOSE_IT.ForeColor = System.Drawing.Color.Black + Me.btnSDL_PLOSE_IT.Image = Global.SDL.My.Resources.Resources.plose_it + Me.btnSDL_PLOSE_IT.ImageAlign = System.Drawing.ContentAlignment.TopCenter + Me.btnSDL_PLOSE_IT.Location = New System.Drawing.Point(234, 64) + Me.btnSDL_PLOSE_IT.Margin = New System.Windows.Forms.Padding(0) + Me.btnSDL_PLOSE_IT.Name = "btnSDL_PLOSE_IT" + Me.btnSDL_PLOSE_IT.Size = New System.Drawing.Size(78, 64) + Me.btnSDL_PLOSE_IT.TabIndex = 42 + Me.btnSDL_PLOSE_IT.Text = "PLOSE IT" + Me.btnSDL_PLOSE_IT.TextAlign = System.Drawing.ContentAlignment.BottomCenter + Me.btnSDL_PLOSE_IT.UseVisualStyleBackColor = True + ' + 'btnSDL_PLOSE_CZ + ' + Me.btnSDL_PLOSE_CZ.Cursor = System.Windows.Forms.Cursors.Default + Me.btnSDL_PLOSE_CZ.FlatAppearance.BorderSize = 0 + Me.btnSDL_PLOSE_CZ.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnSDL_PLOSE_CZ.ForeColor = System.Drawing.Color.Black + Me.btnSDL_PLOSE_CZ.Image = Global.SDL.My.Resources.Resources.plose_cz + Me.btnSDL_PLOSE_CZ.ImageAlign = System.Drawing.ContentAlignment.TopCenter + Me.btnSDL_PLOSE_CZ.Location = New System.Drawing.Point(312, 64) + Me.btnSDL_PLOSE_CZ.Margin = New System.Windows.Forms.Padding(0) + Me.btnSDL_PLOSE_CZ.Name = "btnSDL_PLOSE_CZ" + Me.btnSDL_PLOSE_CZ.Size = New System.Drawing.Size(78, 64) + Me.btnSDL_PLOSE_CZ.TabIndex = 43 + Me.btnSDL_PLOSE_CZ.Text = "PLOSE CZ" + Me.btnSDL_PLOSE_CZ.TextAlign = System.Drawing.ContentAlignment.BottomCenter + Me.btnSDL_PLOSE_CZ.UseVisualStyleBackColor = True ' 'usrCntlKartenDaten ' @@ -944,5 +1001,7 @@ Partial Class usrCntlKartenDaten Friend WithEvents btnMANAbgasplakette As System.Windows.Forms.Button Friend WithEvents btnBestellformular As System.Windows.Forms.Button Friend WithEvents btnVERAGParkplatz As System.Windows.Forms.Button - + Friend WithEvents btnSDL_PLOSE As Button + Friend WithEvents btnSDL_PLOSE_IT As Button + Friend WithEvents btnSDL_PLOSE_CZ As Button End Class diff --git a/SDL/mdm/usrCntlKartenDaten.vb b/SDL/mdm/usrCntlKartenDaten.vb index d28976d4..d6aee06c 100644 --- a/SDL/mdm/usrCntlKartenDaten.vb +++ b/SDL/mdm/usrCntlKartenDaten.vb @@ -93,6 +93,9 @@ Public Class usrCntlKartenDaten btnSDL_MautIT.Visible = dt.Select("SDLNr=202").Count > 0 btnSDL_MautCZ.Visible = dt.Select("SDLNr=203").Count > 0 btnSDL_Hugo.Visible = dt.Select("SDLNr=213").Count > 0 + btnSDL_PLOSE.Visible = dt.Select("SDLNr=214").Count > 0 + btnSDL_PLOSE_IT.Visible = dt.Select("SDLNr=215").Count > 0 + btnSDL_PLOSE_CZ.Visible = dt.Select("SDLNr=216").Count > 0 btnMANAbgasplakette.Visible = dt.Select("SDLNr=500").Count > 0 btnVERAGParkplatz.Visible = dt.Select("SDLNr=501").Count > 0 @@ -400,6 +403,10 @@ Public Class usrCntlKartenDaten btnSDL_MotorWay.BackColor = defaufl_color : btnSDL_MotorWay.ForeColor = defaufl_forecolor : btnSDL_MotorWay.FlatAppearance.BorderSize = 0 btnSDL_Woelfl.BackColor = defaufl_color : btnSDL_Woelfl.ForeColor = defaufl_forecolor : btnSDL_Woelfl.FlatAppearance.BorderSize = 0 btnMANAbgasplakette.BackColor = defaufl_color : btnMANAbgasplakette.ForeColor = defaufl_forecolor : btnMANAbgasplakette.FlatAppearance.BorderSize = 0 + btnSDL_PLOSE.BackColor = defaufl_color : btnSDL_PLOSE.ForeColor = defaufl_forecolor : btnSDL_PLOSE.FlatAppearance.BorderSize = 0 + btnSDL_PLOSE_IT.BackColor = defaufl_color : btnSDL_PLOSE_IT.ForeColor = defaufl_forecolor : btnSDL_PLOSE_IT.FlatAppearance.BorderSize = 0 + btnSDL_PLOSE_CZ.BackColor = defaufl_color : btnSDL_PLOSE_CZ.ForeColor = defaufl_forecolor : btnSDL_PLOSE_CZ.FlatAppearance.BorderSize = 0 + btnVERAGParkplatz.BackColor = defaufl_color : btnVERAGParkplatz.ForeColor = defaufl_forecolor : btnVERAGParkplatz.FlatAppearance.BorderSize = 0 b.FlatAppearance.BorderSize = 1 @@ -460,6 +467,9 @@ Public Class usrCntlKartenDaten Case 202 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, [TELEPASS-Kd-Nr], VIACARD,[TELEPASS-Nr], Vermerk,Gesperrt, Defekt, Verloren, Gestohlen, Retourniert,TelepassErsatzkarte, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL WHERE SDLNr=202" Case 203 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, KartenNr, Vermerk, Gesperrt, Defekt, Verloren, Gestohlen, Retourniert, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL WHERE SDLNr=203" Case 213 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, KartenNr, OBUID, PIN, /*GültigBis,*/Vermerk, Gesperrt, Defekt, Verloren, Gestohlen, Retourniert, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL WHERE SDLNr=213" + Case 214 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, VIACARD, [TELEPASS-Nr], /*GültigBis,*/Vermerk, Gesperrt, Defekt, Verloren, Gestohlen, Retourniert, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL WHERE SDLNr=214" + Case 215 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, VIACARD, [TELEPASS-Nr], /*GültigBis,*/Vermerk, Gesperrt, Defekt, Verloren, Gestohlen, Retourniert, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL WHERE SDLNr=215" + Case 216 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, KartenNr, OBUID, PIN, /*GültigBis,*/Vermerk, Gesperrt, Defekt, Verloren, Gestohlen, Retourniert, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL WHERE SDLNr=216" Case 209 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, [MSE-Kd-Nr], KartenNr, Vermerk,Gesperrt, Defekt, Verloren, Gestohlen, Retourniert, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL WHERE SDLNr=209" Case 210 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, [MSE-Kd-Nr], KartenNr, OBUID, [SERIE-Nr],Vermerk, Gesperrt, Defekt, Verloren, Gestohlen, Retourniert, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL WHERE SDLNr=210" Case 208 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, [MSE-Kd-Nr], KartenNr, GültigBis,Vermerk,Gesperrt, Defekt, Verloren, Gestohlen, Retourniert, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL WHERE SDLNr=208" @@ -507,6 +517,9 @@ Public Class usrCntlKartenDaten Case 202 : Return btnSDL_MautIT Case 203 : Return btnSDL_MautCZ Case 213 : Return btnSDL_Hugo + Case 214 : Return btnSDL_PLOSE + Case 215 : Return btnSDL_PLOSE_IT + Case 216 : Return btnSDL_PLOSE_CZ Case 209 : Return btnSDL_MautPL Case 210 : Return btnSDL_MautSI Case 208 : Return btnSDL_MautMSE @@ -555,6 +568,10 @@ Public Class usrCntlKartenDaten SET_SDL(213) End Sub + Private Sub btnSDL_PLOSE_Click(sender As Object, e As EventArgs) Handles btnSDL_PLOSE.Click + SET_SDL(214) + End Sub + Private Sub btnSDL_MautPL_Click(sender As Object, e As EventArgs) Handles btnSDL_MautPL.Click SET_SDL(209) End Sub @@ -1387,4 +1404,12 @@ Public Class usrCntlKartenDaten End Sub + + Private Sub btnSDL_PLOSE_IT_Click(sender As Object, e As EventArgs) Handles btnSDL_PLOSE_IT.Click + SET_SDL(215) + End Sub + + Private Sub btnSDL_PLOSE_CZ_Click(sender As Object, e As EventArgs) Handles btnSDL_PLOSE_CZ.Click + SET_SDL(216) + End Sub End Class diff --git a/SDL/mdm/usrCntlMDMAuswertungen.Designer.vb b/SDL/mdm/usrCntlMDMAuswertungen.Designer.vb index 1a051093..69aa957c 100644 --- a/SDL/mdm/usrCntlMDMAuswertungen.Designer.vb +++ b/SDL/mdm/usrCntlMDMAuswertungen.Designer.vb @@ -135,21 +135,8 @@ Partial Class usrCntlMDMAuswertungen Me.TextBox1 = New System.Windows.Forms.TextBox() Me.Label41 = New System.Windows.Forms.Label() Me.Button12 = New System.Windows.Forms.Button() - Me.Label42 = New System.Windows.Forms.Label() - Me.GroupBox12 = New System.Windows.Forms.GroupBox() - Me.lblPloseAnh_Proz = New System.Windows.Forms.Label() - Me.Button13 = New System.Windows.Forms.Button() - Me.pbPloseAnh_Proz = New System.Windows.Forms.ProgressBar() - Me.txtPloseAnh_Einarbeitung = New System.Windows.Forms.TextBox() - Me.datPLOSE_Sum_Von = New System.Windows.Forms.DateTimePicker() - Me.Label44 = New System.Windows.Forms.Label() - Me.Label45 = New System.Windows.Forms.Label() - Me.Label46 = New System.Windows.Forms.Label() - Me.Button14 = New System.Windows.Forms.Button() - Me.datPLOSE_Sum_Bis = New System.Windows.Forms.DateTimePicker() + Me.Button15 = New System.Windows.Forms.Button() Me.pnl = New System.Windows.Forms.Panel() - Me.datPloseAnhang = New System.Windows.Forms.DateTimePicker() - Me.Label43 = New System.Windows.Forms.Label() Me.GroupBox1.SuspendLayout() Me.GroupBox2.SuspendLayout() CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit() @@ -173,7 +160,6 @@ Partial Class usrCntlMDMAuswertungen Me.GroupBox10.SuspendLayout() Me.tbPLOSE.SuspendLayout() Me.GroupBox11.SuspendLayout() - Me.GroupBox12.SuspendLayout() Me.pnl.SuspendLayout() Me.SuspendLayout() ' @@ -1342,11 +1328,8 @@ Partial Class usrCntlMDMAuswertungen ' 'tbPLOSE ' - Me.tbPLOSE.Controls.Add(Me.datPloseAnhang) Me.tbPLOSE.Controls.Add(Me.Label37) Me.tbPLOSE.Controls.Add(Me.GroupBox11) - Me.tbPLOSE.Controls.Add(Me.Label42) - Me.tbPLOSE.Controls.Add(Me.GroupBox12) Me.tbPLOSE.Location = New System.Drawing.Point(4, 22) Me.tbPLOSE.Name = "tbPLOSE" Me.tbPLOSE.Padding = New System.Windows.Forms.Padding(3) @@ -1377,7 +1360,7 @@ Partial Class usrCntlMDMAuswertungen Me.GroupBox11.Enabled = False Me.GroupBox11.Location = New System.Drawing.Point(6, 22) Me.GroupBox11.Name = "GroupBox11" - Me.GroupBox11.Size = New System.Drawing.Size(297, 145) + Me.GroupBox11.Size = New System.Drawing.Size(587, 126) Me.GroupBox11.TabIndex = 18 Me.GroupBox11.TabStop = False ' @@ -1435,128 +1418,23 @@ Partial Class usrCntlMDMAuswertungen Me.Button12.Text = "Datei einlesen ..." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) Me.Button12.UseVisualStyleBackColor = True ' - 'Label42 + 'Button15 ' - Me.Label42.AutoSize = True - Me.Label42.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label42.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Me.Label42.Location = New System.Drawing.Point(325, 11) - Me.Label42.Name = "Label42" - Me.Label42.Size = New System.Drawing.Size(199, 17) - Me.Label42.TabIndex = 24 - Me.Label42.Text = "PLOSE Datenverarbeitung" - ' - 'GroupBox12 - ' - Me.GroupBox12.Controls.Add(Me.Label43) - Me.GroupBox12.Controls.Add(Me.lblPloseAnh_Proz) - Me.GroupBox12.Controls.Add(Me.Button13) - Me.GroupBox12.Controls.Add(Me.pbPloseAnh_Proz) - Me.GroupBox12.Controls.Add(Me.txtPloseAnh_Einarbeitung) - Me.GroupBox12.Controls.Add(Me.datPLOSE_Sum_Von) - Me.GroupBox12.Controls.Add(Me.Label44) - Me.GroupBox12.Controls.Add(Me.Label45) - Me.GroupBox12.Controls.Add(Me.Label46) - Me.GroupBox12.Controls.Add(Me.Button14) - Me.GroupBox12.Controls.Add(Me.datPLOSE_Sum_Bis) - Me.GroupBox12.Location = New System.Drawing.Point(322, 22) - Me.GroupBox12.Name = "GroupBox12" - Me.GroupBox12.Size = New System.Drawing.Size(587, 169) - Me.GroupBox12.TabIndex = 23 - Me.GroupBox12.TabStop = False - ' - 'lblPloseAnh_Proz - ' - Me.lblPloseAnh_Proz.Location = New System.Drawing.Point(495, 117) - Me.lblPloseAnh_Proz.Name = "lblPloseAnh_Proz" - Me.lblPloseAnh_Proz.Size = New System.Drawing.Size(69, 13) - Me.lblPloseAnh_Proz.TabIndex = 27 - Me.lblPloseAnh_Proz.Text = "0%" - Me.lblPloseAnh_Proz.TextAlign = System.Drawing.ContentAlignment.TopRight - ' - 'Button13 - ' - Me.Button13.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button13.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.Button13.Location = New System.Drawing.Point(37, 88) - Me.Button13.Name = "Button13" - Me.Button13.Size = New System.Drawing.Size(238, 37) - Me.Button13.TabIndex = 26 - Me.Button13.Text = "Anhänge erstellen" - Me.Button13.UseVisualStyleBackColor = True - ' - 'pbPloseAnh_Proz - ' - Me.pbPloseAnh_Proz.Location = New System.Drawing.Point(281, 88) - Me.pbPloseAnh_Proz.Name = "pbPloseAnh_Proz" - Me.pbPloseAnh_Proz.Size = New System.Drawing.Size(283, 23) - Me.pbPloseAnh_Proz.TabIndex = 26 - ' - 'txtPloseAnh_Einarbeitung - ' - Me.txtPloseAnh_Einarbeitung.BackColor = System.Drawing.Color.White - Me.txtPloseAnh_Einarbeitung.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.txtPloseAnh_Einarbeitung.Location = New System.Drawing.Point(353, 117) - Me.txtPloseAnh_Einarbeitung.Name = "txtPloseAnh_Einarbeitung" - Me.txtPloseAnh_Einarbeitung.Size = New System.Drawing.Size(106, 13) - Me.txtPloseAnh_Einarbeitung.TabIndex = 25 - ' - 'datPLOSE_Sum_Von - ' - Me.datPLOSE_Sum_Von.Format = System.Windows.Forms.DateTimePickerFormat.[Short] - Me.datPLOSE_Sum_Von.Location = New System.Drawing.Point(37, 19) - Me.datPLOSE_Sum_Von.Name = "datPLOSE_Sum_Von" - Me.datPLOSE_Sum_Von.Size = New System.Drawing.Size(103, 20) - Me.datPLOSE_Sum_Von.TabIndex = 18 - ' - 'Label44 - ' - Me.Label44.AutoSize = True - Me.Label44.Location = New System.Drawing.Point(278, 117) - Me.Label44.Name = "Label44" - Me.Label44.Size = New System.Drawing.Size(56, 13) - Me.Label44.TabIndex = 24 - Me.Label44.Text = "Fortschritt:" - ' - 'Label45 - ' - Me.Label45.AutoSize = True - Me.Label45.Location = New System.Drawing.Point(143, 22) - Me.Label45.Name = "Label45" - Me.Label45.Size = New System.Drawing.Size(23, 13) - Me.Label45.TabIndex = 21 - Me.Label45.Text = "bis:" - ' - 'Label46 - ' - Me.Label46.AutoSize = True - Me.Label46.Location = New System.Drawing.Point(3, 22) - Me.Label46.Name = "Label46" - Me.Label46.Size = New System.Drawing.Size(28, 13) - Me.Label46.TabIndex = 19 - Me.Label46.Text = "von:" - ' - 'Button14 - ' - Me.Button14.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button14.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.Button14.Location = New System.Drawing.Point(37, 45) - Me.Button14.Name = "Button14" - Me.Button14.Size = New System.Drawing.Size(238, 37) - Me.Button14.TabIndex = 21 - Me.Button14.Text = "Summenbericht erstellen" - Me.Button14.UseVisualStyleBackColor = True - ' - 'datPLOSE_Sum_Bis - ' - Me.datPLOSE_Sum_Bis.Format = System.Windows.Forms.DateTimePickerFormat.[Short] - Me.datPLOSE_Sum_Bis.Location = New System.Drawing.Point(172, 19) - Me.datPLOSE_Sum_Bis.Name = "datPLOSE_Sum_Bis" - Me.datPLOSE_Sum_Bis.Size = New System.Drawing.Size(103, 20) - Me.datPLOSE_Sum_Bis.TabIndex = 20 + Me.Button15.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Button15.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button15.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.Button15.Location = New System.Drawing.Point(770, 9) + Me.Button15.Name = "Button15" + Me.Button15.Padding = New System.Windows.Forms.Padding(10, 0, 0, 0) + Me.Button15.Size = New System.Drawing.Size(283, 37) + Me.Button15.TabIndex = 29 + Me.Button15.Text = "MDM Dateneinarbeitung" + Me.Button15.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button15.UseVisualStyleBackColor = True ' 'pnl ' + Me.pnl.Controls.Add(Me.Button15) Me.pnl.Controls.Add(Me.Label2) Me.pnl.Dock = System.Windows.Forms.DockStyle.Top Me.pnl.Location = New System.Drawing.Point(0, 0) @@ -1564,23 +1442,6 @@ Partial Class usrCntlMDMAuswertungen Me.pnl.Size = New System.Drawing.Size(1057, 54) Me.pnl.TabIndex = 26 ' - 'datPloseAnhang - ' - Me.datPloseAnhang.Format = System.Windows.Forms.DateTimePickerFormat.[Short] - Me.datPloseAnhang.Location = New System.Drawing.Point(494, 153) - Me.datPloseAnhang.Name = "datPloseAnhang" - Me.datPloseAnhang.Size = New System.Drawing.Size(103, 20) - Me.datPloseAnhang.TabIndex = 28 - ' - 'Label43 - ' - Me.Label43.AutoSize = True - Me.Label43.Location = New System.Drawing.Point(85, 137) - Me.Label43.Name = "Label43" - Me.Label43.Size = New System.Drawing.Size(81, 13) - Me.Label43.TabIndex = 28 - Me.Label43.Text = "Datum Anhang:" - ' 'usrCntlMDMAuswertungen ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -1629,8 +1490,6 @@ Partial Class usrCntlMDMAuswertungen Me.tbPLOSE.PerformLayout() Me.GroupBox11.ResumeLayout(False) Me.GroupBox11.PerformLayout() - Me.GroupBox12.ResumeLayout(False) - Me.GroupBox12.PerformLayout() Me.pnl.ResumeLayout(False) Me.pnl.PerformLayout() Me.ResumeLayout(False) @@ -1749,18 +1608,5 @@ Partial Class usrCntlMDMAuswertungen Friend WithEvents TextBox1 As TextBox Friend WithEvents Label41 As Label Friend WithEvents Button12 As Button - Friend WithEvents Label42 As Label - Friend WithEvents GroupBox12 As GroupBox - Friend WithEvents datPLOSE_Sum_Von As DateTimePicker - Friend WithEvents Label45 As Label - Friend WithEvents Label46 As Label - Friend WithEvents datPLOSE_Sum_Bis As DateTimePicker - Friend WithEvents Button13 As Button - Friend WithEvents Button14 As Button - Friend WithEvents lblPloseAnh_Proz As Label - Friend WithEvents pbPloseAnh_Proz As ProgressBar - Friend WithEvents txtPloseAnh_Einarbeitung As TextBox - Friend WithEvents Label44 As Label - Friend WithEvents datPloseAnhang As DateTimePicker - Friend WithEvents Label43 As Label + Friend WithEvents Button15 As Button End Class diff --git a/SDL/mdm/usrCntlMDMAuswertungen.vb b/SDL/mdm/usrCntlMDMAuswertungen.vb index 2e024905..120f824c 100644 --- a/SDL/mdm/usrCntlMDMAuswertungen.vb +++ b/SDL/mdm/usrCntlMDMAuswertungen.vb @@ -834,12 +834,15 @@ Public Class usrCntlMDMAuswertungen SQLstr &= " WHEN '210' THEN cast([SERIE-Nr] as VARCHAR(200)) " SQLstr &= " WHEN '212' THEN cast(KartenNr as VARCHAR(200)) " SQLstr &= " WHEN '213' THEN cast(OBUID as VARCHAR(200)) " + SQLstr &= " WHEN '214' THEN cast(OBUID as VARCHAR(200)) " + SQLstr &= " WHEN '215' THEN cast([TELEPASS-Nr] as VARCHAR(200)) " + SQLstr &= " WHEN '216' THEN cast(OBUID as VARCHAR(200)) " SQLstr &= " WHEN '203' THEN cast(KartenNr as VARCHAR(200)) " SQLstr &= " WHEN '209' THEN cast([MSE-Kd-Nr] as VARCHAR(200)) " SQLstr &= " Else '-' " SQLstr &= " END as VARCHAR(200)) AS KarteBoxNr," SQLstr &= " isnull(sdl.vermerk,'') as Vermerk,isnull(Gesperrt,0) as Gesperrt, isnull(Defekt,0) as Defekt,isnull(Verloren,0) as Verloren,isnull(Gestohlen,0) as Gestohlen,isnull(Ersatzkarte,0) as Ersatzkarte " - SQLstr &= " FROM [SDL].[dbo].[SDL] inner join [KundenSDL] on [KundenSDL].SDLnr=sdl.SDLNr and [KundenSDL].KundenNr=sdl.KundenNr" + SQLstr &= " FROM [SDL] inner join [KundenSDL] on [KundenSDL].SDLnr=sdl.SDLNr and [KundenSDL].KundenNr=sdl.KundenNr" SQLstr &= " where SDL.SDLNr = '" & MyComboBox2._value & "' And Sperre = 0 And Archiviert = 0 AND isnull([Gesperrt],'')=0 AND isnull([Defekt],'')=0 AND isnull([Verloren],'')=0 AND isnull([Gestohlen],'')=0 AND isnull([Retourniert],'')=0 " SQLstr &= " order by Firma" @@ -951,280 +954,12 @@ Public Class usrCntlMDMAuswertungen Me.Cursor = Cursors.Default End Sub - Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click - Dim displayFilter = False - Dim sqlstr As String = "" - - sqlstr &= " SELECT count(*) Anzahl ,plose_ProduktCode" - sqlstr &= ",max(plose_Produktbeschreibung) as plose_Produktbeschreibung" - sqlstr &= ",sum(plose_Menge) as plose_Menge" - sqlstr &= ",sum(plose_Preis) as plose_Preis" - sqlstr &= ",sum(plose_NettobetragTransaktion) as plose_NettobetragTransaktion" - sqlstr &= ",sum(plose_MWSTBetrag) as plose_MWSTBetrag" - sqlstr &= ",sum(plose_BruttobetragTransaktion) as plose_BruttobetragTransaktion " - sqlstr &= " FROM tblPLOSE_Details" - sqlstr &= " WHERE 1=1 " - - sqlstr &= " AND plose_DatumTransaktion between '" & datPLOSE_Sum_Von.Value & "' and '" & datPLOSE_Sum_Bis.Value & "' " - - sqlstr &= " group by plose_ProduktCode" - sqlstr &= " order by plose_ProduktCode" - Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL - Dim dt As DataTable = SQL.loadDgvBySql_Param(sqlstr, "FMZOLL") - 'DataGridView.DataSource = dt - - - Dim print As New frmPrintLayout - print.Text = "PLOSE" - - Dim rpt As New rptPLOSE_TransaktionenSumary - - rpt.DataSource = dt - - - 'If cbxProdukt.Checked Then - ' rpt.GroupHeader2.DataField = "prod_descr" - 'Else - ' rpt.GroupHeader2.Visible = False - ' rpt.GroupFooter2.Visible = False - 'End If - - - - Dim sum = 0 - rpt.lblUeberschrift.Text = "PLOSE Summenbericht " & datPLOSE_Sum_Von.Text & " bis " & datPLOSE_Sum_Bis.Text - rpt.lblSachbearbeiter.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME - 'rpt.lblMandantNiederlassung.Text = PERSONAL.Mandant & " / " & PERSONAL.Niederlassung - - 'Dim cnt As Integer = 0 - rpt.lblDat.Text = Now.ToLongDateString - - - Dim sumPreis As Double = 0 - Dim sumNetto As Double = 0 - Dim sumMWST As Double = 0 - Dim sumBrutto As Double = 0 - Dim sumMenge As Double = 0 - - AddHandler rpt.Detail.Format, Sub() - ' rpt.lblProduktBeschreibung.Text = isDbnullEmpty(rpt.Fields.Item("BC_DESCR").Value, "") - rpt.lblAnzahl.Text = isDbnullEmpty(rpt.Fields.Item("Anzahl").Value, "") - rpt.lblProdukt.Text = isDbnullEmpty(rpt.Fields.Item("plose_ProduktCode").Value, "") & " - " & isDbnullEmpty(rpt.Fields.Item("plose_Produktbeschreibung").Value, "") - - rpt.lblMenge.Text = isDbnullEmptyDbl(rpt.Fields.Item("plose_Menge").Value, 0, "") - rpt.lblPreis.Text = isDbnullEmptyDbl(rpt.Fields.Item("plose_Preis").Value, 2, "") - rpt.lblNetto.Text = isDbnullEmptyDbl(rpt.Fields.Item("plose_NettobetragTransaktion").Value, 2, "") - rpt.lblMWST.Text = isDbnullEmptyDbl(rpt.Fields.Item("plose_MWSTBetrag").Value, 2, "") - rpt.lblBrutto.Text = isDbnullEmptyDbl(rpt.Fields.Item("plose_BruttobetragTransaktion").Value, 2, "") - - - - sumMenge += isDbnullEmptyDbl(rpt.Fields.Item("plose_Menge").Value, 4, 0) - sumPreis += isDbnullEmptyDbl(rpt.Fields.Item("plose_Preis").Value, 4, 0) - sumNetto += isDbnullEmptyDbl(rpt.Fields.Item("plose_NettobetragTransaktion").Value, 4, 0) - sumMWST += isDbnullEmptyDbl(rpt.Fields.Item("plose_MWSTBetrag").Value, 4, 0) - sumBrutto += isDbnullEmptyDbl(rpt.Fields.Item("plose_BruttobetragTransaktion").Value, 4, 0) - - - End Sub - - - AddHandler rpt.ReportFooter1.Format, Sub() - rpt.lblSumMenge.Text = sumMenge.ToString("N0") - rpt.lblSumPreis.Text = sumPreis.ToString("N2") - rpt.lblSumNetto.Text = sumNetto.ToString("N2") - rpt.lblSumMwst.Text = sumMWST.ToString("N2") - rpt.lblSumBrutto.Text = sumBrutto.ToString("N2") - - End Sub - - print.Viewer.LoadDocument(rpt) - print.Viewer.ViewType = GrapeCity.Viewer.Common.Model.ViewType.Continuous - print.Show() + Private Sub Button15_Click(sender As Object, e As EventArgs) Handles Button15.Click + Dim f As New frmMDMDatenverarbetiung + f.Show() End Sub - - Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click - Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL - Dim dt_Main As DataTable = SQL.loadDgvBySql_Param("SELECT [plose_POLSEKundennummer] FROM tblPLOSE_Details where plose_FakturiertDatum is null AND plose_DatumTransaktion between '" & datPLOSE_Sum_Von.Value.ToShortDateString & "' and '" & datPLOSE_Sum_Bis.Value.ToShortDateString & "' group by [plose_POLSEKundennummer] ", "FMZOLL") - - If dt_Main Is Nothing OrElse dt_Main.Rows.Count = 0 Then - MsgBox("Keine Daten!") - Exit Sub - End If - Dim cnt = 0 - If vbYes = MsgBox("Es wurden Daten von " & dt_Main.Rows.Count & " Kunden gefunden " & vbNewLine & " Möchten Sie die Anhänge erstellen?",vbYesNoCancel) Then - Dim dir = "F:\FMZoll\Maut\PLOSE\" & Now.ToShortDateString - - If IO.Directory.Exists(dir) Then dir &= "_" & Now.ToShortTimeString.Replace(":", "") - IO.Directory.CreateDirectory(dir) - For Each R_PLOSE In dt_Main.Rows - genPLOSEAttachmentByKdNr(R_PLOSE("plose_POLSEKundennummer"), datPLOSE_Sum_Von.Value.ToShortDateString, datPLOSE_Sum_Bis.Value.ToShortDateString, dir) - - - If True Then 'cnt Mod 10 = 0 Then - txtPloseAnh_Einarbeitung.Text = cnt & " / " & dt_Main.Rows.Count - Dim proz As Double = (cnt / dt_Main.Rows.Count) * 100 - pbPloseAnh_Proz.Value = proz - lblPloseAnh_Proz.Text = proz.ToString("N2") & " %" - GroupBox12.Refresh() - My.Application.DoEvents() - End If - cnt += 1 - - - Next - pbPloseAnh_Proz.Value = 100 - txtPloseAnh_Einarbeitung.Text = dt_Main.Rows.Count & " / " & dt_Main.Rows.Count - lblPloseAnh_Proz.Text = "100.00 %" - - End If - End Sub - - Function genPLOSEAttachmentByKdNr(KdNr As String, von As Date, bis As Date, dir As String) - Try - - Dim displayFilter = False - Dim sqlstr As String = "" - - sqlstr &= " SELECT * " - sqlstr &= " FROM tblPLOSE_Details INNER JOIN [tblPLOSE_Produktbeschreibung] on plose_ProduktCode=plp_ProductCode " - sqlstr &= " WHERE 1=1 " - sqlstr &= " AND plose_FakturiertDatum is null " - sqlstr &= " AND plose_POLSEKundennummer = '" & KdNr & "' " - sqlstr &= " AND plose_DatumTransaktion between '" & von.ToShortDateString & "' and '" & bis.ToShortDateString & "' " - - ' sqlstr &= " group by plose_ProduktCode" - sqlstr &= " order by plp_Land, plose_DatumTransaktion" - - Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL - Dim dt As DataTable = SQL.loadDgvBySql_Param(sqlstr, "FMZOLL") - - Dim rpt As New rptPLOSE_Anhang - - rpt.DataSource = dt - - rpt.lblRgDatum.Text = datPloseAnhang.Value.ToShortDateString - - rpt.GroupHeaderKz.DataField = "plose_Kennzeichen" 'Gruppierung - - Dim sumNetto As Double = 0 - Dim sumMWST As Double = 0 - Dim sumBrutto As Double = 0 - - Dim sumNettoKat As Double = 0 - Dim sumMWSTKat As Double = 0 - Dim sumBruttoKat As Double = 0 - - Dim sumNettoGes As Double = 0 - Dim sumMWSTGes As Double = 0 - Dim sumBruttoGes As Double = 0 - - Dim cntKat = 0 - Dim cnt = 0 - rpt.GroupFooterKat.Visible = False - - AddHandler rpt.Detail.Format, Sub() - ' If cnt = 0 Then - rpt.txtKunde.Text = isDbnullEmpty(rpt.Fields.Item("plose_POLSEKundennummer").Value, "") & " " & isDbnullEmpty(rpt.Fields.Item("plose_Firmenname").Value, "") - ' End If - - ' rpt.txtProduktBeschreibung.Text = isDbnullEmpty(rpt.Fields.Item("BC_DESCR").Value, "") - Select Case "DE" - Case "DE" : rpt.txtProdukt.Text = isDbnullEmpty(rpt.Fields.Item("plp_Description_DE").Value, "") 'isDbnullEmpty(rpt.Fields.Item("plose_ProduktCode").Value, "") & " - " & isDbnullEmpty(rpt.Fields.Item("plose_Produktbeschreibung").Value, "") - Case "IT" : rpt.txtProdukt.Text = isDbnullEmpty(rpt.Fields.Item("plp_Description_IT").Value, "") 'isDbnullEmpty(rpt.Fields.Item("plose_ProduktCode").Value, "") & " - " & isDbnullEmpty(rpt.Fields.Item("plose_Produktbeschreibung").Value, "") - Case Else : rpt.txtProdukt.Text = isDbnullEmpty(rpt.Fields.Item("plp_Description_EN").Value, "") 'isDbnullEmpty(rpt.Fields.Item("plose_ProduktCode").Value, "") & " - " & isDbnullEmpty(rpt.Fields.Item("plose_Produktbeschreibung").Value, "") - End Select - - rpt.txtKartennummer.Text = isDbnullEmpty(rpt.Fields.Item("plose_NummerKarteGeraet").Value, "") - rpt.txtEingang.Text = isDbnullEmpty(rpt.Fields.Item("plose_BeschreibungEinfahrt").Value, "") - rpt.txtAusgang.Text = isDbnullEmpty(rpt.Fields.Item("plose_BeschreibungAusfahrt").Value, "") - rpt.txtLand.Text = isDbnullEmpty(rpt.Fields.Item("plp_Land").Value, "") - rpt.txtDatum.Text = isDbnullEmpty(rpt.Fields.Item("plose_DatumTransaktion").Value, "") - - rpt.txtNetto.Text = isDbnullEmptyDbl(rpt.Fields.Item("plose_NettobetragTransaktion").Value, 2, "") - rpt.txtMWST.Text = isDbnullEmptyDbl(rpt.Fields.Item("plose_MWSTBetrag").Value, 2, "") - rpt.txtBrutto.Text = isDbnullEmptyDbl(rpt.Fields.Item("plose_BruttobetragTransaktion").Value, 2, "") - - sumNetto += isDbnullEmptyDbl(rpt.Fields.Item("plose_NettobetragTransaktion").Value, 4, 0) - sumMWST += isDbnullEmptyDbl(rpt.Fields.Item("plose_MWSTBetrag").Value, 4, 0) - sumBrutto += isDbnullEmptyDbl(rpt.Fields.Item("plose_BruttobetragTransaktion").Value, 4, 0) - cnt += 1 - End Sub - - AddHandler rpt.GroupHeaderKz.Format, Sub() - rpt.txtKennzeichen.Text = isDbnullEmpty(rpt.Fields.Item("plose_Kennzeichen").Value, "") - If rpt.txtKennzeichen.Text = "" Then rpt.lblKennzeichen.Visible = False - End Sub - AddHandler rpt.GroupHeaderKat.Format, Sub() - rpt.lblKategorie.Text = "MAUT REPORT" - End Sub - - AddHandler rpt.GroupFooterKz.Format, Sub() - rpt.txtNettoKzSum.Text = sumNetto.ToString("N2") - rpt.txtMWSTKzSum.Text = sumMWST.ToString("N2") - rpt.txtBruttoKzSum.Text = sumBrutto.ToString("N2") - - rpt.lblSummeKennzeichen.Text = rpt.lblSummeKennzeichen.Text.Replace("Kennzeichen", isDbnullEmpty(rpt.Fields.Item("plose_Kennzeichen").Value, "")) - End Sub - - - - AddHandler rpt.GroupFooterKat.Format, Sub() - sumNettoKat += sumNetto - sumMWSTKat += sumMWST - sumBruttoKat += sumBrutto - sumNetto = 0 - sumMWST = 0 - sumBrutto = 0 - - rpt.txtNettoKatSum.Text = sumNettoKat.ToString("N2") - rpt.txtMWSTKatSum.Text = sumMWSTKat.ToString("N2") - rpt.txtBruttoKatSum.Text = sumBruttoKat.ToString("N2") - cntKat += 1 - End Sub - AddHandler rpt.ReportFooter1.Format, Sub() - sumNettoGes += sumNettoKat - sumMWSTGes += sumMWSTKat - sumBruttoGes += sumBruttoKat - sumNettoKat = 0 - sumMWSTKat = 0 - sumBruttoKat = 0 - - rpt.txtNettoGesSum.Text = sumNettoGes.ToString("N2") - rpt.txtMWSTGEsSum.Text = sumMWSTGes.ToString("N2") - rpt.txtBruttoGesSum.Text = sumBruttoGes.ToString("N2") - - - - 'If cntKat <= 1 Then - ' rpt.GroupFooterKat.Visible = False - 'End If - End Sub - - 'print.Viewer.LoadDocument(rpt) - 'print.Viewer.ViewType = GrapeCity.Viewer.Common.Model.ViewType.Continuous - 'print.Show() - - - - Dim tmpPath = dir & "\" & KdNr & "_PLOSE_Anhang.pdf" - Dim p As New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport - rpt.Run(False) - p.NeverEmbedFonts = "" - p.Export(rpt.Document, tmpPath) - - rpt.Dispose() - - Return tmpPath - - Catch ex As System.Exception - MsgBox(ex.Message & ex.StackTrace) - End Try - Return "" - End Function - End Class Class cMDMAuswertung diff --git a/SDL/zoll/usrCntlAuswertungenAufschub_Abgabenliste.Designer.vb b/SDL/zoll/usrCntlAuswertungenAufschub_Abgabenliste.Designer.vb index 42b3917f..fee2dcda 100644 --- a/SDL/zoll/usrCntlAuswertungenAufschub_Abgabenliste.Designer.vb +++ b/SDL/zoll/usrCntlAuswertungenAufschub_Abgabenliste.Designer.vb @@ -35,6 +35,7 @@ Partial Class usrCntlAuswertungenAufschub_Abgabenliste Me.datVon = New System.Windows.Forms.DateTimePicker() Me.lblErr = New System.Windows.Forms.Label() Me.Label14 = New System.Windows.Forms.Label() + Me.Button4 = New System.Windows.Forms.Button() Me.GroupBox2.SuspendLayout() Me.SuspendLayout() ' @@ -51,6 +52,7 @@ Partial Class usrCntlAuswertungenAufschub_Abgabenliste ' 'GroupBox2 ' + Me.GroupBox2.Controls.Add(Me.Button4) Me.GroupBox2.Controls.Add(Me.Label1) Me.GroupBox2.Controls.Add(Me.datFaellig) Me.GroupBox2.Controls.Add(Me.cboKonto) @@ -157,7 +159,7 @@ Partial Class usrCntlAuswertungenAufschub_Abgabenliste ' Me.lblErr.AutoSize = True Me.lblErr.ForeColor = System.Drawing.Color.Red - Me.lblErr.Location = New System.Drawing.Point(6, 56) + Me.lblErr.Location = New System.Drawing.Point(145, 83) Me.lblErr.Name = "lblErr" Me.lblErr.Size = New System.Drawing.Size(69, 13) Me.lblErr.TabIndex = 13 @@ -173,6 +175,21 @@ Partial Class usrCntlAuswertungenAufschub_Abgabenliste Me.Label14.TabIndex = 5 Me.Label14.Text = "Liefert eine Abgabenliste entsprechend dem Konto und Zeitraum aus den Dakosy-Date" & "n." + ' + 'Button4 + ' + Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button4.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.Button4.Image = Global.SDL.My.Resources.Resources.Excel_logo + Me.Button4.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button4.Location = New System.Drawing.Point(9, 50) + Me.Button4.Name = "Button4" + Me.Button4.Padding = New System.Windows.Forms.Padding(0, 0, 25, 0) + Me.Button4.Size = New System.Drawing.Size(121, 38) + Me.Button4.TabIndex = 38 + Me.Button4.Text = "Excel" + Me.Button4.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.Button4.UseVisualStyleBackColor = True ' 'usrCntlAuswertungenAufschub_Abgabenliste ' @@ -202,5 +219,5 @@ Partial Class usrCntlAuswertungenAufschub_Abgabenliste Friend WithEvents Label12 As System.Windows.Forms.Label Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents datFaellig As System.Windows.Forms.DateTimePicker - + Friend WithEvents Button4 As Button End Class diff --git a/SDL/zoll/usrCntlAuswertungenAufschub_Abgabenliste.vb b/SDL/zoll/usrCntlAuswertungenAufschub_Abgabenliste.vb index f4b7fc74..6bba88db 100644 --- a/SDL/zoll/usrCntlAuswertungenAufschub_Abgabenliste.vb +++ b/SDL/zoll/usrCntlAuswertungenAufschub_Abgabenliste.vb @@ -30,8 +30,13 @@ Public Class usrCntlAuswertungenAufschub_Abgabenliste End Sub + Function get_DT() As DataTable + Return SQL.loadDgvBySql("SELECT eza_firma,eza_niederlassung,Eingabedatum, eza_ANR,Belegart, eza_ObjectName,betrag " & + " FROM [tblDakosy_EZA] inner join [Zkteing] on [Zkteing].Registriernummer=eza_ANR " & + " where Eingabedatum between '" & datVon.Value & "' and '" & datBis.Value & "' and akto='" & cboKonto._value.ToString.Substring(1) & "' and AOFD='" & cboKonto._value.ToString.Substring(0, 1) & "' and convert(date,Fälligkeitsdatum,104)<='" & datFaellig.Value & "' " & + " order by eza_firma,eza_niederlassung,Eingabedatum,eza_ANR", "FMZOLL") + End Function - Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click Dim displayFilter = False @@ -44,12 +49,9 @@ Public Class usrCntlAuswertungenAufschub_Abgabenliste Dim rpt As New rptAbgabenliste - rpt.DataSource = SQL.loadDgvBySql("SELECT eza_firma,eza_niederlassung,Eingabedatum, eza_ANR,Belegart, eza_ObjectName,betrag " & - " FROM [tblDakosy_EZA] inner join [Zkteing] on [Zkteing].Registriernummer=eza_ANR " & - " where Eingabedatum between '" & datVon.Value & "' and '" & datBis.Value & "' and akto='" & cboKonto._value.ToString.Substring(1) & "' and AOFD='" & cboKonto._value.ToString.Substring(0, 1) & "' and convert(date,Fälligkeitsdatum,104)<='" & datFaellig.Value & "' " & - " order by eza_firma,eza_niederlassung,Eingabedatum,eza_ANR", "FMZOLL") - - rpt.GroupHeader1.DataField = "eza_niederlassung" 'Gruppierung + rpt.DataSource = get_DT() + + rpt.GroupHeader1.DataField = "eza_niederlassung" 'Gruppierung ' MsgBox(rpt.DataSource.rows.count) If rpt.DataSource.rows.count = 0 Then @@ -142,4 +144,11 @@ Public Class usrCntlAuswertungenAufschub_Abgabenliste Private Sub datBis_ValueChanged(sender As Object, e As EventArgs) Handles datBis.ValueChanged datFaellig.Value = CDate("16." & datBis.Value.AddMonths(1).Month & "." & datBis.Value.AddMonths(1).Year) End Sub + + Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click + Dim dt As DataTable = get_DT() 'SQL.loadDgvBySql(getSQL_NCTS_ATLAS(datVon.Text, datBis.Text, txtStatVon.Text, txtStatbis.Text, DirectCast(ComboBox2.SelectedItem, VERAG_PROG_ALLGEMEIN.MyListItem).Value, DirectCast(ComboBox1.SelectedItem, VERAG_PROG_ALLGEMEIN.MyListItem).Value), "FMZOLL") + If dt IsNot Nothing Then + cProgramFunctions.genExcelFromDT_NEW(dt) + End If + End Sub End Class diff --git a/SDL/zoll/usrCntlAuswertungenFiskalvertretung_4200.vb b/SDL/zoll/usrCntlAuswertungenFiskalvertretung_4200.vb index 59ea4b38..06c30c36 100644 --- a/SDL/zoll/usrCntlAuswertungenFiskalvertretung_4200.vb +++ b/SDL/zoll/usrCntlAuswertungenFiskalvertretung_4200.vb @@ -151,7 +151,7 @@ Public Class usrCntlAuswertungenFiskalvertretung_4200 sqlStr &= " from tblDakosy_EZA inner join tblDakosy_EZA_Adressen ON ezaAd_EZAId=eza_Id" ' sqlStr &= " WHERE (eza_Trans_DatumZeit) Between '" & datVon.Value.ToShortDateString & "' And '" & datBis.Value.ToShortDateString & "' " sqlStr &= " WHERE (SELECT COUNT(*) FROM [tblDakosy_Statusmeldungen] WHERE [dySt_dyId]=eza_dyaAnmID AND [dySt_status] between 40 and 70 AND CONVERT(date, [dySt_ergZeitpunkt] ,104 ) BETWEEN '" & datVon.Value.ToShortDateString & "' And '" & datBis.Value.ToShortDateString & "' )>0 " - sqlStr &= " and ezaAd_AdressTyp='UC' and eza_VerfahrenBeantragtCode LIKE '42%' and [eza_UstIdAnmelder]='DE813667748' and ezaAd_UStIDAnmelder is not null and [eza_FinanzamtAnmelder]='9153' " + sqlStr &= " and ezaAd_AdressTyp='UC' and eza_ANR LIKE 'ATC42%' /*eza_VerfahrenBeantragtCode LIKE '42%'*/ and [eza_UstIdAnmelder]='DE813667748' and ezaAd_UStIDAnmelder is not null and [eza_FinanzamtAnmelder]='9153' " sqlStr &= " AND [eza_Status] IN(SELECT [zbant_stat] FROM [atlas_status] where fiskal_freigabe=1) " End If @@ -306,7 +306,7 @@ Public Class usrCntlAuswertungenFiskalvertretung_4200 sqlStr &= " from tblDakosy_EZA inner join tblDakosy_EZA_Adressen ON ezaAd_EZAId=eza_Id" ' sqlStr &= " WHERE (eza_Trans_DatumZeit) Between '" & datVon.Value.ToShortDateString & "' And '" & datBis.Value.ToShortDateString & "' " sqlStr &= " WHERE (SELECT COUNT(*) FROM [tblDakosy_Statusmeldungen] WHERE [dySt_dyId]=eza_dyaAnmID AND [dySt_status] between 40 and 70 AND CONVERT(date, [dySt_ergZeitpunkt] ,104 ) BETWEEN '" & datVon.Value.ToShortDateString & "' And '" & datBis.Value.ToShortDateString & "' )>0 " - sqlStr &= " and ezaAd_AdressTyp='UC' and eza_VerfahrenBeantragtCode LIKE '42%' and [eza_UstIdAnmelder]='DE813667748' and ezaAd_UStIDAnmelder is not null and [eza_FinanzamtAnmelder]='9153' " + sqlStr &= " and ezaAd_AdressTyp='UC' and eza_ANR LIKE 'ATC42%' /*eza_VerfahrenBeantragtCode LIKE '42%'*/ and [eza_UstIdAnmelder]='DE813667748' and ezaAd_UStIDAnmelder is not null and [eza_FinanzamtAnmelder]='9153' " sqlStr &= " AND [eza_Status] IN(SELECT [zbant_stat] FROM [atlas_status] where fiskal_freigabe=1) " ' sqlStr &= " select Left(ezaAd_UStIDAnmelder,2) AS knre1, substring(ezaAd_UStIDAnmelder,3,len(ezaAd_UStIDAnmelder)) AS knre2 ,eza_Rechnungspreis as betrag" diff --git a/SDL/zoll/usrCntlBrgBuchungenFremd.vb b/SDL/zoll/usrCntlBrgBuchungenFremd.vb index 4df02560..5314498c 100644 --- a/SDL/zoll/usrCntlBrgBuchungenFremd.vb +++ b/SDL/zoll/usrCntlBrgBuchungenFremd.vb @@ -7,7 +7,7 @@ Public Class usrCntlBrgBuchungenFremd Private Sub usrCntlBrgBuchungenFremd_Load(sender As Object, e As EventArgs) Handles Me.Load cboBRG.Items.Clear() cboBRG.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", "")) - cboBRG.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TOBB - 15TR0004000020917 / 12TR0004000004665 / 17TR0004000032349", " '12TR0004000004665','15TR0004000020917','17TR0004000032349'")) + cboBRG.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TOBB - 15TR0004000020917 / 12TR0004000004665 / 17TR0004000032349 / 17TR0004000029518 ", " '12TR0004000004665','15TR0004000020917','17TR0004000032349','17TR0004000029518 '")) cboBRG.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SGS - 16DE0000000068410", "'16DE0000000068410'")) cboBRG.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("MARS - 15TR0004000020908", "'15TR0004000020908'")) cboBRG.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EKOL - 13TR0004000005094", "'13TR0004000005094'")) @@ -63,7 +63,7 @@ Public Class usrCntlBrgBuchungenFremd sqlatr = " Select TOP 100 AnmeldungsDatum As Datum , (Select [CrossIdnt] FROM [zsAnmTransp] where [zsAnmTransp].AnmID=vwVERAG_Zolaris_EZoll_NCTS_Datenübernahme_Eroeffnung.AnmID ) As Kennzeichen, isnull(CRN,'') as MRN, (select [CrossIdntNat] FROM [zsAnmTransp] where [zsAnmTransp].AnmID=vwVERAG_Zolaris_EZoll_NCTS_Datenübernahme_Eroeffnung.AnmID ) as Land, cast(GarantieWert as Decimal(17,2)) as GarantieBetrag,(SELECT [Na] FROM [ezoll].[dbo].[zsAnmCarrTra] where [zsAnmCarrTra].AnmID=vwVERAG_Zolaris_EZoll_NCTS_Datenübernahme_Eroeffnung.AnmID) as Firma " sqlatr &= " " & If(cboBRG.Text.Contains("TOBB") Or cboBRG.Text.Contains("OREGON"), ", isnull(Bestimmungszollstelle,'') as Bestimmungsstelle ", "") & " " sqlatr &= " FROM vwVERAG_Zolaris_EZoll_NCTS_Datenübernahme_Eroeffnung " - sqlatr &= " WHERE GRN IN (" & cboBRG._value & ") and AnmeldungsDatum BETWEEN '" & datVon.Value.ToShortDateString & "' AND '" & datBis.Value.ToShortDateString & "' " + sqlatr &= " WHERE GRN IN (" & cboBRG._value & ") and cast( AnmeldungsDatum as date) BETWEEN '" & datVon.Value.ToShortDateString & "' AND '" & datBis.Value.ToShortDateString & "' " Dim dt2 As DataTable = SQL.loadDgvBySql(sqlatr, "EZOLL") diff --git a/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb b/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb index 73d31818..9917d848 100644 --- a/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb +++ b/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb @@ -298,6 +298,7 @@ Public Class cADMIN 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 VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = If(firma = "", "VERAG", firma) @@ -325,11 +326,11 @@ Public Class cADMIN If dr.Read Then cMitarbeiterAVISO.MitarbeiterID = CInt(dr.Item("mit_id")) - ' cMitarbeiterAVISO.Grenzstelle = CStr(dr.Item("mit_niederlassung")) + ' cMitarbeiterAVISO.Grenzstelle = CStr(dr.Item("mit_niederlassung")) ' If cMitarbeiterAVISO.Grenzstelle = "Suben" Then cMitarbeiterAVISO.Grenzstelle = "SUB" ' If cMitarbeiterAVISO.Grenzstelle = "Waidhaus" Then cMitarbeiterAVISO.Grenzstelle = "WAI" - ' If cMitarbeiterAVISO.Grenzstelle = "Nickelsdorf" Then cMitarbeiterAVISO.Grenzstelle = "NKD" - ' If cMitarbeiterAVISO.Grenzstelle = "Salzburg" Then cMitarbeiterAVISO.Grenzstelle = "SBG" + ' If cMitarbeiterAVISO.Grenzstelle = "Nickelsdorf" Then cMitarbeiterAVISO.Grenzstelle = "NKD" + ' If cMitarbeiterAVISO.Grenzstelle = "Salzburg" Then cMitarbeiterAVISO.Grenzstelle = "SBG" ' If cMitarbeiterAVISO.Grenzstelle = "" Then cMitarbeiterAVISO.Grenzstelle = "???" cMitarbeiterAVISO.Mitarbeiter = CStr(dr.Item("mit_username")) cMitarbeiterAVISO.Mitarbeitername = CStr(dr.Item("mit_vname")) & " " & CStr(dr.Item("mit_nname")) @@ -376,7 +377,7 @@ Public Class cADMIN End Using dr.Close() Catch ex As Exception - MsgBox("Fehler mit der Datenbankverbindung:" & vbCrLf & vbCrLf & ex.Message & ex.StackTrace, vbExclamation, "Datenbankfehler") + MsgBox("Fehler mit der Datenbankverbindung.", "Datenbankfehler") Return False End Try @@ -889,6 +890,7 @@ Public Class cAviso Property Zugmaschine As Object = Nothing Property FahrerHandy As Object = Nothing Property LKW_Nationalitaet As Object = Nothing + Property DakosyRef As Object = Nothing Sub UPDATE_FahrerHandy(FahrerHandy As String) If AvisoID <= 0 Then Exit Sub @@ -975,6 +977,9 @@ Public Class cAvisoDAL daten.Zugmaschine = VarToStr(dr.Item("Zugmaschine")) daten.FahrerHandy = VarToStr(dr.Item("FahrerHandy")) daten.LKW_Nationalitaet = VarToStr(dr.Item("LKW_Nationalitaet")) + daten.DakosyRef = VarToStr(dr.Item("DakosyRef")) + + End If dr.Close() @@ -1227,17 +1232,17 @@ Public Class cAvisoDAL hAuswahl = "INSERT INTO Aviso " & "(Datum, LKW_Nr, Telefonisch, Änderungen, Info, Status, Auftraggeber, Frächter, letzterMitarbeiter, " & "Vorbereitet,Vorgeschrieben, Ankunft, Freigabe, Dauer, AvisoEingang, Grenzstelle, LKW_fertig,letzterMitarbeiterId,Handling,Sendungen_Gesamtanzahl,Sammelakt,Frächter_KdNr,Auftraggeber_KdNr,AvisoTVHinweis,Buero,Imex,Abgeschlossen,FIRMA, " & - " Durchgangszollstelle1,Durchgangszollstelle2,Durchgangszollstelle3,Durchgangszollstelle4,Durchgangszollstelle5,Durchgangszollstelle6,Ausgangszollstelle,Zollstelle,TransportTemperatur,Zugmaschine,FahrerHandy,LKW_Nationalitaet) VALUES (" & + " Durchgangszollstelle1,Durchgangszollstelle2,Durchgangszollstelle3,Durchgangszollstelle4,Durchgangszollstelle5,Durchgangszollstelle6,Ausgangszollstelle,Zollstelle,TransportTemperatur,Zugmaschine,FahrerHandy,LKW_Nationalitaet,DakosyRef) VALUES (" & "@Datum, @LKW_Nr, @Telefonisch, @Änderungen, @Info, @Status, @Auftraggeber, @Frächter, @letzterMitarbeiter, " & "@Vorbereitet, @Vorgeschrieben, @Ankunft, @Freigabe, @Dauer, @AvisoEingang, @Grenzstelle, @LKW_fertig,@letzterMitarbeiterId,@Handling,@Sendungen_Gesamtanzahl,@Sammelakt,@Frächter_KdNr,@Auftraggeber_KdNr,@AvisoTVHinweis,@Buero,@Imex,@Abgeschlossen,@FIRMA," & - "@Durchgangszollstelle1,@Durchgangszollstelle2,@Durchgangszollstelle3,@Durchgangszollstelle4,@Durchgangszollstelle5,@Durchgangszollstelle6,@Ausgangszollstelle,@Zollstelle,@TransportTemperatur,@Zugmaschine,@FahrerHandy,@LKW_Nationalitaet); SELECT CAST(scope_identity() AS int);" + "@Durchgangszollstelle1,@Durchgangszollstelle2,@Durchgangszollstelle3,@Durchgangszollstelle4,@Durchgangszollstelle5,@Durchgangszollstelle6,@Ausgangszollstelle,@Zollstelle,@TransportTemperatur,@Zugmaschine,@FahrerHandy,@LKW_Nationalitaet,@DakosyRef); SELECT CAST(scope_identity() AS int);" Else id = d.AvisoID 'Änderung hAuswahl = String.Format( "UPDATE Aviso SET Datum = @Datum, LKW_Nr = @LKW_Nr, Telefonisch=@Telefonisch, Änderungen=@Änderungen, Info=@Info, Status=@Status, Auftraggeber=@Auftraggeber, Frächter=@Frächter, " & " letzterMitarbeiter = @letzterMitarbeiter, Vorbereitet=@Vorbereitet,Vorgeschrieben=@Vorgeschrieben, Ankunft = @Ankunft, Freigabe = @Freigabe, Dauer = @Dauer, AvisoEingang = @AvisoEingang, Grenzstelle=@Grenzstelle, LKW_fertig=@LKW_fertig, letzterMitarbeiterId=@letzterMitarbeiterId, Handling=@Handling,Sendungen_Gesamtanzahl=@Sendungen_Gesamtanzahl,Sammelakt=@Sammelakt,Frächter_KdNr=@Frächter_KdNr,Auftraggeber_KdNr=@Auftraggeber_KdNr,AvisoTVHinweis=@AvisoTVHinweis,Buero=@Buero,Imex=@Imex,Abgeschlossen=@Abgeschlossen, " & - " Durchgangszollstelle1=@Durchgangszollstelle1,Durchgangszollstelle2=@Durchgangszollstelle2,Durchgangszollstelle3=@Durchgangszollstelle3,Durchgangszollstelle4=@Durchgangszollstelle4,Durchgangszollstelle5=@Durchgangszollstelle5,Durchgangszollstelle6=@Durchgangszollstelle6,Ausgangszollstelle=@Ausgangszollstelle,Zollstelle=@Zollstelle,TransportTemperatur=@TransportTemperatur,Zugmaschine=@Zugmaschine,FahrerHandy=@FahrerHandy, LKW_Nationalitaet=@LKW_Nationalitaet " & + " Durchgangszollstelle1=@Durchgangszollstelle1,Durchgangszollstelle2=@Durchgangszollstelle2,Durchgangszollstelle3=@Durchgangszollstelle3,Durchgangszollstelle4=@Durchgangszollstelle4,Durchgangszollstelle5=@Durchgangszollstelle5,Durchgangszollstelle6=@Durchgangszollstelle6,Ausgangszollstelle=@Ausgangszollstelle,Zollstelle=@Zollstelle,TransportTemperatur=@TransportTemperatur,Zugmaschine=@Zugmaschine,FahrerHandy=@FahrerHandy, LKW_Nationalitaet=@LKW_Nationalitaet, DakosyRef=@DakosyRef " & " WHERE AvisoID = @AvisoID") End If @@ -1297,6 +1302,7 @@ Public Class cAvisoDAL cmd.Parameters.AddWithValue("@Zugmaschine", If(d.Zugmaschine Is Nothing, DBNull.Value, d.Zugmaschine)) cmd.Parameters.AddWithValue("@FahrerHandy", If(d.FahrerHandy Is Nothing, DBNull.Value, d.FahrerHandy)) cmd.Parameters.AddWithValue("@LKW_Nationalitaet", If(d.LKW_Nationalitaet Is Nothing, DBNull.Value, d.LKW_Nationalitaet)) + cmd.Parameters.AddWithValue("@DakosyRef", If(d.DakosyRef Is Nothing, DBNull.Value, d.DakosyRef)) Try If d.AvisoID <= 0 Then diff --git a/VERAG_PROG_ALLGEMEIN/App.config b/VERAG_PROG_ALLGEMEIN/App.config index 05fd7c16..d0fa6789 100644 --- a/VERAG_PROG_ALLGEMEIN/App.config +++ b/VERAG_PROG_ALLGEMEIN/App.config @@ -1,50 +1,33 @@ - + - -
+ +
- -
+ +
- - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + - + @@ -52,7 +35,7 @@ Data Source=192.168.0.99;Initial Catalog=Therefore;Integrated Security=false;User ID=sa;Password=BmWr501956; - + Data Source=192.168.0.94\SQLEXPRESS;Initial Catalog=DISPO;Integrated Security=false;User ID=sa;Password=BmWr501956;Pooling=true;Min Pool Size=5;Max Pool Size=200 @@ -61,10 +44,9 @@ - + http://ec.europa.eu/taxation_customs/vies/services/checkVatService - \ No newline at end of file + diff --git a/VERAG_PROG_ALLGEMEIN/Barcode/Code128Content.vb b/VERAG_PROG_ALLGEMEIN/Barcode/Code128Content.vb new file mode 100644 index 00000000..515042fc --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/Barcode/Code128Content.vb @@ -0,0 +1,146 @@ +#Region " Class " + +#Region " Enums " + +Public Enum CodeSetAllowed + CodeA + CodeB + CodeAorB +End Enum + +Public Enum CodeSet + CodeA + CodeB +End Enum + +#End Region + +Public Class Code128Content + Private mCodeList As Integer() + + Public Sub New(ByVal AsciiData As String) + mCodeList = StringToCode128(AsciiData) + End Sub + + Public ReadOnly Property Codes() As Integer() + Get + Return mCodeList + End Get + End Property + + Private Function StringToCode128(ByVal AsciiData As String) As Integer() + + Dim asciiBytes As Byte() = System.Text.Encoding.ASCII.GetBytes(AsciiData) + + Dim csa1 As CodeSetAllowed = If(asciiBytes.Length > 0, Code128Code.CodesetAllowedForChar(asciiBytes(0)), CodeSetAllowed.CodeAorB) + Dim csa2 As CodeSetAllowed = If(asciiBytes.Length > 0, Code128Code.CodesetAllowedForChar(asciiBytes(1)), CodeSetAllowed.CodeAorB) + Dim currcs As CodeSet = GetBestStartSet(csa1, csa2) + + Dim codes As New List(Of Integer)(asciiBytes.Length + 3) + codes.Add(Code128Code.StartCodeForCodeSet(currcs)) + + For i As Integer = 0 To asciiBytes.Length - 1 + Dim thischar As Integer = asciiBytes(i) + Dim nextchar As Integer = If(asciiBytes.Length > (i + 1), asciiBytes(i + 1), -1) + + codes.AddRange(Code128Code.CodesForChar(thischar, nextchar, currcs)) + Next + + Dim checksum As Integer = CInt(codes(0)) + For i As Integer = 1 To codes.Count - 1 + checksum += i * CInt(codes(i)) + Next + + codes.Add(checksum Mod 103) + codes.Add(Code128Code.StopCode()) + + Return codes.ToArray + End Function + + Private Function GetBestStartSet(ByVal csa1 As CodeSetAllowed, ByVal csa2 As CodeSetAllowed) As CodeSet + Dim vote As Integer = 0 + + vote += If((csa1 = CodeSetAllowed.CodeA), 1, 0) + vote += If((csa1 = CodeSetAllowed.CodeB), -1, 0) + vote += If((csa2 = CodeSetAllowed.CodeA), 1, 0) + vote += If((csa2 = CodeSetAllowed.CodeB), -1, 0) + + Return If((vote > 0), CodeSet.CodeA, CodeSet.CodeB) + End Function +End Class + +Public NotInheritable Class Code128Code + +#Region "Constants" + + Private Const cSHIFT As Integer = 98 + Private Const cCODEA As Integer = 101 + Private Const cCODEB As Integer = 100 + + Private Const cSTARTA As Integer = 103 + Private Const cSTARTB As Integer = 104 + Private Const cSTOP As Integer = 106 + +#End Region + + Public Shared Function CodesForChar(ByVal CharAscii As Integer, ByVal LookAheadAscii As Integer, ByRef CurrCodeSet As CodeSet) As Integer() + Dim result As Integer() + Dim shifter As Integer = -1 + + If Not CharCompatibleWithCodeset(CharAscii, CurrCodeSet) Then + If (LookAheadAscii <> -1) AndAlso Not CharCompatibleWithCodeset(LookAheadAscii, CurrCodeSet) Then + Select Case CurrCodeSet + Case CodeSet.CodeA + shifter = cCODEB + CurrCodeSet = CodeSet.CodeB + Exit Select + Case CodeSet.CodeB + shifter = cCODEA + CurrCodeSet = CodeSet.CodeA + Exit Select + End Select + Else + shifter = cSHIFT + End If + End If + + If shifter <> -1 Then + result = New Integer(1) {} + result(0) = shifter + result(1) = CodeValueForChar(CharAscii) + Else + result = New Integer(0) {} + result(0) = CodeValueForChar(CharAscii) + End If + + Return result + End Function + + Public Shared Function CodesetAllowedForChar(ByVal CharAscii As Integer) As CodeSetAllowed + If CharAscii >= 32 AndAlso CharAscii <= 95 Then + Return CodeSetAllowed.CodeAorB + Else + Return If((CharAscii < 32), CodeSetAllowed.CodeA, CodeSetAllowed.CodeB) + End If + End Function + + Public Shared Function CharCompatibleWithCodeset(ByVal CharAscii As Integer, ByVal currcs As CodeSet) As Boolean + Dim csa As CodeSetAllowed = CodesetAllowedForChar(CharAscii) + Return csa = CodeSetAllowed.CodeAorB OrElse (csa = CodeSetAllowed.CodeA AndAlso currcs = CodeSet.CodeA) OrElse (csa = CodeSetAllowed.CodeB AndAlso currcs = CodeSet.CodeB) + End Function + + Public Shared Function CodeValueForChar(ByVal CharAscii As Integer) As Integer + Return If((CharAscii >= 32), CharAscii - 32, CharAscii + 64) + End Function + + Public Shared Function StartCodeForCodeSet(ByVal cs As CodeSet) As Integer + Return If(cs = CodeSet.CodeA, cSTARTA, cSTARTB) + End Function + + Public Shared Function StopCode() As Integer + Return cSTOP + End Function + +End Class + +#End Region \ No newline at end of file diff --git a/VERAG_PROG_ALLGEMEIN/Barcode/Code128Rendering.vb b/VERAG_PROG_ALLGEMEIN/Barcode/Code128Rendering.vb new file mode 100644 index 00000000..01649c3d --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/Barcode/Code128Rendering.vb @@ -0,0 +1,180 @@ +Imports System.Drawing +Imports System.Diagnostics + +Public NotInheritable Class Code128Rendering + +#Region "Code patterns" + Private Shared ReadOnly cPatterns As Integer(,) = {{2, 1, 2, 2, 2, 2, _ + 0, 0}, {2, 2, 2, 1, 2, 2, _ + 0, 0}, {2, 2, 2, 2, 2, 1, _ + 0, 0}, {1, 2, 1, 2, 2, 3, _ + 0, 0}, {1, 2, 1, 3, 2, 2, _ + 0, 0}, {1, 3, 1, 2, 2, 2, _ + 0, 0}, _ + {1, 2, 2, 2, 1, 3, _ + 0, 0}, {1, 2, 2, 3, 1, 2, _ + 0, 0}, {1, 3, 2, 2, 1, 2, _ + 0, 0}, {2, 2, 1, 2, 1, 3, _ + 0, 0}, {2, 2, 1, 3, 1, 2, _ + 0, 0}, {2, 3, 1, 2, 1, 2, _ + 0, 0}, _ + {1, 1, 2, 2, 3, 2, _ + 0, 0}, {1, 2, 2, 1, 3, 2, _ + 0, 0}, {1, 2, 2, 2, 3, 1, _ + 0, 0}, {1, 1, 3, 2, 2, 2, _ + 0, 0}, {1, 2, 3, 1, 2, 2, _ + 0, 0}, {1, 2, 3, 2, 2, 1, _ + 0, 0}, _ + {2, 2, 3, 2, 1, 1, _ + 0, 0}, {2, 2, 1, 1, 3, 2, _ + 0, 0}, {2, 2, 1, 2, 3, 1, _ + 0, 0}, {2, 1, 3, 2, 1, 2, _ + 0, 0}, {2, 2, 3, 1, 1, 2, _ + 0, 0}, {3, 1, 2, 1, 3, 1, _ + 0, 0}, _ + {3, 1, 1, 2, 2, 2, _ + 0, 0}, {3, 2, 1, 1, 2, 2, _ + 0, 0}, {3, 2, 1, 2, 2, 1, _ + 0, 0}, {3, 1, 2, 2, 1, 2, _ + 0, 0}, {3, 2, 2, 1, 1, 2, _ + 0, 0}, {3, 2, 2, 2, 1, 1, _ + 0, 0}, _ + {2, 1, 2, 1, 2, 3, _ + 0, 0}, {2, 1, 2, 3, 2, 1, _ + 0, 0}, {2, 3, 2, 1, 2, 1, _ + 0, 0}, {1, 1, 1, 3, 2, 3, _ + 0, 0}, {1, 3, 1, 1, 2, 3, _ + 0, 0}, {1, 3, 1, 3, 2, 1, _ + 0, 0}, _ + {1, 1, 2, 3, 1, 3, _ + 0, 0}, {1, 3, 2, 1, 1, 3, _ + 0, 0}, {1, 3, 2, 3, 1, 1, _ + 0, 0}, {2, 1, 1, 3, 1, 3, _ + 0, 0}, {2, 3, 1, 1, 1, 3, _ + 0, 0}, {2, 3, 1, 3, 1, 1, _ + 0, 0}, _ + {1, 1, 2, 1, 3, 3, _ + 0, 0}, {1, 1, 2, 3, 3, 1, _ + 0, 0}, {1, 3, 2, 1, 3, 1, _ + 0, 0}, {1, 1, 3, 1, 2, 3, _ + 0, 0}, {1, 1, 3, 3, 2, 1, _ + 0, 0}, {1, 3, 3, 1, 2, 1, _ + 0, 0}, _ + {3, 1, 3, 1, 2, 1, _ + 0, 0}, {2, 1, 1, 3, 3, 1, _ + 0, 0}, {2, 3, 1, 1, 3, 1, _ + 0, 0}, {2, 1, 3, 1, 1, 3, _ + 0, 0}, {2, 1, 3, 3, 1, 1, _ + 0, 0}, {2, 1, 3, 1, 3, 1, _ + 0, 0}, _ + {3, 1, 1, 1, 2, 3, _ + 0, 0}, {3, 1, 1, 3, 2, 1, _ + 0, 0}, {3, 3, 1, 1, 2, 1, _ + 0, 0}, {3, 1, 2, 1, 1, 3, _ + 0, 0}, {3, 1, 2, 3, 1, 1, _ + 0, 0}, {3, 3, 2, 1, 1, 1, _ + 0, 0}, _ + {3, 1, 4, 1, 1, 1, _ + 0, 0}, {2, 2, 1, 4, 1, 1, _ + 0, 0}, {4, 3, 1, 1, 1, 1, _ + 0, 0}, {1, 1, 1, 2, 2, 4, _ + 0, 0}, {1, 1, 1, 4, 2, 2, _ + 0, 0}, {1, 2, 1, 1, 2, 4, _ + 0, 0}, _ + {1, 2, 1, 4, 2, 1, _ + 0, 0}, {1, 4, 1, 1, 2, 2, _ + 0, 0}, {1, 4, 1, 2, 2, 1, _ + 0, 0}, {1, 1, 2, 2, 1, 4, _ + 0, 0}, {1, 1, 2, 4, 1, 2, _ + 0, 0}, {1, 2, 2, 1, 1, 4, _ + 0, 0}, _ + {1, 2, 2, 4, 1, 1, _ + 0, 0}, {1, 4, 2, 1, 1, 2, _ + 0, 0}, {1, 4, 2, 2, 1, 1, _ + 0, 0}, {2, 4, 1, 2, 1, 1, _ + 0, 0}, {2, 2, 1, 1, 1, 4, _ + 0, 0}, {4, 1, 3, 1, 1, 1, _ + 0, 0}, _ + {2, 4, 1, 1, 1, 2, _ + 0, 0}, {1, 3, 4, 1, 1, 1, _ + 0, 0}, {1, 1, 1, 2, 4, 2, _ + 0, 0}, {1, 2, 1, 1, 4, 2, _ + 0, 0}, {1, 2, 1, 2, 4, 1, _ + 0, 0}, {1, 1, 4, 2, 1, 2, _ + 0, 0}, _ + {1, 2, 4, 1, 1, 2, _ + 0, 0}, {1, 2, 4, 2, 1, 1, _ + 0, 0}, {4, 1, 1, 2, 1, 2, _ + 0, 0}, {4, 2, 1, 1, 1, 2, _ + 0, 0}, {4, 2, 1, 2, 1, 1, _ + 0, 0}, {2, 1, 2, 1, 4, 1, _ + 0, 0}, _ + {2, 1, 4, 1, 2, 1, _ + 0, 0}, {4, 1, 2, 1, 2, 1, _ + 0, 0}, {1, 1, 1, 1, 4, 3, _ + 0, 0}, {1, 1, 1, 3, 4, 1, _ + 0, 0}, {1, 3, 1, 1, 4, 1, _ + 0, 0}, {1, 1, 4, 1, 1, 3, _ + 0, 0}, _ + {1, 1, 4, 3, 1, 1, _ + 0, 0}, {4, 1, 1, 1, 1, 3, _ + 0, 0}, {4, 1, 1, 3, 1, 1, _ + 0, 0}, {1, 1, 3, 1, 4, 1, _ + 0, 0}, {1, 1, 4, 1, 3, 1, _ + 0, 0}, {3, 1, 1, 1, 4, 1, _ + 0, 0}, _ + {4, 1, 1, 1, 3, 1, _ + 0, 0}, {2, 1, 1, 4, 1, 2, _ + 0, 0}, {2, 1, 1, 2, 1, 4, _ + 0, 0}, {2, 1, 1, 2, 3, 2, _ + 0, 0}, {2, 3, 3, 1, 1, 1, _ + 2, 0}} + +#End Region + + Private Const cQuietWidth As Integer = 10 + + Public Shared Function MakeBarcodeImage(ByVal InputData As String, ByVal BarWeight As Double, ByVal AddQuietZone As Boolean, Optional heightOpt As Object = Nothing) As Image + + Dim content As New Code128Content(InputData) + Dim codes As Integer() = content.Codes + Dim width As Integer, height As Integer + width = ((codes.Length - 3) * 11 + 35) * BarWeight + If heightOpt IsNot Nothing Then + height = CInt(heightOpt) + Else + height = Convert.ToInt32(System.Math.Ceiling(Convert.ToSingle(width) * 0.15F)) + End If + + If AddQuietZone Then + width += 2 * cQuietWidth * BarWeight + End If + + Dim myimg As Image = New System.Drawing.Bitmap(width, height) + Using gr As Graphics = Graphics.FromImage(myimg) + + gr.FillRectangle(System.Drawing.Brushes.White, 0, 0, width, height) + + Dim cursor As Integer = If(AddQuietZone, cQuietWidth * BarWeight, 0) + + For codeidx As Integer = 0 To codes.Length - 1 + Dim code As Integer = codes(codeidx) + + For bar As Integer = 0 To 7 Step 2 + Dim barwidth As Integer = cPatterns(code, bar) * BarWeight + Dim spcwidth As Integer = cPatterns(code, bar + 1) * BarWeight + + If barwidth > 0 Then + gr.FillRectangle(System.Drawing.Brushes.Black, cursor, 0, barwidth, height) + End If + + cursor += (barwidth + spcwidth) + Next + Next + End Using + + Return myimg + + End Function + +End Class \ No newline at end of file diff --git a/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/KdSearchBox.vb b/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/KdSearchBox.vb index 0a95ed57..8ff7da10 100644 --- a/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/KdSearchBox.vb +++ b/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/KdSearchBox.vb @@ -272,10 +272,11 @@ Public Class KdSearchBox SQLstr &= " AND ( Ordnungsbegriff LIKE '" & srch & "%' OR AdressenNr LIKE '" & srch & "%' ) " If srch2 <> "" Then SQLstr &= " AND ( PLZ LIKE '" & srch2 & "%' OR Ort LIKE '" & srch2 & "%' OR LandKz LIKE '" & srch2 & "%' OR Straße LIKE '" & srch2 & "%' ) " SQLstr &= " AND [Auswahl]='A' " - If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Then - SQLstr &= " AND [FilialenNr]='5501' " + If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA <> "VERAG" Then + SQLstr &= " AND [FilialenNr]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE & "' " Else - SQLstr &= " AND isnull([FilialenNr],0)<>'5501' " + 'SQLstr &= " AND isnull([FilialenNr],0)<>'5501' " + SQLstr &= " AND isnull([FilialenNr],0) NOT IN ('5501','5601','5701','5801') " End If If Not _displayWoelflKd Then SQLstr &= " AND AdressenNr NOT LIKE '15%'" SQLstr &= " order by Ordnungsbegriff " @@ -313,10 +314,11 @@ Public Class KdSearchBox SQLstr &= " AND ( Ordnungsbegriff LIKE '" & srch & "%' OR AdressenNr LIKE '" & srch & "%' ) " If srch2 <> "" Then SQLstr &= " AND ( PLZ LIKE '" & srch2 & "%' OR Ort LIKE '" & srch2 & "%' OR LandKz LIKE '" & srch2 & "%' OR Straße LIKE '" & srch2 & "%' ) " SQLstr &= " AND [Auswahl]='I' " - If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Then - SQLstr &= " AND [FilialenNr]='5501' " + If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA <> "VERAG" Then + SQLstr &= " AND [FilialenNr]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE & "' " Else - SQLstr &= " AND isnull([FilialenNr],0)<>'5501' " + 'SQLstr &= " AND isnull([FilialenNr],0)<>'5501' " + SQLstr &= " AND isnull([FilialenNr],0) NOT IN ('5501','5601','5701','5801') " End If If Not _displayWoelflKd Then SQLstr &= " AND AdressenNr NOT LIKE '15%'" SQLstr &= " order by Ordnungsbegriff " diff --git a/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MySearchBox.vb b/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MySearchBox.vb index 8ac8abdb..8ed350bc 100644 --- a/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MySearchBox.vb +++ b/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MySearchBox.vb @@ -272,26 +272,32 @@ Public Class MySearchBox Public Sub SET_VALUE(KEYPARAM_Value, Optional showerror = True) - If Not active Then Exit Sub + Try + + If Not active Then Exit Sub If KEYPARAM_Value Is Nothing Then KEYPARAM_Value = "" Dim SQLstr As String = "SELECT TOP 1 " & SQL_SELECT & " WHERE 1=1 " SQLstr &= " AND " & KEYPARAM & " = '" & KEYPARAM_Value & "' " SQLstr &= If(SQL_WHERE <> "", " AND " & SQL_WHERE, "") If SQL_ORDER_BY <> "" Then SQLstr &= " ORDER BY " & SQL_ORDER_BY - ' MsgBox(SQLstr) - Dim dttmp As DataTable = SQL.loadDgvBySql(SQLstr, conn_art, , showerror) - If dttmp IsNot Nothing AndAlso dttmp.Rows.Count > 0 Then - setMeValue(dttmp.Rows(0)) - Else - If _allowFreitext Then - Me.Text = KEYPARAM_Value - Me._value = KEYPARAM_Value + ' MsgBox(SQLstr) + Dim dttmp As DataTable = SQL.loadDgvBySql(SQLstr, conn_art, , showerror) + If dttmp IsNot Nothing AndAlso dttmp.Rows.Count > 0 Then + setMeValue(dttmp.Rows(0)) Else - Me.Text = "" - Me._value = "" + If _allowFreitext Then + Me.Text = KEYPARAM_Value + Me._value = KEYPARAM_Value + Else + Me.Text = "" + Me._value = "" + End If + hideDgv(usrcntl) End If - hideDgv(usrcntl) - End If + + Catch ex As Exception + MsgBox("Es ist ein Fehler beim Such-Feld (" & Me.Name & ") aufgetreten 03: " & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & System.Reflection.MethodInfo.GetCurrentMethod.Name & vbNewLine & ex.StackTrace) + End Try End Sub diff --git a/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/frmPDFScanList.Designer.vb b/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/frmPDFScanList.Designer.vb index 96492877..af42ae13 100644 --- a/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/frmPDFScanList.Designer.vb +++ b/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/frmPDFScanList.Designer.vb @@ -22,9 +22,8 @@ Partial Class frmPDFScanList 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. _ Private Sub InitializeComponent() - Me.components = New System.ComponentModel.Container() Me.FlowLayoutPanel = New System.Windows.Forms.FlowLayoutPanel() - Me.cntxtMulti = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.cntxtMulti = New System.Windows.Forms.ContextMenuStrip() Me.DateiScannenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.DateiHochladenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator() diff --git a/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/frmPDFScanList.vb b/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/frmPDFScanList.vb index 2494a885..081a9df5 100644 --- a/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/frmPDFScanList.vb +++ b/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/frmPDFScanList.vb @@ -60,4 +60,5 @@ Public Class frmPDFScanList If Me IsNot Form.ActiveForm Then Me.Close() End Sub + End Class \ No newline at end of file diff --git a/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrCntLPDFScanSimple.vb b/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrCntLPDFScanSimple.vb index 89237052..a3909f9f 100644 --- a/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrCntLPDFScanSimple.vb +++ b/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrCntLPDFScanSimple.vb @@ -32,7 +32,8 @@ Public Class usrCntLPDFScanSimple Private Sub txt_Click(sender As Object, e As EventArgs) Handles txt.Click, Me.Click, picPDF.Click If File.Exists(pdf_Path) Then - Process.Start(pdf_Path) + ' Process.Start(pdf_Path) + Process.Start(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.copyToTmp_KeepFilename(pdf_Path, bezeichnung)) RaiseEvent CLICKED() End If End Sub diff --git a/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlPDFScan.vb b/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlPDFScan.vb index 8d7d3884..5d003551 100644 --- a/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlPDFScan.vb +++ b/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlPDFScan.vb @@ -143,7 +143,7 @@ Public Class usrcntlPDFScan list.SetDesktopLocation(Windows.Forms.Cursor.Position.X, Windows.Forms.Cursor.Position.Y) Else 'Process.Start(DS.DATA_LIST.LIST(0).coll_pfad) - DS.OPEN_SINGLE() + DS.OPEN_SINGLE(, True) End If End If @@ -248,7 +248,7 @@ Public Class usrcntlPDFScan For Each ii In DS.DATA_LIST.LIST If ii.coll_id = coll_id Then 'Zwischenablage - Dim f() As String = {ii.coll_pfad} + Dim f() As String = {VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.copyToTmp_KeepFilename(ii.coll_pfad, ii.coll_bezeichnung)} Dim d As New DataObject(DataFormats.FileDrop, f) Clipboard.SetDataObject(d, True) Exit Sub @@ -266,7 +266,7 @@ Public Class usrcntlPDFScan Dim outl As New Outlook.Application Dim Mail As Microsoft.Office.Interop.Outlook.MailItem Mail = outl.CreateItem(0) - Mail.Attachments.Add(ii.coll_pfad, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue,, ii.coll_bezeichnung & ".pdf") + Mail.Attachments.Add(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.copyToTmp_KeepFilename(ii.coll_pfad, ii.coll_bezeichnung), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue,, ii.coll_bezeichnung & ".pdf") Mail.Display() Catch ex As Exception MsgBox("Fehler beim Öffnen der Mail!") @@ -382,7 +382,7 @@ Public Class usrcntlPDFScan Private Sub KopierenZwischenablageToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles KopierenZwischenablageToolStripMenuItem.Click Try If DS.DATA_LIST.LIST.Count > 0 Then - Dim f() As String = {DS.DATA_LIST.LIST(0).coll_pfad} + Dim f() As String = {VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.copyToTmp_KeepFilename(DS.DATA_LIST.LIST(0).coll_pfad, DS.DATA_LIST.LIST(0).coll_bezeichnung)} Dim d As New DataObject(DataFormats.FileDrop, f) Clipboard.SetDataObject(d, True) End If @@ -397,7 +397,7 @@ Public Class usrcntlPDFScan Dim outl As New Outlook.Application Dim Mail As Microsoft.Office.Interop.Outlook.MailItem Mail = outl.CreateItem(0) - Mail.Attachments.Add(DS.DATA_LIST.LIST(0).coll_pfad, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue) + Mail.Attachments.Add(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.copyToTmp_KeepFilename(DS.DATA_LIST.LIST(0).coll_pfad, DS.DATA_LIST.LIST(0).coll_bezeichnung), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue) Mail.Display() End If Catch ex As Exception diff --git a/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlPDFScanList.vb b/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlPDFScanList.vb index 1249860e..bd671a55 100644 --- a/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlPDFScanList.vb +++ b/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlPDFScanList.vb @@ -191,7 +191,11 @@ Public Class usrcntlPDFScanList Private Sub MyListBox1_DoubleClick(sender As Object, e As EventArgs) Handles MyListBox1.DoubleClick Try - DS.OPEN(DirectCast(MyListBox1.SelectedItem, VERAG_PROG_ALLGEMEIN.MyListItem).Value) + + DS.OPEN(DirectCast(MyListBox1.SelectedItem, VERAG_PROG_ALLGEMEIN.MyListItem).Value,, True) + + ' VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.copyToTmp_KeepFilename(ii.coll_pfad, ii.coll_bezeichnung) + Catch ex As Exception MsgBox("Fehler beim Öffnen!") End Try @@ -245,6 +249,7 @@ Public Class usrcntlPDFScanList Private Sub KopierenZwischenablageToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles KopierenZwischenablageToolStripMenuItem.Click Try + VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.clearTMPPath("ClipBoard_TMP") Dim f(MyListBox1.SelectedItems.Count - 1) As String Dim cnt = 0 If MyListBox1.SelectedItems.Count >= 1 Then @@ -254,7 +259,7 @@ Public Class usrcntlPDFScanList If ii.coll_id = item.Value Then 'Dim f() As String = {ii.coll_pfad} If ii.coll_pfad <> "" Then - f(cnt) = ii.coll_pfad + f(cnt) = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.copyToTmp_KeepFilename(ii.coll_pfad, ii.coll_bezeichnung) cnt += 1 'Exit For End If @@ -272,8 +277,10 @@ Public Class usrcntlPDFScanList End Try End Sub + Private Sub AlsEmailSendenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AlsEmailSendenToolStripMenuItem.Click Try + VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.clearTMPPath("ClipBoard_TMP") If MyListBox1.SelectedItems.Count >= 1 Then Try Dim outl As New Outlook.Application @@ -285,7 +292,7 @@ Public Class usrcntlPDFScanList For Each ii In DS.DATA_LIST.LIST If ii.coll_id = item.Value Then If ii.coll_pfad <> "" Then - Mail.Attachments.Add(ii.coll_pfad, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue) + Mail.Attachments.Add(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.copyToTmp_KeepFilename(ii.coll_pfad, ii.coll_bezeichnung), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue) End If End If Next @@ -301,6 +308,8 @@ Public Class usrcntlPDFScanList End Try End Sub + + Private Sub Form1_DragEnter(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Me.DragEnter ', txt.DragEnter, Me.DragEnter, picPDF.DragEnter e.Effect = DragDropEffects.All End Sub diff --git a/VERAG_PROG_ALLGEMEIN/Classes/SQL.vb b/VERAG_PROG_ALLGEMEIN/Classes/SQL.vb index c731929c..a61a1547 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/SQL.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/SQL.vb @@ -251,6 +251,15 @@ Public Class SQL End Function + Function IsNull(o) As Boolean + Try + If o Is Nothing Then Return True + If o Is DBNull.Value Then Return True + If o.ToString.Trim = "" Then Return True + Catch : End Try + Return False + End Function + Function isleernothingDateFormatstring(o) As Object If o Is Nothing Then Return o If o.ToString = "" Then Return Nothing @@ -788,6 +797,30 @@ Public Class SQL Return "" End Function + + + + Public Shared Function isDbnullEmpty(o As Object, return_value As Object) As String + If IsDBNull(o) Then : isDbnullEmpty = return_value + ElseIf IsNothing(o) Then : isDbnullEmpty = return_value + Else : isDbnullEmpty = o.ToString + End If + End Function + Public Shared Function isDbnullEmptyCurr(o As Object, return_value As Object) As String + If IsDBNull(o) Then : isDbnullEmptyCurr = return_value + ElseIf IsNothing(o) Then : isDbnullEmptyCurr = return_value + Else : isDbnullEmptyCurr = CDbl(o).ToString("C") + End If + End Function + Public Shared Function isDbnullEmptyDbl(o As Object, kommastellen As Integer, return_value As Object) As String + If IsDBNull(o) Then : isDbnullEmptyDbl = return_value + ElseIf IsNothing(o) Then : isDbnullEmptyDbl = return_value + Else : isDbnullEmptyDbl = CDbl(o).ToString("N" & If(kommastellen > 0, kommastellen, "")) + End If + End Function + + + Public Shared Function VarToBool(ByVal wert As Object) As Boolean Try If wert Is Nothing OrElse wert Is DBNull.Value Then diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cAdressen.vb b/VERAG_PROG_ALLGEMEIN/Classes/cAdressen.vb index fab4d4bc..819080f1 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cAdressen.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cAdressen.vb @@ -43,7 +43,9 @@ Public Class cAdressen Property UTAExportCSV As Object = Nothing 'Property SSMA_TimeStamp As Object = Nothing Property MWSTVorauszahlung As Object = Nothing - + Property PLOSEKundenNr As Object = Nothing + + Public hasEntry = False Shared SQL As New SQL @@ -124,6 +126,7 @@ Public Class cAdressen list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UTAExportCSV", UTAExportCSV)) ' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SSMA_TimeStamp", SSMA_TimeStamp)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("MWSTVorauszahlung", MWSTVorauszahlung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("PLOSEKundenNr", PLOSEKundenNr)) Return list End Function diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cAvisoAnhaenge.vb b/VERAG_PROG_ALLGEMEIN/Classes/cAvisoAnhaenge.vb index 27e69a66..42471a03 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cAvisoAnhaenge.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cAvisoAnhaenge.vb @@ -18,10 +18,10 @@ Public Class cAvisoAnhaenge End Sub Sub New(anh_id) - If anh_id IsNot Nothing Then - Me.anh_id = anh_id + ' If anh_id IsNot Nothing Then + Me.anh_id = anh_id LOAD() - End If + ' End If End Sub Sub New(anh_AvisoId, anh_Name, anh_docId, anh_Art, anh_Typ, Optional anh_SendungsId = Nothing, Optional anh_Reihenfolge = 99) @@ -32,6 +32,7 @@ Public Class cAvisoAnhaenge Me.anh_Art = anh_Art Me.anh_Typ = anh_Typ Me.anh_Reihenfolge = anh_Reihenfolge + End Sub diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cDEBundeslaenderPLZ.vb b/VERAG_PROG_ALLGEMEIN/Classes/cDEBundeslaenderPLZ.vb new file mode 100644 index 00000000..fe37de5e --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/Classes/cDEBundeslaenderPLZ.vb @@ -0,0 +1,175 @@ +Imports System.Data.SqlClient +Imports System.Reflection + +Public Class cDEBundeslaenderPLZ + + Property PLZ As Integer + Property Bundesland As String = "" + Property Kreis As String = "" + Property Typ As String = "" + Property Code As String = "" + + Dim SQL As New SQL + + Sub New() + End Sub + + Sub New(PLZ) + Me.PLZ = PLZ + LOADByPLZ(PLZ) + 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("PLZ", PLZ)) ' INT NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bundesland", Bundesland)) ' INT NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Kreis", Kreis)) ' INT NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Typ", Typ)) ' INT NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Code", Code)) ' VARCHAR(200) Not NULL, + Return list + End Function + + + + Public Shared Function LOADByPLZ(PLZ As Integer) As cDEBundeslaenderPLZ + Try + Dim VK As New cDEBundeslaenderPLZ + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblDEBundeslaenderPLZ WHERE PLZ=@PLZ ", conn) + cmd.Parameters.AddWithValue("@PLZ", PLZ) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In VK.getParameterList() + Dim propInfo As PropertyInfo = VK.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(VK, Nothing) + Else + propInfo.SetValue(VK, dr.Item(l.Text)) + End If + Next + dr.Close() + Return VK + 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 + Return Nothing + End Function + + + + Public Shared Function LOADBundeslandCode_ByPLZ(PLZ As Integer) As String + Try + Dim VK As New cDEBundeslaenderPLZ + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT Code FROM tblDEBundeslaenderPLZ WHERE PLZ=@PLZ ", conn) + cmd.Parameters.AddWithValue("@PLZ", PLZ) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + Return dr.Item("Code") + 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 + Return "" + End Function + + 'Public Function SAVE() As Boolean + ' Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + ' Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblDEBundeslaenderPLZ WITH(updlock,serializable) WHERE post_id=@post_id) " & + ' " BEGIN " & getUpdateCmd() & " END " & + ' " Else " & + ' " BEGIN " & getInsertCmd() & " END " & + ' " commit tran " + + ' post_id = SQL.doSQLVarListID(post_id, sqlstr, "FMZOLL", , list) + ' Return post_id > 0 + 'End Function + + + + 'Public Sub LOAD() + ' Try + ' Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + ' Using cmd As New SqlCommand("SELECT * FROM tblDEBundeslaenderPLZ WHERE post_id=@post_id ", conn) + ' cmd.Parameters.AddWithValue("@post_id", post_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 + + ' 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 [tblDEBundeslaenderPLZ] SET " & str & " WHERE post_id=@post_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 tblDEBundeslaenderPLZ (" & 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 [tblDEBundeslaenderPLZ] WITH(updlock,serializable) WHERE post_id=" & Me.post_id + ' Return SQL.doSQL(sqlstr, "FMZOLL") + 'End Function + + +End Class diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb b/VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb index 40e3e491..2b4ce35c 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb @@ -44,7 +44,11 @@ Public Class cKundenErweitert Property EmailFreigabe_Export As Boolean = False Property kde_BonitaetsStufe As Object = Nothing - + Property kde_Inkasso_Uebergeben As Boolean = False + Property kde_Inkasso_UebergebenAm As Object = Nothing + Property kde_Inkasso_GemeldeterBetrag As Object = Nothing + Property AutoFakturierung As Boolean = False + Property Anmerkungen_Warnhinweis As Object = Nothing Dim SQL As New SQL @@ -90,6 +94,11 @@ Public Class cKundenErweitert 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)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_Inkasso_Uebergeben", kde_Inkasso_Uebergeben)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_Inkasso_UebergebenAm", kde_Inkasso_UebergebenAm)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_Inkasso_GemeldeterBetrag", kde_Inkasso_GemeldeterBetrag)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AutoFakturierung", AutoFakturierung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Anmerkungen_Warnhinweis", Anmerkungen_Warnhinweis)) Return list End Function diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cKundenKontakte.vb b/VERAG_PROG_ALLGEMEIN/Classes/cKundenKontakte.vb index ce20d035..e3782a06 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cKundenKontakte.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cKundenKontakte.vb @@ -205,6 +205,11 @@ Public Class cKundenKontakte Return SQL.doSQL(sqlstr, "FMZOLL") End Function + Public Shared Function DELETE_ALL_KONTAKTE(kkd_KundenNr, Optional kkd_kkaId = -1) As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + Dim sqlstr = " DELETE FROM [tblKundenKontakt] WITH(updlock,serializable) WHERE kkd_KundenNr=" & kkd_KundenNr & If(kkd_kkaId > 0, " AND kkd_kkaId='" & kkd_kkaId & "'", "") + Return SQL.doSQL(sqlstr, "FMZOLL") + End Function Public Function getInsertCmd() As String Try diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cParameter.vb b/VERAG_PROG_ALLGEMEIN/Classes/cParameter.vb index 8aeb9bd9..f59f5ba2 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cParameter.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cParameter.vb @@ -36,7 +36,7 @@ Public Class cParameterList Try LIST.Clear() Using conn As SqlConnection = SQL.GetNewOpenConnectionADMIN - Using cmd As New SqlCommand("SELECT * FROM [tblParameter] WHERE progId=@ProgId " & If(firma IsNot Nothing, " AND firma=@firma", ""), conn) + Using cmd As New SqlCommand("SELECT * FROM [tblParameter] WHERE progId IN (0,@ProgId) " & If(firma IsNot Nothing, " AND firma=@firma", ""), conn) cmd.Parameters.AddWithValue("@ProgId", ProgId) cmd.Parameters.AddWithValue("@firma", firma) ' cmd.Parameters.AddWithValue("@OffertenNr", OffertenNr) diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cPostversand.vb b/VERAG_PROG_ALLGEMEIN/Classes/cPostversand.vb new file mode 100644 index 00000000..942d0386 --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/Classes/cPostversand.vb @@ -0,0 +1,203 @@ +Imports System.Data.SqlClient +Imports System.Reflection + + +Public Class cPostversand + + + Property post_id As Integer = -1 + Property post_AvisoId As Object = Nothing ' INT NULL, + Property post_SendungsId As Object = Nothing ' INT NULL, + Property post_FilialenNr As Object = Nothing ' INT NULL, + Property post_AbfertigungsNr As Object = Nothing ' INT NULL, + Property post_art As Object = Nothing ' VARCHAR(200) Not NULL, + Property post_Empfaenger_Name1 As Object = Nothing ' VARCHAR(40) Not NULL, + Property post_Empfaenger_Name2 As Object = Nothing ' VARCHAR(40) NULL, + Property post_Empfaenger_Adresse1 As Object = Nothing ' VARCHAR(40) Not NULL, + Property post_Empfaenger_Adresse2 As Object = Nothing ' VARCHAR(60) Not NULL, + Property post_Empfaenger_Adresse3 As Object = Nothing ' VARCHAR(40) NULL, + Property post_ReferenzPaketdienst As Object = Nothing ' VARCHAR(200) NULL, + Property post_ContainerLKWNr As Object = Nothing ' VARCHAR(200) Not NULL, + Property post_Datum As Object = Nothing ' DATETIME Default (getdate()) Not NULL, + Property post_Sachbearbeiter As Object = Nothing ' VARCHAR(200) Not NULL, + Property post_SachbearbeiterId As Object = Nothing ' INT Not NULL, + Property post_FirmaInAuftragKdnr As Object = Nothing ' INT NULL, + Property post_FirmaInAuftrag As Object = Nothing ' VARCHAR(200) NULL, + Property post_Rolle As Object = Nothing ' VARCHAR(200) NULL, + 'Property post_LKW As Object = Nothing ' VARCHAR(200) NULL, + Property post_Empfaenger_KdNr As Object = Nothing ' VARCHAR(200) NULL, + ' Property post_Rolle As Object = Nothing ' VARCHAR(200) NULL, + + + + Property post_KdAuftrNrAvisierer As Object = Nothing + Property post_RgEmpfaenger_KdNr As Object = Nothing + Property post_RgEmpfaenger_Name As Object = Nothing + + Dim SQL As New SQL + + Sub New() + End Sub + + Sub New(post_id) + Me.post_id = post_id + LOAD() + 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("post_id", post_id, , True, True)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("post_AvisoId", post_AvisoId)) ' INT NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("post_SendungsId", post_SendungsId)) ' INT NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("post_FilialenNr", post_FilialenNr)) ' INT NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("post_AbfertigungsNr", post_AbfertigungsNr)) ' INT NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("post_art", post_art)) ' VARCHAR(200) Not NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("post_Empfaenger_Name1", post_Empfaenger_Name1)) ' VARCHAR(40) Not NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("post_Empfaenger_Name2", post_Empfaenger_Name2)) ' VARCHAR(40) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("post_Empfaenger_Adresse1", post_Empfaenger_Adresse1)) 'VARCHAR(40) Not NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("post_Empfaenger_Adresse2", post_Empfaenger_Adresse2)) 'VARCHAR(60) Not NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("post_Empfaenger_Adresse3", post_Empfaenger_Adresse3)) ' VARCHAR(40) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("post_ReferenzPaketdienst", post_ReferenzPaketdienst)) ' VARCHAR(200) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("post_ContainerLKWNr", post_ContainerLKWNr)) '# VARCHAR(200) Not NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("post_Datum", post_Datum)) ' DATETIME Default (getdate()) Not NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("post_Sachbearbeiter", post_Sachbearbeiter)) ' VARCHAR(200) Not NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("post_SachbearbeiterId", post_SachbearbeiterId)) ' INT Not NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("post_FirmaInAuftragKdnr", post_FirmaInAuftragKdnr)) ' INT NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("post_FirmaInAuftrag", post_FirmaInAuftrag)) ' VARCHAR(200) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("post_Rolle", post_Rolle)) ' VARCHAR(200) NULL, + ' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("post_LKW", post_LKW)) ' VARCHAR(200) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("post_Empfaenger_KdNr", post_Empfaenger_KdNr)) ' VARCHAR(200) NULL, + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("post_KdAuftrNrAvisierer", post_KdAuftrNrAvisierer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("post_RgEmpfaenger_KdNr", post_RgEmpfaenger_KdNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("post_RgEmpfaenger_Name", post_RgEmpfaenger_Name)) + + Return list + End Function + + + + Public Shared Function LOADByFilialeAbfNr(FilialeNr As Integer, AbfertigungsNr As Integer, Optional post_Rolle As String = "") As cPostversand + Try + Dim VK As New cPostversand + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblPostversand WHERE post_AbfertigungsNr=@post_AbfertigungsNr AND post_FilialenNr=@post_FilialenNr " & If(If(post_Rolle, "") <> "", "AND post_Rolle=@post_Rolle ", ""), conn) + cmd.Parameters.AddWithValue("@post_FilialenNr", FilialeNr) + cmd.Parameters.AddWithValue("@post_AbfertigungsNr", AbfertigungsNr) + cmd.Parameters.AddWithValue("@post_Rolle", post_Rolle) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In VK.getParameterList() + Dim propInfo As PropertyInfo = VK.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(VK, Nothing) + Else + propInfo.SetValue(VK, dr.Item(l.Text)) + End If + Next + dr.Close() + Return VK + 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 + Return Nothing + End Function + + + Public Function SAVE() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblPostversand WITH(updlock,serializable) WHERE post_id=@post_id) " & + " BEGIN " & getUpdateCmd() & " END " & + " Else " & + " BEGIN " & getInsertCmd() & " END " & + " commit tran " + + post_id = SQL.doSQLVarListID(post_id, sqlstr, "FMZOLL", , list) + Return post_id > 0 + End Function + + + + Public Sub LOAD() + Try + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblPostversand WHERE post_id=@post_id ", conn) + cmd.Parameters.AddWithValue("@post_id", post_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 + + 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 [tblPostversand] SET " & str & " WHERE post_id=@post_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 tblPostversand (" & 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 [tblPostversand] WITH(updlock,serializable) WHERE post_id=" & Me.post_id + Return SQL.doSQL(sqlstr, "FMZOLL") + End Function + + +End Class diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cProgrammeUpdate.vb b/VERAG_PROG_ALLGEMEIN/Classes/cProgrammeUpdate.vb new file mode 100644 index 00000000..b973762b --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/Classes/cProgrammeUpdate.vb @@ -0,0 +1,251 @@ + +Imports System.Data.SqlClient +Imports System.Reflection + +Public Class cProgrammeUpdate + Property pud_progId As Object = Nothing + Property pud_codename As String + Property pud_version As String + Property pud_fileName As String + Property pud_filePathFolder As Object = Nothing + Property pud_datum As Date = Now + + Property pud_file_Verion As String + Property pud_file_Date As Date + Property pud_file_Size As Integer + + Dim SQL As New SQL + + + Shared Function getParameterList(UD As cProgrammeUpdate) As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pud_progId", UD.pud_progId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pud_codename", UD.pud_codename)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pud_version", UD.pud_version)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pud_fileName", UD.pud_fileName)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pud_filePathFolder", UD.pud_filePathFolder)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pud_datum", UD.pud_datum)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pud_file_Verion", UD.pud_file_Verion)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pud_file_Date", UD.pud_file_Date)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pud_file_Size", UD.pud_file_Size)) + Return list + End Function + + + + Public Function SAVE() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList(Me) + Return SQL.doSQLVarList(getInsertCmd, "ADMIN", , list) + End Function + + Public Shared Function LOAD_AKT_LIST(pud_progId) As List(Of cProgrammeUpdate) + Dim LIST As New List(Of cProgrammeUpdate) + Try + Using conn As SqlConnection = SQL.GetNewOpenConnectionADMIN() + Using cmd As New SqlCommand("SELECT * FROM tblProgrammeUpdate WHERE pud_progId=@pud_progId AND pud_version=(SELECT TOP (1) pud_version FROM tblProgrammeUpdate WHERE pud_progId=@pud_progId order by pud_version DESC) ", conn) + cmd.Parameters.AddWithValue("@pud_progId", pud_progId) + Dim dr = cmd.ExecuteReader() + While dr.Read + Dim UD As New cProgrammeUpdate + For Each l In cProgrammeUpdate.getParameterList(UD) + Dim propInfo As PropertyInfo = UD.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(UD, Nothing) + Else + propInfo.SetValue(UD, dr.Item(l.Text)) + End If + + Next + LIST.Add(UD) + End While + 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 + Return LIST + End Function + + Public Shared Function SAVE_LIST(pud_progId As Integer, pud_version As String, pud_codename As String, LIST As List(Of cProgrammeUpdate)) As Boolean + Dim SQL As New SQL + SQL.doSQL("DELETE FROM tblProgrammeUpdate WHERE pud_version='" & pud_version & "'", "ADMIN") + SAVE_LIST = True + For Each UD In LIST + UD.pud_progId = pud_progId + UD.pud_version = pud_version + UD.pud_codename = pud_codename + If Not UD.SAVE() Then SAVE_LIST = False + Next + End Function + + + Public Function getUpdateCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList(Me) + + 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 [tblProgrammeUpdate] SET " & str & " WHERE gb_nr=@gb_nr ") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + Public Function getInsertCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList(Me) + 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 tblProgrammeUpdate (" & 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 Shared Function isNewFile(ByRef file As VERAG_PROG_ALLGEMEIN.cProgrammeUpdate, LIST_DEST As List(Of VERAG_PROG_ALLGEMEIN.cProgrammeUpdate)) As Boolean + For Each l In LIST_DEST + If l.pud_filePathFolder = file.pud_filePathFolder And l.pud_fileName = file.pud_fileName And l.pud_file_Size = file.pud_file_Size And l.pud_file_Date = file.pud_file_Date Then + Return False + End If + Next + Return True + End Function + + Public Shared Function isOldFile(ByRef file As VERAG_PROG_ALLGEMEIN.cProgrammeUpdate, LIST_SOURCE As List(Of VERAG_PROG_ALLGEMEIN.cProgrammeUpdate)) As Boolean + For Each l In LIST_SOURCE + If l.pud_filePathFolder = file.pud_filePathFolder And l.pud_fileName = file.pud_fileName And l.pud_file_Size = file.pud_file_Size And l.pud_file_Date = file.pud_file_Date Then + Return False + End If + Next + Return True + End Function + + + Public Shared Function copyProgramLIST(ByRef sourcePfad As String, ByVal destPfad As String, ignoreFilesBeginWith As String()) As Boolean + Try + + If destPfad.Trim = "" Then Return False + If sourcePfad.Trim = "" Then Return False + + If Not My.Computer.FileSystem.DirectoryExists(sourcePfad) Then + MsgBox("ERROR_COPY_01: Quell-Ordner existiert nicht.", MsgBoxStyle.Critical, "ERROR") : Return False + End If + If Not My.Computer.FileSystem.DirectoryExists(destPfad) Then + MsgBox("ERROR_COPY_02: Ziel-Ordner existiert nicht.", MsgBoxStyle.Critical, "ERROR") : Return False + End If + + Dim LIST_SOURCE As New List(Of VERAG_PROG_ALLGEMEIN.cProgrammeUpdate) + Dim dirNameReplace_SOURCE = "" + Dim DI_SOURCE As New IO.DirectoryInfo(sourcePfad) + RekursivGetFiles(DI_SOURCE, dirNameReplace_SOURCE, LIST_SOURCE, {}) + + Dim LIST_DEST As New List(Of VERAG_PROG_ALLGEMEIN.cProgrammeUpdate) + Dim dirNameReplace_DEST = "" + Dim DI_DEST As New IO.DirectoryInfo(destPfad) + RekursivGetFiles(DI_DEST, dirNameReplace_DEST, LIST_DEST, ignoreFilesBeginWith) + + If LIST_SOURCE.Count = 0 Then + MsgBox("ERROR_COPY_01: Quell-Daten existiert nicht.", MsgBoxStyle.Critical, "ERROR") : Return False + End If + If LIST_DEST.Count = 0 Then + MsgBox("ERROR_COPY_02: Ziel-Daten existiert nicht.", MsgBoxStyle.Critical, "ERROR") : Return False + End If + + 'ORDNER erstellen: + For Each f In LIST_SOURCE + If If(f.pud_filePathFolder, "") <> "" Then + If Not IO.Directory.Exists(dirNameReplace_DEST & "\" & f.pud_filePathFolder.Replace("\\", "\")) Then + IO.Directory.CreateDirectory(dirNameReplace_DEST & "\" & f.pud_filePathFolder.Replace("\\", "\")) + End If + End If + Next + + 'Löschen der unbenötigten Files: + For Each f In LIST_DEST + If isOldFile(f, LIST_SOURCE) Then + IO.File.Delete(dirNameReplace_DEST & "\" & If(f.pud_filePathFolder, "") & "\" & f.pud_fileName.Replace("\\", "\")) + End If + Next + + 'Kopieren/Überschreiben der neuen Files: + For Each f In LIST_SOURCE + If isNewFile(f, LIST_DEST) Then + Dim s_path = dirNameReplace_SOURCE & "\" & If(f.pud_filePathFolder, "") & "\" & f.pud_fileName.Replace("\\", "\") + Dim d_path = dirNameReplace_DEST & "\" & If(f.pud_filePathFolder, "") & "\" & f.pud_fileName.Replace("\\", "\") + IO.File.Copy(s_path, d_path) + End If + Next + + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + Return False + End Try + ' If isNewFile(destPfad) Then Return FileCopier(sourcePfad, destPfad) + Return True + End Function + + Public Shared Function fileStartsWith(fileName As String, ignoreFilesBeginWith As String()) + For Each s In ignoreFilesBeginWith + If fileName.StartsWith(s) Then Return True + Next + Return False + End Function + Public Shared Sub RekursivGetFiles(ByVal oDir As IO.DirectoryInfo, ByRef dirNameReplace As String, ByRef LIST As List(Of VERAG_PROG_ALLGEMEIN.cProgrammeUpdate), ignoreFilesBeginWith As String()) + Dim oSubDir As IO.DirectoryInfo + Dim FI As IO.FileInfo + + ' zunächst alle Dateien des Ordners aufspüren + For Each FI In oDir.GetFiles() + If Not fileStartsWith(FI.Name, ignoreFilesBeginWith) Then 'DATEIEN beginnen mit betimmten Namen, z.B. UPDATER + + + ' Dim FI As New IO.FileInfo(oFile) + If dirNameReplace = "" Then + dirNameReplace = FI.DirectoryName + End If + + Dim UD As New VERAG_PROG_ALLGEMEIN.cProgrammeUpdate + UD.pud_fileName = FI.Name + UD.pud_filePathFolder = FI.DirectoryName.Replace(dirNameReplace, "") + If UD.pud_filePathFolder = "" Then UD.pud_filePathFolder = Nothing + UD.pud_file_Size = FI.Length + UD.pud_file_Date = FI.LastWriteTime + UD.pud_file_Verion = "" 'FI. + LIST.Add(UD) + + End If + 'With oFile + ' ListBox1.Items.Add(.DirectoryName & "\" & .Name & vbTab & + ' .Length & vbTab & .LastWriteTime) + 'End With + Next + + ' Jetzt alle Unterverzeichnis durchlaufen + ' und die Prozedur rekursiv selbst aufrufen + For Each oSubDir In oDir.GetDirectories() + RekursivGetFiles(oSubDir, dirNameReplace, LIST, {}) + Next + End Sub + +End Class + diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsnummern.vb b/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsnummern.vb index c565105c..9d7d1afb 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsnummern.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsnummern.vb @@ -37,6 +37,10 @@ Public Class cRechnungsnummern Case 20 VonRechnungsNr = Now.ToString("yy") & "400001" BisRechnungsNr = Now.ToString("yy") & "499999" + Case 23 'FrontOffice + VonRechnungsNr = Now.ToString("yy") & "500001" + BisRechnungsNr = Now.ToString("yy") & "599999" + End Select LfdRechnungsNr = VonRechnungsNr '------------------------------------- diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb b/VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb index ca84426b..7b70aac7 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb @@ -62,7 +62,8 @@ Public Class cSendungen Property tblSnd_AnmerkungDispoliste As Object = Nothing Property tblSnd_ATANr As Object = "" Property tblSnd_ATCMRN_Fremd As Object = "" - + Property tblSnd_Warenwert As Object = Nothing + Property tblSnd_WarenwertWaehrung As Object = Nothing Property ABRECHNUNG As New List(Of cSendungAbrechnung) @@ -221,6 +222,8 @@ Public Class cSendungen Me.tblSnd_AnmerkungDispoliste = SQL.checkNullReturnValue(dr.Item("tblSnd_AnmerkungDispoliste"), Nothing) Me.tblSnd_ATANr = SQL.checkNullReturnValue(dr.Item("tblSnd_ATANr"), Nothing) Me.tblSnd_ATCMRN_Fremd = SQL.checkNullReturnValue(dr.Item("tblSnd_ATCMRN_Fremd"), Nothing) + Me.tblSnd_Warenwert = SQL.checkNullReturnValue(dr.Item("tblSnd_Warenwert"), Nothing) + Me.tblSnd_WarenwertWaehrung = SQL.checkNullReturnValue(dr.Item("tblSnd_WarenwertWaehrung"), Nothing) End If @@ -332,6 +335,8 @@ Public Class cSendungen list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_AnmerkungDispoliste", tblSnd_AnmerkungDispoliste)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_ATANr", tblSnd_ATANr)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_ATCMRN_Fremd", tblSnd_ATCMRN_Fremd)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Warenwert", tblSnd_Warenwert)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_WarenwertWaehrung", tblSnd_WarenwertWaehrung)) Return list diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb b/VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb index fb1f6bd7..9315798b 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb @@ -555,7 +555,7 @@ Class TrdInvoice_FUNCTIONS Catch ex As Exception End Try - + getSachkonto = CInt(getSachkonto) End Function Shared Function getSQLString_SELECTForTrdInvoice(Optional Firma As Integer = -1) diff --git a/VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb b/VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb index 4f87f420..6d11bb57 100644 --- a/VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb +++ b/VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb @@ -189,19 +189,29 @@ Public Class cDATENSERVER End Try End Function + Public Function replaceInvalidCahr(ByRef s) + s = s.replace("İ", "I") + s = s.replace("ı", "i") + + + + Dim tempBytes = System.Text.Encoding.GetEncoding("ISO-8859-8").GetBytes(s) + s = System.Text.Encoding.UTF8.GetString(tempBytes) + + Return s + End Function Public Function uploadDataToDATENSERVER(srcPath, Optional bezeichnung = "", Optional endung = "", Optional allowMsg = True, Optional coll_archiv = False) As Boolean 'LAST_ID = -1 If endung = "" Then Dim fi As New IO.DirectoryInfo(srcPath) : endung = fi.Extension ' If bezeichnung = "" Then bezeichnung = System.IO.Path.GetFileName(srcPath) : endung = "" If bezeichnung = "" Then bezeichnung = da_name + replaceInvalidCahr(bezeichnung) - Dim destpath = DATENVERVER_OPTIONS.getDescPath(rootDir, da_kategorie, da_ordner, da_uOrdner1, da_uOrdner2, da_uOrdner3, da_KundenNr, da_name, endung) - + Dim destpath = DATENVERVER_OPTIONS.getDescPath(rootDir, da_kategorie, da_ordner, da_uOrdner1, da_uOrdner2, da_uOrdner3, da_KundenNr, replaceInvalidCahr(da_name), endung) genHEADER_DATA() - If Not da_multifiles Then - If DATA_LIST.LIST.Count > 0 Then + If allowMsg AndAlso DATA_LIST.LIST.Count > 0 Then If Not vbYes = MsgBox("Die Datei existiert bereits. Soll die Datei ersetzt werden?", vbYesNoCancel) Then Return False 'NICHT Passiert End If @@ -220,7 +230,7 @@ Public Class cDATENSERVER If endung = "" Then Dim fi As New IO.DirectoryInfo(srcPath) : endung = fi.Extension ' If bezeichnung = "" Then bezeichnung = System.IO.Path.GetFileName(srcPath) : endung = "" If bezeichnung = "" Then bezeichnung = da_name - + replaceInvalidCahr(bezeichnung) genHEADER_DATA() @@ -276,6 +286,7 @@ Public Class cDATENSERVER If bezeichnung = "" Then bezeichnung = System.IO.Path.GetFileName(fd.FileName).ToString End If + replaceInvalidCahr(bezeichnung) If da_name = "" Then Me.da_name = bezeichnung : LOAD() 'Wenn sich der Name ändert, muss eine neuer Header erstellt werden... Return uploadDataToDATENSERVER(fd.FileName, bezeichnung, endung, allowMsg, coll_archiv) End If @@ -371,9 +382,9 @@ Public Class cDATENSERVER End Function - Public Function OPEN_SINGLE(Optional openFile As Boolean = True) As String + Public Function OPEN_SINGLE(Optional openFile As Boolean = True, Optional useBezeichnung As Boolean = False) As String If DATA_LIST.LIST.Count > 0 Then - Return DATA_LIST.LIST(0).OPEN(openFile) + Return DATA_LIST.LIST(0).OPEN(openFile, useBezeichnung) End If Return "" End Function @@ -384,10 +395,10 @@ Public Class cDATENSERVER Return "" End Function - Public Function OPEN(coll_id As Integer, Optional openFile As Boolean = True) As String + Public Function OPEN(coll_id As Integer, Optional openFile As Boolean = True, Optional useBezeichnung As Boolean = False) As String For Each l In DATA_LIST.LIST If l.coll_id = coll_id Then - Return l.OPEN(openFile) + Return l.OPEN(openFile, useBezeichnung) End If Next Return "" @@ -1023,13 +1034,94 @@ Public Class cFormularManager End Try End Function + '??????????????????????????????????????????'??????????????????????????????????????????'??????????????????????????????????????????'??????????????????????????????????????????'?????????????????????????????????????????? + 'Dim pdftmp As New Spire.PdfViewer.Forms.PdfViewer + ' pdftmp.LoadFromFile("C:\Users\DEVELOPER1\Desktop\Agrotel.pdf") + ' pdftmp.Print() + + ' Dim docs As PdfDocument() = {New PdfDocument("C:\Users\DEVELOPER1\Desktop\Agrotel.pdf")} + ' For Each doc As PdfDocument In docs + ' doc.PageSettings.Size = PdfPageSize.A4 + ' doc.PrintDocument.DefaultPageSettings.Landscape = True + ' doc.PageScaling = PdfPrintPageScaling.FitSize + ' doc.PrinterName = "ES3452 MFP(PCL)" + ' doc.PrintDocument.Print() + ' Next + Public Shared Sub PrintViaSpirePDF(PDFFile As List(Of String), Optional printerName As String = "") + PrintViaSpirePDF(PDFFile.ToArray, printerName) + End Sub + + + Public Shared Sub PrintViaSpirePDF(PDFFile As String(), Optional printerName As String = "") + Try + If printerName = "" Then + Dim oPS As New System.Drawing.Printing.PrinterSettings + printerName = oPS.PrinterName + End If + 'Dim docs As Spire.Pdf.PdfDocument() = {New Spire.Pdf.PdfDocument("C:\Users\DEVELOPER1\Desktop\Agrotel.pdf")} + + 'For Each doc As Spire.Pdf.PdfDocument In docs + For Each pdfPath In PDFFile + Dim doc As New Spire.Pdf.PdfDocument(pdfPath) + + doc.PageSettings.Size = Spire.Pdf.PdfPageSize.A4 + doc.PrintDocument.DefaultPageSettings.Landscape = True + doc.PageScaling = Spire.Pdf.PdfPrintPageScaling.FitSize + doc.PrinterName = printerName + doc.PrintDocument.Print() + Next + + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + End Sub + Public Shared Sub PrintViaSpirePDF_FromURL(URLs As String(), Optional printerName As String = "") + Try + If printerName = "" Then + Dim oPS As New System.Drawing.Printing.PrinterSettings + printerName = oPS.PrinterName + End If + 'Dim docs As Spire.Pdf.PdfDocument() = {New Spire.Pdf.PdfDocument("C:\Users\DEVELOPER1\Desktop\Agrotel.pdf")} + + 'For Each doc As Spire.Pdf.PdfDocument In docs + For Each pdfPath In URLs + 'Dim doc As New Spire.Pdf.PdfDocument() + + Using webClient As New Net.WebClient() + Dim data() As Byte = webClient.DownloadData(pdfPath) + Using stream As New MemoryStream(data) + Dim doc As Spire.Pdf.PdfDocument = New Spire.Pdf.PdfDocument(stream) + If doc IsNot Nothing Then + doc.PageSettings.Size = Spire.Pdf.PdfPageSize.A4 + doc.PrintDocument.DefaultPageSettings.Landscape = True + doc.PageScaling = Spire.Pdf.PdfPrintPageScaling.FitSize + doc.PrinterName = printerName + doc.PrintDocument.Print() + End If + End Using + End Using + + ' doc.LoadFromHTML(pdfPath, True, True, True) + + Next + + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + End Sub + + Public Shared Sub PrintViaGS(PDFFile As String, printerName As String) Try + Dim assembly = System.Reflection.Assembly.GetExecutingAssembly() + Dim location As String = assembly.CodeBase + Dim fullPath As String = New Uri(location).LocalPath + Dim directoryPath As String = Path.GetDirectoryName(fullPath) Dim MyP As New System.Diagnostics.Process - MyP.StartInfo.FileName = Application.StartupPath & "\Resources\GS\gswin32c.exe" + MyP.StartInfo.FileName = directoryPath & "\Resources\GS\gswin32c.exe" Dim sw As New List(Of String)() 'MyP.StartInfo.Arguments = "-dPrinted -dBATCH -dNOPAUSE -dNOSAFER -dPDFFitPage -dNumCopies=1 -dNoCancel -sDEVICE=mswinpr2 " & (Convert.ToString("-sOutputFile=%printer%") & printerName) & " -f" & PDFFile @@ -1069,7 +1161,7 @@ Public Class cFormularManager 'End Using Catch ex As Exception - MsgBox(ex.Message) + MsgBox(ex.Message & ex.StackTrace) End Try End Sub @@ -1244,12 +1336,16 @@ Public Class cDatenarchiv_Collection End Try End Function - Public Function OPEN(Optional openFILE As Boolean = True) As String + Public Function OPEN(Optional openFILE As Boolean = True, Optional useBezeichnung As Boolean = False) As String If Not IO.File.Exists(coll_pfad) Then MsgBox("Die Datei existiert nicht") : Return "" Dim fi As New IO.DirectoryInfo(coll_pfad) - Dim destPath = DATENVERVER_OPTIONS.getTMPPath(fi.Name, fi.Extension, , False) - + Dim destPath = "" + If useBezeichnung Then + destPath = DATENVERVER_OPTIONS.copyToTmp_KeepFilename(coll_pfad, coll_bezeichnung) + Else + destPath = DATENVERVER_OPTIONS.getTMPPath(fi.Name, fi.Extension, , False) + End If ' MsgBox(destPath) IO.File.Copy(coll_pfad, destPath, True) If openFILE Then Process.Start(destPath) @@ -1443,6 +1539,33 @@ Public Class DATENVERVER_OPTIONS Return destPath End Function + Shared Function copyToTmp_KeepFilenameByDS(dId As Integer, bezeichnung As String) As String + Dim DS As New cDATENSERVER(dId) + Dim pfad As String = DS.GET_TOP1_PATH + If pfad = "" Then Return "" + Dim fi As New IO.FileInfo(pfad) + + Dim tmpPath = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(bezeichnung, fi.Extension,, False, "ClipBoard_TMP\ClipBoard_" & Now.ToString("ddMMyyyyHHmmss_sss") & "\") + Try + IO.File.Copy(pfad, tmpPath) + Return tmpPath + Catch ex As Exception + MsgBox(ex.Message) + End Try + Return pfad + End Function + + Shared Function copyToTmp_KeepFilename(pfad As String, bezeichnung As String) As String + Dim fi As New IO.FileInfo(pfad) + Dim tmpPath = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(bezeichnung, fi.Extension,, False, "ClipBoard_TMP\ClipBoard_" & Now.ToString("ddMMyyyyHHmmss_sss") & "\") + Try + IO.File.Copy(pfad, tmpPath) + Return tmpPath + Catch ex As Exception + MsgBox(ex.Message) + End Try + Return pfad + End Function Shared Function getTMPAbsolutePath(AbsolutePath As String, extension As String, Optional special As Boolean = False, Optional delete As Boolean = True) As String @@ -1461,11 +1584,15 @@ Public Class DATENVERVER_OPTIONS Shared Sub clearTMPPath(Optional unterOrdner As String = "") - Dim TMP_PATH2 = TMP_PATH & If(unterOrdner <> "", "\" & unterOrdner & "\", "") + Dim TMP_PATH2 As String = TMP_PATH & If(unterOrdner <> "", "\" & unterOrdner & "\", "") + TMP_PATH2 = TMP_PATH2.Replace("\\", "\") If My.Computer.FileSystem.DirectoryExists(TMP_PATH2) Then For Each file As String In IO.Directory.GetFiles(TMP_PATH2) ' Ermittelt alle Dateien des Ordners und löscht diese (sind tmp) Try : IO.File.Delete(file) : Catch : End Try Next + For Each dir As String In IO.Directory.GetDirectories(TMP_PATH2) ' Ermittelt alle Dateien des Ordners und löscht diese (sind tmp) + Try : IO.Directory.Delete(dir, True) : Catch : End Try + Next End If End Sub diff --git a/VERAG_PROG_ALLGEMEIN/My Project/Resources.Designer.vb b/VERAG_PROG_ALLGEMEIN/My Project/Resources.Designer.vb index 58932767..066702f1 100644 --- a/VERAG_PROG_ALLGEMEIN/My Project/Resources.Designer.vb +++ b/VERAG_PROG_ALLGEMEIN/My Project/Resources.Designer.vb @@ -22,7 +22,7 @@ Namespace My.Resources ''' ''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw. ''' - _ diff --git a/VERAG_PROG_ALLGEMEIN/My Project/Settings.Designer.vb b/VERAG_PROG_ALLGEMEIN/My Project/Settings.Designer.vb index 9ce96bef..7f9c3dbb 100644 --- a/VERAG_PROG_ALLGEMEIN/My Project/Settings.Designer.vb +++ b/VERAG_PROG_ALLGEMEIN/My Project/Settings.Designer.vb @@ -15,21 +15,21 @@ Option Explicit On Namespace My _ Partial Public NotInheritable Class MySettings Inherits Global.System.Configuration.ApplicationSettingsBase Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings) -#Region "Funktion zum automatischen Speichern von My.Settings" +#Region "Automatische My.Settings-Speicherfunktion" #If _MyType = "WindowsForms" Then Private Shared addedHandler As Boolean Private Shared addedHandlerLockObject As New Object _ - Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs) + Private Shared Sub AutoSaveSettings(sender As Global.System.Object, e As Global.System.EventArgs) If My.Application.SaveMySettingsOnExit Then My.Settings.Save() End If diff --git a/VERAG_PROG_ALLGEMEIN/My Project/license.elic.xml b/VERAG_PROG_ALLGEMEIN/My Project/license.elic.xml new file mode 100644 index 00000000..9bba7f4e --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/My Project/license.elic.xml @@ -0,0 +1,24 @@ + + + Runtime + VERAG Spedition AG + al@verag.ag + VERAG Spedition AG + 2019-09-12T00:00:00Z + 2020-09-12T00:00:00Z + + + Spire.PDF Platinum + 5.8 + + 1 + 1 + + + + + e-iceblue + sales@e-iceblue.com + http://www.e-iceblue.com + + 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 index f060fe79..7bcc53f1 100644 --- 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 @@ -265,14 +265,15 @@ Namespace VERAG_OUT_NCTS Partial Public Class VERAG_out_nctsInternalReference #Region "Private fields" - Private _officeCode As Object + Private _officeCode As String - Private _positionNumber As Object + Private _positionNumber As String Private Shared sSerializer As XmlSerializer #End Region - Public Property OfficeCode() As Object + + Public Property OfficeCode() As String Get Return Me._officeCode End Get @@ -281,7 +282,8 @@ Namespace VERAG_OUT_NCTS End Set End Property - Public Property PositionNumber() As Object + + Public Property PositionNumber() As String Get Return Me._positionNumber End Get 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 index 69d68654..0b9dd0a7 100644 --- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/OUT_NCTS/VERAG_out_ncts.xsd +++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/OUT_NCTS/VERAG_out_ncts.xsd @@ -4,14 +4,18 @@ - + - - + + + + + + @@ -49,8 +53,8 @@ - - + + @@ -69,8 +73,8 @@ - - + + @@ -89,8 +93,8 @@ - - + + diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/cVERAG_OUT_NCTS.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/cVERAG_OUT_NCTS.vb deleted file mode 100644 index d889d7c2..00000000 --- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/cVERAG_OUT_NCTS.vb +++ /dev/null @@ -1,7 +0,0 @@ -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/Schnittstellen/cDVO_Interface.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/cDVO_Interface.vb index 8da7857f..1ab16b81 100644 --- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/cDVO_Interface.vb +++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/cDVO_Interface.vb @@ -92,7 +92,7 @@ file.WriteLine(genBetreibsstammSatz(Geschaeftsjahr)) If boolKunden Then - '----------------- STAMMDATEN LG ----------------- + '----------------- STAMMDATEN ----------------- Dim dt_Stamm As DataTable = getStammdaten() If dt_Stamm IsNot Nothing AndAlso dt_Stamm.Rows.Count > 0 Then initKDNr(dt_Stamm) @@ -335,19 +335,26 @@ ' Trdin=false Shared Function getSteuercode(r As DataRow) As Double - If CBool(r("Steuerpflichtig")) Then - Return "320" - Else - If (r("RechnungsLandKz")) = "A" Or (r("RechnungsLandKz")) = "AT" Then - Return "999" 'Steuerpflichtig und AT - Else - If SQL.DLookup("[MitgliedslandEU]", "[Währungstabelle]", "[LandKz]='" & r("RechnungsLandKz") & "'", "FMZOLL", False) Then - Return "969" ' EU-LAND + Select Case r("Sachkonto") + Case "3550", "3553", "3558" + Return "999" + Case Else + + If CBool(r("Steuerpflichtig")) Then + Return "320" Else - Return "973" ' Drittland + If (r("RechnungsLandKz")) = "A" Or (r("RechnungsLandKz")) = "AT" Then + Return "999" 'Steuerpflichtig und AT + Else + If SQL.DLookup("[MitgliedslandEU]", "[Währungstabelle]", "[LandKz]='" & r("RechnungsLandKz") & "'", "FMZOLL", False) Then + Return "969" ' EU-LAND + Else + Return "973" ' Drittland + End If + End If End If - End If - End If + + End Select Return "" End Function diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/cTherefore.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/cTherefore.vb new file mode 100644 index 00000000..0c8454d8 --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/cTherefore.vb @@ -0,0 +1,124 @@ +Imports Therefore.API +Public Class cTherefore + + + Shared Function saveFileTo_ImportFolder(Path As String, FilialeAbfertigungsNr As String, AvisoId As String) + Try + Dim SQL As New SQL + + ' 1. Connect to the Therefore™ Server + Dim server As New TheServer + server.Connect(TheClientType.CustomApplication) + + ' 2. Create a new Therefore™ Document + Dim doc As New TheDocument() + + ' 3. Create temporary File + 'Dim filename As String = "" + 'doc.Create(filename) + + ' 4A. Set Therefore™ Category by Number + ' doc.IndexData.SetCategory(5, server) + ' or 4B. Set Therefore™ Category by Name + doc.IndexData.SetCategory("Import ab Jänner 2019", server) + + ' 5. Add streams + 'doc.AddStream("D:\\TestAll\\TestDocs\\Scsi.doc", "", 0) + 'doc.AddStream("D:\\TestAll\\TestDocs\\TEST.xls", "", 0) + ' 6. Set index data + 'Dim indexData As TheIndexData = doc.IndexData + 'indexData("String") = FilialeAbfertigungsNr + 'indexData("Eingabedatum") = Now.ToShortDateString + 'indexData("LKW_ID") = AvisoId + + ' MsgBox(doc.IndexData.Count) + ' 7. Archive the document + 'Dim docNo As Integer = doc.Archive(server, 0) + 'Dim docNo As Integer = 0 + 'Dim filenameNEW As String = doc.Retrieve(docNo, "", server) + + Dim docNo As Integer = SQL.getValueTxtBySql("SELECT TOP 1 isnull([DocNo],-1) FROM [Therefore].[dbo].[TheCat119] WHERE [String] LIKE '" & FilialeAbfertigungsNr & "' ORDER BY [Eingabedatum] DESC", "SCANCANON",,, -1) + Dim filename As String = "" + If docNo <= 0 Then + doc.Create(filename) + + doc.AddStream(Path, "", 0) + Dim indexData As TheIndexData = doc.IndexData + indexData("String") = FilialeAbfertigungsNr + indexData("Eingabedatum") = Now.ToShortDateString + indexData("LKW_ID") = AvisoId + + docNo = doc.Archive(server, 0) + Else + Dim folder = "" + Dim VerionNo As Integer + filename = doc.Retrieve(docNo, VerionNo, folder, server, False) + + Dim user As String = "" + doc.CheckOut(server, False, user, VerionNo) + + doc.AddStream(Path, "", 0) + doc.CheckIn(server) + End If + + + + ' 8. Close Therefore™ document object + doc.Close() + + ' 9. Delete the temporary file + System.IO.File.Delete(filename) + + ' 10. Optional: Print a success message on the console + ' Console.WriteLine("Document successfully archived as " + docNo.ToString() + ".") + Return True + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + Return False + End Function + + 'Shared Function saveFileTo_ImportFolder2(Path As String, FilialeAbfertigungsNr As Integer, AvisoId As Integer) + ' Try + + ' ' 1. Connect to the Therefore™ Server + ' Dim server As New TheServer + ' server.Connect(TheClientType.CustomApplication) + + ' ' 2. Create a new Therefore™ Document + ' Dim doc As New TheDocument() + + ' ' 3. Create temporary File + ' Dim filename As String = "" + ' doc.Create(filename) + + ' ' 4A. Set Therefore™ Category by Number + ' ' doc.IndexData.SetCategory(5, server) + ' ' or 4B. Set Therefore™ Category by Name + ' doc.IndexData.SetCategory("Import ab Jänner 2019", server) + + ' ' 5. Add streams + ' 'doc.AddStream("D:\\TestAll\\TestDocs\\Scsi.doc", "", 0) + ' 'doc.AddStream("D:\\TestAll\\TestDocs\\TEST.xls", "", 0) + ' doc.AddStream(Path, "", 0) + ' ' 6. Set index data + + ' ' MsgBox(doc.IndexData.Count) + ' ' 7. Archive the document + ' Dim docNo As Integer = doc.Archive(server, 0) + ' MsgBox(docNo) + + ' ' 8. Close Therefore™ document object + ' doc.Close() + + ' ' 9. Delete the temporary file + ' System.IO.File.Delete(filename) + + ' ' 10. Optional: Print a success message on the console + ' ' Console.WriteLine("Document successfully archived as " + docNo.ToString() + ".") + + ' Catch ex As Exception + ' MsgBox(ex.Message & ex.StackTrace) + ' End Try + 'End Function +End Class diff --git a/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj b/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj index 5eca2b76..00d3c7ed 100644 --- a/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj +++ b/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj @@ -12,7 +12,8 @@ VERAG_PROG_ALLGEMEIN 512 Windows - v4.5 + v4.7 + AnyCPU @@ -92,6 +93,14 @@ ..\..\..\dll\RichTextBoxEx.dll + + False + ..\..\..\AVISO\Aviso\packages\Spire.PDFViewer.4.9.5\lib\net46\Spire.License.dll + + + False + ..\..\..\AVISO\Aviso\packages\Spire.PDFViewer.4.9.5\lib\net46\Spire.Pdf.dll + @@ -141,6 +150,8 @@ Form + + DateTimePickerEx.vb @@ -280,6 +291,7 @@ + @@ -293,6 +305,7 @@ + @@ -303,6 +316,7 @@ + @@ -381,7 +395,7 @@ - + True @@ -584,6 +598,22 @@ + + + Always + + + + + {37687F89-8603-4E42-A5F4-4FBAB011D5F3} + 3 + 0 + 0 + tlbimp + False + True + + - VERAG_PROG_ALLGEMEIN.UIDPruefung.matchCode, Web References.UIDPruefung.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + VERAG_PROG_ALLGEMEIN.UIDPruefung.matchCode, Web References.UIDPruefung.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null \ No newline at end of file diff --git a/VERAG_PROG_ALLGEMEIN/cAllgemein.vb b/VERAG_PROG_ALLGEMEIN/cAllgemein.vb index 4f96badd..42946642 100644 --- a/VERAG_PROG_ALLGEMEIN/cAllgemein.vb +++ b/VERAG_PROG_ALLGEMEIN/cAllgemein.vb @@ -4,6 +4,9 @@ Public Class cAllgemein Public Shared FIRMA As String Public Shared NIEDERLASSUNG As String 'SUB, WAI, ... Public Shared ABTEILUNG As String 'QS ZOLL ... + Public Shared STAMMFILIALE As String 'IMEX,UNISPED;ATILLA... + + ' Public Shared SPECIFIC As cSPECIFIC = New cSPECIFIC Public Shared ERR_OP_GLOBAL As String = ERROR_OP.SHOW @@ -54,6 +57,20 @@ Public Class cAllgemein USR_HrFrNAME &= MITARBEITER.mit_nname If FIRMA = "" Then FIRMA = If(MITARBEITER.mit_firma = "BEIDE", "VERAG", MITARBEITER.mit_firma) + + + cSPECIFIC.FIRMA_BgColor = Drawing.Color.FromArgb(0, 54, 128) + Select Case FIRMA + 'Case "VERAG" + Case "IMEX" + STAMMFILIALE = "5501" + Case "UNISPED" + STAMMFILIALE = "5601" + cSPECIFIC.FIRMA_BgColor = Drawing.Color.FromArgb(200, 0, 0) + Case "AMBAR" + STAMMFILIALE = "5701" + End Select + USRNAME = (MITARBEITER.mit_vname & " " & MITARBEITER.mit_nname) If NIEDERLASSUNG = "" Then NIEDERLASSUNG = MITARBEITER.mit_niederlassung If ABTEILUNG = "" Then ABTEILUNG = MITARBEITER.mit_abteilung @@ -122,6 +139,25 @@ Public Class cAllgemein + Class cSPECIFIC + Public Shared FIRMA_BgColor As System.Drawing.Color = Drawing.Color.FromArgb(0, 54, 128) + Public Shared FIRMA_ForeColor As System.Drawing.Color = Drawing.Color.White + End Class + Public Shared Sub buildConnectionDATENARCHIV() + Try + Dim netuse As New System.Diagnostics.ProcessStartInfo() + + netuse.FileName = "C:\Windows\system32\net" + netuse.Arguments = "use \\192.168.0.91\Datenarchiv /User:VERAGOST\AVISOSMB BmWr501956" + netuse.CreateNoWindow = True + netuse.WindowStyle = ProcessWindowStyle.Hidden + System.Diagnostics.Process.Start(netuse) + + Catch ex As Exception + MsgBox("ERR: DATENARCHIV Netzwerkzugriff fehlgeschlagen...") + End Try + End Sub + End Class