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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2019-10-31 09:23:20 +01:00
parent 021cce6f04
commit c5595a729a
169 changed files with 16226 additions and 3376 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
SDL/App.config
View File

@@ -1,4 +1,4 @@
<?xml version="1.0" encoding="utf-8"?>
<?xml version="1.0" encoding="utf-8"?>
<configuration>
<configSections>
<sectionGroup name="applicationSettings" type="System.Configuration.ApplicationSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
@@ -7,7 +7,7 @@
</configSections>
<connectionStrings/>
<startup>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5" />
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.7"/>
</startup>
<system.serviceModel>
<bindings>
@@ -31,6 +31,10 @@
<assemblyIdentity name="WindowsBase" publicKeyToken="31bf3856ad364e35" culture="neutral"/>
<bindingRedirect oldVersion="0.0.0.0-4.0.0.0" newVersion="4.0.0.0"/>
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="Newtonsoft.Json" publicKeyToken="30ad4fe6b2a6aeed" culture="neutral"/>
<bindingRedirect oldVersion="0.0.0.0-10.0.0.0" newVersion="10.0.0.0"/>
</dependentAssembly>
</assemblyBinding>
</runtime>
<applicationSettings>

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

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

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

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

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

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

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

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

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

@@ -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,6 +182,7 @@
End Sub
Sub addUnterlage()
Try
Label22.Visible = False
If sbUlArt._value = "" Then Label22.Visible = True : sbUlArt.Focus() : Exit Sub
@@ -180,16 +200,21 @@
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()
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

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

@@ -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,6 +149,7 @@
End Function
Sub removeItem(index)
Try
If index < 0 Then Exit Sub
'If index < 0 Then Exit Sub
If dgvPositionen.Rows.Count > index Then
@@ -162,6 +165,10 @@
End If
End If
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

28
SDL/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS.vb
View File

@@ -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
@@ -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
@@ -299,10 +299,12 @@ Public Class usrCntlATLAS_NCTS
Catch
End Try
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,8 +346,8 @@ 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
@@ -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)
@@ -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

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

@@ -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,15 +359,19 @@
End Sub
Private Sub sbVersendungsLand_TextChanged() Handles sbVersendungsLand.VALUE_CHANGED
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 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
Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
@@ -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

95
SDL/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS_Position.Designer.vb generated
View File

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

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

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

4
SDL/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS_Positionen.vb
View File

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

22
SDL/DAKOSY/frmZollanmeldung.vb
View File

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

4
SDL/DAKOSY/usrCntlAdresse.vb
View File

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

3
SDL/DAKOSY/usrCntlAdresseEZA.vb
View File

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

311
SDL/Fakturierung/cFakturierung.vb
View File

@@ -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("<EMailAdresse>", If(RECHNUNG_AD.E_Mail, " - "))
' varPos = InStr(1, strText, "<EMailAdresse>")
' If varPos > 0 And Not rstAdr.EOF And Not IsNull(rstAdr![E-Mail]) Then
'If Len(strText) > (varPos - 1 + Len("<EMailAdresse>")) Then
' strText = Left(strText, varPos - 1) & rstAdr![E-Mail] & Right(strText, Len(strText) - (varPos - 1 + Len("<EMailAdresse>")))
' 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"
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
'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)
Path = tmpPath
rpt.Dispose()
'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)
' 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,6 +1755,26 @@ 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
@@ -1566,14 +1782,14 @@ Public Class cFakturierung
'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

2
SDL/Fakturierung/frmAbrechnungsMaske.Designer.vb generated
View File

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

7
SDL/Fakturierung/frmFaktAufschubSuche.vb
View File

@@ -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,10 +271,15 @@
e.Handled = True
End If
If e.KeyCode = Keys.Return Then
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
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

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

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

44
SDL/Fakturierung/frmFaktEmail.vb
View File

@@ -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 &= "<br><br><br>Best regards<br><br>" & 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,9 +364,11 @@ Public Class frmFaktEmail
Mail_StbFA = outl.CreateItem(0)
Mail_StbFA.Subject = txtSubject.Text
Dim TextHTML = "<div style=""font-family:Calibri, Arial"">"
Select Case cboFaStb_Sprache._value
Case "DE"
TextHTML &= "<b><table style=""font-family:Calibri, Arial;font-weight:bold"">"
TextHTML &= "<tr><td>EORI-Nr.:</td><td>" & If(KD.EORITIN, "") & "</td></tr>"
TextHTML &= "<tr><td>UID-Nr.:</td><td>" & If(AD.UstIdKz, "") & If(AD.UstIdNr, "") & "</td></tr>"
@@ -381,6 +388,28 @@ Public Class frmFaktEmail
TextHTML &= "Freundliche Grüße"
TextHTML &= "<br><br>"
Case "EN"
TextHTML &= "<b><table style=""font-family:Calibri, Arial;font-weight:bold"">"
TextHTML &= "<tr><td>EORI-Nr.:</td><td>" & If(KD.EORITIN, "") & "</td></tr>"
TextHTML &= "<tr><td>VAT-ID.:</td><td>" & If(AD.UstIdKz, "") & If(AD.UstIdNr, "") & "</td></tr>"
TextHTML &= "<tr><td>Company:</td><td>" & If(AD.Name_1, "") & If(AD.Name_2, "") & "</td></tr>"
TextHTML &= "<tr><td></td><td>" & If(AD.Straße, "") & "</td></tr>"
TextHTML &= "<tr><td></td><td>" & If(AD.LandKz, "") & " " & If(AD.PLZ, "") & " " & If(AD.Ort, "") & "</td></tr>"
TextHTML &= "</table></b>"
TextHTML &= "<br>"
TextHTML &= "<br>"
TextHTML &= "Dear Sir or Madam!" & "<br>"
TextHTML &= "<br>"
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).<br>"
TextHTML &= "The documents are attached." & "<br>"
TextHTML &= "<br>"
TextHTML &= "This intra-community acquisition has to be reported to the tax office." & "<br>"
TextHTML &= "<br><br>"
TextHTML &= "Yours faithfully,"
TextHTML &= "<br><br>"
End Select
TextHTML &= cFakturierung.getSignature(AD.LandKz, Firma_ID)
TextHTML &= "</div>"
@@ -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

23
SDL/Fakturierung/frmFaktSammelRgDrucken.vb
View File

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

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

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

2
SDL/Fakturierung/frmRechnungenSuche.vb
View File

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

3246
SDL/Fakturierung/usrCntlFaktAbrechnung.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

18
SDL/Fakturierung/usrCntlFaktAbrechnung.resx
View File

@@ -135,24 +135,6 @@
<metadata name="Aufschubkonto.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="Leistung.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="Anzahl.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="Preis.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="SteuerpflichtigerBetrag.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="SteuerfreierBetrag.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="Aufschubkonto.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="btnOK.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>

443
SDL/Fakturierung/usrCntlFaktAbrechnung.vb
View File

@@ -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("<EMailAdresse>", If(RECHNUNG_AD.E_Mail, " - "))
' varPos = InStr(1, strText, "<EMailAdresse>")
' If varPos > 0 And Not rstAdr.EOF And Not IsNull(rstAdr![E-Mail]) Then
'If Len(strText) > (varPos - 1 + Len("<EMailAdresse>")) Then
' strText = Left(strText, varPos - 1) & rstAdr![E-Mail] & Right(strText, Len(strText) - (varPos - 1 + Len("<EMailAdresse>")))
' 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
@@ -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

12
SDL/Formulare/Einheitspapier/usrCntlEinheitspapier0735.Designer.vb generated
View File

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

12
SDL/Formulare/Einheitspapier/usrCntlEinheitspapier0735.vb
View File

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

39
SDL/Formulare/KDFormulare/FormulareBaukasten/rptPreislisten.Designer.vb generated
View File

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

214
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlRechnungsbestaetigung.Designer.vb generated Normal file
View File

@@ -0,0 +1,214 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class usrcntlRechnungsbestaetigung
Inherits System.Windows.Forms.UserControl
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.lblVollmachtDE = New System.Windows.Forms.Label()
Me.lbl = New System.Windows.Forms.Label()
Me.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

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

@@ -0,0 +1,120 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>

82
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlRechnungsbestaetigung.vb Normal file
View File

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

33
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.vb
View File

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

439
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungsunterlagen.Designer.vb generated
View File

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

322
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungsunterlagen.vb
View File

@@ -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,6 +24,30 @@
txtFirma.KdNr = kdnr
End Sub
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
@@ -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
cboFirma.changeItem("AG")
If KdNR > 0 Then
txtFirma.KdNr = KdNR
Else
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

285
SDL/Formulare/KDFormulare/frmFormulare.Designer.vb generated
View File

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

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

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

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

@@ -150,6 +150,16 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
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
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
@@ -1253,6 +1263,46 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
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
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
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
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
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
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
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
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
@@ -1821,6 +1871,16 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
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
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
@@ -1952,7 +2012,7 @@ Namespace My.Resources
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die 1.1.1.6 ähnelt.
''' Sucht eine lokalisierte Zeichenfolge, die 1.1.2.4 ähnelt.
'''</summary>
Friend ReadOnly Property Version() As String
Get

20
SDL/My Project/Resources.resx
View File

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

834
SDL/Post/frmPostEinschreiben.Designer.vb generated Normal file
View File

@@ -0,0 +1,834 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmPostEinschreiben
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
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

980
SDL/Post/frmPostEinschreiben.resx Normal file
View File

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

368
SDL/Post/frmPostEinschreiben.vb Normal file
View File

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

3
SDL/Reports/MDM/BriefSDl/rptSDLBrief.vb
View File

@@ -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<EFBFBD>r diese Leistung kann kein Bericht erstellt werden!")
End Select
End Sub

194
SDL/Reports/MDM/BriefSDl/subrptBriefSDL_PLOSE.Designer.vb generated Normal file
View File

@@ -0,0 +1,194 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
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
<System.Diagnostics.DebuggerStepThrough()>
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

126
SDL/Reports/MDM/BriefSDl/subrptBriefSDL_PLOSE.resx Normal file
View File

@@ -0,0 +1,126 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="$this.ScriptEditorPositionForUndo" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>0, 0</value>
</metadata>
<metadata name="$this.ScriptEditorPositionForRedo" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>0, 0</value>
</metadata>
</root>

45
SDL/Reports/MDM/BriefSDl/subrptBriefSDL_PLOSE.vb Normal file
View File

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

194
SDL/Reports/MDM/BriefSDl/subrptBriefSDL_PLOSE_CZ.Designer.vb generated Normal file
View File

@@ -0,0 +1,194 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
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
<System.Diagnostics.DebuggerStepThrough()>
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

126
SDL/Reports/MDM/BriefSDl/subrptBriefSDL_PLOSE_CZ.resx Normal file
View File

@@ -0,0 +1,126 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="$this.ScriptEditorPositionForUndo" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>0, 0</value>
</metadata>
<metadata name="$this.ScriptEditorPositionForRedo" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>0, 0</value>
</metadata>
</root>

45
SDL/Reports/MDM/BriefSDl/subrptBriefSDL_PLOSE_CZ.vb Normal file
View File

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

194
SDL/Reports/MDM/BriefSDl/subrptBriefSDL_PLOSE_IT.Designer.vb generated Normal file
View File

@@ -0,0 +1,194 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
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
<System.Diagnostics.DebuggerStepThrough()>
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

126
SDL/Reports/MDM/BriefSDl/subrptBriefSDL_PLOSE_IT.resx Normal file
View File

@@ -0,0 +1,126 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="$this.ScriptEditorPositionForUndo" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>0, 0</value>
</metadata>
<metadata name="$this.ScriptEditorPositionForRedo" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>0, 0</value>
</metadata>
</root>

44
SDL/Reports/MDM/BriefSDl/subrptBriefSDL_PLOSE_IT.vb Normal file
View File

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

BIN
SDL/Resources/Unisped_logo.jpg Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 121 KiB

BIN
SDL/Resources/ambar_simple1.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 79 KiB

BIN
SDL/Resources/plose.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 6.3 KiB

BIN
SDL/Resources/plose_big.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 14 KiB

BIN
SDL/Resources/plose_cz.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 4.4 KiB

BIN
SDL/Resources/plose_it.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 4.6 KiB

98
SDL/SDL.vbproj
View File

@@ -11,7 +11,7 @@
<AssemblyName>SDL</AssemblyName>
<FileAlignment>512</FileAlignment>
<MyType>WindowsForms</MyType>
<TargetFrameworkVersion>v4.5</TargetFrameworkVersion>
<TargetFrameworkVersion>v4.7</TargetFrameworkVersion>
<TargetFrameworkProfile>
</TargetFrameworkProfile>
<IsWebBootstrapper>false</IsWebBootstrapper>
@@ -786,6 +786,12 @@
<Compile Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlFiskalInfoschreiben.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlRechnungsbestaetigung.Designer.vb">
<DependentUpon>usrcntlRechnungsbestaetigung.vb</DependentUpon>
</Compile>
<Compile Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlRechnungsbestaetigung.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlVerbundenheit.Designer.vb">
<DependentUpon>usrcntlVerbundenheit.vb</DependentUpon>
</Compile>
@@ -936,6 +942,12 @@
<Compile Include="Formulare\KDFormulare\frmFormulare.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmChangePWD.Designer.vb">
<DependentUpon>frmChangePWD.vb</DependentUpon>
</Compile>
<Compile Include="frmChangePWD.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmDienstplan.Designer.vb">
<DependentUpon>frmDienstplan.vb</DependentUpon>
</Compile>
@@ -1290,6 +1302,12 @@
<Compile Include="mdm\Bestellung\frmSDLBestellungEintrag.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="mdm\PLOSE\frmMDMDatenverarbetiung.Designer.vb">
<DependentUpon>frmMDMDatenverarbetiung.vb</DependentUpon>
</Compile>
<Compile Include="mdm\PLOSE\frmMDMDatenverarbetiung.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="mdm\PLOSE\rptPLOSE_TransaktionenSumary.Designer.vb">
<DependentUpon>rptPLOSE_TransaktionenSumary.vb</DependentUpon>
</Compile>
@@ -1357,6 +1375,24 @@
<Compile Include="mdm\SDLLeistungenDetails\usrCntlSDLLeistungenMANAbgas.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="mdm\SDLLeistungenDetails\usrCntlSDLLeistungenPLOSE_CZ.Designer.vb">
<DependentUpon>usrCntlSDLLeistungenPLOSE_CZ.vb</DependentUpon>
</Compile>
<Compile Include="mdm\SDLLeistungenDetails\usrCntlSDLLeistungenPLOSE_CZ.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="mdm\SDLLeistungenDetails\usrCntlSDLLeistungenPLOSE_IT.Designer.vb">
<DependentUpon>usrCntlSDLLeistungenPLOSE_IT.vb</DependentUpon>
</Compile>
<Compile Include="mdm\SDLLeistungenDetails\usrCntlSDLLeistungenPLOSE_IT.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="mdm\SDLLeistungenDetails\usrCntlSDLLeistungPLOSE.Designer.vb">
<DependentUpon>usrCntlSDLLeistungPLOSE.vb</DependentUpon>
</Compile>
<Compile Include="mdm\SDLLeistungenDetails\usrCntlSDLLeistungPLOSE.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="mdm\SDLLeistungenDetails\usrCntlSDLLeistungHUGO.Designer.vb">
<DependentUpon>usrCntlSDLLeistungHUGO.vb</DependentUpon>
</Compile>
@@ -1489,14 +1525,38 @@
<Compile Include="PopUp\frmPopUpInfo.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Post\frmPostEinschreiben.Designer.vb">
<DependentUpon>frmPostEinschreiben.vb</DependentUpon>
</Compile>
<Compile Include="Post\frmPostEinschreiben.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Registrierkasse\modRegKasse.vb" />
<Compile Include="Registrierkasse\modUmsatzzaehler.vb" />
<Compile Include="Reports\MDM\BriefSDl\subrptBriefSDL_PLOSE.Designer.vb">
<DependentUpon>subrptBriefSDL_PLOSE.vb</DependentUpon>
</Compile>
<Compile Include="Reports\MDM\BriefSDl\subrptBriefSDL_PLOSE.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="Reports\MDM\BriefSDl\subrptBriefSDL_PLOSE_CZ.Designer.vb">
<DependentUpon>subrptBriefSDL_PLOSE_CZ.vb</DependentUpon>
</Compile>
<Compile Include="Reports\MDM\BriefSDl\subrptBriefSDL_PLOSE_CZ.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="Reports\MDM\BriefSDl\subrptBriefSDL_HUGO.Designer.vb">
<DependentUpon>subrptBriefSDL_HUGO.vb</DependentUpon>
</Compile>
<Compile Include="Reports\MDM\BriefSDl\subrptBriefSDL_HUGO.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="Reports\MDM\BriefSDl\subrptBriefSDL_PLOSE_IT.Designer.vb">
<DependentUpon>subrptBriefSDL_PLOSE_IT.vb</DependentUpon>
</Compile>
<Compile Include="Reports\MDM\BriefSDl\subrptBriefSDL_PLOSE_IT.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="Reports\MDM\BriefSDl\subrptBriefSDL_WOELFL.Designer.vb">
<DependentUpon>subrptBriefSDL_WOELFL.vb</DependentUpon>
</Compile>
@@ -2442,6 +2502,9 @@
<EmbeddedResource Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlFiskalInfoschreiben.resx">
<DependentUpon>usrcntlFiskalInfoschreiben.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlRechnungsbestaetigung.resx">
<DependentUpon>usrcntlRechnungsbestaetigung.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlVerbundenheit.resx">
<DependentUpon>usrcntlVerbundenheit.vb</DependentUpon>
</EmbeddedResource>
@@ -2517,6 +2580,9 @@
<EmbeddedResource Include="Formulare\KDFormulare\frmFormulare.resx">
<DependentUpon>frmFormulare.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmChangePWD.resx">
<DependentUpon>frmChangePWD.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmDienstplan.resx">
<DependentUpon>frmDienstplan.vb</DependentUpon>
</EmbeddedResource>
@@ -2694,6 +2760,9 @@
<EmbeddedResource Include="mdm\Bestellung\frmSDLBestellungEintrag.resx">
<DependentUpon>frmSDLBestellungEintrag.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="mdm\PLOSE\frmMDMDatenverarbetiung.resx">
<DependentUpon>frmMDMDatenverarbetiung.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="mdm\PLOSE\rptPLOSE_TransaktionenSumary.resx">
<DependentUpon>rptPLOSE_TransaktionenSumary.vb</DependentUpon>
</EmbeddedResource>
@@ -2727,6 +2796,15 @@
<EmbeddedResource Include="mdm\SDLLeistungenDetails\usrCntlSDLLeistungenMANAbgas.resx">
<DependentUpon>usrCntlSDLLeistungenMANAbgas.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="mdm\SDLLeistungenDetails\usrCntlSDLLeistungenPLOSE_CZ.resx">
<DependentUpon>usrCntlSDLLeistungenPLOSE_CZ.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="mdm\SDLLeistungenDetails\usrCntlSDLLeistungenPLOSE_IT.resx">
<DependentUpon>usrCntlSDLLeistungenPLOSE_IT.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="mdm\SDLLeistungenDetails\usrCntlSDLLeistungPLOSE.resx">
<DependentUpon>usrCntlSDLLeistungPLOSE.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="mdm\SDLLeistungenDetails\usrCntlSDLLeistungHUGO.resx">
<DependentUpon>usrCntlSDLLeistungHUGO.vb</DependentUpon>
</EmbeddedResource>
@@ -2791,9 +2869,21 @@
<EmbeddedResource Include="PopUp\frmPopUpInfo.resx">
<DependentUpon>frmPopUpInfo.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Post\frmPostEinschreiben.resx">
<DependentUpon>frmPostEinschreiben.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Reports\MDM\BriefSDl\subrptBriefSDL_PLOSE.resx">
<DependentUpon>subrptBriefSDL_PLOSE.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Reports\MDM\BriefSDl\subrptBriefSDL_PLOSE_CZ.resx">
<DependentUpon>subrptBriefSDL_PLOSE_CZ.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Reports\MDM\BriefSDl\subrptBriefSDL_HUGO.resx">
<DependentUpon>subrptBriefSDL_HUGO.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Reports\MDM\BriefSDl\subrptBriefSDL_PLOSE_IT.resx">
<DependentUpon>subrptBriefSDL_PLOSE_IT.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Reports\MDM\BriefSDl\subrptBriefSDL_WOELFL.resx">
<DependentUpon>subrptBriefSDL_WOELFL.vb</DependentUpon>
</EmbeddedResource>
@@ -3503,6 +3593,11 @@
<ItemGroup>
<Content Include="My Project\logo_mdm.png" />
<Content Include="My Project\zoll.png" />
<None Include="Resources\plose_cz.png" />
<None Include="Resources\plose_it.png" />
<None Include="Resources\Unisped_logo.jpg" />
<None Include="Resources\plose.png" />
<None Include="Resources\plose_big.png" />
<None Include="Resources\ok_gray.png" />
<None Include="Resources\IMEX-LOGO-AEO_sig.jpg">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
@@ -3620,6 +3715,7 @@
<None Include="Resources\fragezeichen.png" />
<None Include="Resources\chimes.wav" />
<None Include="Resources\chimes2.wav" />
<None Include="Resources\ambar_simple1.png" />
<Content Include="Resources\GS\gsdll32.dll">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</Content>

19
SDL/SMS/frmSendSMS.vb
View File

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

2
SDL/Service References/EU_UID_Pruefung/SDL.EU_UID_Pruefung.checkVatApproxResponse.datasource
View File

@@ -6,5 +6,5 @@
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="checkVatApproxResponse" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>SDL.EU_UID_Pruefung.checkVatApproxResponse, Service References.EU_UID_Pruefung.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
<TypeInfo>SDL.EU_UID_Pruefung.checkVatApproxResponse, Service References.EU_UID_Pruefung.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>

2
SDL/Service References/EU_UID_Pruefung/SDL.EU_UID_Pruefung.checkVatResponse.datasource
View File

@@ -6,5 +6,5 @@
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="checkVatResponse" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>SDL.EU_UID_Pruefung.checkVatResponse, Service References.EU_UID_Pruefung.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
<TypeInfo>SDL.EU_UID_Pruefung.checkVatResponse, Service References.EU_UID_Pruefung.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>

2
SDL/Service References/EU_UID_Pruefung/SDL.EU_UID_Pruefung.matchCode.datasource
View File

@@ -6,5 +6,5 @@
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="matchCode" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>SDL.EU_UID_Pruefung.matchCode, Service References.EU_UID_Pruefung.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
<TypeInfo>SDL.EU_UID_Pruefung.matchCode, Service References.EU_UID_Pruefung.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>

2
SDL/Service References/RKSVServer/SDL.RKSVServer.ExportJWSDetailsResponse.datasource
View File

@@ -6,5 +6,5 @@
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="ExportJWSDetailsResponse" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>SDL.RKSVServer.ExportJWSDetailsResponse, Service References.RKSVServer.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
<TypeInfo>SDL.RKSVServer.ExportJWSDetailsResponse, Service References.RKSVServer.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>

2
SDL/Service References/RKSVServer/SDL.RKSVServer.ExportJWSResponse.datasource
View File

@@ -6,5 +6,5 @@
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="ExportJWSResponse" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>SDL.RKSVServer.ExportJWSResponse, Service References.RKSVServer.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
<TypeInfo>SDL.RKSVServer.ExportJWSResponse, Service References.RKSVServer.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>

2
SDL/Service References/RKSVServer/SDL.RKSVServer.GetCardCertificateResponse.datasource
View File

@@ -6,5 +6,5 @@
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="GetCardCertificateResponse" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>SDL.RKSVServer.GetCardCertificateResponse, Service References.RKSVServer.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
<TypeInfo>SDL.RKSVServer.GetCardCertificateResponse, Service References.RKSVServer.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>

2
SDL/Service References/RKSVServer/SDL.RKSVServer.JWSCompactToQrStringResponse.datasource
View File

@@ -6,5 +6,5 @@
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="JWSCompactToQrStringResponse" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>SDL.RKSVServer.JWSCompactToQrStringResponse, Service References.RKSVServer.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
<TypeInfo>SDL.RKSVServer.JWSCompactToQrStringResponse, Service References.RKSVServer.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>

2
SDL/Service References/RKSVServer/SDL.RKSVServer.RKSVJwsToImageResponse.datasource
View File

@@ -6,5 +6,5 @@
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="RKSVJwsToImageResponse" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>SDL.RKSVServer.RKSVJwsToImageResponse, Service References.RKSVServer.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
<TypeInfo>SDL.RKSVServer.RKSVJwsToImageResponse, Service References.RKSVServer.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>

2
SDL/Service References/RKSVServer/SDL.RKSVServer.SignReceiptResponse.datasource
View File

@@ -6,5 +6,5 @@
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="SignReceiptResponse" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>SDL.RKSVServer.SignReceiptResponse, Service References.RKSVServer.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
<TypeInfo>SDL.RKSVServer.SignReceiptResponse, Service References.RKSVServer.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>

2
SDL/Service References/RKSVServer/SDL.RKSVServer.SignReceiptWithDetailsResponse.datasource
View File

@@ -6,5 +6,5 @@
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="SignReceiptWithDetailsResponse" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>SDL.RKSVServer.SignReceiptWithDetailsResponse, Service References.RKSVServer.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
<TypeInfo>SDL.RKSVServer.SignReceiptWithDetailsResponse, Service References.RKSVServer.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>

2
SDL/Service References/RKSVServer/SDL.RKSVServer.SignStornoReceiptResponse.datasource
View File

@@ -6,5 +6,5 @@
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="SignStornoReceiptResponse" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>SDL.RKSVServer.SignStornoReceiptResponse, Service References.RKSVServer.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
<TypeInfo>SDL.RKSVServer.SignStornoReceiptResponse, Service References.RKSVServer.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>

2
SDL/Service References/RKSVServer/SDL.RKSVServer.SignStornoReceiptWithDetailsResponse.datasource
View File

@@ -6,5 +6,5 @@
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="SignStornoReceiptWithDetailsResponse" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>SDL.RKSVServer.SignStornoReceiptWithDetailsResponse, Service References.RKSVServer.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
<TypeInfo>SDL.RKSVServer.SignStornoReceiptWithDetailsResponse, Service References.RKSVServer.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>

2
SDL/Service References/RKSVServer/SDL.RKSVServer.SignTrainReceiptResponse.datasource
View File

@@ -6,5 +6,5 @@
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="SignTrainReceiptResponse" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>SDL.RKSVServer.SignTrainReceiptResponse, Service References.RKSVServer.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
<TypeInfo>SDL.RKSVServer.SignTrainReceiptResponse, Service References.RKSVServer.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>

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

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

54
SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb
View File

@@ -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")
If VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE <> "" Then
cboFiliale._allowedValuesFreiText = {VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE}
cboFiliale.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE)
cboFiliale.Enabled = False
Case "ATILLA" : cboFiliale._allowedValuesFreiText = {"4801"}
cboFiliale.changeItem("4801")
cboFiliale.Enabled = False
End Select
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")

10
SDL/Web References/EORI/Reference.vb
View File

@@ -24,7 +24,7 @@ Imports System.Xml.Serialization
Namespace EORI
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.2046.0"), _
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code"), _
System.Web.Services.WebServiceBindingAttribute(Name:="validationSoapBinding", [Namespace]:="http://eori.ws.eos.dds.s/")> _
@@ -121,7 +121,7 @@ Namespace EORI
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.3056.0"), _
System.SerializableAttribute(), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code"), _
@@ -169,7 +169,7 @@ Namespace EORI
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.3056.0"), _
System.SerializableAttribute(), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code"), _
@@ -308,11 +308,11 @@ Namespace EORI
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.2046.0")> _
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub validateEORICompletedEventHandler(ByVal sender As Object, ByVal e As validateEORICompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.2046.0"), _
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class validateEORICompletedEventArgs

2
SDL/Web References/EORI/eoriValidationResult.datasource
View File

@@ -6,5 +6,5 @@
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="eoriValidationResult" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>SDL.EORI.eoriValidationResult, Web References.EORI.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
<TypeInfo>SDL.EORI.eoriValidationResult, Web References.EORI.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>

8
SDL/Web References/at.gv.bmf.finanzonline/Reference.vb
View File

@@ -24,7 +24,7 @@ Imports System.Xml.Serialization
Namespace at.gv.bmf.finanzonline
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.2046.0"), _
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code"), _
System.Web.Services.WebServiceBindingAttribute(Name:="uidAbfrageServiceBinding", [Namespace]:="https://finanzonline.bmf.gv.at/fon/ws/uidAbfrage")> _
@@ -129,7 +129,7 @@ Namespace at.gv.bmf.finanzonline
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.3056.0"), _
System.SerializableAttribute(), _
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=true, [Namespace]:="https://finanzonline.bmf.gv.at/fon/ws/uidAbfrage")> _
Public Enum uidAbfrageServiceRequestStufe
@@ -144,11 +144,11 @@ Namespace at.gv.bmf.finanzonline
End Enum
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.2046.0")> _
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub uidAbfrageCompletedEventHandler(ByVal sender As Object, ByVal e As uidAbfrageCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.2046.0"), _
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class uidAbfrageCompletedEventArgs

10
SDL/Web References/at.gv.bmf.finanzonlineLogin/Reference.vb
View File

@@ -24,7 +24,7 @@ Imports System.Xml.Serialization
Namespace at.gv.bmf.finanzonlineLogin
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.2046.0"), _
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code"), _
System.Web.Services.WebServiceBindingAttribute(Name:="sessionServiceBinding", [Namespace]:="https://finanzonline.bmf.gv.at/fon/ws/session")> _
@@ -156,11 +156,11 @@ Namespace at.gv.bmf.finanzonlineLogin
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.2046.0")> _
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub loginCompletedEventHandler(ByVal sender As Object, ByVal e As loginCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.2046.0"), _
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class loginCompletedEventArgs
@@ -199,11 +199,11 @@ Namespace at.gv.bmf.finanzonlineLogin
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.2046.0")> _
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub logoutCompletedEventHandler(ByVal sender As Object, ByVal e As logoutCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.2046.0"), _
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class logoutCompletedEventArgs

12
SDL/Web References/eu.europa.ec/Reference.vb
View File

@@ -24,7 +24,7 @@ Imports System.Xml.Serialization
Namespace eu.europa.ec
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.2046.0"), _
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code"), _
System.Web.Services.WebServiceBindingAttribute(Name:="checkVatBinding", [Namespace]:="urn:ec.europa.eu:taxud:vies:services:checkVat")> _
@@ -200,7 +200,7 @@ Namespace eu.europa.ec
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.2102.0"), _
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.3056.0"), _
System.SerializableAttribute(), _
System.Xml.Serialization.XmlTypeAttribute([Namespace]:="urn:ec.europa.eu:taxud:vies:services:checkVat:types")> _
Public Enum matchCode
@@ -219,11 +219,11 @@ Namespace eu.europa.ec
End Enum
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.2046.0")> _
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub checkVatCompletedEventHandler(ByVal sender As Object, ByVal e As checkVatCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.2046.0"), _
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class checkVatCompletedEventArgs
@@ -286,11 +286,11 @@ Namespace eu.europa.ec
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.2046.0")> _
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub checkVatApproxCompletedEventHandler(ByVal sender As Object, ByVal e As checkVatApproxCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.2046.0"), _
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class checkVatApproxCompletedEventArgs

2
SDL/Web References/eu.europa.ec/matchCode.datasource
View File

@@ -6,5 +6,5 @@
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="matchCode" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>SDL.eu.europa.ec.matchCode, Web References.eu.europa.ec.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
<TypeInfo>SDL.eu.europa.ec.matchCode, Web References.eu.europa.ec.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>

26
SDL/cEasyBinding.vb
View File

@@ -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
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")
@@ -91,6 +107,10 @@ Public Class cEasyBinding
'Private Sub bindingdataTable_ColumnChanged(sender As Object, e As DataColumnChangeEventArgs) Handles bindingdataTable.ColumnChanged
' If updateImmediately Then updateBinding()
'End Sub
End Class

8
SDL/cProgramFunctions.vb
View File

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

16
SDL/cSqlDb.vb
View File

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

211
SDL/frmChangePWD.Designer.vb generated Normal file
View File

@@ -0,0 +1,211 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmChangePWD
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(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

980
SDL/frmChangePWD.resx Normal file
View File

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

74
SDL/frmChangePWD.vb Normal file
View File

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

11
SDL/frmLogin.vb
View File

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

44
SDL/frmMain.Designer.vb generated
View File

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

7
SDL/frmMain.vb
View File

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

2
SDL/kassenbuch/KassenbuchSuche/frmKassenbuchSuche.Designer.vb generated
View File

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

2
SDL/kassenbuch/frmNacherfassungLeihgeld.vb
View File

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

2
SDL/kunden/Vorauskasse/frmVorauskasse.Designer.vb generated
View File

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

1
SDL/kunden/cKunden.vb
View File

@@ -162,6 +162,7 @@ Public Class cPartnerKdNRFMZoll
'Property MautAT_KartenNr As String
Property PLOSE_KundenNr As String
End Class

2
SDL/kunden/frmKundenSucheUebersicht.Designer.vb generated
View File

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

24
SDL/kunden/frmKundenSucheUebersicht.vb
View File

@@ -50,7 +50,7 @@ Public Class frmKundenSucheUebersicht
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

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

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

40
SDL/kunden/frmKundenUebersichtZOLL.vb
View File

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

4
SDL/kunden/frmKundenblatt.Designer.vb generated
View File

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

3
SDL/kunden/frmKundenblatt.vb
View File

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

Some files were not shown because too many files have changed in this diff Show More