diff --git a/SDL/Administration/frmKasseAbschliessen.vb b/SDL/Administration/frmKasseAbschliessen.vb index 3cdde110..b95ce435 100644 --- a/SDL/Administration/frmKasseAbschliessen.vb +++ b/SDL/Administration/frmKasseAbschliessen.vb @@ -82,7 +82,9 @@ Sub insertBELEGALT(KASSE As cRKSV_Kasse, betrag As Double) Dim BELEG_ALT As New EABeleg(PERSONAL.Mandant, PERSONAL.Niederlassung, PERSONAL.ID) '!!!!!!!!!!!!!!!! - BELEG_ALT.BelegDat = CDate("31.01." & NumericUpDown1.Value) + BELEG_ALT.BelegDat = cRKSV.getGJ_EndOfYear(NumericUpDown.Value).ToShortDateString 'CDate("31.01." & NumericUpDown1.Value) + + BELEG_ALT.Belegart = 2 'AUSGANG BELEG_ALT.Beleg_TYP = "E" BELEG_ALT.rksv_aktiv = KASSE.rksv_aktiv @@ -140,7 +142,7 @@ End Sub Sub insertBELEGNEU(KASSE As cRKSV_Kasse, betrag As Double) Dim BELEG_NEU As New EABeleg(PERSONAL.Mandant, PERSONAL.Niederlassung, PERSONAL.ID) '!!!!!!!!!!!!!!!! - BELEG_NEU.BelegDat = CDate("01.02." & NumericUpDown1.Value) + BELEG_NEU.BelegDat = cRKSV.getGJ_BeginOfYear(NumericUpDown1.Value).ToShortDateString '' CDate("01.02." & NumericUpDown1.Value) BELEG_NEU.Beleg_TYP = "E" BELEG_NEU.Belegart = 1 'EINGANG BELEG_NEU.rksv_aktiv = KASSE.rksv_aktiv diff --git a/SDL/Checkliste/frmCheckliste.vb b/SDL/Checkliste/frmCheckliste.vb index 27383e99..7bc6c0e1 100644 --- a/SDL/Checkliste/frmCheckliste.vb +++ b/SDL/Checkliste/frmCheckliste.vb @@ -668,7 +668,15 @@ Public Class frmCheckliste End If If doFilling Then Try - WebBrowser.Document.GetElementsByTagName("input").GetElementsByName("eigene_nr").Item(0).SetAttribute("value", "813570890") + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + Case "IMEX" + WebBrowser.Document.GetElementsByTagName("input").GetElementsByName("eigene_nr").Item(0).SetAttribute("value", "295575575") + Case "UNISPED" + + Case Else + WebBrowser.Document.GetElementsByTagName("input").GetElementsByName("eigene_nr").Item(0).SetAttribute("value", "813570890") + End Select + WebBrowser.Document.GetElementsByTagName("input").GetElementsByName("abfrage_nr").Item(0).SetAttribute("value", UIDNr) Select Case UIDLandKz diff --git a/SDL/Checkliste/frmEoriLink.Designer.vb b/SDL/Checkliste/frmEoriLink.Designer.vb index f4b422f1..f43854b7 100644 --- a/SDL/Checkliste/frmEoriLink.Designer.vb +++ b/SDL/Checkliste/frmEoriLink.Designer.vb @@ -36,6 +36,7 @@ Partial Class frmEoriLink Me.pnl = New System.Windows.Forms.Panel() Me.Panel1 = New System.Windows.Forms.Panel() Me.Label6 = New System.Windows.Forms.Label() + Me.Button1 = New System.Windows.Forms.Button() Me.pnl.SuspendLayout() Me.Panel1.SuspendLayout() Me.SuspendLayout() @@ -52,7 +53,7 @@ Partial Class frmEoriLink 'btnOK ' Me.btnOK.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnOK.Image = Global.SDL.My.Resources.ok + Me.btnOK.Image = Global.SDL.My.Resources.Resources.ok Me.btnOK.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnOK.Location = New System.Drawing.Point(12, 113) Me.btnOK.Name = "btnOK" @@ -64,7 +65,7 @@ Partial Class frmEoriLink 'btnNO ' Me.btnNO.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnNO.Image = Global.SDL.My.Resources.del + Me.btnNO.Image = Global.SDL.My.Resources.Resources.del Me.btnNO.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnNO.Location = New System.Drawing.Point(207, 113) Me.btnNO.Name = "btnNO" @@ -135,7 +136,7 @@ Partial Class frmEoriLink 'btnPrint ' Me.btnPrint.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnPrint.Image = Global.SDL.My.Resources.printer2 + Me.btnPrint.Image = Global.SDL.My.Resources.Resources.printer2 Me.btnPrint.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnPrint.Location = New System.Drawing.Point(712, 97) Me.btnPrint.Name = "btnPrint" @@ -156,6 +157,7 @@ Partial Class frmEoriLink ' 'Panel1 ' + Me.Panel1.Controls.Add(Me.Button1) Me.Panel1.Controls.Add(Me.Label6) Me.Panel1.Controls.Add(Me.Label2) Me.Panel1.Controls.Add(Me.btnOK) @@ -181,6 +183,20 @@ Partial Class frmEoriLink Me.Label6.TabIndex = 10 Me.Label6.Text = "Adresse in VERAG-Kunden-Datenbank:" ' + 'Button1 + ' + Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button1.Image = Global.SDL.My.Resources.Resources.pdf + Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button1.Location = New System.Drawing.Point(514, 113) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(192, 53) + Me.Button1.TabIndex = 11 + Me.Button1.Text = "Als Sendungsanhang" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "speichern" + Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.Button1.UseVisualStyleBackColor = True + Me.Button1.Visible = False + ' 'frmEoriLink ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -212,4 +228,5 @@ Partial Class frmEoriLink Friend WithEvents pnl As System.Windows.Forms.Panel Friend WithEvents Panel1 As System.Windows.Forms.Panel Friend WithEvents Label6 As System.Windows.Forms.Label + Friend WithEvents Button1 As Button End Class diff --git a/SDL/Checkliste/frmEoriLink.vb b/SDL/Checkliste/frmEoriLink.vb index 136fb4ab..7321747a 100644 --- a/SDL/Checkliste/frmEoriLink.vb +++ b/SDL/Checkliste/frmEoriLink.vb @@ -2,7 +2,10 @@ Public link As String Dim printed As Boolean = False Public frmCheckliste As frmCheckliste + Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load + Button1.Enabled = (VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID > 0) + If frmCheckliste.txtEori.Text <> "" Then WebBrowser1.Navigate(link) Label3.Text = frmCheckliste.txtFirma.Text @@ -57,4 +60,12 @@ Me.Top = 0 End Sub + Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click + + Dim pdf = VERAG_PROG_ALLGEMEIN.cFormularManager.getPDFViaSpirePDF_FromURL(WebBrowser1.Url.AbsoluteUri.ToString) + Process.Start(pdf) + 'frmLKW_AnhaengeDatenarchiv. + ' saveToDS(AvisoId, fileName, sourcePath, Art, Typ, Optional ByRef da_id = -1, Optional ByRef anhId = -1, Optional ByRef destPath = "", Optional SendungsId = Nothing) + 'VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID + End Sub End Class \ No newline at end of file diff --git a/SDL/Classes/cKassenbuch.vb b/SDL/Classes/cKassenbuch.vb index f95b05fe..d387e2ce 100644 --- a/SDL/Classes/cKassenbuch.vb +++ b/SDL/Classes/cKassenbuch.vb @@ -4,7 +4,7 @@ Public Class cKassenbuch Property Mandant As String = "VERA" Property Niederlassung As String = "SUB" Property Benutzer As Integer = -1 - Property Geschäftsjahr As Integer = IIf(Now.Month = 1, Now.Year - 1, Now.Year) + Property Geschäftsjahr As Integer = cRKSV.getGJ(Now) ' IIf(Now.Month = 1, Now.Year - 1, Now.Year) Property JournalNr As Integer = -1 Property Buchungsdatum As Object = Nothing Property BelegDat As Object = Nothing diff --git a/SDL/Classes/cRKSV.vb b/SDL/Classes/cRKSV.vb index 61fe7a97..5a155ccb 100644 --- a/SDL/Classes/cRKSV.vb +++ b/SDL/Classes/cRKSV.vb @@ -336,7 +336,32 @@ Public Class cRKSV Return BELEG End Function Shared Function getGJ(BelegDat As Date) As Integer - Return IIf(BelegDat.Month = 1, BelegDat.Year - 1, BelegDat.Year) + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + Case "IMEX", "FRONTOFFICE" + Return BelegDat.Year + Case Else + Return IIf(BelegDat.Month = 1, BelegDat.Year - 1, BelegDat.Year) + End Select + + End Function + + + Shared Function getGJ_EndOfYear(GeschaerftsJahr As Integer) As Date + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + Case "IMEX", "FRONTOFFICE" + Return CDate("31.12." & GeschaerftsJahr) + Case Else + Return CDate("31.01." & (GeschaerftsJahr + 1)) + End Select + End Function + + Shared Function getGJ_BeginOfYear(GeschaerftsJahr As Integer) As Date + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + Case "IMEX", "FRONTOFFICE" + Return CDate("01.01." & GeschaerftsJahr) + Case Else + Return CDate("01.02." & GeschaerftsJahr) + End Select End Function Public Shared Function isforbiddenDate() As Boolean diff --git a/SDL/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA.vb b/SDL/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA.vb index bf770395..0e5b0ee7 100644 --- a/SDL/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA.vb +++ b/SDL/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA.vb @@ -115,7 +115,18 @@ Public Class usrCntlATLAS_EZA Function getBezugsnr(ByRef BezugsNr) - BezugsNr = SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr '& If(zusatz <> "", "/" & zusatz, "") 'zusatz ' & "/" & Jahr2Stellig + Dim BezugsNrTmp = "" + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + Case "UNISPED" + If If(SENDUNG.tblSnd_DakosyRef, "") <> "" Then + BezugsNrTmp = SENDUNG.tblSnd_DakosyRef + Else + BezugsNrTmp = SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr + End If + Case Else + BezugsNrTmp = SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr '& If(zusatz <> "", "/" & zusatz, "") 'zusatz ' & "/" & Jahr2Stellig + End Select + BezugsNr = BezugsNrTmp zusatz = "A" 'Soloagne bis die Bezugsnummer noch nicht existiert While DAKOSY_Worker.cDakosy_Zollanmeldungen.ExistsBezugsNr(BezugsNr) 'IsNot Nothing @@ -127,8 +138,9 @@ Public Class usrCntlATLAS_EZA End If If zusatz = "Z" Then zusatz = "AA" End While - lblBezugsnummer.Text = BezugsNr - Return BezugsNr + lblBezugsnummer.Text = BezugsNr + + Return BezugsNr End Function diff --git a/SDL/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS.vb b/SDL/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS.vb index 0d8f168c..7d68f9d7 100644 --- a/SDL/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS.vb +++ b/SDL/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS.vb @@ -113,12 +113,22 @@ Public Class usrCntlATLAS_NCTS End Sub Function getBezugsnr(ByRef BezugsNr) - - BezugsNr = SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr '& If(zusatz <> "", "/" & zusatz, "") 'zusatz ' & "/" & Jahr2Stellig + Dim BezugsNrTmp = "" + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + Case "UNISPED" + If If(SENDUNG.tblSnd_DakosyRef, "") <> "" Then + BezugsNrTmp = SENDUNG.tblSnd_DakosyRef + Else + BezugsNrTmp = SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr + End If + Case Else + BezugsNrTmp = SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr '& If(zusatz <> "", "/" & zusatz, "") 'zusatz ' & "/" & Jahr2Stellig + End Select + BezugsNr = BezugsNrTmp zusatz = "A" 'Soloagne bis die Bezugsnummer noch nicht existiert While DAKOSY_Worker.cDakosy_Zollanmeldungen.ExistsBezugsNr(BezugsNr) 'IsNot Nothing - BezugsNr = SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr & "/" & zusatz + BezugsNr = BezugsNrTmp & "/" & zusatz If zusatz.Length = 1 Then zusatz = Chr(Asc(zusatz.ToString) + 1) diff --git a/SDL/DAKOSY/ATLAS/cDakosyInterface_Send.vb b/SDL/DAKOSY/ATLAS/cDakosyInterface_Send.vb index 04c6ac33..690375f6 100644 --- a/SDL/DAKOSY/ATLAS/cDakosyInterface_Send.vb +++ b/SDL/DAKOSY/ATLAS/cDakosyInterface_Send.vb @@ -148,6 +148,9 @@ Class DAKOSY_Interface_SEND Case "WAI" : Return "WAI" Case Else : Return "SUB" End Select + + Case "UNISPED" + Return ""'"ATSP" Case "IMEX" If fiskal Then Return "GLO" @@ -173,6 +176,8 @@ Class DAKOSY_Interface_SEND Return "DUR" Case "IMEX" Return "IMEX" + Case "UNISPED" + Return "UNAT" Case Else : Return "VERG" End Select End If diff --git a/SDL/DAKOSY/Stammreferenz/frmDakosyStammreferenz.vb b/SDL/DAKOSY/Stammreferenz/frmDakosyStammreferenz.vb index e3c30b43..bd105e59 100644 --- a/SDL/DAKOSY/Stammreferenz/frmDakosyStammreferenz.vb +++ b/SDL/DAKOSY/Stammreferenz/frmDakosyStammreferenz.vb @@ -39,6 +39,7 @@ 'End Select Case "ATILLA" : txtDyMandant.Text = "ATIL" : txtDyNiederlassung.Text = "SUW" Case "IMEX" : txtDyMandant.Text = "IMEX" : txtDyNiederlassung.Text = If(nl <> "", nl, "IME") + Case "UNISPED" : txtDyMandant.Text = "UNAT" : txtDyNiederlassung.Text = "ATSP" End Select cboVerfahren.Items.Clear() diff --git a/SDL/DAKOSY/Stammreferenz/frmDakosyStammreferenzVerwalten.vb b/SDL/DAKOSY/Stammreferenz/frmDakosyStammreferenzVerwalten.vb index 3b36911e..3c0938a9 100644 --- a/SDL/DAKOSY/Stammreferenz/frmDakosyStammreferenzVerwalten.vb +++ b/SDL/DAKOSY/Stammreferenz/frmDakosyStammreferenzVerwalten.vb @@ -16,6 +16,7 @@ cboMandant.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERG", "VERG")) cboMandant.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATIL", "ATIL")) cboMandant.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IMEX", "IMEX")) + cboMandant.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNAT", "UNAT")) cboLand.changeItem("DE") cboVerfahren.changeItem("EZA") @@ -24,6 +25,7 @@ Case "VERAG" : cboMandant.changeItem("VERG") Case "ATILLA" : cboMandant.changeItem("ATIL") : cboVerfahren.changeItem("NCTS") Case "IMEX" : cboMandant.changeItem("IMEX") + Case "UNISPED" : cboMandant.changeItem("UNAT") End Select End Sub @@ -239,6 +241,9 @@ Case "ATIL" cboNL.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SUW", "SUW")) cboNL.changeItem("SUW") + Case "UNAT" + cboNL.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATSP", "ATSP")) + cboNL.changeItem("ATSP") End Select initDGV() @@ -252,7 +257,6 @@ End Sub Private Sub cboNL_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboNL.SelectedIndexChanged - initDGV() End Sub diff --git a/SDL/DAKOSY/usrCntlAdresse.Designer.vb b/SDL/DAKOSY/usrCntlAdresse.Designer.vb index e9ee9acb..2f12c9e0 100644 --- a/SDL/DAKOSY/usrCntlAdresse.Designer.vb +++ b/SDL/DAKOSY/usrCntlAdresse.Designer.vb @@ -37,6 +37,7 @@ Partial Class usrCntlAdresse Me.sbLand = New VERAG_PROG_ALLGEMEIN.MySearchBox() Me.txtkdNr = New System.Windows.Forms.Label() Me.FlatButton3 = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.FlatButton1 = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.SuspendLayout() ' 'Label12 @@ -80,6 +81,7 @@ Partial Class usrCntlAdresse Me.txtPlz._TimeOnly = False Me.txtPlz._value = "" Me.txtPlz._Waehrung = False + Me.txtPlz._WaehrungZeichen = True Me.txtPlz.ForeColor = System.Drawing.Color.Black Me.txtPlz.Location = New System.Drawing.Point(97, 57) Me.txtPlz.MaxLength = 9 @@ -101,6 +103,7 @@ Partial Class usrCntlAdresse Me.txtStrasse._TimeOnly = False Me.txtStrasse._value = Nothing Me.txtStrasse._Waehrung = False + Me.txtStrasse._WaehrungZeichen = True Me.txtStrasse.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.txtStrasse.ForeColor = System.Drawing.Color.Black @@ -117,6 +120,7 @@ Partial Class usrCntlAdresse ' Me.kdFirma._AllowSetValue = True Me.kdFirma._autoSizeGross = False + Me.kdFirma._display_Name1 = False Me.kdFirma._displayAVISO_Email = False Me.kdFirma._displayFullName = True Me.kdFirma._displayWoelflKd = False @@ -129,12 +133,13 @@ Partial Class usrCntlAdresse Me.kdFirma.KdName = Nothing Me.kdFirma.KdNr = "-1" Me.kdFirma.kdNrField = Nothing + Me.kdFirma.KdNrNullInt = Nothing Me.kdFirma.Location = New System.Drawing.Point(51, 19) Me.kdFirma.MaxLength = 35 Me.kdFirma.Name = "kdFirma" Me.kdFirma.nurAktive = True Me.kdFirma.searchActive = True - Me.kdFirma.Size = New System.Drawing.Size(329, 20) + Me.kdFirma.Size = New System.Drawing.Size(305, 20) Me.kdFirma.TabIndex = 0 Me.kdFirma.usrcntl = Nothing ' @@ -159,6 +164,7 @@ Partial Class usrCntlAdresse Me.txtEORI._TimeOnly = False Me.txtEORI._value = Nothing Me.txtEORI._Waehrung = False + Me.txtEORI._WaehrungZeichen = True Me.txtEORI.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.txtEORI.ForeColor = System.Drawing.Color.Black @@ -182,6 +188,7 @@ Partial Class usrCntlAdresse Me.txtEORINL._TimeOnly = False Me.txtEORINL._value = "" Me.txtEORINL._Waehrung = False + Me.txtEORINL._WaehrungZeichen = True Me.txtEORINL.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.txtEORINL.ForeColor = System.Drawing.Color.Black Me.txtEORINL.Location = New System.Drawing.Point(333, 83) @@ -214,6 +221,7 @@ Partial Class usrCntlAdresse Me.txtAnsprechpartner._TimeOnly = False Me.txtAnsprechpartner._value = Nothing Me.txtAnsprechpartner._Waehrung = False + Me.txtAnsprechpartner._WaehrungZeichen = True Me.txtAnsprechpartner.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.txtAnsprechpartner.ForeColor = System.Drawing.Color.Black @@ -237,6 +245,7 @@ Partial Class usrCntlAdresse Me.txtOrt._TimeOnly = False Me.txtOrt._value = Nothing Me.txtOrt._Waehrung = False + Me.txtOrt._WaehrungZeichen = True Me.txtOrt.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.txtOrt.ForeColor = System.Drawing.Color.Black @@ -276,7 +285,7 @@ Partial Class usrCntlAdresse 'txtkdNr ' Me.txtkdNr.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.txtkdNr.Location = New System.Drawing.Point(297, 3) + Me.txtkdNr.Location = New System.Drawing.Point(273, 3) Me.txtkdNr.Name = "txtkdNr" Me.txtkdNr.Size = New System.Drawing.Size(83, 13) Me.txtkdNr.TabIndex = 31 @@ -290,18 +299,33 @@ Partial Class usrCntlAdresse Me.FlatButton3.FlatAppearance.BorderSize = 0 Me.FlatButton3.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.FlatButton3.ForeColor = System.Drawing.Color.Black - Me.FlatButton3.Image = Global.SDL.My.Resources.personInaktiv - Me.FlatButton3.Location = New System.Drawing.Point(379, 14) + Me.FlatButton3.Image = Global.SDL.My.Resources.Resources.personInaktiv + Me.FlatButton3.Location = New System.Drawing.Point(355, 14) Me.FlatButton3.Name = "FlatButton3" Me.FlatButton3.Size = New System.Drawing.Size(24, 25) Me.FlatButton3.TabIndex = 32 Me.FlatButton3.UseVisualStyleBackColor = True ' + 'FlatButton1 + ' + Me.FlatButton1.allowBorder = False + Me.FlatButton1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.FlatButton1.FlatAppearance.BorderSize = 0 + Me.FlatButton1.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.FlatButton1.ForeColor = System.Drawing.Color.Black + Me.FlatButton1.Image = Global.SDL.My.Resources.Resources.person_add + Me.FlatButton1.Location = New System.Drawing.Point(379, 14) + Me.FlatButton1.Name = "FlatButton1" + Me.FlatButton1.Size = New System.Drawing.Size(24, 25) + Me.FlatButton1.TabIndex = 33 + Me.FlatButton1.UseVisualStyleBackColor = True + ' 'usrCntlAdresse ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.BackColor = System.Drawing.Color.White + Me.Controls.Add(Me.FlatButton1) Me.Controls.Add(Me.txtkdNr) Me.Controls.Add(Me.sbLand) Me.Controls.Add(Me.txtStrasse) @@ -338,5 +362,5 @@ Partial Class usrCntlAdresse Friend WithEvents sbLand As VERAG_PROG_ALLGEMEIN.MySearchBox Friend WithEvents txtkdNr As System.Windows.Forms.Label Friend WithEvents FlatButton3 As VERAG_PROG_ALLGEMEIN.FlatButton - + Friend WithEvents FlatButton1 As VERAG_PROG_ALLGEMEIN.FlatButton End Class diff --git a/SDL/DAKOSY/usrCntlAdresse.vb b/SDL/DAKOSY/usrCntlAdresse.vb index 46162890..96251937 100644 --- a/SDL/DAKOSY/usrCntlAdresse.vb +++ b/SDL/DAKOSY/usrCntlAdresse.vb @@ -66,4 +66,40 @@ Public Class usrCntlAdresse Me.Cursor = Cursors.Default End If End Sub + + Private Sub FlatButton1_Click(sender As Object, e As EventArgs) Handles FlatButton1.Click + newKunde(kdFirma) + End Sub + + + Sub newKunde(KD As VERAG_PROG_ALLGEMEIN.KdSearchBox) + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Kundendaten_bearbeiten", "SDL") Then + Dim frmKundenblatt As New SDL.frmKundenblatt + frmKundenblatt.showEdit = True + frmKundenblatt.kdNr = -1 + 'frmKundenblatt.BERECHTIGUNEN = BERECHTIGUNEN + If frmKundenblatt.ShowDialog(Me) Then + If frmKundenblatt.kdNr > 0 Then + KD.KdNr = frmKundenblatt.kdNr + End If + End If + Else + Dim frmKd As New SDL.frmNeuerKunde + frmKd.openKd = False + frmKd.timerIntervall = 500 + frmKd.username = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.mit_username + If frmKd.username.Length > 15 Then frmKd.username = frmKd.username.Substring(0, 15) + frmKd.tmpFiliale = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.StandartFiliale + ' frmKd.tmpKdNrKreis = 9 + If KD.KdNr = -1 Then + frmKd.tmpKdName = KD.Text + End If + frmKd.ShowDialog() + If frmKd.kdnr > 0 Then + KD.KdNr = frmKd.kdnr + End If + + End If + + End Sub End Class diff --git a/SDL/DAKOSY/usrCntlAdresseEZA.Designer.vb b/SDL/DAKOSY/usrCntlAdresseEZA.Designer.vb index f172cf1d..dc82b187 100644 --- a/SDL/DAKOSY/usrCntlAdresseEZA.Designer.vb +++ b/SDL/DAKOSY/usrCntlAdresseEZA.Designer.vb @@ -38,6 +38,7 @@ Partial Class usrCntlAdresseEZA Me.Label3 = New System.Windows.Forms.Label() Me.txtName2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtName1 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.FlatButton1 = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.SuspendLayout() ' 'Label12 @@ -81,6 +82,7 @@ Partial Class usrCntlAdresseEZA Me.txtPlz._TimeOnly = False Me.txtPlz._value = "" Me.txtPlz._Waehrung = False + Me.txtPlz._WaehrungZeichen = True Me.txtPlz.ForeColor = System.Drawing.Color.Black Me.txtPlz.Location = New System.Drawing.Point(97, 108) Me.txtPlz.MaxLength = 9 @@ -102,6 +104,7 @@ Partial Class usrCntlAdresseEZA Me.txtStrasse._TimeOnly = False Me.txtStrasse._value = Nothing Me.txtStrasse._Waehrung = False + Me.txtStrasse._WaehrungZeichen = True Me.txtStrasse.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.txtStrasse.ForeColor = System.Drawing.Color.Black @@ -137,7 +140,7 @@ Partial Class usrCntlAdresseEZA Me.kdFirma.Name = "kdFirma" Me.kdFirma.nurAktive = True Me.kdFirma.searchActive = True - Me.kdFirma.Size = New System.Drawing.Size(329, 20) + Me.kdFirma.Size = New System.Drawing.Size(305, 20) Me.kdFirma.TabIndex = 0 Me.kdFirma.usrcntl = Nothing ' @@ -162,6 +165,7 @@ Partial Class usrCntlAdresseEZA Me.txtEORI._TimeOnly = False Me.txtEORI._value = Nothing Me.txtEORI._Waehrung = False + Me.txtEORI._WaehrungZeichen = True Me.txtEORI.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.txtEORI.ForeColor = System.Drawing.Color.Black @@ -185,6 +189,7 @@ Partial Class usrCntlAdresseEZA Me.txtEORINL._TimeOnly = False Me.txtEORINL._value = "" Me.txtEORINL._Waehrung = False + Me.txtEORINL._WaehrungZeichen = True Me.txtEORINL.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.txtEORINL.ForeColor = System.Drawing.Color.Black Me.txtEORINL.Location = New System.Drawing.Point(333, 134) @@ -207,6 +212,7 @@ Partial Class usrCntlAdresseEZA Me.txtOrt._TimeOnly = False Me.txtOrt._value = Nothing Me.txtOrt._Waehrung = False + Me.txtOrt._WaehrungZeichen = True Me.txtOrt.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.txtOrt.ForeColor = System.Drawing.Color.Black @@ -246,7 +252,7 @@ Partial Class usrCntlAdresseEZA 'txtkdNr ' Me.txtkdNr.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.txtkdNr.Location = New System.Drawing.Point(297, 3) + Me.txtkdNr.Location = New System.Drawing.Point(273, 3) Me.txtkdNr.Name = "txtkdNr" Me.txtkdNr.Size = New System.Drawing.Size(83, 13) Me.txtkdNr.TabIndex = 31 @@ -260,8 +266,8 @@ Partial Class usrCntlAdresseEZA Me.FlatButton3.FlatAppearance.BorderSize = 0 Me.FlatButton3.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.FlatButton3.ForeColor = System.Drawing.Color.Black - Me.FlatButton3.Image = Global.SDL.My.Resources.personInaktiv - Me.FlatButton3.Location = New System.Drawing.Point(379, 14) + Me.FlatButton3.Image = Global.SDL.My.Resources.Resources.personInaktiv + Me.FlatButton3.Location = New System.Drawing.Point(355, 14) Me.FlatButton3.Name = "FlatButton3" Me.FlatButton3.Size = New System.Drawing.Size(24, 25) Me.FlatButton3.TabIndex = 32 @@ -288,6 +294,7 @@ Partial Class usrCntlAdresseEZA Me.txtName2._TimeOnly = False Me.txtName2._value = Nothing Me.txtName2._Waehrung = False + Me.txtName2._WaehrungZeichen = True Me.txtName2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.txtName2.ForeColor = System.Drawing.Color.Black @@ -311,6 +318,7 @@ Partial Class usrCntlAdresseEZA Me.txtName1._TimeOnly = False Me.txtName1._value = Nothing Me.txtName1._Waehrung = False + Me.txtName1._WaehrungZeichen = True Me.txtName1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.txtName1.ForeColor = System.Drawing.Color.Black @@ -323,11 +331,26 @@ Partial Class usrCntlAdresseEZA Me.txtName1.Size = New System.Drawing.Size(352, 20) Me.txtName1.TabIndex = 35 ' + 'FlatButton1 + ' + Me.FlatButton1.allowBorder = False + Me.FlatButton1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.FlatButton1.FlatAppearance.BorderSize = 0 + Me.FlatButton1.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.FlatButton1.ForeColor = System.Drawing.Color.Black + Me.FlatButton1.Image = Global.SDL.My.Resources.Resources.person_add + Me.FlatButton1.Location = New System.Drawing.Point(379, 14) + Me.FlatButton1.Name = "FlatButton1" + Me.FlatButton1.Size = New System.Drawing.Size(24, 25) + Me.FlatButton1.TabIndex = 36 + Me.FlatButton1.UseVisualStyleBackColor = True + ' 'usrCntlAdresseEZA ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.BackColor = System.Drawing.Color.White + Me.Controls.Add(Me.FlatButton1) Me.Controls.Add(Me.txtName1) Me.Controls.Add(Me.txtName2) Me.Controls.Add(Me.Label3) @@ -366,5 +389,5 @@ Partial Class usrCntlAdresseEZA Friend WithEvents Label3 As System.Windows.Forms.Label Friend WithEvents txtName2 As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents txtName1 As VERAG_PROG_ALLGEMEIN.MyTextBox - + Friend WithEvents FlatButton1 As VERAG_PROG_ALLGEMEIN.FlatButton End Class diff --git a/SDL/DAKOSY/usrCntlAdresseEZA.vb b/SDL/DAKOSY/usrCntlAdresseEZA.vb index 89f5260f..b65ac75f 100644 --- a/SDL/DAKOSY/usrCntlAdresseEZA.vb +++ b/SDL/DAKOSY/usrCntlAdresseEZA.vb @@ -69,5 +69,40 @@ Public Class usrCntlAdresseEZA End If End Sub - + + Private Sub FlatButton1_Click(sender As Object, e As EventArgs) Handles FlatButton1.Click + newKunde(kdFirma) + End Sub + + + Sub newKunde(KD As VERAG_PROG_ALLGEMEIN.KdSearchBox) + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Kundendaten_bearbeiten", "SDL") Then + Dim frmKundenblatt As New SDL.frmKundenblatt + frmKundenblatt.showEdit = True + frmKundenblatt.kdNr = -1 + 'frmKundenblatt.BERECHTIGUNEN = BERECHTIGUNEN + If frmKundenblatt.ShowDialog(Me) Then + If frmKundenblatt.kdNr > 0 Then + KD.KdNr = frmKundenblatt.kdNr + End If + End If + Else + Dim frmKd As New SDL.frmNeuerKunde + frmKd.openKd = False + frmKd.timerIntervall = 500 + frmKd.username = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.mit_username + If frmKd.username.Length > 15 Then frmKd.username = frmKd.username.Substring(0, 15) + frmKd.tmpFiliale = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.StandartFiliale + ' frmKd.tmpKdNrKreis = 9 + If KD.KdNr = -1 Then + frmKd.tmpKdName = KD.Text + End If + frmKd.ShowDialog() + If frmKd.kdnr > 0 Then + KD.KdNr = frmKd.kdnr + End If + + End If + + End Sub End Class diff --git a/SDL/Fakturierung/cFakturierung.vb b/SDL/Fakturierung/cFakturierung.vb index 74cd3744..94660a19 100644 --- a/SDL/Fakturierung/cFakturierung.vb +++ b/SDL/Fakturierung/cFakturierung.vb @@ -181,7 +181,48 @@ Public Class cFakturierung End Function + Shared Sub setGesamtBetraege(ByRef RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, Optional Steuersatz_Proz As Object = Nothing) + Dim steuerPflichtigerBetrag As Double = 0 + Dim steuerFreierBetrag As Double = 0 + Dim Abfertigungskosten As Double = 0 + Dim vorzeichen = 1 'If(RECHNUNG.Vorzeichen = "-", -1, 1) + If Steuersatz_Proz IsNot Nothing Then + RECHNUNG.Steuersatz_Proz = CDbl(Steuersatz_Proz) + End If ' RECHNUNG.Steuersatz_Proz = If(txtSteuersatz._value, 0) + For Each POS In RECHNUNG.POSITIONEN + If POS.Anzahl > 0 And POS.Preis <> 0 Then 'HIER WIRD GEFILTERT --> Nur wo etwas zu verrechnen ist! + If CBool(POS.Steuerpflichtig) Then + steuerPflichtigerBetrag += POS.SteuerpflichtigerBetrag + Else + steuerFreierBetrag += POS.SteuerfreierBetrag + End If + + If CBool(SQL.DLookup("[Abfertigungskosten]", "Leistungen", "[LeistungsNr]=" & POS.[LeistungsNr], "FMZOLL", False)) Then + + Abfertigungskosten += VERAG_PROG_ALLGEMEIN.cProgramFunctions.fktEuro(POS.[SteuerpflichtigerBetrag], RECHNUNG.Währungscode, "EUR") + Abfertigungskosten += VERAG_PROG_ALLGEMEIN.cProgramFunctions.fktEuro(POS.[SteuerfreierBetrag], RECHNUNG.Währungscode, "EUR") + + End If + End If + Next + + RECHNUNG.Abfertigungskosten = Abfertigungskosten * vorzeichen + + steuerFreierBetrag *= vorzeichen + steuerPflichtigerBetrag *= vorzeichen + steuerFreierBetrag *= vorzeichen + + Dim steuerBetrag As Double = 0 + If RECHNUNG.Steuersatz_Proz <> 0 Then + steuerBetrag = steuerPflichtigerBetrag * RECHNUNG.Steuersatz_Proz + RECHNUNG.SteuerpflichtigerGesamtbetrag = steuerPflichtigerBetrag + steuerBetrag + RECHNUNG.SteuerfreierGesamtbetrag = steuerFreierBetrag + Else + RECHNUNG.SteuerpflichtigerGesamtbetrag = 0 + RECHNUNG.SteuerfreierGesamtbetrag = steuerFreierBetrag + steuerPflichtigerBetrag + End If + End Sub Shared Function przRechnungstext(ByRef RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang) As String ', ByRef strZahlbar As String, ByRef strText As String) @@ -215,22 +256,20 @@ Public Class cFakturierung 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") + 'DA STIMMT WAS NICHT:::::: + '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") + ' 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 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 + ' If ZahlungszielKunde <> "" Then 'Zahlungsziel für Kunde verwenden + ' RECHNUNG.Nettozahlungsziel = ZahlungszielKunde + ' strZahlbar = If(ZahlungszielText <> "", ZahlungszielText, "Rechnung zahlbar spätestens bis") & " " & ZahlungszielKunde & "!" + ' ElseIf ZahlungszielOffert <> "" Then 'Zahlungsziel für Offerte verwenden + ' RECHNUNG.Nettozahlungsziel = ZahlungszielOffert + ' strZahlbar = If(ZahlungszielText <> "", ZahlungszielText, "Rechnung zahlbar spätestens bis") & " " & ZahlungszielOffert & "!" + ' End If + 'End If ' Text bei Zoll oder EUSt drucken @@ -382,7 +421,8 @@ Public Class cFakturierung Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Case "IMEX" If Rechnung.RechnungsLandKz = "TR" Then - rpt.txtBank1.Text = "Garanti Bank " & vbNewLine & "IBAN:TR84 0006 2001 6040 0009 0987 13 " & vbNewLine & "BLZ Sube.: 1604 - Beykent Ticari - Hesap: 9098713" + 'rpt.txtBank1.Text = "Garanti Bank " & vbNewLine & "IBAN:TR84 0006 2001 6040 0009 0987 13 " & vbNewLine & "BLZ Sube.: 1604 - Beykent Ticari - Hesap: 9098713" + rpt.txtBank1.Text = "Garanti Bank " & vbNewLine & "IBAN:TR21 0006 2000 5440 0009 0818 67" & vbNewLine & "BLZ Sube.: 544 - Beykent Ticari - Hesap: 9081867" rpt.txtBank2.Text = "" Else If hasVK(Rechnung) Then @@ -668,6 +708,13 @@ Public Class cFakturierung If rpt.txtAnlagen.Text.Replace(" ", "") = "" Then rpt.lblAnlagenUeberschrift.Visible = False End If + + rpt.txtHandlingATA.Text = If(RECHNUNG.Handling, "") + If rpt.txtHandlingATA.Text.Replace(" ", "") = "" Then + rpt.lblHandlingATA.Visible = False + End If + + 'rpt.lblMandantNiederlassung.Text = PERSONAL.Mandant & " / " & PERSONAL.Niederlassung 'ANLAGE ZUR RECHNUNG: @@ -816,7 +863,7 @@ Public Class cFakturierung End If 'Rechnugnsdruck = Individuell für deise Rechnung, wird optional mitgegeben - Dim RG_Bezeichnung = "VERAG_Rechnung_" & If(RECHNUNG.RechnungsNr, "") & ".pdf" + Dim RG_Bezeichnung = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "_Rechnung_" & If(RECHNUNG.RechnungsNr, "") & ".pdf" 'Immer Exportieren, da in Therefore speichern Dim tmpPath = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(RG_Bezeichnung, ".pdf", , False) @@ -925,6 +972,9 @@ Public Class cFakturierung Case "VERAG" : firma = 1 Case "IMEX" : firma = 20 Case "ATILLA" : firma = 7 + Case "UNISPED" : firma = 21 + Case "AMBAR" : firma = 22 + Case "FRONTOFFICE" : firma = 23 Case Else : firma = 1 End Select End If @@ -996,7 +1046,7 @@ Public Class cFakturierung End If ' RECHNUNG.Buchungsjahr = If(Now.Month = 1, Now.Year - 1, Now.Year) End If - RECHNUNG.Buchungsjahr = If(CDate(RECHNUNG.[RechnungsDatum]).Month = 1, CDate(RECHNUNG.[RechnungsDatum]).Year - 1, CDate(RECHNUNG.[RechnungsDatum]).Year) + RECHNUNG.Buchungsjahr = cRKSV.getGJ(RECHNUNG.[RechnungsDatum]) ' If(CDate(RECHNUNG.[RechnungsDatum]).Month = 1, CDate(RECHNUNG.[RechnungsDatum]).Year - 1, CDate(RECHNUNG.[RechnungsDatum]).Year) If RECHNUNG.Buchungsjahr < 2000 Then MsgBox("Buchungsjahr im falschen Format!") @@ -1112,7 +1162,7 @@ Public Class cFakturierung If dt Is Nothing Then MsgBox("ERR01: Keine Daten") : Return True If dt.Rows.Count = 0 Then MsgBox("ERR02: Keine Daten") : Return True - Dim Buchungsjahr = IIf(Rechnungsdatum.Month = 1, Rechnungsdatum.Year - 1, Rechnungsdatum.Year) + Dim Buchungsjahr = cRKSV.getGJ(Rechnungsdatum) 'IIf(Rechnungsdatum.Month = 1, Rechnungsdatum.Year - 1, Rechnungsdatum.Year) Dim Aktuelle_RgNr As Integer = getNewRgNr(Firma_ID, Buchungsjahr) 'Nimmt die aktuelle RgNr und zählt eine Pos. hoch. @@ -1227,7 +1277,7 @@ Public Class cFakturierung If list.Count > 0 Then ' pathPDF = "" 'PAD Pfad zurückgeben!!!!!! - pathPDF = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("VERAG_Sammelrechnung_" & RechnungsNr & ".pdf", ".pdf", False, False) + pathPDF = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "_Sammelrechnung_" & RechnungsNr & ".pdf", ".pdf", False, False) If Not FormularManagerNEU.MergePdfFiles(list, pathPDF) Then pathPDF = "" : MsgBox("Fehler PDF") @@ -1388,6 +1438,10 @@ Public Class cFakturierung If RECHNUNG.LKW_Kennzeichen <> "" Then rpt.txtSendungsdetails.Text &= "LKW-Kennzeichen: " & RECHNUNG.LKW_Kennzeichen & vbNewLine If RECHNUNG.BelegNr <> "" Then rpt.txtSendungsdetails.Text &= "Zollbeleg-Nr.: " & RECHNUNG.BelegNr & vbNewLine + If If(RECHNUNG.Handling, "") <> "" Then + rpt.txtSendungsdetails.Text &= "Handling: " & RECHNUNG.Handling.ToString.Replace(vbNewLine, ", ").Replace(vbCr, ", ").Replace(vbLf, ", ") & vbNewLine + End If + If True Then 'ANLAGEN Dim Anlagen = "" If If(RECHNUNG.Anlage_1, "") <> "" Then Anlagen &= RECHNUNG.Anlage_1 & ", " @@ -1400,6 +1454,8 @@ Public Class cFakturierung If Anlagen.Replace(" ", "").Trim <> "" Then rpt.txtSendungsdetails.Text &= "Anlagen: " & Anlagen End If + + rpt.txtSendungsdetails.Text = rpt.txtSendungsdetails.Text.Trim rpt.txtKdAuftragsnummer.Text = If(RECHNUNG.KdAuftragsNr, "") @@ -1466,7 +1522,7 @@ Public Class cFakturierung 'ORIGINAL Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(ROW("RechnungsKundenNr")) - Dim RG_Bezeichnung = "VERAG_Rechnung_" & RechnungsNr & ".pdf" + Dim RG_Bezeichnung = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & " _Rechnung_" & RechnungsNr & ".pdf" 'Rechnugnsdruck = Individuell für deise Rechnung, wird optional mitgegeben Dim tmpPath = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(RG_Bezeichnung, ".pdf", , False) @@ -1489,9 +1545,9 @@ Public Class cFakturierung Dim outl As New Outlook.Application Dim Mail As Microsoft.Office.Interop.Outlook.MailItem Mail = outl.CreateItem(0) - Mail.Subject = "VERAG Rechnung Nr. " & ROW("RechnungsNr") + Mail.Subject = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & " Rechnung Nr. " & ROW("RechnungsNr") Mail.HTMLBody = "Sehr geehrte Damen und Herren,

anbei erhalten Sie die Rechnung Nr. " & ROW("RechnungsNr") & "." - Mail.Attachments.Add(tmpPath, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , "VERAG_Formular.pdf") + Mail.Attachments.Add(tmpPath, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "_Formular.pdf") Mail.Display() Catch ex As Exception @@ -1764,7 +1820,7 @@ Public Class cFakturierung 'ORIGINAL Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(ROW("RechnungsKundenNr")) - Dim RG_Bezeichnung = "VERAG_Rechnung_" & RechnungsNr & ".pdf" + Dim RG_Bezeichnung = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "_Rechnung_" & RechnungsNr & ".pdf" 'Rechnugnsdruck = Individuell für deise Rechnung, wird optional mitgegeben ' MsgBox("RechnungsdruckArt2: " & If(Rechnugnsdruck > 0, Rechnugnsdruck, If(AD.Rechnungsdruck, 0))) @@ -1795,9 +1851,9 @@ Public Class cFakturierung Dim outl As New Outlook.Application Dim Mail As Microsoft.Office.Interop.Outlook.MailItem Mail = outl.CreateItem(0) - Mail.Subject = "VERAG Rechnung Nr. " & ROW("RechnungsNr") + Mail.Subject = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & " Rechnung Nr. " & ROW("RechnungsNr") Mail.HTMLBody = "Sehr geehrte Damen und Herren,

anbei erhalten Sie die Rechnung Nr. " & ROW("RechnungsNr") & "." - Mail.Attachments.Add(tmpPath, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , "VERAG_Formular.pdf") + Mail.Attachments.Add(tmpPath, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "_Formular.pdf") Mail.Display() Catch ex As Exception diff --git a/SDL/Fakturierung/frmAbrechnungsMaske.vb b/SDL/Fakturierung/frmAbrechnungsMaske.vb index cd34abf2..991c8e5c 100644 --- a/SDL/Fakturierung/frmAbrechnungsMaske.vb +++ b/SDL/Fakturierung/frmAbrechnungsMaske.vb @@ -325,7 +325,31 @@ Public Class frmAbrechnungsMaske End Sub Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click - If MyDatagridview1.SelectedRows.Count > 0 Then + For Each r As DataGridViewRow In MyDatagridview1.SelectedRows + If r.Cells("Art").Value <> "0" Then + MsgBox("Nur bei Einzelrechnung") + Exit Sub + End If + Next + + If MyDatagridview1.SelectedRows.Count = 1 Then + Try + Dim RECHNUNG As New VERAG_PROG_ALLGEMEIN.cRechnungsausgang(MyDatagridview1.SelectedRows(0).Cells("RK_ID").Value) + Dim SPEDBUCH As New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch(RECHNUNG.FilialenNr, RECHNUNG.AbfertigungsNr, RECHNUNG.SpeditionsbuchUnterNr) + If SPEDBUCH IsNot Nothing Then + + Dim f As New frmFaktEmail(RECHNUNG, SPEDBUCH, True) + f.ShowDialog(Me) + End If + + 'merge PDFs path + initDGV() + Catch ex As Exception + MsgBox("Fehler beim Öffnen des Mail-Fensters!" & vbNewLine & vbNewLine & ex.StackTrace & ex.Message) + End Try + + ElseIf MyDatagridview1.SelectedRows.Count > 1 Then + If vbYes = MsgBox("Es werden " & MyDatagridview1.SelectedRows.Count & " Rechnungen ans Mail angefügt." & vbNewLine & "Möchten Sie fortfahren?", vbYesNoCancel) Then Dim list As New List(Of String) ' Sammlung PDFs diff --git a/SDL/Fakturierung/rptRechnungDruck.Designer.vb b/SDL/Fakturierung/rptRechnungDruck.Designer.vb index f8328fa6..79b57195 100644 --- a/SDL/Fakturierung/rptRechnungDruck.Designer.vb +++ b/SDL/Fakturierung/rptRechnungDruck.Designer.vb @@ -124,6 +124,8 @@ Partial Public Class rptRechnungDruck Me.Line13 = New GrapeCity.ActiveReports.SectionReportModel.Line() Me.Line16 = New GrapeCity.ActiveReports.SectionReportModel.Line() Me.GroupFooter4 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter() + Me.txtHandlingATA = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.lblHandlingATA = New GrapeCity.ActiveReports.SectionReportModel.Label() CType(Me.lblLeistungNr, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblAnzahl, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblSteuerfrei, System.ComponentModel.ISupportInitialize).BeginInit() @@ -207,6 +209,8 @@ Partial Public Class rptRechnungDruck CType(Me.txtBeförderungsmittel, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.Label43, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtSendungsdaten, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtHandlingATA, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblHandlingATA, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me, System.ComponentModel.ISupportInitialize).BeginInit() ' 'PageHeader @@ -893,7 +897,7 @@ Partial Public Class rptRechnungDruck ' 'ReportFooter1 ' - Me.ReportFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Line8, Me.Line9, Me.lblSummeUeberschrift, Me.lblSteuerfreiGes, Me.lblSteuerpflichtigGes, Me.lblSumme, Me.Label46, Me.Line1, Me.Line5, Me.lblZWSumme, Me.lblSteuerbetrag, Me.lblSteuersatz, Me.txtVermerk, Me.txtInfo, Me.lblAnlagenUeberschrift, Me.txtAnlagen, Me.Line6, Me.Line7, Me.Line14, Me.lblZwText, Me.Line17}) + Me.ReportFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Line8, Me.Line9, Me.lblSummeUeberschrift, Me.lblSteuerfreiGes, Me.lblSteuerpflichtigGes, Me.lblSumme, Me.Label46, Me.Line1, Me.Line5, Me.lblZWSumme, Me.lblSteuerbetrag, Me.lblSteuersatz, Me.txtVermerk, Me.txtInfo, Me.lblAnlagenUeberschrift, Me.txtAnlagen, Me.Line6, Me.Line7, Me.Line14, Me.lblZwText, Me.Line17, Me.txtHandlingATA, Me.lblHandlingATA}) Me.ReportFooter1.Height = 1.590551! Me.ReportFooter1.KeepTogether = True Me.ReportFooter1.Name = "ReportFooter1" @@ -1077,18 +1081,18 @@ Partial Public Class rptRechnungDruck "r-set: 1" Me.lblAnlagenUeberschrift.Text = "Anlage:" Me.lblAnlagenUeberschrift.Top = 1.433071! - Me.lblAnlagenUeberschrift.Width = 1.155512! + Me.lblAnlagenUeberschrift.Width = 0.676378! ' 'txtAnlagen ' Me.txtAnlagen.Height = 0.1574803! - Me.txtAnlagen.Left = 1.229922! + Me.txtAnlagen.Left = 0.7094489! Me.txtAnlagen.Name = "txtAnlagen" Me.txtAnlagen.Style = "font-size: 9pt; font-weight: normal; text-align: left; text-justify: auto; ddo-ch" & "ar-set: 1" Me.txtAnlagen.Text = "ATC1812345678" Me.txtAnlagen.Top = 1.433071! - Me.txtAnlagen.Width = 6.211024! + Me.txtAnlagen.Width = 3.668504! ' 'Line6 ' @@ -1450,6 +1454,29 @@ Partial Public Class rptRechnungDruck Me.GroupFooter4.Height = 0! Me.GroupFooter4.Name = "GroupFooter4" ' + 'txtHandlingATA + ' + Me.txtHandlingATA.Height = 0.1574803! + Me.txtHandlingATA.Left = 5.054331! + Me.txtHandlingATA.Name = "txtHandlingATA" + Me.txtHandlingATA.Style = "font-size: 9pt; font-weight: normal; text-align: left; text-justify: auto; ddo-ch" & + "ar-set: 1" + Me.txtHandlingATA.Text = "ATC1812345678" + Me.txtHandlingATA.Top = 1.433071! + Me.txtHandlingATA.Width = 2.324409! + ' + 'lblHandlingATA + ' + Me.lblHandlingATA.Height = 0.1574803! + Me.lblHandlingATA.HyperLink = Nothing + Me.lblHandlingATA.Left = 4.377953! + Me.lblHandlingATA.Name = "lblHandlingATA" + Me.lblHandlingATA.Style = "font-size: 8pt; font-weight: bold; text-align: left; vertical-align: top; ddo-cha" & + "r-set: 1" + Me.lblHandlingATA.Text = "Handling:" + Me.lblHandlingATA.Top = 1.433071! + Me.lblHandlingATA.Width = 0.676378! + ' 'rptRechnungDruck ' Me.MasterReport = False @@ -1556,6 +1583,8 @@ Partial Public Class rptRechnungDruck CType(Me.txtBeförderungsmittel, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.Label43, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtSendungsdaten, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtHandlingATA, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblHandlingATA, System.ComponentModel.ISupportInitialize).EndInit() CType(Me, System.ComponentModel.ISupportInitialize).EndInit() End Sub @@ -1664,4 +1693,6 @@ Partial Public Class rptRechnungDruck Private WithEvents Line15 As GrapeCity.ActiveReports.SectionReportModel.Line Public WithEvents lblFirma As GrapeCity.ActiveReports.SectionReportModel.Label Private WithEvents Line17 As GrapeCity.ActiveReports.SectionReportModel.Line + Public WithEvents txtHandlingATA As GrapeCity.ActiveReports.SectionReportModel.TextBox + Public WithEvents lblHandlingATA As GrapeCity.ActiveReports.SectionReportModel.Label End Class diff --git a/SDL/Fakturierung/usrCntlFaktAbrechnung.Designer.vb b/SDL/Fakturierung/usrCntlFaktAbrechnung.Designer.vb index dd6b30ed..7cc5d7c9 100644 --- a/SDL/Fakturierung/usrCntlFaktAbrechnung.Designer.vb +++ b/SDL/Fakturierung/usrCntlFaktAbrechnung.Designer.vb @@ -22,6 +22,7 @@ Partial Class usrCntlFaktAbrechnung 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrCntlFaktAbrechnung)) Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() @@ -60,6 +61,7 @@ Partial Class usrCntlFaktAbrechnung Me.lblRechnungsDatum = New System.Windows.Forms.Label() Me.lblRechnungsNummer = New System.Windows.Forms.Label() Me.Panel1 = New System.Windows.Forms.Panel() + Me.Label52 = New System.Windows.Forms.Label() Me.Panel2 = New System.Windows.Forms.Panel() Me.Label49 = New System.Windows.Forms.Label() Me.Label48 = New System.Windows.Forms.Label() @@ -141,7 +143,8 @@ Partial Class usrCntlFaktAbrechnung Me.Label33 = New System.Windows.Forms.Label() Me.Label35 = New System.Windows.Forms.Label() Me.Label28 = New System.Windows.Forms.Label() - Me.ToolTip = New System.Windows.Forms.ToolTip() + Me.ToolTip = New System.Windows.Forms.ToolTip(Me.components) + Me.rtbHandling = New VERAG_PROG_ALLGEMEIN.MyRichTextBox() Me.txtPositionAnzahl = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtAbfertigungsanzahl = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtAbfertigungsart = New VERAG_PROG_ALLGEMEIN.MyTextBox() @@ -194,14 +197,14 @@ Partial Class usrCntlFaktAbrechnung Me.txtUnterNrRef = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.cboFilialeRef = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.txtAbfertigungsnummerRef = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.dgvRechnungenPositionen = New VERAG_PROG_ALLGEMEIN.MyDatagridview() + Me.dgvRechnungenPositionen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.Leistung = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.Anzahl = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.Preis = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.SteuerpflichtigerBetrag = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.SteuerfreierBetrag = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.Aufschubkonto = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.dgvOfferteDetailsUebersicht = New VERAG_PROG_ALLGEMEIN.MyDatagridview() + Me.dgvOfferteDetailsUebersicht = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.txtRohmasse = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.cboWaehrung = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.cboWaehrungUmrechnung = New VERAG_PROG_ALLGEMEIN.MyComboBox() @@ -611,6 +614,8 @@ Partial Class usrCntlFaktAbrechnung 'Panel1 ' Me.Panel1.AutoScroll = True + Me.Panel1.Controls.Add(Me.rtbHandling) + Me.Panel1.Controls.Add(Me.Label52) Me.Panel1.Controls.Add(Me.Panel2) Me.Panel1.Controls.Add(Me.pnlAvisierer) Me.Panel1.Controls.Add(Me.cboAnlage5) @@ -658,6 +663,17 @@ Partial Class usrCntlFaktAbrechnung Me.Panel1.Size = New System.Drawing.Size(830, 1130) Me.Panel1.TabIndex = 1 ' + 'Label52 + ' + Me.Label52.AutoSize = True + Me.Label52.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.Label52.Location = New System.Drawing.Point(549, 938) + Me.Label52.Name = "Label52" + Me.Label52.Size = New System.Drawing.Size(56, 13) + Me.Label52.TabIndex = 43 + Me.Label52.Text = "ATA-Nr.:" + Me.Label52.TextAlign = System.Drawing.ContentAlignment.TopRight + ' 'Panel2 ' Me.Panel2.BackColor = System.Drawing.Color.White @@ -1668,6 +1684,17 @@ Partial Class usrCntlFaktAbrechnung Me.Label28.Text = "Besonderheiten für Verrechung:" Me.Label28.TextAlign = System.Drawing.ContentAlignment.TopRight ' + 'rtbHandling + ' + Me.rtbHandling.Location = New System.Drawing.Point(552, 954) + Me.rtbHandling.MaxLineLength = -1 + Me.rtbHandling.MaxLines_Warning = "" + Me.rtbHandling.MaxLines_Warning_Label = Nothing + Me.rtbHandling.Name = "rtbHandling" + Me.rtbHandling.Size = New System.Drawing.Size(268, 61) + Me.rtbHandling.TabIndex = 44 + Me.rtbHandling.Text = "" + ' 'txtPositionAnzahl ' Me.txtPositionAnzahl._DateTimeOnly = False @@ -1836,10 +1863,10 @@ Partial Class usrCntlFaktAbrechnung Me.cboAnlage5.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend Me.cboAnlage5.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems Me.cboAnlage5.FormattingEnabled = True - Me.cboAnlage5.Location = New System.Drawing.Point(423, 974) + Me.cboAnlage5.Location = New System.Drawing.Point(280, 974) Me.cboAnlage5.MaxLength = 35 Me.cboAnlage5.Name = "cboAnlage5" - Me.cboAnlage5.Size = New System.Drawing.Size(398, 21) + Me.cboAnlage5.Size = New System.Drawing.Size(266, 21) Me.cboAnlage5.TabIndex = 32 ' 'cboAnlage1 @@ -1853,7 +1880,7 @@ Partial Class usrCntlFaktAbrechnung Me.cboAnlage1.Location = New System.Drawing.Point(10, 954) Me.cboAnlage1.MaxLength = 35 Me.cboAnlage1.Name = "cboAnlage1" - Me.cboAnlage1.Size = New System.Drawing.Size(397, 21) + Me.cboAnlage1.Size = New System.Drawing.Size(266, 21) Me.cboAnlage1.TabIndex = 28 ' 'txtWarenwertUmrechnung @@ -1891,7 +1918,7 @@ Partial Class usrCntlFaktAbrechnung Me.cboAnlage2.Location = New System.Drawing.Point(10, 974) Me.cboAnlage2.MaxLength = 35 Me.cboAnlage2.Name = "cboAnlage2" - Me.cboAnlage2.Size = New System.Drawing.Size(397, 21) + Me.cboAnlage2.Size = New System.Drawing.Size(266, 21) Me.cboAnlage2.TabIndex = 29 ' 'cboAnlage3 @@ -1905,7 +1932,7 @@ Partial Class usrCntlFaktAbrechnung Me.cboAnlage3.Location = New System.Drawing.Point(10, 994) Me.cboAnlage3.MaxLength = 35 Me.cboAnlage3.Name = "cboAnlage3" - Me.cboAnlage3.Size = New System.Drawing.Size(397, 21) + Me.cboAnlage3.Size = New System.Drawing.Size(266, 21) Me.cboAnlage3.TabIndex = 30 ' 'txtVermerk @@ -1938,10 +1965,10 @@ Partial Class usrCntlFaktAbrechnung Me.cboAnlage6.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend Me.cboAnlage6.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems Me.cboAnlage6.FormattingEnabled = True - Me.cboAnlage6.Location = New System.Drawing.Point(423, 994) + Me.cboAnlage6.Location = New System.Drawing.Point(280, 994) Me.cboAnlage6.MaxLength = 35 Me.cboAnlage6.Name = "cboAnlage6" - Me.cboAnlage6.Size = New System.Drawing.Size(398, 21) + Me.cboAnlage6.Size = New System.Drawing.Size(266, 21) Me.cboAnlage6.TabIndex = 33 ' 'cboAnlage4 @@ -1952,10 +1979,10 @@ Partial Class usrCntlFaktAbrechnung Me.cboAnlage4.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend Me.cboAnlage4.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems Me.cboAnlage4.FormattingEnabled = True - Me.cboAnlage4.Location = New System.Drawing.Point(423, 954) + Me.cboAnlage4.Location = New System.Drawing.Point(280, 954) Me.cboAnlage4.MaxLength = 35 Me.cboAnlage4.Name = "cboAnlage4" - Me.cboAnlage4.Size = New System.Drawing.Size(398, 21) + Me.cboAnlage4.Size = New System.Drawing.Size(266, 21) Me.cboAnlage4.TabIndex = 31 ' 'txtErfassungsnummer @@ -2291,7 +2318,7 @@ Partial Class usrCntlFaktAbrechnung Me.txtRechnungAnName2._WaehrungZeichen = True Me.txtRechnungAnName2.ForeColor = System.Drawing.Color.Black Me.txtRechnungAnName2.Location = New System.Drawing.Point(101, 56) - Me.txtRechnungAnName2.MaxLength = 35 + Me.txtRechnungAnName2.MaxLength = 40 Me.txtRechnungAnName2.MaxLineLength = -1 Me.txtRechnungAnName2.MaxLines_Warning = "" Me.txtRechnungAnName2.MaxLines_Warning_Label = Nothing @@ -2479,7 +2506,7 @@ Partial Class usrCntlFaktAbrechnung Me.txtRechnungAnOrt._WaehrungZeichen = True Me.txtRechnungAnOrt.ForeColor = System.Drawing.Color.Black Me.txtRechnungAnOrt.Location = New System.Drawing.Point(101, 94) - Me.txtRechnungAnOrt.MaxLength = 35 + Me.txtRechnungAnOrt.MaxLength = 52 Me.txtRechnungAnOrt.MaxLineLength = -1 Me.txtRechnungAnOrt.MaxLines_Warning = "" Me.txtRechnungAnOrt.MaxLines_Warning_Label = Nothing @@ -2502,7 +2529,7 @@ Partial Class usrCntlFaktAbrechnung Me.txtRechnungAnStrasse._WaehrungZeichen = True Me.txtRechnungAnStrasse.ForeColor = System.Drawing.Color.Black Me.txtRechnungAnStrasse.Location = New System.Drawing.Point(101, 75) - Me.txtRechnungAnStrasse.MaxLength = 35 + Me.txtRechnungAnStrasse.MaxLength = 40 Me.txtRechnungAnStrasse.MaxLineLength = -1 Me.txtRechnungAnStrasse.MaxLines_Warning = "" Me.txtRechnungAnStrasse.MaxLines_Warning_Label = Nothing @@ -3478,4 +3505,6 @@ Partial Class usrCntlFaktAbrechnung Friend WithEvents cbxOriginalPrint As CheckBox Friend WithEvents Button13 As Button Friend WithEvents Button1 As Button + Friend WithEvents Label52 As Label + Friend WithEvents rtbHandling As VERAG_PROG_ALLGEMEIN.MyRichTextBox End Class diff --git a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb index f4c033ce..8c65b9d6 100644 --- a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb +++ b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb @@ -8,7 +8,7 @@ Public Class usrCntlFaktAbrechnung Dim FUNC As New cProgramFunctions Dim FIRMA As VERAG_PROG_ALLGEMEIN.cFirmen = Nothing - Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + Shared SQL As New VERAG_PROG_ALLGEMEIN.SQL Public SAVED = True ' Eigenschaft, ob das Formular gespeichert ist oder verändert wurde @@ -277,6 +277,8 @@ Public Class usrCntlFaktAbrechnung cboAnlage5.Text = If(RECHNUNG.Anlage_5, "") cboAnlage6.Text = If(RECHNUNG.Anlage_6, "") + rtbHandling.Text = If(RECHNUNG.Handling, "") + If RECHNUNG.Vorkasse Then lblVorauskasse.Text = "JA" Else @@ -1368,6 +1370,16 @@ Public Class usrCntlFaktAbrechnung 'RECHNUNG.EMailRechnungstext = SPEDBUCH.XXXXXXXX RECHNUNG.AvisoID = SPEDBUCH.AvisoID + If SPEDBUCH.SendungID IsNot Nothing AndAlso IsNumeric(SPEDBUCH.SendungID) AndAlso SPEDBUCH.SendungID > 0 Then + Dim SND As New VERAG_PROG_ALLGEMEIN.cSendungen(SPEDBUCH.SendungID) + SND.LOAD_HANDLING() + RECHNUNG.Handling = "" + If SND.HANDLING IsNot Nothing Then + For Each s In SND.HANDLING + RECHNUNG.Handling &= If(RECHNUNG.Handling = "", "", vbNewLine) & s.sndhdg_nr + Next + End If + End If cboRechnungAn.Focus() @@ -1618,6 +1630,9 @@ Public Class usrCntlFaktAbrechnung RECHNUNG.Anlage_5 = cProgramFunctions.isLeerNothing(cboAnlage5.Text) '!!!! RECHNUNG.Anlage_6 = cProgramFunctions.isLeerNothing(cboAnlage6.Text) '!!!! + RECHNUNG.Handling = cProgramFunctions.isLeerNothing(rtbHandling.Text) + + 'RECHNUNG.SteuerpflichtigerGesamtbetrag = cProgramFunctions.isLeerNothing(steuer.text) 'RECHNUNG.SteuerfreierGesamtbetrag = cProgramFunctions.isLeerNothing(XXXXXXXXX.text) @@ -1727,19 +1742,20 @@ Public Class usrCntlFaktAbrechnung Next - Call przSVSRVS() ' SVS/RVS errechnen + Call przSVSRVS(RECHNUNG) ' SVS/RVS errechnen ' Call przSKR() ' SKR errechnen - - Call przVL() ' Vorlageprovision errechnen - Call przKapitalbereitstellung() 'Kapitalbereitstellung errechnen + 'RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang + Call przVL(RECHNUNG) ' Vorlageprovision errechnen + Call przKapitalbereitstellung(RECHNUNG) 'Kapitalbereitstellung errechnen ' boolFehler = fktBGeb(RECHNUNG.[RK_ID], RECHNUNG.Steuersatz_Proz, RECHNUNG.[Sammelrechnung], RECHNUNG.[BelegartenNr]) ' Bearbeitungsgebühr errechnen - Call przKA() ' Kreditaufwendungen errechnen - Call przFixeTaxe() ' Fixe Taxe errechnen - Call przPP() ' Porto/Papiere errechnen + Call przKA(RECHNUNG) ' Kreditaufwendungen errechnen + RECHNUNG.Währungscode = cProgramFunctions.isLeerNothing(cboWaehrungUmrechnung._value) + Call przFixeTaxe(RECHNUNG) ' Fixe Taxe errechnen + Call przPP(RECHNUNG) ' Porto/Papiere errechnen - Call przBS415() ' Bankspesen errechnen + Call przBS415(RECHNUNG) ' Bankspesen errechnen 'Me![SteuerpflichtigerGesamtbetrag] = 0.0# 'Me![SteuerfreierGesamtbetrag] = 0.0# @@ -1762,13 +1778,13 @@ Public Class usrCntlFaktAbrechnung End Sub - Private Sub przVL() + Shared Sub przVL(ByRef RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang) ' Vorlageprovision errechnen Dim curVLPreis As Double Dim Vorlageprovision_Berechnungbetrag As Double = 0 - If Not leistungExistsInPos(700, 9) Then Exit Sub 'Schauen, ob die Leistung in den Positionen vorhanden ist + If Not leistungExistsInPos(RECHNUNG, 700, 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 @@ -1805,13 +1821,13 @@ Public Class usrCntlFaktAbrechnung End Sub - Private Sub przKapitalbereitstellung() + Shared Sub przKapitalbereitstellung(ByRef RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang) ' 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 Not leistungExistsInPos(RECHNUNG, 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 @@ -2140,10 +2156,9 @@ Public Class usrCntlFaktAbrechnung End Try End Sub - Private Sub przBS415() - - ' Banküberweisung/Bankspesen berechnen + Shared Sub przBS415(ByRef RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang) + ' Banküberweisung/Bankspesen berechnen Dim BS415 As Double = 0.0 ' Dim Bankspesen_DT As DataTable = SQL.loadDgvBySql("SELECT isnull(Kunden.[Bankspesen %],0) as BankspesenProz, Kunden.[Bankspesen Mindestbetrag] FROM Kunden WHERE KundenNr=" & RECHNUNG.RechnungsKundenNr & "", "FMZOLL") @@ -2170,7 +2185,7 @@ Public Class usrCntlFaktAbrechnung End If If BS415 = 0 Then Exit Sub - If Not leistungExistsInPos(415, 1) Then Exit Sub 'Schauen, ob die Leistung in den Positionen vorhanden ist + If Not leistungExistsInPos(RECHNUNG, 415, 1) Then Exit Sub 'Schauen, ob die Leistung in den Positionen vorhanden ist 'Sucht, ob BS415 schon vorhanden ist,... @@ -2183,18 +2198,18 @@ Public Class usrCntlFaktAbrechnung BS415POS.LeistungsBez = "Ãœberweisung/Bankspesen" 'RECHNUNG.POSITIONEN.Add(BS415POS) BS415POS.Anzahl = 1 - BS415POS.Preis = getVorzeichen(RECHNUNG.Vorzeichen) * BS415 + BS415POS.Preis = getVorzeichen(RECHNUNG) * BS415 initSteuerbetraege(RECHNUNG, BS415POS) End If '...und der Wert gesetzt. End Sub - Private Sub przFixeTaxe() + Shared Sub przFixeTaxe(ByRef RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang) Dim FixeTaxe_Berechnungbetrag As Double = 0 ' Bei Leistungs-Nr 440 und Berechnungs-Code-Nr 9 wird Fixe Taxe berechnet. Dim FixeTaxe As Double = 0.0 - If Not leistungExistsInPos(440, 9) Then Exit Sub 'Schauen, ob die Leistung in den Positionen vorhanden ist + If Not leistungExistsInPos(RECHNUNG, 440, 9) Then Exit Sub 'Schauen, ob die Leistung in den Positionen vorhanden ist For Each POS In RECHNUNG.POSITIONEN @@ -2204,7 +2219,6 @@ Public Class usrCntlFaktAbrechnung Next If FixeTaxe_Berechnungbetrag <> 0 Then - RECHNUNG.Währungscode = cProgramFunctions.isLeerNothing(cboWaehrungUmrechnung._value) If FixeTaxe_Berechnungbetrag < 0 Then FixeTaxe_Berechnungbetrag *= -1 End If @@ -2258,24 +2272,25 @@ Public Class usrCntlFaktAbrechnung ' RECHNUNG.POSITIONEN.Add(FixeTaxePOS) '...und der Wert gesetzt. FixeTaxePOS.Anzahl = 1 - FixeTaxePOS.Preis = getVorzeichen(RECHNUNG.Vorzeichen) * FixeTaxe + FixeTaxePOS.Preis = getVorzeichen(RECHNUNG) * FixeTaxe initSteuerbetraege(RECHNUNG, FixeTaxePOS) End If End Sub - Function getVorzeichen(Vorzeichen) As Integer + + Shared Function getVorzeichen(ByRef RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang) As Integer Return 1 Return If(RECHNUNG.Vorzeichen = "-", -1, 1) End Function - Private Sub przKA() + Shared Sub przKA(ByRef RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang) ' Bei Leistungs-Nr 440 und Berechnungs-Code-Nr 9 wird Fixe Taxe berechnet. Dim Kreditaufwendungen As Double = 0.0 - If Not leistungExistsInPos(750, 9) Then Exit Sub 'Schauen, ob die Leistung in den Positionen vorhanden ist + If Not leistungExistsInPos(RECHNUNG, 750, 9) Then Exit Sub 'Schauen, ob die Leistung in den Positionen vorhanden ist ' Dim Bankspesen_DT As DataTable = SQL.loadDgvBySql("SELECT isnull(Kunden.[Bankspesen %],0) as BankspesenProz, Kunden.[Bankspesen Mindestbetrag] FROM Kunden WHERE KundenNr=" & RECHNUNG.RechnungsKundenNr & "", "FMZOLL") Dim KD As New VERAG_PROG_ALLGEMEIN.cKunde(RECHNUNG.RechnungsKundenNr) @@ -2318,13 +2333,13 @@ Public Class usrCntlFaktAbrechnung '...und der Wert gesetzt. KreditaufwendungenPOS.Anzahl = 1 - KreditaufwendungenPOS.Preis = getVorzeichen(RECHNUNG.Vorzeichen) * Kreditaufwendungen + KreditaufwendungenPOS.Preis = getVorzeichen(RECHNUNG) * Kreditaufwendungen initSteuerbetraege(RECHNUNG, KreditaufwendungenPOS) End If End Sub - Sub initSteuerbetraege(RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, ByRef POS As VERAG_PROG_ALLGEMEIN.cRechnungsausgangPositionen) + Shared Sub initSteuerbetraege(RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, ByRef POS As VERAG_PROG_ALLGEMEIN.cRechnungsausgangPositionen) POS.Steuerpflichtig = 0 POS.SteuerfreierBetrag = 0 Dim vorzeichen = 1 'If(RECHNUNG.Vorzeichen = "-", -1, 1) @@ -2341,7 +2356,7 @@ Public Class usrCntlFaktAbrechnung POS.SteuerfreierBetrag *= vorzeichen End Sub - Private Sub przPP() + Shared Sub przPP(ByRef RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang) ' Berechnung Porto/Papiere Dim PapirePorti_Berechnungbetrag As Double = 0 @@ -2352,7 +2367,7 @@ Public Class usrCntlFaktAbrechnung Exit Sub End If - If Not leistungExistsInPos(440) Then Exit Sub 'Schauen, ob die Leistung in den Positionen vorhanden ist + If Not leistungExistsInPos(RECHNUNG, 440) Then Exit Sub 'Schauen, ob die Leistung in den Positionen vorhanden ist For Each POS In RECHNUNG.POSITIONEN If POS.LeistungsNr <> 440 Then @@ -2386,7 +2401,7 @@ Public Class usrCntlFaktAbrechnung End Sub - Private Sub przSKR() + Shared Sub przSKR(ByRef RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang) @@ -2428,7 +2443,7 @@ Public Class usrCntlFaktAbrechnung End Sub - Function leistungExistsInPos(LeistungsNr, Optional BerechnungsartNr = Nothing) + Shared Function leistungExistsInPos(RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, LeistungsNr As Integer, Optional BerechnungsartNr As Object = Nothing) Return True For Each POS In RECHNUNG.POSITIONEN @@ -2439,7 +2454,7 @@ Public Class usrCntlFaktAbrechnung Return False End Function - Private Sub przSVSRVS() + Shared Sub przSVSRVS(ByRef RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang) Dim KD As New VERAG_PROG_ALLGEMEIN.cKunde(RECHNUNG.RechnungsKundenNr) @@ -2448,7 +2463,7 @@ Public Class usrCntlFaktAbrechnung Dim SVSRVS_Berechnungbetrag As Double = 0 Dim SVSRVS As Double = 0 - If Not leistungExistsInPos(260) Then Exit Sub 'Schauen, ob die Leistung in den Positionen vorhanden ist + If Not leistungExistsInPos(RECHNUNG, 260) Then Exit Sub 'Schauen, ob die Leistung in den Positionen vorhanden ist 'For Each POS In RECHNUNG.POSITIONEN ' If POS.LeistungsNr <> 260 Then @@ -3350,14 +3365,15 @@ Nächste_Textzeile_lesen: '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) + If r.Cells("BerechnungsartNr").Value = 1 AndAlso r.Cells("BerechnungsartPosInkludiert").Value IsNot DBNull.Value AndAlso IsNumeric(r.Cells("BerechnungsartPosInkludiert").Value) AndAlso CInt(r.Cells("BerechnungsartPosInkludiert").Value) > 0 Then + BerechnungsartPosInkludiert = CInt(r.Cells("BerechnungsartPosInkludiert").Value) Exit For End If Next For Each r As DataGridViewRow In dgvOfferteDetailsUebersicht.Rows If r.Cells("BerechnungsartNr").Value = 10 Then + 'MsgBox(PosAnzahl - BerechnungsartPosInkludiert) r.Cells("Anzahl").Value = PosAnzahl - BerechnungsartPosInkludiert If r.Cells("Anzahl").Value < 0 Then r.Cells("Anzahl").Value = 0 End If @@ -3369,4 +3385,8 @@ Nächste_Textzeile_lesen: loadZOLL() loadBerechnungsArt_jePosition() End Sub + + Private Sub cboAnlage1_MouseWheel(sender As Object, e As MouseEventArgs) Handles cboAnlage6.MouseWheel, cboAnlage5.MouseWheel, cboAnlage4.MouseWheel, cboAnlage3.MouseWheel, cboAnlage2.MouseWheel, cboAnlage1.MouseWheel + + End Sub End Class diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/rptDispoHaftListe.Designer.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/rptDispoHaftListe.Designer.vb index f5035fad..f2882312 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/rptDispoHaftListe.Designer.vb +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/rptDispoHaftListe.Designer.vb @@ -218,8 +218,8 @@ Partial Public Class rptDispoHaftListe Me.txtAnmerkung.Height = 0.1669291! Me.txtAnmerkung.Left = 1.588977! Me.txtAnmerkung.Name = "txtAnmerkung" - Me.txtAnmerkung.Style = "font-size: 8pt; font-style: italic; font-weight: normal; text-align: left; vertic" & - "al-align: top; ddo-char-set: 1" + Me.txtAnmerkung.Style = "font-size: 8pt; font-style: italic; font-weight: bold; text-align: left; vertical" & + "-align: top; ddo-char-set: 1" Me.txtAnmerkung.Text = Nothing Me.txtAnmerkung.Top = 0.1874016! Me.txtAnmerkung.Width = 3.561024! diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/rptLaufzettelZollDE.Designer.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/rptLaufzettelZollDE.Designer.vb index b93b525f..e97dc391 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/rptLaufzettelZollDE.Designer.vb +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/rptLaufzettelZollDE.Designer.vb @@ -69,6 +69,7 @@ Partial Public Class rptLaufzettelZollDE Me.TextBox10 = New GrapeCity.ActiveReports.SectionReportModel.TextBox() Me.txtEmail = New GrapeCity.ActiveReports.SectionReportModel.TextBox() Me.txtDW = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.txtFirmeninfo_rontoffice = New GrapeCity.ActiveReports.SectionReportModel.TextBox() Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter() Me.TextBox3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox() CType(Me.txtAbfertigungsart, System.ComponentModel.ISupportInitialize).BeginInit() @@ -109,6 +110,7 @@ Partial Public Class rptLaufzettelZollDE CType(Me.TextBox10, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtEmail, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtDW, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtFirmeninfo_rontoffice, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me, System.ComponentModel.ISupportInitialize).BeginInit() ' @@ -203,7 +205,7 @@ Partial Public Class rptLaufzettelZollDE ' 'txtPosNr ' - Me.txtPosNr.Height = 0.1669292! + Me.txtPosNr.Height = 0.3858268! Me.txtPosNr.Left = 0.6149607! Me.txtPosNr.Name = "txtPosNr" Me.txtPosNr.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: top; ddo-c" & @@ -296,7 +298,7 @@ Partial Public Class rptLaufzettelZollDE ' 'ReportHeader1 ' - Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Shape1, Me.txtFirmaInfo_ATILLA, Me.txtFirmaInfo_VERAG, Me.txtFirmaInfo_IMEX, Me.picVERAG, Me.TextBox8, Me.Shape3, Me.Shape4, Me.Shape5, Me.TextBox4, Me.TextBox9, Me.txtLKW, Me.TextBox12, Me.txtLKWId, Me.TextBox14, Me.txtSB, Me.TextBox18, Me.txtDatum, Me.TextBox25, Me.txtGrenzstelle, Me.TextBox27, Me.txtFraechter, Me.TextBox32, Me.TextBox5, Me.TextBox1, Me.Shape2, Me.TextBox2, Me.txtGesColli, Me.TextBox6, Me.txtGesGewicht, Me.TextBox10, Me.txtEmail, Me.txtDW}) + Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Shape1, Me.txtFirmaInfo_ATILLA, Me.txtFirmaInfo_VERAG, Me.txtFirmaInfo_IMEX, Me.picVERAG, Me.TextBox8, Me.Shape3, Me.Shape4, Me.Shape5, Me.TextBox4, Me.TextBox9, Me.txtLKW, Me.TextBox12, Me.txtLKWId, Me.TextBox14, Me.txtSB, Me.TextBox18, Me.txtDatum, Me.TextBox25, Me.txtGrenzstelle, Me.TextBox27, Me.txtFraechter, Me.TextBox32, Me.TextBox5, Me.TextBox1, Me.Shape2, Me.TextBox2, Me.txtGesColli, Me.TextBox6, Me.txtGesGewicht, Me.TextBox10, Me.txtEmail, Me.txtDW, Me.txtFirmeninfo_rontoffice}) Me.ReportHeader1.Height = 2.227953! Me.ReportHeader1.Name = "ReportHeader1" ' @@ -649,6 +651,18 @@ Partial Public Class rptLaufzettelZollDE Me.txtDW.Top = 1.210236! Me.txtDW.Width = 2.468111! ' + 'txtFirmeninfo_rontoffice + ' + Me.txtFirmeninfo_rontoffice.Height = 0.5000001! + Me.txtFirmeninfo_rontoffice.Left = 0.4775603! + Me.txtFirmeninfo_rontoffice.Name = "txtFirmeninfo_rontoffice" + Me.txtFirmeninfo_rontoffice.Style = "font-size: 8.25pt; vertical-align: middle; ddo-char-set: 204" + Me.txtFirmeninfo_rontoffice.Text = "A-4975 Suben" & Global.Microsoft.VisualBasic.ChrW(9) & "Tel. +43 77 11 / 31636 " & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & "www.front-office.eu" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Suben 14" & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & " " & + " suben@front-office.eu" + Me.txtFirmeninfo_rontoffice.Top = 0! + Me.txtFirmeninfo_rontoffice.Visible = False + Me.txtFirmeninfo_rontoffice.Width = 6.67165! + ' 'ReportFooter1 ' Me.ReportFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.TextBox3}) @@ -663,7 +677,7 @@ Partial Public Class rptLaufzettelZollDE Me.TextBox3.Left = 0.4314961! Me.TextBox3.Name = "TextBox3" Me.TextBox3.Style = "font-size: 10pt; font-weight: bold; vertical-align: middle; ddo-char-set: 1" - Me.TextBox3.Text = "Wir ersuchen um T-1 auf Befreiung und um eine angemessane Frist von mehr als 8 Ta" & + Me.TextBox3.Text = "Wir ersuchen um T-1 auf Befreiung und um eine angemessene Frist von mehr als 8 Ta" & "gen - EU Auslieferung." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Vielen Dank!" Me.TextBox3.Top = 0.08700788! Me.TextBox3.Width = 7.18504! @@ -727,6 +741,7 @@ Partial Public Class rptLaufzettelZollDE CType(Me.TextBox10, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtEmail, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtDW, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtFirmeninfo_rontoffice, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).EndInit() CType(Me, System.ComponentModel.ISupportInitialize).EndInit() @@ -783,4 +798,5 @@ Partial Public Class rptLaufzettelZollDE Public WithEvents txtDW As GrapeCity.ActiveReports.SectionReportModel.TextBox Public WithEvents SubReport As GrapeCity.ActiveReports.SectionReportModel.SubReport Private WithEvents TextBox3 As GrapeCity.ActiveReports.SectionReportModel.TextBox + Public WithEvents txtFirmeninfo_rontoffice As GrapeCity.ActiveReports.SectionReportModel.TextBox End Class diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/rptVerpflichtungserklaerung.Designer.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/rptVerpflichtungserklaerung.Designer.vb index aa51541f..a1590e1d 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/rptVerpflichtungserklaerung.Designer.vb +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/rptVerpflichtungserklaerung.Designer.vb @@ -51,6 +51,7 @@ Partial Public Class rptVerpflichtungserklaerung Me.TextBox8 = New GrapeCity.ActiveReports.SectionReportModel.TextBox() Me.picBarcodeVerpfl = New GrapeCity.ActiveReports.SectionReportModel.Picture() Me.TextBox7 = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.txtFirmeninfo_rontoffice = New GrapeCity.ActiveReports.SectionReportModel.TextBox() Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter() Me.Shape16 = New GrapeCity.ActiveReports.SectionReportModel.Shape() Me.Shape9 = New GrapeCity.ActiveReports.SectionReportModel.Shape() @@ -98,6 +99,7 @@ Partial Public Class rptVerpflichtungserklaerung CType(Me.TextBox8, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.picBarcodeVerpfl, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtFirmeninfo_rontoffice, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TextBox10, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TextBox11, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TextBox12, System.ComponentModel.ISupportInitialize).BeginInit() @@ -253,7 +255,7 @@ Partial Public Class rptVerpflichtungserklaerung ' 'ReportHeader1 ' - Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Shape7, Me.txtFirmaInfo_ATILLA, Me.txtFirmaInfo_VERAG, Me.txtFirmaInfo_IMEX, Me.picVERAG, Me.Shape, Me.txt, Me.TextBox1, Me.Shape2, Me.TextBox2, Me.TextBox3, Me.Shape4, Me.TextBox4, Me.TextBox5, Me.Shape6, Me.TextBox6, Me.Shape8, Me.TextBox8, Me.picBarcodeVerpfl, Me.TextBox7}) + Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Shape7, Me.txtFirmaInfo_ATILLA, Me.txtFirmaInfo_VERAG, Me.txtFirmaInfo_IMEX, Me.picVERAG, Me.Shape, Me.txt, Me.TextBox1, Me.Shape2, Me.TextBox2, Me.TextBox3, Me.Shape4, Me.TextBox4, Me.TextBox5, Me.Shape6, Me.TextBox6, Me.Shape8, Me.TextBox8, Me.picBarcodeVerpfl, Me.TextBox7, Me.txtFirmeninfo_rontoffice}) Me.ReportHeader1.Height = 5.05! Me.ReportHeader1.Name = "ReportHeader1" ' @@ -471,6 +473,18 @@ Partial Public Class rptVerpflichtungserklaerung Me.TextBox7.Top = 3.827! Me.TextBox7.Width = 6.99291! ' + 'txtFirmeninfo_rontoffice + ' + Me.txtFirmeninfo_rontoffice.Height = 0.5000001! + Me.txtFirmeninfo_rontoffice.Left = 0.4775591! + Me.txtFirmeninfo_rontoffice.Name = "txtFirmeninfo_rontoffice" + Me.txtFirmeninfo_rontoffice.Style = "font-size: 8.25pt; vertical-align: middle; ddo-char-set: 204" + Me.txtFirmeninfo_rontoffice.Text = "A-4975 Suben" & Global.Microsoft.VisualBasic.ChrW(9) & "Tel. +43 77 11 / 31636 " & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & "www.front-office.eu" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Suben 14" & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & " " & + " suben@front-office.eu" + Me.txtFirmeninfo_rontoffice.Top = 0! + Me.txtFirmeninfo_rontoffice.Visible = False + Me.txtFirmeninfo_rontoffice.Width = 6.67165! + ' 'ReportFooter1 ' Me.ReportFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Shape16, Me.Shape9, Me.TextBox10, Me.Shape10, Me.TextBox11, Me.Shape11, Me.TextBox12, Me.Shape12, Me.TextBox13, Me.Shape13, Me.TextBox14, Me.Shape14, Me.TextBox15, Me.TextBox16, Me.Line, Me.TextBox17, Me.Line1, Me.Shape15, Me.TextBox18, Me.txtFraechter, Me.txtLKWKennz, Me.txtFahrername, Me.txtPassnummer, Me.txtWohnort, Me.txtMobilTel, Me.txtAvisoId, Me.txtDatumOrt}) @@ -668,7 +682,7 @@ Partial Public Class rptVerpflichtungserklaerung Me.TextBox18.Left = 0.4456677! Me.TextBox18.Name = "TextBox18" Me.TextBox18.Style = "font-size: 8.25pt; font-weight: normal; text-align: left; ddo-char-set: 204" - Me.TextBox18.Text = "VERAG LKW-Id:" + Me.TextBox18.Text = "LKW-Id:" Me.TextBox18.Top = 3.384251! Me.TextBox18.Width = 7.034646! ' @@ -793,6 +807,7 @@ Partial Public Class rptVerpflichtungserklaerung CType(Me.TextBox8, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.picBarcodeVerpfl, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtFirmeninfo_rontoffice, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TextBox10, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TextBox11, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TextBox12, System.ComponentModel.ISupportInitialize).EndInit() @@ -873,4 +888,5 @@ Partial Public Class rptVerpflichtungserklaerung Private WithEvents Shape6 As GrapeCity.ActiveReports.SectionReportModel.Shape Private WithEvents TextBox6 As GrapeCity.ActiveReports.SectionReportModel.TextBox Private WithEvents TextBox7 As GrapeCity.ActiveReports.SectionReportModel.TextBox + Public WithEvents txtFirmeninfo_rontoffice As GrapeCity.ActiveReports.SectionReportModel.TextBox End Class diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/subRptLaufzettelZollDE_ATA.Designer.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/subRptLaufzettelZollDE_ATA.Designer.vb index 9aad7931..6603c647 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/subRptLaufzettelZollDE_ATA.Designer.vb +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/subRptLaufzettelZollDE_ATA.Designer.vb @@ -20,22 +20,24 @@ Partial Public Class subRptLaufzettelZollDE_ATA Me.picBarcodeATAMRN = New GrapeCity.ActiveReports.SectionReportModel.Picture() Me.txtATAMRN = New GrapeCity.ActiveReports.SectionReportModel.TextBox() Me.txtColli = New GrapeCity.ActiveReports.SectionReportModel.TextBox() - Me.GroupHeader1 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader() - Me.GroupFooter1 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter() Me.TextBox1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox() Me.txtGewicht = New GrapeCity.ActiveReports.SectionReportModel.TextBox() Me.TextBox3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.GroupHeader1 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader() + Me.GroupFooter1 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter() + Me.lblSieheFremdspedition = New GrapeCity.ActiveReports.SectionReportModel.TextBox() CType(Me.picBarcodeATAMRN, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtATAMRN, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtColli, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtGewicht, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblSieheFremdspedition, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me, System.ComponentModel.ISupportInitialize).BeginInit() ' 'Detail ' - Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.picBarcodeATAMRN, Me.txtATAMRN, Me.txtColli, Me.TextBox1, Me.txtGewicht, Me.TextBox3}) + Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.picBarcodeATAMRN, Me.txtATAMRN, Me.txtColli, Me.TextBox1, Me.txtGewicht, Me.TextBox3, Me.lblSieheFremdspedition}) Me.Detail.Height = 0.4483269! Me.Detail.Name = "Detail" ' @@ -75,16 +77,6 @@ Partial Public Class subRptLaufzettelZollDE_ATA Me.txtColli.Top = 0.05196851! Me.txtColli.Width = 0.4437006! ' - 'GroupHeader1 - ' - Me.GroupHeader1.Height = 0! - Me.GroupHeader1.Name = "GroupHeader1" - ' - 'GroupFooter1 - ' - Me.GroupFooter1.Height = 0! - Me.GroupFooter1.Name = "GroupFooter1" - ' 'TextBox1 ' Me.TextBox1.Height = 0.1669292! @@ -116,6 +108,28 @@ Partial Public Class subRptLaufzettelZollDE_ATA Me.TextBox3.Top = 0.05196851! Me.TextBox3.Width = 0.406693! ' + 'GroupHeader1 + ' + Me.GroupHeader1.Height = 0! + Me.GroupHeader1.Name = "GroupHeader1" + ' + 'GroupFooter1 + ' + Me.GroupFooter1.Height = 0! + Me.GroupFooter1.Name = "GroupFooter1" + ' + 'lblSieheFremdspedition + ' + Me.lblSieheFremdspedition.Height = 0.1669292! + Me.lblSieheFremdspedition.Left = 3.561024! + Me.lblSieheFremdspedition.Name = "lblSieheFremdspedition" + Me.lblSieheFremdspedition.Style = "font-size: 8pt; font-style: italic; font-weight: bold; text-align: left; vertical" & + "-align: top; ddo-char-set: 1" + Me.lblSieheFremdspedition.Text = "siehe Fremdspedition" + Me.lblSieheFremdspedition.Top = 0.2188977! + Me.lblSieheFremdspedition.Visible = False + Me.lblSieheFremdspedition.Width = 1.667323! + ' 'subRptLaufzettelZollDE_ATA ' Me.MasterReport = False @@ -137,6 +151,7 @@ Partial Public Class subRptLaufzettelZollDE_ATA CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtGewicht, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblSieheFremdspedition, System.ComponentModel.ISupportInitialize).EndInit() CType(Me, System.ComponentModel.ISupportInitialize).EndInit() End Sub @@ -145,7 +160,8 @@ Partial Public Class subRptLaufzettelZollDE_ATA Private WithEvents picBarcodeATAMRN As GrapeCity.ActiveReports.SectionReportModel.Picture Private WithEvents txtATAMRN As GrapeCity.ActiveReports.SectionReportModel.TextBox Private WithEvents txtColli As GrapeCity.ActiveReports.SectionReportModel.TextBox - Private WithEvents TextBox1 As GrapeCity.ActiveReports.SectionReportModel.TextBox Private WithEvents txtGewicht As GrapeCity.ActiveReports.SectionReportModel.TextBox - Private WithEvents TextBox3 As GrapeCity.ActiveReports.SectionReportModel.TextBox + Public WithEvents TextBox1 As GrapeCity.ActiveReports.SectionReportModel.TextBox + Public WithEvents TextBox3 As GrapeCity.ActiveReports.SectionReportModel.TextBox + Public WithEvents lblSieheFremdspedition As GrapeCity.ActiveReports.SectionReportModel.TextBox End Class diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/subRptLaufzettelZollDE_ATA.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/subRptLaufzettelZollDE_ATA.vb index b0de4416..d795067a 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/subRptLaufzettelZollDE_ATA.vb +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/subRptLaufzettelZollDE_ATA.vb @@ -4,42 +4,53 @@ Imports GrapeCity.ActiveReports.Document Public Class subRptLaufzettelZollDE_ATA Dim ATA As New List(Of VERAG_PROG_ALLGEMEIN.cSendHandling) - - Sub New(ATA As List(Of VERAG_PROG_ALLGEMEIN.cSendHandling)) + Dim Fremdspedition As Boolean + Sub New(ATA As List(Of VERAG_PROG_ALLGEMEIN.cSendHandling), Fremdspedition As Boolean) ' Dieser Aufruf ist für den Designer erforderlich. InitializeComponent() Me.ATA = ATA + Me.Fremdspedition = Fremdspedition ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. End Sub Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format picBarcodeATAMRN.Visible = False txtATAMRN.Text = "" + + If Fremdspedition Then + lblSieheFremdspedition.Visible = True + TextBox3.Visible = False + TextBox1.Visible = False + txtColli.Visible = False + txtGewicht.Visible = False + End If + If Me.DataSource IsNot Nothing AndAlso Me.Fields IsNot Nothing AndAlso Me.Fields.Item("ATA").Value IsNot Nothing Then - Dim ATAMRN As String = Me.Fields.Item("ATA").Value - ATAMRN = ATAMRN.Replace(" ", "") - ATAMRN = ATAMRN.Replace("/", "") - ATAMRN = ATAMRN.Replace("-", "") + Dim ATAMRN As String = Me.Fields.Item("ATA").Value + ATAMRN = ATAMRN.Replace(" ", "") + ATAMRN = ATAMRN.Replace("/", "") + ATAMRN = ATAMRN.Replace("-", "") - txtATAMRN.Text = ATAMRN - If ATAMRN <> "" Then - Dim barcodeString = ATAMRN - If barcodeString.StartsWith("ATA") And barcodeString.Length > 11 Then barcodeString = barcodeString.Substring(4, 7) - If barcodeString.StartsWith("ATC") And barcodeString.Length > 11 Then barcodeString = barcodeString.Substring(5, 6) + txtATAMRN.Text = ATAMRN + If ATAMRN <> "" Then + Dim barcodeString = ATAMRN + If barcodeString.StartsWith("ATA") And barcodeString.Length > 11 Then barcodeString = barcodeString.Substring(4, 7) + If barcodeString.StartsWith("ATC") And barcodeString.Length > 11 Then barcodeString = barcodeString.Substring(5, 6) + + Dim barcodeATA As Image = Code128Rendering.MakeBarcodeImage(barcodeString, 1, True, 20) + 'barcodeATA.RotateFlip(RotateFlipType.Rotate270FlipNone) + picBarcodeATAMRN.Image = barcodeATA + picBarcodeATAMRN.Visible = True + End If + + txtColli.Text = "" + txtGewicht.Text = "" + If Me.Fields.Item("Colli").Value IsNot Nothing Then txtColli.Text = CDbl(Me.Fields.Item("Colli").Value).ToString("N0") & " Pk" + If Me.Fields.Item("Gewicht").Value IsNot Nothing Then txtGewicht.Text = CDbl(Me.Fields.Item("Gewicht").Value).ToString("N1") & " kg" - Dim barcodeATA As Image = Code128Rendering.MakeBarcodeImage(barcodeString, 1, True, 20) - 'barcodeATA.RotateFlip(RotateFlipType.Rotate270FlipNone) - picBarcodeATAMRN.Image = barcodeATA - picBarcodeATAMRN.Visible = True End If - txtColli.Text = "" - txtGewicht.Text = "" - If Me.Fields.Item("Colli").Value IsNot Nothing Then txtColli.Text = Me.Fields.Item("Colli").Value & " Pk" - If Me.Fields.Item("Gewicht").Value IsNot Nothing Then txtGewicht.Text = Me.Fields.Item("Gewicht").Value & " kg" - - End If End Sub Private Sub rptAuswertung_ReportStart(sender As System.Object, e As System.EventArgs) Handles MyBase.ReportStart Dim dt As New DataTable diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrCntlSA_GestellungElemente.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrCntlSA_GestellungElemente.vb index 166dea5f..ebb63ed9 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrCntlSA_GestellungElemente.vb +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrCntlSA_GestellungElemente.vb @@ -22,9 +22,7 @@ End Sub Private Sub Label38_Click(sender As Object, e As EventArgs) Handles Label38.Click, Label2.Click, Label1.Click - End Sub - Private Sub btnup_Click(sender As Object, e As EventArgs) Handles btnUp.Click RaiseEvent MOVE_UP(Me) diff --git a/SDL/Formulare/KDFormulare/frmFormulare.Designer.vb b/SDL/Formulare/KDFormulare/frmFormulare.Designer.vb index dd129acd..7098b8c9 100644 --- a/SDL/Formulare/KDFormulare/frmFormulare.Designer.vb +++ b/SDL/Formulare/KDFormulare/frmFormulare.Designer.vb @@ -47,6 +47,9 @@ Partial Class frmFormulare Me.btnPrint = New System.Windows.Forms.Button() Me.Button2 = New System.Windows.Forms.Button() Me.btn = New System.Windows.Forms.Button() + Me.txtEmail = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label7 = New System.Windows.Forms.Label() + Me.Label8 = New System.Windows.Forms.Label() Me.pnl.SuspendLayout() Me.pnlBody.SuspendLayout() Me.pnlBottom.SuspendLayout() @@ -210,6 +213,9 @@ Partial Class frmFormulare 'pnlBottom ' Me.pnlBottom.BackColor = System.Drawing.Color.White + Me.pnlBottom.Controls.Add(Me.Label8) + Me.pnlBottom.Controls.Add(Me.txtEmail) + Me.pnlBottom.Controls.Add(Me.Label7) Me.pnlBottom.Controls.Add(Me.Label6) Me.pnlBottom.Controls.Add(Me.cboTextKonserveSprache) Me.pnlBottom.Controls.Add(Me.Label5) @@ -344,6 +350,46 @@ Partial Class frmFormulare Me.btn.TabIndex = 6 Me.btn.UseVisualStyleBackColor = True ' + 'txtEmail + ' + Me.txtEmail._DateTimeOnly = False + Me.txtEmail._numbersOnly = False + Me.txtEmail._numbersOnlyKommastellen = "" + Me.txtEmail._Prozent = False + Me.txtEmail._ShortDateNew = False + Me.txtEmail._ShortDateOnly = False + Me.txtEmail._TimeOnly = False + Me.txtEmail._value = Nothing + Me.txtEmail._Waehrung = False + Me.txtEmail._WaehrungZeichen = True + Me.txtEmail.ForeColor = System.Drawing.Color.Black + Me.txtEmail.Location = New System.Drawing.Point(943, 7) + Me.txtEmail.MaxLength = 200 + 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(191, 20) + Me.txtEmail.TabIndex = 30 + ' + 'Label7 + ' + Me.Label7.AutoSize = True + Me.Label7.Location = New System.Drawing.Point(889, 10) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(39, 13) + Me.Label7.TabIndex = 29 + Me.Label7.Text = "E-Mail:" + ' + 'Label8 + ' + Me.Label8.AutoSize = True + Me.Label8.Location = New System.Drawing.Point(889, 31) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(48, 13) + Me.Label8.TabIndex = 31 + Me.Label8.Text = "Drucker:" + ' 'frmFormulare ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -388,4 +434,7 @@ Partial Class frmFormulare Friend WithEvents cboTextKonserveSprache As VERAG_PROG_ALLGEMEIN.MyComboBox Friend WithEvents Label5 As Label Friend WithEvents cboTextkonserve As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents Label8 As Label + Friend WithEvents txtEmail As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label7 As Label End Class diff --git a/SDL/Formulare/KDFormulare/frmFormulare.vb b/SDL/Formulare/KDFormulare/frmFormulare.vb index 12a72526..b02c0f09 100644 --- a/SDL/Formulare/KDFormulare/frmFormulare.vb +++ b/SDL/Formulare/KDFormulare/frmFormulare.vb @@ -714,6 +714,9 @@ Public Class frmFormulare End If Next Next + If name = "txtEmail" Then + Me.txtEmail.Text = value + End If End Sub Sub KDNR_CHANGED(kdnr) @@ -936,7 +939,7 @@ Public Class frmFormulare Dim Mail As Microsoft.Office.Interop.Outlook.MailItem Mail = outl.CreateItem(0) - + If Me.txtEmail.Text <> "" Then Mail.To = Me.txtEmail.Text 'If cboTextkonserve._value <> "" AndAlso cboTextKonserveSprache._value <> "" Then ' Dim tX As New VERAG_PROG_ALLGEMEIN.textkon 'End If @@ -1506,6 +1509,7 @@ Public Class FormularManagerNEU rpt.txtPosNr.Text = SND.tblSnd_FremdspeditionText Else rpt.txtPosNr.Text = If(SND.FilialenNr > 0, SND.FilialenNr & "/", "") & If(SND.AbfertigungsNr > 0, SND.AbfertigungsNr, "-") + ' rpt.txtPosNr.Text &= VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(SND.FilialenNr, True) If anmerkung <> "" Then rpt.txtAnmerkung.Text = "Anmerkung: " & anmerkung.Replace(vbNewLine, "; ").Replace(Chr(10), "; ").Replace(Chr(13), "; ") rpt.txtAnmerkung.Text = Regex.Replace(rpt.txtAnmerkung.Text, "\r\n$", String.Empty) @@ -1543,10 +1547,12 @@ Public Class FormularManagerNEU rpt.txtEmpfänger.Text = rpt.txtEmpfänger.Text.Replace("(IMEX)", "").Trim Dim NCTS_VZAdr = "" - NCTS_VZAdr = If(SND.tblSnd_NCTSVerzollungsadresse, "") - NCTS_VZAdr &= vbNewLine & If(SND.NCTS_Verzollungsadresse_Strasse, "") - NCTS_VZAdr &= vbNewLine & If(SND.NCTS_Verzollungsadresse_Land, "") & " " & If(SND.NCTS_Verzollungsadresse_PLZ, "") & " " & If(SND.NCTS_Verzollungsadresse_Ort, "") - NCTS_VZAdr &= vbNewLine + If SND.tblSnd_NCTSaufDISPO Then + NCTS_VZAdr = If(SND.tblSnd_NCTSVerzollungsadresse, "") + NCTS_VZAdr &= vbNewLine & If(SND.NCTS_Verzollungsadresse_Strasse, "") + NCTS_VZAdr &= vbNewLine & If(SND.NCTS_Verzollungsadresse_Land, "") & " " & If(SND.NCTS_Verzollungsadresse_PLZ, "") & " " & If(SND.NCTS_Verzollungsadresse_Ort, "") + NCTS_VZAdr &= vbNewLine + End If If If(SND.NCTS_Bestimmungszollstelle, "") <> "" Then NCTS_VZAdr &= "Best.Zollst.:" & If(SND.NCTS_Bestimmungszollstelle, "") & " " ' If If(SENDUNG.NCTS_Verzollungsadresse_EORI, "") <> "" Then VALUES.NCTS_VZAdr &= "EORI:" & If(SND.NCTS_Verzollungsadresse_EORI, "") & If(SND.NCTS_Verzollungsadresse_EORI_NL, "") @@ -1638,14 +1644,11 @@ Public Class FormularManagerNEU ' Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues) Dim tmpPath = "" Try - Dim rpt As New rptLaufzettelZollDE - rpt.txtLKW.Text = AVISO.LKW_Nr rpt.txtLKWId.Text = AVISO.AvisoID - If AVISO.Zollstelle IsNot Nothing AndAlso AVISO.Zollstelle <> "" Then rpt.txtGrenzstelle.Text = VSQL.getValueTxtBySql("SELECT basncd_dstnr +' - ' + [basncd_name] FROM basncd WHERE basncd_dstnr='" & AVISO.Zollstelle & "' ", "ATLAS") Else @@ -1679,6 +1682,15 @@ Public Class FormularManagerNEU rpt.txtFraechter.Text = AVISO.Auftraggeber ' rpt.txtFraechter.Text = If(AVISO.Frächter_KdNr <> "", AVISO.Frächter_KdNr & " ", "") & AVISO.Frächter 'rpt.TextBox19.Text = "Rechnung Fatura" 'Stern weg + + Case "FRONTOFFICE" + rpt.txtFirmaInfo_VERAG.Visible = False + rpt.txtFirmeninfo_rontoffice.Visible = True + rpt.picVERAG.Image = My.Resources.FrontOfficeSUB_Horizontal + rpt.TextBox32.Text = "Avisierer (*):" + rpt.txtFraechter.Text = AVISO.Auftraggeber + ' rpt.txtFraechter.Text = If(AVISO.Frächter_KdNr <> "", AVISO.Frächter_KdNr & " ", "") & AVISO.Frächter + 'rpt.TextBox19.Text = "Rechnung Fatura" 'Stern weg Case Else Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG Case "SBG" : ort = "Bad Reichenhall" @@ -1725,141 +1737,142 @@ Public Class FormularManagerNEU 'MsgBox(tb.Rows.Count) rpt.DataSource = tb - Dim fiskal_bool = False + Dim fiskal_bool = False - AddHandler rpt.Detail.Format, Sub() - Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = SENDUNGEN(rpt.Fields.Item("Nr").Value) - rpt.txtNr.Text = CInt(rpt.Fields.Item("Nr").Value) + 1 + AddHandler rpt.Detail.Format, Sub() + Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = SENDUNGEN(rpt.Fields.Item("Nr").Value) + rpt.txtNr.Text = CInt(rpt.Fields.Item("Nr").Value) + 1 - If SND.tblSnd_Fremdspedition Then - rpt.txtAbfertigungsart.Text = "FREMD" - rpt.txtPosNr.Text = SND.tblSnd_FremdspeditionText + If SND.tblSnd_Fremdspedition Then + rpt.txtAbfertigungsart.Text = "FREMD" + rpt.txtPosNr.Text = SND.tblSnd_FremdspeditionText + Else + rpt.txtPosNr.Text = If(SND.FilialenNr > 0, SND.FilialenNr & "/", "") & If(SND.AbfertigungsNr > 0, SND.AbfertigungsNr, "-") + rpt.txtPosNr.Text &= vbnewline & VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(SND.FilialenNr, False) + + If SND.tblSnd_Abfertigungsart_ID > 0 Then + Select Case SND.tblSnd_Abfertigungsart_ID + Case 1 : rpt.txtAbfertigungsart.Text = "Zollabfertigung" + Case 23 : rpt.txtAbfertigungsart.Text = "ATA-Nr." + Case 26, 28 + rpt.txtAbfertigungsart.Text = VERAG_PROG_ALLGEMEIN.cAbfertigungsarten.getAbfertigungsartBezById(SND.tblSnd_Abfertigungsart_ID) + fiskal_bool = True + Case Else : rpt.txtAbfertigungsart.Text = VERAG_PROG_ALLGEMEIN.cAbfertigungsarten.getAbfertigungsartBezById(SND.tblSnd_Abfertigungsart_ID) + End Select Else - rpt.txtPosNr.Text = If(SND.FilialenNr > 0, SND.FilialenNr & "/", "") & If(SND.AbfertigungsNr > 0, SND.AbfertigungsNr, "-") - - If SND.tblSnd_Abfertigungsart_ID > 0 Then - Select Case SND.tblSnd_Abfertigungsart_ID - Case 1 : rpt.txtAbfertigungsart.Text = "Zollabfertigung" - Case 23 : rpt.txtAbfertigungsart.Text = "ATA-Nr." - Case 26, 28 - rpt.txtAbfertigungsart.Text = VERAG_PROG_ALLGEMEIN.cAbfertigungsarten.getAbfertigungsartBezById(SND.tblSnd_Abfertigungsart_ID) - fiskal_bool = True - Case Else : rpt.txtAbfertigungsart.Text = VERAG_PROG_ALLGEMEIN.cAbfertigungsarten.getAbfertigungsartBezById(SND.tblSnd_Abfertigungsart_ID) - End Select - Else - rpt.txtAbfertigungsart.Text = "-" - End If + rpt.txtAbfertigungsart.Text = "-" End If + End If - Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA - Case "IMEX" : rpt.txtPosNr.Text &= vbNewLine & SND.tblSnd_KdAuftragsNrAvisierer - End Select + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + Case "IMEX" : rpt.txtPosNr.Text &= vbNewLine & SND.tblSnd_KdAuftragsNrAvisierer + End Select - rpt.txtAbsender.Text = If(SND.tblSnd_Absender, "-") - ' rpt.txtEmpfänger.Text = (If(SND.tblSnd_EmpfaengerKdNr > 0, SND.tblSnd_EmpfaengerKdNr, "") & " " & If(SND.tblSnd_Empfaenger, "")).Trim - rpt.txtEmpfänger.Text = If(SND.tblSnd_Empfaenger, "").Trim - rpt.txtEmpfänger.Text = rpt.txtEmpfänger.Text.Replace("(IMEX)", "").Trim + rpt.txtAbsender.Text = If(SND.tblSnd_Absender, "-") + ' rpt.txtEmpfänger.Text = (If(SND.tblSnd_EmpfaengerKdNr > 0, SND.tblSnd_EmpfaengerKdNr, "") & " " & If(SND.tblSnd_Empfaenger, "")).Trim + rpt.txtEmpfänger.Text = If(SND.tblSnd_Empfaenger, "").Trim + rpt.txtEmpfänger.Text = rpt.txtEmpfänger.Text.Replace("(IMEX)", "").Trim - Dim NCTS_VZAdr = "" - NCTS_VZAdr = If(SND.tblSnd_NCTSVerzollungsadresse, "") - NCTS_VZAdr &= vbNewLine & If(SND.NCTS_Verzollungsadresse_Strasse, "") - NCTS_VZAdr &= vbNewLine & If(SND.NCTS_Verzollungsadresse_Land, "") & " " & If(SND.NCTS_Verzollungsadresse_PLZ, "") & " " & If(SND.NCTS_Verzollungsadresse_Ort, "") - NCTS_VZAdr &= vbNewLine - If If(SND.NCTS_Bestimmungszollstelle, "") <> "" Then NCTS_VZAdr &= "Best.Zollst.:" & If(SND.NCTS_Bestimmungszollstelle, "") & " " - ' If If(SENDUNG.NCTS_Verzollungsadresse_EORI, "") <> "" Then VALUES.NCTS_VZAdr &= "EORI:" & If(SND.NCTS_Verzollungsadresse_EORI, "") & If(SND.NCTS_Verzollungsadresse_EORI_NL, "") + Dim NCTS_VZAdr = "" + NCTS_VZAdr = If(SND.tblSnd_NCTSVerzollungsadresse, "") + NCTS_VZAdr &= vbNewLine & If(SND.NCTS_Verzollungsadresse_Strasse, "") + NCTS_VZAdr &= vbNewLine & If(SND.NCTS_Verzollungsadresse_Land, "") & " " & If(SND.NCTS_Verzollungsadresse_PLZ, "") & " " & If(SND.NCTS_Verzollungsadresse_Ort, "") + NCTS_VZAdr &= vbNewLine + If If(SND.NCTS_Bestimmungszollstelle, "") <> "" Then NCTS_VZAdr &= "Best.Zollst.:" & If(SND.NCTS_Bestimmungszollstelle, "") & " " + ' If If(SENDUNG.NCTS_Verzollungsadresse_EORI, "") <> "" Then VALUES.NCTS_VZAdr &= "EORI:" & If(SND.NCTS_Verzollungsadresse_EORI, "") & If(SND.NCTS_Verzollungsadresse_EORI_NL, "") - rpt.txtVerzollungsadresse.Text = NCTS_VZAdr.Trim + rpt.txtVerzollungsadresse.Text = NCTS_VZAdr.Trim - Dim ATAMRN_List As New List(Of VERAG_PROG_ALLGEMEIN.cSendHandling) - Dim ATAMRN = "" - SND.LOAD_HANDLING() + Dim ATAMRN_List As New List(Of VERAG_PROG_ALLGEMEIN.cSendHandling) + Dim ATAMRN = "" + SND.LOAD_HANDLING() - If SND.tblSnd_Abfertigungsart_ID = 23 AndAlso SND.tblSnd_ATANr IsNot Nothing Then - If SND.HANDLING.Count > 0 Then - ATAMRN_List = SND.HANDLING + If SND.tblSnd_Abfertigungsart_ID = 23 AndAlso SND.tblSnd_ATANr IsNot Nothing Then + If SND.HANDLING.Count > 0 Then + ATAMRN_List = SND.HANDLING - ' Else - ' ATAMRN = SND.tblSnd_ATANr - ' If ATAMRN <> "" Then ATAMRN_List.Add(New VERAG_PROG_ALLGEMEIN.cSendHandling(-1, "", ATAMRN, If(IsNumeric(SND.tblSnd_Colli), SND.tblSnd_Colli, ""), If(IsNumeric(SND.tblSnd_Gewicht), SND.tblSnd_Gewicht, ""))) - ' End If - 'Else - ' Dim ZOLLANMELDUNG As New DAKOSY_Worker.cZollsysteme_Aktenbeschriftung - ' ATAMRN = ZOLLANMELDUNG.getATAMRNBezugsnummer(SND.FilialenNr & "/" & SND.AbfertigungsNr, SND.tblSnd_Abfertigungsart_ID.ToString) - ' If ATAMRN <> "" Then ATAMRN_List.Add(New VERAG_PROG_ALLGEMEIN.cSendHandling(-1, "", ATAMRN, If(IsNumeric(SND.tblSnd_Colli), SND.tblSnd_Colli, ""), If(IsNumeric(SND.tblSnd_Gewicht), SND.tblSnd_Gewicht, ""))) - End If + ' Else + ' ATAMRN = SND.tblSnd_ATANr + ' If ATAMRN <> "" Then ATAMRN_List.Add(New VERAG_PROG_ALLGEMEIN.cSendHandling(-1, "", ATAMRN, If(IsNumeric(SND.tblSnd_Colli), SND.tblSnd_Colli, ""), If(IsNumeric(SND.tblSnd_Gewicht), SND.tblSnd_Gewicht, ""))) + ' End If + 'Else + ' Dim ZOLLANMELDUNG As New DAKOSY_Worker.cZollsysteme_Aktenbeschriftung + ' ATAMRN = ZOLLANMELDUNG.getATAMRNBezugsnummer(SND.FilialenNr & "/" & SND.AbfertigungsNr, SND.tblSnd_Abfertigungsart_ID.ToString) + ' If ATAMRN <> "" Then ATAMRN_List.Add(New VERAG_PROG_ALLGEMEIN.cSendHandling(-1, "", ATAMRN, If(IsNumeric(SND.tblSnd_Colli), SND.tblSnd_Colli, ""), If(IsNumeric(SND.tblSnd_Gewicht), SND.tblSnd_Gewicht, ""))) End If + End If - If ATAMRN_List.Count = 0 Then - Dim ZOLLANMELDUNG As New DAKOSY_Worker.cZollsysteme_Aktenbeschriftung - ATAMRN = ZOLLANMELDUNG.getATAMRNBezugsnummer(SND.FilialenNr & "/" & SND.AbfertigungsNr, SND.tblSnd_Abfertigungsart_ID.ToString) + If ATAMRN_List.Count = 0 Then + Dim ZOLLANMELDUNG As New DAKOSY_Worker.cZollsysteme_Aktenbeschriftung + ATAMRN = ZOLLANMELDUNG.getATAMRNBezugsnummer(SND.FilialenNr & "/" & SND.AbfertigungsNr, SND.tblSnd_Abfertigungsart_ID.ToString) - Dim Colli = CDbl(If(IsNumeric(If(SND.tblSnd_Colli, "")), SND.tblSnd_Colli, 0)) - Dim Gewicht = CDbl(If(IsNumeric(If(SND.tblSnd_Gewicht, "")), SND.tblSnd_Gewicht, 0)) + Dim Colli = CDbl(If(IsNumeric(If(SND.tblSnd_Colli, "")), SND.tblSnd_Colli, 0)) + Dim Gewicht = CDbl(If(IsNumeric(If(SND.tblSnd_Gewicht, "")), SND.tblSnd_Gewicht, 0)) - ATAMRN_List.Add(New VERAG_PROG_ALLGEMEIN.cSendHandling(-1, "", ATAMRN, Colli, Gewicht)) - End If + ATAMRN_List.Add(New VERAG_PROG_ALLGEMEIN.cSendHandling(-1, "", ATAMRN, Colli, Gewicht)) + End If - Dim SubRpt As New subRptLaufzettelZollDE_ATA(ATAMRN_List) - rpt.SubReport.Report = SubRpt + Dim SubRpt As New subRptLaufzettelZollDE_ATA(ATAMRN_List, SND.tblSnd_Fremdspedition) + rpt.SubReport.Report = SubRpt - rpt.txtAnmerkung.Visible = False + rpt.txtAnmerkung.Visible = False - 'If ATAMRN_List.Count = 0 Then + 'If ATAMRN_List.Count = 0 Then - ' rpt.txtAnmerkung.Text = "" - ' Dim colliGewicht = "" - ' If If(SND.tblSnd_Colli, "") <> "" Then colliGewicht &= "Colli: " & SND.tblSnd_Colli & "; " - ' If If(SND.tblSnd_Gewicht, "") <> "" Then colliGewicht &= "Gewicht: " & SND.tblSnd_Gewicht & " kg" - ' If colliGewicht <> "" Then rpt.txtAnmerkung.Text = (colliGewicht & vbNewLine & rpt.txtAnmerkung.Text).Trim - ' rpt.txtAnmerkung.Visible = True - 'Else - ' rpt.txtAnmerkung.Visible = False - 'End If + ' rpt.txtAnmerkung.Text = "" + ' Dim colliGewicht = "" + ' If If(SND.tblSnd_Colli, "") <> "" Then colliGewicht &= "Colli: " & SND.tblSnd_Colli & "; " + ' If If(SND.tblSnd_Gewicht, "") <> "" Then colliGewicht &= "Gewicht: " & SND.tblSnd_Gewicht & " kg" + ' If colliGewicht <> "" Then rpt.txtAnmerkung.Text = (colliGewicht & vbNewLine & rpt.txtAnmerkung.Text).Trim + ' rpt.txtAnmerkung.Visible = True + 'Else + ' rpt.txtAnmerkung.Visible = False + 'End If - End Sub + End Sub - AddHandler rpt.Detail.BeforePrint, Sub() - rpt.Shape8.Height = rpt.Detail.Height - rpt.Shape10.Height = rpt.Detail.Height - rpt.Shape11.Height = rpt.Detail.Height - End Sub + AddHandler rpt.Detail.BeforePrint, Sub() + rpt.Shape8.Height = rpt.Detail.Height + rpt.Shape10.Height = rpt.Detail.Height + rpt.Shape11.Height = rpt.Detail.Height + End Sub - If printReportElsePDF Then 'NUR DRUCK!! - rpt.Run(False) + If printReportElsePDF Then 'NUR DRUCK!! + rpt.Run(False) - rpt.Document.Printer.PrinterName = printername - rpt.Document.PrintOptions.Margin = New GrapeCity.ActiveReports.Extensibility.Printing.Margin(0, 0, 0, 0) - rpt.Document.Printer.OriginAtMargins = False + rpt.Document.Printer.PrinterName = printername + rpt.Document.PrintOptions.Margin = New GrapeCity.ActiveReports.Extensibility.Printing.Margin(0, 0, 0, 0) + rpt.Document.Printer.OriginAtMargins = False - rpt.Document.Print((printername = ""), False) - rpt.Dispose() - Else + rpt.Document.Print((printername = ""), False) + rpt.Dispose() + Else tmpPath = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("LaufzettelZollDE.pdf", ".pdf", , False) Dim p As New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport - rpt.Run(False) + rpt.Run(False) - p.NeverEmbedFonts = "" - p.Export(rpt.Document, tmpPath) + p.NeverEmbedFonts = "" + p.Export(rpt.Document, tmpPath) - rpt.Dispose() + rpt.Dispose() - End If + End If - Catch ex As Exception - MessageBox.Show(ex.ToString & ex.StackTrace) + Catch ex As Exception + MessageBox.Show(ex.ToString & ex.StackTrace) End Try Return tmpPath End Function @@ -2076,6 +2089,10 @@ Public Class FormularManagerNEU rpt.txtFirmaInfo_VERAG.Visible = False rpt.txtFirmaInfo_ATILLA.Visible = True rpt.picVERAG.Image = My.Resources.Atilla + Case "FRONTOFFICE" + rpt.txtFirmaInfo_VERAG.Visible = False + rpt.txtFirmeninfo_rontoffice.Visible = True + rpt.picVERAG.Image = My.Resources.FrontOfficeSUB_Horizontal Case Else Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG Case "SBG" : ort = "Bad Reichenhall" @@ -2574,6 +2591,10 @@ Public Class FormularManagerNEU listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtGesamtsumme.Text, 170, top + 61, 30, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT)) + + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Vorauskasse-Datum: " & Now.ToShortDateString, 100, 185.7, 100, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT)) + + If usrCntl.cbxLKWWartet.Checked Then listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("!!! LKW wartet !!!", 141, 12, 60, 15, "boldRed", 20, , iTextSharp.text.Element.ALIGN_LEFT)) End If @@ -2584,21 +2605,45 @@ Public Class FormularManagerNEU 'End If End If + Dim destPath = "" Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA - Case "IMEX" - Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "Importaviso_VK", listTowrite) + Case "IMEX", "UNISPED" + destPath = fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "Importaviso_VK", listTowrite) Case Else Select Case usrCntl.cboFirma._value - Case "CS" : Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "Importaviso_CS_NEU2", listTowrite) - Case Else : Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "Importaviso_AG_NEU2", listTowrite) + Case "CS" : destPath = fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "Importaviso_CS_NEU2", listTowrite) + Case Else : destPath = fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "Importaviso_AG_NEU2", listTowrite) End Select End Select + Try + If destPath <> "" Then + If usrCntl.SENDUNG IsNot Nothing AndAlso usrCntl.AVISO IsNot Nothing Then + If vbYes = MsgBox("Soll das Vorauskasse-PDF zu den Sendungs-Anhängen hinzugefügt werden?", vbYesNo) Then + saveToDS(usrCntl.AVISO.AvisoID, "Vorauskasse.pdf", destPath, "Vorauskasse", "PDF", ,, , usrCntl.SENDUNG.tblSnd_SendungID) + End If + End If + End If + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try - Return "" + Return destPath + End Function + + Public Shared Function saveToDS(AvisoId, fileName, sourcePath, Art, Typ, Optional ByRef da_id = -1, Optional ByRef anhId = -1, Optional ByRef destPath = "", Optional SendungsId = Nothing) As Boolean + Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "AVISO_ANHAENGE", AvisoId, Now.ToString("ddMMyy_HHmmss.ffff"), "", fileName, -1, False) + If Not DS.uploadDataToDATENSERVER(sourcePath) Then MsgBox("Fehler beim Speichern: Datenserver!") : Return False + If DS.da_id <= 0 Then MsgBox("Keine DocId!") : Return False + da_id = DS.da_id + destPath = DS.GET_TOP1_PATH + Dim ANH As New VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge(AvisoId, fileName, DS.da_id, Art, Typ, SendungsId) + If Not ANH.SAVE Then MsgBox("Fehler beim Anhang speichern!") : Return False + anhId = ANH.anh_id + Return True End Function @@ -3577,10 +3622,19 @@ Public Class FormularManagerNEU Public Shared Function getUO2() As String Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA - Case "IMEX", "ATILLA" : Return VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + Case "IMEX", "ATILLA", "UNISPED" : Return VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Case Else : Return "" End Select End Function + + Public Shared Function getUO2(FilialenNr As String) As String + If FilialenNr = "" Then Return getUO2() + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(FilialenNr) + Case "IMEX", "ATILLA", "UNISPED" : Return VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(FilialenNr) + Case Else : Return "" + End Select + End Function + Shared Function saveCreditreform(usrCntl As usrcntlCreditreformBoniAuskunft) As Boolean Try Dim cBonitaetsauskunft As VERAG_PROG_ALLGEMEIN.cBonitaetsauskunft = VERAG_PROG_ALLGEMEIN.cBonitaetsauskunft.LOADByKdNrDate(usrCntl.KdNR, Now) diff --git a/SDL/My Project/Resources.Designer.vb b/SDL/My Project/Resources.Designer.vb index 4957edbc..8a4765fa 100644 --- a/SDL/My Project/Resources.Designer.vb +++ b/SDL/My Project/Resources.Designer.vb @@ -22,7 +22,7 @@ Namespace My.Resources ''' ''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw. ''' - _ @@ -160,6 +160,16 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property android_add_contact() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("android-add-contact", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + ''' ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' @@ -679,11 +689,12 @@ Namespace My.Resources End Property ''' - ''' Sucht eine lokalisierte Zeichenfolge, die ähnelt. + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' - Friend ReadOnly Property ghjj56fghfgfgh5fh() As String + Friend ReadOnly Property FrontOfficeSUB_Horizontal() As System.Drawing.Bitmap Get - Return ResourceManager.GetString("ghjj56fghfgfgh5fh", resourceCulture) + Dim obj As Object = ResourceManager.GetObject("FrontOfficeSUB_Horizontal", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) End Get End Property @@ -1103,6 +1114,16 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property person_add() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("person_add", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + ''' ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' @@ -2031,7 +2052,7 @@ Namespace My.Resources End Property ''' - ''' Sucht eine lokalisierte Zeichenfolge, die 1.1.2.6 ähnelt. + ''' Sucht eine lokalisierte Zeichenfolge, die 1.1.2.9 ähnelt. ''' Friend ReadOnly Property Version() As String Get diff --git a/SDL/My Project/Resources.resx b/SDL/My Project/Resources.resx index d158c57d..c23a56ed 100644 --- a/SDL/My Project/Resources.resx +++ b/SDL/My Project/Resources.resx @@ -136,6 +136,9 @@ ..\Resources\stift.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\plose.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\pdf.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -160,9 +163,6 @@ ..\Resources\axxes.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\Plakette1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\Resources\WAI.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -175,6 +175,9 @@ ..\Resources\statistik2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\IMEX-LOGO-AEO_sig.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\sicherheit1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -283,6 +286,9 @@ ..\Resources\woelfl.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\FrontOfficeSUB.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\Atilla_big1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -325,6 +331,12 @@ ..\Resources\seal2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\Verag-Customs-Service-GMBH-Logo_sig.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\Unisped_logo.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\spedbuch.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -343,6 +355,9 @@ ..\Resources\pfeil_links.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\plose_cz.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\save.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -370,8 +385,8 @@ ..\Resources\handy.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\beleg_rot.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\plose_big.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\Aviso.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -391,24 +406,42 @@ ..\Resources\flagge_D.gif;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\VERAG_AEO_MailSig.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\printer21.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\Route5_IR.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\checklist.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\Verag-AG-Logo21.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\uta.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\data.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\ambar_simple.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\person.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\chimes.wav;System.IO.MemoryStream, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + ..\Resources\sdl_ico.ico;System.Drawing.Icon, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\ambar_simple1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\refresh.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -481,6 +514,9 @@ ..\Resources\beleg_rot11.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\beleg_rot.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\dakosy.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -514,6 +550,9 @@ ..\Resources\statistik1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\android-add-contact1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\search.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -526,18 +565,24 @@ ..\Resources\ids_bg.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\warning2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\ok_gray.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\sicherheit.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\Atilla _sig.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\stift1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\open.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\fragezeichen.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\picboxZoomIn_Enter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -568,6 +613,9 @@ ..\Resources\email.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + 1.1.2.9 + ..\Resources\axxes.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -604,6 +652,9 @@ ..\Resources\print_rg.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\plose_it.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\road.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -634,8 +685,8 @@ ..\Resources\plus.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\printer21.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\warning2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\lorry.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -691,61 +742,16 @@ ..\Resources\checklist.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\Verag-AG-Logo21.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\Plakette1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\flagge_A.gif;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\ambar_simple.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\person_add.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\VERAG_AEO_MailSig.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\Atilla _sig.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\IMEX-LOGO-AEO_sig.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\Verag-Customs-Service-GMBH-Logo_sig.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - 1.1.2.6 - - - ..\Resources\chimes.wav;System.IO.MemoryStream, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - ..\Resources\fragezeichen.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\ok_gray.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\plose.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\plose_big.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\ambar_simple1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\Unisped_logo.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\plose_cz.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\plose_it.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\FrontOfficeSUB.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - + + ..\Resources\Logo_blue_globe_Horizontal.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a \ No newline at end of file diff --git a/SDL/Resources/Logo_blue_globe_Horizontal.jpg b/SDL/Resources/Logo_blue_globe_Horizontal.jpg new file mode 100644 index 00000000..c837375a Binary files /dev/null and b/SDL/Resources/Logo_blue_globe_Horizontal.jpg differ diff --git a/SDL/Resources/MDM_Schreiben/Abholbereit/Abholbereit_DE.dotx b/SDL/Resources/MDM_Schreiben/Abholbereit/Abholbereit_DE.dotx index e15a6125..6116cd25 100644 Binary files a/SDL/Resources/MDM_Schreiben/Abholbereit/Abholbereit_DE.dotx and b/SDL/Resources/MDM_Schreiben/Abholbereit/Abholbereit_DE.dotx differ diff --git a/SDL/Resources/MDM_Schreiben/Abholbereit/Abholbereit_HUGO_DE.dotx b/SDL/Resources/MDM_Schreiben/Abholbereit/Abholbereit_HUGO_DE.dotx index 8864353d..90ff8159 100644 Binary files a/SDL/Resources/MDM_Schreiben/Abholbereit/Abholbereit_HUGO_DE.dotx and b/SDL/Resources/MDM_Schreiben/Abholbereit/Abholbereit_HUGO_DE.dotx differ diff --git a/SDL/Resources/MDM_Schreiben/Abholbereit/Abholbereit_HUGO_RO.dotx b/SDL/Resources/MDM_Schreiben/Abholbereit/Abholbereit_HUGO_RO.dotx index 198ab872..35aeb744 100644 Binary files a/SDL/Resources/MDM_Schreiben/Abholbereit/Abholbereit_HUGO_RO.dotx and b/SDL/Resources/MDM_Schreiben/Abholbereit/Abholbereit_HUGO_RO.dotx differ diff --git a/SDL/Resources/MDM_Schreiben/Abholbereit/Abholbereit_HUGO_YU.dotx b/SDL/Resources/MDM_Schreiben/Abholbereit/Abholbereit_HUGO_YU.dotx index 92934215..2ae12ea2 100644 Binary files a/SDL/Resources/MDM_Schreiben/Abholbereit/Abholbereit_HUGO_YU.dotx and b/SDL/Resources/MDM_Schreiben/Abholbereit/Abholbereit_HUGO_YU.dotx differ diff --git a/SDL/Resources/MDM_Schreiben/Abholbereit/Abholbereit_RO.dotx b/SDL/Resources/MDM_Schreiben/Abholbereit/Abholbereit_RO.dotx index 076c4116..5b190072 100644 Binary files a/SDL/Resources/MDM_Schreiben/Abholbereit/Abholbereit_RO.dotx and b/SDL/Resources/MDM_Schreiben/Abholbereit/Abholbereit_RO.dotx differ diff --git a/SDL/Resources/MDM_Schreiben/Abholbereit/Abholbereit_TR.dotx b/SDL/Resources/MDM_Schreiben/Abholbereit/Abholbereit_TR.dotx index 75d51174..e315130e 100644 Binary files a/SDL/Resources/MDM_Schreiben/Abholbereit/Abholbereit_TR.dotx and b/SDL/Resources/MDM_Schreiben/Abholbereit/Abholbereit_TR.dotx differ diff --git a/SDL/Resources/MDM_Schreiben/Abholbereit/Abholbereit_YU.dotx b/SDL/Resources/MDM_Schreiben/Abholbereit/Abholbereit_YU.dotx index 8f46b803..b117eb27 100644 Binary files a/SDL/Resources/MDM_Schreiben/Abholbereit/Abholbereit_YU.dotx and b/SDL/Resources/MDM_Schreiben/Abholbereit/Abholbereit_YU.dotx differ diff --git a/SDL/Resources/MDM_Schreiben/Abholbereit/CZ/Abholbereit_CZ+PL_TR.dotx b/SDL/Resources/MDM_Schreiben/Abholbereit/CZ/Abholbereit_CZ+PL_TR.dotx index a2fbf161..dacbc31c 100644 Binary files a/SDL/Resources/MDM_Schreiben/Abholbereit/CZ/Abholbereit_CZ+PL_TR.dotx and b/SDL/Resources/MDM_Schreiben/Abholbereit/CZ/Abholbereit_CZ+PL_TR.dotx differ diff --git a/SDL/Resources/MDM_Schreiben/Abholbereit/CZ/Abholbereit_CZ+PL_YU.dotx b/SDL/Resources/MDM_Schreiben/Abholbereit/CZ/Abholbereit_CZ+PL_YU.dotx index f13800fe..af8927ef 100644 Binary files a/SDL/Resources/MDM_Schreiben/Abholbereit/CZ/Abholbereit_CZ+PL_YU.dotx and b/SDL/Resources/MDM_Schreiben/Abholbereit/CZ/Abholbereit_CZ+PL_YU.dotx differ diff --git a/SDL/Resources/MDM_Schreiben/Abholbereit/CZ/Abholbereit_CZ_DE.dotx b/SDL/Resources/MDM_Schreiben/Abholbereit/CZ/Abholbereit_CZ_DE.dotx index cfed94d4..df73ffce 100644 Binary files a/SDL/Resources/MDM_Schreiben/Abholbereit/CZ/Abholbereit_CZ_DE.dotx and b/SDL/Resources/MDM_Schreiben/Abholbereit/CZ/Abholbereit_CZ_DE.dotx differ diff --git a/SDL/Resources/MDM_Schreiben/Abholbereit/CZ/Abholbereit_CZ_RO.dotx b/SDL/Resources/MDM_Schreiben/Abholbereit/CZ/Abholbereit_CZ_RO.dotx index d8cf450c..e6651f89 100644 Binary files a/SDL/Resources/MDM_Schreiben/Abholbereit/CZ/Abholbereit_CZ_RO.dotx and b/SDL/Resources/MDM_Schreiben/Abholbereit/CZ/Abholbereit_CZ_RO.dotx differ diff --git a/SDL/Resources/MDM_Schreiben/Abholbereit/CZ/Abholbereit_CZ_TR.dotx b/SDL/Resources/MDM_Schreiben/Abholbereit/CZ/Abholbereit_CZ_TR.dotx index 79b8b027..5b6d09e0 100644 Binary files a/SDL/Resources/MDM_Schreiben/Abholbereit/CZ/Abholbereit_CZ_TR.dotx and b/SDL/Resources/MDM_Schreiben/Abholbereit/CZ/Abholbereit_CZ_TR.dotx differ diff --git a/SDL/Resources/MDM_Schreiben/Abholbereit/CZ/Abholbereit_CZ_YU.dotx b/SDL/Resources/MDM_Schreiben/Abholbereit/CZ/Abholbereit_CZ_YU.dotx index 3a7239c8..2fde2a91 100644 Binary files a/SDL/Resources/MDM_Schreiben/Abholbereit/CZ/Abholbereit_CZ_YU.dotx and b/SDL/Resources/MDM_Schreiben/Abholbereit/CZ/Abholbereit_CZ_YU.dotx differ diff --git a/SDL/Resources/MDM_Schreiben/Abholbereit/IDS/Abholbereit_IDS_DE.dotx b/SDL/Resources/MDM_Schreiben/Abholbereit/IDS/Abholbereit_IDS_DE.dotx index effcec57..6460b9b5 100644 Binary files a/SDL/Resources/MDM_Schreiben/Abholbereit/IDS/Abholbereit_IDS_DE.dotx and b/SDL/Resources/MDM_Schreiben/Abholbereit/IDS/Abholbereit_IDS_DE.dotx differ diff --git a/SDL/Resources/MDM_Schreiben/Abholbereit/IDS/Abholbereit_IDS_RO.dotx b/SDL/Resources/MDM_Schreiben/Abholbereit/IDS/Abholbereit_IDS_RO.dotx index aab46e84..0cb5f261 100644 Binary files a/SDL/Resources/MDM_Schreiben/Abholbereit/IDS/Abholbereit_IDS_RO.dotx and b/SDL/Resources/MDM_Schreiben/Abholbereit/IDS/Abholbereit_IDS_RO.dotx differ diff --git a/SDL/Resources/MDM_Schreiben/Abholbereit/IDS/Abholbereit_IDS_YU.dotx b/SDL/Resources/MDM_Schreiben/Abholbereit/IDS/Abholbereit_IDS_YU.dotx index de3665f5..802df906 100644 Binary files a/SDL/Resources/MDM_Schreiben/Abholbereit/IDS/Abholbereit_IDS_YU.dotx and b/SDL/Resources/MDM_Schreiben/Abholbereit/IDS/Abholbereit_IDS_YU.dotx differ diff --git a/SDL/Resources/MDM_Schreiben/Abholbereit/MSE/Abholbereit_MSE_DE.dotx b/SDL/Resources/MDM_Schreiben/Abholbereit/MSE/Abholbereit_MSE_DE.dotx index ea6306f8..4590ab84 100644 Binary files a/SDL/Resources/MDM_Schreiben/Abholbereit/MSE/Abholbereit_MSE_DE.dotx and b/SDL/Resources/MDM_Schreiben/Abholbereit/MSE/Abholbereit_MSE_DE.dotx differ diff --git a/SDL/Resources/MDM_Schreiben/Abholbereit/MSE/Abholbereit_MSE_RO.dotx b/SDL/Resources/MDM_Schreiben/Abholbereit/MSE/Abholbereit_MSE_RO.dotx index d1c92a62..dea19bb3 100644 Binary files a/SDL/Resources/MDM_Schreiben/Abholbereit/MSE/Abholbereit_MSE_RO.dotx and b/SDL/Resources/MDM_Schreiben/Abholbereit/MSE/Abholbereit_MSE_RO.dotx differ diff --git a/SDL/Resources/MDM_Schreiben/Abholbereit/MSE/Abholbereit_MSE_YU.dotx b/SDL/Resources/MDM_Schreiben/Abholbereit/MSE/Abholbereit_MSE_YU.dotx index d9c3c1f3..9e8c86ed 100644 Binary files a/SDL/Resources/MDM_Schreiben/Abholbereit/MSE/Abholbereit_MSE_YU.dotx and b/SDL/Resources/MDM_Schreiben/Abholbereit/MSE/Abholbereit_MSE_YU.dotx differ diff --git a/SDL/Resources/MDM_Schreiben/Abholbereit/PL/Abholbereit_PL_DE.dotx b/SDL/Resources/MDM_Schreiben/Abholbereit/PL/Abholbereit_PL_DE.dotx index 0c523691..075dd62c 100644 Binary files a/SDL/Resources/MDM_Schreiben/Abholbereit/PL/Abholbereit_PL_DE.dotx and b/SDL/Resources/MDM_Schreiben/Abholbereit/PL/Abholbereit_PL_DE.dotx differ diff --git a/SDL/Resources/MDM_Schreiben/Abholbereit/PL/Abholbereit_PL_TR.dotx b/SDL/Resources/MDM_Schreiben/Abholbereit/PL/Abholbereit_PL_TR.dotx index cd71108b..d0d97aaa 100644 Binary files a/SDL/Resources/MDM_Schreiben/Abholbereit/PL/Abholbereit_PL_TR.dotx and b/SDL/Resources/MDM_Schreiben/Abholbereit/PL/Abholbereit_PL_TR.dotx differ diff --git a/SDL/Resources/MDM_Schreiben/Abholbereit/PL/Abholbereit_PL_YU.dotx b/SDL/Resources/MDM_Schreiben/Abholbereit/PL/Abholbereit_PL_YU.dotx index 036a2971..679c948c 100644 Binary files a/SDL/Resources/MDM_Schreiben/Abholbereit/PL/Abholbereit_PL_YU.dotx and b/SDL/Resources/MDM_Schreiben/Abholbereit/PL/Abholbereit_PL_YU.dotx differ diff --git a/SDL/Resources/MDM_Schreiben/Abholbereit/UTA/Abholbereit_UTA_DE.dotx b/SDL/Resources/MDM_Schreiben/Abholbereit/UTA/Abholbereit_UTA_DE.dotx index 91b6d306..d057ec64 100644 Binary files a/SDL/Resources/MDM_Schreiben/Abholbereit/UTA/Abholbereit_UTA_DE.dotx and b/SDL/Resources/MDM_Schreiben/Abholbereit/UTA/Abholbereit_UTA_DE.dotx differ diff --git a/SDL/Resources/MDM_Schreiben/Abholbereit/UTA/Abholbereit_UTA_RO.dotx b/SDL/Resources/MDM_Schreiben/Abholbereit/UTA/Abholbereit_UTA_RO.dotx index 2303789c..365dda67 100644 Binary files a/SDL/Resources/MDM_Schreiben/Abholbereit/UTA/Abholbereit_UTA_RO.dotx and b/SDL/Resources/MDM_Schreiben/Abholbereit/UTA/Abholbereit_UTA_RO.dotx differ diff --git a/SDL/Resources/MDM_Schreiben/Abholbereit/UTA/Abholbereit_UTA_TR.dotx b/SDL/Resources/MDM_Schreiben/Abholbereit/UTA/Abholbereit_UTA_TR.dotx index b2108ff5..dc61fc51 100644 Binary files a/SDL/Resources/MDM_Schreiben/Abholbereit/UTA/Abholbereit_UTA_TR.dotx and b/SDL/Resources/MDM_Schreiben/Abholbereit/UTA/Abholbereit_UTA_TR.dotx differ diff --git a/SDL/Resources/MDM_Schreiben/Abholbereit/UTA/Abholbereit_UTA_YU.dotx b/SDL/Resources/MDM_Schreiben/Abholbereit/UTA/Abholbereit_UTA_YU.dotx index 60176b5f..2e484c53 100644 Binary files a/SDL/Resources/MDM_Schreiben/Abholbereit/UTA/Abholbereit_UTA_YU.dotx and b/SDL/Resources/MDM_Schreiben/Abholbereit/UTA/Abholbereit_UTA_YU.dotx differ diff --git a/SDL/Resources/MDM_Schreiben/Bestellfomulare/Bestellung_MAN_Abgasplakette.dotx b/SDL/Resources/MDM_Schreiben/Bestellfomulare/Bestellung_MAN_Abgasplakette.dotx index a6e4f1ca..19c9170e 100644 Binary files a/SDL/Resources/MDM_Schreiben/Bestellfomulare/Bestellung_MAN_Abgasplakette.dotx and b/SDL/Resources/MDM_Schreiben/Bestellfomulare/Bestellung_MAN_Abgasplakette.dotx differ diff --git a/SDL/Resources/MDM_Schreiben/Retour/CZ.doc b/SDL/Resources/MDM_Schreiben/Retour/CZ.doc index c0f244d5..1ac9ff09 100644 Binary files a/SDL/Resources/MDM_Schreiben/Retour/CZ.doc and b/SDL/Resources/MDM_Schreiben/Retour/CZ.doc differ diff --git a/SDL/Resources/MDM_Schreiben/Retour/HUGO.doc b/SDL/Resources/MDM_Schreiben/Retour/HUGO.doc index 0079c69c..c5ded1d5 100644 Binary files a/SDL/Resources/MDM_Schreiben/Retour/HUGO.doc and b/SDL/Resources/MDM_Schreiben/Retour/HUGO.doc differ diff --git a/SDL/Resources/MDM_Schreiben/Retour/MULTIBOX.doc b/SDL/Resources/MDM_Schreiben/Retour/MULTIBOX.doc index d8f993c5..b753fb5f 100644 Binary files a/SDL/Resources/MDM_Schreiben/Retour/MULTIBOX.doc and b/SDL/Resources/MDM_Schreiben/Retour/MULTIBOX.doc differ diff --git a/SDL/Resources/MDM_Schreiben/Retour/SI.doc b/SDL/Resources/MDM_Schreiben/Retour/SI.doc index 6009852b..b277a0cd 100644 Binary files a/SDL/Resources/MDM_Schreiben/Retour/SI.doc and b/SDL/Resources/MDM_Schreiben/Retour/SI.doc differ diff --git a/SDL/Resources/MDM_Schreiben/Retour/TELEPASS.doc b/SDL/Resources/MDM_Schreiben/Retour/TELEPASS.doc index 9217d1d6..eb9ade29 100644 Binary files a/SDL/Resources/MDM_Schreiben/Retour/TELEPASS.doc and b/SDL/Resources/MDM_Schreiben/Retour/TELEPASS.doc differ diff --git a/SDL/Resources/MDM_Schreiben/Retour/VIATOLL.doc b/SDL/Resources/MDM_Schreiben/Retour/VIATOLL.doc index c5082711..f25567b8 100644 Binary files a/SDL/Resources/MDM_Schreiben/Retour/VIATOLL.doc and b/SDL/Resources/MDM_Schreiben/Retour/VIATOLL.doc differ diff --git a/SDL/Resources/MDM_Schreiben/Uebernahmebestätigung/ÃœBERNAHMEBESTÄTIGUNG.dotx b/SDL/Resources/MDM_Schreiben/Uebernahmebestätigung/ÃœBERNAHMEBESTÄTIGUNG.dotx index 596d3d47..c80d6b80 100644 Binary files a/SDL/Resources/MDM_Schreiben/Uebernahmebestätigung/ÃœBERNAHMEBESTÄTIGUNG.dotx and b/SDL/Resources/MDM_Schreiben/Uebernahmebestätigung/ÃœBERNAHMEBESTÄTIGUNG.dotx differ diff --git a/SDL/Resources/android-add-contact1.png b/SDL/Resources/android-add-contact1.png new file mode 100644 index 00000000..0f8ace86 Binary files /dev/null and b/SDL/Resources/android-add-contact1.png differ diff --git a/SDL/Resources/person_add.jpg b/SDL/Resources/person_add.jpg new file mode 100644 index 00000000..d43e4002 Binary files /dev/null and b/SDL/Resources/person_add.jpg differ diff --git a/SDL/SDL.vbproj b/SDL/SDL.vbproj index 8d810288..6c6549b1 100644 --- a/SDL/SDL.vbproj +++ b/SDL/SDL.vbproj @@ -1200,6 +1200,12 @@ Form + + frmKundenDatenblatt.vb + + + Form + frmKundenKontakteDetails.vb @@ -1320,10 +1326,10 @@ Form - + frmMDMDatenverarbetiung.vb - + Form @@ -2727,6 +2733,9 @@ frmKundenChangeMail.vb + + frmKundenDatenblatt.vb + frmKundenKontakteDetails.vb @@ -2787,7 +2796,7 @@ frmSDLBestellungEintrag.vb - + frmMDMDatenverarbetiung.vb @@ -3620,6 +3629,8 @@ + + @@ -3744,6 +3755,7 @@ + Always diff --git a/SDL/SMS/frmSendSMS.vb b/SDL/SMS/frmSendSMS.vb index f458f33f..3a9390ac 100644 --- a/SDL/SMS/frmSendSMS.vb +++ b/SDL/SMS/frmSendSMS.vb @@ -54,14 +54,13 @@ Public Class frmSendSMS End If End If - 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) + If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA <> "VERAG" Then + 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() @@ -136,7 +135,7 @@ Public Class frmSendSMS 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 "FRONTOFFICE" : absenderAccount = "EX0300173" : absenderFirma = "FRONT-OFFICE SUBEN" Case Else : MsgBox("Fehler bei der Datenprüfung: Firmendaten.") : Exit Sub End Select @@ -198,11 +197,13 @@ Public Class frmSendSMS Sub fillTXT(s) If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA <> "VERAG" Then - txtNachricht.Text = s.ToString.Replace("VERAG", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA) + txtNachricht.Text = s.ToString.Replace("VERAG", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA.Replace("FRONTOFFICE", "FRONT-OFFICE SUBEN")) Else txtNachricht.Text = s End If - + If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE" Then + txtNachricht.Text &= vbNewLine & "VERAG | UNISPED | IMEX" + End If End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click diff --git a/SDL/Speditionsbuch/Nacherfassung/frmNacherfassungNEU.vb b/SDL/Speditionsbuch/Nacherfassung/frmNacherfassungNEU.vb index 3aba1503..6f73e22d 100644 --- a/SDL/Speditionsbuch/Nacherfassung/frmNacherfassungNEU.vb +++ b/SDL/Speditionsbuch/Nacherfassung/frmNacherfassungNEU.vb @@ -63,6 +63,7 @@ Public Class frmNacherfassungNEU Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Case "ATILLA" : sbWhere = " AND Niederlassung = 'SUA' " Case "IMEX" : sbWhere = " AND Mandant = 'IMEX' " + Case "UNISPED" : sbWhere = " AND Mandant = 'UNAT' " Case Else 'If AVISO IsNot Nothing Then ' Select Case AVISO.Grenzstelle @@ -562,13 +563,15 @@ Public Class frmNacherfassungNEU Dim where = "" Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Case "IMEX" : cboFiliale._allowedValuesFreiText = {"5501"} : where = " AND mit_firma IN ('IMEX','BEIDE') " + Case "UNISPED" : cboFiliale._allowedValuesFreiText = {"5601"} : where = " AND mit_firma IN ('UNISPED','BEIDE') " + Case "FRONTOFFICE" : where = " AND mit_firma NOT IN ('ATILLA') " Case "ATILLA" : cboFiliale._allowedValuesFreiText = {"4801"} - Case Else : where = " AND mit_firma <> 'IMEX' " + Case Else : where = " AND mit_firma NOT IN ('IMEX','UNISPED','AMBAR','FRONTOFFICE') " End Select ' cboQuickStopMa.fillWithSQL("SELECT ID,cast(ID as nvarchar(3)) +' ' + Name as Name FROM Personal WHERE [Status]<>'L' ORDER BY Name ", False, "FMZOLL", True) cboQuickStopMa.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 " & where & " order by name", False, "ADMIN", True) + " FROM [tblMitarbeiter] WHERE mit_niederlassung IN ('SUB','Suben') AND mit_abteilung='QS' AND [mit_gekuendigt]=0 " & where & " order by name", False, "ADMIN", True) 'ComboBox1.fillWithSQL("SELECT [Abfertigungsart],[Abfertigungsbezeichnung] FROM [Abfertigungsarten] ORDER BY Abfertigungsart ", True, "FMZOLL") @@ -584,6 +587,12 @@ Public Class frmNacherfassungNEU cboAbfertigungsart.fillWithSQL("SELECT Abfertigungsart,[Abfertigungsbezeichnung] FROM [Abfertigungsarten]", True, "FMZOLL", True) Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + Case "FRONTOFFICE" + cboZollsystem.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", "")) + cboZollsystem.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EZOLL", "E")) + cboZollsystem.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DAKOSY", "D")) + cboZollsystem.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TELOTEC", "T")) + cboZollsystem.changeItem("D") Case "IMEX" cboZollsystem.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", "")) cboZollsystem.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DAKOSY", "D")) @@ -596,7 +605,7 @@ Public Class frmNacherfassungNEU cboZollsystem.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DAKOSY", "D")) cboZollsystem.SelectedIndex = 0 End Select - + cboFiskalSchreiben.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Empfänger", "EMPF")) cboFiskalSchreiben.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Endempfänger", "ENDEMPF")) diff --git a/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb b/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb index e3c9eab9..6386c056 100644 --- a/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb +++ b/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb @@ -354,7 +354,7 @@ 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) - If VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE <> "" Then + If VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE <> "" And Not VERAG_PROG_ALLGEMEIN.cAllgemein.isCLUSTER Then cboFiliale._allowedValuesFreiText = {VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE} cboFiliale.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE) cboFiliale.Enabled = False @@ -374,7 +374,7 @@ Public Class usrCntlSpeditionsBuchSuche 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") - If VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE <> "" Then + If VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE <> "" And Not VERAG_PROG_ALLGEMEIN.cAllgemein.isCLUSTER 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") diff --git a/SDL/cProgramFunctions.vb b/SDL/cProgramFunctions.vb index e362f279..d7452d39 100644 --- a/SDL/cProgramFunctions.vb +++ b/SDL/cProgramFunctions.vb @@ -177,7 +177,8 @@ Public Class cProgramFunctions If Filiale = 4801 Then docid = SQL_VERAG.getValueTxtBySql("SELECT TOP 1 isnull([DocNo],-1) FROM [Therefore].[dbo].[TheCat17] WHERE [String] LIKE '" & abfertNr & "' ORDER BY [Eingabedatum] DESC", "SCANCANON") Else - docid = SQL_VERAG.getValueTxtBySql("SELECT TOP 1 isnull([DocNo],-1) FROM [Therefore].[dbo].[TheCat119] WHERE [String] LIKE '" & abfertNr & "' ORDER BY [Eingabedatum] DESC", "SCANCANON") + docid = SQL_VERAG.getValueTxtBySql("SELECT TOP 1 isnull([DocNo],-1) FROM [Therefore].[dbo].[TheCat153] WHERE [String] LIKE '" & abfertNr & "' ORDER BY [Eingabedatum] DESC", "SCANCANON") + If Not IsNumeric(docid) OrElse docid <= 0 Then docid = SQL_VERAG.getValueTxtBySql("SELECT TOP 1 isnull([DocNo],-1) FROM [Therefore].[dbo].[TheCat119] WHERE [String] LIKE '" & abfertNr & "' ORDER BY [Eingabedatum] DESC", "SCANCANON") If Not IsNumeric(docid) OrElse docid <= 0 Then docid = SQL_VERAG.getValueTxtBySql("SELECT TOP 1 isnull([DocNo],-1) FROM [Therefore].[dbo].[TheCat109] WHERE [String] LIKE '" & abfertNr & "' ORDER BY [Eingabedatum] DESC", "SCANCANON") If Not IsNumeric(docid) OrElse docid <= 0 Then docid = SQL_VERAG.getValueTxtBySql("SELECT TOP 1 isnull([DocNo],-1) FROM [Therefore].[dbo].[TheCat101] WHERE [String] LIKE '" & abfertNr & "' ORDER BY [Eingabedatum] DESC", "SCANCANON") If Not IsNumeric(docid) OrElse docid <= 0 Then docid = SQL_VERAG.getValueTxtBySql("SELECT TOP 1 isnull([DocNo],-1) FROM [Therefore].[dbo].[TheCat84] WHERE [String] LIKE '" & abfertNr & "' ORDER BY [Eingabedatum] DESC", "SCANCANON") @@ -317,7 +318,8 @@ Public Class cProgramFunctions Try Dim srch = KundenNr & "%" Dim docid As String = "" - docid = SQL_VERAG.getValueTxtBySql("SELECT TOP 1 isnull([DocNo],-1) FROM [Therefore].[dbo].[TheCat128] WHERE [String] LIKE '" & srch & "' ORDER BY [Eingabedatum] DESC", "SCANCANON") + docid = SQL_VERAG.getValueTxtBySql("SELECT TOP 1 isnull([DocNo],-1) FROM [Therefore].[dbo].[TheCat205] WHERE [String] LIKE '" & srch & "' ORDER BY [Eingabedatum] DESC", "SCANCANON") + If Not IsNumeric(docid) OrElse docid <= 0 Then docid = SQL_VERAG.getValueTxtBySql("SELECT TOP 1 isnull([DocNo],-1) FROM [Therefore].[dbo].[TheCat128] WHERE [String] LIKE '" & srch & "' ORDER BY [Eingabedatum] DESC", "SCANCANON") If Not IsNumeric(docid) OrElse docid <= 0 Then docid = SQL_VERAG.getValueTxtBySql("SELECT TOP 1 isnull([DocNo],-1) FROM [Therefore].[dbo].[TheCat114] WHERE [String] LIKE '" & srch & "' ORDER BY [Eingabedatum] DESC", "SCANCANON") If Not IsNumeric(docid) OrElse docid <= 0 Then docid = SQL_VERAG.getValueTxtBySql("SELECT TOP 1 isnull([DocNo],-1) FROM [Therefore].[dbo].[TheCat99] WHERE [String] LIKE '" & srch & "' ORDER BY [Eingabedatum] DESC", "SCANCANON") If Not IsNumeric(docid) OrElse docid <= 0 Then docid = SQL_VERAG.getValueTxtBySql("SELECT TOP 1 isnull([DocNo],-1) FROM [Therefore].[dbo].[TheCat88] WHERE [String] LIKE '" & srch & "' ORDER BY [Eingabedatum] DESC", "SCANCANON") diff --git a/SDL/cSqlDb.vb b/SDL/cSqlDb.vb index 87e551ea..e08b9f63 100644 --- a/SDL/cSqlDb.vb +++ b/SDL/cSqlDb.vb @@ -1782,6 +1782,25 @@ Public Class kundenSQL Return False End Function + Public Function setVollmacht_DSId(ByVal kdvm_KundenNr As Integer, ByVal kdvm_kdvmaId As Integer, ByVal kdvm_datenarchivId As Integer) As Boolean + Try + Dim d As String = "" + Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("UPDATE [tblKundenVollmachten] SET [kdvm_datenarchivId]=@kdvm_datenarchivId WHERE [kdvm_KundenNr]=@kdvm_KundenNr AND kdvm_kdvmaId =@kdvm_kdvmaId ", conn) + + cmd.Parameters.AddWithValue("@kdvm_KundenNr", kdvm_KundenNr) + cmd.Parameters.AddWithValue("@kdvm_kdvmaId", kdvm_kdvmaId) + cmd.Parameters.AddWithValue("@kdvm_datenarchivId", kdvm_datenarchivId) + cmd.ExecuteNonQuery() + Return True + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message) + End Try + Return False + + End Function Public Function setPartnerKdNrFromFMZOLL(ByVal columnName As String, ByVal value As Object, ByVal AdressenNr As String) As Boolean Dim sql = "UPDATE Adressen " & " SET [" & columnName & "]=@value " & diff --git a/SDL/kassenbuch/KassenbuchSuche/frmKassenbuchSuche.vb b/SDL/kassenbuch/KassenbuchSuche/frmKassenbuchSuche.vb index 402089ed..032dbc94 100644 --- a/SDL/kassenbuch/KassenbuchSuche/frmKassenbuchSuche.vb +++ b/SDL/kassenbuch/KassenbuchSuche/frmKassenbuchSuche.vb @@ -843,7 +843,7 @@ Public Class frmKassenbuchSuche Dim sqlStr = "" sqlStr &= " SELECT Benutzer,Name, Konto, Sum(tblKassenbuch.Soll) AS Soll, Sum(tblKassenbuch.Haben) AS Haben, (Sum(tblKassenbuch.Soll)-Sum(tblKassenbuch.Haben)) AS Saldo " sqlStr &= " FROM Personal INNER JOIN tblKassenbuch ON Personal.ID = tblKassenbuch.Benutzer " - sqlStr &= " WHERE tblKassenbuch.Geschäftsjahr='" & If(Now.Month = 1, Now.Year - 1, Now.Year) & "' and konto=KassenbuchNr " + sqlStr &= " WHERE tblKassenbuch.Geschäftsjahr='" & cRKSV.getGJ(Now) & "' and konto=KassenbuchNr " If MyComboBox1._value <> "" Then sqlStr &= " AND rksv_id=" & MyComboBox1._value & " " If MyComboBox2._value <> "" Then sqlStr &= " AND tblKassenbuch.Niederlassung ='" & MyComboBox2._value & "'" sqlStr &= " group by Benutzer,Name, Konto order by Name" diff --git a/SDL/kassenbuch/frmBelegNeu.vb b/SDL/kassenbuch/frmBelegNeu.vb index d74747fe..55b81d71 100644 --- a/SDL/kassenbuch/frmBelegNeu.vb +++ b/SDL/kassenbuch/frmBelegNeu.vb @@ -325,6 +325,7 @@ Public Class frmBelegNeu If PERSONAL.Niederlassung = "WAI" Then where = "Preislisten_visibleWAI = 1" If PERSONAL.Niederlassung = "NKD" Then where = "Preislisten_visibleNKD = 1" If PERSONAL.Niederlassung = "IME" Then where = "Preislisten_visibleIMEX = 1" + If PERSONAL.Mandant = "FO" Then where = "Preislisten_visibleFRONTOFFICE = 1" If PERSONAL.isLeihgeldkasse Then diff --git a/SDL/kassenbuch/frmKassenbuch.vb b/SDL/kassenbuch/frmKassenbuch.vb index 0756e623..1b0d1b55 100644 --- a/SDL/kassenbuch/frmKassenbuch.vb +++ b/SDL/kassenbuch/frmKassenbuch.vb @@ -2,7 +2,7 @@ Public Class frmKassenbuch Dim SQL As New SQL - Public GESCHAEFTSJAHR As Integer = IIf(Now.Month = 1, Now.Year - 1, Now.Year) + Public GESCHAEFTSJAHR As Integer = cRKSV.getGJ(Now) 'IIf(Now.Month = 1, Now.Year - 1, Now.Year) Dim PERSONAL As cPersonal Dim PERSONAL_LG As cPersonal = Nothing ' Dim PERSONAL_TMP_MASTER_KASSSE As cPersonal @@ -52,6 +52,10 @@ Public Class frmKassenbuch End If End Function Private Sub frmKassenbuch_Load(sender As Object, e As EventArgs) Handles Me.Load + + GESCHAEFTSJAHR = cRKSV.getGJ(Now) + + If PERSONAL.ID = 274 Then master_Kasse = True If VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME = "ADMIN" Or VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME = "SIENER" Then Button6.Visible = True @@ -385,7 +389,7 @@ Public Class frmKassenbuch Case Else End Select - Dim GESCHAEFTSJAHR = IIf(von.Month = 1, von.Year - 1, von.Year) + Dim GESCHAEFTSJAHR = cRKSV.getGJ(von) ' iif (von.Month = 1, von.Year - 1, von.Year) Dim sum = 0 rpt.lblUeberschrift.Text = "Kassenbuch " & von.ToShortDateString & " bis " & bis.ToShortDateString rpt.lblGeschaeftsjahr.Text = GESCHAEFTSJAHR @@ -409,7 +413,7 @@ Public Class frmKassenbuch rpt.lblJournalNr.Text = rpt.Fields.Item("JournalNr").Value() Dim BuDat As Date = CDate(rpt.Fields.Item("Buchungsdatum").Value()).ToShortDateString rpt.lblBelegDat.Text = BuDat - Dim GESCHAEFTSJAHR_TMP = IIf(BuDat.Month = 1, BuDat.Year - 1, BuDat.Year) + Dim GESCHAEFTSJAHR_TMP = cRKSV.getGJ(BuDat) ''IIf(BuDat.Month = 1, BuDat.Year - 1, BuDat.Year) rpt.lblBelegNr.Text = IIf(rpt.Fields.Item("rksv_BelegId").Value Is DBNull.Value, "(" & rpt.Fields.Item("BelegNr").Value & ")", rpt.Fields.Item("rksv_BelegId").Value()) rpt.lblBuchungstext.Text = rpt.Fields.Item("Buchungstext").Value() ' rpt.lblKonto.Text = SQL.getValueTxtBySql("SELECT CASE WHEN COUNT(distinct(konto))>1 THEN 'div.' ELSE CONVERT(VARCHAR(4),MAX(konto)) END as Konto, SUM(soll)as Soll, SUM(haben) as Haben FROM [tblKassenbuch] " & @@ -471,7 +475,7 @@ Public Class frmKassenbuch End If Dim von As Date = frmVonBis.datVon.Value.ToShortDateString Dim bis As Date = frmVonBis.datBis.Value.ToShortDateString - Dim GESCHAEFTSJAHR = IIf(von.Month = 1, von.Year - 1, von.Year) + Dim GESCHAEFTSJAHR = cRKSV.getGJ(Now) ' IIf(von.Month = 1, von.Year - 1, von.Year) ' rpt.DataSource = SQL.loadDgvBySql("SELECT MIN(JournalNr)as JournalNr, MAX(BelegDat)as BelegDat,MAX(Buchungsdatum)as Buchungsdatum,MAX(belegNr) as BelegNr, (SELECT top 1 t.Buchungstext FROM [tblKassenbuch] as t WHERE journalnr=t.journalnr) as Buchungstext,(SELECT top 1 t.konto FROM [tblKassenbuch] as t WHERE journalnr=t.journalnr) as Konto, SUM(Soll) as Soll,SUM(haben) as Haben " & ' "FROM [tblKassenbuch] WHERE CAST(Buchungsdatum as date) BETWEEN '" & von.ToShortDateString & "' AND '" & bis.ToShortDateString & "' And Benutzer=" & PERSONAL.ID & " group by BelegNr", "FMZOLL") 'cProgramFunctions.dgridViewTods(dgvBelegPos) @@ -540,7 +544,7 @@ Public Class frmKassenbuch rpt.lblJournalNr.Text = rpt.Fields.Item("JournalNr").Value() Dim BuDat As Date = CDate(rpt.Fields.Item("Buchungsdatum").Value()).ToShortDateString rpt.lblBelegDat.Text = BuDat - Dim GESCHAEFTSJAHR_TMP = IIf(BuDat.Month = 1, BuDat.Year - 1, BuDat.Year) + Dim GESCHAEFTSJAHR_TMP = cRKSV.getGJ(BuDat) 'IIf(BuDat.Month = 1, BuDat.Year - 1, BuDat.Year) rpt.lblBelegNr.Text = IIf(rpt.Fields.Item("rksv_BelegId").Value Is DBNull.Value, "(" & rpt.Fields.Item("BelegNr").Value & ")", rpt.Fields.Item("rksv_BelegId").Value()) rpt.lblBuchungstext.Text = rpt.Fields.Item("Buchungstext").Value() rpt.lblKonto.Text = rpt.Fields.Item("Konto").Value() @@ -612,7 +616,7 @@ Public Class frmKassenbuch End If Dim von As Date = frmVonBis.datVon.Value.ToShortDateString Dim bis As Date = frmVonBis.datBis.Value.ToShortDateString - Dim GESCHAEFTSJAHR = IIf(von.Month = 1, von.Year - 1, von.Year) + Dim GESCHAEFTSJAHR = cRKSV.getGJ(von) ' IIf(von.Month = 1, von.Year - 1, von.Year) Dim where = "" Dim benutzerTMP = "" @@ -1138,7 +1142,7 @@ Public Class frmKassenbuch Case Else End Select - Dim GESCHAEFTSJAHR = IIf(von.Month = 1, von.Year - 1, von.Year) + Dim GESCHAEFTSJAHR = cRKSV.getGJ(von) ' IIf(von.Month = 1, von.Year - 1, von.Year) Dim sum = 0 rpt.lblUeberschrift.Text = "Kassenbuch " & von.ToShortDateString & " bis " & bis.ToShortDateString rpt.lblGeschaeftsjahr.Text = GESCHAEFTSJAHR @@ -1164,7 +1168,7 @@ Public Class frmKassenbuch Dim BuDat As Date = CDate(rpt.Fields.Item("Buchungsdatum").Value()).ToShortDateString rpt.lblBelegDat.Text = BuDat - Dim GESCHAEFTSJAHR_TMP = IIf(BuDat.Month = 1, BuDat.Year - 1, BuDat.Year) + Dim GESCHAEFTSJAHR_TMP = cRKSV.getGJ(BuDat) 'IIf(BuDat.Month = 1, BuDat.Year - 1, BuDat.Year) rpt.lblBelegNr.Text = IIf(rpt.Fields.Item("rksv_BelegId").Value Is DBNull.Value, "(" & rpt.Fields.Item("BelegNr").Value & ")", rpt.Fields.Item("rksv_BelegId").Value()) rpt.lblBuText.Text = rpt.Fields.Item("Buchungstext").Value() diff --git a/SDL/kassenbuch/frmNacherfassungLeihgeld.vb b/SDL/kassenbuch/frmNacherfassungLeihgeld.vb index 3f8f07da..f96044fb 100644 --- a/SDL/kassenbuch/frmNacherfassungLeihgeld.vb +++ b/SDL/kassenbuch/frmNacherfassungLeihgeld.vb @@ -565,7 +565,7 @@ Public Class frmNacherfassungLeihgeld If barcodeLKW IsNot Nothing Then VALUES.barcodeLKW = barcodeLKW If barcode IsNot Nothing Then VALUES.barcodeSendung = barcode - Dim rpt As New Gemeinsames.rptSendungen(VALUES, imgpath, Nothing) + Dim rpt As New Gemeinsames.rptSendungen(VALUES, imgpath, Nothing, Nothing) ' rpt.Document.CacheToDisk = True 'rpt.Document.CacheToDiskLocation = "C:\\Temp" ' rpt.Run() diff --git a/SDL/kassenbuch/frmSecureLoginKassenbuch.vb b/SDL/kassenbuch/frmSecureLoginKassenbuch.vb index 2672aba2..371bd861 100644 --- a/SDL/kassenbuch/frmSecureLoginKassenbuch.vb +++ b/SDL/kassenbuch/frmSecureLoginKassenbuch.vb @@ -95,6 +95,7 @@ Public Class frmSecureLoginKassenbuch Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Case "ATILLA" : where = " AND Niederlassung = 'SUA' " Case "IMEX" : where = " AND Mandant = 'IMEX' " + Case "FRONTOFFICE" : where = " AND Mandant = 'FO' " Case Else If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("KASSE_BH_LOGIN", Me) Then where = " AND Niederlassung <> 'SUA' " @@ -146,7 +147,7 @@ Public Class frmSecureLoginKassenbuch Dim sqlstr = "SELECT Sum(tblKassenbuch.Soll) AS Soll, Sum(tblKassenbuch.Haben) AS Haben, (Sum(tblKassenbuch.Soll)-Sum(tblKassenbuch.Haben)) AS Saldo " & " FROM Personal INNER JOIN tblKassenbuch ON Personal.ID = tblKassenbuch.Benutzer " & " WHERE tblKassenbuch.Mandant='" & PERSONAL_tmp.Mandant & "' AND tblKassenbuch.Niederlassung='" & PERSONAL_tmp.Niederlassung & "' " & - " And tblKassenbuch.Benutzer=" & PERSONAL_tmp.ID & " AND tblKassenbuch.Geschäftsjahr=" & IIf(Now.Month = 1, Now.Year - 1, Now.Year) & " AND tblKassenbuch.Konto=" & PERSONAL_tmp.KassenbuchNr & "" + " And tblKassenbuch.Benutzer=" & PERSONAL_tmp.ID & " AND tblKassenbuch.Geschäftsjahr=" & cRKSV.getGJ(Now) & " AND tblKassenbuch.Konto=" & PERSONAL_tmp.KassenbuchNr & "" Dim dt As DataTable = SQL.loadDgvBySql(sqlstr, "FMZOLL") Label6.Text = CDbl(If(dt.Rows.Count > 0, cSqlDb.checkNullReturnValue(dt.Rows(0)("Saldo"), 0), 0)).ToString("C") diff --git a/SDL/kunden/Vorauskasse/frmVorauskasse.vb b/SDL/kunden/Vorauskasse/frmVorauskasse.vb index 21c1dfe2..4b27015f 100644 --- a/SDL/kunden/Vorauskasse/frmVorauskasse.vb +++ b/SDL/kunden/Vorauskasse/frmVorauskasse.vb @@ -35,6 +35,12 @@ where = " AND FilialenNr IN (5501) " Case "ATILLA" where = " AND FilialenNr IN (4801) " + Case "UNISPED" + where = " AND FilialenNr IN (5601) " + Case "AMBAR" + where = " AND FilialenNr IN (5701) " + Case "FRONTOFFICE" + where = " AND FilialenNr IN (5801) " Case Else where = " AND FilialenNr NOT IN (5501) " End Select @@ -47,12 +53,21 @@ Case "ATILLA" cboFiliale._allowedValuesFreiText = {"4801"} cboFiliale.changeItem("4801") + Case "UNISPED" + cboFiliale._allowedValuesFreiText = {"5601"} + cboFiliale.changeItem("5601") + Case "AMBAR" + cboFiliale._allowedValuesFreiText = {"5701"} + cboFiliale.changeItem("5701") + Case "FRONTOFFICE" + cboFiliale._allowedValuesFreiText = {"5801"} + cboFiliale.changeItem("5801") 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) + " FROM tblMitarbeiter WHERE mit_niederlassung IN ('SUB','Suben') AND mit_abteilung='QS' AND [mit_gekuendigt]=0 " & QSwhere & " order by name", False, "ADMIN", True) cboSachbearbeiterBH.fillWithSQL("SELECT [mit_id],[mit_vname] + ' '+ [mit_nname] as NAME " & - " FROM [ADMIN].[dbo].[tblMitarbeiter] WHERE mit_niederlassung IN ('SUB','Suben') AND mit_abteilung='BH' AND [mit_gekuendigt]=0 " & QSwhere & " order by name", False, "ADMIN", True) + " FROM tblMitarbeiter WHERE mit_niederlassung IN ('SUB','Suben') AND mit_abteilung='BH' AND [mit_gekuendigt]=0 " & QSwhere & " order by name", False, "ADMIN", True) btnMonat.PerformClick() btnSuche.PerformClick() diff --git a/SDL/kunden/frmKundenDatenblatt.Designer.vb b/SDL/kunden/frmKundenDatenblatt.Designer.vb new file mode 100644 index 00000000..eba3690d --- /dev/null +++ b/SDL/kunden/frmKundenDatenblatt.Designer.vb @@ -0,0 +1,372 @@ + _ +Partial Class frmKundenDatenblatt + Inherits System.Windows.Forms.Form + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmKundenDatenblatt)) + Me.lbl = New System.Windows.Forms.Label() + Me.Label1 = New System.Windows.Forms.Label() + Me.Label2 = New System.Windows.Forms.Label() + Me.Label3 = New System.Windows.Forms.Label() + Me.Label4 = New System.Windows.Forms.Label() + Me.Label5 = New System.Windows.Forms.Label() + Me.Label6 = New System.Windows.Forms.Label() + Me.Label7 = New System.Windows.Forms.Label() + Me.Label8 = New System.Windows.Forms.Label() + Me.Label9 = New System.Windows.Forms.Label() + Me.Label10 = New System.Windows.Forms.Label() + Me.btn = New System.Windows.Forms.Button() + Me.Button1 = New System.Windows.Forms.Button() + Me.txtSonstiges = New VERAG_PROG_ALLGEMEIN.MyRichTextBox() + Me.txtAnzahlMA = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtAnzahlLKW = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtAvisierung = New VERAG_PROG_ALLGEMEIN.MyRichTextBox() + Me.txtGrenzen = New VERAG_PROG_ALLGEMEIN.MyRichTextBox() + Me.txtGueter = New VERAG_PROG_ALLGEMEIN.MyRichTextBox() + Me.txtGrolsskunden = New VERAG_PROG_ALLGEMEIN.MyRichTextBox() + Me.txtBestimmungslandEU = New VERAG_PROG_ALLGEMEIN.MyRichTextBox() + Me.txtBrggeber = New VERAG_PROG_ALLGEMEIN.MyRichTextBox() + Me.txtRoute = New VERAG_PROG_ALLGEMEIN.MyRichTextBox() + Me.SuspendLayout() + ' + 'lbl + ' + Me.lbl.AutoSize = True + Me.lbl.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lbl.Location = New System.Drawing.Point(13, 13) + Me.lbl.Name = "lbl" + Me.lbl.Size = New System.Drawing.Size(61, 17) + Me.lbl.TabIndex = 0 + Me.lbl.Text = "KUNDE" + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(13, 109) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(108, 26) + Me.Label1.TabIndex = 5 + Me.Label1.Text = "Route:" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(Straße, Fähre, Bahn)" + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Location = New System.Drawing.Point(13, 154) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(93, 13) + Me.Label2.TabIndex = 7 + Me.Label2.Text = "Bürgschaftsgeber:" + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Location = New System.Drawing.Point(13, 199) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(119, 13) + Me.Label3.TabIndex = 9 + Me.Label3.Text = "Bestimmungsländer EU:" + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.Location = New System.Drawing.Point(13, 244) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(115, 26) + Me.Label4.TabIndex = 11 + Me.Label4.Text = "Großkunden:" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(Absender, Empfänger)" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.Location = New System.Drawing.Point(13, 289) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(36, 13) + Me.Label5.TabIndex = 13 + Me.Label5.Text = "Güter:" + ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.Location = New System.Drawing.Point(13, 334) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(50, 13) + Me.Label6.TabIndex = 15 + Me.Label6.Text = "Grenzen:" + ' + 'Label7 + ' + Me.Label7.AutoSize = True + Me.Label7.Location = New System.Drawing.Point(13, 379) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(122, 39) + Me.Label7.TabIndex = 17 + Me.Label7.Text = "Verhalten Avisierung:" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(Unterlagen, Sortierung, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "sonstige Probleme ...)" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) + ' + 'Label8 + ' + Me.Label8.AutoSize = True + Me.Label8.Location = New System.Drawing.Point(13, 47) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(72, 13) + Me.Label8.TabIndex = 1 + Me.Label8.Text = "Anzahl LKW::" + ' + 'Label9 + ' + Me.Label9.AutoSize = True + Me.Label9.Location = New System.Drawing.Point(13, 73) + Me.Label9.Name = "Label9" + Me.Label9.Size = New System.Drawing.Size(94, 13) + Me.Label9.TabIndex = 3 + Me.Label9.Text = "Anzahl Mitarbeiter:" + ' + 'Label10 + ' + Me.Label10.AutoSize = True + Me.Label10.Location = New System.Drawing.Point(13, 446) + Me.Label10.Name = "Label10" + Me.Label10.Size = New System.Drawing.Size(56, 13) + Me.Label10.TabIndex = 19 + Me.Label10.Text = "Sonstiges:" + ' + 'btn + ' + Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btn.Location = New System.Drawing.Point(603, 576) + Me.btn.Name = "btn" + Me.btn.Size = New System.Drawing.Size(116, 43) + Me.btn.TabIndex = 21 + Me.btn.Text = "Abbrechen" + Me.btn.UseVisualStyleBackColor = True + ' + 'Button1 + ' + Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button1.Location = New System.Drawing.Point(725, 576) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(158, 43) + Me.Button1.TabIndex = 22 + Me.Button1.Text = "Speichern" + Me.Button1.UseVisualStyleBackColor = True + ' + 'txtSonstiges + ' + Me.txtSonstiges.Location = New System.Drawing.Point(138, 443) + Me.txtSonstiges.MaxLength = 5000 + Me.txtSonstiges.MaxLineLength = -1 + Me.txtSonstiges.MaxLines_Warning = "" + Me.txtSonstiges.MaxLines_Warning_Label = Nothing + Me.txtSonstiges.Name = "txtSonstiges" + Me.txtSonstiges.Size = New System.Drawing.Size(745, 127) + Me.txtSonstiges.TabIndex = 20 + Me.txtSonstiges.Text = "" + ' + 'txtAnzahlMA + ' + Me.txtAnzahlMA._DateTimeOnly = False + Me.txtAnzahlMA._numbersOnly = True + Me.txtAnzahlMA._numbersOnlyKommastellen = "0" + Me.txtAnzahlMA._Prozent = False + Me.txtAnzahlMA._ShortDateNew = False + Me.txtAnzahlMA._ShortDateOnly = False + Me.txtAnzahlMA._TimeOnly = False + Me.txtAnzahlMA._value = "" + Me.txtAnzahlMA._Waehrung = False + Me.txtAnzahlMA._WaehrungZeichen = True + Me.txtAnzahlMA.ForeColor = System.Drawing.Color.Black + Me.txtAnzahlMA.Location = New System.Drawing.Point(138, 70) + Me.txtAnzahlMA.MaxLength = 10 + Me.txtAnzahlMA.MaxLineLength = -1 + Me.txtAnzahlMA.MaxLines_Warning = "" + Me.txtAnzahlMA.MaxLines_Warning_Label = Nothing + Me.txtAnzahlMA.Name = "txtAnzahlMA" + Me.txtAnzahlMA.Size = New System.Drawing.Size(100, 20) + Me.txtAnzahlMA.TabIndex = 4 + ' + 'txtAnzahlLKW + ' + Me.txtAnzahlLKW._DateTimeOnly = False + Me.txtAnzahlLKW._numbersOnly = True + Me.txtAnzahlLKW._numbersOnlyKommastellen = "0" + Me.txtAnzahlLKW._Prozent = False + Me.txtAnzahlLKW._ShortDateNew = False + Me.txtAnzahlLKW._ShortDateOnly = False + Me.txtAnzahlLKW._TimeOnly = False + Me.txtAnzahlLKW._value = "" + Me.txtAnzahlLKW._Waehrung = False + Me.txtAnzahlLKW._WaehrungZeichen = True + Me.txtAnzahlLKW.ForeColor = System.Drawing.Color.Black + Me.txtAnzahlLKW.Location = New System.Drawing.Point(138, 44) + Me.txtAnzahlLKW.MaxLength = 10 + Me.txtAnzahlLKW.MaxLineLength = -1 + Me.txtAnzahlLKW.MaxLines_Warning = "" + Me.txtAnzahlLKW.MaxLines_Warning_Label = Nothing + Me.txtAnzahlLKW.Name = "txtAnzahlLKW" + Me.txtAnzahlLKW.Size = New System.Drawing.Size(100, 20) + Me.txtAnzahlLKW.TabIndex = 2 + ' + 'txtAvisierung + ' + Me.txtAvisierung.Location = New System.Drawing.Point(138, 376) + Me.txtAvisierung.MaxLength = 500 + Me.txtAvisierung.MaxLineLength = -1 + Me.txtAvisierung.MaxLines_Warning = "" + Me.txtAvisierung.MaxLines_Warning_Label = Nothing + Me.txtAvisierung.Name = "txtAvisierung" + Me.txtAvisierung.Size = New System.Drawing.Size(745, 61) + Me.txtAvisierung.TabIndex = 18 + Me.txtAvisierung.Text = "" + ' + 'txtGrenzen + ' + Me.txtGrenzen.Location = New System.Drawing.Point(138, 331) + Me.txtGrenzen.MaxLength = 500 + Me.txtGrenzen.MaxLineLength = -1 + Me.txtGrenzen.MaxLines_Warning = "" + Me.txtGrenzen.MaxLines_Warning_Label = Nothing + Me.txtGrenzen.Name = "txtGrenzen" + Me.txtGrenzen.Size = New System.Drawing.Size(745, 39) + Me.txtGrenzen.TabIndex = 16 + Me.txtGrenzen.Text = "" + ' + 'txtGueter + ' + Me.txtGueter.Location = New System.Drawing.Point(138, 286) + Me.txtGueter.MaxLength = 500 + Me.txtGueter.MaxLineLength = -1 + Me.txtGueter.MaxLines_Warning = "" + Me.txtGueter.MaxLines_Warning_Label = Nothing + Me.txtGueter.Name = "txtGueter" + Me.txtGueter.Size = New System.Drawing.Size(745, 39) + Me.txtGueter.TabIndex = 14 + Me.txtGueter.Text = "" + ' + 'txtGrolsskunden + ' + Me.txtGrolsskunden.Location = New System.Drawing.Point(138, 241) + Me.txtGrolsskunden.MaxLength = 500 + Me.txtGrolsskunden.MaxLineLength = -1 + Me.txtGrolsskunden.MaxLines_Warning = "" + Me.txtGrolsskunden.MaxLines_Warning_Label = Nothing + Me.txtGrolsskunden.Name = "txtGrolsskunden" + Me.txtGrolsskunden.Size = New System.Drawing.Size(745, 39) + Me.txtGrolsskunden.TabIndex = 12 + Me.txtGrolsskunden.Text = "" + ' + 'txtBestimmungslandEU + ' + Me.txtBestimmungslandEU.Location = New System.Drawing.Point(138, 196) + Me.txtBestimmungslandEU.MaxLength = 500 + Me.txtBestimmungslandEU.MaxLineLength = -1 + Me.txtBestimmungslandEU.MaxLines_Warning = "" + Me.txtBestimmungslandEU.MaxLines_Warning_Label = Nothing + Me.txtBestimmungslandEU.Name = "txtBestimmungslandEU" + Me.txtBestimmungslandEU.Size = New System.Drawing.Size(745, 39) + Me.txtBestimmungslandEU.TabIndex = 10 + Me.txtBestimmungslandEU.Text = "" + ' + 'txtBrggeber + ' + Me.txtBrggeber.Location = New System.Drawing.Point(138, 151) + Me.txtBrggeber.MaxLength = 500 + Me.txtBrggeber.MaxLineLength = -1 + Me.txtBrggeber.MaxLines_Warning = "" + Me.txtBrggeber.MaxLines_Warning_Label = Nothing + Me.txtBrggeber.Name = "txtBrggeber" + Me.txtBrggeber.Size = New System.Drawing.Size(745, 39) + Me.txtBrggeber.TabIndex = 8 + Me.txtBrggeber.Text = "" + ' + 'txtRoute + ' + Me.txtRoute.Location = New System.Drawing.Point(138, 106) + Me.txtRoute.MaxLength = 500 + Me.txtRoute.MaxLineLength = -1 + Me.txtRoute.MaxLines_Warning = "" + Me.txtRoute.MaxLines_Warning_Label = Nothing + Me.txtRoute.Name = "txtRoute" + Me.txtRoute.Size = New System.Drawing.Size(745, 39) + Me.txtRoute.TabIndex = 6 + Me.txtRoute.Text = "" + ' + 'frmKundenDatenblatt + ' + 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(895, 633) + Me.Controls.Add(Me.Button1) + Me.Controls.Add(Me.btn) + Me.Controls.Add(Me.txtSonstiges) + Me.Controls.Add(Me.Label10) + Me.Controls.Add(Me.txtAnzahlMA) + Me.Controls.Add(Me.Label9) + Me.Controls.Add(Me.txtAnzahlLKW) + Me.Controls.Add(Me.Label8) + Me.Controls.Add(Me.txtAvisierung) + Me.Controls.Add(Me.Label7) + Me.Controls.Add(Me.txtGrenzen) + Me.Controls.Add(Me.Label6) + Me.Controls.Add(Me.txtGueter) + Me.Controls.Add(Me.Label5) + Me.Controls.Add(Me.txtGrolsskunden) + Me.Controls.Add(Me.Label4) + Me.Controls.Add(Me.txtBestimmungslandEU) + Me.Controls.Add(Me.Label3) + Me.Controls.Add(Me.txtBrggeber) + Me.Controls.Add(Me.Label2) + Me.Controls.Add(Me.txtRoute) + Me.Controls.Add(Me.Label1) + Me.Controls.Add(Me.lbl) + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.Name = "frmKundenDatenblatt" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "Kundendatenblatt Zusatz" + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents lbl As Label + Friend WithEvents Label1 As Label + Friend WithEvents txtRoute As VERAG_PROG_ALLGEMEIN.MyRichTextBox + Friend WithEvents txtBrggeber As VERAG_PROG_ALLGEMEIN.MyRichTextBox + Friend WithEvents Label2 As Label + Friend WithEvents txtBestimmungslandEU As VERAG_PROG_ALLGEMEIN.MyRichTextBox + Friend WithEvents Label3 As Label + Friend WithEvents txtGrolsskunden As VERAG_PROG_ALLGEMEIN.MyRichTextBox + Friend WithEvents Label4 As Label + Friend WithEvents txtGueter As VERAG_PROG_ALLGEMEIN.MyRichTextBox + Friend WithEvents Label5 As Label + Friend WithEvents txtGrenzen As VERAG_PROG_ALLGEMEIN.MyRichTextBox + Friend WithEvents Label6 As Label + Friend WithEvents txtAvisierung As VERAG_PROG_ALLGEMEIN.MyRichTextBox + Friend WithEvents Label7 As Label + Friend WithEvents Label8 As Label + Friend WithEvents txtAnzahlLKW As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtAnzahlMA As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label9 As Label + Friend WithEvents txtSonstiges As VERAG_PROG_ALLGEMEIN.MyRichTextBox + Friend WithEvents Label10 As Label + Friend WithEvents btn As Button + Friend WithEvents Button1 As Button +End Class diff --git a/SDL/mdm/PLOSE/frmMDMDatenverarbetiung.resx b/SDL/kunden/frmKundenDatenblatt.resx similarity index 100% rename from SDL/mdm/PLOSE/frmMDMDatenverarbetiung.resx rename to SDL/kunden/frmKundenDatenblatt.resx diff --git a/SDL/kunden/frmKundenDatenblatt.vb b/SDL/kunden/frmKundenDatenblatt.vb new file mode 100644 index 00000000..faab6db9 --- /dev/null +++ b/SDL/kunden/frmKundenDatenblatt.vb @@ -0,0 +1,60 @@ +Public Class frmKundenDatenblatt + Dim KundenNr As Integer + Dim KD_DB As VERAG_PROG_ALLGEMEIN.cKundenDatenblatt + Sub New(KundenNr) + + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + Me.KundenNr = KundenNr + End Sub + + + Sub getValues() + KD_DB = New VERAG_PROG_ALLGEMEIN.cKundenDatenblatt(KundenNr) + KD_DB.kdb_KundenNr = KundenNr + KD_DB.kdb_route = txtRoute.Text + KD_DB.kdb_buergschaftsgeber = txtBrggeber.Text + KD_DB.kdb_anzahlLKW = txtAnzahlLKW.Text + KD_DB.kdb_anzahlMA = txtAnzahlMA.Text + KD_DB.kdb_bestimmungslandEU = txtBestimmungslandEU.Text + KD_DB.kdb_grosskunden = txtGrolsskunden.Text + KD_DB.kdb_gueter = txtGueter.Text + KD_DB.kdb_grenzen = txtGrenzen.Text + KD_DB.kdb_verhaltenAvisierung = txtAvisierung.Text + KD_DB.kdb_sonstiges = txtSonstiges.Text + End Sub + + Sub setValues() + txtRoute.Text = If(KD_DB.kdb_route, "") + txtBrggeber.Text = If(KD_DB.kdb_buergschaftsgeber, "") + txtAnzahlLKW.Text = If(KD_DB.kdb_anzahlLKW, "") + txtAnzahlMA.Text = If(KD_DB.kdb_anzahlMA, "") + txtBestimmungslandEU.Text = If(KD_DB.kdb_bestimmungslandEU, "") + txtGrolsskunden.Text = If(KD_DB.kdb_grosskunden, "") + txtGueter.Text = If(KD_DB.kdb_gueter, "") + txtGrenzen.Text = If(KD_DB.kdb_grenzen, "") + txtAvisierung.Text = If(KD_DB.kdb_verhaltenAvisierung, "") + txtSonstiges.Text = If(KD_DB.kdb_sonstiges, "") + End Sub + + Private Sub frmKundenDatenblatt_Load(sender As Object, e As EventArgs) Handles Me.Load + KD_DB = New VERAG_PROG_ALLGEMEIN.cKundenDatenblatt(KundenNr) + Dim AD = New VERAG_PROG_ALLGEMEIN.cAdressen(KundenNr) + lbl.Text = AD.Ordnungsbegriff + setValues() + End Sub + + Sub saveME() + getValues() + If KD_DB.SAVE() Then Me.Close() + End Sub + Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click + saveME() + End Sub + + Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click + Me.Close() + End Sub +End Class \ No newline at end of file diff --git a/SDL/kunden/frmKundenUebersichtZOLL.Designer.vb b/SDL/kunden/frmKundenUebersichtZOLL.Designer.vb index 31a7f616..570853fe 100644 --- a/SDL/kunden/frmKundenUebersichtZOLL.Designer.vb +++ b/SDL/kunden/frmKundenUebersichtZOLL.Designer.vb @@ -42,6 +42,7 @@ Partial Class frmKundenUebersichtZOLL Me.TabPage1 = New System.Windows.Forms.TabPage() Me.UsrCntlOfferte1 = New SDL.usrCntlOfferte() Me.tbStatistik = New System.Windows.Forms.TabPage() + Me.Button1 = New System.Windows.Forms.Button() Me.btnUbersicht = New System.Windows.Forms.Button() Me.Label27 = New System.Windows.Forms.Label() Me.dgvFilialen = New System.Windows.Forms.DataGridView() @@ -137,6 +138,7 @@ Partial Class frmKundenUebersichtZOLL Me.PDFLöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.cbx = New System.Windows.Forms.CheckBox() Me.ContextMenuStrip1.SuspendLayout() Me.tabZolltarife.SuspendLayout() Me.tabKundendaten.SuspendLayout() @@ -272,6 +274,7 @@ Partial Class frmKundenUebersichtZOLL 'tbStatistik ' Me.tbStatistik.BackColor = System.Drawing.Color.White + Me.tbStatistik.Controls.Add(Me.Button1) Me.tbStatistik.Controls.Add(Me.btnUbersicht) Me.tbStatistik.Controls.Add(Me.Label27) Me.tbStatistik.Controls.Add(Me.dgvFilialen) @@ -304,14 +307,26 @@ Partial Class frmKundenUebersichtZOLL Me.tbStatistik.TabIndex = 3 Me.tbStatistik.Text = "Statikstik" ' + 'Button1 + ' + Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button1.Image = Global.SDL.My.Resources.Resources.list + Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button1.Location = New System.Drawing.Point(237, 287) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(225, 44) + Me.Button1.TabIndex = 170 + Me.Button1.Text = "Zusatzblatt" + Me.Button1.UseVisualStyleBackColor = True + ' 'btnUbersicht ' Me.btnUbersicht.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnUbersicht.Image = Global.SDL.My.Resources.Resources.statistik_small Me.btnUbersicht.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnUbersicht.Location = New System.Drawing.Point(9, 287) + Me.btnUbersicht.Location = New System.Drawing.Point(6, 287) Me.btnUbersicht.Name = "btnUbersicht" - Me.btnUbersicht.Size = New System.Drawing.Size(221, 44) + Me.btnUbersicht.Size = New System.Drawing.Size(224, 44) Me.btnUbersicht.TabIndex = 169 Me.btnUbersicht.Text = "Kundenblatt" Me.btnUbersicht.UseVisualStyleBackColor = True @@ -1186,10 +1201,11 @@ Partial Class frmKundenUebersichtZOLL ' 'pnlTop ' + Me.pnlTop.Controls.Add(Me.cbx) + Me.pnlTop.Controls.Add(Me.lblAbfertigungsverbot) Me.pnlTop.Controls.Add(Me.lblTESTSystem) Me.pnlTop.Controls.Add(Me.pic) Me.pnlTop.Controls.Add(Me.KdSearchBox1) - Me.pnlTop.Controls.Add(Me.lblAbfertigungsverbot) Me.pnlTop.Dock = System.Windows.Forms.DockStyle.Top Me.pnlTop.Location = New System.Drawing.Point(114, 0) Me.pnlTop.Name = "pnlTop" @@ -1201,7 +1217,7 @@ Partial Class frmKundenUebersichtZOLL Me.lblTESTSystem.AutoSize = True Me.lblTESTSystem.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblTESTSystem.ForeColor = System.Drawing.Color.Red - Me.lblTESTSystem.Location = New System.Drawing.Point(484, 8) + Me.lblTESTSystem.Location = New System.Drawing.Point(395, 8) Me.lblTESTSystem.Name = "lblTESTSystem" Me.lblTESTSystem.Size = New System.Drawing.Size(128, 17) Me.lblTESTSystem.TabIndex = 189 @@ -1243,7 +1259,7 @@ Partial Class frmKundenUebersichtZOLL Me.KdSearchBox1.Name = "KdSearchBox1" Me.KdSearchBox1.nurAktive = False Me.KdSearchBox1.searchActive = True - Me.KdSearchBox1.Size = New System.Drawing.Size(608, 30) + Me.KdSearchBox1.Size = New System.Drawing.Size(504, 30) Me.KdSearchBox1.TabIndex = 211 Me.KdSearchBox1.usrcntl = Nothing ' @@ -1253,7 +1269,7 @@ Partial Class frmKundenUebersichtZOLL Me.lblAbfertigungsverbot.Cursor = System.Windows.Forms.Cursors.Help Me.lblAbfertigungsverbot.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold) Me.lblAbfertigungsverbot.ForeColor = System.Drawing.Color.White - Me.lblAbfertigungsverbot.Location = New System.Drawing.Point(636, 1) + Me.lblAbfertigungsverbot.Location = New System.Drawing.Point(638, 1) Me.lblAbfertigungsverbot.Name = "lblAbfertigungsverbot" Me.lblAbfertigungsverbot.Size = New System.Drawing.Size(188, 29) Me.lblAbfertigungsverbot.TabIndex = 209 @@ -1330,6 +1346,16 @@ Partial Class frmKundenUebersichtZOLL Me.DataGridViewTextBoxColumn2.HeaderText = "KundenNr" Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2" ' + 'cbx + ' + Me.cbx.AutoSize = True + Me.cbx.Location = New System.Drawing.Point(541, 8) + Me.cbx.Name = "cbx" + Me.cbx.Size = New System.Drawing.Size(77, 17) + Me.cbx.TabIndex = 213 + Me.cbx.Text = "Alle Firmen" + Me.cbx.UseVisualStyleBackColor = True + ' 'frmKundenUebersichtZOLL ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -1485,4 +1511,6 @@ Partial Class frmKundenUebersichtZOLL Friend WithEvents lblTESTSystem As Label Public WithEvents KdSearchBox1 As VERAG_PROG_ALLGEMEIN.KdSearchBox Friend WithEvents usrcntlKundenuebersicht As usrCntlKundenuebersicht + Friend WithEvents Button1 As Button + Friend WithEvents cbx As CheckBox End Class diff --git a/SDL/kunden/frmKundenUebersichtZOLL.vb b/SDL/kunden/frmKundenUebersichtZOLL.vb index b38c7b64..819a7966 100644 --- a/SDL/kunden/frmKundenUebersichtZOLL.vb +++ b/SDL/kunden/frmKundenUebersichtZOLL.vb @@ -1,13 +1,5 @@ Imports System.Data.SqlClient -Imports System.ComponentModel -Imports System.Reflection -Imports System.Globalization -Imports SDL.EU_Uid_Pruefung -'Imports UID.cMeineFunktionen -'Imports UID.cDbFunctions -Imports SDL.at.gv.bmf.finanzonline -Imports SDL.EORI.validation Imports SDL.EORI 'Imports Gemeinsames @@ -1226,5 +1218,13 @@ Public Class frmKundenUebersichtZOLL End If End Sub + Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click + Dim f As New frmKundenDatenblatt(kdNr) + f.Show() + End Sub + Private Sub cbx_CheckedChanged(sender As Object, e As EventArgs) Handles cbx.CheckedChanged + KdSearchBox1._AlleFirmenCLUSTER = cbx.Checked + KdSearchBox1.RESARCH() + End Sub End Class diff --git a/SDL/kunden/frmKundenZOLLVollmachten.Designer.vb b/SDL/kunden/frmKundenZOLLVollmachten.Designer.vb index 03d171f7..4c6aaf83 100644 --- a/SDL/kunden/frmKundenZOLLVollmachten.Designer.vb +++ b/SDL/kunden/frmKundenZOLLVollmachten.Designer.vb @@ -34,9 +34,11 @@ Partial Class frmKundenZOLLVollmachten Me.Button1 = New System.Windows.Forms.Button() Me.btnOK = New System.Windows.Forms.Button() Me.lbl = New System.Windows.Forms.Label() + Me.picPDF = New System.Windows.Forms.PictureBox() Me.pnl.SuspendLayout() Me.Panel1.SuspendLayout() CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.picPDF, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'pnl @@ -52,7 +54,7 @@ Partial Class frmKundenZOLLVollmachten Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill Me.pnl.Location = New System.Drawing.Point(0, 0) Me.pnl.Name = "pnl" - Me.pnl.Size = New System.Drawing.Size(273, 71) + Me.pnl.Size = New System.Drawing.Size(279, 136) Me.pnl.TabIndex = 1 ' 'txtDat @@ -91,19 +93,20 @@ Partial Class frmKundenZOLLVollmachten ' 'Panel1 ' + Me.Panel1.Controls.Add(Me.picPDF) Me.Panel1.Controls.Add(Me.Button2) Me.Panel1.Controls.Add(Me.pic) Me.Panel1.Controls.Add(Me.Label2) - Me.Panel1.Location = New System.Drawing.Point(180, 3) + Me.Panel1.Location = New System.Drawing.Point(3, 64) Me.Panel1.Name = "Panel1" - Me.Panel1.Size = New System.Drawing.Size(40, 33) + Me.Panel1.Size = New System.Drawing.Size(267, 70) Me.Panel1.TabIndex = 17 Me.Panel1.Visible = False ' 'Button2 ' Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button2.Location = New System.Drawing.Point(5, 10) + Me.Button2.Location = New System.Drawing.Point(11, 10) Me.Button2.Name = "Button2" Me.Button2.Size = New System.Drawing.Size(134, 25) Me.Button2.TabIndex = 12 @@ -112,8 +115,8 @@ Partial Class frmKundenZOLLVollmachten ' 'pic ' - Me.pic.Image = Global.SDL.My.Resources.del - Me.pic.Location = New System.Drawing.Point(5, 38) + Me.pic.Image = Global.SDL.My.Resources.Resources.del + Me.pic.Location = New System.Drawing.Point(11, 38) Me.pic.Name = "pic" Me.pic.Size = New System.Drawing.Size(20, 20) Me.pic.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom @@ -123,7 +126,7 @@ Partial Class frmKundenZOLLVollmachten ' 'Label2 ' - Me.Label2.Location = New System.Drawing.Point(-1, 38) + Me.Label2.Location = New System.Drawing.Point(5, 38) Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(140, 13) Me.Label2.TabIndex = 13 @@ -151,7 +154,7 @@ Partial Class frmKundenZOLLVollmachten Me.Button1.DialogResult = System.Windows.Forms.DialogResult.Cancel Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button1.ForeColor = System.Drawing.Color.White - Me.Button1.Location = New System.Drawing.Point(231, 0) + Me.Button1.Location = New System.Drawing.Point(237, 0) Me.Button1.Name = "Button1" Me.Button1.Size = New System.Drawing.Size(42, 23) Me.Button1.TabIndex = 9 @@ -179,11 +182,22 @@ Partial Class frmKundenZOLLVollmachten Me.lbl.Text = "VOLLMACHT" Me.lbl.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' + 'picPDF + ' + Me.picPDF.Image = Global.SDL.My.Resources.Resources.pdf_gray + Me.picPDF.Location = New System.Drawing.Point(210, 10) + Me.picPDF.Name = "picPDF" + Me.picPDF.Size = New System.Drawing.Size(44, 48) + Me.picPDF.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom + Me.picPDF.TabIndex = 17 + Me.picPDF.TabStop = False + Me.picPDF.Visible = False + ' 'frmKundenZOLLVollmachten ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.ClientSize = New System.Drawing.Size(273, 71) + Me.ClientSize = New System.Drawing.Size(279, 136) Me.Controls.Add(Me.pnl) Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) @@ -194,6 +208,7 @@ Partial Class frmKundenZOLLVollmachten Me.pnl.PerformLayout() Me.Panel1.ResumeLayout(False) CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.picPDF, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) End Sub @@ -208,4 +223,5 @@ Partial Class frmKundenZOLLVollmachten Friend WithEvents Panel1 As System.Windows.Forms.Panel Friend WithEvents txtDat As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents lbl As Label + Friend WithEvents picPDF As PictureBox End Class diff --git a/SDL/kunden/frmKundenZOLLVollmachten.vb b/SDL/kunden/frmKundenZOLLVollmachten.vb index 51e1e9e5..f2ac1e0b 100644 --- a/SDL/kunden/frmKundenZOLLVollmachten.vb +++ b/SDL/kunden/frmKundenZOLLVollmachten.vb @@ -4,6 +4,7 @@ Public erhalten As Boolean = False Dim id As Integer = -1 'Dim cDATENSERVER As New VERAG_PROG_ALLGEMEIN.cDATENSERVER + Dim ksql As New kundenSQL Sub New(kdnr, vollmachtId, erhalten, datum, id) Me.InitializeComponent() @@ -19,8 +20,17 @@ Me.MyComboBox1._value = vollmachtId Me.cbxErhaltenAm.Checked = erhalten + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + Case "UNISPED", "IMEX", "FRONTOFFICE" + Panel1.Visible = True + Case Else + Me.Height = Me.Height - Panel1.Height + End Select + If id > 0 Then pic.Visible = True + picPDF.Image = My.Resources.pdf + Label2.Text = "PDF vorhanden." Label2.Cursor = Cursors.Hand End If @@ -33,7 +43,7 @@ Dim path = DS.uploadDataToDATENSERVERFileDialog() ' cDATENSERVER.uploadDataToDATENSERVERFileDialog("DOKUMENTE", "VOLLMACHTEN", kdnr, MyComboBox1.Text) If path <> "" Then id = DS.da_id 'cDATENSERVER.getLAST_ID(path) - MsgBox(id) + Label2.Text = "PDF vorhanden." Label2.Cursor = Cursors.Hand End If @@ -41,18 +51,25 @@ End Sub Private Sub pic_Click(sender As Object, e As EventArgs) Handles pic.Click - If (id > 0) Then 'cDATENSERVER.deleteFileByDatenarchivId(id) - Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(id) - DS.DELETE_COMPLETE() - End If - id = -1 : pic.Visible = False - Label2.Text = "Kein PDF vorhanden." + Label2.Cursor = Cursors.WaitCursor + If (id > 0) Then 'cDATENSERVER.deleteFileByDatenarchivId(id) + If vbYes = MsgBox("Möchten Sie die Vollamcht wirklich löschen?", vbYesNoCancel) Then + + Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(id) + DS.DELETE_COMPLETE() + + If Not ksql.setVollmacht_DSId(kdnr, MyComboBox1._value, id) Then + id = -1 : pic.Visible = False + Label2.Text = "Kein PDF vorhanden." + picPDF.Image = My.Resources.pdf_gray + End If + End If + End If Label2.Cursor = Cursors.Default End Sub Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click - Dim ksql As New kundenSQL If MyComboBox1._value = "" Then Me.DialogResult = Windows.Forms.DialogResult.None : Exit Sub Dim datVM As Object = Nothing If cbxErhaltenAm.Checked Then diff --git a/SDL/kunden/usrCntlKundenAvisoMailBenachrichtigung.vb b/SDL/kunden/usrCntlKundenAvisoMailBenachrichtigung.vb index 295e0a5a..999148aa 100644 --- a/SDL/kunden/usrCntlKundenAvisoMailBenachrichtigung.vb +++ b/SDL/kunden/usrCntlKundenAvisoMailBenachrichtigung.vb @@ -182,7 +182,7 @@ End Sub Private Sub usrCntlKundenAvisoMailBenachrichtigung_Load(sender As Object, e As EventArgs) Handles Me.Load - If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMINFUNCTIONS", "SDL") Then + If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_MAIL_Steuerbescheid", "AVISO") Then cbxFreigabe_Steuerbescheid.Visible = False cboFreigabe_SteuerbescheidBedingung.Visible = False End If diff --git a/SDL/kunden/usrCntlKundenuebersicht.Designer.vb b/SDL/kunden/usrCntlKundenuebersicht.Designer.vb index 458b87d2..a5f28a65 100644 --- a/SDL/kunden/usrCntlKundenuebersicht.Designer.vb +++ b/SDL/kunden/usrCntlKundenuebersicht.Designer.vb @@ -138,6 +138,7 @@ Partial Class usrCntlKundenuebersicht Me.PictureBox3 = New System.Windows.Forms.PictureBox() Me.PictureBox5 = New System.Windows.Forms.PictureBox() Me.TabPage11 = New System.Windows.Forms.TabPage() + Me.ucKundenKontakte = New SDL.usrCntlKundenKontakte() Me.Label38 = New System.Windows.Forms.Label() Me.txtDebitorennr = New System.Windows.Forms.TextBox() Me.lblFwlFiskal = New System.Windows.Forms.LinkLabel() @@ -149,6 +150,7 @@ Partial Class usrCntlKundenuebersicht Me.lblFirmenname2 = New System.Windows.Forms.TextBox() Me.lblTESTSystem = New System.Windows.Forms.Label() Me.grpSonstiges = New System.Windows.Forms.GroupBox() + Me.Button2 = New System.Windows.Forms.Button() Me.Button10 = New System.Windows.Forms.Button() Me.Button4 = New System.Windows.Forms.Button() Me.Button5 = New System.Windows.Forms.Button() @@ -167,6 +169,7 @@ Partial Class usrCntlKundenuebersicht Me.Button8 = New System.Windows.Forms.Button() Me.Button9 = New System.Windows.Forms.Button() Me.TabPage6 = New System.Windows.Forms.TabPage() + Me.UsrCntlKundenAvisoMailBenachrichtigung1 = New SDL.usrCntlKundenAvisoMailBenachrichtigung() Me.TabPage7 = New System.Windows.Forms.TabPage() Me.Label43 = New System.Windows.Forms.Label() Me.cbxKdAuftragsNr = New System.Windows.Forms.CheckBox() @@ -207,9 +210,7 @@ Partial Class usrCntlKundenuebersicht Me.PDFLöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem() - Me.Button2 = New System.Windows.Forms.Button() - Me.ucKundenKontakte = New SDL.usrCntlKundenKontakte() - Me.UsrCntlKundenAvisoMailBenachrichtigung1 = New SDL.usrCntlKundenAvisoMailBenachrichtigung() + Me.lblFirma = New System.Windows.Forms.Label() Me.cntxtAddSdl.SuspendLayout() Me.tbWeitereKundenDetails.SuspendLayout() Me.TabPage4.SuspendLayout() @@ -289,7 +290,7 @@ Partial Class usrCntlKundenuebersicht Me.lblInaktiv.AutoSize = True Me.lblInaktiv.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblInaktiv.ForeColor = System.Drawing.Color.Red - Me.lblInaktiv.Location = New System.Drawing.Point(128, 0) + Me.lblInaktiv.Location = New System.Drawing.Point(219, 0) Me.lblInaktiv.Name = "lblInaktiv" Me.lblInaktiv.Size = New System.Drawing.Size(143, 17) Me.lblInaktiv.TabIndex = 220 @@ -1808,6 +1809,14 @@ Partial Class usrCntlKundenuebersicht Me.TabPage11.Text = "Spezifisch" Me.TabPage11.UseVisualStyleBackColor = True ' + 'ucKundenKontakte + ' + Me.ucKundenKontakte.Dock = System.Windows.Forms.DockStyle.Fill + Me.ucKundenKontakte.Location = New System.Drawing.Point(3, 3) + Me.ucKundenKontakte.Name = "ucKundenKontakte" + Me.ucKundenKontakte.Size = New System.Drawing.Size(473, 158) + Me.ucKundenKontakte.TabIndex = 0 + ' 'Label38 ' Me.Label38.AutoSize = True @@ -1946,6 +1955,18 @@ Partial Class usrCntlKundenuebersicht Me.grpSonstiges.TabIndex = 217 Me.grpSonstiges.TabStop = False ' + 'Button2 + ' + Me.Button2.BackgroundImage = Global.SDL.My.Resources.Resources.pdf + Me.Button2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.Button2.FlatAppearance.BorderSize = 0 + Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button2.Location = New System.Drawing.Point(395, 39) + Me.Button2.Name = "Button2" + Me.Button2.Size = New System.Drawing.Size(25, 20) + Me.Button2.TabIndex = 213 + Me.Button2.UseVisualStyleBackColor = True + ' 'Button10 ' Me.Button10.BackgroundImage = Global.SDL.My.Resources.Resources.pdf @@ -2206,6 +2227,15 @@ Partial Class usrCntlKundenuebersicht Me.TabPage6.Text = "Aviso E-Mails" Me.TabPage6.UseVisualStyleBackColor = True ' + 'UsrCntlKundenAvisoMailBenachrichtigung1 + ' + Me.UsrCntlKundenAvisoMailBenachrichtigung1.BackColor = System.Drawing.Color.White + Me.UsrCntlKundenAvisoMailBenachrichtigung1.Dock = System.Windows.Forms.DockStyle.Fill + Me.UsrCntlKundenAvisoMailBenachrichtigung1.Location = New System.Drawing.Point(3, 3) + Me.UsrCntlKundenAvisoMailBenachrichtigung1.Name = "UsrCntlKundenAvisoMailBenachrichtigung1" + Me.UsrCntlKundenAvisoMailBenachrichtigung1.Size = New System.Drawing.Size(473, 158) + Me.UsrCntlKundenAvisoMailBenachrichtigung1.TabIndex = 0 + ' 'TabPage7 ' Me.TabPage7.Controls.Add(Me.Label43) @@ -2631,40 +2661,24 @@ Partial Class usrCntlKundenuebersicht Me.ToolStripMenuItem2.Size = New System.Drawing.Size(121, 22) Me.ToolStripMenuItem2.Text = "Kopieren" ' - 'Button2 + 'lblFirma ' - Me.Button2.BackgroundImage = Global.SDL.My.Resources.Resources.pdf - Me.Button2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.Button2.FlatAppearance.BorderSize = 0 - Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button2.Location = New System.Drawing.Point(395, 39) - Me.Button2.Name = "Button2" - Me.Button2.Size = New System.Drawing.Size(25, 20) - Me.Button2.TabIndex = 213 - Me.Button2.UseVisualStyleBackColor = True - ' - 'ucKundenKontakte - ' - Me.ucKundenKontakte.Dock = System.Windows.Forms.DockStyle.Fill - Me.ucKundenKontakte.Location = New System.Drawing.Point(3, 3) - Me.ucKundenKontakte.Name = "ucKundenKontakte" - Me.ucKundenKontakte.Size = New System.Drawing.Size(473, 158) - Me.ucKundenKontakte.TabIndex = 0 - ' - 'UsrCntlKundenAvisoMailBenachrichtigung1 - ' - Me.UsrCntlKundenAvisoMailBenachrichtigung1.BackColor = System.Drawing.Color.White - Me.UsrCntlKundenAvisoMailBenachrichtigung1.Dock = System.Windows.Forms.DockStyle.Fill - Me.UsrCntlKundenAvisoMailBenachrichtigung1.Location = New System.Drawing.Point(3, 3) - Me.UsrCntlKundenAvisoMailBenachrichtigung1.Name = "UsrCntlKundenAvisoMailBenachrichtigung1" - Me.UsrCntlKundenAvisoMailBenachrichtigung1.Size = New System.Drawing.Size(473, 158) - Me.UsrCntlKundenAvisoMailBenachrichtigung1.TabIndex = 0 + Me.lblFirma.AutoSize = True + Me.lblFirma.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblFirma.ForeColor = System.Drawing.Color.Red + Me.lblFirma.Location = New System.Drawing.Point(6, 0) + Me.lblFirma.Name = "lblFirma" + Me.lblFirma.Size = New System.Drawing.Size(61, 17) + Me.lblFirma.TabIndex = 222 + Me.lblFirma.Text = "VERAG" + Me.lblFirma.Visible = False ' 'usrCntlKundenuebersicht ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.BackColor = System.Drawing.Color.White + Me.Controls.Add(Me.lblFirma) Me.Controls.Add(Me.btnExcel) Me.Controls.Add(Me.lblInaktiv) Me.Controls.Add(Me.Label30) @@ -2910,4 +2924,5 @@ Partial Class usrCntlKundenuebersicht Friend WithEvents ToolStripMenuItem2 As ToolStripMenuItem Friend WithEvents Button10 As Button Friend WithEvents Button2 As Button + Friend WithEvents lblFirma As Label End Class diff --git a/SDL/kunden/usrCntlKundenuebersicht.vb b/SDL/kunden/usrCntlKundenuebersicht.vb index 001eb3f6..19aaef64 100644 --- a/SDL/kunden/usrCntlKundenuebersicht.vb +++ b/SDL/kunden/usrCntlKundenuebersicht.vb @@ -110,8 +110,8 @@ Public Class usrCntlKundenuebersicht If Not VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME = "COBAN" Then Select Case BER_STUFE - Case 99 : Me.FindForm.Close() : Exit Sub - End Select + Case 99 : Me.FindForm.Close() : Exit Sub + End Select End If @@ -255,6 +255,7 @@ Public Class usrCntlKundenuebersicht initDGVOffertenSperrliste() initSperre() + RG_MONAT = CDate("01." & Now.Month & "." & Now.Year) '.AddMonths(-1) tbKontakt_TabIndexChanged(tbKontakt, New EventArgs) @@ -310,6 +311,12 @@ Public Class usrCntlKundenuebersicht ' Me.dataAdapterFirma.Fill(Me.dataFirma) conn.Close() + Dim KdFirma = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(KUNDE.FilialenNr) + If KdFirma <> VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Then + lblFirma.Text = KdFirma + Else + lblFirma.Visible = False + End If ' Me.dataFirma.AcceptChanges() ' Me.dataFirma.Locale = System.Globalization.CultureInfo.InvariantCulture @@ -605,7 +612,10 @@ Public Class usrCntlKundenuebersicht End If 'Alles andere gesperrt - Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + + + + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(KUNDE.FilialenNr) Case "VERAG" where &= " AND Firma_ID <> 7" Case "ATILLA" @@ -658,16 +668,17 @@ Public Class usrCntlKundenuebersicht Sub initDGVVollmachten() With dgvVollmachten .Columns.Clear() - 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 + + If VERAG_PROG_ALLGEMEIN.cAllgemein.isCLUSTER Then + where = " AND art.kdvma_Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(KUNDE.FilialenNr) & "' " + End If .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 & " ORDER BY art.kdvma_id", "FMZOLL") + + ' .RowTemplate.Height = 30 .Columns("kdvm_Id").Visible = False .Columns("kdvma_Id").Visible = False @@ -685,6 +696,7 @@ Public Class usrCntlKundenuebersicht .Columns("kdvm_Info").HeaderText = "Info" .Columns("kdvm_Info").Visible = False + If True Then Dim c As New DataGridViewImageColumn @@ -707,7 +719,8 @@ Public Class usrCntlKundenuebersicht End If - If False Then + + If True Then Dim c As New DataGridViewImageColumn c.Name = "clmnPDF" : c.HeaderText = "PDF" @@ -717,6 +730,18 @@ Public Class usrCntlKundenuebersicht .Columns.Add(c) End If + + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + Case "UNISPED", "IMEX" + .Columns("clmnTherefore").Visible = False + .Columns("clmnPDF").Visible = True + Case "FRONTOFFICE" + .Columns("clmnTherefore").Visible = True + .Columns("clmnPDF").Visible = True + Case Else + .Columns("clmnTherefore").Visible = True + .Columns("clmnPDF").Visible = False + End Select For Each r As DataGridViewRow In .Rows If r.Cells("kdvm_erhalten").Value Is DBNull.Value Then r.DefaultCellStyle.ForeColor = Color.Gray @@ -726,12 +751,12 @@ Public Class usrCntlKundenuebersicht r.DefaultCellStyle.ForeColor = Color.Red End If - If False Then - If r.Cells("kdvm_datenarchivId").Value IsNot DBNull.Value AndAlso CInt(r.Cells("kdvm_datenarchivId").Value) > 0 Then - DirectCast(r.Cells("clmnPDF"), DataGridViewImageCell).Value = My.Resources.pdf + If True Then + If r.Cells("kdvm_datenarchivId").Value IsNot DBNull.Value AndAlso CInt(r.Cells("kdvm_datenarchivId").Value) > 0 Then + DirectCast(r.Cells("clmnPDF"), DataGridViewImageCell).Value = My.Resources.pdf + End If End If - End If - Next + Next End With End Sub @@ -740,12 +765,6 @@ Public Class usrCntlKundenuebersicht With dgvGestGarantie .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 - .DataSource = VERAG_PROG_ALLGEMEIN.cGestellungsgarantien.LOAD_LIST(kdNr) If .Columns.Count = 0 Then Exit Sub @@ -992,7 +1011,7 @@ Public Class usrCntlKundenuebersicht Sub initDGVOffenePosten() - Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(KUNDE.FilialenNr) Case "IMEX" : initDGVOffenePostenIMEX() Case Else : initDGVOffenePostenVERAG() End Select @@ -1282,31 +1301,30 @@ Public Class usrCntlKundenuebersicht Private Sub dgvVollmachten_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvVollmachten.CellDoubleClick Dim tmprowindex As Integer = e.RowIndex + If dgvVollmachten.Columns(e.ColumnIndex).Name = "clmnPDF" Then - If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Kundendaten_bearbeiten", "SDL") Or + If dgvVollmachten.Rows(e.RowIndex).Cells("kdvm_datenarchivId").Value IsNot DBNull.Value AndAlso CInt(dgvVollmachten.Rows(e.RowIndex).Cells("kdvm_datenarchivId").Value) > 0 Then + ' cDATENSERVER.openDataTMPByDatenarchivId(dgvVollmachten.Rows(e.RowIndex).Cells("kdvm_datenarchivId").Value) + Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(dgvVollmachten.Rows(e.RowIndex).Cells("kdvm_datenarchivId").Value) + DS.OPEN_SINGLE(True) + End If + Else + + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Kundendaten_bearbeiten", "SDL") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Kunden_VM_bearbeiten", "SDL") Then - If tmprowindex < 0 Then Exit Sub - Dim frmGrayOut = cProgramFunctions.grayoutForm(Me) - Dim datum = IIf(dgvVollmachten.Rows(tmprowindex).Cells("kdvm_erhalten_Datum").Value Is DBNull.Value, Now, dgvVollmachten.Rows(tmprowindex).Cells("kdvm_erhalten_Datum").Value) - Dim l As New frmKundenZOLLVollmachten(kdNr, dgvVollmachten.Rows(tmprowindex).Cells("kdvma_Id").Value, dgvVollmachten.Rows(tmprowindex).Cells("kdvm_erhalten").Value, datum, dgvVollmachten.Rows(tmprowindex).Cells("kdvm_datenarchivId").Value) - If l.ShowDialog(frmGrayOut) = DialogResult.OK Then - initDGVVollmachten() + If tmprowindex < 0 Then Exit Sub + Dim frmGrayOut = cProgramFunctions.grayoutForm(Me) + Dim datum = IIf(dgvVollmachten.Rows(tmprowindex).Cells("kdvm_erhalten_Datum").Value Is DBNull.Value, Now, dgvVollmachten.Rows(tmprowindex).Cells("kdvm_erhalten_Datum").Value) + Dim l As New frmKundenZOLLVollmachten(kdNr, dgvVollmachten.Rows(tmprowindex).Cells("kdvma_Id").Value, dgvVollmachten.Rows(tmprowindex).Cells("kdvm_erhalten").Value, datum, dgvVollmachten.Rows(tmprowindex).Cells("kdvm_datenarchivId").Value) + If l.ShowDialog(frmGrayOut) = DialogResult.OK Then + initDGVVollmachten() + End If + frmGrayOut.Close() + End If - frmGrayOut.Close() - End If - Exit Sub - - If dgvVollmachten.Rows(e.RowIndex).Cells("kdvm_datenarchivId").Value IsNot DBNull.Value AndAlso CInt(dgvVollmachten.Rows(e.RowIndex).Cells("kdvm_datenarchivId").Value) > 0 Then - ' cDATENSERVER.openDataTMPByDatenarchivId(dgvVollmachten.Rows(e.RowIndex).Cells("kdvm_datenarchivId").Value) - Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(dgvVollmachten.Rows(e.RowIndex).Cells("kdvm_datenarchivId").Value) - DS.OPEN_SINGLE(True) - - End If - - End Sub diff --git a/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb b/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb index f8fb7e02..6f182a33 100644 --- a/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb +++ b/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb @@ -3833,6 +3833,7 @@ Partial Class usrcntlKundeBearbeitenFull 'cbxFiBu ' Me.cbxFiBu.AutoSize = True + Me.cbxFiBu.Enabled = False Me.cbxFiBu.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.cbxFiBu.Location = New System.Drawing.Point(400, 503) Me.cbxFiBu.Name = "cbxFiBu" @@ -3844,6 +3845,7 @@ Partial Class usrcntlKundeBearbeitenFull 'cbxFiBuLG ' Me.cbxFiBuLG.AutoSize = True + Me.cbxFiBuLG.Enabled = False Me.cbxFiBuLG.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.cbxFiBuLG.Location = New System.Drawing.Point(400, 524) Me.cbxFiBuLG.Name = "cbxFiBuLG" diff --git a/SDL/kunden/usrcntlKundeBearbeitenFull.vb b/SDL/kunden/usrcntlKundeBearbeitenFull.vb index 4e2ace14..4af16314 100644 --- a/SDL/kunden/usrcntlKundeBearbeitenFull.vb +++ b/SDL/kunden/usrcntlKundeBearbeitenFull.vb @@ -1075,6 +1075,8 @@ Public Class usrcntlKundeBearbeitenFull Dim selCheck = True Private Sub cboFirma_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboFirma.SelectedIndexChanged + cbxFiBu.Enabled = cboFiliale._value <> "" + cbxFiBuLG.Enabled = cboFiliale._value <> "" If selCheck Then cbxFiBu.Checked = (cboFirma._value <> "") End If diff --git a/SDL/mdm/PLOSE/rptPLOSE_Anhang.Designer.vb b/SDL/mdm/PLOSE/rptPLOSE_Anhang.Designer.vb index 013bee12..38c6a5cb 100644 --- a/SDL/mdm/PLOSE/rptPLOSE_Anhang.Designer.vb +++ b/SDL/mdm/PLOSE/rptPLOSE_Anhang.Designer.vb @@ -24,11 +24,17 @@ Partial Public Class rptPLOSE_Anhang Me.txtBrutto = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.txtNetto = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.txtMWST = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.txtLand = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.txtDatum = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.txtKartennummer = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.txtEingang = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.txtAusgang = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter() Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line() Me.ReportInfo2 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo() Me.ReportHeader1 = New GrapeCity.ActiveReports.SectionReportModel.ReportHeader() - Me.txtKunde = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblRgDatum = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.txtKunde = New GrapeCity.ActiveReports.SectionReportModel.TextBox() Me.Label16 = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.Picture1 = New GrapeCity.ActiveReports.SectionReportModel.Picture() Me.picVERAG = New GrapeCity.ActiveReports.SectionReportModel.Picture() @@ -41,52 +47,52 @@ Partial Public Class rptPLOSE_Anhang Me.lblFirmaEmail = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblFirmaWeb = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.Label18 = New GrapeCity.ActiveReports.SectionReportModel.Label() - Me.lblRgDatum = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter() - Me.GroupHeader4 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader() - Me.lblBrutto = New GrapeCity.ActiveReports.SectionReportModel.Label() - Me.lblMWST = New GrapeCity.ActiveReports.SectionReportModel.Label() - Me.Line16 = New GrapeCity.ActiveReports.SectionReportModel.Line() - Me.lblProdukt = New GrapeCity.ActiveReports.SectionReportModel.Label() - Me.lblNetto = New GrapeCity.ActiveReports.SectionReportModel.Label() - Me.GroupFooter4 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter() - Me.GroupHeaderKat = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader() - Me.GroupFooterKat = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter() - Me.GroupHeaderKz = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader() - Me.GroupFooterKz = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter() - Me.lblKennzeichen = New GrapeCity.ActiveReports.SectionReportModel.Label() - Me.txtKennzeichen = New GrapeCity.ActiveReports.SectionReportModel.Label() - Me.txtLand = New GrapeCity.ActiveReports.SectionReportModel.Label() - Me.txtDatum = New GrapeCity.ActiveReports.SectionReportModel.Label() - Me.lblLand = New GrapeCity.ActiveReports.SectionReportModel.Label() - Me.lblDatum = New GrapeCity.ActiveReports.SectionReportModel.Label() - Me.lblKartennummer = New GrapeCity.ActiveReports.SectionReportModel.Label() - Me.txtKartennummer = New GrapeCity.ActiveReports.SectionReportModel.Label() - Me.lblService = New GrapeCity.ActiveReports.SectionReportModel.Label() - Me.txtEingang = New GrapeCity.ActiveReports.SectionReportModel.Label() - Me.txtAusgang = New GrapeCity.ActiveReports.SectionReportModel.Label() - Me.txtBruttoKzSum = New GrapeCity.ActiveReports.SectionReportModel.Label() - Me.txtNettoKzSum = New GrapeCity.ActiveReports.SectionReportModel.Label() - Me.txtMWSTKzSum = New GrapeCity.ActiveReports.SectionReportModel.Label() - Me.Line4 = New GrapeCity.ActiveReports.SectionReportModel.Line() - Me.lblSummeKennzeichen = New GrapeCity.ActiveReports.SectionReportModel.Label() - Me.txtBruttoKatSum = New GrapeCity.ActiveReports.SectionReportModel.Label() - Me.txtNettoKatSum = New GrapeCity.ActiveReports.SectionReportModel.Label() - Me.txtMWSTKatSum = New GrapeCity.ActiveReports.SectionReportModel.Label() - Me.lblSumKategorie = New GrapeCity.ActiveReports.SectionReportModel.Label() - Me.Line5 = New GrapeCity.ActiveReports.SectionReportModel.Line() Me.txtBruttoGesSum = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.txtNettoGesSum = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.txtMWSTGEsSum = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblGessumme = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.Line7 = New GrapeCity.ActiveReports.SectionReportModel.Line() Me.Line8 = New GrapeCity.ActiveReports.SectionReportModel.Line() + Me.GroupHeader4 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader() + Me.lblDatum = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblLand = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblBrutto = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblMWST = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.Line16 = New GrapeCity.ActiveReports.SectionReportModel.Line() + Me.lblProdukt = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblNetto = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblKartennummer = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblService = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.GroupFooter4 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter() + Me.GroupHeaderKat = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader() + Me.GroupFooterKat = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter() + Me.txtBruttoKatSum = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.txtNettoKatSum = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.txtMWSTKatSum = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblSumKategorie = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.Line5 = New GrapeCity.ActiveReports.SectionReportModel.Line() + Me.GroupHeaderKz = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader() + Me.lblKennzeichen = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.txtKennzeichen = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.GroupFooterKz = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter() + Me.txtBruttoKzSum = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.txtNettoKzSum = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.txtMWSTKzSum = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.Line4 = New GrapeCity.ActiveReports.SectionReportModel.Line() + Me.lblSummeKennzeichen = New GrapeCity.ActiveReports.SectionReportModel.Label() CType(Me.lblKategorie, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtProdukt, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtBrutto, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtNetto, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtMWST, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtLand, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtDatum, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtKartennummer, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtEingang, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtAusgang, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblRgDatum, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtKunde, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.Label16, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.Picture1, System.ComponentModel.ISupportInitialize).BeginInit() @@ -99,34 +105,28 @@ Partial Public Class rptPLOSE_Anhang CType(Me.lblFirmaEmail, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblFirmaWeb, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.Label18, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.lblRgDatum, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.lblBrutto, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.lblMWST, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.lblProdukt, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.lblNetto, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.lblKennzeichen, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.txtKennzeichen, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.txtLand, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.txtDatum, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.lblLand, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.lblDatum, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.lblKartennummer, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.txtKartennummer, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.lblService, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.txtEingang, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.txtAusgang, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.txtBruttoKzSum, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.txtNettoKzSum, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.txtMWSTKzSum, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.lblSummeKennzeichen, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.txtBruttoKatSum, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.txtNettoKatSum, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.txtMWSTKatSum, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.lblSumKategorie, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtBruttoGesSum, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtNettoGesSum, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtMWSTGEsSum, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblGessumme, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblDatum, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblLand, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblBrutto, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblMWST, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblProdukt, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblNetto, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblKartennummer, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblService, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtBruttoKatSum, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtNettoKatSum, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtMWSTKatSum, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblSumKategorie, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblKennzeichen, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtKennzeichen, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtBruttoKzSum, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtNettoKzSum, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtMWSTKzSum, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblSummeKennzeichen, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me, System.ComponentModel.ISupportInitialize).BeginInit() ' 'PageHeader @@ -198,6 +198,61 @@ Partial Public Class rptPLOSE_Anhang Me.txtMWST.Top = 0! Me.txtMWST.Width = 0.9169284! ' + 'txtLand + ' + Me.txtLand.Height = 0.1212599! + Me.txtLand.HyperLink = Nothing + Me.txtLand.Left = 0.01023622! + Me.txtLand.Name = "txtLand" + Me.txtLand.Style = "font-size: 6pt; font-weight: normal; text-align: left; ddo-char-set: 1" + Me.txtLand.Text = "IT" + Me.txtLand.Top = 0! + Me.txtLand.Width = 0.1980315! + ' + 'txtDatum + ' + Me.txtDatum.Height = 0.1212599! + Me.txtDatum.HyperLink = Nothing + Me.txtDatum.Left = 0.2082677! + Me.txtDatum.Name = "txtDatum" + Me.txtDatum.Style = "font-size: 6pt; font-weight: normal; text-align: center; ddo-char-set: 1" + Me.txtDatum.Text = "01.01.2019" + Me.txtDatum.Top = 0! + Me.txtDatum.Width = 0.5102363! + ' + 'txtKartennummer + ' + Me.txtKartennummer.Height = 0.1212599! + Me.txtKartennummer.HyperLink = Nothing + Me.txtKartennummer.Left = 1.781496! + Me.txtKartennummer.Name = "txtKartennummer" + Me.txtKartennummer.Style = "font-size: 6pt; font-weight: normal; text-align: left; ddo-char-set: 1" + Me.txtKartennummer.Text = "Kartennummer" + Me.txtKartennummer.Top = 1.862645E-9! + Me.txtKartennummer.Width = 0.9913387! + ' + 'txtEingang + ' + Me.txtEingang.Height = 0.1212599! + Me.txtEingang.HyperLink = Nothing + Me.txtEingang.Left = 2.771654! + Me.txtEingang.Name = "txtEingang" + Me.txtEingang.Style = "font-size: 6pt; font-weight: normal; text-align: left; ddo-char-set: 1" + Me.txtEingang.Text = "Eingang" + Me.txtEingang.Top = 0! + Me.txtEingang.Width = 1.062992! + ' + 'txtAusgang + ' + Me.txtAusgang.Height = 0.1212599! + Me.txtAusgang.HyperLink = Nothing + Me.txtAusgang.Left = 3.834646! + Me.txtAusgang.Name = "txtAusgang" + Me.txtAusgang.Style = "font-size: 6pt; font-weight: normal; text-align: left; ddo-char-set: 1" + Me.txtAusgang.Text = "Ausgang" + Me.txtAusgang.Top = 0! + Me.txtAusgang.Width = 1.062992! + ' 'PageFooter ' Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Line2, Me.ReportInfo2}) @@ -233,17 +288,29 @@ Partial Public Class rptPLOSE_Anhang Me.ReportHeader1.Height = 1.065354! Me.ReportHeader1.Name = "ReportHeader1" ' + 'lblRgDatum + ' + Me.lblRgDatum.Height = 0.1574803! + Me.lblRgDatum.HyperLink = Nothing + Me.lblRgDatum.Left = 4.897638! + Me.lblRgDatum.Name = "lblRgDatum" + Me.lblRgDatum.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" & + "-char-set: 1" + Me.lblRgDatum.Text = "01.01.2019" + Me.lblRgDatum.Top = 0.7110237! + Me.lblRgDatum.Width = 2.572441! + ' 'txtKunde ' Me.txtKunde.Height = 0.1574803! Me.txtKunde.HyperLink = Nothing - Me.txtKunde.Left = 4.855512! + Me.txtKunde.Left = 4.896063! Me.txtKunde.Name = "txtKunde" Me.txtKunde.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" & "-char-set: 1" Me.txtKunde.Text = "1000000 TEST" Me.txtKunde.Top = 0.868504! - Me.txtKunde.Width = 2.614567! + Me.txtKunde.Width = 2.574016! ' 'Label16 ' @@ -389,18 +456,6 @@ Partial Public Class rptPLOSE_Anhang Me.Label18.Top = 0.7110237! Me.Label18.Width = 1.165748! ' - 'lblRgDatum - ' - Me.lblRgDatum.Height = 0.1574803! - Me.lblRgDatum.HyperLink = Nothing - Me.lblRgDatum.Left = 5.511811! - Me.lblRgDatum.Name = "lblRgDatum" - Me.lblRgDatum.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" & - "-char-set: 1" - Me.lblRgDatum.Text = "01.01.2019" - Me.lblRgDatum.Top = 0.7110237! - Me.lblRgDatum.Width = 1.958268! - ' 'ReportFooter1 ' Me.ReportFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtBruttoGesSum, Me.txtNettoGesSum, Me.txtMWSTGEsSum, Me.lblGessumme, Me.Line7, Me.Line8}) @@ -408,6 +463,77 @@ Partial Public Class rptPLOSE_Anhang Me.ReportFooter1.KeepTogether = True Me.ReportFooter1.Name = "ReportFooter1" ' + 'txtBruttoGesSum + ' + Me.txtBruttoGesSum.Height = 0.1417323! + Me.txtBruttoGesSum.HyperLink = Nothing + Me.txtBruttoGesSum.Left = 6.563386! + Me.txtBruttoGesSum.Name = "txtBruttoGesSum" + Me.txtBruttoGesSum.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1" + Me.txtBruttoGesSum.Text = "Betrag" + Me.txtBruttoGesSum.Top = 0.1098426! + Me.txtBruttoGesSum.Width = 0.9169284! + ' + 'txtNettoGesSum + ' + Me.txtNettoGesSum.Height = 0.1417323! + Me.txtNettoGesSum.HyperLink = Nothing + Me.txtNettoGesSum.Left = 4.729524! + Me.txtNettoGesSum.Name = "txtNettoGesSum" + Me.txtNettoGesSum.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1" + Me.txtNettoGesSum.Text = "Betrag" + Me.txtNettoGesSum.Top = 0.1098426! + Me.txtNettoGesSum.Width = 0.9169284! + ' + 'txtMWSTGEsSum + ' + Me.txtMWSTGEsSum.Height = 0.1417323! + Me.txtMWSTGEsSum.HyperLink = Nothing + Me.txtMWSTGEsSum.Left = 5.646452! + Me.txtMWSTGEsSum.Name = "txtMWSTGEsSum" + Me.txtMWSTGEsSum.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1" + Me.txtMWSTGEsSum.Text = "Betrag" + Me.txtMWSTGEsSum.Top = 0.1098426! + Me.txtMWSTGEsSum.Width = 0.9169284! + ' + 'lblGessumme + ' + Me.lblGessumme.Height = 0.1417323! + Me.lblGessumme.HyperLink = Nothing + Me.lblGessumme.Left = 3.244878! + Me.lblGessumme.Name = "lblGessumme" + Me.lblGessumme.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1; ddo-font-v" & + "ertical: none" + Me.lblGessumme.Text = "Gesamtsumme:" + Me.lblGessumme.Top = 0.1098426! + Me.lblGessumme.Width = 1.484645! + ' + 'Line7 + ' + Me.Line7.Height = 0! + Me.Line7.Left = 0.002752304! + Me.Line7.LineWeight = 2.0! + Me.Line7.Name = "Line7" + Me.Line7.Top = 0! + Me.Line7.Width = 7.475196! + Me.Line7.X1 = 0.002752304! + Me.Line7.X2 = 7.477948! + Me.Line7.Y1 = 0! + Me.Line7.Y2 = 0! + ' + 'Line8 + ' + Me.Line8.Height = 0! + Me.Line8.Left = 0.002752304! + Me.Line8.LineWeight = 2.0! + Me.Line8.Name = "Line8" + Me.Line8.Top = 0.03543304! + Me.Line8.Width = 7.475196! + Me.Line8.X1 = 0.002752304! + Me.Line8.X2 = 7.477948! + Me.Line8.Y1 = 0.03543304! + Me.Line8.Y2 = 0.03543304! + ' 'GroupHeader4 ' Me.GroupHeader4.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblDatum, Me.lblLand, Me.lblBrutto, Me.lblMWST, Me.Line16, Me.lblProdukt, Me.lblNetto, Me.lblKartennummer, Me.lblService}) @@ -415,6 +541,30 @@ Partial Public Class rptPLOSE_Anhang Me.GroupHeader4.KeepTogether = True Me.GroupHeader4.Name = "GroupHeader4" ' + 'lblDatum + ' + Me.lblDatum.Height = 0.1425197! + Me.lblDatum.HyperLink = Nothing + Me.lblDatum.Left = 0.2082677! + Me.lblDatum.Name = "lblDatum" + Me.lblDatum.Style = "font-size: 6pt; font-weight: bold; text-align: center; vertical-align: middle; dd" & + "o-char-set: 1" + Me.lblDatum.Text = "Datum" + Me.lblDatum.Top = 0.008661418! + Me.lblDatum.Width = 0.5102363! + ' + 'lblLand + ' + Me.lblLand.Height = 0.1425197! + Me.lblLand.HyperLink = Nothing + Me.lblLand.Left = 0! + Me.lblLand.Name = "lblLand" + Me.lblLand.Style = "font-size: 6pt; font-weight: bold; text-align: left; vertical-align: middle; ddo-" & + "char-set: 1" + Me.lblLand.Text = "Land" + Me.lblLand.Top = 0.008661417! + Me.lblLand.Width = 0.3228347! + ' 'lblBrutto ' Me.lblBrutto.Height = 0.1425197! @@ -476,6 +626,30 @@ Partial Public Class rptPLOSE_Anhang Me.lblNetto.Top = 0.008661418! Me.lblNetto.Width = 0.7503939! ' + 'lblKartennummer + ' + Me.lblKartennummer.Height = 0.1425197! + Me.lblKartennummer.HyperLink = Nothing + Me.lblKartennummer.Left = 1.781496! + Me.lblKartennummer.Name = "lblKartennummer" + Me.lblKartennummer.Style = "font-size: 6pt; font-weight: bold; text-align: left; vertical-align: middle; ddo-" & + "char-set: 1" + Me.lblKartennummer.Text = "Kartennummer" + Me.lblKartennummer.Top = 0.008661418! + Me.lblKartennummer.Width = 0.9901576! + ' + 'lblService + ' + Me.lblService.Height = 0.1425197! + Me.lblService.HyperLink = Nothing + Me.lblService.Left = 2.771654! + Me.lblService.Name = "lblService" + Me.lblService.Style = "font-size: 6pt; font-weight: bold; text-align: left; vertical-align: middle; ddo-" & + "char-set: 1" + Me.lblService.Text = "Service" + Me.lblService.Top = 0.008661418! + Me.lblService.Width = 2.125984! + ' 'GroupFooter4 ' Me.GroupFooter4.Height = 0! @@ -492,203 +666,6 @@ Partial Public Class rptPLOSE_Anhang Me.GroupFooterKat.Height = 0.375! Me.GroupFooterKat.Name = "GroupFooterKat" ' - 'GroupHeaderKz - ' - Me.GroupHeaderKz.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblKennzeichen, Me.txtKennzeichen}) - Me.GroupHeaderKz.Name = "GroupHeaderKz" - ' - 'GroupFooterKz - ' - Me.GroupFooterKz.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtBruttoKzSum, Me.txtNettoKzSum, Me.txtMWSTKzSum, Me.Line4, Me.lblSummeKennzeichen}) - Me.GroupFooterKz.Name = "GroupFooterKz" - ' - 'lblKennzeichen - ' - Me.lblKennzeichen.Height = 0.1425197! - Me.lblKennzeichen.HyperLink = Nothing - Me.lblKennzeichen.Left = 0.01417327! - Me.lblKennzeichen.Name = "lblKennzeichen" - Me.lblKennzeichen.Padding = New GrapeCity.ActiveReports.PaddingEx(3, 0, 0, 0) - Me.lblKennzeichen.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" & - "o-char-set: 1" - Me.lblKennzeichen.Text = "LKW-Kennzeichen:" - Me.lblKennzeichen.Top = 0.05354331! - Me.lblKennzeichen.Width = 1.34252! - ' - 'txtKennzeichen - ' - Me.txtKennzeichen.Height = 0.1425197! - Me.txtKennzeichen.HyperLink = Nothing - Me.txtKennzeichen.Left = 1.356693! - Me.txtKennzeichen.Name = "txtKennzeichen" - Me.txtKennzeichen.Padding = New GrapeCity.ActiveReports.PaddingEx(3, 0, 0, 0) - Me.txtKennzeichen.Style = "font-size: 10pt; font-weight: bold; text-align: left; vertical-align: middle; ddo" & - "-char-set: 1" - Me.txtKennzeichen.Text = "SD 123 ABC" - Me.txtKennzeichen.Top = 0.05354331! - Me.txtKennzeichen.Width = 1.34252! - ' - 'txtLand - ' - Me.txtLand.Height = 0.1212599! - Me.txtLand.HyperLink = Nothing - Me.txtLand.Left = 0.01023622! - Me.txtLand.Name = "txtLand" - Me.txtLand.Style = "font-size: 6pt; font-weight: normal; text-align: left; ddo-char-set: 1" - Me.txtLand.Text = "IT" - Me.txtLand.Top = 0! - Me.txtLand.Width = 0.1980315! - ' - 'txtDatum - ' - Me.txtDatum.Height = 0.1212599! - Me.txtDatum.HyperLink = Nothing - Me.txtDatum.Left = 0.2082677! - Me.txtDatum.Name = "txtDatum" - Me.txtDatum.Style = "font-size: 6pt; font-weight: normal; text-align: center; ddo-char-set: 1" - Me.txtDatum.Text = "01.01.2019" - Me.txtDatum.Top = 0! - Me.txtDatum.Width = 0.5102363! - ' - 'lblLand - ' - Me.lblLand.Height = 0.1425197! - Me.lblLand.HyperLink = Nothing - Me.lblLand.Left = 0! - Me.lblLand.Name = "lblLand" - Me.lblLand.Style = "font-size: 6pt; font-weight: bold; text-align: left; vertical-align: middle; ddo-" & - "char-set: 1" - Me.lblLand.Text = "Land" - Me.lblLand.Top = 0.008661417! - Me.lblLand.Width = 0.3228347! - ' - 'lblDatum - ' - Me.lblDatum.Height = 0.1425197! - Me.lblDatum.HyperLink = Nothing - Me.lblDatum.Left = 0.2082677! - Me.lblDatum.Name = "lblDatum" - Me.lblDatum.Style = "font-size: 6pt; font-weight: bold; text-align: center; vertical-align: middle; dd" & - "o-char-set: 1" - Me.lblDatum.Text = "Datum" - Me.lblDatum.Top = 0.008661418! - Me.lblDatum.Width = 0.5102363! - ' - 'lblKartennummer - ' - Me.lblKartennummer.Height = 0.1425197! - Me.lblKartennummer.HyperLink = Nothing - Me.lblKartennummer.Left = 1.781496! - Me.lblKartennummer.Name = "lblKartennummer" - Me.lblKartennummer.Style = "font-size: 6pt; font-weight: bold; text-align: left; vertical-align: middle; ddo-" & - "char-set: 1" - Me.lblKartennummer.Text = "Kartennummer" - Me.lblKartennummer.Top = 0.008661418! - Me.lblKartennummer.Width = 0.9901576! - ' - 'txtKartennummer - ' - Me.txtKartennummer.Height = 0.1212599! - Me.txtKartennummer.HyperLink = Nothing - Me.txtKartennummer.Left = 1.781496! - Me.txtKartennummer.Name = "txtKartennummer" - Me.txtKartennummer.Style = "font-size: 6pt; font-weight: normal; text-align: left; ddo-char-set: 1" - Me.txtKartennummer.Text = "Kartennummer" - Me.txtKartennummer.Top = 1.862645E-9! - Me.txtKartennummer.Width = 0.9913387! - ' - 'lblService - ' - Me.lblService.Height = 0.1425197! - Me.lblService.HyperLink = Nothing - Me.lblService.Left = 2.771654! - Me.lblService.Name = "lblService" - Me.lblService.Style = "font-size: 6pt; font-weight: bold; text-align: left; vertical-align: middle; ddo-" & - "char-set: 1" - Me.lblService.Text = "Service" - Me.lblService.Top = 0.008661418! - Me.lblService.Width = 2.125984! - ' - 'txtEingang - ' - Me.txtEingang.Height = 0.1212599! - Me.txtEingang.HyperLink = Nothing - Me.txtEingang.Left = 2.771654! - Me.txtEingang.Name = "txtEingang" - Me.txtEingang.Style = "font-size: 6pt; font-weight: normal; text-align: left; ddo-char-set: 1" - Me.txtEingang.Text = "Eingang" - Me.txtEingang.Top = 0! - Me.txtEingang.Width = 1.062992! - ' - 'txtAusgang - ' - Me.txtAusgang.Height = 0.1212599! - Me.txtAusgang.HyperLink = Nothing - Me.txtAusgang.Left = 3.834646! - Me.txtAusgang.Name = "txtAusgang" - Me.txtAusgang.Style = "font-size: 6pt; font-weight: normal; text-align: left; ddo-char-set: 1" - Me.txtAusgang.Text = "Ausgang" - Me.txtAusgang.Top = 0! - Me.txtAusgang.Width = 1.062992! - ' - 'txtBruttoKzSum - ' - Me.txtBruttoKzSum.Height = 0.1417323! - Me.txtBruttoKzSum.HyperLink = Nothing - Me.txtBruttoKzSum.Left = 6.56339! - Me.txtBruttoKzSum.Name = "txtBruttoKzSum" - Me.txtBruttoKzSum.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1" - Me.txtBruttoKzSum.Text = "Betrag" - Me.txtBruttoKzSum.Top = 0.01968504! - Me.txtBruttoKzSum.Width = 0.9169284! - ' - 'txtNettoKzSum - ' - Me.txtNettoKzSum.Height = 0.1417323! - Me.txtNettoKzSum.HyperLink = Nothing - Me.txtNettoKzSum.Left = 4.729528! - Me.txtNettoKzSum.Name = "txtNettoKzSum" - Me.txtNettoKzSum.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1" - Me.txtNettoKzSum.Text = "Betrag" - Me.txtNettoKzSum.Top = 0.01968504! - Me.txtNettoKzSum.Width = 0.9169284! - ' - 'txtMWSTKzSum - ' - Me.txtMWSTKzSum.Height = 0.1417323! - Me.txtMWSTKzSum.HyperLink = Nothing - Me.txtMWSTKzSum.Left = 5.646457! - Me.txtMWSTKzSum.Name = "txtMWSTKzSum" - Me.txtMWSTKzSum.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1" - Me.txtMWSTKzSum.Text = "Betrag" - Me.txtMWSTKzSum.Top = 0.01968504! - Me.txtMWSTKzSum.Width = 0.9169284! - ' - 'Line4 - ' - Me.Line4.Height = 0! - Me.Line4.Left = 0.002755906! - Me.Line4.LineWeight = 1.0! - Me.Line4.Name = "Line4" - Me.Line4.Top = 0! - Me.Line4.Width = 7.475195! - Me.Line4.X1 = 0.002755906! - Me.Line4.X2 = 7.477951! - Me.Line4.Y1 = 0! - Me.Line4.Y2 = 0! - ' - 'lblSummeKennzeichen - ' - Me.lblSummeKennzeichen.Height = 0.1417323! - Me.lblSummeKennzeichen.HyperLink = Nothing - Me.lblSummeKennzeichen.Left = 3.244882! - Me.lblSummeKennzeichen.Name = "lblSummeKennzeichen" - Me.lblSummeKennzeichen.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1; ddo-font-v" & - "ertical: none" - Me.lblSummeKennzeichen.Text = "Summe Kennzeichen" - Me.lblSummeKennzeichen.Top = 0.01968504! - Me.lblSummeKennzeichen.Width = 1.484645! - ' 'txtBruttoKatSum ' Me.txtBruttoKatSum.Height = 0.1417323! @@ -747,76 +724,99 @@ Partial Public Class rptPLOSE_Anhang Me.Line5.Y1 = 0.06102363! Me.Line5.Y2 = 0.06102363! ' - 'txtBruttoGesSum + 'GroupHeaderKz ' - Me.txtBruttoGesSum.Height = 0.1417323! - Me.txtBruttoGesSum.HyperLink = Nothing - Me.txtBruttoGesSum.Left = 6.563386! - Me.txtBruttoGesSum.Name = "txtBruttoGesSum" - Me.txtBruttoGesSum.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1" - Me.txtBruttoGesSum.Text = "Betrag" - Me.txtBruttoGesSum.Top = 0.1098426! - Me.txtBruttoGesSum.Width = 0.9169284! + Me.GroupHeaderKz.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblKennzeichen, Me.txtKennzeichen}) + Me.GroupHeaderKz.Name = "GroupHeaderKz" ' - 'txtNettoGesSum + 'lblKennzeichen ' - Me.txtNettoGesSum.Height = 0.1417323! - Me.txtNettoGesSum.HyperLink = Nothing - Me.txtNettoGesSum.Left = 4.729524! - Me.txtNettoGesSum.Name = "txtNettoGesSum" - Me.txtNettoGesSum.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1" - Me.txtNettoGesSum.Text = "Betrag" - Me.txtNettoGesSum.Top = 0.1098426! - Me.txtNettoGesSum.Width = 0.9169284! + Me.lblKennzeichen.Height = 0.1425197! + Me.lblKennzeichen.HyperLink = Nothing + Me.lblKennzeichen.Left = 0.01417327! + Me.lblKennzeichen.Name = "lblKennzeichen" + Me.lblKennzeichen.Padding = New GrapeCity.ActiveReports.PaddingEx(3, 0, 0, 0) + Me.lblKennzeichen.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" & + "o-char-set: 1" + Me.lblKennzeichen.Text = "LKW-Kennzeichen:" + Me.lblKennzeichen.Top = 0.05354331! + Me.lblKennzeichen.Width = 1.34252! ' - 'txtMWSTGEsSum + 'txtKennzeichen ' - Me.txtMWSTGEsSum.Height = 0.1417323! - Me.txtMWSTGEsSum.HyperLink = Nothing - Me.txtMWSTGEsSum.Left = 5.646452! - Me.txtMWSTGEsSum.Name = "txtMWSTGEsSum" - Me.txtMWSTGEsSum.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1" - Me.txtMWSTGEsSum.Text = "Betrag" - Me.txtMWSTGEsSum.Top = 0.1098426! - Me.txtMWSTGEsSum.Width = 0.9169284! + Me.txtKennzeichen.Height = 0.1425197! + Me.txtKennzeichen.HyperLink = Nothing + Me.txtKennzeichen.Left = 1.356693! + Me.txtKennzeichen.Name = "txtKennzeichen" + Me.txtKennzeichen.Padding = New GrapeCity.ActiveReports.PaddingEx(3, 0, 0, 0) + Me.txtKennzeichen.Style = "font-size: 10pt; font-weight: bold; text-align: left; vertical-align: middle; ddo" & + "-char-set: 1" + Me.txtKennzeichen.Text = "SD 123 ABC" + Me.txtKennzeichen.Top = 0.05354331! + Me.txtKennzeichen.Width = 1.34252! ' - 'lblGessumme + 'GroupFooterKz ' - Me.lblGessumme.Height = 0.1417323! - Me.lblGessumme.HyperLink = Nothing - Me.lblGessumme.Left = 3.244878! - Me.lblGessumme.Name = "lblGessumme" - Me.lblGessumme.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1; ddo-font-v" & + Me.GroupFooterKz.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtBruttoKzSum, Me.txtNettoKzSum, Me.txtMWSTKzSum, Me.Line4, Me.lblSummeKennzeichen}) + Me.GroupFooterKz.Name = "GroupFooterKz" + ' + 'txtBruttoKzSum + ' + Me.txtBruttoKzSum.Height = 0.1417323! + Me.txtBruttoKzSum.HyperLink = Nothing + Me.txtBruttoKzSum.Left = 6.56339! + Me.txtBruttoKzSum.Name = "txtBruttoKzSum" + Me.txtBruttoKzSum.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1" + Me.txtBruttoKzSum.Text = "Betrag" + Me.txtBruttoKzSum.Top = 0.01968504! + Me.txtBruttoKzSum.Width = 0.9169284! + ' + 'txtNettoKzSum + ' + Me.txtNettoKzSum.Height = 0.1417323! + Me.txtNettoKzSum.HyperLink = Nothing + Me.txtNettoKzSum.Left = 4.729528! + Me.txtNettoKzSum.Name = "txtNettoKzSum" + Me.txtNettoKzSum.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1" + Me.txtNettoKzSum.Text = "Betrag" + Me.txtNettoKzSum.Top = 0.01968504! + Me.txtNettoKzSum.Width = 0.9169284! + ' + 'txtMWSTKzSum + ' + Me.txtMWSTKzSum.Height = 0.1417323! + Me.txtMWSTKzSum.HyperLink = Nothing + Me.txtMWSTKzSum.Left = 5.646457! + Me.txtMWSTKzSum.Name = "txtMWSTKzSum" + Me.txtMWSTKzSum.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1" + Me.txtMWSTKzSum.Text = "Betrag" + Me.txtMWSTKzSum.Top = 0.01968504! + Me.txtMWSTKzSum.Width = 0.9169284! + ' + 'Line4 + ' + Me.Line4.Height = 0! + Me.Line4.Left = 0.002755906! + Me.Line4.LineWeight = 1.0! + Me.Line4.Name = "Line4" + Me.Line4.Top = 0! + Me.Line4.Width = 7.475195! + Me.Line4.X1 = 0.002755906! + Me.Line4.X2 = 7.477951! + Me.Line4.Y1 = 0! + Me.Line4.Y2 = 0! + ' + 'lblSummeKennzeichen + ' + Me.lblSummeKennzeichen.Height = 0.1417323! + Me.lblSummeKennzeichen.HyperLink = Nothing + Me.lblSummeKennzeichen.Left = 3.244882! + Me.lblSummeKennzeichen.Name = "lblSummeKennzeichen" + Me.lblSummeKennzeichen.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1; ddo-font-v" & "ertical: none" - Me.lblGessumme.Text = "Gesamtsumme:" - Me.lblGessumme.Top = 0.1098426! - Me.lblGessumme.Width = 1.484645! - ' - 'Line7 - ' - Me.Line7.Height = 0! - Me.Line7.Left = 0.002752304! - Me.Line7.LineWeight = 2.0! - Me.Line7.Name = "Line7" - Me.Line7.Top = 0! - Me.Line7.Width = 7.475195! - Me.Line7.X1 = 0.002752304! - Me.Line7.X2 = 7.477948! - Me.Line7.Y1 = 0! - Me.Line7.Y2 = 0! - ' - 'Line8 - ' - Me.Line8.Height = 0! - Me.Line8.Left = 0.002752304! - Me.Line8.LineWeight = 2.0! - Me.Line8.Name = "Line8" - Me.Line8.Top = 0.03543304! - Me.Line8.Width = 7.475195! - Me.Line8.X1 = 0.002752304! - Me.Line8.X2 = 7.477948! - Me.Line8.Y1 = 0.03543304! - Me.Line8.Y2 = 0.03543304! + Me.lblSummeKennzeichen.Text = "Summe Kennzeichen" + Me.lblSummeKennzeichen.Top = 0.01968504! + Me.lblSummeKennzeichen.Width = 1.484645! ' 'rptPLOSE_Anhang ' @@ -850,7 +850,13 @@ Partial Public Class rptPLOSE_Anhang CType(Me.txtBrutto, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtNetto, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtMWST, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtLand, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtDatum, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtKartennummer, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtEingang, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtAusgang, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblRgDatum, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtKunde, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.Label16, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.Picture1, System.ComponentModel.ISupportInitialize).EndInit() @@ -863,34 +869,28 @@ Partial Public Class rptPLOSE_Anhang CType(Me.lblFirmaEmail, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblFirmaWeb, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.Label18, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.lblRgDatum, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.lblBrutto, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.lblMWST, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.lblProdukt, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.lblNetto, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.lblKennzeichen, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.txtKennzeichen, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.txtLand, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.txtDatum, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.lblLand, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.lblDatum, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.lblKartennummer, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.txtKartennummer, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.lblService, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.txtEingang, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.txtAusgang, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.txtBruttoKzSum, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.txtNettoKzSum, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.txtMWSTKzSum, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.lblSummeKennzeichen, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.txtBruttoKatSum, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.txtNettoKatSum, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.txtMWSTKatSum, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.lblSumKategorie, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtBruttoGesSum, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtNettoGesSum, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtMWSTGEsSum, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblGessumme, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblDatum, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblLand, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblBrutto, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblMWST, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblProdukt, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblNetto, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblKartennummer, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblService, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtBruttoKatSum, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtNettoKatSum, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtMWSTKatSum, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblSumKategorie, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblKennzeichen, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtKennzeichen, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtBruttoKzSum, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtNettoKzSum, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtMWSTKzSum, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblSummeKennzeichen, System.ComponentModel.ISupportInitialize).EndInit() CType(Me, System.ComponentModel.ISupportInitialize).EndInit() End Sub @@ -904,7 +904,7 @@ Partial Public Class rptPLOSE_Anhang Private WithEvents GroupFooter4 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter Private WithEvents Line3 As GrapeCity.ActiveReports.SectionReportModel.Line Private WithEvents Label18 As GrapeCity.ActiveReports.SectionReportModel.Label - Public WithEvents txtKunde As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents txtKunde As GrapeCity.ActiveReports.SectionReportModel.TextBox Public WithEvents lblRgDatum As GrapeCity.ActiveReports.SectionReportModel.Label Public WithEvents Picture1 As GrapeCity.ActiveReports.SectionReportModel.Picture Public WithEvents picVERAG As GrapeCity.ActiveReports.SectionReportModel.Picture diff --git a/SDL/mdm/SDLAbholung/frmSDLAbholungEintrag.vb b/SDL/mdm/SDLAbholung/frmSDLAbholungEintrag.vb index 94c1625a..8dcd6f32 100644 --- a/SDL/mdm/SDLAbholung/frmSDLAbholungEintrag.vb +++ b/SDL/mdm/SDLAbholung/frmSDLAbholungEintrag.vb @@ -236,9 +236,9 @@ Public Class frmSDLAbholungEintrag " WHEN '210' THEN 'SI' " & " WHEN '212' THEN 'UTA' " & " WHEN '213' THEN 'HUGO' " & - " WHEN '214' THEN 'PLOSE' " & - " WHEN '215' THEN 'PLOSE IT' " & - " WHEN '216' THEN 'PLOSE CZ' " & + " WHEN '214' THEN 'ROADMASTER' " & + " WHEN '215' THEN 'IT' " & + " WHEN '216' THEN 'CZ' " & " WHEN '203' THEN 'CZ' " & " WHEN '209' THEN 'PL' " & " WHEN '500' THEN 'ABGASPLAKETTE' " & diff --git a/SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenPLOSE_IT.vb b/SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenPLOSE_IT.vb index 5fc75205..307d5851 100644 --- a/SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenPLOSE_IT.vb +++ b/SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenPLOSE_IT.vb @@ -105,7 +105,7 @@ Public Class usrCntlSDLLeistungenPLOSE_IT UsrCntlDetails.lblSachbearb.Text = SDL.Sachbearbeiter - txtPLOSEKdNr.Text = SDL.TELEPASS_Kd_Nr + ' txtPLOSEKdNr.Text = SDL.TELEPASS_Kd_Nr txtTelepassNr.Text = SDL.TELEPASS_Nr txtVIACard.Text = SDL.VIACARD diff --git a/SDL/mdm/PLOSE/frmMDMDatenverarbetiung.Designer.vb b/SDL/mdm/frmMDMDatenverarbetiung.Designer.vb similarity index 71% rename from SDL/mdm/PLOSE/frmMDMDatenverarbetiung.Designer.vb rename to SDL/mdm/frmMDMDatenverarbetiung.Designer.vb index 32776cac..c5f9886a 100644 --- a/SDL/mdm/PLOSE/frmMDMDatenverarbetiung.Designer.vb +++ b/SDL/mdm/frmMDMDatenverarbetiung.Designer.vb @@ -35,6 +35,9 @@ Partial Class frmMDMDatenverarbetiung Me.dat_Sum_Bis = New System.Windows.Forms.DateTimePicker() Me.lbl = New System.Windows.Forms.Label() Me.Panel1 = New System.Windows.Forms.Panel() + Me.btnKunde = New System.Windows.Forms.Button() + Me.Label4 = New System.Windows.Forms.Label() + Me.txtPruefsummeBrutto = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.cbx = New System.Windows.Forms.CheckBox() Me.Panel2 = New System.Windows.Forms.Panel() Me.Label43 = New System.Windows.Forms.Label() @@ -45,7 +48,7 @@ Partial Class frmMDMDatenverarbetiung Me.pbPloseAnh_Proz = New System.Windows.Forms.ProgressBar() Me.lblPloseAnh_Proz = New System.Windows.Forms.Label() Me.Label3 = New System.Windows.Forms.Label() - Me.txtPrüfsumme = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtPruefsummeNetto = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label2 = New System.Windows.Forms.Label() Me.txtAnzahl = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Button3 = New System.Windows.Forms.Button() @@ -72,22 +75,24 @@ Partial Class frmMDMDatenverarbetiung Me.pnl.Dock = System.Windows.Forms.DockStyle.Top Me.pnl.Location = New System.Drawing.Point(0, 0) Me.pnl.Name = "pnl" - Me.pnl.Size = New System.Drawing.Size(1054, 100) + Me.pnl.Size = New System.Drawing.Size(1163, 100) Me.pnl.TabIndex = 1 ' 'FlowLayoutPanel ' + Me.FlowLayoutPanel.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.FlowLayoutPanel.BackColor = System.Drawing.Color.FloralWhite Me.FlowLayoutPanel.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.FlowLayoutPanel.Controls.Add(Me.btn) Me.FlowLayoutPanel.Location = New System.Drawing.Point(139, 37) Me.FlowLayoutPanel.Name = "FlowLayoutPanel" - Me.FlowLayoutPanel.Size = New System.Drawing.Size(731, 31) + Me.FlowLayoutPanel.Size = New System.Drawing.Size(840, 31) Me.FlowLayoutPanel.TabIndex = 27 ' 'btn ' - Me.btn.BackColor = System.Drawing.Color.Wheat + Me.btn.BackColor = System.Drawing.Color.FloralWhite Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btn.Location = New System.Drawing.Point(3, 3) Me.btn.Name = "btn" @@ -98,8 +103,9 @@ Partial Class frmMDMDatenverarbetiung ' 'btnDatenLaden ' + Me.btnDatenLaden.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.btnDatenLaden.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnDatenLaden.Location = New System.Drawing.Point(876, 37) + Me.btnDatenLaden.Location = New System.Drawing.Point(985, 37) Me.btnDatenLaden.Name = "btnDatenLaden" Me.btnDatenLaden.Size = New System.Drawing.Size(166, 57) Me.btnDatenLaden.TabIndex = 1 @@ -161,10 +167,13 @@ Partial Class frmMDMDatenverarbetiung ' 'Panel1 ' + Me.Panel1.Controls.Add(Me.btnKunde) + Me.Panel1.Controls.Add(Me.Label4) + Me.Panel1.Controls.Add(Me.txtPruefsummeBrutto) Me.Panel1.Controls.Add(Me.cbx) Me.Panel1.Controls.Add(Me.Panel2) Me.Panel1.Controls.Add(Me.Label3) - Me.Panel1.Controls.Add(Me.txtPrüfsumme) + Me.Panel1.Controls.Add(Me.txtPruefsummeNetto) Me.Panel1.Controls.Add(Me.Label2) Me.Panel1.Controls.Add(Me.txtAnzahl) Me.Panel1.Controls.Add(Me.Button3) @@ -172,9 +181,57 @@ Partial Class frmMDMDatenverarbetiung Me.Panel1.Dock = System.Windows.Forms.DockStyle.Bottom Me.Panel1.Location = New System.Drawing.Point(0, 677) Me.Panel1.Name = "Panel1" - Me.Panel1.Size = New System.Drawing.Size(1054, 114) + Me.Panel1.Size = New System.Drawing.Size(1163, 114) Me.Panel1.TabIndex = 2 ' + 'btnKunde + ' + Me.btnKunde.Enabled = False + Me.btnKunde.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnKunde.Image = Global.SDL.My.Resources.Resources.person1 + Me.btnKunde.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnKunde.Location = New System.Drawing.Point(461, 16) + Me.btnKunde.Name = "btnKunde" + Me.btnKunde.Padding = New System.Windows.Forms.Padding(0, 0, 2, 0) + Me.btnKunde.Size = New System.Drawing.Size(136, 32) + Me.btnKunde.TabIndex = 45 + Me.btnKunde.Text = "zum Kundenblatt" + Me.btnKunde.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnKunde.UseVisualStyleBackColor = True + ' + 'Label4 + ' + Me.Label4.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Label4.AutoSize = True + Me.Label4.Location = New System.Drawing.Point(953, 72) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(92, 13) + Me.Label4.TabIndex = 44 + Me.Label4.Text = "Prüfsumme brutto:" + ' + 'txtPruefsummeBrutto + ' + Me.txtPruefsummeBrutto._DateTimeOnly = False + Me.txtPruefsummeBrutto._numbersOnly = False + Me.txtPruefsummeBrutto._numbersOnlyKommastellen = "" + Me.txtPruefsummeBrutto._Prozent = False + Me.txtPruefsummeBrutto._ShortDateNew = False + Me.txtPruefsummeBrutto._ShortDateOnly = False + Me.txtPruefsummeBrutto._TimeOnly = False + Me.txtPruefsummeBrutto._value = "" + Me.txtPruefsummeBrutto._Waehrung = False + Me.txtPruefsummeBrutto._WaehrungZeichen = True + Me.txtPruefsummeBrutto.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txtPruefsummeBrutto.ForeColor = System.Drawing.Color.Black + Me.txtPruefsummeBrutto.Location = New System.Drawing.Point(1051, 69) + Me.txtPruefsummeBrutto.MaxLineLength = -1 + Me.txtPruefsummeBrutto.MaxLines_Warning = "" + Me.txtPruefsummeBrutto.MaxLines_Warning_Label = Nothing + Me.txtPruefsummeBrutto.Name = "txtPruefsummeBrutto" + Me.txtPruefsummeBrutto.Size = New System.Drawing.Size(100, 20) + Me.txtPruefsummeBrutto.TabIndex = 43 + Me.txtPruefsummeBrutto.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' 'cbx ' Me.cbx.AutoSize = True @@ -263,38 +320,42 @@ Partial Class frmMDMDatenverarbetiung ' 'Label3 ' + Me.Label3.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.Label3.AutoSize = True - Me.Label3.Location = New System.Drawing.Point(855, 46) + Me.Label3.Location = New System.Drawing.Point(953, 46) Me.Label3.Name = "Label3" - Me.Label3.Size = New System.Drawing.Size(62, 13) + Me.Label3.Size = New System.Drawing.Size(89, 13) Me.Label3.TabIndex = 38 - Me.Label3.Text = "Prüfsumme:" + Me.Label3.Text = "Prüfsumme netto:" ' - 'txtPrüfsumme + 'txtPruefsummeNetto ' - Me.txtPrüfsumme._DateTimeOnly = False - Me.txtPrüfsumme._numbersOnly = False - Me.txtPrüfsumme._numbersOnlyKommastellen = "" - Me.txtPrüfsumme._Prozent = False - Me.txtPrüfsumme._ShortDateNew = False - Me.txtPrüfsumme._ShortDateOnly = False - Me.txtPrüfsumme._TimeOnly = False - Me.txtPrüfsumme._value = "" - Me.txtPrüfsumme._Waehrung = False - Me.txtPrüfsumme._WaehrungZeichen = True - Me.txtPrüfsumme.ForeColor = System.Drawing.Color.Black - Me.txtPrüfsumme.Location = New System.Drawing.Point(942, 43) - Me.txtPrüfsumme.MaxLineLength = -1 - Me.txtPrüfsumme.MaxLines_Warning = "" - Me.txtPrüfsumme.MaxLines_Warning_Label = Nothing - Me.txtPrüfsumme.Name = "txtPrüfsumme" - Me.txtPrüfsumme.Size = New System.Drawing.Size(100, 20) - Me.txtPrüfsumme.TabIndex = 37 + Me.txtPruefsummeNetto._DateTimeOnly = False + Me.txtPruefsummeNetto._numbersOnly = False + Me.txtPruefsummeNetto._numbersOnlyKommastellen = "" + Me.txtPruefsummeNetto._Prozent = False + Me.txtPruefsummeNetto._ShortDateNew = False + Me.txtPruefsummeNetto._ShortDateOnly = False + Me.txtPruefsummeNetto._TimeOnly = False + Me.txtPruefsummeNetto._value = "" + Me.txtPruefsummeNetto._Waehrung = False + Me.txtPruefsummeNetto._WaehrungZeichen = True + Me.txtPruefsummeNetto.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txtPruefsummeNetto.ForeColor = System.Drawing.Color.Black + Me.txtPruefsummeNetto.Location = New System.Drawing.Point(1051, 43) + Me.txtPruefsummeNetto.MaxLineLength = -1 + Me.txtPruefsummeNetto.MaxLines_Warning = "" + Me.txtPruefsummeNetto.MaxLines_Warning_Label = Nothing + Me.txtPruefsummeNetto.Name = "txtPruefsummeNetto" + Me.txtPruefsummeNetto.Size = New System.Drawing.Size(100, 20) + Me.txtPruefsummeNetto.TabIndex = 37 + Me.txtPruefsummeNetto.TextAlign = System.Windows.Forms.HorizontalAlignment.Right ' 'Label2 ' + Me.Label2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.Label2.AutoSize = True - Me.Label2.Location = New System.Drawing.Point(855, 19) + Me.Label2.Location = New System.Drawing.Point(953, 19) Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(42, 13) Me.Label2.TabIndex = 36 @@ -312,14 +373,16 @@ Partial Class frmMDMDatenverarbetiung Me.txtAnzahl._value = "" Me.txtAnzahl._Waehrung = False Me.txtAnzahl._WaehrungZeichen = True + Me.txtAnzahl.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.txtAnzahl.ForeColor = System.Drawing.Color.Black - Me.txtAnzahl.Location = New System.Drawing.Point(942, 16) + Me.txtAnzahl.Location = New System.Drawing.Point(1051, 16) Me.txtAnzahl.MaxLineLength = -1 Me.txtAnzahl.MaxLines_Warning = "" Me.txtAnzahl.MaxLines_Warning_Label = Nothing Me.txtAnzahl.Name = "txtAnzahl" Me.txtAnzahl.Size = New System.Drawing.Size(100, 20) Me.txtAnzahl.TabIndex = 35 + Me.txtAnzahl.TextAlign = System.Windows.Forms.HorizontalAlignment.Right ' 'Button3 ' @@ -353,7 +416,8 @@ Partial Class frmMDMDatenverarbetiung Me.MyDatagridview1.Location = New System.Drawing.Point(0, 100) Me.MyDatagridview1.Name = "MyDatagridview1" Me.MyDatagridview1.ReadOnly = True - Me.MyDatagridview1.Size = New System.Drawing.Size(1054, 577) + Me.MyDatagridview1.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.MyDatagridview1.Size = New System.Drawing.Size(1163, 577) Me.MyDatagridview1.TabIndex = 0 ' 'frmMDMDatenverarbetiung @@ -361,7 +425,7 @@ Partial Class frmMDMDatenverarbetiung Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.BackColor = System.Drawing.Color.White - Me.ClientSize = New System.Drawing.Size(1054, 791) + Me.ClientSize = New System.Drawing.Size(1163, 791) Me.Controls.Add(Me.MyDatagridview1) Me.Controls.Add(Me.Panel1) Me.Controls.Add(Me.pnl) @@ -402,10 +466,13 @@ Partial Class frmMDMDatenverarbetiung Friend WithEvents txtPloseAnh_Einarbeitung As TextBox Friend WithEvents Label44 As Label Friend WithEvents Label3 As Label - Friend WithEvents txtPrüfsumme As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtPruefsummeNetto As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents Label2 As Label Friend WithEvents datPloseAnhang As DateTimePicker Friend WithEvents Label43 As Label Friend WithEvents cbx As CheckBox Friend WithEvents Panel2 As Panel + Friend WithEvents Label4 As Label + Friend WithEvents txtPruefsummeBrutto As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents btnKunde As Button End Class diff --git a/SDL/mdm/frmMDMDatenverarbetiung.resx b/SDL/mdm/frmMDMDatenverarbetiung.resx new file mode 100644 index 00000000..d584bd9e --- /dev/null +++ b/SDL/mdm/frmMDMDatenverarbetiung.resx @@ -0,0 +1,980 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + + AAABAAEAgIAAAAEAGAAoyAAAFgAAACgAAACAAAAAAAEAAAEAGAAAAAAAAMgAAMQOAADEDgAAAAAAAAAA + AACRbEd5TB+CWC59USZ8USV9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ8USV9USaCWC55TB+RbEd4Sx5mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB4Sx5/VClmMwBuPg5r + OglrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOgluPg5mMwB/VCl0RhhmMwBmMwBnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFmMwBmMwB0RhhzRBVmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBz + RBV3Sh1mMwBnNQJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBnNQJmMwB3Sh18UCRmMwBqOQdnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFqOQdmMwB8UCR9USZmMwBrOQhn + NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwDm4N3///////// + ///////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////// + //////////////////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwB0SSb39fT/ + //////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////////+YfWtmMwBmMwBm + MwBmMwB0SSbu6+n////////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///// + ///////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5zUy8X////////////////L + v7itmo1mMwBmMwCYfWv///////90SSZmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwBmMwBmMwB0SSb////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDu6+n///////////////////////////////////////////////////////////+j + jH1mMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwC3p5z/ + ///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwCYfWv////////////////Bs6pmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwB0SSb///////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCt + mo3////////////////////////////////////m4N2Mbli3p5z///////+jjH1mMwBmMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwCMblj///////////////////////////+M + blhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////// + ///////////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////+3 + p5xmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDU + y8X///////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////90SSZm + MwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j////////////////////////////////////////////39fTm + 4N3///////+3p5xmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwC3 + p5z////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3 + p5z////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwCjjH3////////////////Lv7hmMwBmMwBmMwBmMwBmMwCAXUL///////////////////90 + SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBm + MwC3p5z////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////////////U + y8WAXUJmMwBmMwC3p5z39fT////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwBmMwDBs6r////////////////u6+n///////////+tmo1mMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////90SSZmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj////////////////m4N1mMwBmMwBmMwBm + MwBmMwC3p5z////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////// + ///////////////////////////////////////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBm + MwBmMwD39fT////////////////Lv7hmMwBmMwBmMwBmMwBmMwCAXULu6+n////////////////39fRm + MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwDm4N3///////////// + //+jjH3////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb///////////// + //////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD3 + 9fT///////////////90SSZmMwBmMwBmMwBmMwDm4N3///////////////+jjH1mMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////////////////////////////// + //////+3p5xmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////+MblhmMwBmMwBmMwBmMwBm + MwBmMwCMblj///////////////////90SSZmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwBmMwBmMwD39fT///////////////9mMwDLv7j///////////+3p5xmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwDm4N3////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+YfWtmMwBmMwBmMwCAXUL///////// + ///////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////// + //////////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwC3p5z///////// + //////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+jjH1mMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwCMblj////////////////m4N1mMwCAXUL39fT/ + ///////39fSAXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////Uy8VmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////// + ///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwDUy8X////////////u6+lmMwBmMwBmMwBmMwCMblj///////////////////90SSZmMwBm + MwBmMwBmMwBmMwBmMwC3p5z///////////////////9mMwBmMwBmMwB0SSb///////////////////// + //////////////+3p5xmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwCjjH3/ + ///////////////Uy8VmMwBmMwC3p5z////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwC3p5z////////////////////////////////////////////////////m4N1mMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwCjjH3////////////////////////////////////////////////////////////d + 1tGMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+tmo1mMwBmMwBmMwCt + mo3////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////////90SSZm + MwBmMwBmMwDm4N3////////////////////////////////Uy8VmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwC3p5z///////////////+3p5xmMwBmMwB0SSb39fT///////////+Y + fWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////////////////////////// + //////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb///////////////////////////// + //////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3 + p5z////////////39fR0SSZmMwBmMwDBs6r////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBm + MwCjjH3///////////////////+jjH1mMwBmMwBmMwDBs6r////////////////////////////////3 + 9fRmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwDUy8X///////////////+t + mo1mMwBmMwBmMwCtmo3////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///// + //////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDu6+n///////////////90SSZmMwBmMwBmMwBmMwBmMwCjjH3m4N3////////////////39fR0SSZm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////+3p5xmMwBmMwDUy8X///////////// + //+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////////Bs6pmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwBmMwDu6+n///////////////+MblhmMwBmMwBmMwBmMwDu6+n///////////+tmo1mMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+YfWtmMwBmMwBmMwBmMwBmMwBm + MwB0SSbu6+n///////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////// + ///39fSAXUJmMwD39fT///////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///// + ///////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////Uy8W3p5y3p5yYfWtmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwB0SSb///////////////////90SSZmMwBmMwBmMwBm + MwCtmo3////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////m4N1m + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////// + //////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j////////////////Bs6pmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDUy8X////////////Lv7h0SSb///////////////////90SSZmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDu + 6+n///////////////+jjH1mMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwCYfWv///// + ///////////u6+lmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////+3p5xmMwBmMwBmMwBmMwBmMwBm + MwBmMwCjjH3///////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwCYfWv////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///// + //////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+tmo3/ + ///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////// + //+YfWtmMwBmMwBmMwBmMwBmMwCtmo3////////////////u6+lmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwC3p5z////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwCYfWv///// + //////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////////+MblhmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////u6+lmMwBm + MwBmMwBmMwBmMwCAXULLv7j///////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwC3p5z////////////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDd1tH///////////////////+3p5x0SSZmMwBmMwC3p5z///////////////////+t + mo1mMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwDLv7j////////////////Bs6pm + MwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/ + //////////////////////////////////////////////////////////90SSZmMwBmMwBmMwBmMwBm + MwBmMwDm4N3////////////////////////////////////////////////////////////Bs6pmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////+3 + p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////// + ///////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwDm4N3///////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+Y + fWtmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////////////////////////// + //////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////// + ///////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCj + jH3///////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwCtmo339fT///////////////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAF0SSb///////////////////+MblhmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDLv7j////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwC3p5z///////////////// + //////////////////////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwC3p5z///// + ///////////////////////////////////////m4N23p5yMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////9mMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH23p5z39fT////////////////Uy8W3 + p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ8UCRmMwBqOQdn + NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBnNAFqOQdmMwB8UCR3Sh1mMwBnNQJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNQJmMwB3Sh1zRBVmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBz + RBV0RhhmMwBmMwBnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFmMwBmMwB0Rhh/VClmMwBuPg5rOglrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOgluPg5mMwB/VCl4Sx5mMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwB4Sx6RbEd5TB+CWC59USZ8USV9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ8USV9USaCWC55TB+RbEf///////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////Bs6rBs6qYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvBs6rBs6r///// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////Uy8WYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvUy8X////////////////////////////////////////B + s6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwCjjH3Bs6rBs6r39fT///////////////////////////////////////////////////////// + ///Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////////////////////////// + ///////////////////////////////////////////////////////////////d1tGMblhmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvm4N3/ + ///////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMbljLv7j///////////////// + ///////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X////////////////////////////d1tFmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwCMbljm4N3////////////////////////////////////////////m4N1mMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwC3p5z///////////////////////////////////////////////////////////// + //////////////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////// + ///////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////// + ///////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////////////// + ///////////////////////////////////////////////////////////////////Bs6pmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwCtmo3///////////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCA + XUL///////////////////////////////////////////////////////////////////////////// + ///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT///////////////// + //+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3///////////////////////////// + //////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///////////////////////////////////////// + //////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwDBs6r///////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDBs6r////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////// + ///////////////////////////////////////////////////////////////////////////d1tFm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6rd1tH////////39fTBs6qAXUJm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////////Lv7hmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////////////Uy8VmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////////////////////////// + //////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/ + //////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd + 1tH////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////// + ///////Uy8XBs6qMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///// + ///////////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////+AXUJmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCtmo3///////////////////////////////////////+AXUJmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwC3p5z////////////////////////////////d1tGMblhmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////9mMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwB0SSb///////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT///////////////////// + ///////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3///////////// + //////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////////////// + //////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb39fT///////////// + //////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDBs6r////////////////////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwCYfWv///////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0 + SSb///////////////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDBs6r///////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwDUy8X///////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///u6+nBs6rBs6rBs6qYfWtmMwBmMwBmMwDu6+n///////////////////////////////////////// + ///Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////+3p5xmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n////////////////////////////////////////u + 6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj////////////////////////Bs6pm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCY + fWv////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////// + //////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDm4N3////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////u6+m3p5xmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3////////////////////m4N1mMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwDBs6r////////////////////////////////////////////d1tFmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////////u6+lmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////////////////Uy8XB + s6p0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////// + //////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3///////////////////////// + //////////////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////// + //////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD///////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////m4N3Bs6qMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDUy8X///////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwCMblj///////////////////////////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwB0SSb///////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwDm4N3///////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////Bs6qAXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb39fT///////////////////////+jjH1m + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb///////////////////////////////////////// + ///////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///////////////////+t + mo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////Lv7hmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/ + ///////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///// + ///////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwDm4N3////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/ + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCAXUL39fT////////////////////////////Uy8VmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////////////////////////90SSZm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////Uy8VmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbm4N3///////////////////// + ///////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////// + //////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///// + ///////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////Bs6pmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCM + bljm4N3///////////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwCjjH3///////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwD39fT///////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////////////////////////+M + blhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////////////////////// + //////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////// + //+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvBs6r///////////////////////// + //////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD///// + //////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwDd1tH///////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDL + v7j///////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////+Mblhm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3Bs6r///// + ///////////////////////////////////////////////////////////////Bs6pmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////////////////////////+AXUJm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////////Bs6pmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwCtmo3Bs6r39fT///////////////////////////////////////////////////////////////// + ///////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////// + ///////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///// + ///////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwB0SSbLv7j///////////////////////////////////////////////// + ///////////////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwC3p5z////////////////////////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwB0SSb////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwCAXUL///////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbu6+n///////////////////// + //////////////////////////////////////////////////////////////////////////////// + //90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////////////////// + //////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////////// + //////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwC3p5z////////////////////////////////////39fRmMwBmMwB0SSbBs6rBs6r39fT///////// + //////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL/ + ///////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDBs6r///////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDm4N3///////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////////////39fRmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////////////////////////////Bs6pm + MwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3Bs6rBs6r///////////////////////////+3p5xmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT////////////////////////////39fSMblhmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////////+3p5xmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////// + ///////////////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD///////// + ///////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////// + ///////////u6+mMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////// + ///////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////+jjH1mMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCjjH3////////////////////////u6+mAXUJmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwCYfWv////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDLv7j////////////////Uy8W3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDd1tH////////////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwCYfWv///////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMbljBs6r////////d1tG3 + p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////// + ///39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////////////////// + ///////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb///////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCM + blj///////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbu6+n/ + //////////////////////////////////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwD39fT///////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////////////////////L + v7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////////////////+YfWtmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////////////////+jjH1m + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////// + //////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////// + //////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////////39fSAXUJmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwCYfWv////////////////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDB + s6r////////////////////////////////////////////////////////Lv7hmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////u6+mMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////////////////////////// + ///////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwB0SSbUy8X///////////////////////////////////////////////// + ///////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////+jjH1mMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////////// + ///////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbBs6r///////////////////////// + ///////////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwB0SSb///////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////d1tGYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwDBs6r39fT///////////////////////////////////////////////////////////+AXUJm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXULBs6rBs6rm4N3/ + //////////////////////////////////////////////////////////////////////////////+A + XUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD///////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////39fTBs6rBs6pmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCjjH3Bs6rUy8X///////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA== + + + \ No newline at end of file diff --git a/SDL/mdm/PLOSE/frmMDMDatenverarbetiung.vb b/SDL/mdm/frmMDMDatenverarbetiung.vb similarity index 68% rename from SDL/mdm/PLOSE/frmMDMDatenverarbetiung.vb rename to SDL/mdm/frmMDMDatenverarbetiung.vb index 95229c39..fdb695d9 100644 --- a/SDL/mdm/PLOSE/frmMDMDatenverarbetiung.vb +++ b/SDL/mdm/frmMDMDatenverarbetiung.vb @@ -4,7 +4,8 @@ Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL Private Sub frmPloseDatenverarbetiung_Load(sender As Object, e As EventArgs) Handles MyBase.Load - + Me.Top = 0 + Me.Height = My.Computer.Screen.WorkingArea.Height End Sub Private Sub Button4_Click(sender As Object, e As EventArgs) @@ -22,6 +23,9 @@ End Sub Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click + + MyDatagridview1.ClearSelection() + Button3.BackColor = Color.White Button3.ForeColor = Color.Black @@ -48,7 +52,7 @@ Sub init() txtAnzahl.Text = "" - txtPrüfsumme.Text = "" + txtPruefsummeNetto.Text = "" Select Case LIEFERANT Case "PLOSE" : initDgv_PLOSE() @@ -167,49 +171,72 @@ group by plose_POLSEKundennummer,plose_ProduktCode order by plose_POLSEKundennummer,plose_ProduktCode", "FMZOLL") .LOAD() + If .Columns.Count > 0 Then - .Columns("plose_POLSEKundennummer").HeaderText = "PLOSE KdNr" - .Columns("plose_ProduktCode").HeaderText = "ProduktCode" - .Columns("plose_Produktbeschreibung").HeaderText = "Beschreibung" - .Columns("plose_Menge").HeaderText = "Menge" - .Columns("plose_Preis").HeaderText = "Preis" - .Columns("plose_NettobetragTransaktion").HeaderText = "Netto" - .Columns("plose_MWSTBetrag").HeaderText = "MWST" - .Columns("plose_BruttobetragTransaktion").HeaderText = "Brutto" + .Columns("plose_POLSEKundennummer").HeaderText = "PLOSE KdNr" + .Columns("plose_ProduktCode").HeaderText = "ProduktCode" + .Columns("plose_Produktbeschreibung").HeaderText = "Beschreibung" + .Columns("plose_Produktbeschreibung").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill + .Columns("plose_Menge").HeaderText = "Menge" + .Columns("plose_Preis").HeaderText = "Preis" + .Columns("plose_NettobetragTransaktion").HeaderText = "Netto" + .Columns("plose_MWSTBetrag").HeaderText = "MWST" + .Columns("plose_BruttobetragTransaktion").HeaderText = "Brutto" - '.Columns("VERAGLeistungsNr").ReadOnly = False - '.Columns("VERAGKdNr").ReadOnly = False + '.Columns("VERAGLeistungsNr").ReadOnly = False + '.Columns("VERAGKdNr").ReadOnly = False - 'For Each r As DataGridViewColumn In .Columns - ' If r.Name = "VERAGLeistungsNr" Or r.Name = "VERAGKdNr" Then - ' r.ReadOnly = False - ' Else - ' r.ReadOnly = True - ' End If - 'Next + 'For Each r As DataGridViewColumn In .Columns + ' If r.Name = "VERAGLeistungsNr" Or r.Name = "VERAGKdNr" Then + ' r.ReadOnly = False + ' Else + ' r.ReadOnly = True + ' End If + 'Next - Dim c2 As New DataGridViewTextBoxColumn - c2.Name = "VERAGKdNr" - c2.HeaderText = "VERAG KdNr" - c2.MinimumWidth = 115 - .Columns.Insert(1, c2) + Dim c As New DataGridViewTextBoxColumn + c.Name = "VERAGKdNr" + c.HeaderText = "VERAG KdNr" + c.Width = 100 + .Columns.Insert(1, c) - Dim c As New DataGridViewTextBoxColumn - c.Name = "VERAGLeistungsNr" - c.HeaderText = "VERAG LeistungsNr." - c.MinimumWidth = 115 - .Columns.Insert(5, c) + c = New DataGridViewTextBoxColumn + c.Name = "VERAGLeistungsNr" + c.HeaderText = "VERAG/PLOSE LeistungsNr." + c.Width = 100 + .Columns.Insert(2, c) + + c = New DataGridViewTextBoxColumn + c.Name = "KundeOffertenNr" + c.HeaderText = "Kunde OffertenNr." + c.Width = 100 + .Columns.Insert(3, c) + + c = New DataGridViewTextBoxColumn + c.Name = "KundeLeistungsNr" + c.HeaderText = "Kunde LeistungsNr." + c.Width = 100 + .Columns.Insert(4, c) - .AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells - Dim sum As Double = 0 + .AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells + + End If + + Dim sumBto As Double = 0 + Dim sumNto As Double = 0 For Each r As DataGridViewRow In .Rows - sum += If(IsNumeric(r.Cells("plose_BruttobetragTransaktion").Value), CDbl(r.Cells("plose_BruttobetragTransaktion").Value), 0) + sumBto += If(IsNumeric(r.Cells("plose_BruttobetragTransaktion").Value), CDbl(r.Cells("plose_BruttobetragTransaktion").Value), 0) + sumNto += If(IsNumeric(r.Cells("plose_NettobetragTransaktion").Value), CDbl(r.Cells("plose_NettobetragTransaktion").Value), 0) Next + txtAnzahl.Text = .Rows.Count - txtPrüfsumme.Text = sum.ToString("N2") + txtPruefsummeNetto.Text = sumNto.ToString("C2") + txtPruefsummeBrutto.Text = sumBto.ToString("CS2") + .ClearSelection() + End With End Sub @@ -236,7 +263,7 @@ Sub genRGAtt_PLOSE() Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL - Dim dt_Main As DataTable = SQL.loadDgvBySql_Param("SELECT [plose_POLSEKundennummer] FROM tblPLOSE_Details where plose_FakturiertDatum is null AND plose_DatumTransaktion between '" & dat_Sum_Von.Value.ToShortDateString & "' and '" & dat_Sum_Bis.Value.ToShortDateString & "' group by [plose_POLSEKundennummer] ", "FMZOLL") + Dim dt_Main As DataTable = SQL.loadDgvBySql_Param("SELECT [AdressenNr],PLOSEKundenNr FROM tblPLOSE_Details INNER JOIN Adressen ON plose_POLSEKundennummer=PLOSEKundenNr where plose_FakturiertDatum is null AND plose_DatumTransaktion between '" & dat_Sum_Von.Value.ToShortDateString & "' and '" & dat_Sum_Bis.Value.ToShortDateString & "' group by [AdressenNr],PLOSEKundenNr ", "FMZOLL") If dt_Main Is Nothing OrElse dt_Main.Rows.Count = 0 Then MsgBox("Keine Daten!") @@ -251,10 +278,9 @@ For Each R_PLOSE In dt_Main.Rows Dim SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch = Nothing - genPLOSE_SPEDBUCH_ByKdNr(R_PLOSE("plose_POLSEKundennummer"), dat_Sum_Von.Value.ToShortDateString, dat_Sum_Bis.Value.ToShortDateString, SPEDBUCH) - genPLOSE_RECHNUNG_BySPEDBUCH(R_PLOSE("plose_POLSEKundennummer"), SPEDBUCH, dat_Sum_Von.Value, dat_Sum_Bis.Value) - genPLOSEAttachmentByKdNr(R_PLOSE("plose_POLSEKundennummer"), dat_Sum_Von.Value.ToShortDateString, dat_Sum_Bis.Value.ToShortDateString, dir) - + genPLOSE_SPEDBUCH_ByKdNr(R_PLOSE("AdressenNr"), R_PLOSE("PLOSEKundenNr"), dat_Sum_Von.Value.ToShortDateString, dat_Sum_Bis.Value.ToShortDateString, SPEDBUCH) + genPLOSE_RECHNUNG_BySPEDBUCH(R_PLOSE("AdressenNr"), R_PLOSE("PLOSEKundenNr"), SPEDBUCH, dat_Sum_Von.Value, dat_Sum_Bis.Value) + genPLOSEAttachmentByKdNr(R_PLOSE("AdressenNr"), R_PLOSE("PLOSEKundenNr"), dat_Sum_Von.Value.ToShortDateString, dat_Sum_Bis.Value.ToShortDateString, dir) If True Then 'cnt Mod 10 = 0 Then txtPloseAnh_Einarbeitung.Text = cnt & " / " & dt_Main.Rows.Count @@ -265,9 +291,21 @@ My.Application.DoEvents() End If cnt += 1 - - Next + + 'Alle Alangen im foglenden VZ löschen und die aktuellen kopieren: + Dim dirAnhang = "F:\FMZoll\Maut\PLOSE\Anlagen\" + If IO.Directory.Exists(dirAnhang) Then 'IO.Directory.Delete(dirAnhang, True) + For Each f In IO.Directory.GetFiles(dirAnhang) + IO.File.Delete(f) + Next + End If + If Not IO.Directory.Exists(dirAnhang) Then IO.Directory.CreateDirectory(dirAnhang) + + For Each f In IO.Directory.GetFiles(dir) + IO.File.Copy(f, dirAnhang & (New IO.FileInfo(f)).Name) + Next + pbPloseAnh_Proz.Value = 100 txtPloseAnh_Einarbeitung.Text = dt_Main.Rows.Count & " / " & dt_Main.Rows.Count lblPloseAnh_Proz.Text = "100.00 %" @@ -276,17 +314,17 @@ End Sub - Function genPLOSEAttachmentByKdNr(KdNr As String, von As Date, bis As Date, dir As String) + Function genPLOSEAttachmentByKdNr(KdNr As String, PLOSEKundenNr As String, von As Date, bis As Date, dir As String) Try Dim displayFilter = False Dim sqlstr As String = "" - sqlstr &= " SELECT * " - sqlstr &= " FROM tblPLOSE_Details INNER JOIN [tblPLOSE_Produktbeschreibung] on plose_ProduktCode=plp_ProductCode " + sqlstr &= " SELECT AdressenNr,tblPLOSE_Details.*,tblPLOSE_Produktbeschreibung.* " + sqlstr &= " FROM tblPLOSE_Details INNER JOIN [tblPLOSE_Produktbeschreibung] on plose_ProduktCode=plp_ProductCode INNER JOIN Adressen on plose_POLSEKundennummer=PLOSEKundenNr " sqlstr &= " WHERE 1=1 " sqlstr &= " AND plose_FakturiertDatum is null " - sqlstr &= " AND plose_POLSEKundennummer = '" & KdNr & "' " + sqlstr &= " AND AdressenNr = '" & KdNr & "' " sqlstr &= " AND plose_DatumTransaktion between '" & von.ToShortDateString & "' and '" & bis.ToShortDateString & "' " ' sqlstr &= " group by plose_ProduktCode" @@ -298,6 +336,7 @@ rpt.DataSource = dt + rpt.txtKunde.Text = KdNr & " " & New VERAG_PROG_ALLGEMEIN.cAdressen(KdNr).FullName rpt.lblRgDatum.Text = datPloseAnhang.Value.ToShortDateString rpt.GroupHeaderKz.DataField = "plose_Kennzeichen" 'Gruppierung @@ -402,7 +441,7 @@ - Dim tmpPath = dir & "\" & KdNr & "_PLOSE_Anhang.pdf" + Dim tmpPath = dir & "\" & KdNr & "_PLOSE.pdf" Dim p As New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport rpt.Run(False) p.NeverEmbedFonts = "" @@ -419,7 +458,7 @@ End Function - Function genPLOSE_SPEDBUCH_ByKdNr(KdNr As String, von As Date, bis As Date, ByRef SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch) + Function genPLOSE_SPEDBUCH_ByKdNr(KdNr As String, PLOSEKundenNr As String, von As Date, bis As Date, ByRef SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch) Try 'Dim displayFilter = False @@ -440,7 +479,7 @@ Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(KdNr) SPEDBUCH = New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch - Dim OffertenNr = 8 + Dim OffertenNr = 80 Dim Abfertigungsart = 10 SPEDBUCH.FilialenNr = 4824 @@ -450,7 +489,7 @@ SPEDBUCH.Vermittler = AD.Ordnungsbegriff SPEDBUCH.VermittlerKundenNr = KdNr SPEDBUCH.VermittlerOffertenNr = OffertenNr - SPEDBUCH.Abfertigungsdatum = datPloseAnhang.Value + SPEDBUCH.Abfertigungsdatum = datPloseAnhang.Value.ToShortDateString SPEDBUCH.Abfertigungsart = Abfertigungsart SPEDBUCH.Bar = 0 @@ -458,6 +497,11 @@ SPEDBUCH.AnzahlSonstiges = 1 SPEDBUCH.Abfertigungsanzahl = 1 + SPEDBUCH.AvisUhrzeit = Nothing + SPEDBUCH.Umrechnungskurs = Nothing + SPEDBUCH.veoerz_basbtg = Nothing + SPEDBUCH.Sicherheitsbetrag = Nothing + SPEDBUCH.Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME @@ -470,14 +514,15 @@ End Function - Function genPLOSE_RECHNUNG_BySPEDBUCH(KdNr As String, SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, von As Date, bis As Date) + + Function genPLOSE_RECHNUNG_BySPEDBUCH(KdNr As String, PLOSEKundenNr As String, SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, von As Date, bis As Date) Try Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(SPEDBUCH.VermittlerKundenNr) Dim KD As New VERAG_PROG_ALLGEMEIN.cKunde(SPEDBUCH.VermittlerKundenNr) Dim RG As New VERAG_PROG_ALLGEMEIN.cRechnungsausgang - Dim OffertenNr = 8 + Dim OffertenNr = 80 Dim Abfertigungsart = 10 RG.FilialenNr = SPEDBUCH.FilialenNr @@ -485,7 +530,7 @@ RG.SpeditionsbuchUnterNr = SPEDBUCH.UnterNr RG.UnterNr = RG.getMaxRGUnterNr() - + RG.Buchungsjahr = cRKSV.getGJ(datPloseAnhang.Value) 'If(Now.Month = 1, Now.Year - 1, Now.Year) RG.FilialenNr = SPEDBUCH.FilialenNr RG.Abfertigungsdatum = SPEDBUCH.Abfertigungsdatum RG.Sammelrechnung = 6 'MAUT/DIESEL @@ -538,53 +583,73 @@ RG.Firma_ID = 15 RG.Nettozahlungsziel = KD.Zahlungsziel - RG.SteuerpflichtigerGesamtbetrag = "" - RG.SteuerfreierGesamtbetrag = "" + RG.SteuerpflichtigerGesamtbetrag = 0 + RG.SteuerfreierGesamtbetrag = 0 RG.Status = 0 RG.[Vorkosten] = 0 RG.[Erlös] = 0 RG.[Buchungsjahr] = 0 RG.[Währungscode] = "EUR" + RG.ReErfZeitstempel = Now RG.Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME - + RG.Buchungsjahr = cRKSV.getGJ(RG.RechnungsDatum) Dim sqlstr As String = "" sqlstr &= " SELECT [plp_LeistungsNr],sum([plose_NettobetragTransaktion]) as plose_NettobetragTransaktion,sum([plose_MWSTBetrag]) as [plose_MWSTBetrag],sum([plose_BruttobetragTransaktion]) as [plose_BruttobetragTransaktion] " sqlstr &= " FROM tblPLOSE_Details INNER JOIN [tblPLOSE_Produktbeschreibung] on plose_ProduktCode=plp_ProductCode " sqlstr &= " WHERE 1=1 " sqlstr &= " AND plose_FakturiertDatum is null " - sqlstr &= " AND plose_POLSEKundennummer = '" & KdNr & "' " + sqlstr &= " AND plose_POLSEKundennummer = '" & PLOSEKundenNr & "' " sqlstr &= " AND plose_DatumTransaktion between '" & von.ToShortDateString & "' and '" & bis.ToShortDateString & "' " - sqlstr &= " group by plose_POLSEKundennummer,[plp_LeistungsNr]" - sqlstr &= " order by plose_POLSEKundennummer" + sqlstr &= " group by [plp_LeistungsNr]" + sqlstr &= " order by plp_LeistungsNr" Dim dt As DataTable = SQL.loadDgvBySql_Param(sqlstr, "FMZOLL") For Each r In dt.Rows - Dim BLNr = r("plp_LeistungsNr") - Dim BProz = r("plose_BruttobetragTransaktion") + 'Dim BProz = r("plose_BruttobetragTransaktion") - Dim Betrag As Double = r("") '""""""!!!!!!!!!!!!!!!! - Dim LeistungsNr As Integer = r("") '""""""!!!!!!!!!!!!!!!! + Dim NettoBetrag As Double = r("plose_NettobetragTransaktion") + Dim BruttoBetrag As Double = r("plose_BruttobetragTransaktion") + Dim LeistungsNr As Integer = r("plp_LeistungsNr") - Dim OFFERTE As New VERAG_PROG_ALLGEMEIN.cOfferte(KdNr, 8, True) + Dim OFFERTE As New VERAG_PROG_ALLGEMEIN.cOfferte(KdNr, OffertenNr, True) - allPlosePos(RG, OFFERTE, LeistungsNr, Betrag) + allPlosePos(RG, OFFERTE, LeistungsNr, NettoBetrag, BruttoBetrag) Next - RG.Steuersatz_Proz = cFakturierung.przRechnungstext(RG) + Dim dtSt As DataTable = SQL.loadDgvBySql("SELECT TOP 1 isnull([Steuersatz %],0),isnull([Steuerbezeichnung],'') FROM [Steuertabelle] WHERE [Steuerschlüssel]='" & RG.Steuerschlüssel & "'", "FMZOLL") + If dtSt IsNot Nothing AndAlso dtSt.Rows.Count > 0 Then + RG.Steuersatz_Proz = dtSt.Rows(0)(0) + End If + cFakturierung.setGesamtBetraege(RG) + RG.Text = cFakturierung.przRechnungstext(RG) - Return SPEDBUCH.SAVE + ' Call usrCntlFaktAbrechnung.przSVSRVS(RG) ' SVS/RVS errechnen + ' Call przSKR() ' SKR errechnen + + 'Call usrCntlFaktAbrechnung.przVL(RG) ' Vorlageprovision errechnen + 'Call usrCntlFaktAbrechnung.przKapitalbereitstellung(RG) 'Kapitalbereitstellung errechnen + + ' boolFehler = fktBGeb(RECHNUNG.[RK_ID], RECHNUNG.Steuersatz_Proz, RECHNUNG.[Sammelrechnung], RECHNUNG.[BelegartenNr]) ' Bearbeitungsgebühr errechnen + + ' Call usrCntlFaktAbrechnung.przKA(RG) ' Kreditaufwendungen errechnen + Call usrCntlFaktAbrechnung.przFixeTaxe(RG) ' Fixe Taxe errechnen + Call usrCntlFaktAbrechnung.przPP(RG) ' Porto/Papiere errechnen + + Call usrCntlFaktAbrechnung.przBS415(RG) ' Bankspesen errechnen + + Return RG.SAVE Catch ex As System.Exception MsgBox(ex.Message & ex.StackTrace) @@ -593,36 +658,41 @@ End Function - Function allPlosePos(ByRef RG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, OFFERTE As VERAG_PROG_ALLGEMEIN.cOfferte, LeistungsNr As Integer, Betrag As Double) + + + + Function allPlosePos(ByRef RG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, OFFERTE As VERAG_PROG_ALLGEMEIN.cOfferte, LeistungsNr As Integer, NettoBetrag As Double, BruttoBetrag As Double) Try For Each o In OFFERTE.POSITIONEN If o.LeistungsNr = LeistungsNr Then + Dim POS As New VERAG_PROG_ALLGEMEIN.cRechnungsausgangPositionen() Dim LEISTUNG As New VERAG_PROG_ALLGEMEIN.cLeistungen(o.LeistungsNr) POS.LeistungsNr = o.LeistungsNr POS.LeistungsBez = o.LeistungsBez POS.BerechnungsartNr = o.BerechnungsartNr - POS.Preis = Betrag + POS.Preis = BruttoBetrag POS.Anzahl = 1 POS.Steuerpflichtig = LEISTUNG.Steuerpflichtig + POS.BGebBgl = NettoBetrag + If POS.Steuerpflichtig Then - POS.Steuerpflichtig = Betrag + POS.SteuerpflichtigerBetrag = BruttoBetrag Else - POS.SteuerpflichtigerBetrag = Betrag + POS.SteuerfreierBetrag = BruttoBetrag End If POS.BGebLeistungsNr = o.BGebLeistungsNr POS.BGebProzent = o.BGebProzent POS.BGebMinBetrag = o.BGebMinBetrag - 'POS.BGebBgl = o.bgebbgl ???????????????? RG.POSITIONEN.Add(POS) - If (If(POS.BGebLeistungsNr, 0) > 0) AndAlso (If(POS.BGebProzent, 0) > 0) Then - allPlosePosBGeb(RG, OFFERTE, POS.BGebLeistungsNr, (Betrag * POS.BGebProzent)) + If (If(POS.BGebLeistungsNr, 0) > 0) AndAlso (If(POS.BGebProzent, 0) > 0) AndAlso (If(POS.BGebBgl, 0) > 0) Then + allPlosePosBGeb(RG, OFFERTE, POS.BGebLeistungsNr, POS.BGebBgl, POS.BGebProzent) End If Return True @@ -634,26 +704,35 @@ Return False End Function - Function allPlosePosBGeb(ByRef RG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, OFFERTE As VERAG_PROG_ALLGEMEIN.cOfferte, LeistungsNr As Integer, Betrag As Double) + Function allPlosePosBGeb(ByRef RG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, OFFERTE As VERAG_PROG_ALLGEMEIN.cOfferte, BGebLeistungsNr As Integer, BGebBgl As Double, BGebProzent As Double) Try + Dim Betrag As Double = Math.Round(BGebBgl * BGebProzent, 1) For Each o In OFFERTE.POSITIONEN - If o.LeistungsNr = LeistungsNr Then - Dim POS As New VERAG_PROG_ALLGEMEIN.cRechnungsausgangPositionen() - Dim LEISTUNG As New VERAG_PROG_ALLGEMEIN.cLeistungen(o.LeistungsNr) - POS.LeistungsNr = o.LeistungsNr - POS.LeistungsBez = o.LeistungsBez + If o.LeistungsNr = BGebLeistungsNr Then - POS.BerechnungsartNr = o.BerechnungsartNr - POS.Preis = Betrag - POS.Anzahl = 1 - POS.Steuerpflichtig = LEISTUNG.Steuerpflichtig + 'Falls schon vorhanden... + Dim POS = RG.POSITIONEN.Find(Function(x) x.BGebLeistungsNr = BGebLeistungsNr And x.BerechnungsartNr = 9) + If POS Is Nothing Then + POS = New VERAG_PROG_ALLGEMEIN.cRechnungsausgangPositionen() + POS.SteuerpflichtigerBetrag = 0 + POS.SteuerfreierBetrag = 0 + Dim LEISTUNG As New VERAG_PROG_ALLGEMEIN.cLeistungen(o.LeistungsNr) + POS.Steuerpflichtig = LEISTUNG.Steuerpflichtig - If POS.Steuerpflichtig Then - POS.Steuerpflichtig = Betrag - Else - POS.SteuerpflichtigerBetrag = Betrag + POS.LeistungsNr = o.LeistungsNr + POS.LeistungsBez = o.LeistungsBez + + POS.BerechnungsartNr = o.BerechnungsartNr + POS.Anzahl = 1 End If + POS.Preis += Betrag + + If POS.Steuerpflichtig Then + POS.SteuerpflichtigerBetrag += Betrag + Else + POS.SteuerfreierBetrag += Betrag + End If RG.POSITIONEN.Add(POS) Return True @@ -689,13 +768,38 @@ pruefData_PLOSE = False r.Cells("VERAGKdNr").Style.BackColor = Color.PapayaWhip End If - Dim VERAGLeistungsNr = SQL.getValueTxtBySql("SELECT TOP (1) [plp_LeistungsNr] FROM [VERAG].[dbo].[tblPLOSE_Produktbeschreibung] where plp_ProductCode='" & r.Cells("plose_ProduktCode").Value & "' and plp_Firma='PU'", "FMZOLL") + Dim VERAGLeistungsNr = SQL.getValueTxtBySql("SELECT TOP (1) [plp_LeistungsNr] FROM [tblPLOSE_Produktbeschreibung] where plp_ProductCode='" & r.Cells("plose_ProduktCode").Value & "' and plp_Firma IN ('PSS','PU') ", "FMZOLL") If VERAGLeistungsNr <> "" Then r.Cells("VERAGLeistungsNr").Value = VERAGLeistungsNr - r.Cells("VERAGKdNr").Style.BackColor = Color.MintCream + r.Cells("VERAGLeistungsNr").Style.BackColor = Color.MintCream Else pruefData_PLOSE = False - r.Cells("VERAGKdNr").Style.BackColor = Color.PapayaWhip + r.Cells("VERAGLeistungsNr").Style.BackColor = Color.PapayaWhip + End If + + + Dim OffertenNr = SQL.getValueTxtBySql("SELECT TOP 1 OffertenNr FROM [Offerten] where KundenNr='" & VERAGKdNr & "' AND OffertenNr = 80 ", "FMZOLL") + If OffertenNr <> "" Then + r.Cells("KundeOffertenNr").Value = OffertenNr + r.Cells("KundeOffertenNr").Style.BackColor = Color.MintCream + Else + pruefData_PLOSE = False + r.Cells("KundeOffertenNr").Style.BackColor = Color.PapayaWhip + End If + + If VERAGLeistungsNr <> "" Then + + Dim KundeLeistungsNr = SQL.getValueTxtBySql("SELECT TOP 1 [LeistungsNr] FROM [Offertenpositionen] where LeistungsNr='" & VERAGLeistungsNr & "' and KundenNr='" & VERAGKdNr & "' AND OffertenNr = 80", "FMZOLL") + If KundeLeistungsNr <> "" Then + r.Cells("KundeLeistungsNr").Value = VERAGLeistungsNr + r.Cells("KundeLeistungsNr").Style.BackColor = Color.MintCream + Else + pruefData_PLOSE = False + r.Cells("KundeLeistungsNr").Style.BackColor = Color.PapayaWhip + End If + Else + pruefData_PLOSE = False + r.Cells("KundeLeistungsNr").Style.BackColor = Color.PapayaWhip End If Next @@ -704,4 +808,27 @@ pruefData_PLOSE = False End Try End Function + + + Private Sub MyDatagridview1_SelectionChanged(sender As Object, e As EventArgs) Handles MyDatagridview1.SelectionChanged + If MyDatagridview1.SelectedRows.Count > 0 Then + If MyDatagridview1.Columns("VERAGKdNr") IsNot Nothing Then + If MyDatagridview1.SelectedRows(0).Cells("VERAGKdNr").Value <> "" Then + btnKunde.Enabled = True + Else + btnKunde.Enabled = False + End If + End If + End If + End Sub + + Private Sub btnKunde_Click(sender As Object, e As EventArgs) Handles btnKunde.Click + If MyDatagridview1.SelectedRows.Count > 0 Then + If MyDatagridview1.Columns("VERAGKdNr") IsNot Nothing Then + If MyDatagridview1.SelectedRows(0).Cells("VERAGKdNr").Value <> "" Then + cProgramFunctions.openKundenblatt(MyDatagridview1.SelectedRows(0).Cells("VERAGKdNr").Value, Me.FindForm) + End If + End If + End If + End Sub End Class diff --git a/SDL/zoll/usrCntlZOLLAuswertungen.vb b/SDL/zoll/usrCntlZOLLAuswertungen.vb index 6eab3ecf..82943187 100644 --- a/SDL/zoll/usrCntlZOLLAuswertungen.vb +++ b/SDL/zoll/usrCntlZOLLAuswertungen.vb @@ -146,6 +146,8 @@ Public Class usrCntlZOLLAuswertungen cboBrgEZollTC.Items.Clear() cboBrgEZollTC.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("16AT520000G000VA6 - AT Brg IMEX", "16AT520000G000VA6")) + cboBrgEZollTC.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("05AT510000G000FP7 - AT Brg VERAG", "05AT510000G000FP7")) + cboBrgEZollTC.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("17DE0000000071678 - DE Brg (NEU)", "17DE0000000071678")) cboBrgEZollTC.SelectedIndex = 0 datEZOLL_TC_Von.Value = Now ' d.AddMonths(-3) @@ -360,7 +362,7 @@ Public Class usrCntlZOLLAuswertungen ' Dim sql As String = "SELECT ncts_MRN,ncts_Status,(nctsSA_AbgabenBetrag), ncts_dyaAnmID, ncts_ArtAnmeldung,nctsSA_GRN,ncts_Empfaenger_eori,ncts_Empfaenger_NLNR,ncts_Empfaenger_Name,ncts_Bearbeiter" Dim sqlStr = " SELECT '' as [Anzahl Verz], isnull(ncts_Status,'') as Status, '' as Niederlassung, isnull(ncts_ObjectName,'') as Bezugsnummer,'' as LfdNr," If showANR Then sqlStr &= " isnull(ncts_ANR,'') as ArbNr," - sqlStr &= " isnull(ncts_Empfaenger_Name,'') as Empfaenger,isnull(ncts_MRN,'') as MRN,ncts_Trans_DatumZeit as Antragsdatum,isnull(ncts_Bearbeiter,'') as Sachbearbeiter,[ncts_Wiedergestellungsdatum] as Gestellungsdatum,isnull(nctsSA_AbgabenBetrag,0) as [SichertheitsBetrag], isnull(nctsSA_GRN,'') as Buergschaft " + sqlStr &= " isnull(ncts_Empfaenger_Name,'') as Empfaenger,isnull(ncts_MRN,'') as MRN,ncts_Trans_DatumZeit as Antragsdatum,isnull(ncts_Bearbeiter,'') as Sachbearbeiter,[ncts_Wiedergestellungsdatum] as GestellungsFrist,[ncts_GestelltAm] as GestelltAm,isnull(nctsSA_AbgabenBetrag,0) as [SichertheitsBetrag], isnull(nctsSA_GRN,'') as Buergschaft " 'sql &= " ,[ncts_ObjectName],[ncts_Trans_DatumZeit] as Transaktionsdatum,[ncts_dyaArt],[ncts_ANR],[ncts_MRN],[ncts_ObjectAlias],[ncts_GesamtRohmasse],[ncts_GesamtAnzahlPackstuecke] " sqlStr &= ", [nctsWP_PositionsNummer] as POS, [nctsWP_Warenbezeichnung] as Warenbezeichnung" If anrechnungsZP Then sqlStr &= ",(SELECT TOP (1) convert(date,[dySt_ergZeitpunkt] ,104) FROM [tblDakosy_Statusmeldungen] where dySt_dyId=[ncts_dyaAnmID] and [dySt_status] IN (53,60) order by dySt_status) as AnrechnungRef" diff --git a/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb b/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb index 9a1bfd4f..9ff985dd 100644 --- a/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb +++ b/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb @@ -892,6 +892,15 @@ Public Class cAviso Property LKW_Nationalitaet As Object = Nothing Property DakosyRef As Object = Nothing Property TeamId As Object = Nothing + Property Cluster As Object = Nothing + Property Freigabe_Info As String = "" + + + + Shared Function getAvisoById(hID, Optional hSQL = "") As cAviso + Dim AVISODAL As New cAvisoDAL + Return AVISODAL.LesenAviso(hID, hSQL) + End Function Sub UPDATE_FahrerHandy(FahrerHandy As String) @@ -902,6 +911,15 @@ Public Class cAviso Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL SQL.doSQL("UPDATE AVISO SET FahrerHandy='" & FahrerHandy & "' WHERE AvisoId=" & AvisoID, "AVISO") End Sub + + + Sub UPDATE_FreigabeInfo(Freigabe_Info As String) + If AvisoID <= 0 Then Exit Sub + Me.Freigabe_Info = Freigabe_Info + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + SQL.doSQL("UPDATE AVISO SET Freigabe_Info='" & Freigabe_Info & "' WHERE AvisoId=" & AvisoID, "AVISO") + End Sub End Class Public Class cDruckAviso @@ -928,7 +946,12 @@ Public Class cAvisoDAL 'falls ID mitgegeben, dann diese laden, ansonsten den anderen Wert suchen Dim sql As String If hID > 0 Then - sql = String.Format("SELECT * FROM Aviso WHERE AvisoID = {0} AND Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' ", hID) + sql = String.Format("SELECT * FROM Aviso WHERE AvisoID = {0} ", hID) + 'If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA <> "" Then + ' sql = String.Format("SELECT * FROM Aviso WHERE AvisoID = {0} AND Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' ", hID) + 'Else + ' sql = String.Format("SELECT * FROM Aviso WHERE AvisoID = {0} ", hID) + 'End If Else sql = hSQL End If @@ -981,7 +1004,8 @@ Public Class cAvisoDAL daten.LKW_Nationalitaet = VarToStr(dr.Item("LKW_Nationalitaet")) daten.DakosyRef = VarToStr(dr.Item("DakosyRef")) daten.TeamId = If(dr.Item("TeamId") Is DBNull.Value, Nothing, dr.Item("TeamId")) - + daten.Cluster = If(dr.Item("Cluster") Is DBNull.Value, Nothing, dr.Item("Cluster")) + daten.Freigabe_Info = VarToStr(dr.Item("Freigabe_Info")) End If @@ -1017,7 +1041,19 @@ Public Class cAvisoDAL Public Function Suche_LKWStatus(LKW_Nr As String) As String 'hier wird nachgesehen, wann diese LKW-Nr zuletzt eingetragen war Suche_LKWStatus = "" - Dim sql As String = "SELECT * FROM Aviso WHERE LKW_Nr = '" & LKW_Nr & "' AND [Status] Not in (1,2) AND Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' ORDER BY Datum DESC" + + Dim firma = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + If firma = "" Then firma = "VERAG" + + If VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER <> "" Then + firma = " AND ( FIRMA='" & firma & "' OR CLUSTER='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' ) " + Else + firma = " AND FIRMA='" & firma & "' " + End If + + + + Dim sql As String = "SELECT * FROM Aviso WHERE LKW_Nr = '" & LKW_Nr & "' AND [Status] Not in (1,2) " & firma & " ORDER BY Datum DESC" Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection() Using cmd As New SqlCommand(sql, conn) Using dr As SqlDataReader = cmd.ExecuteReader() @@ -1235,17 +1271,17 @@ Public Class cAvisoDAL hAuswahl = "INSERT INTO Aviso " & "(Datum, LKW_Nr, Telefonisch, Änderungen, Info, Status, Auftraggeber, Frächter, letzterMitarbeiter, " & "Vorbereitet,Vorgeschrieben, Ankunft, Freigabe, Dauer, AvisoEingang, Grenzstelle, LKW_fertig,letzterMitarbeiterId,Handling,Sendungen_Gesamtanzahl,Sammelakt,Frächter_KdNr,Auftraggeber_KdNr,AvisoTVHinweis,Buero,Imex,Abgeschlossen,FIRMA, " & - " Durchgangszollstelle1,Durchgangszollstelle2,Durchgangszollstelle3,Durchgangszollstelle4,Durchgangszollstelle5,Durchgangszollstelle6,Ausgangszollstelle,Zollstelle,TransportTemperatur,Zugmaschine,FahrerHandy,LKW_Nationalitaet,DakosyRef,TeamId) VALUES (" & + " Durchgangszollstelle1,Durchgangszollstelle2,Durchgangszollstelle3,Durchgangszollstelle4,Durchgangszollstelle5,Durchgangszollstelle6,Ausgangszollstelle,Zollstelle,TransportTemperatur,Zugmaschine,FahrerHandy,LKW_Nationalitaet,DakosyRef,TeamId,Cluster,Freigabe_Info) VALUES (" & "@Datum, @LKW_Nr, @Telefonisch, @Änderungen, @Info, @Status, @Auftraggeber, @Frächter, @letzterMitarbeiter, " & "@Vorbereitet, @Vorgeschrieben, @Ankunft, @Freigabe, @Dauer, @AvisoEingang, @Grenzstelle, @LKW_fertig,@letzterMitarbeiterId,@Handling,@Sendungen_Gesamtanzahl,@Sammelakt,@Frächter_KdNr,@Auftraggeber_KdNr,@AvisoTVHinweis,@Buero,@Imex,@Abgeschlossen,@FIRMA," & - "@Durchgangszollstelle1,@Durchgangszollstelle2,@Durchgangszollstelle3,@Durchgangszollstelle4,@Durchgangszollstelle5,@Durchgangszollstelle6,@Ausgangszollstelle,@Zollstelle,@TransportTemperatur,@Zugmaschine,@FahrerHandy,@LKW_Nationalitaet,@DakosyRef,@TeamId); SELECT CAST(scope_identity() AS int);" + "@Durchgangszollstelle1,@Durchgangszollstelle2,@Durchgangszollstelle3,@Durchgangszollstelle4,@Durchgangszollstelle5,@Durchgangszollstelle6,@Ausgangszollstelle,@Zollstelle,@TransportTemperatur,@Zugmaschine,@FahrerHandy,@LKW_Nationalitaet,@DakosyRef,@TeamId,@Cluster,@Freigabe_Info); SELECT CAST(scope_identity() AS int);" Else id = d.AvisoID 'Änderung hAuswahl = String.Format( "UPDATE Aviso SET Datum = @Datum, LKW_Nr = @LKW_Nr, Telefonisch=@Telefonisch, Änderungen=@Änderungen, Info=@Info, Status=@Status, Auftraggeber=@Auftraggeber, Frächter=@Frächter, " & " letzterMitarbeiter = @letzterMitarbeiter, Vorbereitet=@Vorbereitet,Vorgeschrieben=@Vorgeschrieben, Ankunft = @Ankunft, Freigabe = @Freigabe, Dauer = @Dauer, AvisoEingang = @AvisoEingang, Grenzstelle=@Grenzstelle, LKW_fertig=@LKW_fertig, letzterMitarbeiterId=@letzterMitarbeiterId, Handling=@Handling,Sendungen_Gesamtanzahl=@Sendungen_Gesamtanzahl,Sammelakt=@Sammelakt,Frächter_KdNr=@Frächter_KdNr,Auftraggeber_KdNr=@Auftraggeber_KdNr,AvisoTVHinweis=@AvisoTVHinweis,Buero=@Buero,Imex=@Imex,Abgeschlossen=@Abgeschlossen, " & - " Durchgangszollstelle1=@Durchgangszollstelle1,Durchgangszollstelle2=@Durchgangszollstelle2,Durchgangszollstelle3=@Durchgangszollstelle3,Durchgangszollstelle4=@Durchgangszollstelle4,Durchgangszollstelle5=@Durchgangszollstelle5,Durchgangszollstelle6=@Durchgangszollstelle6,Ausgangszollstelle=@Ausgangszollstelle,Zollstelle=@Zollstelle,TransportTemperatur=@TransportTemperatur,Zugmaschine=@Zugmaschine,FahrerHandy=@FahrerHandy, LKW_Nationalitaet=@LKW_Nationalitaet, DakosyRef=@DakosyRef,TeamId=@TeamId " & + " Durchgangszollstelle1=@Durchgangszollstelle1,Durchgangszollstelle2=@Durchgangszollstelle2,Durchgangszollstelle3=@Durchgangszollstelle3,Durchgangszollstelle4=@Durchgangszollstelle4,Durchgangszollstelle5=@Durchgangszollstelle5,Durchgangszollstelle6=@Durchgangszollstelle6,Ausgangszollstelle=@Ausgangszollstelle,Zollstelle=@Zollstelle,TransportTemperatur=@TransportTemperatur,Zugmaschine=@Zugmaschine,FahrerHandy=@FahrerHandy, LKW_Nationalitaet=@LKW_Nationalitaet, DakosyRef=@DakosyRef,TeamId=@TeamId,Cluster=@Cluster,Freigabe_Info=@Freigabe_Info " & " WHERE AvisoID = @AvisoID") End If @@ -1307,7 +1343,8 @@ Public Class cAvisoDAL cmd.Parameters.AddWithValue("@LKW_Nationalitaet", If(d.LKW_Nationalitaet Is Nothing, DBNull.Value, d.LKW_Nationalitaet)) cmd.Parameters.AddWithValue("@DakosyRef", If(d.DakosyRef Is Nothing, DBNull.Value, d.DakosyRef)) cmd.Parameters.AddWithValue("@TeamId", If(d.TeamId Is Nothing, DBNull.Value, d.TeamId)) - + cmd.Parameters.AddWithValue("@Cluster", If(d.Cluster Is Nothing, DBNull.Value, d.Cluster)) + cmd.Parameters.AddWithValue("@Freigabe_Info", d.Freigabe_Info) Try @@ -1936,6 +1973,21 @@ Public Class cVermerkeDAL conn.Close() End Sub + + Public Sub toggleHervorheben(ByVal hID As Integer) + Dim sql = String.Format("UPDATE Vermerke SET Hervorheben=Hervorheben-1 WHERE VermerkID = {0}", hID) + + Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + Try + cmd.ExecuteNonQuery() + Catch ex As SqlException + MsgBox("Hervorheben kann nicht gesetzt werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Hervorheben") + End Try + End Using + conn.Close() + + End Sub Public Function Vermerke_einlesen(hAvisoID As Integer) As String 'falls ID mitgegeben, dann diese laden, ansonsten den anderen Wert suchen Dim x As String = "" diff --git a/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/KdSearchBox.vb b/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/KdSearchBox.vb index 34e4a3b4..7b738703 100644 --- a/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/KdSearchBox.vb +++ b/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/KdSearchBox.vb @@ -31,6 +31,7 @@ Public Class KdSearchBox Public Property kdNrField As Control = Nothing Public Property dgvpos As String = "LEFT" Public Property _autoSizeGross As Boolean = False + Public Property _AlleFirmenCLUSTER As Boolean = False Public usrcntlWIDTH = 600 Public usrcntlHEIGHT = 380 @@ -65,6 +66,10 @@ Public Class KdSearchBox End Try End Sub + Public Sub RESARCH() + KdSearchBox_KeyUp(Me, New KeyEventArgs(Keys.Space)) + End Sub + Private Sub KdSearchBox_KeyUp(sender As Object, e As KeyEventArgs) Handles Me.KeyUp Try 'Console.WriteLine(String.Format("TEEST 01")) @@ -272,19 +277,38 @@ Public Class KdSearchBox If _displayAVISO_Email Then AvisoEmail = ", (SELECT CASE WHEN Count(*)>0 Then 'JA' ELSE '' END [Adressen] FROM [tblEmailBenachrichtigung] WHERE [eb_KundenNr]=AdressenNr) as [E-Mail] " End If - Dim SQLstr As String = " SELECT top " & topAnz & " Ordnungsbegriff as Firma, AdressenNr as KdNr,[LandKz] + ' ' + [PLZ] + ' - ' + [Ort] + ' ' + [Straße] as Adresse " & AvisoEmail & " FROM [Adressen] " - 'If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Then + Dim SQLstr As String = " SELECT top " & topAnz & " Ordnungsbegriff as Firma, AdressenNr as KdNr,Adressen.[LandKz] + ' ' + Adressen.[PLZ] + ' - ' + Adressen.[Ort] + ' ' + Adressen.[Straße] as Adresse " & AvisoEmail & " " + If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE" Or _AlleFirmenCLUSTER Then SQLstr &= ", Filialen.Firma as Firma_Intern " + SQLstr &= " FROM [Adressen] " SQLstr &= " INNER JOIN Kunden on KundenNr=AdressenNr " + SQLstr &= " INNER JOIN Filialen on Filialen.FilialenNr=isnull(Kunden.FilialenNr,4803) " SQLstr &= " WHERE 1=1 " SQLstr &= " AND ( Ordnungsbegriff LIKE '" & srch & "%' OR AdressenNr LIKE '" & srch & "%' ) " - If srch2 <> "" Then SQLstr &= " AND ( PLZ LIKE '" & srch2 & "%' OR Ort LIKE '" & srch2 & "%' OR LandKz LIKE '" & srch2 & "%' OR Straße LIKE '" & srch2 & "%' ) " + If srch2 <> "" Then SQLstr &= " AND ( Adressen.PLZ LIKE '" & srch2 & "%' OR Adressen.Ort LIKE '" & srch2 & "%' OR Adressen.LandKz LIKE '" & srch2 & "%' OR Adressen.Straße LIKE '" & srch2 & "%' ) " SQLstr &= " AND [Auswahl]='A' " - If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA <> "VERAG" And VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA <> "ATILLA" Then - SQLstr &= " AND [FilialenNr]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE & "' " + + 'If VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER <> "" Then + ' SQLstr &= " AND (Filialen.Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR Filialen.CLUSTER='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "') " + 'Else + ' SQLstr &= " AND Filialen.Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' " + 'End If + + If _AlleFirmenCLUSTER Then + SQLstr &= " AND '" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' IN (Filialen.Firma,Filialen.Cluster) " ' Wenn die Firmenbezeichnung im CLUSter vorkommt .--> Frontoffice Else - 'SQLstr &= " AND isnull([FilialenNr],0)<>'5501' " - SQLstr &= " AND isnull([FilialenNr],0) NOT IN ('5501','5601','5701','5801') " + SQLstr &= " AND '" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA.Replace("ATILLA", "VERAG") & "' IN (Filialen.Firma,Filialen.Cluster) " ' Wenn die Firmenbezeichnung im CLUSter vorkommt .--> Frontoffice End If + + + + 'If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE" Then 'Keine + ' SQLstr &= " AND isnull(Kunden.[FilialenNr],0) NOT IN ('5701') " + 'ElseIf VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA <> "VERAG" And VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA <> "ATILLA" Then + ' SQLstr &= " AND Kunden.[FilialenNr]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE & "' " + 'Else + ' 'SQLstr &= " AND isnull(Kunden.[FilialenNr],0)<>'5501' " + ' SQLstr &= " AND isnull(Kunden.[FilialenNr],0) NOT IN ('5501','5601','5701','5801') " + 'End If If Not _displayWoelflKd Then SQLstr &= " AND AdressenNr NOT LIKE '15%'" SQLstr &= " order by Ordnungsbegriff " @@ -314,19 +338,36 @@ Public Class KdSearchBox End If If srch2.StartsWith("*") Then srch2 = Replace(srch2, "*", "%", , 1) ' Suche mit beginnenden * - Dim SQLstr As String = " SELECT top 4 Ordnungsbegriff as Firma, AdressenNr as KdNr,[LandKz] + ' ' + [PLZ] + ' - ' + [Ort] + ' ' + [Straße] as Adresse FROM [Adressen] " - ' If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Then + Dim SQLstr As String = " SELECT top 4 Ordnungsbegriff as Firma, AdressenNr as KdNr,Adressen.[LandKz] + ' ' + Adressen.[PLZ] + ' - ' + Adressen.[Ort] + ' ' + Adressen.[Straße] as Adresse " + If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE" Or _AlleFirmenCLUSTER Then SQLstr &= ", Filialen.Firma as Firma_Intern " + SQLstr &= " FROM [Adressen] " SQLstr &= " INNER JOIN Kunden on KundenNr=AdressenNr " + SQLstr &= " INNER JOIN Filialen on Filialen.FilialenNr=isnull(Kunden.FilialenNr,4803) " SQLstr &= " WHERE 1=1 " SQLstr &= " AND ( Ordnungsbegriff LIKE '" & srch & "%' OR AdressenNr LIKE '" & srch & "%' ) " - If srch2 <> "" Then SQLstr &= " AND ( PLZ LIKE '" & srch2 & "%' OR Ort LIKE '" & srch2 & "%' OR LandKz LIKE '" & srch2 & "%' OR Straße LIKE '" & srch2 & "%' ) " + If srch2 <> "" Then SQLstr &= " AND ( Adressen.PLZ LIKE '" & srch2 & "%' OR Adressen.Ort LIKE '" & srch2 & "%' OR Adressen.LandKz LIKE '" & srch2 & "%' OR Adressen.Straße LIKE '" & srch2 & "%' ) " SQLstr &= " AND [Auswahl]='I' " - If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA <> "VERAG" And VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA <> "ATILLA" Then - SQLstr &= " AND [FilialenNr]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE & "' " + 'If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE" Then 'Keine + ' SQLstr &= " AND isnull(Kunden.[FilialenNr],0) NOT IN ('5701') " + 'ElseIf VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA <> "VERAG" And VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA <> "ATILLA" Then + ' SQLstr &= " AND Kunden.[FilialenNr]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE & "' " + 'Else + ' 'SQLstr &= " AND isnull([FilialenNr],0)<>'5501' " + ' SQLstr &= " AND isnull(Kunden.[FilialenNr],0) NOT IN ('5501','5601','5701','5801') " + 'End If + + 'If VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER <> "" Then + ' SQLstr &= " AND (Filialen.Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR Filialen.CLUSTER='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "') " + 'Else + ' SQLstr &= " AND Filialen.Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' " + 'End If + + If _AlleFirmenCLUSTER Then + SQLstr &= " AND '" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' IN (Filialen.Firma,Filialen.Cluster) " ' Wenn die Firmenbezeichnung im CLUSter vorkommt .--> Frontoffice Else - 'SQLstr &= " AND isnull([FilialenNr],0)<>'5501' " - SQLstr &= " AND isnull([FilialenNr],0) NOT IN ('5501','5601','5701','5801') " + SQLstr &= " AND '" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA.Replace("ATILLA", "VERAG") & "' IN (Filialen.Firma,Filialen.Cluster) " ' Wenn die Firmenbezeichnung im CLUSter vorkommt .--> Frontoffice End If + If Not _displayWoelflKd Then SQLstr &= " AND AdressenNr NOT LIKE '15%'" SQLstr &= " order by Ordnungsbegriff " @@ -360,6 +401,7 @@ Public Class KdSearchBox If .Columns("Firma") IsNot Nothing AndAlso .Columns("Firma") IsNot DBNull.Value Then .Columns("Firma").Width = 250 If .Columns("Adresse") IsNot Nothing AndAlso .Columns("Adresse") IsNot DBNull.Value Then .Columns("Adresse").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill If .Columns("E-Mail") IsNot Nothing AndAlso .Columns("E-Mail") IsNot DBNull.Value Then .Columns("E-Mail").Width = 50 : .Columns("E-Mail").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter + If .Columns("Firma_Intern") IsNot Nothing AndAlso .Columns("Firma_Intern") IsNot DBNull.Value Then .Columns("Firma_Intern").Width = 60 : .Columns("Firma_Intern").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter : .Columns("Firma_Intern").HeaderText = "" .ClearSelection() End With diff --git a/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MyTextBox.vb b/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MyTextBox.vb index f56b09f5..4a802669 100644 --- a/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MyTextBox.vb +++ b/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MyTextBox.vb @@ -236,6 +236,7 @@ Public Class MyTextBox Dim pruefungHandled = False If _numbersOnly Then + sender.text = sender.text.ToString.Replace(" ", "") pruefungHandled = True Try If IsNumeric(_numbersOnlyKommastellen) And IsNumeric(sender.text) Then diff --git a/VERAG_PROG_ALLGEMEIN/Classes/SQL.vb b/VERAG_PROG_ALLGEMEIN/Classes/SQL.vb index 25c7843d..7a7232bb 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/SQL.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/SQL.vb @@ -158,7 +158,6 @@ Public Class SQL Public Shared Function GetNewOpenConnectionATLAS() As SqlConnection Dim cn As New SqlConnection() cn.ConnectionString = GetATLASConnectionString() - cn.Open() Return cn End Function diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cAdressen.vb b/VERAG_PROG_ALLGEMEIN/Classes/cAdressen.vb index baa73d26..df2fa2c9 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cAdressen.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cAdressen.vb @@ -58,6 +58,9 @@ Public Class cAdressen End If End Sub + Public Function FullName() As String + Return (If(Name_1, "") & " " & If(Name_2, "")).ToString.Replace(" ", " ") + End Function Public Shared Function getHoechsteKdNr(NrKr_von As Integer, NrKr_bis As Integer) As Integer Try diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cClasses.vb b/VERAG_PROG_ALLGEMEIN/Classes/cClasses.vb index ce995975..e61b91eb 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cClasses.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cClasses.vb @@ -26,9 +26,6 @@ Public Class MyListItem End Function - - - End Class diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cKundenDatenblatt.vb b/VERAG_PROG_ALLGEMEIN/Classes/cKundenDatenblatt.vb new file mode 100644 index 00000000..fd5a85ff --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/Classes/cKundenDatenblatt.vb @@ -0,0 +1,132 @@ +Imports System.Data.SqlClient +Imports System.Reflection + +Public Class cKundenDatenblatt + Property kdb_KundenNr As Integer + Property kdb_route As Object = Nothing + Property kdb_buergschaftsgeber As Object = Nothing + Property kdb_anzahlLKW As Object = Nothing + Property kdb_anzahlMA As Object = Nothing + Property kdb_bestimmungslandEU As Object = Nothing + Property kdb_grosskunden As Object = Nothing + Property kdb_gueter As Object = Nothing + Property kdb_grenzen As Object = Nothing + Property kdb_verhaltenAvisierung As Object = Nothing + Property kdb_sonstiges As Object = Nothing + + Dim SQL As New SQL + + Sub New(kdb_KundenNr) + Me.kdb_KundenNr = kdb_KundenNr + LOAD() + End Sub + + Public Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdb_KundenNr", kdb_KundenNr)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdb_route", kdb_route)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdb_buergschaftsgeber", kdb_buergschaftsgeber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdb_anzahlLKW", kdb_anzahlLKW)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdb_anzahlMA", kdb_anzahlMA)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdb_bestimmungslandEU", kdb_bestimmungslandEU)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdb_grosskunden", kdb_grosskunden)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdb_gueter", kdb_gueter)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdb_grenzen", kdb_grenzen)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdb_verhaltenAvisierung", kdb_verhaltenAvisierung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdb_sonstiges", kdb_sonstiges)) + + + Return list + End Function + + + Public Function SAVE() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblKundenDatenblatt WHERE kdb_KundenNr=@kdb_KundenNr) " & + " BEGIN " & getUpdateCmd() & " END " & + " Else " & + " BEGIN " & getInsertCmd() & " END " & + " commit tran " + + kdb_KundenNr = SQL.doSQLVarListID(kdb_KundenNr, sqlstr, "FMZOLL", , list) + Return kdb_KundenNr > 0 + End Function + + Public Sub LOAD() + Try + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblKundenDatenblatt WHERE kdb_KundenNr=@kdb_KundenNr ", conn) + cmd.Parameters.AddWithValue("@kdb_KundenNr", kdb_KundenNr) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(l.Text)) + End If + + Next + + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + + Public Function getUpdateCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim str As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + Return (" UPDATE [tblKundenDatenblatt] SET " & str & " WHERE kdb_KundenNr=@kdb_KundenNr ") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + Public Function getInsertCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + Dim str As String = "" + Dim values As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "]," + values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + values = values.Substring(0, values.Length - 1) 'wg. ',' + Return (" INSERT INTO tblKundenDatenblatt (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + Public Function DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM [tblKundenDatenblatt] WHERE kdb_KundenNr=" & Me.kdb_KundenNr + Return SQL.doSQL(sqlstr, "FMZOLL") + End Function + + + +End Class diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cKundenKontakte.vb b/VERAG_PROG_ALLGEMEIN/Classes/cKundenKontakte.vb index e3782a06..84cdcb32 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cKundenKontakte.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cKundenKontakte.vb @@ -34,7 +34,7 @@ Public Class cKundenKontakteList Public Sub LOAD_LIST(kkd_KundenNr, Optional firma = "") Try LIST.Clear() - Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL(False) Using cmd As New SqlCommand("SELECT * FROM [tblKundenKontakt] WHERE kkd_KundenNr=@kkd_KundenNr " & If(firma <> "", " AND kkd_firma=@firma", ""), conn) cmd.Parameters.AddWithValue("@kkd_KundenNr", kkd_KundenNr) cmd.Parameters.AddWithValue("@firma", firma) @@ -248,15 +248,23 @@ Public Class cKundenKontakte If KMail = "" Then Return -1 If Not KMail.Contains("@") Then Return -1 + Dim whereFiliale = "" + If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA <> "VERAG" And VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA <> "ATILLA" Then + whereFiliale = " AND [FilialenNr]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE & "' " + Else + 'SQLstr &= " AND isnull([FilialenNr],0)<>'5501' " + whereFiliale = " AND isnull([FilialenNr],0) NOT IN ('5501','5601','5701','5801') " + End If + Dim SQL As New SQL - getKdNrFromMailAdress = SQL.getValueTxtBySql("SELECT TOP 1 [kkd_KundenNr] FROM [tblKundenKontakt] where kkd_Email LIKE ('%" & KMail & "%') AND kkd_kkaBez='OUTLOOK_AVISO_Eingang'", "FMZOLL",,, -1) + getKdNrFromMailAdress = SQL.getValueTxtBySql("SELECT TOP 1 [kkd_KundenNr] FROM [tblKundenKontakt] INNER JOIN Kunden ON KundenNr=kkd_KundenNr where kkd_Email LIKE ('%" & KMail & "%') AND kkd_kkaBez='OUTLOOK_AVISO_Eingang' " & whereFiliale, "FMZOLL",,, -1) If serchInKd AndAlso getKdNrFromMailAdress < 0 Then - getKdNrFromMailAdress = SQL.getValueTxtBySql("SELECT TOP 1 AdressenNr FROM Adressen WHERE [E-Mail] LIKE ('%" & KMail & "%') ", "FMZOLL",,, -1) + getKdNrFromMailAdress = SQL.getValueTxtBySql("SELECT TOP 1 AdressenNr FROM Adressen INNER JOIN Kunden ON KundenNr=AdressenNr WHERE [E-Mail] LIKE ('%" & KMail & "%') " & whereFiliale, "FMZOLL",,, -1) If getKdNrFromMailAdress < 0 Then Dim sp = KMail.Split("@") - getKdNrFromMailAdress = SQL.getValueTxtBySql("SELECT TOP 1 AdressenNr FROM Adressen WHERE [E-Mail] LIKE ('%" & sp(1) & "%') ", "FMZOLL",,, -1) + getKdNrFromMailAdress = SQL.getValueTxtBySql("SELECT TOP 1 AdressenNr FROM Adressen INNER JOIN Kunden ON KundenNr=AdressenNr WHERE [E-Mail] LIKE ('%" & sp(1) & "%') " & whereFiliale, "FMZOLL",,, -1) End If End If End Function diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cMessangerListender.vb b/VERAG_PROG_ALLGEMEIN/Classes/cMessangerListender.vb new file mode 100644 index 00000000..65879d17 --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/Classes/cMessangerListender.vb @@ -0,0 +1,463 @@ + + +Imports System.Net, System.Net.Sockets +Imports System.Text +Imports System.Threading +Imports VERAG_PROG_ALLGEMEIN + + +Public Class cMessangerListender + Dim serverSocket As Socket = Nothing + Dim clientSocket As Socket + Dim byteData(1023) As Byte + + Public Shared boolInitAufschub As Boolean = False + Public Shared boolFSSAtlas As Boolean = False + Public Shared boolDatenserver As Boolean = False + + Dim splitPanelDefaultHeight As Integer = 0 + + Public Sub START() + DIENST_InitSocket() 'initialisieren + End Sub + + Sub DIENST_InitSocket() + If serverSocket IsNot Nothing Then Exit Sub 'Falls es schon läuft + serverSocket = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp) + Dim IpEndPoint As IPEndPoint = New IPEndPoint(IPAddress.Any, 8800) + serverSocket.Bind(IpEndPoint) + serverSocket.Listen(5) + serverSocket.BeginAccept(New AsyncCallback(AddressOf OnAccept), Nothing) + End Sub + + Private Sub OnAccept(ByVal ar As IAsyncResult) + clientSocket = serverSocket.EndAccept(ar) + serverSocket.BeginAccept(New AsyncCallback(AddressOf OnAccept), Nothing) + AddClient(clientSocket) + End Sub + + Delegate Sub _AddClient(ByVal client As Socket) + Private Sub AddClient(ByVal client As Socket) ' Neunen Client hinzufügen + 'If InvokeRequired Then + ' Invoke(New _AddClient(AddressOf AddClient), client) + ' Exit Sub + 'End If + ' writeToFrmLog(client, "", "Verbindungsaufbau.. ") + Send("ConSuccess", client) ' Der Client bekommt die Nachricht, dass die Verbindung steht... + '... jetzt kann der Client senden, der Server horcht... + clientSocket.BeginReceive(byteData, 0, byteData.Length, SocketFlags.None, + New AsyncCallback(AddressOf OnRecieve), clientSocket) + End Sub + + Private Sub Send(ByVal msg As String, ByVal client As Socket) 'An den Client senden + Dim sendBytes As Byte() = Encoding.BigEndianUnicode.GetBytes(msg) + client.BeginSend(sendBytes, 0, sendBytes.Length, SocketFlags.None, New AsyncCallback(AddressOf OnSend), client) + End Sub + Private Sub OnSend(ByVal ar As IAsyncResult) + Dim client As Socket = ar.AsyncState + client.EndSend(ar) + End Sub + + Private Sub OnRecieve(ByVal ar As IAsyncResult) ' Wenn ein Task-Befehl vom Client empfangen wurde + Dim client As Socket = ar.AsyncState + Try + client.EndReceive(ar) + Dim bytesRec As Byte() = byteData + Dim message As String = Encoding.BigEndianUnicode.GetString(bytesRec) '.Replace(Convert.ToChar(0), "") + Dim s As String = Read(message, client) + If s <> "" Then Send(s, client) ' Die Aufgabe wird abgearbeitet, der Client bekommt bei Fehler eine Antwort... + Catch ex As Exception + client.Shutdown(SocketShutdown.Both) + client.Close() + End Try + End Sub + Private Sub ListView1_SelectedIndexChanged(sender As Object, e As EventArgs) + + End Sub + + Delegate Function _Read(ByVal msg As String, client As Socket, messageFile() As Byte, fileName As String) + Private Function Read(ByVal msg As String, client As Socket, Optional messageFile() As Byte = Nothing, Optional fileName As String = "") As String + 'If InvokeRequired Then + ' Invoke(New _Read(AddressOf Read), msg, client, messageFile, fileName) + ' Return "" + 'End If + msg = msg.Replace(Convert.ToChar(0), "") + ' MsgBox("MESSSSS:::::::::::: " & msg) + Select Case msg + Case "test" 'nur ein Test, des Ergbnis ist immer Positiv + ' writeToFrmLog(client, "test", "test ") + ' Return "Task successful" + Send("Task successful", client) 'Client-Mittelung + Case "NEW_MESSAGE" 'der Task initAufschubkonten wird aufgerufen + ' MsgBox("NEW_MESSAGE!!!!!") + ' If Not boolInitAufschub Then Me.writeToFrmLog(client, "initAufschubkonten", "Abgebrochen - Task nicht aktiv " & msg) : Return "Task inactive" + + ' die eigentliche Funktion wird in einem Tread aufgrufen + Dim thread As New Thread(AddressOf NEW_MESSAGE) + thread.IsBackground = True + 'thread.Start(client) + thread.Start() + + 'Ein zweiter Thread kontrolliert, ob die Funktion nach einer gewissen Zeit noch läuft und beendet diese ggf. + Dim st As New Thread(AddressOf stopThread) + st.IsBackground = True + Dim param_obj(3) As Object + 'Ãœbergabeparameter des 2. Threads + param_obj(0) = thread + param_obj(1) = client + param_obj(2) = 60 + st.Start(param_obj) + + 'Send("Task successful", client) 'Client-Mittelung + + Return "" + + End Select + + Return "Task not found" + ' Me.writeToFrmLog(client, "", "ERROR: Undefinierter Task: " & msg) + + End Function + + Sub NEW_MESSAGE() + VERAG_PROG_ALLGEMEIN.cMessenger.NEW_MESSGE = True + MsgBox("jojo") + 'For Each openForm In Application.OpenForms() + ' If TypeOf (openForm) Is frmMessenger Then + ' 'MsgBox("Sendungsfenster bereits geöffnet!") + ' 'CType(openForm, frmSendungsdetailsNEU).BringToFront() + ' 'Return Nothing + ' CType(openForm, frmMessenger).REFRESH_CHAT() + ' CType(openForm, frmMessenger).btnTEST.Visible = True + ' Exit For + ' End If + 'Next + End Sub + + Sub stopThread(param_obj As Object) 'Stoppt einen Hauptthread nach einer gewissen Anzahl von Sekunden; Ãœbergabeparameter: Object { Tread, clientSocket, SekundenToTimeout } + Thread.Sleep(param_obj(2) * 1000) ' Hier wird soviele Senkunden gewartet, wie in den Ãœbergabeparametern definiert wurde. + If param_obj(0).IsAlive Then + param_obj(0).Abort() ' Wenn der Hauptthread noch immer läuft, wird er jetzt beendet. + Else + Exit Sub + End If + Send("Task timeout", param_obj(1)) 'Client-Mittelung + 'Me.writeToFrmLog(param_obj(1), "ERROR: Task wurde aufgrund eines Timeouts abgebrochen.") 'Log-Mittelung + End Sub + + + + + + ''Threadsichere Funktion zum schreiben in die TextBox: + 'Delegate Sub writeToFrmLogCallback(ByVal client As Socket, ByVal nameTask As String, ByVal text As String) + 'Public Sub writeToFrmLog(ByVal client As Socket, ByVal nameTask As String, ByVal text As String) + + ' ' InvokeRequired required compares the thread ID of the + ' ' calling thread to the thread ID of the creating thread. + ' ' If these threads are different, it returns true. + ' If Me.txtLog.InvokeRequired Then + ' Dim d As New writeToFrmLogCallback(AddressOf writeToFrmLog) + ' Me.Invoke(d, New Object() {client, nameTask, text}) + ' Else + ' Dim remoteIpEndPoint As IPEndPoint = client.RemoteEndPoint + ' Me.txtLog.Text &= Now.ToString("dd.MM.yyyy HH:mm ") & nameTask & " (" & remoteIpEndPoint.Address.ToString & "): " & text & vbNewLine + ' If Me.txtLog.Lines.Count > 35 Then + ' Dim arr As String() = Me.txtLog.Lines + ' Me.txtLog.Text = "" + ' For i = arr.Count - 35 To arr.Count - 1 + ' Me.txtLog.Text &= arr(i) & vbNewLine + ' Next i + ' End If + ' End If + ' Me.txtLog.SelectionLength = 0 + 'End Sub + + 'Public Sub writeToFrmLog(ByVal nameTask As String, ByVal text As String) + ' Me.txtLog.Text &= Now.ToString("dd.MM.yyyy HH:mm ") & nameTask & ": " & text & vbNewLine + ' If Me.txtLog.Lines.Count > 35 Then + ' Dim arr As String() = Me.txtLog.Lines + ' Me.txtLog.Text = "" + ' For i = arr.Count - 35 To arr.Count - 1 + ' Me.txtLog.Text &= arr(i) & vbNewLine + ' Next i + ' End If + 'End Sub + + + + 'Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click 'geht nicht + ' clientSocket.Close() + + ' If clientSocket.Connected Then + ' clientSocket.Shutdown(SocketShutdown.Both) + ' clientSocket.Close() + ' End If + ' clientSocket.Disconnect(True) + + ' txtInitAufschubStatus.Text = "angehalten" + ' txtInitAufschubStatus.ForeColor = Color.DarkRed + 'End Sub + + Public Sub STOP_MSG_LISTENDER() + clientSocket.Shutdown(SocketShutdown.Both) + clientSocket.Close() + serverSocket.Shutdown(SocketShutdown.Both) + serverSocket.Close() + serverSocket = Nothing + DIENST_InitSocket() + End Sub + + + + + + Private Result As Object = Nothing 'Store the worked result of abc() + Private Sub Worker(ByVal state As Object) + Dim are As AutoResetEvent = DirectCast(state, AutoResetEvent) + ' do anything you want here: + + + + + + Dim result As Integer = 0 + 'result = abc(input_val); + + SyncLock Me.Result + Me.Result = result + End SyncLock + are.[Set]() + End Sub + 'Private Sub method() + + ' Const TimeOut As Int32 = 5000 + ' Dim [handles] As WaitHandle() = New WaitHandle() {New AutoResetEvent(False)} + + ' ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf Worker), [handles](0)) + ' Dim finished As Boolean = WaitHandle.WaitAll([handles], TimeOut, True) + ' 'ThreadPool.RegisterWaitForSingleObject () + + ' If finished Then + ' ' step 2 + ' MessageBox.Show("Worker function finished sucessfully, go to Step2") + ' Else + ' ' step 3 + ' MessageBox.Show([String].Format("Worker function time out({0})!, go to Step3", TimeOut)) + ' End If + 'End Sub + + +End Class + +Public Class cServerClient + Dim clientSocket As Socket + Dim byteData(1023) As Byte + Dim doThis As String + Public status As String = "begin" + ' Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click + ' begin() + ' End Sub + + Public Event FunctionFinished(ByVal sender As Object, ByVal e As FunctionFinishedArgs) + + + Public Sub begin(ip, doThis_tmp) + doThis = doThis_tmp + Dim timeOut As Integer = 60 + Select Case doThis + Case "test" : timeOut = 5 ' nach 5 Sekunden wird abgebrochen + Case "NEW_MESSAGE" : timeOut = 120 ' nach 120 Sekunden wird abgebrochen + 'Case "initAufschubkonten" : timeOut = 60 ' nach 60 Sekunden wird abgebrochen + End Select + + 'Ein Thread kontrolliert, ob die Funktion nach einer gewissen Zeit noch läuft und beendet diese ggf. + Dim st As New Thread(AddressOf stopThread) + st.IsBackground = True + Dim param_obj(1) As Object + 'Ãœbergabeparameter des 2. Threads + param_obj(0) = timeOut + st.Start(param_obj) + + + clientSocket = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp) + Dim ipAddress As IPAddress = IPAddress.Parse(ip) + + ' Dim ipAddress As IPAddress = ipAddress.Parse("192.168.0.90") + Dim ipEndPoint As IPEndPoint = New IPEndPoint(ipAddress, 8800) + clientSocket.BeginConnect(ipEndPoint, New AsyncCallback(AddressOf OnConnect), Nothing) + status = "beginConnect" + ' endconnect(clientSocket) + + + End Sub + + Public Sub waitTillFinished() + While Not (status = "TaskError" Or status = "TaskSuccess") + 'wait + End While + 'Return True + End Sub + + Private Sub OnConnect(ByVal ar As IAsyncResult) + Try + clientSocket.EndConnect(ar) + clientSocket.BeginReceive(byteData, 0, byteData.Length, SocketFlags.None, + New AsyncCallback(AddressOf OnRecieve), clientSocket) + Catch ex As Exception + ' MsgBox("Verbindung zum Server konnte nicht aufgebaut werden!") + End Try + End Sub + + Private Sub OnSend(ByVal ar As IAsyncResult) + Dim client As Socket = ar.AsyncState + client.EndSend(ar) + End Sub + Private Sub Send(ByVal msg As String, ByVal client As Socket) + Dim sendBytes As Byte() = Encoding.BigEndianUnicode.GetBytes(msg) + client.BeginSend(sendBytes, 0, sendBytes.Length, SocketFlags.None, New AsyncCallback(AddressOf OnSend), client) + End Sub + Public Function ByteArrayToTextString(ByRef Barr() As Byte) As String + Dim enc As System.Text.Encoding = Encoding.BigEndianUnicode + Return enc.GetString(Barr) + End Function + + Private Sub OnRecieve(ByVal ar As IAsyncResult) + Try + Dim client As Socket = ar.AsyncState + client.EndReceive(ar) + Dim bytesRec As Byte() = byteData + Dim message As String = Encoding.BigEndianUnicode.GetString(bytesRec) + ' MsgBox("FROM SERVER: " & message) + Dim b(1023) As Byte + + ' MsgBox("SERVER RECIEVE: " & Encoding.BigEndianUnicode.GetString(b)) + + byteData = b + Read(message) + clientSocket.BeginReceive(byteData, 0, byteData.Length, SocketFlags.None, + New AsyncCallback(AddressOf OnRecieve), clientSocket) + + Catch ex As Exception + ' MsgBox("Verbindung zum Server wurde unterbrochen!") + End Try + End Sub + + Delegate Sub _Read(ByVal msg As String) + Private Sub Read(ByVal msg As String) + 'If frmMain.InvokeRequired Then + ' frmMain.Invoke(New _Read(AddressOf Read), msg) + ' Exit Sub + 'End If + + 'frmMain.icoVERAGMonitoring.Visible = False + + 'if richtige nsachricht + ' Dim asciis As Byte() = Encoding.BigEndianUnicode.GetBytes(msg) + ' Dim a As Char = msg(msg.Length - 1) + ' msg = msg.Replace(a, "") + ' MsgBox(msg.Length) + + ' MsgBox(msg(msg.Length - 1)) + ' MsgBox(msg(msg.Length - 1)) + ' MsgBox(Asc(msg(msg.Length - 1))) + ' MsgBox(Asc(msg(msg.Length - 2))) + msg = msg.Replace(Convert.ToChar(0), "") + Try + + ' MsgBox("-" & msg & "-" & vbNewLine & "ConSuccess" & "-") + If msg = "ConSuccess" Then + status = "ConSuccess" + Select Case doThis + Case "test" + Send("test", clientSocket) + status = "sendTask" + Case "NEW_MESSAGE" + Send("NEW_MESSAGE", clientSocket) + status = "sendTask" + End Select + + ' MsgBox("!!!!!ConSuccess --> initAufschubkonten") + ' Send("FSSAtlasStart", clientSocket) + 'Send("test", clientSocket) + 'Send("initAufschubkonten", clientSocket) + + ElseIf msg = "Task successful" Then + status = "TaskSuccess" + clientSocket.Disconnect(False) + clientSocket.Shutdown(SocketShutdown.Both) + clientSocket.Close() + 'endconnect(clientSocket)'geht ned + ' MsgBox("Task erfolgreich!", vbSystemModal, doThis) + RaiseEvent FunctionFinished(Me, New FunctionFinishedArgs(FunctionFinishedArgs.EventResult.OK, "Task erfolgreich!")) + ElseIf msg = "Task not found" Then + MsgBox("SERVERERROR: Der Dienst wurde nicht gefunden!", vbSystemModal, "NEW_MESSAGE") + status = "TaskError" + RaiseEvent FunctionFinished(Me, New FunctionFinishedArgs(FunctionFinishedArgs.EventResult.ERR, "SERVERERROR: Der Dienst wurde nicht gefunden!")) + ElseIf msg = "Task inactive" Then + MsgBox("SERVERERROR: Der Dienste ist nicht aktiv!", vbSystemModal, "NEW_MESSAGE") + status = "TaskError" + RaiseEvent FunctionFinished(Me, New FunctionFinishedArgs(FunctionFinishedArgs.EventResult.ERR, "SERVERERROR: Der Dienste ist nicht aktiv!")) + ElseIf msg = "Task timeout" Then + MsgBox("SERVERERROR: Der Dienst wurde wegen einer Zeitüberschreitung abgebrochen!", vbSystemModal, "NEW_MESSAGE") + status = "TaskError" + RaiseEvent FunctionFinished(Me, New FunctionFinishedArgs(FunctionFinishedArgs.EventResult.ERR, "SERVERERROR: Der Dienst wurde wegen einer Zeitüberschreitung abgebrochen!")) + ElseIf msg = "Task error" Then + MsgBox("SERVERERROR: Server-Fehler!", vbSystemModal, "NEW_MESSAGE") + status = "TaskError" + RaiseEvent FunctionFinished(Me, New FunctionFinishedArgs(FunctionFinishedArgs.EventResult.ERR, "SERVERERROR: Server-Fehler!")) + Else + MsgBox("SERVER_NACHRICHT NICHT VERSTANDEN: " & msg, vbSystemModal) + status = "TaskError" + RaiseEvent FunctionFinished(Me, New FunctionFinishedArgs(FunctionFinishedArgs.EventResult.ERR, "SERVER_NACHRICHT NICHT VERSTANDEN: " & msg)) + + clientSocket.Shutdown(SocketShutdown.Both) + clientSocket.Close() + End If + + Catch ex As Exception + MsgBox("Verbindungs-Fehler beim Senden", vbSystemModal) + status = "TaskError" + RaiseEvent FunctionFinished(Me, New FunctionFinishedArgs(FunctionFinishedArgs.EventResult.ERR, "Verbindungs-Fehler beim Senden")) + clientSocket.Close() + End Try + ' byteData = Encoding.BigEndianUnicode.GetBytes("") + + End Sub + + + Sub stopThread(param_obj As Object) 'Stoppt einen Hauptthread nach einer gewissen Anzahl von Sekunden; Ãœbergabeparameter: Object { Tread, clientSocket, SekundenToTimeout } + Thread.Sleep(param_obj(0) * 1000) ' Hier wird soviele Senkunden gewartet, wie in den Ãœbergabeparametern definiert wurde. + If status = "TaskError" Or status = "TaskSuccess" Then Exit Sub + status = "TaskError" + Try + clientSocket.Disconnect(False) + clientSocket.Shutdown(SocketShutdown.Both) + clientSocket.Close() + Catch ex As Exception + MsgBox(ex.Message) + End Try + + RaiseEvent FunctionFinished(Me, New FunctionFinishedArgs(FunctionFinishedArgs.EventResult.ERR, "Task wurde aufgrund eines Timeouts vom Client abgebrochen.")) + MsgBox("ERROR: Task wurde aufgrund eines Timeouts vom Client abgebrochen.") 'Log-Mittelung + End Sub + + +End Class + +Public Class FunctionFinishedArgs + Inherits EventArgs + 'das was man später unter e sehen kann + Public Result As EventResult + 'hier - als Beispiel - einfach eine Enum + Public Enum EventResult + OK + ERR + End Enum + Public Message As String + 'Zum übergeben der Parameter + Public Sub New(ByVal r As EventResult, m As String) + Result = r + Message = m + End Sub +End Class \ No newline at end of file diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cMessenger.vb b/VERAG_PROG_ALLGEMEIN/Classes/cMessenger.vb new file mode 100644 index 00000000..5720e3a6 --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/Classes/cMessenger.vb @@ -0,0 +1,759 @@ +Imports System.Data.SqlClient +Imports System.Reflection + +Public Class cMessenger + + Public Shared NEW_MESSGE As Boolean = False + Public Shared UNREAD_MESAGES As Integer = 0 + + Shared SQL As New SQL + + Public Shared Function GEN_NEW_CHAT(chat_name As String, MaIds As List(Of Integer), Optional ByRef CHAT As VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_Chat = Nothing) As Boolean + CHAT = New VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_Chat + CHAT.chat_erstelltAm = Now + CHAT.chat_erstelltMaId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID + CHAT.chat_name = chat_name + + For Each maId In MaIds + Dim MB As New VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_ChatMembers(CHAT.chat_id, maId) + MB.chatMb_maId = maId + CHAT.CHAT_MEMBERS.Add(MB) + Next + Return CHAT.SAVE(True) + + End Function + + + + Public Shared Function GET_CHAT_LIST() As List(Of cMessenger_Chat) + Dim LIST As New List(Of cMessenger_Chat) + Dim dt = SQL.loadDgvBySql("SELECT [chat_id] FROM [tblMessenger_Chat] WHERE (SELECT COUNT(*) FROM tblMessenger_ChatMembers WHERE chatMB_chatId=chat_id AND chatMB_maId=" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & ")>0", "ADMIN") + + For Each r In dt.Rows + Dim CHAT As New VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_Chat(r("chat_id")) + LIST.Add(CHAT) + Next + Return LIST + + End Function + + Public Class cMessenger_Chat + + Property chat_id As Integer = -1 + Property chat_name As String + Property chat_erstelltAm As Date = Now + Property chat_erstelltMaId As Integer + Property chat_aktiv As Boolean = True + + Public CHAT_MEMBERS As New List(Of cMessenger_ChatMembers) + Public CHAT_MESSAGES As New List(Of cMessenger_ChatMessages) + Dim SQL As New SQL + + Sub New() + Me.chat_erstelltMaId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID + Me.chat_erstelltAm = Now + LOAD() + End Sub + + + Sub New(chat_id) + Me.chat_id = chat_id + Me.chat_erstelltMaId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID + Me.chat_erstelltAm = Now + LOAD() + End Sub + + Public Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chat_id", chat_id,, True)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chat_name", chat_name)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chat_erstelltAm", chat_erstelltAm)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chat_erstelltMaId", chat_erstelltMaId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chat_aktiv", chat_aktiv)) + + Return list + End Function + + + + Public Function SAVE(saveAll As Boolean) As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblMessenger_Chat WHERE chat_id=@chat_id) " & + " BEGIN " & getUpdateCmd() & " End " & + " Else " & + " BEGIN " & getInsertCmd() & " End " & + " commit tran " + + chat_id = SQL.doSQLVarListID(chat_id, sqlstr, "ADMIN", , list) + + If saveAll Then + SAVE_MEMBERS() + End If + + Return chat_id > 0 + End Function + + Public Sub LOAD() + Try + Using conn As SqlConnection = SQL.GetNewOpenConnectionADMIN() + Using cmd As New SqlCommand("Select * FROM tblMessenger_Chat WHERE chat_id=@chat_id ", conn) + cmd.Parameters.AddWithValue("@chat_id", chat_id) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(l.Text)) + End If + + Next + Me.LOAD_MEMBERS() + Me.LOAD_MESSAGES() + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + + + Public Sub SAVE_MEMBERS() + Try + DELETE_MEMBERS() + For Each MB In Me.CHAT_MEMBERS + MB.chatMb_chatId = Me.chat_id + MB.SAVE() + Next + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + Public Function DELETE_MEMBERS() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM [tblMessenger_ChatMembers] WHERE chatMb_chatId=" & Me.chat_id + Return SQL.doSQL(sqlstr, "ADMIN") + End Function + Public Sub LOAD_MEMBERS() + Try + Me.CHAT_MEMBERS.Clear() + Using conn As SqlConnection = SQL.GetNewOpenConnectionADMIN() + Using cmd As New SqlCommand("SELECT * FROM tblMessenger_ChatMembers WHERE chatMb_chatId=@chat_id ", conn) + cmd.Parameters.AddWithValue("@chat_id", chat_id) + Dim dr = cmd.ExecuteReader() + While dr.Read + Dim MB As New cMessenger_ChatMembers(Me.chat_id, dr.Item("chatMb_maId")) + Me.CHAT_MEMBERS.Add(MB) + End While + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + Public Sub LOAD_MESSAGES(Optional top As Integer = 100) + Try + Me.CHAT_MESSAGES.Clear() + Using conn As SqlConnection = SQL.GetNewOpenConnectionADMIN() + Using cmd As New SqlCommand("SELECT TOP " & top & " * FROM [tblMessenger_ChatMessages] WHERE chatMg_chatId=@chat_id order by chatMg_datetime", conn) + cmd.Parameters.AddWithValue("@chat_id", chat_id) + Dim dr = cmd.ExecuteReader() + While dr.Read + Dim MSG As New cMessenger_ChatMessages(dr.Item("chatMg_id")) 'Me.chat_id, dr.Item("chatMb_maId")) 'yxc + Me.CHAT_MESSAGES.Add(MSG) + End While + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + Public Function getUpdateCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim str As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + Return (" UPDATE [tblMessenger_Chat] SET " & str & " WHERE chat_id=@chat_id ") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + Public Function getInsertCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + Dim str As String = "" + Dim values As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "]," + values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + values = values.Substring(0, values.Length - 1) 'wg. ',' + Return (" INSERT INTO tblMessenger_Chat (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + Public Function DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM [tblMessenger_Chat] WHERE chat_id=" & Me.chat_id + Return SQL.doSQL(sqlstr, "ADMIN") + End Function + + + End Class + + Public Class cMessenger_ChatMembers + + Property chatMb_chatId As Integer = -1 + Property chatMb_maId As Integer = -1 + Property chatMb_beitritt As Date = Now + + Dim SQL As New SQL + + + + Sub New(chatMb_chatId, chatMb_maId) + Me.chatMb_chatId = chatMb_chatId + Me.chatMb_maId = chatMb_maId + Me.chatMb_beitritt = Now + End Sub + + Public Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chatMb_chatId", chatMb_chatId)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chatMb_maId", chatMb_maId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chatMb_beitritt", chatMb_beitritt)) + + Return list + End Function + + + + Public Function SAVE() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM [tblMessenger_ChatMembers] WHERE chatMb_chatId=@chatMb_chatId AND chatMb_maId=@chatMb_maId) " & + " BEGIN " & getUpdateCmd() & " END " & + " Else " & + " BEGIN " & getInsertCmd() & " END " & + " commit tran " + + Return SQL.doSQLVarList(sqlstr, "ADMIN", , list) + End Function + + Public Sub LOAD() + Try + Using conn As SqlConnection = SQL.GetNewOpenConnectionADMIN() + Using cmd As New SqlCommand("SELECT * FROM [tblMessenger_ChatMembers] WHERE chatMb_chatId=@chatMb_chatId AND chatMb_maId=@chatMb_maId ", conn) + cmd.Parameters.AddWithValue("@chatMb_chatId", chatMb_chatId) + cmd.Parameters.AddWithValue("@chatMb_maId", chatMb_maId) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(l.Text)) + End If + + Next + + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + + Public Function getUpdateCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim str As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + Return (" UPDATE [tblMessenger_ChatMembers] SET " & str & " WHERE chatMb_chatId=@chatMb_chatId AND chatMb_maId=@chatMb_maId ") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + Public Function getInsertCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + Dim str As String = "" + Dim values As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "]," + values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + values = values.Substring(0, values.Length - 1) 'wg. ',' + Return (" INSERT INTO [tblMessenger_ChatMembers] (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + Public Function DELETE([chatMb_maId]) As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM [tblMessenger_ChatMembers] WHERE [chatMb_chatId]=" & Me.[chatMb_chatId] & " AND [chatMb_maId] ='" & [chatMb_maId] & "'" + Return SQL.doSQL(sqlstr, "ADMIN") + End Function + + + End Class + + Public Class cMessenger_ChatStatus + + Property chatMgSt_chatMsgId As Integer + Property chatMgSt_MaId As Integer + Property chatMgSt_gelesen As Boolean = False + Property chatMgSt_datetime As Date = Now + + Dim SQL As New SQL + + + Sub New(chatMgSt_chatMsgId, chatMgSt_MaId, chatMgSt_gelesen) + Me.chatMgSt_chatMsgId = chatMgSt_chatMsgId + Me.chatMgSt_MaId = chatMgSt_MaId + Me.chatMgSt_gelesen = chatMgSt_gelesen + Me.chatMgSt_datetime = Now + End Sub + + Public Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chatMgSt_chatMsgId", chatMgSt_chatMsgId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chatMgSt_MaId", chatMgSt_MaId)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chatMgSt_gelesen", chatMgSt_gelesen)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chatMgSt_datetime", chatMgSt_datetime)) + + Return list + End Function + + + + Public Function SAVE() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblMessenger_ChatMessages WHERE chatMgSt_chatMsgId=@chatMgSt_chatMsgId AND chatMgSt_MaId=@chatMgSt_MaId) " & + " BEGIN " & getUpdateCmd() & " END " & + " Else " & + " BEGIN " & getInsertCmd() & " END " & + " commit tran " + + Return SQL.doSQLVarList(sqlstr, "ADMIN", , list) + End Function + + Public Sub LOAD() + Try + Using conn As SqlConnection = SQL.GetNewOpenConnectionADMIN() + Using cmd As New SqlCommand("SELECT * FROM tblMessenger_ChatMessages WHERE chatMgSt_chatMsgId=@chatMgSt_chatMsgId AND chatMgSt_MaId=@chatMgSt_MaId ", conn) + cmd.Parameters.AddWithValue("@chatMgSt_chatMsgId", chatMgSt_chatMsgId) + cmd.Parameters.AddWithValue("@chatMgSt_MaId", chatMgSt_MaId) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(l.Text)) + End If + + Next + + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + + Public Function getUpdateCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim str As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + Return (" UPDATE tblMessenger_ChatMessages SET " & str & " WHERE chatMgSt_chatMsgId=@chatMgSt_chatMsgId AND chatMgSt_MaId=@chatMgSt_MaId ") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + Public Function getInsertCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + Dim str As String = "" + Dim values As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "]," + values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + values = values.Substring(0, values.Length - 1) 'wg. ',' + Return (" INSERT INTO tblMessenger_ChatMessages (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + Public Function DELETE([chatMgSt_MaId]) As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM tblMessenger_ChatMessages WHERE [chatMgSt_chatMsgId]=" & Me.chatMgSt_chatMsgId & " AND [chatMgSt_MaId] ='" & chatMgSt_MaId & "'" + Return SQL.doSQL(sqlstr, "ADMIN") + End Function + + + End Class + + + Public Class cMessenger_ChatMessages + + Property chatMg_id As Integer ' INT Not NULL PRIMARY KEY IDENTITY, + + Property chatMg_chatId As Integer ' INT Not NULL, + Property chatMg_maId As Integer ' INT Not NULL, + Property chatMg_datetime As Date = Now + Property chatMg_maName As String = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.Fullname + Property chatMg_maFirma As String = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + Property chatMg_type As String = "TEXT" + Property chatMg_text As String = "" + Property chatMg_anhang_docId As Integer ' int NULL, + Property chatMg_referenz_AvisoId As Integer ' int NULL, + Property chatMg_referenz_SendungsId As Integer ' int NULL, + Property chatMg_referenz_KundenNr As Integer ' int NULL + + Public CHAT_MESSAGES_STATUS_LIST As New List(Of cMessenger_ChatMessageStatus) + + Dim SQL As New SQL + + + Sub New(chatMg_id) + Me.chatMg_id = chatMg_id + LOAD() + End Sub + Sub New(chatMg_chatId, chatMg_maId) + Me.chatMg_chatId = chatMg_chatId + Me.chatMg_maId = chatMg_maId + End Sub + + Public Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chatMg_id", chatMg_id,, True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chatMg_maId", chatMg_maId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chatMg_chatId", chatMg_chatId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chatMg_datetime", chatMg_datetime)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chatMg_type", chatMg_type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chatMg_text", chatMg_text)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chatMg_anhang_docId", chatMg_anhang_docId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chatMg_referenz_AvisoId", chatMg_referenz_AvisoId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chatMg_referenz_SendungsId", chatMg_referenz_SendungsId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chatMg_referenz_KundenNr", chatMg_referenz_KundenNr)) + + Return list + End Function + + + + Public Function SAVE() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblMessenger_ChatMessages WHERE chatMg_id=@chatMg_id) " & + " BEGIN " & getUpdateCmd() & " END " & + " Else " & + " BEGIN " & getInsertCmd() & " END " & + " commit tran " + + Return SQL.doSQLVarList(sqlstr, "ADMIN", , list) + End Function + + Public Sub LOAD() + Try + Using conn As SqlConnection = SQL.GetNewOpenConnectionADMIN() + Using cmd As New SqlCommand("SELECT * FROM tblMessenger_ChatMessages WHERE chatMg_id=@chatMg_id ", conn) + cmd.Parameters.AddWithValue("@chatMg_id", chatMg_id) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(l.Text)) + End If + + Next + + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + + Public Function getUpdateCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim str As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + Return (" UPDATE tblMessenger_ChatMessages SET " & str & " WHERE chatMg_id=@chatMg_id ") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + Public Function getInsertCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + Dim str As String = "" + Dim values As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "]," + values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + values = values.Substring(0, values.Length - 1) 'wg. ',' + Return (" INSERT INTO tblMessenger_ChatMessages (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + Public Function DELETE([chatMgSt_MaId]) As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM tblMessenger_ChatMessages WHERE [chatMg_id]=" & Me.chatMg_id & " " + Return SQL.doSQL(sqlstr, "ADMIN") + End Function + + 'Public Sub SAVE_STATUS() + ' Try + ' Dim CHAT As New cMessenger_Chat(Me.chatMg_chatId) + ' 'DELETE_STATUS() + ' For Each MB In CHAT.CHAT_MEMBERS + ' Dim STAT As New cMessenger_ChatMessageStatus(Me.chatMg_id, MB.chatMb_maId) + ' MB.chatMb_chatId = Me.chat_id + ' MB.SAVE() + ' Next + ' Catch ex As Exception + ' MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + ' End Try + 'End Sub + 'Public Function DELETE_MEMBERS() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + ' Dim sqlstr = " DELETE FROM [tblMessenger_ChatMessageStatus] WHERE chatMb_chatId=" & Me.chat_id + ' Return SQL.doSQL(sqlstr, "ADMIN") + 'End Function + Public Sub LOAD_STATUS() + Try + Me.CHAT_MESSAGES_STATUS_LIST.Clear() + Using conn As SqlConnection = SQL.GetNewOpenConnectionADMIN() + Using cmd As New SqlCommand("SELECT * FROM tblMessenger_ChatMessageStatus WHERE chatMgSt_chatMsgId=@chatMg_id ", conn) + cmd.Parameters.AddWithValue("@chatMg_id", Me.chatMg_id) + Dim dr = cmd.ExecuteReader() + While dr.Read + Dim MB As New cMessenger_ChatMessageStatus(Me.chatMg_id, dr.Item("chatMgSt_MaId")) + Me.CHAT_MESSAGES_STATUS_LIST.Add(MB) + End While + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + End Class + + + + + Public Class cMessenger_ChatMessageStatus + + Property chatMgSt_chatMsgId As Integer + Property chatMgSt_MaId As Integer + Property chatMgSt_datetime As Date = Now + Property chatMgSt_gelesen As Boolean = False + + Dim SQL As New SQL + + + Sub New(chatMgSt_chatMsgId, chatMgSt_MaId) + Me.chatMgSt_chatMsgId = chatMgSt_chatMsgId + Me.chatMgSt_MaId = chatMgSt_MaId + LOAD() + End Sub + Sub New(chatMgSt_chatMsgId, chatMgSt_MaId, chatMgSt_gelesen) + Me.chatMgSt_chatMsgId = chatMgSt_chatMsgId + Me.chatMgSt_MaId = chatMgSt_MaId + Me.chatMgSt_gelesen = chatMgSt_gelesen + End Sub + + Public Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chatMgSt_chatMsgId", chatMgSt_chatMsgId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chatMgSt_MaId", chatMgSt_MaId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chatMgSt_datetime", chatMgSt_datetime)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chatMgSt_gelesen", chatMgSt_gelesen)) + + Return list + End Function + + + + Public Function SAVE() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblMessenger_ChatMessageStatus WHERE chatMgSt_chatMsgId=@chatMgSt_chatMsgId AND chatMgSt_MaId=@chatMgSt_MaId) " & + " BEGIN " & getUpdateCmd() & " END " & + " Else " & + " BEGIN " & getInsertCmd() & " END " & + " commit tran " + + Return SQL.doSQLVarList(sqlstr, "ADMIN", , list) + End Function + + Public Sub LOAD() + Try + Using conn As SqlConnection = SQL.GetNewOpenConnectionADMIN() + Using cmd As New SqlCommand("SELECT * FROM tblMessenger_ChatMessageStatus WHERE chatMgSt_chatMsgId=@chatMgSt_chatMsgId AND chatMgSt_MaId=@chatMgSt_MaId ", conn) + cmd.Parameters.AddWithValue("@chatMgSt_chatMsgId", chatMgSt_chatMsgId) + cmd.Parameters.AddWithValue("@chatMgSt_MaId", chatMgSt_MaId) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(l.Text)) + End If + + Next + + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + + Public Function getUpdateCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim str As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + Return (" UPDATE tblMessenger_ChatMessageStatus SET " & str & " WHERE chatMgSt_chatMsgId=@chatMgSt_chatMsgId AND chatMgSt_MaId=@chatMgSt_MaId ") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + Public Function getInsertCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + Dim str As String = "" + Dim values As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "]," + values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + values = values.Substring(0, values.Length - 1) 'wg. ',' + Return (" INSERT INTO tblMessenger_ChatMessageStatus (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + Public Function DELETE([chatMgSt_MaId]) As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM tblMessenger_ChatMessageStatus WHERE [chatMgSt_chatMsgId]=" & Me.chatMgSt_chatMsgId & " AND [chatMgSt_MaId]=" & Me.chatMgSt_MaId & " " + Return SQL.doSQL(sqlstr, "ADMIN") + End Function + + End Class + +End Class diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb b/VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb index 9860ef79..9e845792 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb @@ -36,6 +36,7 @@ Public Class cMitarbeiter Property mit_FMZollPersIDSpedBuch As Object = Nothing Property mit_DpUserStandardDP As Object = Nothing Property mit_DpUserStandardFirma As Object = Nothing + Property mit_DpUserStandardFirma2 As Object = Nothing Property mit_EZOLL_SB As Object = Nothing Property mit_ATLAS_SB As Object = Nothing @@ -63,6 +64,11 @@ Public Class cMitarbeiter End Sub ' Dim SQL As New SQL + Public Function Fullname() As String + Return (If(mit_vname, "") & " " & If(mit_nname, "")).Trim + End Function + + Public Function LOAD(ByVal id As Integer) As Boolean Dim sqlstr As String = "SELECT * FROM tblMitarbeiter WHERE mit_id = " & id & "" ' adasdas() @@ -100,6 +106,8 @@ Public Class cMitarbeiter If Not dr.Item("mit_FMZollPersIDSpedBuch") Is DBNull.Value Then Me.mit_FMZollPersIDSpedBuch = dr.Item("mit_FMZollPersIDSpedBuch") If Not dr.Item("mit_DpUserStandardDP") Is DBNull.Value Then Me.mit_DpUserStandardDP = dr.Item("mit_DpUserStandardDP") If Not dr.Item("mit_DpUserStandardFirma") Is DBNull.Value Then Me.mit_DpUserStandardFirma = dr.Item("mit_DpUserStandardFirma") + If Not dr.Item("mit_DpUserStandardFirma2") Is DBNull.Value Then Me.mit_DpUserStandardFirma2 = dr.Item("mit_DpUserStandardFirma2") + If Not dr.Item("mit_standartFiliale") Is DBNull.Value Then Me.mit_standartFiliale = dr.Item("mit_standartFiliale") If Not dr.Item("mit_standardPreisliste") Is DBNull.Value Then Me.mit_standardPreisliste = dr.Item("mit_standardPreisliste") diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cOfferte.vb b/VERAG_PROG_ALLGEMEIN/Classes/cOfferte.vb index e51c931b..08ac316e 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cOfferte.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cOfferte.vb @@ -117,8 +117,8 @@ Public Class cOfferte cmd.Parameters.AddWithValue("@OffertenNr", OffertenNr) Dim dr = cmd.ExecuteReader() If dr.Read Then - Dim l As New cOfferte - For Each i In l.getParameterList() + 'Dim l As New cOfferte + For Each i In getParameterList() Dim propInfo As PropertyInfo = Me.GetType.GetProperty(i.Scalarvariable) If dr.Item(i.Text) Is DBNull.Value Then propInfo.SetValue(Me, Nothing) @@ -126,7 +126,7 @@ Public Class cOfferte propInfo.SetValue(Me, dr.Item(i.Text)) End If Next - If loadPos Then l.LOAD_POSITIONEN() + If loadPos Then LOAD_POSITIONEN() End If dr.Close() End Using diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb b/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb index 88bbde47..6a2f3d7b 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb @@ -100,6 +100,9 @@ Public Class cRechnungsausgang Property EMailRechnungstext As Object = Nothing Property AvisoID As Object = Nothing Property KdAuftragsNr As Object = Nothing + Property Handling As Object = Nothing + + ' FROM [VERAG as object=nothing.[dbo as object=nothing.[Rechnungsausgang as object=nothing @@ -226,7 +229,8 @@ Public Class cRechnungsausgang list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Avisierer", Avisierer)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EMailRechnungstext", EMailRechnungstext)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AvisoID", AvisoID)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KdAuftragsNr", KdAuftragsNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KdAuftragsNr", KdAuftragsNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Handling", Handling)) Return list End Function diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb b/VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb index b5105438..856d18a5 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb @@ -73,6 +73,17 @@ Public Class cSendungen Property LetzterMitarbeiter As Object = Nothing Property LetzterMitarbeiterId As Object = Nothing Property tblSnd_VG_MA As Object = Nothing + Property tblSnd_NCTSaufDISPO As Boolean = True + + Property tblSnd_AvisiererKdNr As Object = Nothing + Property tblSnd_Avisierer As Object = Nothing + Property tblSnd_FrachtfuehrerKdNr As Object = Nothing + Property tblSnd_Frachtfuehrer As Object = Nothing + Property tblSnd_DakosyRef As Object = Nothing + Property tblSnd_TeamId As Object = Nothing + + + Public saveSachbearbeiter As Boolean = False Property ABRECHNUNG As New List(Of cSendungAbrechnung) Property HANDLING As New List(Of cSendHandling) @@ -145,10 +156,6 @@ Public Class cSendungen - - - - Public Function SAVE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() @@ -225,7 +232,7 @@ Public Class cSendungen Me.NCTS_ngaId = SQL.checkNullReturnValue(dr.Item("NCTS_ngaId"), Nothing) Me.NCTS_Bestimmungszollstelle = SQL.checkNullReturnValue(dr.Item("NCTS_Bestimmungszollstelle"), Nothing) - + Me.tblSnd_Endempfaenger = SQL.checkNullReturnValue(dr.Item("tblSnd_Endempfaenger"), Nothing) Me.tblSnd_EndempfaengerKdNr = SQL.checkNullReturnValue(dr.Item("tblSnd_EndempfaengerKdNr"), Nothing) Me.tblSnd_EUFiskalEmpfaenger = SQL.checkNullReturnValue(dr.Item("tblSnd_EUFiskalEmpfaenger"), Nothing) @@ -249,8 +256,17 @@ Public Class cSendungen Me.LetzterMitarbeiter = SQL.checkNullReturnValue(dr.Item("LetzterMitarbeiter"), Nothing) Me.LetzterMitarbeiterId = SQL.checkNullReturnValue(dr.Item("LetzterMitarbeiterId"), Nothing) Me.tblSnd_VG_MA = SQL.checkNullReturnValue(dr.Item("tblSnd_VG_MA"), Nothing) + Me.tblSnd_NCTSaufDISPO = SQL.checkNullReturnValue(dr.Item("tblSnd_NCTSaufDISPO"), Nothing) + + Me.tblSnd_AvisiererKdNr = SQL.checkNullReturnValue(dr.Item("tblSnd_AvisiererKdNr"), Nothing) + Me.tblSnd_Avisierer = SQL.checkNullReturnValue(dr.Item("tblSnd_Avisierer"), Nothing) + Me.tblSnd_FrachtfuehrerKdNr = SQL.checkNullReturnValue(dr.Item("tblSnd_FrachtfuehrerKdNr"), Nothing) + Me.tblSnd_Frachtfuehrer = SQL.checkNullReturnValue(dr.Item("tblSnd_Frachtfuehrer"), Nothing) + Me.tblSnd_DakosyRef = SQL.checkNullReturnValue(dr.Item("tblSnd_DakosyRef"), Nothing) + Me.tblSnd_TeamId = SQL.checkNullReturnValue(dr.Item("tblSnd_TeamId"), Nothing) End If + dr.Close() ' End Using @@ -365,7 +381,6 @@ Public Class cSendungen ' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_betrag", tblSnd_betrag)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Fremdspedition", tblSnd_Fremdspedition)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_FremdspeditionText", tblSnd_FremdspeditionText)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_QS_MA", tblSnd_QS_MA)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_KdAuftragsNr", tblSnd_KdAuftragsNr)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_NCTSVerzollungsadresse", tblSnd_NCTSVerzollungsadresse)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_NCTSVerzollungsadresseKdNr", tblSnd_NCTSVerzollungsadresseKdNr)) @@ -394,12 +409,24 @@ Public Class cSendungen list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_ATCMRN_Fremd", tblSnd_ATCMRN_Fremd)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Warenwert", tblSnd_Warenwert)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_WarenwertWaehrung", tblSnd_WarenwertWaehrung)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Status", tblSnd_Status)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Vorbereitet", tblSnd_Vorbereitet)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Vorgeschrieben", tblSnd_Vorgeschrieben)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LetzterMitarbeiter", LetzterMitarbeiter)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LetzterMitarbeiterId", LetzterMitarbeiterId)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_VG_MA", tblSnd_VG_MA)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_QS_MA", tblSnd_QS_MA,,, Not saveSachbearbeiter)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Status", tblSnd_Status,,, Not saveSachbearbeiter)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Vorbereitet", tblSnd_Vorbereitet,,, Not saveSachbearbeiter)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Vorgeschrieben", tblSnd_Vorgeschrieben,,, Not saveSachbearbeiter)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_VG_MA", tblSnd_VG_MA,,, Not saveSachbearbeiter)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LetzterMitarbeiter", LetzterMitarbeiter,,, Not saveSachbearbeiter)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LetzterMitarbeiterId", LetzterMitarbeiterId,,, Not saveSachbearbeiter)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_NCTSaufDISPO", tblSnd_NCTSaufDISPO)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_AvisiererKdNr", tblSnd_AvisiererKdNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Avisierer", tblSnd_Avisierer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_FrachtfuehrerKdNr", tblSnd_FrachtfuehrerKdNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Frachtfuehrer", tblSnd_Frachtfuehrer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_DakosyRef", tblSnd_DakosyRef)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_TeamId", tblSnd_TeamId)) Return list @@ -412,7 +439,7 @@ Public Class cSendungen Dim str As String = "" For Each i In list - If Not i.isPrimaryParam Then + If Not i.isPrimaryParam And Not i.isonlyForLoad Then str &= "[" & i.Text & "] = @" & i.Text.Replace("-", "").Replace(" ", "") & "," End If Next @@ -432,7 +459,7 @@ Public Class cSendungen Dim str As String = "" Dim values As String = "" For Each i In list - If Not i.isPrimaryParam Then + If Not i.isPrimaryParam And Not i.isonlyForLoad Then str &= "[" & i.Text & "]," values &= "@" & i.Text.Replace("-", "").Replace(" ", "") & "," End If diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cSession.vb b/VERAG_PROG_ALLGEMEIN/Classes/cSession.vb index aa58522c..fa6d54bb 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cSession.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cSession.vb @@ -14,6 +14,10 @@ Public Class cSession Property sess_firma As String = "" Property sess_niederlassung As String = "" + Property sess_ipAddress As String = "" + Property sess_PCName As String = "" + Property sess_PCUserName As String = "" + Property sess_login As Object = Nothing = Now Property sess_logout As Object = Nothing @@ -37,6 +41,9 @@ Public Class cSession list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sess_progVersion", sess_progVersion)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sess_firma", sess_firma)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sess_niederlassung", sess_niederlassung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sess_ipAddress", sess_ipAddress)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sess_PCName", sess_PCName)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sess_PCUserName", sess_PCUserName)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sess_maName", sess_maName)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sess_maId", sess_maId)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sess_login", sess_login)) @@ -108,6 +115,12 @@ Public Class cSession End Function + + Public Shared Function GET_IP_FROM_MAID(sess_maId) As String + Dim SQL As New SQL + Return SQL.getValueTxtBySql(" SELECT TOP 1 isnull(sess_ipaddress,'') as sess_ipaddress FROM [tblSessions] where sess_lastRm > DATEADD(SECOND,-70, GETDATE()) AND sess_maId=" & sess_maId, "ADMIN") + End Function + Public Function LOGIN() As String Me.sess_system = (If(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "T", "E")) Me.sess_login = Now @@ -115,6 +128,12 @@ Public Class cSession Me.sess_maName = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME Me.sess_firma = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Me.sess_niederlassung = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG + Try + Me.sess_ipAddress = System.Net.Dns.GetHostByName(System.Net.Dns.GetHostName()).AddressList(0).ToString() + Me.sess_PCName = System.Environment.MachineName + Me.sess_PCUserName = My.User.Name.ToString + Catch ex As Exception + End Try Me.sess_lastRm = Now Me.sess_progId = Nothing Me.sess_progName = VERAG_PROG_ALLGEMEIN.cAllgemein.PROGNAME diff --git a/VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb b/VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb index 62e74875..fa737a4a 100644 --- a/VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb +++ b/VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb @@ -192,7 +192,8 @@ Public Class cDATENSERVER Public Function replaceInvalidCahr(ByRef s) s = s.replace("Ä°", "I") s = s.replace("ı", "i") - + s = s.replace("€", "E") + s = s.replace(",", ".") Dim tempBytes = System.Text.Encoding.GetEncoding("ISO-8859-8").GetBytes(s) @@ -1060,7 +1061,6 @@ Public Class cFormularManager End If 'Dim docs As Spire.Pdf.PdfDocument() = {New Spire.Pdf.PdfDocument("C:\Users\DEVELOPER1\Desktop\Agrotel.pdf")} - 'For Each doc As Spire.Pdf.PdfDocument In docs For Each pdfPath In PDFFile Dim doc As New Spire.Pdf.PdfDocument(pdfPath) @@ -1071,10 +1071,48 @@ Public Class cFormularManager doc.PrintDocument.Print() Next + Catch ex As Exception MsgBox(ex.Message & ex.StackTrace) End Try End Sub + + + Public Shared Sub Print_PICTURE(File As String(), Optional printerName As String = "") + Try + If printerName = "" Then + Dim oPS As New System.Drawing.Printing.PrinterSettings + printerName = oPS.PrinterName + End If + 'Dim docs As Spire.Pdf.PdfDocument() = {New Spire.Pdf.PdfDocument("C:\Users\DEVELOPER1\Desktop\Agrotel.pdf")} + + + + + + + + For Each pdfPath In File + + Dim printer As PrintDocument = New PrintDocument + AddHandler printer.PrintPage, Sub(snd As Object, ev As PrintPageEventArgs) + Dim img As Image = Image.FromFile(pdfPath) + ev.Graphics.DrawImage(img, ev.PageBounds) + End Sub + ' printer.PrinterSettings.DefaultPageSettings.PrintableArea. + printer.Print() + 'Dim PrintDocument1 As PrintDocument = New PrintDocument + 'PrintDocument1.DocumentName = pdfPath + ''PrintDialog1.Document = PrintDocument1 + ''PrintDocument1.PrinterSettings. + 'PrintDocument1.Print() + + Next + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + End Sub + Public Shared Sub PrintViaSpirePDF_FromURL(URLs As String(), Optional printerName As String = "") Try If printerName = "" Then diff --git a/VERAG_PROG_ALLGEMEIN/DATENSERVER/frmVorlagenUpload.vb b/VERAG_PROG_ALLGEMEIN/DATENSERVER/frmVorlagenUpload.vb index 30f68896..977867e4 100644 --- a/VERAG_PROG_ALLGEMEIN/DATENSERVER/frmVorlagenUpload.vb +++ b/VERAG_PROG_ALLGEMEIN/DATENSERVER/frmVorlagenUpload.vb @@ -24,6 +24,7 @@ txtUnterordner2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG", "")) txtUnterordner2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IMEX", "IMEX")) txtUnterordner2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATILLA", "ATILLA")) + txtUnterordner2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED", "UNISPED")) txtUnterordner2.SelectedIndex = 0 End Sub End Class \ No newline at end of file diff --git a/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.Designer.vb b/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.Designer.vb new file mode 100644 index 00000000..f0647fbb --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.Designer.vb @@ -0,0 +1,365 @@ +Imports System.Windows.Forms + + +Partial Class frmMessenger + Inherits System.Windows.Forms.Form + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMessenger)) + Me.SplitContainer = New System.Windows.Forms.SplitContainer() + Me.btnTEST = New System.Windows.Forms.Button() + Me.Panel1 = New System.Windows.Forms.Panel() + Me.lbl = New System.Windows.Forms.Label() + Me.Button2 = New System.Windows.Forms.Button() + Me.Button1 = New System.Windows.Forms.Button() + Me.SplitContainer1 = New System.Windows.Forms.SplitContainer() + Me.pnl = New System.Windows.Forms.Panel() + Me.Button4 = New System.Windows.Forms.Button() + Me.Button3 = New System.Windows.Forms.Button() + Me.btn = New System.Windows.Forms.Button() + Me.rtbChatMessage = New System.Windows.Forms.RichTextBox() + Me.dgvChats = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.MyFlowLayoutPanel1 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel(Me.components) + Me.UsrCntlMessenger_ChatElement1 = New VERAG_PROG_ALLGEMEIN.usrCntlMessenger_ChatElement() + Me.UsrCntlMessenger_ChatAnhang1 = New VERAG_PROG_ALLGEMEIN.usrCntlMessenger_ChatAnhang() + Me.UsrCntlMessenger_ChatElement2 = New VERAG_PROG_ALLGEMEIN.usrCntlMessenger_ChatElement() + Me.UsrCntlMessenger_ChatElement3 = New VERAG_PROG_ALLGEMEIN.usrCntlMessenger_ChatElement() + Me.TimerNEW_MESSAGE = New System.Windows.Forms.Timer(Me.components) + CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitContainer.Panel1.SuspendLayout() + Me.SplitContainer.Panel2.SuspendLayout() + Me.SplitContainer.SuspendLayout() + Me.Panel1.SuspendLayout() + CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitContainer1.Panel1.SuspendLayout() + Me.SplitContainer1.Panel2.SuspendLayout() + Me.SplitContainer1.SuspendLayout() + Me.pnl.SuspendLayout() + CType(Me.dgvChats, System.ComponentModel.ISupportInitialize).BeginInit() + Me.MyFlowLayoutPanel1.SuspendLayout() + Me.SuspendLayout() + ' + 'SplitContainer + ' + Me.SplitContainer.Dock = System.Windows.Forms.DockStyle.Fill + Me.SplitContainer.Location = New System.Drawing.Point(0, 0) + Me.SplitContainer.Name = "SplitContainer" + ' + 'SplitContainer.Panel1 + ' + Me.SplitContainer.Panel1.Controls.Add(Me.btnTEST) + Me.SplitContainer.Panel1.Controls.Add(Me.dgvChats) + Me.SplitContainer.Panel1.Controls.Add(Me.Panel1) + ' + 'SplitContainer.Panel2 + ' + Me.SplitContainer.Panel2.Controls.Add(Me.SplitContainer1) + Me.SplitContainer.Size = New System.Drawing.Size(817, 596) + Me.SplitContainer.SplitterDistance = 272 + Me.SplitContainer.TabIndex = 0 + ' + 'btnTEST + ' + Me.btnTEST.BackColor = System.Drawing.Color.Red + Me.btnTEST.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnTEST.ForeColor = System.Drawing.Color.White + Me.btnTEST.Location = New System.Drawing.Point(91, 511) + Me.btnTEST.Name = "btnTEST" + Me.btnTEST.Size = New System.Drawing.Size(71, 33) + Me.btnTEST.TabIndex = 4 + Me.btnTEST.Text = "!" + Me.btnTEST.UseVisualStyleBackColor = False + Me.btnTEST.Visible = False + ' + 'Panel1 + ' + Me.Panel1.BackColor = System.Drawing.Color.White + Me.Panel1.Controls.Add(Me.lbl) + Me.Panel1.Controls.Add(Me.Button2) + Me.Panel1.Controls.Add(Me.Button1) + Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top + Me.Panel1.Location = New System.Drawing.Point(0, 0) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(272, 42) + Me.Panel1.TabIndex = 1 + ' + 'lbl + ' + Me.lbl.AutoSize = True + Me.lbl.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lbl.Location = New System.Drawing.Point(12, 11) + Me.lbl.Name = "lbl" + Me.lbl.Size = New System.Drawing.Size(127, 20) + Me.lbl.TabIndex = 3 + Me.lbl.Text = "AVISO - CHAT" + ' + 'Button2 + ' + Me.Button2.BackColor = System.Drawing.Color.MediumSeaGreen + Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button2.ForeColor = System.Drawing.Color.White + Me.Button2.Location = New System.Drawing.Point(198, 4) + Me.Button2.Name = "Button2" + Me.Button2.Size = New System.Drawing.Size(71, 33) + Me.Button2.TabIndex = 2 + Me.Button2.Text = "+ NEU" + Me.Button2.UseVisualStyleBackColor = False + ' + 'Button1 + ' + Me.Button1.BackColor = System.Drawing.Color.SteelBlue + Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button1.ForeColor = System.Drawing.Color.White + Me.Button1.Location = New System.Drawing.Point(461, 4) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(76, 40) + Me.Button1.TabIndex = 1 + Me.Button1.Text = "Senden" + Me.Button1.UseVisualStyleBackColor = False + ' + 'SplitContainer1 + ' + Me.SplitContainer1.Dock = System.Windows.Forms.DockStyle.Fill + Me.SplitContainer1.Location = New System.Drawing.Point(0, 0) + Me.SplitContainer1.Name = "SplitContainer1" + Me.SplitContainer1.Orientation = System.Windows.Forms.Orientation.Horizontal + ' + 'SplitContainer1.Panel1 + ' + Me.SplitContainer1.Panel1.Controls.Add(Me.MyFlowLayoutPanel1) + ' + 'SplitContainer1.Panel2 + ' + Me.SplitContainer1.Panel2.Controls.Add(Me.pnl) + Me.SplitContainer1.Size = New System.Drawing.Size(541, 596) + Me.SplitContainer1.SplitterDistance = 463 + Me.SplitContainer1.TabIndex = 0 + ' + 'pnl + ' + Me.pnl.BackColor = System.Drawing.Color.White + Me.pnl.Controls.Add(Me.Button4) + Me.pnl.Controls.Add(Me.Button3) + Me.pnl.Controls.Add(Me.btn) + Me.pnl.Controls.Add(Me.rtbChatMessage) + Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnl.Location = New System.Drawing.Point(0, 0) + Me.pnl.Name = "pnl" + Me.pnl.Size = New System.Drawing.Size(541, 129) + Me.pnl.TabIndex = 0 + ' + 'Button4 + ' + Me.Button4.BackColor = System.Drawing.Color.SteelBlue + Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button4.ForeColor = System.Drawing.Color.White + Me.Button4.Location = New System.Drawing.Point(465, 44) + Me.Button4.Name = "Button4" + Me.Button4.Size = New System.Drawing.Size(76, 40) + Me.Button4.TabIndex = 3 + Me.Button4.Text = "Senden" + Me.Button4.UseVisualStyleBackColor = False + ' + 'Button3 + ' + Me.Button3.BackColor = System.Drawing.Color.SteelBlue + Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button3.ForeColor = System.Drawing.Color.White + Me.Button3.Location = New System.Drawing.Point(461, 86) + Me.Button3.Name = "Button3" + Me.Button3.Size = New System.Drawing.Size(76, 40) + Me.Button3.TabIndex = 2 + Me.Button3.Text = "+ Anhang" + Me.Button3.UseVisualStyleBackColor = False + ' + 'btn + ' + Me.btn.BackColor = System.Drawing.Color.SteelBlue + Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btn.ForeColor = System.Drawing.Color.White + Me.btn.Location = New System.Drawing.Point(461, 4) + Me.btn.Name = "btn" + Me.btn.Size = New System.Drawing.Size(76, 40) + Me.btn.TabIndex = 1 + Me.btn.Text = "Senden" + Me.btn.UseVisualStyleBackColor = False + ' + 'rtbChatMessage + ' + Me.rtbChatMessage.Font = New System.Drawing.Font("Comic Sans MS", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.rtbChatMessage.Location = New System.Drawing.Point(3, 3) + Me.rtbChatMessage.Name = "rtbChatMessage" + Me.rtbChatMessage.Size = New System.Drawing.Size(452, 123) + Me.rtbChatMessage.TabIndex = 0 + Me.rtbChatMessage.Text = "" + ' + 'dgvChats + ' + Me.dgvChats.AKTUALISIERUNGS_INTERVALL = -1 + Me.dgvChats.AllowUserToAddRows = False + Me.dgvChats.AllowUserToDeleteRows = False + Me.dgvChats.AllowUserToResizeColumns = False + Me.dgvChats.AllowUserToResizeRows = False + Me.dgvChats.BackgroundColor = System.Drawing.Color.White + DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvChats.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle1 + Me.dgvChats.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvChats.ColumnHeadersVisible = False + DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvChats.DefaultCellStyle = DataGridViewCellStyle2 + Me.dgvChats.Dock = System.Windows.Forms.DockStyle.Fill + Me.dgvChats.Location = New System.Drawing.Point(0, 42) + Me.dgvChats.Name = "dgvChats" + Me.dgvChats.ReadOnly = True + DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvChats.RowHeadersDefaultCellStyle = DataGridViewCellStyle3 + Me.dgvChats.RowHeadersVisible = False + DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.dgvChats.RowsDefaultCellStyle = DataGridViewCellStyle4 + Me.dgvChats.RowTemplate.Height = 30 + Me.dgvChats.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.dgvChats.Size = New System.Drawing.Size(272, 554) + Me.dgvChats.TabIndex = 0 + ' + 'MyFlowLayoutPanel1 + ' + Me.MyFlowLayoutPanel1.AutoScroll = True + Me.MyFlowLayoutPanel1.BackColor = System.Drawing.Color.White + Me.MyFlowLayoutPanel1.Controls.Add(Me.UsrCntlMessenger_ChatElement1) + Me.MyFlowLayoutPanel1.Controls.Add(Me.UsrCntlMessenger_ChatAnhang1) + Me.MyFlowLayoutPanel1.Controls.Add(Me.UsrCntlMessenger_ChatElement2) + Me.MyFlowLayoutPanel1.Controls.Add(Me.UsrCntlMessenger_ChatElement3) + Me.MyFlowLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Fill + Me.MyFlowLayoutPanel1.Location = New System.Drawing.Point(0, 0) + Me.MyFlowLayoutPanel1.Name = "MyFlowLayoutPanel1" + Me.MyFlowLayoutPanel1.Size = New System.Drawing.Size(541, 463) + Me.MyFlowLayoutPanel1.TabIndex = 0 + ' + 'UsrCntlMessenger_ChatElement1 + ' + Me.UsrCntlMessenger_ChatElement1.BackColor = System.Drawing.Color.White + Me.UsrCntlMessenger_ChatElement1.CHAT_MSG = Nothing + Me.UsrCntlMessenger_ChatElement1.Location = New System.Drawing.Point(3, 3) + Me.UsrCntlMessenger_ChatElement1.Name = "UsrCntlMessenger_ChatElement1" + Me.UsrCntlMessenger_ChatElement1.Size = New System.Drawing.Size(378, 48) + Me.UsrCntlMessenger_ChatElement1.TabIndex = 4 + ' + 'UsrCntlMessenger_ChatAnhang1 + ' + Me.UsrCntlMessenger_ChatAnhang1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.UsrCntlMessenger_ChatAnhang1.BackColor = System.Drawing.Color.White + Me.UsrCntlMessenger_ChatAnhang1.BG_COLOR = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + Me.UsrCntlMessenger_ChatAnhang1.Location = New System.Drawing.Point(3, 57) + Me.UsrCntlMessenger_ChatAnhang1.Name = "UsrCntlMessenger_ChatAnhang1" + Me.UsrCntlMessenger_ChatAnhang1.Size = New System.Drawing.Size(378, 72) + Me.UsrCntlMessenger_ChatAnhang1.TabIndex = 3 + ' + 'UsrCntlMessenger_ChatElement2 + ' + Me.UsrCntlMessenger_ChatElement2.BackColor = System.Drawing.Color.White + Me.UsrCntlMessenger_ChatElement2.CHAT_MSG = Nothing + Me.UsrCntlMessenger_ChatElement2.Location = New System.Drawing.Point(3, 135) + Me.UsrCntlMessenger_ChatElement2.Name = "UsrCntlMessenger_ChatElement2" + Me.UsrCntlMessenger_ChatElement2.Size = New System.Drawing.Size(378, 48) + Me.UsrCntlMessenger_ChatElement2.TabIndex = 5 + ' + 'UsrCntlMessenger_ChatElement3 + ' + Me.UsrCntlMessenger_ChatElement3.BackColor = System.Drawing.Color.White + Me.UsrCntlMessenger_ChatElement3.CHAT_MSG = Nothing + Me.UsrCntlMessenger_ChatElement3.Location = New System.Drawing.Point(3, 189) + Me.UsrCntlMessenger_ChatElement3.Name = "UsrCntlMessenger_ChatElement3" + Me.UsrCntlMessenger_ChatElement3.Size = New System.Drawing.Size(378, 48) + Me.UsrCntlMessenger_ChatElement3.TabIndex = 6 + ' + 'TimerNEW_MESSAGE + ' + ' + 'frmMessenger + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(817, 596) + Me.Controls.Add(Me.SplitContainer) + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.Name = "frmMessenger" + Me.Text = "Messenger" + Me.SplitContainer.Panel1.ResumeLayout(False) + Me.SplitContainer.Panel2.ResumeLayout(False) + CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainer.ResumeLayout(False) + Me.Panel1.ResumeLayout(False) + Me.Panel1.PerformLayout() + Me.SplitContainer1.Panel1.ResumeLayout(False) + Me.SplitContainer1.Panel2.ResumeLayout(False) + CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainer1.ResumeLayout(False) + Me.pnl.ResumeLayout(False) + CType(Me.dgvChats, System.ComponentModel.ISupportInitialize).EndInit() + Me.MyFlowLayoutPanel1.ResumeLayout(False) + Me.ResumeLayout(False) + + End Sub + + Friend WithEvents SplitContainer As SplitContainer + Friend WithEvents dgvChats As VERAG_PROG_ALLGEMEIN.MyDatagridview + Friend WithEvents SplitContainer1 As SplitContainer + Friend WithEvents MyFlowLayoutPanel1 As VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel + Friend WithEvents pnl As Panel + Friend WithEvents btn As Button + Friend WithEvents rtbChatMessage As RichTextBox + Friend WithEvents Panel1 As Panel + Friend WithEvents lbl As Label + Friend WithEvents Button2 As Button + Friend WithEvents Button1 As Button + Friend WithEvents UsrCntlMessenger_ChatAnhang1 As usrCntlMessenger_ChatAnhang + Friend WithEvents UsrCntlMessenger_ChatElement1 As usrCntlMessenger_ChatElement + Friend WithEvents Button3 As Button + Friend WithEvents Button4 As Button + Friend WithEvents UsrCntlMessenger_ChatElement2 As usrCntlMessenger_ChatElement + Friend WithEvents UsrCntlMessenger_ChatElement3 As usrCntlMessenger_ChatElement + Friend WithEvents btnTEST As Button + Friend WithEvents TimerNEW_MESSAGE As Timer +End Class diff --git a/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.resx b/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.resx new file mode 100644 index 00000000..78cc47a5 --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.resx @@ -0,0 +1,983 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + + + AAABAAEAgIAAAAEAGAAoyAAAFgAAACgAAACAAAAAAAEAAAEAGAAAAAAAAMgAAMQOAADEDgAAAAAAAAAA + AACRbEd5TB+CWC59USZ8USV9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ8USV9USaCWC55TB+RbEd4Sx5mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB4Sx5/VClmMwBuPg5r + OglrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOgluPg5mMwB/VCl0RhhmMwBmMwBnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFmMwBmMwB0RhhzRBVmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBz + RBV3Sh1mMwBnNQJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBnNQJmMwB3Sh18UCRmMwBqOQdnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFqOQdmMwB8UCR9USZmMwBrOQhn + NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwDm4N3///////// + ///////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////// + //////////////////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwB0SSb39fT/ + //////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////////+YfWtmMwBmMwBm + MwBmMwB0SSbu6+n////////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///// + ///////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5zUy8X////////////////L + v7itmo1mMwBmMwCYfWv///////90SSZmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwBmMwBmMwB0SSb////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDu6+n///////////////////////////////////////////////////////////+j + jH1mMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwC3p5z/ + ///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwCYfWv////////////////Bs6pmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwB0SSb///////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCt + mo3////////////////////////////////////m4N2Mbli3p5z///////+jjH1mMwBmMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwCMblj///////////////////////////+M + blhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////// + ///////////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////+3 + p5xmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDU + y8X///////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////90SSZm + MwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j////////////////////////////////////////////39fTm + 4N3///////+3p5xmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwC3 + p5z////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3 + p5z////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwCjjH3////////////////Lv7hmMwBmMwBmMwBmMwBmMwCAXUL///////////////////90 + SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBm + MwC3p5z////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////////////U + y8WAXUJmMwBmMwC3p5z39fT////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwBmMwDBs6r////////////////u6+n///////////+tmo1mMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////90SSZmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj////////////////m4N1mMwBmMwBmMwBm + MwBmMwC3p5z////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////// + ///////////////////////////////////////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBm + MwBmMwD39fT////////////////Lv7hmMwBmMwBmMwBmMwBmMwCAXULu6+n////////////////39fRm + MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwDm4N3///////////// + //+jjH3////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb///////////// + //////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD3 + 9fT///////////////90SSZmMwBmMwBmMwBmMwDm4N3///////////////+jjH1mMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////////////////////////////// + //////+3p5xmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////+MblhmMwBmMwBmMwBmMwBm + MwBmMwCMblj///////////////////90SSZmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwBmMwBmMwD39fT///////////////9mMwDLv7j///////////+3p5xmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwDm4N3////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+YfWtmMwBmMwBmMwCAXUL///////// + ///////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////// + //////////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwC3p5z///////// + //////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+jjH1mMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwCMblj////////////////m4N1mMwCAXUL39fT/ + ///////39fSAXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////Uy8VmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////// + ///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwDUy8X////////////u6+lmMwBmMwBmMwBmMwCMblj///////////////////90SSZmMwBm + MwBmMwBmMwBmMwBmMwC3p5z///////////////////9mMwBmMwBmMwB0SSb///////////////////// + //////////////+3p5xmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwCjjH3/ + ///////////////Uy8VmMwBmMwC3p5z////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwC3p5z////////////////////////////////////////////////////m4N1mMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwCjjH3////////////////////////////////////////////////////////////d + 1tGMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+tmo1mMwBmMwBmMwCt + mo3////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////////90SSZm + MwBmMwBmMwDm4N3////////////////////////////////Uy8VmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwC3p5z///////////////+3p5xmMwBmMwB0SSb39fT///////////+Y + fWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////////////////////////// + //////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb///////////////////////////// + //////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3 + p5z////////////39fR0SSZmMwBmMwDBs6r////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBm + MwCjjH3///////////////////+jjH1mMwBmMwBmMwDBs6r////////////////////////////////3 + 9fRmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwDUy8X///////////////+t + mo1mMwBmMwBmMwCtmo3////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///// + //////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDu6+n///////////////90SSZmMwBmMwBmMwBmMwBmMwCjjH3m4N3////////////////39fR0SSZm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////+3p5xmMwBmMwDUy8X///////////// + //+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////////Bs6pmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwBmMwDu6+n///////////////+MblhmMwBmMwBmMwBmMwDu6+n///////////+tmo1mMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+YfWtmMwBmMwBmMwBmMwBmMwBm + MwB0SSbu6+n///////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////// + ///39fSAXUJmMwD39fT///////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///// + ///////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////Uy8W3p5y3p5yYfWtmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwB0SSb///////////////////90SSZmMwBmMwBmMwBm + MwCtmo3////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////m4N1m + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////// + //////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j////////////////Bs6pmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDUy8X////////////Lv7h0SSb///////////////////90SSZmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDu + 6+n///////////////+jjH1mMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwCYfWv///// + ///////////u6+lmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////+3p5xmMwBmMwBmMwBmMwBmMwBm + MwBmMwCjjH3///////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwCYfWv////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///// + //////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+tmo3/ + ///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////// + //+YfWtmMwBmMwBmMwBmMwBmMwCtmo3////////////////u6+lmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwC3p5z////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwCYfWv///// + //////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////////+MblhmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////u6+lmMwBm + MwBmMwBmMwBmMwCAXULLv7j///////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwC3p5z////////////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDd1tH///////////////////+3p5x0SSZmMwBmMwC3p5z///////////////////+t + mo1mMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwDLv7j////////////////Bs6pm + MwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/ + //////////////////////////////////////////////////////////90SSZmMwBmMwBmMwBmMwBm + MwBmMwDm4N3////////////////////////////////////////////////////////////Bs6pmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////+3 + p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////// + ///////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwDm4N3///////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+Y + fWtmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////////////////////////// + //////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////// + ///////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCj + jH3///////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwCtmo339fT///////////////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAF0SSb///////////////////+MblhmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDLv7j////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwC3p5z///////////////// + //////////////////////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwC3p5z///// + ///////////////////////////////////////m4N23p5yMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////9mMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH23p5z39fT////////////////Uy8W3 + p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ8UCRmMwBqOQdn + NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBnNAFqOQdmMwB8UCR3Sh1mMwBnNQJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNQJmMwB3Sh1zRBVmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBz + RBV0RhhmMwBmMwBnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFmMwBmMwB0Rhh/VClmMwBuPg5rOglrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOgluPg5mMwB/VCl4Sx5mMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwB4Sx6RbEd5TB+CWC59USZ8USV9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ8USV9USaCWC55TB+RbEf///////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////Bs6rBs6qYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvBs6rBs6r///// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////Uy8WYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvUy8X////////////////////////////////////////B + s6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwCjjH3Bs6rBs6r39fT///////////////////////////////////////////////////////// + ///Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////////////////////////// + ///////////////////////////////////////////////////////////////d1tGMblhmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvm4N3/ + ///////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMbljLv7j///////////////// + ///////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X////////////////////////////d1tFmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwCMbljm4N3////////////////////////////////////////////m4N1mMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwC3p5z///////////////////////////////////////////////////////////// + //////////////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////// + ///////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////// + ///////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////////////// + ///////////////////////////////////////////////////////////////////Bs6pmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwCtmo3///////////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCA + XUL///////////////////////////////////////////////////////////////////////////// + ///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT///////////////// + //+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3///////////////////////////// + //////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///////////////////////////////////////// + //////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwDBs6r///////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDBs6r////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////// + ///////////////////////////////////////////////////////////////////////////d1tFm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6rd1tH////////39fTBs6qAXUJm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////////Lv7hmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////////////Uy8VmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////////////////////////// + //////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/ + //////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd + 1tH////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////// + ///////Uy8XBs6qMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///// + ///////////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////+AXUJmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCtmo3///////////////////////////////////////+AXUJmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwC3p5z////////////////////////////////d1tGMblhmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////9mMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwB0SSb///////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT///////////////////// + ///////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3///////////// + //////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////////////// + //////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb39fT///////////// + //////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDBs6r////////////////////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwCYfWv///////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0 + SSb///////////////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDBs6r///////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwDUy8X///////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///u6+nBs6rBs6rBs6qYfWtmMwBmMwBmMwDu6+n///////////////////////////////////////// + ///Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////+3p5xmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n////////////////////////////////////////u + 6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj////////////////////////Bs6pm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCY + fWv////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////// + //////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDm4N3////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////u6+m3p5xmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3////////////////////m4N1mMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwDBs6r////////////////////////////////////////////d1tFmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////////u6+lmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////////////////Uy8XB + s6p0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////// + //////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3///////////////////////// + //////////////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////// + //////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD///////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////m4N3Bs6qMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDUy8X///////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwCMblj///////////////////////////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwB0SSb///////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwDm4N3///////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////Bs6qAXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb39fT///////////////////////+jjH1m + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb///////////////////////////////////////// + ///////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///////////////////+t + mo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////Lv7hmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/ + ///////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///// + ///////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwDm4N3////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/ + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCAXUL39fT////////////////////////////Uy8VmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////////////////////////90SSZm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////Uy8VmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbm4N3///////////////////// + ///////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////// + //////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///// + ///////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////Bs6pmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCM + bljm4N3///////////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwCjjH3///////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwD39fT///////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////////////////////////+M + blhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////////////////////// + //////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////// + //+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvBs6r///////////////////////// + //////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD///// + //////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwDd1tH///////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDL + v7j///////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////+Mblhm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3Bs6r///// + ///////////////////////////////////////////////////////////////Bs6pmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////////////////////////+AXUJm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////////Bs6pmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwCtmo3Bs6r39fT///////////////////////////////////////////////////////////////// + ///////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////// + ///////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///// + ///////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwB0SSbLv7j///////////////////////////////////////////////// + ///////////////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwC3p5z////////////////////////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwB0SSb////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwCAXUL///////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbu6+n///////////////////// + //////////////////////////////////////////////////////////////////////////////// + //90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////////////////// + //////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////////// + //////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwC3p5z////////////////////////////////////39fRmMwBmMwB0SSbBs6rBs6r39fT///////// + //////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL/ + ///////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDBs6r///////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDm4N3///////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////////////39fRmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////////////////////////////Bs6pm + MwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3Bs6rBs6r///////////////////////////+3p5xmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT////////////////////////////39fSMblhmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////////+3p5xmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////// + ///////////////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD///////// + ///////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////// + ///////////u6+mMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////// + ///////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////+jjH1mMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCjjH3////////////////////////u6+mAXUJmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwCYfWv////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDLv7j////////////////Uy8W3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDd1tH////////////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwCYfWv///////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMbljBs6r////////d1tG3 + p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////// + ///39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////////////////// + ///////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb///////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCM + blj///////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbu6+n/ + //////////////////////////////////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwD39fT///////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////////////////////L + v7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////////////////+YfWtmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////////////////+jjH1m + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////// + //////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////// + //////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////////39fSAXUJmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwCYfWv////////////////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDB + s6r////////////////////////////////////////////////////////Lv7hmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////u6+mMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////////////////////////// + ///////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwB0SSbUy8X///////////////////////////////////////////////// + ///////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////+jjH1mMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////////// + ///////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbBs6r///////////////////////// + ///////////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwB0SSb///////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////d1tGYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwDBs6r39fT///////////////////////////////////////////////////////////+AXUJm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXULBs6rBs6rm4N3/ + //////////////////////////////////////////////////////////////////////////////+A + XUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD///////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////39fTBs6rBs6pmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCjjH3Bs6rUy8X///////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA== + + + \ No newline at end of file diff --git a/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.vb b/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.vb new file mode 100644 index 00000000..9b06263c --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.vb @@ -0,0 +1,211 @@ +Imports System.Drawing +Imports System.Threading +Imports System.Windows.Forms + +Public Class frmMessenger + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + Dim CHAT As VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_Chat = Nothing + Dim MSG_LISTENDER As New cMessangerListender + + Public Sub New() + + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + + End Sub + + Private Sub MyDatagridview1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvChats.CellContentClick + + End Sub + + Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click + Dim f As New frmMessenger_NeuerChat + f.ShowDialog(Me) + End Sub + + Private Sub frmMessenger_Load(sender As Object, e As EventArgs) Handles Me.Load + MSG_LISTENDER.START() + + intiDGVChats() + TimerNEW_MESSAGE.Enabled = True + End Sub + + Sub intiDGVChats() + With dgvChats + + .DataSource = SQL.loadDgvBySql("SELECT [chat_id],chat_name FROM [tblMessenger_Chat] WHERE [chat_aktiv]=1 AND (SELECT COUNT(*) FROM tblMessenger_ChatMembers WHERE chatMB_chatId=chat_id AND chatMB_maId=" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & ")>0", "ADMIN") + If .Columns.Count = 0 Then Exit Sub + + .Columns("chat_id").Visible = False + .Columns("chat_name").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill + + End With + End Sub + Private Sub dgvChats_SelectionChanged(sender As Object, e As EventArgs) Handles dgvChats.SelectionChanged + MyFlowLayoutPanel1.Controls.Clear() + If dgvChats.SelectedRows.Count > 0 Then + CHAT = New VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_Chat(dgvChats.SelectedRows(0).Cells("chat_id").Value) + RELOAD_CHAT() + End If + End Sub + + Sub RELOAD_CHAT() + MyFlowLayoutPanel1.Controls.Clear() + If CHAT IsNot Nothing Then + ' CHAT = New VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_Chat(dgvChats.SelectedRows(0).Cells("chat_id").Value) + For Each MSG In CHAT.CHAT_MESSAGES + Dim CHAT_ITEM As New usrCntlMessenger_ChatElement(MSG) + checkUsrId(MSG, CHAT_ITEM) + + CHAT_ITEM.txtChatmessage.Text = MSG.chatMg_text + 'CHAT_ITEM.lblName.Text = MSG.chatMg_maId + MyFlowLayoutPanel1.Controls.Add(CHAT_ITEM) + Next + ' MyFlowLayoutPanel1.VerticalScroll.() + 'MyFlowLayoutPanel1.AutoScrollPosition = New Point(MyFlowLayoutPanel1.Width, MyFlowLayoutPanel1.Height) + ' If MyFlowLayoutPanel1.Controls.Count > 0 Then MyFlowLayoutPanel1.ScrollControlIntoView(MyFlowLayoutPanel1.Controls(MyFlowLayoutPanel1.Controls.Count - 1)) + MyFlowLayoutPanel1.VerticalScroll.Value = MyFlowLayoutPanel1.VerticalScroll.Maximum + End If + End Sub + + Sub REFRESH_CHAT() + If CHAT IsNot Nothing Then + CHAT.LOAD_MESSAGES() + + ' CHAT = New VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_Chat(dgvChats.SelectedRows(0).Cells("chat_id").Value) + For Each MSG In CHAT.CHAT_MESSAGES + Dim found As Boolean = False + For Each I As usrCntlMessenger_ChatElement In MyFlowLayoutPanel1.Controls + If I.CHAT_MSG.chatMg_id = MSG.chatMg_id Then + found = True + End If + Next + If Not found Then + + Dim CHAT_ITEM As New usrCntlMessenger_ChatElement(MSG) + checkUsrId(MSG, CHAT_ITEM) + + CHAT_ITEM.txtChatmessage.Text = MSG.chatMg_text + 'CHAT_ITEM.lblName.Text = MSG.chatMg_maId + MyFlowLayoutPanel1.Controls.Add(CHAT_ITEM) + End If + Next + ' MyFlowLayoutPanel1.VerticalScroll.() + 'MyFlowLayoutPanel1.AutoScrollPosition = New Point(MyFlowLayoutPanel1.Width, MyFlowLayoutPanel1.Height) + ' If MyFlowLayoutPanel1.Controls.Count > 0 Then MyFlowLayoutPanel1.ScrollControlIntoView(MyFlowLayoutPanel1.Controls(MyFlowLayoutPanel1.Controls.Count - 1)) + MyFlowLayoutPanel1.VerticalScroll.Value = MyFlowLayoutPanel1.VerticalScroll.Maximum + End If + End Sub + + 'Sub ORDER_CHAT_MSG() + ' If Not CHECK_CHATMSG_ORDER() Then + + ' For Each I As usrCntlMessenger_ChatElement In MyFlowLayoutPanel1.Controls + + ' Next + ' End If + + 'End Sub + 'Function CHECK_CHATMSG_ORDER() As Boolean + ' Dim oldItem = Nothing + ' For Each I As usrCntlMessenger_ChatElement In MyFlowLayoutPanel1.Controls + ' If oldItem IsNot Nothing And I.CHAT_MSG.chatMg_datetime < oldItem.CHAT_MSG.chatMg_datetime Then + ' Return False + ' End If + ' oldItem = I + ' Next + ' Return True + 'End Function + Sub checkUsrId(MSG As VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_ChatMessages, CHAT_ITEM As usrCntlMessenger_ChatElement) + If MSG.chatMg_maId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Then + CHAT_ITEM.Margin = New Padding(MyFlowLayoutPanel1.Width - CHAT_ITEM.Width - 30, 0, 0, 0) + 'CHAT_ITEM.Left = (MyFlowLayoutPanel1.Width - CHAT_ITEM.Width - 30) + 'CHAT_ITEM.Anchor = AnchorStyles.None + 'CHAT_ITEM.Dock = DockStyle.Right + ' CHAT_ITEM.Dock = DockStyle.Right + CHAT_ITEM.setBgCOLOR(Color.FromArgb(192, 255, 192)) + End If + End Sub + + Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click + If rtbChatMessage.Text.Trim <> "" Then + If CHAT IsNot Nothing Then + + Dim MSG As New VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_ChatMessages(CHAT.chat_id, VERAG_PROG_ALLGEMEIN.cAllgemein.USRID) + MSG.chatMg_text = rtbChatMessage.Text.Trim + If MSG.SAVE Then + SEND_TOKEN_NEW_MESSAGE() + ' CHAT.CHAT_MESSAGES.Add(MSG) + REFRESH_CHAT() + rtbChatMessage.Text = "" + rtbChatMessage.Focus() + End If + + End If + End If + End Sub + + + Sub SEND_TOKEN_NEW_MESSAGE() + For Each MB In CHAT.CHAT_MEMBERS + If MB.chatMb_maId <> VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Then + + Dim IP = cSession.GET_IP_FROM_MAID(MB.chatMb_maId) + + If IP <> "" Then + Dim SC As New cServerClient ' SC.begin("192.168.0.50", "NEW_MESSAGE") '192.168.0.95 = atlas suben + SC.begin(IP, "NEW_MESSAGE") + MsgBox(IP) + End If + End If + Next + + 'SC.waitTillFinished() + 'Thread.Sleep(1000) + + 'If SC.status = "TaskSuccess" Then + + 'Else + + 'End If + + + End Sub + + + Private Sub rtbChatMessage_KeyDown(sender As Object, e As KeyEventArgs) Handles rtbChatMessage.KeyDown + If e.Modifiers = Keys.Control And e.KeyCode = Keys.Return Then + btn.PerformClick() + e.Handled = True + End If + End Sub + + Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click + If rtbChatMessage.Text.Trim <> "" Then + If CHAT IsNot Nothing Then + + Dim MSG As New VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_ChatMessages(CHAT.chat_id, VERAG_PROG_ALLGEMEIN.cAllgemein.USRID) + MSG.chatMg_text = rtbChatMessage.Text.Trim + MSG.chatMg_maId = 99 + If MSG.SAVE Then + ' CHAT.CHAT_MESSAGES.Add(MSG) + CHAT.LOAD_MESSAGES() + REFRESH_CHAT() + rtbChatMessage.Text = "" + rtbChatMessage.Focus() + End If + + End If + End If + End Sub + + Private Sub TimerNEW_MESSAGE_Tick(sender As Object, e As EventArgs) Handles TimerNEW_MESSAGE.Tick + If CHAT IsNot Nothing And VERAG_PROG_ALLGEMEIN.cMessenger.NEW_MESSGE = True Then + VERAG_PROG_ALLGEMEIN.cMessenger.NEW_MESSGE = False + MsgBox("asd") + REFRESH_CHAT() + End If + End Sub +End Class \ No newline at end of file diff --git a/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger_NeuerChat.Designer.vb b/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger_NeuerChat.Designer.vb new file mode 100644 index 00000000..26d9ec86 --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger_NeuerChat.Designer.vb @@ -0,0 +1,217 @@ + _ +Partial Class frmMessenger_NeuerChat + Inherits System.Windows.Forms.Form + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMessenger_NeuerChat)) + Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.dgvMitarbeiter = New System.Windows.Forms.DataGridView() + Me.dgvChatMembers = New System.Windows.Forms.DataGridView() + Me.clmnMaId = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.clmnName = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.clmnFirma = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.btn = New System.Windows.Forms.Button() + Me.lbl = New System.Windows.Forms.Label() + Me.Label1 = New System.Windows.Forms.Label() + Me.Label2 = New System.Windows.Forms.Label() + Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox() + CType(Me.dgvMitarbeiter, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.dgvChatMembers, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + '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 = "" + Me.MyTextBox1._Waehrung = False + Me.MyTextBox1._WaehrungZeichen = True + Me.MyTextBox1.ForeColor = System.Drawing.Color.Black + Me.MyTextBox1.Location = New System.Drawing.Point(13, 23) + 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(228, 20) + Me.MyTextBox1.TabIndex = 0 + ' + 'dgvMitarbeiter + ' + Me.dgvMitarbeiter.AllowUserToAddRows = False + Me.dgvMitarbeiter.AllowUserToDeleteRows = False + Me.dgvMitarbeiter.AllowUserToResizeColumns = False + Me.dgvMitarbeiter.AllowUserToResizeRows = False + Me.dgvMitarbeiter.BackgroundColor = System.Drawing.Color.White + Me.dgvMitarbeiter.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvMitarbeiter.Location = New System.Drawing.Point(13, 46) + Me.dgvMitarbeiter.MultiSelect = False + Me.dgvMitarbeiter.Name = "dgvMitarbeiter" + Me.dgvMitarbeiter.RowHeadersVisible = False + Me.dgvMitarbeiter.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.dgvMitarbeiter.Size = New System.Drawing.Size(304, 393) + Me.dgvMitarbeiter.TabIndex = 1 + ' + 'dgvChatMembers + ' + Me.dgvChatMembers.AllowUserToAddRows = False + Me.dgvChatMembers.BackgroundColor = System.Drawing.Color.White + Me.dgvChatMembers.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvChatMembers.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.clmnMaId, Me.clmnName, Me.clmnFirma}) + Me.dgvChatMembers.Location = New System.Drawing.Point(323, 62) + Me.dgvChatMembers.Name = "dgvChatMembers" + Me.dgvChatMembers.RowHeadersVisible = False + Me.dgvChatMembers.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.dgvChatMembers.Size = New System.Drawing.Size(327, 323) + Me.dgvChatMembers.TabIndex = 2 + ' + 'clmnMaId + ' + Me.clmnMaId.HeaderText = "Column1" + Me.clmnMaId.Name = "clmnMaId" + Me.clmnMaId.Visible = False + ' + 'clmnName + ' + Me.clmnName.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill + Me.clmnName.HeaderText = "Name" + Me.clmnName.Name = "clmnName" + ' + 'clmnFirma + ' + Me.clmnFirma.HeaderText = "Firma" + Me.clmnFirma.Name = "clmnFirma" + ' + 'btn + ' + Me.btn.BackColor = System.Drawing.Color.SteelBlue + Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btn.ForeColor = System.Drawing.Color.White + Me.btn.Location = New System.Drawing.Point(323, 392) + Me.btn.Name = "btn" + Me.btn.Size = New System.Drawing.Size(327, 47) + Me.btn.TabIndex = 3 + Me.btn.Text = "Chat eröffnen" + Me.btn.UseVisualStyleBackColor = False + ' + 'lbl + ' + Me.lbl.AutoSize = True + Me.lbl.Location = New System.Drawing.Point(320, 46) + Me.lbl.Name = "lbl" + Me.lbl.Size = New System.Drawing.Size(117, 13) + Me.lbl.TabIndex = 4 + Me.lbl.Text = "Eingeladene Mitglieder:" + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(10, 7) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(41, 13) + Me.Label1.TabIndex = 5 + Me.Label1.Text = "Suche:" + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Location = New System.Drawing.Point(320, 7) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(58, 13) + Me.Label2.TabIndex = 7 + Me.Label2.Text = "Chatname:" + ' + 'MyTextBox2 + ' + Me.MyTextBox2._DateTimeOnly = False + Me.MyTextBox2._numbersOnly = False + Me.MyTextBox2._numbersOnlyKommastellen = "" + Me.MyTextBox2._Prozent = False + Me.MyTextBox2._ShortDateNew = False + Me.MyTextBox2._ShortDateOnly = False + Me.MyTextBox2._TimeOnly = False + Me.MyTextBox2._value = "" + Me.MyTextBox2._Waehrung = False + Me.MyTextBox2._WaehrungZeichen = True + Me.MyTextBox2.ForeColor = System.Drawing.Color.Black + Me.MyTextBox2.Location = New System.Drawing.Point(323, 23) + Me.MyTextBox2.MaxLineLength = -1 + Me.MyTextBox2.MaxLines_Warning = "" + Me.MyTextBox2.MaxLines_Warning_Label = Nothing + Me.MyTextBox2.Name = "MyTextBox2" + Me.MyTextBox2.Size = New System.Drawing.Size(327, 20) + Me.MyTextBox2.TabIndex = 6 + ' + 'MyComboBox1 + ' + Me.MyComboBox1._allowedValuesFreiText = Nothing + Me.MyComboBox1._allowFreiText = False + Me.MyComboBox1._value = "" + Me.MyComboBox1.FormattingEnabled = True + Me.MyComboBox1.Location = New System.Drawing.Point(240, 23) + Me.MyComboBox1.Name = "MyComboBox1" + Me.MyComboBox1.Size = New System.Drawing.Size(77, 21) + Me.MyComboBox1.TabIndex = 8 + ' + 'frmMessenger_NeuerChat + ' + 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(662, 451) + Me.Controls.Add(Me.MyComboBox1) + Me.Controls.Add(Me.Label2) + Me.Controls.Add(Me.MyTextBox2) + Me.Controls.Add(Me.Label1) + Me.Controls.Add(Me.lbl) + Me.Controls.Add(Me.btn) + Me.Controls.Add(Me.dgvChatMembers) + Me.Controls.Add(Me.dgvMitarbeiter) + Me.Controls.Add(Me.MyTextBox1) + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.Name = "frmMessenger_NeuerChat" + Me.Text = "Neuer Chat" + CType(Me.dgvMitarbeiter, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.dgvChatMembers, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents MyTextBox1 As MyTextBox + Friend WithEvents dgvMitarbeiter As Windows.Forms.DataGridView + Friend WithEvents dgvChatMembers As Windows.Forms.DataGridView + Friend WithEvents btn As Windows.Forms.Button + Friend WithEvents lbl As Windows.Forms.Label + Friend WithEvents Label1 As Windows.Forms.Label + Friend WithEvents Label2 As Windows.Forms.Label + Friend WithEvents MyTextBox2 As MyTextBox + Friend WithEvents clmnMaId As Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents clmnName As Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents clmnFirma As Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents MyComboBox1 As MyComboBox +End Class diff --git a/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger_NeuerChat.resx b/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger_NeuerChat.resx new file mode 100644 index 00000000..9bddf4ec --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger_NeuerChat.resx @@ -0,0 +1,989 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + True + + + True + + + True + + + + + AAABAAEAgIAAAAEAGAAoyAAAFgAAACgAAACAAAAAAAEAAAEAGAAAAAAAAMgAAMQOAADEDgAAAAAAAAAA + AACRbEd5TB+CWC59USZ8USV9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ8USV9USaCWC55TB+RbEd4Sx5mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB4Sx5/VClmMwBuPg5r + OglrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOgluPg5mMwB/VCl0RhhmMwBmMwBnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFmMwBmMwB0RhhzRBVmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBz + RBV3Sh1mMwBnNQJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBnNQJmMwB3Sh18UCRmMwBqOQdnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFqOQdmMwB8UCR9USZmMwBrOQhn + NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwDm4N3///////// + ///////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////// + //////////////////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwB0SSb39fT/ + //////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////////+YfWtmMwBmMwBm + MwBmMwB0SSbu6+n////////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///// + ///////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5zUy8X////////////////L + v7itmo1mMwBmMwCYfWv///////90SSZmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwBmMwBmMwB0SSb////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDu6+n///////////////////////////////////////////////////////////+j + jH1mMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwC3p5z/ + ///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwCYfWv////////////////Bs6pmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwB0SSb///////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCt + mo3////////////////////////////////////m4N2Mbli3p5z///////+jjH1mMwBmMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwCMblj///////////////////////////+M + blhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////// + ///////////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////+3 + p5xmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDU + y8X///////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////90SSZm + MwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j////////////////////////////////////////////39fTm + 4N3///////+3p5xmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwC3 + p5z////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3 + p5z////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwCjjH3////////////////Lv7hmMwBmMwBmMwBmMwBmMwCAXUL///////////////////90 + SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBm + MwC3p5z////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////////////U + y8WAXUJmMwBmMwC3p5z39fT////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwBmMwDBs6r////////////////u6+n///////////+tmo1mMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////90SSZmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj////////////////m4N1mMwBmMwBmMwBm + MwBmMwC3p5z////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////// + ///////////////////////////////////////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBm + MwBmMwD39fT////////////////Lv7hmMwBmMwBmMwBmMwBmMwCAXULu6+n////////////////39fRm + MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwDm4N3///////////// + //+jjH3////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb///////////// + //////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD3 + 9fT///////////////90SSZmMwBmMwBmMwBmMwDm4N3///////////////+jjH1mMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////////////////////////////// + //////+3p5xmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////+MblhmMwBmMwBmMwBmMwBm + MwBmMwCMblj///////////////////90SSZmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwBmMwBmMwD39fT///////////////9mMwDLv7j///////////+3p5xmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwDm4N3////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+YfWtmMwBmMwBmMwCAXUL///////// + ///////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////// + //////////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwC3p5z///////// + //////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+jjH1mMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwCMblj////////////////m4N1mMwCAXUL39fT/ + ///////39fSAXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////Uy8VmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////// + ///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwDUy8X////////////u6+lmMwBmMwBmMwBmMwCMblj///////////////////90SSZmMwBm + MwBmMwBmMwBmMwBmMwC3p5z///////////////////9mMwBmMwBmMwB0SSb///////////////////// + //////////////+3p5xmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwCjjH3/ + ///////////////Uy8VmMwBmMwC3p5z////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwC3p5z////////////////////////////////////////////////////m4N1mMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwCjjH3////////////////////////////////////////////////////////////d + 1tGMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+tmo1mMwBmMwBmMwCt + mo3////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////////90SSZm + MwBmMwBmMwDm4N3////////////////////////////////Uy8VmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwC3p5z///////////////+3p5xmMwBmMwB0SSb39fT///////////+Y + fWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////////////////////////// + //////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb///////////////////////////// + //////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3 + p5z////////////39fR0SSZmMwBmMwDBs6r////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBm + MwCjjH3///////////////////+jjH1mMwBmMwBmMwDBs6r////////////////////////////////3 + 9fRmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwDUy8X///////////////+t + mo1mMwBmMwBmMwCtmo3////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///// + //////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDu6+n///////////////90SSZmMwBmMwBmMwBmMwBmMwCjjH3m4N3////////////////39fR0SSZm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////+3p5xmMwBmMwDUy8X///////////// + //+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////////Bs6pmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwBmMwDu6+n///////////////+MblhmMwBmMwBmMwBmMwDu6+n///////////+tmo1mMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+YfWtmMwBmMwBmMwBmMwBmMwBm + MwB0SSbu6+n///////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////// + ///39fSAXUJmMwD39fT///////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///// + ///////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////Uy8W3p5y3p5yYfWtmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwB0SSb///////////////////90SSZmMwBmMwBmMwBm + MwCtmo3////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////m4N1m + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////// + //////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j////////////////Bs6pmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDUy8X////////////Lv7h0SSb///////////////////90SSZmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDu + 6+n///////////////+jjH1mMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwCYfWv///// + ///////////u6+lmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////+3p5xmMwBmMwBmMwBmMwBmMwBm + MwBmMwCjjH3///////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwCYfWv////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///// + //////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+tmo3/ + ///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////// + //+YfWtmMwBmMwBmMwBmMwBmMwCtmo3////////////////u6+lmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwC3p5z////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwCYfWv///// + //////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////////+MblhmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////u6+lmMwBm + MwBmMwBmMwBmMwCAXULLv7j///////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwC3p5z////////////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDd1tH///////////////////+3p5x0SSZmMwBmMwC3p5z///////////////////+t + mo1mMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwDLv7j////////////////Bs6pm + MwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/ + //////////////////////////////////////////////////////////90SSZmMwBmMwBmMwBmMwBm + MwBmMwDm4N3////////////////////////////////////////////////////////////Bs6pmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////+3 + p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////// + ///////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwDm4N3///////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+Y + fWtmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////////////////////////// + //////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////// + ///////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCj + jH3///////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwCtmo339fT///////////////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAF0SSb///////////////////+MblhmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDLv7j////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwC3p5z///////////////// + //////////////////////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwC3p5z///// + ///////////////////////////////////////m4N23p5yMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////9mMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH23p5z39fT////////////////Uy8W3 + p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ8UCRmMwBqOQdn + NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBnNAFqOQdmMwB8UCR3Sh1mMwBnNQJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNQJmMwB3Sh1zRBVmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBz + RBV0RhhmMwBmMwBnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFmMwBmMwB0Rhh/VClmMwBuPg5rOglrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOgluPg5mMwB/VCl4Sx5mMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwB4Sx6RbEd5TB+CWC59USZ8USV9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ8USV9USaCWC55TB+RbEf///////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////Bs6rBs6qYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvBs6rBs6r///// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////Uy8WYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvUy8X////////////////////////////////////////B + s6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwCjjH3Bs6rBs6r39fT///////////////////////////////////////////////////////// + ///Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////////////////////////// + ///////////////////////////////////////////////////////////////d1tGMblhmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvm4N3/ + ///////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMbljLv7j///////////////// + ///////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X////////////////////////////d1tFmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwCMbljm4N3////////////////////////////////////////////m4N1mMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwC3p5z///////////////////////////////////////////////////////////// + //////////////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////// + ///////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////// + ///////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////////////// + ///////////////////////////////////////////////////////////////////Bs6pmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwCtmo3///////////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCA + XUL///////////////////////////////////////////////////////////////////////////// + ///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT///////////////// + //+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3///////////////////////////// + //////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///////////////////////////////////////// + //////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwDBs6r///////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDBs6r////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////// + ///////////////////////////////////////////////////////////////////////////d1tFm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6rd1tH////////39fTBs6qAXUJm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////////Lv7hmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////////////Uy8VmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////////////////////////// + //////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/ + //////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd + 1tH////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////// + ///////Uy8XBs6qMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///// + ///////////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////+AXUJmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCtmo3///////////////////////////////////////+AXUJmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwC3p5z////////////////////////////////d1tGMblhmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////9mMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwB0SSb///////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT///////////////////// + ///////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3///////////// + //////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////////////// + //////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb39fT///////////// + //////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDBs6r////////////////////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwCYfWv///////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0 + SSb///////////////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDBs6r///////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwDUy8X///////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///u6+nBs6rBs6rBs6qYfWtmMwBmMwBmMwDu6+n///////////////////////////////////////// + ///Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////+3p5xmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n////////////////////////////////////////u + 6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj////////////////////////Bs6pm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCY + fWv////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////// + //////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDm4N3////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////u6+m3p5xmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3////////////////////m4N1mMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwDBs6r////////////////////////////////////////////d1tFmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////////u6+lmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////////////////Uy8XB + s6p0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////// + //////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3///////////////////////// + //////////////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////// + //////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD///////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////m4N3Bs6qMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDUy8X///////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwCMblj///////////////////////////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwB0SSb///////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwDm4N3///////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////Bs6qAXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb39fT///////////////////////+jjH1m + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb///////////////////////////////////////// + ///////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///////////////////+t + mo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////Lv7hmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/ + ///////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///// + ///////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwDm4N3////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/ + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCAXUL39fT////////////////////////////Uy8VmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////////////////////////90SSZm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////Uy8VmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbm4N3///////////////////// + ///////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////// + //////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///// + ///////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////Bs6pmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCM + bljm4N3///////////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwCjjH3///////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwD39fT///////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////////////////////////+M + blhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////////////////////// + //////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////// + //+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvBs6r///////////////////////// + //////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD///// + //////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwDd1tH///////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDL + v7j///////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////+Mblhm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3Bs6r///// + ///////////////////////////////////////////////////////////////Bs6pmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////////////////////////+AXUJm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////////Bs6pmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwCtmo3Bs6r39fT///////////////////////////////////////////////////////////////// + ///////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////// + ///////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///// + ///////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwB0SSbLv7j///////////////////////////////////////////////// + ///////////////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwC3p5z////////////////////////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwB0SSb////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwCAXUL///////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbu6+n///////////////////// + //////////////////////////////////////////////////////////////////////////////// + //90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////////////////// + //////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////////// + //////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwC3p5z////////////////////////////////////39fRmMwBmMwB0SSbBs6rBs6r39fT///////// + //////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL/ + ///////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDBs6r///////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDm4N3///////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////////////39fRmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////////////////////////////Bs6pm + MwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3Bs6rBs6r///////////////////////////+3p5xmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT////////////////////////////39fSMblhmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////////+3p5xmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////// + ///////////////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD///////// + ///////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////// + ///////////u6+mMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////// + ///////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////+jjH1mMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCjjH3////////////////////////u6+mAXUJmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwCYfWv////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDLv7j////////////////Uy8W3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDd1tH////////////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwCYfWv///////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMbljBs6r////////d1tG3 + p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////// + ///39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////////////////// + ///////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb///////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCM + blj///////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbu6+n/ + //////////////////////////////////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwD39fT///////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////////////////////L + v7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////////////////+YfWtmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////////////////+jjH1m + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////// + //////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////// + //////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////////39fSAXUJmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwCYfWv////////////////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDB + s6r////////////////////////////////////////////////////////Lv7hmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////u6+mMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////////////////////////// + ///////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwB0SSbUy8X///////////////////////////////////////////////// + ///////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////+jjH1mMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////////// + ///////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbBs6r///////////////////////// + ///////////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwB0SSb///////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////d1tGYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwDBs6r39fT///////////////////////////////////////////////////////////+AXUJm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXULBs6rBs6rm4N3/ + //////////////////////////////////////////////////////////////////////////////+A + XUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD///////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////39fTBs6rBs6pmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCjjH3Bs6rUy8X///////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA== + + + \ No newline at end of file diff --git a/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger_NeuerChat.vb b/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger_NeuerChat.vb new file mode 100644 index 00000000..c5177310 --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger_NeuerChat.vb @@ -0,0 +1,104 @@ +Imports System.Windows.Forms + +Public Class frmMessenger_NeuerChat + + Dim SQL As New SQL + + Dim loaded = False + + Sub initDGV() + If Not loaded Then Exit Sub + With dgvMitarbeiter + Dim FirmaTMP = MyComboBox1._value + Dim sqlStr = "SELECT TOP (1000) [mit_id],[mit_nname] + ' ' + [mit_vname] + ' (' + mit_niederlassung + ')' as MAname,mit_firma FROM [tblMitarbeiter]" + sqlStr &= " WHERE mit_gekuendigt=0 AND mit_abteilung IN ('QS','ZOLL','DISPO') AND [mit_TESTonly]=0 AND [mit_pseudoUser]=0" + sqlStr &= " AND mit_firma IN ('" & FirmaTMP & "','BEIDE','ALLE','ALL')" + If MyTextBox1.Text <> "" Then sqlStr &= " AND (mit_nname LIKE '" & MyTextBox1.Text & "%' OR mit_vname LIKE '" & MyTextBox1.Text & "%' )" + + sqlStr &= " order by mit_nname,mit_vname" + + .DataSource = SQL.loadDgvBySql(sqlStr, "ADMIN") + + If .Columns.Count = 0 Then Exit Sub + + .Columns("mit_id").Visible = False + .AutoSizeColumnsMode = Windows.Forms.DataGridViewAutoSizeColumnsMode.AllCells + End With + End Sub + + Private Sub frmMessenger_NeuerChat_Load(sender As Object, e As EventArgs) Handles Me.Load + MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG", "VERAG")) + MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATILLA", "ATILLA")) + MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IMEX", "IMEX")) + MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED", "UNISPED")) + MyComboBox1.changeItem("VERAG") + loaded = True + initDGV() + + End Sub + + Private Sub MyTextBox1_TextChanged(sender As Object, e As EventArgs) Handles MyTextBox1.TextChanged + initDGV() + End Sub + + Private Sub MyTextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles MyTextBox1.KeyDown + If dgvMitarbeiter.Rows.Count = 0 Then Exit Sub + + If e.KeyCode = Keys.Down Then + If dgvMitarbeiter.SelectedRows.Count = 0 Then dgvMitarbeiter.Rows(0).Selected = True + If dgvMitarbeiter.Rows.Count > dgvMitarbeiter.SelectedRows(0).Index + 1 Then + Dim newIndex = dgvMitarbeiter.SelectedRows(0).Index + 1 + dgvMitarbeiter.ClearSelection() + dgvMitarbeiter.Rows(newIndex).Selected = True + MyTextBox1.Focus() + End If + End If + + If e.KeyCode = Keys.Up Then + If dgvMitarbeiter.SelectedRows.Count = 0 Then dgvMitarbeiter.Rows(0).Selected = True + If dgvMitarbeiter.SelectedRows(0).Index > 0 Then + Dim newIndex = dgvMitarbeiter.SelectedRows(0).Index - 1 + dgvMitarbeiter.ClearSelection() + dgvMitarbeiter.Rows(newIndex).Selected = True + MyTextBox1.Focus() + End If + End If + If e.KeyCode = Keys.Return Then + If dgvMitarbeiter.SelectedRows.Count > 0 Then + dgvChatMembers.Rows.Add(dgvMitarbeiter.SelectedRows(0).Cells("mit_id").Value, dgvMitarbeiter.SelectedRows(0).Cells("MAname").Value, dgvMitarbeiter.SelectedRows(0).Cells("mit_firma").Value) + If dgvChatMembers.Rows.Count = 1 Then + MyTextBox2.Text = dgvMitarbeiter.SelectedRows(0).Cells("MAname").Value + Else + MyTextBox2.Text = "" + End If + MyTextBox1.Text = "" + MyTextBox1.Focus() + End If + End If + End Sub + + Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click + If MyTextBox2.Text = "" Then + MsgBox("Chat-Name eingeben!") + Exit Sub + End If + If dgvChatMembers.Rows.Count = 0 Then + MsgBox("Mitglieder eingeben!") + Exit Sub + End If + + Dim MB_LIST As New List(Of Integer) + MB_LIST.Add(VERAG_PROG_ALLGEMEIN.cAllgemein.USRID) 'Selbst! + For Each r As DataGridViewRow In dgvMitarbeiter.Rows + MB_LIST.Add(r.Cells("mit_id").Value) + Next + If VERAG_PROG_ALLGEMEIN.cMessenger.GEN_NEW_CHAT(MyTextBox2.Text, MB_LIST) Then + Me.Close() + End If + + End Sub + + Private Sub MyComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles MyComboBox1.SelectedIndexChanged + initDGV() + End Sub +End Class \ No newline at end of file diff --git a/VERAG_PROG_ALLGEMEIN/Messenger/usrCntlMessenger_ChatAnhang.Designer.vb b/VERAG_PROG_ALLGEMEIN/Messenger/usrCntlMessenger_ChatAnhang.Designer.vb new file mode 100644 index 00000000..3514673e --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/Messenger/usrCntlMessenger_ChatAnhang.Designer.vb @@ -0,0 +1,116 @@ +Imports System.Windows.Forms + + +Partial Class usrCntlMessenger_ChatAnhang + Inherits System.Windows.Forms.UserControl + + 'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + + Private Sub InitializeComponent() + Me.pnl = New System.Windows.Forms.Panel() + Me.Label1 = New System.Windows.Forms.Label() + Me.lbl = New System.Windows.Forms.Label() + Me.pic = New System.Windows.Forms.PictureBox() + Me.txtChatmessage = New VERAG_PROG_ALLGEMEIN.MyRichTextBox() + Me.pnl.SuspendLayout() + CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'pnl + ' + Me.pnl.Controls.Add(Me.txtChatmessage) + Me.pnl.Controls.Add(Me.pic) + Me.pnl.Controls.Add(Me.Label1) + Me.pnl.Controls.Add(Me.lbl) + Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnl.Location = New System.Drawing.Point(0, 0) + Me.pnl.Name = "pnl" + Me.pnl.Size = New System.Drawing.Size(378, 72) + Me.pnl.TabIndex = 0 + ' + 'Label1 + ' + Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Label1.AutoSize = True + Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) + Me.Label1.ForeColor = System.Drawing.Color.Black + Me.Label1.Location = New System.Drawing.Point(284, 58) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(91, 13) + Me.Label1.TabIndex = 1 + Me.Label1.Text = "01.01.2020 10:12" + ' + 'lbl + ' + Me.lbl.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.lbl.AutoSize = True + Me.lbl.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!, System.Drawing.FontStyle.Bold) + Me.lbl.ForeColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer)) + Me.lbl.Location = New System.Drawing.Point(4, 58) + Me.lbl.Name = "lbl" + Me.lbl.Size = New System.Drawing.Size(155, 13) + Me.lbl.TabIndex = 0 + Me.lbl.Text = "Max Mustermann (VERAG)" + ' + 'pic + ' + Me.pic.BackgroundImage = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.docAllgemein + Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.pic.Location = New System.Drawing.Point(7, 4) + Me.pic.Name = "pic" + Me.pic.Size = New System.Drawing.Size(100, 50) + Me.pic.TabIndex = 2 + Me.pic.TabStop = False + ' + 'txtChatmessage + ' + Me.txtChatmessage.BackColor = System.Drawing.Color.White + Me.txtChatmessage.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtChatmessage.Font = New System.Drawing.Font("Comic Sans MS", 12.0!) + Me.txtChatmessage.Location = New System.Drawing.Point(113, 17) + Me.txtChatmessage.MaxLineLength = -1 + Me.txtChatmessage.MaxLines_Warning = "" + Me.txtChatmessage.MaxLines_Warning_Label = Nothing + Me.txtChatmessage.Name = "txtChatmessage" + Me.txtChatmessage.Size = New System.Drawing.Size(260, 28) + Me.txtChatmessage.TabIndex = 1 + Me.txtChatmessage.Text = "Anhangdokument.pdf" + ' + 'usrCntlMessenger_ChatAnhang + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.Color.White + Me.Controls.Add(Me.pnl) + Me.Name = "usrCntlMessenger_ChatAnhang" + Me.Size = New System.Drawing.Size(378, 72) + Me.pnl.ResumeLayout(False) + Me.pnl.PerformLayout() + CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + + Friend WithEvents pnl As Panel + Friend WithEvents Label1 As Label + Friend WithEvents lbl As Label + Friend WithEvents pic As PictureBox + Friend WithEvents txtChatmessage As MyRichTextBox +End Class diff --git a/VERAG_PROG_ALLGEMEIN/Messenger/usrCntlMessenger_ChatAnhang.resx b/VERAG_PROG_ALLGEMEIN/Messenger/usrCntlMessenger_ChatAnhang.resx new file mode 100644 index 00000000..1af7de15 --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/Messenger/usrCntlMessenger_ChatAnhang.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/VERAG_PROG_ALLGEMEIN/Messenger/usrCntlMessenger_ChatAnhang.vb b/VERAG_PROG_ALLGEMEIN/Messenger/usrCntlMessenger_ChatAnhang.vb new file mode 100644 index 00000000..23536c22 --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/Messenger/usrCntlMessenger_ChatAnhang.vb @@ -0,0 +1,7 @@ +Imports System.Drawing + +Public Class usrCntlMessenger_ChatAnhang + Property BG_COLOR As Color = Color.FromArgb(192, 255, 192) ' Color.Azure + + +End Class diff --git a/VERAG_PROG_ALLGEMEIN/Messenger/usrCntlMessenger_ChatElement.Designer.vb b/VERAG_PROG_ALLGEMEIN/Messenger/usrCntlMessenger_ChatElement.Designer.vb new file mode 100644 index 00000000..eb05029c --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/Messenger/usrCntlMessenger_ChatElement.Designer.vb @@ -0,0 +1,120 @@ +Imports System.Windows.Forms + + +Partial Class usrCntlMessenger_ChatElement + Inherits System.Windows.Forms.UserControl + + 'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Me.pnl = New System.Windows.Forms.Panel() + Me.Panel1 = New System.Windows.Forms.Panel() + Me.txtChatmessage = New VERAG_PROG_ALLGEMEIN.MyRichTextBox() + Me.lblDateTime = New System.Windows.Forms.Label() + Me.lblName = New System.Windows.Forms.Label() + Me.pnl.SuspendLayout() + Me.Panel1.SuspendLayout() + Me.SuspendLayout() + ' + 'pnl + ' + Me.pnl.Controls.Add(Me.Panel1) + Me.pnl.Controls.Add(Me.lblDateTime) + Me.pnl.Controls.Add(Me.lblName) + Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnl.Location = New System.Drawing.Point(0, 0) + Me.pnl.Name = "pnl" + Me.pnl.Size = New System.Drawing.Size(378, 48) + Me.pnl.TabIndex = 0 + ' + 'Panel1 + ' + Me.Panel1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Panel1.BackColor = System.Drawing.Color.Azure + Me.Panel1.Controls.Add(Me.txtChatmessage) + Me.Panel1.Location = New System.Drawing.Point(3, 3) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(375, 32) + Me.Panel1.TabIndex = 2 + ' + 'txtChatmessage + ' + Me.txtChatmessage.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txtChatmessage.BackColor = System.Drawing.Color.Azure + Me.txtChatmessage.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtChatmessage.Font = New System.Drawing.Font("Comic Sans MS", 12.0!) + Me.txtChatmessage.Location = New System.Drawing.Point(4, 4) + Me.txtChatmessage.MaxLineLength = -1 + Me.txtChatmessage.MaxLines_Warning = "" + Me.txtChatmessage.MaxLines_Warning_Label = Nothing + Me.txtChatmessage.Name = "txtChatmessage" + Me.txtChatmessage.Size = New System.Drawing.Size(368, 25) + Me.txtChatmessage.TabIndex = 0 + Me.txtChatmessage.Text = "Hallo, wie gehts?" + ' + 'lblDateTime + ' + Me.lblDateTime.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lblDateTime.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) + Me.lblDateTime.ForeColor = System.Drawing.Color.Black + Me.lblDateTime.Location = New System.Drawing.Point(243, 34) + Me.lblDateTime.Name = "lblDateTime" + Me.lblDateTime.Size = New System.Drawing.Size(132, 13) + Me.lblDateTime.TabIndex = 1 + Me.lblDateTime.Text = "01.01.2020 10:12:00" + Me.lblDateTime.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'lblName + ' + Me.lblName.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.lblName.AutoSize = True + Me.lblName.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!, System.Drawing.FontStyle.Bold) + Me.lblName.ForeColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer)) + Me.lblName.Location = New System.Drawing.Point(4, 34) + Me.lblName.Name = "lblName" + Me.lblName.Size = New System.Drawing.Size(155, 13) + Me.lblName.TabIndex = 0 + Me.lblName.Text = "Max Mustermann (VERAG)" + ' + 'usrCntlMessenger_ChatElement + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.Color.White + Me.Controls.Add(Me.pnl) + Me.Name = "usrCntlMessenger_ChatElement" + Me.Size = New System.Drawing.Size(378, 48) + Me.pnl.ResumeLayout(False) + Me.pnl.PerformLayout() + Me.Panel1.ResumeLayout(False) + Me.ResumeLayout(False) + + End Sub + + Friend WithEvents pnl As Panel + Friend WithEvents lblDateTime As Label + Friend WithEvents lblName As Label + Friend WithEvents Panel1 As Panel + Friend WithEvents txtChatmessage As VERAG_PROG_ALLGEMEIN.MyRichTextBox +End Class diff --git a/VERAG_PROG_ALLGEMEIN/Messenger/usrCntlMessenger_ChatElement.resx b/VERAG_PROG_ALLGEMEIN/Messenger/usrCntlMessenger_ChatElement.resx new file mode 100644 index 00000000..1af7de15 --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/Messenger/usrCntlMessenger_ChatElement.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/VERAG_PROG_ALLGEMEIN/Messenger/usrCntlMessenger_ChatElement.vb b/VERAG_PROG_ALLGEMEIN/Messenger/usrCntlMessenger_ChatElement.vb new file mode 100644 index 00000000..9330b8d9 --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/Messenger/usrCntlMessenger_ChatElement.vb @@ -0,0 +1,37 @@ +Imports System.Drawing + +Public Class usrCntlMessenger_ChatElement + Property CHAT_MSG As VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_ChatMessages + 'Property BG_COLOR As Color = Color.FromArgb(192, 255, 192) ' Color.Azure + + Sub New() + + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + + End Sub + + Sub New(CHAT_MSG As VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_ChatMessages) + + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + Me.CHAT_MSG = CHAT_MSG + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + + End Sub + Sub setBgCOLOR(BG_COLOR) + ' Me.BG_COLOR = BG_COLOR + txtChatmessage.BackColor = BG_COLOR + Panel1.BackColor = BG_COLOR + End Sub + + Private Sub usrCntlMessenger_ChatElement_Load(sender As Object, e As EventArgs) Handles Me.Load + ' setBgCOLOR(Color.Azure) + If CHAT_MSG IsNot Nothing Then + lblDateTime.Text = CHAT_MSG.chatMg_datetime.ToString("dd.MM.yyyy HH:mm:ss") + lblName.Text = CHAT_MSG.chatMg_maName & " (" & CHAT_MSG.chatMg_maFirma & ")" + End If + End Sub +End Class diff --git a/VERAG_PROG_ALLGEMEIN/My Project/Resources.Designer.vb b/VERAG_PROG_ALLGEMEIN/My Project/Resources.Designer.vb index 066702f1..e3e7ba35 100644 --- a/VERAG_PROG_ALLGEMEIN/My Project/Resources.Designer.vb +++ b/VERAG_PROG_ALLGEMEIN/My Project/Resources.Designer.vb @@ -90,6 +90,16 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property docAllgemein() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("docAllgemein", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + ''' ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' diff --git a/VERAG_PROG_ALLGEMEIN/My Project/Resources.resx b/VERAG_PROG_ALLGEMEIN/My Project/Resources.resx index ed5102b5..41d27996 100644 --- a/VERAG_PROG_ALLGEMEIN/My Project/Resources.resx +++ b/VERAG_PROG_ALLGEMEIN/My Project/Resources.resx @@ -118,94 +118,97 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - ..\Resources\uhr_notime.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\picboxZoomOut_Enter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\picboxRotateLeft_Enter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\picboxRotateRight_Enter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\ok.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\pdf.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\Resources\scanner.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\pfeil_links.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\Resources\scanner1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\uhr_red.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\pfeil_rechts.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\Resources\pfeil_oben.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\pfeil_unten.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\today.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\pdf_gray.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\del.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\picboxZoomIn_Enter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\plus.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\picboxNext_Enter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\uhr_green.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\picboxPrevious_Enter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\android-note1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\house.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\house1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\seal.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\seal2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\seal3.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\sicherheit.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\Resources\sicherheit1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\pfeil_links.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\seal2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\plus.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\picboxZoomOut_Enter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\picboxPrevious_Enter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\seal3.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\aviso.ico;System.Drawing.Icon, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\seal.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\del.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\ok.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\picboxRotateRight_Enter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\house1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\pdf_gray.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\picboxNext_Enter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\picboxRotateLeft_Enter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\picboxZoomIn_Enter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\sicherheit.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\uhr_green.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\android-note1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\pfeil_rechts.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\uhr_notime.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\pdf.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\uhr_red.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\house.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\today.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\pfeil_unten.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\docAllgemein.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + \ No newline at end of file diff --git a/VERAG_PROG_ALLGEMEIN/Resources/docAllgemein.png b/VERAG_PROG_ALLGEMEIN/Resources/docAllgemein.png new file mode 100644 index 00000000..283d346e Binary files /dev/null and b/VERAG_PROG_ALLGEMEIN/Resources/docAllgemein.png differ diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/OUT_NCTS/VERAG_out_ncts_V2_0_1.Designer.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/OUT_NCTS/VERAG_out_ncts_V2_0_1.Designer.vb new file mode 100644 index 00000000..1dd4e82e --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/OUT_NCTS/VERAG_out_ncts_V2_0_1.Designer.vb @@ -0,0 +1,2976 @@ +'' ------------------------------------------------------------------------------ +'' +'' Generated by Xsd2Code++. Version 5.0.0.47. www.xsd2code.com +'' VERAG_OUT_NCTS_V2_0_1ListVisualBasicFalseFalseFalseOnlyIfDifferentFalseNet45AllTrueTrueTrueFalseFalseFalseFalseFalseNoneStartWithUnderscoreFalseFalseFalseFalseFalsePublicTrueFalseFalseFalseFalseFalseFalseFalseFalseTrueTrueTrueFalseTrueSerializeDeserializeSaveToFileLoadFromFileFalseTrueIndent2SpaceFalseFalseUTF8XmlSerializerFalseFalseFalseFalseFalseFalseFalseEntityBaseFalseFalse +'' +'' ------------------------------------------------------------------------------ +Imports System +Imports System.Diagnostics +Imports System.Xml.Serialization +Imports System.Collections +Imports System.Xml.Schema +Imports System.ComponentModel +Imports System.IO +Imports System.Text +Imports System.Xml +Imports System.Collections.Generic + +Namespace VERAG_OUT_NCTS_V2_0_1 + + + Partial Public Class VERAG_out_ncts + +#Region "Private fields" + Private _version As Object + + Private _company As Object + + Private _department As Object + + Private _internalReference As VERAG_out_nctsInternalReference + + Private _processData As VERAG_out_nctsProcessData + + Private _nCTS_Data As VERAG_out_nctsNCTS_Data + + Private _attachments As List(Of VERAG_out_nctsAttachment) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._attachments = New List(Of VERAG_out_nctsAttachment)() + Me._nCTS_Data = New VERAG_out_nctsNCTS_Data() + Me._processData = New VERAG_out_nctsProcessData() + Me._internalReference = New VERAG_out_nctsInternalReference() + End Sub + + Public Property Version() As Object + Get + Return Me._version + End Get + Set + Me._version = Value + End Set + End Property + + Public Property Company() As Object + Get + Return Me._company + End Get + Set + Me._company = Value + End Set + End Property + + Public Property Department() As Object + Get + Return Me._department + End Get + Set + Me._department = Value + End Set + End Property + + Public Property InternalReference() As VERAG_out_nctsInternalReference + Get + Return Me._internalReference + End Get + Set + Me._internalReference = Value + End Set + End Property + + Public Property ProcessData() As VERAG_out_nctsProcessData + Get + Return Me._processData + End Get + Set + Me._processData = Value + End Set + End Property + + Public Property NCTS_Data() As VERAG_out_nctsNCTS_Data + Get + Return Me._nCTS_Data + End Get + Set + Me._nCTS_Data = Value + End Set + End Property + + + Public Property Attachments() As List(Of VERAG_out_nctsAttachment) + Get + Return Me._attachments + End Get + Set + Me._attachments = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VERAG_out_ncts)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VERAG_out_ncts object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an VERAG_out_ncts object + ''' + ''' string workflow markup to deserialize + ''' Output VERAG_out_ncts object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VERAG_out_ncts, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_ncts) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VERAG_out_ncts) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As VERAG_out_ncts + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VERAG_out_ncts) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VERAG_out_ncts + Return CType(Serializer.Deserialize(s), VERAG_out_ncts) + End Function +#End Region + + ''' + ''' Serializes current VERAG_out_ncts object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VERAG_out_ncts object + ''' + ''' string xml file to load and deserialize + ''' Output VERAG_out_ncts object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VERAG_out_ncts, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_ncts) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VERAG_out_ncts) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As VERAG_out_ncts + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class VERAG_out_nctsInternalReference + +#Region "Private fields" + Private _officeCode As String + + Private _positionNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property OfficeCode() As String + Get + Return Me._officeCode + End Get + Set + Me._officeCode = Value + End Set + End Property + + + Public Property PositionNumber() As String + Get + Return Me._positionNumber + End Get + Set + Me._positionNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VERAG_out_nctsInternalReference)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VERAG_out_nctsInternalReference object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an VERAG_out_nctsInternalReference object + ''' + ''' string workflow markup to deserialize + ''' Output VERAG_out_nctsInternalReference object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VERAG_out_nctsInternalReference, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsInternalReference) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VERAG_out_nctsInternalReference) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As VERAG_out_nctsInternalReference + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VERAG_out_nctsInternalReference) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VERAG_out_nctsInternalReference + Return CType(Serializer.Deserialize(s), VERAG_out_nctsInternalReference) + End Function +#End Region + + ''' + ''' Serializes current VERAG_out_nctsInternalReference object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VERAG_out_nctsInternalReference object + ''' + ''' string xml file to load and deserialize + ''' Output VERAG_out_nctsInternalReference object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VERAG_out_nctsInternalReference, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsInternalReference) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VERAG_out_nctsInternalReference) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As VERAG_out_nctsInternalReference + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class VERAG_out_nctsProcessData + +#Region "Private fields" + Private _status As Object + + Private _transactionDate As Object + + Private _mRN As Object + + Private _referenzNumber As Object + + Private _procedureCode As Object + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Status() As Object + Get + Return Me._status + End Get + Set + Me._status = Value + End Set + End Property + + Public Property TransactionDate() As Object + Get + Return Me._transactionDate + End Get + Set + Me._transactionDate = Value + End Set + End Property + + Public Property MRN() As Object + Get + Return Me._mRN + End Get + Set + Me._mRN = Value + End Set + End Property + + Public Property ReferenzNumber() As Object + Get + Return Me._referenzNumber + End Get + Set + Me._referenzNumber = Value + End Set + End Property + + Public Property ProcedureCode() As Object + Get + Return Me._procedureCode + End Get + Set + Me._procedureCode = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VERAG_out_nctsProcessData)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VERAG_out_nctsProcessData object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an VERAG_out_nctsProcessData object + ''' + ''' string workflow markup to deserialize + ''' Output VERAG_out_nctsProcessData object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VERAG_out_nctsProcessData, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsProcessData) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VERAG_out_nctsProcessData) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As VERAG_out_nctsProcessData + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VERAG_out_nctsProcessData) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VERAG_out_nctsProcessData + Return CType(Serializer.Deserialize(s), VERAG_out_nctsProcessData) + End Function +#End Region + + ''' + ''' Serializes current VERAG_out_nctsProcessData object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VERAG_out_nctsProcessData object + ''' + ''' string xml file to load and deserialize + ''' Output VERAG_out_nctsProcessData object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VERAG_out_nctsProcessData, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsProcessData) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VERAG_out_nctsProcessData) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As VERAG_out_nctsProcessData + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class VERAG_out_nctsNCTS_Data + +#Region "Private fields" + Private _datDeterminationLimit As Date + + Private _licensePlate As Object + + Private _departureCustomsOffice As Object + + Private _destinationCustomsOffice As Object + + Private _departureCountry As Object + + Private _destinationCountry As Object + + Private _sender As VERAG_out_nctsNCTS_DataSender + + Private _consignee As VERAG_out_nctsNCTS_DataConsignee + + Private _carrier As VERAG_out_nctsNCTS_DataCarrier + + Private _guarantee As VERAG_out_nctsNCTS_DataGuarantee + + Private _sumGrossWeight As Decimal + + Private _position As List(Of VERAG_out_nctsNCTS_DataPosition) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._position = New List(Of VERAG_out_nctsNCTS_DataPosition)() + Me._guarantee = New VERAG_out_nctsNCTS_DataGuarantee() + Me._carrier = New VERAG_out_nctsNCTS_DataCarrier() + Me._consignee = New VERAG_out_nctsNCTS_DataConsignee() + Me._sender = New VERAG_out_nctsNCTS_DataSender() + End Sub + + + Public Property DatDeterminationLimit() As Date + Get + Return Me._datDeterminationLimit + End Get + Set + Me._datDeterminationLimit = Value + End Set + End Property + + Public Property LicensePlate() As Object + Get + Return Me._licensePlate + End Get + Set + Me._licensePlate = Value + End Set + End Property + + Public Property DepartureCustomsOffice() As Object + Get + Return Me._departureCustomsOffice + End Get + Set + Me._departureCustomsOffice = Value + End Set + End Property + + Public Property DestinationCustomsOffice() As Object + Get + Return Me._destinationCustomsOffice + End Get + Set + Me._destinationCustomsOffice = Value + End Set + End Property + + Public Property DepartureCountry() As Object + Get + Return Me._departureCountry + End Get + Set + Me._departureCountry = Value + End Set + End Property + + Public Property DestinationCountry() As Object + Get + Return Me._destinationCountry + End Get + Set + Me._destinationCountry = Value + End Set + End Property + + Public Property Sender() As VERAG_out_nctsNCTS_DataSender + Get + Return Me._sender + End Get + Set + Me._sender = Value + End Set + End Property + + Public Property Consignee() As VERAG_out_nctsNCTS_DataConsignee + Get + Return Me._consignee + End Get + Set + Me._consignee = Value + End Set + End Property + + Public Property Carrier() As VERAG_out_nctsNCTS_DataCarrier + Get + Return Me._carrier + End Get + Set + Me._carrier = Value + End Set + End Property + + Public Property Guarantee() As VERAG_out_nctsNCTS_DataGuarantee + Get + Return Me._guarantee + End Get + Set + Me._guarantee = Value + End Set + End Property + + Public Property SumGrossWeight() As Decimal + Get + Return Me._sumGrossWeight + End Get + Set + Me._sumGrossWeight = Value + End Set + End Property + + + Public Property Position() As List(Of VERAG_out_nctsNCTS_DataPosition) + Get + Return Me._position + End Get + Set + Me._position = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VERAG_out_nctsNCTS_Data)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VERAG_out_nctsNCTS_Data object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an VERAG_out_nctsNCTS_Data object + ''' + ''' string workflow markup to deserialize + ''' Output VERAG_out_nctsNCTS_Data object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VERAG_out_nctsNCTS_Data, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsNCTS_Data) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VERAG_out_nctsNCTS_Data) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As VERAG_out_nctsNCTS_Data + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VERAG_out_nctsNCTS_Data) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VERAG_out_nctsNCTS_Data + Return CType(Serializer.Deserialize(s), VERAG_out_nctsNCTS_Data) + End Function +#End Region + + ''' + ''' Serializes current VERAG_out_nctsNCTS_Data object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VERAG_out_nctsNCTS_Data object + ''' + ''' string xml file to load and deserialize + ''' Output VERAG_out_nctsNCTS_Data object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VERAG_out_nctsNCTS_Data, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsNCTS_Data) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VERAG_out_nctsNCTS_Data) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As VERAG_out_nctsNCTS_Data + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class VERAG_out_nctsNCTS_DataSender + +#Region "Private fields" + Private _name As Object + + Private _adress As VERAG_out_nctsNCTS_DataSenderAdress + + Private _eORI As Object + + Private _eORI_NL As Object + + Private _uID_Nr As Object + + Private _customerCode As Object + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._adress = New VERAG_out_nctsNCTS_DataSenderAdress() + End Sub + + Public Property Name() As Object + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + Public Property Adress() As VERAG_out_nctsNCTS_DataSenderAdress + Get + Return Me._adress + End Get + Set + Me._adress = Value + End Set + End Property + + Public Property EORI() As Object + Get + Return Me._eORI + End Get + Set + Me._eORI = Value + End Set + End Property + + Public Property EORI_NL() As Object + Get + Return Me._eORI_NL + End Get + Set + Me._eORI_NL = Value + End Set + End Property + + Public Property UID_Nr() As Object + Get + Return Me._uID_Nr + End Get + Set + Me._uID_Nr = Value + End Set + End Property + + Public Property CustomerCode() As Object + Get + Return Me._customerCode + End Get + Set + Me._customerCode = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VERAG_out_nctsNCTS_DataSender)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VERAG_out_nctsNCTS_DataSender object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an VERAG_out_nctsNCTS_DataSender object + ''' + ''' string workflow markup to deserialize + ''' Output VERAG_out_nctsNCTS_DataSender object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VERAG_out_nctsNCTS_DataSender, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsNCTS_DataSender) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VERAG_out_nctsNCTS_DataSender) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As VERAG_out_nctsNCTS_DataSender + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VERAG_out_nctsNCTS_DataSender) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VERAG_out_nctsNCTS_DataSender + Return CType(Serializer.Deserialize(s), VERAG_out_nctsNCTS_DataSender) + End Function +#End Region + + ''' + ''' Serializes current VERAG_out_nctsNCTS_DataSender object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VERAG_out_nctsNCTS_DataSender object + ''' + ''' string xml file to load and deserialize + ''' Output VERAG_out_nctsNCTS_DataSender object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VERAG_out_nctsNCTS_DataSender, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsNCTS_DataSender) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VERAG_out_nctsNCTS_DataSender) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As VERAG_out_nctsNCTS_DataSender + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class VERAG_out_nctsNCTS_DataSenderAdress + +#Region "Private fields" + Private _country As Object + + Private _postcode As Object + + Private _city As Object + + Private _street As Object + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Country() As Object + Get + Return Me._country + End Get + Set + Me._country = Value + End Set + End Property + + Public Property Postcode() As Object + Get + Return Me._postcode + End Get + Set + Me._postcode = Value + End Set + End Property + + Public Property City() As Object + Get + Return Me._city + End Get + Set + Me._city = Value + End Set + End Property + + Public Property Street() As Object + Get + Return Me._street + End Get + Set + Me._street = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VERAG_out_nctsNCTS_DataSenderAdress)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VERAG_out_nctsNCTS_DataSenderAdress object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an VERAG_out_nctsNCTS_DataSenderAdress object + ''' + ''' string workflow markup to deserialize + ''' Output VERAG_out_nctsNCTS_DataSenderAdress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VERAG_out_nctsNCTS_DataSenderAdress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsNCTS_DataSenderAdress) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VERAG_out_nctsNCTS_DataSenderAdress) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As VERAG_out_nctsNCTS_DataSenderAdress + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VERAG_out_nctsNCTS_DataSenderAdress) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VERAG_out_nctsNCTS_DataSenderAdress + Return CType(Serializer.Deserialize(s), VERAG_out_nctsNCTS_DataSenderAdress) + End Function +#End Region + + ''' + ''' Serializes current VERAG_out_nctsNCTS_DataSenderAdress object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VERAG_out_nctsNCTS_DataSenderAdress object + ''' + ''' string xml file to load and deserialize + ''' Output VERAG_out_nctsNCTS_DataSenderAdress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VERAG_out_nctsNCTS_DataSenderAdress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsNCTS_DataSenderAdress) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VERAG_out_nctsNCTS_DataSenderAdress) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As VERAG_out_nctsNCTS_DataSenderAdress + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class VERAG_out_nctsNCTS_DataConsignee + +#Region "Private fields" + Private _name As Object + + Private _adress As VERAG_out_nctsNCTS_DataConsigneeAdress + + Private _eORI As Object + + Private _eORI_NL As Object + + Private _uID_Nr As Object + + Private _customerCode As Object + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._adress = New VERAG_out_nctsNCTS_DataConsigneeAdress() + End Sub + + Public Property Name() As Object + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + Public Property Adress() As VERAG_out_nctsNCTS_DataConsigneeAdress + Get + Return Me._adress + End Get + Set + Me._adress = Value + End Set + End Property + + Public Property EORI() As Object + Get + Return Me._eORI + End Get + Set + Me._eORI = Value + End Set + End Property + + Public Property EORI_NL() As Object + Get + Return Me._eORI_NL + End Get + Set + Me._eORI_NL = Value + End Set + End Property + + Public Property UID_Nr() As Object + Get + Return Me._uID_Nr + End Get + Set + Me._uID_Nr = Value + End Set + End Property + + Public Property CustomerCode() As Object + Get + Return Me._customerCode + End Get + Set + Me._customerCode = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VERAG_out_nctsNCTS_DataConsignee)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VERAG_out_nctsNCTS_DataConsignee object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an VERAG_out_nctsNCTS_DataConsignee object + ''' + ''' string workflow markup to deserialize + ''' Output VERAG_out_nctsNCTS_DataConsignee object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VERAG_out_nctsNCTS_DataConsignee, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsNCTS_DataConsignee) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VERAG_out_nctsNCTS_DataConsignee) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As VERAG_out_nctsNCTS_DataConsignee + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VERAG_out_nctsNCTS_DataConsignee) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VERAG_out_nctsNCTS_DataConsignee + Return CType(Serializer.Deserialize(s), VERAG_out_nctsNCTS_DataConsignee) + End Function +#End Region + + ''' + ''' Serializes current VERAG_out_nctsNCTS_DataConsignee object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VERAG_out_nctsNCTS_DataConsignee object + ''' + ''' string xml file to load and deserialize + ''' Output VERAG_out_nctsNCTS_DataConsignee object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VERAG_out_nctsNCTS_DataConsignee, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsNCTS_DataConsignee) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VERAG_out_nctsNCTS_DataConsignee) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As VERAG_out_nctsNCTS_DataConsignee + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class VERAG_out_nctsNCTS_DataConsigneeAdress + +#Region "Private fields" + Private _country As Object + + Private _postcode As Object + + Private _city As Object + + Private _street As Object + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Country() As Object + Get + Return Me._country + End Get + Set + Me._country = Value + End Set + End Property + + Public Property Postcode() As Object + Get + Return Me._postcode + End Get + Set + Me._postcode = Value + End Set + End Property + + Public Property City() As Object + Get + Return Me._city + End Get + Set + Me._city = Value + End Set + End Property + + Public Property Street() As Object + Get + Return Me._street + End Get + Set + Me._street = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VERAG_out_nctsNCTS_DataConsigneeAdress)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VERAG_out_nctsNCTS_DataConsigneeAdress object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an VERAG_out_nctsNCTS_DataConsigneeAdress object + ''' + ''' string workflow markup to deserialize + ''' Output VERAG_out_nctsNCTS_DataConsigneeAdress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VERAG_out_nctsNCTS_DataConsigneeAdress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsNCTS_DataConsigneeAdress) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VERAG_out_nctsNCTS_DataConsigneeAdress) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As VERAG_out_nctsNCTS_DataConsigneeAdress + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VERAG_out_nctsNCTS_DataConsigneeAdress) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VERAG_out_nctsNCTS_DataConsigneeAdress + Return CType(Serializer.Deserialize(s), VERAG_out_nctsNCTS_DataConsigneeAdress) + End Function +#End Region + + ''' + ''' Serializes current VERAG_out_nctsNCTS_DataConsigneeAdress object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VERAG_out_nctsNCTS_DataConsigneeAdress object + ''' + ''' string xml file to load and deserialize + ''' Output VERAG_out_nctsNCTS_DataConsigneeAdress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VERAG_out_nctsNCTS_DataConsigneeAdress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsNCTS_DataConsigneeAdress) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VERAG_out_nctsNCTS_DataConsigneeAdress) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As VERAG_out_nctsNCTS_DataConsigneeAdress + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class VERAG_out_nctsNCTS_DataCarrier + +#Region "Private fields" + Private _name As Object + + Private _adress As VERAG_out_nctsNCTS_DataCarrierAdress + + Private _eORI As Object + + Private _eORI_NL As Object + + Private _uID_Nr As Object + + Private _customerCode As Object + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._adress = New VERAG_out_nctsNCTS_DataCarrierAdress() + End Sub + + Public Property Name() As Object + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + Public Property Adress() As VERAG_out_nctsNCTS_DataCarrierAdress + Get + Return Me._adress + End Get + Set + Me._adress = Value + End Set + End Property + + Public Property EORI() As Object + Get + Return Me._eORI + End Get + Set + Me._eORI = Value + End Set + End Property + + Public Property EORI_NL() As Object + Get + Return Me._eORI_NL + End Get + Set + Me._eORI_NL = Value + End Set + End Property + + Public Property UID_Nr() As Object + Get + Return Me._uID_Nr + End Get + Set + Me._uID_Nr = Value + End Set + End Property + + Public Property CustomerCode() As Object + Get + Return Me._customerCode + End Get + Set + Me._customerCode = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VERAG_out_nctsNCTS_DataCarrier)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VERAG_out_nctsNCTS_DataCarrier object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an VERAG_out_nctsNCTS_DataCarrier object + ''' + ''' string workflow markup to deserialize + ''' Output VERAG_out_nctsNCTS_DataCarrier object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VERAG_out_nctsNCTS_DataCarrier, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsNCTS_DataCarrier) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VERAG_out_nctsNCTS_DataCarrier) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As VERAG_out_nctsNCTS_DataCarrier + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VERAG_out_nctsNCTS_DataCarrier) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VERAG_out_nctsNCTS_DataCarrier + Return CType(Serializer.Deserialize(s), VERAG_out_nctsNCTS_DataCarrier) + End Function +#End Region + + ''' + ''' Serializes current VERAG_out_nctsNCTS_DataCarrier object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VERAG_out_nctsNCTS_DataCarrier object + ''' + ''' string xml file to load and deserialize + ''' Output VERAG_out_nctsNCTS_DataCarrier object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VERAG_out_nctsNCTS_DataCarrier, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsNCTS_DataCarrier) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VERAG_out_nctsNCTS_DataCarrier) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As VERAG_out_nctsNCTS_DataCarrier + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class VERAG_out_nctsNCTS_DataCarrierAdress + +#Region "Private fields" + Private _country As Object + + Private _postcode As Object + + Private _city As Object + + Private _street As Object + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Country() As Object + Get + Return Me._country + End Get + Set + Me._country = Value + End Set + End Property + + Public Property Postcode() As Object + Get + Return Me._postcode + End Get + Set + Me._postcode = Value + End Set + End Property + + Public Property City() As Object + Get + Return Me._city + End Get + Set + Me._city = Value + End Set + End Property + + Public Property Street() As Object + Get + Return Me._street + End Get + Set + Me._street = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VERAG_out_nctsNCTS_DataCarrierAdress)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VERAG_out_nctsNCTS_DataCarrierAdress object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an VERAG_out_nctsNCTS_DataCarrierAdress object + ''' + ''' string workflow markup to deserialize + ''' Output VERAG_out_nctsNCTS_DataCarrierAdress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VERAG_out_nctsNCTS_DataCarrierAdress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsNCTS_DataCarrierAdress) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VERAG_out_nctsNCTS_DataCarrierAdress) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As VERAG_out_nctsNCTS_DataCarrierAdress + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VERAG_out_nctsNCTS_DataCarrierAdress) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VERAG_out_nctsNCTS_DataCarrierAdress + Return CType(Serializer.Deserialize(s), VERAG_out_nctsNCTS_DataCarrierAdress) + End Function +#End Region + + ''' + ''' Serializes current VERAG_out_nctsNCTS_DataCarrierAdress object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VERAG_out_nctsNCTS_DataCarrierAdress object + ''' + ''' string xml file to load and deserialize + ''' Output VERAG_out_nctsNCTS_DataCarrierAdress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VERAG_out_nctsNCTS_DataCarrierAdress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsNCTS_DataCarrierAdress) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VERAG_out_nctsNCTS_DataCarrierAdress) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As VERAG_out_nctsNCTS_DataCarrierAdress + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class VERAG_out_nctsNCTS_DataGuarantee + +#Region "Private fields" + Private _gRN As Object + + Private _amount As Object + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property GRN() As Object + Get + Return Me._gRN + End Get + Set + Me._gRN = Value + End Set + End Property + + Public Property Amount() As Object + Get + Return Me._amount + End Get + Set + Me._amount = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VERAG_out_nctsNCTS_DataGuarantee)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VERAG_out_nctsNCTS_DataGuarantee object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an VERAG_out_nctsNCTS_DataGuarantee object + ''' + ''' string workflow markup to deserialize + ''' Output VERAG_out_nctsNCTS_DataGuarantee object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VERAG_out_nctsNCTS_DataGuarantee, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsNCTS_DataGuarantee) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VERAG_out_nctsNCTS_DataGuarantee) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As VERAG_out_nctsNCTS_DataGuarantee + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VERAG_out_nctsNCTS_DataGuarantee) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VERAG_out_nctsNCTS_DataGuarantee + Return CType(Serializer.Deserialize(s), VERAG_out_nctsNCTS_DataGuarantee) + End Function +#End Region + + ''' + ''' Serializes current VERAG_out_nctsNCTS_DataGuarantee object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VERAG_out_nctsNCTS_DataGuarantee object + ''' + ''' string xml file to load and deserialize + ''' Output VERAG_out_nctsNCTS_DataGuarantee object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VERAG_out_nctsNCTS_DataGuarantee, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsNCTS_DataGuarantee) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VERAG_out_nctsNCTS_DataGuarantee) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As VERAG_out_nctsNCTS_DataGuarantee + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class VERAG_out_nctsNCTS_DataPosition + +#Region "Private fields" + Private _posNr As Object + + Private _quantity As Object + + Private _packaging As Object + + Private _goodsDescription As Object + + Private _grossWeight As Object + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property PosNr() As Object + Get + Return Me._posNr + End Get + Set + Me._posNr = Value + End Set + End Property + + Public Property Quantity() As Object + Get + Return Me._quantity + End Get + Set + Me._quantity = Value + End Set + End Property + + Public Property Packaging() As Object + Get + Return Me._packaging + End Get + Set + Me._packaging = Value + End Set + End Property + + Public Property GoodsDescription() As Object + Get + Return Me._goodsDescription + End Get + Set + Me._goodsDescription = Value + End Set + End Property + + Public Property GrossWeight() As Object + Get + Return Me._grossWeight + End Get + Set + Me._grossWeight = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VERAG_out_nctsNCTS_DataPosition)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VERAG_out_nctsNCTS_DataPosition object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an VERAG_out_nctsNCTS_DataPosition object + ''' + ''' string workflow markup to deserialize + ''' Output VERAG_out_nctsNCTS_DataPosition object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VERAG_out_nctsNCTS_DataPosition, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsNCTS_DataPosition) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VERAG_out_nctsNCTS_DataPosition) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As VERAG_out_nctsNCTS_DataPosition + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VERAG_out_nctsNCTS_DataPosition) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VERAG_out_nctsNCTS_DataPosition + Return CType(Serializer.Deserialize(s), VERAG_out_nctsNCTS_DataPosition) + End Function +#End Region + + ''' + ''' Serializes current VERAG_out_nctsNCTS_DataPosition object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VERAG_out_nctsNCTS_DataPosition object + ''' + ''' string xml file to load and deserialize + ''' Output VERAG_out_nctsNCTS_DataPosition object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VERAG_out_nctsNCTS_DataPosition, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsNCTS_DataPosition) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VERAG_out_nctsNCTS_DataPosition) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As VERAG_out_nctsNCTS_DataPosition + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class VERAG_out_nctsAttachment + +#Region "Private fields" + Private _name As Object + + Private _fileType As Object + + Private _description As Object + + Private _documentType As VERAG_out_nctsAttachmentDocumentType + + Private _base64BinaryStream() As Byte + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Name() As Object + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + Public Property FileType() As Object + Get + Return Me._fileType + End Get + Set + Me._fileType = Value + End Set + End Property + + Public Property Description() As Object + Get + Return Me._description + End Get + Set + Me._description = Value + End Set + End Property + + Public Property DocumentType() As VERAG_out_nctsAttachmentDocumentType + Get + Return Me._documentType + End Get + Set + Me._documentType = Value + End Set + End Property + + + Public Property base64BinaryStream() As Byte() + Get + Return Me._base64BinaryStream + End Get + Set + Me._base64BinaryStream = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VERAG_out_nctsAttachment)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VERAG_out_nctsAttachment object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an VERAG_out_nctsAttachment object + ''' + ''' string workflow markup to deserialize + ''' Output VERAG_out_nctsAttachment object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VERAG_out_nctsAttachment, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsAttachment) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VERAG_out_nctsAttachment) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As VERAG_out_nctsAttachment + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VERAG_out_nctsAttachment) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VERAG_out_nctsAttachment + Return CType(Serializer.Deserialize(s), VERAG_out_nctsAttachment) + End Function +#End Region + + ''' + ''' Serializes current VERAG_out_nctsAttachment object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VERAG_out_nctsAttachment object + ''' + ''' string xml file to load and deserialize + ''' Output VERAG_out_nctsAttachment object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VERAG_out_nctsAttachment, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_out_nctsAttachment) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VERAG_out_nctsAttachment) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As VERAG_out_nctsAttachment + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Public Enum VERAG_out_nctsAttachmentDocumentType + + ''' + NCTS + + ''' + OTHER + End Enum +End Namespace diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/OUT_NCTS/VERAG_out_ncts_V2_0_1.xsd b/VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/OUT_NCTS/VERAG_out_ncts_V2_0_1.xsd new file mode 100644 index 00000000..e06d9c77 --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/OUT_NCTS/VERAG_out_ncts_V2_0_1.xsd @@ -0,0 +1,161 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/cTherefore.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/cTherefore.vb index 59ce7c39..4c8b60ab 100644 --- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/cTherefore.vb +++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/cTherefore.vb @@ -6,7 +6,8 @@ Public Class cTherefore Case 7 Return saveFileTo_ImportFolderCat(Path, FilialeAbfertigungsNr, AvisoId, "Atilla ab Juni 2011",, deleteFileAfterImport) Case 1, 11 ', 15,20 - Return saveFileTo_ImportFolderCat(Path, FilialeAbfertigungsNr, AvisoId, "Import an Jänner 2019", "Import ab Jänner 2019", deleteFileAfterImport) + ' Return saveFileTo_ImportFolderCat(Path, FilialeAbfertigungsNr, AvisoId, "Import an Jänner 2019", "Import ab Jänner 2019", deleteFileAfterImport) + Return saveFileTo_ImportFolderCat(Path, FilialeAbfertigungsNr, AvisoId, "Import an Jänner 2020", "Import ab Jänner 2020", deleteFileAfterImport) Case Else Return False End Select diff --git a/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj b/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj index 876cc827..20445e18 100644 --- a/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj +++ b/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj @@ -301,7 +301,10 @@ + + + @@ -372,6 +375,30 @@ Form + + frmMessenger.vb + + + Form + + + frmMessenger_NeuerChat.vb + + + Form + + + usrCntlMessenger_ChatAnhang.vb + + + UserControl + + + usrCntlMessenger_ChatElement.vb + + + UserControl + True @@ -397,6 +424,7 @@ + True True @@ -449,6 +477,18 @@ frmSourceList.vb + + frmMessenger.vb + + + frmMessenger_NeuerChat.vb + + + usrCntlMessenger_ChatAnhang.vb + + + usrCntlMessenger_ChatElement.vb + VbMyResourcesResXFileCodeGenerator Resources.Designer.vb @@ -474,6 +514,9 @@ Designer + + Designer + Reference.map @@ -614,6 +657,9 @@ True + + +