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

Merge branch 'master' of https://verag.visualstudio.com/SDL/_git/SDL

Browse Source
This commit is contained in:
Andreas Luxbauer
2024-09-09 08:18:28 +02:00
parent cca0257f79 aad1cea1e9
commit 3ad1e4dbfc
31 changed files with 6223 additions and 1098 deletions
Download Patch File Download Diff File Expand all files Collapse all files

128
SDL/Fakturierung/frmFaktEmail.vb
View File

@@ -325,8 +325,8 @@ Public Class frmFaktEmail
Dim outl As New Outlook.Application Dim outl As New Outlook.Application
Dim Mail As Microsoft.Office.Interop.Outlook.MailItem Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
Mail = outl.CreateItem(0) Mail = outl.CreateItem(0)
Mail.Subject = txtSubject.Text Mail.Subject = txtSubject.Text
If Firma_ID = 24 Then If Firma_ID = 24 Then
Try Try
@@ -343,7 +343,7 @@ Public Class frmFaktEmail
Next Next
End If End If
Catch ex As Exception 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 Try
End If End If
@@ -351,64 +351,64 @@ Public Class frmFaktEmail
'Mail-Adressen eintragen 'Mail-Adressen eintragen
'----------------------------------------------------------------- '-----------------------------------------------------------------
For Each r In dgvEmail.Rows For Each r In dgvEmail.Rows
If r.cells(0).value <> "" Then Mail.To &= r.cells(0).value & ";" If r.cells(0).value <> "" Then Mail.To &= r.cells(0).value & ";"
Next Next
For Each r In dgvEmailCC.Rows For Each r In dgvEmailCC.Rows
If r.cells(0).value <> "" Then Mail.CC &= r.cells(0).value & ";" If r.cells(0).value <> "" Then Mail.CC &= r.cells(0).value & ";"
Next Next
For Each r In dgvEmailBCC.Rows For Each r In dgvEmailBCC.Rows
If r.cells(0).value <> "" Then Mail.BCC &= r.cells(0).value & ";" If r.cells(0).value <> "" Then Mail.BCC &= r.cells(0).value & ";"
Next Next
RichTextBox.Text = RichTextBox.Text.Replace("%RgNr%", lastAktuelle_RgNr) RichTextBox.Text = RichTextBox.Text.Replace("%RgNr%", lastAktuelle_RgNr)
txtSubject.Text = txtSubject.Text.Replace("%RgNr%", lastAktuelle_RgNr) txtSubject.Text = txtSubject.Text.Replace("%RgNr%", lastAktuelle_RgNr)
Dim TextHTML = "<div style=""font-family:Calibri, Arial"">" & RichTextBox.Text.Replace(ControlChars.Lf, "<br>") & cFakturierung.getSignature(AD.LandKz, Firma_ID,,,, additionalLine,, IIf(Firma_ID = "24", True, False)) & "</div>" Dim TextHTML = "<div style=""font-family:Calibri, Arial"">" & RichTextBox.Text.Replace(ControlChars.Lf, "<br>") & cFakturierung.getSignature(AD.LandKz, Firma_ID,,,, additionalLine,, IIf(Firma_ID = "24", True, False)) & "</div>"
Mail.HTMLBody = TextHTML Mail.HTMLBody = TextHTML
Mail.Subject = txtSubject.Text Mail.Subject = txtSubject.Text
ATTACHMENTS.Clear() ATTACHMENTS.Clear()
'----------------------------------------------------------------- '-----------------------------------------------------------------
'Rechnungen anfügen 'Rechnungen anfügen
'----------------------------------------------------------------- '-----------------------------------------------------------------
For Each l In listPDFs For Each l In listPDFs
' Mail.Attachments.Add(l, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue) ' Mail.Attachments.Add(l, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
ATTACHMENTS.Add(New cFakt_MailATTach(l, "")) 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 Next
For Each l In SonstAnlagen End If
' 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
'-----------------------------------------------------------------
addAttachments(Mail, lastAktuelle_RgNr, cbxMergePDF.Checked) addAttachments(Mail, lastAktuelle_RgNr, cbxMergePDF.Checked)
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then
Try Try
@@ -419,16 +419,16 @@ Public Class frmFaktEmail
End If End If
Mail.Display() Mail.Display()
'------------------------------------------------------------------------------------------ '------------------------------------------------------------------------------------------
' STB /FA SR: ABFRAGE FISKAL-VZ ' STB /FA SR: ABFRAGE FISKAL-VZ
If isFiskal Then If isFiskal Then
send_StbFAMail(AD.AdressenNr, " Rg-Nr.: " & lastAktuelle_RgNr, lastAktuelle_RgNr) send_StbFAMail(AD.AdressenNr, " Rg-Nr.: " & lastAktuelle_RgNr, lastAktuelle_RgNr)
End If
'------------------------------------------------------------------------------------------
End If End If
'------------------------------------------------------------------------------------------
End If
Catch ex As Exception 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) 'Process.Start(a)
End Try End Try
@@ -463,7 +463,7 @@ Public Class frmFaktEmail
Next Next
End If End If
Catch ex As Exception 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 Try
End If End If
@@ -540,7 +540,7 @@ Public Class frmFaktEmail
Try Try
Mail.SentOnBehalfOfName = "buchhaltung@ambarlog.de" Mail.SentOnBehalfOfName = "buchhaltung@ambarlog.de"
Catch ex2 As Exception Catch ex2 As Exception
MsgBox(ex2.Message) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex2.Message, ex2.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try End Try
End If End If
@@ -553,7 +553,7 @@ Public Class frmFaktEmail
'------------------------------------------------------------------------------------------ '------------------------------------------------------------------------------------------
Catch ex As Exception 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) 'Process.Start(a)
End Try End Try
@@ -720,7 +720,7 @@ Public Class frmFaktEmail
End If End If
Catch ex As Exception 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 Try
End Sub End Sub
@@ -776,7 +776,7 @@ Public Class frmFaktEmail
'----------------------------------------------------------------- '-----------------------------------------------------------------
Catch ex As Exception 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 Try
End Sub End Sub
@@ -868,7 +868,7 @@ Public Class frmFaktEmail
End If End If
Catch ex As Exception 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 Try
End Sub End Sub

188
SDL/Formulare/KDFormulare/FormulareBaukasten/usrCntlQualitaetskontrolle.Designer.vb generated
View File

@@ -22,15 +22,15 @@ Partial Class usrCntlQualitaetskontrolle
'Das Bearbeiten mit dem Code-Editor ist nicht möglich. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> <System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent() Private Sub InitializeComponent()
Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle2 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.Label46 = New System.Windows.Forms.Label()
Me.Button2 = New System.Windows.Forms.Button() Me.Button2 = New System.Windows.Forms.Button()
Me.Label40 = New System.Windows.Forms.Label() Me.Label40 = New System.Windows.Forms.Label()
@@ -62,6 +62,12 @@ Partial Class usrCntlQualitaetskontrolle
Me.txtFirma = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtFirma = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label30 = New System.Windows.Forms.Label() Me.Label30 = New System.Windows.Forms.Label()
Me.dgvPositionen = New System.Windows.Forms.DataGridView() 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.txtPackAdresse2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtPackAdresse1 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtPackAdresse1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtPackFirma = 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.cbxVerzicht = New System.Windows.Forms.CheckBox()
Me.txtSumme = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtSumme = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label18 = New System.Windows.Forms.Label() Me.Label18 = New System.Windows.Forms.Label()
Me.pos = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.btnVermarktungsnorman = New System.Windows.Forms.Button()
Me.anZ_pkgstk = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.btnPreise = New System.Windows.Forms.Button()
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()
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.dgvPositionen, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.dgvPositionen, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.dgvGebuehren, 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.Size = New System.Drawing.Size(791, 345)
Me.dgvPositionen.TabIndex = 156 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 'txtPackAdresse2
' '
Me.txtPackAdresse2._DateTimeOnly = False Me.txtPackAdresse2._DateTimeOnly = False
@@ -802,10 +848,10 @@ Partial Class usrCntlQualitaetskontrolle
' '
'DataGridViewTextBoxColumn1 'DataGridViewTextBoxColumn1
' '
DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
DataGridViewCellStyle3.Format = "N0" DataGridViewCellStyle12.Format = "N0"
DataGridViewCellStyle3.NullValue = Nothing DataGridViewCellStyle12.NullValue = Nothing
Me.DataGridViewTextBoxColumn1.DefaultCellStyle = DataGridViewCellStyle3 Me.DataGridViewTextBoxColumn1.DefaultCellStyle = DataGridViewCellStyle12
Me.DataGridViewTextBoxColumn1.Frozen = True Me.DataGridViewTextBoxColumn1.Frozen = True
Me.DataGridViewTextBoxColumn1.HeaderText = "Position" Me.DataGridViewTextBoxColumn1.HeaderText = "Position"
Me.DataGridViewTextBoxColumn1.MaxInputLength = 3 Me.DataGridViewTextBoxColumn1.MaxInputLength = 3
@@ -827,20 +873,20 @@ Partial Class usrCntlQualitaetskontrolle
'DataGridViewTextBoxColumn4 'DataGridViewTextBoxColumn4
' '
Me.DataGridViewTextBoxColumn4.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill Me.DataGridViewTextBoxColumn4.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight DataGridViewCellStyle13.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
DataGridViewCellStyle4.Format = "N2" DataGridViewCellStyle13.Format = "N2"
DataGridViewCellStyle4.NullValue = Nothing DataGridViewCellStyle13.NullValue = Nothing
Me.DataGridViewTextBoxColumn4.DefaultCellStyle = DataGridViewCellStyle4 Me.DataGridViewTextBoxColumn4.DefaultCellStyle = DataGridViewCellStyle13
Me.DataGridViewTextBoxColumn4.HeaderText = "Gewicht" Me.DataGridViewTextBoxColumn4.HeaderText = "Gewicht"
Me.DataGridViewTextBoxColumn4.MaxInputLength = 100 Me.DataGridViewTextBoxColumn4.MaxInputLength = 100
Me.DataGridViewTextBoxColumn4.Name = "DataGridViewTextBoxColumn4" Me.DataGridViewTextBoxColumn4.Name = "DataGridViewTextBoxColumn4"
' '
'DataGridViewTextBoxColumn5 'DataGridViewTextBoxColumn5
' '
DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight DataGridViewCellStyle14.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
DataGridViewCellStyle5.Format = "N2" DataGridViewCellStyle14.Format = "N2"
DataGridViewCellStyle5.NullValue = Nothing DataGridViewCellStyle14.NullValue = Nothing
Me.DataGridViewTextBoxColumn5.DefaultCellStyle = DataGridViewCellStyle5 Me.DataGridViewTextBoxColumn5.DefaultCellStyle = DataGridViewCellStyle14
Me.DataGridViewTextBoxColumn5.HeaderText = "Gewicht" Me.DataGridViewTextBoxColumn5.HeaderText = "Gewicht"
Me.DataGridViewTextBoxColumn5.MaxInputLength = 100 Me.DataGridViewTextBoxColumn5.MaxInputLength = 100
Me.DataGridViewTextBoxColumn5.Name = "DataGridViewTextBoxColumn5" Me.DataGridViewTextBoxColumn5.Name = "DataGridViewTextBoxColumn5"
@@ -959,37 +1005,37 @@ Partial Class usrCntlQualitaetskontrolle
' '
'gew 'gew
' '
DataGridViewCellStyle6.Format = "N2" DataGridViewCellStyle15.Format = "N2"
DataGridViewCellStyle6.NullValue = Nothing DataGridViewCellStyle15.NullValue = Nothing
Me.gew.DefaultCellStyle = DataGridViewCellStyle6 Me.gew.DefaultCellStyle = DataGridViewCellStyle15
Me.gew.HeaderText = "Gewicht" Me.gew.HeaderText = "Gewicht"
Me.gew.Name = "gew" Me.gew.Name = "gew"
Me.gew.ReadOnly = True Me.gew.ReadOnly = True
' '
'Preis 'Preis
' '
DataGridViewCellStyle7.Format = "C2" DataGridViewCellStyle16.Format = "C2"
DataGridViewCellStyle7.NullValue = Nothing DataGridViewCellStyle16.NullValue = Nothing
Me.Preis.DefaultCellStyle = DataGridViewCellStyle7 Me.Preis.DefaultCellStyle = DataGridViewCellStyle16
Me.Preis.HeaderText = "Preis" Me.Preis.HeaderText = "Preis"
Me.Preis.Name = "Preis" Me.Preis.Name = "Preis"
Me.Preis.ReadOnly = True Me.Preis.ReadOnly = True
' '
'Faktor 'Faktor
' '
DataGridViewCellStyle8.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleCenter DataGridViewCellStyle17.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleCenter
DataGridViewCellStyle8.Format = "N0" DataGridViewCellStyle17.Format = "N0"
DataGridViewCellStyle8.NullValue = Nothing DataGridViewCellStyle17.NullValue = Nothing
Me.Faktor.DefaultCellStyle = DataGridViewCellStyle8 Me.Faktor.DefaultCellStyle = DataGridViewCellStyle17
Me.Faktor.HeaderText = "Faktor" Me.Faktor.HeaderText = "Faktor"
Me.Faktor.Name = "Faktor" Me.Faktor.Name = "Faktor"
Me.Faktor.ReadOnly = True Me.Faktor.ReadOnly = True
' '
'Betrag 'Betrag
' '
DataGridViewCellStyle9.Format = "C2" DataGridViewCellStyle18.Format = "C2"
DataGridViewCellStyle9.NullValue = Nothing DataGridViewCellStyle18.NullValue = Nothing
Me.Betrag.DefaultCellStyle = DataGridViewCellStyle9 Me.Betrag.DefaultCellStyle = DataGridViewCellStyle18
Me.Betrag.HeaderText = "Betrag" Me.Betrag.HeaderText = "Betrag"
Me.Betrag.Name = "Betrag" Me.Betrag.Name = "Betrag"
Me.Betrag.ReadOnly = True Me.Betrag.ReadOnly = True
@@ -1051,49 +1097,27 @@ Partial Class usrCntlQualitaetskontrolle
Me.Label18.TabIndex = 192 Me.Label18.TabIndex = 192
Me.Label18.Text = "Betrag:" Me.Label18.Text = "Betrag:"
' '
'pos 'btnVermarktungsnorman
' '
DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight Me.btnVermarktungsnorman.FlatStyle = System.Windows.Forms.FlatStyle.Flat
DataGridViewCellStyle1.Format = "N0" Me.btnVermarktungsnorman.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
DataGridViewCellStyle1.NullValue = Nothing Me.btnVermarktungsnorman.Location = New System.Drawing.Point(24, 736)
Me.pos.DefaultCellStyle = DataGridViewCellStyle1 Me.btnVermarktungsnorman.Name = "btnVermarktungsnorman"
Me.pos.Frozen = True Me.btnVermarktungsnorman.Size = New System.Drawing.Size(127, 24)
Me.pos.HeaderText = "Position" Me.btnVermarktungsnorman.TabIndex = 194
Me.pos.MaxInputLength = 3 Me.btnVermarktungsnorman.Text = "Vermarktungsnormen"
Me.pos.Name = "pos" Me.btnVermarktungsnorman.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.pos.ReadOnly = True Me.btnVermarktungsnorman.UseVisualStyleBackColor = True
Me.pos.Width = 50
' '
'anZ_pkgstk 'btnPreise
' '
Me.anZ_pkgstk.HeaderText = "Anz-Packs." Me.btnPreise.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.anZ_pkgstk.Name = "anZ_pkgstk" Me.btnPreise.Location = New System.Drawing.Point(24, 766)
' Me.btnPreise.Name = "btnPreise"
'art_pkgstk Me.btnPreise.Size = New System.Drawing.Size(127, 24)
' Me.btnPreise.TabIndex = 195
Me.art_pkgstk.HeaderText = "Art-Packs" Me.btnPreise.Text = "Preise"
Me.art_pkgstk.Name = "art_pkgstk" Me.btnPreise.UseVisualStyleBackColor = True
'
'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"
' '
'usrCntlQualitaetskontrolle 'usrCntlQualitaetskontrolle
' '
@@ -1101,6 +1125,8 @@ Partial Class usrCntlQualitaetskontrolle
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.WhiteSmoke Me.BackColor = System.Drawing.Color.WhiteSmoke
Me.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle 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.txtSumme)
Me.Controls.Add(Me.Label18) Me.Controls.Add(Me.Label18)
Me.Controls.Add(Me.cbxVerzicht) Me.Controls.Add(Me.cbxVerzicht)
@@ -1250,4 +1276,6 @@ Partial Class usrCntlQualitaetskontrolle
Friend WithEvents erzeugnis As DataGridViewTextBoxColumn Friend WithEvents erzeugnis As DataGridViewTextBoxColumn
Friend WithEvents gewicht As DataGridViewTextBoxColumn Friend WithEvents gewicht As DataGridViewTextBoxColumn
Friend WithEvents KNCode As DataGridViewTextBoxColumn Friend WithEvents KNCode As DataGridViewTextBoxColumn
Friend WithEvents btnVermarktungsnorman As Button
Friend WithEvents btnPreise As Button
End Class End Class

33
SDL/Formulare/KDFormulare/FormulareBaukasten/usrCntlQualitaetskontrolle.resx
View File

@@ -135,6 +135,39 @@
<metadata name="KNCode.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089"> <metadata name="KNCode.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value> <value>True</value>
</metadata> </metadata>
<metadata name="pos.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="anZ_pkgstk.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="art_pkgstk.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="erzeugnis.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="gewicht.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="KNCode.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="Art.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="gew.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="Preis.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="Faktor.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="Betrag.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="Art.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089"> <metadata name="Art.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value> <value>True</value>
</metadata> </metadata>

196
SDL/Formulare/KDFormulare/FormulareBaukasten/usrCntlQualitaetskontrolle.vb
View File

@@ -1,4 +1,5 @@
Imports DAKOSY_Worker.DEXPSD Imports System.Security.Claims
Imports DAKOSY_Worker.DEXPSD
Imports DocumentFormat.OpenXml.Drawing.Diagrams Imports DocumentFormat.OpenXml.Drawing.Diagrams
Imports VERAG_PROG_ALLGEMEIN Imports VERAG_PROG_ALLGEMEIN
@@ -437,97 +438,170 @@ Public Class usrCntlQualitaetskontrolle
End Sub 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() Private Sub initdgvGebuehren()
If dgvGebuehren.Rows.Count > 0 Then dgvGebuehren.Rows.Clear() Try
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
Dim sumNormenAllg As Double = 0 If dgvGebuehren.Rows.Count > 0 Then dgvGebuehren.Rows.Clear()
Dim sumNormenSpez As Double = 0 Dim posVorhanden As Boolean = False
Dim antrag, verzicht, idk As Double If dgvPositionen.Rows.Count < 1 Then Exit Sub
antrag = 40.7
verzicht = 9.3 If normenSpeziell.Rows.Count < 1 Or normenSpeziell.Rows.Count < 1 Then Exit Sub
idk = 39.4
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 r As DataGridViewRow In dgvPositionen.Rows
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
Next Dim found As Boolean = False
If Not found Then
For Each row As DataRow In normenAllg.Rows If r IsNot Nothing And IsNumeric(r.Cells(4).Value) AndAlso r.Cells(4).Value >= 1000 Then
Dim code = row("kncode").trim() 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 Dim searchedCode = r.Cells(5).Value
If searchedCode = searchedCode.ToString.Substring(0, code.Length) Then searchedCode = searchedCode.ToString.Substring(0, code.Length)
sumNormenAllg += r.Cells(4).Value If code = searchedCode Then
sumNormenSpez += r.Cells(4).Value
found = True found = True
Exit For Exit For
End If End If
Next 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
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 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
If cbxVerzicht.Checked Then dgvGebuehren.Rows.Clear()
dgvGebuehren.Rows.Clear() dgvGebuehren.Rows.Add("Antrag", "", antrag, "", antrag)
dgvGebuehren.Rows.Add("Antrag", "", antrag, "", antrag) dgvGebuehren.Rows.Add("Verzicht", "", verzicht, "", verzicht)
dgvGebuehren.Rows.Add("Verzicht", "", verzicht, "", verzicht) Else
Else dgvGebuehren.Rows.Add("Antrag", "", antrag, "", antrag)
dgvGebuehren.Rows.Add("Antrag", "", antrag, "", antrag) dgvGebuehren.Rows.Add("Identitätskontrolle", "", idk, "", idk)
dgvGebuehren.Rows.Add("Identitätskontrolle", "", idk, "", idk) End If
End If
Dim sumBetrag As Double = 0 Dim sumBetrag As Double = 0
For Each r As DataGridViewRow In dgvGebuehren.Rows For Each r As DataGridViewRow In dgvGebuehren.Rows
If IsNumeric(r.Cells(4).Value) Then sumBetrag += r.Cells(4).Value If IsNumeric(r.Cells(4).Value) Then sumBetrag += r.Cells(4).Value
Next 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 End Sub

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

@@ -1626,48 +1626,55 @@ Public Class FormularManagerNEU
End Function End Function
Shared Function VM_MDM_BHI(usrCntl As usrcntlVollmacht_MDM_BHI) As String Shared Function VM_MDM_BHI(usrCntl As usrcntlVollmacht_MDM_BHI) As String
Try
'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)
Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues) 'aktuell nur als PDF
Dim listItem2 As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem)
For Each item In list
Select Case item.Text.ToLower().Trim() Dim list As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem)
Case "name" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtFirma.Text)) Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager
Case "company" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtFirma.Text)) list = fm.getPDFFields_Editierbar("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", "MDM", "", "VM_BHI_" & usrCntl.cboLand._value)
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))
End Select
'surname_firstname Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
'surname Dim listItem2 As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem)
'lastname For Each item In list
'place_date
'vat_country
'place
'c_mailcontact
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 End Function
@@ -1708,7 +1715,7 @@ Public Class FormularManagerNEU
Case "name_2" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtFirma.Text 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 "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 "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 "place" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtAdresse3.Text
Case "street" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtAdresse1.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, "") 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 "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 "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 "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_name" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Bez
Case "c_name1" : 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 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_zipcode" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Ort
Case "c_vatno" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_UID 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_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_bank" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Bankverbindung1
Case "c_iban" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_IBAN1.Replace("IBAN:", "") 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 "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 "capital" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtKapital.Text & " " & usrCntl.cbxKapitalWahrung._value
Case "crnumber" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtHRNr.Text Case "crnumber" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtHRNr.Text
@@ -1790,7 +1798,7 @@ Public Class FormularManagerNEU
End If End If
Catch ex As Exception 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 End Try
Return striList Return striList
@@ -1857,11 +1865,11 @@ Public Class FormularManagerNEU
Case "c_zipcode" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Ort Case "c_zipcode" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Ort
Case "c_vatno" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_UID 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_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_bank" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Bankverbindung1
Case "c_iban" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_IBAN1.Replace("IBAN:", "") 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 "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 "capital" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtKapital.Text & " " & usrCntl.cbxKapitalWahrung._value
Case "crnumber" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtHRNr.Text Case "crnumber" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtHRNr.Text

18
SDL/SDL.vbproj
View File

@@ -716,6 +716,12 @@
<Compile Include="kunden\Berichte\rptFiskalkunde.vb"> <Compile Include="kunden\Berichte\rptFiskalkunde.vb">
<SubType>Component</SubType> <SubType>Component</SubType>
</Compile> </Compile>
<Compile Include="kunden\frmGoMautBoxen_Bestellung.Designer.vb">
<DependentUpon>frmGoMautBoxen_Bestellung.vb</DependentUpon>
</Compile>
<Compile Include="kunden\frmGoMautBoxen_Bestellung.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="kunden\frmKundenTOBBKdNr.Designer.vb"> <Compile Include="kunden\frmKundenTOBBKdNr.Designer.vb">
<DependentUpon>frmKundenTOBBKdNr.vb</DependentUpon> <DependentUpon>frmKundenTOBBKdNr.vb</DependentUpon>
</Compile> </Compile>
@@ -752,6 +758,12 @@
<Compile Include="kunden\frmKundenZOLLVollmachtenUebersicht.vb"> <Compile Include="kunden\frmKundenZOLLVollmachtenUebersicht.vb">
<SubType>Form</SubType> <SubType>Form</SubType>
</Compile> </Compile>
<Compile Include="kunden\frmGoMautBoxen.Designer.vb">
<DependentUpon>frmGoMautBoxen.vb</DependentUpon>
</Compile>
<Compile Include="kunden\frmGoMautBoxen.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="kunden\Teams\frmKundeAnsprechpartnerTeams.Designer.vb"> <Compile Include="kunden\Teams\frmKundeAnsprechpartnerTeams.Designer.vb">
<DependentUpon>frmKundeAnsprechpartnerTeams.vb</DependentUpon> <DependentUpon>frmKundeAnsprechpartnerTeams.vb</DependentUpon>
</Compile> </Compile>
@@ -3233,6 +3245,9 @@
<EmbeddedResource Include="kunden\Berichte\rptFiskalkunde.resx"> <EmbeddedResource Include="kunden\Berichte\rptFiskalkunde.resx">
<DependentUpon>rptFiskalkunde.vb</DependentUpon> <DependentUpon>rptFiskalkunde.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="kunden\frmGoMautBoxen_Bestellung.resx">
<DependentUpon>frmGoMautBoxen_Bestellung.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="kunden\frmKundenTOBBKdNr.resx"> <EmbeddedResource Include="kunden\frmKundenTOBBKdNr.resx">
<DependentUpon>frmKundenTOBBKdNr.vb</DependentUpon> <DependentUpon>frmKundenTOBBKdNr.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
@@ -3251,6 +3266,9 @@
<EmbeddedResource Include="kunden\frmKundenZOLLVollmachtenUebersicht.resx"> <EmbeddedResource Include="kunden\frmKundenZOLLVollmachtenUebersicht.resx">
<DependentUpon>frmKundenZOLLVollmachtenUebersicht.vb</DependentUpon> <DependentUpon>frmKundenZOLLVollmachtenUebersicht.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="kunden\frmGoMautBoxen.resx">
<DependentUpon>frmGoMautBoxen.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="kunden\Teams\frmKundeAnsprechpartnerTeams.resx"> <EmbeddedResource Include="kunden\Teams\frmKundeAnsprechpartnerTeams.resx">
<DependentUpon>frmKundeAnsprechpartnerTeams.vb</DependentUpon> <DependentUpon>frmKundeAnsprechpartnerTeams.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>

4
SDL/USTV/usrCntlUSTV.vb
View File

@@ -73,11 +73,11 @@ Public Class usrCntlUSTV
.Columns("LandKz").Width = 60 .Columns("LandKz").Width = 60
.Columns("UStVAn_ReDatVon").HeaderText = "Von" .Columns("UStVAn_ReDatVon").HeaderText = "Von"
.Columns("UStVAn_ReDatVon").DefaultCellStyle = DataGridViewCellStyleDate '.Columns("UStVAn_ReDatVon").DefaultCellStyle = DataGridViewCellStyleDate
.Columns("UStVAn_ReDatVon").Width = 100 .Columns("UStVAn_ReDatVon").Width = 100
.Columns("UStVAn_ReDatBis").HeaderText = "Bis" .Columns("UStVAn_ReDatBis").HeaderText = "Bis"
.Columns("UStVAn_ReDatBis").DefaultCellStyle = DataGridViewCellStyleDate '.Columns("UStVAn_ReDatBis").DefaultCellStyle = DataGridViewCellStyleDate
.Columns("UStVAn_ReDatBis").Width = 100 .Columns("UStVAn_ReDatBis").Width = 100
.Columns("UStVAn_BezugsNr").HeaderText = "BezugsNr" .Columns("UStVAn_BezugsNr").HeaderText = "BezugsNr"

26
SDL/buchhaltung/frmBU_Mahnlauf.Designer.vb generated
View File

@@ -40,6 +40,7 @@ Partial Class frmBU_Mahnlauf
Me.Panel2 = New System.Windows.Forms.Panel() Me.Panel2 = New System.Windows.Forms.Panel()
Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.Panel3 = New System.Windows.Forms.Panel() Me.Panel3 = New System.Windows.Forms.Panel()
Me.Button7 = New System.Windows.Forms.Button()
Me.cbxMahnstufeErh = New System.Windows.Forms.CheckBox() Me.cbxMahnstufeErh = New System.Windows.Forms.CheckBox()
Me.Label8 = New System.Windows.Forms.Label() Me.Label8 = New System.Windows.Forms.Label()
Me.Button6 = New System.Windows.Forms.Button() Me.Button6 = New System.Windows.Forms.Button()
@@ -54,7 +55,6 @@ Partial Class frmBU_Mahnlauf
Me.Button2 = New System.Windows.Forms.Button() Me.Button2 = New System.Windows.Forms.Button()
Me.Button1 = New System.Windows.Forms.Button() Me.Button1 = New System.Windows.Forms.Button()
Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Button7 = New System.Windows.Forms.Button()
Me.Panel1.SuspendLayout() Me.Panel1.SuspendLayout()
Me.pnlTop.SuspendLayout() Me.pnlTop.SuspendLayout()
Me.Panel2.SuspendLayout() Me.Panel2.SuspendLayout()
@@ -288,6 +288,18 @@ Partial Class frmBU_Mahnlauf
Me.Panel3.Size = New System.Drawing.Size(1287, 147) Me.Panel3.Size = New System.Drawing.Size(1287, 147)
Me.Panel3.TabIndex = 1 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 'cbxMahnstufeErh
' '
Me.cbxMahnstufeErh.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) 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.TabIndex = 39
Me.MyTextBox2.TextAlign = System.Windows.Forms.HorizontalAlignment.Right 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 'frmBU_Mahnlauf
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)

176
SDL/buchhaltung/frmBU_Mahnlauf.vb
View File

@@ -1,9 +1,13 @@
Imports System.Globalization Imports System.Globalization
Imports System.Windows
Imports Microsoft.Office.Interop Imports Microsoft.Office.Interop
Imports VERAG_PROG_ALLGEMEIN
Imports VERAG_PROG_ALLGEMEIN.TESTJSON
Public Class frmBU_Mahnlauf Public Class frmBU_Mahnlauf
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL 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 Private Sub btnSuche_Click(sender As Object, e As EventArgs) Handles btnSuche.Click
initDGV() initDGV()
End Sub End Sub
@@ -251,6 +255,7 @@ Public Class frmBU_Mahnlauf
' If RECHNUNG Is Nothing Then MsgBox("Fehler beim Laden der Rechnungsdaten!") : Return False ' If RECHNUNG Is Nothing Then MsgBox("Fehler beim Laden der Rechnungsdaten!") : Return False
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim listOfTextconserven = New cTextkonserve_LIST(2, "", Firma_ID)
Try Try
Dim KD As New VERAG_PROG_ALLGEMEIN.cKunde(KdNr) Dim KD As New VERAG_PROG_ALLGEMEIN.cKunde(KdNr)
@@ -536,47 +541,106 @@ Public Class frmBU_Mahnlauf
Dim Mail_CC = "" Dim Mail_CC = ""
Dim Mail_BCC = "" Dim Mail_BCC = ""
Select Case AD.LandKz
Case "TR"
Mail_Subject = "PAYMENT REMINDER" & IIf(KdNr > 0, " - Cust.: " & KdNr, "")
Mail_HTMLBody = "Sayin bayanlar ve baylar,<br><br>ekli dosyada sirketimize olan borcunuza dair acik kalem listemizi iletiyoruz.<br>Listeyi kontrol edip, eksik fatura varsa bildirmenizi rica ederiz."
Mail_HTMLBody &= "<br><br>"
'Mail_HTMLBody &= "Vadesi dolmus olan faturalarin, en kisa sürede asagidaki hesabimiza havale yapilmasini önemle arz ederiz. "
Mail_HTMLBody &= "<br>Gecikmiş faturaları mümkün olan en kısa sürede hesabımıza aktarmanızı rica ederiz."
Mail_HTMLBody &= "<br>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 &= "<br><br>" If Firma_ID = 19 Then 'dynMailvorlage aktuell nur Verag360!
'Mail_HTMLBody &= "Garanti Bank Hadimköy/TR TR 96 0006 2000 5440 0009 0672 28 Kto.: 544<br>Hesap Sahibi: Verag Spedition AG EURO Hesabi<br>"
'Mail_HTMLBody &= "Sizden geri dönüs beklemekteyiz."
'Mail_HTMLBody &= "<br><br>"
Mail_HTMLBody &= "Iyi calismalar diler, saygilarimizi sunariz"
Mail_HTMLBody &= "<br><br><br>"
Mail_HTMLBody &= "<i>If you are not responsible for this matter, please send us an e-mail address to <b>buchhaltung@verag.ag</b>,
to which future reminders should be sent.<br>
In the meantime, we ask you to forward them to the responsible persons in your company.</i>"
Mail_HTMLBody &= "<br><br><br>" & cFakturierung.getSignature(AD.LandKz, FIRMA.Firma_ID)
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, "") Dim spracheMahnung As String = "EN" 'Defaultsprache
Mail_HTMLBody = "Sehr geehrte Damen und Herren,<br><br>im Anhang finden Sie ihre Mahnung, mit der Bitte um Bearbeitung. "
Mail_HTMLBody &= "<br><br><br>"
Mail_HTMLBody &= "<i>Sollten Sie für diesen Sachverhalt nicht zuständig sein, teilen Sie uns bitte per Mail an <b>buchhaltung@verag.ag</b> eine Mailadresse mit,
an welche zukünftig die Mahnungen versandt werden sollen.<br>
Derweil bitten wir um Weiterleitung an die zuständigen Personen in ihrem Haus.</i>"
Mail_HTMLBody &= "<br><br><br>Mit freundlichen Grüßen<br><br>" & cFakturierung.getSignature(AD.LandKz, FIRMA.Firma_ID)
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 = "<div style=""font-family:Calibri, Arial"">" & TextHTML & "</div>"
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 &= "<br><br><br>" & 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,<br><br>ekli dosyada sirketimize olan borcunuza dair acik kalem listemizi iletiyoruz.<br>Listeyi kontrol edip, eksik fatura varsa bildirmenizi rica ederiz."
Mail_HTMLBody &= "<br><br>"
'Mail_HTMLBody &= "Vadesi dolmus olan faturalarin, en kisa sürede asagidaki hesabimiza havale yapilmasini önemle arz ederiz. "
Mail_HTMLBody &= "<br>Gecikmiş faturaları mümkün olan en kısa sürede hesabımıza aktarmanızı rica ederiz."
Mail_HTMLBody &= "<br>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 &= "<br><br>"
'Mail_HTMLBody &= "Garanti Bank Hadimköy/TR TR 96 0006 2000 5440 0009 0672 28 Kto.: 544<br>Hesap Sahibi: Verag Spedition AG EURO Hesabi<br>"
'Mail_HTMLBody &= "Sizden geri dönüs beklemekteyiz."
'Mail_HTMLBody &= "<br><br>"
Mail_HTMLBody &= "Iyi calismalar diler, saygilarimizi sunariz"
Mail_HTMLBody &= "<br><br><br>"
Mail_HTMLBody &= "<i>If you are not responsible for this matter, please send us an e-mail address to <b>buchhaltung@verag.ag</b>,
to which future reminders should be sent.<br>
In the meantime, we ask you to forward them to the responsible persons in your company.</i>"
Mail_HTMLBody &= "<br><br><br>" & 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,<br><br>im Anhang finden Sie ihre Mahnung, mit der Bitte um Bearbeitung. "
Mail_HTMLBody &= "<br><br><br>"
Mail_HTMLBody &= "<i>Sollten Sie für diesen Sachverhalt nicht zuständig sein, teilen Sie uns bitte per Mail an <b>buchhaltung@verag.ag</b> eine Mailadresse mit,
an welche zukünftig die Mahnungen versandt werden sollen.<br>
Derweil bitten wir um Weiterleitung an die zuständigen Personen in ihrem Haus.</i>"
Mail_HTMLBody &= "<br><br><br>Mit freundlichen Grüßen<br><br>" & cFakturierung.getSignature(AD.LandKz, FIRMA.Firma_ID)
Case Else
Mail_Subject = "PAYMENT REMINDER" & IIf(KdNr > 0, " - Cust.: " & KdNr, "")
Mail_HTMLBody = "Dear Sear or Madam,<br><br>attached we send you the invoice reminder."
Mail_HTMLBody &= "<br><br><br>"
Mail_HTMLBody &= "<i>If you are not responsible for this matter, please send us an e-mail address to <b>buchhaltung@verag.ag</b>,
to which future reminders should be sent.<br>
In the meantime, we ask you to forward them to the responsible persons in your company.</i>"
Mail_HTMLBody &= "<br><br><br>Best regards<br><br>" & 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,<br><br>attached we send you the invoice reminder."
Mail_HTMLBody &= "<br><br><br>"
Mail_HTMLBody &= "<i>If you are not responsible for this matter, please send us an e-mail address to <b>buchhaltung@verag.ag</b>,
to which future reminders should be sent.<br>
In the meantime, we ask you to forward them to the responsible persons in your company.</i>"
Mail_HTMLBody &= "<br><br><br>Best regards<br><br>" & cFakturierung.getSignature(AD.LandKz, FIRMA.Firma_ID)
End Select
Mail_HTMLBody = "<div style=""font-family:Calibri, Arial"">" & Mail_HTMLBody & "</div>" Mail_HTMLBody = "<div style=""font-family:Calibri, Arial"">" & Mail_HTMLBody & "</div>"
Mail_To = VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdress(AD.AdressenNr, "Mahnung an") Mail_To = VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdress(AD.AdressenNr, "Mahnung an")
Mail_CC = VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdressCC(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) 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 Case Else
Dim outl As New Outlook.Application If Firma_ID <> 19 Then
Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
Mail = outl.CreateItem(0)
Mail.Subject = Mail_Subject
Mail.HTMLBody = Mail_HTMLBody
Mail.To = Mail_To Dim outl As New Outlook.Application
Mail.CC = Mail_CC Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
Mail.BCC = Mail_BCC Mail = outl.CreateItem(0)
Mail.Attachments.Add(tmpPath, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , "Mahnung.pdf") Mail.Subject = Mail_Subject
Mail.HTMLBody = Mail_HTMLBody
Try Mail.To = Mail_To
Mail.SentOnBehalfOfName = SDL.cFakturierung.getDefaultMail("AMBAR") ',"buchhaltung@verag.ag" Mail.CC = Mail_CC
Catch ex2 As Exception Mail.BCC = Mail_BCC
MsgBox(ex2.Message) Mail.Attachments.Add(tmpPath, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , "Mahnung.pdf")
End Try
Mail.Display() 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 End Select
@@ -641,14 +708,12 @@ Public Class frmBU_Mahnlauf
Catch ex As Exception 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 Try
Return False Return False
End Function End Function
Shared Sub initRgFirma(ByRef rpt As rptMahnung, FIRMA As VERAG_PROG_ALLGEMEIN.cFirmen, LandKz As String) Shared Sub initRgFirma(ByRef rpt As rptMahnung, FIRMA As VERAG_PROG_ALLGEMEIN.cFirmen, LandKz As String)
rpt.lblFirmaOrt.Text = If(FIRMA.Firma_Ort, "") rpt.lblFirmaOrt.Text = If(FIRMA.Firma_Ort, "")
rpt.lblFirmaStrasse.Text = If(FIRMA.Firma_Straße, "") rpt.lblFirmaStrasse.Text = If(FIRMA.Firma_Straße, "")
rpt.lblFirmaTel.Text = If(FIRMA.Firma_Telefon, "") rpt.lblFirmaTel.Text = If(FIRMA.Firma_Telefon, "")
@@ -1144,4 +1209,5 @@ Public Class frmBU_Mahnlauf
End If End If
End If End If
End Sub End Sub
End Class End Class

151
SDL/frmMain.Designer.vb generated
View File

@@ -67,13 +67,11 @@ Partial Class frmMain
Me.VERAGCardParkplatzToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.VERAGCardParkplatzToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.AuswertungenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.AuswertungenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.pnlHeader = New System.Windows.Forms.Panel() Me.pnlHeader = New System.Windows.Forms.Panel()
Me.btnMitarbeiterKonto = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.pnlInfo = New System.Windows.Forms.Panel() Me.pnlInfo = New System.Windows.Forms.Panel()
Me.txtInfotext = New System.Windows.Forms.Label() Me.txtInfotext = New System.Windows.Forms.Label()
Me.Label9 = New System.Windows.Forms.Label() Me.Label9 = New System.Windows.Forms.Label()
Me.Button9 = New System.Windows.Forms.Button() Me.Button9 = New System.Windows.Forms.Button()
Me.Button2 = 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.Button7 = New System.Windows.Forms.Button()
Me.Label4 = New System.Windows.Forms.Label() Me.Label4 = New System.Windows.Forms.Label()
Me.lblTestsystem = 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.Panel2 = New System.Windows.Forms.Panel()
Me.pnlJumpKunde = New System.Windows.Forms.Panel() Me.pnlJumpKunde = New System.Windows.Forms.Panel()
Me.Button3 = New System.Windows.Forms.Button() Me.Button3 = New System.Windows.Forms.Button()
Me.KdSearchBox1 = New VERAG_PROG_ALLGEMEIN.KdSearchBox()
Me.Button4 = New System.Windows.Forms.Button() Me.Button4 = New System.Windows.Forms.Button()
Me.Label3 = New System.Windows.Forms.Label() Me.Label3 = New System.Windows.Forms.Label()
Me.btnClose = New System.Windows.Forms.Button() Me.btnClose = New System.Windows.Forms.Button()
@@ -113,6 +110,10 @@ Partial Class frmMain
Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.AuswertungenToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() Me.AuswertungenToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.Timer_REFRESH = New System.Windows.Forms.Timer(Me.components) 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.pnlLeft.SuspendLayout()
Me.MenuStripSDL.SuspendLayout() Me.MenuStripSDL.SuspendLayout()
Me.Panel1.SuspendLayout() Me.Panel1.SuspendLayout()
@@ -554,24 +555,6 @@ Partial Class frmMain
Me.pnlHeader.Size = New System.Drawing.Size(1284, 73) Me.pnlHeader.Size = New System.Drawing.Size(1284, 73)
Me.pnlHeader.TabIndex = 28 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 'pnlInfo
' '
Me.pnlInfo.Anchor = System.Windows.Forms.AnchorStyles.Bottom Me.pnlInfo.Anchor = System.Windows.Forms.AnchorStyles.Bottom
@@ -639,20 +622,6 @@ Partial Class frmMain
Me.Button2.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.Button2.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button2.UseVisualStyleBackColor = False 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 'Button7
' '
Me.Button7.BackColor = System.Drawing.Color.WhiteSmoke Me.Button7.BackColor = System.Drawing.Color.WhiteSmoke
@@ -750,24 +719,24 @@ Partial Class frmMain
'ToolStripSeparator4 'ToolStripSeparator4
' '
Me.ToolStripSeparator4.Name = "ToolStripSeparator4" Me.ToolStripSeparator4.Name = "ToolStripSeparator4"
Me.ToolStripSeparator4.Size = New System.Drawing.Size(177, 6) Me.ToolStripSeparator4.Size = New System.Drawing.Size(154, 6)
' '
'NeuesPasswortToolStripMenuItem 'NeuesPasswortToolStripMenuItem
' '
Me.NeuesPasswortToolStripMenuItem.Name = "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" Me.NeuesPasswortToolStripMenuItem.Text = "Neues Passwort"
' '
'UpdateToolStripMenuItem 'UpdateToolStripMenuItem
' '
Me.UpdateToolStripMenuItem.Name = "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" Me.UpdateToolStripMenuItem.Text = "Update"
' '
'TESTToolStripMenuItem 'TESTToolStripMenuItem
' '
Me.TESTToolStripMenuItem.Name = "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.Text = "TEST"
Me.TESTToolStripMenuItem.Visible = False Me.TESTToolStripMenuItem.Visible = False
' '
@@ -795,7 +764,8 @@ Partial Class frmMain
' '
'mnuFormular '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.Name = "mnuFormular"
Me.mnuFormular.Size = New System.Drawing.Size(73, 20) Me.mnuFormular.Size = New System.Drawing.Size(73, 20)
Me.mnuFormular.Text = "Formulare" 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.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NeueSMSSendenToolStripMenuItem, Me.SMSVerlaufToolStripMenuItem})
Me.SMSToolStripMenuItem.Name = "SMSToolStripMenuItem" 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" Me.SMSToolStripMenuItem.Text = "SMS"
' '
'NeueSMSSendenToolStripMenuItem 'NeueSMSSendenToolStripMenuItem
@@ -905,35 +875,6 @@ Partial Class frmMain
Me.Button3.Text = "< >" Me.Button3.Text = "< >"
Me.Button3.UseVisualStyleBackColor = False 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 'Button4
' '
Me.Button4.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) 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.Enabled = True
Me.Timer_REFRESH.Interval = 5000 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 'frmMain
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
@@ -1161,4 +1171,5 @@ Partial Class frmMain
Friend WithEvents EssensbestellungToolStripMenuItem1 As ToolStripMenuItem Friend WithEvents EssensbestellungToolStripMenuItem1 As ToolStripMenuItem
Friend WithEvents mnuFormular As ToolStripMenuItem Friend WithEvents mnuFormular As ToolStripMenuItem
Friend WithEvents ToolStripMenuItem3 As ToolStripMenuItem Friend WithEvents ToolStripMenuItem3 As ToolStripMenuItem
Friend WithEvents MailvorlagenToolStripMenuItem As ToolStripMenuItem
End Class End Class

11
SDL/frmMain.vb
View File

@@ -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) 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 If a = vbYes Then
Dim info 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) MsgBox(info)
End If End If
End If End If
@@ -562,7 +562,7 @@ Public Class frmMain
Private Sub btnClose_Click(sender As Object, e As EventArgs) Handles btnClose.Click Private Sub btnClose_Click(sender As Object, e As EventArgs) Handles btnClose.Click
Try 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 VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasId IsNot Nothing Then
If Not VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasNichtStempeln Then If Not VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasNichtStempeln Then
Dim timas As New cTimasAPI("timas") 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) Dim a As MsgBoxResult = MsgBox("Soll " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & " ausgestempelt werden?" & vbNewLine & Now.ToString() & " als Endzeit erfassen?", vbYesNo)
If a = vbYes Then If a = vbYes Then
Dim info 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) MsgBox(info)
Else Else
@@ -1112,6 +1112,11 @@ Public Class frmMain
Dim f As New SDL.frmFormulare Dim f As New SDL.frmFormulare
f.Show() f.Show()
End Sub 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 End Class
Public Class MyRenderer Public Class MyRenderer

111
SDL/frmdynMailvorlage.Designer.vb generated
View File

@@ -24,6 +24,11 @@ Partial Class frmdynMailvorlagen
Private Sub InitializeComponent() Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container() Me.components = New System.ComponentModel.Container()
Me.mainPanel = New System.Windows.Forms.Panel() 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.Label11 = New System.Windows.Forms.Label()
Me.rtb_txthtml = New System.Windows.Forms.RichTextBox() Me.rtb_txthtml = New System.Windows.Forms.RichTextBox()
Me.cbxSendungsvermerk = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.cbxSendungsvermerk = New VERAG_PROG_ALLGEMEIN.MyComboBox()
@@ -31,7 +36,7 @@ Partial Class frmdynMailvorlagen
Me.txtSendungsvermerk = New System.Windows.Forms.TextBox() Me.txtSendungsvermerk = New System.Windows.Forms.TextBox()
Me.Label9 = New System.Windows.Forms.Label() Me.Label9 = New System.Windows.Forms.Label()
Me.cbSendungsvermerk = New System.Windows.Forms.CheckBox() 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.btn = New System.Windows.Forms.Button()
Me.lblWordcount = New System.Windows.Forms.Label() Me.lblWordcount = New System.Windows.Forms.Label()
Me.cboFirmensignatur = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.cboFirmensignatur = New VERAG_PROG_ALLGEMEIN.MyComboBox()
@@ -60,9 +65,6 @@ Partial Class frmdynMailvorlagen
Me.Label3 = New System.Windows.Forms.Label() Me.Label3 = New System.Windows.Forms.Label()
Me.cbxFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.cbxFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.dgvMailvorlagen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) 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.mainPanel.SuspendLayout()
Me.pnlTop.SuspendLayout() Me.pnlTop.SuspendLayout()
CType(Me.dgvMailvorlagen, System.ComponentModel.ISupportInitialize).BeginInit() 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) _ 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.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) 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.TextBox1)
Me.mainPanel.Controls.Add(Me.txtfixeEmail) Me.mainPanel.Controls.Add(Me.txtfixeEmail)
Me.mainPanel.Controls.Add(Me.Label12) Me.mainPanel.Controls.Add(Me.Label12)
@@ -83,7 +87,7 @@ Partial Class frmdynMailvorlagen
Me.mainPanel.Controls.Add(Me.txtSendungsvermerk) Me.mainPanel.Controls.Add(Me.txtSendungsvermerk)
Me.mainPanel.Controls.Add(Me.Label9) Me.mainPanel.Controls.Add(Me.Label9)
Me.mainPanel.Controls.Add(Me.cbSendungsvermerk) 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.btn)
Me.mainPanel.Controls.Add(Me.lblWordcount) Me.mainPanel.Controls.Add(Me.lblWordcount)
Me.mainPanel.Controls.Add(Me.cboFirmensignatur) Me.mainPanel.Controls.Add(Me.cboFirmensignatur)
@@ -105,6 +109,54 @@ Partial Class frmdynMailvorlagen
Me.mainPanel.Size = New System.Drawing.Size(1283, 457) Me.mainPanel.Size = New System.Drawing.Size(1283, 457)
Me.mainPanel.TabIndex = 101 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 'Label11
' '
Me.Label11.AutoSize = True Me.Label11.AutoSize = True
@@ -176,16 +228,16 @@ Partial Class frmdynMailvorlagen
Me.cbSendungsvermerk.Text = "Sendungsvermerk beim Senden setzen" Me.cbSendungsvermerk.Text = "Sendungsvermerk beim Senden setzen"
Me.cbSendungsvermerk.UseVisualStyleBackColor = True Me.cbSendungsvermerk.UseVisualStyleBackColor = True
' '
'TextBox2 'txtVariablen
' '
Me.TextBox2.BackColor = System.Drawing.SystemColors.Control Me.txtVariablen.BackColor = System.Drawing.SystemColors.Control
Me.TextBox2.BorderStyle = System.Windows.Forms.BorderStyle.None Me.txtVariablen.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.TextBox2.Location = New System.Drawing.Point(10, 414) Me.txtVariablen.Location = New System.Drawing.Point(10, 414)
Me.TextBox2.Multiline = True Me.txtVariablen.Multiline = True
Me.TextBox2.Name = "TextBox2" Me.txtVariablen.Name = "txtVariablen"
Me.TextBox2.Size = New System.Drawing.Size(576, 31) Me.txtVariablen.Size = New System.Drawing.Size(576, 31)
Me.TextBox2.TabIndex = 34 Me.txtVariablen.TabIndex = 34
Me.TextBox2.Text = "%VAR-GRENZE%, %LKW%, %LKWKennzeichen%, %Empfaenger%, %voraus-Eintreffen%, %Filial" & Me.txtVariablen.Text = "%VAR-GRENZE%, %LKW%, %LKWKennzeichen%, %Empfaenger%, %voraus-Eintreffen%, %Filial" &
"enNr%, %AbfertigungsNr%, %Absender%, %Gewicht%, %ImEx%, %Zollstelle%" "enNr%, %AbfertigungsNr%, %Absender%, %Gewicht%, %ImEx%, %Zollstelle%"
' '
'btn 'btn
@@ -497,33 +549,6 @@ Partial Class frmdynMailvorlagen
Me.dgvMailvorlagen.Size = New System.Drawing.Size(1283, 365) Me.dgvMailvorlagen.Size = New System.Drawing.Size(1283, 365)
Me.dgvMailvorlagen.TabIndex = 104 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 'frmdynMailvorlagen
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -574,7 +599,7 @@ Partial Class frmdynMailvorlagen
Friend WithEvents btn As Button Friend WithEvents btn As Button
Friend WithEvents cbxSpracheSelected As VERAG_PROG_ALLGEMEIN.MyComboBox Friend WithEvents cbxSpracheSelected As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Label8 As Label 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 cbxSendungsvermerk As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Label10 As Label Friend WithEvents Label10 As Label
Friend WithEvents txtSendungsvermerk As TextBox Friend WithEvents txtSendungsvermerk As TextBox
@@ -585,4 +610,6 @@ Partial Class frmdynMailvorlagen
Friend WithEvents txtfixeEmail As TextBox Friend WithEvents txtfixeEmail As TextBox
Friend WithEvents Label12 As Label Friend WithEvents Label12 As Label
Friend WithEvents TextBox1 As TextBox Friend WithEvents TextBox1 As TextBox
Friend WithEvents cbxTyp As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Label13 As Label
End Class End Class

52
SDL/frmdynMailvorlage.vb
View File

@@ -1,4 +1,6 @@
Imports System.Windows.Controls Imports System.Windows.Controls
Imports System.Windows.Documents
Imports DocumentFormat.OpenXml.Drawing.Charts
Imports GrapeCity.ActiveReports.SectionReportModel Imports GrapeCity.ActiveReports.SectionReportModel
Imports Microsoft.Office.Interop Imports Microsoft.Office.Interop
Imports VERAG_PROG_ALLGEMEIN 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) 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()) 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) 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 cbxFirma.Enabled = editall
btnDelete.Enabled = editall btnDelete.Enabled = editall
@@ -100,6 +119,8 @@ Public Class frmdynMailvorlagen
.Columns("txt_sendungsvermerk").HeaderText = "Sendungsvermerk" .Columns("txt_sendungsvermerk").HeaderText = "Sendungsvermerk"
.Columns("txt_sendungsvermerkId").Visible = False .Columns("txt_sendungsvermerkId").Visible = False
.Columns("txt_sendungsvermerkText").Visible = False .Columns("txt_sendungsvermerkText").Visible = False
.Columns("txt_fixerEmpfaengerEmail").Visible = False
.Columns("txt_typ").Visible = False
End With End With
@@ -158,7 +179,7 @@ Public Class frmdynMailvorlagen
Dim txtKonserve As New cTextkonserve(dgvMailvorlagen.SelectedRows(0).Cells("txt_id").Value) 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 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) initDGVMailvorlagen(cbxFirma._value)
End If End If
@@ -214,6 +235,11 @@ Public Class frmdynMailvorlagen
cbxSendungsvermerk.changeItem(txtkonserve.txt_sendungsvermerkId) cbxSendungsvermerk.changeItem(txtkonserve.txt_sendungsvermerkId)
txtSendungsvermerk.Text = txtkonserve.txt_sendungsvermerkText txtSendungsvermerk.Text = txtkonserve.txt_sendungsvermerkText
txtfixeEmail.Text = txtkonserve.txt_fixerEmpfaengerEmail 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 Catch ex As Exception
@@ -242,6 +268,7 @@ Public Class frmdynMailvorlagen
txtKS.txt_letzteAenderungUser = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME txtKS.txt_letzteAenderungUser = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
txtKS.txt_fixerEmpfaengerEmail = txtfixeEmail.Text txtKS.txt_fixerEmpfaengerEmail = txtfixeEmail.Text
txtKS.txt_sendungsvermerk = cbSendungsvermerk.Checked 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 cbxSendungsvermerk._value = "" Then MsgBox("SendungsvermerksID hinterlegen!") : Exit Sub
If cbSendungsvermerk.Checked AndAlso txtSendungsvermerk.Text = "" Then MsgBox("Sendungsvermerk 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 Label9.Visible = cbSendungsvermerk.Checked
End Sub 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 End Class

582
SDL/kunden/frmGoMautBoxen.Designer.vb generated Normal file
View File

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

986
SDL/kunden/frmGoMautBoxen.resx Normal file
View File

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

283
SDL/kunden/frmGoMautBoxen.vb Normal file
View File

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

839
SDL/kunden/frmGoMautBoxen_Bestellung.Designer.vb generated Normal file
View File

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

980
SDL/kunden/frmGoMautBoxen_Bestellung.resx Normal file
View File

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

645
SDL/kunden/frmGoMautBoxen_Bestellung.vb Normal file
View File

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

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

File diff suppressed because it is too large Load Diff

16
SDL/kunden/frmKundenblatt.vb
View File

@@ -15,6 +15,7 @@ Public Class frmKundenblatt
Dim lkwKzChange As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem) Dim lkwKzChange As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem)
' Dim KUNDE As cKunde = Nothing ' Dim KUNDE As cKunde = Nothing
Dim ADRESSE As VERAG_PROG_ALLGEMEIN.cAdressen = 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 ' Public BERECHTIGUNEN As List(Of cBerechtigungen) = Nothing
@@ -285,7 +286,7 @@ Public Class frmKundenblatt
End Select End Select
Case "tbZoll" : initTZOLL() Case "tbZoll" : initTZOLL()
Case "tbOfferte" : UsrCntlOfferte1.init(kdNr) Case "tbOfferte" : UsrCntlOfferte1.init(kdNr, isVerag360)
End Select End Select
End If End If
@@ -608,7 +609,7 @@ Public Class frmKundenblatt
If kdNr > 0 Then If kdNr > 0 Then
KUNDE = New VERAG_PROG_ALLGEMEIN.cKunde(kdNr) 'kundenSQL.getKundeByKdNr(kdNr) KUNDE = New VERAG_PROG_ALLGEMEIN.cKunde(kdNr) 'kundenSQL.getKundeByKdNr(kdNr)
ADRESSE = New VERAG_PROG_ALLGEMEIN.cAdressen(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.dataAdapterFirma = Nothing
' Me.dataFirma.Clear() ' Me.dataFirma.Clear()
'SDL! 'SDL!
@@ -628,6 +629,7 @@ Public Class frmKundenblatt
lblFirmenname2.Text = checkNullStr(ADRESSE.Name_2) lblFirmenname2.Text = checkNullStr(ADRESSE.Name_2)
lblStrasse.Text = checkNullStr(ADRESSE.Straße) lblStrasse.Text = checkNullStr(ADRESSE.Straße)
lblAdressenzusatz.Text = checkNullStr(KUNDE_ERW.kde_AdressZusatz)
lblLandPlzOrt.Text = checkNullStr(ADRESSE.LandKz) & " - " & checkNullStr(ADRESSE.PLZ) & " - " & checkNullStr(ADRESSE.Ort) lblLandPlzOrt.Text = checkNullStr(ADRESSE.LandKz) & " - " & checkNullStr(ADRESSE.PLZ) & " - " & checkNullStr(ADRESSE.Ort)
lblPostfach.Text = checkNullStr(ADRESSE.PLZPF) & " - " & checkNullStr(ADRESSE.Postfach) lblPostfach.Text = checkNullStr(ADRESSE.PLZPF) & " - " & checkNullStr(ADRESSE.Postfach)
@@ -1239,6 +1241,7 @@ Public Class frmKundenblatt
' scanJaraVertretung.Visible = False ' scanJaraVertretung.Visible = False
scanErstbestellung.Visible = False scanErstbestellung.Visible = False
scanMWSTAgreement.Visible = False scanMWSTAgreement.Visible = False
Button7.Visible = False
If dgvSDLLeistungenFull.SelectedRows.Count > 0 Then If dgvSDLLeistungenFull.SelectedRows.Count > 0 Then
Panel2.Visible = True Panel2.Visible = True
@@ -1252,7 +1255,7 @@ Public Class frmKundenblatt
Select Case tmpSDLNr Select Case tmpSDLNr
Case 100 : txtPartnerKdNr.Text = PartnerKdNrFromFMZOLL.IDSKundenNr 'IDS 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 212 : txtPartnerKdNr.Text = PartnerKdNrFromFMZOLL.UTAKundenNr 'UTA
Case 101 : txtPartnerKdNr.Text = PartnerKdNrFromFMZOLL.WölflKundenNr 'WÖLFL Case 101 : txtPartnerKdNr.Text = PartnerKdNrFromFMZOLL.WölflKundenNr 'WÖLFL
Case 202 : txtPartnerKdNr.Text = PartnerKdNrFromFMZOLL.TELEPASS_Kd_Nr 'TELEPASS Case 202 : txtPartnerKdNr.Text = PartnerKdNrFromFMZOLL.TELEPASS_Kd_Nr 'TELEPASS
@@ -1295,6 +1298,7 @@ Public Class frmKundenblatt
'gibt keine Einträge 'gibt keine Einträge
Case 200 : kundenSQL.setPartnerKdNrFromFMZOLL_AT(kdNr, txtPartnerKdNr.Text) 'AT Case 200 : kundenSQL.setPartnerKdNrFromFMZOLL_AT(kdNr, txtPartnerKdNr.Text) 'AT
kundenSQL.setPartnerKdNrSDL("KartenNr", txtPartnerKdNr.Text, kdNr, sdlNrTmp) 'UTA kundenSQL.setPartnerKdNrSDL("KartenNr", txtPartnerKdNr.Text, kdNr, sdlNrTmp) 'UTA
Case 212 : kundenSQL.setPartnerKdNrFromFMZOLL("UTAKundenNr", txtPartnerKdNr.Text, kdNr) 'UTA Case 212 : kundenSQL.setPartnerKdNrFromFMZOLL("UTAKundenNr", txtPartnerKdNr.Text, kdNr) 'UTA
kundenSQL.setPartnerKdNrSDL("CLIENT-Nr", txtPartnerKdNr.Text, kdNr, sdlNrTmp) 'UTA kundenSQL.setPartnerKdNrSDL("CLIENT-Nr", txtPartnerKdNr.Text, kdNr, sdlNrTmp) 'UTA
Case 101 : kundenSQL.setPartnerKdNrFromFMZOLL("WölflKundenNr", txtPartnerKdNr.Text, kdNr) 'WÖLFL Case 101 : kundenSQL.setPartnerKdNrFromFMZOLL("WölflKundenNr", txtPartnerKdNr.Text, kdNr) 'WÖLFL
@@ -1706,7 +1710,6 @@ Public Class frmKundenblatt
End Sub End Sub
Private Sub ToolStripMenuItem7_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem7.Click Private Sub ToolStripMenuItem7_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem7.Click
changeTab(4, sender) changeTab(4, sender)
End Sub End Sub
@@ -1985,5 +1988,10 @@ Public Class frmKundenblatt
initDGVOffenePosten() initDGVOffenePosten()
End If End If
End Sub 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 End Class

60
SDL/kunden/usrCntlOfferte.vb
View File

@@ -1,5 +1,7 @@
 
Imports VERAG_PROG_ALLGEMEIN
Public Class usrCntlOfferte Public Class usrCntlOfferte
Dim FUNC As New cProgramFunctions Dim FUNC As New cProgramFunctions
@@ -22,6 +24,7 @@ Public Class usrCntlOfferte
Dim isNew = False Dim isNew = False
Dim addLeistung = False Dim addLeistung = False
Dim ofID As Integer Dim ofID As Integer
Dim isVerag360 As Boolean = False
Sub New() Sub New()
InitializeComponent() InitializeComponent()
@@ -33,13 +36,14 @@ Public Class usrCntlOfferte
End Sub End Sub
Public Sub init(kdNr) Public Sub init(kdNr As Integer, Optional isVerag360 As Boolean = False)
Me.kdNr = kdNr Me.kdNr = kdNr
initDGVOfferte() initDGVOfferte()
edit = False edit = False
handleEditMode(edit) handleEditMode(edit)
KD_ERW = New VERAG_PROG_ALLGEMEIN.cKundenErweitert(kdNr) KD_ERW = New VERAG_PROG_ALLGEMEIN.cKundenErweitert(kdNr)
cbxAutoFakturierung.Checked = KD_ERW.AutoFakturierung cbxAutoFakturierung.Checked = KD_ERW.AutoFakturierung
isVerag360 = isVerag360
End Sub End Sub
Sub initDGVOfferte() Sub initDGVOfferte()
@@ -358,20 +362,20 @@ Public Class usrCntlOfferte
Try Try
If dgvOfferteNew.SelectedRows.Count = 1 Then 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 If vbYes = MsgBox("Möchten Sie das Offert '" & dgvOfferteNew.SelectedRows(0).Cells("OffertenBez").Value & "' wirklich löschen", vbYesNoCancel) Then
saveCurrentOffert() saveCurrentOffert()
currentOffert.Art = "Offert gelöscht" currentOffert.Art = "Offert gelöscht"
currentOffert.SAVE() currentOffert.SAVE()
OfferteArchivieren() OfferteArchivieren()
If SQL.doSQL("DELETE FROM Offerten where [KundenNr]='" & kdNr & "' AND [OffertenNr]='" & dgvOfferteNew.SelectedRows(0).Cells("OffertenNr").Value & "' ", "FMZOLL") Then If SQL.doSQL("DELETE FROM Offerten where [KundenNr]='" & kdNr & "' AND [OffertenNr]='" & dgvOfferteNew.SelectedRows(0).Cells("OffertenNr").Value & "' ", "FMZOLL") Then
initDGVOfferte() initDGVOfferte()
RaiseEvent OfferteChanged() RaiseEvent OfferteChanged()
End If
End If End If
End If End If
End If
Catch ex As Exception 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 Try
End Sub End Sub
@@ -409,8 +413,6 @@ Public Class usrCntlOfferte
Try Try
currentOffertArchiv = New VERAG_PROG_ALLGEMEIN.cOfferteArchiv() currentOffertArchiv = New VERAG_PROG_ALLGEMEIN.cOfferteArchiv()
currentOffertArchiv.KundenNr = currentOffert.KundenNr currentOffertArchiv.KundenNr = currentOffert.KundenNr
currentOffertArchiv.FilialenNr = currentOffert.FilialenNr currentOffertArchiv.FilialenNr = currentOffert.FilialenNr
@@ -550,22 +552,40 @@ Public Class usrCntlOfferte
Next Next
dgvOfferteDetails.AllowUserToDeleteRows = False dgvOfferteDetails.AllowUserToDeleteRows = False
Else Else
For Each c As DataGridViewColumn In .Columns 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 If isVerag360 Then
c.ReadOnly = False 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
handleEditMode(edit) If edit Then
c.ReadOnly = False
handleEditMode(edit)
Else
c.ReadOnly = True
handleEditMode(edit)
End If
Else Else
c.ReadOnly = True c.ReadOnly = True
handleEditMode(edit)
End If End If
Else 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 End If
Next Next
dgvOfferteDetails.AllowUserToDeleteRows = edit dgvOfferteDetails.AllowUserToDeleteRows = edit
End If End If
End With End With

367
SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb generated
View File

@@ -143,6 +143,15 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtAbf_Vorlageprovision = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtAbf_Vorlageprovision = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtAbf_Zahlungsziel = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtAbf_Zahlungsziel = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.tbVersicherung = New System.Windows.Forms.TabPage() 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.Label81 = New System.Windows.Forms.Label()
Me.Label82 = New System.Windows.Forms.Label() Me.Label82 = New System.Windows.Forms.Label()
Me.cbxInkassoUebergeben = New System.Windows.Forms.CheckBox() Me.cbxInkassoUebergeben = New System.Windows.Forms.CheckBox()
@@ -207,8 +216,8 @@ Partial Class usrcntlKundeBearbeitenFull
Me.GroupBox4 = New System.Windows.Forms.GroupBox() Me.GroupBox4 = New System.Windows.Forms.GroupBox()
Me.Button10 = New System.Windows.Forms.Button() Me.Button10 = New System.Windows.Forms.Button()
Me.Button9 = New System.Windows.Forms.Button() Me.Button9 = New System.Windows.Forms.Button()
Me.Button8 = New System.Windows.Forms.Button() Me.bntGOBOXUmstellung = New System.Windows.Forms.Button()
Me.Button7 = New System.Windows.Forms.Button() Me.btnKKhinzufuegen = New System.Windows.Forms.Button()
Me.dgvKreditkarten = New System.Windows.Forms.DataGridView() Me.dgvKreditkarten = New System.Windows.Forms.DataGridView()
Me.txtBank_Kto = New System.Windows.Forms.TextBox() Me.txtBank_Kto = New System.Windows.Forms.TextBox()
Me.Label22 = New System.Windows.Forms.Label() Me.Label22 = New System.Windows.Forms.Label()
@@ -271,8 +280,6 @@ Partial Class usrcntlKundeBearbeitenFull
Me.Label33 = New System.Windows.Forms.Label() Me.Label33 = New System.Windows.Forms.Label()
Me.txtHandelsregisterNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtHandelsregisterNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.PictureBox5 = New System.Windows.Forms.PictureBox() 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.cbxUIDMehrfachverwendung = New System.Windows.Forms.CheckBox()
Me.btnCreditsafe = New System.Windows.Forms.Button() Me.btnCreditsafe = New System.Windows.Forms.Button()
Me.Button13 = 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.Label16 = New System.Windows.Forms.Label()
Me.txtUSt_Steuernummer = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtUSt_Steuernummer = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.lblHandelregisterNr = New System.Windows.Forms.Label() 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.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.cbxLandKz = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.cbxLandKz = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label14 = New System.Windows.Forms.Label() Me.Label14 = New System.Windows.Forms.Label()
@@ -1860,6 +1869,15 @@ Partial Class usrcntlKundeBearbeitenFull
' '
'tbVersicherung '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.Label81)
Me.tbVersicherung.Controls.Add(Me.Label82) Me.tbVersicherung.Controls.Add(Me.Label82)
Me.tbVersicherung.Controls.Add(Me.cbxInkassoUebergeben) Me.tbVersicherung.Controls.Add(Me.cbxInkassoUebergeben)
@@ -1915,6 +1933,152 @@ Partial Class usrcntlKundeBearbeitenFull
Me.tbVersicherung.Text = "Versicherung" Me.tbVersicherung.Text = "Versicherung"
Me.tbVersicherung.UseVisualStyleBackColor = True 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 'Label81
' '
Me.Label81.AutoSize = True Me.Label81.AutoSize = True
@@ -2077,7 +2241,7 @@ Partial Class usrcntlKundeBearbeitenFull
'Label59 'Label59
' '
Me.Label59.AutoSize = True 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.Name = "Label59"
Me.Label59.Size = New System.Drawing.Size(51, 13) Me.Label59.Size = New System.Drawing.Size(51, 13)
Me.Label59.TabIndex = 34 Me.Label59.TabIndex = 34
@@ -2086,7 +2250,7 @@ Partial Class usrcntlKundeBearbeitenFull
'Label57 'Label57
' '
Me.Label57.AutoSize = True 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.Name = "Label57"
Me.Label57.Size = New System.Drawing.Size(30, 13) Me.Label57.Size = New System.Drawing.Size(30, 13)
Me.Label57.TabIndex = 30 Me.Label57.TabIndex = 30
@@ -2105,7 +2269,7 @@ Partial Class usrcntlKundeBearbeitenFull
' '
Me.Label60.AutoSize = True 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.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.Name = "Label60"
Me.Label60.Size = New System.Drawing.Size(73, 13) Me.Label60.Size = New System.Drawing.Size(73, 13)
Me.Label60.TabIndex = 36 Me.Label60.TabIndex = 36
@@ -2115,7 +2279,7 @@ Partial Class usrcntlKundeBearbeitenFull
' '
Me.Label58.AutoSize = True 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.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.Name = "Label58"
Me.Label58.Size = New System.Drawing.Size(103, 13) Me.Label58.Size = New System.Drawing.Size(103, 13)
Me.Label58.TabIndex = 32 Me.Label58.TabIndex = 32
@@ -2124,7 +2288,7 @@ Partial Class usrcntlKundeBearbeitenFull
'Label53 'Label53
' '
Me.Label53.AutoSize = True 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.Name = "Label53"
Me.Label53.Size = New System.Drawing.Size(30, 13) Me.Label53.Size = New System.Drawing.Size(30, 13)
Me.Label53.TabIndex = 26 Me.Label53.TabIndex = 26
@@ -2134,7 +2298,7 @@ Partial Class usrcntlKundeBearbeitenFull
' '
Me.Label56.AutoSize = True 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.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.Name = "Label56"
Me.Label56.Size = New System.Drawing.Size(87, 13) Me.Label56.Size = New System.Drawing.Size(87, 13)
Me.Label56.TabIndex = 28 Me.Label56.TabIndex = 28
@@ -2154,7 +2318,7 @@ Partial Class usrcntlKundeBearbeitenFull
' '
Me.Label52.AutoSize = True 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.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.Name = "Label52"
Me.Label52.Size = New System.Drawing.Size(79, 13) Me.Label52.Size = New System.Drawing.Size(79, 13)
Me.Label52.TabIndex = 24 Me.Label52.TabIndex = 24
@@ -2438,7 +2602,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtVers_BankgarantiebetragGueltigBis._Waehrung = False Me.txtVers_BankgarantiebetragGueltigBis._Waehrung = False
Me.txtVers_BankgarantiebetragGueltigBis._WaehrungZeichen = True Me.txtVers_BankgarantiebetragGueltigBis._WaehrungZeichen = True
Me.txtVers_BankgarantiebetragGueltigBis.ForeColor = System.Drawing.Color.Red 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.MaxLength = 10
Me.txtVers_BankgarantiebetragGueltigBis.MaxLineLength = -1 Me.txtVers_BankgarantiebetragGueltigBis.MaxLineLength = -1
Me.txtVers_BankgarantiebetragGueltigBis.MaxLines_Warning = "" Me.txtVers_BankgarantiebetragGueltigBis.MaxLines_Warning = ""
@@ -2463,7 +2627,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtVers_KreditlimitVon._Waehrung = False Me.txtVers_KreditlimitVon._Waehrung = False
Me.txtVers_KreditlimitVon._WaehrungZeichen = True Me.txtVers_KreditlimitVon._WaehrungZeichen = True
Me.txtVers_KreditlimitVon.ForeColor = System.Drawing.Color.Red 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.MaxLength = 10
Me.txtVers_KreditlimitVon.MaxLineLength = -1 Me.txtVers_KreditlimitVon.MaxLineLength = -1
Me.txtVers_KreditlimitVon.MaxLines_Warning = "" Me.txtVers_KreditlimitVon.MaxLines_Warning = ""
@@ -2488,7 +2652,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtVers_Saldo._Waehrung = True Me.txtVers_Saldo._Waehrung = True
Me.txtVers_Saldo._WaehrungZeichen = True Me.txtVers_Saldo._WaehrungZeichen = True
Me.txtVers_Saldo.ForeColor = System.Drawing.Color.Red 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.MaxLineLength = -1
Me.txtVers_Saldo.MaxLines_Warning = "" Me.txtVers_Saldo.MaxLines_Warning = ""
Me.txtVers_Saldo.MaxLines_Warning_Label = Nothing Me.txtVers_Saldo.MaxLines_Warning_Label = Nothing
@@ -2537,7 +2701,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtVers_Bankgarantiebetrag._Waehrung = True Me.txtVers_Bankgarantiebetrag._Waehrung = True
Me.txtVers_Bankgarantiebetrag._WaehrungZeichen = True Me.txtVers_Bankgarantiebetrag._WaehrungZeichen = True
Me.txtVers_Bankgarantiebetrag.ForeColor = System.Drawing.Color.Red 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.MaxLineLength = -1
Me.txtVers_Bankgarantiebetrag.MaxLines_Warning = "" Me.txtVers_Bankgarantiebetrag.MaxLines_Warning = ""
Me.txtVers_Bankgarantiebetrag.MaxLines_Warning_Label = Nothing Me.txtVers_Bankgarantiebetrag.MaxLines_Warning_Label = Nothing
@@ -2561,7 +2725,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtVers_Kreditlimit._Waehrung = True Me.txtVers_Kreditlimit._Waehrung = True
Me.txtVers_Kreditlimit._WaehrungZeichen = True Me.txtVers_Kreditlimit._WaehrungZeichen = True
Me.txtVers_Kreditlimit.ForeColor = System.Drawing.Color.Red 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.MaxLineLength = -1
Me.txtVers_Kreditlimit.MaxLines_Warning = "" Me.txtVers_Kreditlimit.MaxLines_Warning = ""
Me.txtVers_Kreditlimit.MaxLines_Warning_Label = Nothing Me.txtVers_Kreditlimit.MaxLines_Warning_Label = Nothing
@@ -2585,7 +2749,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtVers_AntragssummeVon._Waehrung = False Me.txtVers_AntragssummeVon._Waehrung = False
Me.txtVers_AntragssummeVon._WaehrungZeichen = True Me.txtVers_AntragssummeVon._WaehrungZeichen = True
Me.txtVers_AntragssummeVon.ForeColor = System.Drawing.Color.Red 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.MaxLength = 10
Me.txtVers_AntragssummeVon.MaxLineLength = -1 Me.txtVers_AntragssummeVon.MaxLineLength = -1
Me.txtVers_AntragssummeVon.MaxLines_Warning = "" Me.txtVers_AntragssummeVon.MaxLines_Warning = ""
@@ -2634,7 +2798,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtVers_Antragssumme._Waehrung = True Me.txtVers_Antragssumme._Waehrung = True
Me.txtVers_Antragssumme._WaehrungZeichen = True Me.txtVers_Antragssumme._WaehrungZeichen = True
Me.txtVers_Antragssumme.ForeColor = System.Drawing.Color.Red 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.MaxLineLength = -1
Me.txtVers_Antragssumme.MaxLines_Warning = "" Me.txtVers_Antragssumme.MaxLines_Warning = ""
Me.txtVers_Antragssumme.MaxLines_Warning_Label = Nothing 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.Button10)
Me.GroupBox4.Controls.Add(Me.Button9) Me.GroupBox4.Controls.Add(Me.Button9)
Me.GroupBox4.Controls.Add(Me.Button8) Me.GroupBox4.Controls.Add(Me.bntGOBOXUmstellung)
Me.GroupBox4.Controls.Add(Me.Button7) Me.GroupBox4.Controls.Add(Me.btnKKhinzufuegen)
Me.GroupBox4.Controls.Add(Me.dgvKreditkarten) 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.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) Me.GroupBox4.Location = New System.Drawing.Point(9, 69)
@@ -2921,33 +3085,32 @@ Partial Class usrcntlKundeBearbeitenFull
Me.Button9.Text = "Contract List" Me.Button9.Text = "Contract List"
Me.Button9.UseVisualStyleBackColor = True Me.Button9.UseVisualStyleBackColor = True
' '
'Button8 'bntGOBOXUmstellung
' '
Me.Button8.Enabled = False Me.bntGOBOXUmstellung.Enabled = False
Me.Button8.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.bntGOBOXUmstellung.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.bntGOBOXUmstellung.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.bntGOBOXUmstellung.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button8.Location = New System.Drawing.Point(193, 338) Me.bntGOBOXUmstellung.Location = New System.Drawing.Point(193, 338)
Me.Button8.Name = "Button8" Me.bntGOBOXUmstellung.Name = "bntGOBOXUmstellung"
Me.Button8.Size = New System.Drawing.Size(152, 38) Me.bntGOBOXUmstellung.Size = New System.Drawing.Size(152, 38)
Me.Button8.TabIndex = 2 Me.bntGOBOXUmstellung.TabIndex = 2
Me.Button8.Text = "GO-BOX-Umstellung" Me.bntGOBOXUmstellung.Text = "GO-BOX-Umstellung"
Me.Button8.UseVisualStyleBackColor = True Me.bntGOBOXUmstellung.UseVisualStyleBackColor = True
' '
'Button7 'btnKKhinzufuegen
' '
Me.Button7.Enabled = False Me.btnKKhinzufuegen.Enabled = False
Me.Button7.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnKKhinzufuegen.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.btnKKhinzufuegen.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.btnKKhinzufuegen.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button7.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnKKhinzufuegen.Location = New System.Drawing.Point(9, 338)
Me.Button7.Location = New System.Drawing.Point(9, 338) Me.btnKKhinzufuegen.Name = "btnKKhinzufuegen"
Me.Button7.Name = "Button7" Me.btnKKhinzufuegen.Size = New System.Drawing.Size(178, 38)
Me.Button7.Size = New System.Drawing.Size(178, 38) Me.btnKKhinzufuegen.TabIndex = 1
Me.Button7.TabIndex = 1 Me.btnKKhinzufuegen.Text = "Kreditkarte hinzufügen"
Me.Button7.Text = "Kreditkarte hinzufügen" Me.btnKKhinzufuegen.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button7.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.btnKKhinzufuegen.UseVisualStyleBackColor = True
Me.Button7.UseVisualStyleBackColor = True
' '
'dgvKreditkarten 'dgvKreditkarten
' '
@@ -3086,7 +3249,6 @@ Partial Class usrcntlKundeBearbeitenFull
' '
'Button3 'Button3
' '
Me.Button3.BackgroundImage = Global.SDL.My.Resources.Resources.druck
Me.Button3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.Button3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.Button3.FlatAppearance.BorderSize = 0 Me.Button3.FlatAppearance.BorderSize = 0
Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
@@ -3221,7 +3383,6 @@ Partial Class usrcntlKundeBearbeitenFull
Me.btnUStVAendSpeichern.FlatAppearance.BorderSize = 0 Me.btnUStVAendSpeichern.FlatAppearance.BorderSize = 0
Me.btnUStVAendSpeichern.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnUStVAendSpeichern.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnUStVAendSpeichern.ForeColor = System.Drawing.Color.Black 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.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnUStVAendSpeichern.Location = New System.Drawing.Point(509, 66) Me.btnUStVAendSpeichern.Location = New System.Drawing.Point(509, 66)
Me.btnUStVAendSpeichern.Name = "btnUStVAendSpeichern" Me.btnUStVAendSpeichern.Name = "btnUStVAendSpeichern"
@@ -3556,7 +3717,6 @@ Partial Class usrcntlKundeBearbeitenFull
Me.btnSonstAendSpeichern.FlatAppearance.BorderSize = 0 Me.btnSonstAendSpeichern.FlatAppearance.BorderSize = 0
Me.btnSonstAendSpeichern.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnSonstAendSpeichern.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnSonstAendSpeichern.ForeColor = System.Drawing.Color.Black 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.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnSonstAendSpeichern.Location = New System.Drawing.Point(512, 214) Me.btnSonstAendSpeichern.Location = New System.Drawing.Point(512, 214)
Me.btnSonstAendSpeichern.Name = "btnSonstAendSpeichern" Me.btnSonstAendSpeichern.Name = "btnSonstAendSpeichern"
@@ -3683,7 +3843,7 @@ Partial Class usrcntlKundeBearbeitenFull
' '
Me.lblEORI.AutoSize = True 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.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.Name = "lblEORI"
Me.lblEORI.Size = New System.Drawing.Size(78, 13) Me.lblEORI.Size = New System.Drawing.Size(78, 13)
Me.lblEORI.TabIndex = 12 Me.lblEORI.TabIndex = 12
@@ -3693,7 +3853,7 @@ Partial Class usrcntlKundeBearbeitenFull
' '
Me.Label84.AutoSize = True 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.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.Name = "Label84"
Me.Label84.Size = New System.Drawing.Size(66, 13) Me.Label84.Size = New System.Drawing.Size(66, 13)
Me.Label84.TabIndex = 8 Me.Label84.TabIndex = 8
@@ -3705,8 +3865,6 @@ Partial Class usrcntlKundeBearbeitenFull
Me.GroupBox3.Controls.Add(Me.Label33) Me.GroupBox3.Controls.Add(Me.Label33)
Me.GroupBox3.Controls.Add(Me.txtHandelsregisterNr) Me.GroupBox3.Controls.Add(Me.txtHandelsregisterNr)
Me.GroupBox3.Controls.Add(Me.PictureBox5) 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.cbxUIDMehrfachverwendung)
Me.GroupBox3.Controls.Add(Me.btnCreditsafe) Me.GroupBox3.Controls.Add(Me.btnCreditsafe)
Me.GroupBox3.Controls.Add(Me.Button13) 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.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.Location = New System.Drawing.Point(3, 3)
Me.GroupBox3.Name = "GroupBox3" 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.TabIndex = 0
Me.GroupBox3.TabStop = False Me.GroupBox3.TabStop = False
Me.GroupBox3.Text = "Firma" Me.GroupBox3.Text = "Firma"
@@ -3750,7 +3908,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtGruendungsDatum._Waehrung = False Me.txtGruendungsDatum._Waehrung = False
Me.txtGruendungsDatum._WaehrungZeichen = True Me.txtGruendungsDatum._WaehrungZeichen = True
Me.txtGruendungsDatum.ForeColor = System.Drawing.Color.Red 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.MaxLength = 10
Me.txtGruendungsDatum.MaxLineLength = -1 Me.txtGruendungsDatum.MaxLineLength = -1
Me.txtGruendungsDatum.MaxLines_Warning = "" Me.txtGruendungsDatum.MaxLines_Warning = ""
@@ -3764,7 +3922,7 @@ Partial Class usrcntlKundeBearbeitenFull
' '
Me.Label33.AutoSize = True 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.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.Name = "Label33"
Me.Label33.Size = New System.Drawing.Size(75, 13) Me.Label33.Size = New System.Drawing.Size(75, 13)
Me.Label33.TabIndex = 134 Me.Label33.TabIndex = 134
@@ -3785,7 +3943,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtHandelsregisterNr._Waehrung = False Me.txtHandelsregisterNr._Waehrung = False
Me.txtHandelsregisterNr._WaehrungZeichen = False Me.txtHandelsregisterNr._WaehrungZeichen = False
Me.txtHandelsregisterNr.ForeColor = System.Drawing.Color.Black 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.MaxLength = 17
Me.txtHandelsregisterNr.MaxLineLength = -1 Me.txtHandelsregisterNr.MaxLineLength = -1
Me.txtHandelsregisterNr.MaxLines_Warning = "" Me.txtHandelsregisterNr.MaxLines_Warning = ""
@@ -3796,7 +3954,6 @@ Partial Class usrcntlKundeBearbeitenFull
' '
'PictureBox5 'PictureBox5
' '
Me.PictureBox5.BackgroundImage = Global.SDL.My.Resources.Resources.fragezeichen
Me.PictureBox5.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.PictureBox5.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox5.Location = New System.Drawing.Point(88, 62) Me.PictureBox5.Location = New System.Drawing.Point(88, 62)
Me.PictureBox5.Name = "PictureBox5" Me.PictureBox5.Name = "PictureBox5"
@@ -3805,30 +3962,11 @@ Partial Class usrcntlKundeBearbeitenFull
Me.PictureBox5.TabStop = False Me.PictureBox5.TabStop = False
Me.PictureBox5.Visible = 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 'cbxUIDMehrfachverwendung
' '
Me.cbxUIDMehrfachverwendung.AutoSize = True 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.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.Name = "cbxUIDMehrfachverwendung"
Me.cbxUIDMehrfachverwendung.Size = New System.Drawing.Size(152, 17) Me.cbxUIDMehrfachverwendung.Size = New System.Drawing.Size(152, 17)
Me.cbxUIDMehrfachverwendung.TabIndex = 25 Me.cbxUIDMehrfachverwendung.TabIndex = 25
@@ -3837,7 +3975,6 @@ Partial Class usrcntlKundeBearbeitenFull
' '
'btnCreditsafe 'btnCreditsafe
' '
Me.btnCreditsafe.BackgroundImage = Global.SDL.My.Resources.Resources.creditsafe_add1
Me.btnCreditsafe.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.btnCreditsafe.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.btnCreditsafe.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnCreditsafe.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnCreditsafe.Location = New System.Drawing.Point(9, 57) Me.btnCreditsafe.Location = New System.Drawing.Point(9, 57)
@@ -3849,11 +3986,10 @@ Partial Class usrcntlKundeBearbeitenFull
' '
'Button13 'Button13
' '
Me.Button13.BackgroundImage = Global.SDL.My.Resources.Resources.list
Me.Button13.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.Button13.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.Button13.FlatAppearance.BorderSize = 0 Me.Button13.FlatAppearance.BorderSize = 0
Me.Button13.FlatStyle = System.Windows.Forms.FlatStyle.Flat 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.Name = "Button13"
Me.Button13.Size = New System.Drawing.Size(25, 20) Me.Button13.Size = New System.Drawing.Size(25, 20)
Me.Button13.TabIndex = 16 Me.Button13.TabIndex = 16
@@ -3861,11 +3997,10 @@ Partial Class usrcntlKundeBearbeitenFull
' '
'btnUIDPruef 'btnUIDPruef
' '
Me.btnUIDPruef.BackgroundImage = Global.SDL.My.Resources.Resources.fragezeichen
Me.btnUIDPruef.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.btnUIDPruef.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.btnUIDPruef.FlatAppearance.BorderSize = 0 Me.btnUIDPruef.FlatAppearance.BorderSize = 0
Me.btnUIDPruef.FlatStyle = System.Windows.Forms.FlatStyle.Flat 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.Name = "btnUIDPruef"
Me.btnUIDPruef.Size = New System.Drawing.Size(25, 20) Me.btnUIDPruef.Size = New System.Drawing.Size(25, 20)
Me.btnUIDPruef.TabIndex = 15 Me.btnUIDPruef.TabIndex = 15
@@ -3887,7 +4022,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtEORINL._Waehrung = False Me.txtEORINL._Waehrung = False
Me.txtEORINL._WaehrungZeichen = True Me.txtEORINL._WaehrungZeichen = True
Me.txtEORINL.ForeColor = System.Drawing.Color.Red 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.MaxLength = 4
Me.txtEORINL.MaxLineLength = -1 Me.txtEORINL.MaxLineLength = -1
Me.txtEORINL.MaxLines_Warning = "" Me.txtEORINL.MaxLines_Warning = ""
@@ -3921,7 +4056,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtEORI._Waehrung = False Me.txtEORI._Waehrung = False
Me.txtEORI._WaehrungZeichen = True Me.txtEORI._WaehrungZeichen = True
Me.txtEORI.ForeColor = System.Drawing.Color.Black 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.MaxLength = 17
Me.txtEORI.MaxLineLength = -1 Me.txtEORI.MaxLineLength = -1
Me.txtEORI.MaxLines_Warning = "" Me.txtEORI.MaxLines_Warning = ""
@@ -3949,7 +4084,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.cboUSt_UstIdNrLand.FlatStyle = System.Windows.Forms.FlatStyle.System 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.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.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.Name = "cboUSt_UstIdNrLand"
Me.cboUSt_UstIdNrLand.Size = New System.Drawing.Size(43, 21) Me.cboUSt_UstIdNrLand.Size = New System.Drawing.Size(43, 21)
Me.cboUSt_UstIdNrLand.TabIndex = 6 Me.cboUSt_UstIdNrLand.TabIndex = 6
@@ -3958,7 +4093,7 @@ Partial Class usrcntlKundeBearbeitenFull
' '
Me.Label15.AutoSize = True 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.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.Name = "Label15"
Me.Label15.Size = New System.Drawing.Size(39, 13) Me.Label15.Size = New System.Drawing.Size(39, 13)
Me.Label15.TabIndex = 5 Me.Label15.TabIndex = 5
@@ -3989,7 +4124,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtUSt_UstIdNrGeprueftAm._Waehrung = False Me.txtUSt_UstIdNrGeprueftAm._Waehrung = False
Me.txtUSt_UstIdNrGeprueftAm._WaehrungZeichen = True Me.txtUSt_UstIdNrGeprueftAm._WaehrungZeichen = True
Me.txtUSt_UstIdNrGeprueftAm.ForeColor = System.Drawing.Color.Red 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.MaxLength = 10
Me.txtUSt_UstIdNrGeprueftAm.MaxLineLength = -1 Me.txtUSt_UstIdNrGeprueftAm.MaxLineLength = -1
Me.txtUSt_UstIdNrGeprueftAm.MaxLines_Warning = "" Me.txtUSt_UstIdNrGeprueftAm.MaxLines_Warning = ""
@@ -4023,7 +4158,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtUSt_UstIdNr._Waehrung = False Me.txtUSt_UstIdNr._Waehrung = False
Me.txtUSt_UstIdNr._WaehrungZeichen = True Me.txtUSt_UstIdNr._WaehrungZeichen = True
Me.txtUSt_UstIdNr.ForeColor = System.Drawing.Color.Black 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.MaxLength = 12
Me.txtUSt_UstIdNr.MaxLineLength = -1 Me.txtUSt_UstIdNr.MaxLineLength = -1
Me.txtUSt_UstIdNr.MaxLines_Warning = "" Me.txtUSt_UstIdNr.MaxLines_Warning = ""
@@ -4046,7 +4181,7 @@ Partial Class usrcntlKundeBearbeitenFull
' '
Me.Label16.AutoSize = True 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.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.Name = "Label16"
Me.Label16.Size = New System.Drawing.Size(78, 13) Me.Label16.Size = New System.Drawing.Size(78, 13)
Me.Label16.TabIndex = 10 Me.Label16.TabIndex = 10
@@ -4067,7 +4202,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtUSt_Steuernummer._Waehrung = False Me.txtUSt_Steuernummer._Waehrung = False
Me.txtUSt_Steuernummer._WaehrungZeichen = True Me.txtUSt_Steuernummer._WaehrungZeichen = True
Me.txtUSt_Steuernummer.ForeColor = System.Drawing.Color.Black 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.MaxLineLength = -1
Me.txtUSt_Steuernummer.MaxLines_Warning = "" Me.txtUSt_Steuernummer.MaxLines_Warning = ""
Me.txtUSt_Steuernummer.MaxLines_Warning_Label = Nothing Me.txtUSt_Steuernummer.MaxLines_Warning_Label = Nothing
@@ -4080,27 +4215,48 @@ Partial Class usrcntlKundeBearbeitenFull
' '
Me.lblHandelregisterNr.AutoSize = True 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.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.Name = "lblHandelregisterNr"
Me.lblHandelregisterNr.Size = New System.Drawing.Size(100, 13) Me.lblHandelregisterNr.Size = New System.Drawing.Size(100, 13)
Me.lblHandelregisterNr.TabIndex = 132 Me.lblHandelregisterNr.TabIndex = 132
Me.lblHandelregisterNr.Text = "Handelsregister-Nr.:" 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 'GroupBox1
' '
Me.GroupBox1.Controls.Add(Me.cbxLandKz) Me.GroupBox1.Controls.Add(Me.cbxLandKz)
Me.GroupBox1.Controls.Add(Me.Label14) Me.GroupBox1.Controls.Add(Me.Label14)
Me.GroupBox1.Controls.Add(Me.txtPostfachOrt) Me.GroupBox1.Controls.Add(Me.txtPostfachOrt)
Me.GroupBox1.Controls.Add(Me.txtOrt) Me.GroupBox1.Controls.Add(Me.txtOrt)
Me.GroupBox1.Controls.Add(Me.Label100)
Me.GroupBox1.Controls.Add(Me.Label12) Me.GroupBox1.Controls.Add(Me.Label12)
Me.GroupBox1.Controls.Add(Me.txtPostfachPlz) Me.GroupBox1.Controls.Add(Me.txtPostfachPlz)
Me.GroupBox1.Controls.Add(Me.txtAdresseZusatz)
Me.GroupBox1.Controls.Add(Me.txtPlz) Me.GroupBox1.Controls.Add(Me.txtPlz)
Me.GroupBox1.Controls.Add(Me.Label4) Me.GroupBox1.Controls.Add(Me.Label4)
Me.GroupBox1.Controls.Add(Me.txtStrasse) 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.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.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.TabIndex = 1
Me.GroupBox1.TabStop = False Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Adresse" Me.GroupBox1.Text = "Adresse"
@@ -4116,7 +4272,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.cbxLandKz.FlatStyle = System.Windows.Forms.FlatStyle.Flat 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.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.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.Name = "cbxLandKz"
Me.cbxLandKz.Size = New System.Drawing.Size(50, 21) Me.cbxLandKz.Size = New System.Drawing.Size(50, 21)
Me.cbxLandKz.TabIndex = 3 Me.cbxLandKz.TabIndex = 3
@@ -4125,7 +4281,7 @@ Partial Class usrcntlKundeBearbeitenFull
' '
Me.Label14.AutoSize = True 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.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.Name = "Label14"
Me.Label14.Size = New System.Drawing.Size(100, 13) Me.Label14.Size = New System.Drawing.Size(100, 13)
Me.Label14.TabIndex = 6 Me.Label14.TabIndex = 6
@@ -4134,7 +4290,7 @@ Partial Class usrcntlKundeBearbeitenFull
'txtPostfachOrt '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.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.MaxLength = 40
Me.txtPostfachOrt.Name = "txtPostfachOrt" Me.txtPostfachOrt.Name = "txtPostfachOrt"
Me.txtPostfachOrt.Size = New System.Drawing.Size(201, 20) Me.txtPostfachOrt.Size = New System.Drawing.Size(201, 20)
@@ -4143,7 +4299,7 @@ Partial Class usrcntlKundeBearbeitenFull
'txtOrt '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.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.MaxLength = 40
Me.txtOrt.Name = "txtOrt" Me.txtOrt.Name = "txtOrt"
Me.txtOrt.Size = New System.Drawing.Size(201, 20) Me.txtOrt.Size = New System.Drawing.Size(201, 20)
@@ -4153,7 +4309,7 @@ Partial Class usrcntlKundeBearbeitenFull
' '
Me.Label12.AutoSize = True 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.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.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(90, 13) Me.Label12.Size = New System.Drawing.Size(90, 13)
Me.Label12.TabIndex = 2 Me.Label12.TabIndex = 2
@@ -4162,7 +4318,7 @@ Partial Class usrcntlKundeBearbeitenFull
'txtPostfachPlz '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.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.MaxLength = 7
Me.txtPostfachPlz.Name = "txtPostfachPlz" Me.txtPostfachPlz.Name = "txtPostfachPlz"
Me.txtPostfachPlz.Size = New System.Drawing.Size(127, 20) Me.txtPostfachPlz.Size = New System.Drawing.Size(127, 20)
@@ -4171,7 +4327,7 @@ Partial Class usrcntlKundeBearbeitenFull
'txtPlz '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.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.MaxLength = 7
Me.txtPlz.Name = "txtPlz" Me.txtPlz.Name = "txtPlz"
Me.txtPlz.Size = New System.Drawing.Size(71, 20) 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 GroupBox4 As System.Windows.Forms.GroupBox
Friend WithEvents Button10 As System.Windows.Forms.Button Friend WithEvents Button10 As System.Windows.Forms.Button
Friend WithEvents Button9 As System.Windows.Forms.Button Friend WithEvents Button9 As System.Windows.Forms.Button
Friend WithEvents Button8 As System.Windows.Forms.Button Friend WithEvents bntGOBOXUmstellung As System.Windows.Forms.Button
Friend WithEvents Button7 As System.Windows.Forms.Button Friend WithEvents btnKKhinzufuegen As System.Windows.Forms.Button
Friend WithEvents dgvKreditkarten As System.Windows.Forms.DataGridView Friend WithEvents dgvKreditkarten As System.Windows.Forms.DataGridView
Friend WithEvents txtBank_Kto As System.Windows.Forms.TextBox Friend WithEvents txtBank_Kto As System.Windows.Forms.TextBox
Friend WithEvents Label22 As System.Windows.Forms.Label 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 cbxKapitalWaehrung As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Label103 As Label Friend WithEvents Label103 As Label
Friend WithEvents txtKapital As VERAG_PROG_ALLGEMEIN.MyTextBox 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 End Class

256
SDL/kunden/usrcntlKundeBearbeitenFull.vb
View File

@@ -1,5 +1,6 @@
Imports System.ComponentModel Imports System.ComponentModel
Imports com.sun.org.apache.bcel.internal.generic Imports com.sun.org.apache.bcel.internal.generic
Imports com.sun.tools.javac
Imports GrapeCity.ActiveReports.ReportsCore.Tools Imports GrapeCity.ActiveReports.ReportsCore.Tools
Imports java.rmi.server Imports java.rmi.server
Imports VERAG_PROG_ALLGEMEIN Imports VERAG_PROG_ALLGEMEIN
@@ -98,8 +99,13 @@ Public Class usrcntlKundeBearbeitenFull
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE" And Not isVerag360 Then 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")) cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 9900000-9999999: FRONT-OFFICE - Kunden", "9900000-9999999"))
End If End If
bntGOBOXUmstellung.Enabled = isVerag360
btnKKhinzufuegen.Enabled = isVerag360
Button9.Enabled = isVerag360
usrCntlAufschubkonten.initMe(kdnr) usrCntlAufschubkonten.initMe(kdnr)
ucKundenKontakte.btn.Visible = (kdnr > 0) ucKundenKontakte.btn.Visible = (kdnr > 0)
@@ -249,6 +255,13 @@ Public Class usrcntlKundeBearbeitenFull
txtVers_KreditlimitVon._value = loadValue(KUNDE.Kreditlimit_vom, "") txtVers_KreditlimitVon._value = loadValue(KUNDE.Kreditlimit_vom, "")
txtVers_Bankgarantiebetrag._value = loadValue(KUNDE.BankgarantieBetrag, "") txtVers_Bankgarantiebetrag._value = loadValue(KUNDE.BankgarantieBetrag, "")
txtVers_BankgarantiebetragGueltigBis._value = loadValue(KUNDE.BankgarantieGültigBis, "") 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, "") txtVers_Information.Text = loadValue(KUNDE.Info, "")
rtb_Zahlungsinfo.Text = loadValue(KUNDE.Zahlungsinformationen, "") rtb_Zahlungsinfo.Text = loadValue(KUNDE.Zahlungsinformationen, "")
txtVers_Saldo._value = loadValue(KUNDE.LfdSaldo, "") txtVers_Saldo._value = loadValue(KUNDE.LfdSaldo, "")
@@ -264,7 +277,7 @@ Public Class usrcntlKundeBearbeitenFull
txtVersicherung_GemeldeterBetrag._value = loadValue(KUNDE_ERW.kde_Versicherung_GemeldeterBetrag, "") txtVersicherung_GemeldeterBetrag._value = loadValue(KUNDE_ERW.kde_Versicherung_GemeldeterBetrag, "")
txtVers_EHNr.Text = loadValue(KUNDE_ERW.kde_txtVersicherungEHNr, "").ToString txtVers_EHNr.Text = loadValue(KUNDE_ERW.kde_txtVersicherungEHNr, "").ToString
cbxInkassoUebergeben.Checked = KUNDE_ERW.kde_Inkasso_Uebergeben
txtInkassoUebergebenAm._value = loadValue(KUNDE_ERW.kde_Inkasso_UebergebenAm, "") txtInkassoUebergebenAm._value = loadValue(KUNDE_ERW.kde_Inkasso_UebergebenAm, "")
txtInkasso_GemeldeterBetrag._value = KUNDE_ERW.[kde_Inkasso_GemeldeterBetrag] 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_AnerkennungVersicherungsfallAm = isLeerNothing(txtAnerkVersFallAm._value)
KUNDE_ERW.kde_Versicherung_AnerkennungVersicherungsfallAb = isLeerNothing(txtAnerkVersFallAb._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_txtVersicherungDeckungsquote = isLeerNothingDbl(txtVersicherungDeckungsquote._value)
KUNDE_ERW.kde_txtVersicherungNichtVersicherbar = cbxNichtVersicherbar.Checked KUNDE_ERW.kde_txtVersicherungNichtVersicherbar = cbxNichtVersicherbar.Checked
KUNDE_ERW.kde_Versicherung_GemeldeterBetrag = isLeerNothingDbl(txtVersicherung_GemeldeterBetrag._value) KUNDE_ERW.kde_Versicherung_GemeldeterBetrag = isLeerNothingDbl(txtVersicherung_GemeldeterBetrag._value)
@@ -996,27 +1017,9 @@ Public Class usrcntlKundeBearbeitenFull
End If End If
If tbcntrDetails.SelectedTab Is tbBank Then 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 initdgvKreditkarten()
.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 If End If
@@ -1347,7 +1350,7 @@ Public Class usrcntlKundeBearbeitenFull
Case "100000-199999" Case "100000-199999"
If isVerag360 Then If isVerag360 Then
cbxFiBu.Checked = False : cboFirma.changeItem("19") : cboFiliale.changeItem("8001") cbxFiBu.Checked = True : cboFirma.changeItem("19") : cboFiliale.changeItem("8001")
Else Else
cbxFiBu.Checked = False : cboFirma.changeItem("1") : cboFiliale.changeItem("4803") cbxFiBu.Checked = False : cboFirma.changeItem("1") : cboFiliale.changeItem("4803")
End If End If
@@ -1647,4 +1650,215 @@ Public Class usrcntlKundeBearbeitenFull
Dim webAddress As String = "https://wiki.verag.ag/software/aviso/howtos/Creditsafe" Dim webAddress As String = "https://wiki.verag.ag/software/aviso/howtos/Creditsafe"
Process.Start(webAddress) Process.Start(webAddress)
End Sub 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 End Class

3
SDL/mdm/frmMDMDatenverarbetiung.vb
View File

@@ -3484,8 +3484,7 @@ Public Class frmMDMDatenverarbetiung
Dim hint As String = "" Dim hint As String = ""
If fehlendeTransactionen > 500 Then If fehlendeTransactionen > 500 Then
hint = "Batch-Nr: " 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 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, "")) 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 End If

2
VERAG_PROG_ALLGEMEIN/Classes/cFirmen.vb
View File

@@ -29,6 +29,7 @@ Public Class cFirmen
Property Firma_Webadresse As Object = Nothing ' NVARCHAR (40) NULL, Property Firma_Webadresse As Object = Nothing ' NVARCHAR (40) NULL,
Property Firma_LandKz 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 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_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_Webadresse", Firma_Webadresse))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_LandKz", Firma_LandKz)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_LandKz", Firma_LandKz))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firmengruppe", Firmengruppe))
Return list Return list

16
VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb
View File

@@ -81,6 +81,15 @@ Public Class cKundenErweitert
Property kde_Kapital As Object = Nothing Property kde_Kapital As Object = Nothing
Property kde_KapitalWaehrung As Object = Nothing Property kde_KapitalWaehrung As Object = Nothing
Property kde_GruendungsDatum 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 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_Kapital", kde_Kapital))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_KapitalWaehrung", kde_KapitalWaehrung)) 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_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 Return list
End Function End Function

7
VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb
View File

@@ -94,9 +94,7 @@ Public Class cMitarbeiter
Property mit_Sprachkentnisse As Object = Nothing Property mit_Sprachkentnisse As Object = Nothing
Property mit_homeoffice As Boolean = False Property mit_homeoffice As Boolean = False
Property mit_timasNichtStempeln As Boolean = False Property mit_timasNichtStempeln As Boolean = False
Property mit_ausstempelnBeiBeenden As Boolean = False
Dim SQL As New SQL 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_homeoffice", mit_homeoffice))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_timasNichtStempeln", mit_timasNichtStempeln)) 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_emailprivat", mit_emailprivat))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_ausstempelnBeiBeenden", mit_ausstempelnBeiBeenden))
Return list Return list
@@ -408,6 +408,7 @@ Public Class cMitarbeiter
Me.mit_homeoffice = dr.Item("mit_homeoffice") Me.mit_homeoffice = dr.Item("mit_homeoffice")
Me.mit_timasNichtStempeln = dr.Item("mit_timasNichtStempeln") Me.mit_timasNichtStempeln = dr.Item("mit_timasNichtStempeln")
If Not dr.Item("mit_emailprivat") Is DBNull.Value Then Me.mit_emailprivat = dr.Item("mit_emailprivat") 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 Catch ex As Exception

36
VERAG_PROG_ALLGEMEIN/Classes/cTextkonserve.vb
View File

@@ -15,6 +15,20 @@ Public Class cTextkonserve_LIST
End Sub 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) Sub New(txt_FIRMA As String)
LOAD_SPRACHENLIST(txt_FIRMA) LOAD_SPRACHENLIST(txt_FIRMA)
@@ -39,6 +53,26 @@ Public Class cTextkonserve_LIST
End Try End Try
End Sub 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) Public Sub LOAD_SPRACHENLIST(txt_FIRMA As String)
Try Try
@@ -74,6 +108,7 @@ Public Class cTextkonserve
Property txt_sendungsvermerkId As Integer Property txt_sendungsvermerkId As Integer
Property txt_sendungsvermerkText As String Property txt_sendungsvermerkText As String
Property txt_fixerEmpfaengerEmail 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_sendungsvermerkId", txt_sendungsvermerkId))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("txt_sendungsvermerkText", txt_sendungsvermerkText)) 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_fixerEmpfaengerEmail", txt_fixerEmpfaengerEmail))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("txt_typ", txt_typ))
Return list Return list
End Function End Function

20
VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb
View File

@@ -990,16 +990,20 @@ Public Class cFormularManager
Try Try
Dim f = stamper.AcroFields Dim f = stamper.AcroFields
f.GenerateAppearances = True If f IsNot Nothing Then
For Each r In f.Fields f.GenerateAppearances = True
Dim key = r.Key.ToString For Each r In f.Fields
Dim value = IIf(f.GetField(r.Key.ToString) = "", " ", r.Key.ToString) Dim key = r.Key.ToString
Dim listItem As VERAG_PROG_ALLGEMEIN.MyListItem Dim value = IIf(f.GetField(r.Key.ToString) = "", " ", r.Key.ToString)
listItem = New VERAG_PROG_ALLGEMEIN.MyListItem(r.Key.ToString, f.GetField(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 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)

13
VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.Designer.vb generated
View File

@@ -24,7 +24,6 @@ Partial Class frmMessenger
'Das Bearbeiten mit dem Code-Editor ist nicht möglich. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> <System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent() Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim DataGridViewCellStyle1 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 DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle3 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)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMessenger))
Me.SplitContainer = New System.Windows.Forms.SplitContainer() Me.SplitContainer = New System.Windows.Forms.SplitContainer()
Me.SplitContainer2 = 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.Panel6 = New System.Windows.Forms.Panel()
Me.Label3 = New System.Windows.Forms.Label() Me.Label3 = New System.Windows.Forms.Label()
Me.lblLKWChat_MsgCntInaktiv = New System.Windows.Forms.Label() Me.lblLKWChat_MsgCntInaktiv = New System.Windows.Forms.Label()
Me.cbxInaktiveChats = New System.Windows.Forms.CheckBox() 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.Panel5 = New System.Windows.Forms.Panel()
Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.PictureBox2 = New System.Windows.Forms.PictureBox() Me.PictureBox2 = New System.Windows.Forms.PictureBox()
@@ -65,7 +64,7 @@ Partial Class frmMessenger
Me.btnNeu = New System.Windows.Forms.Button() Me.btnNeu = New System.Windows.Forms.Button()
Me.Button1 = New System.Windows.Forms.Button() Me.Button1 = New System.Windows.Forms.Button()
Me.SplitContainer1 = New System.Windows.Forms.SplitContainer() 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.UsrCntlMessenger_ChatElement1 = New VERAG_PROG_ALLGEMEIN.usrCntlMessenger_ChatElement()
Me.Panel3 = New System.Windows.Forms.Panel() Me.Panel3 = New System.Windows.Forms.Panel()
Me.btnTeilnehmer = New System.Windows.Forms.Button() Me.btnTeilnehmer = New System.Windows.Forms.Button()
@@ -93,9 +92,9 @@ Partial Class frmMessenger
Me.btnSendAtt = New System.Windows.Forms.Button() Me.btnSendAtt = New System.Windows.Forms.Button()
Me.btnSenden = New System.Windows.Forms.Button() Me.btnSenden = New System.Windows.Forms.Button()
Me.rtbChatMessage = New System.Windows.Forms.RichTextBox() Me.rtbChatMessage = New System.Windows.Forms.RichTextBox()
Me.TimerNEW_MESSAGE = New System.Windows.Forms.Timer(Me.components) Me.TimerNEW_MESSAGE = New System.Windows.Forms.Timer()
Me.Timer_REFRESH = New System.Windows.Forms.Timer(Me.components) Me.Timer_REFRESH = New System.Windows.Forms.Timer()
Me.cntxt = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.cntxt = New System.Windows.Forms.ContextMenuStrip()
Me.ChatDeaktivierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.ChatDeaktivierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.toolChatReminder = New System.Windows.Forms.ToolStripMenuItem() Me.toolChatReminder = New System.Windows.Forms.ToolStripMenuItem()
Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()