neu
This commit is contained in:
411
SDL/mdm/PLOSE/frmMDMDatenverarbetiung.Designer.vb
generated
Normal file
411
SDL/mdm/PLOSE/frmMDMDatenverarbetiung.Designer.vb
generated
Normal file
@@ -0,0 +1,411 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class frmMDMDatenverarbetiung
|
||||
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(frmMDMDatenverarbetiung))
|
||||
Me.pnl = New System.Windows.Forms.Panel()
|
||||
Me.FlowLayoutPanel = New System.Windows.Forms.FlowLayoutPanel()
|
||||
Me.btn = New System.Windows.Forms.Button()
|
||||
Me.btnDatenLaden = New System.Windows.Forms.Button()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.dat_Sum_Von = New System.Windows.Forms.DateTimePicker()
|
||||
Me.Label45 = New System.Windows.Forms.Label()
|
||||
Me.Label46 = New System.Windows.Forms.Label()
|
||||
Me.dat_Sum_Bis = New System.Windows.Forms.DateTimePicker()
|
||||
Me.lbl = New System.Windows.Forms.Label()
|
||||
Me.Panel1 = New System.Windows.Forms.Panel()
|
||||
Me.cbx = New System.Windows.Forms.CheckBox()
|
||||
Me.Panel2 = New System.Windows.Forms.Panel()
|
||||
Me.Label43 = New System.Windows.Forms.Label()
|
||||
Me.datPloseAnhang = New System.Windows.Forms.DateTimePicker()
|
||||
Me.Button4 = New System.Windows.Forms.Button()
|
||||
Me.Label44 = New System.Windows.Forms.Label()
|
||||
Me.txtPloseAnh_Einarbeitung = New System.Windows.Forms.TextBox()
|
||||
Me.pbPloseAnh_Proz = New System.Windows.Forms.ProgressBar()
|
||||
Me.lblPloseAnh_Proz = New System.Windows.Forms.Label()
|
||||
Me.Label3 = New System.Windows.Forms.Label()
|
||||
Me.txtPrüfsumme = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.Label2 = New System.Windows.Forms.Label()
|
||||
Me.txtAnzahl = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.Button3 = New System.Windows.Forms.Button()
|
||||
Me.Button2 = New System.Windows.Forms.Button()
|
||||
Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
|
||||
Me.pnl.SuspendLayout()
|
||||
Me.FlowLayoutPanel.SuspendLayout()
|
||||
Me.Panel1.SuspendLayout()
|
||||
Me.Panel2.SuspendLayout()
|
||||
CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'pnl
|
||||
'
|
||||
Me.pnl.Controls.Add(Me.FlowLayoutPanel)
|
||||
Me.pnl.Controls.Add(Me.btnDatenLaden)
|
||||
Me.pnl.Controls.Add(Me.Label1)
|
||||
Me.pnl.Controls.Add(Me.dat_Sum_Von)
|
||||
Me.pnl.Controls.Add(Me.Label45)
|
||||
Me.pnl.Controls.Add(Me.Label46)
|
||||
Me.pnl.Controls.Add(Me.dat_Sum_Bis)
|
||||
Me.pnl.Controls.Add(Me.lbl)
|
||||
Me.pnl.Cursor = System.Windows.Forms.Cursors.Default
|
||||
Me.pnl.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Me.pnl.Location = New System.Drawing.Point(0, 0)
|
||||
Me.pnl.Name = "pnl"
|
||||
Me.pnl.Size = New System.Drawing.Size(1054, 100)
|
||||
Me.pnl.TabIndex = 1
|
||||
'
|
||||
'FlowLayoutPanel
|
||||
'
|
||||
Me.FlowLayoutPanel.BackColor = System.Drawing.Color.FloralWhite
|
||||
Me.FlowLayoutPanel.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.FlowLayoutPanel.Controls.Add(Me.btn)
|
||||
Me.FlowLayoutPanel.Location = New System.Drawing.Point(139, 37)
|
||||
Me.FlowLayoutPanel.Name = "FlowLayoutPanel"
|
||||
Me.FlowLayoutPanel.Size = New System.Drawing.Size(731, 31)
|
||||
Me.FlowLayoutPanel.TabIndex = 27
|
||||
'
|
||||
'btn
|
||||
'
|
||||
Me.btn.BackColor = System.Drawing.Color.Wheat
|
||||
Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btn.Location = New System.Drawing.Point(3, 3)
|
||||
Me.btn.Name = "btn"
|
||||
Me.btn.Size = New System.Drawing.Size(120, 23)
|
||||
Me.btn.TabIndex = 0
|
||||
Me.btn.Text = "PLOSE"
|
||||
Me.btn.UseVisualStyleBackColor = False
|
||||
'
|
||||
'btnDatenLaden
|
||||
'
|
||||
Me.btnDatenLaden.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnDatenLaden.Location = New System.Drawing.Point(876, 37)
|
||||
Me.btnDatenLaden.Name = "btnDatenLaden"
|
||||
Me.btnDatenLaden.Size = New System.Drawing.Size(166, 57)
|
||||
Me.btnDatenLaden.TabIndex = 1
|
||||
Me.btnDatenLaden.Text = "Daten laden"
|
||||
Me.btnDatenLaden.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.AutoSize = True
|
||||
Me.Label1.Location = New System.Drawing.Point(13, 46)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(51, 13)
|
||||
Me.Label1.TabIndex = 26
|
||||
Me.Label1.Text = "Lieferant:"
|
||||
'
|
||||
'dat_Sum_Von
|
||||
'
|
||||
Me.dat_Sum_Von.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
|
||||
Me.dat_Sum_Von.Location = New System.Drawing.Point(139, 74)
|
||||
Me.dat_Sum_Von.Name = "dat_Sum_Von"
|
||||
Me.dat_Sum_Von.Size = New System.Drawing.Size(103, 20)
|
||||
Me.dat_Sum_Von.TabIndex = 22
|
||||
'
|
||||
'Label45
|
||||
'
|
||||
Me.Label45.AutoSize = True
|
||||
Me.Label45.Location = New System.Drawing.Point(245, 77)
|
||||
Me.Label45.Name = "Label45"
|
||||
Me.Label45.Size = New System.Drawing.Size(23, 13)
|
||||
Me.Label45.TabIndex = 25
|
||||
Me.Label45.Text = "bis:"
|
||||
'
|
||||
'Label46
|
||||
'
|
||||
Me.Label46.AutoSize = True
|
||||
Me.Label46.Location = New System.Drawing.Point(13, 77)
|
||||
Me.Label46.Name = "Label46"
|
||||
Me.Label46.Size = New System.Drawing.Size(119, 13)
|
||||
Me.Label46.TabIndex = 23
|
||||
Me.Label46.Text = "Transaktionsdaten von:"
|
||||
'
|
||||
'dat_Sum_Bis
|
||||
'
|
||||
Me.dat_Sum_Bis.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
|
||||
Me.dat_Sum_Bis.Location = New System.Drawing.Point(274, 74)
|
||||
Me.dat_Sum_Bis.Name = "dat_Sum_Bis"
|
||||
Me.dat_Sum_Bis.Size = New System.Drawing.Size(103, 20)
|
||||
Me.dat_Sum_Bis.TabIndex = 24
|
||||
'
|
||||
'lbl
|
||||
'
|
||||
Me.lbl.AutoSize = True
|
||||
Me.lbl.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold)
|
||||
Me.lbl.Location = New System.Drawing.Point(13, 13)
|
||||
Me.lbl.Name = "lbl"
|
||||
Me.lbl.Size = New System.Drawing.Size(183, 17)
|
||||
Me.lbl.TabIndex = 0
|
||||
Me.lbl.Text = "MDM Datenverarbeitung"
|
||||
'
|
||||
'Panel1
|
||||
'
|
||||
Me.Panel1.Controls.Add(Me.cbx)
|
||||
Me.Panel1.Controls.Add(Me.Panel2)
|
||||
Me.Panel1.Controls.Add(Me.Label3)
|
||||
Me.Panel1.Controls.Add(Me.txtPrüfsumme)
|
||||
Me.Panel1.Controls.Add(Me.Label2)
|
||||
Me.Panel1.Controls.Add(Me.txtAnzahl)
|
||||
Me.Panel1.Controls.Add(Me.Button3)
|
||||
Me.Panel1.Controls.Add(Me.Button2)
|
||||
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Bottom
|
||||
Me.Panel1.Location = New System.Drawing.Point(0, 677)
|
||||
Me.Panel1.Name = "Panel1"
|
||||
Me.Panel1.Size = New System.Drawing.Size(1054, 114)
|
||||
Me.Panel1.TabIndex = 2
|
||||
'
|
||||
'cbx
|
||||
'
|
||||
Me.cbx.AutoSize = True
|
||||
Me.cbx.Location = New System.Drawing.Point(13, 73)
|
||||
Me.cbx.Name = "cbx"
|
||||
Me.cbx.Size = New System.Drawing.Size(103, 17)
|
||||
Me.cbx.TabIndex = 42
|
||||
Me.cbx.Text = "Prüfergebnis OK"
|
||||
Me.cbx.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Panel2
|
||||
'
|
||||
Me.Panel2.Controls.Add(Me.Label43)
|
||||
Me.Panel2.Controls.Add(Me.datPloseAnhang)
|
||||
Me.Panel2.Controls.Add(Me.Button4)
|
||||
Me.Panel2.Controls.Add(Me.Label44)
|
||||
Me.Panel2.Controls.Add(Me.txtPloseAnh_Einarbeitung)
|
||||
Me.Panel2.Controls.Add(Me.pbPloseAnh_Proz)
|
||||
Me.Panel2.Controls.Add(Me.lblPloseAnh_Proz)
|
||||
Me.Panel2.Enabled = False
|
||||
Me.Panel2.Location = New System.Drawing.Point(154, 0)
|
||||
Me.Panel2.Name = "Panel2"
|
||||
Me.Panel2.Size = New System.Drawing.Size(301, 114)
|
||||
Me.Panel2.TabIndex = 41
|
||||
'
|
||||
'Label43
|
||||
'
|
||||
Me.Label43.AutoSize = True
|
||||
Me.Label43.Location = New System.Drawing.Point(3, 16)
|
||||
Me.Label43.Name = "Label43"
|
||||
Me.Label43.Size = New System.Drawing.Size(81, 13)
|
||||
Me.Label43.TabIndex = 40
|
||||
Me.Label43.Text = "Datum Anhang:"
|
||||
'
|
||||
'datPloseAnhang
|
||||
'
|
||||
Me.datPloseAnhang.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
|
||||
Me.datPloseAnhang.Location = New System.Drawing.Point(85, 14)
|
||||
Me.datPloseAnhang.Name = "datPloseAnhang"
|
||||
Me.datPloseAnhang.Size = New System.Drawing.Size(103, 20)
|
||||
Me.datPloseAnhang.TabIndex = 39
|
||||
'
|
||||
'Button4
|
||||
'
|
||||
Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button4.Location = New System.Drawing.Point(6, 40)
|
||||
Me.Button4.Name = "Button4"
|
||||
Me.Button4.Size = New System.Drawing.Size(283, 23)
|
||||
Me.Button4.TabIndex = 30
|
||||
Me.Button4.Text = "Rechnungen / Anhänge erstellen"
|
||||
Me.Button4.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Label44
|
||||
'
|
||||
Me.Label44.AutoSize = True
|
||||
Me.Label44.Location = New System.Drawing.Point(3, 95)
|
||||
Me.Label44.Name = "Label44"
|
||||
Me.Label44.Size = New System.Drawing.Size(56, 13)
|
||||
Me.Label44.TabIndex = 31
|
||||
Me.Label44.Text = "Fortschritt:"
|
||||
'
|
||||
'txtPloseAnh_Einarbeitung
|
||||
'
|
||||
Me.txtPloseAnh_Einarbeitung.BackColor = System.Drawing.Color.White
|
||||
Me.txtPloseAnh_Einarbeitung.BorderStyle = System.Windows.Forms.BorderStyle.None
|
||||
Me.txtPloseAnh_Einarbeitung.Location = New System.Drawing.Point(78, 95)
|
||||
Me.txtPloseAnh_Einarbeitung.Name = "txtPloseAnh_Einarbeitung"
|
||||
Me.txtPloseAnh_Einarbeitung.Size = New System.Drawing.Size(106, 13)
|
||||
Me.txtPloseAnh_Einarbeitung.TabIndex = 32
|
||||
'
|
||||
'pbPloseAnh_Proz
|
||||
'
|
||||
Me.pbPloseAnh_Proz.Location = New System.Drawing.Point(6, 69)
|
||||
Me.pbPloseAnh_Proz.Name = "pbPloseAnh_Proz"
|
||||
Me.pbPloseAnh_Proz.Size = New System.Drawing.Size(283, 23)
|
||||
Me.pbPloseAnh_Proz.TabIndex = 33
|
||||
'
|
||||
'lblPloseAnh_Proz
|
||||
'
|
||||
Me.lblPloseAnh_Proz.Location = New System.Drawing.Point(220, 95)
|
||||
Me.lblPloseAnh_Proz.Name = "lblPloseAnh_Proz"
|
||||
Me.lblPloseAnh_Proz.Size = New System.Drawing.Size(69, 13)
|
||||
Me.lblPloseAnh_Proz.TabIndex = 34
|
||||
Me.lblPloseAnh_Proz.Text = "0%"
|
||||
Me.lblPloseAnh_Proz.TextAlign = System.Drawing.ContentAlignment.TopRight
|
||||
'
|
||||
'Label3
|
||||
'
|
||||
Me.Label3.AutoSize = True
|
||||
Me.Label3.Location = New System.Drawing.Point(855, 46)
|
||||
Me.Label3.Name = "Label3"
|
||||
Me.Label3.Size = New System.Drawing.Size(62, 13)
|
||||
Me.Label3.TabIndex = 38
|
||||
Me.Label3.Text = "Prüfsumme:"
|
||||
'
|
||||
'txtPrüfsumme
|
||||
'
|
||||
Me.txtPrüfsumme._DateTimeOnly = False
|
||||
Me.txtPrüfsumme._numbersOnly = False
|
||||
Me.txtPrüfsumme._numbersOnlyKommastellen = ""
|
||||
Me.txtPrüfsumme._Prozent = False
|
||||
Me.txtPrüfsumme._ShortDateNew = False
|
||||
Me.txtPrüfsumme._ShortDateOnly = False
|
||||
Me.txtPrüfsumme._TimeOnly = False
|
||||
Me.txtPrüfsumme._value = ""
|
||||
Me.txtPrüfsumme._Waehrung = False
|
||||
Me.txtPrüfsumme._WaehrungZeichen = True
|
||||
Me.txtPrüfsumme.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtPrüfsumme.Location = New System.Drawing.Point(942, 43)
|
||||
Me.txtPrüfsumme.MaxLineLength = -1
|
||||
Me.txtPrüfsumme.MaxLines_Warning = ""
|
||||
Me.txtPrüfsumme.MaxLines_Warning_Label = Nothing
|
||||
Me.txtPrüfsumme.Name = "txtPrüfsumme"
|
||||
Me.txtPrüfsumme.Size = New System.Drawing.Size(100, 20)
|
||||
Me.txtPrüfsumme.TabIndex = 37
|
||||
'
|
||||
'Label2
|
||||
'
|
||||
Me.Label2.AutoSize = True
|
||||
Me.Label2.Location = New System.Drawing.Point(855, 19)
|
||||
Me.Label2.Name = "Label2"
|
||||
Me.Label2.Size = New System.Drawing.Size(42, 13)
|
||||
Me.Label2.TabIndex = 36
|
||||
Me.Label2.Text = "Anzahl:"
|
||||
'
|
||||
'txtAnzahl
|
||||
'
|
||||
Me.txtAnzahl._DateTimeOnly = False
|
||||
Me.txtAnzahl._numbersOnly = False
|
||||
Me.txtAnzahl._numbersOnlyKommastellen = ""
|
||||
Me.txtAnzahl._Prozent = False
|
||||
Me.txtAnzahl._ShortDateNew = False
|
||||
Me.txtAnzahl._ShortDateOnly = False
|
||||
Me.txtAnzahl._TimeOnly = False
|
||||
Me.txtAnzahl._value = ""
|
||||
Me.txtAnzahl._Waehrung = False
|
||||
Me.txtAnzahl._WaehrungZeichen = True
|
||||
Me.txtAnzahl.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtAnzahl.Location = New System.Drawing.Point(942, 16)
|
||||
Me.txtAnzahl.MaxLineLength = -1
|
||||
Me.txtAnzahl.MaxLines_Warning = ""
|
||||
Me.txtAnzahl.MaxLines_Warning_Label = Nothing
|
||||
Me.txtAnzahl.Name = "txtAnzahl"
|
||||
Me.txtAnzahl.Size = New System.Drawing.Size(100, 20)
|
||||
Me.txtAnzahl.TabIndex = 35
|
||||
'
|
||||
'Button3
|
||||
'
|
||||
Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button3.Location = New System.Drawing.Point(12, 43)
|
||||
Me.Button3.Name = "Button3"
|
||||
Me.Button3.Size = New System.Drawing.Size(120, 23)
|
||||
Me.Button3.TabIndex = 29
|
||||
Me.Button3.Text = "Daten prüfen"
|
||||
Me.Button3.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button2
|
||||
'
|
||||
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button2.Location = New System.Drawing.Point(12, 14)
|
||||
Me.Button2.Name = "Button2"
|
||||
Me.Button2.Size = New System.Drawing.Size(120, 23)
|
||||
Me.Button2.TabIndex = 28
|
||||
Me.Button2.Text = "Summenbericht"
|
||||
Me.Button2.UseVisualStyleBackColor = True
|
||||
'
|
||||
'MyDatagridview1
|
||||
'
|
||||
Me.MyDatagridview1.AKTUALISIERUNGS_INTERVALL = -1
|
||||
Me.MyDatagridview1.AllowUserToAddRows = False
|
||||
Me.MyDatagridview1.AllowUserToDeleteRows = False
|
||||
Me.MyDatagridview1.AllowUserToResizeColumns = False
|
||||
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, 100)
|
||||
Me.MyDatagridview1.Name = "MyDatagridview1"
|
||||
Me.MyDatagridview1.ReadOnly = True
|
||||
Me.MyDatagridview1.Size = New System.Drawing.Size(1054, 577)
|
||||
Me.MyDatagridview1.TabIndex = 0
|
||||
'
|
||||
'frmMDMDatenverarbetiung
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.BackColor = System.Drawing.Color.White
|
||||
Me.ClientSize = New System.Drawing.Size(1054, 791)
|
||||
Me.Controls.Add(Me.MyDatagridview1)
|
||||
Me.Controls.Add(Me.Panel1)
|
||||
Me.Controls.Add(Me.pnl)
|
||||
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Me.Name = "frmMDMDatenverarbetiung"
|
||||
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
|
||||
Me.Text = "Datenverarbetiung"
|
||||
Me.pnl.ResumeLayout(False)
|
||||
Me.pnl.PerformLayout()
|
||||
Me.FlowLayoutPanel.ResumeLayout(False)
|
||||
Me.Panel1.ResumeLayout(False)
|
||||
Me.Panel1.PerformLayout()
|
||||
Me.Panel2.ResumeLayout(False)
|
||||
Me.Panel2.PerformLayout()
|
||||
CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
|
||||
Friend WithEvents MyDatagridview1 As VERAG_PROG_ALLGEMEIN.MyDatagridview
|
||||
Friend WithEvents pnl As Panel
|
||||
Friend WithEvents Panel1 As Panel
|
||||
Friend WithEvents lbl As Label
|
||||
Friend WithEvents dat_Sum_Von As DateTimePicker
|
||||
Friend WithEvents Label45 As Label
|
||||
Friend WithEvents Label46 As Label
|
||||
Friend WithEvents dat_Sum_Bis As DateTimePicker
|
||||
Friend WithEvents Label1 As Label
|
||||
Friend WithEvents FlowLayoutPanel As FlowLayoutPanel
|
||||
Friend WithEvents btn As Button
|
||||
Friend WithEvents btnDatenLaden As Button
|
||||
Friend WithEvents Button4 As Button
|
||||
Friend WithEvents Button3 As Button
|
||||
Friend WithEvents Button2 As Button
|
||||
Friend WithEvents txtAnzahl As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents lblPloseAnh_Proz As Label
|
||||
Friend WithEvents pbPloseAnh_Proz As ProgressBar
|
||||
Friend WithEvents txtPloseAnh_Einarbeitung As TextBox
|
||||
Friend WithEvents Label44 As Label
|
||||
Friend WithEvents Label3 As Label
|
||||
Friend WithEvents txtPrüfsumme As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents Label2 As Label
|
||||
Friend WithEvents datPloseAnhang As DateTimePicker
|
||||
Friend WithEvents Label43 As Label
|
||||
Friend WithEvents cbx As CheckBox
|
||||
Friend WithEvents Panel2 As Panel
|
||||
End Class
|
||||
980
SDL/mdm/PLOSE/frmMDMDatenverarbetiung.resx
Normal file
980
SDL/mdm/PLOSE/frmMDMDatenverarbetiung.resx
Normal 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>
|
||||
707
SDL/mdm/PLOSE/frmMDMDatenverarbetiung.vb
Normal file
707
SDL/mdm/PLOSE/frmMDMDatenverarbetiung.vb
Normal file
@@ -0,0 +1,707 @@
|
||||
Public Class frmMDMDatenverarbetiung
|
||||
|
||||
Public LIEFERANT = ""
|
||||
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
Private Sub frmPloseDatenverarbetiung_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Button4_Click(sender As Object, e As EventArgs)
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub pnl_Paint(sender As Object, e As PaintEventArgs) Handles pnl.Paint
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
|
||||
Select Case LIEFERANT
|
||||
Case "PLOSE" : genSummenbericht_PLOSE()
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
|
||||
Button3.BackColor = Color.White
|
||||
Button3.ForeColor = Color.Black
|
||||
|
||||
Dim pruef As Boolean = False
|
||||
Select Case LIEFERANT
|
||||
Case "PLOSE" : pruef = pruefData_PLOSE()
|
||||
End Select
|
||||
|
||||
cbx.Checked = pruef
|
||||
If pruef Then
|
||||
Button3.BackColor = Color.Green
|
||||
Button3.ForeColor = Color.White
|
||||
Else
|
||||
Button3.BackColor = Color.Red
|
||||
Button3.ForeColor = Color.White
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub btnDatenLaden_Click(sender As Object, e As EventArgs) Handles btnDatenLaden.Click
|
||||
init()
|
||||
End Sub
|
||||
|
||||
Sub init()
|
||||
txtAnzahl.Text = ""
|
||||
txtPrüfsumme.Text = ""
|
||||
|
||||
Select Case LIEFERANT
|
||||
Case "PLOSE" : initDgv_PLOSE()
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
Private Sub Button4_Click_1(sender As Object, e As EventArgs) Handles Button4.Click
|
||||
Select Case LIEFERANT
|
||||
Case "PLOSE" : genRGAtt_PLOSE()
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
Sub genSummenbericht_PLOSE()
|
||||
Dim displayFilter = False
|
||||
Dim sqlstr As String = ""
|
||||
|
||||
sqlstr &= " SELECT count(*) Anzahl ,plose_ProduktCode"
|
||||
sqlstr &= ",max(plose_Produktbeschreibung) as plose_Produktbeschreibung"
|
||||
sqlstr &= ",sum(plose_Menge) as plose_Menge"
|
||||
sqlstr &= ",sum(plose_Preis) as plose_Preis"
|
||||
sqlstr &= ",sum(plose_NettobetragTransaktion) as plose_NettobetragTransaktion"
|
||||
sqlstr &= ",sum(plose_MWSTBetrag) as plose_MWSTBetrag"
|
||||
sqlstr &= ",sum(plose_BruttobetragTransaktion) as plose_BruttobetragTransaktion "
|
||||
sqlstr &= " FROM tblPLOSE_Details"
|
||||
sqlstr &= " WHERE 1=1 "
|
||||
|
||||
sqlstr &= " AND plose_DatumTransaktion between '" & dat_Sum_Von.Value & "' and '" & dat_Sum_Bis.Value & "' "
|
||||
|
||||
sqlstr &= " group by plose_ProduktCode"
|
||||
sqlstr &= " order by plose_ProduktCode"
|
||||
|
||||
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
Dim dt As DataTable = SQL.loadDgvBySql_Param(sqlstr, "FMZOLL")
|
||||
'DataGridView.DataSource = dt
|
||||
|
||||
|
||||
Dim print As New frmPrintLayout
|
||||
print.Text = "PLOSE"
|
||||
|
||||
Dim rpt As New rptPLOSE_TransaktionenSumary
|
||||
|
||||
rpt.DataSource = dt
|
||||
|
||||
|
||||
'If cbxProdukt.Checked Then
|
||||
' rpt.GroupHeader2.DataField = "prod_descr"
|
||||
'Else
|
||||
' rpt.GroupHeader2.Visible = False
|
||||
' rpt.GroupFooter2.Visible = False
|
||||
'End If
|
||||
|
||||
|
||||
|
||||
Dim sum = 0
|
||||
rpt.lblUeberschrift.Text = "PLOSE Summenbericht " & dat_Sum_Von.Text & " bis " & dat_Sum_Bis.Text
|
||||
rpt.lblSachbearbeiter.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
|
||||
'rpt.lblMandantNiederlassung.Text = PERSONAL.Mandant & " / " & PERSONAL.Niederlassung
|
||||
|
||||
'Dim cnt As Integer = 0
|
||||
rpt.lblDat.Text = Now.ToLongDateString
|
||||
|
||||
|
||||
Dim sumPreis As Double = 0
|
||||
Dim sumNetto As Double = 0
|
||||
Dim sumMWST As Double = 0
|
||||
Dim sumBrutto As Double = 0
|
||||
Dim sumMenge As Double = 0
|
||||
|
||||
AddHandler rpt.Detail.Format, Sub()
|
||||
' rpt.lblProduktBeschreibung.Text = isDbnullEmpty(rpt.Fields.Item("BC_DESCR").Value, "")
|
||||
rpt.lblAnzahl.Text = SQL.isDbnullEmpty(rpt.Fields.Item("Anzahl").Value, "")
|
||||
rpt.lblProdukt.Text = SQL.isDbnullEmpty(rpt.Fields.Item("plose_ProduktCode").Value, "") & " - " & SQL.isDbnullEmpty(rpt.Fields.Item("plose_Produktbeschreibung").Value, "")
|
||||
|
||||
rpt.lblMenge.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_Menge").Value, 0, "")
|
||||
rpt.lblPreis.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_Preis").Value, 2, "")
|
||||
rpt.lblNetto.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_NettobetragTransaktion").Value, 2, "")
|
||||
rpt.lblMWST.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_MWSTBetrag").Value, 2, "")
|
||||
rpt.lblBrutto.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_BruttobetragTransaktion").Value, 2, "")
|
||||
|
||||
|
||||
|
||||
sumMenge += SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_Menge").Value, 4, 0)
|
||||
sumPreis += SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_Preis").Value, 4, 0)
|
||||
sumNetto += SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_NettobetragTransaktion").Value, 4, 0)
|
||||
sumMWST += SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_MWSTBetrag").Value, 4, 0)
|
||||
sumBrutto += SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_BruttobetragTransaktion").Value, 4, 0)
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
AddHandler rpt.ReportFooter1.Format, Sub()
|
||||
rpt.lblSumMenge.Text = sumMenge.ToString("N0")
|
||||
rpt.lblSumPreis.Text = sumPreis.ToString("N2")
|
||||
rpt.lblSumNetto.Text = sumNetto.ToString("N2")
|
||||
rpt.lblSumMwst.Text = sumMWST.ToString("N2")
|
||||
rpt.lblSumBrutto.Text = sumBrutto.ToString("N2")
|
||||
|
||||
End Sub
|
||||
|
||||
print.Viewer.LoadDocument(rpt)
|
||||
print.Viewer.ViewType = GrapeCity.Viewer.Common.Model.ViewType.Continuous
|
||||
print.Show()
|
||||
End Sub
|
||||
|
||||
|
||||
Sub initDgv_PLOSE()
|
||||
With MyDatagridview1
|
||||
.Columns.Clear()
|
||||
.SET_SQL(" SELECT plose_POLSEKundennummer, count(*) Anzahl,plose_ProduktCode,max(plose_Produktbeschreibung) as plose_Produktbeschreibung, sum(plose_Menge) as plose_Menge,sum(plose_Preis) as plose_Preis,sum(plose_NettobetragTransaktion) as plose_NettobetragTransaktion,sum(plose_MWSTBetrag) as plose_MWSTBetrag,sum(plose_BruttobetragTransaktion) as plose_BruttobetragTransaktion
|
||||
FROM tblPLOSE_Details
|
||||
WHERE 1 = 1
|
||||
And plose_DatumTransaktion between '" & dat_Sum_Von.Value & "' and '" & dat_Sum_Bis.Value & "'
|
||||
AND plose_Fakturiert=0
|
||||
group by plose_POLSEKundennummer,plose_ProduktCode
|
||||
order by plose_POLSEKundennummer,plose_ProduktCode", "FMZOLL")
|
||||
.LOAD()
|
||||
|
||||
.Columns("plose_POLSEKundennummer").HeaderText = "PLOSE KdNr"
|
||||
.Columns("plose_ProduktCode").HeaderText = "ProduktCode"
|
||||
.Columns("plose_Produktbeschreibung").HeaderText = "Beschreibung"
|
||||
.Columns("plose_Menge").HeaderText = "Menge"
|
||||
.Columns("plose_Preis").HeaderText = "Preis"
|
||||
.Columns("plose_NettobetragTransaktion").HeaderText = "Netto"
|
||||
.Columns("plose_MWSTBetrag").HeaderText = "MWST"
|
||||
.Columns("plose_BruttobetragTransaktion").HeaderText = "Brutto"
|
||||
|
||||
'.Columns("VERAGLeistungsNr").ReadOnly = False
|
||||
'.Columns("VERAGKdNr").ReadOnly = False
|
||||
|
||||
'For Each r As DataGridViewColumn In .Columns
|
||||
' If r.Name = "VERAGLeistungsNr" Or r.Name = "VERAGKdNr" Then
|
||||
' r.ReadOnly = False
|
||||
' Else
|
||||
' r.ReadOnly = True
|
||||
' End If
|
||||
'Next
|
||||
|
||||
|
||||
Dim c2 As New DataGridViewTextBoxColumn
|
||||
c2.Name = "VERAGKdNr"
|
||||
c2.HeaderText = "VERAG KdNr"
|
||||
c2.MinimumWidth = 115
|
||||
.Columns.Insert(1, c2)
|
||||
|
||||
Dim c As New DataGridViewTextBoxColumn
|
||||
c.Name = "VERAGLeistungsNr"
|
||||
c.HeaderText = "VERAG LeistungsNr."
|
||||
c.MinimumWidth = 115
|
||||
.Columns.Insert(5, c)
|
||||
|
||||
|
||||
.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells
|
||||
|
||||
Dim sum As Double = 0
|
||||
For Each r As DataGridViewRow In .Rows
|
||||
sum += If(IsNumeric(r.Cells("plose_BruttobetragTransaktion").Value), CDbl(r.Cells("plose_BruttobetragTransaktion").Value), 0)
|
||||
Next
|
||||
txtAnzahl.Text = .Rows.Count
|
||||
txtPrüfsumme.Text = sum.ToString("N2")
|
||||
End With
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
|
||||
initLieferant("PLOSE", sender)
|
||||
End Sub
|
||||
|
||||
Sub initLieferant(l As String, btn As Button)
|
||||
MyDatagridview1.DataSource = Nothing
|
||||
Me.LIEFERANT = l
|
||||
For Each c As Button In FlowLayoutPanel.Controls
|
||||
If c Is btn Then
|
||||
c.BackColor = Color.Wheat
|
||||
Else
|
||||
c.BackColor = Color.FloralWhite
|
||||
End If
|
||||
Next
|
||||
init()
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Sub genRGAtt_PLOSE()
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
Dim dt_Main As DataTable = SQL.loadDgvBySql_Param("SELECT [plose_POLSEKundennummer] FROM tblPLOSE_Details where plose_FakturiertDatum is null AND plose_DatumTransaktion between '" & dat_Sum_Von.Value.ToShortDateString & "' and '" & dat_Sum_Bis.Value.ToShortDateString & "' group by [plose_POLSEKundennummer] ", "FMZOLL")
|
||||
|
||||
If dt_Main Is Nothing OrElse dt_Main.Rows.Count = 0 Then
|
||||
MsgBox("Keine Daten!")
|
||||
Exit Sub
|
||||
End If
|
||||
Dim cnt = 0
|
||||
If vbYes = MsgBox("Es wurden Daten von " & dt_Main.Rows.Count & " Kunden gefunden " & vbNewLine & " Möchten Sie die Anhänge erstellen?", vbYesNoCancel) Then
|
||||
Dim dir = "F:\FMZoll\Maut\PLOSE\" & Now.ToShortDateString
|
||||
|
||||
If IO.Directory.Exists(dir) Then dir &= "_" & Now.ToShortTimeString.Replace(":", "")
|
||||
IO.Directory.CreateDirectory(dir)
|
||||
For Each R_PLOSE In dt_Main.Rows
|
||||
|
||||
Dim SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch = Nothing
|
||||
genPLOSE_SPEDBUCH_ByKdNr(R_PLOSE("plose_POLSEKundennummer"), dat_Sum_Von.Value.ToShortDateString, dat_Sum_Bis.Value.ToShortDateString, SPEDBUCH)
|
||||
genPLOSE_RECHNUNG_BySPEDBUCH(R_PLOSE("plose_POLSEKundennummer"), SPEDBUCH, dat_Sum_Von.Value, dat_Sum_Bis.Value)
|
||||
genPLOSEAttachmentByKdNr(R_PLOSE("plose_POLSEKundennummer"), dat_Sum_Von.Value.ToShortDateString, dat_Sum_Bis.Value.ToShortDateString, dir)
|
||||
|
||||
|
||||
If True Then 'cnt Mod 10 = 0 Then
|
||||
txtPloseAnh_Einarbeitung.Text = cnt & " / " & dt_Main.Rows.Count
|
||||
Dim proz As Double = (cnt / dt_Main.Rows.Count) * 100
|
||||
pbPloseAnh_Proz.Value = proz
|
||||
lblPloseAnh_Proz.Text = proz.ToString("N2") & " %"
|
||||
'GroupBox12.Refresh()
|
||||
My.Application.DoEvents()
|
||||
End If
|
||||
cnt += 1
|
||||
|
||||
|
||||
Next
|
||||
pbPloseAnh_Proz.Value = 100
|
||||
txtPloseAnh_Einarbeitung.Text = dt_Main.Rows.Count & " / " & dt_Main.Rows.Count
|
||||
lblPloseAnh_Proz.Text = "100.00 %"
|
||||
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Function genPLOSEAttachmentByKdNr(KdNr As String, von As Date, bis As Date, dir As String)
|
||||
Try
|
||||
|
||||
Dim displayFilter = False
|
||||
Dim sqlstr As String = ""
|
||||
|
||||
sqlstr &= " SELECT * "
|
||||
sqlstr &= " FROM tblPLOSE_Details INNER JOIN [tblPLOSE_Produktbeschreibung] on plose_ProduktCode=plp_ProductCode "
|
||||
sqlstr &= " WHERE 1=1 "
|
||||
sqlstr &= " AND plose_FakturiertDatum is null "
|
||||
sqlstr &= " AND plose_POLSEKundennummer = '" & KdNr & "' "
|
||||
sqlstr &= " AND plose_DatumTransaktion between '" & von.ToShortDateString & "' and '" & bis.ToShortDateString & "' "
|
||||
|
||||
' sqlstr &= " group by plose_ProduktCode"
|
||||
sqlstr &= " order by plp_Land, plose_DatumTransaktion"
|
||||
|
||||
Dim dt As DataTable = SQL.loadDgvBySql_Param(sqlstr, "FMZOLL")
|
||||
|
||||
Dim rpt As New rptPLOSE_Anhang
|
||||
|
||||
rpt.DataSource = dt
|
||||
|
||||
rpt.lblRgDatum.Text = datPloseAnhang.Value.ToShortDateString
|
||||
|
||||
rpt.GroupHeaderKz.DataField = "plose_Kennzeichen" 'Gruppierung
|
||||
|
||||
Dim sumNetto As Double = 0
|
||||
Dim sumMWST As Double = 0
|
||||
Dim sumBrutto As Double = 0
|
||||
|
||||
Dim sumNettoKat As Double = 0
|
||||
Dim sumMWSTKat As Double = 0
|
||||
Dim sumBruttoKat As Double = 0
|
||||
|
||||
Dim sumNettoGes As Double = 0
|
||||
Dim sumMWSTGes As Double = 0
|
||||
Dim sumBruttoGes As Double = 0
|
||||
|
||||
Dim cntKat = 0
|
||||
Dim cnt = 0
|
||||
rpt.GroupFooterKat.Visible = False
|
||||
|
||||
AddHandler rpt.Detail.Format, Sub()
|
||||
' If cnt = 0 Then
|
||||
rpt.txtKunde.Text = SQL.isDbnullEmpty(rpt.Fields.Item("plose_POLSEKundennummer").Value, "") & " " & SQL.isDbnullEmpty(rpt.Fields.Item("plose_Firmenname").Value, "")
|
||||
' End If
|
||||
|
||||
' rpt.txtProduktBeschreibung.Text = sql.isDbnullEmpty(rpt.Fields.Item("BC_DESCR").Value, "")
|
||||
Select Case "DE"
|
||||
Case "DE" : rpt.txtProdukt.Text = SQL.isDbnullEmpty(rpt.Fields.Item("plp_Description_DE").Value, "") 'sql.isDbnullEmpty(rpt.Fields.Item("plose_ProduktCode").Value, "") & " - " & sql.isDbnullEmpty(rpt.Fields.Item("plose_Produktbeschreibung").Value, "")
|
||||
Case "IT" : rpt.txtProdukt.Text = SQL.isDbnullEmpty(rpt.Fields.Item("plp_Description_IT").Value, "") 'sql.isDbnullEmpty(rpt.Fields.Item("plose_ProduktCode").Value, "") & " - " & sql.isDbnullEmpty(rpt.Fields.Item("plose_Produktbeschreibung").Value, "")
|
||||
Case Else : rpt.txtProdukt.Text = SQL.isDbnullEmpty(rpt.Fields.Item("plp_Description_EN").Value, "") 'sql.isDbnullEmpty(rpt.Fields.Item("plose_ProduktCode").Value, "") & " - " & sql.isDbnullEmpty(rpt.Fields.Item("plose_Produktbeschreibung").Value, "")
|
||||
End Select
|
||||
|
||||
rpt.txtKartennummer.Text = SQL.isDbnullEmpty(rpt.Fields.Item("plose_NummerKarteGeraet").Value, "")
|
||||
rpt.txtEingang.Text = SQL.isDbnullEmpty(rpt.Fields.Item("plose_BeschreibungEinfahrt").Value, "")
|
||||
rpt.txtAusgang.Text = SQL.isDbnullEmpty(rpt.Fields.Item("plose_BeschreibungAusfahrt").Value, "")
|
||||
rpt.txtLand.Text = SQL.isDbnullEmpty(rpt.Fields.Item("plp_Land").Value, "")
|
||||
rpt.txtDatum.Text = SQL.isDbnullEmpty(rpt.Fields.Item("plose_DatumTransaktion").Value, "")
|
||||
|
||||
rpt.txtNetto.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_NettobetragTransaktion").Value, 2, "")
|
||||
rpt.txtMWST.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_MWSTBetrag").Value, 2, "")
|
||||
rpt.txtBrutto.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_BruttobetragTransaktion").Value, 2, "")
|
||||
|
||||
sumNetto += SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_NettobetragTransaktion").Value, 4, 0)
|
||||
sumMWST += SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_MWSTBetrag").Value, 4, 0)
|
||||
sumBrutto += SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_BruttobetragTransaktion").Value, 4, 0)
|
||||
cnt += 1
|
||||
End Sub
|
||||
|
||||
AddHandler rpt.GroupHeaderKz.Format, Sub()
|
||||
rpt.txtKennzeichen.Text = SQL.isDbnullEmpty(rpt.Fields.Item("plose_Kennzeichen").Value, "")
|
||||
If rpt.txtKennzeichen.Text = "" Then rpt.lblKennzeichen.Visible = False
|
||||
End Sub
|
||||
AddHandler rpt.GroupHeaderKat.Format, Sub()
|
||||
rpt.lblKategorie.Text = "MAUT REPORT"
|
||||
End Sub
|
||||
|
||||
AddHandler rpt.GroupFooterKz.Format, Sub()
|
||||
rpt.txtNettoKzSum.Text = sumNetto.ToString("N2")
|
||||
rpt.txtMWSTKzSum.Text = sumMWST.ToString("N2")
|
||||
rpt.txtBruttoKzSum.Text = sumBrutto.ToString("N2")
|
||||
|
||||
rpt.lblSummeKennzeichen.Text = rpt.lblSummeKennzeichen.Text.Replace("Kennzeichen", SQL.isDbnullEmpty(rpt.Fields.Item("plose_Kennzeichen").Value, ""))
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
AddHandler rpt.GroupFooterKat.Format, Sub()
|
||||
sumNettoKat += sumNetto
|
||||
sumMWSTKat += sumMWST
|
||||
sumBruttoKat += sumBrutto
|
||||
sumNetto = 0
|
||||
sumMWST = 0
|
||||
sumBrutto = 0
|
||||
|
||||
rpt.txtNettoKatSum.Text = sumNettoKat.ToString("N2")
|
||||
rpt.txtMWSTKatSum.Text = sumMWSTKat.ToString("N2")
|
||||
rpt.txtBruttoKatSum.Text = sumBruttoKat.ToString("N2")
|
||||
cntKat += 1
|
||||
End Sub
|
||||
AddHandler rpt.ReportFooter1.Format, Sub()
|
||||
sumNettoGes += sumNettoKat
|
||||
sumMWSTGes += sumMWSTKat
|
||||
sumBruttoGes += sumBruttoKat
|
||||
sumNettoKat = 0
|
||||
sumMWSTKat = 0
|
||||
sumBruttoKat = 0
|
||||
|
||||
rpt.txtNettoGesSum.Text = sumNettoGes.ToString("N2")
|
||||
rpt.txtMWSTGEsSum.Text = sumMWSTGes.ToString("N2")
|
||||
rpt.txtBruttoGesSum.Text = sumBruttoGes.ToString("N2")
|
||||
|
||||
|
||||
|
||||
'If cntKat <= 1 Then
|
||||
' rpt.GroupFooterKat.Visible = False
|
||||
'End If
|
||||
End Sub
|
||||
|
||||
'print.Viewer.LoadDocument(rpt)
|
||||
'print.Viewer.ViewType = GrapeCity.Viewer.Common.Model.ViewType.Continuous
|
||||
'print.Show()
|
||||
|
||||
|
||||
|
||||
Dim tmpPath = dir & "\" & KdNr & "_PLOSE_Anhang.pdf"
|
||||
Dim p As New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport
|
||||
rpt.Run(False)
|
||||
p.NeverEmbedFonts = ""
|
||||
p.Export(rpt.Document, tmpPath)
|
||||
|
||||
rpt.Dispose()
|
||||
|
||||
Return tmpPath
|
||||
|
||||
Catch ex As System.Exception
|
||||
MsgBox(ex.Message & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
|
||||
End Function
|
||||
|
||||
Function genPLOSE_SPEDBUCH_ByKdNr(KdNr As String, von As Date, bis As Date, ByRef SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch)
|
||||
Try
|
||||
|
||||
'Dim displayFilter = False
|
||||
'Dim sqlstr As String = ""
|
||||
|
||||
'sqlstr &= " SELECT * "
|
||||
'sqlstr &= " FROM tblPLOSE_Details INNER JOIN [tblPLOSE_Produktbeschreibung] on plose_ProduktCode=plp_ProductCode "
|
||||
'sqlstr &= " WHERE 1=1 "
|
||||
'sqlstr &= " AND plose_FakturiertDatum is null "
|
||||
'sqlstr &= " AND plose_POLSEKundennummer = '" & KdNr & "' "
|
||||
'sqlstr &= " AND plose_DatumTransaktion between '" & von.ToShortDateString & "' and '" & bis.ToShortDateString & "' "
|
||||
|
||||
'' sqlstr &= " group by plose_ProduktCode"
|
||||
'sqlstr &= " order by plp_Land, plose_DatumTransaktion"
|
||||
|
||||
'Dim dt As DataTable = SQL.loadDgvBySql_Param(sqlstr, "FMZOLL")
|
||||
|
||||
Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(KdNr)
|
||||
SPEDBUCH = New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch
|
||||
|
||||
Dim OffertenNr = 8
|
||||
Dim Abfertigungsart = 10
|
||||
|
||||
SPEDBUCH.FilialenNr = 4824
|
||||
SPEDBUCH.AbfertigungsNr = VERAG_PROG_ALLGEMEIN.cAllgemein.getMaxPosNrIncrement(SPEDBUCH.FilialenNr, Now.Year)
|
||||
SPEDBUCH.NewUNTER_NR()
|
||||
|
||||
SPEDBUCH.Vermittler = AD.Ordnungsbegriff
|
||||
SPEDBUCH.VermittlerKundenNr = KdNr
|
||||
SPEDBUCH.VermittlerOffertenNr = OffertenNr
|
||||
SPEDBUCH.Abfertigungsdatum = datPloseAnhang.Value
|
||||
|
||||
SPEDBUCH.Abfertigungsart = Abfertigungsart
|
||||
SPEDBUCH.Bar = 0
|
||||
SPEDBUCH.Fakturiert = 1
|
||||
SPEDBUCH.AnzahlSonstiges = 1
|
||||
SPEDBUCH.Abfertigungsanzahl = 1
|
||||
|
||||
SPEDBUCH.Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
|
||||
|
||||
|
||||
Return SPEDBUCH.SAVE
|
||||
|
||||
Catch ex As System.Exception
|
||||
MsgBox(ex.Message & ex.StackTrace)
|
||||
End Try
|
||||
Return False
|
||||
|
||||
End Function
|
||||
|
||||
Function genPLOSE_RECHNUNG_BySPEDBUCH(KdNr As String, SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, von As Date, bis As Date)
|
||||
Try
|
||||
|
||||
Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(SPEDBUCH.VermittlerKundenNr)
|
||||
Dim KD As New VERAG_PROG_ALLGEMEIN.cKunde(SPEDBUCH.VermittlerKundenNr)
|
||||
Dim RG As New VERAG_PROG_ALLGEMEIN.cRechnungsausgang
|
||||
|
||||
Dim OffertenNr = 8
|
||||
Dim Abfertigungsart = 10
|
||||
|
||||
RG.FilialenNr = SPEDBUCH.FilialenNr
|
||||
RG.AbfertigungsNr = SPEDBUCH.AbfertigungsNr
|
||||
RG.SpeditionsbuchUnterNr = SPEDBUCH.UnterNr
|
||||
RG.UnterNr = RG.getMaxRGUnterNr()
|
||||
|
||||
|
||||
RG.FilialenNr = SPEDBUCH.FilialenNr
|
||||
RG.Abfertigungsdatum = SPEDBUCH.Abfertigungsdatum
|
||||
RG.Sammelrechnung = 6 'MAUT/DIESEL
|
||||
RG.BelegartenKz = "AR"
|
||||
RG.BelegartenNr = 70
|
||||
RG.BelegartenBez = "Rechnung"
|
||||
RG.Vorzeichen = "+"
|
||||
|
||||
RG.VermittlerKundenNr = AD.AdressenNr
|
||||
RG.VermittlerLandKz = AD.LandKz
|
||||
RG.VermittlerName_1 = AD.Name_1
|
||||
RG.VermittlerName_2 = AD.Name_2
|
||||
RG.VermittlerOffertenNr = OffertenNr
|
||||
RG.VermittlerOrt = AD.Ort
|
||||
RG.VermittlerStraße = AD.Straße
|
||||
RG.Rechnung_an = 3
|
||||
RG.OffertenNr = OffertenNr
|
||||
|
||||
RG.KundenNrZentrale = KD.KundenNrZentrale
|
||||
RG.RechnungsKundenNr = AD.AdressenNr
|
||||
RG.RechnungsLandKz = AD.LandKz
|
||||
RG.RechnungsName_1 = AD.Name_1
|
||||
RG.RechnungsName_2 = AD.Name_2
|
||||
RG.RechnungsOrt = AD.Ort
|
||||
RG.RechnungsStraße = AD.Straße
|
||||
|
||||
RG.RechnungsUstIdKz = AD.UstIdKz
|
||||
RG.RechnungsUstIdNr = AD.UstIdNr
|
||||
RG.RechnungsUstIdGeprüft = AD.UstIdGeprüft
|
||||
|
||||
RG.Lastschrift = KD.Lastschrift
|
||||
RG.Kunden_SVS = KD.SVS
|
||||
RG.Steuerschlüssel = KD.Steuerschlüssel
|
||||
RG.Vorkasse = KD.Vorkasse
|
||||
RG.Vorlageprovision_Proz = KD.Vorlageprovision
|
||||
RG.Kreditaufwendungen_Proz = KD.Kreditaufwendungen
|
||||
|
||||
|
||||
RG.Anlage_1 = ""
|
||||
RG.Anlage_2 = ""
|
||||
RG.Anlage_3 = ""
|
||||
RG.Anlage_4 = ""
|
||||
RG.Anlage_5 = ""
|
||||
RG.Anlage_6 = ""
|
||||
|
||||
|
||||
RG.Text = ""
|
||||
RG.EMailRechnungstext = ""
|
||||
|
||||
RG.Firma_ID = 15
|
||||
RG.Nettozahlungsziel = KD.Zahlungsziel
|
||||
|
||||
RG.SteuerpflichtigerGesamtbetrag = ""
|
||||
RG.SteuerfreierGesamtbetrag = ""
|
||||
RG.Status = 0
|
||||
|
||||
RG.[Vorkosten] = 0
|
||||
RG.[Erlös] = 0
|
||||
RG.[Buchungsjahr] = 0
|
||||
RG.[Währungscode] = "EUR"
|
||||
|
||||
|
||||
RG.Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
|
||||
|
||||
|
||||
|
||||
Dim sqlstr As String = ""
|
||||
sqlstr &= " SELECT [plp_LeistungsNr],sum([plose_NettobetragTransaktion]) as plose_NettobetragTransaktion,sum([plose_MWSTBetrag]) as [plose_MWSTBetrag],sum([plose_BruttobetragTransaktion]) as [plose_BruttobetragTransaktion] "
|
||||
sqlstr &= " FROM tblPLOSE_Details INNER JOIN [tblPLOSE_Produktbeschreibung] on plose_ProduktCode=plp_ProductCode "
|
||||
sqlstr &= " WHERE 1=1 "
|
||||
sqlstr &= " AND plose_FakturiertDatum is null "
|
||||
sqlstr &= " AND plose_POLSEKundennummer = '" & KdNr & "' "
|
||||
sqlstr &= " AND plose_DatumTransaktion between '" & von.ToShortDateString & "' and '" & bis.ToShortDateString & "' "
|
||||
|
||||
sqlstr &= " group by plose_POLSEKundennummer,[plp_LeistungsNr]"
|
||||
sqlstr &= " order by plose_POLSEKundennummer"
|
||||
|
||||
Dim dt As DataTable = SQL.loadDgvBySql_Param(sqlstr, "FMZOLL")
|
||||
|
||||
For Each r In dt.Rows
|
||||
|
||||
Dim BLNr = r("plp_LeistungsNr")
|
||||
Dim BProz = r("plose_BruttobetragTransaktion")
|
||||
|
||||
Dim Betrag As Double = r("") '""""""!!!!!!!!!!!!!!!!
|
||||
Dim LeistungsNr As Integer = r("") '""""""!!!!!!!!!!!!!!!!
|
||||
|
||||
Dim OFFERTE As New VERAG_PROG_ALLGEMEIN.cOfferte(KdNr, 8, True)
|
||||
|
||||
allPlosePos(RG, OFFERTE, LeistungsNr, Betrag)
|
||||
|
||||
Next
|
||||
|
||||
RG.Steuersatz_Proz = cFakturierung.przRechnungstext(RG)
|
||||
|
||||
|
||||
|
||||
|
||||
Return SPEDBUCH.SAVE
|
||||
|
||||
Catch ex As System.Exception
|
||||
MsgBox(ex.Message & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
|
||||
End Function
|
||||
|
||||
Function allPlosePos(ByRef RG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, OFFERTE As VERAG_PROG_ALLGEMEIN.cOfferte, LeistungsNr As Integer, Betrag As Double)
|
||||
Try
|
||||
|
||||
For Each o In OFFERTE.POSITIONEN
|
||||
If o.LeistungsNr = LeistungsNr Then
|
||||
Dim POS As New VERAG_PROG_ALLGEMEIN.cRechnungsausgangPositionen()
|
||||
Dim LEISTUNG As New VERAG_PROG_ALLGEMEIN.cLeistungen(o.LeistungsNr)
|
||||
POS.LeistungsNr = o.LeistungsNr
|
||||
POS.LeistungsBez = o.LeistungsBez
|
||||
|
||||
POS.BerechnungsartNr = o.BerechnungsartNr
|
||||
POS.Preis = Betrag
|
||||
POS.Anzahl = 1
|
||||
POS.Steuerpflichtig = LEISTUNG.Steuerpflichtig
|
||||
|
||||
If POS.Steuerpflichtig Then
|
||||
POS.Steuerpflichtig = Betrag
|
||||
Else
|
||||
POS.SteuerpflichtigerBetrag = Betrag
|
||||
End If
|
||||
|
||||
POS.BGebLeistungsNr = o.BGebLeistungsNr
|
||||
POS.BGebProzent = o.BGebProzent
|
||||
POS.BGebMinBetrag = o.BGebMinBetrag
|
||||
'POS.BGebBgl = o.bgebbgl ????????????????
|
||||
|
||||
RG.POSITIONEN.Add(POS)
|
||||
|
||||
If (If(POS.BGebLeistungsNr, 0) > 0) AndAlso (If(POS.BGebProzent, 0) > 0) Then
|
||||
allPlosePosBGeb(RG, OFFERTE, POS.BGebLeistungsNr, (Betrag * POS.BGebProzent))
|
||||
End If
|
||||
|
||||
Return True
|
||||
End If
|
||||
Next
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message & ex.StackTrace)
|
||||
End Try
|
||||
Return False
|
||||
End Function
|
||||
|
||||
Function allPlosePosBGeb(ByRef RG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, OFFERTE As VERAG_PROG_ALLGEMEIN.cOfferte, LeistungsNr As Integer, Betrag As Double)
|
||||
Try
|
||||
For Each o In OFFERTE.POSITIONEN
|
||||
If o.LeistungsNr = LeistungsNr Then
|
||||
Dim POS As New VERAG_PROG_ALLGEMEIN.cRechnungsausgangPositionen()
|
||||
Dim LEISTUNG As New VERAG_PROG_ALLGEMEIN.cLeistungen(o.LeistungsNr)
|
||||
POS.LeistungsNr = o.LeistungsNr
|
||||
POS.LeistungsBez = o.LeistungsBez
|
||||
|
||||
POS.BerechnungsartNr = o.BerechnungsartNr
|
||||
POS.Preis = Betrag
|
||||
POS.Anzahl = 1
|
||||
POS.Steuerpflichtig = LEISTUNG.Steuerpflichtig
|
||||
|
||||
If POS.Steuerpflichtig Then
|
||||
POS.Steuerpflichtig = Betrag
|
||||
Else
|
||||
POS.SteuerpflichtigerBetrag = Betrag
|
||||
End If
|
||||
|
||||
|
||||
RG.POSITIONEN.Add(POS)
|
||||
Return True
|
||||
|
||||
End If
|
||||
Next
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message & ex.StackTrace)
|
||||
End Try
|
||||
Return False
|
||||
End Function
|
||||
|
||||
|
||||
Private Sub dat_Sum_Von_ValueChanged(sender As Object, e As EventArgs) Handles dat_Sum_Von.ValueChanged, dat_Sum_Bis.ValueChanged
|
||||
init()
|
||||
End Sub
|
||||
|
||||
Private Sub cbx_CheckedChanged(sender As Object, e As EventArgs) Handles cbx.CheckedChanged
|
||||
Panel2.Enabled = cbx.Checked
|
||||
End Sub
|
||||
|
||||
|
||||
Function pruefData_PLOSE() As Boolean
|
||||
pruefData_PLOSE = True
|
||||
Try
|
||||
For Each r As DataGridViewRow In MyDatagridview1.Rows
|
||||
Dim VERAGKdNr = SQL.getValueTxtBySql("SELECT TOP 1 AdressenNr FROM Adressen WHERE PLOSEKundenNr='" & r.Cells("plose_POLSEKundennummer").Value & "'", "FMZOLL")
|
||||
|
||||
If VERAGKdNr <> "" Then
|
||||
r.Cells("VERAGKdNr").Value = VERAGKdNr
|
||||
r.Cells("VERAGKdNr").Style.BackColor = Color.MintCream
|
||||
Else
|
||||
pruefData_PLOSE = False
|
||||
r.Cells("VERAGKdNr").Style.BackColor = Color.PapayaWhip
|
||||
End If
|
||||
Dim VERAGLeistungsNr = SQL.getValueTxtBySql("SELECT TOP (1) [plp_LeistungsNr] FROM [VERAG].[dbo].[tblPLOSE_Produktbeschreibung] where plp_ProductCode='" & r.Cells("plose_ProduktCode").Value & "' and plp_Firma='PU'", "FMZOLL")
|
||||
If VERAGLeistungsNr <> "" Then
|
||||
r.Cells("VERAGLeistungsNr").Value = VERAGLeistungsNr
|
||||
r.Cells("VERAGKdNr").Style.BackColor = Color.MintCream
|
||||
Else
|
||||
pruefData_PLOSE = False
|
||||
r.Cells("VERAGKdNr").Style.BackColor = Color.PapayaWhip
|
||||
End If
|
||||
Next
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message & ex.StackTrace)
|
||||
pruefData_PLOSE = False
|
||||
End Try
|
||||
End Function
|
||||
End Class
|
||||
@@ -527,7 +527,7 @@ Partial Class usrCntlSDLAbholung
|
||||
Me.lblErgebnis.Name = "lblErgebnis"
|
||||
Me.lblErgebnis.Size = New System.Drawing.Size(215, 14)
|
||||
Me.lblErgebnis.TabIndex = 3
|
||||
Me.lblErgebnis.Text = "Ergebnise: 0"
|
||||
Me.lblErgebnis.Text = "Ergebnisse: 0"
|
||||
Me.lblErgebnis.TextAlign = System.Drawing.ContentAlignment.TopRight
|
||||
'
|
||||
'Label37
|
||||
|
||||
@@ -38,7 +38,7 @@ Public Class usrCntlSDLLeistungHUGO
|
||||
End Sub
|
||||
|
||||
Private Sub usrCntlSDLLeistungenCZ_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
|
||||
|
||||
UsrCntlDetails.kdNr = kdNr
|
||||
UsrCntlDetails.SDLNr = SDLNr
|
||||
UsrCntlDetails.History = History
|
||||
@@ -128,7 +128,7 @@ Public Class usrCntlSDLLeistungHUGO
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Public Sub newEntry()
|
||||
' s.updateBinding()
|
||||
|
||||
587
SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungPLOSE.Designer.vb
generated
Normal file
587
SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungPLOSE.Designer.vb
generated
Normal file
@@ -0,0 +1,587 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
|
||||
Partial Class usrCntlSDLLeistungPLOSE
|
||||
Inherits System.Windows.Forms.UserControl
|
||||
|
||||
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
|
||||
<System.Diagnostics.DebuggerNonUserCode()>
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Wird vom Windows Form-Designer benötigt.
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
|
||||
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
|
||||
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
||||
<System.Diagnostics.DebuggerStepThrough()>
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Me.cbxRetourniert = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
|
||||
Me.txtPin = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.txtKartenNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.txtOBUID = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.Label3 = New System.Windows.Forms.Label()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.Label9 = New System.Windows.Forms.Label()
|
||||
Me.txtPLOSEKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.Label2 = New System.Windows.Forms.Label()
|
||||
Me.Panel2 = New System.Windows.Forms.Panel()
|
||||
Me.Label8 = New System.Windows.Forms.Label()
|
||||
Me.txtVermerk = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.Label4 = New System.Windows.Forms.Label()
|
||||
Me.cbxGestohlen = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
|
||||
Me.cbxVerloren = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
|
||||
Me.cbxGesperrt = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
|
||||
Me.cbxDefekt = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
|
||||
Me.txtLieferung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.txtBestellung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.txtGueltigkeit2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.Label6 = New System.Windows.Forms.Label()
|
||||
Me.Label7 = New System.Windows.Forms.Label()
|
||||
Me.Label11 = New System.Windows.Forms.Label()
|
||||
Me.tbcntr = New System.Windows.Forms.TabControl()
|
||||
Me.TabPage1 = New System.Windows.Forms.TabPage()
|
||||
Me.UsrCntlDetails = New SDL.usrCntlAllg()
|
||||
Me.TabPage2 = New System.Windows.Forms.TabPage()
|
||||
Me.scanLieferschein = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
|
||||
Me.scanSonstiges = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
|
||||
Me.scanRetourniert = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
|
||||
Me.cbxArchiviert = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
|
||||
Me.Panel2.SuspendLayout()
|
||||
Me.tbcntr.SuspendLayout()
|
||||
Me.TabPage1.SuspendLayout()
|
||||
Me.TabPage2.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'cbxRetourniert
|
||||
'
|
||||
Me.cbxRetourniert._date = Nothing
|
||||
Me.cbxRetourniert._showdate = True
|
||||
Me.cbxRetourniert._value = ""
|
||||
Me.cbxRetourniert.AutoSize = True
|
||||
Me.cbxRetourniert.Location = New System.Drawing.Point(333, 64)
|
||||
Me.cbxRetourniert.Name = "cbxRetourniert"
|
||||
Me.cbxRetourniert.Size = New System.Drawing.Size(78, 17)
|
||||
Me.cbxRetourniert.TabIndex = 7
|
||||
Me.cbxRetourniert.Text = "Retourniert"
|
||||
Me.cbxRetourniert.UseVisualStyleBackColor = True
|
||||
'
|
||||
'txtPin
|
||||
'
|
||||
Me.txtPin._DateTimeOnly = False
|
||||
Me.txtPin._numbersOnly = False
|
||||
Me.txtPin._numbersOnlyKommastellen = ""
|
||||
Me.txtPin._Prozent = False
|
||||
Me.txtPin._ShortDateNew = False
|
||||
Me.txtPin._ShortDateOnly = False
|
||||
Me.txtPin._TimeOnly = False
|
||||
Me.txtPin._value = Nothing
|
||||
Me.txtPin._Waehrung = False
|
||||
Me.txtPin._WaehrungZeichen = True
|
||||
Me.txtPin.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtPin.Location = New System.Drawing.Point(106, 118)
|
||||
Me.txtPin.MaxLength = 6
|
||||
Me.txtPin.MaxLineLength = -1
|
||||
Me.txtPin.MaxLines_Warning = ""
|
||||
Me.txtPin.MaxLines_Warning_Label = Nothing
|
||||
Me.txtPin.Name = "txtPin"
|
||||
Me.txtPin.Size = New System.Drawing.Size(55, 20)
|
||||
Me.txtPin.TabIndex = 3
|
||||
'
|
||||
'txtKartenNr
|
||||
'
|
||||
Me.txtKartenNr._DateTimeOnly = False
|
||||
Me.txtKartenNr._numbersOnly = False
|
||||
Me.txtKartenNr._numbersOnlyKommastellen = ""
|
||||
Me.txtKartenNr._Prozent = False
|
||||
Me.txtKartenNr._ShortDateNew = False
|
||||
Me.txtKartenNr._ShortDateOnly = False
|
||||
Me.txtKartenNr._TimeOnly = False
|
||||
Me.txtKartenNr._value = Nothing
|
||||
Me.txtKartenNr._Waehrung = False
|
||||
Me.txtKartenNr._WaehrungZeichen = True
|
||||
Me.txtKartenNr.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtKartenNr.Location = New System.Drawing.Point(106, 96)
|
||||
Me.txtKartenNr.MaxLength = 22
|
||||
Me.txtKartenNr.MaxLineLength = -1
|
||||
Me.txtKartenNr.MaxLines_Warning = ""
|
||||
Me.txtKartenNr.MaxLines_Warning_Label = Nothing
|
||||
Me.txtKartenNr.Name = "txtKartenNr"
|
||||
Me.txtKartenNr.Size = New System.Drawing.Size(183, 20)
|
||||
Me.txtKartenNr.TabIndex = 2
|
||||
'
|
||||
'txtOBUID
|
||||
'
|
||||
Me.txtOBUID._DateTimeOnly = False
|
||||
Me.txtOBUID._numbersOnly = False
|
||||
Me.txtOBUID._numbersOnlyKommastellen = ""
|
||||
Me.txtOBUID._Prozent = False
|
||||
Me.txtOBUID._ShortDateNew = False
|
||||
Me.txtOBUID._ShortDateOnly = False
|
||||
Me.txtOBUID._TimeOnly = False
|
||||
Me.txtOBUID._value = Nothing
|
||||
Me.txtOBUID._Waehrung = False
|
||||
Me.txtOBUID._WaehrungZeichen = True
|
||||
Me.txtOBUID.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtOBUID.Location = New System.Drawing.Point(106, 140)
|
||||
Me.txtOBUID.MaxLength = 18
|
||||
Me.txtOBUID.MaxLineLength = -1
|
||||
Me.txtOBUID.MaxLines_Warning = ""
|
||||
Me.txtOBUID.MaxLines_Warning_Label = Nothing
|
||||
Me.txtOBUID.Name = "txtOBUID"
|
||||
Me.txtOBUID.Size = New System.Drawing.Size(183, 20)
|
||||
Me.txtOBUID.TabIndex = 4
|
||||
'
|
||||
'Label3
|
||||
'
|
||||
Me.Label3.AutoSize = True
|
||||
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label3.Location = New System.Drawing.Point(3, 121)
|
||||
Me.Label3.Name = "Label3"
|
||||
Me.Label3.Size = New System.Drawing.Size(29, 13)
|
||||
Me.Label3.TabIndex = 14
|
||||
Me.Label3.Text = "Pin:"
|
||||
'
|
||||
'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(3, 99)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(69, 13)
|
||||
Me.Label1.TabIndex = 9
|
||||
Me.Label1.Text = "Karten-Nr.:"
|
||||
'
|
||||
'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(3, 143)
|
||||
Me.Label9.Name = "Label9"
|
||||
Me.Label9.Size = New System.Drawing.Size(52, 13)
|
||||
Me.Label9.TabIndex = 12
|
||||
Me.Label9.Text = "OBU-Id:"
|
||||
'
|
||||
'txtPLOSEKdNr
|
||||
'
|
||||
Me.txtPLOSEKdNr._DateTimeOnly = False
|
||||
Me.txtPLOSEKdNr._numbersOnly = True
|
||||
Me.txtPLOSEKdNr._numbersOnlyKommastellen = ""
|
||||
Me.txtPLOSEKdNr._Prozent = False
|
||||
Me.txtPLOSEKdNr._ShortDateNew = False
|
||||
Me.txtPLOSEKdNr._ShortDateOnly = False
|
||||
Me.txtPLOSEKdNr._TimeOnly = False
|
||||
Me.txtPLOSEKdNr._value = ""
|
||||
Me.txtPLOSEKdNr._Waehrung = False
|
||||
Me.txtPLOSEKdNr._WaehrungZeichen = True
|
||||
Me.txtPLOSEKdNr.Location = New System.Drawing.Point(574, 6)
|
||||
Me.txtPLOSEKdNr.MaxLineLength = -1
|
||||
Me.txtPLOSEKdNr.MaxLines_Warning = ""
|
||||
Me.txtPLOSEKdNr.MaxLines_Warning_Label = Nothing
|
||||
Me.txtPLOSEKdNr.Name = "txtPLOSEKdNr"
|
||||
Me.txtPLOSEKdNr.Size = New System.Drawing.Size(183, 20)
|
||||
Me.txtPLOSEKdNr.TabIndex = 21
|
||||
'
|
||||
'Label2
|
||||
'
|
||||
Me.Label2.AutoSize = True
|
||||
Me.Label2.ForeColor = System.Drawing.Color.White
|
||||
Me.Label2.Location = New System.Drawing.Point(471, 9)
|
||||
Me.Label2.Name = "Label2"
|
||||
Me.Label2.Size = New System.Drawing.Size(93, 13)
|
||||
Me.Label2.TabIndex = 20
|
||||
Me.Label2.Text = "Plose-Kunden-Nr.:"
|
||||
'
|
||||
'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.Label8)
|
||||
Me.Panel2.Controls.Add(Me.txtPLOSEKdNr)
|
||||
Me.Panel2.Controls.Add(Me.Label2)
|
||||
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(760, 30)
|
||||
Me.Panel2.TabIndex = 94
|
||||
'
|
||||
'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.ForeColor = System.Drawing.Color.White
|
||||
Me.Label8.Location = New System.Drawing.Point(6, 9)
|
||||
Me.Label8.Name = "Label8"
|
||||
Me.Label8.Size = New System.Drawing.Size(47, 13)
|
||||
Me.Label8.TabIndex = 14
|
||||
Me.Label8.Text = "PLOSE"
|
||||
'
|
||||
'txtVermerk
|
||||
'
|
||||
Me.txtVermerk._DateTimeOnly = False
|
||||
Me.txtVermerk._numbersOnly = False
|
||||
Me.txtVermerk._numbersOnlyKommastellen = ""
|
||||
Me.txtVermerk._Prozent = False
|
||||
Me.txtVermerk._ShortDateNew = False
|
||||
Me.txtVermerk._ShortDateOnly = False
|
||||
Me.txtVermerk._TimeOnly = False
|
||||
Me.txtVermerk._value = Nothing
|
||||
Me.txtVermerk._Waehrung = False
|
||||
Me.txtVermerk._WaehrungZeichen = True
|
||||
Me.txtVermerk.Location = New System.Drawing.Point(106, 162)
|
||||
Me.txtVermerk.MaxLength = 100
|
||||
Me.txtVermerk.MaxLineLength = -1
|
||||
Me.txtVermerk.MaxLines_Warning = ""
|
||||
Me.txtVermerk.MaxLines_Warning_Label = Nothing
|
||||
Me.txtVermerk.Multiline = True
|
||||
Me.txtVermerk.Name = "txtVermerk"
|
||||
Me.txtVermerk.Size = New System.Drawing.Size(183, 55)
|
||||
Me.txtVermerk.TabIndex = 5
|
||||
'
|
||||
'Label4
|
||||
'
|
||||
Me.Label4.AutoSize = True
|
||||
Me.Label4.Location = New System.Drawing.Point(3, 165)
|
||||
Me.Label4.Name = "Label4"
|
||||
Me.Label4.Size = New System.Drawing.Size(49, 13)
|
||||
Me.Label4.TabIndex = 119
|
||||
Me.Label4.Text = "Vermerk:"
|
||||
'
|
||||
'cbxGestohlen
|
||||
'
|
||||
Me.cbxGestohlen._date = Nothing
|
||||
Me.cbxGestohlen._showdate = True
|
||||
Me.cbxGestohlen._value = ""
|
||||
Me.cbxGestohlen.AutoSize = True
|
||||
Me.cbxGestohlen.Location = New System.Drawing.Point(333, 134)
|
||||
Me.cbxGestohlen.Name = "cbxGestohlen"
|
||||
Me.cbxGestohlen.Size = New System.Drawing.Size(74, 17)
|
||||
Me.cbxGestohlen.TabIndex = 9
|
||||
Me.cbxGestohlen.Text = "Gestohlen"
|
||||
Me.cbxGestohlen.UseVisualStyleBackColor = True
|
||||
'
|
||||
'cbxVerloren
|
||||
'
|
||||
Me.cbxVerloren._date = Nothing
|
||||
Me.cbxVerloren._showdate = True
|
||||
Me.cbxVerloren._value = ""
|
||||
Me.cbxVerloren.AutoSize = True
|
||||
Me.cbxVerloren.Location = New System.Drawing.Point(333, 111)
|
||||
Me.cbxVerloren.Name = "cbxVerloren"
|
||||
Me.cbxVerloren.Size = New System.Drawing.Size(65, 17)
|
||||
Me.cbxVerloren.TabIndex = 8
|
||||
Me.cbxVerloren.Text = "Verloren"
|
||||
Me.cbxVerloren.UseVisualStyleBackColor = True
|
||||
'
|
||||
'cbxGesperrt
|
||||
'
|
||||
Me.cbxGesperrt._date = Nothing
|
||||
Me.cbxGesperrt._showdate = True
|
||||
Me.cbxGesperrt._value = ""
|
||||
Me.cbxGesperrt.AutoSize = True
|
||||
Me.cbxGesperrt.Location = New System.Drawing.Point(333, 155)
|
||||
Me.cbxGesperrt.Name = "cbxGesperrt"
|
||||
Me.cbxGesperrt.Size = New System.Drawing.Size(66, 17)
|
||||
Me.cbxGesperrt.TabIndex = 10
|
||||
Me.cbxGesperrt.Text = "Gesperrt"
|
||||
Me.cbxGesperrt.UseVisualStyleBackColor = True
|
||||
'
|
||||
'cbxDefekt
|
||||
'
|
||||
Me.cbxDefekt._date = Nothing
|
||||
Me.cbxDefekt._showdate = True
|
||||
Me.cbxDefekt._value = ""
|
||||
Me.cbxDefekt.AutoSize = True
|
||||
Me.cbxDefekt.Location = New System.Drawing.Point(333, 177)
|
||||
Me.cbxDefekt.Name = "cbxDefekt"
|
||||
Me.cbxDefekt.Size = New System.Drawing.Size(58, 17)
|
||||
Me.cbxDefekt.TabIndex = 11
|
||||
Me.cbxDefekt.Text = "Defekt"
|
||||
Me.cbxDefekt.UseVisualStyleBackColor = True
|
||||
'
|
||||
'txtLieferung
|
||||
'
|
||||
Me.txtLieferung._DateTimeOnly = False
|
||||
Me.txtLieferung._numbersOnly = False
|
||||
Me.txtLieferung._numbersOnlyKommastellen = ""
|
||||
Me.txtLieferung._Prozent = False
|
||||
Me.txtLieferung._ShortDateNew = True
|
||||
Me.txtLieferung._ShortDateOnly = False
|
||||
Me.txtLieferung._TimeOnly = False
|
||||
Me.txtLieferung._value = ""
|
||||
Me.txtLieferung._Waehrung = False
|
||||
Me.txtLieferung._WaehrungZeichen = True
|
||||
Me.txtLieferung.ForeColor = System.Drawing.Color.Red
|
||||
Me.txtLieferung.Location = New System.Drawing.Point(106, 62)
|
||||
Me.txtLieferung.MaxLength = 10
|
||||
Me.txtLieferung.MaxLineLength = -1
|
||||
Me.txtLieferung.MaxLines_Warning = ""
|
||||
Me.txtLieferung.MaxLines_Warning_Label = Nothing
|
||||
Me.txtLieferung.Name = "txtLieferung"
|
||||
Me.txtLieferung.Size = New System.Drawing.Size(74, 20)
|
||||
Me.txtLieferung.TabIndex = 1
|
||||
'
|
||||
'txtBestellung
|
||||
'
|
||||
Me.txtBestellung._DateTimeOnly = False
|
||||
Me.txtBestellung._numbersOnly = False
|
||||
Me.txtBestellung._numbersOnlyKommastellen = ""
|
||||
Me.txtBestellung._Prozent = False
|
||||
Me.txtBestellung._ShortDateNew = True
|
||||
Me.txtBestellung._ShortDateOnly = False
|
||||
Me.txtBestellung._TimeOnly = False
|
||||
Me.txtBestellung._value = ""
|
||||
Me.txtBestellung._Waehrung = False
|
||||
Me.txtBestellung._WaehrungZeichen = True
|
||||
Me.txtBestellung.ForeColor = System.Drawing.Color.Red
|
||||
Me.txtBestellung.Location = New System.Drawing.Point(106, 36)
|
||||
Me.txtBestellung.MaxLength = 10
|
||||
Me.txtBestellung.MaxLineLength = -1
|
||||
Me.txtBestellung.MaxLines_Warning = ""
|
||||
Me.txtBestellung.MaxLines_Warning_Label = Nothing
|
||||
Me.txtBestellung.Name = "txtBestellung"
|
||||
Me.txtBestellung.Size = New System.Drawing.Size(74, 20)
|
||||
Me.txtBestellung.TabIndex = 0
|
||||
'
|
||||
'txtGueltigkeit2
|
||||
'
|
||||
Me.txtGueltigkeit2._DateTimeOnly = False
|
||||
Me.txtGueltigkeit2._numbersOnly = False
|
||||
Me.txtGueltigkeit2._numbersOnlyKommastellen = ""
|
||||
Me.txtGueltigkeit2._Prozent = False
|
||||
Me.txtGueltigkeit2._ShortDateNew = True
|
||||
Me.txtGueltigkeit2._ShortDateOnly = False
|
||||
Me.txtGueltigkeit2._TimeOnly = False
|
||||
Me.txtGueltigkeit2._value = ""
|
||||
Me.txtGueltigkeit2._Waehrung = False
|
||||
Me.txtGueltigkeit2._WaehrungZeichen = True
|
||||
Me.txtGueltigkeit2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.txtGueltigkeit2.ForeColor = System.Drawing.Color.Red
|
||||
Me.txtGueltigkeit2.Location = New System.Drawing.Point(389, 36)
|
||||
Me.txtGueltigkeit2.MaxLength = 10
|
||||
Me.txtGueltigkeit2.MaxLineLength = -1
|
||||
Me.txtGueltigkeit2.MaxLines_Warning = ""
|
||||
Me.txtGueltigkeit2.MaxLines_Warning_Label = Nothing
|
||||
Me.txtGueltigkeit2.Name = "txtGueltigkeit2"
|
||||
Me.txtGueltigkeit2.Size = New System.Drawing.Size(74, 20)
|
||||
Me.txtGueltigkeit2.TabIndex = 6
|
||||
Me.txtGueltigkeit2.Visible = False
|
||||
'
|
||||
'Label6
|
||||
'
|
||||
Me.Label6.AutoSize = True
|
||||
Me.Label6.Location = New System.Drawing.Point(3, 65)
|
||||
Me.Label6.Name = "Label6"
|
||||
Me.Label6.Size = New System.Drawing.Size(65, 13)
|
||||
Me.Label6.TabIndex = 123
|
||||
Me.Label6.Text = "Lieferdatum:"
|
||||
'
|
||||
'Label7
|
||||
'
|
||||
Me.Label7.AutoSize = True
|
||||
Me.Label7.Location = New System.Drawing.Point(3, 39)
|
||||
Me.Label7.Name = "Label7"
|
||||
Me.Label7.Size = New System.Drawing.Size(70, 13)
|
||||
Me.Label7.TabIndex = 122
|
||||
Me.Label7.Text = "Bestelldatum:"
|
||||
'
|
||||
'Label11
|
||||
'
|
||||
Me.Label11.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.Label11.AutoSize = True
|
||||
Me.Label11.Location = New System.Drawing.Point(330, 39)
|
||||
Me.Label11.Name = "Label11"
|
||||
Me.Label11.Size = New System.Drawing.Size(53, 13)
|
||||
Me.Label11.TabIndex = 121
|
||||
Me.Label11.Text = "Gültig bis:"
|
||||
Me.Label11.Visible = False
|
||||
'
|
||||
'tbcntr
|
||||
'
|
||||
Me.tbcntr.Controls.Add(Me.TabPage1)
|
||||
Me.tbcntr.Controls.Add(Me.TabPage2)
|
||||
Me.tbcntr.Dock = System.Windows.Forms.DockStyle.Right
|
||||
Me.tbcntr.Location = New System.Drawing.Point(496, 30)
|
||||
Me.tbcntr.Name = "tbcntr"
|
||||
Me.tbcntr.SelectedIndex = 0
|
||||
Me.tbcntr.Size = New System.Drawing.Size(264, 190)
|
||||
Me.tbcntr.TabIndex = 127
|
||||
'
|
||||
'TabPage1
|
||||
'
|
||||
Me.TabPage1.Controls.Add(Me.UsrCntlDetails)
|
||||
Me.TabPage1.Location = New System.Drawing.Point(4, 22)
|
||||
Me.TabPage1.Name = "TabPage1"
|
||||
Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
|
||||
Me.TabPage1.Size = New System.Drawing.Size(256, 164)
|
||||
Me.TabPage1.TabIndex = 0
|
||||
Me.TabPage1.Text = "Details"
|
||||
Me.TabPage1.UseVisualStyleBackColor = True
|
||||
'
|
||||
'UsrCntlDetails
|
||||
'
|
||||
Me.UsrCntlDetails.BackColor = System.Drawing.Color.White
|
||||
Me.UsrCntlDetails.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.UsrCntlDetails.Location = New System.Drawing.Point(3, 3)
|
||||
Me.UsrCntlDetails.Name = "UsrCntlDetails"
|
||||
Me.UsrCntlDetails.Size = New System.Drawing.Size(250, 158)
|
||||
Me.UsrCntlDetails.TabIndex = 18
|
||||
'
|
||||
'TabPage2
|
||||
'
|
||||
Me.TabPage2.Controls.Add(Me.scanLieferschein)
|
||||
Me.TabPage2.Controls.Add(Me.scanSonstiges)
|
||||
Me.TabPage2.Controls.Add(Me.scanRetourniert)
|
||||
Me.TabPage2.Location = New System.Drawing.Point(4, 22)
|
||||
Me.TabPage2.Name = "TabPage2"
|
||||
Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
|
||||
Me.TabPage2.Size = New System.Drawing.Size(256, 164)
|
||||
Me.TabPage2.TabIndex = 1
|
||||
Me.TabPage2.Text = "Dokumente"
|
||||
Me.TabPage2.UseVisualStyleBackColor = True
|
||||
'
|
||||
'scanLieferschein
|
||||
'
|
||||
Me.scanLieferschein._ARCHIV = True
|
||||
Me.scanLieferschein._DATENSERVER_KATEGORIE = "DOKUMENTE"
|
||||
Me.scanLieferschein._DATENSERVER_ORDNER = "MDM"
|
||||
Me.scanLieferschein._DATENSERVER_UOrdner1 = Nothing
|
||||
Me.scanLieferschein._DATENSERVER_UOrdner2 = Nothing
|
||||
Me.scanLieferschein._DATENSERVER_UOrdner3 = Nothing
|
||||
Me.scanLieferschein._MULTI_FILES = True
|
||||
Me.scanLieferschein._TEXT_PDF = "Lieferschein"
|
||||
Me.scanLieferschein.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
|
||||
Me.scanLieferschein.BackColor = System.Drawing.Color.White
|
||||
Me.scanLieferschein.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.scanLieferschein.Cursor = System.Windows.Forms.Cursors.Default
|
||||
Me.scanLieferschein.Location = New System.Drawing.Point(3, 4)
|
||||
Me.scanLieferschein.Name = "scanLieferschein"
|
||||
Me.scanLieferschein.Size = New System.Drawing.Size(94, 24)
|
||||
Me.scanLieferschein.TabIndex = 23
|
||||
'
|
||||
'scanSonstiges
|
||||
'
|
||||
Me.scanSonstiges._DATENSERVER_KATEGORIE = "DOKUMENTE"
|
||||
Me.scanSonstiges._DATENSERVER_ORDNER = "MDM"
|
||||
Me.scanSonstiges._DATENSERVER_UOrdner1 = ""
|
||||
Me.scanSonstiges._DATENSERVER_UOrdner2 = ""
|
||||
Me.scanSonstiges._DATENSERVER_UOrdner3 = ""
|
||||
Me.scanSonstiges.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
|
||||
Me.scanSonstiges.BackColor = System.Drawing.Color.White
|
||||
Me.scanSonstiges.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.scanSonstiges.Cursor = System.Windows.Forms.Cursors.Hand
|
||||
Me.scanSonstiges.Location = New System.Drawing.Point(3, 31)
|
||||
Me.scanSonstiges.Margin = New System.Windows.Forms.Padding(0)
|
||||
Me.scanSonstiges.Name = "scanSonstiges"
|
||||
Me.scanSonstiges.Size = New System.Drawing.Size(250, 130)
|
||||
Me.scanSonstiges.TabIndex = 21
|
||||
'
|
||||
'scanRetourniert
|
||||
'
|
||||
Me.scanRetourniert._ARCHIV = True
|
||||
Me.scanRetourniert._DATENSERVER_KATEGORIE = "DOKUMENTE"
|
||||
Me.scanRetourniert._DATENSERVER_ORDNER = "MDM"
|
||||
Me.scanRetourniert._DATENSERVER_UOrdner1 = Nothing
|
||||
Me.scanRetourniert._DATENSERVER_UOrdner2 = Nothing
|
||||
Me.scanRetourniert._DATENSERVER_UOrdner3 = Nothing
|
||||
Me.scanRetourniert._MULTI_FILES = True
|
||||
Me.scanRetourniert._TEXT_PDF = "Retourniert"
|
||||
Me.scanRetourniert.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
|
||||
Me.scanRetourniert.BackColor = System.Drawing.Color.White
|
||||
Me.scanRetourniert.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.scanRetourniert.Cursor = System.Windows.Forms.Cursors.Default
|
||||
Me.scanRetourniert.Location = New System.Drawing.Point(103, 4)
|
||||
Me.scanRetourniert.Name = "scanRetourniert"
|
||||
Me.scanRetourniert.Size = New System.Drawing.Size(90, 24)
|
||||
Me.scanRetourniert.TabIndex = 20
|
||||
'
|
||||
'cbxArchiviert
|
||||
'
|
||||
Me.cbxArchiviert._date = Nothing
|
||||
Me.cbxArchiviert._showdate = True
|
||||
Me.cbxArchiviert._value = ""
|
||||
Me.cbxArchiviert.AutoSize = True
|
||||
Me.cbxArchiviert.Location = New System.Drawing.Point(333, 200)
|
||||
Me.cbxArchiviert.Name = "cbxArchiviert"
|
||||
Me.cbxArchiviert.Size = New System.Drawing.Size(91, 17)
|
||||
Me.cbxArchiviert.TabIndex = 128
|
||||
Me.cbxArchiviert.Text = "ARCHIVIERT"
|
||||
Me.cbxArchiviert.UseVisualStyleBackColor = True
|
||||
'
|
||||
'usrCntlSDLLeistungPLOSE
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.BackColor = System.Drawing.Color.White
|
||||
Me.Controls.Add(Me.cbxArchiviert)
|
||||
Me.Controls.Add(Me.tbcntr)
|
||||
Me.Controls.Add(Me.txtLieferung)
|
||||
Me.Controls.Add(Me.txtBestellung)
|
||||
Me.Controls.Add(Me.txtGueltigkeit2)
|
||||
Me.Controls.Add(Me.Label6)
|
||||
Me.Controls.Add(Me.Label7)
|
||||
Me.Controls.Add(Me.Label11)
|
||||
Me.Controls.Add(Me.txtVermerk)
|
||||
Me.Controls.Add(Me.Label4)
|
||||
Me.Controls.Add(Me.cbxGestohlen)
|
||||
Me.Controls.Add(Me.cbxVerloren)
|
||||
Me.Controls.Add(Me.cbxGesperrt)
|
||||
Me.Controls.Add(Me.cbxDefekt)
|
||||
Me.Controls.Add(Me.Panel2)
|
||||
Me.Controls.Add(Me.cbxRetourniert)
|
||||
Me.Controls.Add(Me.txtPin)
|
||||
Me.Controls.Add(Me.txtKartenNr)
|
||||
Me.Controls.Add(Me.txtOBUID)
|
||||
Me.Controls.Add(Me.Label3)
|
||||
Me.Controls.Add(Me.Label1)
|
||||
Me.Controls.Add(Me.Label9)
|
||||
Me.Name = "usrCntlSDLLeistungPLOSE"
|
||||
Me.Size = New System.Drawing.Size(760, 220)
|
||||
Me.Panel2.ResumeLayout(False)
|
||||
Me.Panel2.PerformLayout()
|
||||
Me.tbcntr.ResumeLayout(False)
|
||||
Me.TabPage1.ResumeLayout(False)
|
||||
Me.TabPage2.ResumeLayout(False)
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
Friend WithEvents cbxRetourniert As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
|
||||
Friend WithEvents txtPin As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents txtKartenNr As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents txtOBUID As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents Label3 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label1 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label9 As System.Windows.Forms.Label
|
||||
Friend WithEvents txtPLOSEKdNr As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents Label2 As System.Windows.Forms.Label
|
||||
Friend WithEvents Panel2 As System.Windows.Forms.Panel
|
||||
Friend WithEvents Label8 As System.Windows.Forms.Label
|
||||
Friend WithEvents txtVermerk As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents Label4 As System.Windows.Forms.Label
|
||||
Friend WithEvents cbxGestohlen As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
|
||||
Friend WithEvents cbxVerloren As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
|
||||
Friend WithEvents cbxGesperrt As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
|
||||
Friend WithEvents cbxDefekt As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
|
||||
Friend WithEvents txtLieferung As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents txtBestellung As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents txtGueltigkeit2 As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents Label6 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label7 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label11 As System.Windows.Forms.Label
|
||||
Friend WithEvents tbcntr As System.Windows.Forms.TabControl
|
||||
Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
|
||||
Friend WithEvents UsrCntlDetails As SDL.usrCntlAllg
|
||||
Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
|
||||
Friend WithEvents scanSonstiges As VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList
|
||||
Friend WithEvents scanRetourniert As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan
|
||||
Friend WithEvents scanLieferschein As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan
|
||||
Friend WithEvents cbxArchiviert As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
|
||||
|
||||
End Class
|
||||
120
SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungPLOSE.resx
Normal file
120
SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungPLOSE.resx
Normal file
@@ -0,0 +1,120 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
</root>
|
||||
205
SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungPLOSE.vb
Normal file
205
SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungPLOSE.vb
Normal file
@@ -0,0 +1,205 @@
|
||||
|
||||
Imports System.Globalization
|
||||
|
||||
Public Class usrCntlSDLLeistungPLOSE
|
||||
Public KfzKennzeichen As String
|
||||
Public SDLNr As String
|
||||
Public kdNr As String
|
||||
Dim PROG As New cProgramFunctions
|
||||
Dim kundenSQL As New kundenSQL
|
||||
Public History As String
|
||||
|
||||
Dim culture As CultureInfo = New CultureInfo("de-DE")
|
||||
Private PartnerKdNrFromFMZOLL As cPartnerKdNRFMZoll
|
||||
Public addnew As Boolean = False
|
||||
Dim VAL As New cValidationSDLLeistungen
|
||||
Public Event LKWChanged(kdNr, newKfz, SDLNr, History)
|
||||
Public Event CHANGED(kdNr, newKfz, SDLNr, History)
|
||||
'Public WithEvents s As New cBinding 'fürs Binding
|
||||
Public SDL As cSDL
|
||||
Dim boud = False
|
||||
|
||||
|
||||
Sub New(kdNr, KfzKennzeichen, SDLNr, History)
|
||||
|
||||
' Dieser Aufruf ist für den Designer erforderlich.
|
||||
InitializeComponent()
|
||||
|
||||
Me.kdNr = kdNr
|
||||
Me.KfzKennzeichen = KfzKennzeichen
|
||||
Me.SDLNr = SDLNr
|
||||
Me.History = History
|
||||
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub usrCntlLKW_Disposed(sender As Object, e As EventArgs) Handles Me.Disposed
|
||||
'MsgBox("disp")
|
||||
End Sub
|
||||
|
||||
Private Sub usrCntlSDLLeistungenCZ_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
|
||||
UsrCntlDetails.kdNr = kdNr
|
||||
UsrCntlDetails.SDLNr = SDLNr
|
||||
UsrCntlDetails.History = History
|
||||
UsrCntlDetails.lblLKWNr.Text = KfzKennzeichen
|
||||
AddHandler UsrCntlDetails.LKWChanged, Sub(newKfz)
|
||||
RaiseEvent LKWChanged(kdNr, newKfz, SDLNr, History)
|
||||
End Sub
|
||||
|
||||
'Scan-Elemente initialisieren:
|
||||
scanLieferschein.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
|
||||
scanRetourniert.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
|
||||
scanSonstiges.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
|
||||
|
||||
initDataBinding()
|
||||
boud = True
|
||||
|
||||
If txtPLOSEKdNr.Text = "" Then
|
||||
getPartnerKdNrFromFMZOLL() ' Lädt die Partner-KdNr
|
||||
txtPLOSEKdNr.Text = PartnerKdNrFromFMZOLL.PLOSE_KundenNr
|
||||
End If
|
||||
' If txtMSEKdNr.Text = "" Then
|
||||
' getPartnerKdNrFromFMZOLL() ' Lädt die Partner-KdNr
|
||||
' txtMSEKdNr.Text = PartnerKdNrFromFMZOLL.MSEKundenNr
|
||||
' End If
|
||||
|
||||
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then
|
||||
cProgramFunctions.setControlReadOnly(Me)
|
||||
End If
|
||||
End Sub
|
||||
Sub getPartnerKdNrFromFMZOLL() ' Lädt die Partner-KdNr
|
||||
PartnerKdNrFromFMZOLL = kundenSQL.getPartnerKdNrFromFMZOLL(kdNr)
|
||||
End Sub
|
||||
|
||||
|
||||
Function gueltigBisabgelaufen(o) As Boolean
|
||||
If CDate(o) > Now Then
|
||||
Return False
|
||||
End If
|
||||
Return True
|
||||
End Function
|
||||
|
||||
Sub initDataBinding()
|
||||
Try
|
||||
SDL = New cSDL(kdNr, KfzKennzeichen, SDLNr, History)
|
||||
|
||||
PROG.initDTPE(txtLieferung)
|
||||
PROG.initDTPE(txtBestellung)
|
||||
'PROG.initDTPE(txtGueltigkeit2)
|
||||
|
||||
txtLieferung._value = SDL.Lieferdatum
|
||||
txtBestellung._value = SDL.Bestelldatum
|
||||
' txtGueltigkeit2._value = SDL.GültigBis
|
||||
|
||||
cbxRetourniert._date = SDL.RetourniertAm
|
||||
cbxVerloren._date = SDL.VerlorenAm
|
||||
cbxGestohlen._date = SDL.GestohlenAm
|
||||
cbxGesperrt._date = SDL.GesperrtAm
|
||||
cbxDefekt._date = SDL.DefektAm
|
||||
|
||||
cbxGesperrt.Checked = SDL.Gesperrt
|
||||
cbxDefekt.Checked = SDL.Defekt
|
||||
cbxGestohlen.Checked = SDL.Gestohlen
|
||||
cbxVerloren.Checked = SDL.Verloren
|
||||
cbxArchiviert.Checked = SDL.Archiviert
|
||||
|
||||
cbxRetourniert.Checked = SDL.Retourniert
|
||||
|
||||
txtVermerk.Text = SDL.Vermerk
|
||||
|
||||
UsrCntlDetails.lblErfassung.Text = SDL.Erfassungsdatum
|
||||
UsrCntlDetails.lblAenderung.Text = SDL.Änderungsdatum
|
||||
UsrCntlDetails.lblSachbearb.Text = SDL.Sachbearbeiter
|
||||
|
||||
' txtPLOSEKdNr.Text = SDL.MSE_Kd_Nr
|
||||
txtOBUID.Text = SDL.OBUID
|
||||
txtKartenNr.Text = SDL.KartenNr
|
||||
txtPin.Text = SDL.PIN
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
MsgBox(ex.StackTrace)
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Public Sub newEntry()
|
||||
' s.updateBinding()
|
||||
' s.newEntry(kdNr, KfzKennzeichen, SDLNr) 'NEUER EINTRAG!
|
||||
If txtBestellung.Text = "" Then txtBestellung.Text = Now.ToShortDateString
|
||||
End Sub
|
||||
|
||||
Sub BindingTableColumnChanged()
|
||||
UsrCntlDetails.lblSachbearb.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
|
||||
UsrCntlDetails.lblAenderung.Text = Now.ToString("dd.MM.yyyy HH:mm")
|
||||
' If e.Column.ColumnName = "Sachbearbeiter" Or e.Column.ColumnName = "Änderungsdatum" Then Exit Sub
|
||||
If save() Then RaiseEvent CHANGED(kdNr, KfzKennzeichen, SDLNr, History)
|
||||
End Sub
|
||||
|
||||
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs)
|
||||
Dim valid As Boolean = VAL.checkValidDate(sender, True)
|
||||
End Sub
|
||||
|
||||
Public Function save() As Boolean
|
||||
loadDataInClass()
|
||||
Return SDL.SAVE
|
||||
'If checkSave() Then
|
||||
' Return kundenSQL.doSQLByList(s.bindingSource)
|
||||
'End If
|
||||
Return False
|
||||
End Function
|
||||
|
||||
Sub loadDataInClass()
|
||||
SDL.Lieferdatum = PROG.isEmptyNull(txtLieferung._value)
|
||||
SDL.Bestelldatum = PROG.isEmptyNull(txtBestellung._value)
|
||||
' SDL.GültigBis = PROG.isEmptyNull(txtGueltigkeit2._value)
|
||||
SDL.Gesperrt = cbxGesperrt.Checked
|
||||
SDL.Defekt = cbxDefekt.Checked
|
||||
SDL.Gestohlen = cbxGestohlen.Checked
|
||||
SDL.Verloren = cbxVerloren.Checked
|
||||
SDL.Retourniert = cbxRetourniert.Checked
|
||||
SDL.Vermerk = txtVermerk.Text
|
||||
SDL.Erfassungsdatum = UsrCntlDetails.lblErfassung.Text
|
||||
SDL.Änderungsdatum = UsrCntlDetails.lblAenderung.Text
|
||||
SDL.Sachbearbeiter = UsrCntlDetails.lblSachbearb.Text
|
||||
'SDL. = txtPLOSEKdNr.Text
|
||||
SDL.OBUID = txtOBUID.Text
|
||||
SDL.KartenNr = txtKartenNr.Text
|
||||
SDL.PIN = txtPin.Text
|
||||
|
||||
SDL.RetourniertAm = cbxRetourniert._date
|
||||
SDL.VerlorenAm = cbxVerloren._date
|
||||
SDL.GestohlenAm = cbxGestohlen._date
|
||||
SDL.GesperrtAm = cbxGesperrt._date
|
||||
SDL.DefektAm = cbxDefekt._date
|
||||
SDL.Archiviert = cbxArchiviert.Checked
|
||||
End Sub
|
||||
|
||||
Function checkSave() As Boolean
|
||||
' If Not VAL.checkValidDate(txtBestellung, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Bestelldatum: Datumsformat nicht korrekt!", 3) : Return False
|
||||
' If Not VAL.checkValidDate(txtLieferung, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Lieferdatum: Datumsformat nicht korrekt!", 3) : Return False
|
||||
' If Not VAL.checkValidDate(txtGueltigkeit, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Gültigkeitsdatum: Datumsformat nicht korrekt!", 3) : Return False
|
||||
Return True
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Private Sub txtBestellung_TextChanged(sender As Object, e As EventArgs) Handles txtBestellung.PropertyChanged, txtLieferung.PropertyChanged, txtPLOSEKdNr.TextChanged, txtOBUID.TextChanged, txtKartenNr.TextChanged, txtPin.TextChanged, txtVermerk.TextChanged, cbxDefekt.CheckedChanged, cbxVerloren.CheckedChanged, cbxGestohlen.CheckedChanged, cbxGesperrt.CheckedChanged, cbxRetourniert.CheckedChanged, cbxArchiviert.CheckedChanged ' txtGueltigkeit2.PropertyChanged,
|
||||
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then Exit Sub
|
||||
|
||||
If boud And Me.FindForm IsNot Nothing Then
|
||||
If sender Is txtLieferung Then
|
||||
If Not PROG.checkSDLNrPartnerKdNr(kdNr, SDLNr) Then MsgBox("Bitte geben Sie die Partner-Kundennummer im Kundenblatt oder im FM-ZOLL ein!")
|
||||
End If
|
||||
BindingTableColumnChanged()
|
||||
End If
|
||||
End Sub
|
||||
Function addTxtToVermerk(tmp, txt) As String
|
||||
If txtVermerk.Text <> "" Then tmp &= " / "
|
||||
tmp &= txt & ", am " & Now.ToShortDateString
|
||||
If tmp.Length > txtVermerk.MaxLength Then tmp = tmp.Substring(0, txtVermerk.MaxLength)
|
||||
Return tmp
|
||||
End Function
|
||||
End Class
|
||||
509
SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenPLOSE_CZ.Designer.vb
generated
Normal file
509
SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenPLOSE_CZ.Designer.vb
generated
Normal file
@@ -0,0 +1,509 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
|
||||
Partial Class usrCntlSDLLeistungenPLOSE_CZ
|
||||
Inherits System.Windows.Forms.UserControl
|
||||
|
||||
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
|
||||
<System.Diagnostics.DebuggerNonUserCode()>
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Wird vom Windows Form-Designer benötigt.
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
|
||||
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
|
||||
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
||||
<System.Diagnostics.DebuggerStepThrough()>
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.cbxRetourniert = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
|
||||
Me.Label9 = New System.Windows.Forms.Label()
|
||||
Me.Label12 = New System.Windows.Forms.Label()
|
||||
Me.Label10 = New System.Windows.Forms.Label()
|
||||
Me.txtPLOSEKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.txtVermerk = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.txtOBUID = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.txtKartenNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.Panel2 = New System.Windows.Forms.Panel()
|
||||
Me.Label8 = New System.Windows.Forms.Label()
|
||||
Me.cbxGestohlen = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
|
||||
Me.cbxVerloren = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
|
||||
Me.cbxGesperrt = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
|
||||
Me.cbxDefekt = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
|
||||
Me.txtLieferung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.txtBestellung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.Label6 = New System.Windows.Forms.Label()
|
||||
Me.Label7 = New System.Windows.Forms.Label()
|
||||
Me.tbcntr = New System.Windows.Forms.TabControl()
|
||||
Me.TabPage1 = New System.Windows.Forms.TabPage()
|
||||
Me.UsrCntlDetails = New SDL.usrCntlAllg()
|
||||
Me.TabPage2 = New System.Windows.Forms.TabPage()
|
||||
Me.scanBestellung = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
|
||||
Me.scanSonstiges = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
|
||||
Me.scanRetourniert = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
|
||||
Me.cbxArchiviert = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
|
||||
Me.Panel2.SuspendLayout()
|
||||
Me.tbcntr.SuspendLayout()
|
||||
Me.TabPage1.SuspendLayout()
|
||||
Me.TabPage2.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.AutoSize = True
|
||||
Me.Label1.ForeColor = System.Drawing.Color.White
|
||||
Me.Label1.Location = New System.Drawing.Point(462, 9)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(99, 13)
|
||||
Me.Label1.TabIndex = 14
|
||||
Me.Label1.Text = "PLOSE-Kunden-Nr:"
|
||||
'
|
||||
'cbxRetourniert
|
||||
'
|
||||
Me.cbxRetourniert._date = Nothing
|
||||
Me.cbxRetourniert._showdate = True
|
||||
Me.cbxRetourniert._value = ""
|
||||
Me.cbxRetourniert.AutoSize = True
|
||||
Me.cbxRetourniert.Location = New System.Drawing.Point(333, 64)
|
||||
Me.cbxRetourniert.Name = "cbxRetourniert"
|
||||
Me.cbxRetourniert.Size = New System.Drawing.Size(78, 17)
|
||||
Me.cbxRetourniert.TabIndex = 5
|
||||
Me.cbxRetourniert.Text = "Retourniert"
|
||||
Me.cbxRetourniert.UseVisualStyleBackColor = True
|
||||
'
|
||||
'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(3, 104)
|
||||
Me.Label9.Name = "Label9"
|
||||
Me.Label9.Size = New System.Drawing.Size(65, 13)
|
||||
Me.Label9.TabIndex = 9
|
||||
Me.Label9.Text = "Karten-Nr:"
|
||||
'
|
||||
'Label12
|
||||
'
|
||||
Me.Label12.AutoSize = True
|
||||
Me.Label12.Location = New System.Drawing.Point(3, 165)
|
||||
Me.Label12.Name = "Label12"
|
||||
Me.Label12.Size = New System.Drawing.Size(49, 13)
|
||||
Me.Label12.TabIndex = 18
|
||||
Me.Label12.Text = "Vermerk:"
|
||||
'
|
||||
'Label10
|
||||
'
|
||||
Me.Label10.AutoSize = True
|
||||
Me.Label10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label10.Location = New System.Drawing.Point(3, 129)
|
||||
Me.Label10.Name = "Label10"
|
||||
Me.Label10.Size = New System.Drawing.Size(54, 13)
|
||||
Me.Label10.TabIndex = 12
|
||||
Me.Label10.Text = "OBU-ID:"
|
||||
Me.Label10.Visible = False
|
||||
'
|
||||
'txtPLOSEKdNr
|
||||
'
|
||||
Me.txtPLOSEKdNr._DateTimeOnly = False
|
||||
Me.txtPLOSEKdNr._numbersOnly = True
|
||||
Me.txtPLOSEKdNr._numbersOnlyKommastellen = ""
|
||||
Me.txtPLOSEKdNr._Prozent = False
|
||||
Me.txtPLOSEKdNr._ShortDateNew = False
|
||||
Me.txtPLOSEKdNr._ShortDateOnly = False
|
||||
Me.txtPLOSEKdNr._TimeOnly = False
|
||||
Me.txtPLOSEKdNr._value = ""
|
||||
Me.txtPLOSEKdNr._Waehrung = False
|
||||
Me.txtPLOSEKdNr._WaehrungZeichen = True
|
||||
Me.txtPLOSEKdNr.Location = New System.Drawing.Point(574, 6)
|
||||
Me.txtPLOSEKdNr.MaxLineLength = -1
|
||||
Me.txtPLOSEKdNr.MaxLines_Warning = ""
|
||||
Me.txtPLOSEKdNr.MaxLines_Warning_Label = Nothing
|
||||
Me.txtPLOSEKdNr.Name = "txtPLOSEKdNr"
|
||||
Me.txtPLOSEKdNr.Size = New System.Drawing.Size(183, 20)
|
||||
Me.txtPLOSEKdNr.TabIndex = 15
|
||||
'
|
||||
'txtVermerk
|
||||
'
|
||||
Me.txtVermerk._DateTimeOnly = False
|
||||
Me.txtVermerk._numbersOnly = False
|
||||
Me.txtVermerk._numbersOnlyKommastellen = ""
|
||||
Me.txtVermerk._Prozent = False
|
||||
Me.txtVermerk._ShortDateNew = False
|
||||
Me.txtVermerk._ShortDateOnly = False
|
||||
Me.txtVermerk._TimeOnly = False
|
||||
Me.txtVermerk._value = Nothing
|
||||
Me.txtVermerk._Waehrung = False
|
||||
Me.txtVermerk._WaehrungZeichen = True
|
||||
Me.txtVermerk.Location = New System.Drawing.Point(106, 162)
|
||||
Me.txtVermerk.MaxLength = 100
|
||||
Me.txtVermerk.MaxLineLength = -1
|
||||
Me.txtVermerk.MaxLines_Warning = ""
|
||||
Me.txtVermerk.MaxLines_Warning_Label = Nothing
|
||||
Me.txtVermerk.Multiline = True
|
||||
Me.txtVermerk.Name = "txtVermerk"
|
||||
Me.txtVermerk.Size = New System.Drawing.Size(183, 55)
|
||||
Me.txtVermerk.TabIndex = 4
|
||||
'
|
||||
'txtOBUID
|
||||
'
|
||||
Me.txtOBUID._DateTimeOnly = False
|
||||
Me.txtOBUID._numbersOnly = False
|
||||
Me.txtOBUID._numbersOnlyKommastellen = ""
|
||||
Me.txtOBUID._Prozent = False
|
||||
Me.txtOBUID._ShortDateNew = False
|
||||
Me.txtOBUID._ShortDateOnly = False
|
||||
Me.txtOBUID._TimeOnly = False
|
||||
Me.txtOBUID._value = Nothing
|
||||
Me.txtOBUID._Waehrung = False
|
||||
Me.txtOBUID._WaehrungZeichen = True
|
||||
Me.txtOBUID.Location = New System.Drawing.Point(106, 126)
|
||||
Me.txtOBUID.MaxLength = 18
|
||||
Me.txtOBUID.MaxLineLength = -1
|
||||
Me.txtOBUID.MaxLines_Warning = ""
|
||||
Me.txtOBUID.MaxLines_Warning_Label = Nothing
|
||||
Me.txtOBUID.Name = "txtOBUID"
|
||||
Me.txtOBUID.Size = New System.Drawing.Size(183, 20)
|
||||
Me.txtOBUID.TabIndex = 3
|
||||
Me.txtOBUID.Visible = False
|
||||
'
|
||||
'txtKartenNr
|
||||
'
|
||||
Me.txtKartenNr._DateTimeOnly = False
|
||||
Me.txtKartenNr._numbersOnly = False
|
||||
Me.txtKartenNr._numbersOnlyKommastellen = ""
|
||||
Me.txtKartenNr._Prozent = False
|
||||
Me.txtKartenNr._ShortDateNew = False
|
||||
Me.txtKartenNr._ShortDateOnly = False
|
||||
Me.txtKartenNr._TimeOnly = False
|
||||
Me.txtKartenNr._value = Nothing
|
||||
Me.txtKartenNr._Waehrung = False
|
||||
Me.txtKartenNr._WaehrungZeichen = True
|
||||
Me.txtKartenNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.txtKartenNr.Location = New System.Drawing.Point(106, 99)
|
||||
Me.txtKartenNr.MaxLength = 22
|
||||
Me.txtKartenNr.MaxLineLength = -1
|
||||
Me.txtKartenNr.MaxLines_Warning = ""
|
||||
Me.txtKartenNr.MaxLines_Warning_Label = Nothing
|
||||
Me.txtKartenNr.Name = "txtKartenNr"
|
||||
Me.txtKartenNr.Size = New System.Drawing.Size(183, 23)
|
||||
Me.txtKartenNr.TabIndex = 2
|
||||
'
|
||||
'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.txtPLOSEKdNr)
|
||||
Me.Panel2.Controls.Add(Me.Label8)
|
||||
Me.Panel2.Controls.Add(Me.Label1)
|
||||
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(760, 30)
|
||||
Me.Panel2.TabIndex = 20
|
||||
'
|
||||
'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.ForeColor = System.Drawing.Color.White
|
||||
Me.Label8.Location = New System.Drawing.Point(6, 9)
|
||||
Me.Label8.Name = "Label8"
|
||||
Me.Label8.Size = New System.Drawing.Size(114, 13)
|
||||
Me.Label8.TabIndex = 14
|
||||
Me.Label8.Text = "MAUT CZ - PLOSE"
|
||||
'
|
||||
'cbxGestohlen
|
||||
'
|
||||
Me.cbxGestohlen._date = Nothing
|
||||
Me.cbxGestohlen._showdate = True
|
||||
Me.cbxGestohlen._value = ""
|
||||
Me.cbxGestohlen.AutoSize = True
|
||||
Me.cbxGestohlen.Location = New System.Drawing.Point(333, 135)
|
||||
Me.cbxGestohlen.Name = "cbxGestohlen"
|
||||
Me.cbxGestohlen.Size = New System.Drawing.Size(74, 17)
|
||||
Me.cbxGestohlen.TabIndex = 7
|
||||
Me.cbxGestohlen.Text = "Gestohlen"
|
||||
Me.cbxGestohlen.UseVisualStyleBackColor = True
|
||||
'
|
||||
'cbxVerloren
|
||||
'
|
||||
Me.cbxVerloren._date = Nothing
|
||||
Me.cbxVerloren._showdate = True
|
||||
Me.cbxVerloren._value = ""
|
||||
Me.cbxVerloren.AutoSize = True
|
||||
Me.cbxVerloren.Location = New System.Drawing.Point(333, 112)
|
||||
Me.cbxVerloren.Name = "cbxVerloren"
|
||||
Me.cbxVerloren.Size = New System.Drawing.Size(65, 17)
|
||||
Me.cbxVerloren.TabIndex = 6
|
||||
Me.cbxVerloren.Text = "Verloren"
|
||||
Me.cbxVerloren.UseVisualStyleBackColor = True
|
||||
'
|
||||
'cbxGesperrt
|
||||
'
|
||||
Me.cbxGesperrt._date = Nothing
|
||||
Me.cbxGesperrt._showdate = True
|
||||
Me.cbxGesperrt._value = ""
|
||||
Me.cbxGesperrt.AutoSize = True
|
||||
Me.cbxGesperrt.Location = New System.Drawing.Point(333, 156)
|
||||
Me.cbxGesperrt.Name = "cbxGesperrt"
|
||||
Me.cbxGesperrt.Size = New System.Drawing.Size(66, 17)
|
||||
Me.cbxGesperrt.TabIndex = 8
|
||||
Me.cbxGesperrt.Text = "Gesperrt"
|
||||
Me.cbxGesperrt.UseVisualStyleBackColor = True
|
||||
'
|
||||
'cbxDefekt
|
||||
'
|
||||
Me.cbxDefekt._date = Nothing
|
||||
Me.cbxDefekt._showdate = True
|
||||
Me.cbxDefekt._value = ""
|
||||
Me.cbxDefekt.AutoSize = True
|
||||
Me.cbxDefekt.Location = New System.Drawing.Point(333, 178)
|
||||
Me.cbxDefekt.Name = "cbxDefekt"
|
||||
Me.cbxDefekt.Size = New System.Drawing.Size(58, 17)
|
||||
Me.cbxDefekt.TabIndex = 9
|
||||
Me.cbxDefekt.Text = "Defekt"
|
||||
Me.cbxDefekt.UseVisualStyleBackColor = True
|
||||
'
|
||||
'txtLieferung
|
||||
'
|
||||
Me.txtLieferung._DateTimeOnly = False
|
||||
Me.txtLieferung._numbersOnly = False
|
||||
Me.txtLieferung._numbersOnlyKommastellen = ""
|
||||
Me.txtLieferung._Prozent = False
|
||||
Me.txtLieferung._ShortDateNew = True
|
||||
Me.txtLieferung._ShortDateOnly = False
|
||||
Me.txtLieferung._TimeOnly = False
|
||||
Me.txtLieferung._value = ""
|
||||
Me.txtLieferung._Waehrung = False
|
||||
Me.txtLieferung._WaehrungZeichen = True
|
||||
Me.txtLieferung.ForeColor = System.Drawing.Color.Red
|
||||
Me.txtLieferung.Location = New System.Drawing.Point(105, 62)
|
||||
Me.txtLieferung.MaxLength = 10
|
||||
Me.txtLieferung.MaxLineLength = -1
|
||||
Me.txtLieferung.MaxLines_Warning = ""
|
||||
Me.txtLieferung.MaxLines_Warning_Label = Nothing
|
||||
Me.txtLieferung.Name = "txtLieferung"
|
||||
Me.txtLieferung.Size = New System.Drawing.Size(74, 20)
|
||||
Me.txtLieferung.TabIndex = 1
|
||||
'
|
||||
'txtBestellung
|
||||
'
|
||||
Me.txtBestellung._DateTimeOnly = False
|
||||
Me.txtBestellung._numbersOnly = False
|
||||
Me.txtBestellung._numbersOnlyKommastellen = ""
|
||||
Me.txtBestellung._Prozent = False
|
||||
Me.txtBestellung._ShortDateNew = True
|
||||
Me.txtBestellung._ShortDateOnly = False
|
||||
Me.txtBestellung._TimeOnly = False
|
||||
Me.txtBestellung._value = ""
|
||||
Me.txtBestellung._Waehrung = False
|
||||
Me.txtBestellung._WaehrungZeichen = True
|
||||
Me.txtBestellung.ForeColor = System.Drawing.Color.Red
|
||||
Me.txtBestellung.Location = New System.Drawing.Point(105, 36)
|
||||
Me.txtBestellung.MaxLength = 10
|
||||
Me.txtBestellung.MaxLineLength = -1
|
||||
Me.txtBestellung.MaxLines_Warning = ""
|
||||
Me.txtBestellung.MaxLines_Warning_Label = Nothing
|
||||
Me.txtBestellung.Name = "txtBestellung"
|
||||
Me.txtBestellung.Size = New System.Drawing.Size(74, 20)
|
||||
Me.txtBestellung.TabIndex = 0
|
||||
'
|
||||
'Label6
|
||||
'
|
||||
Me.Label6.AutoSize = True
|
||||
Me.Label6.Location = New System.Drawing.Point(2, 65)
|
||||
Me.Label6.Name = "Label6"
|
||||
Me.Label6.Size = New System.Drawing.Size(65, 13)
|
||||
Me.Label6.TabIndex = 85
|
||||
Me.Label6.Text = "Lieferdatum:"
|
||||
'
|
||||
'Label7
|
||||
'
|
||||
Me.Label7.AutoSize = True
|
||||
Me.Label7.Location = New System.Drawing.Point(2, 39)
|
||||
Me.Label7.Name = "Label7"
|
||||
Me.Label7.Size = New System.Drawing.Size(70, 13)
|
||||
Me.Label7.TabIndex = 84
|
||||
Me.Label7.Text = "Bestelldatum:"
|
||||
'
|
||||
'tbcntr
|
||||
'
|
||||
Me.tbcntr.Controls.Add(Me.TabPage1)
|
||||
Me.tbcntr.Controls.Add(Me.TabPage2)
|
||||
Me.tbcntr.Dock = System.Windows.Forms.DockStyle.Right
|
||||
Me.tbcntr.Location = New System.Drawing.Point(496, 30)
|
||||
Me.tbcntr.Name = "tbcntr"
|
||||
Me.tbcntr.SelectedIndex = 0
|
||||
Me.tbcntr.Size = New System.Drawing.Size(264, 190)
|
||||
Me.tbcntr.TabIndex = 89
|
||||
'
|
||||
'TabPage1
|
||||
'
|
||||
Me.TabPage1.Controls.Add(Me.UsrCntlDetails)
|
||||
Me.TabPage1.Location = New System.Drawing.Point(4, 22)
|
||||
Me.TabPage1.Name = "TabPage1"
|
||||
Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
|
||||
Me.TabPage1.Size = New System.Drawing.Size(256, 164)
|
||||
Me.TabPage1.TabIndex = 0
|
||||
Me.TabPage1.Text = "Details"
|
||||
Me.TabPage1.UseVisualStyleBackColor = True
|
||||
'
|
||||
'UsrCntlDetails
|
||||
'
|
||||
Me.UsrCntlDetails.BackColor = System.Drawing.Color.White
|
||||
Me.UsrCntlDetails.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.UsrCntlDetails.Location = New System.Drawing.Point(3, 3)
|
||||
Me.UsrCntlDetails.Name = "UsrCntlDetails"
|
||||
Me.UsrCntlDetails.Size = New System.Drawing.Size(250, 158)
|
||||
Me.UsrCntlDetails.TabIndex = 18
|
||||
'
|
||||
'TabPage2
|
||||
'
|
||||
Me.TabPage2.Controls.Add(Me.scanBestellung)
|
||||
Me.TabPage2.Controls.Add(Me.scanSonstiges)
|
||||
Me.TabPage2.Controls.Add(Me.scanRetourniert)
|
||||
Me.TabPage2.Location = New System.Drawing.Point(4, 22)
|
||||
Me.TabPage2.Name = "TabPage2"
|
||||
Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
|
||||
Me.TabPage2.Size = New System.Drawing.Size(256, 164)
|
||||
Me.TabPage2.TabIndex = 1
|
||||
Me.TabPage2.Text = "Dokumente"
|
||||
Me.TabPage2.UseVisualStyleBackColor = True
|
||||
'
|
||||
'scanBestellung
|
||||
'
|
||||
Me.scanBestellung._ARCHIV = True
|
||||
Me.scanBestellung._DATENSERVER_KATEGORIE = "DOKUMENTE"
|
||||
Me.scanBestellung._DATENSERVER_ORDNER = "MDM"
|
||||
Me.scanBestellung._DATENSERVER_UOrdner1 = Nothing
|
||||
Me.scanBestellung._DATENSERVER_UOrdner2 = Nothing
|
||||
Me.scanBestellung._DATENSERVER_UOrdner3 = Nothing
|
||||
Me.scanBestellung._MULTI_FILES = True
|
||||
Me.scanBestellung._TEXT_PDF = "Bestellung"
|
||||
Me.scanBestellung.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
|
||||
Me.scanBestellung.BackColor = System.Drawing.Color.White
|
||||
Me.scanBestellung.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.scanBestellung.Cursor = System.Windows.Forms.Cursors.Default
|
||||
Me.scanBestellung.Location = New System.Drawing.Point(3, 4)
|
||||
Me.scanBestellung.Name = "scanBestellung"
|
||||
Me.scanBestellung.Size = New System.Drawing.Size(91, 24)
|
||||
Me.scanBestellung.TabIndex = 22
|
||||
'
|
||||
'scanSonstiges
|
||||
'
|
||||
Me.scanSonstiges._DATENSERVER_KATEGORIE = "DOKUMENTE"
|
||||
Me.scanSonstiges._DATENSERVER_ORDNER = "MDM"
|
||||
Me.scanSonstiges._DATENSERVER_UOrdner1 = ""
|
||||
Me.scanSonstiges._DATENSERVER_UOrdner2 = ""
|
||||
Me.scanSonstiges._DATENSERVER_UOrdner3 = ""
|
||||
Me.scanSonstiges.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
|
||||
Me.scanSonstiges.BackColor = System.Drawing.Color.White
|
||||
Me.scanSonstiges.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.scanSonstiges.Cursor = System.Windows.Forms.Cursors.Hand
|
||||
Me.scanSonstiges.Location = New System.Drawing.Point(3, 31)
|
||||
Me.scanSonstiges.Margin = New System.Windows.Forms.Padding(0)
|
||||
Me.scanSonstiges.Name = "scanSonstiges"
|
||||
Me.scanSonstiges.Size = New System.Drawing.Size(250, 130)
|
||||
Me.scanSonstiges.TabIndex = 21
|
||||
'
|
||||
'scanRetourniert
|
||||
'
|
||||
Me.scanRetourniert._ARCHIV = True
|
||||
Me.scanRetourniert._DATENSERVER_KATEGORIE = "DOKUMENTE"
|
||||
Me.scanRetourniert._DATENSERVER_ORDNER = "MDM"
|
||||
Me.scanRetourniert._DATENSERVER_UOrdner1 = Nothing
|
||||
Me.scanRetourniert._DATENSERVER_UOrdner2 = Nothing
|
||||
Me.scanRetourniert._DATENSERVER_UOrdner3 = Nothing
|
||||
Me.scanRetourniert._MULTI_FILES = True
|
||||
Me.scanRetourniert._TEXT_PDF = "Retourniert"
|
||||
Me.scanRetourniert.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
|
||||
Me.scanRetourniert.BackColor = System.Drawing.Color.White
|
||||
Me.scanRetourniert.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.scanRetourniert.Cursor = System.Windows.Forms.Cursors.Default
|
||||
Me.scanRetourniert.Location = New System.Drawing.Point(100, 4)
|
||||
Me.scanRetourniert.Name = "scanRetourniert"
|
||||
Me.scanRetourniert.Size = New System.Drawing.Size(90, 24)
|
||||
Me.scanRetourniert.TabIndex = 20
|
||||
'
|
||||
'cbxArchiviert
|
||||
'
|
||||
Me.cbxArchiviert._date = Nothing
|
||||
Me.cbxArchiviert._showdate = True
|
||||
Me.cbxArchiviert._value = ""
|
||||
Me.cbxArchiviert.AutoSize = True
|
||||
Me.cbxArchiviert.Location = New System.Drawing.Point(333, 201)
|
||||
Me.cbxArchiviert.Name = "cbxArchiviert"
|
||||
Me.cbxArchiviert.Size = New System.Drawing.Size(91, 17)
|
||||
Me.cbxArchiviert.TabIndex = 90
|
||||
Me.cbxArchiviert.Text = "ARCHIVIERT"
|
||||
Me.cbxArchiviert.UseVisualStyleBackColor = True
|
||||
'
|
||||
'usrCntlSDLLeistungenPLOSE_CZ
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.BackColor = System.Drawing.Color.White
|
||||
Me.Controls.Add(Me.cbxArchiviert)
|
||||
Me.Controls.Add(Me.tbcntr)
|
||||
Me.Controls.Add(Me.txtLieferung)
|
||||
Me.Controls.Add(Me.txtBestellung)
|
||||
Me.Controls.Add(Me.Label6)
|
||||
Me.Controls.Add(Me.Label7)
|
||||
Me.Controls.Add(Me.cbxGestohlen)
|
||||
Me.Controls.Add(Me.cbxVerloren)
|
||||
Me.Controls.Add(Me.cbxGesperrt)
|
||||
Me.Controls.Add(Me.cbxDefekt)
|
||||
Me.Controls.Add(Me.Panel2)
|
||||
Me.Controls.Add(Me.txtVermerk)
|
||||
Me.Controls.Add(Me.txtOBUID)
|
||||
Me.Controls.Add(Me.txtKartenNr)
|
||||
Me.Controls.Add(Me.cbxRetourniert)
|
||||
Me.Controls.Add(Me.Label9)
|
||||
Me.Controls.Add(Me.Label12)
|
||||
Me.Controls.Add(Me.Label10)
|
||||
Me.Name = "usrCntlSDLLeistungenPLOSE_CZ"
|
||||
Me.Size = New System.Drawing.Size(760, 220)
|
||||
Me.Panel2.ResumeLayout(False)
|
||||
Me.Panel2.PerformLayout()
|
||||
Me.tbcntr.ResumeLayout(False)
|
||||
Me.TabPage1.ResumeLayout(False)
|
||||
Me.TabPage2.ResumeLayout(False)
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
Friend WithEvents txtPLOSEKdNr As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents Label1 As System.Windows.Forms.Label
|
||||
Friend WithEvents txtVermerk As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents txtOBUID As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents txtKartenNr As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents cbxRetourniert As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
|
||||
Friend WithEvents Label9 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label12 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label10 As System.Windows.Forms.Label
|
||||
Friend WithEvents Panel2 As System.Windows.Forms.Panel
|
||||
Friend WithEvents Label8 As System.Windows.Forms.Label
|
||||
Friend WithEvents cbxGestohlen As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
|
||||
Friend WithEvents cbxVerloren As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
|
||||
Friend WithEvents cbxGesperrt As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
|
||||
Friend WithEvents cbxDefekt As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
|
||||
Friend WithEvents txtLieferung As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents txtBestellung As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents Label6 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label7 As System.Windows.Forms.Label
|
||||
Friend WithEvents tbcntr As System.Windows.Forms.TabControl
|
||||
Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
|
||||
Friend WithEvents UsrCntlDetails As SDL.usrCntlAllg
|
||||
Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
|
||||
Friend WithEvents scanSonstiges As VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList
|
||||
Friend WithEvents scanRetourniert As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan
|
||||
Friend WithEvents scanBestellung As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan
|
||||
Friend WithEvents cbxArchiviert As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
|
||||
|
||||
End Class
|
||||
120
SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenPLOSE_CZ.resx
Normal file
120
SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenPLOSE_CZ.resx
Normal file
@@ -0,0 +1,120 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
</root>
|
||||
213
SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenPLOSE_CZ.vb
Normal file
213
SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenPLOSE_CZ.vb
Normal file
@@ -0,0 +1,213 @@
|
||||
Imports System.Globalization
|
||||
|
||||
Public Class usrCntlSDLLeistungenPLOSE_CZ
|
||||
Public KfzKennzeichen As String
|
||||
Public SDLNr As String
|
||||
Public kdNr As String
|
||||
Public History As String
|
||||
Dim kundenSQL As New kundenSQL
|
||||
Dim PROG As New cProgramFunctions
|
||||
Dim culture As CultureInfo = New CultureInfo("de-DE")
|
||||
Private PartnerKdNrFromFMZOLL As cPartnerKdNRFMZoll
|
||||
Public addnew As Boolean = False
|
||||
Public SDL As cSDL
|
||||
' Public WithEvents s As New cBinding 'fürs Binding
|
||||
Public Event CHANGED(kdNr, newKfz, SDLNr, History)
|
||||
Dim VAL As New cValidationSDLLeistungen
|
||||
Public Event LKWChanged(kdNr, newKfz, SDLNr, History)
|
||||
Dim boud = False
|
||||
|
||||
Sub New(kdNr, KfzKennzeichen, SDLNr, History)
|
||||
|
||||
' Dieser Aufruf ist für den Designer erforderlich.
|
||||
InitializeComponent()
|
||||
|
||||
Me.kdNr = kdNr
|
||||
Me.KfzKennzeichen = KfzKennzeichen
|
||||
Me.SDLNr = SDLNr
|
||||
Me.History = History
|
||||
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub usrCntlSDLLeistungenCZ_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
' initDataBinding()
|
||||
' boud = True
|
||||
UsrCntlDetails.kdNr = kdNr
|
||||
UsrCntlDetails.SDLNr = SDLNr
|
||||
UsrCntlDetails.History = History
|
||||
UsrCntlDetails.lblLKWNr.Text = KfzKennzeichen
|
||||
AddHandler UsrCntlDetails.LKWChanged, Sub(newKfz)
|
||||
RaiseEvent LKWChanged(kdNr, newKfz, SDLNr, History)
|
||||
End Sub
|
||||
|
||||
If txtPLOSEKdNr.Text = "" Then
|
||||
getPartnerKdNrFromFMZOLL() ' Lädt die Partner-KdNr
|
||||
txtPLOSEKdNr.Text = PartnerKdNrFromFMZOLL.PLOSE_KundenNr
|
||||
End If
|
||||
|
||||
'Scan-Elemente initialisieren:
|
||||
scanBestellung.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
|
||||
scanRetourniert.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
|
||||
scanSonstiges.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
|
||||
|
||||
initDataBinding()
|
||||
boud = True
|
||||
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then
|
||||
cProgramFunctions.setControlReadOnly(Me)
|
||||
End If
|
||||
End Sub
|
||||
Sub getPartnerKdNrFromFMZOLL() ' Lädt die Partner-KdNr
|
||||
PartnerKdNrFromFMZOLL = kundenSQL.getPartnerKdNrFromFMZOLL(kdNr)
|
||||
End Sub
|
||||
|
||||
Function gueltigBisabgelaufen(o) As Boolean
|
||||
If CDate(o) > Now Then
|
||||
Return False
|
||||
End If
|
||||
Return True
|
||||
End Function
|
||||
Sub initDataBinding(Optional newKfz = "")
|
||||
Try
|
||||
|
||||
|
||||
If addnew Then newEntry() 'NEUER EINTRAG!
|
||||
SDL = New cSDL(kdNr, KfzKennzeichen, SDLNr, History)
|
||||
|
||||
PROG.initDTPE(txtLieferung)
|
||||
PROG.initDTPE(txtBestellung)
|
||||
|
||||
txtLieferung._value = SDL.Lieferdatum
|
||||
txtBestellung._value = SDL.Bestelldatum
|
||||
|
||||
|
||||
cbxRetourniert._date = SDL.RetourniertAm
|
||||
cbxVerloren._date = SDL.VerlorenAm
|
||||
cbxGestohlen._date = SDL.GestohlenAm
|
||||
cbxGesperrt._date = SDL.GesperrtAm
|
||||
cbxDefekt._date = SDL.DefektAm
|
||||
|
||||
cbxGesperrt.Checked = SDL.Gesperrt
|
||||
cbxDefekt.Checked = SDL.Defekt
|
||||
cbxGestohlen.Checked = SDL.Gestohlen
|
||||
cbxVerloren.Checked = SDL.Verloren
|
||||
cbxArchiviert.Checked = SDL.Archiviert
|
||||
' cbxGesperrt.DataBindings.Add(New Binding("Checked", s.bindingSource, "Gesperrt", True, DataSourceUpdateMode.OnPropertyChanged, False))
|
||||
' cbxDefekt.DataBindings.Add(New Binding("Checked", s.bindingSource, "Defekt", True, DataSourceUpdateMode.OnPropertyChanged, False))
|
||||
' cbxGestohlen.DataBindings.Add(New Binding("Checked", s.bindingSource, "Gestohlen", True, DataSourceUpdateMode.OnPropertyChanged, False))
|
||||
' cbxVerloren.DataBindings.Add(New Binding("Checked", s.bindingSource, "Verloren", True, DataSourceUpdateMode.OnPropertyChanged, False))
|
||||
|
||||
cbxRetourniert.Checked = SDL.Retourniert
|
||||
'cbxErsatzkarte.DataBindings.Add(New Binding("Checked", s.bindingSource, "Ersatzkarte", True, DataSourceUpdateMode.OnPropertyChanged, False))
|
||||
|
||||
txtVermerk.Text = SDL.Vermerk
|
||||
'txtVermerk.DataBindings.Add(New Binding("Text", s.bindingSource, "Vermerk", True, DataSourceUpdateMode.OnPropertyChanged, ""))
|
||||
|
||||
UsrCntlDetails.lblErfassung.Text = SDL.Erfassungsdatum
|
||||
UsrCntlDetails.lblAenderung.Text = SDL.Änderungsdatum
|
||||
UsrCntlDetails.lblSachbearb.Text = SDL.Sachbearbeiter
|
||||
|
||||
' UsrCntlDetails.lblErfassung.DataBindings.Add(New Binding("Text", s.bindingSource, "Erfassungsdatum", True, DataSourceUpdateMode.OnPropertyChanged, ""))
|
||||
' UsrCntlDetails.lblAenderung.DataBindings.Add(New Binding("Text", s.bindingSource, "Änderungsdatum", True, DataSourceUpdateMode.OnPropertyChanged, ""))
|
||||
' UsrCntlDetails.lblSachbearb.DataBindings.Add(New Binding("Text", s.bindingSource, "Sachbearbeiter", True, DataSourceUpdateMode.OnPropertyChanged, ""))
|
||||
|
||||
' txtMSEKdNr.Text = SDL.MSE_Kd_Nr
|
||||
txtKartenNr.Text = SDL.KartenNr
|
||||
txtOBUID.Text = SDL.OBUID
|
||||
|
||||
' Dim tmpHist As String = "" 'If History <> "" Then tmpHist = " AND History='" & History & "'"
|
||||
' s.initBinding("SELECT * FROM SDL WHERE KundenNr='" & kdNr & "' AND KfzKennzeichen='" & KfzKennzeichen & "' AND SDLNr='" & SDLNr & "' " & tmpHist, "SDL")
|
||||
|
||||
|
||||
' cbxRetourniert.DataBindings.Add(New Binding("Checked", s.bindingSource, "Retourniert", True, DataSourceUpdateMode.OnPropertyChanged, False))
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
MsgBox(ex.StackTrace)
|
||||
End Try
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Public Sub newEntry()
|
||||
's.updateBinding()
|
||||
' s.newEntry(kdNr, KfzKennzeichen, SDLNr) 'NEUER EINTRAG!
|
||||
If txtBestellung.Text = "" Then txtBestellung.Text = Now.ToShortDateString
|
||||
End Sub
|
||||
|
||||
Sub BindingTableColumnChanged()
|
||||
UsrCntlDetails.lblSachbearb.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
|
||||
UsrCntlDetails.lblAenderung.Text = Now.ToString("dd.MM.yyyy HH:mm")
|
||||
'If e.Column.ColumnName = "Sachbearbeiter" Or e.Column.ColumnName = "Änderungsdatum" Then Exit Sub
|
||||
If save() Then RaiseEvent CHANGED(kdNr, KfzKennzeichen, SDLNr, History)
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs)
|
||||
Dim valid As Boolean = VAL.checkValidDate(sender, True)
|
||||
End Sub
|
||||
|
||||
Public Function save() As Boolean
|
||||
loadDataInClass()
|
||||
Return SDL.SAVE
|
||||
'If checkSave() Then
|
||||
' Return kundenSQL.doSQLByList(s.bindingSource)
|
||||
'End If
|
||||
Return False
|
||||
End Function
|
||||
|
||||
Sub loadDataInClass()
|
||||
SDL.Lieferdatum = PROG.isEmptyNull(txtLieferung._value)
|
||||
SDL.Bestelldatum = PROG.isEmptyNull(txtBestellung._value)
|
||||
SDL.Gesperrt = cbxGesperrt.Checked
|
||||
SDL.Defekt = cbxDefekt.Checked
|
||||
SDL.Gestohlen = cbxGestohlen.Checked
|
||||
SDL.Verloren = cbxVerloren.Checked
|
||||
SDL.Retourniert = cbxRetourniert.Checked
|
||||
SDL.Vermerk = txtVermerk.Text
|
||||
SDL.Erfassungsdatum = UsrCntlDetails.lblErfassung.Text
|
||||
SDL.Änderungsdatum = UsrCntlDetails.lblAenderung.Text
|
||||
SDL.Sachbearbeiter = UsrCntlDetails.lblSachbearb.Text
|
||||
' SDL.MSE_Kd_Nr = txtMSEKdNr.Text
|
||||
SDL.KartenNr = txtKartenNr.Text
|
||||
SDL.OBUID = txtOBUID.Text
|
||||
|
||||
SDL.RetourniertAm = cbxRetourniert._date
|
||||
SDL.VerlorenAm = cbxVerloren._date
|
||||
SDL.GestohlenAm = cbxGestohlen._date
|
||||
SDL.GesperrtAm = cbxGesperrt._date
|
||||
SDL.DefektAm = cbxDefekt._date
|
||||
SDL.Archiviert = cbxArchiviert.Checked
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
|
||||
Function checkSave() As Boolean
|
||||
' If Not VAL.checkValidDate(txtBestellung, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Bestelldatum: Datumsformat nicht korrekt!", 3) : Return False
|
||||
' If Not VAL.checkValidDate(txtLieferung, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Lieferdatum: Datumsformat nicht korrekt!", 3) : Return False
|
||||
' If Not VAL.checkValidDate(txtGueltigkeit, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Gültigkeitsdatum: Datumsformat nicht korrekt!", 3) : Return False
|
||||
Return True
|
||||
End Function
|
||||
|
||||
|
||||
Private Sub txtBestellung_TextChanged(sender As Object, e As EventArgs) Handles txtBestellung.PropertyChanged, txtLieferung.PropertyChanged, txtKartenNr.TextChanged, txtPLOSEKdNr.TextChanged, txtOBUID.TextChanged, txtVermerk.TextChanged, cbxRetourniert.CheckedChanged, cbxDefekt.CheckedChanged, cbxVerloren.CheckedChanged, cbxGestohlen.CheckedChanged, cbxGesperrt.CheckedChanged, cbxArchiviert.CheckedChanged
|
||||
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then Exit Sub
|
||||
|
||||
If boud And Me.FindForm IsNot Nothing Then
|
||||
If sender Is txtLieferung Then
|
||||
If Not PROG.checkSDLNrPartnerKdNr(kdNr, SDLNr) Then MsgBox("Bitte geben Sie die Partner-Kundennummer im Kundenblatt oder im FM-ZOLL ein!")
|
||||
End If
|
||||
BindingTableColumnChanged()
|
||||
End If
|
||||
End Sub
|
||||
Function addTxtToVermerk(tmp, txt) As String
|
||||
If txtVermerk.Text <> "" Then tmp &= " / "
|
||||
tmp &= txt & ", am " & Now.ToShortDateString
|
||||
If tmp.Length > txtVermerk.MaxLength Then tmp = tmp.Substring(0, txtVermerk.MaxLength)
|
||||
Return tmp
|
||||
End Function
|
||||
|
||||
End Class
|
||||
545
SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenPLOSE_IT.Designer.vb
generated
Normal file
545
SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenPLOSE_IT.Designer.vb
generated
Normal file
@@ -0,0 +1,545 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
|
||||
Partial Class usrCntlSDLLeistungenPLOSE_IT
|
||||
Inherits System.Windows.Forms.UserControl
|
||||
|
||||
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
|
||||
<System.Diagnostics.DebuggerNonUserCode()>
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Wird vom Windows Form-Designer benötigt.
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
|
||||
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
|
||||
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
||||
<System.Diagnostics.DebuggerStepThrough()>
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.Label9 = New System.Windows.Forms.Label()
|
||||
Me.Label10 = New System.Windows.Forms.Label()
|
||||
Me.Label2 = New System.Windows.Forms.Label()
|
||||
Me.Panel2 = New System.Windows.Forms.Panel()
|
||||
Me.Label8 = New System.Windows.Forms.Label()
|
||||
Me.txtPLOSEKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.Label6 = New System.Windows.Forms.Label()
|
||||
Me.Label7 = New System.Windows.Forms.Label()
|
||||
Me.tbcntr = New System.Windows.Forms.TabControl()
|
||||
Me.TabPage1 = New System.Windows.Forms.TabPage()
|
||||
Me.UsrCntlDetails = New SDL.usrCntlAllg()
|
||||
Me.TabPage2 = New System.Windows.Forms.TabPage()
|
||||
Me.scanLieferscheinVIA = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
|
||||
Me.scanLieferscheinTP = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
|
||||
Me.scanSonstiges = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
|
||||
Me.scanRetourniert = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
|
||||
Me.cbxErsatztelepass = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
|
||||
Me.txtLieferung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.txtBestellung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.txtVermerk = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.cbxGestohlen = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
|
||||
Me.cbxVerloren = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
|
||||
Me.cbxGesperrt = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
|
||||
Me.cbxDefekt = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
|
||||
Me.cbxRetourniert = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
|
||||
Me.txtVIACard = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.txtTelepassNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.cbxArchiviert = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
|
||||
Me.Panel2.SuspendLayout()
|
||||
Me.tbcntr.SuspendLayout()
|
||||
Me.TabPage1.SuspendLayout()
|
||||
Me.TabPage2.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.AutoSize = True
|
||||
Me.Label1.ForeColor = System.Drawing.Color.White
|
||||
Me.Label1.Location = New System.Drawing.Point(464, 9)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(99, 13)
|
||||
Me.Label1.TabIndex = 14
|
||||
Me.Label1.Text = "PLOSE-Kunden-Nr:"
|
||||
'
|
||||
'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(6, 129)
|
||||
Me.Label9.Name = "Label9"
|
||||
Me.Label9.Size = New System.Drawing.Size(79, 13)
|
||||
Me.Label9.TabIndex = 9
|
||||
Me.Label9.Text = "Telepass-Nr:"
|
||||
'
|
||||
'Label10
|
||||
'
|
||||
Me.Label10.AutoSize = True
|
||||
Me.Label10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label10.Location = New System.Drawing.Point(6, 101)
|
||||
Me.Label10.Name = "Label10"
|
||||
Me.Label10.Size = New System.Drawing.Size(69, 13)
|
||||
Me.Label10.TabIndex = 12
|
||||
Me.Label10.Text = "VIA-CARD:"
|
||||
'
|
||||
'Label2
|
||||
'
|
||||
Me.Label2.AutoSize = True
|
||||
Me.Label2.Location = New System.Drawing.Point(3, 165)
|
||||
Me.Label2.Name = "Label2"
|
||||
Me.Label2.Size = New System.Drawing.Size(49, 13)
|
||||
Me.Label2.TabIndex = 66
|
||||
Me.Label2.Text = "Vermerk:"
|
||||
'
|
||||
'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.Label8)
|
||||
Me.Panel2.Controls.Add(Me.txtPLOSEKdNr)
|
||||
Me.Panel2.Controls.Add(Me.Label1)
|
||||
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(760, 30)
|
||||
Me.Panel2.TabIndex = 68
|
||||
'
|
||||
'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.ForeColor = System.Drawing.Color.White
|
||||
Me.Label8.Location = New System.Drawing.Point(6, 9)
|
||||
Me.Label8.Name = "Label8"
|
||||
Me.Label8.Size = New System.Drawing.Size(103, 13)
|
||||
Me.Label8.TabIndex = 14
|
||||
Me.Label8.Text = "Maut IT - PLOSE"
|
||||
'
|
||||
'txtPLOSEKdNr
|
||||
'
|
||||
Me.txtPLOSEKdNr._DateTimeOnly = False
|
||||
Me.txtPLOSEKdNr._numbersOnly = True
|
||||
Me.txtPLOSEKdNr._numbersOnlyKommastellen = ""
|
||||
Me.txtPLOSEKdNr._Prozent = False
|
||||
Me.txtPLOSEKdNr._ShortDateNew = False
|
||||
Me.txtPLOSEKdNr._ShortDateOnly = False
|
||||
Me.txtPLOSEKdNr._TimeOnly = False
|
||||
Me.txtPLOSEKdNr._value = ""
|
||||
Me.txtPLOSEKdNr._Waehrung = False
|
||||
Me.txtPLOSEKdNr._WaehrungZeichen = True
|
||||
Me.txtPLOSEKdNr.Location = New System.Drawing.Point(574, 6)
|
||||
Me.txtPLOSEKdNr.MaxLineLength = -1
|
||||
Me.txtPLOSEKdNr.MaxLines_Warning = ""
|
||||
Me.txtPLOSEKdNr.MaxLines_Warning_Label = Nothing
|
||||
Me.txtPLOSEKdNr.Name = "txtPLOSEKdNr"
|
||||
Me.txtPLOSEKdNr.Size = New System.Drawing.Size(183, 20)
|
||||
Me.txtPLOSEKdNr.TabIndex = 15
|
||||
'
|
||||
'Label6
|
||||
'
|
||||
Me.Label6.AutoSize = True
|
||||
Me.Label6.Location = New System.Drawing.Point(3, 65)
|
||||
Me.Label6.Name = "Label6"
|
||||
Me.Label6.Size = New System.Drawing.Size(65, 13)
|
||||
Me.Label6.TabIndex = 85
|
||||
Me.Label6.Text = "Lieferdatum:"
|
||||
'
|
||||
'Label7
|
||||
'
|
||||
Me.Label7.AutoSize = True
|
||||
Me.Label7.Location = New System.Drawing.Point(3, 39)
|
||||
Me.Label7.Name = "Label7"
|
||||
Me.Label7.Size = New System.Drawing.Size(70, 13)
|
||||
Me.Label7.TabIndex = 84
|
||||
Me.Label7.Text = "Bestelldatum:"
|
||||
'
|
||||
'tbcntr
|
||||
'
|
||||
Me.tbcntr.Controls.Add(Me.TabPage1)
|
||||
Me.tbcntr.Controls.Add(Me.TabPage2)
|
||||
Me.tbcntr.Dock = System.Windows.Forms.DockStyle.Right
|
||||
Me.tbcntr.Location = New System.Drawing.Point(496, 30)
|
||||
Me.tbcntr.Name = "tbcntr"
|
||||
Me.tbcntr.SelectedIndex = 0
|
||||
Me.tbcntr.Size = New System.Drawing.Size(264, 190)
|
||||
Me.tbcntr.TabIndex = 89
|
||||
'
|
||||
'TabPage1
|
||||
'
|
||||
Me.TabPage1.Controls.Add(Me.UsrCntlDetails)
|
||||
Me.TabPage1.Location = New System.Drawing.Point(4, 22)
|
||||
Me.TabPage1.Name = "TabPage1"
|
||||
Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
|
||||
Me.TabPage1.Size = New System.Drawing.Size(256, 164)
|
||||
Me.TabPage1.TabIndex = 0
|
||||
Me.TabPage1.Text = "Details"
|
||||
Me.TabPage1.UseVisualStyleBackColor = True
|
||||
'
|
||||
'UsrCntlDetails
|
||||
'
|
||||
Me.UsrCntlDetails.BackColor = System.Drawing.Color.White
|
||||
Me.UsrCntlDetails.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.UsrCntlDetails.Location = New System.Drawing.Point(3, 3)
|
||||
Me.UsrCntlDetails.Name = "UsrCntlDetails"
|
||||
Me.UsrCntlDetails.Size = New System.Drawing.Size(250, 158)
|
||||
Me.UsrCntlDetails.TabIndex = 18
|
||||
'
|
||||
'TabPage2
|
||||
'
|
||||
Me.TabPage2.Controls.Add(Me.scanLieferscheinVIA)
|
||||
Me.TabPage2.Controls.Add(Me.scanLieferscheinTP)
|
||||
Me.TabPage2.Controls.Add(Me.scanSonstiges)
|
||||
Me.TabPage2.Controls.Add(Me.scanRetourniert)
|
||||
Me.TabPage2.Location = New System.Drawing.Point(4, 22)
|
||||
Me.TabPage2.Name = "TabPage2"
|
||||
Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
|
||||
Me.TabPage2.Size = New System.Drawing.Size(256, 164)
|
||||
Me.TabPage2.TabIndex = 1
|
||||
Me.TabPage2.Text = "Dokumente"
|
||||
Me.TabPage2.UseVisualStyleBackColor = True
|
||||
'
|
||||
'scanLieferscheinVIA
|
||||
'
|
||||
Me.scanLieferscheinVIA._ARCHIV = True
|
||||
Me.scanLieferscheinVIA._DATENSERVER_KATEGORIE = "DOKUMENTE"
|
||||
Me.scanLieferscheinVIA._DATENSERVER_ORDNER = "MDM"
|
||||
Me.scanLieferscheinVIA._DATENSERVER_UOrdner1 = Nothing
|
||||
Me.scanLieferscheinVIA._DATENSERVER_UOrdner2 = Nothing
|
||||
Me.scanLieferscheinVIA._DATENSERVER_UOrdner3 = Nothing
|
||||
Me.scanLieferscheinVIA._MULTI_FILES = True
|
||||
Me.scanLieferscheinVIA._TEXT_PDF = "Lieferschein VIA-Card"
|
||||
Me.scanLieferscheinVIA.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
|
||||
Me.scanLieferscheinVIA.BackColor = System.Drawing.Color.White
|
||||
Me.scanLieferscheinVIA.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.scanLieferscheinVIA.Cursor = System.Windows.Forms.Cursors.Default
|
||||
Me.scanLieferscheinVIA.Location = New System.Drawing.Point(3, 30)
|
||||
Me.scanLieferscheinVIA.Name = "scanLieferscheinVIA"
|
||||
Me.scanLieferscheinVIA.Size = New System.Drawing.Size(155, 24)
|
||||
Me.scanLieferscheinVIA.TabIndex = 24
|
||||
'
|
||||
'scanLieferscheinTP
|
||||
'
|
||||
Me.scanLieferscheinTP._ARCHIV = True
|
||||
Me.scanLieferscheinTP._DATENSERVER_KATEGORIE = "DOKUMENTE"
|
||||
Me.scanLieferscheinTP._DATENSERVER_ORDNER = "MDM"
|
||||
Me.scanLieferscheinTP._DATENSERVER_UOrdner1 = Nothing
|
||||
Me.scanLieferscheinTP._DATENSERVER_UOrdner2 = Nothing
|
||||
Me.scanLieferscheinTP._DATENSERVER_UOrdner3 = Nothing
|
||||
Me.scanLieferscheinTP._MULTI_FILES = True
|
||||
Me.scanLieferscheinTP._TEXT_PDF = "Lieferschein Telepass"
|
||||
Me.scanLieferscheinTP.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
|
||||
Me.scanLieferscheinTP.BackColor = System.Drawing.Color.White
|
||||
Me.scanLieferscheinTP.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.scanLieferscheinTP.Cursor = System.Windows.Forms.Cursors.Default
|
||||
Me.scanLieferscheinTP.Location = New System.Drawing.Point(3, 4)
|
||||
Me.scanLieferscheinTP.Name = "scanLieferscheinTP"
|
||||
Me.scanLieferscheinTP.Size = New System.Drawing.Size(155, 24)
|
||||
Me.scanLieferscheinTP.TabIndex = 23
|
||||
'
|
||||
'scanSonstiges
|
||||
'
|
||||
Me.scanSonstiges._DATENSERVER_KATEGORIE = "DOKUMENTE"
|
||||
Me.scanSonstiges._DATENSERVER_ORDNER = "MDM"
|
||||
Me.scanSonstiges._DATENSERVER_UOrdner1 = ""
|
||||
Me.scanSonstiges._DATENSERVER_UOrdner2 = ""
|
||||
Me.scanSonstiges._DATENSERVER_UOrdner3 = ""
|
||||
Me.scanSonstiges.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
|
||||
Me.scanSonstiges.BackColor = System.Drawing.Color.White
|
||||
Me.scanSonstiges.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.scanSonstiges.Cursor = System.Windows.Forms.Cursors.Hand
|
||||
Me.scanSonstiges.Location = New System.Drawing.Point(3, 57)
|
||||
Me.scanSonstiges.Margin = New System.Windows.Forms.Padding(0)
|
||||
Me.scanSonstiges.Name = "scanSonstiges"
|
||||
Me.scanSonstiges.Size = New System.Drawing.Size(250, 104)
|
||||
Me.scanSonstiges.TabIndex = 21
|
||||
'
|
||||
'scanRetourniert
|
||||
'
|
||||
Me.scanRetourniert._ARCHIV = True
|
||||
Me.scanRetourniert._DATENSERVER_KATEGORIE = "DOKUMENTE"
|
||||
Me.scanRetourniert._DATENSERVER_ORDNER = "MDM"
|
||||
Me.scanRetourniert._DATENSERVER_UOrdner1 = Nothing
|
||||
Me.scanRetourniert._DATENSERVER_UOrdner2 = Nothing
|
||||
Me.scanRetourniert._DATENSERVER_UOrdner3 = Nothing
|
||||
Me.scanRetourniert._MULTI_FILES = True
|
||||
Me.scanRetourniert._TEXT_PDF = "Retourniert"
|
||||
Me.scanRetourniert.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
|
||||
Me.scanRetourniert.BackColor = System.Drawing.Color.White
|
||||
Me.scanRetourniert.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.scanRetourniert.Cursor = System.Windows.Forms.Cursors.Default
|
||||
Me.scanRetourniert.Location = New System.Drawing.Point(163, 30)
|
||||
Me.scanRetourniert.Name = "scanRetourniert"
|
||||
Me.scanRetourniert.Size = New System.Drawing.Size(90, 24)
|
||||
Me.scanRetourniert.TabIndex = 20
|
||||
'
|
||||
'cbxErsatztelepass
|
||||
'
|
||||
Me.cbxErsatztelepass._date = Nothing
|
||||
Me.cbxErsatztelepass._showdate = True
|
||||
Me.cbxErsatztelepass._value = ""
|
||||
Me.cbxErsatztelepass.AutoSize = True
|
||||
Me.cbxErsatztelepass.Location = New System.Drawing.Point(327, 38)
|
||||
Me.cbxErsatztelepass.Name = "cbxErsatztelepass"
|
||||
Me.cbxErsatztelepass.Size = New System.Drawing.Size(94, 17)
|
||||
Me.cbxErsatztelepass.TabIndex = 5
|
||||
Me.cbxErsatztelepass.Text = "Ersatztelepass"
|
||||
Me.cbxErsatztelepass.UseVisualStyleBackColor = True
|
||||
'
|
||||
'txtLieferung
|
||||
'
|
||||
Me.txtLieferung._DateTimeOnly = False
|
||||
Me.txtLieferung._numbersOnly = False
|
||||
Me.txtLieferung._numbersOnlyKommastellen = ""
|
||||
Me.txtLieferung._Prozent = False
|
||||
Me.txtLieferung._ShortDateNew = True
|
||||
Me.txtLieferung._ShortDateOnly = False
|
||||
Me.txtLieferung._TimeOnly = False
|
||||
Me.txtLieferung._value = ""
|
||||
Me.txtLieferung._Waehrung = False
|
||||
Me.txtLieferung._WaehrungZeichen = True
|
||||
Me.txtLieferung.ForeColor = System.Drawing.Color.Red
|
||||
Me.txtLieferung.Location = New System.Drawing.Point(106, 62)
|
||||
Me.txtLieferung.MaxLength = 10
|
||||
Me.txtLieferung.MaxLineLength = -1
|
||||
Me.txtLieferung.MaxLines_Warning = ""
|
||||
Me.txtLieferung.MaxLines_Warning_Label = Nothing
|
||||
Me.txtLieferung.Name = "txtLieferung"
|
||||
Me.txtLieferung.Size = New System.Drawing.Size(74, 20)
|
||||
Me.txtLieferung.TabIndex = 1
|
||||
'
|
||||
'txtBestellung
|
||||
'
|
||||
Me.txtBestellung._DateTimeOnly = False
|
||||
Me.txtBestellung._numbersOnly = False
|
||||
Me.txtBestellung._numbersOnlyKommastellen = ""
|
||||
Me.txtBestellung._Prozent = False
|
||||
Me.txtBestellung._ShortDateNew = True
|
||||
Me.txtBestellung._ShortDateOnly = False
|
||||
Me.txtBestellung._TimeOnly = False
|
||||
Me.txtBestellung._value = ""
|
||||
Me.txtBestellung._Waehrung = False
|
||||
Me.txtBestellung._WaehrungZeichen = True
|
||||
Me.txtBestellung.ForeColor = System.Drawing.Color.Red
|
||||
Me.txtBestellung.Location = New System.Drawing.Point(106, 36)
|
||||
Me.txtBestellung.MaxLength = 10
|
||||
Me.txtBestellung.MaxLineLength = -1
|
||||
Me.txtBestellung.MaxLines_Warning = ""
|
||||
Me.txtBestellung.MaxLines_Warning_Label = Nothing
|
||||
Me.txtBestellung.Name = "txtBestellung"
|
||||
Me.txtBestellung.Size = New System.Drawing.Size(74, 20)
|
||||
Me.txtBestellung.TabIndex = 0
|
||||
'
|
||||
'txtVermerk
|
||||
'
|
||||
Me.txtVermerk._DateTimeOnly = False
|
||||
Me.txtVermerk._numbersOnly = False
|
||||
Me.txtVermerk._numbersOnlyKommastellen = ""
|
||||
Me.txtVermerk._Prozent = False
|
||||
Me.txtVermerk._ShortDateNew = False
|
||||
Me.txtVermerk._ShortDateOnly = False
|
||||
Me.txtVermerk._TimeOnly = False
|
||||
Me.txtVermerk._value = Nothing
|
||||
Me.txtVermerk._Waehrung = False
|
||||
Me.txtVermerk._WaehrungZeichen = True
|
||||
Me.txtVermerk.Location = New System.Drawing.Point(106, 162)
|
||||
Me.txtVermerk.MaxLength = 100
|
||||
Me.txtVermerk.MaxLineLength = -1
|
||||
Me.txtVermerk.MaxLines_Warning = ""
|
||||
Me.txtVermerk.MaxLines_Warning_Label = Nothing
|
||||
Me.txtVermerk.Multiline = True
|
||||
Me.txtVermerk.Name = "txtVermerk"
|
||||
Me.txtVermerk.Size = New System.Drawing.Size(183, 55)
|
||||
Me.txtVermerk.TabIndex = 4
|
||||
'
|
||||
'cbxGestohlen
|
||||
'
|
||||
Me.cbxGestohlen._date = Nothing
|
||||
Me.cbxGestohlen._showdate = True
|
||||
Me.cbxGestohlen._value = ""
|
||||
Me.cbxGestohlen.AutoSize = True
|
||||
Me.cbxGestohlen.Location = New System.Drawing.Point(327, 134)
|
||||
Me.cbxGestohlen.Name = "cbxGestohlen"
|
||||
Me.cbxGestohlen.Size = New System.Drawing.Size(74, 17)
|
||||
Me.cbxGestohlen.TabIndex = 8
|
||||
Me.cbxGestohlen.Text = "Gestohlen"
|
||||
Me.cbxGestohlen.UseVisualStyleBackColor = True
|
||||
'
|
||||
'cbxVerloren
|
||||
'
|
||||
Me.cbxVerloren._date = Nothing
|
||||
Me.cbxVerloren._showdate = True
|
||||
Me.cbxVerloren._value = ""
|
||||
Me.cbxVerloren.AutoSize = True
|
||||
Me.cbxVerloren.Location = New System.Drawing.Point(327, 111)
|
||||
Me.cbxVerloren.Name = "cbxVerloren"
|
||||
Me.cbxVerloren.Size = New System.Drawing.Size(65, 17)
|
||||
Me.cbxVerloren.TabIndex = 7
|
||||
Me.cbxVerloren.Text = "Verloren"
|
||||
Me.cbxVerloren.UseVisualStyleBackColor = True
|
||||
'
|
||||
'cbxGesperrt
|
||||
'
|
||||
Me.cbxGesperrt._date = Nothing
|
||||
Me.cbxGesperrt._showdate = True
|
||||
Me.cbxGesperrt._value = ""
|
||||
Me.cbxGesperrt.AutoSize = True
|
||||
Me.cbxGesperrt.Location = New System.Drawing.Point(327, 155)
|
||||
Me.cbxGesperrt.Name = "cbxGesperrt"
|
||||
Me.cbxGesperrt.Size = New System.Drawing.Size(66, 17)
|
||||
Me.cbxGesperrt.TabIndex = 9
|
||||
Me.cbxGesperrt.Text = "Gesperrt"
|
||||
Me.cbxGesperrt.UseVisualStyleBackColor = True
|
||||
'
|
||||
'cbxDefekt
|
||||
'
|
||||
Me.cbxDefekt._date = Nothing
|
||||
Me.cbxDefekt._showdate = True
|
||||
Me.cbxDefekt._value = ""
|
||||
Me.cbxDefekt.AutoSize = True
|
||||
Me.cbxDefekt.Location = New System.Drawing.Point(327, 177)
|
||||
Me.cbxDefekt.Name = "cbxDefekt"
|
||||
Me.cbxDefekt.Size = New System.Drawing.Size(58, 17)
|
||||
Me.cbxDefekt.TabIndex = 10
|
||||
Me.cbxDefekt.Text = "Defekt"
|
||||
Me.cbxDefekt.UseVisualStyleBackColor = True
|
||||
'
|
||||
'cbxRetourniert
|
||||
'
|
||||
Me.cbxRetourniert._date = Nothing
|
||||
Me.cbxRetourniert._showdate = True
|
||||
Me.cbxRetourniert._value = ""
|
||||
Me.cbxRetourniert.AutoSize = True
|
||||
Me.cbxRetourniert.Location = New System.Drawing.Point(327, 64)
|
||||
Me.cbxRetourniert.Name = "cbxRetourniert"
|
||||
Me.cbxRetourniert.Size = New System.Drawing.Size(78, 17)
|
||||
Me.cbxRetourniert.TabIndex = 6
|
||||
Me.cbxRetourniert.Text = "Retourniert"
|
||||
Me.cbxRetourniert.UseVisualStyleBackColor = True
|
||||
'
|
||||
'txtVIACard
|
||||
'
|
||||
Me.txtVIACard._DateTimeOnly = False
|
||||
Me.txtVIACard._numbersOnly = False
|
||||
Me.txtVIACard._numbersOnlyKommastellen = ""
|
||||
Me.txtVIACard._Prozent = False
|
||||
Me.txtVIACard._ShortDateNew = False
|
||||
Me.txtVIACard._ShortDateOnly = False
|
||||
Me.txtVIACard._TimeOnly = False
|
||||
Me.txtVIACard._value = Nothing
|
||||
Me.txtVIACard._Waehrung = False
|
||||
Me.txtVIACard._WaehrungZeichen = True
|
||||
Me.txtVIACard.Location = New System.Drawing.Point(106, 98)
|
||||
Me.txtVIACard.MaxLength = 9
|
||||
Me.txtVIACard.MaxLineLength = -1
|
||||
Me.txtVIACard.MaxLines_Warning = ""
|
||||
Me.txtVIACard.MaxLines_Warning_Label = Nothing
|
||||
Me.txtVIACard.Name = "txtVIACard"
|
||||
Me.txtVIACard.Size = New System.Drawing.Size(183, 20)
|
||||
Me.txtVIACard.TabIndex = 2
|
||||
'
|
||||
'txtTelepassNr
|
||||
'
|
||||
Me.txtTelepassNr._DateTimeOnly = False
|
||||
Me.txtTelepassNr._numbersOnly = False
|
||||
Me.txtTelepassNr._numbersOnlyKommastellen = ""
|
||||
Me.txtTelepassNr._Prozent = False
|
||||
Me.txtTelepassNr._ShortDateNew = False
|
||||
Me.txtTelepassNr._ShortDateOnly = False
|
||||
Me.txtTelepassNr._TimeOnly = False
|
||||
Me.txtTelepassNr._value = Nothing
|
||||
Me.txtTelepassNr._Waehrung = False
|
||||
Me.txtTelepassNr._WaehrungZeichen = True
|
||||
Me.txtTelepassNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.txtTelepassNr.Location = New System.Drawing.Point(106, 124)
|
||||
Me.txtTelepassNr.MaxLength = 10
|
||||
Me.txtTelepassNr.MaxLineLength = -1
|
||||
Me.txtTelepassNr.MaxLines_Warning = ""
|
||||
Me.txtTelepassNr.MaxLines_Warning_Label = Nothing
|
||||
Me.txtTelepassNr.Name = "txtTelepassNr"
|
||||
Me.txtTelepassNr.Size = New System.Drawing.Size(183, 23)
|
||||
Me.txtTelepassNr.TabIndex = 3
|
||||
'
|
||||
'cbxArchiviert
|
||||
'
|
||||
Me.cbxArchiviert._date = Nothing
|
||||
Me.cbxArchiviert._showdate = True
|
||||
Me.cbxArchiviert._value = ""
|
||||
Me.cbxArchiviert.AutoSize = True
|
||||
Me.cbxArchiviert.Location = New System.Drawing.Point(327, 200)
|
||||
Me.cbxArchiviert.Name = "cbxArchiviert"
|
||||
Me.cbxArchiviert.Size = New System.Drawing.Size(91, 17)
|
||||
Me.cbxArchiviert.TabIndex = 91
|
||||
Me.cbxArchiviert.Text = "ARCHIVIERT"
|
||||
Me.cbxArchiviert.UseVisualStyleBackColor = True
|
||||
'
|
||||
'usrCntlSDLLeistungenPLOSE_IT
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.BackColor = System.Drawing.Color.White
|
||||
Me.Controls.Add(Me.cbxArchiviert)
|
||||
Me.Controls.Add(Me.cbxErsatztelepass)
|
||||
Me.Controls.Add(Me.tbcntr)
|
||||
Me.Controls.Add(Me.txtLieferung)
|
||||
Me.Controls.Add(Me.txtBestellung)
|
||||
Me.Controls.Add(Me.Label6)
|
||||
Me.Controls.Add(Me.Label7)
|
||||
Me.Controls.Add(Me.Panel2)
|
||||
Me.Controls.Add(Me.txtVermerk)
|
||||
Me.Controls.Add(Me.Label2)
|
||||
Me.Controls.Add(Me.cbxGestohlen)
|
||||
Me.Controls.Add(Me.cbxVerloren)
|
||||
Me.Controls.Add(Me.cbxGesperrt)
|
||||
Me.Controls.Add(Me.cbxDefekt)
|
||||
Me.Controls.Add(Me.cbxRetourniert)
|
||||
Me.Controls.Add(Me.txtVIACard)
|
||||
Me.Controls.Add(Me.txtTelepassNr)
|
||||
Me.Controls.Add(Me.Label9)
|
||||
Me.Controls.Add(Me.Label10)
|
||||
Me.Name = "usrCntlSDLLeistungenPLOSE_IT"
|
||||
Me.Size = New System.Drawing.Size(760, 220)
|
||||
Me.Panel2.ResumeLayout(False)
|
||||
Me.Panel2.PerformLayout()
|
||||
Me.tbcntr.ResumeLayout(False)
|
||||
Me.TabPage1.ResumeLayout(False)
|
||||
Me.TabPage2.ResumeLayout(False)
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
Friend WithEvents txtPLOSEKdNr As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents Label1 As System.Windows.Forms.Label
|
||||
Friend WithEvents txtVIACard As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents txtTelepassNr As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents Label9 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label10 As System.Windows.Forms.Label
|
||||
Friend WithEvents cbxRetourniert As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
|
||||
Friend WithEvents txtVermerk As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents Label2 As System.Windows.Forms.Label
|
||||
Friend WithEvents cbxGestohlen As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
|
||||
Friend WithEvents cbxVerloren As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
|
||||
Friend WithEvents cbxGesperrt As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
|
||||
Friend WithEvents cbxDefekt As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
|
||||
Friend WithEvents Panel2 As System.Windows.Forms.Panel
|
||||
Friend WithEvents Label8 As System.Windows.Forms.Label
|
||||
Friend WithEvents txtLieferung As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents txtBestellung As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents Label6 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label7 As System.Windows.Forms.Label
|
||||
Friend WithEvents tbcntr As System.Windows.Forms.TabControl
|
||||
Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
|
||||
Friend WithEvents UsrCntlDetails As SDL.usrCntlAllg
|
||||
Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
|
||||
Friend WithEvents scanSonstiges As VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList
|
||||
Friend WithEvents scanRetourniert As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan
|
||||
Friend WithEvents scanLieferscheinTP As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan
|
||||
Friend WithEvents scanLieferscheinVIA As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan
|
||||
Friend WithEvents cbxErsatztelepass As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
|
||||
Friend WithEvents cbxArchiviert As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
|
||||
|
||||
End Class
|
||||
120
SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenPLOSE_IT.resx
Normal file
120
SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenPLOSE_IT.resx
Normal file
@@ -0,0 +1,120 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
</root>
|
||||
207
SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenPLOSE_IT.vb
Normal file
207
SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenPLOSE_IT.vb
Normal file
@@ -0,0 +1,207 @@
|
||||
Imports System.Globalization
|
||||
|
||||
Public Class usrCntlSDLLeistungenPLOSE_IT
|
||||
Public KfzKennzeichen As String
|
||||
Public SDLNr As String
|
||||
Public kdNr As String
|
||||
Public History As String
|
||||
Dim PROG As New cProgramFunctions
|
||||
Dim kundenSQL As New kundenSQL
|
||||
|
||||
Dim culture As CultureInfo = New CultureInfo("de-DE")
|
||||
Private PartnerKdNrFromFMZOLL As cPartnerKdNRFMZoll
|
||||
Public addnew As Boolean = False
|
||||
Dim VAL As New cValidationSDLLeistungen
|
||||
Public Event LKWChanged(kdNr, newKfz, SDLNr, History)
|
||||
Public Event CHANGED(kdNr, newKfz, SDLNr, History)
|
||||
'Public WithEvents s As New cBinding 'fürs Binding
|
||||
Public SDL As cSDL
|
||||
Dim boud = False
|
||||
|
||||
Sub New(kdNr, KfzKennzeichen, SDLNr, History)
|
||||
|
||||
' Dieser Aufruf ist für den Designer erforderlich.
|
||||
InitializeComponent()
|
||||
|
||||
Me.kdNr = kdNr
|
||||
Me.KfzKennzeichen = KfzKennzeichen
|
||||
Me.SDLNr = SDLNr
|
||||
Me.History = History
|
||||
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub usrCntlSDLLeistungenCZ_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
|
||||
UsrCntlDetails.kdNr = kdNr
|
||||
UsrCntlDetails.SDLNr = SDLNr
|
||||
UsrCntlDetails.History = History
|
||||
UsrCntlDetails.lblLKWNr.Text = KfzKennzeichen
|
||||
AddHandler UsrCntlDetails.LKWChanged, Sub(newKfz)
|
||||
RaiseEvent LKWChanged(kdNr, newKfz, SDLNr, History)
|
||||
End Sub
|
||||
'Scan-Elemente initialisieren:
|
||||
scanLieferscheinTP.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
|
||||
scanLieferscheinVIA.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
|
||||
scanRetourniert.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
|
||||
scanSonstiges.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
|
||||
|
||||
initDataBinding()
|
||||
boud = True
|
||||
|
||||
|
||||
If txtPLOSEKdNr.Text = "" Then
|
||||
getPartnerKdNrFromFMZOLL() ' Lädt die Partner-KdNr
|
||||
txtPLOSEKdNr.Text = PartnerKdNrFromFMZOLL.PLOSE_KundenNr
|
||||
End If
|
||||
|
||||
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then
|
||||
cProgramFunctions.setControlReadOnly(Me)
|
||||
End If
|
||||
End Sub
|
||||
Sub getPartnerKdNrFromFMZOLL() ' Lädt die Partner-KdNr
|
||||
PartnerKdNrFromFMZOLL = kundenSQL.getPartnerKdNrFromFMZOLL(kdNr)
|
||||
End Sub
|
||||
|
||||
Function gueltigBisabgelaufen(o) As Boolean
|
||||
If CDate(o) > Now Then
|
||||
Return False
|
||||
End If
|
||||
Return True
|
||||
End Function
|
||||
|
||||
|
||||
Sub initDataBinding()
|
||||
Try
|
||||
SDL = New cSDL(kdNr, KfzKennzeichen, SDLNr, History)
|
||||
|
||||
PROG.initDTPE(txtLieferung)
|
||||
PROG.initDTPE(txtBestellung)
|
||||
|
||||
txtLieferung._value = SDL.Lieferdatum
|
||||
txtBestellung._value = SDL.Bestelldatum
|
||||
|
||||
|
||||
cbxRetourniert._date = SDL.RetourniertAm
|
||||
cbxErsatztelepass._date = SDL.TelepassErsatzkarteAm
|
||||
cbxVerloren._date = SDL.VerlorenAm
|
||||
cbxGestohlen._date = SDL.GestohlenAm
|
||||
cbxGesperrt._date = SDL.GesperrtAm
|
||||
cbxDefekt._date = SDL.DefektAm
|
||||
|
||||
cbxGesperrt.Checked = SDL.Gesperrt
|
||||
cbxDefekt.Checked = SDL.Defekt
|
||||
cbxGestohlen.Checked = SDL.Gestohlen
|
||||
cbxVerloren.Checked = SDL.Verloren
|
||||
cbxArchiviert.Checked = SDL.Archiviert
|
||||
|
||||
cbxRetourniert.Checked = SDL.Retourniert
|
||||
cbxErsatztelepass.Checked = SDL.TelepassErsatzkarte
|
||||
|
||||
txtVermerk.Text = SDL.Vermerk
|
||||
|
||||
UsrCntlDetails.lblErfassung.Text = SDL.Erfassungsdatum
|
||||
UsrCntlDetails.lblAenderung.Text = SDL.Änderungsdatum
|
||||
UsrCntlDetails.lblSachbearb.Text = SDL.Sachbearbeiter
|
||||
|
||||
|
||||
txtPLOSEKdNr.Text = SDL.TELEPASS_Kd_Nr
|
||||
txtTelepassNr.Text = SDL.TELEPASS_Nr
|
||||
txtVIACard.Text = SDL.VIACARD
|
||||
|
||||
' txtTelepassKdNr.Text = SDL.MSE_Kd_Nr
|
||||
' txtTelepassNr.Text = SDL.PAN_Nr
|
||||
' txtVIACard.Text = SDL.SERIE_Nr
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
MsgBox(ex.StackTrace)
|
||||
End Try
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Public Sub newEntry()
|
||||
's.updateBinding()
|
||||
' s.newEntry(kdNr, KfzKennzeichen, SDLNr) 'NEUER EINTRAG!
|
||||
If txtBestellung.Text = "" Then txtBestellung.Text = Now.ToShortDateString
|
||||
End Sub
|
||||
|
||||
Sub BindingTableColumnChanged()
|
||||
UsrCntlDetails.lblSachbearb.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
|
||||
UsrCntlDetails.lblAenderung.Text = Now.ToString("dd.MM.yyyy HH:mm")
|
||||
' If e.Column.ColumnName = "Sachbearbeiter" Or e.Column.ColumnName = "Änderungsdatum" Then Exit Sub
|
||||
If save() Then RaiseEvent CHANGED(kdNr, KfzKennzeichen, SDLNr, History)
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs)
|
||||
Dim valid As Boolean = VAL.checkValidDate(sender, True)
|
||||
End Sub
|
||||
|
||||
Public Function save() As Boolean
|
||||
loadDataInClass()
|
||||
Return SDL.SAVE
|
||||
'If checkSave() Then
|
||||
' Return kundenSQL.doSQLByList(s.bindingSource)
|
||||
'End If
|
||||
Return False
|
||||
End Function
|
||||
|
||||
Sub loadDataInClass()
|
||||
SDL.Lieferdatum = PROG.isEmptyNull(txtLieferung._value)
|
||||
SDL.Bestelldatum = PROG.isEmptyNull(txtBestellung._value)
|
||||
SDL.Gesperrt = cbxGesperrt.Checked
|
||||
SDL.Defekt = cbxDefekt.Checked
|
||||
SDL.Gestohlen = cbxGestohlen.Checked
|
||||
SDL.Verloren = cbxVerloren.Checked
|
||||
SDL.Retourniert = cbxRetourniert.Checked
|
||||
SDL.Vermerk = txtVermerk.Text
|
||||
SDL.Erfassungsdatum = UsrCntlDetails.lblErfassung.Text
|
||||
SDL.Änderungsdatum = UsrCntlDetails.lblAenderung.Text
|
||||
SDL.Sachbearbeiter = UsrCntlDetails.lblSachbearb.Text
|
||||
SDL.TELEPASS_Kd_Nr = txtPLOSEKdNr.Text
|
||||
SDL.TELEPASS_Nr = txtTelepassNr.Text
|
||||
SDL.VIACARD = txtVIACard.Text
|
||||
SDL.TelepassErsatzkarte = cbxErsatztelepass.Checked
|
||||
|
||||
SDL.RetourniertAm = cbxRetourniert._date
|
||||
SDL.TelepassErsatzkarteAm = cbxErsatztelepass._date
|
||||
SDL.VerlorenAm = cbxVerloren._date
|
||||
SDL.GestohlenAm = cbxGestohlen._date
|
||||
SDL.GesperrtAm = cbxGesperrt._date
|
||||
SDL.DefektAm = cbxDefekt._date
|
||||
SDL.Archiviert = cbxArchiviert.Checked
|
||||
End Sub
|
||||
|
||||
Function checkSave() As Boolean
|
||||
' If Not VAL.checkValidDate(txtBestellung, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Bestelldatum: Datumsformat nicht korrekt!", 3) : Return False
|
||||
' If Not VAL.checkValidDate(txtLieferung, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Lieferdatum: Datumsformat nicht korrekt!", 3) : Return False
|
||||
' If Not VAL.checkValidDate(txtGueltigkeit, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Gültigkeitsdatum: Datumsformat nicht korrekt!", 3) : Return False
|
||||
Return True
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Private Sub txtBestellung_TextChanged(sender As Object, e As EventArgs) Handles txtBestellung.PropertyChanged, txtLieferung.PropertyChanged, txtPLOSEKdNr.TextChanged, txtTelepassNr.TextChanged, txtVIACard.TextChanged, txtVermerk.TextChanged, cbxRetourniert.CheckedChanged, cbxDefekt.CheckedChanged, cbxVerloren.CheckedChanged, cbxGestohlen.CheckedChanged, cbxGesperrt.CheckedChanged, cbxErsatztelepass.CheckedChanged, cbxArchiviert.CheckedChanged
|
||||
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then Exit Sub
|
||||
|
||||
If boud And Me.FindForm IsNot Nothing Then
|
||||
If sender Is txtLieferung Then
|
||||
If Not PROG.checkSDLNrPartnerKdNr(kdNr, SDLNr) Then MsgBox("Bitte geben Sie die Partner-Kundennummer im Kundenblatt oder im FM-ZOLL ein!")
|
||||
End If
|
||||
BindingTableColumnChanged()
|
||||
End If
|
||||
End Sub
|
||||
Function addTxtToVermerk(tmp, txt, boolDate) As String
|
||||
If txtVermerk.Text <> "" Then tmp &= " / "
|
||||
tmp &= txt & If(boolDate, ", am " & Now.ToShortDateString, "")
|
||||
If tmp.Length > txtVermerk.MaxLength Then tmp = tmp.Substring(0, txtVermerk.MaxLength)
|
||||
Return tmp
|
||||
End Function
|
||||
|
||||
|
||||
End Class
|
||||
@@ -273,6 +273,21 @@ Public Class frmCardDetails
|
||||
If addnew Then usrcntl.addnew = True : bndSave.Enabled = True 'NEUER EINTRAG!
|
||||
pnlSDLLeistungenDetails.Controls.Add(usrcntl)
|
||||
|
||||
RemoveClickEvent(btnSave)
|
||||
AddHandler btnSave.Click, Sub()
|
||||
If usrcntl.save Then Me.DialogResult = Windows.Forms.DialogResult.OK : Me.Close()
|
||||
End Sub
|
||||
AddHandler Me.SAVE, Sub()
|
||||
If usrcntl.save Then bndSave.Enabled = False
|
||||
End Sub
|
||||
|
||||
initChangeEvent(usrcntl)
|
||||
ElseIf SDLLeistung = 214 Then ' plose
|
||||
' Panel2.BackgroundImage = Nothing
|
||||
Dim usrcntl As New usrCntlSDLLeistungPLOSE(kdnr, KfzKennzeichen, SDLLeistung, history)
|
||||
If addnew Then usrcntl.addnew = True : bndSave.Enabled = True 'NEUER EINTRAG!
|
||||
pnlSDLLeistungenDetails.Controls.Add(usrcntl)
|
||||
|
||||
RemoveClickEvent(btnSave)
|
||||
AddHandler btnSave.Click, Sub()
|
||||
If usrcntl.save Then Me.DialogResult = Windows.Forms.DialogResult.OK : Me.Close()
|
||||
|
||||
127
SDL/mdm/frmNewData.Designer.vb
generated
127
SDL/mdm/frmNewData.Designer.vb
generated
@@ -45,9 +45,12 @@ Partial Class frmNewData
|
||||
Me.btnSDL_FREJUS = New System.Windows.Forms.Button()
|
||||
Me.btnSDL_Hugo = New System.Windows.Forms.Button()
|
||||
Me.btnSDL_DouBox = New System.Windows.Forms.Button()
|
||||
Me.btnSDL_MotorWay = New System.Windows.Forms.Button()
|
||||
Me.btnSDL_MautFR = New System.Windows.Forms.Button()
|
||||
Me.btnSDL_MANAbgas = New System.Windows.Forms.Button()
|
||||
Me.btnSDL_MotorWay = New System.Windows.Forms.Button()
|
||||
Me.btnSDL_PLOSE = New System.Windows.Forms.Button()
|
||||
Me.btnSDL_PLOSE_IT = New System.Windows.Forms.Button()
|
||||
Me.btnSDL_PLOSE_CZ = New System.Windows.Forms.Button()
|
||||
Me.btnVeragParkplatz = New System.Windows.Forms.Button()
|
||||
Me.Label4 = New System.Windows.Forms.Label()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
@@ -68,7 +71,7 @@ Partial Class frmNewData
|
||||
Me.pnlMain.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.pnlMain.Location = New System.Drawing.Point(0, 0)
|
||||
Me.pnlMain.Name = "pnlMain"
|
||||
Me.pnlMain.Size = New System.Drawing.Size(755, 268)
|
||||
Me.pnlMain.Size = New System.Drawing.Size(755, 335)
|
||||
Me.pnlMain.TabIndex = 0
|
||||
'
|
||||
'Panel1
|
||||
@@ -80,7 +83,7 @@ Partial Class frmNewData
|
||||
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(753, 266)
|
||||
Me.Panel1.Size = New System.Drawing.Size(753, 333)
|
||||
Me.Panel1.TabIndex = 0
|
||||
'
|
||||
'FlatButton1
|
||||
@@ -114,7 +117,7 @@ Partial Class frmNewData
|
||||
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.Panel2.Location = New System.Drawing.Point(0, 0)
|
||||
Me.Panel2.Name = "Panel2"
|
||||
Me.Panel2.Size = New System.Drawing.Size(751, 264)
|
||||
Me.Panel2.Size = New System.Drawing.Size(751, 331)
|
||||
Me.Panel2.TabIndex = 13
|
||||
'
|
||||
'MyFlowLayoutPanel1
|
||||
@@ -158,15 +161,18 @@ Partial Class frmNewData
|
||||
Me.FlowLayoutPanel.Controls.Add(Me.btnSDL_FREJUS)
|
||||
Me.FlowLayoutPanel.Controls.Add(Me.btnSDL_Hugo)
|
||||
Me.FlowLayoutPanel.Controls.Add(Me.btnSDL_DouBox)
|
||||
Me.FlowLayoutPanel.Controls.Add(Me.btnSDL_MotorWay)
|
||||
Me.FlowLayoutPanel.Controls.Add(Me.btnSDL_MautFR)
|
||||
Me.FlowLayoutPanel.Controls.Add(Me.btnSDL_MANAbgas)
|
||||
Me.FlowLayoutPanel.Controls.Add(Me.btnSDL_MotorWay)
|
||||
Me.FlowLayoutPanel.Controls.Add(Me.btnSDL_PLOSE)
|
||||
Me.FlowLayoutPanel.Controls.Add(Me.btnSDL_PLOSE_IT)
|
||||
Me.FlowLayoutPanel.Controls.Add(Me.btnSDL_PLOSE_CZ)
|
||||
Me.FlowLayoutPanel.Controls.Add(Me.btnVeragParkplatz)
|
||||
Me.FlowLayoutPanel.Dock = System.Windows.Forms.DockStyle.Bottom
|
||||
Me.FlowLayoutPanel.Location = New System.Drawing.Point(0, 119)
|
||||
Me.FlowLayoutPanel.Name = "FlowLayoutPanel"
|
||||
Me.FlowLayoutPanel.Padding = New System.Windows.Forms.Padding(2)
|
||||
Me.FlowLayoutPanel.Size = New System.Drawing.Size(751, 145)
|
||||
Me.FlowLayoutPanel.Size = New System.Drawing.Size(751, 212)
|
||||
Me.FlowLayoutPanel.TabIndex = 13
|
||||
'
|
||||
'btnSDL_IDS
|
||||
@@ -441,25 +447,6 @@ Partial Class frmNewData
|
||||
Me.btnSDL_DouBox.UseVisualStyleBackColor = True
|
||||
Me.btnSDL_DouBox.Visible = False
|
||||
'
|
||||
'btnSDL_MotorWay
|
||||
'
|
||||
Me.btnSDL_MotorWay.Cursor = System.Windows.Forms.Cursors.Default
|
||||
Me.btnSDL_MotorWay.Enabled = False
|
||||
Me.btnSDL_MotorWay.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Silver
|
||||
Me.btnSDL_MotorWay.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnSDL_MotorWay.ForeColor = System.Drawing.Color.Black
|
||||
Me.btnSDL_MotorWay.ImageAlign = System.Drawing.ContentAlignment.TopCenter
|
||||
Me.btnSDL_MotorWay.Location = New System.Drawing.Point(414, 72)
|
||||
Me.btnSDL_MotorWay.Margin = New System.Windows.Forms.Padding(2)
|
||||
Me.btnSDL_MotorWay.Name = "btnSDL_MotorWay"
|
||||
Me.btnSDL_MotorWay.Size = New System.Drawing.Size(78, 64)
|
||||
Me.btnSDL_MotorWay.TabIndex = 41
|
||||
Me.btnSDL_MotorWay.Tag = "205"
|
||||
Me.btnSDL_MotorWay.Text = "MotorWay"
|
||||
Me.btnSDL_MotorWay.TextAlign = System.Drawing.ContentAlignment.BottomCenter
|
||||
Me.btnSDL_MotorWay.UseVisualStyleBackColor = True
|
||||
Me.btnSDL_MotorWay.Visible = False
|
||||
'
|
||||
'btnSDL_MautFR
|
||||
'
|
||||
Me.btnSDL_MautFR.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||
@@ -470,7 +457,7 @@ Partial Class frmNewData
|
||||
Me.btnSDL_MautFR.ForeColor = System.Drawing.Color.Black
|
||||
Me.btnSDL_MautFR.Image = Global.SDL.My.Resources.Resources.axxes1
|
||||
Me.btnSDL_MautFR.ImageAlign = System.Drawing.ContentAlignment.TopCenter
|
||||
Me.btnSDL_MautFR.Location = New System.Drawing.Point(496, 72)
|
||||
Me.btnSDL_MautFR.Location = New System.Drawing.Point(414, 72)
|
||||
Me.btnSDL_MautFR.Margin = New System.Windows.Forms.Padding(2)
|
||||
Me.btnSDL_MautFR.Name = "btnSDL_MautFR"
|
||||
Me.btnSDL_MautFR.Size = New System.Drawing.Size(78, 64)
|
||||
@@ -491,7 +478,7 @@ Partial Class frmNewData
|
||||
Me.btnSDL_MANAbgas.ForeColor = System.Drawing.Color.Black
|
||||
Me.btnSDL_MANAbgas.Image = Global.SDL.My.Resources.Resources.Plakette1
|
||||
Me.btnSDL_MANAbgas.ImageAlign = System.Drawing.ContentAlignment.TopCenter
|
||||
Me.btnSDL_MANAbgas.Location = New System.Drawing.Point(578, 72)
|
||||
Me.btnSDL_MANAbgas.Location = New System.Drawing.Point(496, 72)
|
||||
Me.btnSDL_MANAbgas.Margin = New System.Windows.Forms.Padding(2)
|
||||
Me.btnSDL_MANAbgas.Name = "btnSDL_MANAbgas"
|
||||
Me.btnSDL_MANAbgas.Size = New System.Drawing.Size(78, 64)
|
||||
@@ -501,6 +488,85 @@ Partial Class frmNewData
|
||||
Me.btnSDL_MANAbgas.TextAlign = System.Drawing.ContentAlignment.BottomCenter
|
||||
Me.btnSDL_MANAbgas.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btnSDL_MotorWay
|
||||
'
|
||||
Me.btnSDL_MotorWay.Cursor = System.Windows.Forms.Cursors.Default
|
||||
Me.btnSDL_MotorWay.Enabled = False
|
||||
Me.btnSDL_MotorWay.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Silver
|
||||
Me.btnSDL_MotorWay.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnSDL_MotorWay.ForeColor = System.Drawing.Color.Black
|
||||
Me.btnSDL_MotorWay.ImageAlign = System.Drawing.ContentAlignment.TopCenter
|
||||
Me.btnSDL_MotorWay.Location = New System.Drawing.Point(578, 72)
|
||||
Me.btnSDL_MotorWay.Margin = New System.Windows.Forms.Padding(2)
|
||||
Me.btnSDL_MotorWay.Name = "btnSDL_MotorWay"
|
||||
Me.btnSDL_MotorWay.Size = New System.Drawing.Size(78, 64)
|
||||
Me.btnSDL_MotorWay.TabIndex = 41
|
||||
Me.btnSDL_MotorWay.Tag = "205"
|
||||
Me.btnSDL_MotorWay.Text = "MotorWay"
|
||||
Me.btnSDL_MotorWay.TextAlign = System.Drawing.ContentAlignment.BottomCenter
|
||||
Me.btnSDL_MotorWay.UseVisualStyleBackColor = True
|
||||
Me.btnSDL_MotorWay.Visible = False
|
||||
'
|
||||
'btnSDL_PLOSE
|
||||
'
|
||||
Me.btnSDL_PLOSE.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||
Me.btnSDL_PLOSE.Cursor = System.Windows.Forms.Cursors.Default
|
||||
Me.btnSDL_PLOSE.Enabled = False
|
||||
Me.btnSDL_PLOSE.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Silver
|
||||
Me.btnSDL_PLOSE.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnSDL_PLOSE.ForeColor = System.Drawing.Color.Black
|
||||
Me.btnSDL_PLOSE.Image = Global.SDL.My.Resources.Resources.plose
|
||||
Me.btnSDL_PLOSE.ImageAlign = System.Drawing.ContentAlignment.TopCenter
|
||||
Me.btnSDL_PLOSE.Location = New System.Drawing.Point(660, 72)
|
||||
Me.btnSDL_PLOSE.Margin = New System.Windows.Forms.Padding(2)
|
||||
Me.btnSDL_PLOSE.Name = "btnSDL_PLOSE"
|
||||
Me.btnSDL_PLOSE.Size = New System.Drawing.Size(78, 64)
|
||||
Me.btnSDL_PLOSE.TabIndex = 58
|
||||
Me.btnSDL_PLOSE.Tag = "214"
|
||||
Me.btnSDL_PLOSE.Text = "PLOSE"
|
||||
Me.btnSDL_PLOSE.TextAlign = System.Drawing.ContentAlignment.BottomCenter
|
||||
Me.btnSDL_PLOSE.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btnSDL_PLOSE_IT
|
||||
'
|
||||
Me.btnSDL_PLOSE_IT.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||
Me.btnSDL_PLOSE_IT.Cursor = System.Windows.Forms.Cursors.Default
|
||||
Me.btnSDL_PLOSE_IT.Enabled = False
|
||||
Me.btnSDL_PLOSE_IT.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Silver
|
||||
Me.btnSDL_PLOSE_IT.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnSDL_PLOSE_IT.ForeColor = System.Drawing.Color.Black
|
||||
Me.btnSDL_PLOSE_IT.Image = Global.SDL.My.Resources.Resources.plose_it
|
||||
Me.btnSDL_PLOSE_IT.ImageAlign = System.Drawing.ContentAlignment.TopCenter
|
||||
Me.btnSDL_PLOSE_IT.Location = New System.Drawing.Point(4, 140)
|
||||
Me.btnSDL_PLOSE_IT.Margin = New System.Windows.Forms.Padding(2)
|
||||
Me.btnSDL_PLOSE_IT.Name = "btnSDL_PLOSE_IT"
|
||||
Me.btnSDL_PLOSE_IT.Size = New System.Drawing.Size(78, 64)
|
||||
Me.btnSDL_PLOSE_IT.TabIndex = 59
|
||||
Me.btnSDL_PLOSE_IT.Tag = "215"
|
||||
Me.btnSDL_PLOSE_IT.Text = "PLOSE IT"
|
||||
Me.btnSDL_PLOSE_IT.TextAlign = System.Drawing.ContentAlignment.BottomCenter
|
||||
Me.btnSDL_PLOSE_IT.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btnSDL_PLOSE_CZ
|
||||
'
|
||||
Me.btnSDL_PLOSE_CZ.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||
Me.btnSDL_PLOSE_CZ.Cursor = System.Windows.Forms.Cursors.Default
|
||||
Me.btnSDL_PLOSE_CZ.Enabled = False
|
||||
Me.btnSDL_PLOSE_CZ.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Silver
|
||||
Me.btnSDL_PLOSE_CZ.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnSDL_PLOSE_CZ.ForeColor = System.Drawing.Color.Black
|
||||
Me.btnSDL_PLOSE_CZ.Image = Global.SDL.My.Resources.Resources.plose_cz
|
||||
Me.btnSDL_PLOSE_CZ.ImageAlign = System.Drawing.ContentAlignment.TopCenter
|
||||
Me.btnSDL_PLOSE_CZ.Location = New System.Drawing.Point(86, 140)
|
||||
Me.btnSDL_PLOSE_CZ.Margin = New System.Windows.Forms.Padding(2)
|
||||
Me.btnSDL_PLOSE_CZ.Name = "btnSDL_PLOSE_CZ"
|
||||
Me.btnSDL_PLOSE_CZ.Size = New System.Drawing.Size(78, 64)
|
||||
Me.btnSDL_PLOSE_CZ.TabIndex = 60
|
||||
Me.btnSDL_PLOSE_CZ.Tag = "216"
|
||||
Me.btnSDL_PLOSE_CZ.Text = "PLOSE CZ"
|
||||
Me.btnSDL_PLOSE_CZ.TextAlign = System.Drawing.ContentAlignment.BottomCenter
|
||||
Me.btnSDL_PLOSE_CZ.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btnVeragParkplatz
|
||||
'
|
||||
Me.btnVeragParkplatz.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||
@@ -511,7 +577,7 @@ Partial Class frmNewData
|
||||
Me.btnVeragParkplatz.ForeColor = System.Drawing.Color.Black
|
||||
Me.btnVeragParkplatz.Image = Global.SDL.My.Resources.Resources.verag_Card1
|
||||
Me.btnVeragParkplatz.ImageAlign = System.Drawing.ContentAlignment.TopCenter
|
||||
Me.btnVeragParkplatz.Location = New System.Drawing.Point(660, 72)
|
||||
Me.btnVeragParkplatz.Location = New System.Drawing.Point(168, 140)
|
||||
Me.btnVeragParkplatz.Margin = New System.Windows.Forms.Padding(2)
|
||||
Me.btnVeragParkplatz.Name = "btnVeragParkplatz"
|
||||
Me.btnVeragParkplatz.Size = New System.Drawing.Size(78, 64)
|
||||
@@ -602,7 +668,7 @@ Partial Class frmNewData
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(755, 268)
|
||||
Me.ClientSize = New System.Drawing.Size(755, 335)
|
||||
Me.Controls.Add(Me.pnlMain)
|
||||
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
|
||||
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
@@ -649,4 +715,7 @@ Partial Class frmNewData
|
||||
Friend WithEvents MyFlowLayoutPanel1 As VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel
|
||||
Friend WithEvents btnSDL_MANAbgas As System.Windows.Forms.Button
|
||||
Friend WithEvents btnVeragParkplatz As System.Windows.Forms.Button
|
||||
Friend WithEvents btnSDL_PLOSE As Button
|
||||
Friend WithEvents btnSDL_PLOSE_IT As Button
|
||||
Friend WithEvents btnSDL_PLOSE_CZ As Button
|
||||
End Class
|
||||
|
||||
@@ -202,6 +202,9 @@ Public Class frmNewData
|
||||
Case 202 : btnAddLeistungVordefiniert.Image = My.Resources.telepass : btnAddLeistungVordefiniert.Text = "Maut IT" & vbNewLine & "hinzufügen"
|
||||
Case 203 : btnAddLeistungVordefiniert.Image = My.Resources.premid : btnAddLeistungVordefiniert.Text = "Maut CZ" & vbNewLine & "hinzufügen"
|
||||
Case 213 : btnAddLeistungVordefiniert.Image = My.Resources.hugo : btnAddLeistungVordefiniert.Text = "Hugo" & vbNewLine & "hinzufügen"
|
||||
Case 214 : btnAddLeistungVordefiniert.Image = My.Resources.plose : btnAddLeistungVordefiniert.Text = "PLOSE" & vbNewLine & "hinzufügen"
|
||||
Case 215 : btnAddLeistungVordefiniert.Image = My.Resources.plose_it : btnAddLeistungVordefiniert.Text = "PLOSE IT" & vbNewLine & "hinzufügen"
|
||||
Case 216 : btnAddLeistungVordefiniert.Image = My.Resources.plose_cz : btnAddLeistungVordefiniert.Text = "PLOSE CZ" & vbNewLine & "hinzufügen"
|
||||
Case 209 : btnAddLeistungVordefiniert.Image = My.Resources.viatoll : btnAddLeistungVordefiniert.Text = "Maut PL" & vbNewLine & "hinzufügen"
|
||||
Case 210 : btnAddLeistungVordefiniert.Image = My.Resources.abc_obu : btnAddLeistungVordefiniert.Text = "Maut SI" & vbNewLine & "hinzufügen"
|
||||
Case 208 : btnAddLeistungVordefiniert.Image = My.Resources.mse : btnAddLeistungVordefiniert.Text = "MSE" & vbNewLine & "hinzufügen"
|
||||
@@ -251,7 +254,7 @@ Public Class frmNewData
|
||||
|
||||
Private Sub btnSDL_Woelfl_Click(sender As Object, e As EventArgs) Handles btnSDL_Woelfl.Click, btnSDL_IDS.Click, btnSDL_MautAT.Click, btnSDL_MautDE.Click, btnSDL_MautMSE.Click, btnSDL_UTA.Click, btnSDL_MautPL.Click,
|
||||
btnSDL_MautIT.Click, btnSDL_MautSI.Click, btnSDL_MautCZ.Click, btnSDL_ECOTAX.Click, btnSDL_FREJUS.Click, btnSDL_Hugo.Click, btnSDL_DouBox.Click, btnSDL_MotorWay.Click, btnSDL_MautFR.Click, btnAddLeistungVordefiniert.Click, btnSDL_MANAbgas.Click,
|
||||
btnVeragParkplatz.Click
|
||||
btnVeragParkplatz.Click, btnSDL_PLOSE.Click, btnSDL_PLOSE_IT.Click, btnSDL_PLOSE_CZ.Click
|
||||
|
||||
If KdSearchBox1.KdNr <= 0 Then MsgBox("Kunde auswählen!") : Exit Sub
|
||||
|
||||
@@ -267,7 +270,7 @@ Public Class frmNewData
|
||||
If cbo._value <> "" Then
|
||||
|
||||
|
||||
|
||||
|
||||
If sender.tag = "501" Then
|
||||
Dim kdnr_tmp = KdSearchBox1.KdNr
|
||||
Dim kfz_tmp = cbo.Text
|
||||
@@ -304,8 +307,6 @@ Public Class frmNewData
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
|
||||
@@ -51,7 +51,7 @@ Public Class usrCntlDatenDetails
|
||||
AddHandler usrcntl.CHANGED, Sub(kdNr, Kfz, SDLNr, History)
|
||||
RaiseEvent DataChanged(kdNr, Kfz, SDLNr, History)
|
||||
End Sub
|
||||
|
||||
|
||||
ElseIf SDLLeistung = 200 Then ' AT-MAUT
|
||||
pic.Image = Nothing
|
||||
Dim usrcntl As New usrCntlSDLLeistungMautAT(kdnr, KfzKennzeichen, SDLLeistung, history)
|
||||
@@ -63,7 +63,7 @@ Public Class usrCntlDatenDetails
|
||||
AddHandler usrcntl.CHANGED, Sub(kdNr, Kfz, SDLNr, History)
|
||||
RaiseEvent DataChanged(kdNr, Kfz, SDLNr, History)
|
||||
End Sub
|
||||
|
||||
|
||||
ElseIf SDLLeistung = 201 Then ' DE-MAUT
|
||||
pic.Image = Nothing
|
||||
Dim usrcntl As New usrCntlSDLLeistungMautDE(kdnr, KfzKennzeichen, SDLLeistung, history)
|
||||
@@ -75,7 +75,7 @@ Public Class usrCntlDatenDetails
|
||||
AddHandler usrcntl.CHANGED, Sub(kdNr, Kfz, SDLNr, History)
|
||||
RaiseEvent DataChanged(kdNr, Kfz, SDLNr, History)
|
||||
End Sub
|
||||
|
||||
|
||||
ElseIf SDLLeistung = 202 Then ' IT-MAUT
|
||||
pic.Image = Nothing
|
||||
Dim usrcntl As New usrCntlSDLLeistungenIT(kdnr, KfzKennzeichen, SDLLeistung, history)
|
||||
@@ -87,7 +87,7 @@ Public Class usrCntlDatenDetails
|
||||
AddHandler usrcntl.CHANGED, Sub(kdNr, Kfz, SDLNr, History)
|
||||
RaiseEvent DataChanged(kdNr, Kfz, SDLNr, History)
|
||||
End Sub
|
||||
|
||||
|
||||
ElseIf SDLLeistung = 203 Then ' CZ MAUT
|
||||
pic.Image = Nothing
|
||||
Dim usrcntl As New usrCntlSDLLeistungenCZ(kdnr, KfzKennzeichen, SDLLeistung, history)
|
||||
@@ -99,7 +99,7 @@ Public Class usrCntlDatenDetails
|
||||
AddHandler usrcntl.CHANGED, Sub(kdNr, Kfz, SDLNr, History)
|
||||
RaiseEvent DataChanged(kdNr, Kfz, SDLNr, History)
|
||||
End Sub
|
||||
|
||||
|
||||
ElseIf SDLLeistung = 204 Then ' FR-MAUT
|
||||
pic.Image = Nothing
|
||||
Dim usrcntl As New usrCntlSDLLeistungenFR(kdnr, KfzKennzeichen, SDLLeistung, history)
|
||||
@@ -111,7 +111,7 @@ Public Class usrCntlDatenDetails
|
||||
AddHandler usrcntl.CHANGED, Sub(kdNr, Kfz, SDLNr, History)
|
||||
RaiseEvent DataChanged(kdNr, Kfz, SDLNr, History)
|
||||
End Sub
|
||||
|
||||
|
||||
ElseIf SDLLeistung = 205 Then ' MotorWayMaut
|
||||
pic.Image = Nothing
|
||||
Dim usrcntl As New usrCntlSDLLeistungenMotorWayMaut(kdnr, KfzKennzeichen, SDLLeistung, history)
|
||||
@@ -135,7 +135,7 @@ Public Class usrCntlDatenDetails
|
||||
AddHandler usrcntl.CHANGED, Sub(kdNr, Kfz, SDLNr, History)
|
||||
RaiseEvent DataChanged(kdNr, Kfz, SDLNr, History)
|
||||
End Sub
|
||||
|
||||
|
||||
ElseIf SDLLeistung = 207 Then ' FREJUS
|
||||
pic.Image = Nothing
|
||||
Dim usrcntl As New usrCntlSDLLeistungenFREJUS(kdnr, KfzKennzeichen, SDLLeistung, history)
|
||||
@@ -147,7 +147,7 @@ Public Class usrCntlDatenDetails
|
||||
AddHandler usrcntl.CHANGED, Sub(kdNr, Kfz, SDLNr, History)
|
||||
RaiseEvent DataChanged(kdNr, Kfz, SDLNr, History)
|
||||
End Sub
|
||||
|
||||
|
||||
ElseIf SDLLeistung = 208 Then ' MSE Card
|
||||
pic.Image = Nothing
|
||||
Dim usrcntl As New usrCntlSDLLeistungenMSE(kdnr, KfzKennzeichen, SDLLeistung, history)
|
||||
@@ -159,7 +159,7 @@ Public Class usrCntlDatenDetails
|
||||
AddHandler usrcntl.CHANGED, Sub(kdNr, Kfz, SDLNr, History)
|
||||
RaiseEvent DataChanged(kdNr, Kfz, SDLNr, History)
|
||||
End Sub
|
||||
|
||||
|
||||
ElseIf SDLLeistung = 209 Then ' PL MAUT
|
||||
pic.Image = Nothing
|
||||
Dim usrcntl As New usrCntlSDLLeistungenPL(kdnr, KfzKennzeichen, SDLLeistung, history)
|
||||
@@ -183,7 +183,7 @@ Public Class usrCntlDatenDetails
|
||||
AddHandler usrcntl.CHANGED, Sub(kdNr, Kfz, SDLNr, History)
|
||||
RaiseEvent DataChanged(kdNr, Kfz, SDLNr, History)
|
||||
End Sub
|
||||
|
||||
|
||||
ElseIf SDLLeistung = 211 Then ' ECOTAX
|
||||
pic.Image = Nothing
|
||||
Dim usrcntl As New usrCntlSDLLeistungenECOTAX(kdnr, KfzKennzeichen, SDLLeistung, history)
|
||||
@@ -195,7 +195,7 @@ Public Class usrCntlDatenDetails
|
||||
AddHandler usrcntl.CHANGED, Sub(kdNr, Kfz, SDLNr, History)
|
||||
RaiseEvent DataChanged(kdNr, Kfz, SDLNr, History)
|
||||
End Sub
|
||||
|
||||
|
||||
ElseIf SDLLeistung = 212 Then ' UTA
|
||||
pic.Image = Nothing
|
||||
Dim usrcntl As New usrCntlSDLLeistungenUTA(kdnr, KfzKennzeichen, SDLLeistung, history)
|
||||
@@ -207,7 +207,7 @@ Public Class usrCntlDatenDetails
|
||||
AddHandler usrcntl.CHANGED, Sub(kdNr, Kfz, SDLNr, History)
|
||||
RaiseEvent DataChanged(kdNr, Kfz, SDLNr, History)
|
||||
End Sub
|
||||
|
||||
|
||||
ElseIf SDLLeistung = 213 Then ' HUGO
|
||||
pic.Image = Nothing
|
||||
Dim usrcntl As New usrCntlSDLLeistungHUGO(kdnr, KfzKennzeichen, SDLLeistung, history)
|
||||
@@ -220,6 +220,40 @@ Public Class usrCntlDatenDetails
|
||||
RaiseEvent DataChanged(kdNr, Kfz, SDLNr, History)
|
||||
End Sub
|
||||
|
||||
ElseIf SDLLeistung = 214 Then ' PLOSE
|
||||
pic.Image = Nothing
|
||||
Dim usrcntl As New usrCntlSDLLeistungPLOSE(kdnr, KfzKennzeichen, SDLLeistung, history)
|
||||
usrcntl.Dock = DockStyle.Fill
|
||||
pnlSDLLeistungenDetails.Controls.Add(usrcntl)
|
||||
AddHandler usrcntl.LKWChanged, Sub(kdNr, newKfz, SDLNr, History)
|
||||
RaiseEvent Changed(kdNr, newKfz, SDLNr, History)
|
||||
End Sub
|
||||
AddHandler usrcntl.CHANGED, Sub(kdNr, Kfz, SDLNr, History)
|
||||
RaiseEvent DataChanged(kdNr, Kfz, SDLNr, History)
|
||||
End Sub
|
||||
ElseIf SDLLeistung = 215 Then ' PLOSE it
|
||||
pic.Image = Nothing
|
||||
Dim usrcntl As New usrCntlSDLLeistungenPLOSE_IT(kdnr, KfzKennzeichen, SDLLeistung, history)
|
||||
usrcntl.Dock = DockStyle.Fill
|
||||
pnlSDLLeistungenDetails.Controls.Add(usrcntl)
|
||||
AddHandler usrcntl.LKWChanged, Sub(kdNr, newKfz, SDLNr, History)
|
||||
RaiseEvent Changed(kdNr, newKfz, SDLNr, History)
|
||||
End Sub
|
||||
AddHandler usrcntl.CHANGED, Sub(kdNr, Kfz, SDLNr, History)
|
||||
RaiseEvent DataChanged(kdNr, Kfz, SDLNr, History)
|
||||
End Sub
|
||||
ElseIf SDLLeistung = 216 Then ' PLOSE cz
|
||||
pic.Image = Nothing
|
||||
Dim usrcntl As New usrCntlSDLLeistungenPLOSE_CZ(kdnr, KfzKennzeichen, SDLLeistung, history)
|
||||
usrcntl.Dock = DockStyle.Fill
|
||||
pnlSDLLeistungenDetails.Controls.Add(usrcntl)
|
||||
AddHandler usrcntl.LKWChanged, Sub(kdNr, newKfz, SDLNr, History)
|
||||
RaiseEvent Changed(kdNr, newKfz, SDLNr, History)
|
||||
End Sub
|
||||
AddHandler usrcntl.CHANGED, Sub(kdNr, Kfz, SDLNr, History)
|
||||
RaiseEvent DataChanged(kdNr, Kfz, SDLNr, History)
|
||||
End Sub
|
||||
|
||||
ElseIf SDLLeistung = 500 Then ' MAN
|
||||
pic.Image = Nothing
|
||||
Dim usrcntl As New usrCntlSDLLeistungenMANAbgas(kdnr, KfzKennzeichen, SDLLeistung, history)
|
||||
|
||||
85
SDL/mdm/usrCntlKartenDaten.Designer.vb
generated
85
SDL/mdm/usrCntlKartenDaten.Designer.vb
generated
@@ -23,7 +23,7 @@ Partial Class usrCntlKartenDaten
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Me.DetailsAnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.FlowLayoutPanel = New System.Windows.Forms.FlowLayoutPanel()
|
||||
Me.btnSDL_Alle = New System.Windows.Forms.Button()
|
||||
@@ -45,6 +45,7 @@ Partial Class usrCntlKartenDaten
|
||||
Me.btnSDL_Woelfl = New System.Windows.Forms.Button()
|
||||
Me.btnMANAbgasplakette = New System.Windows.Forms.Button()
|
||||
Me.btnVERAGParkplatz = New System.Windows.Forms.Button()
|
||||
Me.btnSDL_PLOSE = New System.Windows.Forms.Button()
|
||||
Me.btnFilter = New System.Windows.Forms.Button()
|
||||
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
|
||||
Me.KundenblattAnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
@@ -71,13 +72,15 @@ Partial Class usrCntlKartenDaten
|
||||
Me.Panel3 = New System.Windows.Forms.Panel()
|
||||
Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
|
||||
Me.dgvSDL = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
|
||||
Me.UsrCntlDatenDetails1 = New SDL.usrCntlDatenDetails()
|
||||
Me.Panel4 = New System.Windows.Forms.Panel()
|
||||
Me.pnlTest = New System.Windows.Forms.Panel()
|
||||
Me.dgvFILTER = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
|
||||
Me.cntxtExcel = New System.Windows.Forms.ContextMenuStrip(Me.components)
|
||||
Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.ToolStripMenuItem6 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.UsrCntlDatenDetails1 = New SDL.usrCntlDatenDetails()
|
||||
Me.btnSDL_PLOSE_IT = New System.Windows.Forms.Button()
|
||||
Me.btnSDL_PLOSE_CZ = New System.Windows.Forms.Button()
|
||||
Me.FlowLayoutPanel.SuspendLayout()
|
||||
Me.ContextMenuStrip1.SuspendLayout()
|
||||
Me.Panel1.SuspendLayout()
|
||||
@@ -122,6 +125,9 @@ Partial Class usrCntlKartenDaten
|
||||
Me.FlowLayoutPanel.Controls.Add(Me.btnSDL_Woelfl)
|
||||
Me.FlowLayoutPanel.Controls.Add(Me.btnMANAbgasplakette)
|
||||
Me.FlowLayoutPanel.Controls.Add(Me.btnVERAGParkplatz)
|
||||
Me.FlowLayoutPanel.Controls.Add(Me.btnSDL_PLOSE)
|
||||
Me.FlowLayoutPanel.Controls.Add(Me.btnSDL_PLOSE_IT)
|
||||
Me.FlowLayoutPanel.Controls.Add(Me.btnSDL_PLOSE_CZ)
|
||||
Me.FlowLayoutPanel.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.FlowLayoutPanel.Location = New System.Drawing.Point(0, 0)
|
||||
Me.FlowLayoutPanel.Margin = New System.Windows.Forms.Padding(0)
|
||||
@@ -300,7 +306,7 @@ Partial Class usrCntlKartenDaten
|
||||
Me.btnSDL_MautIT.Name = "btnSDL_MautIT"
|
||||
Me.btnSDL_MautIT.Size = New System.Drawing.Size(78, 64)
|
||||
Me.btnSDL_MautIT.TabIndex = 37
|
||||
Me.btnSDL_MautIT.Text = "IT MAUT"
|
||||
Me.btnSDL_MautIT.Text = "IT MAUT (Jara)"
|
||||
Me.btnSDL_MautIT.TextAlign = System.Drawing.ContentAlignment.BottomCenter
|
||||
Me.btnSDL_MautIT.UseVisualStyleBackColor = False
|
||||
'
|
||||
@@ -460,6 +466,23 @@ Partial Class usrCntlKartenDaten
|
||||
Me.btnVERAGParkplatz.TextAlign = System.Drawing.ContentAlignment.BottomCenter
|
||||
Me.btnVERAGParkplatz.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btnSDL_PLOSE
|
||||
'
|
||||
Me.btnSDL_PLOSE.Cursor = System.Windows.Forms.Cursors.Default
|
||||
Me.btnSDL_PLOSE.FlatAppearance.BorderSize = 0
|
||||
Me.btnSDL_PLOSE.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnSDL_PLOSE.ForeColor = System.Drawing.Color.Black
|
||||
Me.btnSDL_PLOSE.Image = Global.SDL.My.Resources.Resources.plose
|
||||
Me.btnSDL_PLOSE.ImageAlign = System.Drawing.ContentAlignment.TopCenter
|
||||
Me.btnSDL_PLOSE.Location = New System.Drawing.Point(156, 64)
|
||||
Me.btnSDL_PLOSE.Margin = New System.Windows.Forms.Padding(0)
|
||||
Me.btnSDL_PLOSE.Name = "btnSDL_PLOSE"
|
||||
Me.btnSDL_PLOSE.Size = New System.Drawing.Size(78, 64)
|
||||
Me.btnSDL_PLOSE.TabIndex = 41
|
||||
Me.btnSDL_PLOSE.Text = "PLOSE"
|
||||
Me.btnSDL_PLOSE.TextAlign = System.Drawing.ContentAlignment.BottomCenter
|
||||
Me.btnSDL_PLOSE.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btnFilter
|
||||
'
|
||||
Me.btnFilter.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
@@ -789,14 +812,23 @@ Partial Class usrCntlKartenDaten
|
||||
Me.dgvSDL.AllowUserToAddRows = False
|
||||
Me.dgvSDL.AllowUserToDeleteRows = False
|
||||
Me.dgvSDL.AllowUserToResizeColumns = False
|
||||
DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvSDL.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
|
||||
DataGridViewCellStyle4.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvSDL.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4
|
||||
Me.dgvSDL.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
Me.dgvSDL.Location = New System.Drawing.Point(0, -1)
|
||||
Me.dgvSDL.Name = "dgvSDL"
|
||||
Me.dgvSDL.Size = New System.Drawing.Size(1354, 599)
|
||||
Me.dgvSDL.TabIndex = 29
|
||||
'
|
||||
'UsrCntlDatenDetails1
|
||||
'
|
||||
Me.UsrCntlDatenDetails1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.UsrCntlDatenDetails1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.UsrCntlDatenDetails1.Name = "UsrCntlDatenDetails1"
|
||||
Me.UsrCntlDatenDetails1.Size = New System.Drawing.Size(1354, 234)
|
||||
Me.UsrCntlDatenDetails1.TabIndex = 0
|
||||
Me.UsrCntlDatenDetails1.Visible = False
|
||||
'
|
||||
'Panel4
|
||||
'
|
||||
Me.Panel4.BackColor = System.Drawing.Color.White
|
||||
@@ -855,14 +887,39 @@ Partial Class usrCntlKartenDaten
|
||||
Me.ToolStripMenuItem6.Size = New System.Drawing.Size(210, 22)
|
||||
Me.ToolStripMenuItem6.Text = "Formatiert (dauert länger)"
|
||||
'
|
||||
'UsrCntlDatenDetails1
|
||||
'btnSDL_PLOSE_IT
|
||||
'
|
||||
Me.UsrCntlDatenDetails1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.UsrCntlDatenDetails1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.UsrCntlDatenDetails1.Name = "UsrCntlDatenDetails1"
|
||||
Me.UsrCntlDatenDetails1.Size = New System.Drawing.Size(1354, 234)
|
||||
Me.UsrCntlDatenDetails1.TabIndex = 0
|
||||
Me.UsrCntlDatenDetails1.Visible = False
|
||||
Me.btnSDL_PLOSE_IT.Cursor = System.Windows.Forms.Cursors.Default
|
||||
Me.btnSDL_PLOSE_IT.FlatAppearance.BorderSize = 0
|
||||
Me.btnSDL_PLOSE_IT.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnSDL_PLOSE_IT.ForeColor = System.Drawing.Color.Black
|
||||
Me.btnSDL_PLOSE_IT.Image = Global.SDL.My.Resources.Resources.plose_it
|
||||
Me.btnSDL_PLOSE_IT.ImageAlign = System.Drawing.ContentAlignment.TopCenter
|
||||
Me.btnSDL_PLOSE_IT.Location = New System.Drawing.Point(234, 64)
|
||||
Me.btnSDL_PLOSE_IT.Margin = New System.Windows.Forms.Padding(0)
|
||||
Me.btnSDL_PLOSE_IT.Name = "btnSDL_PLOSE_IT"
|
||||
Me.btnSDL_PLOSE_IT.Size = New System.Drawing.Size(78, 64)
|
||||
Me.btnSDL_PLOSE_IT.TabIndex = 42
|
||||
Me.btnSDL_PLOSE_IT.Text = "PLOSE IT"
|
||||
Me.btnSDL_PLOSE_IT.TextAlign = System.Drawing.ContentAlignment.BottomCenter
|
||||
Me.btnSDL_PLOSE_IT.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btnSDL_PLOSE_CZ
|
||||
'
|
||||
Me.btnSDL_PLOSE_CZ.Cursor = System.Windows.Forms.Cursors.Default
|
||||
Me.btnSDL_PLOSE_CZ.FlatAppearance.BorderSize = 0
|
||||
Me.btnSDL_PLOSE_CZ.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnSDL_PLOSE_CZ.ForeColor = System.Drawing.Color.Black
|
||||
Me.btnSDL_PLOSE_CZ.Image = Global.SDL.My.Resources.Resources.plose_cz
|
||||
Me.btnSDL_PLOSE_CZ.ImageAlign = System.Drawing.ContentAlignment.TopCenter
|
||||
Me.btnSDL_PLOSE_CZ.Location = New System.Drawing.Point(312, 64)
|
||||
Me.btnSDL_PLOSE_CZ.Margin = New System.Windows.Forms.Padding(0)
|
||||
Me.btnSDL_PLOSE_CZ.Name = "btnSDL_PLOSE_CZ"
|
||||
Me.btnSDL_PLOSE_CZ.Size = New System.Drawing.Size(78, 64)
|
||||
Me.btnSDL_PLOSE_CZ.TabIndex = 43
|
||||
Me.btnSDL_PLOSE_CZ.Text = "PLOSE CZ"
|
||||
Me.btnSDL_PLOSE_CZ.TextAlign = System.Drawing.ContentAlignment.BottomCenter
|
||||
Me.btnSDL_PLOSE_CZ.UseVisualStyleBackColor = True
|
||||
'
|
||||
'usrCntlKartenDaten
|
||||
'
|
||||
@@ -944,5 +1001,7 @@ Partial Class usrCntlKartenDaten
|
||||
Friend WithEvents btnMANAbgasplakette As System.Windows.Forms.Button
|
||||
Friend WithEvents btnBestellformular As System.Windows.Forms.Button
|
||||
Friend WithEvents btnVERAGParkplatz As System.Windows.Forms.Button
|
||||
|
||||
Friend WithEvents btnSDL_PLOSE As Button
|
||||
Friend WithEvents btnSDL_PLOSE_IT As Button
|
||||
Friend WithEvents btnSDL_PLOSE_CZ As Button
|
||||
End Class
|
||||
|
||||
@@ -93,6 +93,9 @@ Public Class usrCntlKartenDaten
|
||||
btnSDL_MautIT.Visible = dt.Select("SDLNr=202").Count > 0
|
||||
btnSDL_MautCZ.Visible = dt.Select("SDLNr=203").Count > 0
|
||||
btnSDL_Hugo.Visible = dt.Select("SDLNr=213").Count > 0
|
||||
btnSDL_PLOSE.Visible = dt.Select("SDLNr=214").Count > 0
|
||||
btnSDL_PLOSE_IT.Visible = dt.Select("SDLNr=215").Count > 0
|
||||
btnSDL_PLOSE_CZ.Visible = dt.Select("SDLNr=216").Count > 0
|
||||
btnMANAbgasplakette.Visible = dt.Select("SDLNr=500").Count > 0
|
||||
btnVERAGParkplatz.Visible = dt.Select("SDLNr=501").Count > 0
|
||||
|
||||
@@ -400,6 +403,10 @@ Public Class usrCntlKartenDaten
|
||||
btnSDL_MotorWay.BackColor = defaufl_color : btnSDL_MotorWay.ForeColor = defaufl_forecolor : btnSDL_MotorWay.FlatAppearance.BorderSize = 0
|
||||
btnSDL_Woelfl.BackColor = defaufl_color : btnSDL_Woelfl.ForeColor = defaufl_forecolor : btnSDL_Woelfl.FlatAppearance.BorderSize = 0
|
||||
btnMANAbgasplakette.BackColor = defaufl_color : btnMANAbgasplakette.ForeColor = defaufl_forecolor : btnMANAbgasplakette.FlatAppearance.BorderSize = 0
|
||||
btnSDL_PLOSE.BackColor = defaufl_color : btnSDL_PLOSE.ForeColor = defaufl_forecolor : btnSDL_PLOSE.FlatAppearance.BorderSize = 0
|
||||
btnSDL_PLOSE_IT.BackColor = defaufl_color : btnSDL_PLOSE_IT.ForeColor = defaufl_forecolor : btnSDL_PLOSE_IT.FlatAppearance.BorderSize = 0
|
||||
btnSDL_PLOSE_CZ.BackColor = defaufl_color : btnSDL_PLOSE_CZ.ForeColor = defaufl_forecolor : btnSDL_PLOSE_CZ.FlatAppearance.BorderSize = 0
|
||||
btnVERAGParkplatz.BackColor = defaufl_color : btnVERAGParkplatz.ForeColor = defaufl_forecolor : btnVERAGParkplatz.FlatAppearance.BorderSize = 0
|
||||
|
||||
|
||||
b.FlatAppearance.BorderSize = 1
|
||||
@@ -460,6 +467,9 @@ Public Class usrCntlKartenDaten
|
||||
Case 202 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, [TELEPASS-Kd-Nr], VIACARD,[TELEPASS-Nr], Vermerk,Gesperrt, Defekt, Verloren, Gestohlen, Retourniert,TelepassErsatzkarte, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL WHERE SDLNr=202"
|
||||
Case 203 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, KartenNr, Vermerk, Gesperrt, Defekt, Verloren, Gestohlen, Retourniert, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL WHERE SDLNr=203"
|
||||
Case 213 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, KartenNr, OBUID, PIN, /*GültigBis,*/Vermerk, Gesperrt, Defekt, Verloren, Gestohlen, Retourniert, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL WHERE SDLNr=213"
|
||||
Case 214 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, VIACARD, [TELEPASS-Nr], /*GültigBis,*/Vermerk, Gesperrt, Defekt, Verloren, Gestohlen, Retourniert, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL WHERE SDLNr=214"
|
||||
Case 215 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, VIACARD, [TELEPASS-Nr], /*GültigBis,*/Vermerk, Gesperrt, Defekt, Verloren, Gestohlen, Retourniert, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL WHERE SDLNr=215"
|
||||
Case 216 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, KartenNr, OBUID, PIN, /*GültigBis,*/Vermerk, Gesperrt, Defekt, Verloren, Gestohlen, Retourniert, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL WHERE SDLNr=216"
|
||||
Case 209 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, [MSE-Kd-Nr], KartenNr, Vermerk,Gesperrt, Defekt, Verloren, Gestohlen, Retourniert, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL WHERE SDLNr=209"
|
||||
Case 210 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, [MSE-Kd-Nr], KartenNr, OBUID, [SERIE-Nr],Vermerk, Gesperrt, Defekt, Verloren, Gestohlen, Retourniert, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL WHERE SDLNr=210"
|
||||
Case 208 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, [MSE-Kd-Nr], KartenNr, GültigBis,Vermerk,Gesperrt, Defekt, Verloren, Gestohlen, Retourniert, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL WHERE SDLNr=208"
|
||||
@@ -507,6 +517,9 @@ Public Class usrCntlKartenDaten
|
||||
Case 202 : Return btnSDL_MautIT
|
||||
Case 203 : Return btnSDL_MautCZ
|
||||
Case 213 : Return btnSDL_Hugo
|
||||
Case 214 : Return btnSDL_PLOSE
|
||||
Case 215 : Return btnSDL_PLOSE_IT
|
||||
Case 216 : Return btnSDL_PLOSE_CZ
|
||||
Case 209 : Return btnSDL_MautPL
|
||||
Case 210 : Return btnSDL_MautSI
|
||||
Case 208 : Return btnSDL_MautMSE
|
||||
@@ -555,6 +568,10 @@ Public Class usrCntlKartenDaten
|
||||
SET_SDL(213)
|
||||
End Sub
|
||||
|
||||
Private Sub btnSDL_PLOSE_Click(sender As Object, e As EventArgs) Handles btnSDL_PLOSE.Click
|
||||
SET_SDL(214)
|
||||
End Sub
|
||||
|
||||
Private Sub btnSDL_MautPL_Click(sender As Object, e As EventArgs) Handles btnSDL_MautPL.Click
|
||||
SET_SDL(209)
|
||||
End Sub
|
||||
@@ -1387,4 +1404,12 @@ Public Class usrCntlKartenDaten
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub btnSDL_PLOSE_IT_Click(sender As Object, e As EventArgs) Handles btnSDL_PLOSE_IT.Click
|
||||
SET_SDL(215)
|
||||
End Sub
|
||||
|
||||
Private Sub btnSDL_PLOSE_CZ_Click(sender As Object, e As EventArgs) Handles btnSDL_PLOSE_CZ.Click
|
||||
SET_SDL(216)
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
186
SDL/mdm/usrCntlMDMAuswertungen.Designer.vb
generated
186
SDL/mdm/usrCntlMDMAuswertungen.Designer.vb
generated
@@ -135,21 +135,8 @@ Partial Class usrCntlMDMAuswertungen
|
||||
Me.TextBox1 = New System.Windows.Forms.TextBox()
|
||||
Me.Label41 = New System.Windows.Forms.Label()
|
||||
Me.Button12 = New System.Windows.Forms.Button()
|
||||
Me.Label42 = New System.Windows.Forms.Label()
|
||||
Me.GroupBox12 = New System.Windows.Forms.GroupBox()
|
||||
Me.lblPloseAnh_Proz = New System.Windows.Forms.Label()
|
||||
Me.Button13 = New System.Windows.Forms.Button()
|
||||
Me.pbPloseAnh_Proz = New System.Windows.Forms.ProgressBar()
|
||||
Me.txtPloseAnh_Einarbeitung = New System.Windows.Forms.TextBox()
|
||||
Me.datPLOSE_Sum_Von = New System.Windows.Forms.DateTimePicker()
|
||||
Me.Label44 = New System.Windows.Forms.Label()
|
||||
Me.Label45 = New System.Windows.Forms.Label()
|
||||
Me.Label46 = New System.Windows.Forms.Label()
|
||||
Me.Button14 = New System.Windows.Forms.Button()
|
||||
Me.datPLOSE_Sum_Bis = New System.Windows.Forms.DateTimePicker()
|
||||
Me.Button15 = New System.Windows.Forms.Button()
|
||||
Me.pnl = New System.Windows.Forms.Panel()
|
||||
Me.datPloseAnhang = New System.Windows.Forms.DateTimePicker()
|
||||
Me.Label43 = New System.Windows.Forms.Label()
|
||||
Me.GroupBox1.SuspendLayout()
|
||||
Me.GroupBox2.SuspendLayout()
|
||||
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
@@ -173,7 +160,6 @@ Partial Class usrCntlMDMAuswertungen
|
||||
Me.GroupBox10.SuspendLayout()
|
||||
Me.tbPLOSE.SuspendLayout()
|
||||
Me.GroupBox11.SuspendLayout()
|
||||
Me.GroupBox12.SuspendLayout()
|
||||
Me.pnl.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
@@ -1342,11 +1328,8 @@ Partial Class usrCntlMDMAuswertungen
|
||||
'
|
||||
'tbPLOSE
|
||||
'
|
||||
Me.tbPLOSE.Controls.Add(Me.datPloseAnhang)
|
||||
Me.tbPLOSE.Controls.Add(Me.Label37)
|
||||
Me.tbPLOSE.Controls.Add(Me.GroupBox11)
|
||||
Me.tbPLOSE.Controls.Add(Me.Label42)
|
||||
Me.tbPLOSE.Controls.Add(Me.GroupBox12)
|
||||
Me.tbPLOSE.Location = New System.Drawing.Point(4, 22)
|
||||
Me.tbPLOSE.Name = "tbPLOSE"
|
||||
Me.tbPLOSE.Padding = New System.Windows.Forms.Padding(3)
|
||||
@@ -1377,7 +1360,7 @@ Partial Class usrCntlMDMAuswertungen
|
||||
Me.GroupBox11.Enabled = False
|
||||
Me.GroupBox11.Location = New System.Drawing.Point(6, 22)
|
||||
Me.GroupBox11.Name = "GroupBox11"
|
||||
Me.GroupBox11.Size = New System.Drawing.Size(297, 145)
|
||||
Me.GroupBox11.Size = New System.Drawing.Size(587, 126)
|
||||
Me.GroupBox11.TabIndex = 18
|
||||
Me.GroupBox11.TabStop = False
|
||||
'
|
||||
@@ -1435,128 +1418,23 @@ Partial Class usrCntlMDMAuswertungen
|
||||
Me.Button12.Text = "Datei einlesen ..." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
|
||||
Me.Button12.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Label42
|
||||
'Button15
|
||||
'
|
||||
Me.Label42.AutoSize = True
|
||||
Me.Label42.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label42.ForeColor = System.Drawing.SystemColors.ControlDarkDark
|
||||
Me.Label42.Location = New System.Drawing.Point(325, 11)
|
||||
Me.Label42.Name = "Label42"
|
||||
Me.Label42.Size = New System.Drawing.Size(199, 17)
|
||||
Me.Label42.TabIndex = 24
|
||||
Me.Label42.Text = "PLOSE Datenverarbeitung"
|
||||
'
|
||||
'GroupBox12
|
||||
'
|
||||
Me.GroupBox12.Controls.Add(Me.Label43)
|
||||
Me.GroupBox12.Controls.Add(Me.lblPloseAnh_Proz)
|
||||
Me.GroupBox12.Controls.Add(Me.Button13)
|
||||
Me.GroupBox12.Controls.Add(Me.pbPloseAnh_Proz)
|
||||
Me.GroupBox12.Controls.Add(Me.txtPloseAnh_Einarbeitung)
|
||||
Me.GroupBox12.Controls.Add(Me.datPLOSE_Sum_Von)
|
||||
Me.GroupBox12.Controls.Add(Me.Label44)
|
||||
Me.GroupBox12.Controls.Add(Me.Label45)
|
||||
Me.GroupBox12.Controls.Add(Me.Label46)
|
||||
Me.GroupBox12.Controls.Add(Me.Button14)
|
||||
Me.GroupBox12.Controls.Add(Me.datPLOSE_Sum_Bis)
|
||||
Me.GroupBox12.Location = New System.Drawing.Point(322, 22)
|
||||
Me.GroupBox12.Name = "GroupBox12"
|
||||
Me.GroupBox12.Size = New System.Drawing.Size(587, 169)
|
||||
Me.GroupBox12.TabIndex = 23
|
||||
Me.GroupBox12.TabStop = False
|
||||
'
|
||||
'lblPloseAnh_Proz
|
||||
'
|
||||
Me.lblPloseAnh_Proz.Location = New System.Drawing.Point(495, 117)
|
||||
Me.lblPloseAnh_Proz.Name = "lblPloseAnh_Proz"
|
||||
Me.lblPloseAnh_Proz.Size = New System.Drawing.Size(69, 13)
|
||||
Me.lblPloseAnh_Proz.TabIndex = 27
|
||||
Me.lblPloseAnh_Proz.Text = "0%"
|
||||
Me.lblPloseAnh_Proz.TextAlign = System.Drawing.ContentAlignment.TopRight
|
||||
'
|
||||
'Button13
|
||||
'
|
||||
Me.Button13.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button13.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||
Me.Button13.Location = New System.Drawing.Point(37, 88)
|
||||
Me.Button13.Name = "Button13"
|
||||
Me.Button13.Size = New System.Drawing.Size(238, 37)
|
||||
Me.Button13.TabIndex = 26
|
||||
Me.Button13.Text = "Anhänge erstellen"
|
||||
Me.Button13.UseVisualStyleBackColor = True
|
||||
'
|
||||
'pbPloseAnh_Proz
|
||||
'
|
||||
Me.pbPloseAnh_Proz.Location = New System.Drawing.Point(281, 88)
|
||||
Me.pbPloseAnh_Proz.Name = "pbPloseAnh_Proz"
|
||||
Me.pbPloseAnh_Proz.Size = New System.Drawing.Size(283, 23)
|
||||
Me.pbPloseAnh_Proz.TabIndex = 26
|
||||
'
|
||||
'txtPloseAnh_Einarbeitung
|
||||
'
|
||||
Me.txtPloseAnh_Einarbeitung.BackColor = System.Drawing.Color.White
|
||||
Me.txtPloseAnh_Einarbeitung.BorderStyle = System.Windows.Forms.BorderStyle.None
|
||||
Me.txtPloseAnh_Einarbeitung.Location = New System.Drawing.Point(353, 117)
|
||||
Me.txtPloseAnh_Einarbeitung.Name = "txtPloseAnh_Einarbeitung"
|
||||
Me.txtPloseAnh_Einarbeitung.Size = New System.Drawing.Size(106, 13)
|
||||
Me.txtPloseAnh_Einarbeitung.TabIndex = 25
|
||||
'
|
||||
'datPLOSE_Sum_Von
|
||||
'
|
||||
Me.datPLOSE_Sum_Von.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
|
||||
Me.datPLOSE_Sum_Von.Location = New System.Drawing.Point(37, 19)
|
||||
Me.datPLOSE_Sum_Von.Name = "datPLOSE_Sum_Von"
|
||||
Me.datPLOSE_Sum_Von.Size = New System.Drawing.Size(103, 20)
|
||||
Me.datPLOSE_Sum_Von.TabIndex = 18
|
||||
'
|
||||
'Label44
|
||||
'
|
||||
Me.Label44.AutoSize = True
|
||||
Me.Label44.Location = New System.Drawing.Point(278, 117)
|
||||
Me.Label44.Name = "Label44"
|
||||
Me.Label44.Size = New System.Drawing.Size(56, 13)
|
||||
Me.Label44.TabIndex = 24
|
||||
Me.Label44.Text = "Fortschritt:"
|
||||
'
|
||||
'Label45
|
||||
'
|
||||
Me.Label45.AutoSize = True
|
||||
Me.Label45.Location = New System.Drawing.Point(143, 22)
|
||||
Me.Label45.Name = "Label45"
|
||||
Me.Label45.Size = New System.Drawing.Size(23, 13)
|
||||
Me.Label45.TabIndex = 21
|
||||
Me.Label45.Text = "bis:"
|
||||
'
|
||||
'Label46
|
||||
'
|
||||
Me.Label46.AutoSize = True
|
||||
Me.Label46.Location = New System.Drawing.Point(3, 22)
|
||||
Me.Label46.Name = "Label46"
|
||||
Me.Label46.Size = New System.Drawing.Size(28, 13)
|
||||
Me.Label46.TabIndex = 19
|
||||
Me.Label46.Text = "von:"
|
||||
'
|
||||
'Button14
|
||||
'
|
||||
Me.Button14.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button14.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||
Me.Button14.Location = New System.Drawing.Point(37, 45)
|
||||
Me.Button14.Name = "Button14"
|
||||
Me.Button14.Size = New System.Drawing.Size(238, 37)
|
||||
Me.Button14.TabIndex = 21
|
||||
Me.Button14.Text = "Summenbericht erstellen"
|
||||
Me.Button14.UseVisualStyleBackColor = True
|
||||
'
|
||||
'datPLOSE_Sum_Bis
|
||||
'
|
||||
Me.datPLOSE_Sum_Bis.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
|
||||
Me.datPLOSE_Sum_Bis.Location = New System.Drawing.Point(172, 19)
|
||||
Me.datPLOSE_Sum_Bis.Name = "datPLOSE_Sum_Bis"
|
||||
Me.datPLOSE_Sum_Bis.Size = New System.Drawing.Size(103, 20)
|
||||
Me.datPLOSE_Sum_Bis.TabIndex = 20
|
||||
Me.Button15.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.Button15.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button15.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||
Me.Button15.Location = New System.Drawing.Point(770, 9)
|
||||
Me.Button15.Name = "Button15"
|
||||
Me.Button15.Padding = New System.Windows.Forms.Padding(10, 0, 0, 0)
|
||||
Me.Button15.Size = New System.Drawing.Size(283, 37)
|
||||
Me.Button15.TabIndex = 29
|
||||
Me.Button15.Text = "MDM Dateneinarbeitung"
|
||||
Me.Button15.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.Button15.UseVisualStyleBackColor = True
|
||||
'
|
||||
'pnl
|
||||
'
|
||||
Me.pnl.Controls.Add(Me.Button15)
|
||||
Me.pnl.Controls.Add(Me.Label2)
|
||||
Me.pnl.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Me.pnl.Location = New System.Drawing.Point(0, 0)
|
||||
@@ -1564,23 +1442,6 @@ Partial Class usrCntlMDMAuswertungen
|
||||
Me.pnl.Size = New System.Drawing.Size(1057, 54)
|
||||
Me.pnl.TabIndex = 26
|
||||
'
|
||||
'datPloseAnhang
|
||||
'
|
||||
Me.datPloseAnhang.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
|
||||
Me.datPloseAnhang.Location = New System.Drawing.Point(494, 153)
|
||||
Me.datPloseAnhang.Name = "datPloseAnhang"
|
||||
Me.datPloseAnhang.Size = New System.Drawing.Size(103, 20)
|
||||
Me.datPloseAnhang.TabIndex = 28
|
||||
'
|
||||
'Label43
|
||||
'
|
||||
Me.Label43.AutoSize = True
|
||||
Me.Label43.Location = New System.Drawing.Point(85, 137)
|
||||
Me.Label43.Name = "Label43"
|
||||
Me.Label43.Size = New System.Drawing.Size(81, 13)
|
||||
Me.Label43.TabIndex = 28
|
||||
Me.Label43.Text = "Datum Anhang:"
|
||||
'
|
||||
'usrCntlMDMAuswertungen
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
@@ -1629,8 +1490,6 @@ Partial Class usrCntlMDMAuswertungen
|
||||
Me.tbPLOSE.PerformLayout()
|
||||
Me.GroupBox11.ResumeLayout(False)
|
||||
Me.GroupBox11.PerformLayout()
|
||||
Me.GroupBox12.ResumeLayout(False)
|
||||
Me.GroupBox12.PerformLayout()
|
||||
Me.pnl.ResumeLayout(False)
|
||||
Me.pnl.PerformLayout()
|
||||
Me.ResumeLayout(False)
|
||||
@@ -1749,18 +1608,5 @@ Partial Class usrCntlMDMAuswertungen
|
||||
Friend WithEvents TextBox1 As TextBox
|
||||
Friend WithEvents Label41 As Label
|
||||
Friend WithEvents Button12 As Button
|
||||
Friend WithEvents Label42 As Label
|
||||
Friend WithEvents GroupBox12 As GroupBox
|
||||
Friend WithEvents datPLOSE_Sum_Von As DateTimePicker
|
||||
Friend WithEvents Label45 As Label
|
||||
Friend WithEvents Label46 As Label
|
||||
Friend WithEvents datPLOSE_Sum_Bis As DateTimePicker
|
||||
Friend WithEvents Button13 As Button
|
||||
Friend WithEvents Button14 As Button
|
||||
Friend WithEvents lblPloseAnh_Proz As Label
|
||||
Friend WithEvents pbPloseAnh_Proz As ProgressBar
|
||||
Friend WithEvents txtPloseAnh_Einarbeitung As TextBox
|
||||
Friend WithEvents Label44 As Label
|
||||
Friend WithEvents datPloseAnhang As DateTimePicker
|
||||
Friend WithEvents Label43 As Label
|
||||
Friend WithEvents Button15 As Button
|
||||
End Class
|
||||
|
||||
@@ -834,12 +834,15 @@ Public Class usrCntlMDMAuswertungen
|
||||
SQLstr &= " WHEN '210' THEN cast([SERIE-Nr] as VARCHAR(200)) "
|
||||
SQLstr &= " WHEN '212' THEN cast(KartenNr as VARCHAR(200)) "
|
||||
SQLstr &= " WHEN '213' THEN cast(OBUID as VARCHAR(200)) "
|
||||
SQLstr &= " WHEN '214' THEN cast(OBUID as VARCHAR(200)) "
|
||||
SQLstr &= " WHEN '215' THEN cast([TELEPASS-Nr] as VARCHAR(200)) "
|
||||
SQLstr &= " WHEN '216' THEN cast(OBUID as VARCHAR(200)) "
|
||||
SQLstr &= " WHEN '203' THEN cast(KartenNr as VARCHAR(200)) "
|
||||
SQLstr &= " WHEN '209' THEN cast([MSE-Kd-Nr] as VARCHAR(200)) "
|
||||
SQLstr &= " Else '-' "
|
||||
SQLstr &= " END as VARCHAR(200)) AS KarteBoxNr,"
|
||||
SQLstr &= " isnull(sdl.vermerk,'') as Vermerk,isnull(Gesperrt,0) as Gesperrt, isnull(Defekt,0) as Defekt,isnull(Verloren,0) as Verloren,isnull(Gestohlen,0) as Gestohlen,isnull(Ersatzkarte,0) as Ersatzkarte "
|
||||
SQLstr &= " FROM [SDL].[dbo].[SDL] inner join [KundenSDL] on [KundenSDL].SDLnr=sdl.SDLNr and [KundenSDL].KundenNr=sdl.KundenNr"
|
||||
SQLstr &= " FROM [SDL] inner join [KundenSDL] on [KundenSDL].SDLnr=sdl.SDLNr and [KundenSDL].KundenNr=sdl.KundenNr"
|
||||
SQLstr &= " where SDL.SDLNr = '" & MyComboBox2._value & "' And Sperre = 0 And Archiviert = 0 AND isnull([Gesperrt],'')=0 AND isnull([Defekt],'')=0 AND isnull([Verloren],'')=0 AND isnull([Gestohlen],'')=0 AND isnull([Retourniert],'')=0 "
|
||||
SQLstr &= " order by Firma"
|
||||
|
||||
@@ -951,280 +954,12 @@ Public Class usrCntlMDMAuswertungen
|
||||
Me.Cursor = Cursors.Default
|
||||
End Sub
|
||||
|
||||
Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click
|
||||
Dim displayFilter = False
|
||||
Dim sqlstr As String = ""
|
||||
|
||||
sqlstr &= " SELECT count(*) Anzahl ,plose_ProduktCode"
|
||||
sqlstr &= ",max(plose_Produktbeschreibung) as plose_Produktbeschreibung"
|
||||
sqlstr &= ",sum(plose_Menge) as plose_Menge"
|
||||
sqlstr &= ",sum(plose_Preis) as plose_Preis"
|
||||
sqlstr &= ",sum(plose_NettobetragTransaktion) as plose_NettobetragTransaktion"
|
||||
sqlstr &= ",sum(plose_MWSTBetrag) as plose_MWSTBetrag"
|
||||
sqlstr &= ",sum(plose_BruttobetragTransaktion) as plose_BruttobetragTransaktion "
|
||||
sqlstr &= " FROM tblPLOSE_Details"
|
||||
sqlstr &= " WHERE 1=1 "
|
||||
|
||||
sqlstr &= " AND plose_DatumTransaktion between '" & datPLOSE_Sum_Von.Value & "' and '" & datPLOSE_Sum_Bis.Value & "' "
|
||||
|
||||
sqlstr &= " group by plose_ProduktCode"
|
||||
sqlstr &= " order by plose_ProduktCode"
|
||||
|
||||
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
Dim dt As DataTable = SQL.loadDgvBySql_Param(sqlstr, "FMZOLL")
|
||||
'DataGridView.DataSource = dt
|
||||
|
||||
|
||||
Dim print As New frmPrintLayout
|
||||
print.Text = "PLOSE"
|
||||
|
||||
Dim rpt As New rptPLOSE_TransaktionenSumary
|
||||
|
||||
rpt.DataSource = dt
|
||||
|
||||
|
||||
'If cbxProdukt.Checked Then
|
||||
' rpt.GroupHeader2.DataField = "prod_descr"
|
||||
'Else
|
||||
' rpt.GroupHeader2.Visible = False
|
||||
' rpt.GroupFooter2.Visible = False
|
||||
'End If
|
||||
|
||||
|
||||
|
||||
Dim sum = 0
|
||||
rpt.lblUeberschrift.Text = "PLOSE Summenbericht " & datPLOSE_Sum_Von.Text & " bis " & datPLOSE_Sum_Bis.Text
|
||||
rpt.lblSachbearbeiter.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
|
||||
'rpt.lblMandantNiederlassung.Text = PERSONAL.Mandant & " / " & PERSONAL.Niederlassung
|
||||
|
||||
'Dim cnt As Integer = 0
|
||||
rpt.lblDat.Text = Now.ToLongDateString
|
||||
|
||||
|
||||
Dim sumPreis As Double = 0
|
||||
Dim sumNetto As Double = 0
|
||||
Dim sumMWST As Double = 0
|
||||
Dim sumBrutto As Double = 0
|
||||
Dim sumMenge As Double = 0
|
||||
|
||||
AddHandler rpt.Detail.Format, Sub()
|
||||
' rpt.lblProduktBeschreibung.Text = isDbnullEmpty(rpt.Fields.Item("BC_DESCR").Value, "")
|
||||
rpt.lblAnzahl.Text = isDbnullEmpty(rpt.Fields.Item("Anzahl").Value, "")
|
||||
rpt.lblProdukt.Text = isDbnullEmpty(rpt.Fields.Item("plose_ProduktCode").Value, "") & " - " & isDbnullEmpty(rpt.Fields.Item("plose_Produktbeschreibung").Value, "")
|
||||
|
||||
rpt.lblMenge.Text = isDbnullEmptyDbl(rpt.Fields.Item("plose_Menge").Value, 0, "")
|
||||
rpt.lblPreis.Text = isDbnullEmptyDbl(rpt.Fields.Item("plose_Preis").Value, 2, "")
|
||||
rpt.lblNetto.Text = isDbnullEmptyDbl(rpt.Fields.Item("plose_NettobetragTransaktion").Value, 2, "")
|
||||
rpt.lblMWST.Text = isDbnullEmptyDbl(rpt.Fields.Item("plose_MWSTBetrag").Value, 2, "")
|
||||
rpt.lblBrutto.Text = isDbnullEmptyDbl(rpt.Fields.Item("plose_BruttobetragTransaktion").Value, 2, "")
|
||||
|
||||
|
||||
|
||||
sumMenge += isDbnullEmptyDbl(rpt.Fields.Item("plose_Menge").Value, 4, 0)
|
||||
sumPreis += isDbnullEmptyDbl(rpt.Fields.Item("plose_Preis").Value, 4, 0)
|
||||
sumNetto += isDbnullEmptyDbl(rpt.Fields.Item("plose_NettobetragTransaktion").Value, 4, 0)
|
||||
sumMWST += isDbnullEmptyDbl(rpt.Fields.Item("plose_MWSTBetrag").Value, 4, 0)
|
||||
sumBrutto += isDbnullEmptyDbl(rpt.Fields.Item("plose_BruttobetragTransaktion").Value, 4, 0)
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
AddHandler rpt.ReportFooter1.Format, Sub()
|
||||
rpt.lblSumMenge.Text = sumMenge.ToString("N0")
|
||||
rpt.lblSumPreis.Text = sumPreis.ToString("N2")
|
||||
rpt.lblSumNetto.Text = sumNetto.ToString("N2")
|
||||
rpt.lblSumMwst.Text = sumMWST.ToString("N2")
|
||||
rpt.lblSumBrutto.Text = sumBrutto.ToString("N2")
|
||||
|
||||
End Sub
|
||||
|
||||
print.Viewer.LoadDocument(rpt)
|
||||
print.Viewer.ViewType = GrapeCity.Viewer.Common.Model.ViewType.Continuous
|
||||
print.Show()
|
||||
Private Sub Button15_Click(sender As Object, e As EventArgs) Handles Button15.Click
|
||||
Dim f As New frmMDMDatenverarbetiung
|
||||
f.Show()
|
||||
End Sub
|
||||
|
||||
Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
Dim dt_Main As DataTable = SQL.loadDgvBySql_Param("SELECT [plose_POLSEKundennummer] FROM tblPLOSE_Details where plose_FakturiertDatum is null AND plose_DatumTransaktion between '" & datPLOSE_Sum_Von.Value.ToShortDateString & "' and '" & datPLOSE_Sum_Bis.Value.ToShortDateString & "' group by [plose_POLSEKundennummer] ", "FMZOLL")
|
||||
|
||||
If dt_Main Is Nothing OrElse dt_Main.Rows.Count = 0 Then
|
||||
MsgBox("Keine Daten!")
|
||||
Exit Sub
|
||||
End If
|
||||
Dim cnt = 0
|
||||
If vbYes = MsgBox("Es wurden Daten von " & dt_Main.Rows.Count & " Kunden gefunden " & vbNewLine & " Möchten Sie die Anhänge erstellen?",vbYesNoCancel) Then
|
||||
Dim dir = "F:\FMZoll\Maut\PLOSE\" & Now.ToShortDateString
|
||||
|
||||
If IO.Directory.Exists(dir) Then dir &= "_" & Now.ToShortTimeString.Replace(":", "")
|
||||
IO.Directory.CreateDirectory(dir)
|
||||
For Each R_PLOSE In dt_Main.Rows
|
||||
genPLOSEAttachmentByKdNr(R_PLOSE("plose_POLSEKundennummer"), datPLOSE_Sum_Von.Value.ToShortDateString, datPLOSE_Sum_Bis.Value.ToShortDateString, dir)
|
||||
|
||||
|
||||
If True Then 'cnt Mod 10 = 0 Then
|
||||
txtPloseAnh_Einarbeitung.Text = cnt & " / " & dt_Main.Rows.Count
|
||||
Dim proz As Double = (cnt / dt_Main.Rows.Count) * 100
|
||||
pbPloseAnh_Proz.Value = proz
|
||||
lblPloseAnh_Proz.Text = proz.ToString("N2") & " %"
|
||||
GroupBox12.Refresh()
|
||||
My.Application.DoEvents()
|
||||
End If
|
||||
cnt += 1
|
||||
|
||||
|
||||
Next
|
||||
pbPloseAnh_Proz.Value = 100
|
||||
txtPloseAnh_Einarbeitung.Text = dt_Main.Rows.Count & " / " & dt_Main.Rows.Count
|
||||
lblPloseAnh_Proz.Text = "100.00 %"
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Function genPLOSEAttachmentByKdNr(KdNr As String, von As Date, bis As Date, dir As String)
|
||||
Try
|
||||
|
||||
Dim displayFilter = False
|
||||
Dim sqlstr As String = ""
|
||||
|
||||
sqlstr &= " SELECT * "
|
||||
sqlstr &= " FROM tblPLOSE_Details INNER JOIN [tblPLOSE_Produktbeschreibung] on plose_ProduktCode=plp_ProductCode "
|
||||
sqlstr &= " WHERE 1=1 "
|
||||
sqlstr &= " AND plose_FakturiertDatum is null "
|
||||
sqlstr &= " AND plose_POLSEKundennummer = '" & KdNr & "' "
|
||||
sqlstr &= " AND plose_DatumTransaktion between '" & von.ToShortDateString & "' and '" & bis.ToShortDateString & "' "
|
||||
|
||||
' sqlstr &= " group by plose_ProduktCode"
|
||||
sqlstr &= " order by plp_Land, plose_DatumTransaktion"
|
||||
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
Dim dt As DataTable = SQL.loadDgvBySql_Param(sqlstr, "FMZOLL")
|
||||
|
||||
Dim rpt As New rptPLOSE_Anhang
|
||||
|
||||
rpt.DataSource = dt
|
||||
|
||||
rpt.lblRgDatum.Text = datPloseAnhang.Value.ToShortDateString
|
||||
|
||||
rpt.GroupHeaderKz.DataField = "plose_Kennzeichen" 'Gruppierung
|
||||
|
||||
Dim sumNetto As Double = 0
|
||||
Dim sumMWST As Double = 0
|
||||
Dim sumBrutto As Double = 0
|
||||
|
||||
Dim sumNettoKat As Double = 0
|
||||
Dim sumMWSTKat As Double = 0
|
||||
Dim sumBruttoKat As Double = 0
|
||||
|
||||
Dim sumNettoGes As Double = 0
|
||||
Dim sumMWSTGes As Double = 0
|
||||
Dim sumBruttoGes As Double = 0
|
||||
|
||||
Dim cntKat = 0
|
||||
Dim cnt = 0
|
||||
rpt.GroupFooterKat.Visible = False
|
||||
|
||||
AddHandler rpt.Detail.Format, Sub()
|
||||
' If cnt = 0 Then
|
||||
rpt.txtKunde.Text = isDbnullEmpty(rpt.Fields.Item("plose_POLSEKundennummer").Value, "") & " " & isDbnullEmpty(rpt.Fields.Item("plose_Firmenname").Value, "")
|
||||
' End If
|
||||
|
||||
' rpt.txtProduktBeschreibung.Text = isDbnullEmpty(rpt.Fields.Item("BC_DESCR").Value, "")
|
||||
Select Case "DE"
|
||||
Case "DE" : rpt.txtProdukt.Text = isDbnullEmpty(rpt.Fields.Item("plp_Description_DE").Value, "") 'isDbnullEmpty(rpt.Fields.Item("plose_ProduktCode").Value, "") & " - " & isDbnullEmpty(rpt.Fields.Item("plose_Produktbeschreibung").Value, "")
|
||||
Case "IT" : rpt.txtProdukt.Text = isDbnullEmpty(rpt.Fields.Item("plp_Description_IT").Value, "") 'isDbnullEmpty(rpt.Fields.Item("plose_ProduktCode").Value, "") & " - " & isDbnullEmpty(rpt.Fields.Item("plose_Produktbeschreibung").Value, "")
|
||||
Case Else : rpt.txtProdukt.Text = isDbnullEmpty(rpt.Fields.Item("plp_Description_EN").Value, "") 'isDbnullEmpty(rpt.Fields.Item("plose_ProduktCode").Value, "") & " - " & isDbnullEmpty(rpt.Fields.Item("plose_Produktbeschreibung").Value, "")
|
||||
End Select
|
||||
|
||||
rpt.txtKartennummer.Text = isDbnullEmpty(rpt.Fields.Item("plose_NummerKarteGeraet").Value, "")
|
||||
rpt.txtEingang.Text = isDbnullEmpty(rpt.Fields.Item("plose_BeschreibungEinfahrt").Value, "")
|
||||
rpt.txtAusgang.Text = isDbnullEmpty(rpt.Fields.Item("plose_BeschreibungAusfahrt").Value, "")
|
||||
rpt.txtLand.Text = isDbnullEmpty(rpt.Fields.Item("plp_Land").Value, "")
|
||||
rpt.txtDatum.Text = isDbnullEmpty(rpt.Fields.Item("plose_DatumTransaktion").Value, "")
|
||||
|
||||
rpt.txtNetto.Text = isDbnullEmptyDbl(rpt.Fields.Item("plose_NettobetragTransaktion").Value, 2, "")
|
||||
rpt.txtMWST.Text = isDbnullEmptyDbl(rpt.Fields.Item("plose_MWSTBetrag").Value, 2, "")
|
||||
rpt.txtBrutto.Text = isDbnullEmptyDbl(rpt.Fields.Item("plose_BruttobetragTransaktion").Value, 2, "")
|
||||
|
||||
sumNetto += isDbnullEmptyDbl(rpt.Fields.Item("plose_NettobetragTransaktion").Value, 4, 0)
|
||||
sumMWST += isDbnullEmptyDbl(rpt.Fields.Item("plose_MWSTBetrag").Value, 4, 0)
|
||||
sumBrutto += isDbnullEmptyDbl(rpt.Fields.Item("plose_BruttobetragTransaktion").Value, 4, 0)
|
||||
cnt += 1
|
||||
End Sub
|
||||
|
||||
AddHandler rpt.GroupHeaderKz.Format, Sub()
|
||||
rpt.txtKennzeichen.Text = isDbnullEmpty(rpt.Fields.Item("plose_Kennzeichen").Value, "")
|
||||
If rpt.txtKennzeichen.Text = "" Then rpt.lblKennzeichen.Visible = False
|
||||
End Sub
|
||||
AddHandler rpt.GroupHeaderKat.Format, Sub()
|
||||
rpt.lblKategorie.Text = "MAUT REPORT"
|
||||
End Sub
|
||||
|
||||
AddHandler rpt.GroupFooterKz.Format, Sub()
|
||||
rpt.txtNettoKzSum.Text = sumNetto.ToString("N2")
|
||||
rpt.txtMWSTKzSum.Text = sumMWST.ToString("N2")
|
||||
rpt.txtBruttoKzSum.Text = sumBrutto.ToString("N2")
|
||||
|
||||
rpt.lblSummeKennzeichen.Text = rpt.lblSummeKennzeichen.Text.Replace("Kennzeichen", isDbnullEmpty(rpt.Fields.Item("plose_Kennzeichen").Value, ""))
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
AddHandler rpt.GroupFooterKat.Format, Sub()
|
||||
sumNettoKat += sumNetto
|
||||
sumMWSTKat += sumMWST
|
||||
sumBruttoKat += sumBrutto
|
||||
sumNetto = 0
|
||||
sumMWST = 0
|
||||
sumBrutto = 0
|
||||
|
||||
rpt.txtNettoKatSum.Text = sumNettoKat.ToString("N2")
|
||||
rpt.txtMWSTKatSum.Text = sumMWSTKat.ToString("N2")
|
||||
rpt.txtBruttoKatSum.Text = sumBruttoKat.ToString("N2")
|
||||
cntKat += 1
|
||||
End Sub
|
||||
AddHandler rpt.ReportFooter1.Format, Sub()
|
||||
sumNettoGes += sumNettoKat
|
||||
sumMWSTGes += sumMWSTKat
|
||||
sumBruttoGes += sumBruttoKat
|
||||
sumNettoKat = 0
|
||||
sumMWSTKat = 0
|
||||
sumBruttoKat = 0
|
||||
|
||||
rpt.txtNettoGesSum.Text = sumNettoGes.ToString("N2")
|
||||
rpt.txtMWSTGEsSum.Text = sumMWSTGes.ToString("N2")
|
||||
rpt.txtBruttoGesSum.Text = sumBruttoGes.ToString("N2")
|
||||
|
||||
|
||||
|
||||
'If cntKat <= 1 Then
|
||||
' rpt.GroupFooterKat.Visible = False
|
||||
'End If
|
||||
End Sub
|
||||
|
||||
'print.Viewer.LoadDocument(rpt)
|
||||
'print.Viewer.ViewType = GrapeCity.Viewer.Common.Model.ViewType.Continuous
|
||||
'print.Show()
|
||||
|
||||
|
||||
|
||||
Dim tmpPath = dir & "\" & KdNr & "_PLOSE_Anhang.pdf"
|
||||
Dim p As New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport
|
||||
rpt.Run(False)
|
||||
p.NeverEmbedFonts = ""
|
||||
p.Export(rpt.Document, tmpPath)
|
||||
|
||||
rpt.Dispose()
|
||||
|
||||
Return tmpPath
|
||||
|
||||
Catch ex As System.Exception
|
||||
MsgBox(ex.Message & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
End Class
|
||||
|
||||
Class cMDMAuswertung
|
||||
|
||||
Reference in New Issue
Block a user