Chat fix, CBAM, USTV, etc.

This commit is contained in:
2025-11-10 15:03:12 +01:00
parent 357af8ab51
commit 1afe147ea8
9 changed files with 5133 additions and 126 deletions

View File

@@ -0,0 +1,945 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmBerufung
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(frmBerufung))
Me.Panel1 = New System.Windows.Forms.Panel()
Me.lblErr_Aufbewarungsort = New System.Windows.Forms.Label()
Me.lblErr_DocNr = New System.Windows.Forms.Label()
Me.Button5 = New System.Windows.Forms.Button()
Me.Button4 = New System.Windows.Forms.Button()
Me.Button3 = New System.Windows.Forms.Button()
Me.txtKennzeichen = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label14 = New System.Windows.Forms.Label()
Me.Button2 = New System.Windows.Forms.Button()
Me.txtLocation = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label12 = New System.Windows.Forms.Label()
Me.Label11 = New System.Windows.Forms.Label()
Me.txtAbsender = New VERAG_PROG_ALLGEMEIN.KdSearchBox()
Me.txtEmpfaenger = New VERAG_PROG_ALLGEMEIN.KdSearchBox()
Me.Label13 = New System.Windows.Forms.Label()
Me.sbAvisoSuche = New VERAG_PROG_ALLGEMEIN.MySearchBox()
Me.lblLKWId = New System.Windows.Forms.Label()
Me.txtAbfNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label5 = New System.Windows.Forms.Label()
Me.txtFiliale = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.txtDocDatum = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.btnUpload = New System.Windows.Forms.Button()
Me.btnScan = New System.Windows.Forms.Button()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.txtDocNumber = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.PictureBox6 = New System.Windows.Forms.PictureBox()
Me.Label10 = New System.Windows.Forms.Label()
Me.Panel3 = New System.Windows.Forms.Panel()
Me.lblErr_ErhaltenDatum = New System.Windows.Forms.Label()
Me.Label9 = New System.Windows.Forms.Label()
Me.cbxKurierPaketdienst = New System.Windows.Forms.CheckBox()
Me.txtErhaltenReferenz = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label6 = New System.Windows.Forms.Label()
Me.cbxKurierMotorrad = New System.Windows.Forms.CheckBox()
Me.txtErhaltenDatum = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label8 = New System.Windows.Forms.Label()
Me.Label7 = New System.Windows.Forms.Label()
Me.txtErhaltenUhrzeit = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Panel4 = New System.Windows.Forms.Panel()
Me.Button1 = New System.Windows.Forms.Button()
Me.btnSave = New System.Windows.Forms.Button()
Me.FlatButton4 = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.FlatButton1 = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.txtInfo = New System.Windows.Forms.RichTextBox()
Me.lblErr_Ausstellungsdatum = New System.Windows.Forms.Label()
Me.Panel1.SuspendLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel2.SuspendLayout()
CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel3.SuspendLayout()
Me.Panel4.SuspendLayout()
Me.SuspendLayout()
'
'Panel1
'
Me.Panel1.BackColor = System.Drawing.Color.White
Me.Panel1.Controls.Add(Me.lblErr_Aufbewarungsort)
Me.Panel1.Controls.Add(Me.lblErr_DocNr)
Me.Panel1.Controls.Add(Me.Button5)
Me.Panel1.Controls.Add(Me.Button4)
Me.Panel1.Controls.Add(Me.Button3)
Me.Panel1.Controls.Add(Me.txtKennzeichen)
Me.Panel1.Controls.Add(Me.Label14)
Me.Panel1.Controls.Add(Me.Button2)
Me.Panel1.Controls.Add(Me.txtLocation)
Me.Panel1.Controls.Add(Me.Label12)
Me.Panel1.Controls.Add(Me.Label11)
Me.Panel1.Controls.Add(Me.txtAbsender)
Me.Panel1.Controls.Add(Me.txtEmpfaenger)
Me.Panel1.Controls.Add(Me.Label13)
Me.Panel1.Controls.Add(Me.sbAvisoSuche)
Me.Panel1.Controls.Add(Me.lblLKWId)
Me.Panel1.Controls.Add(Me.txtAbfNr)
Me.Panel1.Controls.Add(Me.Label5)
Me.Panel1.Controls.Add(Me.txtFiliale)
Me.Panel1.Controls.Add(Me.Label4)
Me.Panel1.Controls.Add(Me.Label3)
Me.Panel1.Controls.Add(Me.Label2)
Me.Panel1.Controls.Add(Me.txtDocDatum)
Me.Panel1.Controls.Add(Me.btnUpload)
Me.Panel1.Controls.Add(Me.btnScan)
Me.Panel1.Controls.Add(Me.PictureBox1)
Me.Panel1.Controls.Add(Me.Label1)
Me.Panel1.Controls.Add(Me.txtDocNumber)
Me.Panel1.Controls.Add(Me.Panel2)
Me.Panel1.Controls.Add(Me.Panel3)
Me.Panel1.Controls.Add(Me.Panel4)
Me.Panel1.Controls.Add(Me.FlatButton4)
Me.Panel1.Controls.Add(Me.FlatButton1)
Me.Panel1.Controls.Add(Me.txtInfo)
Me.Panel1.Controls.Add(Me.lblErr_Ausstellungsdatum)
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel1.Location = New System.Drawing.Point(0, 0)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(658, 588)
Me.Panel1.TabIndex = 0
'
'lblErr_Aufbewarungsort
'
Me.lblErr_Aufbewarungsort.AutoSize = True
Me.lblErr_Aufbewarungsort.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Italic)
Me.lblErr_Aufbewarungsort.ForeColor = System.Drawing.Color.Red
Me.lblErr_Aufbewarungsort.Location = New System.Drawing.Point(388, 327)
Me.lblErr_Aufbewarungsort.Name = "lblErr_Aufbewarungsort"
Me.lblErr_Aufbewarungsort.Size = New System.Drawing.Size(56, 13)
Me.lblErr_Aufbewarungsort.TabIndex = 108
Me.lblErr_Aufbewarungsort.Text = "Pflichtfeld!"
Me.lblErr_Aufbewarungsort.TextAlign = System.Drawing.ContentAlignment.TopRight
Me.lblErr_Aufbewarungsort.Visible = False
'
'lblErr_DocNr
'
Me.lblErr_DocNr.AutoSize = True
Me.lblErr_DocNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Italic)
Me.lblErr_DocNr.ForeColor = System.Drawing.Color.Red
Me.lblErr_DocNr.Location = New System.Drawing.Point(388, 53)
Me.lblErr_DocNr.Name = "lblErr_DocNr"
Me.lblErr_DocNr.Size = New System.Drawing.Size(56, 13)
Me.lblErr_DocNr.TabIndex = 107
Me.lblErr_DocNr.Text = "Pflichtfeld!"
Me.lblErr_DocNr.TextAlign = System.Drawing.ContentAlignment.TopRight
Me.lblErr_DocNr.Visible = False
'
'Button5
'
Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.Button5.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button5.Location = New System.Drawing.Point(609, 341)
Me.Button5.Name = "Button5"
Me.Button5.Size = New System.Drawing.Size(39, 26)
Me.Button5.TabIndex = 105
Me.Button5.Text = "FO"
Me.Button5.UseVisualStyleBackColor = True
'
'Button4
'
Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.Button4.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button4.Location = New System.Drawing.Point(510, 341)
Me.Button4.Name = "Button4"
Me.Button4.Size = New System.Drawing.Size(101, 26)
Me.Button4.TabIndex = 104
Me.Button4.Text = "VERRECHNUNG"
Me.Button4.UseVisualStyleBackColor = True
'
'Button3
'
Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.Button3.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button3.Location = New System.Drawing.Point(444, 341)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(67, 26)
Me.Button3.TabIndex = 103
Me.Button3.Text = "VERIMEX"
Me.Button3.UseVisualStyleBackColor = True
'
'txtKennzeichen
'
Me.txtKennzeichen._DateTimeOnly = False
Me.txtKennzeichen._numbersOnly = False
Me.txtKennzeichen._numbersOnlyKommastellen = ""
Me.txtKennzeichen._numbersOnlyTrennzeichen = True
Me.txtKennzeichen._Prozent = False
Me.txtKennzeichen._ShortDateNew = False
Me.txtKennzeichen._ShortDateOnly = False
Me.txtKennzeichen._TimeOnly = False
Me.txtKennzeichen._TimeOnly_Seconds = False
Me.txtKennzeichen._value = ""
Me.txtKennzeichen._Waehrung = False
Me.txtKennzeichen._WaehrungZeichen = False
Me.txtKennzeichen.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
Me.txtKennzeichen.ForeColor = System.Drawing.Color.Black
Me.txtKennzeichen.Location = New System.Drawing.Point(473, 279)
Me.txtKennzeichen.MaxLineLength = -1
Me.txtKennzeichen.MaxLines_Warning = ""
Me.txtKennzeichen.MaxLines_Warning_Label = Nothing
Me.txtKennzeichen.Name = "txtKennzeichen"
Me.txtKennzeichen.Size = New System.Drawing.Size(175, 26)
Me.txtKennzeichen.TabIndex = 7
'
'Label14
'
Me.Label14.AutoSize = True
Me.Label14.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
Me.Label14.Location = New System.Drawing.Point(469, 256)
Me.Label14.Name = "Label14"
Me.Label14.Size = New System.Drawing.Size(47, 20)
Me.Label14.TabIndex = 102
Me.Label14.Text = "LKW:"
'
'Button2
'
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button2.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.Button2.Image = Global.SDL.My.Resources.Resources.android_note12
Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button2.Location = New System.Drawing.Point(473, 211)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(175, 31)
Me.Button2.TabIndex = 100
Me.Button2.Text = "Aus Zwischenablage"
Me.Button2.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button2.UseVisualStyleBackColor = True
'
'txtLocation
'
Me.txtLocation._DateTimeOnly = False
Me.txtLocation._numbersOnly = False
Me.txtLocation._numbersOnlyKommastellen = ""
Me.txtLocation._numbersOnlyTrennzeichen = True
Me.txtLocation._Prozent = False
Me.txtLocation._ShortDateNew = False
Me.txtLocation._ShortDateOnly = False
Me.txtLocation._TimeOnly = False
Me.txtLocation._TimeOnly_Seconds = False
Me.txtLocation._value = ""
Me.txtLocation._Waehrung = False
Me.txtLocation._WaehrungZeichen = False
Me.txtLocation.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
Me.txtLocation.ForeColor = System.Drawing.Color.Black
Me.txtLocation.Location = New System.Drawing.Point(157, 341)
Me.txtLocation.MaxLineLength = -1
Me.txtLocation.MaxLines_Warning = ""
Me.txtLocation.MaxLines_Warning_Label = Nothing
Me.txtLocation.Name = "txtLocation"
Me.txtLocation.Size = New System.Drawing.Size(288, 26)
Me.txtLocation.TabIndex = 8
'
'Label12
'
Me.Label12.AutoSize = True
Me.Label12.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
Me.Label12.Location = New System.Drawing.Point(9, 366)
Me.Label12.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(41, 20)
Me.Label12.TabIndex = 66
Me.Label12.Text = "Info:"
'
'Label11
'
Me.Label11.AutoSize = True
Me.Label11.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
Me.Label11.Location = New System.Drawing.Point(9, 344)
Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(143, 20)
Me.Label11.TabIndex = 66
Me.Label11.Text = "Aufbewarungs-Ort:"
'
'txtAbsender
'
Me.txtAbsender._AlleFirmenCLUSTER = False
Me.txtAbsender._AllowSetValue = True
Me.txtAbsender._autoSizeGross = True
Me.txtAbsender._display_Name1 = False
Me.txtAbsender._displayAVISO_Email = False
Me.txtAbsender._displayFullName = False
Me.txtAbsender._displayWoelflKd = False
Me.txtAbsender._hideIfListEmpty = True
Me.txtAbsender._loadKdData = True
Me.txtAbsender._searchName1 = True
Me.txtAbsender._UseFIRMA = ""
Me.txtAbsender._ValueKdAndName = True
Me.txtAbsender.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
Me.txtAbsender.dgvpos = "LEFT"
Me.txtAbsender.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
Me.txtAbsender.KdName = ""
Me.txtAbsender.KdNr = "-1"
Me.txtAbsender.kdNrField = Nothing
Me.txtAbsender.KdNrNullInt = Nothing
Me.txtAbsender.Location = New System.Drawing.Point(157, 151)
Me.txtAbsender.MaxLength = 50
Me.txtAbsender.Name = "txtAbsender"
Me.txtAbsender.nurAktive = False
Me.txtAbsender.searchActive = True
Me.txtAbsender.Size = New System.Drawing.Size(263, 26)
Me.txtAbsender.TabIndex = 3
Me.txtAbsender.TIMER_SEARCH = True
Me.txtAbsender.usrcntl = Nothing
'
'txtEmpfaenger
'
Me.txtEmpfaenger._AlleFirmenCLUSTER = False
Me.txtEmpfaenger._AllowSetValue = True
Me.txtEmpfaenger._autoSizeGross = True
Me.txtEmpfaenger._display_Name1 = False
Me.txtEmpfaenger._displayAVISO_Email = False
Me.txtEmpfaenger._displayFullName = False
Me.txtEmpfaenger._displayWoelflKd = False
Me.txtEmpfaenger._hideIfListEmpty = True
Me.txtEmpfaenger._loadKdData = True
Me.txtEmpfaenger._searchName1 = True
Me.txtEmpfaenger._UseFIRMA = ""
Me.txtEmpfaenger._ValueKdAndName = True
Me.txtEmpfaenger.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
Me.txtEmpfaenger.dgvpos = "LEFT"
Me.txtEmpfaenger.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
Me.txtEmpfaenger.KdName = ""
Me.txtEmpfaenger.KdNr = "-1"
Me.txtEmpfaenger.kdNrField = Nothing
Me.txtEmpfaenger.KdNrNullInt = Nothing
Me.txtEmpfaenger.Location = New System.Drawing.Point(157, 176)
Me.txtEmpfaenger.Name = "txtEmpfaenger"
Me.txtEmpfaenger.nurAktive = False
Me.txtEmpfaenger.searchActive = True
Me.txtEmpfaenger.Size = New System.Drawing.Size(263, 26)
Me.txtEmpfaenger.TabIndex = 4
Me.txtEmpfaenger.TIMER_SEARCH = True
Me.txtEmpfaenger.usrcntl = Nothing
'
'Label13
'
Me.Label13.AutoSize = True
Me.Label13.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
Me.Label13.Location = New System.Drawing.Point(9, 179)
Me.Label13.Name = "Label13"
Me.Label13.Size = New System.Drawing.Size(92, 20)
Me.Label13.TabIndex = 33
Me.Label13.Text = "Empfänger:"
'
'sbAvisoSuche
'
Me.sbAvisoSuche._allowFreitext = False
Me.sbAvisoSuche._AllowSetValue = False
Me.sbAvisoSuche._allowSpaceAsSplitter = False
Me.sbAvisoSuche._autoSizeGross = False
Me.sbAvisoSuche._hideIfListEmpty = True
Me.sbAvisoSuche._value = Nothing
Me.sbAvisoSuche.conn_art = "FMZOLL"
Me.sbAvisoSuche.dgvpos = "LEFT"
Me.sbAvisoSuche.DISPLAY_PARAM = Nothing
Me.sbAvisoSuche.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
Me.sbAvisoSuche.INVISIBLE_COLUMNS = Nothing
Me.sbAvisoSuche.key_visible = False
Me.sbAvisoSuche.KEYPARAM = Nothing
Me.sbAvisoSuche.Location = New System.Drawing.Point(157, 255)
Me.sbAvisoSuche.Name = "sbAvisoSuche"
Me.sbAvisoSuche.searchActive = True
Me.sbAvisoSuche.Size = New System.Drawing.Size(288, 26)
Me.sbAvisoSuche.SQL_ORDER_BY = Nothing
Me.sbAvisoSuche.SQL_SELECT = Nothing
Me.sbAvisoSuche.SQL_WHERE = Nothing
Me.sbAvisoSuche.SQL_WhereParamList = Nothing
Me.sbAvisoSuche.TabIndex = 5
Me.sbAvisoSuche.usrcntl = Nothing
'
'lblLKWId
'
Me.lblLKWId.AutoSize = True
Me.lblLKWId.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Italic)
Me.lblLKWId.Location = New System.Drawing.Point(603, 263)
Me.lblLKWId.Name = "lblLKWId"
Me.lblLKWId.Size = New System.Drawing.Size(45, 13)
Me.lblLKWId.TabIndex = 30
Me.lblLKWId.Text = "LKW-ID"
Me.lblLKWId.TextAlign = System.Drawing.ContentAlignment.TopRight
Me.lblLKWId.Visible = False
'
'txtAbfNr
'
Me.txtAbfNr._DateTimeOnly = False
Me.txtAbfNr._numbersOnly = True
Me.txtAbfNr._numbersOnlyKommastellen = ""
Me.txtAbfNr._numbersOnlyTrennzeichen = True
Me.txtAbfNr._Prozent = False
Me.txtAbfNr._ShortDateNew = False
Me.txtAbfNr._ShortDateOnly = False
Me.txtAbfNr._TimeOnly = False
Me.txtAbfNr._TimeOnly_Seconds = False
Me.txtAbfNr._value = ""
Me.txtAbfNr._Waehrung = False
Me.txtAbfNr._WaehrungZeichen = True
Me.txtAbfNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
Me.txtAbfNr.ForeColor = System.Drawing.Color.Black
Me.txtAbfNr.Location = New System.Drawing.Point(238, 280)
Me.txtAbfNr.MaxLength = 8
Me.txtAbfNr.MaxLineLength = -1
Me.txtAbfNr.MaxLines_Warning = ""
Me.txtAbfNr.MaxLines_Warning_Label = Nothing
Me.txtAbfNr.Name = "txtAbfNr"
Me.txtAbfNr.Size = New System.Drawing.Size(207, 26)
Me.txtAbfNr.TabIndex = 7
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
Me.Label5.Location = New System.Drawing.Point(9, 283)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(131, 20)
Me.Label5.TabIndex = 15
Me.Label5.Text = "FilialenNr/Abf.Nr.:"
'
'txtFiliale
'
Me.txtFiliale._DateTimeOnly = False
Me.txtFiliale._numbersOnly = True
Me.txtFiliale._numbersOnlyKommastellen = ""
Me.txtFiliale._numbersOnlyTrennzeichen = True
Me.txtFiliale._Prozent = False
Me.txtFiliale._ShortDateNew = False
Me.txtFiliale._ShortDateOnly = False
Me.txtFiliale._TimeOnly = False
Me.txtFiliale._TimeOnly_Seconds = False
Me.txtFiliale._value = ""
Me.txtFiliale._Waehrung = False
Me.txtFiliale._WaehrungZeichen = True
Me.txtFiliale.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
Me.txtFiliale.ForeColor = System.Drawing.Color.Black
Me.txtFiliale.Location = New System.Drawing.Point(157, 280)
Me.txtFiliale.MaxLength = 4
Me.txtFiliale.MaxLineLength = -1
Me.txtFiliale.MaxLines_Warning = ""
Me.txtFiliale.MaxLines_Warning_Label = Nothing
Me.txtFiliale.Name = "txtFiliale"
Me.txtFiliale.Size = New System.Drawing.Size(82, 26)
Me.txtFiliale.TabIndex = 6
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
Me.Label4.Location = New System.Drawing.Point(9, 258)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(114, 20)
Me.Label4.TabIndex = 13
Me.Label4.Text = "AVISO-Suche:"
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
Me.Label3.Location = New System.Drawing.Point(9, 154)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(82, 20)
Me.Label3.TabIndex = 11
Me.Label3.Text = "Absender:"
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
Me.Label2.Location = New System.Drawing.Point(9, 102)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(61, 20)
Me.Label2.TabIndex = 9
Me.Label2.Text = "Datum:"
'
'txtDocDatum
'
Me.txtDocDatum._DateTimeOnly = False
Me.txtDocDatum._numbersOnly = False
Me.txtDocDatum._numbersOnlyKommastellen = ""
Me.txtDocDatum._numbersOnlyTrennzeichen = False
Me.txtDocDatum._Prozent = False
Me.txtDocDatum._ShortDateNew = True
Me.txtDocDatum._ShortDateOnly = False
Me.txtDocDatum._TimeOnly = False
Me.txtDocDatum._TimeOnly_Seconds = False
Me.txtDocDatum._value = ""
Me.txtDocDatum._Waehrung = False
Me.txtDocDatum._WaehrungZeichen = False
Me.txtDocDatum.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
Me.txtDocDatum.ForeColor = System.Drawing.Color.Black
Me.txtDocDatum.Location = New System.Drawing.Point(157, 99)
Me.txtDocDatum.MaxLength = 10
Me.txtDocDatum.MaxLineLength = -1
Me.txtDocDatum.MaxLines_Warning = ""
Me.txtDocDatum.MaxLines_Warning_Label = Nothing
Me.txtDocDatum.Name = "txtDocDatum"
Me.txtDocDatum.Size = New System.Drawing.Size(288, 26)
Me.txtDocDatum.TabIndex = 2
'
'btnUpload
'
Me.btnUpload.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnUpload.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.btnUpload.Image = Global.SDL.My.Resources.Resources.pdf_s
Me.btnUpload.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnUpload.Location = New System.Drawing.Point(473, 181)
Me.btnUpload.Name = "btnUpload"
Me.btnUpload.Size = New System.Drawing.Size(175, 31)
Me.btnUpload.TabIndex = 11
Me.btnUpload.Text = "Upload..."
Me.btnUpload.UseVisualStyleBackColor = True
'
'btnScan
'
Me.btnScan.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnScan.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.btnScan.Image = Global.SDL.My.Resources.Resources.scanner1
Me.btnScan.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnScan.Location = New System.Drawing.Point(473, 151)
Me.btnScan.Name = "btnScan"
Me.btnScan.Size = New System.Drawing.Size(175, 31)
Me.btnScan.TabIndex = 10
Me.btnScan.Text = "Scan..."
Me.btnScan.UseVisualStyleBackColor = True
'
'PictureBox1
'
Me.PictureBox1.BackgroundImage = Global.SDL.My.Resources.Resources.pdf_gray
Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox1.Cursor = System.Windows.Forms.Cursors.Hand
Me.PictureBox1.Location = New System.Drawing.Point(473, 67)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(175, 76)
Me.PictureBox1.TabIndex = 5
Me.PictureBox1.TabStop = False
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
Me.Label1.Location = New System.Drawing.Point(9, 70)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(112, 20)
Me.Label1.TabIndex = 4
Me.Label1.Text = "Dokument-Nr.:"
'
'txtDocNumber
'
Me.txtDocNumber._DateTimeOnly = False
Me.txtDocNumber._numbersOnly = False
Me.txtDocNumber._numbersOnlyKommastellen = ""
Me.txtDocNumber._numbersOnlyTrennzeichen = True
Me.txtDocNumber._Prozent = False
Me.txtDocNumber._ShortDateNew = False
Me.txtDocNumber._ShortDateOnly = False
Me.txtDocNumber._TimeOnly = False
Me.txtDocNumber._TimeOnly_Seconds = False
Me.txtDocNumber._value = ""
Me.txtDocNumber._Waehrung = False
Me.txtDocNumber._WaehrungZeichen = True
Me.txtDocNumber.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
Me.txtDocNumber.ForeColor = System.Drawing.Color.Black
Me.txtDocNumber.Location = New System.Drawing.Point(157, 67)
Me.txtDocNumber.MaxLineLength = -1
Me.txtDocNumber.MaxLines_Warning = ""
Me.txtDocNumber.MaxLines_Warning_Label = Nothing
Me.txtDocNumber.Name = "txtDocNumber"
Me.txtDocNumber.Size = New System.Drawing.Size(288, 26)
Me.txtDocNumber.TabIndex = 1
'
'Panel2
'
Me.Panel2.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Panel2.Controls.Add(Me.PictureBox6)
Me.Panel2.Controls.Add(Me.Label10)
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel2.Location = New System.Drawing.Point(0, 0)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(658, 44)
Me.Panel2.TabIndex = 1
'
'PictureBox6
'
Me.PictureBox6.BackgroundImage = Global.SDL.My.Resources.Resources.fragezeichen
Me.PictureBox6.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox6.Cursor = System.Windows.Forms.Cursors.Hand
Me.PictureBox6.Location = New System.Drawing.Point(640, 0)
Me.PictureBox6.Name = "PictureBox6"
Me.PictureBox6.Size = New System.Drawing.Size(18, 19)
Me.PictureBox6.TabIndex = 134
Me.PictureBox6.TabStop = False
'
'Label10
'
Me.Label10.AutoSize = True
Me.Label10.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.Label10.ForeColor = System.Drawing.Color.White
Me.Label10.Location = New System.Drawing.Point(13, 14)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(634, 17)
Me.Label10.TabIndex = 5
Me.Label10.Text = "Bitte erfassen Sie die Daten vollständig, damit das ATR bei der Abfertigung gefun" &
"den werden kann."
'
'Panel3
'
Me.Panel3.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.Panel3.BackColor = System.Drawing.Color.FloralWhite
Me.Panel3.Controls.Add(Me.lblErr_ErhaltenDatum)
Me.Panel3.Controls.Add(Me.Label9)
Me.Panel3.Controls.Add(Me.cbxKurierPaketdienst)
Me.Panel3.Controls.Add(Me.txtErhaltenReferenz)
Me.Panel3.Controls.Add(Me.Label6)
Me.Panel3.Controls.Add(Me.cbxKurierMotorrad)
Me.Panel3.Controls.Add(Me.txtErhaltenDatum)
Me.Panel3.Controls.Add(Me.Label8)
Me.Panel3.Controls.Add(Me.Label7)
Me.Panel3.Controls.Add(Me.txtErhaltenUhrzeit)
Me.Panel3.Location = New System.Drawing.Point(0, 470)
Me.Panel3.Name = "Panel3"
Me.Panel3.Size = New System.Drawing.Size(462, 118)
Me.Panel3.TabIndex = 98
'
'lblErr_ErhaltenDatum
'
Me.lblErr_ErhaltenDatum.AutoSize = True
Me.lblErr_ErhaltenDatum.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Italic)
Me.lblErr_ErhaltenDatum.ForeColor = System.Drawing.Color.Red
Me.lblErr_ErhaltenDatum.Location = New System.Drawing.Point(245, 26)
Me.lblErr_ErhaltenDatum.Name = "lblErr_ErhaltenDatum"
Me.lblErr_ErhaltenDatum.Size = New System.Drawing.Size(56, 13)
Me.lblErr_ErhaltenDatum.TabIndex = 109
Me.lblErr_ErhaltenDatum.Text = "Pflichtfeld!"
Me.lblErr_ErhaltenDatum.TextAlign = System.Drawing.ContentAlignment.TopRight
Me.lblErr_ErhaltenDatum.Visible = False
'
'Label9
'
Me.Label9.AutoSize = True
Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
Me.Label9.Location = New System.Drawing.Point(9, 67)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(104, 20)
Me.Label9.TabIndex = 27
Me.Label9.Text = "Referenz-Nr.:"
'
'cbxKurierPaketdienst
'
Me.cbxKurierPaketdienst.AutoSize = True
Me.cbxKurierPaketdienst.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.cbxKurierPaketdienst.Location = New System.Drawing.Point(300, 91)
Me.cbxKurierPaketdienst.Name = "cbxKurierPaketdienst"
Me.cbxKurierPaketdienst.Size = New System.Drawing.Size(155, 21)
Me.cbxKurierPaketdienst.TabIndex = 5
Me.cbxKurierPaketdienst.Text = "Paketdienst (DHL,..)"
Me.cbxKurierPaketdienst.UseVisualStyleBackColor = True
'
'txtErhaltenReferenz
'
Me.txtErhaltenReferenz._DateTimeOnly = False
Me.txtErhaltenReferenz._numbersOnly = False
Me.txtErhaltenReferenz._numbersOnlyKommastellen = ""
Me.txtErhaltenReferenz._numbersOnlyTrennzeichen = True
Me.txtErhaltenReferenz._Prozent = False
Me.txtErhaltenReferenz._ShortDateNew = False
Me.txtErhaltenReferenz._ShortDateOnly = False
Me.txtErhaltenReferenz._TimeOnly = False
Me.txtErhaltenReferenz._TimeOnly_Seconds = False
Me.txtErhaltenReferenz._value = ""
Me.txtErhaltenReferenz._Waehrung = False
Me.txtErhaltenReferenz._WaehrungZeichen = True
Me.txtErhaltenReferenz.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
Me.txtErhaltenReferenz.ForeColor = System.Drawing.Color.Black
Me.txtErhaltenReferenz.Location = New System.Drawing.Point(156, 64)
Me.txtErhaltenReferenz.MaxLineLength = -1
Me.txtErhaltenReferenz.MaxLines_Warning = ""
Me.txtErhaltenReferenz.MaxLines_Warning_Label = Nothing
Me.txtErhaltenReferenz.Name = "txtErhaltenReferenz"
Me.txtErhaltenReferenz.Size = New System.Drawing.Size(288, 26)
Me.txtErhaltenReferenz.TabIndex = 3
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Underline)
Me.Label6.Location = New System.Drawing.Point(9, 13)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(149, 20)
Me.Label6.TabIndex = 18
Me.Label6.Text = "Dokument erhalten:"
'
'cbxKurierMotorrad
'
Me.cbxKurierMotorrad.AutoSize = True
Me.cbxKurierMotorrad.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.cbxKurierMotorrad.Location = New System.Drawing.Point(156, 91)
Me.cbxKurierMotorrad.Name = "cbxKurierMotorrad"
Me.cbxKurierMotorrad.Size = New System.Drawing.Size(127, 21)
Me.cbxKurierMotorrad.TabIndex = 4
Me.cbxKurierMotorrad.Text = "Motorrad-Kurier"
Me.cbxKurierMotorrad.UseVisualStyleBackColor = True
'
'txtErhaltenDatum
'
Me.txtErhaltenDatum._DateTimeOnly = False
Me.txtErhaltenDatum._numbersOnly = False
Me.txtErhaltenDatum._numbersOnlyKommastellen = ""
Me.txtErhaltenDatum._numbersOnlyTrennzeichen = True
Me.txtErhaltenDatum._Prozent = False
Me.txtErhaltenDatum._ShortDateNew = True
Me.txtErhaltenDatum._ShortDateOnly = False
Me.txtErhaltenDatum._TimeOnly = False
Me.txtErhaltenDatum._TimeOnly_Seconds = False
Me.txtErhaltenDatum._value = ""
Me.txtErhaltenDatum._Waehrung = False
Me.txtErhaltenDatum._WaehrungZeichen = True
Me.txtErhaltenDatum.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
Me.txtErhaltenDatum.ForeColor = System.Drawing.Color.Black
Me.txtErhaltenDatum.Location = New System.Drawing.Point(156, 39)
Me.txtErhaltenDatum.MaxLength = 10
Me.txtErhaltenDatum.MaxLineLength = -1
Me.txtErhaltenDatum.MaxLines_Warning = ""
Me.txtErhaltenDatum.MaxLines_Warning_Label = Nothing
Me.txtErhaltenDatum.Name = "txtErhaltenDatum"
Me.txtErhaltenDatum.Size = New System.Drawing.Size(145, 26)
Me.txtErhaltenDatum.TabIndex = 1
'
'Label8
'
Me.Label8.AutoSize = True
Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
Me.Label8.Location = New System.Drawing.Point(9, 92)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(34, 20)
Me.Label8.TabIndex = 22
Me.Label8.Text = "Art:"
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
Me.Label7.Location = New System.Drawing.Point(9, 42)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(116, 20)
Me.Label7.TabIndex = 19
Me.Label7.Text = "Datum/Uhrzeit:"
'
'txtErhaltenUhrzeit
'
Me.txtErhaltenUhrzeit._DateTimeOnly = False
Me.txtErhaltenUhrzeit._numbersOnly = False
Me.txtErhaltenUhrzeit._numbersOnlyKommastellen = ""
Me.txtErhaltenUhrzeit._numbersOnlyTrennzeichen = True
Me.txtErhaltenUhrzeit._Prozent = False
Me.txtErhaltenUhrzeit._ShortDateNew = False
Me.txtErhaltenUhrzeit._ShortDateOnly = False
Me.txtErhaltenUhrzeit._TimeOnly = True
Me.txtErhaltenUhrzeit._TimeOnly_Seconds = False
Me.txtErhaltenUhrzeit._value = ""
Me.txtErhaltenUhrzeit._Waehrung = False
Me.txtErhaltenUhrzeit._WaehrungZeichen = True
Me.txtErhaltenUhrzeit.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
Me.txtErhaltenUhrzeit.ForeColor = System.Drawing.Color.Black
Me.txtErhaltenUhrzeit.Location = New System.Drawing.Point(300, 39)
Me.txtErhaltenUhrzeit.MaxLength = 8
Me.txtErhaltenUhrzeit.MaxLineLength = -1
Me.txtErhaltenUhrzeit.MaxLines_Warning = ""
Me.txtErhaltenUhrzeit.MaxLines_Warning_Label = Nothing
Me.txtErhaltenUhrzeit.Name = "txtErhaltenUhrzeit"
Me.txtErhaltenUhrzeit.Size = New System.Drawing.Size(144, 26)
Me.txtErhaltenUhrzeit.TabIndex = 2
'
'Panel4
'
Me.Panel4.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Panel4.BackColor = System.Drawing.Color.WhiteSmoke
Me.Panel4.Controls.Add(Me.Button1)
Me.Panel4.Controls.Add(Me.btnSave)
Me.Panel4.Location = New System.Drawing.Point(461, 470)
Me.Panel4.Name = "Panel4"
Me.Panel4.Size = New System.Drawing.Size(197, 118)
Me.Panel4.TabIndex = 99
'
'Button1
'
Me.Button1.BackColor = System.Drawing.Color.White
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.Button1.Image = Global.SDL.My.Resources.Resources.del_small
Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button1.Location = New System.Drawing.Point(12, 83)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(175, 30)
Me.Button1.TabIndex = 3
Me.Button1.Text = "Abbrechen "
Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button1.UseVisualStyleBackColor = False
'
'btnSave
'
Me.btnSave.BackColor = System.Drawing.Color.White
Me.btnSave.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnSave.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
Me.btnSave.Image = Global.SDL.My.Resources.Resources.save
Me.btnSave.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnSave.Location = New System.Drawing.Point(12, 7)
Me.btnSave.Name = "btnSave"
Me.btnSave.Size = New System.Drawing.Size(175, 72)
Me.btnSave.TabIndex = 2
Me.btnSave.Text = "Speichern "
Me.btnSave.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnSave.UseVisualStyleBackColor = False
'
'FlatButton4
'
Me.FlatButton4.allowBorder = False
Me.FlatButton4.BackgroundImage = CType(resources.GetObject("FlatButton4.BackgroundImage"), System.Drawing.Image)
Me.FlatButton4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.FlatButton4.FlatAppearance.BorderSize = 0
Me.FlatButton4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.FlatButton4.ForeColor = System.Drawing.Color.Black
Me.FlatButton4.Location = New System.Drawing.Point(419, 150)
Me.FlatButton4.Name = "FlatButton4"
Me.FlatButton4.Size = New System.Drawing.Size(26, 26)
Me.FlatButton4.TabIndex = 98
Me.FlatButton4.TabStop = False
Me.FlatButton4.UseVisualStyleBackColor = True
'
'FlatButton1
'
Me.FlatButton1.allowBorder = False
Me.FlatButton1.BackgroundImage = CType(resources.GetObject("FlatButton1.BackgroundImage"), System.Drawing.Image)
Me.FlatButton1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
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(419, 175)
Me.FlatButton1.Name = "FlatButton1"
Me.FlatButton1.Size = New System.Drawing.Size(26, 26)
Me.FlatButton1.TabIndex = 99
Me.FlatButton1.TabStop = False
Me.FlatButton1.UseVisualStyleBackColor = True
'
'txtInfo
'
Me.txtInfo.Location = New System.Drawing.Point(157, 366)
Me.txtInfo.Name = "txtInfo"
Me.txtInfo.Size = New System.Drawing.Size(491, 84)
Me.txtInfo.TabIndex = 9
Me.txtInfo.Text = ""
'
'lblErr_Ausstellungsdatum
'
Me.lblErr_Ausstellungsdatum.AutoSize = True
Me.lblErr_Ausstellungsdatum.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Italic)
Me.lblErr_Ausstellungsdatum.ForeColor = System.Drawing.Color.Red
Me.lblErr_Ausstellungsdatum.Location = New System.Drawing.Point(389, 126)
Me.lblErr_Ausstellungsdatum.Name = "lblErr_Ausstellungsdatum"
Me.lblErr_Ausstellungsdatum.Size = New System.Drawing.Size(56, 13)
Me.lblErr_Ausstellungsdatum.TabIndex = 106
Me.lblErr_Ausstellungsdatum.Text = "Pflichtfeld!"
Me.lblErr_Ausstellungsdatum.TextAlign = System.Drawing.ContentAlignment.TopRight
Me.lblErr_Ausstellungsdatum.Visible = False
'
'frmATR
'
Me.AllowDrop = True
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(658, 588)
Me.Controls.Add(Me.Panel1)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmATR"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
Me.Text = "ATR/EUR1"
Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel2.ResumeLayout(False)
Me.Panel2.PerformLayout()
CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel3.ResumeLayout(False)
Me.Panel3.PerformLayout()
Me.Panel4.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
Friend WithEvents Panel1 As Panel
Friend WithEvents PictureBox1 As PictureBox
Friend WithEvents Label1 As Label
Friend WithEvents txtDocNumber As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents btnSave As Button
Friend WithEvents Panel2 As Panel
Friend WithEvents btnScan As Button
Friend WithEvents Label2 As Label
Friend WithEvents txtDocDatum As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents btnUpload As Button
Friend WithEvents Label8 As Label
Friend WithEvents txtErhaltenUhrzeit As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label7 As Label
Friend WithEvents Label6 As Label
Friend WithEvents txtErhaltenDatum As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtAbfNr As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label5 As Label
Friend WithEvents txtFiliale As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label4 As Label
Friend WithEvents Label3 As Label
Friend WithEvents Panel3 As Panel
Friend WithEvents cbxKurierPaketdienst As CheckBox
Friend WithEvents cbxKurierMotorrad As CheckBox
Friend WithEvents Label9 As Label
Friend WithEvents txtErhaltenReferenz As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Panel4 As Panel
Friend WithEvents Label10 As Label
Friend WithEvents lblLKWId As Label
Friend WithEvents sbAvisoSuche As VERAG_PROG_ALLGEMEIN.MySearchBox
Friend WithEvents Label13 As Label
Friend WithEvents txtAbsender As VERAG_PROG_ALLGEMEIN.KdSearchBox
Friend WithEvents txtEmpfaenger As VERAG_PROG_ALLGEMEIN.KdSearchBox
Friend WithEvents Button1 As Button
Friend WithEvents FlatButton4 As VERAG_PROG_ALLGEMEIN.FlatButton
Friend WithEvents FlatButton1 As VERAG_PROG_ALLGEMEIN.FlatButton
Friend WithEvents txtLocation As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label12 As Label
Friend WithEvents Label11 As Label
Friend WithEvents txtInfo As RichTextBox
Friend WithEvents Button2 As Button
Friend WithEvents txtKennzeichen As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label14 As Label
Friend WithEvents Button5 As Button
Friend WithEvents Button4 As Button
Friend WithEvents Button3 As Button
Friend WithEvents lblErr_Aufbewarungsort As Label
Friend WithEvents lblErr_DocNr As Label
Friend WithEvents lblErr_Ausstellungsdatum As Label
Friend WithEvents PictureBox6 As PictureBox
Friend WithEvents lblErr_ErhaltenDatum As Label
End Class

File diff suppressed because it is too large Load Diff

View File

@@ -0,0 +1,486 @@
Imports DocumentFormat.OpenXml.Drawing.Charts
Imports System.IO
Imports System.Windows.Controls.Primitives
Imports VERAG_PROG_ALLGEMEIN
'DATENSERVER!!!!!!!!!!!!!!!!!!
Public Class frmBerufung
Dim ATR As VERAG_PROG_ALLGEMEIN.cOrigianlATR = Nothing
Dim loadedDSID As Integer = -1
Dim DSID As Integer = -1
Sub New()
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Sub New(atr_id)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
ATR = New VERAG_PROG_ALLGEMEIN.cOrigianlATR(atr_id)
loadedDSID = ATR.atr_dsId
End Sub
Private Sub Panel1_Paint(sender As Object, e As PaintEventArgs) Handles Panel1.Paint
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
'If ATR IsNot Nothing Then
' If vbYes = MsgBox("Möchten Sie den Eintrag wirklich löchen?", vbYesNoCancel) Then
' If ATR.delete Then
' Me.Close()
' End If
' End If
'End If
Me.Close()
End Sub
Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
If doValidation() Then
If ATR Is Nothing Then
ATR = New cOrigianlATR()
ATR.atr_erfassungsdatum = Now
ATR.atr_Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
ATR.atr_mitId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
End If
getValues()
'Falls keine Sendung gewählt, aber FilialeNr/AbfertigungsNr eingegeben:
If ATR.atr_SendungsId <= 0 And ATR.atr_FilialenNr > 0 And ATR.atr_AbfertigungsNr > 0 Then
'Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim SND = VERAG_PROG_ALLGEMEIN.cSendungen.LOADByFilialenNrAbfertigungsNr(ATR.atr_FilialenNr, ATR.atr_AbfertigungsNr)
If SND IsNot Nothing Then
ATR.atr_SendungsId = SND.tblSnd_SendungID
ATR.atr_AvisoId = SND.tblSnd_AvisoID
End If
End If
If (ATR.atr_SendungsId > 0 AndAlso ATR.atr_dsId > 0) And ((loadedDSID <> DSID Or loadedDSID <= 0) Or (loadedDSID > 0 And ATR.atr_anhID <= 0)) Then
If vbYes = MsgBox("ATR in Anhang speichern?", vbYesNoCancel) Then
If ATR.atr_dsId < 0 Then
MsgBox("Kein PDF-Anhang!")
Else
Dim ANH = New VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge(ATR.atr_anhID)
ANH.anh_SendungsId = ATR.atr_SendungsId
ANH.anh_AvisoId = ATR.atr_AvisoId
ANH.anh_docId = DSID
ANH.anh_Name = "ATR_ARCHIV"
ANH.anh_Typ = VERAG_PROG_ALLGEMEIN.cProgramFunctions.getFilePathTypeValid(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(DSID))
ANH.anh_Art = "ATR"
ANH.SAVE() 'Eintrag wird überschreiben
ATR.atr_anhID = ANH.anh_id
insertVermerkATR(ATR)
End If
End If
End If
If ATR.SAVE Then
Me.Close()
Exit Sub
End If
End If
Me.DialogResult = DialogResult.None
End Sub
Shared Sub insertVermerkATR(ATR As VERAG_PROG_ALLGEMEIN.cOrigianlATR)
Dim VermerkeCodeID = 110
VERAG_PROG_ALLGEMEIN.cVermerkeDAL.DeleteSNDVermerkCode(ATR.atr_SendungsId, VermerkeCodeID) 'Alte löschen!
Dim vermerkId = VERAG_PROG_ALLGEMEIN.cVermerkeDAL.insertSendungsVermerk(ATR.atr_SendungsId, ATR.atr_AvisoId, "ATR-Archiv", VermerkeCodeID)
If vermerkId > 0 Then VERAG_PROG_ALLGEMEIN.cVermerkeDAL.toggleHervorheben(vermerkId) 'Hervorheben!
End Sub
Function doValidation() As Boolean
lblErr_Ausstellungsdatum.Visible = False
lblErr_DocNr.Visible = False
lblErr_Aufbewarungsort.Visible = False
lblErr_ErhaltenDatum.Visible = False
If txtDocNumber.Text.Trim = "" Then lblErr_Ausstellungsdatum.Visible = True : Return False
If txtDocDatum._value = "" Then lblErr_DocNr.Visible = True : Return False
If txtErhaltenDatum._value = "" Then lblErr_ErhaltenDatum.Visible = True : Return False
If txtLocation._value = "" Then lblErr_Aufbewarungsort.Visible = True : Return False
Return True
End Function
Sub loadValues()
If ATR.atr_empfaengerkdnr > -1 Then
txtEmpfaenger.KdNr = ATR.atr_empfaengerkdnr
Else
txtEmpfaenger.KdNr_value = -1
txtEmpfaenger.Text = ATR.atr_empfaenger
End If
If ATR.atr_absenderkdnr > -1 Then
txtAbsender.KdNr = ATR.atr_absenderkdnr
Else
txtAbsender.KdNr_value = -1
txtAbsender.Text = ATR.atr_absender
End If
txtLocation.Text = If(ATR.atr_location, "")
txtInfo.Text = If(ATR.atr_info, "")
DSID = ATR.atr_dsId
togglePDFPic()
txtDocNumber.Text = If(ATR.atr_documentNr, "")
txtDocDatum._value = If(ATR.atr_austellungsdatum, "")
txtKennzeichen.Text = If(ATR.atr_LKW, "")
txtFiliale._value = If(ATR.atr_FilialenNr > 0, ATR.atr_FilialenNr, "")
txtAbfNr._value = If(ATR.atr_AbfertigungsNr > 0, ATR.atr_AbfertigungsNr, "")
sbAvisoSuche.SET_VALUE(ATR.atr_SendungsId)
If ATR.atr_erhalenDatum IsNot Nothing Then
txtErhaltenDatum._value = CDate(ATR.atr_erhalenDatum).ToShortDateString
txtErhaltenUhrzeit._value = CDate(ATR.atr_erhalenDatum).ToShortTimeString
End If
txtErhaltenReferenz.Text = If(ATR.atr_DHL_ReferenzNr, "")
Select Case If(ATR.atr_erhalten_Art, "")
Case "PAKETDIENST" : cbxKurierPaketdienst.Checked = True
Case "MOTORRAD" : cbxKurierMotorrad.Checked = True
End Select
End Sub
Sub getValues()
ATR.atr_documentNr = txtDocNumber.Text
ATR.atr_austellungsdatum = txtDocDatum._value
'ATR.atr_erfassungsdatum = Now
ATR.atr_absender = If(txtAbsender.KdNr > 0, txtAbsender.KdName, txtAbsender.Text)
ATR.atr_absenderkdnr = txtAbsender.KdNr
ATR.atr_empfaenger = If(txtEmpfaenger.KdNr > 0, txtEmpfaenger.KdName, txtEmpfaenger.Text)
ATR.atr_empfaengerkdnr = txtEmpfaenger.KdNr
ATR.atr_location = txtLocation.Text
ATR.atr_info = txtInfo.Text
ATR.atr_dsId = DSID
If txtFiliale._value <> "" Then ATR.atr_FilialenNr = txtFiliale._value
If txtAbfNr._value <> "" Then ATR.atr_AbfertigungsNr = txtAbfNr._value
ATR.atr_LKW = txtKennzeichen.Text
ATR.atr_SendungsId = If(sbAvisoSuche._value <> "", sbAvisoSuche._value, -1)
If sbAvisoSuche._value <> "" Then
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
ATR.atr_AvisoId = SQL.DLookup("tblSnd_AvisoId", "tblSendungen", " tblSnd_SendungID='" & sbAvisoSuche._value & "'", "AVISO", -1)
End If
If txtErhaltenDatum._value <> "" Then
If txtErhaltenUhrzeit._value <> "" Then
ATR.atr_erhalenDatum = CDate(txtErhaltenDatum._value & " " & txtErhaltenUhrzeit._value)
Else
ATR.atr_erhalenDatum = CDate(txtErhaltenDatum._value)
End If
End If
ATR.atr_DHL_ReferenzNr = txtErhaltenReferenz.Text
If cbxKurierPaketdienst.Checked Then ATR.atr_erhalten_Art = "PAKETDIENST"
If cbxKurierMotorrad.Checked Then ATR.atr_erhalten_Art = "MOTORRAD"
End Sub
Private Sub frmATR_Load(sender As Object, e As EventArgs) Handles Me.Load
txtAbsender.initKdBox(Me)
txtEmpfaenger.initKdBox(Me)
'sbAvisoSuche.initSearchBox(Me.FindForm, " [tblSnd_SendungID],LKW_Nr,[tblSnd_Empfaenger],[tblSnd_Absender],[tblSnd_Colli],[tblSnd_Gewicht],FilialenNr,AbfertigungsNr,[Code]+' - ' +[Description] as display FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
' sbAvisoSuche.initSearchBox(Me.FindForm, " [tblSnd_SendungID] ,Datum as Erfasst,LKW_Nr,[tblSnd_Empfaenger],[tblSnd_Absender],[tblSnd_Colli],[tblSnd_Gewicht],FilialenNr,AbfertigungsNr FROM tblSendungen inner join Aviso on AvisoID=tblSnd_AvisoID ", {"LKW_Nr", "tblSnd_Empfaenger", "tblSnd_Absender"}, " (Datum >= '" & Now.AddDays(-30).ToShortDateString & "') ", "Datum DESC", "tblSnd_SendungID", "Datum as Erfasst,LKW_Nr,[tblSnd_Empfaenger],[tblSnd_Absender],[tblSnd_Colli],[tblSnd_Gewicht],FilialenNr,AbfertigungsNr", "AVISO", False, 600, 300)
sbAvisoSuche.initSearchBox(Me.FindForm, " [tblSnd_SendungID] ,Datum as Erfasst,LKW_Nr,[tblSnd_Empfaenger],[tblSnd_Absender],[tblSnd_Colli],[tblSnd_Gewicht],FilialenNr,AbfertigungsNr,LKW_Nr + ' ' +cast(FilialenNr as varchar(4)) +'/'+cast(AbfertigungsNr as varchar(8))as display FROM tblSendungen inner join Aviso on AvisoID=tblSnd_AvisoID ", {"LKW_Nr", "tblSnd_Empfaenger", "tblSnd_Absender"}, " Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' /*AND (Datum >= '" & Now.AddDays(-40).ToShortDateString & "') */ ", " Datum DESC", "tblSnd_SendungID", "display", "AVISO", False, 600, 300)
If ATR IsNot Nothing Then
loadValues()
Else
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX" Then
txtLocation.Text = "VERIMEX"
End If
If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "VRR" Then
txtLocation.Text = "VERRECHNUNG"
End If
End If
AddHandler txtAbsender.PropertyChanged, Sub()
FlatButton4.BackgroundImage = IIf(txtAbsender.KdNr > 0, My.Resources.person, My.Resources.personInaktiv)
' ATR.atr_absender = txtAbsender.Text
' ATR.atr_absenderKdNr = txtAbsender.KdNr
End Sub
AddHandler txtEmpfaenger.PropertyChanged, Sub()
FlatButton4.BackgroundImage = IIf(txtEmpfaenger.KdNr > 0, My.Resources.person, My.Resources.personInaktiv)
'ATR.atr_empfaenger = txtEmpfaenger.Text
'ATR.atr_empfaengerKdNr = txtEmpfaenger.KdNr
End Sub
togglePDFPic()
End Sub
Sub togglePDFPic()
If DSID > 0 Then
PictureBox1.BackgroundImage = My.Resources.pdf
Else
PictureBox1.BackgroundImage = My.Resources.pdf_gray
End If
End Sub
Private Sub FlatButton4_Click(sender As Object, e As EventArgs) Handles FlatButton4.Click
If txtAbsender.KdNr > 0 Then
Me.Cursor = Cursors.WaitCursor
Dim zoll As New SDL.frmKundenUebersichtZOLL(txtAbsender.KdNr)
If zoll IsNot Nothing Then zoll.Show()
Me.Cursor = Cursors.Default
End If
End Sub
Private Sub FlatButton1_Click(sender As Object, e As EventArgs) Handles FlatButton1.Click
If txtEmpfaenger.KdNr > 0 Then
Me.Cursor = Cursors.WaitCursor
Dim zoll As New SDL.frmKundenUebersichtZOLL(txtEmpfaenger.KdNr)
If zoll IsNot Nothing Then zoll.Show()
Me.Cursor = Cursors.Default
End If
End Sub
Private Sub sbAvisoSuche_TextChanged() Handles sbAvisoSuche.VALUE_CHANGED
txtFiliale.Text = ""
txtAbfNr.Text = ""
If sbAvisoSuche._value <> "" Then
Dim SND As New VERAG_PROG_ALLGEMEIN.cSendungen(sbAvisoSuche._value)
If SND IsNot Nothing Then
Dim AVISO = VERAG_PROG_ALLGEMEIN.cAviso.getAvisoById(SND.tblSnd_AvisoID)
txtFiliale._value = SND.FilialenNr
txtAbfNr._value = SND.AbfertigungsNr
lblLKWId.Text = SND.tblSnd_AvisoID
If AVISO IsNot Nothing Then
txtKennzeichen.Text = AVISO.LKW_Nr
End If
' lblKennzeichen.Visible = True
lblLKWId.Visible = True
End If
End If
End Sub
Private Sub btnScan_Click(sender As Object, e As EventArgs) Handles btnScan.Click
quickScan()
togglePDFPic()
End Sub
Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
If DSID > 0 Then
Dim path = VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(DSID)
If path <> "" Then Process.Start(path)
'VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.OPEN_PATH(DSID)
End If
End Sub
Private Sub btnUpload_Click(sender As Object, e As EventArgs) Handles btnUpload.Click
addData_AnhangFD()
togglePDFPic()
End Sub
Public Sub addData_AnhangFD()
Dim fd As New OpenFileDialog
fd.Multiselect = False
If fd.ShowDialog = vbOK Then
' For Each F_listItem In fd.FileNames
Dim fi As New FileInfo(fd.FileName)
Dim filename = fi.Name
If filename = "" Then
MsgBox("Dateiname konnte nicht ermittelt werden." & vbNewLine & fd.FileName)
Else
' Dim TMP_Path = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(filename, fi.Extension,, False, "SendungsAnhaenge")
' MsgBox(TMP_Path)
' File.Copy(F_listItem, TMP_Path)
Dim anhId = -1
Dim destPath = ""
Dim Typ = ""
If getFileTypeValid(fi.Extension.Replace(".", ""), Typ) Then
If saveToDS(filename, fd.FileName, "ATR", Typ, DSID, anhId, destPath) Then
End If
End If
End If
'Next
' If flpnlAviso.Controls.Count > 0 Then DirectCast(flpnlAviso.Controls(0), usrCntlSendungAnhangElement).CLICK_Me()
End If
End Sub
Public Shared Function getFileTypeValid(extension, ByRef Typ) As Boolean
Select Case extension.ToString.Replace(".", "").ToUpper
Case "PDF" : Typ = "PDF"
Case "XLS", "XLM", "XLSM", "XLSX", "CSV" : Typ = "EXCEL"
Case "DOC", "DOCX" : Typ = "WORD"
Case "TXT" : Typ = "TEXT"
Case "JPEG", "JPG", "GIF", "TFF" : Typ = "BILD"
Case "EXE" : MsgBox("Aviso-Anhänge: Ungültiges Datei-Format!") : Return False
Case Else : Typ = "SONSTIGES"
End Select
Return True
End Function
Public Shared Function saveToDS(ByRef fileName, sourcePath, Art, Typ, Optional ByRef da_id = -1, Optional ByRef anhId = -1, Optional ByRef destPath = "", Optional SendungsId = Nothing) As Boolean
fileName = VERAG_PROG_ALLGEMEIN.cDATENSERVER.replaceInvalidCahr(fileName)
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "ORIGINAL_ATR_ARCHIV", Now.Year, Now.ToString("ddMMyy"), "", Now.ToString("ddMMyyHHmmss") & fileName, -1, False)
If Not DS.uploadDataToDATENSERVER(sourcePath) Then MsgBox("Fehler beim Speichern: Datenserver!") : Return False
If DS.da_id <= 0 Then MsgBox("Keine DocId!") : Return False
da_id = DS.da_id
destPath = DS.GET_TOP1_PATH
Dim fi As New FileInfo(sourcePath)
Return True
End Function
Public Function quickScan(Optional SendungsId = Nothing) As Boolean
Try
'If KdNr < 0 Then Exit Sub
Dim frmScan As New VERAG_PROG_ALLGEMEIN.frmScan("QuickScan")
frmScan.DefaultFileName = "ScanATR" & Now.ToString("ddMMyyyy_HHmmss") ' Me._TEXT_PDF
If frmScan.ShowDialog() = DialogResult.OK Then
If frmScan.ReturnValue IsNot Nothing Then
Dim Filename = frmScan.fileName
Dim TMP_Path = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(Filename, ".pdf",, False, "SendungsAnhaenge")
File.WriteAllBytes(TMP_Path, frmScan.ReturnValue)
Dim anhId = -1
Dim destPath = ""
If saveToDS(Filename, TMP_Path, "ATR", "PDF", DSID, anhId, destPath, SendungsId) Then
Return True
End If
'addUsrcnlToPnl(TMP_Path)
End If
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler QuickScan")
End Try
Return False
End Function
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim data As IDataObject = Clipboard.GetDataObject
If True Then 'data.GetDataPresent(DataFormats.FileDrop) Then
For Each s As String In My.Computer.Clipboard.GetFileDropList() 'GetData(DataFormats.) 'data.GetData(DataFormats.FileDrop) 'DataFormats.FileDrop)
' Dim F_listItem As String = Path.Combine("c:\mynewpath", Path.GetFileName(s))
' File.Copy(s, newFile)
' MsgBox(s)
If System.IO.File.Exists(s) Then
Dim fi As New FileInfo(s)
Dim filename = fi.Name
If filename = "" Then
MsgBox("Dateiname konnte nicht ermittelt werden." & vbNewLine & s)
Else
Dim anhId = -1
Dim destPath = ""
Dim Typ = ""
If getFileTypeValid(fi.Extension.Replace(".", ""), Typ) Then
If saveToDS(filename, s, "ATR", Typ, DSID, anhId, destPath) Then
MsgBox("Dokument wurde hochgeladen.")
End If
End If
End If
End If
Next
End If
togglePDFPic()
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
txtLocation.Text = "VERIMEX"
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
txtLocation.Text = "VERRECHNUNG"
End Sub
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
txtLocation.Text = "FRONT-OFFICE"
End Sub
Private Sub Panel1_DragDrop(sender As Object, e As DragEventArgs) Handles Panel1.DragDrop, PictureBox1.DragDrop
Try
Dim added = False
If e.Data.GetDataPresent(DataFormats.FileDrop) Then
Dim files() As String = e.Data.GetData(DataFormats.FileDrop)
If files.Count > 1 Then
MsgBox("Nur eine Datei möglich!")
ElseIf files.Count > 0 Then
If files(0) <> "" Then
Dim fio As New System.IO.FileInfo(files(0))
If saveToDS(fio.Name, files(0), "ATR", "", DSID) Then
MsgBox("Dokument wurde hochgeladen.")
End If
End If
End If
ElseIf e.Data.GetDataPresent("FileGroupDescriptor") Then
Dim FilePath = VERAG_PROG_ALLGEMEIN.cProgramFunctions.EmAilAttach(e)
If FilePath <> "" Then
Dim fio As New System.IO.FileInfo(FilePath)
If saveToDS(fio.Name, FilePath, "ATR", "", DSID) Then
MsgBox("Dokument wurde hochgeladen.")
End If
End If
End If
togglePDFPic()
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Sub
Private Sub PictureBox6_Click(sender As Object, e As EventArgs) Handles PictureBox6.Click
Dim webAddress As String = "https://wiki.verag.ag/de/software/aviso/howtos/ATRArchiv"
Process.Start(webAddress)
End Sub
End Class

View File

@@ -0,0 +1,971 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmBerufungenSearch
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmBerufungenSearch))
Me.pnl = New System.Windows.Forms.Panel()
Me.cboDatum = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.txtSuche = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label9 = New System.Windows.Forms.Label()
Me.txtSB = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtDocumetNummer = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label8 = New System.Windows.Forms.Label()
Me.txtAbsender = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label7 = New System.Windows.Forms.Label()
Me.txtReferenz = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label5 = New System.Windows.Forms.Label()
Me.txtFEmpfänger = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label6 = New System.Windows.Forms.Label()
Me.txtLKWKennzeichen = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label3 = New System.Windows.Forms.Label()
Me.txtAbfertDat = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtAbfertDatBis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.cboFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.txtAbfertigungsnummer = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Button7 = New System.Windows.Forms.Button()
Me.Button6 = New System.Windows.Forms.Button()
Me.Button5 = New System.Windows.Forms.Button()
Me.btnSuche = New System.Windows.Forms.Button()
Me.Label23 = New System.Windows.Forms.Label()
Me.btnJahr = New System.Windows.Forms.Button()
Me.pnlTop = New System.Windows.Forms.Panel()
Me.PictureBox6 = New System.Windows.Forms.PictureBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.btnBisJahr = New System.Windows.Forms.Button()
Me.btnVonJahr = New System.Windows.Forms.Button()
Me.btnMonat = New System.Windows.Forms.Button()
Me.btnBisMonat = New System.Windows.Forms.Button()
Me.btnVonMonat = New System.Windows.Forms.Button()
Me.DateTimePicker2 = New System.Windows.Forms.DateTimePicker()
Me.Label13 = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label12 = New System.Windows.Forms.Label()
Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.Button2 = New System.Windows.Forms.Button()
Me.pnloptions = New System.Windows.Forms.Panel()
Me.btnSendungKoppeln = New System.Windows.Forms.Button()
Me.Button1 = New System.Windows.Forms.Button()
Me.btnDel = New System.Windows.Forms.Button()
Me.btnExcel = New System.Windows.Forms.Button()
Me.FlatButton7 = New System.Windows.Forms.Button()
Me.lblErgebnis = New System.Windows.Forms.Label()
Me.Label37 = New System.Windows.Forms.Label()
Me.txtMaxSrch = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.pnl.SuspendLayout()
Me.pnlTop.SuspendLayout()
CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel1.SuspendLayout()
CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.pnloptions.SuspendLayout()
Me.SuspendLayout()
'
'pnl
'
Me.pnl.BackColor = System.Drawing.Color.WhiteSmoke
Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pnl.Controls.Add(Me.cboDatum)
Me.pnl.Controls.Add(Me.txtSuche)
Me.pnl.Controls.Add(Me.Label9)
Me.pnl.Controls.Add(Me.txtSB)
Me.pnl.Controls.Add(Me.txtDocumetNummer)
Me.pnl.Controls.Add(Me.Label8)
Me.pnl.Controls.Add(Me.txtAbsender)
Me.pnl.Controls.Add(Me.Label7)
Me.pnl.Controls.Add(Me.txtReferenz)
Me.pnl.Controls.Add(Me.Label5)
Me.pnl.Controls.Add(Me.txtFEmpfänger)
Me.pnl.Controls.Add(Me.Label6)
Me.pnl.Controls.Add(Me.txtLKWKennzeichen)
Me.pnl.Controls.Add(Me.Label3)
Me.pnl.Controls.Add(Me.txtAbfertDat)
Me.pnl.Controls.Add(Me.txtAbfertDatBis)
Me.pnl.Controls.Add(Me.cboFiliale)
Me.pnl.Controls.Add(Me.txtAbfertigungsnummer)
Me.pnl.Controls.Add(Me.Button7)
Me.pnl.Controls.Add(Me.Button6)
Me.pnl.Controls.Add(Me.Button5)
Me.pnl.Controls.Add(Me.btnSuche)
Me.pnl.Controls.Add(Me.Label23)
Me.pnl.Controls.Add(Me.btnJahr)
Me.pnl.Controls.Add(Me.pnlTop)
Me.pnl.Controls.Add(Me.btnBisJahr)
Me.pnl.Controls.Add(Me.btnVonJahr)
Me.pnl.Controls.Add(Me.btnMonat)
Me.pnl.Controls.Add(Me.btnBisMonat)
Me.pnl.Controls.Add(Me.btnVonMonat)
Me.pnl.Controls.Add(Me.DateTimePicker2)
Me.pnl.Controls.Add(Me.Label13)
Me.pnl.Controls.Add(Me.Label1)
Me.pnl.Controls.Add(Me.Label2)
Me.pnl.Controls.Add(Me.Label12)
Me.pnl.Controls.Add(Me.DateTimePicker1)
Me.pnl.Dock = System.Windows.Forms.DockStyle.Top
Me.pnl.Location = New System.Drawing.Point(0, 0)
Me.pnl.Name = "pnl"
Me.pnl.Size = New System.Drawing.Size(1419, 171)
Me.pnl.TabIndex = 0
'
'cboDatum
'
Me.cboDatum._allowedValuesFreiText = Nothing
Me.cboDatum._allowFreiText = False
Me.cboDatum._value = ""
Me.cboDatum.BackColor = System.Drawing.Color.WhiteSmoke
Me.cboDatum.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboDatum.DropDownWidth = 250
Me.cboDatum.FlatStyle = System.Windows.Forms.FlatStyle.Popup
Me.cboDatum.Font = New System.Drawing.Font("Microsoft Tai Le", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboDatum.FormattingEnabled = True
Me.cboDatum.Items.AddRange(New Object() {"Rechnungsdatum", "Abfertigungsdatum"})
Me.cboDatum.Location = New System.Drawing.Point(15, 52)
Me.cboDatum.Name = "cboDatum"
Me.cboDatum.Size = New System.Drawing.Size(141, 22)
Me.cboDatum.TabIndex = 78
'
'txtSuche
'
Me.txtSuche._DateTimeOnly = False
Me.txtSuche._numbersOnly = False
Me.txtSuche._numbersOnlyKommastellen = ""
Me.txtSuche._numbersOnlyTrennzeichen = False
Me.txtSuche._Prozent = False
Me.txtSuche._ShortDateNew = False
Me.txtSuche._ShortDateOnly = False
Me.txtSuche._TimeOnly = False
Me.txtSuche._TimeOnly_Seconds = False
Me.txtSuche._value = ""
Me.txtSuche._Waehrung = False
Me.txtSuche._WaehrungZeichen = False
Me.txtSuche.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtSuche.ForeColor = System.Drawing.Color.Black
Me.txtSuche.Location = New System.Drawing.Point(338, 75)
Me.txtSuche.MaxLineLength = -1
Me.txtSuche.MaxLines_Warning = ""
Me.txtSuche.MaxLines_Warning_Label = Nothing
Me.txtSuche.Name = "txtSuche"
Me.txtSuche.Size = New System.Drawing.Size(258, 20)
Me.txtSuche.TabIndex = 77
'
'Label9
'
Me.Label9.AutoSize = True
Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label9.Location = New System.Drawing.Point(337, 59)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(47, 13)
Me.Label9.TabIndex = 76
Me.Label9.Text = "Suche:"
'
'txtSB
'
Me.txtSB._DateTimeOnly = False
Me.txtSB._numbersOnly = False
Me.txtSB._numbersOnlyKommastellen = ""
Me.txtSB._numbersOnlyTrennzeichen = False
Me.txtSB._Prozent = False
Me.txtSB._ShortDateNew = False
Me.txtSB._ShortDateOnly = False
Me.txtSB._TimeOnly = False
Me.txtSB._TimeOnly_Seconds = False
Me.txtSB._value = ""
Me.txtSB._Waehrung = False
Me.txtSB._WaehrungZeichen = False
Me.txtSB.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtSB.ForeColor = System.Drawing.Color.Black
Me.txtSB.Location = New System.Drawing.Point(920, 131)
Me.txtSB.MaxLineLength = -1
Me.txtSB.MaxLines_Warning = ""
Me.txtSB.MaxLines_Warning_Label = Nothing
Me.txtSB.Multiline = True
Me.txtSB.Name = "txtSB"
Me.txtSB.Size = New System.Drawing.Size(240, 22)
Me.txtSB.TabIndex = 75
'
'txtDocumetNummer
'
Me.txtDocumetNummer._DateTimeOnly = False
Me.txtDocumetNummer._numbersOnly = False
Me.txtDocumetNummer._numbersOnlyKommastellen = ""
Me.txtDocumetNummer._numbersOnlyTrennzeichen = False
Me.txtDocumetNummer._Prozent = False
Me.txtDocumetNummer._ShortDateNew = False
Me.txtDocumetNummer._ShortDateOnly = False
Me.txtDocumetNummer._TimeOnly = False
Me.txtDocumetNummer._TimeOnly_Seconds = False
Me.txtDocumetNummer._value = ""
Me.txtDocumetNummer._Waehrung = False
Me.txtDocumetNummer._WaehrungZeichen = False
Me.txtDocumetNummer.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtDocumetNummer.ForeColor = System.Drawing.Color.Black
Me.txtDocumetNummer.Location = New System.Drawing.Point(610, 75)
Me.txtDocumetNummer.MaxLineLength = -1
Me.txtDocumetNummer.MaxLines_Warning = ""
Me.txtDocumetNummer.MaxLines_Warning_Label = Nothing
Me.txtDocumetNummer.Name = "txtDocumetNummer"
Me.txtDocumetNummer.Size = New System.Drawing.Size(284, 20)
Me.txtDocumetNummer.TabIndex = 74
'
'Label8
'
Me.Label8.AutoSize = True
Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label8.Location = New System.Drawing.Point(609, 59)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(113, 13)
Me.Label8.TabIndex = 73
Me.Label8.Text = "Dokument-Nummer"
'
'txtAbsender
'
Me.txtAbsender._DateTimeOnly = False
Me.txtAbsender._numbersOnly = False
Me.txtAbsender._numbersOnlyKommastellen = ""
Me.txtAbsender._numbersOnlyTrennzeichen = True
Me.txtAbsender._Prozent = False
Me.txtAbsender._ShortDateNew = False
Me.txtAbsender._ShortDateOnly = False
Me.txtAbsender._TimeOnly = False
Me.txtAbsender._TimeOnly_Seconds = False
Me.txtAbsender._value = Nothing
Me.txtAbsender._Waehrung = False
Me.txtAbsender._WaehrungZeichen = True
Me.txtAbsender.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtAbsender.ForeColor = System.Drawing.Color.Black
Me.txtAbsender.Location = New System.Drawing.Point(666, 133)
Me.txtAbsender.MaxLineLength = -1
Me.txtAbsender.MaxLines_Warning = ""
Me.txtAbsender.MaxLines_Warning_Label = Nothing
Me.txtAbsender.Name = "txtAbsender"
Me.txtAbsender.Size = New System.Drawing.Size(228, 20)
Me.txtAbsender.TabIndex = 72
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label7.Location = New System.Drawing.Point(607, 136)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(52, 13)
Me.Label7.TabIndex = 71
Me.Label7.Text = "Absender"
'
'txtReferenz
'
Me.txtReferenz._DateTimeOnly = False
Me.txtReferenz._numbersOnly = False
Me.txtReferenz._numbersOnlyKommastellen = ""
Me.txtReferenz._numbersOnlyTrennzeichen = True
Me.txtReferenz._Prozent = False
Me.txtReferenz._ShortDateNew = False
Me.txtReferenz._ShortDateOnly = False
Me.txtReferenz._TimeOnly = False
Me.txtReferenz._TimeOnly_Seconds = False
Me.txtReferenz._value = Nothing
Me.txtReferenz._Waehrung = False
Me.txtReferenz._WaehrungZeichen = True
Me.txtReferenz.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtReferenz.ForeColor = System.Drawing.Color.Black
Me.txtReferenz.Location = New System.Drawing.Point(394, 133)
Me.txtReferenz.MaxLineLength = -1
Me.txtReferenz.MaxLines_Warning = ""
Me.txtReferenz.MaxLines_Warning_Label = Nothing
Me.txtReferenz.Name = "txtReferenz"
Me.txtReferenz.Size = New System.Drawing.Size(202, 20)
Me.txtReferenz.TabIndex = 70
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label5.Location = New System.Drawing.Point(335, 136)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(53, 13)
Me.Label5.TabIndex = 69
Me.Label5.Text = "Referenz:"
'
'txtFEmpfänger
'
Me.txtFEmpfänger._DateTimeOnly = False
Me.txtFEmpfänger._numbersOnly = False
Me.txtFEmpfänger._numbersOnlyKommastellen = ""
Me.txtFEmpfänger._numbersOnlyTrennzeichen = True
Me.txtFEmpfänger._Prozent = False
Me.txtFEmpfänger._ShortDateNew = False
Me.txtFEmpfänger._ShortDateOnly = False
Me.txtFEmpfänger._TimeOnly = False
Me.txtFEmpfänger._TimeOnly_Seconds = False
Me.txtFEmpfänger._value = Nothing
Me.txtFEmpfänger._Waehrung = False
Me.txtFEmpfänger._WaehrungZeichen = True
Me.txtFEmpfänger.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtFEmpfänger.ForeColor = System.Drawing.Color.Black
Me.txtFEmpfänger.Location = New System.Drawing.Point(666, 109)
Me.txtFEmpfänger.MaxLineLength = -1
Me.txtFEmpfänger.MaxLines_Warning = ""
Me.txtFEmpfänger.MaxLines_Warning_Label = Nothing
Me.txtFEmpfänger.Name = "txtFEmpfänger"
Me.txtFEmpfänger.Size = New System.Drawing.Size(228, 20)
Me.txtFEmpfänger.TabIndex = 68
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label6.Location = New System.Drawing.Point(607, 113)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(61, 13)
Me.Label6.TabIndex = 67
Me.Label6.Text = "Empfänger:"
'
'txtLKWKennzeichen
'
Me.txtLKWKennzeichen._DateTimeOnly = False
Me.txtLKWKennzeichen._numbersOnly = False
Me.txtLKWKennzeichen._numbersOnlyKommastellen = ""
Me.txtLKWKennzeichen._numbersOnlyTrennzeichen = True
Me.txtLKWKennzeichen._Prozent = False
Me.txtLKWKennzeichen._ShortDateNew = False
Me.txtLKWKennzeichen._ShortDateOnly = False
Me.txtLKWKennzeichen._TimeOnly = False
Me.txtLKWKennzeichen._TimeOnly_Seconds = False
Me.txtLKWKennzeichen._value = Nothing
Me.txtLKWKennzeichen._Waehrung = False
Me.txtLKWKennzeichen._WaehrungZeichen = True
Me.txtLKWKennzeichen.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtLKWKennzeichen.ForeColor = System.Drawing.Color.Black
Me.txtLKWKennzeichen.Location = New System.Drawing.Point(394, 110)
Me.txtLKWKennzeichen.MaxLineLength = -1
Me.txtLKWKennzeichen.MaxLines_Warning = ""
Me.txtLKWKennzeichen.MaxLines_Warning_Label = Nothing
Me.txtLKWKennzeichen.Name = "txtLKWKennzeichen"
Me.txtLKWKennzeichen.Size = New System.Drawing.Size(202, 20)
Me.txtLKWKennzeichen.TabIndex = 66
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label3.Location = New System.Drawing.Point(335, 113)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(34, 13)
Me.Label3.TabIndex = 65
Me.Label3.Text = "LKW:"
'
'txtAbfertDat
'
Me.txtAbfertDat._DateTimeOnly = False
Me.txtAbfertDat._numbersOnly = False
Me.txtAbfertDat._numbersOnlyKommastellen = ""
Me.txtAbfertDat._numbersOnlyTrennzeichen = True
Me.txtAbfertDat._Prozent = False
Me.txtAbfertDat._ShortDateNew = True
Me.txtAbfertDat._ShortDateOnly = False
Me.txtAbfertDat._TimeOnly = False
Me.txtAbfertDat._TimeOnly_Seconds = False
Me.txtAbfertDat._value = ""
Me.txtAbfertDat._Waehrung = False
Me.txtAbfertDat._WaehrungZeichen = True
Me.txtAbfertDat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtAbfertDat.ForeColor = System.Drawing.Color.Black
Me.txtAbfertDat.Location = New System.Drawing.Point(41, 77)
Me.txtAbfertDat.MaxLength = 10
Me.txtAbfertDat.MaxLineLength = -1
Me.txtAbfertDat.MaxLines_Warning = ""
Me.txtAbfertDat.MaxLines_Warning_Label = Nothing
Me.txtAbfertDat.Name = "txtAbfertDat"
Me.txtAbfertDat.Size = New System.Drawing.Size(83, 20)
Me.txtAbfertDat.TabIndex = 33
'
'txtAbfertDatBis
'
Me.txtAbfertDatBis._DateTimeOnly = False
Me.txtAbfertDatBis._numbersOnly = False
Me.txtAbfertDatBis._numbersOnlyKommastellen = ""
Me.txtAbfertDatBis._numbersOnlyTrennzeichen = True
Me.txtAbfertDatBis._Prozent = False
Me.txtAbfertDatBis._ShortDateNew = True
Me.txtAbfertDatBis._ShortDateOnly = False
Me.txtAbfertDatBis._TimeOnly = False
Me.txtAbfertDatBis._TimeOnly_Seconds = False
Me.txtAbfertDatBis._value = ""
Me.txtAbfertDatBis._Waehrung = False
Me.txtAbfertDatBis._WaehrungZeichen = True
Me.txtAbfertDatBis.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtAbfertDatBis.ForeColor = System.Drawing.Color.Black
Me.txtAbfertDatBis.Location = New System.Drawing.Point(41, 106)
Me.txtAbfertDatBis.MaxLength = 10
Me.txtAbfertDatBis.MaxLineLength = -1
Me.txtAbfertDatBis.MaxLines_Warning = ""
Me.txtAbfertDatBis.MaxLines_Warning_Label = Nothing
Me.txtAbfertDatBis.Name = "txtAbfertDatBis"
Me.txtAbfertDatBis.Size = New System.Drawing.Size(83, 20)
Me.txtAbfertDatBis.TabIndex = 36
'
'cboFiliale
'
Me.cboFiliale._allowedValuesFreiText = Nothing
Me.cboFiliale._allowFreiText = False
Me.cboFiliale._value = ""
Me.cboFiliale.DropDownWidth = 250
Me.cboFiliale.Font = New System.Drawing.Font("Microsoft Tai Le", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboFiliale.FormattingEnabled = True
Me.cboFiliale.Location = New System.Drawing.Point(920, 75)
Me.cboFiliale.Name = "cboFiliale"
Me.cboFiliale.Size = New System.Drawing.Size(80, 22)
Me.cboFiliale.TabIndex = 53
'
'txtAbfertigungsnummer
'
Me.txtAbfertigungsnummer._DateTimeOnly = False
Me.txtAbfertigungsnummer._numbersOnly = True
Me.txtAbfertigungsnummer._numbersOnlyKommastellen = ""
Me.txtAbfertigungsnummer._numbersOnlyTrennzeichen = True
Me.txtAbfertigungsnummer._Prozent = False
Me.txtAbfertigungsnummer._ShortDateNew = False
Me.txtAbfertigungsnummer._ShortDateOnly = False
Me.txtAbfertigungsnummer._TimeOnly = False
Me.txtAbfertigungsnummer._TimeOnly_Seconds = False
Me.txtAbfertigungsnummer._value = ""
Me.txtAbfertigungsnummer._Waehrung = False
Me.txtAbfertigungsnummer._WaehrungZeichen = True
Me.txtAbfertigungsnummer.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtAbfertigungsnummer.ForeColor = System.Drawing.Color.Black
Me.txtAbfertigungsnummer.Location = New System.Drawing.Point(999, 75)
Me.txtAbfertigungsnummer.MaxLineLength = -1
Me.txtAbfertigungsnummer.MaxLines_Warning = ""
Me.txtAbfertigungsnummer.MaxLines_Warning_Label = Nothing
Me.txtAbfertigungsnummer.Multiline = True
Me.txtAbfertigungsnummer.Name = "txtAbfertigungsnummer"
Me.txtAbfertigungsnummer.Size = New System.Drawing.Size(161, 22)
Me.txtAbfertigungsnummer.TabIndex = 55
'
'Button7
'
Me.Button7.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.Button7.ForeColor = System.Drawing.Color.Black
Me.Button7.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button7.Location = New System.Drawing.Point(281, 51)
Me.Button7.Margin = New System.Windows.Forms.Padding(0)
Me.Button7.Name = "Button7"
Me.Button7.Size = New System.Drawing.Size(34, 23)
Me.Button7.TabIndex = 45
Me.Button7.Text = ">>"
Me.Button7.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button7.UseVisualStyleBackColor = True
'
'Button6
'
Me.Button6.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.Button6.ForeColor = System.Drawing.Color.Black
Me.Button6.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button6.Location = New System.Drawing.Point(162, 51)
Me.Button6.Margin = New System.Windows.Forms.Padding(0)
Me.Button6.Name = "Button6"
Me.Button6.Size = New System.Drawing.Size(34, 23)
Me.Button6.TabIndex = 41
Me.Button6.Text = "<<"
Me.Button6.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button6.UseVisualStyleBackColor = True
'
'Button5
'
Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.Button5.ForeColor = System.Drawing.Color.Black
Me.Button5.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button5.Location = New System.Drawing.Point(195, 51)
Me.Button5.Margin = New System.Windows.Forms.Padding(0)
Me.Button5.Name = "Button5"
Me.Button5.Size = New System.Drawing.Size(87, 23)
Me.Button5.TabIndex = 43
Me.Button5.Text = "Heute"
Me.Button5.UseVisualStyleBackColor = True
'
'btnSuche
'
Me.btnSuche.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnSuche.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnSuche.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnSuche.Image = Global.SDL.My.Resources.Resources.search
Me.btnSuche.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnSuche.Location = New System.Drawing.Point(1230, 72)
Me.btnSuche.Name = "btnSuche"
Me.btnSuche.Size = New System.Drawing.Size(162, 52)
Me.btnSuche.TabIndex = 61
Me.btnSuche.Text = "Suche starten"
Me.btnSuche.UseVisualStyleBackColor = True
'
'Label23
'
Me.Label23.AutoSize = True
Me.Label23.Location = New System.Drawing.Point(12, 109)
Me.Label23.Name = "Label23"
Me.Label23.Size = New System.Drawing.Size(23, 13)
Me.Label23.TabIndex = 38
Me.Label23.Text = "bis:"
'
'btnJahr
'
Me.btnJahr.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnJahr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.btnJahr.ForeColor = System.Drawing.Color.Black
Me.btnJahr.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnJahr.Location = New System.Drawing.Point(195, 103)
Me.btnJahr.Margin = New System.Windows.Forms.Padding(0)
Me.btnJahr.Name = "btnJahr"
Me.btnJahr.Size = New System.Drawing.Size(87, 23)
Me.btnJahr.TabIndex = 51
Me.btnJahr.Text = "2016"
Me.btnJahr.UseVisualStyleBackColor = True
'
'pnlTop
'
Me.pnlTop.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.pnlTop.Controls.Add(Me.PictureBox6)
Me.pnlTop.Controls.Add(Me.Label4)
Me.pnlTop.Dock = System.Windows.Forms.DockStyle.Top
Me.pnlTop.Location = New System.Drawing.Point(0, 0)
Me.pnlTop.Name = "pnlTop"
Me.pnlTop.Size = New System.Drawing.Size(1417, 48)
Me.pnlTop.TabIndex = 34
'
'PictureBox6
'
Me.PictureBox6.BackgroundImage = Global.SDL.My.Resources.Resources.fragezeichen
Me.PictureBox6.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox6.Cursor = System.Windows.Forms.Cursors.Hand
Me.PictureBox6.Location = New System.Drawing.Point(1374, 9)
Me.PictureBox6.Name = "PictureBox6"
Me.PictureBox6.Size = New System.Drawing.Size(32, 30)
Me.PictureBox6.TabIndex = 135
Me.PictureBox6.TabStop = False
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 16.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label4.ForeColor = System.Drawing.Color.White
Me.Label4.Location = New System.Drawing.Point(10, 13)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(134, 26)
Me.Label4.TabIndex = 0
Me.Label4.Text = "Berufungen"
'
'btnBisJahr
'
Me.btnBisJahr.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnBisJahr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.btnBisJahr.ForeColor = System.Drawing.Color.Black
Me.btnBisJahr.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnBisJahr.Location = New System.Drawing.Point(281, 103)
Me.btnBisJahr.Margin = New System.Windows.Forms.Padding(0)
Me.btnBisJahr.Name = "btnBisJahr"
Me.btnBisJahr.Size = New System.Drawing.Size(34, 23)
Me.btnBisJahr.TabIndex = 52
Me.btnBisJahr.Text = ">>"
Me.btnBisJahr.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnBisJahr.UseVisualStyleBackColor = True
'
'btnVonJahr
'
Me.btnVonJahr.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnVonJahr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.btnVonJahr.ForeColor = System.Drawing.Color.Black
Me.btnVonJahr.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnVonJahr.Location = New System.Drawing.Point(162, 103)
Me.btnVonJahr.Margin = New System.Windows.Forms.Padding(0)
Me.btnVonJahr.Name = "btnVonJahr"
Me.btnVonJahr.Size = New System.Drawing.Size(34, 23)
Me.btnVonJahr.TabIndex = 50
Me.btnVonJahr.Text = "<<"
Me.btnVonJahr.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnVonJahr.UseVisualStyleBackColor = True
'
'btnMonat
'
Me.btnMonat.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnMonat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.btnMonat.ForeColor = System.Drawing.Color.Black
Me.btnMonat.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnMonat.Location = New System.Drawing.Point(195, 77)
Me.btnMonat.Margin = New System.Windows.Forms.Padding(0)
Me.btnMonat.Name = "btnMonat"
Me.btnMonat.Size = New System.Drawing.Size(87, 23)
Me.btnMonat.TabIndex = 48
Me.btnMonat.Text = "September"
Me.btnMonat.UseVisualStyleBackColor = True
'
'btnBisMonat
'
Me.btnBisMonat.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnBisMonat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.btnBisMonat.ForeColor = System.Drawing.Color.Black
Me.btnBisMonat.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnBisMonat.Location = New System.Drawing.Point(281, 77)
Me.btnBisMonat.Margin = New System.Windows.Forms.Padding(0)
Me.btnBisMonat.Name = "btnBisMonat"
Me.btnBisMonat.Size = New System.Drawing.Size(34, 23)
Me.btnBisMonat.TabIndex = 49
Me.btnBisMonat.Text = ">>"
Me.btnBisMonat.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnBisMonat.UseVisualStyleBackColor = True
'
'btnVonMonat
'
Me.btnVonMonat.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnVonMonat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.btnVonMonat.ForeColor = System.Drawing.Color.Black
Me.btnVonMonat.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnVonMonat.Location = New System.Drawing.Point(162, 77)
Me.btnVonMonat.Margin = New System.Windows.Forms.Padding(0)
Me.btnVonMonat.Name = "btnVonMonat"
Me.btnVonMonat.Size = New System.Drawing.Size(34, 23)
Me.btnVonMonat.TabIndex = 47
Me.btnVonMonat.Text = "<<"
Me.btnVonMonat.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnVonMonat.UseVisualStyleBackColor = True
'
'DateTimePicker2
'
Me.DateTimePicker2.CustomFormat = "''"
Me.DateTimePicker2.Format = System.Windows.Forms.DateTimePickerFormat.Custom
Me.DateTimePicker2.Location = New System.Drawing.Point(41, 106)
Me.DateTimePicker2.Margin = New System.Windows.Forms.Padding(0)
Me.DateTimePicker2.Name = "DateTimePicker2"
Me.DateTimePicker2.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.DateTimePicker2.Size = New System.Drawing.Size(115, 20)
Me.DateTimePicker2.TabIndex = 37
'
'Label13
'
Me.Label13.AutoSize = True
Me.Label13.Location = New System.Drawing.Point(12, 81)
Me.Label13.Name = "Label13"
Me.Label13.Size = New System.Drawing.Size(28, 13)
Me.Label13.TabIndex = 46
Me.Label13.Text = "von:"
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(917, 59)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(40, 13)
Me.Label1.TabIndex = 39
Me.Label1.Text = "Filiale"
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label2.Location = New System.Drawing.Point(998, 59)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(121, 13)
Me.Label2.TabIndex = 40
Me.Label2.Text = "Abfertigungsnummer"
'
'Label12
'
Me.Label12.AutoSize = True
Me.Label12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label12.Location = New System.Drawing.Point(917, 115)
Me.Label12.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(97, 13)
Me.Label12.TabIndex = 44
Me.Label12.Text = "Sachbearbeiter:"
'
'DateTimePicker1
'
Me.DateTimePicker1.CustomFormat = "''"
Me.DateTimePicker1.Format = System.Windows.Forms.DateTimePickerFormat.Custom
Me.DateTimePicker1.Location = New System.Drawing.Point(41, 77)
Me.DateTimePicker1.Margin = New System.Windows.Forms.Padding(0)
Me.DateTimePicker1.Name = "DateTimePicker1"
Me.DateTimePicker1.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.DateTimePicker1.Size = New System.Drawing.Size(115, 20)
Me.DateTimePicker1.TabIndex = 35
'
'Panel1
'
Me.Panel1.Controls.Add(Me.MyDatagridview1)
Me.Panel1.Controls.Add(Me.Button2)
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel1.Location = New System.Drawing.Point(0, 171)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(1419, 390)
Me.Panel1.TabIndex = 1
'
'MyDatagridview1
'
Me.MyDatagridview1.AKTUALISIERUNGS_INTERVALL = -1
Me.MyDatagridview1.AllowUserToAddRows = False
Me.MyDatagridview1.AllowUserToDeleteRows = False
Me.MyDatagridview1.AllowUserToOrderColumns = True
Me.MyDatagridview1.AllowUserToResizeRows = False
Me.MyDatagridview1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.MyDatagridview1.Dock = System.Windows.Forms.DockStyle.Fill
Me.MyDatagridview1.Location = New System.Drawing.Point(0, 0)
Me.MyDatagridview1.Name = "MyDatagridview1"
Me.MyDatagridview1.ReadOnly = True
Me.MyDatagridview1.RowHeadersVisible = False
Me.MyDatagridview1.RowHeadersWidth = 51
Me.MyDatagridview1.Size = New System.Drawing.Size(1419, 390)
Me.MyDatagridview1.TabIndex = 0
'
'Button2
'
Me.Button2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button2.Image = Global.SDL.My.Resources.Resources.plus
Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button2.Location = New System.Drawing.Point(148, 333)
Me.Button2.Margin = New System.Windows.Forms.Padding(0)
Me.Button2.Name = "Button2"
Me.Button2.Padding = New System.Windows.Forms.Padding(0, 0, 10, 0)
Me.Button2.Size = New System.Drawing.Size(84, 35)
Me.Button2.TabIndex = 71
Me.Button2.Text = "Neu"
Me.Button2.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button2.UseVisualStyleBackColor = True
Me.Button2.Visible = False
'
'pnloptions
'
Me.pnloptions.BackColor = System.Drawing.Color.WhiteSmoke
Me.pnloptions.Controls.Add(Me.btnSendungKoppeln)
Me.pnloptions.Controls.Add(Me.Button1)
Me.pnloptions.Controls.Add(Me.btnDel)
Me.pnloptions.Controls.Add(Me.btnExcel)
Me.pnloptions.Controls.Add(Me.FlatButton7)
Me.pnloptions.Controls.Add(Me.lblErgebnis)
Me.pnloptions.Controls.Add(Me.Label37)
Me.pnloptions.Controls.Add(Me.txtMaxSrch)
Me.pnloptions.Dock = System.Windows.Forms.DockStyle.Bottom
Me.pnloptions.Location = New System.Drawing.Point(0, 561)
Me.pnloptions.Name = "pnloptions"
Me.pnloptions.Size = New System.Drawing.Size(1419, 59)
Me.pnloptions.TabIndex = 2
'
'btnSendungKoppeln
'
Me.btnSendungKoppeln.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnSendungKoppeln.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnSendungKoppeln.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
Me.btnSendungKoppeln.Image = Global.SDL.My.Resources.Resources.LKW_klein1
Me.btnSendungKoppeln.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnSendungKoppeln.Location = New System.Drawing.Point(813, 6)
Me.btnSendungKoppeln.Name = "btnSendungKoppeln"
Me.btnSendungKoppeln.Size = New System.Drawing.Size(317, 47)
Me.btnSendungKoppeln.TabIndex = 75
Me.btnSendungKoppeln.Text = "mit Sendung verknüpfen"
Me.btnSendungKoppeln.UseVisualStyleBackColor = True
Me.btnSendungKoppeln.Visible = False
'
'Button1
'
Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.Button1.Image = Global.SDL.My.Resources.Resources.plus
Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button1.Location = New System.Drawing.Point(16, 7)
Me.Button1.Name = "Button1"
Me.Button1.Padding = New System.Windows.Forms.Padding(0, 0, 20, 0)
Me.Button1.Size = New System.Drawing.Size(109, 47)
Me.Button1.TabIndex = 74
Me.Button1.Text = "NEU"
Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button1.UseVisualStyleBackColor = True
'
'btnDel
'
Me.btnDel.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnDel.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnDel.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.btnDel.Image = Global.SDL.My.Resources.Resources.del_small
Me.btnDel.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnDel.Location = New System.Drawing.Point(131, 7)
Me.btnDel.Name = "btnDel"
Me.btnDel.Size = New System.Drawing.Size(137, 47)
Me.btnDel.TabIndex = 73
Me.btnDel.Text = "Eintrag löschen"
Me.btnDel.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnDel.UseVisualStyleBackColor = True
'
'btnExcel
'
Me.btnExcel.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnExcel.BackgroundImage = Global.SDL.My.Resources.Resources.Excel_logo
Me.btnExcel.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
Me.btnExcel.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnExcel.Location = New System.Drawing.Point(1328, 22)
Me.btnExcel.Name = "btnExcel"
Me.btnExcel.Size = New System.Drawing.Size(41, 34)
Me.btnExcel.TabIndex = 67
Me.btnExcel.UseVisualStyleBackColor = True
'
'FlatButton7
'
Me.FlatButton7.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.FlatButton7.BackgroundImage = Global.SDL.My.Resources.Resources.refresh
Me.FlatButton7.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.FlatButton7.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.FlatButton7.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.FlatButton7.ForeColor = System.Drawing.Color.Black
Me.FlatButton7.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.FlatButton7.Location = New System.Drawing.Point(1375, 22)
Me.FlatButton7.Name = "FlatButton7"
Me.FlatButton7.Size = New System.Drawing.Size(41, 34)
Me.FlatButton7.TabIndex = 68
Me.FlatButton7.UseVisualStyleBackColor = True
'
'lblErgebnis
'
Me.lblErgebnis.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblErgebnis.Location = New System.Drawing.Point(1201, 5)
Me.lblErgebnis.Name = "lblErgebnis"
Me.lblErgebnis.Size = New System.Drawing.Size(215, 14)
Me.lblErgebnis.TabIndex = 66
Me.lblErgebnis.Text = "Ergebnisse: 0"
Me.lblErgebnis.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'Label37
'
Me.Label37.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label37.AutoSize = True
Me.Label37.Location = New System.Drawing.Point(1242, 33)
Me.Label37.Name = "Label37"
Me.Label37.Size = New System.Drawing.Size(30, 13)
Me.Label37.TabIndex = 69
Me.Label37.Text = "Max:"
'
'txtMaxSrch
'
Me.txtMaxSrch._DateTimeOnly = False
Me.txtMaxSrch._numbersOnly = True
Me.txtMaxSrch._numbersOnlyKommastellen = ""
Me.txtMaxSrch._numbersOnlyTrennzeichen = True
Me.txtMaxSrch._Prozent = False
Me.txtMaxSrch._ShortDateNew = False
Me.txtMaxSrch._ShortDateOnly = False
Me.txtMaxSrch._TimeOnly = False
Me.txtMaxSrch._TimeOnly_Seconds = False
Me.txtMaxSrch._value = ""
Me.txtMaxSrch._Waehrung = False
Me.txtMaxSrch._WaehrungZeichen = True
Me.txtMaxSrch.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtMaxSrch.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtMaxSrch.ForeColor = System.Drawing.Color.Black
Me.txtMaxSrch.Location = New System.Drawing.Point(1274, 30)
Me.txtMaxSrch.MaxLineLength = -1
Me.txtMaxSrch.MaxLines_Warning = ""
Me.txtMaxSrch.MaxLines_Warning_Label = Nothing
Me.txtMaxSrch.Name = "txtMaxSrch"
Me.txtMaxSrch.Size = New System.Drawing.Size(48, 20)
Me.txtMaxSrch.TabIndex = 70
Me.txtMaxSrch.Text = "1000"
Me.txtMaxSrch.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'frmBerufungenSearch
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(1419, 620)
Me.Controls.Add(Me.Panel1)
Me.Controls.Add(Me.pnl)
Me.Controls.Add(Me.pnloptions)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmBerufungenSearch"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Berufungen"
Me.pnl.ResumeLayout(False)
Me.pnl.PerformLayout()
Me.pnlTop.ResumeLayout(False)
Me.pnlTop.PerformLayout()
CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel1.ResumeLayout(False)
CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).EndInit()
Me.pnloptions.ResumeLayout(False)
Me.pnloptions.PerformLayout()
Me.ResumeLayout(False)
End Sub
Friend WithEvents pnl As System.Windows.Forms.Panel
Friend WithEvents txtAbfertDat As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtAbfertDatBis As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents cboFiliale As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents txtAbfertigungsnummer As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Button7 As System.Windows.Forms.Button
Friend WithEvents Button6 As System.Windows.Forms.Button
Friend WithEvents Button5 As System.Windows.Forms.Button
Friend WithEvents btnSuche As System.Windows.Forms.Button
Friend WithEvents Label23 As System.Windows.Forms.Label
Friend WithEvents btnJahr As System.Windows.Forms.Button
Friend WithEvents pnlTop As System.Windows.Forms.Panel
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents btnBisJahr As System.Windows.Forms.Button
Friend WithEvents btnVonJahr As System.Windows.Forms.Button
Friend WithEvents btnMonat As System.Windows.Forms.Button
Friend WithEvents btnBisMonat As System.Windows.Forms.Button
Friend WithEvents btnVonMonat As System.Windows.Forms.Button
Friend WithEvents DateTimePicker2 As System.Windows.Forms.DateTimePicker
Friend WithEvents Label13 As System.Windows.Forms.Label
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Label12 As System.Windows.Forms.Label
Friend WithEvents DateTimePicker1 As System.Windows.Forms.DateTimePicker
Friend WithEvents Panel1 As System.Windows.Forms.Panel
Friend WithEvents MyDatagridview1 As VERAG_PROG_ALLGEMEIN.MyDatagridview
Friend WithEvents pnloptions As System.Windows.Forms.Panel
Friend WithEvents btnExcel As System.Windows.Forms.Button
Friend WithEvents FlatButton7 As System.Windows.Forms.Button
Friend WithEvents lblErgebnis As System.Windows.Forms.Label
Friend WithEvents Label37 As System.Windows.Forms.Label
Friend WithEvents txtMaxSrch As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtLKWKennzeichen As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents Button2 As System.Windows.Forms.Button
Friend WithEvents txtFEmpfänger As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents btnDel As Button
Friend WithEvents txtReferenz As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label5 As Label
Friend WithEvents txtAbsender As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label7 As Label
Friend WithEvents Button1 As Button
Friend WithEvents txtDocumetNummer As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label8 As Label
Friend WithEvents txtSuche As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label9 As Label
Friend WithEvents txtSB As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents btnSendungKoppeln As Button
Friend WithEvents PictureBox6 As PictureBox
Friend WithEvents cboDatum As VERAG_PROG_ALLGEMEIN.MyComboBox
End Class

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>

View File

@@ -0,0 +1,441 @@
Imports javax.smartcardio
Public Class frmBerufungenSearch
Dim MONAT As Date = CDate("01." & Now.Month & "." & Now.Year) '.AddMonths(-1)
Dim srcTAG As Date = CDate(Now.ToShortDateString)
Dim JAHR As Date = CDate("01.01." & Now.Year)
Public SendungKoppeln As Boolean = False
Public SendungsId As Integer = -1
Private Sub frmVorauskasse_Load(sender As Object, e As EventArgs) Handles Me.Load
Me.Top = 0
Me.Height = My.Computer.Screen.WorkingArea.Height
txtAbfertDat.Text = Now.ToShortDateString 'CDate("01." & Now.ToString("MM.yyyy")).AddMonths(-1).ToShortDateString
txtAbfertDatBis.Text = Now.ToShortDateString
cboDatum.Items.Clear()
cboDatum.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Ausstellungs-Datum", "ADat"))
cboDatum.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Erhalten-Datum", "EDat"))
cboDatum.changeItem("ADat")
btnMonat.Text = MONAT.ToString("MMMM")
btnJahr.Text = JAHR.Year
Dim QSwhere = ""
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "ATILLA" : QSwhere = ""
Case "IMEX" : QSwhere = " AND mit_firma IN ('IMEX','BEIDE') "
Case "AMBAR" : QSwhere = " AND mit_firma IN ('AMBAR','BEIDE') "
Case Else
QSwhere = " AND mit_firma <> 'IMEX' "
End Select
If SendungKoppeln Then btnSendungKoppeln.Visible = True
' cboSachbearbeiterQS.fillWithSQL("SELECT ID,/*cast(ID as nvarchar(3)) +' ' + Name as*/ Name FROM Personal WHERE [Status]<>'L' " & QSwhere & " ORDER BY Name ", False, "FMZOLL", True)
Dim where = ""
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "IMEX"
where = " AND FilialenNr IN (5501) "
Case "ATILLA"
where = " AND FilialenNr IN (4801) "
Case "AMBAR"
where = " AND FilialenNr IN (5701) "
Case Else
where = " AND FilialenNr NOT IN (5501) "
End Select
cboFiliale.fillWithSQL("SELECT FilialenNr, Grenzstelle FROM Filialen WHERE Fil_Status='A' " & where & " ORDER BY FilialenNr ", True, "FMZOLL", True)
'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
' Case "IMEX"
' 'cboFiliale._allowedValuesFreiText = {"5501"}
' cboFiliale.changeItem("5501")
' Case "ATILLA"
' cboFiliale._allowedValuesFreiText = {"4801"}
' cboFiliale.changeItem("4801")
' 'cboFiliale.Enabled = False
' Case "AMBAR"
' cboFiliale._allowedValuesFreiText = {"5701"}
' cboFiliale.changeItem("5701")
' 'cboFiliale.Enabled = False
'End Select
btnMonat.PerformClick()
btnSuche.PerformClick()
End Sub
Private Sub DateTimePicker1_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker1.ValueChanged
txtAbfertDat._value = CDate(sender.value).ToShortDateString
End Sub
Private Sub DateTimePicker2_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker2.ValueChanged
txtAbfertDatBis._value = CDate(sender.value).ToShortDateString
End Sub
Sub initBtns(MonatJahr)
btnMonat.Text = MONAT.ToString("MMMM")
btnJahr.Text = JAHR.Year
Select Case MonatJahr
Case "Monat"
DateTimePicker1.Value = MONAT
DateTimePicker2.Value = MONAT.AddMonths(1).AddDays(-1)
Case "Jahr"
' If cbxGeschaftsjahr.Checked Then
'DateTimePicker1.Value = JAHR.AddMonths(1)
' DateTimePicker2.Value = JAHR.AddYears(1).AddMonths(1).AddDays(-1)
' Else
DateTimePicker1.Value = JAHR
DateTimePicker2.Value = JAHR.AddYears(1).AddDays(-1)
'End If
Case "Tag"
' If cbxGeschaftsjahr.Checked Then
'DateTimePicker1.Value = JAHR.AddMonths(1)
' DateTimePicker2.Value = JAHR.AddYears(1).AddMonths(1).AddDays(-1)
' Else
DateTimePicker1.Value = srcTAG
DateTimePicker2.Value = srcTAG
If srcTAG = Now.ToShortDateString Then
Button5.Text = "Heute"
ElseIf srcTAG = Now.AddDays(-1).ToShortDateString Then
Button5.Text = "Gestern"
ElseIf srcTAG = Now.AddDays(-2).ToShortDateString Then
Button5.Text = "Vorgestern"
Else
Button5.Text = srcTAG.ToString("dd.MM")
End If
'End If
Case ""
DateTimePicker1.Value = ("01." & Now.Month & "." & Now.Year)
DateTimePicker2.Value = Now
End Select
btnSuche.PerformClick()
End Sub
Dim biningInit = False
Private Sub btnSuche_Click(sender As Object, e As EventArgs) Handles btnSuche.Click
Me.Cursor = Cursors.WaitCursor
Dim TopMax = If(IsNumeric(txtMaxSrch.Text), " TOP " & txtMaxSrch.Text, "")
Dim sqlstr As String = ""
' bindPOST = New cEasyBinding("FMZOLL")
sqlstr &= " SELECT " & TopMax & " atr_id,atr_documentNr, atr_austellungsdatum, atr_FilialenNr, atr_AbfertigungsNr, atr_LKW,atr_EmpfaengerKdNr, atr_Empfaenger, atr_AbsenderKdNr,atr_Absender, atr_Sachbearbeiter,atr_DHL_ReferenzNr FROM [tblOriginalATR] WHERE 1=1 "
With MyDatagridview1
.SET_SQL(sqlstr & getWhere() & " ORDER BY atr_austellungsdatum desc", "FMZOLL", getList)
.LOAD()
lblErgebnis.Text = "Ergebnisse: " & .Rows.Count
' setDGVOptions()
End With
showDGV()
Me.Cursor = Cursors.Default
End Sub
Function getWhere() As String
Dim sqlstr = ""
If cboDatum._value = "ADat" Then
If txtAbfertDat.Text <> "" Then
If txtAbfertDatBis.Text <> "" Then
sqlstr &= " AND ([atr_austellungsdatum] BETWEEN @Datum AND @DatumBis) "
Else
sqlstr &= " AND ([atr_austellungsdatum] BETWEEN @Datum AND @Datum ) "
End If
End If
ElseIf cboDatum._value = "EDat" Then
If txtAbfertDat.Text <> "" Then
If txtAbfertDatBis.Text <> "" Then
sqlstr &= " AND ([atr_erhalenDatum] BETWEEN @Datum AND @DatumBis) "
Else
sqlstr &= " AND ([atr_erhalenDatum] BETWEEN @Datum AND @Datum ) "
End If
End If
End If
If txtSuche._value <> "" Then
sqlstr &= " AND ( "
sqlstr &= " atr_documentNr LIKE '" & txtSuche._value & "%' OR "
sqlstr &= " atr_absender LIKE '" & txtSuche._value & "%' OR "
sqlstr &= " atr_empfaenger LIKE '" & txtSuche._value & "%' OR "
sqlstr &= " atr_DHL_ReferenzNr LIKE '" & txtSuche._value & "%' OR "
sqlstr &= " atr_LKW LIKE '" & txtSuche._value & "%' OR "
sqlstr &= " atr_location LIKE '" & txtSuche._value & "%' OR "
sqlstr &= " atr_info LIKE '" & txtSuche._value & "%' OR "
sqlstr &= " atr_DHL_ReferenzNr LIKE '" & txtSuche._value & "%' "
sqlstr &= " ) "
End If
If txtAbfertigungsnummer.Text <> "" Then
' If txtAbfertigungsnummerBis.Text <> "" Then
'sqlstr &= " AND ([vk_AbfertigungsNr] BETWEEN @AbfertigungsNr AND @AbfertigungsNr_bis ) "
'Else
'sqlstr &= " AND vk_AbfertigungsNr LIKE @AbfertigungsNr "
'End If
sqlstr &= " AND atr_AbfertigungsNr LIKE @AbfertigungsNr "
End If
' If txtUnterNr.Text <> "" Then sqlstr &= " AND [UnterNr] LIKE @UnterNr "
If cboFiliale._value <> "" Then sqlstr &= " AND [atr_FilialenNr] LIKE @FilialenNr "
If txtSB._value <> "" Then sqlstr &= " AND [atr_mitId] = @PersonalnummerQS "
If txtLKWKennzeichen.Text <> "" Then sqlstr &= " AND [atr_LKW] LIKE @LKW "
If txtFEmpfänger.Text <> "" Then sqlstr &= " AND [atr_empfaenger] LIKE @Empfaenger "
If txtAbsender.Text <> "" Then sqlstr &= " AND [atr_absender] LIKE @Absender "
If txtDocumetNummer.Text <> "" Then sqlstr &= " AND [atr_documentNr] LIKE @DocumentNummer "
If txtReferenz.Text <> "" Then sqlstr &= " AND [atr_DHL_ReferenzNr] LIKE @Referenz "
Return sqlstr
End Function
Function getList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Datum", txtAbfertDat.Text & " 00:00:00"))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DatumBis", txtAbfertDatBis.Text & " 23:59:59"))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbfertigungsNr", txtAbfertigungsnummer.Text.Replace("*", "%")))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DocumentNummer", txtDocumetNummer.Text.Replace("*", "%")))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FilialenNr", cboFiliale._value))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("PersonalnummerQS", txtSB._value))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LKW", txtLKWKennzeichen.Text.Replace("*", "%")))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Absender", txtAbsender.Text.Replace("*", "%")))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Empfaenger", txtFEmpfänger.Text.Replace("*", "%")))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Referenz", txtReferenz.Text.Replace("*", "%")))
Return list
End Function
Sub showDGV()
With MyDatagridview1
If .RowCount = 0 Then Me.Cursor = Cursors.Default : Exit Sub
.RowHeadersVisible = False
' .ReadOnly = True
.SelectionMode = DataGridViewSelectionMode.FullRowSelect
.MultiSelect = False
.Columns("atr_id").Visible = False
' .Columns("post_art").Visible = False
' .Columns("post_KdAuftrNrAvisierer").Visible = False
' .Columns("atr_EmpfaengerKdNr").Visible = False
' .Columns("atr_AbsenderKdNr").Visible = False
.Columns("atr_FilialenNr").Width = 45
.Columns("atr_FilialenNr").HeaderText = "Filiale"
.Columns("atr_FilialenNr").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
.Columns("atr_AbfertigungsNr").Width = 80
.Columns("atr_AbfertigungsNr").HeaderText = "Abf-Nr"
.Columns("atr_AbfertigungsNr").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
.Columns("atr_documentNr").Width = 120
.Columns("atr_documentNr").HeaderText = "ATR-Nr"
.Columns("atr_documentNr").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
.Columns("atr_austellungsdatum").Width = 100
.Columns("atr_austellungsdatum").HeaderText = "Datum"
.Columns("atr_austellungsdatum").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
.Columns("atr_LKW").Width = 120
.Columns("atr_LKW").HeaderText = "LKW Kennz."
.Columns("atr_EmpfaengerKdNr").HeaderText = "KdNr"
.Columns("atr_EmpfaengerKdNr").Width = 50
.Columns("atr_Empfaenger").HeaderText = "Empfänger"
.Columns("atr_Empfaenger").Width = 150
.Columns("atr_AbsenderKdNr").HeaderText = "KdNr"
.Columns("atr_AbsenderKdNr").Width = 50
.Columns("atr_Absender").HeaderText = "in Auftrag"
.Columns("atr_Absender").Width = 150
.Columns("atr_Sachbearbeiter").MinimumWidth = 100
.Columns("atr_Sachbearbeiter").HeaderText = "Sachb."
.Columns("atr_DHL_ReferenzNr").HeaderText = "Referenz Paketdienst"
.Columns("atr_DHL_ReferenzNr").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
End With
End Sub
Private Sub FlatButton7_Click(sender As Object, e As EventArgs) Handles FlatButton7.Click
btnSuche.PerformClick()
' MyDatagridview1.RELOAD()
' setDGVOptions()
End Sub
'Sub setDGVOptions()
' Try
' With MyDatagridview1
' For Each r As DataGridViewRow In .Rows
' If r.Cells("vk_storno").Value IsNot DBNull.Value AndAlso r.Cells("vk_storno").Value Then
' r.DefaultCellStyle.ForeColor = Color.Red
' ElseIf r.Cells("vk_GeldEingetroffen").Value IsNot DBNull.Value AndAlso r.Cells("vk_GeldEingetroffen").Value Then
' r.DefaultCellStyle.ForeColor = Color.DarkGreen
' End If
' Next
' End With
' Catch ex As Exception
' MsgBox(ex.Message)
' End Try
'End Sub
Private Sub btnExcel_Click(sender As Object, e As EventArgs) Handles btnExcel.Click
Me.Cursor = Cursors.WaitCursor
cProgramFunctions.genExcelFromDGV_NEW(MyDatagridview1, False)
Me.Cursor = Cursors.Default
End Sub
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
srcTAG = srcTAG.AddDays(-1)
initBtns("Tag")
End Sub
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
srcTAG = srcTAG.AddDays(1)
initBtns("Tag")
End Sub
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
initBtns("Tag")
End Sub
Private Sub btnMonat_Click(sender As Object, e As EventArgs) Handles btnMonat.Click
initBtns("Monat")
End Sub
Private Sub btnJahr_Click(sender As Object, e As EventArgs) Handles btnJahr.Click
initBtns("Jahr")
End Sub
Private Sub btnBisMonat_Click(sender As Object, e As EventArgs) Handles btnBisMonat.Click
MONAT = MONAT.AddMonths(1)
initBtns("Monat")
End Sub
Private Sub btnVonMonat_Click(sender As Object, e As EventArgs) Handles btnVonMonat.Click
MONAT = MONAT.AddMonths(-1)
initBtns("Monat")
End Sub
Private Sub btnBisJahr_Click(sender As Object, e As EventArgs) Handles btnBisJahr.Click
JAHR = JAHR.AddYears(1)
initBtns("Jahr")
End Sub
Private Sub btnVonJahr_Click(sender As Object, e As EventArgs) Handles btnVonJahr.Click
JAHR = JAHR.AddYears(-1)
initBtns("Jahr")
End Sub '
Private Sub btnDel_Click(sender As Object, e As EventArgs) Handles btnDel.Click
If MyDatagridview1.SelectedRows.Count > 0 Then
Dim ATR As New VERAG_PROG_ALLGEMEIN.cOrigianlATR(MyDatagridview1.SelectedRows(0).Cells("atr_id").Value)
If vbYes <> MsgBox("Möchten Sie den Eintrag wirklich löschen?", vbYesNoCancel) Then Exit Sub
ATR.DELETE()
btnSuche.PerformClick()
'MyDatagridview1.RELOAD()
' setDGVOptions()
End If
End Sub
Private Sub gridAviso_DoubleClick(sender As Object, e As System.EventArgs) Handles MyDatagridview1.DoubleClick
If MyDatagridview1.SelectedRows.Count = 0 And MyDatagridview1.SelectedRows.Count = 0 Then Exit Sub
Dim atr_id = MyDatagridview1.SelectedRows(0).Cells("atr_id").Value
Dim f As New frmATR(atr_id)
f.ShowDialog(Me)
btnSuche.PerformClick()
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim f As New frmATR
f.ShowDialog(Me)
btnSuche.PerformClick()
End Sub
Private Sub txtSuche_TextChanged(sender As Object, e As EventArgs) Handles txtSuche.TextChanged
End Sub
Private Sub txtSuche_KeyDown(sender As Object, e As KeyEventArgs) Handles txtSuche.KeyDown
If e.KeyCode = Keys.Return Then
btnSuche.PerformClick()
End If
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles btnSendungKoppeln.Click
If MyDatagridview1.SelectedRows.Count > 0 Then
Dim ATR = New VERAG_PROG_ALLGEMEIN.cOrigianlATR(MyDatagridview1.SelectedRows(0).Cells("atr_id").Value)
If ATR IsNot Nothing Then
If vbYes = MsgBox("ATR in Anhang speichern?", vbYesNoCancel) Then
If ATR.atr_dsId < 0 Then MsgBox("Kein PDF-Anhang!") : Exit Sub
Dim ANH = New VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge(ATR.atr_anhID)
ANH.anh_SendungsId = SendungsId
Dim SND As New VERAG_PROG_ALLGEMEIN.cSendungen(SendungsId)
ANH.anh_AvisoId = SND.tblSnd_AvisoID
ANH.anh_docId = ATR.atr_dsId
ANH.anh_Name = "ATR_ARCHIV"
ANH.anh_Typ = VERAG_PROG_ALLGEMEIN.cProgramFunctions.getFilePathTypeValid(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(ATR.atr_dsId))
ANH.anh_Art = "ATR"
If ANH.SAVE() Then 'Eintrag wird überschreiben
ATR.atr_anhID = ANH.anh_id
ATR.atr_SendungsId = SendungsId
ATR.atr_AvisoId = SND.tblSnd_AvisoID
ATR.atr_FilialenNr = SND.FilialenNr
ATR.atr_AbfertigungsNr = SND.AbfertigungsNr
If ATR.SAVE() Then
frmATR.insertVermerkATR(ATR)
Me.Close()
End If
End If
End If
End If
End If
End Sub
Private Sub PictureBox6_Click(sender As Object, e As EventArgs) Handles PictureBox6.Click
Dim webAddress As String = "https://wiki.verag.ag/de/software/aviso/howtos/ATRArchiv"
Process.Start(webAddress)
End Sub
End Class

View File

@@ -1656,11 +1656,11 @@ Public Class usrCntlUSTV
Dim sqlQery = "SELECT dbo.tblUStVAntrag.UStVAn_ID, dbo.tblUStVAntrag.UStVAn_KuNr, dbo.tblUStVAntrag.UStVAn_ReDatVon,
dbo.tblUStVAntrag.UStVAn_ReDatBis,
dbo.tblUStVAntrag.UStVAn_Ausstellungsdatum,
(SELECT LandKz from [Länderverzeichnis für die Außenhandelsstatistik] where LandNr = dbo.tblUStVAntrag.UStVAn_LandNr) as AntragsLand,
dbo.tblUStVAntrag.UStVAn_VZDatum, dbo.tblUStVAntrag.UStVAn_VZBetrag, dbo.tblUStVAntrag.UStVAn_RZBetragVZ, dbo.Adressen.Ordnungsbegriff, dbo.Adressen.LandKz, ISNULL
Dim sqlQery = "SELECT dbo.tblUStVAntrag.UStVAn_KuNr as KDNR, dbo.Adressen.Ordnungsbegriff as Name, dbo.Adressen.LandKz,dbo.tblUStVAntrag.UStVAn_ID as ID,
(SELECT LandKz from [Länderverzeichnis für die Außenhandelsstatistik] where LandNr = dbo.tblUStVAntrag.UStVAn_LandNr) as Antrag_LKZ,
dbo.tblUStVAntrag.UStVAn_ReDatVon as ReDatVon, dbo.tblUStVAntrag.UStVAn_ReDatBis as ReDatBis,
dbo.tblUStVAntrag.UStVAn_Ausstellungsdatum as Ausstellungsdatum , dbo.tblUStVAntrag.UStVAn_VZDatum as VZDat, dbo.tblUStVAntrag.UStVAn_VZBetrag as VZBetrag, dbo.tblUStVAntrag.UStVAn_RZBetragVZ as RZBetragVZ,
ISNULL
((SELECT SUM(UStVEr_USteuerbetragEUR) AS Expr1
FROM dbo.tblUStVErstattung
WHERE (UStVAn_ID = dbo.tblUStVAntrag.UStVAn_ID)), 0) AS Erstattungsbetrag, CASE WHEN ([UStVAn_VZBetrag] - ISNULL([UStVAn_RZBetragVZ], 0) - ISNULL
@@ -1669,7 +1669,7 @@ Public Class usrCntlUSTV
WHERE dbo.tblUStVErstattung.UStVAn_ID = dbo.tblUStVAntrag.UStVAn_ID), 0)) > 0 THEN [UStVAn_VZBetrag] - ISNULL([UStVAn_RZBetragVZ], 0) - ISNULL
((SELECT SUM(dbo.tblUStVErstattung.UStVEr_USteuerbetragEUR)
FROM dbo.tblUStVErstattung
WHERE dbo.tblUStVErstattung.UStVAn_ID = dbo.tblUStVAntrag.UStVAn_ID), 0) ELSE 0 END AS UStVAn_VZBetragAktuell
WHERE dbo.tblUStVErstattung.UStVAn_ID = dbo.tblUStVAntrag.UStVAn_ID), 0) ELSE 0 END AS VZBetragAktuell
FROM dbo.tblUStVAntrag INNER JOIN
dbo.Adressen ON dbo.tblUStVAntrag.UStVAn_KuNr = dbo.Adressen.AdressenNr
WHERE (dbo.tblUStVAntrag.UStVAn_VZBetrag IS NOT NULL)" & sqlKunde & whereStr
@@ -1682,13 +1682,6 @@ Public Class usrCntlUSTV
MsgBox("keine Daten!")
Exit Sub
Else
For Each col In dtVorauszahlung.Columns
Dim colName = col.ColumnName.Replace("UStVAn_", "")
If Not col.ColumnName.Contains(colName) Then col.ColumnName = col.ColumnName.Replace("UStVAn_", "")
Next
End If

View File

@@ -424,7 +424,7 @@ Public Class usrCntlCBAM
Dim SQL_DAKOSY = ""
Dim SQL_GP = ""
getDY_Detail_SQL(SQLSTR_WHERE_FIRMEN, EORI, SQL_DAKOSY, SQL_GP) '--> Aufbau SQL String
getDY_Detail_SQL_DK(SQLSTR_WHERE_FIRMEN, EORI, SQL_DAKOSY, SQL_GP) '--> Aufbau SQL String
Dim dt = SQL.loadDgvBySql(SQL_DAKOSY, "AVISO", 600)
@@ -673,7 +673,7 @@ Public Class usrCntlCBAM
End Sub
Sub getDY_Detail_SQL(SQLSTR_WHERE_FIRMEN, EORI, ByRef SQL_DAKOSY, ByRef SQL_GP)
Sub getDY_Detail_SQL_DK(SQLSTR_WHERE_FIRMEN, EORI, ByRef SQL_DAKOSY, ByRef SQL_GP)
SQL_GP = "SELECT [Registriernummer_MRN] as 'declaration no'
,max(Überlassungsdatum) as 'declaration date'
@@ -782,6 +782,219 @@ Public Class usrCntlCBAM
SQL_DAKOSY &= SQLSTR
End Sub
Sub getDY_Detail_SQL_DHF(EORI, ByRef SQL_DHF, ByRef SQL_GP)
'Conee = Importeur
'Conor = Exportuer
SQL_GP = "SELECT CRN as 'declaration no'
,cast(DecDT as date) as 'declaration date'
,isnull((SELECT TIN FROM zsAnmConeeTra WHERE (zsAnmConeeTra.LizenzNr = zsAnmHea.LizenzNr ) And (zsAnmConeeTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConeeTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConeeTra.AnmID = zsAnmHea.AnmID )),'') as 'importer identification number'
,isnull((SELECT TIN FROM zsAnmConorTra WHERE (zsAnmConorTra.LizenzNr = zsAnmHea.LizenzNr ) And (zsAnmConorTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConorTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConorTra.AnmID = zsAnmHea.AnmID )),'') as 'exporter identification number'
, zsAnmGdsitem.ComCd as 'commodity code'
,Orig as 'origin country code'
,Left(isnull(ProcCd, '00'),2) as 'requested procedure'
,'' as 'previous procedure'
,(Net / 1000) as 'net mass'
,'TONNES' as 'type of measurement unit'
,'' as 'invoice numbers'
,'' as 'invoice date'
,'' as 'member state auth'
,'' as 'discharge bill waiver'
,'' as 'authorisation'
,'' as 'start time'
,'' as 'end time'
,'' as 'deadline'
,'' as 'reporting declarant EORI number'
,'' as 'type of representation'
,isnull((SELECT Na FROM zsAnmConeeTra WHERE (zsAnmConeeTra.LizenzNr = zsAnmHea.LizenzNr ) And (zsAnmConeeTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConeeTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConeeTra.AnmID = zsAnmHea.AnmID )),'') as 'importer title'
,'' as 'importer email'
,'' as 'importer phone'
,isnull((SELECT Ctry FROM zsAnmConeeTra WHERE (zsAnmConeeTra.LizenzNr = zsAnmHea.LizenzNr ) And (zsAnmConeeTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConeeTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConeeTra.AnmID = zsAnmHea.AnmID )),'') as 'importer country code or member state'
,'' as 'importer subdivision'
,isnull((SELECT Cty FROM zsAnmConeeTra WHERE (zsAnmConeeTra.LizenzNr = zsAnmHea.LizenzNr ) And (zsAnmConeeTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConeeTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConeeTra.AnmID = zsAnmHea.AnmID )),'') as 'importer city'
,isnull((SELECT Strt FROM zsAnmConeeTra WHERE (zsAnmConeeTra.LizenzNr = zsAnmHea.LizenzNr ) And (zsAnmConeeTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConeeTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConeeTra.AnmID = zsAnmHea.AnmID )),'') as 'importer street'
,'' as 'importer street additional'
,'' as 'importer address number'
,isnull((SELECT Pst FROM zsAnmConeeTra WHERE (zsAnmConeeTra.LizenzNr = zsAnmHea.LizenzNr ) And (zsAnmConeeTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConeeTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConeeTra.AnmID = zsAnmHea.AnmID )),'') as 'importer post code'
,'' as 'importer po box'
,'' as 'importer coordinate longitude (x)'
,'' as 'importer coordinate latitude (y)'
,isnull((SELECT Na FROM zsAnmConorTra WHERE (zsAnmConorTra.LizenzNr = zsAnmHea.LizenzNr ) And (zsAnmConorTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConorTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConorTra.AnmID = zsAnmHea.AnmID )),'') as 'exporter title'
,isnull((SELECT Ctry FROM zsAnmConorTra WHERE (zsAnmConorTra.LizenzNr = zsAnmHea.LizenzNr ) And (zsAnmConorTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConorTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConorTra.AnmID = zsAnmHea.AnmID )),'') as 'exporter country code or member state'
,isnull((SELECT Strt FROM zsAnmConorTra WHERE (zsAnmConorTra.LizenzNr = zsAnmHea.LizenzNr ) And (zsAnmConorTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConorTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConorTra.AnmID = zsAnmHea.AnmID )),'') as 'exporter street'
,'' as 'exporter street additional'"
SQL_DHF = "select CRN Zollbelegnummer,cast(DecDT as date) Anmeldedatum,LRN,zsAnmGdsitem.ComCd Tarifnummer,Net Eigenmasse,ItVal Rechnungspreis
, Orig Ursprungsland
, isnull((SELECT TIN FROM zsAnmConorTra WHERE (zsAnmConorTra.LizenzNr = zsAnmHea.LizenzNr ) And (zsAnmConorTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConorTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConorTra.AnmID = zsAnmHea.AnmID )),'') EORI_Absender
, isnull((SELECT Na FROM zsAnmConorTra WHERE (zsAnmConorTra.LizenzNr = zsAnmHea.LizenzNr ) And (zsAnmConorTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConorTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConorTra.AnmID = zsAnmHea.AnmID )),'') Absender
, isnull((SELECT TIN FROM zsAnmConeeTra WHERE (zsAnmConeeTra.LizenzNr = zsAnmHea.LizenzNr ) And (zsAnmConeeTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConeeTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConeeTra.AnmID = zsAnmHea.AnmID )),'')EORI_Empfänger
, isnull((SELECT Na FROM zsAnmConeeTra WHERE (zsAnmConeeTra.LizenzNr = zsAnmHea.LizenzNr ) And (zsAnmConeeTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConeeTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConeeTra.AnmID = zsAnmHea.AnmID )),'')Empfänger"
Dim SQLSTR = " from zsAnmRefs
inner join zsAnmDHFRefs on zsAnmRefs.LizenzNr=zsAnmDHFRefs.LizenzNr and zsAnmRefs.AnmID=zsAnmDHFRefs.AnmID and zsAnmRefs.VorgangID=zsAnmDHFRefs.VorgangID and zsAnmRefs.OperatorID=zsAnmDHFRefs.OperatorID
inner join zsAnmGdsitem on zsAnmRefs.LizenzNr=zsAnmGdsitem.LizenzNr and zsAnmRefs.AnmID=zsAnmGdsitem.AnmID and zsAnmRefs.VorgangID=zsAnmGdsitem.VorgangID and zsAnmRefs.OperatorID=zsAnmGdsitem.OperatorID
inner join zsAnmHea on zsAnmHea.LizenzNr=zsAnmGdsitem.LizenzNr and zsAnmHea.AnmID=zsAnmGdsitem.AnmID and zsAnmHea.VorgangID=zsAnmGdsitem.VorgangID and zsAnmHea.OperatorID=zsAnmGdsitem.OperatorID
inner join zsAnmDeclarant on zsAnmHea.LizenzNr=zsAnmDeclarant.LizenzNr and zsAnmHea.AnmID=zsAnmDeclarant.AnmID and zsAnmHea.VorgangID=zsAnmDeclarant.VorgangID and zsAnmHea.OperatorID=zsAnmDeclarant.OperatorID
inner join zsAnmTransp on zsAnmHea.LizenzNr=zsAnmTransp.LizenzNr and zsAnmHea.AnmID=zsAnmTransp.AnmID and zsAnmHea.VorgangID=zsAnmTransp.VorgangID and zsAnmHea.OperatorID=zsAnmTransp.OperatorID
where DecDT between '" & txtVon._value & "' and '" & txtBis._value & "'
and
(
left(ComCd,4) IN (2523,2716,2808,2814,3102,3105,7201,7203,7318,7326,7601,7616)
OR left(ComCd,4) between 7301 and 7311
OR left(ComCd,4) between 7205 and 7229
OR left(ComCd,4) between 7603 and 7614
OR ComCd like '25070080%'
OR ComCd like '283421%'
OR ComCd like '260112%'
OR ComCd like '720211%'
OR ComCd like '720219%'
OR ComCd like '720241%'
OR ComCd like '720249%'
OR ComCd like '720260%'
OR ComCd like '280410%'
)
and ComCd not like '310560%'
and crn is not null
and zsAnmDHFRefs.ErledigungsTypID like 'F%'"
If cbxVERAG.Checked Or cbxIMEX.Checked Or cbxUNISPED.Checked Then
SQLSTR &= "
and DecRep IN(3)
"
Else
SQLSTR &= "
and (SELECT TIN FROM zsAnmConeeTra WHERE (zsAnmConeeTra.LizenzNr = zsAnmHea.LizenzNr ) And (zsAnmConeeTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConeeTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConeeTra.AnmID = zsAnmHea.AnmID )) LIKE '" & EORI & "'
"
End If
SQL_GP &= SQLSTR
SQL_GP &= " order by 'importer identification number'"
SQL_DHF &= SQLSTR
SQL_DHF &= " order by Absender"
End Sub
Sub getDY_Detail_SQL_TT(EORI, ByRef SQL_TT, ByRef SQL_GP)
'Conee = Importeur
'Conor = Exportuer
SQL_GP = "SELECT telanm_CRN as 'declaration no'
,cast(dec_CreateDate as Date) 'declaration date'
,isnull(ConeeTra_TIN,'') as 'importer identification number'
,isnull(ConorTra_TIN,'') as 'exporter identification number'
, Item_ComCd as 'commodity code'
, isnull(Item_orig,'') as 'origin country code'
,Left(Item_ProcCd,2) as 'requested procedure'
,'' as 'previous procedure'
,(isnull(Item_net,0) / 1000) as 'net mass'
,'TONNES' as 'type of measurement unit'
,'' as 'invoice numbers'
,'' as 'invoice date'
,'' as 'member state auth'
,'' as 'discharge bill waiver'
,'' as 'authorisation'
,'' as 'start time'
,'' as 'end time'
,'' as 'deadline'
,isnull(Declarant_TIN,'') as 'reporting declarant EORI number'
,isnull(Declarant_Na,'') as 'type of representation'
,isnull(ConeeTra_Na,'') as 'importer title'
,'' as 'importer email'
,'' as 'importer phone'
,isnull(ConeeTra_Ctry,'') as 'importer country code or member state'
,'' as 'importer subdivision'
,isnull(ConeeTra_Cty,'') as 'importer city'
,isnull(ConeeTra_Strt,'') as 'importer street'
,'' as 'importer street additional'
,'' as 'importer address number'
,isnull(ConeeTra_Pst,'') as 'importer post code'
,'' as 'importer po box'
,'' as 'importer coordinate longitude (x)'
,'' as 'importer coordinate latitude (y)'
,isnull(ConorTra_Na,'') as 'exporter title'
,isnull(ConorTra_Ctry,'') as 'exporter country code or member state'
,isnull(ConorTra_Strt,'') as 'exporter street'
,'' as 'exporter street additional'"
SQL_TT = "SELECT
telanm_CRN Registriernummer
,Pos_ID PositionsNummer
,dec_CreateDate Anmeldedatum
,telanm_BezugsNr BezugsNr
,Declarant_DecRep VertretungsVerhaeltnis
,Item_ComCd Tarifnummer
,dec_TotNet Eigenmasse
,Locs_Disp VersendungsLand
, Locs_Dest Bestimmungsland
,Item_ItVal Rechnungspreis
,ValData_InvCurr Rechnungswaehrung
,ConeeTra_TIN as Empfänger
,ConeeTra_Na as Empfänger_
,ConorTra_TIN as Absender
,ConorTra_Na as Absender_ "
Dim SQLSTR = "FROM [VERAG].[dbo].[tblTelotec_Anmeldung]
inner join tblTelotec_Positionsdaten on telpos_telanmId=telanm_id
where 1=1
and
(
left(Item_ComCd,4) IN (2523,2716,2808,2814,3102,3105,7201,7203,7318,7326,7601,7616)
OR left(Item_ComCd,4) between 7301 and 7311
OR left(Item_ComCd,4) between 7205 and 7229
OR left(Item_ComCd,4) between 7603 and 7614
OR Item_ComCd like '25070080%'
OR Item_ComCd like '283421%'
OR Item_ComCd like '260112%'
OR Item_ComCd like '720211%'
OR Item_ComCd like '720219%'
OR Item_ComCd like '720241%'
OR Item_ComCd like '720249%'
OR Item_ComCd like '720260%'
OR Item_ComCd like '280410%'
)
and Item_ComCd not like '310560%'
and telnam_aktuellsteNachricht=1
and telanm_ART ='EUA'
and dec_CreateDate between '" & txtVon._value & "' and '" & txtBis._value & "'"
If cbxVERAG.Checked Or cbxIMEX.Checked Or cbxUNISPED.Checked Then
SQLSTR &= "
and Declarant_DecRep IN(1,3,5,7)
"
Else
SQLSTR &= "
and ConeeTra_TIN='" & EORI & "' /*and Declarant_DecRep NOT IN(1,3,5,7)*/
"
End If
SQL_GP &= SQLSTR
SQL_GP &= " order by ConorTra_TIN,telanm_CRN "
SQL_TT &= SQLSTR
SQL_TT &= " order by Absender,telanm_CRN "
End Sub
'Private Sub btnCBAM_DS_DAKOSY_Click(sender As Object, e As EventArgs) Handles btnCBAM_DS_DAKOSY.Click
@@ -1105,7 +1318,7 @@ Public Class usrCntlCBAM
If cbxUNISPED.Checked Then SQLSTR_WHERE_FIRMEN &= IIf(SQLSTR_WHERE_FIRMEN <> "", ", ", "") & "'ATSPED'" '???
Dim SQL_DAKOSY = ""
getDY_Detail_SQL(SQLSTR_WHERE_FIRMEN, EORI, SQL_DAKOSY, "") '--> Aufbau SQL String
getDY_Detail_SQL_DK(SQLSTR_WHERE_FIRMEN, EORI, SQL_DAKOSY, "") '--> Aufbau SQL String
Dim dt = SQL.loadDgvBySql(SQL_DAKOSY, "AVISO", 600)
@@ -1319,6 +1532,12 @@ Public Class usrCntlCBAM
End Sub
Private Sub btnCBAM_DS_DHF_VERAG_Click(sender As Object, e As EventArgs) Handles btnCBAM_DS_DHF_VERAG.Click, btnCBAM_DS_DHF_UNISPED.Click
btnCBAM_DS_DHF_UNISPED_GP.Enabled = False
btnCBAM_DS_DHF_VERAG_GP.Enabled = False
btnCBAM_DS_DHF_UNISPED_GP.Tag = ""
btnCBAM_DS_DHF_VERAG_GP.Tag = ""
Dim EZOLL_SQL = "EZOLL"
If sender Is btnCBAM_DS_DHF_VERAG Then
btnCBAM_DS_DHF_VERAG_Detail.Enabled = False
@@ -1340,56 +1559,17 @@ Public Class usrCntlCBAM
If txtBis._value = "" Then MsgBox("Datum bis eingeben!") : Exit Sub
Me.Cursor = Cursors.WaitCursor
Dim SQLSTR = "
select CRN Zollbelegnummer,cast(DecDT as date) Anmeldedatum,LRN,zsAnmGdsitem.ComCd Tarifnummer,Net Eigenmasse,ItVal Rechnungspreis
, Orig Ursprungsland
, isnull((SELECT TIN FROM zsAnmConorTra WHERE (zsAnmConorTra.LizenzNr = zsAnmHea.LizenzNr ) And (zsAnmConorTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConorTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConorTra.AnmID = zsAnmHea.AnmID )),'') EORI_Absender
, isnull((SELECT Na FROM zsAnmConorTra WHERE (zsAnmConorTra.LizenzNr = zsAnmHea.LizenzNr ) And (zsAnmConorTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConorTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConorTra.AnmID = zsAnmHea.AnmID )),'') Absender
, isnull((SELECT TIN FROM zsAnmConeeTra WHERE (zsAnmConeeTra.LizenzNr = zsAnmHea.LizenzNr ) And (zsAnmConeeTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConeeTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConeeTra.AnmID = zsAnmHea.AnmID )),'')EORI_Empfänger
, isnull((SELECT Na FROM zsAnmConeeTra WHERE (zsAnmConeeTra.LizenzNr = zsAnmHea.LizenzNr ) And (zsAnmConeeTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConeeTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConeeTra.AnmID = zsAnmHea.AnmID )),'')Empfänger
from zsAnmRefs
inner join zsAnmDHFRefs on zsAnmRefs.LizenzNr=zsAnmDHFRefs.LizenzNr and zsAnmRefs.AnmID=zsAnmDHFRefs.AnmID and zsAnmRefs.VorgangID=zsAnmDHFRefs.VorgangID and zsAnmRefs.OperatorID=zsAnmDHFRefs.OperatorID
inner join zsAnmGdsitem on zsAnmRefs.LizenzNr=zsAnmGdsitem.LizenzNr and zsAnmRefs.AnmID=zsAnmGdsitem.AnmID and zsAnmRefs.VorgangID=zsAnmGdsitem.VorgangID and zsAnmRefs.OperatorID=zsAnmGdsitem.OperatorID
inner join zsAnmHea on zsAnmHea.LizenzNr=zsAnmGdsitem.LizenzNr and zsAnmHea.AnmID=zsAnmGdsitem.AnmID and zsAnmHea.VorgangID=zsAnmGdsitem.VorgangID and zsAnmHea.OperatorID=zsAnmGdsitem.OperatorID
inner join zsAnmDeclarant on zsAnmHea.LizenzNr=zsAnmDeclarant.LizenzNr and zsAnmHea.AnmID=zsAnmDeclarant.AnmID and zsAnmHea.VorgangID=zsAnmDeclarant.VorgangID and zsAnmHea.OperatorID=zsAnmDeclarant.OperatorID
inner join zsAnmTransp on zsAnmHea.LizenzNr=zsAnmTransp.LizenzNr and zsAnmHea.AnmID=zsAnmTransp.AnmID and zsAnmHea.VorgangID=zsAnmTransp.VorgangID and zsAnmHea.OperatorID=zsAnmTransp.OperatorID
where DecDT between '" & txtVon._value & "' and '" & txtBis._value & "'
and
(
left(ComCd,4) IN (2523,2716,2808,2814,3102,3105,7201,7203,7318,7326,7601,7616)
OR left(ComCd,4) between 7301 and 7311
OR left(ComCd,4) between 7205 and 7229
OR left(ComCd,4) between 7603 and 7614
OR ComCd like '25070080%'
OR ComCd like '283421%'
OR ComCd like '260112%'
OR ComCd like '720211%'
OR ComCd like '720219%'
OR ComCd like '720241%'
OR ComCd like '720249%'
OR ComCd like '720260%'
OR ComCd like '280410%'
)
and ComCd not like '310560%'
and crn is not null
and zsAnmDHFRefs.ErledigungsTypID like 'F%'
"
If cbxVERAG.Checked Or cbxIMEX.Checked Or cbxUNISPED.Checked Then
SQLSTR &= "
and DecRep IN(3)
"
Else
SQLSTR &= "
and (SELECT TIN FROM zsAnmConeeTra WHERE (zsAnmConeeTra.LizenzNr = zsAnmHea.LizenzNr ) And (zsAnmConeeTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConeeTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConeeTra.AnmID = zsAnmHea.AnmID )) LIKE '" & EORI & "'
"
End If
Dim SQL_DHF = ""
Dim SQL_GP = ""
getDY_Detail_SQL_DHF(EORI, SQL_DHF, SQL_GP) '--> Aufbau SQL String
Dim dt = SQL.loadDgvBySql(SQL_DHF, EZOLL_SQL, 600)
Dim dtGP = SQL.loadDgvBySql(SQL_GP, EZOLL_SQL, 600)
SQLSTR &= " order by Absender"
Dim dt = SQL.loadDgvBySql(SQLSTR, EZOLL_SQL, 600)
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
Dim path = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt,,,,, False, EORI & "_Detailbericht_" & txtVon._value & "-" & txtBis._value)
If sender Is btnCBAM_DS_DHF_VERAG Then
@@ -1407,6 +1587,52 @@ Public Class usrCntlCBAM
End If
If dtGP IsNot Nothing AndAlso dt.Rows.Count > 0 Then
'If ReDaten.Rows.Count > 0 Then
' dtGP.Columns("invoice date").ReadOnly = False
' dtGP.Columns("invoice numbers").ReadOnly = False
' dtGP.Columns("invoice date").MaxLength = -1
' dtGP.Columns("invoice numbers").MaxLength = -1
'End If
'For Each r As DataRow In dtGP.Rows
' Dim MDN_NR As String = r("declaration no")
' ' Look for matching row in dt2
' Dim found() As DataRow = ReDaten.Select("Registriernummer_MRN = '" & MDN_NR & "'")
' If found.Length > 0 Then
' Dim rechnugnsdatum As String = found(0)("Positionsunterlagendatum")
' If rechnugnsdatum <> "" Then rechnugnsdatum.Replace("00:00:00", "")
' r("invoice date") = rechnugnsdatum
' r("invoice numbers") = found(0)("Positionsunterlagennummer")
' Else
' r("invoice date") = "-"
' r("invoice numbers") = "-"
' End If
'Next
If sender Is btnCBAM_DS_DHF_VERAG Then
btnCBAM_DS_DHF_VERAG_GP.Tag = ""
btnCBAM_DS_DHF_VERAG_GP.Tag = createExcelForGreenPulse(dtGP, EORI, "")
btnCBAM_DS_DHF_VERAG_GP.Enabled = True
End If
If sender Is btnCBAM_DS_DHF_UNISPED Then
btnCBAM_DS_DHF_UNISPED_GP.Tag = ""
btnCBAM_DS_DHF_UNISPED_GP.Tag = createExcelForGreenPulse(dtGP, EORI, "")
btnCBAM_DS_DHF_UNISPED_GP.Enabled = True
End If
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
@@ -1544,7 +1770,8 @@ Public Class usrCntlCBAM
Private Sub btnCBAM_DS_TELOTEC_Click(sender As Object, e As EventArgs) Handles btnCBAM_DS_TELOTEC.Click
btnCBAM_DS_TELOTEC_Detail.Enabled = False
btnCBAM_DS_TELOTEC_Copy.Enabled = False
btnCBAM_DS_TELOTEC_Detail.Tag = ""
btnCBAM_DS_TELOTEC_GP.Enabled = False
Try
Dim EORI = txtEori.Text
@@ -1554,72 +1781,15 @@ Public Class usrCntlCBAM
If txtBis._value = "" Then MsgBox("Datum bis eingeben!") : Exit Sub
Me.Cursor = Cursors.WaitCursor
Dim SQLSTR = "
SELECT
telanm_CRN Registriernummer
,Pos_ID PositionsNummer
,dec_CreateDate Anmeldedatum
,telanm_BezugsNr BezugsNr
,Declarant_DecRep VertretungsVerhaeltnis
,Item_ComCd Tarifnummer
,dec_TotNet Eigenmasse
,Locs_Disp VersendungsLand
, Locs_Dest Bestimmungsland
,Item_ItVal Rechnungspreis
,ValData_InvCurr Rechnungswaehrung
,ConeeTra_TIN as Empfänger
,ConeeTra_Na as Empfänger_
,ConorTra_TIN as Absender
,ConorTra_Na as Absender_
FROM [VERAG].[dbo].[tblTelotec_Anmeldung]
inner join tblTelotec_Positionsdaten on telpos_telanmId=telanm_id
Dim SQL_TT = ""
Dim SQL_GP = ""
getDY_Detail_SQL_TT(EORI, SQL_TT, SQL_GP) '--> Aufbau SQL String
where 1=1
Dim dt = SQL.loadDgvBySql(SQL_TT, "FMZOLL", 600)
and
(
left(Item_ComCd,4) IN (2523,2716,2808,2814,3102,3105,7201,7203,7318,7326,7601,7616)
OR left(Item_ComCd,4) between 7301 and 7311
OR left(Item_ComCd,4) between 7205 and 7229
OR left(Item_ComCd,4) between 7603 and 7614
OR Item_ComCd like '25070080%'
OR Item_ComCd like '283421%'
OR Item_ComCd like '260112%'
OR Item_ComCd like '720211%'
OR Item_ComCd like '720219%'
OR Item_ComCd like '720241%'
OR Item_ComCd like '720249%'
OR Item_ComCd like '720260%'
OR Item_ComCd like '280410%'
)
and Item_ComCd not like '310560%'
Dim dtGP = SQL.loadDgvBySql(SQL_GP, "FMZOLL", 600)
and telnam_aktuellsteNachricht=1
and telanm_ART ='EUA'
and dec_CreateDate between '" & txtVon._value & "' and '" & txtBis._value & "'
"
If cbxVERAG.Checked Or cbxIMEX.Checked Or cbxUNISPED.Checked Then
SQLSTR &= "
and Declarant_DecRep IN(1,3,5,7)
"
Else
SQLSTR &= "
and ConeeTra_TIN='" & EORI & "' /*and Declarant_DecRep NOT IN(1,3,5,7)*/
"
End If
SQLSTR &= " order by Absender,telanm_CRN "
Dim dt = SQL.loadDgvBySql(SQLSTR, "FMZOLL", 600)
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
Dim path = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt,,,,, False, EORI & "_Detailbericht_" & txtVon._value & "-" & txtBis._value,, False)
btnCBAM_DS_TELOTEC_Detail.Tag = path
@@ -1630,6 +1800,15 @@ Public Class usrCntlCBAM
End If
If dtGP IsNot Nothing AndAlso dt.Rows.Count > 0 Then
Me.Cursor = Cursors.WaitCursor
btnCBAM_DS_TELOTEC_GP.Tag = ""
btnCBAM_DS_TELOTEC_GP.Tag = createExcelForGreenPulse(dtGP, EORI, "")
btnCBAM_DS_TELOTEC_GP.Enabled = True
Me.Cursor = Cursors.Default
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)

View File

@@ -63,7 +63,7 @@ Public Class frmMessenger
'End Try
End Sub
Private Sub MyDatagridview1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvChats.CellContentClick, dgvChats.CellClick
Private Sub MyDatagridview1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvChats.CellClick '.CellContentClick
If dgvChats.Rows(e.RowIndex).Cells("ungelesen").Value <> "" Then
Dim dgv_ChatID = If(dgvChats.SelectedRows.Count > 0, dgvChats.SelectedRows(0).Cells("chat_id").Value, -1)
intiDGVChats(dgv_ChatID, False) ' Splate ungelesen sol sich ändern