diff --git a/SDL/Fakturierung/frmFaktEmail.vb b/SDL/Fakturierung/frmFaktEmail.vb index a7041885..5edf46a5 100644 --- a/SDL/Fakturierung/frmFaktEmail.vb +++ b/SDL/Fakturierung/frmFaktEmail.vb @@ -325,8 +325,8 @@ Public Class frmFaktEmail Dim outl As New Outlook.Application Dim Mail As Microsoft.Office.Interop.Outlook.MailItem - Mail = outl.CreateItem(0) - Mail.Subject = txtSubject.Text + Mail = outl.CreateItem(0) + Mail.Subject = txtSubject.Text If Firma_ID = 24 Then Try @@ -343,7 +343,7 @@ Public Class frmFaktEmail Next End If Catch ex As Exception - MsgBox("Fehler beim Ermitteln des Mail-Accounts." & ex.Message & ex.StackTrace) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Fehler beim Ermitteln des Mail-Accounts." & ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try End If @@ -351,64 +351,64 @@ Public Class frmFaktEmail 'Mail-Adressen eintragen '----------------------------------------------------------------- For Each r In dgvEmail.Rows - If r.cells(0).value <> "" Then Mail.To &= r.cells(0).value & ";" - Next - For Each r In dgvEmailCC.Rows - If r.cells(0).value <> "" Then Mail.CC &= r.cells(0).value & ";" - Next - For Each r In dgvEmailBCC.Rows - If r.cells(0).value <> "" Then Mail.BCC &= r.cells(0).value & ";" - Next + If r.cells(0).value <> "" Then Mail.To &= r.cells(0).value & ";" + Next + For Each r In dgvEmailCC.Rows + If r.cells(0).value <> "" Then Mail.CC &= r.cells(0).value & ";" + Next + For Each r In dgvEmailBCC.Rows + If r.cells(0).value <> "" Then Mail.BCC &= r.cells(0).value & ";" + Next - RichTextBox.Text = RichTextBox.Text.Replace("%RgNr%", lastAktuelle_RgNr) - txtSubject.Text = txtSubject.Text.Replace("%RgNr%", lastAktuelle_RgNr) + RichTextBox.Text = RichTextBox.Text.Replace("%RgNr%", lastAktuelle_RgNr) + txtSubject.Text = txtSubject.Text.Replace("%RgNr%", lastAktuelle_RgNr) Dim TextHTML = "
" & RichTextBox.Text.Replace(ControlChars.Lf, "
") & cFakturierung.getSignature(AD.LandKz, Firma_ID,,,, additionalLine,, IIf(Firma_ID = "24", True, False)) & "
" Mail.HTMLBody = TextHTML - Mail.Subject = txtSubject.Text + Mail.Subject = txtSubject.Text - ATTACHMENTS.Clear() - '----------------------------------------------------------------- - 'Rechnungen anfügen - '----------------------------------------------------------------- - For Each l In listPDFs - ' Mail.Attachments.Add(l, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue) - ATTACHMENTS.Add(New cFakt_MailATTach(l, "")) + ATTACHMENTS.Clear() + '----------------------------------------------------------------- + 'Rechnungen anfügen + '----------------------------------------------------------------- + For Each l In listPDFs + ' Mail.Attachments.Add(l, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue) + ATTACHMENTS.Add(New cFakt_MailATTach(l, "")) + Next + For Each l In SonstAnlagen + ' Mail.Attachments.Add(l, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue) + ATTACHMENTS.Add(New cFakt_MailATTach(l, "")) + Next + addAttachments(Mail, lastAktuelle_RgNr, cbxMergeRg.Checked) + + '----------------------------------------------------------------- + 'Steuerbescheid/VDB anfügen + '----------------------------------------------------------------- + getAnhaenge() + 'For Each l In listPDFs + ' ' Mail.Attachments.Add(l, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue) + ' ATTACHMENTS.Add(New cFakt_MailATTach(l, "")) + 'Next + + 'Rechnungsanhänge anfügen + '----------------------------------------------------------------- + If SR_DT IsNot Nothing AndAlso SR_DT.Rows.Count > 0 Then + For Each r In SR_DT.Rows + Dim RG_ANH = VERAG_PROG_ALLGEMEIN.cRechnungsausgang.LOAD_ANHAENGE_LIST(r("RK_ID")) + If RG_ANH IsNot Nothing Then + For Each ANH In RG_ANH + ATTACHMENTS.Add(New cFakt_MailATTach(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(ANH.dsId), ANH.Bezeichnung)) + Next + End If Next - For Each l In SonstAnlagen - ' Mail.Attachments.Add(l, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue) - ATTACHMENTS.Add(New cFakt_MailATTach(l, "")) - Next - addAttachments(Mail, lastAktuelle_RgNr, cbxMergeRg.Checked) - - '----------------------------------------------------------------- - 'Steuerbescheid/VDB anfügen - '----------------------------------------------------------------- - getAnhaenge() - 'For Each l In listPDFs - ' ' Mail.Attachments.Add(l, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue) - ' ATTACHMENTS.Add(New cFakt_MailATTach(l, "")) - 'Next - - 'Rechnungsanhänge anfügen - '----------------------------------------------------------------- - If SR_DT IsNot Nothing AndAlso SR_DT.Rows.Count > 0 Then - For Each r In SR_DT.Rows - Dim RG_ANH = VERAG_PROG_ALLGEMEIN.cRechnungsausgang.LOAD_ANHAENGE_LIST(r("RK_ID")) - If RG_ANH IsNot Nothing Then - For Each ANH In RG_ANH - ATTACHMENTS.Add(New cFakt_MailATTach(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(ANH.dsId), ANH.Bezeichnung)) - Next - End If - Next - End If - '----------------------------------------------------------------- + End If + '----------------------------------------------------------------- - addAttachments(Mail, lastAktuelle_RgNr, cbxMergePDF.Checked) + addAttachments(Mail, lastAktuelle_RgNr, cbxMergePDF.Checked) If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then Try @@ -419,16 +419,16 @@ Public Class frmFaktEmail End If Mail.Display() - '------------------------------------------------------------------------------------------ - ' STB /FA SR: ABFRAGE FISKAL-VZ - If isFiskal Then - send_StbFAMail(AD.AdressenNr, " Rg-Nr.: " & lastAktuelle_RgNr, lastAktuelle_RgNr) - End If - '------------------------------------------------------------------------------------------ - + '------------------------------------------------------------------------------------------ + ' STB /FA SR: ABFRAGE FISKAL-VZ + If isFiskal Then + send_StbFAMail(AD.AdressenNr, " Rg-Nr.: " & lastAktuelle_RgNr, lastAktuelle_RgNr) End If + '------------------------------------------------------------------------------------------ + + End If Catch ex As Exception - MsgBox("Fehler beim Öffnen des Mail-Programmes." & ex.Message & ex.StackTrace) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Fehler beim Öffnen des Mail-Programmes." & ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) 'Process.Start(a) End Try @@ -463,7 +463,7 @@ Public Class frmFaktEmail Next End If Catch ex As Exception - MsgBox("Fehler beim Ermitteln des Mail-Accounts." & ex.Message & ex.StackTrace) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Fehler beim Ermitteln des Mail-Accounts." & ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try End If @@ -540,7 +540,7 @@ Public Class frmFaktEmail Try Mail.SentOnBehalfOfName = "buchhaltung@ambarlog.de" Catch ex2 As Exception - MsgBox(ex2.Message) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex2.Message, ex2.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try End If @@ -553,7 +553,7 @@ Public Class frmFaktEmail '------------------------------------------------------------------------------------------ Catch ex As Exception - MsgBox("Fehler beim Öffnen des Mail-Programmes." & ex.Message & ex.StackTrace) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Fehler beim Öffnen des Mail-Programmes." & ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) 'Process.Start(a) End Try @@ -720,7 +720,7 @@ Public Class frmFaktEmail End If Catch ex As Exception - MsgBox("Fehler beim Öffnen des Mail-Programmes (STB FA). " & ex.Message & ex.StackTrace) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Fehler beim Öffnen des Mail-Programmes (STB FA). " & vbNewLine & ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try End Sub @@ -776,7 +776,7 @@ Public Class frmFaktEmail '----------------------------------------------------------------- Catch ex As Exception - MsgBox(ex.Message & ex.StackTrace) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try End Sub @@ -868,7 +868,7 @@ Public Class frmFaktEmail End If Catch ex As Exception - MsgBox(ex.Message & ex.StackTrace) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try End Sub diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrCntlQualitaetskontrolle.Designer.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrCntlQualitaetskontrolle.Designer.vb index 59e012c1..1b104e81 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrCntlQualitaetskontrolle.Designer.vb +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrCntlQualitaetskontrolle.Designer.vb @@ -22,15 +22,15 @@ Partial Class usrCntlQualitaetskontrolle 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. Private Sub InitializeComponent() - Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Me.Label46 = New System.Windows.Forms.Label() Me.Button2 = New System.Windows.Forms.Button() Me.Label40 = New System.Windows.Forms.Label() @@ -62,6 +62,12 @@ Partial Class usrCntlQualitaetskontrolle Me.txtFirma = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label30 = New System.Windows.Forms.Label() Me.dgvPositionen = New System.Windows.Forms.DataGridView() + Me.pos = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.anZ_pkgstk = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.art_pkgstk = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.erzeugnis = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.gewicht = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.KNCode = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.txtPackAdresse2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtPackAdresse1 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtPackFirma = New VERAG_PROG_ALLGEMEIN.MyTextBox() @@ -103,12 +109,8 @@ Partial Class usrCntlQualitaetskontrolle Me.cbxVerzicht = New System.Windows.Forms.CheckBox() Me.txtSumme = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label18 = New System.Windows.Forms.Label() - Me.pos = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.anZ_pkgstk = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.art_pkgstk = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.erzeugnis = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.gewicht = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.KNCode = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.btnVermarktungsnorman = New System.Windows.Forms.Button() + Me.btnPreise = New System.Windows.Forms.Button() CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.dgvPositionen, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.dgvGebuehren, System.ComponentModel.ISupportInitialize).BeginInit() @@ -561,6 +563,50 @@ Partial Class usrCntlQualitaetskontrolle Me.dgvPositionen.Size = New System.Drawing.Size(791, 345) Me.dgvPositionen.TabIndex = 156 ' + 'pos + ' + DataGridViewCellStyle10.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight + DataGridViewCellStyle10.Format = "N0" + DataGridViewCellStyle10.NullValue = Nothing + Me.pos.DefaultCellStyle = DataGridViewCellStyle10 + Me.pos.Frozen = True + Me.pos.HeaderText = "Position" + Me.pos.MaxInputLength = 3 + Me.pos.Name = "pos" + Me.pos.ReadOnly = True + Me.pos.Width = 50 + ' + 'anZ_pkgstk + ' + Me.anZ_pkgstk.HeaderText = "Anz-Packs." + Me.anZ_pkgstk.Name = "anZ_pkgstk" + ' + 'art_pkgstk + ' + Me.art_pkgstk.HeaderText = "Art-Packs" + Me.art_pkgstk.Name = "art_pkgstk" + ' + 'erzeugnis + ' + Me.erzeugnis.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill + Me.erzeugnis.HeaderText = "Art des Erzeugnisses" + Me.erzeugnis.Name = "erzeugnis" + ' + 'gewicht + ' + DataGridViewCellStyle11.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight + DataGridViewCellStyle11.Format = "N2" + DataGridViewCellStyle11.NullValue = Nothing + Me.gewicht.DefaultCellStyle = DataGridViewCellStyle11 + Me.gewicht.HeaderText = "Gewicht" + Me.gewicht.MaxInputLength = 100 + Me.gewicht.Name = "gewicht" + ' + 'KNCode + ' + Me.KNCode.HeaderText = "KNCode" + Me.KNCode.Name = "KNCode" + ' 'txtPackAdresse2 ' Me.txtPackAdresse2._DateTimeOnly = False @@ -802,10 +848,10 @@ Partial Class usrCntlQualitaetskontrolle ' 'DataGridViewTextBoxColumn1 ' - DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight - DataGridViewCellStyle3.Format = "N0" - DataGridViewCellStyle3.NullValue = Nothing - Me.DataGridViewTextBoxColumn1.DefaultCellStyle = DataGridViewCellStyle3 + DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight + DataGridViewCellStyle12.Format = "N0" + DataGridViewCellStyle12.NullValue = Nothing + Me.DataGridViewTextBoxColumn1.DefaultCellStyle = DataGridViewCellStyle12 Me.DataGridViewTextBoxColumn1.Frozen = True Me.DataGridViewTextBoxColumn1.HeaderText = "Position" Me.DataGridViewTextBoxColumn1.MaxInputLength = 3 @@ -827,20 +873,20 @@ Partial Class usrCntlQualitaetskontrolle 'DataGridViewTextBoxColumn4 ' Me.DataGridViewTextBoxColumn4.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill - DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight - DataGridViewCellStyle4.Format = "N2" - DataGridViewCellStyle4.NullValue = Nothing - Me.DataGridViewTextBoxColumn4.DefaultCellStyle = DataGridViewCellStyle4 + DataGridViewCellStyle13.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight + DataGridViewCellStyle13.Format = "N2" + DataGridViewCellStyle13.NullValue = Nothing + Me.DataGridViewTextBoxColumn4.DefaultCellStyle = DataGridViewCellStyle13 Me.DataGridViewTextBoxColumn4.HeaderText = "Gewicht" Me.DataGridViewTextBoxColumn4.MaxInputLength = 100 Me.DataGridViewTextBoxColumn4.Name = "DataGridViewTextBoxColumn4" ' 'DataGridViewTextBoxColumn5 ' - DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight - DataGridViewCellStyle5.Format = "N2" - DataGridViewCellStyle5.NullValue = Nothing - Me.DataGridViewTextBoxColumn5.DefaultCellStyle = DataGridViewCellStyle5 + DataGridViewCellStyle14.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight + DataGridViewCellStyle14.Format = "N2" + DataGridViewCellStyle14.NullValue = Nothing + Me.DataGridViewTextBoxColumn5.DefaultCellStyle = DataGridViewCellStyle14 Me.DataGridViewTextBoxColumn5.HeaderText = "Gewicht" Me.DataGridViewTextBoxColumn5.MaxInputLength = 100 Me.DataGridViewTextBoxColumn5.Name = "DataGridViewTextBoxColumn5" @@ -959,37 +1005,37 @@ Partial Class usrCntlQualitaetskontrolle ' 'gew ' - DataGridViewCellStyle6.Format = "N2" - DataGridViewCellStyle6.NullValue = Nothing - Me.gew.DefaultCellStyle = DataGridViewCellStyle6 + DataGridViewCellStyle15.Format = "N2" + DataGridViewCellStyle15.NullValue = Nothing + Me.gew.DefaultCellStyle = DataGridViewCellStyle15 Me.gew.HeaderText = "Gewicht" Me.gew.Name = "gew" Me.gew.ReadOnly = True ' 'Preis ' - DataGridViewCellStyle7.Format = "C2" - DataGridViewCellStyle7.NullValue = Nothing - Me.Preis.DefaultCellStyle = DataGridViewCellStyle7 + DataGridViewCellStyle16.Format = "C2" + DataGridViewCellStyle16.NullValue = Nothing + Me.Preis.DefaultCellStyle = DataGridViewCellStyle16 Me.Preis.HeaderText = "Preis" Me.Preis.Name = "Preis" Me.Preis.ReadOnly = True ' 'Faktor ' - DataGridViewCellStyle8.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleCenter - DataGridViewCellStyle8.Format = "N0" - DataGridViewCellStyle8.NullValue = Nothing - Me.Faktor.DefaultCellStyle = DataGridViewCellStyle8 + DataGridViewCellStyle17.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleCenter + DataGridViewCellStyle17.Format = "N0" + DataGridViewCellStyle17.NullValue = Nothing + Me.Faktor.DefaultCellStyle = DataGridViewCellStyle17 Me.Faktor.HeaderText = "Faktor" Me.Faktor.Name = "Faktor" Me.Faktor.ReadOnly = True ' 'Betrag ' - DataGridViewCellStyle9.Format = "C2" - DataGridViewCellStyle9.NullValue = Nothing - Me.Betrag.DefaultCellStyle = DataGridViewCellStyle9 + DataGridViewCellStyle18.Format = "C2" + DataGridViewCellStyle18.NullValue = Nothing + Me.Betrag.DefaultCellStyle = DataGridViewCellStyle18 Me.Betrag.HeaderText = "Betrag" Me.Betrag.Name = "Betrag" Me.Betrag.ReadOnly = True @@ -1051,49 +1097,27 @@ Partial Class usrCntlQualitaetskontrolle Me.Label18.TabIndex = 192 Me.Label18.Text = "Betrag:" ' - 'pos + 'btnVermarktungsnorman ' - DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight - DataGridViewCellStyle1.Format = "N0" - DataGridViewCellStyle1.NullValue = Nothing - Me.pos.DefaultCellStyle = DataGridViewCellStyle1 - Me.pos.Frozen = True - Me.pos.HeaderText = "Position" - Me.pos.MaxInputLength = 3 - Me.pos.Name = "pos" - Me.pos.ReadOnly = True - Me.pos.Width = 50 + Me.btnVermarktungsnorman.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnVermarktungsnorman.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnVermarktungsnorman.Location = New System.Drawing.Point(24, 736) + Me.btnVermarktungsnorman.Name = "btnVermarktungsnorman" + Me.btnVermarktungsnorman.Size = New System.Drawing.Size(127, 24) + Me.btnVermarktungsnorman.TabIndex = 194 + Me.btnVermarktungsnorman.Text = "Vermarktungsnormen" + Me.btnVermarktungsnorman.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnVermarktungsnorman.UseVisualStyleBackColor = True ' - 'anZ_pkgstk + 'btnPreise ' - Me.anZ_pkgstk.HeaderText = "Anz-Packs." - Me.anZ_pkgstk.Name = "anZ_pkgstk" - ' - 'art_pkgstk - ' - Me.art_pkgstk.HeaderText = "Art-Packs" - Me.art_pkgstk.Name = "art_pkgstk" - ' - 'erzeugnis - ' - Me.erzeugnis.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill - Me.erzeugnis.HeaderText = "Art des Erzeugnisses" - Me.erzeugnis.Name = "erzeugnis" - ' - 'gewicht - ' - DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight - DataGridViewCellStyle2.Format = "N2" - DataGridViewCellStyle2.NullValue = Nothing - Me.gewicht.DefaultCellStyle = DataGridViewCellStyle2 - Me.gewicht.HeaderText = "Gewicht" - Me.gewicht.MaxInputLength = 100 - Me.gewicht.Name = "gewicht" - ' - 'KNCode - ' - Me.KNCode.HeaderText = "KNCode" - Me.KNCode.Name = "KNCode" + Me.btnPreise.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnPreise.Location = New System.Drawing.Point(24, 766) + Me.btnPreise.Name = "btnPreise" + Me.btnPreise.Size = New System.Drawing.Size(127, 24) + Me.btnPreise.TabIndex = 195 + Me.btnPreise.Text = "Preise" + Me.btnPreise.UseVisualStyleBackColor = True ' 'usrCntlQualitaetskontrolle ' @@ -1101,6 +1125,8 @@ Partial Class usrCntlQualitaetskontrolle Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.BackColor = System.Drawing.Color.WhiteSmoke Me.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Controls.Add(Me.btnPreise) + Me.Controls.Add(Me.btnVermarktungsnorman) Me.Controls.Add(Me.txtSumme) Me.Controls.Add(Me.Label18) Me.Controls.Add(Me.cbxVerzicht) @@ -1250,4 +1276,6 @@ Partial Class usrCntlQualitaetskontrolle Friend WithEvents erzeugnis As DataGridViewTextBoxColumn Friend WithEvents gewicht As DataGridViewTextBoxColumn Friend WithEvents KNCode As DataGridViewTextBoxColumn + Friend WithEvents btnVermarktungsnorman As Button + Friend WithEvents btnPreise As Button End Class diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrCntlQualitaetskontrolle.resx b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrCntlQualitaetskontrolle.resx index 19f0523e..f5f4cc74 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrCntlQualitaetskontrolle.resx +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrCntlQualitaetskontrolle.resx @@ -135,6 +135,39 @@ True + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + True diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrCntlQualitaetskontrolle.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrCntlQualitaetskontrolle.vb index db092efc..a856e0d9 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrCntlQualitaetskontrolle.vb +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrCntlQualitaetskontrolle.vb @@ -1,4 +1,5 @@ -Imports DAKOSY_Worker.DEXPSD +Imports System.Security.Claims +Imports DAKOSY_Worker.DEXPSD Imports DocumentFormat.OpenXml.Drawing.Diagrams Imports VERAG_PROG_ALLGEMEIN @@ -437,97 +438,170 @@ Public Class usrCntlQualitaetskontrolle End Sub + Private Sub btnVermarktungsnorman_Click(sender As Object, e As EventArgs) Handles btnVermarktungsnorman.Click + + + Try + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + Dim frm As New Form + Dim dgv As New DataGridView() + Dim dt As DataTable = SQL.loadDgvBySql("SELECT * from tblVermarktungsnormen order by kncode ", "FMZOLL") + + dgv.DataSource = dt + If dgv IsNot Nothing Then + frm.Size = New Size(300, 700) + dgv.Size = New Size(frm.Size.Width - 10, frm.Size.Height - 10) + dgv.Dock = DockStyle.Fill + dgv.Anchor = AnchorStyles.Left + dgv.Anchor = AnchorStyles.Top + dgv.ReadOnly = True + frm.Controls.Add(dgv) + frm.StartPosition = FormStartPosition.CenterScreen + frm.ShowDialog() + End If + + + Catch ex As System.Exception + + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + + + End Sub + + Private Sub btnPreise_Click(sender As Object, e As EventArgs) Handles btnPreise.Click + + + Try + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + Dim frm As New Form + Dim dgv As New DataGridView() + Dim dt As DataTable = SQL.loadDgvBySql("SELECT * from tblVermarktungsnormenGebuehren ", "FMZOLL") + + dgv.DataSource = dt + If dgv IsNot Nothing Then + frm.Size = New Size(500, 200) + dgv.Size = New Size(frm.Size.Width - 10, frm.Size.Height - 10) + dgv.Dock = DockStyle.Fill + dgv.Anchor = AnchorStyles.Left + dgv.Anchor = AnchorStyles.Top + dgv.ReadOnly = True + frm.Controls.Add(dgv) + frm.StartPosition = FormStartPosition.CenterScreen + frm.ShowDialog() + End If + + + Catch ex As System.Exception + + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + + + End Sub + Private Sub initdgvGebuehren() - If dgvGebuehren.Rows.Count > 0 Then dgvGebuehren.Rows.Clear() - Dim posVorhanden As Boolean = False - - If dgvPositionen.Rows.Count < 1 Then Exit Sub - - If normenSpeziell.Rows.Count < 1 Or normenSpeziell.Rows.Count < 1 Then Exit Sub + Try - Dim sumNormenAllg As Double = 0 - Dim sumNormenSpez As Double = 0 + If dgvGebuehren.Rows.Count > 0 Then dgvGebuehren.Rows.Clear() + Dim posVorhanden As Boolean = False - Dim antrag, verzicht, idk As Double - antrag = 40.7 - verzicht = 9.3 - idk = 39.4 + If dgvPositionen.Rows.Count < 1 Then Exit Sub + + If normenSpeziell.Rows.Count < 1 Or normenSpeziell.Rows.Count < 1 Then Exit Sub - For Each r As DataGridViewRow In dgvPositionen.Rows + Dim sumNormenAllg As Double = 0 + Dim sumNormenSpez As Double = 0 - Dim found As Boolean = False + Dim antrag, verzicht, idk As Double + antrag = 40.7 + verzicht = 9.3 + idk = 39.4 - If r IsNot Nothing And IsNumeric(r.Cells(4).Value) AndAlso r.Cells(4).Value >= 1000 Then - posVorhanden = True - If r.Cells(5).Value <> "" Then - For Each row As DataRow In normenSpeziell.Rows - Dim code = row("kncode").trim() - Dim searchedCode = r.Cells(5).Value - searchedCode = searchedCode.ToString.Substring(0, code.Length) - If row("kncode") = searchedCode Then - sumNormenSpez += r.Cells(4).Value - found = True - Exit For - End If + For Each r As DataGridViewRow In dgvPositionen.Rows - Next - If Not found Then + Dim found As Boolean = False - For Each row As DataRow In normenAllg.Rows - Dim code = row("kncode").trim() + If r IsNot Nothing And IsNumeric(r.Cells(4).Value) AndAlso r.Cells(4).Value >= 1000 Then + posVorhanden = True + + If r.Cells(5).Value <> "" Then + For Each row As DataRow In normenSpeziell.Rows + Dim code = row("kncode").ToString.Trim().Replace(" ", "") Dim searchedCode = r.Cells(5).Value - If searchedCode = searchedCode.ToString.Substring(0, code.Length) Then - sumNormenAllg += r.Cells(4).Value + searchedCode = searchedCode.ToString.Substring(0, code.Length) + If code = searchedCode Then + sumNormenSpez += r.Cells(4).Value found = True Exit For End If Next + If Not found Then + For Each row As DataRow In normenAllg.Rows + Dim code = row("kncode").ToString.Trim().Replace(" ", "") + Dim searchedCode = r.Cells(5).Value + searchedCode = searchedCode.ToString.Substring(0, code.Length) + If code = searchedCode Then + sumNormenAllg += r.Cells(4).Value + found = True + Exit For + End If + + Next + + End If End If + End If + Next + + If Not posVorhanden Then Exit Sub + + If sumNormenAllg > 0 Then + Dim anzAllg As Integer + anzAllg = Math.Ceiling(sumNormenAllg / 1000) + dgvGebuehren.Rows.Add("Allgemein", sumNormenAllg, NormenpreisAllg, anzAllg, anzAllg * NormenpreisAllg) + End If + If sumNormenSpez > 0 Then + Dim anzSpez As Integer + anzSpez = Math.Ceiling(sumNormenSpez / 1000) + dgvGebuehren.Rows.Add("Speziell", sumNormenSpez, NormenpreisSpez, anzSpez, anzSpez * NormenpreisSpez) End If - Next - - If Not posVorhanden Then Exit Sub - - If sumNormenAllg > 0 Then - Dim anzAllg As Integer - anzAllg = Math.Ceiling(sumNormenAllg / 1000) - dgvGebuehren.Rows.Add("Allgemein", sumNormenAllg, NormenpreisAllg, anzAllg, anzAllg * NormenpreisAllg) - End If - If sumNormenSpez > 0 Then - Dim anzSpez As Integer - anzSpez = Math.Ceiling(sumNormenSpez / 1000) - dgvGebuehren.Rows.Add("Speziell", sumNormenSpez, NormenpreisSpez, anzSpez, anzSpez * NormenpreisSpez) - End If - - If cbxVerzicht.Checked Then - dgvGebuehren.Rows.Clear() - dgvGebuehren.Rows.Add("Antrag", "", antrag, "", antrag) - dgvGebuehren.Rows.Add("Verzicht", "", verzicht, "", verzicht) - Else - dgvGebuehren.Rows.Add("Antrag", "", antrag, "", antrag) - dgvGebuehren.Rows.Add("Identitätskontrolle", "", idk, "", idk) - End If + If cbxVerzicht.Checked Then + dgvGebuehren.Rows.Clear() + dgvGebuehren.Rows.Add("Antrag", "", antrag, "", antrag) + dgvGebuehren.Rows.Add("Verzicht", "", verzicht, "", verzicht) + Else + dgvGebuehren.Rows.Add("Antrag", "", antrag, "", antrag) + dgvGebuehren.Rows.Add("Identitätskontrolle", "", idk, "", idk) + End If - Dim sumBetrag As Double = 0 - For Each r As DataGridViewRow In dgvGebuehren.Rows - If IsNumeric(r.Cells(4).Value) Then sumBetrag += r.Cells(4).Value - Next + Dim sumBetrag As Double = 0 + For Each r As DataGridViewRow In dgvGebuehren.Rows + If IsNumeric(r.Cells(4).Value) Then sumBetrag += r.Cells(4).Value + Next - txtSumme.Text = CDbl(sumBetrag) + txtSumme.Text = CDbl(sumBetrag) + + Catch ex As System.Exception + + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try End Sub diff --git a/SDL/Formulare/KDFormulare/frmFormulare.vb b/SDL/Formulare/KDFormulare/frmFormulare.vb index 98f071d6..14d46ebb 100644 --- a/SDL/Formulare/KDFormulare/frmFormulare.vb +++ b/SDL/Formulare/KDFormulare/frmFormulare.vb @@ -1626,48 +1626,55 @@ Public Class FormularManagerNEU End Function Shared Function VM_MDM_BHI(usrCntl As usrcntlVollmacht_MDM_BHI) As String - - 'aktuell nur als PDF - - Dim list As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem) - Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager - list = fm.getPDFFields_Editierbar("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", "MDM", "", "VM_BHI_" & usrCntl.cboLand._value) + Try - Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues) - Dim listItem2 As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem) - For Each item In list + 'aktuell nur als PDF - Select Case item.Text.ToLower().Trim() - Case "name" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtFirma.Text)) - Case "company" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtFirma.Text)) - Case "address" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtAdresse1.Text & " " & usrCntl.txtAdresse2.Text & " " & usrCntl.txtAdresse3.Text)) - Case "zipcode" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtAdresse2.Text)) - Case "country" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.cbxLandKz.Text)) - Case "vatno" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtUid.Text)) - Case "vatnr" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtUid.Text)) - Case "surname_firstname" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txt_GF_Name.Text)) - Case "surname" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txt_GF_Name.Text)) - Case "firstname" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txt_GF_Name.Text)) - Case "place" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtOrt.Text)) - Case "place_date" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtOrt.Text & " " & usrCntl.datDatum.ToString("ddMMyyyy"))) - Case "capital" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtKapital.Text & " " & usrCntl.cbxKapitalWahrung._value)) - Case "crnumber" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtHRNr.Text)) + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem) + Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager + list = fm.getPDFFields_Editierbar("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", "MDM", "", "VM_BHI_" & usrCntl.cboLand._value) - End Select - 'surname_firstname - 'surname - 'lastname - 'place_date - 'vat_country - 'place - 'c_mailcontact + Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues) + Dim listItem2 As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem) + For Each item In list - Next + Select Case item.Text.ToLower().Trim() + Case "name" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtFirma.Text)) + Case "company" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtFirma.Text)) + Case "address" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtAdresse1.Text & " " & usrCntl.txtAdresse2.Text & " " & usrCntl.txtAdresse3.Text)) + Case "zipcode" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtAdresse2.Text)) + Case "country" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.cbxLandKz._value)) + Case "vatno" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtUid.Text)) + Case "vatnr" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtUid.Text)) + Case "taxno" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtSteuerNr.Text)) + Case "surname_firstname" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txt_GF_Name.Text)) + Case "function" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(usrCntl.txt_GF_Name.Text <> "", "CEO", ""))) + Case "surname" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txt_GF_Name.Text)) + Case "firstname" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txt_GF_Name.Text)) + Case "place" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtOrt.Text)) + 'Case "place_date" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtOrt.Text & " " & IIf(IsDate(usrCntl.datDatum.Text), usrCntl.datDatum.Text, ""))) -> soll nicht gesetzt werden + Case "capital" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtKapital.Text & " " & usrCntl.cbxKapitalWahrung._value)) + Case "crnumber" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtHRNr.Text)) - Return fm.fillPDF_Editierbar("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", "MDM", "", "VM_BHI_" & usrCntl.cboLand._value, listItem2, listTowrite,,,,,, False) + End Select + 'surname_firstname + 'surname + 'lastname + 'place_date + 'vat_country + 'place + 'c_mailcontact + + Next + + Return fm.fillPDF_Editierbar("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", "MDM", "", "VM_BHI_" & usrCntl.cboLand._value, listItem2, listTowrite,,,,,, False) + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try End Function @@ -1708,7 +1715,7 @@ Public Class FormularManagerNEU Case "name_2" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtFirma.Text Case "address" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtAdresse1.Text & " " & usrCntl.cbxLandKz.Text & "-" & usrCntl.txtAdresse2.Text & " " & usrCntl.txtAdresse3.Text Case "zipcode" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtAdresse2.Text - Case "country" : odoc.FormFields(fieldName).Range.Text = usrCntl.cbxLandKz.Text + Case "country" : odoc.FormFields(fieldName).Range.Text = usrCntl.cbxLandKz._value Case "place" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtAdresse3.Text Case "street" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtAdresse1.Text Case "surname_firstname" : odoc.FormFields(fieldName).Range.Text = IIf(usrCntl.txt_GF_Name.Text <> "", usrCntl.txt_GF_Name.Text, "") @@ -1716,6 +1723,7 @@ Public Class FormularManagerNEU Case "mailcontact" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtEmail.Text ' TODO: neues Feld im formular Case "phone" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtEmail.Text ' TODO: neues Feld im formular Case "taxno" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtSteuerNr.Text + Case "function" : odoc.FormFields(fieldName).Range.Text = IIf(usrCntl.txt_GF_Name.Text <> "", "CEO", "") Case "c_name" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Bez Case "c_name1" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Bez Case "c_name2" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Bez @@ -1728,11 +1736,11 @@ Public Class FormularManagerNEU Case "c_zipcode" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Ort Case "c_vatno" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_UID Case "c_phone" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Telefon & " " & FIRMA.Firma_Telefax - Case "c_mailcontact" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtEmail.Text + Case "c_mailcontact" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtEmailzurueck.Text Case "c_bank" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Bankverbindung1 Case "c_iban" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_IBAN1.Replace("IBAN:", "") Case "c_bic" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_BIC1.Replace("BIC:", "") - Case "place_date" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtOrt.Text & ", " & usrCntl.datDatum.Value.ToString("dd-MM-yyyy") + Case "place_date" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtOrt.Text & ", " & IIf(IsDate(usrCntl.datDatum.Text), usrCntl.datDatum.Text, "") Case "capital" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtKapital.Text & " " & usrCntl.cbxKapitalWahrung._value Case "crnumber" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtHRNr.Text @@ -1790,7 +1798,7 @@ Public Class FormularManagerNEU End If Catch ex As Exception - MessageBox.Show(ex.ToString & ex.StackTrace) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try Return striList @@ -1857,11 +1865,11 @@ Public Class FormularManagerNEU Case "c_zipcode" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Ort Case "c_vatno" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_UID Case "c_phone" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Telefon & " " & FIRMA.Firma_Telefax - Case "c_mailcontact" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtEmail.Text + Case "c_mailcontact" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtEmailzurueck.Text Case "c_bank" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Bankverbindung1 Case "c_iban" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_IBAN1.Replace("IBAN:", "") Case "c_bic" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_BIC1.Replace("BIC:", "") - Case "place_date" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtOrt.Text & ", " & usrCntl.datDatum.Value.ToString("dd-MM-yyyy") + Case "place_date" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtOrt.Text & ", " & IIf(IsDate(usrCntl.datDatum.Text), usrCntl.datDatum.Text, "") Case "capital" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtKapital.Text & " " & usrCntl.cbxKapitalWahrung._value Case "crnumber" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtHRNr.Text diff --git a/SDL/SDL.vbproj b/SDL/SDL.vbproj index f545004b..76998881 100644 --- a/SDL/SDL.vbproj +++ b/SDL/SDL.vbproj @@ -716,6 +716,12 @@ Component + + frmGoMautBoxen_Bestellung.vb + + + Form + frmKundenTOBBKdNr.vb @@ -752,6 +758,12 @@ Form + + frmGoMautBoxen.vb + + + Form + frmKundeAnsprechpartnerTeams.vb @@ -3233,6 +3245,9 @@ rptFiskalkunde.vb + + frmGoMautBoxen_Bestellung.vb + frmKundenTOBBKdNr.vb @@ -3251,6 +3266,9 @@ frmKundenZOLLVollmachtenUebersicht.vb + + frmGoMautBoxen.vb + frmKundeAnsprechpartnerTeams.vb diff --git a/SDL/USTV/usrCntlUSTV.vb b/SDL/USTV/usrCntlUSTV.vb index c25bb9ee..60cbd663 100644 --- a/SDL/USTV/usrCntlUSTV.vb +++ b/SDL/USTV/usrCntlUSTV.vb @@ -73,11 +73,11 @@ Public Class usrCntlUSTV .Columns("LandKz").Width = 60 .Columns("UStVAn_ReDatVon").HeaderText = "Von" - .Columns("UStVAn_ReDatVon").DefaultCellStyle = DataGridViewCellStyleDate + '.Columns("UStVAn_ReDatVon").DefaultCellStyle = DataGridViewCellStyleDate .Columns("UStVAn_ReDatVon").Width = 100 .Columns("UStVAn_ReDatBis").HeaderText = "Bis" - .Columns("UStVAn_ReDatBis").DefaultCellStyle = DataGridViewCellStyleDate + '.Columns("UStVAn_ReDatBis").DefaultCellStyle = DataGridViewCellStyleDate .Columns("UStVAn_ReDatBis").Width = 100 .Columns("UStVAn_BezugsNr").HeaderText = "BezugsNr" diff --git a/SDL/buchhaltung/frmBU_Mahnlauf.Designer.vb b/SDL/buchhaltung/frmBU_Mahnlauf.Designer.vb index dad7e791..2b7f142e 100644 --- a/SDL/buchhaltung/frmBU_Mahnlauf.Designer.vb +++ b/SDL/buchhaltung/frmBU_Mahnlauf.Designer.vb @@ -40,6 +40,7 @@ Partial Class frmBU_Mahnlauf Me.Panel2 = New System.Windows.Forms.Panel() Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.Panel3 = New System.Windows.Forms.Panel() + Me.Button7 = New System.Windows.Forms.Button() Me.cbxMahnstufeErh = New System.Windows.Forms.CheckBox() Me.Label8 = New System.Windows.Forms.Label() Me.Button6 = New System.Windows.Forms.Button() @@ -54,7 +55,6 @@ Partial Class frmBU_Mahnlauf Me.Button2 = New System.Windows.Forms.Button() Me.Button1 = New System.Windows.Forms.Button() Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.Button7 = New System.Windows.Forms.Button() Me.Panel1.SuspendLayout() Me.pnlTop.SuspendLayout() Me.Panel2.SuspendLayout() @@ -288,6 +288,18 @@ Partial Class frmBU_Mahnlauf Me.Panel3.Size = New System.Drawing.Size(1287, 147) Me.Panel3.TabIndex = 1 ' + 'Button7 + ' + Me.Button7.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.Button7.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button7.Location = New System.Drawing.Point(38, 89) + Me.Button7.Name = "Button7" + Me.Button7.Size = New System.Drawing.Size(123, 23) + Me.Button7.TabIndex = 45 + Me.Button7.Text = "Übersetzungen" + Me.Button7.UseVisualStyleBackColor = True + ' 'cbxMahnstufeErh ' Me.cbxMahnstufeErh.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) @@ -473,18 +485,6 @@ Partial Class frmBU_Mahnlauf Me.MyTextBox2.TabIndex = 39 Me.MyTextBox2.TextAlign = System.Windows.Forms.HorizontalAlignment.Right ' - 'Button7 - ' - Me.Button7.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) - Me.Button7.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button7.Location = New System.Drawing.Point(38, 89) - Me.Button7.Name = "Button7" - Me.Button7.Size = New System.Drawing.Size(123, 23) - Me.Button7.TabIndex = 45 - Me.Button7.Text = "Übersetzungen" - Me.Button7.UseVisualStyleBackColor = True - ' 'frmBU_Mahnlauf ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) diff --git a/SDL/buchhaltung/frmBU_Mahnlauf.vb b/SDL/buchhaltung/frmBU_Mahnlauf.vb index 7140e0d1..95a7d896 100644 --- a/SDL/buchhaltung/frmBU_Mahnlauf.vb +++ b/SDL/buchhaltung/frmBU_Mahnlauf.vb @@ -1,9 +1,13 @@ Imports System.Globalization +Imports System.Windows Imports Microsoft.Office.Interop +Imports VERAG_PROG_ALLGEMEIN +Imports VERAG_PROG_ALLGEMEIN.TESTJSON Public Class frmBU_Mahnlauf Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + Dim listOfTextconserven As cTextkonserve_LIST Private Sub btnSuche_Click(sender As Object, e As EventArgs) Handles btnSuche.Click initDGV() End Sub @@ -251,6 +255,7 @@ Public Class frmBU_Mahnlauf ' If RECHNUNG Is Nothing Then MsgBox("Fehler beim Laden der Rechnungsdaten!") : Return False Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + Dim listOfTextconserven = New cTextkonserve_LIST(2, "", Firma_ID) Try Dim KD As New VERAG_PROG_ALLGEMEIN.cKunde(KdNr) @@ -536,47 +541,106 @@ Public Class frmBU_Mahnlauf Dim Mail_CC = "" Dim Mail_BCC = "" - Select Case AD.LandKz - Case "TR" - Mail_Subject = "PAYMENT REMINDER" & IIf(KdNr > 0, " - Cust.: " & KdNr, "") - Mail_HTMLBody = "Sayin bayanlar ve baylar,

ekli dosyada sirketimize olan borcunuza dair acik kalem listemizi iletiyoruz.
Listeyi kontrol edip, eksik fatura varsa bildirmenizi rica ederiz." - Mail_HTMLBody &= "

" - 'Mail_HTMLBody &= "Vadesi dolmus olan faturalarin, en kisa sürede asagidaki hesabimiza havale yapilmasini önemle arz ederiz. " - Mail_HTMLBody &= "
Gecikmiş faturaları mümkün olan en kısa sürede hesabımıza aktarmanızı rica ederiz." - Mail_HTMLBody &= "
Yapilan ödemeden sonra lütfen dekont ve detay gönderiniz." - 'Gecikmiş faturaları mümkün olan en kısa sürede hesabımıza aktarmanızı rica ederiz. - Mail_HTMLBody &= "

" - 'Mail_HTMLBody &= "Garanti Bank Hadimköy/TR TR 96 0006 2000 5440 0009 0672 28 Kto.: 544
Hesap Sahibi: Verag Spedition AG EURO Hesabi
" - 'Mail_HTMLBody &= "Sizden geri dönüs beklemekteyiz." - 'Mail_HTMLBody &= "

" - Mail_HTMLBody &= "Iyi calismalar diler, saygilarimizi sunariz" - Mail_HTMLBody &= "


" - Mail_HTMLBody &= "If you are not responsible for this matter, please send us an e-mail address to buchhaltung@verag.ag, - to which future reminders should be sent.
- In the meantime, we ask you to forward them to the responsible persons in your company." - Mail_HTMLBody &= "


" & cFakturierung.getSignature(AD.LandKz, FIRMA.Firma_ID) + '--------------- + If Firma_ID = 19 Then 'dynMailvorlage aktuell nur Verag360! - Case "A", "AT", "D", "DE", "CH" + Dim emailMahnungen = IIf(FIRMA.Firma_E_Mail_Mahnungen <> "", FIRMA.Firma_E_Mail_Mahnungen, "buchhaltung@verag.ag") - Mail_Subject = MAHNTEXT & IIf(KdNr > 0, " - KdNr.: " & KdNr, "") - Mail_HTMLBody = "Sehr geehrte Damen und Herren,

im Anhang finden Sie ihre Mahnung, mit der Bitte um Bearbeitung. " - Mail_HTMLBody &= "


" - Mail_HTMLBody &= "Sollten Sie für diesen Sachverhalt nicht zuständig sein, teilen Sie uns bitte per Mail an buchhaltung@verag.ag eine Mailadresse mit, - an welche zukünftig die Mahnungen versandt werden sollen.
- Derweil bitten wir um Weiterleitung an die zuständigen Personen in ihrem Haus." - Mail_HTMLBody &= "


Mit freundlichen Grüßen

" & cFakturierung.getSignature(AD.LandKz, FIRMA.Firma_ID) + Dim spracheMahnung As String = "EN" 'Defaultsprache - Case Else + Select Case AD.LandKz + Case "TR" : spracheMahnung = AD.LandKz + Case "A", "AT", "D", "DE", "CH" : spracheMahnung = "DE" + Case "RO" : spracheMahnung = "RO" + End Select + + If listOfTextconserven.LIST.Any(Function(c) c.txt_sprache = spracheMahnung) Then + + + Dim r As cTextkonserve = listOfTextconserven.LIST.Find(Function(c) c.txt_sprache = spracheMahnung) + If r IsNot Nothing Then + + + Dim outl As New Outlook.Application + Dim Mail As Microsoft.Office.Interop.Outlook.MailItem + Mail = outl.CreateItem(0) + + Mail.Subject = r.txt_betreff + + Dim TextHTML = "" + TextHTML &= r.txt_text + Mail.Subject = Mail.Subject.Replace("%KdNr%", KdNr) + Mail.Subject = Mail.Subject.Replace("%Mahntext%", MAHNTEXT) + + TextHTML = TextHTML.Replace("%email_mahnung%", emailMahnungen) + + Mail_HTMLBody = "
" & TextHTML & "
" + Mail_To = VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdress(AD.AdressenNr, "Mahnung an") + Mail_CC = VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdressCC(AD.AdressenNr, "Mahnung an") + Mail_BCC = VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdressBCC(AD.AdressenNr, "Mahnung an") + Mail_HTMLBody &= "


" & cFakturierung.getSignature(AD.LandKz, FIRMA.Firma_ID) + + Mail.HTMLBody = Mail_HTMLBody + + Mail.To = Mail_To + Mail.CC = Mail_CC + Mail.BCC = Mail_BCC + Mail.Attachments.Add(tmpPath, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , "Mahnung.pdf") + + Mail.Display() 'wenn alles ok, dann Send! + + End If + End If + + + '--------------- + Else + + Select Case AD.LandKz + Case "TR" + Mail_Subject = "PAYMENT REMINDER" & IIf(KdNr > 0, " - Cust.: " & KdNr, "") + Mail_HTMLBody = "Sayin bayanlar ve baylar,

ekli dosyada sirketimize olan borcunuza dair acik kalem listemizi iletiyoruz.
Listeyi kontrol edip, eksik fatura varsa bildirmenizi rica ederiz." + Mail_HTMLBody &= "

" + 'Mail_HTMLBody &= "Vadesi dolmus olan faturalarin, en kisa sürede asagidaki hesabimiza havale yapilmasini önemle arz ederiz. " + Mail_HTMLBody &= "
Gecikmiş faturaları mümkün olan en kısa sürede hesabımıza aktarmanızı rica ederiz." + Mail_HTMLBody &= "
Yapilan ödemeden sonra lütfen dekont ve detay gönderiniz." + + 'Gecikmiş faturaları mümkün olan en kısa sürede hesabımıza aktarmanızı rica ederiz. + Mail_HTMLBody &= "

" + 'Mail_HTMLBody &= "Garanti Bank Hadimköy/TR TR 96 0006 2000 5440 0009 0672 28 Kto.: 544
Hesap Sahibi: Verag Spedition AG EURO Hesabi
" + 'Mail_HTMLBody &= "Sizden geri dönüs beklemekteyiz." + 'Mail_HTMLBody &= "

" + Mail_HTMLBody &= "Iyi calismalar diler, saygilarimizi sunariz" + Mail_HTMLBody &= "


" + Mail_HTMLBody &= "If you are not responsible for this matter, please send us an e-mail address to buchhaltung@verag.ag, + to which future reminders should be sent.
+ In the meantime, we ask you to forward them to the responsible persons in your company." + Mail_HTMLBody &= "


" & cFakturierung.getSignature(AD.LandKz, FIRMA.Firma_ID) + + Case "A", "AT", "D", "DE", "CH" + + Mail_Subject = MAHNTEXT & IIf(KdNr > 0, " - KdNr.: " & KdNr, "") + Mail_HTMLBody = "Sehr geehrte Damen und Herren,

im Anhang finden Sie ihre Mahnung, mit der Bitte um Bearbeitung. " + Mail_HTMLBody &= "


" + Mail_HTMLBody &= "Sollten Sie für diesen Sachverhalt nicht zuständig sein, teilen Sie uns bitte per Mail an buchhaltung@verag.ag eine Mailadresse mit, + an welche zukünftig die Mahnungen versandt werden sollen.
+ Derweil bitten wir um Weiterleitung an die zuständigen Personen in ihrem Haus." + Mail_HTMLBody &= "


Mit freundlichen Grüßen

" & cFakturierung.getSignature(AD.LandKz, FIRMA.Firma_ID) + + Case Else + + Mail_Subject = "PAYMENT REMINDER" & IIf(KdNr > 0, " - Cust.: " & KdNr, "") + Mail_HTMLBody = "Dear Sear or Madam,

attached we send you the invoice reminder." + Mail_HTMLBody &= "


" + Mail_HTMLBody &= "If you are not responsible for this matter, please send us an e-mail address to buchhaltung@verag.ag, + to which future reminders should be sent.
+ In the meantime, we ask you to forward them to the responsible persons in your company." + Mail_HTMLBody &= "


Best regards

" & cFakturierung.getSignature(AD.LandKz, FIRMA.Firma_ID) + End Select + + End If - Mail_Subject = "PAYMENT REMINDER" & IIf(KdNr > 0, " - Cust.: " & KdNr, "") - Mail_HTMLBody = "Dear Sear or Madam,

attached we send you the invoice reminder." - Mail_HTMLBody &= "


" - Mail_HTMLBody &= "If you are not responsible for this matter, please send us an e-mail address to buchhaltung@verag.ag, - to which future reminders should be sent.
- In the meantime, we ask you to forward them to the responsible persons in your company." - Mail_HTMLBody &= "


Best regards

" & cFakturierung.getSignature(AD.LandKz, FIRMA.Firma_ID) - End Select Mail_HTMLBody = "
" & Mail_HTMLBody & "
" Mail_To = VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdress(AD.AdressenNr, "Mahnung an") Mail_CC = VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdressCC(AD.AdressenNr, "Mahnung an") @@ -597,23 +661,26 @@ Public Class frmBU_Mahnlauf VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(Mail_To, Mail_Subject, Mail_HTMLBody, IIf(FIRMA.Firma_E_Mail_Mahnungen <> "", FIRMA.Firma_E_Mail_Mahnungen, "buchhaltung@verag.ag"), False, False, Mail_CC, Mail_BCC, list) Case Else - Dim outl As New Outlook.Application - Dim Mail As Microsoft.Office.Interop.Outlook.MailItem - Mail = outl.CreateItem(0) - Mail.Subject = Mail_Subject - Mail.HTMLBody = Mail_HTMLBody + If Firma_ID <> 19 Then - Mail.To = Mail_To - Mail.CC = Mail_CC - Mail.BCC = Mail_BCC - Mail.Attachments.Add(tmpPath, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , "Mahnung.pdf") + Dim outl As New Outlook.Application + Dim Mail As Microsoft.Office.Interop.Outlook.MailItem + Mail = outl.CreateItem(0) + Mail.Subject = Mail_Subject + Mail.HTMLBody = Mail_HTMLBody - Try - Mail.SentOnBehalfOfName = SDL.cFakturierung.getDefaultMail("AMBAR") ',"buchhaltung@verag.ag" - Catch ex2 As Exception - MsgBox(ex2.Message) - End Try - Mail.Display() + Mail.To = Mail_To + Mail.CC = Mail_CC + Mail.BCC = Mail_BCC + Mail.Attachments.Add(tmpPath, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , "Mahnung.pdf") + + Try + Mail.SentOnBehalfOfName = SDL.cFakturierung.getDefaultMail("AMBAR") ',"buchhaltung@verag.ag" + Catch ex2 As Exception + MsgBox(ex2.Message) + End Try + Mail.Display() + End If End Select @@ -641,14 +708,12 @@ Public Class frmBU_Mahnlauf - Catch ex As Exception - MsgBox(ex.Message & ex.StackTrace) + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try Return False End Function - Shared Sub initRgFirma(ByRef rpt As rptMahnung, FIRMA As VERAG_PROG_ALLGEMEIN.cFirmen, LandKz As String) - rpt.lblFirmaOrt.Text = If(FIRMA.Firma_Ort, "") rpt.lblFirmaStrasse.Text = If(FIRMA.Firma_Straße, "") rpt.lblFirmaTel.Text = If(FIRMA.Firma_Telefon, "") @@ -1144,4 +1209,5 @@ Public Class frmBU_Mahnlauf End If End If End Sub + End Class \ No newline at end of file diff --git a/SDL/frmMain.Designer.vb b/SDL/frmMain.Designer.vb index a197b5ce..b2728fd5 100644 --- a/SDL/frmMain.Designer.vb +++ b/SDL/frmMain.Designer.vb @@ -67,13 +67,11 @@ Partial Class frmMain Me.VERAGCardParkplatzToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.AuswertungenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.pnlHeader = New System.Windows.Forms.Panel() - Me.btnMitarbeiterKonto = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.pnlInfo = New System.Windows.Forms.Panel() Me.txtInfotext = New System.Windows.Forms.Label() Me.Label9 = New System.Windows.Forms.Label() Me.Button9 = New System.Windows.Forms.Button() Me.Button2 = New System.Windows.Forms.Button() - Me.FlatButton1 = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.Button7 = New System.Windows.Forms.Button() Me.Label4 = New System.Windows.Forms.Label() Me.lblTestsystem = New System.Windows.Forms.Label() @@ -102,7 +100,6 @@ Partial Class frmMain Me.Panel2 = New System.Windows.Forms.Panel() Me.pnlJumpKunde = New System.Windows.Forms.Panel() Me.Button3 = New System.Windows.Forms.Button() - Me.KdSearchBox1 = New VERAG_PROG_ALLGEMEIN.KdSearchBox() Me.Button4 = New System.Windows.Forms.Button() Me.Label3 = New System.Windows.Forms.Label() Me.btnClose = New System.Windows.Forms.Button() @@ -113,6 +110,10 @@ Partial Class frmMain Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() Me.AuswertungenToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() Me.Timer_REFRESH = New System.Windows.Forms.Timer(Me.components) + Me.btnMitarbeiterKonto = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.FlatButton1 = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.KdSearchBox1 = New VERAG_PROG_ALLGEMEIN.KdSearchBox() + Me.MailvorlagenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.pnlLeft.SuspendLayout() Me.MenuStripSDL.SuspendLayout() Me.Panel1.SuspendLayout() @@ -554,24 +555,6 @@ Partial Class frmMain Me.pnlHeader.Size = New System.Drawing.Size(1284, 73) Me.pnlHeader.TabIndex = 28 ' - 'btnMitarbeiterKonto - ' - Me.btnMitarbeiterKonto.allowBorder = False - Me.btnMitarbeiterKonto.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.btnMitarbeiterKonto.BackColor = System.Drawing.Color.White - Me.btnMitarbeiterKonto.FlatAppearance.BorderSize = 0 - Me.btnMitarbeiterKonto.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnMitarbeiterKonto.ForeColor = System.Drawing.Color.Black - Me.btnMitarbeiterKonto.Image = CType(resources.GetObject("btnMitarbeiterKonto.Image"), System.Drawing.Image) - Me.btnMitarbeiterKonto.ImageAlign = System.Drawing.ContentAlignment.TopCenter - Me.btnMitarbeiterKonto.Location = New System.Drawing.Point(716, 0) - Me.btnMitarbeiterKonto.Name = "btnMitarbeiterKonto" - Me.btnMitarbeiterKonto.Size = New System.Drawing.Size(137, 61) - Me.btnMitarbeiterKonto.TabIndex = 87 - Me.btnMitarbeiterKonto.Text = "Andreas Luxbauer" - Me.btnMitarbeiterKonto.TextAlign = System.Drawing.ContentAlignment.BottomCenter - Me.btnMitarbeiterKonto.UseVisualStyleBackColor = False - ' 'pnlInfo ' Me.pnlInfo.Anchor = System.Windows.Forms.AnchorStyles.Bottom @@ -639,20 +622,6 @@ Partial Class frmMain Me.Button2.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.Button2.UseVisualStyleBackColor = False ' - 'FlatButton1 - ' - Me.FlatButton1.allowBorder = False - Me.FlatButton1.FlatAppearance.BorderSize = 0 - Me.FlatButton1.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.FlatButton1.ForeColor = System.Drawing.Color.Black - Me.FlatButton1.Location = New System.Drawing.Point(130, 4) - Me.FlatButton1.Name = "FlatButton1" - Me.FlatButton1.Size = New System.Drawing.Size(75, 23) - Me.FlatButton1.TabIndex = 36 - Me.FlatButton1.Text = "FlatButton1" - Me.FlatButton1.UseVisualStyleBackColor = True - Me.FlatButton1.Visible = False - ' 'Button7 ' Me.Button7.BackColor = System.Drawing.Color.WhiteSmoke @@ -750,24 +719,24 @@ Partial Class frmMain 'ToolStripSeparator4 ' Me.ToolStripSeparator4.Name = "ToolStripSeparator4" - Me.ToolStripSeparator4.Size = New System.Drawing.Size(177, 6) + Me.ToolStripSeparator4.Size = New System.Drawing.Size(154, 6) ' 'NeuesPasswortToolStripMenuItem ' Me.NeuesPasswortToolStripMenuItem.Name = "NeuesPasswortToolStripMenuItem" - Me.NeuesPasswortToolStripMenuItem.Size = New System.Drawing.Size(180, 22) + Me.NeuesPasswortToolStripMenuItem.Size = New System.Drawing.Size(157, 22) Me.NeuesPasswortToolStripMenuItem.Text = "Neues Passwort" ' 'UpdateToolStripMenuItem ' Me.UpdateToolStripMenuItem.Name = "UpdateToolStripMenuItem" - Me.UpdateToolStripMenuItem.Size = New System.Drawing.Size(180, 22) + Me.UpdateToolStripMenuItem.Size = New System.Drawing.Size(157, 22) Me.UpdateToolStripMenuItem.Text = "Update" ' 'TESTToolStripMenuItem ' Me.TESTToolStripMenuItem.Name = "TESTToolStripMenuItem" - Me.TESTToolStripMenuItem.Size = New System.Drawing.Size(180, 22) + Me.TESTToolStripMenuItem.Size = New System.Drawing.Size(157, 22) Me.TESTToolStripMenuItem.Text = "TEST" Me.TESTToolStripMenuItem.Visible = False ' @@ -795,7 +764,8 @@ Partial Class frmMain ' 'mnuFormular ' - Me.mnuFormular.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem3}) + Me.mnuFormular.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem3, Me.MailvorlagenToolStripMenuItem}) + Me.mnuFormular.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.mnuFormular.Name = "mnuFormular" Me.mnuFormular.Size = New System.Drawing.Size(73, 20) Me.mnuFormular.Text = "Formulare" @@ -819,7 +789,7 @@ Partial Class frmMain ' Me.SMSToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NeueSMSSendenToolStripMenuItem, Me.SMSVerlaufToolStripMenuItem}) Me.SMSToolStripMenuItem.Name = "SMSToolStripMenuItem" - Me.SMSToolStripMenuItem.Size = New System.Drawing.Size(180, 22) + Me.SMSToolStripMenuItem.Size = New System.Drawing.Size(97, 22) Me.SMSToolStripMenuItem.Text = "SMS" ' 'NeueSMSSendenToolStripMenuItem @@ -905,35 +875,6 @@ Partial Class frmMain Me.Button3.Text = "< >" Me.Button3.UseVisualStyleBackColor = False ' - 'KdSearchBox1 - ' - Me.KdSearchBox1._AlleFirmenCLUSTER = False - Me.KdSearchBox1._AllowSetValue = False - Me.KdSearchBox1._autoSizeGross = False - Me.KdSearchBox1._display_Name1 = False - Me.KdSearchBox1._displayAVISO_Email = False - Me.KdSearchBox1._displayFullName = False - Me.KdSearchBox1._displayWoelflKd = True - Me.KdSearchBox1._hideIfListEmpty = True - Me.KdSearchBox1._loadKdData = False - Me.KdSearchBox1._searchName1 = True - Me.KdSearchBox1._UseFIRMA = "" - Me.KdSearchBox1._ValueKdAndName = True - Me.KdSearchBox1.dgvpos = "RIGHT" - Me.KdSearchBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.KdSearchBox1.KdName = Nothing - Me.KdSearchBox1.KdNr = "-1" - Me.KdSearchBox1.kdNrField = Nothing - Me.KdSearchBox1.KdNrNullInt = Nothing - Me.KdSearchBox1.Location = New System.Drawing.Point(73, 30) - Me.KdSearchBox1.Name = "KdSearchBox1" - Me.KdSearchBox1.nurAktive = False - Me.KdSearchBox1.searchActive = True - Me.KdSearchBox1.Size = New System.Drawing.Size(215, 26) - Me.KdSearchBox1.TabIndex = 76 - Me.KdSearchBox1.TIMER_SEARCH = True - Me.KdSearchBox1.usrcntl = Nothing - ' 'Button4 ' Me.Button4.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) @@ -1037,6 +978,75 @@ Partial Class frmMain Me.Timer_REFRESH.Enabled = True Me.Timer_REFRESH.Interval = 5000 ' + 'btnMitarbeiterKonto + ' + Me.btnMitarbeiterKonto.allowBorder = False + Me.btnMitarbeiterKonto.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnMitarbeiterKonto.BackColor = System.Drawing.Color.White + Me.btnMitarbeiterKonto.FlatAppearance.BorderSize = 0 + Me.btnMitarbeiterKonto.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnMitarbeiterKonto.ForeColor = System.Drawing.Color.Black + Me.btnMitarbeiterKonto.Image = CType(resources.GetObject("btnMitarbeiterKonto.Image"), System.Drawing.Image) + Me.btnMitarbeiterKonto.ImageAlign = System.Drawing.ContentAlignment.TopCenter + Me.btnMitarbeiterKonto.Location = New System.Drawing.Point(716, 0) + Me.btnMitarbeiterKonto.Name = "btnMitarbeiterKonto" + Me.btnMitarbeiterKonto.Size = New System.Drawing.Size(137, 61) + Me.btnMitarbeiterKonto.TabIndex = 87 + Me.btnMitarbeiterKonto.Text = "Andreas Luxbauer" + Me.btnMitarbeiterKonto.TextAlign = System.Drawing.ContentAlignment.BottomCenter + Me.btnMitarbeiterKonto.UseVisualStyleBackColor = False + ' + 'FlatButton1 + ' + Me.FlatButton1.allowBorder = False + Me.FlatButton1.FlatAppearance.BorderSize = 0 + Me.FlatButton1.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.FlatButton1.ForeColor = System.Drawing.Color.Black + Me.FlatButton1.Location = New System.Drawing.Point(130, 4) + Me.FlatButton1.Name = "FlatButton1" + Me.FlatButton1.Size = New System.Drawing.Size(75, 23) + Me.FlatButton1.TabIndex = 36 + Me.FlatButton1.Text = "FlatButton1" + Me.FlatButton1.UseVisualStyleBackColor = True + Me.FlatButton1.Visible = False + ' + 'KdSearchBox1 + ' + Me.KdSearchBox1._AlleFirmenCLUSTER = False + Me.KdSearchBox1._AllowSetValue = False + Me.KdSearchBox1._autoSizeGross = False + Me.KdSearchBox1._display_Name1 = False + Me.KdSearchBox1._displayAVISO_Email = False + Me.KdSearchBox1._displayFullName = False + Me.KdSearchBox1._displayWoelflKd = True + Me.KdSearchBox1._hideIfListEmpty = True + Me.KdSearchBox1._loadKdData = False + Me.KdSearchBox1._searchName1 = True + Me.KdSearchBox1._UseFIRMA = "" + Me.KdSearchBox1._ValueKdAndName = True + Me.KdSearchBox1.dgvpos = "RIGHT" + Me.KdSearchBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.KdSearchBox1.KdName = Nothing + Me.KdSearchBox1.KdNr = "-1" + Me.KdSearchBox1.kdNrField = Nothing + Me.KdSearchBox1.KdNrNullInt = Nothing + Me.KdSearchBox1.Location = New System.Drawing.Point(73, 30) + Me.KdSearchBox1.Name = "KdSearchBox1" + Me.KdSearchBox1.nurAktive = False + Me.KdSearchBox1.searchActive = True + Me.KdSearchBox1.Size = New System.Drawing.Size(215, 26) + Me.KdSearchBox1.TabIndex = 76 + Me.KdSearchBox1.TIMER_SEARCH = True + Me.KdSearchBox1.usrcntl = Nothing + ' + 'MailvorlagenToolStripMenuItem + ' + Me.MailvorlagenToolStripMenuItem.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.MailvorlagenToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.stift1 + Me.MailvorlagenToolStripMenuItem.Name = "MailvorlagenToolStripMenuItem" + Me.MailvorlagenToolStripMenuItem.Size = New System.Drawing.Size(192, 30) + Me.MailvorlagenToolStripMenuItem.Text = "Mailvorlagen" + ' 'frmMain ' Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!) @@ -1161,4 +1171,5 @@ Partial Class frmMain Friend WithEvents EssensbestellungToolStripMenuItem1 As ToolStripMenuItem Friend WithEvents mnuFormular As ToolStripMenuItem Friend WithEvents ToolStripMenuItem3 As ToolStripMenuItem + Friend WithEvents MailvorlagenToolStripMenuItem As ToolStripMenuItem End Class diff --git a/SDL/frmMain.vb b/SDL/frmMain.vb index 91b428f2..50028714 100644 --- a/SDL/frmMain.vb +++ b/SDL/frmMain.vb @@ -154,7 +154,7 @@ Public Class frmMain Dim a As MsgBoxResult = MsgBox("Für " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & " wurde heute noch keine Zeit erfasst!" & vbNewLine & Now.ToString() & " als Startzeit erfassen?", vbYesNo) If a = vbYes Then Dim info - timas.setTimeEntry(cAllgemein.MITARBEITER, Now, info, "in") + timas.setTimeEntry(cAllgemein.MITARBEITER, Now, info, "in", IIf(cAllgemein.MITARBEITER.mit_homeoffice, 3, 0)) MsgBox(info) End If End If @@ -562,7 +562,7 @@ Public Class frmMain Private Sub btnClose_Click(sender As Object, e As EventArgs) Handles btnClose.Click Try - If False Then + If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER IsNot Nothing AndAlso VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_ausstempelnBeiBeenden Then If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasId IsNot Nothing Then If Not VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasNichtStempeln Then Dim timas As New cTimasAPI("timas") @@ -574,7 +574,7 @@ Public Class frmMain Dim a As MsgBoxResult = MsgBox("Soll " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & " ausgestempelt werden?" & vbNewLine & Now.ToString() & " als Endzeit erfassen?", vbYesNo) If a = vbYes Then Dim info - timas.setTimeEntry(cAllgemein.MITARBEITER, Now, info, "out") + timas.setTimeEntry(cAllgemein.MITARBEITER, Now, info, "out", IIf(cAllgemein.MITARBEITER.mit_homeoffice, 3, 0)) MsgBox(info) Else @@ -1112,6 +1112,11 @@ Public Class frmMain Dim f As New SDL.frmFormulare f.Show() End Sub + + Private Sub MailvorlagenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MailvorlagenToolStripMenuItem.Click + Dim f As New SDL.frmdynMailvorlagen(VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", "SDL") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MAILVORLAGEN_ALLE", "SDL")) + f.ShowDialog(Me) + End Sub End Class Public Class MyRenderer diff --git a/SDL/frmdynMailvorlage.Designer.vb b/SDL/frmdynMailvorlage.Designer.vb index 911867a5..d88f3373 100644 --- a/SDL/frmdynMailvorlage.Designer.vb +++ b/SDL/frmdynMailvorlage.Designer.vb @@ -24,6 +24,11 @@ Partial Class frmdynMailvorlagen Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() Me.mainPanel = New System.Windows.Forms.Panel() + Me.cbxTyp = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.Label13 = New System.Windows.Forms.Label() + Me.TextBox1 = New System.Windows.Forms.TextBox() + Me.txtfixeEmail = New System.Windows.Forms.TextBox() + Me.Label12 = New System.Windows.Forms.Label() Me.Label11 = New System.Windows.Forms.Label() Me.rtb_txthtml = New System.Windows.Forms.RichTextBox() Me.cbxSendungsvermerk = New VERAG_PROG_ALLGEMEIN.MyComboBox() @@ -31,7 +36,7 @@ Partial Class frmdynMailvorlagen Me.txtSendungsvermerk = New System.Windows.Forms.TextBox() Me.Label9 = New System.Windows.Forms.Label() Me.cbSendungsvermerk = New System.Windows.Forms.CheckBox() - Me.TextBox2 = New System.Windows.Forms.TextBox() + Me.txtVariablen = New System.Windows.Forms.TextBox() Me.btn = New System.Windows.Forms.Button() Me.lblWordcount = New System.Windows.Forms.Label() Me.cboFirmensignatur = New VERAG_PROG_ALLGEMEIN.MyComboBox() @@ -60,9 +65,6 @@ Partial Class frmdynMailvorlagen Me.Label3 = New System.Windows.Forms.Label() Me.cbxFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.dgvMailvorlagen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) - Me.txtfixeEmail = New System.Windows.Forms.TextBox() - Me.Label12 = New System.Windows.Forms.Label() - Me.TextBox1 = New System.Windows.Forms.TextBox() Me.mainPanel.SuspendLayout() Me.pnlTop.SuspendLayout() CType(Me.dgvMailvorlagen, System.ComponentModel.ISupportInitialize).BeginInit() @@ -73,6 +75,8 @@ Partial Class frmdynMailvorlagen Me.mainPanel.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.mainPanel.Controls.Add(Me.cbxTyp) + Me.mainPanel.Controls.Add(Me.Label13) Me.mainPanel.Controls.Add(Me.TextBox1) Me.mainPanel.Controls.Add(Me.txtfixeEmail) Me.mainPanel.Controls.Add(Me.Label12) @@ -83,7 +87,7 @@ Partial Class frmdynMailvorlagen Me.mainPanel.Controls.Add(Me.txtSendungsvermerk) Me.mainPanel.Controls.Add(Me.Label9) Me.mainPanel.Controls.Add(Me.cbSendungsvermerk) - Me.mainPanel.Controls.Add(Me.TextBox2) + Me.mainPanel.Controls.Add(Me.txtVariablen) Me.mainPanel.Controls.Add(Me.btn) Me.mainPanel.Controls.Add(Me.lblWordcount) Me.mainPanel.Controls.Add(Me.cboFirmensignatur) @@ -105,6 +109,54 @@ Partial Class frmdynMailvorlagen Me.mainPanel.Size = New System.Drawing.Size(1283, 457) Me.mainPanel.TabIndex = 101 ' + 'cbxTyp + ' + Me.cbxTyp._allowedValuesFreiText = Nothing + Me.cbxTyp._allowFreiText = False + Me.cbxTyp._value = "" + Me.cbxTyp.DropDownWidth = 120 + Me.cbxTyp.FormattingEnabled = True + Me.cbxTyp.Location = New System.Drawing.Point(887, 20) + Me.cbxTyp.Name = "cbxTyp" + Me.cbxTyp.Size = New System.Drawing.Size(92, 21) + Me.cbxTyp.TabIndex = 46 + ' + 'Label13 + ' + Me.Label13.AutoSize = True + Me.Label13.Location = New System.Drawing.Point(884, 4) + Me.Label13.Name = "Label13" + Me.Label13.Size = New System.Drawing.Size(28, 13) + Me.Label13.TabIndex = 45 + Me.Label13.Text = "Typ:" + ' + 'TextBox1 + ' + Me.TextBox1.BackColor = System.Drawing.SystemColors.Control + Me.TextBox1.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.TextBox1.Location = New System.Drawing.Point(10, 395) + Me.TextBox1.Multiline = True + Me.TextBox1.Name = "TextBox1" + Me.TextBox1.Size = New System.Drawing.Size(109, 18) + Me.TextBox1.TabIndex = 44 + Me.TextBox1.Text = "* Text-Variablen:" + ' + 'txtfixeEmail + ' + Me.txtfixeEmail.Location = New System.Drawing.Point(136, 61) + Me.txtfixeEmail.Name = "txtfixeEmail" + Me.txtfixeEmail.Size = New System.Drawing.Size(324, 20) + Me.txtfixeEmail.TabIndex = 43 + ' + 'Label12 + ' + Me.Label12.AutoSize = True + Me.Label12.Location = New System.Drawing.Point(133, 45) + Me.Label12.Name = "Label12" + Me.Label12.Size = New System.Drawing.Size(194, 13) + Me.Label12.TabIndex = 42 + Me.Label12.Text = "fixer Empfänger (mehrere mit ; getrennt):" + ' 'Label11 ' Me.Label11.AutoSize = True @@ -176,16 +228,16 @@ Partial Class frmdynMailvorlagen Me.cbSendungsvermerk.Text = "Sendungsvermerk beim Senden setzen" Me.cbSendungsvermerk.UseVisualStyleBackColor = True ' - 'TextBox2 + 'txtVariablen ' - Me.TextBox2.BackColor = System.Drawing.SystemColors.Control - Me.TextBox2.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.TextBox2.Location = New System.Drawing.Point(10, 414) - Me.TextBox2.Multiline = True - Me.TextBox2.Name = "TextBox2" - Me.TextBox2.Size = New System.Drawing.Size(576, 31) - Me.TextBox2.TabIndex = 34 - Me.TextBox2.Text = "%VAR-GRENZE%, %LKW%, %LKWKennzeichen%, %Empfaenger%, %voraus-Eintreffen%, %Filial" & + Me.txtVariablen.BackColor = System.Drawing.SystemColors.Control + Me.txtVariablen.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtVariablen.Location = New System.Drawing.Point(10, 414) + Me.txtVariablen.Multiline = True + Me.txtVariablen.Name = "txtVariablen" + Me.txtVariablen.Size = New System.Drawing.Size(576, 31) + Me.txtVariablen.TabIndex = 34 + Me.txtVariablen.Text = "%VAR-GRENZE%, %LKW%, %LKWKennzeichen%, %Empfaenger%, %voraus-Eintreffen%, %Filial" & "enNr%, %AbfertigungsNr%, %Absender%, %Gewicht%, %ImEx%, %Zollstelle%" ' 'btn @@ -497,33 +549,6 @@ Partial Class frmdynMailvorlagen Me.dgvMailvorlagen.Size = New System.Drawing.Size(1283, 365) Me.dgvMailvorlagen.TabIndex = 104 ' - 'txtfixeEmail - ' - Me.txtfixeEmail.Location = New System.Drawing.Point(136, 61) - Me.txtfixeEmail.Name = "txtfixeEmail" - Me.txtfixeEmail.Size = New System.Drawing.Size(324, 20) - Me.txtfixeEmail.TabIndex = 43 - ' - 'Label12 - ' - Me.Label12.AutoSize = True - Me.Label12.Location = New System.Drawing.Point(133, 45) - Me.Label12.Name = "Label12" - Me.Label12.Size = New System.Drawing.Size(194, 13) - Me.Label12.TabIndex = 42 - Me.Label12.Text = "fixer Empfänger (mehrere mit ; getrennt):" - ' - 'TextBox1 - ' - Me.TextBox1.BackColor = System.Drawing.SystemColors.Control - Me.TextBox1.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.TextBox1.Location = New System.Drawing.Point(10, 395) - Me.TextBox1.Multiline = True - Me.TextBox1.Name = "TextBox1" - Me.TextBox1.Size = New System.Drawing.Size(109, 18) - Me.TextBox1.TabIndex = 44 - Me.TextBox1.Text = "* Text-Variablen:" - ' 'frmdynMailvorlagen ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -574,7 +599,7 @@ Partial Class frmdynMailvorlagen Friend WithEvents btn As Button Friend WithEvents cbxSpracheSelected As VERAG_PROG_ALLGEMEIN.MyComboBox Friend WithEvents Label8 As Label - Friend WithEvents TextBox2 As TextBox + Friend WithEvents txtVariablen As TextBox Friend WithEvents cbxSendungsvermerk As VERAG_PROG_ALLGEMEIN.MyComboBox Friend WithEvents Label10 As Label Friend WithEvents txtSendungsvermerk As TextBox @@ -585,4 +610,6 @@ Partial Class frmdynMailvorlagen Friend WithEvents txtfixeEmail As TextBox Friend WithEvents Label12 As Label Friend WithEvents TextBox1 As TextBox + Friend WithEvents cbxTyp As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents Label13 As Label End Class diff --git a/SDL/frmdynMailvorlage.vb b/SDL/frmdynMailvorlage.vb index 38f6cb1e..6ae7605b 100644 --- a/SDL/frmdynMailvorlage.vb +++ b/SDL/frmdynMailvorlage.vb @@ -1,4 +1,6 @@ Imports System.Windows.Controls +Imports System.Windows.Documents +Imports DocumentFormat.OpenXml.Drawing.Charts Imports GrapeCity.ActiveReports.SectionReportModel Imports Microsoft.Office.Interop Imports VERAG_PROG_ALLGEMEIN @@ -36,10 +38,27 @@ Public Class frmdynMailvorlagen cbxFirma.fillWithSQL("SELECT distinct([Firmengruppe]) FROM [tblFirma] where Firmengruppe is not null ", False, "FMZOLL", True) cbxFirmaChange.Items.AddRange(cbxFirma.Items.Cast(Of VERAG_PROG_ALLGEMEIN.MyListItem).ToArray()) - cbxFirma.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA) + + If Not IsDBNull(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_firmaFMZoll) AndAlso CInt(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_firmaFMZoll) = 19 Then + + Dim FIRMA As New VERAG_PROG_ALLGEMEIN.cFirmen(19) + cbxFirma.changeItem(FIRMA.Firmengruppe) + Else + cbxFirma.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA) + End If + + + cbxSendungsvermerk.fillWithSQL("SELECT VermerkCodeId,Bezeichnung FROM [VermerkeCodes]", True, "AVISO", True) + cbxTyp.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", "")) + cbxTyp.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Sendung", "1")) + cbxTyp.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Mahnung", "2")) + cbxTyp.changeItem("") + + + cbxFirma.Enabled = editall btnDelete.Enabled = editall @@ -100,6 +119,8 @@ Public Class frmdynMailvorlagen .Columns("txt_sendungsvermerk").HeaderText = "Sendungsvermerk" .Columns("txt_sendungsvermerkId").Visible = False .Columns("txt_sendungsvermerkText").Visible = False + .Columns("txt_fixerEmpfaengerEmail").Visible = False + .Columns("txt_typ").Visible = False End With @@ -158,7 +179,7 @@ Public Class frmdynMailvorlagen Dim txtKonserve As New cTextkonserve(dgvMailvorlagen.SelectedRows(0).Cells("txt_id").Value) If vbYes = MsgBox("Möchten Sie diesen Mailvorlage " & txtKonserve.txt_bezeichnung & " (" & txtKonserve.txt_sprache & ")" & " in " & txtKonserve.txt_FIRMA & " wirklich löschen?", vbYesNo) Then - 'txtKonserve.deleteWarenort(txtKonserve.txt_Id) ' delete funktion implementierten + txtKonserve.DELETE(txtKonserve.txt_Id) ' delete funktion implementierten initDGVMailvorlagen(cbxFirma._value) End If @@ -214,6 +235,11 @@ Public Class frmdynMailvorlagen cbxSendungsvermerk.changeItem(txtkonserve.txt_sendungsvermerkId) txtSendungsvermerk.Text = txtkonserve.txt_sendungsvermerkText txtfixeEmail.Text = txtkonserve.txt_fixerEmpfaengerEmail + If txtkonserve.txt_typ IsNot Nothing Then + cbxTyp.changeItem(txtkonserve.txt_typ, True) + Else + cbxTyp.changeItem("") + End If Catch ex As Exception @@ -242,6 +268,7 @@ Public Class frmdynMailvorlagen txtKS.txt_letzteAenderungUser = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME txtKS.txt_fixerEmpfaengerEmail = txtfixeEmail.Text txtKS.txt_sendungsvermerk = cbSendungsvermerk.Checked + txtKS.txt_typ = cbxTyp._value If cbSendungsvermerk.Checked AndAlso cbxSendungsvermerk._value = "" Then MsgBox("SendungsvermerksID hinterlegen!") : Exit Sub If cbSendungsvermerk.Checked AndAlso txtSendungsvermerk.Text = "" Then MsgBox("Sendungsvermerk hinterlegen!") : Exit Sub @@ -388,4 +415,25 @@ Public Class frmdynMailvorlagen Label9.Visible = cbSendungsvermerk.Checked End Sub + + Private Sub cbxTyp_SelectedValueChanged(sender As Object, e As EventArgs) Handles cbxTyp.SelectedValueChanged + If cbxTyp.SelectedItem Is Nothing Then + txtVariablen.Text = "-" + Exit Sub + + End If + Dim oItem As VERAG_PROG_ALLGEMEIN.MyListItem = CType(cbxTyp.SelectedItem, VERAG_PROG_ALLGEMEIN.MyListItem) + + Select Case oItem.Value + Case 1 + 'Sendungsvariable + txtVariablen.Text = "%VAR-GRENZE%, %LKW%, %LKWKennzeichen%, %Empfaenger%, %voraus-Eintreffen%, %FilialenNr%, %AbfertigungsNr%, %Absender%, %Gewicht%, %ImEx%, %Zollstelle%" + Case Else + 'Mahnvariable + txtVariablen.Text = " %Mahntext%, %KdNr%, %email_mahnung%" + + End Select + + + End Sub End Class \ No newline at end of file diff --git a/SDL/kunden/frmGoMautBoxen.Designer.vb b/SDL/kunden/frmGoMautBoxen.Designer.vb new file mode 100644 index 00000000..1ffc3f2c --- /dev/null +++ b/SDL/kunden/frmGoMautBoxen.Designer.vb @@ -0,0 +1,582 @@ + +Partial Class frmGoMautBoxen + 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 resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmGoMautBoxen)) + Me.pnl = New System.Windows.Forms.Panel() + Me.GroupBoxBriefwaehlen = New System.Windows.Forms.GroupBox() + Me.rbAP = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components) + Me.rbPostPay = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components) + Me.dgvLKW = New System.Windows.Forms.DataGridView() + Me.lblWarning = New System.Windows.Forms.Label() + Me.txtJahr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtMonat = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label3 = New System.Windows.Forms.Label() + Me.Label2 = New System.Windows.Forms.Label() + Me.Label1 = New System.Windows.Forms.Label() + Me.txtName = New System.Windows.Forms.TextBox() + Me.lblSachbearb = New System.Windows.Forms.Label() + Me.lblAenderung = New System.Windows.Forms.Label() + Me.cbxKK = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.Label14 = New System.Windows.Forms.Label() + Me.txtAnsprechpartnerAnrede = New System.Windows.Forms.TextBox() + Me.Label13 = New System.Windows.Forms.Label() + Me.txtAnsprechpartner = New System.Windows.Forms.TextBox() + Me.cbxLandKz = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtOrt = New System.Windows.Forms.TextBox() + Me.Label12 = New System.Windows.Forms.Label() + Me.txtPlz = New System.Windows.Forms.TextBox() + Me.Label9 = New System.Windows.Forms.Label() + Me.txtStrasse = New System.Windows.Forms.TextBox() + Me.txtFax = New System.Windows.Forms.TextBox() + Me.Label10 = New System.Windows.Forms.Label() + Me.txtEmail = New System.Windows.Forms.TextBox() + Me.Label11 = New System.Windows.Forms.Label() + Me.Label5 = New System.Windows.Forms.Label() + Me.KdSearchBox1 = New VERAG_PROG_ALLGEMEIN.KdSearchBox() + Me.btnAbbrechen = New System.Windows.Forms.Button() + Me.btnOK = New System.Windows.Forms.Button() + Me.txtbishAbrp = New System.Windows.Forms.TextBox() + Me.Label4 = New System.Windows.Forms.Label() + Me.DataGridViewTextBoxColumn4 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.pnl.SuspendLayout() + Me.GroupBoxBriefwaehlen.SuspendLayout() + CType(Me.dgvLKW, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'pnl + ' + Me.pnl.BackColor = System.Drawing.Color.White + Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnl.Controls.Add(Me.txtbishAbrp) + Me.pnl.Controls.Add(Me.Label4) + Me.pnl.Controls.Add(Me.GroupBoxBriefwaehlen) + Me.pnl.Controls.Add(Me.dgvLKW) + Me.pnl.Controls.Add(Me.lblWarning) + Me.pnl.Controls.Add(Me.txtJahr) + Me.pnl.Controls.Add(Me.txtMonat) + Me.pnl.Controls.Add(Me.Label3) + Me.pnl.Controls.Add(Me.Label2) + Me.pnl.Controls.Add(Me.Label1) + Me.pnl.Controls.Add(Me.txtName) + Me.pnl.Controls.Add(Me.lblSachbearb) + Me.pnl.Controls.Add(Me.lblAenderung) + Me.pnl.Controls.Add(Me.cbxKK) + Me.pnl.Controls.Add(Me.Label14) + Me.pnl.Controls.Add(Me.txtAnsprechpartnerAnrede) + Me.pnl.Controls.Add(Me.Label13) + Me.pnl.Controls.Add(Me.txtAnsprechpartner) + Me.pnl.Controls.Add(Me.cbxLandKz) + Me.pnl.Controls.Add(Me.txtOrt) + Me.pnl.Controls.Add(Me.Label12) + Me.pnl.Controls.Add(Me.txtPlz) + Me.pnl.Controls.Add(Me.Label9) + Me.pnl.Controls.Add(Me.txtStrasse) + Me.pnl.Controls.Add(Me.txtFax) + Me.pnl.Controls.Add(Me.Label10) + Me.pnl.Controls.Add(Me.txtEmail) + Me.pnl.Controls.Add(Me.Label11) + Me.pnl.Controls.Add(Me.Label5) + Me.pnl.Controls.Add(Me.KdSearchBox1) + Me.pnl.Controls.Add(Me.btnAbbrechen) + Me.pnl.Controls.Add(Me.btnOK) + 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(476, 569) + Me.pnl.TabIndex = 1 + ' + 'GroupBoxBriefwaehlen + ' + Me.GroupBoxBriefwaehlen.Controls.Add(Me.rbAP) + Me.GroupBoxBriefwaehlen.Controls.Add(Me.rbPostPay) + Me.GroupBoxBriefwaehlen.Location = New System.Drawing.Point(260, 395) + Me.GroupBoxBriefwaehlen.Name = "GroupBoxBriefwaehlen" + Me.GroupBoxBriefwaehlen.Size = New System.Drawing.Size(200, 82) + Me.GroupBoxBriefwaehlen.TabIndex = 492 + Me.GroupBoxBriefwaehlen.TabStop = False + Me.GroupBoxBriefwaehlen.Text = "Brief wählen" + ' + 'rbAP + ' + Me.rbAP.AutoSize = True + Me.rbAP.GroupName = "Brief wählen" + Me.rbAP.Location = New System.Drawing.Point(3, 42) + Me.rbAP.Name = "rbAP" + Me.rbAP.Size = New System.Drawing.Size(191, 17) + Me.rbAP.TabIndex = 1 + Me.rbAP.TabStop = True + Me.rbAP.Text = "Wechsel des Abrechnungspartners" + Me.rbAP.UseVisualStyleBackColor = True + ' + 'rbPostPay + ' + Me.rbPostPay.AutoSize = True + Me.rbPostPay.GroupName = "Brief wählen" + Me.rbPostPay.Location = New System.Drawing.Point(3, 19) + Me.rbPostPay.Name = "rbPostPay" + Me.rbPostPay.Size = New System.Drawing.Size(185, 17) + Me.rbPostPay.TabIndex = 0 + Me.rbPostPay.TabStop = True + Me.rbPostPay.Text = "Wechsel von PrePay auf PostPay" + Me.rbPostPay.UseVisualStyleBackColor = True + ' + 'dgvLKW + ' + Me.dgvLKW.AllowUserToAddRows = False + Me.dgvLKW.AllowUserToDeleteRows = False + Me.dgvLKW.BackgroundColor = System.Drawing.Color.White + Me.dgvLKW.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvLKW.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn4, Me.DataGridViewTextBoxColumn2}) + DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + 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.ControlText + DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvLKW.DefaultCellStyle = DataGridViewCellStyle1 + Me.dgvLKW.GridColor = System.Drawing.Color.Gray + Me.dgvLKW.Location = New System.Drawing.Point(11, 252) + Me.dgvLKW.Name = "dgvLKW" + Me.dgvLKW.RowTemplate.Height = 20 + Me.dgvLKW.Size = New System.Drawing.Size(449, 128) + Me.dgvLKW.TabIndex = 491 + ' + 'lblWarning + ' + Me.lblWarning.AutoSize = True + Me.lblWarning.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblWarning.ForeColor = System.Drawing.Color.Red + Me.lblWarning.Location = New System.Drawing.Point(3, 8) + Me.lblWarning.Name = "lblWarning" + Me.lblWarning.Size = New System.Drawing.Size(0, 13) + Me.lblWarning.TabIndex = 47 + ' + 'txtJahr + ' + Me.txtJahr._DateTimeOnly = False + Me.txtJahr._numbersOnly = True + Me.txtJahr._numbersOnlyKommastellen = "" + Me.txtJahr._numbersOnlyTrennzeichen = True + Me.txtJahr._Prozent = False + Me.txtJahr._ShortDateNew = False + Me.txtJahr._ShortDateOnly = False + Me.txtJahr._TimeOnly = False + Me.txtJahr._TimeOnly_Seconds = False + Me.txtJahr._value = "" + Me.txtJahr._Waehrung = False + Me.txtJahr._WaehrungZeichen = True + Me.txtJahr.ForeColor = System.Drawing.Color.Black + Me.txtJahr.Location = New System.Drawing.Point(102, 457) + Me.txtJahr.MaxLineLength = -1 + Me.txtJahr.MaxLines_Warning = "" + Me.txtJahr.MaxLines_Warning_Label = Nothing + Me.txtJahr.Name = "txtJahr" + Me.txtJahr.Size = New System.Drawing.Size(67, 20) + Me.txtJahr.TabIndex = 46 + ' + 'txtMonat + ' + Me.txtMonat._DateTimeOnly = False + Me.txtMonat._numbersOnly = True + Me.txtMonat._numbersOnlyKommastellen = "" + Me.txtMonat._numbersOnlyTrennzeichen = True + Me.txtMonat._Prozent = False + Me.txtMonat._ShortDateNew = False + Me.txtMonat._ShortDateOnly = False + Me.txtMonat._TimeOnly = False + Me.txtMonat._TimeOnly_Seconds = False + Me.txtMonat._value = "" + Me.txtMonat._Waehrung = False + Me.txtMonat._WaehrungZeichen = True + Me.txtMonat.ForeColor = System.Drawing.Color.Black + Me.txtMonat.Location = New System.Drawing.Point(102, 428) + Me.txtMonat.MaxLineLength = -1 + Me.txtMonat.MaxLines_Warning = "" + Me.txtMonat.MaxLines_Warning_Label = Nothing + Me.txtMonat.Name = "txtMonat" + Me.txtMonat.Size = New System.Drawing.Size(67, 20) + Me.txtMonat.TabIndex = 45 + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Location = New System.Drawing.Point(9, 457) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(76, 13) + Me.Label3.TabIndex = 44 + Me.Label3.Text = "Gültigkeitsjahr:" + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Location = New System.Drawing.Point(11, 431) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(88, 13) + Me.Label2.TabIndex = 43 + Me.Label2.Text = "Gültigkeitsmonat:" + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label1.Location = New System.Drawing.Point(8, 57) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(38, 13) + Me.Label1.TabIndex = 40 + Me.Label1.Text = "Name:" + ' + 'txtName + ' + Me.txtName.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtName.Location = New System.Drawing.Point(113, 54) + Me.txtName.MaxLength = 40 + Me.txtName.Name = "txtName" + Me.txtName.Size = New System.Drawing.Size(347, 20) + Me.txtName.TabIndex = 39 + ' + 'lblSachbearb + ' + Me.lblSachbearb.AutoSize = True + Me.lblSachbearb.Location = New System.Drawing.Point(19, 522) + Me.lblSachbearb.Name = "lblSachbearb" + Me.lblSachbearb.Size = New System.Drawing.Size(0, 13) + Me.lblSachbearb.TabIndex = 38 + ' + 'lblAenderung + ' + Me.lblAenderung.AutoSize = True + Me.lblAenderung.Location = New System.Drawing.Point(19, 503) + Me.lblAenderung.Name = "lblAenderung" + Me.lblAenderung.Size = New System.Drawing.Size(0, 13) + Me.lblAenderung.TabIndex = 37 + ' + 'cbxKK + ' + Me.cbxKK._allowedValuesFreiText = Nothing + Me.cbxKK._allowFreiText = False + Me.cbxKK._value = "" + Me.cbxKK.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.cbxKK.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cbxKK.DropDownWidth = 200 + Me.cbxKK.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.cbxKK.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cbxKK.FormattingEnabled = True + Me.cbxKK.Location = New System.Drawing.Point(102, 397) + Me.cbxKK.Name = "cbxKK" + Me.cbxKK.Size = New System.Drawing.Size(152, 21) + Me.cbxKK.TabIndex = 36 + ' + 'Label14 + ' + Me.Label14.AutoSize = True + Me.Label14.Location = New System.Drawing.Point(11, 400) + Me.Label14.Name = "Label14" + Me.Label14.Size = New System.Drawing.Size(81, 13) + Me.Label14.TabIndex = 34 + Me.Label14.Text = "KreditkartenNr.:" + ' + 'txtAnsprechpartnerAnrede + ' + Me.txtAnsprechpartnerAnrede.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtAnsprechpartnerAnrede.Location = New System.Drawing.Point(113, 84) + Me.txtAnsprechpartnerAnrede.MaxLength = 4 + Me.txtAnsprechpartnerAnrede.Name = "txtAnsprechpartnerAnrede" + Me.txtAnsprechpartnerAnrede.Size = New System.Drawing.Size(65, 20) + Me.txtAnsprechpartnerAnrede.TabIndex = 32 + ' + 'Label13 + ' + Me.Label13.AutoSize = True + Me.Label13.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label13.Location = New System.Drawing.Point(8, 87) + Me.Label13.Name = "Label13" + Me.Label13.Size = New System.Drawing.Size(88, 13) + Me.Label13.TabIndex = 31 + Me.Label13.Text = "Ansprechpartner:" + ' + 'txtAnsprechpartner + ' + Me.txtAnsprechpartner.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtAnsprechpartner.Location = New System.Drawing.Point(184, 84) + Me.txtAnsprechpartner.MaxLength = 40 + Me.txtAnsprechpartner.Name = "txtAnsprechpartner" + Me.txtAnsprechpartner.Size = New System.Drawing.Size(276, 20) + Me.txtAnsprechpartner.TabIndex = 33 + ' + 'cbxLandKz + ' + Me.cbxLandKz._allowedValuesFreiText = Nothing + Me.cbxLandKz._allowFreiText = False + Me.cbxLandKz._value = "" + Me.cbxLandKz.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.cbxLandKz.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cbxLandKz.DropDownWidth = 200 + Me.cbxLandKz.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.cbxLandKz.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cbxLandKz.FormattingEnabled = True + Me.cbxLandKz.Location = New System.Drawing.Point(113, 141) + Me.cbxLandKz.Name = "cbxLandKz" + Me.cbxLandKz.Size = New System.Drawing.Size(64, 21) + Me.cbxLandKz.TabIndex = 25 + ' + 'txtOrt + ' + Me.txtOrt.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtOrt.Location = New System.Drawing.Point(260, 141) + Me.txtOrt.MaxLength = 40 + Me.txtOrt.Name = "txtOrt" + Me.txtOrt.Size = New System.Drawing.Size(201, 20) + Me.txtOrt.TabIndex = 28 + ' + 'Label12 + ' + Me.Label12.AutoSize = True + Me.Label12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label12.Location = New System.Drawing.Point(8, 144) + Me.Label12.Name = "Label12" + Me.Label12.Size = New System.Drawing.Size(90, 13) + Me.Label12.TabIndex = 23 + Me.Label12.Text = "Land / PLZ / Ort:" + ' + 'txtPlz + ' + Me.txtPlz.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtPlz.Location = New System.Drawing.Point(183, 141) + Me.txtPlz.MaxLength = 7 + Me.txtPlz.Name = "txtPlz" + Me.txtPlz.Size = New System.Drawing.Size(71, 20) + Me.txtPlz.TabIndex = 27 + ' + 'Label9 + ' + Me.Label9.AutoSize = True + Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label9.Location = New System.Drawing.Point(8, 110) + Me.Label9.Name = "Label9" + Me.Label9.Size = New System.Drawing.Size(41, 13) + Me.Label9.TabIndex = 21 + Me.Label9.Text = "Straße:" + ' + 'txtStrasse + ' + Me.txtStrasse.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtStrasse.Location = New System.Drawing.Point(113, 110) + Me.txtStrasse.MaxLength = 40 + Me.txtStrasse.Name = "txtStrasse" + Me.txtStrasse.Size = New System.Drawing.Size(348, 20) + Me.txtStrasse.TabIndex = 22 + ' + 'txtFax + ' + Me.txtFax.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtFax.Location = New System.Drawing.Point(113, 177) + Me.txtFax.MaxLength = 20 + Me.txtFax.Name = "txtFax" + Me.txtFax.Size = New System.Drawing.Size(348, 20) + Me.txtFax.TabIndex = 26 + ' + 'Label10 + ' + Me.Label10.AutoSize = True + Me.Label10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label10.Location = New System.Drawing.Point(8, 184) + Me.Label10.Name = "Label10" + Me.Label10.Size = New System.Drawing.Size(27, 13) + Me.Label10.TabIndex = 24 + Me.Label10.Text = "Fax:" + ' + 'txtEmail + ' + Me.txtEmail.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtEmail.Location = New System.Drawing.Point(113, 212) + Me.txtEmail.MaxLength = 40 + Me.txtEmail.Name = "txtEmail" + Me.txtEmail.Size = New System.Drawing.Size(348, 20) + Me.txtEmail.TabIndex = 30 + ' + 'Label11 + ' + Me.Label11.AutoSize = True + Me.Label11.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label11.Location = New System.Drawing.Point(8, 215) + Me.Label11.Name = "Label11" + Me.Label11.Size = New System.Drawing.Size(39, 13) + Me.Label11.TabIndex = 29 + Me.Label11.Text = "E-Mail:" + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.Location = New System.Drawing.Point(8, 30) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(41, 13) + Me.Label5.TabIndex = 13 + Me.Label5.Text = "Kunde:" + ' + 'KdSearchBox1 + ' + Me.KdSearchBox1._AlleFirmenCLUSTER = False + Me.KdSearchBox1._AllowSetValue = True + Me.KdSearchBox1._autoSizeGross = False + Me.KdSearchBox1._display_Name1 = False + Me.KdSearchBox1._displayAVISO_Email = False + Me.KdSearchBox1._displayFullName = False + Me.KdSearchBox1._displayWoelflKd = False + Me.KdSearchBox1._hideIfListEmpty = True + Me.KdSearchBox1._loadKdData = True + Me.KdSearchBox1._searchName1 = True + Me.KdSearchBox1._UseFIRMA = "" + Me.KdSearchBox1._ValueKdAndName = True + Me.KdSearchBox1.BackColor = System.Drawing.Color.White + Me.KdSearchBox1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.KdSearchBox1.dgvpos = "LEFT" + Me.KdSearchBox1.KdName = "" + Me.KdSearchBox1.KdNr = "-1" + Me.KdSearchBox1.kdNrField = Nothing + Me.KdSearchBox1.KdNrNullInt = Nothing + Me.KdSearchBox1.Location = New System.Drawing.Point(112, 28) + Me.KdSearchBox1.Name = "KdSearchBox1" + Me.KdSearchBox1.nurAktive = True + Me.KdSearchBox1.ReadOnly = True + Me.KdSearchBox1.searchActive = True + Me.KdSearchBox1.Size = New System.Drawing.Size(348, 20) + Me.KdSearchBox1.TabIndex = 12 + Me.KdSearchBox1.TIMER_SEARCH = True + Me.KdSearchBox1.usrcntl = Nothing + ' + 'btnAbbrechen + ' + Me.btnAbbrechen.DialogResult = System.Windows.Forms.DialogResult.Cancel + Me.btnAbbrechen.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnAbbrechen.Location = New System.Drawing.Point(167, 522) + Me.btnAbbrechen.Name = "btnAbbrechen" + Me.btnAbbrechen.Size = New System.Drawing.Size(87, 34) + Me.btnAbbrechen.TabIndex = 5 + Me.btnAbbrechen.Text = "Abbrechen" + Me.btnAbbrechen.UseVisualStyleBackColor = True + ' + 'btnOK + ' + Me.btnOK.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnOK.Location = New System.Drawing.Point(285, 522) + Me.btnOK.Name = "btnOK" + Me.btnOK.Size = New System.Drawing.Size(160, 34) + Me.btnOK.TabIndex = 6 + Me.btnOK.Text = "OK" + Me.btnOK.UseVisualStyleBackColor = True + ' + 'txtbishAbrp + ' + Me.txtbishAbrp.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtbishAbrp.Location = New System.Drawing.Point(257, 486) + Me.txtbishAbrp.MaxLength = 40 + Me.txtbishAbrp.Name = "txtbishAbrp" + Me.txtbishAbrp.ReadOnly = True + Me.txtbishAbrp.Size = New System.Drawing.Size(203, 20) + Me.txtbishAbrp.TabIndex = 494 + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label4.Location = New System.Drawing.Point(118, 489) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(125, 13) + Me.Label4.TabIndex = 493 + Me.Label4.Text = "bish. Abrechnugspartner:" + ' + 'DataGridViewTextBoxColumn4 + ' + Me.DataGridViewTextBoxColumn4.HeaderText = "Bez." + Me.DataGridViewTextBoxColumn4.MaxInputLength = 75 + Me.DataGridViewTextBoxColumn4.Name = "DataGridViewTextBoxColumn4" + ' + 'DataGridViewTextBoxColumn2 + ' + Me.DataGridViewTextBoxColumn2.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill + Me.DataGridViewTextBoxColumn2.HeaderText = "Kennzeichen" + Me.DataGridViewTextBoxColumn2.MaxInputLength = 50 + Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2" + ' + 'frmGoMautBoxen + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(476, 569) + Me.Controls.Add(Me.pnl) + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.KeyPreview = True + Me.Name = "frmGoMautBoxen" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "GO Maut Boxen" + Me.pnl.ResumeLayout(False) + Me.pnl.PerformLayout() + Me.GroupBoxBriefwaehlen.ResumeLayout(False) + Me.GroupBoxBriefwaehlen.PerformLayout() + CType(Me.dgvLKW, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents pnl As System.Windows.Forms.Panel + Friend WithEvents btnAbbrechen As System.Windows.Forms.Button + Friend WithEvents btnOK As System.Windows.Forms.Button + Friend WithEvents Label5 As System.Windows.Forms.Label + Friend WithEvents KdSearchBox1 As VERAG_PROG_ALLGEMEIN.KdSearchBox + Friend WithEvents cbxLandKz As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents txtOrt As TextBox + Friend WithEvents Label12 As Label + Friend WithEvents txtPlz As TextBox + Friend WithEvents Label9 As Label + Friend WithEvents txtStrasse As TextBox + Friend WithEvents txtFax As TextBox + Friend WithEvents Label10 As Label + Friend WithEvents txtEmail As TextBox + Friend WithEvents Label11 As Label + Friend WithEvents Label14 As Label + Friend WithEvents txtAnsprechpartnerAnrede As TextBox + Friend WithEvents Label13 As Label + Friend WithEvents txtAnsprechpartner As TextBox + Friend WithEvents cbxKK As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents lblSachbearb As Label + Friend WithEvents lblAenderung As Label + Friend WithEvents Label1 As Label + Friend WithEvents txtName As TextBox + Friend WithEvents Label3 As Label + Friend WithEvents Label2 As Label + Friend WithEvents txtJahr As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtMonat As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents lblWarning As Label + Public WithEvents dgvLKW As DataGridView + Friend WithEvents GroupBoxBriefwaehlen As GroupBox + Friend WithEvents rbAP As VERAG_PROG_ALLGEMEIN.MyRadioButton + Friend WithEvents rbPostPay As VERAG_PROG_ALLGEMEIN.MyRadioButton + Friend WithEvents txtbishAbrp As TextBox + Friend WithEvents Label4 As Label + Friend WithEvents DataGridViewTextBoxColumn4 As DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn2 As DataGridViewTextBoxColumn +End Class diff --git a/SDL/kunden/frmGoMautBoxen.resx b/SDL/kunden/frmGoMautBoxen.resx new file mode 100644 index 00000000..e2f1c2b3 --- /dev/null +++ b/SDL/kunden/frmGoMautBoxen.resx @@ -0,0 +1,986 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + + + AAABAAEAgIAAAAEAGAAoyAAAFgAAACgAAACAAAAAAAEAAAEAGAAAAAAAAMgAAMQOAADEDgAAAAAAAAAA + AACRbEd5TB+CWC59USZ8USV9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ8USV9USaCWC55TB+RbEd4Sx5mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB4Sx5/VClmMwBuPg5r + OglrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOgluPg5mMwB/VCl0RhhmMwBmMwBnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFmMwBmMwB0RhhzRBVmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBz + RBV3Sh1mMwBnNQJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBnNQJmMwB3Sh18UCRmMwBqOQdnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFqOQdmMwB8UCR9USZmMwBrOQhn + NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwDm4N3///////// + ///////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////// + //////////////////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwB0SSb39fT/ + //////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////////+YfWtmMwBmMwBm + MwBmMwB0SSbu6+n////////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///// + ///////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5zUy8X////////////////L + v7itmo1mMwBmMwCYfWv///////90SSZmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwBmMwBmMwB0SSb////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDu6+n///////////////////////////////////////////////////////////+j + jH1mMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwC3p5z/ + ///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwCYfWv////////////////Bs6pmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwB0SSb///////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCt + mo3////////////////////////////////////m4N2Mbli3p5z///////+jjH1mMwBmMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwCMblj///////////////////////////+M + blhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////// + ///////////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////+3 + p5xmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDU + y8X///////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////90SSZm + MwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j////////////////////////////////////////////39fTm + 4N3///////+3p5xmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwC3 + p5z////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3 + p5z////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwCjjH3////////////////Lv7hmMwBmMwBmMwBmMwBmMwCAXUL///////////////////90 + SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBm + MwC3p5z////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////////////U + y8WAXUJmMwBmMwC3p5z39fT////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwBmMwDBs6r////////////////u6+n///////////+tmo1mMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////90SSZmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj////////////////m4N1mMwBmMwBmMwBm + MwBmMwC3p5z////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////// + ///////////////////////////////////////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBm + MwBmMwD39fT////////////////Lv7hmMwBmMwBmMwBmMwBmMwCAXULu6+n////////////////39fRm + MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwDm4N3///////////// + //+jjH3////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb///////////// + //////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD3 + 9fT///////////////90SSZmMwBmMwBmMwBmMwDm4N3///////////////+jjH1mMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////////////////////////////// + //////+3p5xmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////+MblhmMwBmMwBmMwBmMwBm + MwBmMwCMblj///////////////////90SSZmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwBmMwBmMwD39fT///////////////9mMwDLv7j///////////+3p5xmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwDm4N3////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+YfWtmMwBmMwBmMwCAXUL///////// + ///////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////// + //////////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwC3p5z///////// + //////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+jjH1mMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwCMblj////////////////m4N1mMwCAXUL39fT/ + ///////39fSAXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////Uy8VmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////// + ///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwDUy8X////////////u6+lmMwBmMwBmMwBmMwCMblj///////////////////90SSZmMwBm + MwBmMwBmMwBmMwBmMwC3p5z///////////////////9mMwBmMwBmMwB0SSb///////////////////// + //////////////+3p5xmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwCjjH3/ + ///////////////Uy8VmMwBmMwC3p5z////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwC3p5z////////////////////////////////////////////////////m4N1mMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwCjjH3////////////////////////////////////////////////////////////d + 1tGMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+tmo1mMwBmMwBmMwCt + mo3////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////////90SSZm + MwBmMwBmMwDm4N3////////////////////////////////Uy8VmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwC3p5z///////////////+3p5xmMwBmMwB0SSb39fT///////////+Y + fWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////////////////////////// + //////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb///////////////////////////// + //////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3 + p5z////////////39fR0SSZmMwBmMwDBs6r////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBm + MwCjjH3///////////////////+jjH1mMwBmMwBmMwDBs6r////////////////////////////////3 + 9fRmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwDUy8X///////////////+t + mo1mMwBmMwBmMwCtmo3////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///// + //////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDu6+n///////////////90SSZmMwBmMwBmMwBmMwBmMwCjjH3m4N3////////////////39fR0SSZm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////+3p5xmMwBmMwDUy8X///////////// + //+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////////Bs6pmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwBmMwDu6+n///////////////+MblhmMwBmMwBmMwBmMwDu6+n///////////+tmo1mMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+YfWtmMwBmMwBmMwBmMwBmMwBm + MwB0SSbu6+n///////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////// + ///39fSAXUJmMwD39fT///////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///// + ///////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////Uy8W3p5y3p5yYfWtmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwB0SSb///////////////////90SSZmMwBmMwBmMwBm + MwCtmo3////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////m4N1m + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////// + //////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j////////////////Bs6pmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDUy8X////////////Lv7h0SSb///////////////////90SSZmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDu + 6+n///////////////+jjH1mMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwCYfWv///// + ///////////u6+lmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////+3p5xmMwBmMwBmMwBmMwBmMwBm + MwBmMwCjjH3///////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwCYfWv////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///// + //////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+tmo3/ + ///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////// + //+YfWtmMwBmMwBmMwBmMwBmMwCtmo3////////////////u6+lmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwC3p5z////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwCYfWv///// + //////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////////+MblhmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////u6+lmMwBm + MwBmMwBmMwBmMwCAXULLv7j///////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwC3p5z////////////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDd1tH///////////////////+3p5x0SSZmMwBmMwC3p5z///////////////////+t + mo1mMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwDLv7j////////////////Bs6pm + MwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/ + //////////////////////////////////////////////////////////90SSZmMwBmMwBmMwBmMwBm + MwBmMwDm4N3////////////////////////////////////////////////////////////Bs6pmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////+3 + p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////// + ///////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwDm4N3///////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+Y + fWtmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////////////////////////// + //////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////// + ///////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCj + jH3///////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwCtmo339fT///////////////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAF0SSb///////////////////+MblhmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDLv7j////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwC3p5z///////////////// + //////////////////////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwC3p5z///// + ///////////////////////////////////////m4N23p5yMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////9mMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH23p5z39fT////////////////Uy8W3 + p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ8UCRmMwBqOQdn + NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBnNAFqOQdmMwB8UCR3Sh1mMwBnNQJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNQJmMwB3Sh1zRBVmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBz + RBV0RhhmMwBmMwBnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFmMwBmMwB0Rhh/VClmMwBuPg5rOglrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOgluPg5mMwB/VCl4Sx5mMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwB4Sx6RbEd5TB+CWC59USZ8USV9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ8USV9USaCWC55TB+RbEf///////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////Bs6rBs6qYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvBs6rBs6r///// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////Uy8WYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvUy8X////////////////////////////////////////B + s6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwCjjH3Bs6rBs6r39fT///////////////////////////////////////////////////////// + ///Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////////////////////////// + ///////////////////////////////////////////////////////////////d1tGMblhmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvm4N3/ + ///////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMbljLv7j///////////////// + ///////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X////////////////////////////d1tFmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwCMbljm4N3////////////////////////////////////////////m4N1mMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwC3p5z///////////////////////////////////////////////////////////// + //////////////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////// + ///////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////// + ///////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////////////// + ///////////////////////////////////////////////////////////////////Bs6pmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwCtmo3///////////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCA + XUL///////////////////////////////////////////////////////////////////////////// + ///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT///////////////// + //+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3///////////////////////////// + //////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///////////////////////////////////////// + //////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwDBs6r///////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDBs6r////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////// + ///////////////////////////////////////////////////////////////////////////d1tFm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6rd1tH////////39fTBs6qAXUJm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////////Lv7hmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////////////Uy8VmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////////////////////////// + //////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/ + //////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd + 1tH////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////// + ///////Uy8XBs6qMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///// + ///////////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////+AXUJmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCtmo3///////////////////////////////////////+AXUJmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwC3p5z////////////////////////////////d1tGMblhmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////9mMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwB0SSb///////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT///////////////////// + ///////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3///////////// + //////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////////////// + //////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb39fT///////////// + //////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDBs6r////////////////////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwCYfWv///////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0 + SSb///////////////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDBs6r///////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwDUy8X///////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///u6+nBs6rBs6rBs6qYfWtmMwBmMwBmMwDu6+n///////////////////////////////////////// + ///Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////+3p5xmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n////////////////////////////////////////u + 6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj////////////////////////Bs6pm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCY + fWv////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////// + //////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDm4N3////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////u6+m3p5xmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3////////////////////m4N1mMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwDBs6r////////////////////////////////////////////d1tFmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////////u6+lmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////////////////Uy8XB + s6p0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////// + //////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3///////////////////////// + //////////////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////// + //////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD///////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////m4N3Bs6qMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDUy8X///////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwCMblj///////////////////////////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwB0SSb///////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwDm4N3///////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////Bs6qAXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb39fT///////////////////////+jjH1m + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb///////////////////////////////////////// + ///////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///////////////////+t + mo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////Lv7hmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/ + ///////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///// + ///////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwDm4N3////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/ + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCAXUL39fT////////////////////////////Uy8VmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////////////////////////90SSZm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////Uy8VmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbm4N3///////////////////// + ///////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////// + //////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///// + ///////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////Bs6pmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCM + bljm4N3///////////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwCjjH3///////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwD39fT///////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////////////////////////+M + blhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////////////////////// + //////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////// + //+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvBs6r///////////////////////// + //////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD///// + //////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwDd1tH///////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDL + v7j///////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////+Mblhm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3Bs6r///// + ///////////////////////////////////////////////////////////////Bs6pmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////////////////////////+AXUJm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////////Bs6pmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwCtmo3Bs6r39fT///////////////////////////////////////////////////////////////// + ///////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////// + ///////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///// + ///////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwB0SSbLv7j///////////////////////////////////////////////// + ///////////////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwC3p5z////////////////////////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwB0SSb////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwCAXUL///////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbu6+n///////////////////// + //////////////////////////////////////////////////////////////////////////////// + //90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////////////////// + //////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////////// + //////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwC3p5z////////////////////////////////////39fRmMwBmMwB0SSbBs6rBs6r39fT///////// + //////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL/ + ///////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDBs6r///////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDm4N3///////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////////////39fRmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////////////////////////////Bs6pm + MwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3Bs6rBs6r///////////////////////////+3p5xmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT////////////////////////////39fSMblhmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////////+3p5xmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////// + ///////////////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD///////// + ///////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////// + ///////////u6+mMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////// + ///////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////+jjH1mMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCjjH3////////////////////////u6+mAXUJmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwCYfWv////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDLv7j////////////////Uy8W3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDd1tH////////////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwCYfWv///////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMbljBs6r////////d1tG3 + p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////// + ///39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////////////////// + ///////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb///////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCM + blj///////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbu6+n/ + //////////////////////////////////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwD39fT///////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////////////////////L + v7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////////////////+YfWtmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////////////////+jjH1m + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////// + //////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////// + //////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////////39fSAXUJmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwCYfWv////////////////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDB + s6r////////////////////////////////////////////////////////Lv7hmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////u6+mMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////////////////////////// + ///////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwB0SSbUy8X///////////////////////////////////////////////// + ///////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////+jjH1mMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////////// + ///////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbBs6r///////////////////////// + ///////////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwB0SSb///////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////d1tGYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwDBs6r39fT///////////////////////////////////////////////////////////+AXUJm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXULBs6rBs6rm4N3/ + //////////////////////////////////////////////////////////////////////////////+A + XUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD///////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////39fTBs6rBs6pmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCjjH3Bs6rUy8X///////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA== + + + \ No newline at end of file diff --git a/SDL/kunden/frmGoMautBoxen.vb b/SDL/kunden/frmGoMautBoxen.vb new file mode 100644 index 00000000..e20a440b --- /dev/null +++ b/SDL/kunden/frmGoMautBoxen.vb @@ -0,0 +1,283 @@ +Imports System.DirectoryServices.ActiveDirectory +Imports com.sun.tools.corba.se.idl.constExpr +Imports VERAG_PROG_ALLGEMEIN + +Public Class frmGoMautBoxen + Public kundenNr = -1 + + Dim kunde As cKunde + Dim adresse As cAdressen + Dim kundeErw As cKundenErweitert + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Dim dt As New DataTable + + Public addnew = False + Public WithEvents s As New cBinding("SDL") 'fürs Binding + Dim changed As Boolean = False + Dim ready As Boolean = False + + Sub New(kundenNr) + + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + + Me.kundenNr = kundenNr + Me.addnew = addnew + + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + + End Sub + + Sub New(kunde As cKunde, adresse As cAdressen, kundeErw As cKundenErweitert) + + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + + Me.kunde = kunde + Me.adresse = adresse + Me.kundeErw = kundeErw + + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + + End Sub + Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click + + lblWarning.Text = "" + + If kunde Is Nothing And kundenNr < 0 Then + lblWarning.Text = "Bitte Kunden-Nr eingeben." + Exit Sub + End If + + + If cbxKK.SelectedValue = "" Then + lblWarning.Text = "Bitte Kreditkarten-Nr eingeben." + Exit Sub + End If + + If rbAP.Checked And txtbishAbrp.Text = "" Then + lblWarning.Text = "Bitte bisherigen Abrechnungspartner eingeben." + End If + + + + If dgvLKW.Rows(0).Cells(1).Value = "" Then + lblWarning.Text = "Bitte KFZ-Kennzeichen eingeben." + Exit Sub + End If + + + If Not rbPostPay.Checked And Not rbAP.Checked Then + lblWarning.Text = "Umstellungsart angeben!" + Exit Sub + End If + + If rbPostPay.Checked Then + ' "rpt_GO_BOX_Umstellung_Vertragsart" + ElseIf rbAP.Checked Then + ' ' "rpt_GO_BOX_Umstellung_Vertragspartner" + End If + + btnOK.DialogResult = DialogResult.OK + + + + + + 'txtKennzeichen.Text = txtKennzeichen.Text.ToUpper.Trim + 'txtNationalitaet.Text = txtNationalitaet.Text.ToUpper + 'Label5.ForeColor = Color.Black + 'lblErfassung.ForeColor = Color.Black + 'If KdSearchBox1.KdNr < 0 Then Label5.ForeColor = Color.Red : Me.DialogResult = Windows.Forms.DialogResult.None : Exit Sub + 'If txtKennzeichen.Text = "" Then lblErfassung.ForeColor = Color.Red : Me.DialogResult = Windows.Forms.DialogResult.None : Exit Sub + + 'If s.updateBinding Then + ' Dim SQL As New SQL + ' If oldkfz <> txtKennzeichen.Text Then + ' VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.REMANE_FOLDER_KDNR(New VERAG_PROG_ALLGEMEIN.cDatenserver_Change_Value("DOKUMENTE", "MDM", kundenNr, oldkfz, Nothing, Nothing), + ' New VERAG_PROG_ALLGEMEIN.cDatenserver_Change_Value("DOKUMENTE", "MDM", kundenNr, txtKennzeichen.Text, Nothing, Nothing)) + ' SQL.doSQL("UPDATE SDL SET KfzKennzeichen= '" & txtKennzeichen.Text & "' WHERE KundenNr='" & kundenNr & "' AND KfzKennzeichen='" & oldkfz & "'", "SDL", True) + ' SQL.doSQL("UPDATE [Kartenpool] SET KfzKennzeichen= '" & txtKennzeichen.Text & "' WHERE KundenNr='" & kundenNr & "' AND KfzKennzeichen='" & oldkfz & "'", "SDL", True) + ' End If + ' Me.Close() + 'End If + End Sub + + + Sub initdgv() + Try + + Dim setKdNr + If kundenNr > 0 Then + setKdNr = kundenNr + ElseIf kunde IsNot Nothing Then + setKdNr = kunde.KundenNr + Else + setKdNr = -1 + + End If + + dt = SQL.loadDgvBySql("SELECT Kreditkarten.KartenNr, Kreditkarten.Kartenablaufmonat, Kreditkarten.Kartenablaufjahr FROM Kreditkarten WHERE (((Kreditkarten.AdressenNr)=" & setKdNr & ") AND ((Kreditkarten.NeueKartenNr) Is Null)) ORDER BY Kreditkarten.KartenNr", "FMZOLL") + + If dt.Rows.Count > 0 Then + Dim dv As New DataView(dt, "KartenNr<>''", "KartenNr", DataViewRowState.CurrentRows) + Dim dt_new As DataTable = dv.ToTable(False, "KartenNr") + cbxKK.DataSource = dv + cbxKK.DisplayMember = "KartenNr" + cbxKK.ValueMember = "KartenNr" + cbxKK.changeItem(dv.Item(0).Row.Item(0)) + End If + + For i As Integer = 1 To 6 + dgvLKW.Rows.Add("LKW-KZ " & i, "") + Next + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + + + If addnew Then newEntry() 'NEUER EINTRAG! + ready = True + End Sub + + Public Sub newEntry() + ' s.updateBinding() + Dim row = s.bindingdataTable.NewRow() + row.Item("KundenNr") = kundenNr + row.Item("KfzKennzeichen") = "" + s.bindingdataTable.Rows.Add(row) + + s.bindingSource.MoveLast() + 'If save Then updateBinding() + lblAenderung.Text = Now.ToString("dd.MM.yyyy HH:mm") + lblSachbearb.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME + If kundenNr < 0 Then KdSearchBox1.Enabled = True + End Sub + + Sub BindingTableColumnChanged(sender As Object, e As System.Data.DataColumnChangeEventArgs) + If ready Then + lblSachbearb.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME + lblAenderung.Text = Now.ToString("dd.MM.yyyy HH:mm") + changed = True + End If + End Sub + + + Private Sub btnAbbrechen_Click(sender As Object, e As EventArgs) Handles btnAbbrechen.Click ', Me.FormClosing + If changed Then + Select Case MsgBox("Änderungen speichern", vbYesNoCancel) + Case vbYes : Me.DialogResult = Windows.Forms.DialogResult.None : btnOK.PerformClick() + Case vbNo : Me.Close() + Case vbCancel : Me.DialogResult = Windows.Forms.DialogResult.None + End Select + Else + Me.Close() + End If + End Sub + + Private Sub frmLKWDetails_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown + If e.KeyCode = Keys.Return Then + btnOK.PerformClick() + End If + End Sub + + Private Sub frmLKWDetails_Load(sender As Object, e As EventArgs) Handles Me.Load + + 'If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MAUTBOXEN_bearbeiten", Me) Then + ' MsgBox("Keine Berechtigung!") + ' Me.Close() + 'End If + + KdSearchBox1.initKdBox(Me) + + + If kundenNr > 0 Then + Me.KdSearchBox1.KdNr = kundenNr + KdSearchBox1.Enabled = False + End If + + cbxLandKz.fillWithSQL(" select distinct landkz, Währungstabelle.Land from Währungstabelle where landkz is not null order by LandKz", , "FMZOLL", True) + + initKunde() + + End Sub + + Private Sub KdSearchBox1_PropertyChanged(sender As Object, e As System.ComponentModel.PropertyChangedEventArgs) Handles KdSearchBox1.PropertyChanged + initKunde() + End Sub + + + Private Sub initKunde() + + If kundenNr < 0 Then + + + If adresse IsNot Nothing Then + + txtName.Text = If(adresse.Name_1, "") & If(adresse.Name_2, "") + txtStrasse.Text = If(adresse.Straße, "") + txtOrt.Text = If(adresse.Ort, "") + txtPlz.Text = If(adresse.PLZ, "") + cbxLandKz.changeItem(If(adresse.LandKz, "")) + txtAnsprechpartnerAnrede.Text = adresse.Anrede + txtAnsprechpartner.Text = adresse.Ansprechpartner + txtFax.Text = adresse.Telefax + txtEmail.Text = adresse.E_Mail + + initdgv() + + End If + + Else + + + If KdSearchBox1.KdNr_value > 0 AndAlso KdSearchBox1.KdData_ADRESSEN IsNot Nothing AndAlso KdSearchBox1.KdData_KUNDE IsNot Nothing Then + + Dim AD = KdSearchBox1.KdData_ADRESSEN + Dim KD = KdSearchBox1.KdData_KUNDE + Dim KDERW = KdSearchBox1.KdData_KUNDE_ERW + + txtName.Text = If(AD.Name_1, "") & If(AD.Name_2, "") + txtStrasse.Text = If(AD.Straße, "") + txtOrt.Text = If(AD.Ort, "") + txtPlz.Text = If(AD.PLZ, "") + cbxLandKz.changeItem(If(AD.LandKz, "")) + txtAnsprechpartnerAnrede.Text = AD.Anrede + txtAnsprechpartner.Text = AD.Ansprechpartner + + initdgv() + + End If + End If + + + End Sub + + Private Sub cbxKK_SelectedValueChanged(sender As Object, e As EventArgs) Handles cbxKK.SelectedValueChanged + + If cbxKK.SelectedValue Is Nothing OrElse cbxKK.SelectedValue.ToString = "System.Data.DataRowView" Then + txtMonat.Text = "" + txtJahr.Text = "" + Exit Sub + End If + + Dim dr() As DataRow = dt.Select("KartenNr = " & cbxKK.SelectedValue) + + txtMonat.Text = dr(0).Item(1) + txtJahr.Text = dr(0).Item(2) + + End Sub + + Private Sub rbAP_CheckedChanged(sender As Object, e As EventArgs) Handles rbAP.CheckedChanged + + If rbAP.Checked Then + txtbishAbrp.ReadOnly = False + Else + txtbishAbrp.Text = "" + txtbishAbrp.ReadOnly = True + End If + + End Sub +End Class \ No newline at end of file diff --git a/SDL/kunden/frmGoMautBoxen_Bestellung.Designer.vb b/SDL/kunden/frmGoMautBoxen_Bestellung.Designer.vb new file mode 100644 index 00000000..1c78b677 --- /dev/null +++ b/SDL/kunden/frmGoMautBoxen_Bestellung.Designer.vb @@ -0,0 +1,839 @@ + +Partial Class frmGoMautBoxen_Bestellung + 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(frmGoMautBoxen_Bestellung)) + Me.pnl = New System.Windows.Forms.Panel() + Me.txtAxles = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label23 = New System.Windows.Forms.Label() + Me.MyComboBox3 = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.Label22 = New System.Windows.Forms.Label() + Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label20 = New System.Windows.Forms.Label() + Me.Label21 = New System.Windows.Forms.Label() + Me.txtJahr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtMonat = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label17 = New System.Windows.Forms.Label() + Me.Label18 = New System.Windows.Forms.Label() + Me.cbxKK = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.Label19 = New System.Windows.Forms.Label() + Me.Label16 = New System.Windows.Forms.Label() + Me.TextBox1 = New System.Windows.Forms.TextBox() + Me.Label15 = New System.Windows.Forms.Label() + Me.txtTel = New System.Windows.Forms.TextBox() + Me.Label14 = New System.Windows.Forms.Label() + Me.MyComboBox2 = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.Label8 = New System.Windows.Forms.Label() + Me.Label7 = New System.Windows.Forms.Label() + Me.Label6 = New System.Windows.Forms.Label() + Me.Label4 = New System.Windows.Forms.Label() + Me.txtStasseNr = New System.Windows.Forms.TextBox() + Me.Label3 = New System.Windows.Forms.Label() + Me.txtName2 = New System.Windows.Forms.TextBox() + Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.Label2 = New System.Windows.Forms.Label() + Me.lblWarning = New System.Windows.Forms.Label() + Me.Label1 = New System.Windows.Forms.Label() + Me.txtName = New System.Windows.Forms.TextBox() + Me.lblSachbearb = New System.Windows.Forms.Label() + Me.lblAenderung = New System.Windows.Forms.Label() + Me.txtAnsprechpartnerAnrede = New System.Windows.Forms.TextBox() + Me.Label13 = New System.Windows.Forms.Label() + Me.txtAnsprechpartner = New System.Windows.Forms.TextBox() + Me.cbxLandKz = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtOrt = New System.Windows.Forms.TextBox() + Me.Label12 = New System.Windows.Forms.Label() + Me.txtPlz = New System.Windows.Forms.TextBox() + Me.Label9 = New System.Windows.Forms.Label() + Me.txtStrasse = New System.Windows.Forms.TextBox() + Me.txtFax = New System.Windows.Forms.TextBox() + Me.Label10 = New System.Windows.Forms.Label() + Me.txtEmail = New System.Windows.Forms.TextBox() + Me.Label11 = New System.Windows.Forms.Label() + Me.Label5 = New System.Windows.Forms.Label() + Me.KdSearchBox1 = New VERAG_PROG_ALLGEMEIN.KdSearchBox() + Me.btnAbbrechen = New System.Windows.Forms.Button() + Me.btnOK = New System.Windows.Forms.Button() + Me.TextBox2 = New System.Windows.Forms.TextBox() + Me.Label24 = New System.Windows.Forms.Label() + Me.pnl.SuspendLayout() + Me.SuspendLayout() + ' + 'pnl + ' + Me.pnl.BackColor = System.Drawing.Color.White + Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnl.Controls.Add(Me.Label24) + Me.pnl.Controls.Add(Me.TextBox2) + Me.pnl.Controls.Add(Me.txtAxles) + Me.pnl.Controls.Add(Me.Label23) + Me.pnl.Controls.Add(Me.MyComboBox3) + Me.pnl.Controls.Add(Me.Label22) + Me.pnl.Controls.Add(Me.MyTextBox1) + Me.pnl.Controls.Add(Me.MyTextBox2) + Me.pnl.Controls.Add(Me.Label20) + Me.pnl.Controls.Add(Me.Label21) + Me.pnl.Controls.Add(Me.txtJahr) + Me.pnl.Controls.Add(Me.txtMonat) + Me.pnl.Controls.Add(Me.Label17) + Me.pnl.Controls.Add(Me.Label18) + Me.pnl.Controls.Add(Me.cbxKK) + Me.pnl.Controls.Add(Me.Label19) + Me.pnl.Controls.Add(Me.Label16) + Me.pnl.Controls.Add(Me.TextBox1) + Me.pnl.Controls.Add(Me.Label15) + Me.pnl.Controls.Add(Me.txtTel) + Me.pnl.Controls.Add(Me.Label14) + Me.pnl.Controls.Add(Me.MyComboBox2) + Me.pnl.Controls.Add(Me.Label8) + Me.pnl.Controls.Add(Me.Label7) + Me.pnl.Controls.Add(Me.Label6) + Me.pnl.Controls.Add(Me.Label4) + Me.pnl.Controls.Add(Me.txtStasseNr) + Me.pnl.Controls.Add(Me.Label3) + Me.pnl.Controls.Add(Me.txtName2) + Me.pnl.Controls.Add(Me.MyComboBox1) + Me.pnl.Controls.Add(Me.Label2) + Me.pnl.Controls.Add(Me.lblWarning) + Me.pnl.Controls.Add(Me.Label1) + Me.pnl.Controls.Add(Me.txtName) + Me.pnl.Controls.Add(Me.lblSachbearb) + Me.pnl.Controls.Add(Me.lblAenderung) + Me.pnl.Controls.Add(Me.txtAnsprechpartnerAnrede) + Me.pnl.Controls.Add(Me.Label13) + Me.pnl.Controls.Add(Me.txtAnsprechpartner) + Me.pnl.Controls.Add(Me.cbxLandKz) + Me.pnl.Controls.Add(Me.txtOrt) + Me.pnl.Controls.Add(Me.Label12) + Me.pnl.Controls.Add(Me.txtPlz) + Me.pnl.Controls.Add(Me.Label9) + Me.pnl.Controls.Add(Me.txtStrasse) + Me.pnl.Controls.Add(Me.txtFax) + Me.pnl.Controls.Add(Me.Label10) + Me.pnl.Controls.Add(Me.txtEmail) + Me.pnl.Controls.Add(Me.Label11) + Me.pnl.Controls.Add(Me.Label5) + Me.pnl.Controls.Add(Me.KdSearchBox1) + Me.pnl.Controls.Add(Me.btnAbbrechen) + Me.pnl.Controls.Add(Me.btnOK) + 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(827, 448) + Me.pnl.TabIndex = 1 + ' + 'txtAxles + ' + Me.txtAxles._DateTimeOnly = False + Me.txtAxles._numbersOnly = True + Me.txtAxles._numbersOnlyKommastellen = "" + Me.txtAxles._numbersOnlyTrennzeichen = True + Me.txtAxles._Prozent = False + Me.txtAxles._ShortDateNew = False + Me.txtAxles._ShortDateOnly = False + Me.txtAxles._TimeOnly = False + Me.txtAxles._TimeOnly_Seconds = False + Me.txtAxles._value = "" + Me.txtAxles._Waehrung = False + Me.txtAxles._WaehrungZeichen = False + Me.txtAxles.ForeColor = System.Drawing.Color.Black + Me.txtAxles.Location = New System.Drawing.Point(621, 342) + Me.txtAxles.MaxLineLength = -1 + Me.txtAxles.MaxLines_Warning = "" + Me.txtAxles.MaxLines_Warning_Label = Nothing + Me.txtAxles.Name = "txtAxles" + Me.txtAxles.Size = New System.Drawing.Size(53, 20) + Me.txtAxles.TabIndex = 78 + ' + 'Label23 + ' + Me.Label23.AutoSize = True + Me.Label23.Location = New System.Drawing.Point(514, 345) + Me.Label23.Name = "Label23" + Me.Label23.Size = New System.Drawing.Size(35, 13) + Me.Label23.TabIndex = 77 + Me.Label23.Text = "Axles:" + ' + 'MyComboBox3 + ' + Me.MyComboBox3._allowedValuesFreiText = Nothing + Me.MyComboBox3._allowFreiText = False + Me.MyComboBox3._value = "" + Me.MyComboBox3.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.MyComboBox3.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.MyComboBox3.DropDownWidth = 200 + Me.MyComboBox3.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.MyComboBox3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.MyComboBox3.FormattingEnabled = True + Me.MyComboBox3.Location = New System.Drawing.Point(621, 289) + Me.MyComboBox3.Name = "MyComboBox3" + Me.MyComboBox3.Size = New System.Drawing.Size(129, 21) + Me.MyComboBox3.TabIndex = 76 + ' + 'Label22 + ' + Me.Label22.AutoSize = True + Me.Label22.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label22.Location = New System.Drawing.Point(514, 292) + Me.Label22.Name = "Label22" + Me.Label22.Size = New System.Drawing.Size(97, 13) + Me.Label22.TabIndex = 75 + Me.Label22.Text = "License Plate Nat.:" + ' + 'MyTextBox1 + ' + Me.MyTextBox1._DateTimeOnly = False + Me.MyTextBox1._numbersOnly = False + Me.MyTextBox1._numbersOnlyKommastellen = "" + Me.MyTextBox1._numbersOnlyTrennzeichen = False + Me.MyTextBox1._Prozent = False + Me.MyTextBox1._ShortDateNew = False + Me.MyTextBox1._ShortDateOnly = False + Me.MyTextBox1._TimeOnly = False + Me.MyTextBox1._TimeOnly_Seconds = False + Me.MyTextBox1._value = "" + Me.MyTextBox1._Waehrung = False + Me.MyTextBox1._WaehrungZeichen = False + Me.MyTextBox1.ForeColor = System.Drawing.Color.Black + Me.MyTextBox1.Location = New System.Drawing.Point(621, 316) + 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(53, 20) + Me.MyTextBox1.TabIndex = 74 + ' + 'MyTextBox2 + ' + Me.MyTextBox2._DateTimeOnly = False + Me.MyTextBox2._numbersOnly = False + Me.MyTextBox2._numbersOnlyKommastellen = "" + Me.MyTextBox2._numbersOnlyTrennzeichen = False + Me.MyTextBox2._Prozent = False + Me.MyTextBox2._ShortDateNew = False + Me.MyTextBox2._ShortDateOnly = False + Me.MyTextBox2._TimeOnly = False + Me.MyTextBox2._TimeOnly_Seconds = False + Me.MyTextBox2._value = "" + Me.MyTextBox2._Waehrung = False + Me.MyTextBox2._WaehrungZeichen = False + Me.MyTextBox2.ForeColor = System.Drawing.Color.Black + Me.MyTextBox2.Location = New System.Drawing.Point(621, 261) + 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(67, 20) + Me.MyTextBox2.TabIndex = 73 + ' + 'Label20 + ' + Me.Label20.AutoSize = True + Me.Label20.Location = New System.Drawing.Point(514, 319) + Me.Label20.Name = "Label20" + Me.Label20.Size = New System.Drawing.Size(72, 13) + Me.Label20.TabIndex = 72 + Me.Label20.Text = "Vehicle Type:" + ' + 'Label21 + ' + Me.Label21.AutoSize = True + Me.Label21.Location = New System.Drawing.Point(515, 264) + Me.Label21.Name = "Label21" + Me.Label21.Size = New System.Drawing.Size(74, 13) + Me.Label21.TabIndex = 71 + Me.Label21.Text = "License Plate:" + ' + 'txtJahr + ' + Me.txtJahr._DateTimeOnly = False + Me.txtJahr._numbersOnly = True + Me.txtJahr._numbersOnlyKommastellen = "" + Me.txtJahr._numbersOnlyTrennzeichen = True + Me.txtJahr._Prozent = False + Me.txtJahr._ShortDateNew = False + Me.txtJahr._ShortDateOnly = False + Me.txtJahr._TimeOnly = False + Me.txtJahr._TimeOnly_Seconds = False + Me.txtJahr._value = "" + Me.txtJahr._Waehrung = False + Me.txtJahr._WaehrungZeichen = True + Me.txtJahr.ForeColor = System.Drawing.Color.Black + Me.txtJahr.Location = New System.Drawing.Point(606, 226) + Me.txtJahr.MaxLineLength = -1 + Me.txtJahr.MaxLines_Warning = "" + Me.txtJahr.MaxLines_Warning_Label = Nothing + Me.txtJahr.Name = "txtJahr" + Me.txtJahr.Size = New System.Drawing.Size(67, 20) + Me.txtJahr.TabIndex = 68 + ' + 'txtMonat + ' + Me.txtMonat._DateTimeOnly = False + Me.txtMonat._numbersOnly = True + Me.txtMonat._numbersOnlyKommastellen = "" + Me.txtMonat._numbersOnlyTrennzeichen = True + Me.txtMonat._Prozent = False + Me.txtMonat._ShortDateNew = False + Me.txtMonat._ShortDateOnly = False + Me.txtMonat._TimeOnly = False + Me.txtMonat._TimeOnly_Seconds = False + Me.txtMonat._value = "" + Me.txtMonat._Waehrung = False + Me.txtMonat._WaehrungZeichen = True + Me.txtMonat.ForeColor = System.Drawing.Color.Black + Me.txtMonat.Location = New System.Drawing.Point(606, 197) + Me.txtMonat.MaxLineLength = -1 + Me.txtMonat.MaxLines_Warning = "" + Me.txtMonat.MaxLines_Warning_Label = Nothing + Me.txtMonat.Name = "txtMonat" + Me.txtMonat.Size = New System.Drawing.Size(67, 20) + Me.txtMonat.TabIndex = 67 + ' + 'Label17 + ' + Me.Label17.AutoSize = True + Me.Label17.Location = New System.Drawing.Point(513, 226) + Me.Label17.Name = "Label17" + Me.Label17.Size = New System.Drawing.Size(76, 13) + Me.Label17.TabIndex = 66 + Me.Label17.Text = "Gültigkeitsjahr:" + ' + 'Label18 + ' + Me.Label18.AutoSize = True + Me.Label18.Location = New System.Drawing.Point(515, 200) + Me.Label18.Name = "Label18" + Me.Label18.Size = New System.Drawing.Size(88, 13) + Me.Label18.TabIndex = 65 + Me.Label18.Text = "Gültigkeitsmonat:" + ' + 'cbxKK + ' + Me.cbxKK._allowedValuesFreiText = Nothing + Me.cbxKK._allowFreiText = False + Me.cbxKK._value = "" + Me.cbxKK.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.cbxKK.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cbxKK.DropDownWidth = 200 + Me.cbxKK.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.cbxKK.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cbxKK.FormattingEnabled = True + Me.cbxKK.Location = New System.Drawing.Point(606, 166) + Me.cbxKK.Name = "cbxKK" + Me.cbxKK.Size = New System.Drawing.Size(152, 21) + Me.cbxKK.TabIndex = 64 + ' + 'Label19 + ' + Me.Label19.AutoSize = True + Me.Label19.Location = New System.Drawing.Point(515, 169) + Me.Label19.Name = "Label19" + Me.Label19.Size = New System.Drawing.Size(81, 13) + Me.Label19.TabIndex = 63 + Me.Label19.Text = "KreditkartenNr.:" + ' + 'Label16 + ' + Me.Label16.AutoSize = True + Me.Label16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label16.Location = New System.Drawing.Point(516, 37) + Me.Label16.Name = "Label16" + Me.Label16.Size = New System.Drawing.Size(30, 13) + Me.Label16.TabIndex = 62 + Me.Label16.Text = "Title:" + ' + 'TextBox1 + ' + Me.TextBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TextBox1.Location = New System.Drawing.Point(621, 30) + Me.TextBox1.MaxLength = 4 + Me.TextBox1.Name = "TextBox1" + Me.TextBox1.Size = New System.Drawing.Size(96, 20) + Me.TextBox1.TabIndex = 61 + ' + 'Label15 + ' + Me.Label15.AutoSize = True + Me.Label15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label15.Location = New System.Drawing.Point(509, 60) + Me.Label15.Name = "Label15" + Me.Label15.Size = New System.Drawing.Size(55, 13) + Me.Label15.TabIndex = 60 + Me.Label15.Text = "Fristname:" + ' + 'txtTel + ' + Me.txtTel.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtTel.Location = New System.Drawing.Point(111, 264) + Me.txtTel.MaxLength = 20 + Me.txtTel.Name = "txtTel" + Me.txtTel.Size = New System.Drawing.Size(348, 20) + Me.txtTel.TabIndex = 59 + ' + 'Label14 + ' + Me.Label14.AutoSize = True + Me.Label14.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label14.Location = New System.Drawing.Point(6, 271) + Me.Label14.Name = "Label14" + Me.Label14.Size = New System.Drawing.Size(64, 13) + Me.Label14.TabIndex = 58 + Me.Label14.Text = "Country Tel:" + ' + 'MyComboBox2 + ' + Me.MyComboBox2._allowedValuesFreiText = Nothing + Me.MyComboBox2._allowFreiText = False + Me.MyComboBox2._value = "" + Me.MyComboBox2.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.MyComboBox2.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.MyComboBox2.DropDownWidth = 200 + Me.MyComboBox2.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.MyComboBox2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.MyComboBox2.FormattingEnabled = True + Me.MyComboBox2.Location = New System.Drawing.Point(113, 237) + Me.MyComboBox2.Name = "MyComboBox2" + Me.MyComboBox2.Size = New System.Drawing.Size(129, 21) + Me.MyComboBox2.TabIndex = 57 + ' + 'Label8 + ' + Me.Label8.AutoSize = True + Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label8.Location = New System.Drawing.Point(7, 240) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(112, 13) + Me.Label8.TabIndex = 56 + Me.Label8.Text = "Company CountryAbb:" + ' + 'Label7 + ' + Me.Label7.AutoSize = True + Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label7.Location = New System.Drawing.Point(8, 187) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(74, 13) + Me.Label7.TabIndex = 55 + Me.Label7.Text = "Company City:" + ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label6.Location = New System.Drawing.Point(8, 158) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(82, 13) + Me.Label6.TabIndex = 54 + Me.Label6.Text = "Company Code:" + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label4.Location = New System.Drawing.Point(7, 132) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(68, 13) + Me.Label4.TabIndex = 52 + Me.Label4.Text = "Company Nr:" + ' + 'txtStasseNr + ' + Me.txtStasseNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtStasseNr.Location = New System.Drawing.Point(112, 132) + Me.txtStasseNr.MaxLength = 40 + Me.txtStasseNr.Name = "txtStasseNr" + Me.txtStasseNr.Size = New System.Drawing.Size(130, 20) + Me.txtStasseNr.TabIndex = 53 + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label3.Location = New System.Drawing.Point(8, 83) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(63, 13) + Me.Label3.TabIndex = 51 + Me.Label3.Text = "Company 2:" + ' + 'txtName2 + ' + Me.txtName2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtName2.Location = New System.Drawing.Point(113, 80) + Me.txtName2.MaxLength = 40 + Me.txtName2.Name = "txtName2" + Me.txtName2.Size = New System.Drawing.Size(347, 20) + Me.txtName2.TabIndex = 50 + ' + 'MyComboBox1 + ' + Me.MyComboBox1._allowedValuesFreiText = Nothing + Me.MyComboBox1._allowFreiText = False + Me.MyComboBox1._value = "" + Me.MyComboBox1.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.MyComboBox1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.MyComboBox1.DropDownWidth = 200 + Me.MyComboBox1.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.MyComboBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.MyComboBox1.FormattingEnabled = True + Me.MyComboBox1.Location = New System.Drawing.Point(113, 3) + Me.MyComboBox1.Name = "MyComboBox1" + Me.MyComboBox1.Size = New System.Drawing.Size(64, 21) + Me.MyComboBox1.TabIndex = 49 + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label2.Location = New System.Drawing.Point(6, 11) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(84, 13) + Me.Label2.TabIndex = 48 + Me.Label2.Text = "Transaction Typ" + ' + 'lblWarning + ' + Me.lblWarning.AutoSize = True + Me.lblWarning.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblWarning.ForeColor = System.Drawing.Color.Red + Me.lblWarning.Location = New System.Drawing.Point(3, 8) + Me.lblWarning.Name = "lblWarning" + Me.lblWarning.Size = New System.Drawing.Size(0, 13) + Me.lblWarning.TabIndex = 47 + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label1.Location = New System.Drawing.Point(8, 57) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(63, 13) + Me.Label1.TabIndex = 40 + Me.Label1.Text = "Company 1:" + ' + 'txtName + ' + Me.txtName.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtName.Location = New System.Drawing.Point(113, 54) + Me.txtName.MaxLength = 40 + Me.txtName.Name = "txtName" + Me.txtName.Size = New System.Drawing.Size(347, 20) + Me.txtName.TabIndex = 39 + ' + 'lblSachbearb + ' + Me.lblSachbearb.AutoSize = True + Me.lblSachbearb.Location = New System.Drawing.Point(19, 522) + Me.lblSachbearb.Name = "lblSachbearb" + Me.lblSachbearb.Size = New System.Drawing.Size(0, 13) + Me.lblSachbearb.TabIndex = 38 + ' + 'lblAenderung + ' + Me.lblAenderung.AutoSize = True + Me.lblAenderung.Location = New System.Drawing.Point(19, 503) + Me.lblAenderung.Name = "lblAenderung" + Me.lblAenderung.Size = New System.Drawing.Size(0, 13) + Me.lblAenderung.TabIndex = 37 + ' + 'txtAnsprechpartnerAnrede + ' + Me.txtAnsprechpartnerAnrede.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtAnsprechpartnerAnrede.Location = New System.Drawing.Point(621, 4) + Me.txtAnsprechpartnerAnrede.MaxLength = 4 + Me.txtAnsprechpartnerAnrede.Name = "txtAnsprechpartnerAnrede" + Me.txtAnsprechpartnerAnrede.Size = New System.Drawing.Size(65, 20) + Me.txtAnsprechpartnerAnrede.TabIndex = 32 + ' + 'Label13 + ' + Me.Label13.AutoSize = True + Me.Label13.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label13.Location = New System.Drawing.Point(516, 11) + Me.Label13.Name = "Label13" + Me.Label13.Size = New System.Drawing.Size(57, 13) + Me.Label13.TabIndex = 31 + Me.Label13.Text = "Salutation:" + ' + 'txtAnsprechpartner + ' + Me.txtAnsprechpartner.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtAnsprechpartner.Location = New System.Drawing.Point(621, 53) + Me.txtAnsprechpartner.MaxLength = 40 + Me.txtAnsprechpartner.Name = "txtAnsprechpartner" + Me.txtAnsprechpartner.Size = New System.Drawing.Size(194, 20) + Me.txtAnsprechpartner.TabIndex = 33 + ' + 'cbxLandKz + ' + Me.cbxLandKz._allowedValuesFreiText = Nothing + Me.cbxLandKz._allowFreiText = False + Me.cbxLandKz._value = "" + Me.cbxLandKz.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.cbxLandKz.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cbxLandKz.DropDownWidth = 200 + Me.cbxLandKz.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.cbxLandKz.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cbxLandKz.FormattingEnabled = True + Me.cbxLandKz.Location = New System.Drawing.Point(113, 210) + Me.cbxLandKz.Name = "cbxLandKz" + Me.cbxLandKz.Size = New System.Drawing.Size(129, 21) + Me.cbxLandKz.TabIndex = 25 + ' + 'txtOrt + ' + Me.txtOrt.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtOrt.Location = New System.Drawing.Point(112, 184) + Me.txtOrt.MaxLength = 40 + Me.txtOrt.Name = "txtOrt" + Me.txtOrt.Size = New System.Drawing.Size(347, 20) + Me.txtOrt.TabIndex = 28 + ' + 'Label12 + ' + Me.Label12.AutoSize = True + Me.Label12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label12.Location = New System.Drawing.Point(7, 213) + Me.Label12.Name = "Label12" + Me.Label12.Size = New System.Drawing.Size(93, 13) + Me.Label12.TabIndex = 23 + Me.Label12.Text = "Company Country:" + ' + 'txtPlz + ' + Me.txtPlz.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtPlz.Location = New System.Drawing.Point(113, 158) + Me.txtPlz.MaxLength = 7 + Me.txtPlz.Name = "txtPlz" + Me.txtPlz.Size = New System.Drawing.Size(129, 20) + Me.txtPlz.TabIndex = 27 + ' + 'Label9 + ' + Me.Label9.AutoSize = True + Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label9.Location = New System.Drawing.Point(7, 106) + Me.Label9.Name = "Label9" + Me.Label9.Size = New System.Drawing.Size(85, 13) + Me.Label9.TabIndex = 21 + Me.Label9.Text = "Company Street:" + ' + 'txtStrasse + ' + Me.txtStrasse.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtStrasse.Location = New System.Drawing.Point(112, 106) + Me.txtStrasse.MaxLength = 40 + Me.txtStrasse.Name = "txtStrasse" + Me.txtStrasse.Size = New System.Drawing.Size(348, 20) + Me.txtStrasse.TabIndex = 22 + ' + 'txtFax + ' + Me.txtFax.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtFax.Location = New System.Drawing.Point(111, 287) + Me.txtFax.MaxLength = 20 + Me.txtFax.Name = "txtFax" + Me.txtFax.Size = New System.Drawing.Size(348, 20) + Me.txtFax.TabIndex = 26 + ' + 'Label10 + ' + Me.Label10.AutoSize = True + Me.Label10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label10.Location = New System.Drawing.Point(6, 294) + Me.Label10.Name = "Label10" + Me.Label10.Size = New System.Drawing.Size(66, 13) + Me.Label10.TabIndex = 24 + Me.Label10.Text = "Country Fax:" + ' + 'txtEmail + ' + Me.txtEmail.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtEmail.Location = New System.Drawing.Point(620, 125) + Me.txtEmail.MaxLength = 40 + Me.txtEmail.Name = "txtEmail" + Me.txtEmail.Size = New System.Drawing.Size(194, 20) + Me.txtEmail.TabIndex = 30 + ' + 'Label11 + ' + Me.Label11.AutoSize = True + Me.Label11.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label11.Location = New System.Drawing.Point(515, 128) + Me.Label11.Name = "Label11" + Me.Label11.Size = New System.Drawing.Size(39, 13) + Me.Label11.TabIndex = 29 + Me.Label11.Text = "E-Mail:" + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.Location = New System.Drawing.Point(201, 8) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(41, 13) + Me.Label5.TabIndex = 13 + Me.Label5.Text = "Kunde:" + ' + 'KdSearchBox1 + ' + Me.KdSearchBox1._AlleFirmenCLUSTER = False + Me.KdSearchBox1._AllowSetValue = True + Me.KdSearchBox1._autoSizeGross = False + Me.KdSearchBox1._display_Name1 = False + Me.KdSearchBox1._displayAVISO_Email = False + Me.KdSearchBox1._displayFullName = False + Me.KdSearchBox1._displayWoelflKd = False + Me.KdSearchBox1._hideIfListEmpty = True + Me.KdSearchBox1._loadKdData = True + Me.KdSearchBox1._searchName1 = True + Me.KdSearchBox1._UseFIRMA = "" + Me.KdSearchBox1._ValueKdAndName = True + Me.KdSearchBox1.BackColor = System.Drawing.Color.White + Me.KdSearchBox1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.KdSearchBox1.dgvpos = "LEFT" + Me.KdSearchBox1.KdName = "" + Me.KdSearchBox1.KdNr = "-1" + Me.KdSearchBox1.kdNrField = Nothing + Me.KdSearchBox1.KdNrNullInt = Nothing + Me.KdSearchBox1.Location = New System.Drawing.Point(260, 4) + Me.KdSearchBox1.Name = "KdSearchBox1" + Me.KdSearchBox1.nurAktive = True + Me.KdSearchBox1.ReadOnly = True + Me.KdSearchBox1.searchActive = True + Me.KdSearchBox1.Size = New System.Drawing.Size(201, 20) + Me.KdSearchBox1.TabIndex = 12 + Me.KdSearchBox1.TIMER_SEARCH = True + Me.KdSearchBox1.usrcntl = Nothing + ' + 'btnAbbrechen + ' + Me.btnAbbrechen.DialogResult = System.Windows.Forms.DialogResult.Cancel + Me.btnAbbrechen.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnAbbrechen.Location = New System.Drawing.Point(10, 401) + Me.btnAbbrechen.Name = "btnAbbrechen" + Me.btnAbbrechen.Size = New System.Drawing.Size(123, 34) + Me.btnAbbrechen.TabIndex = 5 + Me.btnAbbrechen.Text = "Abbrechen" + Me.btnAbbrechen.UseVisualStyleBackColor = True + ' + 'btnOK + ' + Me.btnOK.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnOK.Location = New System.Drawing.Point(654, 401) + Me.btnOK.Name = "btnOK" + Me.btnOK.Size = New System.Drawing.Size(160, 34) + Me.btnOK.TabIndex = 6 + Me.btnOK.Text = "OK" + Me.btnOK.UseVisualStyleBackColor = True + ' + 'TextBox2 + ' + Me.TextBox2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TextBox2.Location = New System.Drawing.Point(621, 80) + Me.TextBox2.MaxLength = 40 + Me.TextBox2.Name = "TextBox2" + Me.TextBox2.Size = New System.Drawing.Size(194, 20) + Me.TextBox2.TabIndex = 79 + ' + 'Label24 + ' + Me.Label24.AutoSize = True + Me.Label24.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label24.Location = New System.Drawing.Point(509, 83) + Me.Label24.Name = "Label24" + Me.Label24.Size = New System.Drawing.Size(56, 13) + Me.Label24.TabIndex = 80 + Me.Label24.Text = "Lastname:" + ' + 'frmGoMautBoxen_Bestellung + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(827, 448) + Me.Controls.Add(Me.pnl) + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.KeyPreview = True + Me.Name = "frmGoMautBoxen_Bestellung" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "GO Maut Boxen Bestellung" + Me.pnl.ResumeLayout(False) + Me.pnl.PerformLayout() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents pnl As System.Windows.Forms.Panel + Friend WithEvents btnAbbrechen As System.Windows.Forms.Button + Friend WithEvents btnOK As System.Windows.Forms.Button + Friend WithEvents Label5 As System.Windows.Forms.Label + Friend WithEvents KdSearchBox1 As VERAG_PROG_ALLGEMEIN.KdSearchBox + Friend WithEvents cbxLandKz As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents txtOrt As TextBox + Friend WithEvents Label12 As Label + Friend WithEvents txtPlz As TextBox + Friend WithEvents Label9 As Label + Friend WithEvents txtStrasse As TextBox + Friend WithEvents txtFax As TextBox + Friend WithEvents Label10 As Label + Friend WithEvents txtEmail As TextBox + Friend WithEvents Label11 As Label + Friend WithEvents txtAnsprechpartnerAnrede As TextBox + Friend WithEvents Label13 As Label + Friend WithEvents txtAnsprechpartner As TextBox + Friend WithEvents lblSachbearb As Label + Friend WithEvents lblAenderung As Label + Friend WithEvents Label1 As Label + Friend WithEvents txtName As TextBox + Friend WithEvents lblWarning As Label + Friend WithEvents Label4 As Label + Friend WithEvents txtStasseNr As TextBox + Friend WithEvents Label3 As Label + Friend WithEvents txtName2 As TextBox + Friend WithEvents MyComboBox1 As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents Label2 As Label + Friend WithEvents txtTel As TextBox + Friend WithEvents Label14 As Label + Friend WithEvents MyComboBox2 As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents Label8 As Label + Friend WithEvents Label7 As Label + Friend WithEvents Label6 As Label + Friend WithEvents Label16 As Label + Friend WithEvents TextBox1 As TextBox + Friend WithEvents Label15 As Label + Friend WithEvents MyComboBox3 As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents Label22 As Label + Friend WithEvents MyTextBox1 As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents MyTextBox2 As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label20 As Label + Friend WithEvents Label21 As Label + Friend WithEvents txtJahr As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtMonat As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label17 As Label + Friend WithEvents Label18 As Label + Friend WithEvents cbxKK As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents Label19 As Label + Friend WithEvents txtAxles As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label23 As Label + Friend WithEvents Label24 As Label + Friend WithEvents TextBox2 As TextBox +End Class diff --git a/SDL/kunden/frmGoMautBoxen_Bestellung.resx b/SDL/kunden/frmGoMautBoxen_Bestellung.resx new file mode 100644 index 00000000..d584bd9e --- /dev/null +++ b/SDL/kunden/frmGoMautBoxen_Bestellung.resx @@ -0,0 +1,980 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + + AAABAAEAgIAAAAEAGAAoyAAAFgAAACgAAACAAAAAAAEAAAEAGAAAAAAAAMgAAMQOAADEDgAAAAAAAAAA + AACRbEd5TB+CWC59USZ8USV9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ8USV9USaCWC55TB+RbEd4Sx5mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB4Sx5/VClmMwBuPg5r + OglrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOgluPg5mMwB/VCl0RhhmMwBmMwBnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFmMwBmMwB0RhhzRBVmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBz + RBV3Sh1mMwBnNQJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBnNQJmMwB3Sh18UCRmMwBqOQdnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFqOQdmMwB8UCR9USZmMwBrOQhn + NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwDm4N3///////// + ///////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////// + //////////////////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwB0SSb39fT/ + //////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////////+YfWtmMwBmMwBm + MwBmMwB0SSbu6+n////////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///// + ///////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5zUy8X////////////////L + v7itmo1mMwBmMwCYfWv///////90SSZmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwBmMwBmMwB0SSb////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDu6+n///////////////////////////////////////////////////////////+j + jH1mMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwC3p5z/ + ///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwCYfWv////////////////Bs6pmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwB0SSb///////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCt + mo3////////////////////////////////////m4N2Mbli3p5z///////+jjH1mMwBmMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwCMblj///////////////////////////+M + blhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////// + ///////////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////+3 + p5xmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDU + y8X///////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////90SSZm + MwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j////////////////////////////////////////////39fTm + 4N3///////+3p5xmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwC3 + p5z////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3 + p5z////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwCjjH3////////////////Lv7hmMwBmMwBmMwBmMwBmMwCAXUL///////////////////90 + SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBm + MwC3p5z////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////////////U + y8WAXUJmMwBmMwC3p5z39fT////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwBmMwDBs6r////////////////u6+n///////////+tmo1mMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////90SSZmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj////////////////m4N1mMwBmMwBmMwBm + MwBmMwC3p5z////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////// + ///////////////////////////////////////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBm + MwBmMwD39fT////////////////Lv7hmMwBmMwBmMwBmMwBmMwCAXULu6+n////////////////39fRm + MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwDm4N3///////////// + //+jjH3////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb///////////// + //////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD3 + 9fT///////////////90SSZmMwBmMwBmMwBmMwDm4N3///////////////+jjH1mMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////////////////////////////// + //////+3p5xmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////+MblhmMwBmMwBmMwBmMwBm + MwBmMwCMblj///////////////////90SSZmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwBmMwBmMwD39fT///////////////9mMwDLv7j///////////+3p5xmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwDm4N3////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+YfWtmMwBmMwBmMwCAXUL///////// + ///////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////// + //////////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwC3p5z///////// + //////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+jjH1mMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwCMblj////////////////m4N1mMwCAXUL39fT/ + ///////39fSAXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////Uy8VmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////// + ///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwDUy8X////////////u6+lmMwBmMwBmMwBmMwCMblj///////////////////90SSZmMwBm + MwBmMwBmMwBmMwBmMwC3p5z///////////////////9mMwBmMwBmMwB0SSb///////////////////// + //////////////+3p5xmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwCjjH3/ + ///////////////Uy8VmMwBmMwC3p5z////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwC3p5z////////////////////////////////////////////////////m4N1mMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwCjjH3////////////////////////////////////////////////////////////d + 1tGMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+tmo1mMwBmMwBmMwCt + mo3////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////////90SSZm + MwBmMwBmMwDm4N3////////////////////////////////Uy8VmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwC3p5z///////////////+3p5xmMwBmMwB0SSb39fT///////////+Y + fWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////////////////////////// + //////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb///////////////////////////// + //////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3 + p5z////////////39fR0SSZmMwBmMwDBs6r////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBm + MwCjjH3///////////////////+jjH1mMwBmMwBmMwDBs6r////////////////////////////////3 + 9fRmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwDUy8X///////////////+t + mo1mMwBmMwBmMwCtmo3////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///// + //////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDu6+n///////////////90SSZmMwBmMwBmMwBmMwBmMwCjjH3m4N3////////////////39fR0SSZm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////+3p5xmMwBmMwDUy8X///////////// + //+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////////Bs6pmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwBmMwDu6+n///////////////+MblhmMwBmMwBmMwBmMwDu6+n///////////+tmo1mMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+YfWtmMwBmMwBmMwBmMwBmMwBm + MwB0SSbu6+n///////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////// + ///39fSAXUJmMwD39fT///////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///// + ///////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////Uy8W3p5y3p5yYfWtmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwB0SSb///////////////////90SSZmMwBmMwBmMwBm + MwCtmo3////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////m4N1m + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////// + //////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j////////////////Bs6pmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDUy8X////////////Lv7h0SSb///////////////////90SSZmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDu + 6+n///////////////+jjH1mMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwCYfWv///// + ///////////u6+lmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////+3p5xmMwBmMwBmMwBmMwBmMwBm + MwBmMwCjjH3///////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwCYfWv////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///// + //////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+tmo3/ + ///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////// + //+YfWtmMwBmMwBmMwBmMwBmMwCtmo3////////////////u6+lmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwC3p5z////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwCYfWv///// + //////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////////+MblhmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////u6+lmMwBm + MwBmMwBmMwBmMwCAXULLv7j///////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwC3p5z////////////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDd1tH///////////////////+3p5x0SSZmMwBmMwC3p5z///////////////////+t + mo1mMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwDLv7j////////////////Bs6pm + MwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/ + //////////////////////////////////////////////////////////90SSZmMwBmMwBmMwBmMwBm + MwBmMwDm4N3////////////////////////////////////////////////////////////Bs6pmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////+3 + p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////// + ///////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwDm4N3///////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+Y + fWtmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////////////////////////// + //////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////// + ///////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCj + jH3///////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwCtmo339fT///////////////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAF0SSb///////////////////+MblhmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDLv7j////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwC3p5z///////////////// + //////////////////////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwC3p5z///// + ///////////////////////////////////////m4N23p5yMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////9mMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH23p5z39fT////////////////Uy8W3 + p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ8UCRmMwBqOQdn + NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBnNAFqOQdmMwB8UCR3Sh1mMwBnNQJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNQJmMwB3Sh1zRBVmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBz + RBV0RhhmMwBmMwBnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFmMwBmMwB0Rhh/VClmMwBuPg5rOglrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOgluPg5mMwB/VCl4Sx5mMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwB4Sx6RbEd5TB+CWC59USZ8USV9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ8USV9USaCWC55TB+RbEf///////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////Bs6rBs6qYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvBs6rBs6r///// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////Uy8WYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvUy8X////////////////////////////////////////B + s6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwCjjH3Bs6rBs6r39fT///////////////////////////////////////////////////////// + ///Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////////////////////////// + ///////////////////////////////////////////////////////////////d1tGMblhmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvm4N3/ + ///////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMbljLv7j///////////////// + ///////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X////////////////////////////d1tFmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwCMbljm4N3////////////////////////////////////////////m4N1mMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwC3p5z///////////////////////////////////////////////////////////// + //////////////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////// + ///////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////// + ///////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////////////// + ///////////////////////////////////////////////////////////////////Bs6pmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwCtmo3///////////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCA + XUL///////////////////////////////////////////////////////////////////////////// + ///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT///////////////// + //+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3///////////////////////////// + //////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///////////////////////////////////////// + //////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwDBs6r///////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDBs6r////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////// + ///////////////////////////////////////////////////////////////////////////d1tFm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6rd1tH////////39fTBs6qAXUJm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////////Lv7hmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////////////Uy8VmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////////////////////////// + //////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/ + //////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd + 1tH////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////// + ///////Uy8XBs6qMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///// + ///////////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////+AXUJmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCtmo3///////////////////////////////////////+AXUJmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwC3p5z////////////////////////////////d1tGMblhmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////9mMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwB0SSb///////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT///////////////////// + ///////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3///////////// + //////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////////////// + //////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb39fT///////////// + //////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDBs6r////////////////////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwCYfWv///////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0 + SSb///////////////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDBs6r///////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwDUy8X///////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///u6+nBs6rBs6rBs6qYfWtmMwBmMwBmMwDu6+n///////////////////////////////////////// + ///Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////+3p5xmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n////////////////////////////////////////u + 6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj////////////////////////Bs6pm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCY + fWv////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////// + //////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDm4N3////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////u6+m3p5xmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3////////////////////m4N1mMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwDBs6r////////////////////////////////////////////d1tFmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////////u6+lmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////////////////Uy8XB + s6p0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////// + //////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3///////////////////////// + //////////////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////// + //////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD///////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////m4N3Bs6qMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDUy8X///////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwCMblj///////////////////////////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwB0SSb///////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwDm4N3///////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////Bs6qAXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb39fT///////////////////////+jjH1m + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb///////////////////////////////////////// + ///////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///////////////////+t + mo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////Lv7hmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/ + ///////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///// + ///////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwDm4N3////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/ + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCAXUL39fT////////////////////////////Uy8VmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////////////////////////90SSZm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////Uy8VmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbm4N3///////////////////// + ///////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////// + //////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///// + ///////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////Bs6pmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCM + bljm4N3///////////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwCjjH3///////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwD39fT///////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////////////////////////+M + blhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////////////////////// + //////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////// + //+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvBs6r///////////////////////// + //////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD///// + //////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwDd1tH///////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDL + v7j///////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////+Mblhm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3Bs6r///// + ///////////////////////////////////////////////////////////////Bs6pmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////////////////////////+AXUJm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////////Bs6pmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwCtmo3Bs6r39fT///////////////////////////////////////////////////////////////// + ///////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////// + ///////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///// + ///////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwB0SSbLv7j///////////////////////////////////////////////// + ///////////////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwC3p5z////////////////////////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwB0SSb////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwCAXUL///////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbu6+n///////////////////// + //////////////////////////////////////////////////////////////////////////////// + //90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////////////////// + //////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////////// + //////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwC3p5z////////////////////////////////////39fRmMwBmMwB0SSbBs6rBs6r39fT///////// + //////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL/ + ///////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDBs6r///////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDm4N3///////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////////////39fRmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////////////////////////////Bs6pm + MwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3Bs6rBs6r///////////////////////////+3p5xmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT////////////////////////////39fSMblhmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////////+3p5xmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////// + ///////////////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD///////// + ///////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////// + ///////////u6+mMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////// + ///////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////+jjH1mMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCjjH3////////////////////////u6+mAXUJmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwCYfWv////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDLv7j////////////////Uy8W3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDd1tH////////////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwCYfWv///////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMbljBs6r////////d1tG3 + p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////// + ///39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////////////////// + ///////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb///////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCM + blj///////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbu6+n/ + //////////////////////////////////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwD39fT///////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////////////////////L + v7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////////////////+YfWtmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////////////////+jjH1m + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////// + //////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////// + //////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////////39fSAXUJmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwCYfWv////////////////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDB + s6r////////////////////////////////////////////////////////Lv7hmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////u6+mMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////////////////////////// + ///////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwB0SSbUy8X///////////////////////////////////////////////// + ///////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////+jjH1mMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////////// + ///////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbBs6r///////////////////////// + ///////////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwB0SSb///////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////d1tGYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwDBs6r39fT///////////////////////////////////////////////////////////+AXUJm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXULBs6rBs6rm4N3/ + //////////////////////////////////////////////////////////////////////////////+A + XUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD///////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////39fTBs6rBs6pmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCjjH3Bs6rUy8X///////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA== + + + \ No newline at end of file diff --git a/SDL/kunden/frmGoMautBoxen_Bestellung.vb b/SDL/kunden/frmGoMautBoxen_Bestellung.vb new file mode 100644 index 00000000..5ff0d6b4 --- /dev/null +++ b/SDL/kunden/frmGoMautBoxen_Bestellung.vb @@ -0,0 +1,645 @@ +Imports System.DirectoryServices.ActiveDirectory +Imports com.sun.tools.corba.se.idl.constExpr +Imports VERAG_PROG_ALLGEMEIN + +Public Class frmGoMautBoxen_Bestellung + Public kundenNr = -1 + + Dim kunde As cKunde + Dim adresse As cAdressen + Dim kundeErw As cKundenErweitert + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Dim dt As New DataTable + + Public addnew = False + Public WithEvents s As New cBinding("SDL") 'fürs Binding + Dim changed As Boolean = False + Dim ready As Boolean = False + + Sub New(kundenNr) + + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + + Me.kundenNr = kundenNr + Me.addnew = addnew + + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + + End Sub + + Sub New(kunde As cKunde, adresse As cAdressen, kundeErw As cKundenErweitert) + + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + + Me.kunde = kunde + Me.adresse = adresse + Me.kundeErw = kundeErw + + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + + End Sub + + Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click + + lblWarning.Text = "" + + If kunde Is Nothing And kundenNr < 0 Then + lblWarning.Text = "Bitte Kunden-Nr eingeben." + Exit Sub + End If + + + If cbxKK.SelectedValue = "" Then + lblWarning.Text = "Bitte Kreditkarten-Nr eingeben." + Exit Sub + End If + + + btnOK.DialogResult = DialogResult.OK + + 'txtKennzeichen.Text = txtKennzeichen.Text.ToUpper.Trim + 'txtNationalitaet.Text = txtNationalitaet.Text.ToUpper + 'Label5.ForeColor = Color.Black + 'lblErfassung.ForeColor = Color.Black + 'If KdSearchBox1.KdNr < 0 Then Label5.ForeColor = Color.Red : Me.DialogResult = Windows.Forms.DialogResult.None : Exit Sub + 'If txtKennzeichen.Text = "" Then lblErfassung.ForeColor = Color.Red : Me.DialogResult = Windows.Forms.DialogResult.None : Exit Sub + + 'If s.updateBinding Then + ' Dim SQL As New SQL + ' If oldkfz <> txtKennzeichen.Text Then + ' VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.REMANE_FOLDER_KDNR(New VERAG_PROG_ALLGEMEIN.cDatenserver_Change_Value("DOKUMENTE", "MDM", kundenNr, oldkfz, Nothing, Nothing), + ' New VERAG_PROG_ALLGEMEIN.cDatenserver_Change_Value("DOKUMENTE", "MDM", kundenNr, txtKennzeichen.Text, Nothing, Nothing)) + ' SQL.doSQL("UPDATE SDL SET KfzKennzeichen= '" & txtKennzeichen.Text & "' WHERE KundenNr='" & kundenNr & "' AND KfzKennzeichen='" & oldkfz & "'", "SDL", True) + ' SQL.doSQL("UPDATE [Kartenpool] SET KfzKennzeichen= '" & txtKennzeichen.Text & "' WHERE KundenNr='" & kundenNr & "' AND KfzKennzeichen='" & oldkfz & "'", "SDL", True) + ' End If + ' Me.Close() + 'End If + End Sub + + + Sub initdgv() + Try + + Dim setKdNr + If kundenNr > 0 Then + setKdNr = kundenNr + ElseIf kunde IsNot Nothing Then + setKdNr = kunde.KundenNr + Else + setKdNr = -1 + + End If + + dt = SQL.loadDgvBySql("SELECT Kreditkarten.KartenNr, Kreditkarten.Kartenablaufmonat, Kreditkarten.Kartenablaufjahr FROM Kreditkarten WHERE (((Kreditkarten.AdressenNr)=" & setKdNr & ") AND ((Kreditkarten.NeueKartenNr) Is Null)) ORDER BY Kreditkarten.KartenNr", "FMZOLL") + + If dt.Rows.Count > 0 Then + Dim dv As New DataView(dt, "KartenNr<>''", "KartenNr", DataViewRowState.CurrentRows) + Dim dt_new As DataTable = dv.ToTable(False, "KartenNr") + cbxKK.DataSource = dv + cbxKK.DisplayMember = "KartenNr" + cbxKK.ValueMember = "KartenNr" + cbxKK.changeItem(dv.Item(0).Row.Item(0)) + End If + + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + + + If addnew Then newEntry() 'NEUER EINTRAG! + ready = True + End Sub + + Public Sub newEntry() + ' s.updateBinding() + Dim row = s.bindingdataTable.NewRow() + row.Item("KundenNr") = kundenNr + row.Item("KfzKennzeichen") = "" + s.bindingdataTable.Rows.Add(row) + + s.bindingSource.MoveLast() + 'If save Then updateBinding() + lblAenderung.Text = Now.ToString("dd.MM.yyyy HH:mm") + lblSachbearb.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME + If kundenNr < 0 Then KdSearchBox1.Enabled = True + End Sub + + Sub BindingTableColumnChanged(sender As Object, e As System.Data.DataColumnChangeEventArgs) + If ready Then + lblSachbearb.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME + lblAenderung.Text = Now.ToString("dd.MM.yyyy HH:mm") + changed = True + End If + End Sub + + + Private Sub btnAbbrechen_Click(sender As Object, e As EventArgs) Handles btnAbbrechen.Click ', Me.FormClosing + If changed Then + Select Case MsgBox("Änderungen speichern", vbYesNoCancel) + Case vbYes : Me.DialogResult = Windows.Forms.DialogResult.None : btnOK.PerformClick() + Case vbNo : Me.Close() + Case vbCancel : Me.DialogResult = Windows.Forms.DialogResult.None + End Select + Else + Me.Close() + End If + End Sub + + Private Sub frmLKWDetails_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown + If e.KeyCode = Keys.Return Then + btnOK.PerformClick() + End If + End Sub + + Private Sub frmLKWDetails_Load(sender As Object, e As EventArgs) Handles Me.Load + + 'If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MAUTBOXEN_bearbeiten", Me) Then + ' MsgBox("Keine Berechtigung!") + ' Me.Close() + 'End If + + KdSearchBox1.initKdBox(Me) + + + If kundenNr > 0 Then + Me.KdSearchBox1.KdNr = kundenNr + KdSearchBox1.Enabled = False + End If + + cbxLandKz.fillWithSQL(" select distinct landkz, Währungstabelle.Land from Währungstabelle where landkz is not null order by LandKz", , "FMZOLL", True) + + initKunde() + + End Sub + + Private Sub KdSearchBox1_PropertyChanged(sender As Object, e As System.ComponentModel.PropertyChangedEventArgs) Handles KdSearchBox1.PropertyChanged + initKunde() + End Sub + + + Private Sub initKunde() + + If kundenNr < 0 Then + + + If adresse IsNot Nothing Then + + txtName.Text = If(adresse.Name_1, "") & If(adresse.Name_2, "") + txtStrasse.Text = If(adresse.Straße, "") + txtOrt.Text = If(adresse.Ort, "") + txtPlz.Text = If(adresse.PLZ, "") + cbxLandKz.changeItem(If(adresse.LandKz, "")) + txtAnsprechpartnerAnrede.Text = adresse.Anrede + txtAnsprechpartner.Text = adresse.Ansprechpartner + txtFax.Text = adresse.Telefax + txtEmail.Text = adresse.E_Mail + + initdgv() + + End If + + Else + + + If KdSearchBox1.KdNr_value > 0 AndAlso KdSearchBox1.KdData_ADRESSEN IsNot Nothing AndAlso KdSearchBox1.KdData_KUNDE IsNot Nothing Then + + Dim AD = KdSearchBox1.KdData_ADRESSEN + Dim KD = KdSearchBox1.KdData_KUNDE + Dim KDERW = KdSearchBox1.KdData_KUNDE_ERW + + txtName.Text = If(AD.Name_1, "") & If(AD.Name_2, "") + txtStrasse.Text = If(AD.Straße, "") + txtOrt.Text = If(AD.Ort, "") + txtPlz.Text = If(AD.PLZ, "") + cbxLandKz.changeItem(If(AD.LandKz, "")) + txtAnsprechpartnerAnrede.Text = AD.Anrede + txtAnsprechpartner.Text = AD.Ansprechpartner + + initdgv() + + End If + End If + + + End Sub + + Private Sub cbxKK_SelectedValueChanged(sender As Object, e As EventArgs) + + If cbxKK.SelectedValue Is Nothing OrElse cbxKK.SelectedValue.ToString = "System.Data.DataRowView" Then + txtMonat.Text = "" + txtJahr.Text = "" + Exit Sub + End If + + Dim dr() As DataRow = dt.Select("KartenNr = " & cbxKK.SelectedValue) + + txtMonat.Text = dr(0).Item(1) + txtJahr.Text = dr(0).Item(2) + + End Sub + + + + + ' Select Case tbl_GO_BOX_Bestellung.* + 'From tbl_GO_BOX_Bestellung + 'Where (((tbl_GO_BOX_Bestellung.Bestelldatum) Is Null) And ((tbl_GO_BOX_Bestellung.Bestellnummer) Is Null)) + 'Order By tbl_GO_BOX_Bestellung.ID; + + + + ' Private Sub AdressenNr_AfterUpdate() + + ' Dim rst1 As DAO.Recordset + ' Dim rst2 As DAO.Recordset + ' Dim strSQL As String + ' Dim strCardNum As String + ' Dim intZlr As Integer + + '100 If Not IsNull(Me!AdressenNr) Then + ' ' Mit AdressenNr in FMZoll Adressbestand lesen. + '110 strSQL = "SELECT Adressen.[Name 1], Adressen.[Name 2], Adressen.Straße, Adressen.LandKz, Adressen.PLZ, Adressen.Ort, Adressen.Telefon, Adressen.Telefax" & _ + ' " FROM Adressen" & _ + ' " WHERE (((Adressen.AdressenNr)=" & Me![AdressenNr] & "));" + '120 Set rst1 = dbs.OpenRecordset(strSQL, dbOpenSnapshot) + '130 With rst1 + '140 If Not .EOF Then + ' ' Firmendaten aus FMZoll übernehmen. + '150 Me!Company1 = Nz(![Name 1], "-") + '160 Me!Company2 = ![Name 2] + '170 Me!CompanyStreet = Nz(!Straße, "-") + '180 Me!CompanyNumber = "-" + '190 Me!CompanyCode = Nz(!PLZ, "-") + '200 Me!CompanyCity = Nz(!Ort, "-") + '210 Me!CompanyTelephone = !Telefon + '220 Me!CompanyTelefax = !Telefax + '230 If Not IsNull(!Straße) Then + ' ' Straße und Hausnummer aufteilen. + '240 For intZlr = 1 To Len(!Straße) + '250 If Mid(!Straße, intZlr, 1) Like "[0-9]" Then + '260 Me!CompanyStreet = IIf(Len(Trim(Left(!Straße, intZlr - 1))) = 0, "-", Trim(Left(!Straße, intZlr - 1))) + '270 Me!CompanyNumber = Trim(Mid(!Straße, intZlr, 10)) + '280 Exit For + '290 End If + '300 Next intZlr + '310 End If + '320 If Not IsNull(!LandKz) Then + ' ' Land und Länderkürzel aus LandKz ableiten. + '330 strSQL = "SELECT tbl_GO_BOX_Länderliste.Land, tbl_GO_BOX_Länderliste.Länderkürzel" & _ + ' " FROM tbl_GO_BOX_Länderliste" & _ + ' " WHERE (((tbl_GO_BOX_Länderliste.LandKz)='" & ![LandKz] & "'))" & _ + ' " OR (((tbl_GO_BOX_Länderliste.Länderkürzel)='" & ![LandKz] & "'));" + '340 Set rst2 = dbs.OpenRecordset(strSQL, dbOpenSnapshot) + '350 If Not rst2.EOF Then + '360 Me!CompanyCountry = rst2!Land + '370 Me!CompanyCountryAbbr = rst2!Länderkürzel + '380 Me![License plate Nationality] = rst2!Länderkürzel + '390 End If + '400 rst2.Close + '410 End If + ' ' Kartennummer mit Prüfziffer ermitteln. + '420 strCardNum = "990001" & Format(Right(Me!AdressenNr, 6), "000000") & "0001" + '430 Me!CardNum = strCardNum & (fktMod10(strCardNum)) + '440 End If + '450 .Close + '460 End With + '470 End If + + ' End Sub + + ' Private Sub CardNum_BeforeUpdate(Cancel As Integer) + + '480 If Not IsNull(Me!CardNum) Then + ' ' CardNumber prüfen. + '490 If (Right(Me!CardNum, 1)) <> (fktMod10(Left(Me!CardNum, Len(Me!CardNum) - 1))) Then + '500 MsgBox "CardNum ungültig. Prüfziffernfehler!", vbCritical, "Eingabeprüfung" + '510 Cancel = True + '520 End If + '530 End If + + ' End Sub + + ' Private Sub Form_Open(Cancel As Integer) + '540 Cancel = BerechtigungsprüfungForm(Me) + '550 If Cancel Then Exit Sub + ' End Sub + + ' Private Sub License_plate_AfterUpdate() + '560 Me![License plate] = UCase(Me![License plate]) + ' End Sub + + ' Private Sub License_plate_BeforeUpdate(Cancel As Integer) + + ' Dim intI As Integer + + '570 If Not IsNull(Me![License plate]) Then + '580 For intI = 1 To Len(Me![License plate]) + '590 Select Case Mid(Me![License plate], intI, 1) + ' Case "0" To "9", "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z", " ", "-" + ' ' gültige Zeichen + '600 Case Else + '610 MsgBox "Ungültiges Zeichen: " & Mid(Me![License plate], intI, 1), vbInformation, "Eingabeprüfung" + '620 Cancel = True + '630 End Select + '640 Next intI + '650 End If + + ' End Sub + + + + '-------------------------------------------------------BESTELLVORGANG + + ' Option Compare Database + 'Option Explicit On + + ' Private Const olFolderInbox = 6 + ' Private Const olMailItem = 0 + + ' Private Sub Bestellliste_DblClick(Cancel As Integer) + '100 Me!Bestelldatum = Me!Bestellliste.Column(1) + '110 Me!Bestellnummer = Me!Bestellliste.Column(2) + '120 Me!Bestellanzahl = Me!Bestellliste.Column(3) + ' End Sub + + ' Private Sub cmdBestelldateiErzeugen_Click() + + ' Dim fso As FileSystemObject + ' Dim wrk As DAO.Workspace + ' Dim db As DAO.Database + ' Dim qry As DAO.QueryDef + ' Dim rst1 As DAO.Recordset + ' Dim rst2 As DAO.Recordset + ' Dim rst3 As DAO.Recordset + ' Dim dateBestelldatum As Date + ' Dim intBestellnummer As Integer + ' Dim lngBestellanzahl As Long + ' Dim lngFortschritt As Long + ' Dim strVerzeichnispfad As String + ' Dim strDateiname As String + ' Dim strPrompt As String + ' Dim strTitle As String + ' Dim boolHTrans As Boolean + + '130 On Error GoTo PROC_Error + + '140 dateBestelldatum = Date + + ' ' Arbeitsbereich zuweisen. + '150 Set wrk = DBEngine.Workspaces(0) + ' ' Datenbank zuweisen. + '160 Set db = CurrentDb() + ' ' FileSystemObject zuweisen. + '170 Set fso = New FileSystemObject + + ' ' Wenn der Verzeichnispfad nicht existiert, diesen anlegen. + '180 strVerzeichnispfad = DLookup("[Verzeichnispfad]", "tblPfad", "[ID] = 4") + '190 If Not fso.FolderExists(strVerzeichnispfad) Then + '200 fso.CreateFolder (strVerzeichnispfad) + '210 End If + + ' ' Kreditkarten in die Tabelle eintragen. + '220 Call SysCmd(acSysCmdSetStatus, "Kreditkarten für Bestellungen eintragen.") + '230 Set rst1 = db.OpenRecordset("qry_GO_BOX_BestellnummerEintragen", dbOpenSnapshot) + '240 With rst1 + '250 Do Until .EOF + '260 If Not IsNull(!AdressenNr) And Not IsNull(!CardNum) Then + '270 Set qry = db.QueryDefs("qry_GO_BOX_KreditkartenVerwalten") + '280 qry.Parameters("[Bitte AdressenNr eingeben]") = !AdressenNr + '290 qry.Parameters("[Bitte KartenNr eingeben]") = !CardNum + '300 Set rst3 = qry.OpenRecordset(dbOpenDynaset) + '310 If rst3.EOF Then + '320 rst3.AddNew + '330 rst3!AdressenNr = !AdressenNr + '340 rst3!KartenNr = !CardNum + '350 rst3!Kartenfreischaltungsdatum = Date + '360 rst3!Kartenablaufmonat = !CardValidMonth + '370 rst3!Kartenablaufjahr = !CardValidYear + '380 rst3!Kartensperre = 0 + '390 rst3!Zeitstempel = Now + '400 rst3!Sachbearbeiter = UCase(CurrentUser()) + '410 rst3.Update + '420 End If + '430 rst3.Close + '440 Set rst3 = Nothing + '450 qry.Close + '460 Set qry = Nothing + '470 End If + '480 .MoveNext + '490 Loop + '500 .Close + '510 End With + '520 Set rst1 = Nothing + '530 Call SysCmd(acSysCmdClearStatus) + + ' ' Haupttransaktion starten. + '540 wrk.BeginTrans + '550 boolHTrans = True + '560 Call SysCmd(acSysCmdSetStatus, "Bestellungen lesen.") + '570 Set rst1 = db.OpenRecordset("qry_GO_BOX_BestellnummerEintragen", dbOpenDynaset, dbDenyWrite) + '580 With rst1 + '590 If .EOF Then 'Abfrage liefert keine Datensätze + '600 .Close + ' ' Haupttransaktion beenden. + '610 wrk.CommitTrans + '620 boolHTrans = False + ' ' Meldung anzeigen. + '630 strPrompt = "Keine Bestelldaten vorhanden." + '640 strTitle = "Bestelldatei erzeugen" + '650 MsgBox strPrompt, vbInformation, strTitle + '660 Else + '670 DoCmd.Hourglass True + '680 Set rst2 = db.OpenRecordset("qry_GO_BOX_BestellnummerVerwalten", dbOpenDynaset) + '690 If rst2.EOF Then + '700 intBestellnummer = 1 + '710 Else + '720 If rst2!Bestellnummer = 9999 Then + '730 intBestellnummer = 1 + '740 Else + '750 intBestellnummer = rst2!Bestellnummer + 1 + '760 End If + '770 End If + '780 .MoveLast + '790 lngBestellanzahl = .RecordCount + '800 Call SysCmd(acSysCmdInitMeter, "Bestellnummer eintragen.", .RecordCount) + '810 .MoveFirst + '820 lngFortschritt = 0 + '830 Do Until .EOF + '840 lngFortschritt = lngFortschritt + 1 + '850 Call SysCmd(acSysCmdUpdateMeter, lngFortschritt) + ' ' Bestellinformationen eintragen. + '860 .Edit + '870 !Bestelldatum = dateBestelldatum + '880 !Bestellnummer = intBestellnummer + '890 .Update + '900 Call fktSDL_GO_BOX_Bestellvorgang(rst1) + '910 .MoveNext + '920 Loop + ' ' Bestellnummern verwalten. + '930 rst2.AddNew + '940 rst2!Bestelldatum = dateBestelldatum + '950 rst2!Bestellnummer = intBestellnummer + '960 rst2!Bestellanzahl = lngBestellanzahl + '970 rst2.Update + '980 rst2.Close + '990 Set rst2 = Nothing + '1000 .Close + ' ' Haupttransaktion beenden. + '1010 wrk.CommitTrans dbForceOSFlush + '1020 boolHTrans = False + ' ' Bestellinformationen im Formular eintragen. + '1030 Me!Bestelldatum = dateBestelldatum + '1040 Me!Bestellnummer = intBestellnummer + '1050 Me!Bestellanzahl = lngBestellanzahl + ' ' Bestelldatei erzeugen. + '1060 strDateiname = fso.BuildPath(strVerzeichnispfad, "PO_VG_" & Format(intBestellnummer, "0000") & "_" & Format(dateBestelldatum, "ddmmyy") & ".csv") + '1070 DoCmd.TransferText acExportDelim, "GO_BOX_Bestellung", "qry_GO_BOX_Bestellung", strDateiname + ' ' Neue Bestellung in die Bestellliste aufnehmen. + '1080 Me!Bestellliste.Requery + '1090 End If + '1100 End With + '1110 Set rst1 = Nothing + + 'PROC_Exit: + '1120 On Error Resume Next + '1130 If Not rst3 Is Nothing Then + '1140 rst3.Close + '1150 Set rst3 = Nothing + '1160 End If + '1170 If Not rst2 Is Nothing Then + '1180 rst2.Close + '1190 Set rst2 = Nothing + '1200 End If + '1210 If Not rst1 Is Nothing Then + '1220 rst1.Close + '1230 Set rst1 = Nothing + '1240 End If + '1250 If Not qry Is Nothing Then + '1260 qry.Close + '1270 Set qry = Nothing + '1280 End If + '1290 If Not fso Is Nothing Then Set fso = Nothing + '1300 If Not db Is Nothing Then Set db = Nothing + '1310 If Not wrk Is Nothing Then Set wrk = Nothing + '1320 Call SysCmd(acSysCmdClearStatus) + '1330 DoCmd.Hourglass False + '1340 Exit Sub + + 'PROC_Error: + '1350 If boolHTrans Then + '1360 Call SysCmd(acSysCmdSetStatus, "Änderungen an den Daten werden zurückgenommen...") + '1370 wrk.Rollback + '1380 boolHTrans = False + '1390 End If + '1400 DoCmd.Hourglass False + '1410 ErrNotify Err, "Form_frm_GO_BOX_Bestellvorgang", "cmdBestelldateiErzeugen_Click", eNormalError + '1420 Resume PROC_Exit + + ' End Sub + + ' Private Sub cmdBestelldateiSenden_Click() + + ' Dim appOutlook As Object + ' Dim objNameSpace As Object + ' Dim objFolder As Object + ' Dim objMail As Object + ' Dim strVerzeichnispfad As String + ' Dim strDateiname As String + ' Dim strPrompt As String + ' Dim strTitle As String + + '1430 On Error GoTo PROC_Error + + '1440 If IsNull(Me!Bestelldatum) Then + '1450 DoCmd.Beep + '1460 strPrompt = "Bestelldatum?" & _ + ' " Sie müssen erst eine Bestelldatei erzeugen, oder eine Vorhandene durch Doppelklick auswählen." + '1470 strTitle = "Eingabeprüfung" + '1480 MsgBox strPrompt, vbInformation, strTitle + '1490 Exit Sub + '1500 End If + + '1510 If IsNull(Me!Bestellnummer) Then + '1520 DoCmd.Beep + '1530 strPrompt = "Bestellnummer?" & _ + ' " Sie müssen erst eine Bestelldatei erzeugen, oder eine Vorhandene durch Doppelklick auswählen." + '1540 strTitle = "Eingabeprüfung" + '1550 MsgBox strPrompt, vbInformation, strTitle + '1560 Exit Sub + '1570 End If + + ' ' Mailversand über OLE-Automation + ' ' Programmierung S. 786 (13.11.2) + + ' ' Prüfen, ob die Bestelldatei vorhanden ist. + '1580 strVerzeichnispfad = DLookup("[Verzeichnispfad]", "tblPfad", "[ID] = 4") + '1590 strDateiname = Dir(strVerzeichnispfad & "PO_VG_" & Format(Forms!frm_GO_BOX_Bestellvorgang!Bestellnummer, "0000") & "_" & Format(Forms!frm_GO_BOX_Bestellvorgang!Bestelldatum, "ddmmyy") & ".csv") + '1600 If strDateiname = "" Then + '1610 strPrompt = "Die Bestelldatei existiert nicht." + '1620 strTitle = "Bestelldatei senden" + '1630 MsgBox strPrompt, vbInformation, strTitle + '1640 Else + '1650 On Error Resume Next + '1660 Set appOutlook = GetObject(, "Outlook.Application") + '1670 If Err.Number <> 0 Then + '1680 If Err.Number = 429 Then ' Outlook wurde noch nicht gestartet. + '1690 Err.Clear + '1700 On Error GoTo PROC_Error + ' ' Outlook starten. + '1710 Set appOutlook = CreateObject("Outlook.Application") + '1720 Set objNameSpace = appOutlook.GetNamespace("MAPI") + '1730 Set objFolder = objNameSpace.GetDefaultFolder(olFolderInbox) + ' ' Posteingang anzeigen. + '1740 objFolder.Display + '1750 Else + '1760 GoTo PROC_Error + '1770 End If + '1780 End If + '1790 On Error GoTo PROC_Error + '1800 Set objMail = appOutlook.CreateItem(olMailItem) + '1810 With objMail + '1820 .To = Forms!frm_GO_BOX_Bestellvorgang!EMailAdresse + '1830 .Subject = "GO-BOX Bestellung Nr. " & Forms!frm_GO_BOX_Bestellvorgang!Bestellnummer & " vom " & Forms!frm_GO_BOX_Bestellvorgang!Bestelldatum + '1840 .Body = "Als Anhang senden wir Ihnen die Datei """ & strDateiname & """ mit den GO-BOX-Bestellungen." & _ + ' vbCrLf & vbCrLf & "Mit freundlichen Grüssen" & _ + ' vbCrLf & "VERAG Spedition AG" & _ + ' vbCrLf & "ASFINAG-Mautabteilung" & _ + ' vbCrLf & "______________________" & _ + ' vbCrLf & "Tel. +43 7711 2777 - 14 o. 17 o. 47" & _ + ' vbCrLf & "Fax +43 7711 3386" & _ + ' vbCrLf & "email: maut.asfinag@verag.ag" & _ + ' vbCrLf & "www.verag.ag" + '1850 .Attachments.Add (strVerzeichnispfad & "PO_VG_" & Format(Forms!frm_GO_BOX_Bestellvorgang!Bestellnummer, "0000") & "_" & Format(Forms!frm_GO_BOX_Bestellvorgang!Bestelldatum, "ddmmyy") & ".csv") + ' ' Mail mit "Display" anzeigen und dann durch anklicken von Senden verschicken. + ' '.Display + ' ' oder alternativ Senden programmgesteuert durchführen. + '1860 .send + '1870 End With + '1880 Set objMail = Nothing + '1890 Set objFolder = Nothing + '1900 Set objNameSpace = Nothing + '1910 Set appOutlook = Nothing + '1920 strPrompt = "Die Bestelldatei wurde gesendet." & vbCrLf & strDateiname + '1930 strTitle = "Bestelldatei senden" + '1940 MsgBox strPrompt, vbInformation, strTitle + '1950 End If + + 'PROC_Exit: + '1960 On Error Resume Next + '1970 Exit Sub + + 'PROC_Error: + '1980 ErrNotify Err, "Form_frm_GO_BOX_Bestellvorgang", "cmdBestelldateiSenden_Click", eNormalError + '1990 Resume PROC_Exit + + ' End Sub + + ' Private Sub Form_Open(Cancel As Integer) + '2000 Cancel = BerechtigungsprüfungForm(Me) + '2010 If Cancel Then Exit Sub + ' End Sub +End Class \ No newline at end of file diff --git a/SDL/kunden/frmKundenblatt.Designer.vb b/SDL/kunden/frmKundenblatt.Designer.vb index 6f74f00c..2ebd164d 100644 --- a/SDL/kunden/frmKundenblatt.Designer.vb +++ b/SDL/kunden/frmKundenblatt.Designer.vb @@ -45,10 +45,13 @@ Partial Class frmKundenblatt Me.txtInfotext = New System.Windows.Forms.Label() Me.tbFirmendaten = New System.Windows.Forms.TabPage() Me.Panel4 = New System.Windows.Forms.Panel() + Me.UsrcntlKundeBearbeitenFull1 = New SDL.usrcntlKundeBearbeitenFull() Me.tbcntrMain = New System.Windows.Forms.TabControl() Me.tbAllgemein = New System.Windows.Forms.TabPage() + Me.lblAdressenzusatz = New System.Windows.Forms.TextBox() Me.btnReloadOP = New System.Windows.Forms.Button() Me.Label11 = New System.Windows.Forms.Label() + Me.cboFirmaFMZOLL = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Label10 = New System.Windows.Forms.Label() Me.Label9 = New System.Windows.Forms.Label() Me.dgvOffenePosten = New System.Windows.Forms.DataGridView() @@ -98,6 +101,9 @@ Partial Class frmKundenblatt Me.Panel5 = New System.Windows.Forms.Panel() Me.Label35 = New System.Windows.Forms.Label() Me.flpSDLDok = New System.Windows.Forms.FlowLayoutPanel() + Me.scanErstbestellung = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() + Me.scanJaraVereinbarung = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() + Me.scanMWSTAgreement = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() Me.Label34 = New System.Windows.Forms.Label() Me.Panel2 = New System.Windows.Forms.Panel() Me.Button6 = New System.Windows.Forms.Button() @@ -108,18 +114,24 @@ Partial Class frmKundenblatt Me.Label33 = New System.Windows.Forms.Label() Me.Label5 = New System.Windows.Forms.Label() Me.Label32 = New System.Windows.Forms.Label() + Me.scanSDLSonst = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() Me.lblAenderungsdatum_SDL = New System.Windows.Forms.Label() Me.lblErfassungsdatum_SDL = New System.Windows.Forms.Label() Me.grpMautDE = New System.Windows.Forms.GroupBox() Me.Button15 = New System.Windows.Forms.Button() Me.Label1 = New System.Windows.Forms.Label() + Me.txtMautDE_BenutzerNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.lblMautDEFlottenPIN = New System.Windows.Forms.Label() Me.Label6 = New System.Windows.Forms.Label() + Me.txtMautDE_FlottenPIN = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtMautDEMasterPIN = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.lblLetzterSA_SDL = New System.Windows.Forms.Label() Me.rtbVermerke = New System.Windows.Forms.RichTextBox() Me.tbSDLKarten = New System.Windows.Forms.TabPage() + Me.usrcntlKarten = New SDL.usrCntlKartenDaten() Me.tbLKW = New System.Windows.Forms.TabPage() Me.pnlLKWRight = New System.Windows.Forms.Panel() + Me.UsrCntlLKW1 = New SDL.usrCntlLKW() Me.pnlLKW = New System.Windows.Forms.Panel() Me.dgvLKW = New System.Windows.Forms.DataGridView() Me.pnlLKWBottom = New System.Windows.Forms.Panel() @@ -140,15 +152,28 @@ Partial Class frmKundenblatt Me.Label7 = New System.Windows.Forms.Label() Me.Label3 = New System.Windows.Forms.Label() Me.lblSonstigeDokumente = New System.Windows.Forms.Label() + Me.scanUebernahmebestätigungen = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() + Me.scanHKA = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() + Me.scanSonstiges = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() + Me.scanEULizenz = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() + Me.scanHRA = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() + Me.scanPersonalAusweisGF = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() + Me.scanBankGarantie = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() + Me.scanVertragVeragKd = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() Me.tbBesuchsberichte = New System.Windows.Forms.TabPage() Me.tbOfferte = New System.Windows.Forms.TabPage() + Me.UsrCntlOfferte1 = New SDL.usrCntlOfferte() Me.tbUSTV = New System.Windows.Forms.TabPage() Me.tbcntrUSTV = New System.Windows.Forms.TabControl() Me.tbUSTVDokumente = New System.Windows.Forms.TabPage() Me.Label8 = New System.Windows.Forms.Label() + Me.scanUSTVsonstigeDokumente = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() Me.Label27 = New System.Windows.Forms.Label() Me.Label37 = New System.Windows.Forms.Label() + Me.scanUSTVFABest = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() + Me.scanUSTVVollmachten = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() Me.tbUSTVAntrage = New System.Windows.Forms.TabPage() + Me.UsrCntlUSTV = New SDL.usrCntlUSTV() Me.cntxtExcel = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripMenuItem6 = New System.Windows.Forms.ToolStripMenuItem() @@ -169,35 +194,12 @@ Partial Class frmKundenblatt Me.ToolStripMenuItem7 = New System.Windows.Forms.ToolStripMenuItem() Me.pnl = New System.Windows.Forms.Panel() Me.lblINAKTIV = New System.Windows.Forms.Label() + Me.KdSearchBox1 = New VERAG_PROG_ALLGEMEIN.KdSearchBox() Me.tbiLeistungen = New System.Windows.Forms.ToolStripMenuItem() Me.tbiKartenverwaltung = New System.Windows.Forms.ToolStripMenuItem() Me.tbiLKW = New System.Windows.Forms.ToolStripMenuItem() Me.tbiVERAGCard = New System.Windows.Forms.ToolStripMenuItem() - Me.cboFirmaFMZOLL = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.scanErstbestellung = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() - Me.scanJaraVereinbarung = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() - Me.scanMWSTAgreement = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() - Me.scanSDLSonst = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() - Me.txtMautDE_BenutzerNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtMautDE_FlottenPIN = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtMautDEMasterPIN = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.scanUebernahmebestätigungen = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() - Me.scanHKA = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() - Me.scanSonstiges = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() - Me.scanEULizenz = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() - Me.scanHRA = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() - Me.scanPersonalAusweisGF = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() - Me.scanBankGarantie = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() - Me.scanVertragVeragKd = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() - Me.scanUSTVsonstigeDokumente = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() - Me.scanUSTVFABest = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() - Me.scanUSTVVollmachten = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() - Me.KdSearchBox1 = New VERAG_PROG_ALLGEMEIN.KdSearchBox() - Me.UsrcntlKundeBearbeitenFull1 = New SDL.usrcntlKundeBearbeitenFull() - Me.usrcntlKarten = New SDL.usrCntlKartenDaten() - Me.UsrCntlLKW1 = New SDL.usrCntlLKW() - Me.UsrCntlOfferte1 = New SDL.usrCntlOfferte() - Me.UsrCntlUSTV = New SDL.usrCntlUSTV() + Me.Button7 = New System.Windows.Forms.Button() Me.pnlInfo.SuspendLayout() Me.tbFirmendaten.SuspendLayout() Me.Panel4.SuspendLayout() @@ -274,7 +276,7 @@ Partial Class frmKundenblatt Me.tbFirmendaten.Location = New System.Drawing.Point(4, 25) Me.tbFirmendaten.Name = "tbFirmendaten" Me.tbFirmendaten.Padding = New System.Windows.Forms.Padding(3) - Me.tbFirmendaten.Size = New System.Drawing.Size(1630, 965) + Me.tbFirmendaten.Size = New System.Drawing.Size(1630, 999) Me.tbFirmendaten.TabIndex = 3 Me.tbFirmendaten.Text = "Firmendaten" ' @@ -284,9 +286,19 @@ Partial Class frmKundenblatt Me.Panel4.Dock = System.Windows.Forms.DockStyle.Fill Me.Panel4.Location = New System.Drawing.Point(3, 3) Me.Panel4.Name = "Panel4" - Me.Panel4.Size = New System.Drawing.Size(1624, 959) + Me.Panel4.Size = New System.Drawing.Size(1624, 993) Me.Panel4.TabIndex = 0 ' + 'UsrcntlKundeBearbeitenFull1 + ' + Me.UsrcntlKundeBearbeitenFull1.BackColor = System.Drawing.Color.White + Me.UsrcntlKundeBearbeitenFull1.Dock = System.Windows.Forms.DockStyle.Fill + Me.UsrcntlKundeBearbeitenFull1.Location = New System.Drawing.Point(0, 0) + Me.UsrcntlKundeBearbeitenFull1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.UsrcntlKundeBearbeitenFull1.Name = "UsrcntlKundeBearbeitenFull1" + Me.UsrcntlKundeBearbeitenFull1.Size = New System.Drawing.Size(1624, 993) + Me.UsrcntlKundeBearbeitenFull1.TabIndex = 0 + ' 'tbcntrMain ' Me.tbcntrMain.Appearance = System.Windows.Forms.TabAppearance.FlatButtons @@ -302,12 +314,13 @@ Partial Class frmKundenblatt Me.tbcntrMain.Margin = New System.Windows.Forms.Padding(0) Me.tbcntrMain.Name = "tbcntrMain" Me.tbcntrMain.SelectedIndex = 0 - Me.tbcntrMain.Size = New System.Drawing.Size(1638, 994) + Me.tbcntrMain.Size = New System.Drawing.Size(1638, 1028) Me.tbcntrMain.TabIndex = 3 ' 'tbAllgemein ' Me.tbAllgemein.BackColor = System.Drawing.Color.White + Me.tbAllgemein.Controls.Add(Me.lblAdressenzusatz) Me.tbAllgemein.Controls.Add(Me.btnReloadOP) Me.tbAllgemein.Controls.Add(Me.Label11) Me.tbAllgemein.Controls.Add(Me.cboFirmaFMZOLL) @@ -342,10 +355,22 @@ Partial Class frmKundenblatt Me.tbAllgemein.Margin = New System.Windows.Forms.Padding(0) Me.tbAllgemein.Name = "tbAllgemein" Me.tbAllgemein.Padding = New System.Windows.Forms.Padding(3) - Me.tbAllgemein.Size = New System.Drawing.Size(1630, 965) + Me.tbAllgemein.Size = New System.Drawing.Size(1630, 999) Me.tbAllgemein.TabIndex = 0 Me.tbAllgemein.Text = "Allgemein" ' + 'lblAdressenzusatz + ' + Me.lblAdressenzusatz.BackColor = System.Drawing.Color.White + Me.lblAdressenzusatz.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.lblAdressenzusatz.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblAdressenzusatz.Location = New System.Drawing.Point(3, 144) + Me.lblAdressenzusatz.Name = "lblAdressenzusatz" + Me.lblAdressenzusatz.ReadOnly = True + Me.lblAdressenzusatz.Size = New System.Drawing.Size(419, 19) + Me.lblAdressenzusatz.TabIndex = 181 + Me.lblAdressenzusatz.Text = "Zusatz" + ' 'btnReloadOP ' Me.btnReloadOP.BackgroundImage = Global.SDL.My.Resources.Resources.reloadFinance @@ -370,6 +395,18 @@ Partial Class frmKundenblatt Me.Label11.TabIndex = 178 Me.Label11.Text = "Daten für Firma:" ' + 'cboFirmaFMZOLL + ' + Me.cboFirmaFMZOLL._allowedValuesFreiText = Nothing + Me.cboFirmaFMZOLL._allowFreiText = False + Me.cboFirmaFMZOLL._value = "" + Me.cboFirmaFMZOLL.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cboFirmaFMZOLL.FormattingEnabled = True + Me.cboFirmaFMZOLL.Location = New System.Drawing.Point(354, 567) + Me.cboFirmaFMZOLL.Name = "cboFirmaFMZOLL" + Me.cboFirmaFMZOLL.Size = New System.Drawing.Size(184, 21) + Me.cboFirmaFMZOLL.TabIndex = 179 + ' 'Label10 ' Me.Label10.AutoSize = True @@ -428,7 +465,7 @@ Partial Class frmKundenblatt Me.dgvOffenePosten.RowHeadersDefaultCellStyle = DataGridViewCellStyle4 Me.dgvOffenePosten.RowHeadersVisible = False Me.dgvOffenePosten.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvOffenePosten.Size = New System.Drawing.Size(714, 366) + Me.dgvOffenePosten.Size = New System.Drawing.Size(714, 400) Me.dgvOffenePosten.TabIndex = 175 ' 'btnOP @@ -582,7 +619,7 @@ Partial Class frmKundenblatt Me.lblUid.BackColor = System.Drawing.Color.White Me.lblUid.BorderStyle = System.Windows.Forms.BorderStyle.None Me.lblUid.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblUid.Location = New System.Drawing.Point(3, 200) + Me.lblUid.Location = New System.Drawing.Point(5, 216) Me.lblUid.Name = "lblUid" Me.lblUid.ReadOnly = True Me.lblUid.Size = New System.Drawing.Size(419, 19) @@ -594,7 +631,7 @@ Partial Class frmKundenblatt Me.lblPostfach.BackColor = System.Drawing.Color.White Me.lblPostfach.BorderStyle = System.Windows.Forms.BorderStyle.None Me.lblPostfach.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblPostfach.Location = New System.Drawing.Point(3, 175) + Me.lblPostfach.Location = New System.Drawing.Point(5, 191) Me.lblPostfach.Name = "lblPostfach" Me.lblPostfach.ReadOnly = True Me.lblPostfach.Size = New System.Drawing.Size(419, 19) @@ -606,7 +643,7 @@ Partial Class frmKundenblatt Me.lblLandPlzOrt.BackColor = System.Drawing.Color.White Me.lblLandPlzOrt.BorderStyle = System.Windows.Forms.BorderStyle.None Me.lblLandPlzOrt.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblLandPlzOrt.Location = New System.Drawing.Point(3, 150) + Me.lblLandPlzOrt.Location = New System.Drawing.Point(5, 166) Me.lblLandPlzOrt.Name = "lblLandPlzOrt" Me.lblLandPlzOrt.ReadOnly = True Me.lblLandPlzOrt.Size = New System.Drawing.Size(419, 19) @@ -618,7 +655,7 @@ Partial Class frmKundenblatt Me.lblStrasse.BackColor = System.Drawing.Color.White Me.lblStrasse.BorderStyle = System.Windows.Forms.BorderStyle.None Me.lblStrasse.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblStrasse.Location = New System.Drawing.Point(3, 128) + Me.lblStrasse.Location = New System.Drawing.Point(3, 122) Me.lblStrasse.Name = "lblStrasse" Me.lblStrasse.ReadOnly = True Me.lblStrasse.Size = New System.Drawing.Size(419, 19) @@ -768,7 +805,7 @@ Partial Class frmKundenblatt Me.dgvSperrliste.Name = "dgvSperrliste" Me.dgvSperrliste.ReadOnly = True Me.dgvSperrliste.RowHeadersDefaultCellStyle = DataGridViewCellStyle7 - Me.dgvSperrliste.Size = New System.Drawing.Size(432, 921) + Me.dgvSperrliste.Size = New System.Drawing.Size(432, 955) Me.dgvSperrliste.TabIndex = 23 ' 'PictureBox2 @@ -822,7 +859,7 @@ Partial Class frmKundenblatt Me.tbZoll.Location = New System.Drawing.Point(4, 25) Me.tbZoll.Name = "tbZoll" Me.tbZoll.Padding = New System.Windows.Forms.Padding(3) - Me.tbZoll.Size = New System.Drawing.Size(1630, 965) + Me.tbZoll.Size = New System.Drawing.Size(1630, 999) Me.tbZoll.TabIndex = 9 Me.tbZoll.Text = "ZOLL" Me.tbZoll.UseVisualStyleBackColor = True @@ -834,7 +871,7 @@ Partial Class frmKundenblatt Me.tbcntrZOLL.Location = New System.Drawing.Point(3, 3) Me.tbcntrZOLL.Name = "tbcntrZOLL" Me.tbcntrZOLL.SelectedIndex = 0 - Me.tbcntrZOLL.Size = New System.Drawing.Size(1624, 959) + Me.tbcntrZOLL.Size = New System.Drawing.Size(1624, 993) Me.tbcntrZOLL.TabIndex = 0 ' 'tabZoll_Artikel @@ -842,7 +879,7 @@ Partial Class frmKundenblatt Me.tabZoll_Artikel.Location = New System.Drawing.Point(4, 22) Me.tabZoll_Artikel.Name = "tabZoll_Artikel" Me.tabZoll_Artikel.Padding = New System.Windows.Forms.Padding(3) - Me.tabZoll_Artikel.Size = New System.Drawing.Size(1616, 933) + Me.tabZoll_Artikel.Size = New System.Drawing.Size(1616, 967) Me.tabZoll_Artikel.TabIndex = 1 Me.tabZoll_Artikel.Text = "Artikel" Me.tabZoll_Artikel.UseVisualStyleBackColor = True @@ -853,7 +890,7 @@ Partial Class frmKundenblatt Me.tbMdm.Location = New System.Drawing.Point(4, 25) Me.tbMdm.Name = "tbMdm" Me.tbMdm.Padding = New System.Windows.Forms.Padding(3) - Me.tbMdm.Size = New System.Drawing.Size(1630, 965) + Me.tbMdm.Size = New System.Drawing.Size(1630, 999) Me.tbMdm.TabIndex = 10 Me.tbMdm.Text = "MDM" Me.tbMdm.UseVisualStyleBackColor = True @@ -871,7 +908,7 @@ Partial Class frmKundenblatt Me.tbcntrMDM.Margin = New System.Windows.Forms.Padding(0) Me.tbcntrMDM.Name = "tbcntrMDM" Me.tbcntrMDM.SelectedIndex = 0 - Me.tbcntrMDM.Size = New System.Drawing.Size(1624, 959) + Me.tbcntrMDM.Size = New System.Drawing.Size(1624, 993) Me.tbcntrMDM.TabIndex = 0 ' 'tbSDL @@ -883,7 +920,7 @@ Partial Class frmKundenblatt Me.tbSDL.Margin = New System.Windows.Forms.Padding(0) Me.tbSDL.Name = "tbSDL" Me.tbSDL.Padding = New System.Windows.Forms.Padding(3) - Me.tbSDL.Size = New System.Drawing.Size(1616, 933) + Me.tbSDL.Size = New System.Drawing.Size(1616, 967) Me.tbSDL.TabIndex = 5 Me.tbSDL.Text = "SDL-Leistungen" Me.tbSDL.UseVisualStyleBackColor = True @@ -925,7 +962,7 @@ Partial Class frmKundenblatt DataGridViewCellStyle13.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] Me.dgvSDLLeistungenFull.RowHeadersDefaultCellStyle = DataGridViewCellStyle13 Me.dgvSDLLeistungenFull.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvSDLLeistungenFull.Size = New System.Drawing.Size(1610, 737) + Me.dgvSDLLeistungenFull.Size = New System.Drawing.Size(1610, 771) Me.dgvSDLLeistungenFull.TabIndex = 5 ' 'Panel6 @@ -1014,6 +1051,7 @@ Partial Class frmKundenblatt ' 'Panel5 ' + Me.Panel5.Controls.Add(Me.Button7) Me.Panel5.Controls.Add(Me.Label35) Me.Panel5.Controls.Add(Me.flpSDLDok) Me.Panel5.Controls.Add(Me.Label34) @@ -1029,7 +1067,7 @@ Partial Class frmKundenblatt Me.Panel5.Controls.Add(Me.lblLetzterSA_SDL) Me.Panel5.Controls.Add(Me.rtbVermerke) Me.Panel5.Dock = System.Windows.Forms.DockStyle.Bottom - Me.Panel5.Location = New System.Drawing.Point(3, 787) + Me.Panel5.Location = New System.Drawing.Point(3, 821) Me.Panel5.Name = "Panel5" Me.Panel5.Size = New System.Drawing.Size(1610, 143) Me.Panel5.TabIndex = 177 @@ -1055,6 +1093,67 @@ Partial Class frmKundenblatt Me.flpSDLDok.Size = New System.Drawing.Size(158, 125) Me.flpSDLDok.TabIndex = 176 ' + 'scanErstbestellung + ' + Me.scanErstbestellung._ARCHIV = True + Me.scanErstbestellung._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanErstbestellung._DATENSERVER_ORDNER = "MDM" + Me.scanErstbestellung._DATENSERVER_UOrdner1 = Nothing + Me.scanErstbestellung._DATENSERVER_UOrdner2 = Nothing + Me.scanErstbestellung._DATENSERVER_UOrdner3 = Nothing + Me.scanErstbestellung._MULTI_FILES = True + Me.scanErstbestellung._TEXT_PDF = "Erstbestellung" + Me.scanErstbestellung.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanErstbestellung.BackColor = System.Drawing.Color.White + Me.scanErstbestellung.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanErstbestellung.Cursor = System.Windows.Forms.Cursors.Hand + Me.scanErstbestellung.Location = New System.Drawing.Point(1, 1) + Me.scanErstbestellung.Margin = New System.Windows.Forms.Padding(1) + Me.scanErstbestellung.Name = "scanErstbestellung" + Me.scanErstbestellung.Size = New System.Drawing.Size(137, 24) + Me.scanErstbestellung.TabIndex = 172 + ' + 'scanJaraVereinbarung + ' + Me.scanJaraVereinbarung._ARCHIV = True + Me.scanJaraVereinbarung._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanJaraVereinbarung._DATENSERVER_ORDNER = "MDM" + Me.scanJaraVereinbarung._DATENSERVER_UOrdner1 = Nothing + Me.scanJaraVereinbarung._DATENSERVER_UOrdner2 = Nothing + Me.scanJaraVereinbarung._DATENSERVER_UOrdner3 = Nothing + Me.scanJaraVereinbarung._MULTI_FILES = True + Me.scanJaraVereinbarung._TEXT_PDF = "Jara-Vereinbarung" + Me.scanJaraVereinbarung.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanJaraVereinbarung.BackColor = System.Drawing.Color.White + Me.scanJaraVereinbarung.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanJaraVereinbarung.Cursor = System.Windows.Forms.Cursors.Hand + Me.scanJaraVereinbarung.Location = New System.Drawing.Point(1, 27) + Me.scanJaraVereinbarung.Margin = New System.Windows.Forms.Padding(1) + Me.scanJaraVereinbarung.Name = "scanJaraVereinbarung" + Me.scanJaraVereinbarung.Size = New System.Drawing.Size(137, 24) + Me.scanJaraVereinbarung.TabIndex = 173 + ' + 'scanMWSTAgreement + ' + Me.scanMWSTAgreement._ARCHIV = True + Me.scanMWSTAgreement._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanMWSTAgreement._DATENSERVER_ORDNER = "MDM" + Me.scanMWSTAgreement._DATENSERVER_UOrdner1 = Nothing + Me.scanMWSTAgreement._DATENSERVER_UOrdner2 = Nothing + Me.scanMWSTAgreement._DATENSERVER_UOrdner3 = Nothing + Me.scanMWSTAgreement._MULTI_FILES = True + Me.scanMWSTAgreement._TEXT_PDF = "MST Agreement" + Me.scanMWSTAgreement.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanMWSTAgreement.BackColor = System.Drawing.Color.White + Me.scanMWSTAgreement.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanMWSTAgreement.Cursor = System.Windows.Forms.Cursors.Hand + Me.scanMWSTAgreement.Location = New System.Drawing.Point(1, 53) + Me.scanMWSTAgreement.Margin = New System.Windows.Forms.Padding(1) + Me.scanMWSTAgreement.Name = "scanMWSTAgreement" + Me.scanMWSTAgreement.Size = New System.Drawing.Size(137, 24) + Me.scanMWSTAgreement.TabIndex = 174 + Me.scanMWSTAgreement.Visible = False + ' 'Label34 ' Me.Label34.AutoSize = True @@ -1154,6 +1253,25 @@ Partial Class frmKundenblatt Me.Label32.TabIndex = 13 Me.Label32.Text = "Letzter Sachbearbeiter:" ' + 'scanSDLSonst + ' + Me.scanSDLSonst._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanSDLSonst._DATENSERVER_ORDNER = "MDM" + Me.scanSDLSonst._DATENSERVER_UOrdner1 = "" + Me.scanSDLSonst._DATENSERVER_UOrdner2 = "" + Me.scanSDLSonst._DATENSERVER_UOrdner3 = "" + Me.scanSDLSonst._OPEN_ORIGINAL = False + Me.scanSDLSonst._TYPE = "PDF" + Me.scanSDLSonst.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanSDLSonst.BackColor = System.Drawing.Color.White + Me.scanSDLSonst.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanSDLSonst.Cursor = System.Windows.Forms.Cursors.Default + Me.scanSDLSonst.Location = New System.Drawing.Point(890, 19) + Me.scanSDLSonst.Margin = New System.Windows.Forms.Padding(0) + Me.scanSDLSonst.Name = "scanSDLSonst" + Me.scanSDLSonst.Size = New System.Drawing.Size(260, 124) + Me.scanSDLSonst.TabIndex = 173 + ' 'lblAenderungsdatum_SDL ' Me.lblAenderungsdatum_SDL.AutoSize = True @@ -1210,6 +1328,29 @@ Partial Class frmKundenblatt Me.Label1.TabIndex = 19 Me.Label1.Text = "Benutzer-Nr:" ' + 'txtMautDE_BenutzerNr + ' + Me.txtMautDE_BenutzerNr._DateTimeOnly = False + Me.txtMautDE_BenutzerNr._numbersOnly = True + Me.txtMautDE_BenutzerNr._numbersOnlyKommastellen = "" + Me.txtMautDE_BenutzerNr._numbersOnlyTrennzeichen = True + Me.txtMautDE_BenutzerNr._Prozent = False + Me.txtMautDE_BenutzerNr._ShortDateNew = False + Me.txtMautDE_BenutzerNr._ShortDateOnly = False + Me.txtMautDE_BenutzerNr._TimeOnly = False + Me.txtMautDE_BenutzerNr._TimeOnly_Seconds = False + Me.txtMautDE_BenutzerNr._value = "" + Me.txtMautDE_BenutzerNr._Waehrung = False + Me.txtMautDE_BenutzerNr._WaehrungZeichen = True + Me.txtMautDE_BenutzerNr.ForeColor = System.Drawing.Color.Black + Me.txtMautDE_BenutzerNr.Location = New System.Drawing.Point(72, 21) + Me.txtMautDE_BenutzerNr.MaxLineLength = -1 + Me.txtMautDE_BenutzerNr.MaxLines_Warning = "" + Me.txtMautDE_BenutzerNr.MaxLines_Warning_Label = Nothing + Me.txtMautDE_BenutzerNr.Name = "txtMautDE_BenutzerNr" + Me.txtMautDE_BenutzerNr.Size = New System.Drawing.Size(129, 20) + Me.txtMautDE_BenutzerNr.TabIndex = 18 + ' 'lblMautDEFlottenPIN ' Me.lblMautDEFlottenPIN.AutoSize = True @@ -1228,6 +1369,52 @@ Partial Class frmKundenblatt Me.Label6.TabIndex = 17 Me.Label6.Text = "Master-PIN:" ' + 'txtMautDE_FlottenPIN + ' + Me.txtMautDE_FlottenPIN._DateTimeOnly = False + Me.txtMautDE_FlottenPIN._numbersOnly = True + Me.txtMautDE_FlottenPIN._numbersOnlyKommastellen = "" + Me.txtMautDE_FlottenPIN._numbersOnlyTrennzeichen = True + Me.txtMautDE_FlottenPIN._Prozent = False + Me.txtMautDE_FlottenPIN._ShortDateNew = False + Me.txtMautDE_FlottenPIN._ShortDateOnly = False + Me.txtMautDE_FlottenPIN._TimeOnly = False + Me.txtMautDE_FlottenPIN._TimeOnly_Seconds = False + Me.txtMautDE_FlottenPIN._value = "" + Me.txtMautDE_FlottenPIN._Waehrung = False + Me.txtMautDE_FlottenPIN._WaehrungZeichen = True + Me.txtMautDE_FlottenPIN.ForeColor = System.Drawing.Color.Black + Me.txtMautDE_FlottenPIN.Location = New System.Drawing.Point(72, 47) + Me.txtMautDE_FlottenPIN.MaxLineLength = -1 + Me.txtMautDE_FlottenPIN.MaxLines_Warning = "" + Me.txtMautDE_FlottenPIN.MaxLines_Warning_Label = Nothing + Me.txtMautDE_FlottenPIN.Name = "txtMautDE_FlottenPIN" + Me.txtMautDE_FlottenPIN.Size = New System.Drawing.Size(63, 20) + Me.txtMautDE_FlottenPIN.TabIndex = 14 + ' + 'txtMautDEMasterPIN + ' + Me.txtMautDEMasterPIN._DateTimeOnly = False + Me.txtMautDEMasterPIN._numbersOnly = True + Me.txtMautDEMasterPIN._numbersOnlyKommastellen = "" + Me.txtMautDEMasterPIN._numbersOnlyTrennzeichen = True + Me.txtMautDEMasterPIN._Prozent = False + Me.txtMautDEMasterPIN._ShortDateNew = False + Me.txtMautDEMasterPIN._ShortDateOnly = False + Me.txtMautDEMasterPIN._TimeOnly = False + Me.txtMautDEMasterPIN._TimeOnly_Seconds = False + Me.txtMautDEMasterPIN._value = "" + Me.txtMautDEMasterPIN._Waehrung = False + Me.txtMautDEMasterPIN._WaehrungZeichen = True + Me.txtMautDEMasterPIN.ForeColor = System.Drawing.Color.Black + Me.txtMautDEMasterPIN.Location = New System.Drawing.Point(207, 47) + Me.txtMautDEMasterPIN.MaxLineLength = -1 + Me.txtMautDEMasterPIN.MaxLines_Warning = "" + Me.txtMautDEMasterPIN.MaxLines_Warning_Label = Nothing + Me.txtMautDEMasterPIN.Name = "txtMautDEMasterPIN" + Me.txtMautDEMasterPIN.Size = New System.Drawing.Size(63, 20) + Me.txtMautDEMasterPIN.TabIndex = 16 + ' 'lblLetzterSA_SDL ' Me.lblLetzterSA_SDL.AutoSize = True @@ -1253,11 +1440,21 @@ Partial Class frmKundenblatt Me.tbSDLKarten.Location = New System.Drawing.Point(4, 22) Me.tbSDLKarten.Name = "tbSDLKarten" Me.tbSDLKarten.Padding = New System.Windows.Forms.Padding(3) - Me.tbSDLKarten.Size = New System.Drawing.Size(1616, 933) + Me.tbSDLKarten.Size = New System.Drawing.Size(178, 39) Me.tbSDLKarten.TabIndex = 7 Me.tbSDLKarten.Text = "SDL-Kartenverwaltung" Me.tbSDLKarten.UseVisualStyleBackColor = True ' + 'usrcntlKarten + ' + Me.usrcntlKarten.Cursor = System.Windows.Forms.Cursors.Default + Me.usrcntlKarten.Dock = System.Windows.Forms.DockStyle.Fill + Me.usrcntlKarten.Location = New System.Drawing.Point(3, 3) + Me.usrcntlKarten.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.usrcntlKarten.Name = "usrcntlKarten" + Me.usrcntlKarten.Size = New System.Drawing.Size(172, 33) + Me.usrcntlKarten.TabIndex = 0 + ' 'tbLKW ' Me.tbLKW.Controls.Add(Me.pnlLKWRight) @@ -1265,7 +1462,7 @@ Partial Class frmKundenblatt Me.tbLKW.Location = New System.Drawing.Point(4, 22) Me.tbLKW.Name = "tbLKW" Me.tbLKW.Padding = New System.Windows.Forms.Padding(3) - Me.tbLKW.Size = New System.Drawing.Size(1616, 933) + Me.tbLKW.Size = New System.Drawing.Size(178, 39) Me.tbLKW.TabIndex = 4 Me.tbLKW.Text = "LKWs" Me.tbLKW.UseVisualStyleBackColor = True @@ -1277,9 +1474,22 @@ Partial Class frmKundenblatt Me.pnlLKWRight.Location = New System.Drawing.Point(309, 3) Me.pnlLKWRight.Name = "pnlLKWRight" Me.pnlLKWRight.Padding = New System.Windows.Forms.Padding(10, 0, 0, 0) - Me.pnlLKWRight.Size = New System.Drawing.Size(1304, 927) + Me.pnlLKWRight.Size = New System.Drawing.Size(0, 33) Me.pnlLKWRight.TabIndex = 2 ' + 'UsrCntlLKW1 + ' + Me.UsrCntlLKW1.BackColor = System.Drawing.Color.White + Me.UsrCntlLKW1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.UsrCntlLKW1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.UsrCntlLKW1.Dock = System.Windows.Forms.DockStyle.Fill + Me.UsrCntlLKW1.Location = New System.Drawing.Point(10, 0) + Me.UsrCntlLKW1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.UsrCntlLKW1.MaximumSize = New System.Drawing.Size(1200, 1000) + Me.UsrCntlLKW1.Name = "UsrCntlLKW1" + Me.UsrCntlLKW1.Size = New System.Drawing.Size(0, 33) + Me.UsrCntlLKW1.TabIndex = 0 + ' 'pnlLKW ' Me.pnlLKW.Controls.Add(Me.dgvLKW) @@ -1288,7 +1498,7 @@ Partial Class frmKundenblatt Me.pnlLKW.Dock = System.Windows.Forms.DockStyle.Left Me.pnlLKW.Location = New System.Drawing.Point(3, 3) Me.pnlLKW.Name = "pnlLKW" - Me.pnlLKW.Size = New System.Drawing.Size(306, 927) + Me.pnlLKW.Size = New System.Drawing.Size(306, 33) Me.pnlLKW.TabIndex = 3 ' 'dgvLKW @@ -1329,7 +1539,7 @@ Partial Class frmKundenblatt Me.dgvLKW.RowHeadersDefaultCellStyle = DataGridViewCellStyle17 Me.dgvLKW.RowHeadersVisible = False Me.dgvLKW.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvLKW.Size = New System.Drawing.Size(306, 753) + Me.dgvLKW.Size = New System.Drawing.Size(306, 0) Me.dgvLKW.TabIndex = 2 ' 'pnlLKWBottom @@ -1341,7 +1551,7 @@ Partial Class frmKundenblatt Me.pnlLKWBottom.Controls.Add(Me.Button13) Me.pnlLKWBottom.Controls.Add(Me.lblErgebnisse) Me.pnlLKWBottom.Dock = System.Windows.Forms.DockStyle.Bottom - Me.pnlLKWBottom.Location = New System.Drawing.Point(0, 815) + Me.pnlLKWBottom.Location = New System.Drawing.Point(0, -79) Me.pnlLKWBottom.Name = "pnlLKWBottom" Me.pnlLKWBottom.Size = New System.Drawing.Size(306, 112) Me.pnlLKWBottom.TabIndex = 3 @@ -1482,7 +1692,7 @@ Partial Class frmKundenblatt Me.tbVERAGCard.Location = New System.Drawing.Point(4, 22) Me.tbVERAGCard.Name = "tbVERAGCard" Me.tbVERAGCard.Padding = New System.Windows.Forms.Padding(3) - Me.tbVERAGCard.Size = New System.Drawing.Size(1616, 933) + Me.tbVERAGCard.Size = New System.Drawing.Size(178, 39) Me.tbVERAGCard.TabIndex = 6 Me.tbVERAGCard.Text = "VERAG Card" Me.tbVERAGCard.UseVisualStyleBackColor = True @@ -1494,7 +1704,7 @@ Partial Class frmKundenblatt Me.Panel3.Dock = System.Windows.Forms.DockStyle.Fill Me.Panel3.Location = New System.Drawing.Point(3, 3) Me.Panel3.Name = "Panel3" - Me.Panel3.Size = New System.Drawing.Size(1610, 927) + Me.Panel3.Size = New System.Drawing.Size(172, 33) Me.Panel3.TabIndex = 0 ' 'tbDokumente @@ -1512,7 +1722,7 @@ Partial Class frmKundenblatt Me.tbDokumente.Controls.Add(Me.scanVertragVeragKd) Me.tbDokumente.Location = New System.Drawing.Point(4, 22) Me.tbDokumente.Name = "tbDokumente" - Me.tbDokumente.Size = New System.Drawing.Size(1616, 933) + Me.tbDokumente.Size = New System.Drawing.Size(178, 39) Me.tbDokumente.TabIndex = 8 Me.tbDokumente.Text = "Dokumente" Me.tbDokumente.UseVisualStyleBackColor = True @@ -1547,12 +1757,170 @@ Partial Class frmKundenblatt Me.lblSonstigeDokumente.TabIndex = 2 Me.lblSonstigeDokumente.Text = "Sonstige Dokumente" ' + 'scanUebernahmebestätigungen + ' + Me.scanUebernahmebestätigungen._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanUebernahmebestätigungen._DATENSERVER_ORDNER = "MDM" + Me.scanUebernahmebestätigungen._DATENSERVER_UOrdner1 = "" + Me.scanUebernahmebestätigungen._DATENSERVER_UOrdner2 = "" + Me.scanUebernahmebestätigungen._DATENSERVER_UOrdner3 = "" + Me.scanUebernahmebestätigungen._OPEN_ORIGINAL = False + Me.scanUebernahmebestätigungen._TYPE = "PDF" + Me.scanUebernahmebestätigungen.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanUebernahmebestätigungen.BackColor = System.Drawing.Color.White + Me.scanUebernahmebestätigungen.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanUebernahmebestätigungen.Cursor = System.Windows.Forms.Cursors.Default + Me.scanUebernahmebestätigungen.Location = New System.Drawing.Point(488, 40) + Me.scanUebernahmebestätigungen.Margin = New System.Windows.Forms.Padding(0) + Me.scanUebernahmebestätigungen.Name = "scanUebernahmebestätigungen" + Me.scanUebernahmebestätigungen.Size = New System.Drawing.Size(285, 505) + Me.scanUebernahmebestätigungen.TabIndex = 5 + ' + 'scanHKA + ' + Me.scanHKA._ARCHIV = True + Me.scanHKA._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanHKA._DATENSERVER_ORDNER = "MDM" + Me.scanHKA._DATENSERVER_UOrdner1 = Nothing + Me.scanHKA._DATENSERVER_UOrdner2 = Nothing + Me.scanHKA._DATENSERVER_UOrdner3 = Nothing + Me.scanHKA._MULTI_FILES = True + Me.scanHKA._TEXT_PDF = "Handelskammerauszug" + Me.scanHKA.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanHKA.BackColor = System.Drawing.Color.White + Me.scanHKA.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanHKA.Cursor = System.Windows.Forms.Cursors.Default + Me.scanHKA.Location = New System.Drawing.Point(17, 163) + Me.scanHKA.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.scanHKA.Name = "scanHKA" + Me.scanHKA.Size = New System.Drawing.Size(168, 24) + Me.scanHKA.TabIndex = 4 + ' + 'scanSonstiges + ' + Me.scanSonstiges._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanSonstiges._DATENSERVER_ORDNER = "MDM" + Me.scanSonstiges._DATENSERVER_UOrdner1 = "" + Me.scanSonstiges._DATENSERVER_UOrdner2 = "" + Me.scanSonstiges._DATENSERVER_UOrdner3 = "" + Me.scanSonstiges._OPEN_ORIGINAL = False + Me.scanSonstiges._TYPE = "PDF" + Me.scanSonstiges.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanSonstiges.BackColor = System.Drawing.Color.White + Me.scanSonstiges.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanSonstiges.Cursor = System.Windows.Forms.Cursors.Default + Me.scanSonstiges.Location = New System.Drawing.Point(191, 40) + Me.scanSonstiges.Margin = New System.Windows.Forms.Padding(0) + Me.scanSonstiges.Name = "scanSonstiges" + Me.scanSonstiges.Size = New System.Drawing.Size(285, 505) + Me.scanSonstiges.TabIndex = 1 + ' + 'scanEULizenz + ' + Me.scanEULizenz._ARCHIV = True + Me.scanEULizenz._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanEULizenz._DATENSERVER_ORDNER = "MDM" + Me.scanEULizenz._DATENSERVER_UOrdner1 = Nothing + Me.scanEULizenz._DATENSERVER_UOrdner2 = Nothing + Me.scanEULizenz._DATENSERVER_UOrdner3 = Nothing + Me.scanEULizenz._MULTI_FILES = True + Me.scanEULizenz._TEXT_PDF = "EU-Lizenz" + Me.scanEULizenz.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanEULizenz.BackColor = System.Drawing.Color.White + Me.scanEULizenz.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanEULizenz.Cursor = System.Windows.Forms.Cursors.Default + Me.scanEULizenz.Location = New System.Drawing.Point(17, 197) + Me.scanEULizenz.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.scanEULizenz.Name = "scanEULizenz" + Me.scanEULizenz.Size = New System.Drawing.Size(168, 24) + Me.scanEULizenz.TabIndex = 0 + ' + 'scanHRA + ' + Me.scanHRA._ARCHIV = True + Me.scanHRA._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanHRA._DATENSERVER_ORDNER = "MDM" + Me.scanHRA._DATENSERVER_UOrdner1 = Nothing + Me.scanHRA._DATENSERVER_UOrdner2 = Nothing + Me.scanHRA._DATENSERVER_UOrdner3 = Nothing + Me.scanHRA._MULTI_FILES = True + Me.scanHRA._TEXT_PDF = "Handelsregisterauszug" + Me.scanHRA.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanHRA.BackColor = System.Drawing.Color.White + Me.scanHRA.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanHRA.Cursor = System.Windows.Forms.Cursors.Default + Me.scanHRA.Location = New System.Drawing.Point(17, 133) + Me.scanHRA.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.scanHRA.Name = "scanHRA" + Me.scanHRA.Size = New System.Drawing.Size(168, 24) + Me.scanHRA.TabIndex = 0 + ' + 'scanPersonalAusweisGF + ' + Me.scanPersonalAusweisGF._ARCHIV = True + Me.scanPersonalAusweisGF._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanPersonalAusweisGF._DATENSERVER_ORDNER = "MDM" + Me.scanPersonalAusweisGF._DATENSERVER_UOrdner1 = Nothing + Me.scanPersonalAusweisGF._DATENSERVER_UOrdner2 = Nothing + Me.scanPersonalAusweisGF._DATENSERVER_UOrdner3 = Nothing + Me.scanPersonalAusweisGF._MULTI_FILES = True + Me.scanPersonalAusweisGF._TEXT_PDF = "Personalausweis GF" + Me.scanPersonalAusweisGF.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanPersonalAusweisGF.BackColor = System.Drawing.Color.White + Me.scanPersonalAusweisGF.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanPersonalAusweisGF.Cursor = System.Windows.Forms.Cursors.Default + Me.scanPersonalAusweisGF.Location = New System.Drawing.Point(17, 99) + Me.scanPersonalAusweisGF.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.scanPersonalAusweisGF.Name = "scanPersonalAusweisGF" + Me.scanPersonalAusweisGF.Size = New System.Drawing.Size(168, 24) + Me.scanPersonalAusweisGF.TabIndex = 0 + ' + 'scanBankGarantie + ' + Me.scanBankGarantie._ARCHIV = True + Me.scanBankGarantie._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanBankGarantie._DATENSERVER_ORDNER = "MDM" + Me.scanBankGarantie._DATENSERVER_UOrdner1 = Nothing + Me.scanBankGarantie._DATENSERVER_UOrdner2 = Nothing + Me.scanBankGarantie._DATENSERVER_UOrdner3 = Nothing + Me.scanBankGarantie._MULTI_FILES = True + Me.scanBankGarantie._TEXT_PDF = "Bankgarantie" + Me.scanBankGarantie.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanBankGarantie.BackColor = System.Drawing.Color.White + Me.scanBankGarantie.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanBankGarantie.Cursor = System.Windows.Forms.Cursors.Default + Me.scanBankGarantie.Location = New System.Drawing.Point(17, 70) + Me.scanBankGarantie.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.scanBankGarantie.Name = "scanBankGarantie" + Me.scanBankGarantie.Size = New System.Drawing.Size(168, 24) + Me.scanBankGarantie.TabIndex = 0 + ' + 'scanVertragVeragKd + ' + Me.scanVertragVeragKd._ARCHIV = True + Me.scanVertragVeragKd._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanVertragVeragKd._DATENSERVER_ORDNER = "MDM" + Me.scanVertragVeragKd._DATENSERVER_UOrdner1 = Nothing + Me.scanVertragVeragKd._DATENSERVER_UOrdner2 = Nothing + Me.scanVertragVeragKd._DATENSERVER_UOrdner3 = Nothing + Me.scanVertragVeragKd._MULTI_FILES = True + Me.scanVertragVeragKd._TEXT_PDF = "Vertrag VERAG-Kunde" + Me.scanVertragVeragKd.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanVertragVeragKd.BackColor = System.Drawing.Color.White + Me.scanVertragVeragKd.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanVertragVeragKd.Cursor = System.Windows.Forms.Cursors.Default + Me.scanVertragVeragKd.Location = New System.Drawing.Point(17, 40) + Me.scanVertragVeragKd.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.scanVertragVeragKd.Name = "scanVertragVeragKd" + Me.scanVertragVeragKd.Size = New System.Drawing.Size(168, 24) + Me.scanVertragVeragKd.TabIndex = 0 + ' 'tbBesuchsberichte ' Me.tbBesuchsberichte.Location = New System.Drawing.Point(4, 22) Me.tbBesuchsberichte.Name = "tbBesuchsberichte" Me.tbBesuchsberichte.Padding = New System.Windows.Forms.Padding(3) - Me.tbBesuchsberichte.Size = New System.Drawing.Size(1616, 933) + Me.tbBesuchsberichte.Size = New System.Drawing.Size(178, 39) Me.tbBesuchsberichte.TabIndex = 9 Me.tbBesuchsberichte.Text = "Besuchsberichte" Me.tbBesuchsberichte.UseVisualStyleBackColor = True @@ -1563,17 +1931,27 @@ Partial Class frmKundenblatt Me.tbOfferte.Location = New System.Drawing.Point(4, 25) Me.tbOfferte.Margin = New System.Windows.Forms.Padding(2) Me.tbOfferte.Name = "tbOfferte" - Me.tbOfferte.Size = New System.Drawing.Size(1630, 965) + Me.tbOfferte.Size = New System.Drawing.Size(1630, 999) Me.tbOfferte.TabIndex = 11 Me.tbOfferte.Text = "Offerte" Me.tbOfferte.UseVisualStyleBackColor = True ' + 'UsrCntlOfferte1 + ' + Me.UsrCntlOfferte1.BackColor = System.Drawing.Color.White + Me.UsrCntlOfferte1.Dock = System.Windows.Forms.DockStyle.Fill + Me.UsrCntlOfferte1.Location = New System.Drawing.Point(0, 0) + Me.UsrCntlOfferte1.Margin = New System.Windows.Forms.Padding(1) + Me.UsrCntlOfferte1.Name = "UsrCntlOfferte1" + Me.UsrCntlOfferte1.Size = New System.Drawing.Size(1630, 999) + Me.UsrCntlOfferte1.TabIndex = 0 + ' 'tbUSTV ' Me.tbUSTV.Controls.Add(Me.tbcntrUSTV) Me.tbUSTV.Location = New System.Drawing.Point(4, 25) Me.tbUSTV.Name = "tbUSTV" - Me.tbUSTV.Size = New System.Drawing.Size(1630, 965) + Me.tbUSTV.Size = New System.Drawing.Size(1630, 999) Me.tbUSTV.TabIndex = 12 Me.tbUSTV.Text = "USTV" Me.tbUSTV.UseVisualStyleBackColor = True @@ -1587,7 +1965,7 @@ Partial Class frmKundenblatt Me.tbcntrUSTV.Margin = New System.Windows.Forms.Padding(0) Me.tbcntrUSTV.Name = "tbcntrUSTV" Me.tbcntrUSTV.SelectedIndex = 0 - Me.tbcntrUSTV.Size = New System.Drawing.Size(1630, 965) + Me.tbcntrUSTV.Size = New System.Drawing.Size(1630, 999) Me.tbcntrUSTV.TabIndex = 1 ' 'tbUSTVDokumente @@ -1600,7 +1978,7 @@ Partial Class frmKundenblatt Me.tbUSTVDokumente.Controls.Add(Me.scanUSTVVollmachten) Me.tbUSTVDokumente.Location = New System.Drawing.Point(4, 22) Me.tbUSTVDokumente.Name = "tbUSTVDokumente" - Me.tbUSTVDokumente.Size = New System.Drawing.Size(1622, 939) + Me.tbUSTVDokumente.Size = New System.Drawing.Size(1622, 973) Me.tbUSTVDokumente.TabIndex = 8 Me.tbUSTVDokumente.Text = "Dokumente" Me.tbUSTVDokumente.UseVisualStyleBackColor = True @@ -1615,6 +1993,25 @@ Partial Class frmKundenblatt Me.Label8.TabIndex = 8 Me.Label8.Text = "sonstige Dokumente:" ' + 'scanUSTVsonstigeDokumente + ' + Me.scanUSTVsonstigeDokumente._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanUSTVsonstigeDokumente._DATENSERVER_ORDNER = "MDM" + Me.scanUSTVsonstigeDokumente._DATENSERVER_UOrdner1 = "" + Me.scanUSTVsonstigeDokumente._DATENSERVER_UOrdner2 = "" + Me.scanUSTVsonstigeDokumente._DATENSERVER_UOrdner3 = "" + Me.scanUSTVsonstigeDokumente._OPEN_ORIGINAL = False + Me.scanUSTVsonstigeDokumente._TYPE = "PDF" + Me.scanUSTVsonstigeDokumente.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanUSTVsonstigeDokumente.BackColor = System.Drawing.Color.White + Me.scanUSTVsonstigeDokumente.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanUSTVsonstigeDokumente.Cursor = System.Windows.Forms.Cursors.Default + Me.scanUSTVsonstigeDokumente.Location = New System.Drawing.Point(607, 36) + Me.scanUSTVsonstigeDokumente.Margin = New System.Windows.Forms.Padding(0) + Me.scanUSTVsonstigeDokumente.Name = "scanUSTVsonstigeDokumente" + Me.scanUSTVsonstigeDokumente.Size = New System.Drawing.Size(285, 505) + Me.scanUSTVsonstigeDokumente.TabIndex = 7 + ' 'Label27 ' Me.Label27.AutoSize = True @@ -1635,17 +2032,63 @@ Partial Class frmKundenblatt Me.Label37.TabIndex = 2 Me.Label37.Text = "USTV Vollmachten" ' + 'scanUSTVFABest + ' + Me.scanUSTVFABest._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanUSTVFABest._DATENSERVER_ORDNER = "MDM" + Me.scanUSTVFABest._DATENSERVER_UOrdner1 = "" + Me.scanUSTVFABest._DATENSERVER_UOrdner2 = "" + Me.scanUSTVFABest._DATENSERVER_UOrdner3 = "" + Me.scanUSTVFABest._OPEN_ORIGINAL = False + Me.scanUSTVFABest._TYPE = "PDF" + Me.scanUSTVFABest.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanUSTVFABest.BackColor = System.Drawing.Color.White + Me.scanUSTVFABest.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanUSTVFABest.Cursor = System.Windows.Forms.Cursors.Default + Me.scanUSTVFABest.Location = New System.Drawing.Point(311, 36) + Me.scanUSTVFABest.Margin = New System.Windows.Forms.Padding(0) + Me.scanUSTVFABest.Name = "scanUSTVFABest" + Me.scanUSTVFABest.Size = New System.Drawing.Size(285, 505) + Me.scanUSTVFABest.TabIndex = 5 + ' + 'scanUSTVVollmachten + ' + Me.scanUSTVVollmachten._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanUSTVVollmachten._DATENSERVER_ORDNER = "MDM" + Me.scanUSTVVollmachten._DATENSERVER_UOrdner1 = "" + Me.scanUSTVVollmachten._DATENSERVER_UOrdner2 = "" + Me.scanUSTVVollmachten._DATENSERVER_UOrdner3 = "" + Me.scanUSTVVollmachten._OPEN_ORIGINAL = False + Me.scanUSTVVollmachten._TYPE = "PDF" + Me.scanUSTVVollmachten.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanUSTVVollmachten.BackColor = System.Drawing.Color.White + Me.scanUSTVVollmachten.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanUSTVVollmachten.Cursor = System.Windows.Forms.Cursors.Default + Me.scanUSTVVollmachten.Location = New System.Drawing.Point(14, 36) + Me.scanUSTVVollmachten.Margin = New System.Windows.Forms.Padding(0) + Me.scanUSTVVollmachten.Name = "scanUSTVVollmachten" + Me.scanUSTVVollmachten.Size = New System.Drawing.Size(285, 505) + Me.scanUSTVVollmachten.TabIndex = 1 + ' 'tbUSTVAntrage ' Me.tbUSTVAntrage.Controls.Add(Me.UsrCntlUSTV) Me.tbUSTVAntrage.Location = New System.Drawing.Point(4, 22) Me.tbUSTVAntrage.Name = "tbUSTVAntrage" Me.tbUSTVAntrage.Padding = New System.Windows.Forms.Padding(3) - Me.tbUSTVAntrage.Size = New System.Drawing.Size(1622, 939) + Me.tbUSTVAntrage.Size = New System.Drawing.Size(184, 45) Me.tbUSTVAntrage.TabIndex = 9 Me.tbUSTVAntrage.Text = "USTV-Anträge" Me.tbUSTVAntrage.UseVisualStyleBackColor = True ' + 'UsrCntlUSTV + ' + Me.UsrCntlUSTV.Dock = System.Windows.Forms.DockStyle.Fill + Me.UsrCntlUSTV.Location = New System.Drawing.Point(3, 3) + Me.UsrCntlUSTV.Name = "UsrCntlUSTV" + Me.UsrCntlUSTV.Size = New System.Drawing.Size(178, 39) + Me.UsrCntlUSTV.TabIndex = 0 + ' 'cntxtExcel ' Me.cntxtExcel.ImageScalingSize = New System.Drawing.Size(24, 24) @@ -1864,406 +2307,6 @@ Partial Class frmKundenblatt Me.lblINAKTIV.Text = "! INAKTIV !" Me.lblINAKTIV.Visible = False ' - 'tbiLeistungen - ' - Me.tbiLeistungen.Name = "tbiLeistungen" - Me.tbiLeistungen.Size = New System.Drawing.Size(186, 22) - Me.tbiLeistungen.Text = "Leistungen" - ' - 'tbiKartenverwaltung - ' - Me.tbiKartenverwaltung.Name = "tbiKartenverwaltung" - Me.tbiKartenverwaltung.Size = New System.Drawing.Size(186, 22) - Me.tbiKartenverwaltung.Text = "Kartenverwaltung" - ' - 'tbiLKW - ' - Me.tbiLKW.Name = "tbiLKW" - Me.tbiLKW.Size = New System.Drawing.Size(186, 22) - Me.tbiLKW.Text = "LKWs" - ' - 'tbiVERAGCard - ' - Me.tbiVERAGCard.Name = "tbiVERAGCard" - Me.tbiVERAGCard.Size = New System.Drawing.Size(186, 22) - Me.tbiVERAGCard.Text = "VERAG Card" - ' - 'cboFirmaFMZOLL - ' - Me.cboFirmaFMZOLL._allowedValuesFreiText = Nothing - Me.cboFirmaFMZOLL._allowFreiText = False - Me.cboFirmaFMZOLL._value = "" - Me.cboFirmaFMZOLL.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.cboFirmaFMZOLL.FormattingEnabled = True - Me.cboFirmaFMZOLL.Location = New System.Drawing.Point(354, 567) - Me.cboFirmaFMZOLL.Name = "cboFirmaFMZOLL" - Me.cboFirmaFMZOLL.Size = New System.Drawing.Size(184, 21) - Me.cboFirmaFMZOLL.TabIndex = 179 - ' - 'scanErstbestellung - ' - Me.scanErstbestellung._ARCHIV = True - Me.scanErstbestellung._DATENSERVER_KATEGORIE = "DOKUMENTE" - Me.scanErstbestellung._DATENSERVER_ORDNER = "MDM" - Me.scanErstbestellung._DATENSERVER_UOrdner1 = Nothing - Me.scanErstbestellung._DATENSERVER_UOrdner2 = Nothing - Me.scanErstbestellung._DATENSERVER_UOrdner3 = Nothing - Me.scanErstbestellung._MULTI_FILES = True - Me.scanErstbestellung._TEXT_PDF = "Erstbestellung" - Me.scanErstbestellung.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.scanErstbestellung.BackColor = System.Drawing.Color.White - Me.scanErstbestellung.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.scanErstbestellung.Cursor = System.Windows.Forms.Cursors.Hand - Me.scanErstbestellung.Location = New System.Drawing.Point(1, 1) - Me.scanErstbestellung.Margin = New System.Windows.Forms.Padding(1) - Me.scanErstbestellung.Name = "scanErstbestellung" - Me.scanErstbestellung.Size = New System.Drawing.Size(137, 24) - Me.scanErstbestellung.TabIndex = 172 - ' - 'scanJaraVereinbarung - ' - Me.scanJaraVereinbarung._ARCHIV = True - Me.scanJaraVereinbarung._DATENSERVER_KATEGORIE = "DOKUMENTE" - Me.scanJaraVereinbarung._DATENSERVER_ORDNER = "MDM" - Me.scanJaraVereinbarung._DATENSERVER_UOrdner1 = Nothing - Me.scanJaraVereinbarung._DATENSERVER_UOrdner2 = Nothing - Me.scanJaraVereinbarung._DATENSERVER_UOrdner3 = Nothing - Me.scanJaraVereinbarung._MULTI_FILES = True - Me.scanJaraVereinbarung._TEXT_PDF = "Jara-Vereinbarung" - Me.scanJaraVereinbarung.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.scanJaraVereinbarung.BackColor = System.Drawing.Color.White - Me.scanJaraVereinbarung.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.scanJaraVereinbarung.Cursor = System.Windows.Forms.Cursors.Hand - Me.scanJaraVereinbarung.Location = New System.Drawing.Point(1, 27) - Me.scanJaraVereinbarung.Margin = New System.Windows.Forms.Padding(1) - Me.scanJaraVereinbarung.Name = "scanJaraVereinbarung" - Me.scanJaraVereinbarung.Size = New System.Drawing.Size(137, 24) - Me.scanJaraVereinbarung.TabIndex = 173 - ' - 'scanMWSTAgreement - ' - Me.scanMWSTAgreement._ARCHIV = True - Me.scanMWSTAgreement._DATENSERVER_KATEGORIE = "DOKUMENTE" - Me.scanMWSTAgreement._DATENSERVER_ORDNER = "MDM" - Me.scanMWSTAgreement._DATENSERVER_UOrdner1 = Nothing - Me.scanMWSTAgreement._DATENSERVER_UOrdner2 = Nothing - Me.scanMWSTAgreement._DATENSERVER_UOrdner3 = Nothing - Me.scanMWSTAgreement._MULTI_FILES = True - Me.scanMWSTAgreement._TEXT_PDF = "MST Agreement" - Me.scanMWSTAgreement.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.scanMWSTAgreement.BackColor = System.Drawing.Color.White - Me.scanMWSTAgreement.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.scanMWSTAgreement.Cursor = System.Windows.Forms.Cursors.Hand - Me.scanMWSTAgreement.Location = New System.Drawing.Point(1, 53) - Me.scanMWSTAgreement.Margin = New System.Windows.Forms.Padding(1) - Me.scanMWSTAgreement.Name = "scanMWSTAgreement" - Me.scanMWSTAgreement.Size = New System.Drawing.Size(137, 24) - Me.scanMWSTAgreement.TabIndex = 174 - Me.scanMWSTAgreement.Visible = False - ' - 'scanSDLSonst - ' - Me.scanSDLSonst._DATENSERVER_KATEGORIE = "DOKUMENTE" - Me.scanSDLSonst._DATENSERVER_ORDNER = "MDM" - Me.scanSDLSonst._DATENSERVER_UOrdner1 = "" - Me.scanSDLSonst._DATENSERVER_UOrdner2 = "" - Me.scanSDLSonst._DATENSERVER_UOrdner3 = "" - Me.scanSDLSonst._OPEN_ORIGINAL = False - Me.scanSDLSonst._TYPE = "PDF" - Me.scanSDLSonst.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.scanSDLSonst.BackColor = System.Drawing.Color.White - Me.scanSDLSonst.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.scanSDLSonst.Cursor = System.Windows.Forms.Cursors.Default - Me.scanSDLSonst.Location = New System.Drawing.Point(890, 19) - Me.scanSDLSonst.Margin = New System.Windows.Forms.Padding(0) - Me.scanSDLSonst.Name = "scanSDLSonst" - Me.scanSDLSonst.Size = New System.Drawing.Size(260, 124) - Me.scanSDLSonst.TabIndex = 173 - ' - 'txtMautDE_BenutzerNr - ' - Me.txtMautDE_BenutzerNr._DateTimeOnly = False - Me.txtMautDE_BenutzerNr._numbersOnly = True - Me.txtMautDE_BenutzerNr._numbersOnlyKommastellen = "" - Me.txtMautDE_BenutzerNr._numbersOnlyTrennzeichen = True - Me.txtMautDE_BenutzerNr._Prozent = False - Me.txtMautDE_BenutzerNr._ShortDateNew = False - Me.txtMautDE_BenutzerNr._ShortDateOnly = False - Me.txtMautDE_BenutzerNr._TimeOnly = False - Me.txtMautDE_BenutzerNr._TimeOnly_Seconds = False - Me.txtMautDE_BenutzerNr._value = "" - Me.txtMautDE_BenutzerNr._Waehrung = False - Me.txtMautDE_BenutzerNr._WaehrungZeichen = True - Me.txtMautDE_BenutzerNr.ForeColor = System.Drawing.Color.Black - Me.txtMautDE_BenutzerNr.Location = New System.Drawing.Point(72, 21) - Me.txtMautDE_BenutzerNr.MaxLineLength = -1 - Me.txtMautDE_BenutzerNr.MaxLines_Warning = "" - Me.txtMautDE_BenutzerNr.MaxLines_Warning_Label = Nothing - Me.txtMautDE_BenutzerNr.Name = "txtMautDE_BenutzerNr" - Me.txtMautDE_BenutzerNr.Size = New System.Drawing.Size(129, 20) - Me.txtMautDE_BenutzerNr.TabIndex = 18 - ' - 'txtMautDE_FlottenPIN - ' - Me.txtMautDE_FlottenPIN._DateTimeOnly = False - Me.txtMautDE_FlottenPIN._numbersOnly = True - Me.txtMautDE_FlottenPIN._numbersOnlyKommastellen = "" - Me.txtMautDE_FlottenPIN._numbersOnlyTrennzeichen = True - Me.txtMautDE_FlottenPIN._Prozent = False - Me.txtMautDE_FlottenPIN._ShortDateNew = False - Me.txtMautDE_FlottenPIN._ShortDateOnly = False - Me.txtMautDE_FlottenPIN._TimeOnly = False - Me.txtMautDE_FlottenPIN._TimeOnly_Seconds = False - Me.txtMautDE_FlottenPIN._value = "" - Me.txtMautDE_FlottenPIN._Waehrung = False - Me.txtMautDE_FlottenPIN._WaehrungZeichen = True - Me.txtMautDE_FlottenPIN.ForeColor = System.Drawing.Color.Black - Me.txtMautDE_FlottenPIN.Location = New System.Drawing.Point(72, 47) - Me.txtMautDE_FlottenPIN.MaxLineLength = -1 - Me.txtMautDE_FlottenPIN.MaxLines_Warning = "" - Me.txtMautDE_FlottenPIN.MaxLines_Warning_Label = Nothing - Me.txtMautDE_FlottenPIN.Name = "txtMautDE_FlottenPIN" - Me.txtMautDE_FlottenPIN.Size = New System.Drawing.Size(63, 20) - Me.txtMautDE_FlottenPIN.TabIndex = 14 - ' - 'txtMautDEMasterPIN - ' - Me.txtMautDEMasterPIN._DateTimeOnly = False - Me.txtMautDEMasterPIN._numbersOnly = True - Me.txtMautDEMasterPIN._numbersOnlyKommastellen = "" - Me.txtMautDEMasterPIN._numbersOnlyTrennzeichen = True - Me.txtMautDEMasterPIN._Prozent = False - Me.txtMautDEMasterPIN._ShortDateNew = False - Me.txtMautDEMasterPIN._ShortDateOnly = False - Me.txtMautDEMasterPIN._TimeOnly = False - Me.txtMautDEMasterPIN._TimeOnly_Seconds = False - Me.txtMautDEMasterPIN._value = "" - Me.txtMautDEMasterPIN._Waehrung = False - Me.txtMautDEMasterPIN._WaehrungZeichen = True - Me.txtMautDEMasterPIN.ForeColor = System.Drawing.Color.Black - Me.txtMautDEMasterPIN.Location = New System.Drawing.Point(207, 47) - Me.txtMautDEMasterPIN.MaxLineLength = -1 - Me.txtMautDEMasterPIN.MaxLines_Warning = "" - Me.txtMautDEMasterPIN.MaxLines_Warning_Label = Nothing - Me.txtMautDEMasterPIN.Name = "txtMautDEMasterPIN" - Me.txtMautDEMasterPIN.Size = New System.Drawing.Size(63, 20) - Me.txtMautDEMasterPIN.TabIndex = 16 - ' - 'scanUebernahmebestätigungen - ' - Me.scanUebernahmebestätigungen._DATENSERVER_KATEGORIE = "DOKUMENTE" - Me.scanUebernahmebestätigungen._DATENSERVER_ORDNER = "MDM" - Me.scanUebernahmebestätigungen._DATENSERVER_UOrdner1 = "" - Me.scanUebernahmebestätigungen._DATENSERVER_UOrdner2 = "" - Me.scanUebernahmebestätigungen._DATENSERVER_UOrdner3 = "" - Me.scanUebernahmebestätigungen._OPEN_ORIGINAL = False - Me.scanUebernahmebestätigungen._TYPE = "PDF" - Me.scanUebernahmebestätigungen.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.scanUebernahmebestätigungen.BackColor = System.Drawing.Color.White - Me.scanUebernahmebestätigungen.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.scanUebernahmebestätigungen.Cursor = System.Windows.Forms.Cursors.Default - Me.scanUebernahmebestätigungen.Location = New System.Drawing.Point(488, 40) - Me.scanUebernahmebestätigungen.Margin = New System.Windows.Forms.Padding(0) - Me.scanUebernahmebestätigungen.Name = "scanUebernahmebestätigungen" - Me.scanUebernahmebestätigungen.Size = New System.Drawing.Size(285, 505) - Me.scanUebernahmebestätigungen.TabIndex = 5 - ' - 'scanHKA - ' - Me.scanHKA._ARCHIV = True - Me.scanHKA._DATENSERVER_KATEGORIE = "DOKUMENTE" - Me.scanHKA._DATENSERVER_ORDNER = "MDM" - Me.scanHKA._DATENSERVER_UOrdner1 = Nothing - Me.scanHKA._DATENSERVER_UOrdner2 = Nothing - Me.scanHKA._DATENSERVER_UOrdner3 = Nothing - Me.scanHKA._MULTI_FILES = True - Me.scanHKA._TEXT_PDF = "Handelskammerauszug" - Me.scanHKA.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.scanHKA.BackColor = System.Drawing.Color.White - Me.scanHKA.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.scanHKA.Cursor = System.Windows.Forms.Cursors.Default - Me.scanHKA.Location = New System.Drawing.Point(17, 163) - Me.scanHKA.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) - Me.scanHKA.Name = "scanHKA" - Me.scanHKA.Size = New System.Drawing.Size(168, 24) - Me.scanHKA.TabIndex = 4 - ' - 'scanSonstiges - ' - Me.scanSonstiges._DATENSERVER_KATEGORIE = "DOKUMENTE" - Me.scanSonstiges._DATENSERVER_ORDNER = "MDM" - Me.scanSonstiges._DATENSERVER_UOrdner1 = "" - Me.scanSonstiges._DATENSERVER_UOrdner2 = "" - Me.scanSonstiges._DATENSERVER_UOrdner3 = "" - Me.scanSonstiges._OPEN_ORIGINAL = False - Me.scanSonstiges._TYPE = "PDF" - Me.scanSonstiges.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.scanSonstiges.BackColor = System.Drawing.Color.White - Me.scanSonstiges.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.scanSonstiges.Cursor = System.Windows.Forms.Cursors.Default - Me.scanSonstiges.Location = New System.Drawing.Point(191, 40) - Me.scanSonstiges.Margin = New System.Windows.Forms.Padding(0) - Me.scanSonstiges.Name = "scanSonstiges" - Me.scanSonstiges.Size = New System.Drawing.Size(285, 505) - Me.scanSonstiges.TabIndex = 1 - ' - 'scanEULizenz - ' - Me.scanEULizenz._ARCHIV = True - Me.scanEULizenz._DATENSERVER_KATEGORIE = "DOKUMENTE" - Me.scanEULizenz._DATENSERVER_ORDNER = "MDM" - Me.scanEULizenz._DATENSERVER_UOrdner1 = Nothing - Me.scanEULizenz._DATENSERVER_UOrdner2 = Nothing - Me.scanEULizenz._DATENSERVER_UOrdner3 = Nothing - Me.scanEULizenz._MULTI_FILES = True - Me.scanEULizenz._TEXT_PDF = "EU-Lizenz" - Me.scanEULizenz.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.scanEULizenz.BackColor = System.Drawing.Color.White - Me.scanEULizenz.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.scanEULizenz.Cursor = System.Windows.Forms.Cursors.Default - Me.scanEULizenz.Location = New System.Drawing.Point(17, 197) - Me.scanEULizenz.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) - Me.scanEULizenz.Name = "scanEULizenz" - Me.scanEULizenz.Size = New System.Drawing.Size(168, 24) - Me.scanEULizenz.TabIndex = 0 - ' - 'scanHRA - ' - Me.scanHRA._ARCHIV = True - Me.scanHRA._DATENSERVER_KATEGORIE = "DOKUMENTE" - Me.scanHRA._DATENSERVER_ORDNER = "MDM" - Me.scanHRA._DATENSERVER_UOrdner1 = Nothing - Me.scanHRA._DATENSERVER_UOrdner2 = Nothing - Me.scanHRA._DATENSERVER_UOrdner3 = Nothing - Me.scanHRA._MULTI_FILES = True - Me.scanHRA._TEXT_PDF = "Handelsregisterauszug" - Me.scanHRA.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.scanHRA.BackColor = System.Drawing.Color.White - Me.scanHRA.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.scanHRA.Cursor = System.Windows.Forms.Cursors.Default - Me.scanHRA.Location = New System.Drawing.Point(17, 133) - Me.scanHRA.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) - Me.scanHRA.Name = "scanHRA" - Me.scanHRA.Size = New System.Drawing.Size(168, 24) - Me.scanHRA.TabIndex = 0 - ' - 'scanPersonalAusweisGF - ' - Me.scanPersonalAusweisGF._ARCHIV = True - Me.scanPersonalAusweisGF._DATENSERVER_KATEGORIE = "DOKUMENTE" - Me.scanPersonalAusweisGF._DATENSERVER_ORDNER = "MDM" - Me.scanPersonalAusweisGF._DATENSERVER_UOrdner1 = Nothing - Me.scanPersonalAusweisGF._DATENSERVER_UOrdner2 = Nothing - Me.scanPersonalAusweisGF._DATENSERVER_UOrdner3 = Nothing - Me.scanPersonalAusweisGF._MULTI_FILES = True - Me.scanPersonalAusweisGF._TEXT_PDF = "Personalausweis GF" - Me.scanPersonalAusweisGF.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.scanPersonalAusweisGF.BackColor = System.Drawing.Color.White - Me.scanPersonalAusweisGF.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.scanPersonalAusweisGF.Cursor = System.Windows.Forms.Cursors.Default - Me.scanPersonalAusweisGF.Location = New System.Drawing.Point(17, 99) - Me.scanPersonalAusweisGF.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) - Me.scanPersonalAusweisGF.Name = "scanPersonalAusweisGF" - Me.scanPersonalAusweisGF.Size = New System.Drawing.Size(168, 24) - Me.scanPersonalAusweisGF.TabIndex = 0 - ' - 'scanBankGarantie - ' - Me.scanBankGarantie._ARCHIV = True - Me.scanBankGarantie._DATENSERVER_KATEGORIE = "DOKUMENTE" - Me.scanBankGarantie._DATENSERVER_ORDNER = "MDM" - Me.scanBankGarantie._DATENSERVER_UOrdner1 = Nothing - Me.scanBankGarantie._DATENSERVER_UOrdner2 = Nothing - Me.scanBankGarantie._DATENSERVER_UOrdner3 = Nothing - Me.scanBankGarantie._MULTI_FILES = True - Me.scanBankGarantie._TEXT_PDF = "Bankgarantie" - Me.scanBankGarantie.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.scanBankGarantie.BackColor = System.Drawing.Color.White - Me.scanBankGarantie.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.scanBankGarantie.Cursor = System.Windows.Forms.Cursors.Default - Me.scanBankGarantie.Location = New System.Drawing.Point(17, 70) - Me.scanBankGarantie.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) - Me.scanBankGarantie.Name = "scanBankGarantie" - Me.scanBankGarantie.Size = New System.Drawing.Size(168, 24) - Me.scanBankGarantie.TabIndex = 0 - ' - 'scanVertragVeragKd - ' - Me.scanVertragVeragKd._ARCHIV = True - Me.scanVertragVeragKd._DATENSERVER_KATEGORIE = "DOKUMENTE" - Me.scanVertragVeragKd._DATENSERVER_ORDNER = "MDM" - Me.scanVertragVeragKd._DATENSERVER_UOrdner1 = Nothing - Me.scanVertragVeragKd._DATENSERVER_UOrdner2 = Nothing - Me.scanVertragVeragKd._DATENSERVER_UOrdner3 = Nothing - Me.scanVertragVeragKd._MULTI_FILES = True - Me.scanVertragVeragKd._TEXT_PDF = "Vertrag VERAG-Kunde" - Me.scanVertragVeragKd.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.scanVertragVeragKd.BackColor = System.Drawing.Color.White - Me.scanVertragVeragKd.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.scanVertragVeragKd.Cursor = System.Windows.Forms.Cursors.Default - Me.scanVertragVeragKd.Location = New System.Drawing.Point(17, 40) - Me.scanVertragVeragKd.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) - Me.scanVertragVeragKd.Name = "scanVertragVeragKd" - Me.scanVertragVeragKd.Size = New System.Drawing.Size(168, 24) - Me.scanVertragVeragKd.TabIndex = 0 - ' - 'scanUSTVsonstigeDokumente - ' - Me.scanUSTVsonstigeDokumente._DATENSERVER_KATEGORIE = "DOKUMENTE" - Me.scanUSTVsonstigeDokumente._DATENSERVER_ORDNER = "MDM" - Me.scanUSTVsonstigeDokumente._DATENSERVER_UOrdner1 = "" - Me.scanUSTVsonstigeDokumente._DATENSERVER_UOrdner2 = "" - Me.scanUSTVsonstigeDokumente._DATENSERVER_UOrdner3 = "" - Me.scanUSTVsonstigeDokumente._OPEN_ORIGINAL = False - Me.scanUSTVsonstigeDokumente._TYPE = "PDF" - Me.scanUSTVsonstigeDokumente.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.scanUSTVsonstigeDokumente.BackColor = System.Drawing.Color.White - Me.scanUSTVsonstigeDokumente.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.scanUSTVsonstigeDokumente.Cursor = System.Windows.Forms.Cursors.Default - Me.scanUSTVsonstigeDokumente.Location = New System.Drawing.Point(607, 36) - Me.scanUSTVsonstigeDokumente.Margin = New System.Windows.Forms.Padding(0) - Me.scanUSTVsonstigeDokumente.Name = "scanUSTVsonstigeDokumente" - Me.scanUSTVsonstigeDokumente.Size = New System.Drawing.Size(285, 505) - Me.scanUSTVsonstigeDokumente.TabIndex = 7 - ' - 'scanUSTVFABest - ' - Me.scanUSTVFABest._DATENSERVER_KATEGORIE = "DOKUMENTE" - Me.scanUSTVFABest._DATENSERVER_ORDNER = "MDM" - Me.scanUSTVFABest._DATENSERVER_UOrdner1 = "" - Me.scanUSTVFABest._DATENSERVER_UOrdner2 = "" - Me.scanUSTVFABest._DATENSERVER_UOrdner3 = "" - Me.scanUSTVFABest._OPEN_ORIGINAL = False - Me.scanUSTVFABest._TYPE = "PDF" - Me.scanUSTVFABest.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.scanUSTVFABest.BackColor = System.Drawing.Color.White - Me.scanUSTVFABest.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.scanUSTVFABest.Cursor = System.Windows.Forms.Cursors.Default - Me.scanUSTVFABest.Location = New System.Drawing.Point(311, 36) - Me.scanUSTVFABest.Margin = New System.Windows.Forms.Padding(0) - Me.scanUSTVFABest.Name = "scanUSTVFABest" - Me.scanUSTVFABest.Size = New System.Drawing.Size(285, 505) - Me.scanUSTVFABest.TabIndex = 5 - ' - 'scanUSTVVollmachten - ' - Me.scanUSTVVollmachten._DATENSERVER_KATEGORIE = "DOKUMENTE" - Me.scanUSTVVollmachten._DATENSERVER_ORDNER = "MDM" - Me.scanUSTVVollmachten._DATENSERVER_UOrdner1 = "" - Me.scanUSTVVollmachten._DATENSERVER_UOrdner2 = "" - Me.scanUSTVVollmachten._DATENSERVER_UOrdner3 = "" - Me.scanUSTVVollmachten._OPEN_ORIGINAL = False - Me.scanUSTVVollmachten._TYPE = "PDF" - Me.scanUSTVVollmachten.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.scanUSTVVollmachten.BackColor = System.Drawing.Color.White - Me.scanUSTVVollmachten.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.scanUSTVVollmachten.Cursor = System.Windows.Forms.Cursors.Default - Me.scanUSTVVollmachten.Location = New System.Drawing.Point(14, 36) - Me.scanUSTVVollmachten.Margin = New System.Windows.Forms.Padding(0) - Me.scanUSTVVollmachten.Name = "scanUSTVVollmachten" - Me.scanUSTVVollmachten.Size = New System.Drawing.Size(285, 505) - Me.scanUSTVVollmachten.TabIndex = 1 - ' 'KdSearchBox1 ' Me.KdSearchBox1._AlleFirmenCLUSTER = False @@ -2298,56 +2341,39 @@ Partial Class frmKundenblatt Me.KdSearchBox1.TIMER_SEARCH = True Me.KdSearchBox1.usrcntl = Nothing ' - 'UsrcntlKundeBearbeitenFull1 + 'tbiLeistungen ' - Me.UsrcntlKundeBearbeitenFull1.BackColor = System.Drawing.Color.White - Me.UsrcntlKundeBearbeitenFull1.Dock = System.Windows.Forms.DockStyle.Fill - Me.UsrcntlKundeBearbeitenFull1.Location = New System.Drawing.Point(0, 0) - Me.UsrcntlKundeBearbeitenFull1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) - Me.UsrcntlKundeBearbeitenFull1.Name = "UsrcntlKundeBearbeitenFull1" - Me.UsrcntlKundeBearbeitenFull1.Size = New System.Drawing.Size(1624, 959) - Me.UsrcntlKundeBearbeitenFull1.TabIndex = 0 + Me.tbiLeistungen.Name = "tbiLeistungen" + Me.tbiLeistungen.Size = New System.Drawing.Size(186, 22) + Me.tbiLeistungen.Text = "Leistungen" ' - 'usrcntlKarten + 'tbiKartenverwaltung ' - Me.usrcntlKarten.Cursor = System.Windows.Forms.Cursors.Default - Me.usrcntlKarten.Dock = System.Windows.Forms.DockStyle.Fill - Me.usrcntlKarten.Location = New System.Drawing.Point(3, 3) - Me.usrcntlKarten.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) - Me.usrcntlKarten.Name = "usrcntlKarten" - Me.usrcntlKarten.Size = New System.Drawing.Size(1610, 927) - Me.usrcntlKarten.TabIndex = 0 + Me.tbiKartenverwaltung.Name = "tbiKartenverwaltung" + Me.tbiKartenverwaltung.Size = New System.Drawing.Size(186, 22) + Me.tbiKartenverwaltung.Text = "Kartenverwaltung" ' - 'UsrCntlLKW1 + 'tbiLKW ' - Me.UsrCntlLKW1.BackColor = System.Drawing.Color.White - Me.UsrCntlLKW1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.UsrCntlLKW1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.UsrCntlLKW1.Dock = System.Windows.Forms.DockStyle.Fill - Me.UsrCntlLKW1.Location = New System.Drawing.Point(10, 0) - Me.UsrCntlLKW1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) - Me.UsrCntlLKW1.MaximumSize = New System.Drawing.Size(1200, 1000) - Me.UsrCntlLKW1.Name = "UsrCntlLKW1" - Me.UsrCntlLKW1.Size = New System.Drawing.Size(1200, 927) - Me.UsrCntlLKW1.TabIndex = 0 + Me.tbiLKW.Name = "tbiLKW" + Me.tbiLKW.Size = New System.Drawing.Size(186, 22) + Me.tbiLKW.Text = "LKWs" ' - 'UsrCntlOfferte1 + 'tbiVERAGCard ' - Me.UsrCntlOfferte1.BackColor = System.Drawing.Color.White - Me.UsrCntlOfferte1.Dock = System.Windows.Forms.DockStyle.Fill - Me.UsrCntlOfferte1.Location = New System.Drawing.Point(0, 0) - Me.UsrCntlOfferte1.Margin = New System.Windows.Forms.Padding(1) - Me.UsrCntlOfferte1.Name = "UsrCntlOfferte1" - Me.UsrCntlOfferte1.Size = New System.Drawing.Size(1630, 965) - Me.UsrCntlOfferte1.TabIndex = 0 + Me.tbiVERAGCard.Name = "tbiVERAGCard" + Me.tbiVERAGCard.Size = New System.Drawing.Size(186, 22) + Me.tbiVERAGCard.Text = "VERAG Card" ' - 'UsrCntlUSTV + 'Button7 ' - Me.UsrCntlUSTV.Dock = System.Windows.Forms.DockStyle.Fill - Me.UsrCntlUSTV.Location = New System.Drawing.Point(3, 3) - Me.UsrCntlUSTV.Name = "UsrCntlUSTV" - Me.UsrCntlUSTV.Size = New System.Drawing.Size(1616, 933) - Me.UsrCntlUSTV.TabIndex = 0 + Me.Button7.Location = New System.Drawing.Point(1169, 20) + Me.Button7.Name = "Button7" + Me.Button7.Size = New System.Drawing.Size(101, 20) + Me.Button7.TabIndex = 177 + Me.Button7.Text = "GO BOX" + Me.Button7.UseVisualStyleBackColor = True + Me.Button7.Visible = False ' 'frmKundenblatt ' @@ -2355,7 +2381,7 @@ Partial Class frmKundenblatt Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScroll = True Me.BackColor = System.Drawing.Color.White - Me.ClientSize = New System.Drawing.Size(1180, 1123) + Me.ClientSize = New System.Drawing.Size(1595, 1157) Me.Controls.Add(Me.lblAbfVerb) Me.Controls.Add(Me.btnAbfVerb) Me.Controls.Add(Me.tbcntrMain) @@ -2589,4 +2615,6 @@ Partial Class frmKundenblatt Friend WithEvents btnReloadOP As Button Friend WithEvents Label11 As Label Friend WithEvents cboFirmaFMZOLL As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents lblAdressenzusatz As TextBox + Friend WithEvents Button7 As Button End Class diff --git a/SDL/kunden/frmKundenblatt.vb b/SDL/kunden/frmKundenblatt.vb index 922448b9..3b312c4f 100644 --- a/SDL/kunden/frmKundenblatt.vb +++ b/SDL/kunden/frmKundenblatt.vb @@ -15,6 +15,7 @@ Public Class frmKundenblatt Dim lkwKzChange As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem) ' Dim KUNDE As cKunde = Nothing Dim ADRESSE As VERAG_PROG_ALLGEMEIN.cAdressen = Nothing + Dim KUNDE_ERW As VERAG_PROG_ALLGEMEIN.cKundenErweitert = Nothing ' Public BERECHTIGUNEN As List(Of cBerechtigungen) = Nothing @@ -285,7 +286,7 @@ Public Class frmKundenblatt End Select Case "tbZoll" : initTZOLL() - Case "tbOfferte" : UsrCntlOfferte1.init(kdNr) + Case "tbOfferte" : UsrCntlOfferte1.init(kdNr, isVerag360) End Select End If @@ -608,7 +609,7 @@ Public Class frmKundenblatt If kdNr > 0 Then KUNDE = New VERAG_PROG_ALLGEMEIN.cKunde(kdNr) 'kundenSQL.getKundeByKdNr(kdNr) ADRESSE = New VERAG_PROG_ALLGEMEIN.cAdressen(kdNr) 'kundenSQL.getKundeByKdNr(kdNr) - + KUNDE_ERW = New VERAG_PROG_ALLGEMEIN.cKundenErweitert(kdNr) 'Me.dataAdapterFirma = Nothing ' Me.dataFirma.Clear() 'SDL! @@ -628,6 +629,7 @@ Public Class frmKundenblatt lblFirmenname2.Text = checkNullStr(ADRESSE.Name_2) lblStrasse.Text = checkNullStr(ADRESSE.Straße) + lblAdressenzusatz.Text = checkNullStr(KUNDE_ERW.kde_AdressZusatz) lblLandPlzOrt.Text = checkNullStr(ADRESSE.LandKz) & " - " & checkNullStr(ADRESSE.PLZ) & " - " & checkNullStr(ADRESSE.Ort) lblPostfach.Text = checkNullStr(ADRESSE.PLZPF) & " - " & checkNullStr(ADRESSE.Postfach) @@ -1239,6 +1241,7 @@ Public Class frmKundenblatt ' scanJaraVertretung.Visible = False scanErstbestellung.Visible = False scanMWSTAgreement.Visible = False + Button7.Visible = False If dgvSDLLeistungenFull.SelectedRows.Count > 0 Then Panel2.Visible = True @@ -1252,7 +1255,7 @@ Public Class frmKundenblatt Select Case tmpSDLNr Case 100 : txtPartnerKdNr.Text = PartnerKdNrFromFMZOLL.IDSKundenNr 'IDS - Case 200 : txtPartnerKdNr.Text = PartnerKdNrFromFMZOLL.ATKundenNr 'AT + Case 200 : txtPartnerKdNr.Text = PartnerKdNrFromFMZOLL.ATKundenNr : Button7.Visible = True 'AT Case 212 : txtPartnerKdNr.Text = PartnerKdNrFromFMZOLL.UTAKundenNr 'UTA Case 101 : txtPartnerKdNr.Text = PartnerKdNrFromFMZOLL.WölflKundenNr 'WÖLFL Case 202 : txtPartnerKdNr.Text = PartnerKdNrFromFMZOLL.TELEPASS_Kd_Nr 'TELEPASS @@ -1295,6 +1298,7 @@ Public Class frmKundenblatt 'gibt keine Einträge Case 200 : kundenSQL.setPartnerKdNrFromFMZOLL_AT(kdNr, txtPartnerKdNr.Text) 'AT kundenSQL.setPartnerKdNrSDL("KartenNr", txtPartnerKdNr.Text, kdNr, sdlNrTmp) 'UTA + Case 212 : kundenSQL.setPartnerKdNrFromFMZOLL("UTAKundenNr", txtPartnerKdNr.Text, kdNr) 'UTA kundenSQL.setPartnerKdNrSDL("CLIENT-Nr", txtPartnerKdNr.Text, kdNr, sdlNrTmp) 'UTA Case 101 : kundenSQL.setPartnerKdNrFromFMZOLL("WölflKundenNr", txtPartnerKdNr.Text, kdNr) 'WÖLFL @@ -1706,7 +1710,6 @@ Public Class frmKundenblatt End Sub Private Sub ToolStripMenuItem7_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem7.Click - changeTab(4, sender) End Sub @@ -1985,5 +1988,10 @@ Public Class frmKundenblatt initDGVOffenePosten() End If End Sub + + Private Sub Button7_Click_1(sender As Object, e As EventArgs) Handles Button7.Click + Dim f As New frmGoMautBoxen_Bestellung(KUNDE, ADRESSE, KUNDE_ERW) + f.ShowDialog() + End Sub End Class diff --git a/SDL/kunden/usrCntlOfferte.vb b/SDL/kunden/usrCntlOfferte.vb index ba369bdd..4ab4df9d 100644 --- a/SDL/kunden/usrCntlOfferte.vb +++ b/SDL/kunden/usrCntlOfferte.vb @@ -1,5 +1,7 @@  +Imports VERAG_PROG_ALLGEMEIN + Public Class usrCntlOfferte Dim FUNC As New cProgramFunctions @@ -22,6 +24,7 @@ Public Class usrCntlOfferte Dim isNew = False Dim addLeistung = False Dim ofID As Integer + Dim isVerag360 As Boolean = False Sub New() InitializeComponent() @@ -33,13 +36,14 @@ Public Class usrCntlOfferte End Sub - Public Sub init(kdNr) + Public Sub init(kdNr As Integer, Optional isVerag360 As Boolean = False) Me.kdNr = kdNr initDGVOfferte() edit = False handleEditMode(edit) KD_ERW = New VERAG_PROG_ALLGEMEIN.cKundenErweitert(kdNr) cbxAutoFakturierung.Checked = KD_ERW.AutoFakturierung + isVerag360 = isVerag360 End Sub Sub initDGVOfferte() @@ -358,20 +362,20 @@ Public Class usrCntlOfferte Try If dgvOfferteNew.SelectedRows.Count = 1 Then - If vbYes = MsgBox("Möchten Sie das Offert '" & dgvOfferteNew.SelectedRows(0).Cells("OffertenBez").Value & "' wirklich löschen", vbYesNoCancel) Then - saveCurrentOffert() - currentOffert.Art = "Offert gelöscht" - currentOffert.SAVE() - OfferteArchivieren() - If SQL.doSQL("DELETE FROM Offerten where [KundenNr]='" & kdNr & "' AND [OffertenNr]='" & dgvOfferteNew.SelectedRows(0).Cells("OffertenNr").Value & "' ", "FMZOLL") Then - initDGVOfferte() - RaiseEvent OfferteChanged() + If vbYes = MsgBox("Möchten Sie das Offert '" & dgvOfferteNew.SelectedRows(0).Cells("OffertenBez").Value & "' wirklich löschen", vbYesNoCancel) Then + saveCurrentOffert() + currentOffert.Art = "Offert gelöscht" + currentOffert.SAVE() + OfferteArchivieren() + If SQL.doSQL("DELETE FROM Offerten where [KundenNr]='" & kdNr & "' AND [OffertenNr]='" & dgvOfferteNew.SelectedRows(0).Cells("OffertenNr").Value & "' ", "FMZOLL") Then + initDGVOfferte() + RaiseEvent OfferteChanged() + End If End If End If - End If Catch ex As Exception - VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try End Sub @@ -409,8 +413,6 @@ Public Class usrCntlOfferte Try - - currentOffertArchiv = New VERAG_PROG_ALLGEMEIN.cOfferteArchiv() currentOffertArchiv.KundenNr = currentOffert.KundenNr currentOffertArchiv.FilialenNr = currentOffert.FilialenNr @@ -550,22 +552,40 @@ Public Class usrCntlOfferte Next dgvOfferteDetails.AllowUserToDeleteRows = False Else + For Each c As DataGridViewColumn In .Columns - If (c.Name = "Preis" Or c.Name = "LeistungsBez" Or c.Name = "Anzahl" Or c.Name = "BerechnungsartNr" Or c.Name = "BerechnungsartPosInkludiert") Then - If edit Then - c.ReadOnly = False - handleEditMode(edit) + + If isVerag360 Then + If (c.Name = "Preis" Or c.Name = "LeistungsBez" Or c.Name = "Anzahl" Or c.Name = "BerechnungsartNr" Or c.Name = "BerechnungsartPosInkludiert" Or c.Name = "BGebLeistungsNr" Or c.Name = "BGebProzent" Or c.Name = "BGebMinBetrag") Then + If edit Then + c.ReadOnly = False + handleEditMode(edit) + Else + c.ReadOnly = True + handleEditMode(edit) + End If Else c.ReadOnly = True - handleEditMode(edit) + End If Else - c.ReadOnly = True + If (c.Name = "Preis" Or c.Name = "LeistungsBez" Or c.Name = "Anzahl" Or c.Name = "BerechnungsartNr" Or c.Name = "BerechnungsartPosInkludiert") Then + If edit Then + c.ReadOnly = False + handleEditMode(edit) + Else + c.ReadOnly = True + handleEditMode(edit) + End If + Else + c.ReadOnly = True + End If End If + Next dgvOfferteDetails.AllowUserToDeleteRows = edit - End If + End If End With diff --git a/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb b/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb index c5eca141..b0366417 100644 --- a/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb +++ b/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb @@ -143,6 +143,15 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtAbf_Vorlageprovision = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtAbf_Zahlungsziel = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.tbVersicherung = New System.Windows.Forms.TabPage() + Me.cbxBlanko = New System.Windows.Forms.CheckBox() + Me.Label105 = New System.Windows.Forms.Label() + Me.txtWechselErhaltenAm = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label106 = New System.Windows.Forms.Label() + Me.Label107 = New System.Windows.Forms.Label() + Me.txtWechselGueltigBis = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtWechsel = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label104 = New System.Windows.Forms.Label() + Me.txtBankgarantieErhaltenAm = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label81 = New System.Windows.Forms.Label() Me.Label82 = New System.Windows.Forms.Label() Me.cbxInkassoUebergeben = New System.Windows.Forms.CheckBox() @@ -207,8 +216,8 @@ Partial Class usrcntlKundeBearbeitenFull Me.GroupBox4 = New System.Windows.Forms.GroupBox() Me.Button10 = New System.Windows.Forms.Button() Me.Button9 = New System.Windows.Forms.Button() - Me.Button8 = New System.Windows.Forms.Button() - Me.Button7 = New System.Windows.Forms.Button() + Me.bntGOBOXUmstellung = New System.Windows.Forms.Button() + Me.btnKKhinzufuegen = New System.Windows.Forms.Button() Me.dgvKreditkarten = New System.Windows.Forms.DataGridView() Me.txtBank_Kto = New System.Windows.Forms.TextBox() Me.Label22 = New System.Windows.Forms.Label() @@ -271,8 +280,6 @@ Partial Class usrcntlKundeBearbeitenFull Me.Label33 = New System.Windows.Forms.Label() Me.txtHandelsregisterNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.PictureBox5 = New System.Windows.Forms.PictureBox() - Me.Label100 = New System.Windows.Forms.Label() - Me.txtAdresseZusatz = New System.Windows.Forms.TextBox() Me.cbxUIDMehrfachverwendung = New System.Windows.Forms.CheckBox() Me.btnCreditsafe = New System.Windows.Forms.Button() Me.Button13 = New System.Windows.Forms.Button() @@ -291,6 +298,8 @@ Partial Class usrcntlKundeBearbeitenFull Me.Label16 = New System.Windows.Forms.Label() Me.txtUSt_Steuernummer = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.lblHandelregisterNr = New System.Windows.Forms.Label() + Me.Label100 = New System.Windows.Forms.Label() + Me.txtAdresseZusatz = New System.Windows.Forms.TextBox() Me.GroupBox1 = New System.Windows.Forms.GroupBox() Me.cbxLandKz = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Label14 = New System.Windows.Forms.Label() @@ -1860,6 +1869,15 @@ Partial Class usrcntlKundeBearbeitenFull ' 'tbVersicherung ' + Me.tbVersicherung.Controls.Add(Me.cbxBlanko) + Me.tbVersicherung.Controls.Add(Me.Label105) + Me.tbVersicherung.Controls.Add(Me.txtWechselErhaltenAm) + Me.tbVersicherung.Controls.Add(Me.Label106) + Me.tbVersicherung.Controls.Add(Me.Label107) + Me.tbVersicherung.Controls.Add(Me.txtWechselGueltigBis) + Me.tbVersicherung.Controls.Add(Me.txtWechsel) + Me.tbVersicherung.Controls.Add(Me.Label104) + Me.tbVersicherung.Controls.Add(Me.txtBankgarantieErhaltenAm) Me.tbVersicherung.Controls.Add(Me.Label81) Me.tbVersicherung.Controls.Add(Me.Label82) Me.tbVersicherung.Controls.Add(Me.cbxInkassoUebergeben) @@ -1915,6 +1933,152 @@ Partial Class usrcntlKundeBearbeitenFull Me.tbVersicherung.Text = "Versicherung" Me.tbVersicherung.UseVisualStyleBackColor = True ' + 'cbxBlanko + ' + Me.cbxBlanko.AutoSize = True + Me.cbxBlanko.Location = New System.Drawing.Point(91, 280) + Me.cbxBlanko.Name = "cbxBlanko" + Me.cbxBlanko.Size = New System.Drawing.Size(59, 17) + Me.cbxBlanko.TabIndex = 55 + Me.cbxBlanko.Text = "Blanko" + Me.cbxBlanko.UseVisualStyleBackColor = True + ' + 'Label105 + ' + Me.Label105.AutoSize = True + Me.Label105.Location = New System.Drawing.Point(419, 280) + Me.Label105.Name = "Label105" + Me.Label105.Size = New System.Drawing.Size(65, 13) + Me.Label105.TabIndex = 53 + Me.Label105.Text = "erhalten am:" + ' + 'txtWechselErhaltenAm + ' + Me.txtWechselErhaltenAm._DateTimeOnly = False + Me.txtWechselErhaltenAm._numbersOnly = False + Me.txtWechselErhaltenAm._numbersOnlyKommastellen = "" + Me.txtWechselErhaltenAm._numbersOnlyTrennzeichen = True + Me.txtWechselErhaltenAm._Prozent = False + Me.txtWechselErhaltenAm._ShortDateNew = True + Me.txtWechselErhaltenAm._ShortDateOnly = False + Me.txtWechselErhaltenAm._TimeOnly = False + Me.txtWechselErhaltenAm._TimeOnly_Seconds = False + Me.txtWechselErhaltenAm._value = "" + Me.txtWechselErhaltenAm._Waehrung = False + Me.txtWechselErhaltenAm._WaehrungZeichen = True + Me.txtWechselErhaltenAm.ForeColor = System.Drawing.Color.Red + Me.txtWechselErhaltenAm.Location = New System.Drawing.Point(523, 277) + Me.txtWechselErhaltenAm.MaxLength = 10 + Me.txtWechselErhaltenAm.MaxLineLength = -1 + Me.txtWechselErhaltenAm.MaxLines_Warning = "" + Me.txtWechselErhaltenAm.MaxLines_Warning_Label = Nothing + Me.txtWechselErhaltenAm.Name = "txtWechselErhaltenAm" + Me.txtWechselErhaltenAm.Size = New System.Drawing.Size(70, 20) + Me.txtWechselErhaltenAm.TabIndex = 54 + Me.txtWechselErhaltenAm.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + 'Label106 + ' + Me.Label106.AutoSize = True + Me.Label106.Location = New System.Drawing.Point(281, 281) + Me.Label106.Name = "Label106" + Me.Label106.Size = New System.Drawing.Size(51, 13) + Me.Label106.TabIndex = 51 + Me.Label106.Text = "gültig bis:" + ' + 'Label107 + ' + Me.Label107.AutoSize = True + Me.Label107.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label107.Location = New System.Drawing.Point(4, 281) + Me.Label107.Name = "Label107" + Me.Label107.Size = New System.Drawing.Size(52, 13) + Me.Label107.TabIndex = 49 + Me.Label107.Text = "Wechsel:" + ' + 'txtWechselGueltigBis + ' + Me.txtWechselGueltigBis._DateTimeOnly = False + Me.txtWechselGueltigBis._numbersOnly = False + Me.txtWechselGueltigBis._numbersOnlyKommastellen = "" + Me.txtWechselGueltigBis._numbersOnlyTrennzeichen = True + Me.txtWechselGueltigBis._Prozent = False + Me.txtWechselGueltigBis._ShortDateNew = True + Me.txtWechselGueltigBis._ShortDateOnly = False + Me.txtWechselGueltigBis._TimeOnly = False + Me.txtWechselGueltigBis._TimeOnly_Seconds = False + Me.txtWechselGueltigBis._value = "" + Me.txtWechselGueltigBis._Waehrung = False + Me.txtWechselGueltigBis._WaehrungZeichen = True + Me.txtWechselGueltigBis.ForeColor = System.Drawing.Color.Red + Me.txtWechselGueltigBis.Location = New System.Drawing.Point(338, 278) + Me.txtWechselGueltigBis.MaxLength = 10 + Me.txtWechselGueltigBis.MaxLineLength = -1 + Me.txtWechselGueltigBis.MaxLines_Warning = "" + Me.txtWechselGueltigBis.MaxLines_Warning_Label = Nothing + Me.txtWechselGueltigBis.Name = "txtWechselGueltigBis" + Me.txtWechselGueltigBis.Size = New System.Drawing.Size(60, 20) + Me.txtWechselGueltigBis.TabIndex = 52 + Me.txtWechselGueltigBis.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + 'txtWechsel + ' + Me.txtWechsel._DateTimeOnly = False + Me.txtWechsel._numbersOnly = False + Me.txtWechsel._numbersOnlyKommastellen = "" + Me.txtWechsel._numbersOnlyTrennzeichen = True + Me.txtWechsel._Prozent = False + Me.txtWechsel._ShortDateNew = False + Me.txtWechsel._ShortDateOnly = False + Me.txtWechsel._TimeOnly = False + Me.txtWechsel._TimeOnly_Seconds = False + Me.txtWechsel._value = "" + Me.txtWechsel._Waehrung = True + Me.txtWechsel._WaehrungZeichen = True + Me.txtWechsel.ForeColor = System.Drawing.Color.Red + Me.txtWechsel.Location = New System.Drawing.Point(156, 278) + Me.txtWechsel.MaxLineLength = -1 + Me.txtWechsel.MaxLines_Warning = "" + Me.txtWechsel.MaxLines_Warning_Label = Nothing + Me.txtWechsel.Name = "txtWechsel" + Me.txtWechsel.Size = New System.Drawing.Size(100, 20) + Me.txtWechsel.TabIndex = 50 + Me.txtWechsel.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + 'Label104 + ' + Me.Label104.AutoSize = True + Me.Label104.Location = New System.Drawing.Point(419, 255) + Me.Label104.Name = "Label104" + Me.Label104.Size = New System.Drawing.Size(65, 13) + Me.Label104.TabIndex = 47 + Me.Label104.Text = "erhalten am:" + ' + 'txtBankgarantieErhaltenAm + ' + Me.txtBankgarantieErhaltenAm._DateTimeOnly = False + Me.txtBankgarantieErhaltenAm._numbersOnly = False + Me.txtBankgarantieErhaltenAm._numbersOnlyKommastellen = "" + Me.txtBankgarantieErhaltenAm._numbersOnlyTrennzeichen = True + Me.txtBankgarantieErhaltenAm._Prozent = False + Me.txtBankgarantieErhaltenAm._ShortDateNew = True + Me.txtBankgarantieErhaltenAm._ShortDateOnly = False + Me.txtBankgarantieErhaltenAm._TimeOnly = False + Me.txtBankgarantieErhaltenAm._TimeOnly_Seconds = False + Me.txtBankgarantieErhaltenAm._value = "" + Me.txtBankgarantieErhaltenAm._Waehrung = False + Me.txtBankgarantieErhaltenAm._WaehrungZeichen = True + Me.txtBankgarantieErhaltenAm.ForeColor = System.Drawing.Color.Red + Me.txtBankgarantieErhaltenAm.Location = New System.Drawing.Point(523, 252) + Me.txtBankgarantieErhaltenAm.MaxLength = 10 + Me.txtBankgarantieErhaltenAm.MaxLineLength = -1 + Me.txtBankgarantieErhaltenAm.MaxLines_Warning = "" + Me.txtBankgarantieErhaltenAm.MaxLines_Warning_Label = Nothing + Me.txtBankgarantieErhaltenAm.Name = "txtBankgarantieErhaltenAm" + Me.txtBankgarantieErhaltenAm.Size = New System.Drawing.Size(70, 20) + Me.txtBankgarantieErhaltenAm.TabIndex = 48 + Me.txtBankgarantieErhaltenAm.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' 'Label81 ' Me.Label81.AutoSize = True @@ -2077,7 +2241,7 @@ Partial Class usrcntlKundeBearbeitenFull 'Label59 ' Me.Label59.AutoSize = True - Me.Label59.Location = New System.Drawing.Point(281, 269) + Me.Label59.Location = New System.Drawing.Point(281, 256) Me.Label59.Name = "Label59" Me.Label59.Size = New System.Drawing.Size(51, 13) Me.Label59.TabIndex = 34 @@ -2086,7 +2250,7 @@ Partial Class usrcntlKundeBearbeitenFull 'Label57 ' Me.Label57.AutoSize = True - Me.Label57.Location = New System.Drawing.Point(302, 243) + Me.Label57.Location = New System.Drawing.Point(302, 230) Me.Label57.Name = "Label57" Me.Label57.Size = New System.Drawing.Size(30, 13) Me.Label57.TabIndex = 30 @@ -2105,7 +2269,7 @@ Partial Class usrcntlKundeBearbeitenFull ' Me.Label60.AutoSize = True Me.Label60.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label60.Location = New System.Drawing.Point(3, 295) + Me.Label60.Location = New System.Drawing.Point(3, 309) Me.Label60.Name = "Label60" Me.Label60.Size = New System.Drawing.Size(73, 13) Me.Label60.TabIndex = 36 @@ -2115,7 +2279,7 @@ Partial Class usrcntlKundeBearbeitenFull ' Me.Label58.AutoSize = True Me.Label58.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label58.Location = New System.Drawing.Point(4, 269) + Me.Label58.Location = New System.Drawing.Point(4, 256) Me.Label58.Name = "Label58" Me.Label58.Size = New System.Drawing.Size(103, 13) Me.Label58.TabIndex = 32 @@ -2124,7 +2288,7 @@ Partial Class usrcntlKundeBearbeitenFull 'Label53 ' Me.Label53.AutoSize = True - Me.Label53.Location = New System.Drawing.Point(302, 217) + Me.Label53.Location = New System.Drawing.Point(302, 204) Me.Label53.Name = "Label53" Me.Label53.Size = New System.Drawing.Size(30, 13) Me.Label53.TabIndex = 26 @@ -2134,7 +2298,7 @@ Partial Class usrcntlKundeBearbeitenFull ' Me.Label56.AutoSize = True Me.Label56.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label56.Location = New System.Drawing.Point(4, 243) + Me.Label56.Location = New System.Drawing.Point(4, 230) Me.Label56.Name = "Label56" Me.Label56.Size = New System.Drawing.Size(87, 13) Me.Label56.TabIndex = 28 @@ -2154,7 +2318,7 @@ Partial Class usrcntlKundeBearbeitenFull ' Me.Label52.AutoSize = True Me.Label52.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label52.Location = New System.Drawing.Point(4, 217) + Me.Label52.Location = New System.Drawing.Point(4, 204) Me.Label52.Name = "Label52" Me.Label52.Size = New System.Drawing.Size(79, 13) Me.Label52.TabIndex = 24 @@ -2438,7 +2602,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtVers_BankgarantiebetragGueltigBis._Waehrung = False Me.txtVers_BankgarantiebetragGueltigBis._WaehrungZeichen = True Me.txtVers_BankgarantiebetragGueltigBis.ForeColor = System.Drawing.Color.Red - Me.txtVers_BankgarantiebetragGueltigBis.Location = New System.Drawing.Point(338, 266) + Me.txtVers_BankgarantiebetragGueltigBis.Location = New System.Drawing.Point(338, 253) Me.txtVers_BankgarantiebetragGueltigBis.MaxLength = 10 Me.txtVers_BankgarantiebetragGueltigBis.MaxLineLength = -1 Me.txtVers_BankgarantiebetragGueltigBis.MaxLines_Warning = "" @@ -2463,7 +2627,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtVers_KreditlimitVon._Waehrung = False Me.txtVers_KreditlimitVon._WaehrungZeichen = True Me.txtVers_KreditlimitVon.ForeColor = System.Drawing.Color.Red - Me.txtVers_KreditlimitVon.Location = New System.Drawing.Point(338, 240) + Me.txtVers_KreditlimitVon.Location = New System.Drawing.Point(338, 227) Me.txtVers_KreditlimitVon.MaxLength = 10 Me.txtVers_KreditlimitVon.MaxLineLength = -1 Me.txtVers_KreditlimitVon.MaxLines_Warning = "" @@ -2488,7 +2652,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtVers_Saldo._Waehrung = True Me.txtVers_Saldo._WaehrungZeichen = True Me.txtVers_Saldo.ForeColor = System.Drawing.Color.Red - Me.txtVers_Saldo.Location = New System.Drawing.Point(156, 292) + Me.txtVers_Saldo.Location = New System.Drawing.Point(156, 306) Me.txtVers_Saldo.MaxLineLength = -1 Me.txtVers_Saldo.MaxLines_Warning = "" Me.txtVers_Saldo.MaxLines_Warning_Label = Nothing @@ -2537,7 +2701,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtVers_Bankgarantiebetrag._Waehrung = True Me.txtVers_Bankgarantiebetrag._WaehrungZeichen = True Me.txtVers_Bankgarantiebetrag.ForeColor = System.Drawing.Color.Red - Me.txtVers_Bankgarantiebetrag.Location = New System.Drawing.Point(156, 266) + Me.txtVers_Bankgarantiebetrag.Location = New System.Drawing.Point(156, 253) Me.txtVers_Bankgarantiebetrag.MaxLineLength = -1 Me.txtVers_Bankgarantiebetrag.MaxLines_Warning = "" Me.txtVers_Bankgarantiebetrag.MaxLines_Warning_Label = Nothing @@ -2561,7 +2725,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtVers_Kreditlimit._Waehrung = True Me.txtVers_Kreditlimit._WaehrungZeichen = True Me.txtVers_Kreditlimit.ForeColor = System.Drawing.Color.Red - Me.txtVers_Kreditlimit.Location = New System.Drawing.Point(156, 240) + Me.txtVers_Kreditlimit.Location = New System.Drawing.Point(156, 227) Me.txtVers_Kreditlimit.MaxLineLength = -1 Me.txtVers_Kreditlimit.MaxLines_Warning = "" Me.txtVers_Kreditlimit.MaxLines_Warning_Label = Nothing @@ -2585,7 +2749,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtVers_AntragssummeVon._Waehrung = False Me.txtVers_AntragssummeVon._WaehrungZeichen = True Me.txtVers_AntragssummeVon.ForeColor = System.Drawing.Color.Red - Me.txtVers_AntragssummeVon.Location = New System.Drawing.Point(338, 214) + Me.txtVers_AntragssummeVon.Location = New System.Drawing.Point(338, 201) Me.txtVers_AntragssummeVon.MaxLength = 10 Me.txtVers_AntragssummeVon.MaxLineLength = -1 Me.txtVers_AntragssummeVon.MaxLines_Warning = "" @@ -2634,7 +2798,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtVers_Antragssumme._Waehrung = True Me.txtVers_Antragssumme._WaehrungZeichen = True Me.txtVers_Antragssumme.ForeColor = System.Drawing.Color.Red - Me.txtVers_Antragssumme.Location = New System.Drawing.Point(156, 214) + Me.txtVers_Antragssumme.Location = New System.Drawing.Point(156, 201) Me.txtVers_Antragssumme.MaxLineLength = -1 Me.txtVers_Antragssumme.MaxLines_Warning = "" Me.txtVers_Antragssumme.MaxLines_Warning_Label = Nothing @@ -2884,8 +3048,8 @@ Partial Class usrcntlKundeBearbeitenFull ' Me.GroupBox4.Controls.Add(Me.Button10) Me.GroupBox4.Controls.Add(Me.Button9) - Me.GroupBox4.Controls.Add(Me.Button8) - Me.GroupBox4.Controls.Add(Me.Button7) + Me.GroupBox4.Controls.Add(Me.bntGOBOXUmstellung) + Me.GroupBox4.Controls.Add(Me.btnKKhinzufuegen) Me.GroupBox4.Controls.Add(Me.dgvKreditkarten) Me.GroupBox4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.GroupBox4.Location = New System.Drawing.Point(9, 69) @@ -2921,33 +3085,32 @@ Partial Class usrcntlKundeBearbeitenFull Me.Button9.Text = "Contract List" Me.Button9.UseVisualStyleBackColor = True ' - 'Button8 + 'bntGOBOXUmstellung ' - Me.Button8.Enabled = False - Me.Button8.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Button8.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button8.Location = New System.Drawing.Point(193, 338) - Me.Button8.Name = "Button8" - Me.Button8.Size = New System.Drawing.Size(152, 38) - Me.Button8.TabIndex = 2 - Me.Button8.Text = "GO-BOX-Umstellung" - Me.Button8.UseVisualStyleBackColor = True + Me.bntGOBOXUmstellung.Enabled = False + Me.bntGOBOXUmstellung.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.bntGOBOXUmstellung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.bntGOBOXUmstellung.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.bntGOBOXUmstellung.Location = New System.Drawing.Point(193, 338) + Me.bntGOBOXUmstellung.Name = "bntGOBOXUmstellung" + Me.bntGOBOXUmstellung.Size = New System.Drawing.Size(152, 38) + Me.bntGOBOXUmstellung.TabIndex = 2 + Me.bntGOBOXUmstellung.Text = "GO-BOX-Umstellung" + Me.bntGOBOXUmstellung.UseVisualStyleBackColor = True ' - 'Button7 + 'btnKKhinzufuegen ' - Me.Button7.Enabled = False - Me.Button7.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Button7.Image = Global.SDL.My.Resources.Resources.plus - Me.Button7.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button7.Location = New System.Drawing.Point(9, 338) - Me.Button7.Name = "Button7" - Me.Button7.Size = New System.Drawing.Size(178, 38) - Me.Button7.TabIndex = 1 - Me.Button7.Text = "Kreditkarte hinzufügen" - Me.Button7.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.Button7.UseVisualStyleBackColor = True + Me.btnKKhinzufuegen.Enabled = False + Me.btnKKhinzufuegen.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnKKhinzufuegen.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnKKhinzufuegen.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnKKhinzufuegen.Location = New System.Drawing.Point(9, 338) + Me.btnKKhinzufuegen.Name = "btnKKhinzufuegen" + Me.btnKKhinzufuegen.Size = New System.Drawing.Size(178, 38) + Me.btnKKhinzufuegen.TabIndex = 1 + Me.btnKKhinzufuegen.Text = "Kreditkarte hinzufügen" + Me.btnKKhinzufuegen.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnKKhinzufuegen.UseVisualStyleBackColor = True ' 'dgvKreditkarten ' @@ -3086,7 +3249,6 @@ Partial Class usrcntlKundeBearbeitenFull ' 'Button3 ' - Me.Button3.BackgroundImage = Global.SDL.My.Resources.Resources.druck Me.Button3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.Button3.FlatAppearance.BorderSize = 0 Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat @@ -3221,7 +3383,6 @@ Partial Class usrcntlKundeBearbeitenFull Me.btnUStVAendSpeichern.FlatAppearance.BorderSize = 0 Me.btnUStVAendSpeichern.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnUStVAendSpeichern.ForeColor = System.Drawing.Color.Black - Me.btnUStVAendSpeichern.Image = Global.SDL.My.Resources.Resources.save Me.btnUStVAendSpeichern.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnUStVAendSpeichern.Location = New System.Drawing.Point(509, 66) Me.btnUStVAendSpeichern.Name = "btnUStVAendSpeichern" @@ -3556,7 +3717,6 @@ Partial Class usrcntlKundeBearbeitenFull Me.btnSonstAendSpeichern.FlatAppearance.BorderSize = 0 Me.btnSonstAendSpeichern.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnSonstAendSpeichern.ForeColor = System.Drawing.Color.Black - Me.btnSonstAendSpeichern.Image = Global.SDL.My.Resources.Resources.save Me.btnSonstAendSpeichern.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnSonstAendSpeichern.Location = New System.Drawing.Point(512, 214) Me.btnSonstAendSpeichern.Name = "btnSonstAendSpeichern" @@ -3683,7 +3843,7 @@ Partial Class usrcntlKundeBearbeitenFull ' Me.lblEORI.AutoSize = True Me.lblEORI.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblEORI.Location = New System.Drawing.Point(8, 161) + Me.lblEORI.Location = New System.Drawing.Point(8, 136) Me.lblEORI.Name = "lblEORI" Me.lblEORI.Size = New System.Drawing.Size(78, 13) Me.lblEORI.TabIndex = 12 @@ -3693,7 +3853,7 @@ Partial Class usrcntlKundeBearbeitenFull ' Me.Label84.AutoSize = True Me.Label84.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label84.Location = New System.Drawing.Point(259, 112) + Me.Label84.Location = New System.Drawing.Point(259, 87) Me.Label84.Name = "Label84" Me.Label84.Size = New System.Drawing.Size(66, 13) Me.Label84.TabIndex = 8 @@ -3705,8 +3865,6 @@ Partial Class usrcntlKundeBearbeitenFull Me.GroupBox3.Controls.Add(Me.Label33) Me.GroupBox3.Controls.Add(Me.txtHandelsregisterNr) Me.GroupBox3.Controls.Add(Me.PictureBox5) - Me.GroupBox3.Controls.Add(Me.Label100) - Me.GroupBox3.Controls.Add(Me.txtAdresseZusatz) Me.GroupBox3.Controls.Add(Me.cbxUIDMehrfachverwendung) Me.GroupBox3.Controls.Add(Me.btnCreditsafe) Me.GroupBox3.Controls.Add(Me.Button13) @@ -3730,7 +3888,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.GroupBox3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.GroupBox3.Location = New System.Drawing.Point(3, 3) Me.GroupBox3.Name = "GroupBox3" - Me.GroupBox3.Size = New System.Drawing.Size(453, 209) + Me.GroupBox3.Size = New System.Drawing.Size(453, 189) Me.GroupBox3.TabIndex = 0 Me.GroupBox3.TabStop = False Me.GroupBox3.Text = "Firma" @@ -3750,7 +3908,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtGruendungsDatum._Waehrung = False Me.txtGruendungsDatum._WaehrungZeichen = True Me.txtGruendungsDatum.ForeColor = System.Drawing.Color.Red - Me.txtGruendungsDatum.Location = New System.Drawing.Point(110, 183) + Me.txtGruendungsDatum.Location = New System.Drawing.Point(110, 158) Me.txtGruendungsDatum.MaxLength = 10 Me.txtGruendungsDatum.MaxLineLength = -1 Me.txtGruendungsDatum.MaxLines_Warning = "" @@ -3764,7 +3922,7 @@ Partial Class usrcntlKundeBearbeitenFull ' Me.Label33.AutoSize = True Me.Label33.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label33.Location = New System.Drawing.Point(10, 186) + Me.Label33.Location = New System.Drawing.Point(10, 161) Me.Label33.Name = "Label33" Me.Label33.Size = New System.Drawing.Size(75, 13) Me.Label33.TabIndex = 134 @@ -3785,7 +3943,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtHandelsregisterNr._Waehrung = False Me.txtHandelsregisterNr._WaehrungZeichen = False Me.txtHandelsregisterNr.ForeColor = System.Drawing.Color.Black - Me.txtHandelsregisterNr.Location = New System.Drawing.Point(111, 134) + Me.txtHandelsregisterNr.Location = New System.Drawing.Point(111, 109) Me.txtHandelsregisterNr.MaxLength = 17 Me.txtHandelsregisterNr.MaxLineLength = -1 Me.txtHandelsregisterNr.MaxLines_Warning = "" @@ -3796,7 +3954,6 @@ Partial Class usrcntlKundeBearbeitenFull ' 'PictureBox5 ' - Me.PictureBox5.BackgroundImage = Global.SDL.My.Resources.Resources.fragezeichen Me.PictureBox5.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.PictureBox5.Location = New System.Drawing.Point(88, 62) Me.PictureBox5.Name = "PictureBox5" @@ -3805,30 +3962,11 @@ Partial Class usrcntlKundeBearbeitenFull Me.PictureBox5.TabStop = False Me.PictureBox5.Visible = False ' - 'Label100 - ' - Me.Label100.AutoSize = True - Me.Label100.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label100.Location = New System.Drawing.Point(8, 88) - Me.Label100.Name = "Label100" - Me.Label100.Size = New System.Drawing.Size(77, 13) - Me.Label100.TabIndex = 27 - Me.Label100.Text = "Adress-Zusatz:" - ' - 'txtAdresseZusatz - ' - Me.txtAdresseZusatz.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtAdresseZusatz.Location = New System.Drawing.Point(110, 84) - Me.txtAdresseZusatz.MaxLength = 50 - Me.txtAdresseZusatz.Name = "txtAdresseZusatz" - Me.txtAdresseZusatz.Size = New System.Drawing.Size(334, 20) - Me.txtAdresseZusatz.TabIndex = 26 - ' 'cbxUIDMehrfachverwendung ' Me.cbxUIDMehrfachverwendung.AutoSize = True Me.cbxUIDMehrfachverwendung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cbxUIDMehrfachverwendung.Location = New System.Drawing.Point(292, 184) + Me.cbxUIDMehrfachverwendung.Location = New System.Drawing.Point(292, 159) Me.cbxUIDMehrfachverwendung.Name = "cbxUIDMehrfachverwendung" Me.cbxUIDMehrfachverwendung.Size = New System.Drawing.Size(152, 17) Me.cbxUIDMehrfachverwendung.TabIndex = 25 @@ -3837,7 +3975,6 @@ Partial Class usrcntlKundeBearbeitenFull ' 'btnCreditsafe ' - Me.btnCreditsafe.BackgroundImage = Global.SDL.My.Resources.Resources.creditsafe_add1 Me.btnCreditsafe.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.btnCreditsafe.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnCreditsafe.Location = New System.Drawing.Point(9, 57) @@ -3849,11 +3986,10 @@ Partial Class usrcntlKundeBearbeitenFull ' 'Button13 ' - Me.Button13.BackgroundImage = Global.SDL.My.Resources.Resources.list Me.Button13.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.Button13.FlatAppearance.BorderSize = 0 Me.Button13.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button13.Location = New System.Drawing.Point(419, 109) + Me.Button13.Location = New System.Drawing.Point(419, 84) Me.Button13.Name = "Button13" Me.Button13.Size = New System.Drawing.Size(25, 20) Me.Button13.TabIndex = 16 @@ -3861,11 +3997,10 @@ Partial Class usrcntlKundeBearbeitenFull ' 'btnUIDPruef ' - Me.btnUIDPruef.BackgroundImage = Global.SDL.My.Resources.Resources.fragezeichen Me.btnUIDPruef.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.btnUIDPruef.FlatAppearance.BorderSize = 0 Me.btnUIDPruef.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnUIDPruef.Location = New System.Drawing.Point(397, 109) + Me.btnUIDPruef.Location = New System.Drawing.Point(397, 84) Me.btnUIDPruef.Name = "btnUIDPruef" Me.btnUIDPruef.Size = New System.Drawing.Size(25, 20) Me.btnUIDPruef.TabIndex = 15 @@ -3887,7 +4022,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtEORINL._Waehrung = False Me.txtEORINL._WaehrungZeichen = True Me.txtEORINL.ForeColor = System.Drawing.Color.Red - Me.txtEORINL.Location = New System.Drawing.Point(357, 158) + Me.txtEORINL.Location = New System.Drawing.Point(357, 133) Me.txtEORINL.MaxLength = 4 Me.txtEORINL.MaxLineLength = -1 Me.txtEORINL.MaxLines_Warning = "" @@ -3921,7 +4056,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtEORI._Waehrung = False Me.txtEORI._WaehrungZeichen = True Me.txtEORI.ForeColor = System.Drawing.Color.Black - Me.txtEORI.Location = New System.Drawing.Point(110, 158) + Me.txtEORI.Location = New System.Drawing.Point(110, 133) Me.txtEORI.MaxLength = 17 Me.txtEORI.MaxLineLength = -1 Me.txtEORI.MaxLines_Warning = "" @@ -3949,7 +4084,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.cboUSt_UstIdNrLand.FlatStyle = System.Windows.Forms.FlatStyle.System Me.cboUSt_UstIdNrLand.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.cboUSt_UstIdNrLand.FormattingEnabled = True - Me.cboUSt_UstIdNrLand.Location = New System.Drawing.Point(111, 109) + Me.cboUSt_UstIdNrLand.Location = New System.Drawing.Point(111, 84) Me.cboUSt_UstIdNrLand.Name = "cboUSt_UstIdNrLand" Me.cboUSt_UstIdNrLand.Size = New System.Drawing.Size(43, 21) Me.cboUSt_UstIdNrLand.TabIndex = 6 @@ -3958,7 +4093,7 @@ Partial Class usrcntlKundeBearbeitenFull ' Me.Label15.AutoSize = True Me.Label15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label15.Location = New System.Drawing.Point(8, 112) + Me.Label15.Location = New System.Drawing.Point(8, 87) Me.Label15.Name = "Label15" Me.Label15.Size = New System.Drawing.Size(39, 13) Me.Label15.TabIndex = 5 @@ -3989,7 +4124,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtUSt_UstIdNrGeprueftAm._Waehrung = False Me.txtUSt_UstIdNrGeprueftAm._WaehrungZeichen = True Me.txtUSt_UstIdNrGeprueftAm.ForeColor = System.Drawing.Color.Red - Me.txtUSt_UstIdNrGeprueftAm.Location = New System.Drawing.Point(324, 109) + Me.txtUSt_UstIdNrGeprueftAm.Location = New System.Drawing.Point(324, 84) Me.txtUSt_UstIdNrGeprueftAm.MaxLength = 10 Me.txtUSt_UstIdNrGeprueftAm.MaxLineLength = -1 Me.txtUSt_UstIdNrGeprueftAm.MaxLines_Warning = "" @@ -4023,7 +4158,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtUSt_UstIdNr._Waehrung = False Me.txtUSt_UstIdNr._WaehrungZeichen = True Me.txtUSt_UstIdNr.ForeColor = System.Drawing.Color.Black - Me.txtUSt_UstIdNr.Location = New System.Drawing.Point(154, 109) + Me.txtUSt_UstIdNr.Location = New System.Drawing.Point(154, 84) Me.txtUSt_UstIdNr.MaxLength = 12 Me.txtUSt_UstIdNr.MaxLineLength = -1 Me.txtUSt_UstIdNr.MaxLines_Warning = "" @@ -4046,7 +4181,7 @@ Partial Class usrcntlKundeBearbeitenFull ' Me.Label16.AutoSize = True Me.Label16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label16.Location = New System.Drawing.Point(240, 137) + Me.Label16.Location = New System.Drawing.Point(240, 112) Me.Label16.Name = "Label16" Me.Label16.Size = New System.Drawing.Size(78, 13) Me.Label16.TabIndex = 10 @@ -4067,7 +4202,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtUSt_Steuernummer._Waehrung = False Me.txtUSt_Steuernummer._WaehrungZeichen = True Me.txtUSt_Steuernummer.ForeColor = System.Drawing.Color.Black - Me.txtUSt_Steuernummer.Location = New System.Drawing.Point(324, 134) + Me.txtUSt_Steuernummer.Location = New System.Drawing.Point(324, 109) Me.txtUSt_Steuernummer.MaxLineLength = -1 Me.txtUSt_Steuernummer.MaxLines_Warning = "" Me.txtUSt_Steuernummer.MaxLines_Warning_Label = Nothing @@ -4080,27 +4215,48 @@ Partial Class usrcntlKundeBearbeitenFull ' Me.lblHandelregisterNr.AutoSize = True Me.lblHandelregisterNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblHandelregisterNr.Location = New System.Drawing.Point(8, 137) + Me.lblHandelregisterNr.Location = New System.Drawing.Point(8, 112) Me.lblHandelregisterNr.Name = "lblHandelregisterNr" Me.lblHandelregisterNr.Size = New System.Drawing.Size(100, 13) Me.lblHandelregisterNr.TabIndex = 132 Me.lblHandelregisterNr.Text = "Handelsregister-Nr.:" ' + 'Label100 + ' + Me.Label100.AutoSize = True + Me.Label100.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label100.Location = New System.Drawing.Point(6, 47) + Me.Label100.Name = "Label100" + Me.Label100.Size = New System.Drawing.Size(77, 13) + Me.Label100.TabIndex = 27 + Me.Label100.Text = "Adress-Zusatz:" + ' + 'txtAdresseZusatz + ' + Me.txtAdresseZusatz.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtAdresseZusatz.Location = New System.Drawing.Point(110, 44) + Me.txtAdresseZusatz.MaxLength = 50 + Me.txtAdresseZusatz.Name = "txtAdresseZusatz" + Me.txtAdresseZusatz.Size = New System.Drawing.Size(334, 20) + Me.txtAdresseZusatz.TabIndex = 26 + ' 'GroupBox1 ' Me.GroupBox1.Controls.Add(Me.cbxLandKz) Me.GroupBox1.Controls.Add(Me.Label14) Me.GroupBox1.Controls.Add(Me.txtPostfachOrt) Me.GroupBox1.Controls.Add(Me.txtOrt) + Me.GroupBox1.Controls.Add(Me.Label100) Me.GroupBox1.Controls.Add(Me.Label12) Me.GroupBox1.Controls.Add(Me.txtPostfachPlz) + Me.GroupBox1.Controls.Add(Me.txtAdresseZusatz) Me.GroupBox1.Controls.Add(Me.txtPlz) Me.GroupBox1.Controls.Add(Me.Label4) Me.GroupBox1.Controls.Add(Me.txtStrasse) Me.GroupBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.GroupBox1.Location = New System.Drawing.Point(3, 218) + Me.GroupBox1.Location = New System.Drawing.Point(3, 198) Me.GroupBox1.Name = "GroupBox1" - Me.GroupBox1.Size = New System.Drawing.Size(453, 102) + Me.GroupBox1.Size = New System.Drawing.Size(453, 139) Me.GroupBox1.TabIndex = 1 Me.GroupBox1.TabStop = False Me.GroupBox1.Text = "Adresse" @@ -4116,7 +4272,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.cbxLandKz.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.cbxLandKz.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.cbxLandKz.FormattingEnabled = True - Me.cbxLandKz.Location = New System.Drawing.Point(110, 49) + Me.cbxLandKz.Location = New System.Drawing.Point(110, 70) Me.cbxLandKz.Name = "cbxLandKz" Me.cbxLandKz.Size = New System.Drawing.Size(50, 21) Me.cbxLandKz.TabIndex = 3 @@ -4125,7 +4281,7 @@ Partial Class usrcntlKundeBearbeitenFull ' Me.Label14.AutoSize = True Me.Label14.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label14.Location = New System.Drawing.Point(6, 78) + Me.Label14.Location = New System.Drawing.Point(6, 99) Me.Label14.Name = "Label14" Me.Label14.Size = New System.Drawing.Size(100, 13) Me.Label14.TabIndex = 6 @@ -4134,7 +4290,7 @@ Partial Class usrcntlKundeBearbeitenFull 'txtPostfachOrt ' Me.txtPostfachOrt.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtPostfachOrt.Location = New System.Drawing.Point(243, 75) + Me.txtPostfachOrt.Location = New System.Drawing.Point(243, 96) Me.txtPostfachOrt.MaxLength = 40 Me.txtPostfachOrt.Name = "txtPostfachOrt" Me.txtPostfachOrt.Size = New System.Drawing.Size(201, 20) @@ -4143,7 +4299,7 @@ Partial Class usrcntlKundeBearbeitenFull 'txtOrt ' Me.txtOrt.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtOrt.Location = New System.Drawing.Point(243, 49) + Me.txtOrt.Location = New System.Drawing.Point(243, 70) Me.txtOrt.MaxLength = 40 Me.txtOrt.Name = "txtOrt" Me.txtOrt.Size = New System.Drawing.Size(201, 20) @@ -4153,7 +4309,7 @@ Partial Class usrcntlKundeBearbeitenFull ' Me.Label12.AutoSize = True Me.Label12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label12.Location = New System.Drawing.Point(6, 52) + Me.Label12.Location = New System.Drawing.Point(6, 73) Me.Label12.Name = "Label12" Me.Label12.Size = New System.Drawing.Size(90, 13) Me.Label12.TabIndex = 2 @@ -4162,7 +4318,7 @@ Partial Class usrcntlKundeBearbeitenFull 'txtPostfachPlz ' Me.txtPostfachPlz.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtPostfachPlz.Location = New System.Drawing.Point(110, 75) + Me.txtPostfachPlz.Location = New System.Drawing.Point(110, 96) Me.txtPostfachPlz.MaxLength = 7 Me.txtPostfachPlz.Name = "txtPostfachPlz" Me.txtPostfachPlz.Size = New System.Drawing.Size(127, 20) @@ -4171,7 +4327,7 @@ Partial Class usrcntlKundeBearbeitenFull 'txtPlz ' Me.txtPlz.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtPlz.Location = New System.Drawing.Point(166, 49) + Me.txtPlz.Location = New System.Drawing.Point(166, 70) Me.txtPlz.MaxLength = 7 Me.txtPlz.Name = "txtPlz" Me.txtPlz.Size = New System.Drawing.Size(71, 20) @@ -4884,8 +5040,8 @@ Partial Class usrcntlKundeBearbeitenFull Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox Friend WithEvents Button10 As System.Windows.Forms.Button Friend WithEvents Button9 As System.Windows.Forms.Button - Friend WithEvents Button8 As System.Windows.Forms.Button - Friend WithEvents Button7 As System.Windows.Forms.Button + Friend WithEvents bntGOBOXUmstellung As System.Windows.Forms.Button + Friend WithEvents btnKKhinzufuegen As System.Windows.Forms.Button Friend WithEvents dgvKreditkarten As System.Windows.Forms.DataGridView Friend WithEvents txtBank_Kto As System.Windows.Forms.TextBox Friend WithEvents Label22 As System.Windows.Forms.Label @@ -5127,4 +5283,13 @@ Partial Class usrcntlKundeBearbeitenFull Friend WithEvents cbxKapitalWaehrung As VERAG_PROG_ALLGEMEIN.MyComboBox Friend WithEvents Label103 As Label Friend WithEvents txtKapital As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents cbxBlanko As CheckBox + Friend WithEvents Label105 As Label + Friend WithEvents txtWechselErhaltenAm As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label106 As Label + Friend WithEvents Label107 As Label + Friend WithEvents txtWechselGueltigBis As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtWechsel As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label104 As Label + Friend WithEvents txtBankgarantieErhaltenAm As VERAG_PROG_ALLGEMEIN.MyTextBox End Class diff --git a/SDL/kunden/usrcntlKundeBearbeitenFull.vb b/SDL/kunden/usrcntlKundeBearbeitenFull.vb index 3b3ec8f5..bb12e030 100644 --- a/SDL/kunden/usrcntlKundeBearbeitenFull.vb +++ b/SDL/kunden/usrcntlKundeBearbeitenFull.vb @@ -1,5 +1,6 @@ Imports System.ComponentModel Imports com.sun.org.apache.bcel.internal.generic +Imports com.sun.tools.javac Imports GrapeCity.ActiveReports.ReportsCore.Tools Imports java.rmi.server Imports VERAG_PROG_ALLGEMEIN @@ -98,8 +99,13 @@ Public Class usrcntlKundeBearbeitenFull If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE" And Not isVerag360 Then cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 9900000-9999999: FRONT-OFFICE - Kunden", "9900000-9999999")) + End If + bntGOBOXUmstellung.Enabled = isVerag360 + btnKKhinzufuegen.Enabled = isVerag360 + Button9.Enabled = isVerag360 + usrCntlAufschubkonten.initMe(kdnr) ucKundenKontakte.btn.Visible = (kdnr > 0) @@ -249,6 +255,13 @@ Public Class usrcntlKundeBearbeitenFull txtVers_KreditlimitVon._value = loadValue(KUNDE.Kreditlimit_vom, "") txtVers_Bankgarantiebetrag._value = loadValue(KUNDE.BankgarantieBetrag, "") txtVers_BankgarantiebetragGueltigBis._value = loadValue(KUNDE.BankgarantieGültigBis, "") + + txtBankgarantieErhaltenAm._value = loadValue(KUNDE_ERW.kde_BankgarantielErhaltenAm, "") + txtWechsel._value = loadValue(KUNDE_ERW.kde_WechselBetrag, "") + txtWechselGueltigBis._value = loadValue(KUNDE_ERW.kde_WechselGueltigBis, "") + txtWechselErhaltenAm._value = loadValue(KUNDE_ERW.kde_WechselErhaltenAm, "") + cbxBlanko.Checked = KUNDE_ERW.kde_WechselBlanko + txtVers_Information.Text = loadValue(KUNDE.Info, "") rtb_Zahlungsinfo.Text = loadValue(KUNDE.Zahlungsinformationen, "") txtVers_Saldo._value = loadValue(KUNDE.LfdSaldo, "") @@ -264,7 +277,7 @@ Public Class usrcntlKundeBearbeitenFull txtVersicherung_GemeldeterBetrag._value = loadValue(KUNDE_ERW.kde_Versicherung_GemeldeterBetrag, "") txtVers_EHNr.Text = loadValue(KUNDE_ERW.kde_txtVersicherungEHNr, "").ToString - cbxInkassoUebergeben.Checked = KUNDE_ERW.kde_Inkasso_Uebergeben + txtInkassoUebergebenAm._value = loadValue(KUNDE_ERW.kde_Inkasso_UebergebenAm, "") txtInkasso_GemeldeterBetrag._value = KUNDE_ERW.[kde_Inkasso_GemeldeterBetrag] @@ -641,6 +654,14 @@ Public Class usrcntlKundeBearbeitenFull KUNDE_ERW.kde_Versicherung_AnerkennungVersicherungsfallAm = isLeerNothing(txtAnerkVersFallAm._value) KUNDE_ERW.kde_Versicherung_AnerkennungVersicherungsfallAb = isLeerNothing(txtAnerkVersFallAb._value) + KUNDE_ERW.kde_BankgarantielErhaltenAm = isLeerNothing(txtBankgarantieErhaltenAm._value) + KUNDE_ERW.kde_WechselBlanko = cbxBlanko.Checked + KUNDE_ERW.kde_WechselBetrag = isLeerNothing(txtWechsel._value) + KUNDE_ERW.kde_WechselErhaltenAm = isLeerNothing(txtWechselErhaltenAm._value) + KUNDE_ERW.kde_WechselGueltigBis = isLeerNothing(txtWechselGueltigBis._value) + + + KUNDE_ERW.kde_txtVersicherungDeckungsquote = isLeerNothingDbl(txtVersicherungDeckungsquote._value) KUNDE_ERW.kde_txtVersicherungNichtVersicherbar = cbxNichtVersicherbar.Checked KUNDE_ERW.kde_Versicherung_GemeldeterBetrag = isLeerNothingDbl(txtVersicherung_GemeldeterBetrag._value) @@ -996,27 +1017,9 @@ Public Class usrcntlKundeBearbeitenFull End If If tbcntrDetails.SelectedTab Is tbBank Then - With dgvKreditkarten - .DataSource = sql.loadDgvBySql("SELECT [AdressenNr],KartenNr,Kartenfreischaltungsdatum as [Freisch.Dat.],CAST(Kartenablaufmonat AS varchar(2)) + '/' + CAST(Kartenablaufjahr AS varchar(2))as [Ablauf-Dat.],Kartensperre as Sperre,Kartensperrdatum as [Sperrdat.],NeueKartenNr,NeueKartenNrGemeldet as Gemeldet" & - " FROM [Kreditkarten] " & - " WHERE [AdressenNr]='" & KUNDE.KundenNr & "' ORDER BY Kartensperre, Kartenablaufjahr DESC,Kartenablaufmonat DESC", "FMZOLL") - .Columns(0).Visible = False - .Columns(1).MinimumWidth = 120 - .Columns(1).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill + initdgvKreditkarten() - .Columns(2).Width = 70 - '.Columns(3).DefaultCellStyle.Format = "N2" - .Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter - .Columns(3).Width = 70 - .Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter - .Columns(4).Width = 50 - .Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter - .Columns(5).Width = 70 - .Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter - .Columns(6).Width = 160 - .Columns(7).Width = 70 - End With End If @@ -1347,7 +1350,7 @@ Public Class usrcntlKundeBearbeitenFull Case "100000-199999" If isVerag360 Then - cbxFiBu.Checked = False : cboFirma.changeItem("19") : cboFiliale.changeItem("8001") + cbxFiBu.Checked = True : cboFirma.changeItem("19") : cboFiliale.changeItem("8001") Else cbxFiBu.Checked = False : cboFirma.changeItem("1") : cboFiliale.changeItem("4803") End If @@ -1647,4 +1650,215 @@ Public Class usrcntlKundeBearbeitenFull Dim webAddress As String = "https://wiki.verag.ag/software/aviso/howtos/Creditsafe" Process.Start(webAddress) End Sub + + Private Sub Button7_Click(sender As Object, e As EventArgs) Handles btnKKhinzufuegen.Click + + + + If ADRESSE.AdressenNr < 0 Then Exit Sub + + Try + + + Dim kkNr As String + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + For i = 1 To 9999 + + kkNr = 990001 + Dim adr As String = "" + + If ADRESSE.AdressenNr.ToString.Length > 6 Then + adr = ADRESSE.AdressenNr.ToString.Substring(ADRESSE.AdressenNr.ToString.Length - 6, 6) + Else + adr = ADRESSE.AdressenNr + End If + + kkNr &= CInt(adr).ToString.PadLeft(6, "0") + kkNr &= i.ToString.PadLeft(4, "0") + kkNr = kkNr & (fktMod10Prüfziffer(kkNr)) + + If SQL.DLookup("COUNT(*)", "Kreditkarten", "KartenNr='" & kkNr & "'", "FMZOLL", 0) > 0 Then + If i = 1 Then + If vbNo = MsgBox("Eine Karte mit der Kartennummer " & kkNr & " existiert bereits." & vbNewLine & "Soll eine Folgekarte erzeugt werden?", vbYesNo) Then + Exit Sub + End If + End If + Else + 'Anlage KK + Dim Kartenablaufmonat As Integer = 12 + Dim Kartenablaufjahr As Integer = 99 + Dim Kartensperre As Integer = 0 + Dim strList = "AdressenNr, KartenNr,Kartenfreischaltungsdatum,Kartenablaufmonat,Kartenablaufjahr,Kartensperre,Zeitstempel,Sachbearbeiter" + Dim values = "" & ADRESSE.AdressenNr & "," & kkNr & ",'" & Today() & "'," & Kartenablaufmonat & "," & Kartenablaufjahr & "," & Kartensperre & ",'" & Now() & "','" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & "'" + + If SQL.doSQL("INSERT INTO [Kreditkarten] (" & strList & ") VALUES(" & values & ") ", "FMZOLL") Then + MsgBox("Kreditkarte " & kkNr & " angelegt.") + initdgvKreditkarten() + Exit Sub + End If + + End If + + + Next + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + + + '' Kartennummer mit Prüfziffer erzeugen. + 'For intZlr = 1 To 9999 + ' strCardNum = "990001" & Format(Right(Me!AdressenNr, 6), "000000") & Format(Right(intZlr, 4), "0000") + ' strCardNum = strCardNum & (fktMod10(strCardNum)) + ' Set qry = dbs.QueryDefs("qry_GO_BOX_KreditkartenVerwalten") + ' qry.Parameters("[Bitte AdressenNr eingeben]") = Me!AdressenNr + ' qry.Parameters("[Bitte KartenNr eingeben]") = strCardNum + ' Set rst = qry.OpenRecordset(dbOpenDynaset) + ' If rst.EOF Then + ' ' Kreditkarte in die Tabelle eintragen. + ' rst.AddNew + ' rst!AdressenNr = Me!AdressenNr + ' rst!KartenNr = strCardNum + ' rst!Kartenfreischaltungsdatum = Date + ' rst!Kartenablaufmonat = 12 + ' rst!Kartenablaufjahr = 99 + ' rst!Kartensperre = 0 + ' rst!Zeitstempel = Now + ' rst!Sachbearbeiter = UCase(CurrentUser()) + ' rst.Update + ' rst.Close + ' qry.Close + ' Me!Kreditkarten.Requery + ' Exit For + ' End If + ' rst.Close + ' qry.Close + + + ' If intZlr = 1 Then + ' strPrompt = "Eine Kreditkarte mit der Kartennummer " & strCardNum & " existiert bereits." & vbCrLf & + ' "Soll eine Folgekarte erzeugt werden?" + ' strTitle = "Kreditkarte hinzufügen" + ' If (MsgBox(strPrompt, vbYesNo + vbDefaultButton2 + vbInformation, strTitle)) = vbNo Then + ' Exit For + ' End If + ' End If + 'Next intZlr + + + + + End Sub + + Private Sub Button8_Click(sender As Object, e As EventArgs) Handles bntGOBOXUmstellung.Click + If KUNDE Is Nothing Then Exit Sub + + Try + Dim f As New frmGoMautBoxen(KUNDE, ADRESSE, KUNDE_ERW) + f.ShowDialog() + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + + End Sub + + Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click + + + If ADRESSE.AdressenNr < 0 Then Exit Sub + Try + + + Dim frm As New Form + Dim dgv As New DataGridView() + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Dim dt As DataTable = SQL.loadDgvBySql("Select Kreditkarten.KartenNr FROM Kreditkarten WHERE Kreditkarten.AdressenNr=" & ADRESSE.AdressenNr, "FMZOLL") + + If dt.Rows.Count < 1 Then + MsgBox("Keine Kreditkarte für diesen Kunden vorhanden.") + Exit Sub + End If + + dgv.DataSource = dt + If dgv IsNot Nothing Then + frm.Size = New Size(500, 500) + dgv.Size = New Size(frm.Size.Width - 10, frm.Size.Height - 10) + dgv.Dock = DockStyle.Fill + dgv.Anchor = AnchorStyles.Left + dgv.Anchor = AnchorStyles.Top + dgv.ReadOnly = True + frm.Controls.Add(dgv) + frm.StartPosition = FormStartPosition.CenterScreen + frm.ShowDialog() + End If + + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + + End Sub + + Shared Function fktMod10Prüfziffer(strNummer As String) As String + ' Der Funktion wird im Feld strNummer der Wert ohne Prüfziffer übergeben. + ' Die Funktion berechnet und liefert die Prüfziffer zurück. + + Dim intIX As Integer + Dim intZSum As Integer + Dim intSum As Integer + Dim boo1 As Boolean + + For intIX = Len(strNummer) To 1 Step -1 + intZSum = IIf(boo1, Mid(strNummer, intIX, 1) * 1, Mid(strNummer, intIX, 1) * 2) + If intZSum < 10 Then + intSum = intSum + intZSum + Else + intSum = intSum + ((intZSum Mod 10) + ((intZSum - (intZSum Mod 10)) / 10)) + End If + boo1 = Not boo1 + Next intIX + + fktMod10Prüfziffer = CStr((10 - (intSum Mod 10)) Mod 10) + + End Function + + + Sub initdgvKreditkarten() + + With dgvKreditkarten + .DataSource = sql.loadDgvBySql("SELECT [AdressenNr],KartenNr,Kartenfreischaltungsdatum as [Freisch.Dat.],CAST(Kartenablaufmonat AS varchar(2)) + '/' + CAST(Kartenablaufjahr AS varchar(2))as [Ablauf-Dat.],Kartensperre as Sperre,Kartensperrdatum as [Sperrdat.],NeueKartenNr,NeueKartenNrGemeldet as Gemeldet" & + " FROM [Kreditkarten] " & + " WHERE [AdressenNr]='" & KUNDE.KundenNr & "' ORDER BY Kartensperre, Kartenablaufjahr DESC,Kartenablaufmonat DESC", "FMZOLL") + .Columns(0).Visible = False + + .Columns(1).MinimumWidth = 120 + .Columns(1).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill + + .Columns(2).Width = 70 + '.Columns(3).DefaultCellStyle.Format = "N2" + .Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter + .Columns(3).Width = 70 + .Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter + .Columns(4).Width = 50 + .Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter + .Columns(5).Width = 70 + .Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter + .Columns(6).Width = 160 + .Columns(7).Width = 70 + End With + + End Sub + + Private Sub cbxBlanko_CheckedChanged(sender As Object, e As EventArgs) Handles cbxBlanko.CheckedChanged + If cbxBlanko.Checked Then + txtWechsel.Text = "" + txtWechsel.Enabled = False + Else + txtWechsel.Enabled = True + End If + End Sub End Class diff --git a/SDL/mdm/frmMDMDatenverarbetiung.vb b/SDL/mdm/frmMDMDatenverarbetiung.vb index f180fdf9..a52300be 100644 --- a/SDL/mdm/frmMDMDatenverarbetiung.vb +++ b/SDL/mdm/frmMDMDatenverarbetiung.vb @@ -3484,8 +3484,7 @@ Public Class frmMDMDatenverarbetiung Dim hint As String = "" If fehlendeTransactionen > 500 Then hint = "Batch-Nr: " - hint &= SQL.getValueTxtBySql("select distinct(trans.batch_seq_nr) FROM [VERAG].[dbo].[tblMSESettlements] where [invoice_date] = '" & DateTimePicker2.Text & "' AND [transaction_id] not in (select [transaction_id] from [VERAG].[dbo].[tblMSETransactions]) ", "FMZOLL") - + hint &= SQL.getValueTxtBySql("select distinct(trans.batch_seq_nr) FROM [VERAG].[dbo].[tblMSESettlements] as settle INNER JOIN [VERAG].[dbo].[tblMSETransactions] as trans on trans.transaction_id = settle.transaction_id where [invoice_date] = '" & DateTimePicker2.Text & "' AND trans.[transaction_id] not in (select [transaction_id] from [VERAG].[dbo].[tblMSETransactions]) ", "FMZOLL") End If MsgBox("Es fehlen " & fehlendeTransactionen & " Transaktionen in der Datenbank!" & vbNewLine & "Diese Transaktionen (von Rechnung " & DateTimePicker2.Text & ") müssen nachgeladen werden (bitte an Administrator wenden)." & IIf(hint <> "", vbNewLine & hint, "")) End If diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cFirmen.vb b/VERAG_PROG_ALLGEMEIN/Classes/cFirmen.vb index 24e7ea98..6b5d8b5d 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cFirmen.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cFirmen.vb @@ -29,6 +29,7 @@ Public Class cFirmen Property Firma_Webadresse As Object = Nothing ' NVARCHAR (40) NULL, Property Firma_LandKz As Object = Nothing ' NVARCHAR (40) NULL, + Property Firmengruppe As Object = Nothing Dim SQL As New SQL @@ -70,6 +71,7 @@ Public Class cFirmen list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_E_Mail_Mahnungen", Firma_E_Mail_Mahnungen, "Firma_E_Mail_Mahnungen")) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_Webadresse", Firma_Webadresse)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_LandKz", Firma_LandKz)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firmengruppe", Firmengruppe)) Return list diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb b/VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb index 0cacc5e3..86acabfa 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb @@ -81,6 +81,15 @@ Public Class cKundenErweitert Property kde_Kapital As Object = Nothing Property kde_KapitalWaehrung As Object = Nothing Property kde_GruendungsDatum As Object = Nothing + Property kde_WechselBetrag As Object = Nothing + Property kde_WechselGueltigBis As Object = Nothing + Property kde_WechselErhaltenAm As Object = Nothing + Property kde_BankgarantielErhaltenAm As Object = Nothing + Property kde_WechselBlanko As Boolean = False + + + + Dim SQL As New SQL @@ -163,6 +172,13 @@ Public Class cKundenErweitert list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_Kapital", kde_Kapital)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_KapitalWaehrung", kde_KapitalWaehrung)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_GruendungsDatum", kde_GruendungsDatum)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_WechselBetrag", kde_WechselBetrag)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_WechselGueltigBis", kde_WechselGueltigBis)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_WechselErhaltenAm", kde_WechselErhaltenAm)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_BankgarantielErhaltenAm", kde_BankgarantielErhaltenAm)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_WechselBlanko", kde_WechselBlanko)) + + Return list End Function diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb b/VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb index 115ddd7b..d09bbb4d 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb @@ -94,9 +94,7 @@ Public Class cMitarbeiter Property mit_Sprachkentnisse As Object = Nothing Property mit_homeoffice As Boolean = False Property mit_timasNichtStempeln As Boolean = False - - - + Property mit_ausstempelnBeiBeenden As Boolean = False Dim SQL As New SQL @@ -207,6 +205,8 @@ Public Class cMitarbeiter list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_homeoffice", mit_homeoffice)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_timasNichtStempeln", mit_timasNichtStempeln)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_emailprivat", mit_emailprivat)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_ausstempelnBeiBeenden", mit_ausstempelnBeiBeenden)) + Return list @@ -408,6 +408,7 @@ Public Class cMitarbeiter Me.mit_homeoffice = dr.Item("mit_homeoffice") Me.mit_timasNichtStempeln = dr.Item("mit_timasNichtStempeln") If Not dr.Item("mit_emailprivat") Is DBNull.Value Then Me.mit_emailprivat = dr.Item("mit_emailprivat") + Me.mit_timasNichtStempeln = dr.Item("mit_ausstempelnBeiBeenden") Catch ex As Exception diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cTextkonserve.vb b/VERAG_PROG_ALLGEMEIN/Classes/cTextkonserve.vb index ad4d1168..a0443e83 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cTextkonserve.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cTextkonserve.vb @@ -15,6 +15,20 @@ Public Class cTextkonserve_LIST End Sub + Sub New(txt_Type As Integer, txt_sprache As String, txt_FIRMA As String) + + LOAD_LIST_TYPE(txt_Type, txt_sprache, txt_FIRMA) + + End Sub + + + Sub New(txt_Type As Integer, txt_sprache As String, FIRMAID As Integer) + + Dim FIRMA As New VERAG_PROG_ALLGEMEIN.cFirmen(FIRMAID) + LOAD_LIST_TYPE(txt_Type, txt_sprache, FIRMA.Firmengruppe) + + End Sub + Sub New(txt_FIRMA As String) LOAD_SPRACHENLIST(txt_FIRMA) @@ -39,6 +53,26 @@ Public Class cTextkonserve_LIST End Try End Sub + Public Sub LOAD_LIST_TYPE(txt_type As Integer, txt_sprache As String, txt_FIRMA As String) + Try + + LIST.Clear() + Dim sqlSprache As String = "" + If txt_sprache <> "" Then sqlSprache = " And txt_sprache = '" & txt_sprache & "'" + + + For Each r In SQL.loadDgvBySql("Select txt_Id FROM [tblTextkonserve] WHERE txt_typ='" & txt_type & "' AND txt_FIRMA = '" & txt_FIRMA & "' and txt_dynMailvorlage = 1" & sqlSprache & " ORDER BY txt_kategorie asc", "FMZOLL").Rows + LIST.Add(New VERAG_PROG_ALLGEMEIN.cTextkonserve(r("txt_Id"))) + 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 Sub LOAD_SPRACHENLIST(txt_FIRMA As String) Try @@ -74,6 +108,7 @@ Public Class cTextkonserve Property txt_sendungsvermerkId As Integer Property txt_sendungsvermerkText As String Property txt_fixerEmpfaengerEmail As String + Property txt_typ As Object @@ -119,6 +154,7 @@ Public Class cTextkonserve list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("txt_sendungsvermerkId", txt_sendungsvermerkId)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("txt_sendungsvermerkText", txt_sendungsvermerkText)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("txt_fixerEmpfaengerEmail", txt_fixerEmpfaengerEmail)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("txt_typ", txt_typ)) Return list End Function diff --git a/VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb b/VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb index 5581b9e5..9cea8186 100644 --- a/VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb +++ b/VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb @@ -990,16 +990,20 @@ Public Class cFormularManager Try Dim f = stamper.AcroFields - f.GenerateAppearances = True - For Each r In f.Fields - Dim key = r.Key.ToString - Dim value = IIf(f.GetField(r.Key.ToString) = "", " ", r.Key.ToString) - Dim listItem As VERAG_PROG_ALLGEMEIN.MyListItem - listItem = New VERAG_PROG_ALLGEMEIN.MyListItem(r.Key.ToString, f.GetField(r.Key.ToString)) + If f IsNot Nothing Then + f.GenerateAppearances = True + For Each r In f.Fields + Dim key = r.Key.ToString + Dim value = IIf(f.GetField(r.Key.ToString) = "", " ", r.Key.ToString) + Dim listItem As VERAG_PROG_ALLGEMEIN.MyListItem + listItem = New VERAG_PROG_ALLGEMEIN.MyListItem(r.Key.ToString, f.GetField(r.Key.ToString)) + list.Add(listItem) - list.Add(listItem) + Next + Else + MsgBox("In der Vorlage wurden sind keine ausfühlbaren Felder vorhanden!") + End If - Next Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) diff --git a/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.Designer.vb b/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.Designer.vb index 01e0a751..ec52704b 100644 --- a/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.Designer.vb +++ b/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.Designer.vb @@ -24,7 +24,6 @@ Partial Class frmMessenger '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() @@ -39,12 +38,12 @@ Partial Class frmMessenger Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMessenger)) Me.SplitContainer = New System.Windows.Forms.SplitContainer() Me.SplitContainer2 = New System.Windows.Forms.SplitContainer() - Me.dgvChats = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.dgvChats = New VERAG_PROG_ALLGEMEIN.MyDatagridview() Me.Panel6 = New System.Windows.Forms.Panel() Me.Label3 = New System.Windows.Forms.Label() Me.lblLKWChat_MsgCntInaktiv = New System.Windows.Forms.Label() Me.cbxInaktiveChats = New System.Windows.Forms.CheckBox() - Me.DGVSonstige = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.DGVSonstige = New VERAG_PROG_ALLGEMEIN.MyDatagridview() Me.Panel5 = New System.Windows.Forms.Panel() Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.PictureBox2 = New System.Windows.Forms.PictureBox() @@ -65,7 +64,7 @@ Partial Class frmMessenger Me.btnNeu = New System.Windows.Forms.Button() Me.Button1 = New System.Windows.Forms.Button() Me.SplitContainer1 = New System.Windows.Forms.SplitContainer() - Me.MyFlowLayoutPanel1 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel(Me.components) + Me.MyFlowLayoutPanel1 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel() Me.UsrCntlMessenger_ChatElement1 = New VERAG_PROG_ALLGEMEIN.usrCntlMessenger_ChatElement() Me.Panel3 = New System.Windows.Forms.Panel() Me.btnTeilnehmer = New System.Windows.Forms.Button() @@ -93,9 +92,9 @@ Partial Class frmMessenger Me.btnSendAtt = New System.Windows.Forms.Button() Me.btnSenden = New System.Windows.Forms.Button() Me.rtbChatMessage = New System.Windows.Forms.RichTextBox() - Me.TimerNEW_MESSAGE = New System.Windows.Forms.Timer(Me.components) - Me.Timer_REFRESH = New System.Windows.Forms.Timer(Me.components) - Me.cntxt = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.TimerNEW_MESSAGE = New System.Windows.Forms.Timer() + Me.Timer_REFRESH = New System.Windows.Forms.Timer() + Me.cntxt = New System.Windows.Forms.ContextMenuStrip() Me.ChatDeaktivierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.toolChatReminder = New System.Windows.Forms.ToolStripMenuItem() Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()