+SDL-Leistung_MED PASS; Anpassung Fakturierung
This commit is contained in:
650
SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenPLOSE_MEDPASS.Designer.vb
generated
Normal file
650
SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenPLOSE_MEDPASS.Designer.vb
generated
Normal file
@@ -0,0 +1,650 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
|
||||
Partial Class usrCntlSDLLeistungenPLOSE_MEDPASS
|
||||
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.scanBestellung = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
|
||||
Me.scanPIN = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
|
||||
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._numbersOnlyTrennzeichen = True
|
||||
Me.txtPin._Prozent = False
|
||||
Me.txtPin._ShortDateNew = False
|
||||
Me.txtPin._ShortDateOnly = False
|
||||
Me.txtPin._TimeOnly = False
|
||||
Me.txtPin._TimeOnly_Seconds = 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 = 9
|
||||
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(74, 20)
|
||||
Me.txtPin.TabIndex = 3
|
||||
'
|
||||
'txtKartenNr
|
||||
'
|
||||
Me.txtKartenNr._DateTimeOnly = False
|
||||
Me.txtKartenNr._numbersOnly = False
|
||||
Me.txtKartenNr._numbersOnlyKommastellen = ""
|
||||
Me.txtKartenNr._numbersOnlyTrennzeichen = True
|
||||
Me.txtKartenNr._Prozent = False
|
||||
Me.txtKartenNr._ShortDateNew = False
|
||||
Me.txtKartenNr._ShortDateOnly = False
|
||||
Me.txtKartenNr._TimeOnly = False
|
||||
Me.txtKartenNr._TimeOnly_Seconds = 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(196, 181)
|
||||
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(93, 20)
|
||||
Me.txtKartenNr.TabIndex = 2
|
||||
Me.txtKartenNr.Visible = False
|
||||
'
|
||||
'txtOBUID
|
||||
'
|
||||
Me.txtOBUID._DateTimeOnly = False
|
||||
Me.txtOBUID._numbersOnly = False
|
||||
Me.txtOBUID._numbersOnlyKommastellen = ""
|
||||
Me.txtOBUID._numbersOnlyTrennzeichen = True
|
||||
Me.txtOBUID._Prozent = False
|
||||
Me.txtOBUID._ShortDateNew = False
|
||||
Me.txtOBUID._ShortDateOnly = False
|
||||
Me.txtOBUID._TimeOnly = False
|
||||
Me.txtOBUID._TimeOnly_Seconds = 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, 96)
|
||||
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(121, 184)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(69, 13)
|
||||
Me.Label1.TabIndex = 9
|
||||
Me.Label1.Text = "Karten-Nr.:"
|
||||
Me.Label1.Visible = False
|
||||
'
|
||||
'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, 99)
|
||||
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._numbersOnlyTrennzeichen = True
|
||||
Me.txtPLOSEKdNr._Prozent = False
|
||||
Me.txtPLOSEKdNr._ShortDateNew = False
|
||||
Me.txtPLOSEKdNr._ShortDateOnly = False
|
||||
Me.txtPLOSEKdNr._TimeOnly = False
|
||||
Me.txtPLOSEKdNr._TimeOnly_Seconds = 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(114, 13)
|
||||
Me.Label8.TabIndex = 14
|
||||
Me.Label8.Text = "PLOSE MED PASS"
|
||||
'
|
||||
'txtVermerk
|
||||
'
|
||||
Me.txtVermerk._DateTimeOnly = False
|
||||
Me.txtVermerk._numbersOnly = False
|
||||
Me.txtVermerk._numbersOnlyKommastellen = ""
|
||||
Me.txtVermerk._numbersOnlyTrennzeichen = True
|
||||
Me.txtVermerk._Prozent = False
|
||||
Me.txtVermerk._ShortDateNew = False
|
||||
Me.txtVermerk._ShortDateOnly = False
|
||||
Me.txtVermerk._TimeOnly = False
|
||||
Me.txtVermerk._TimeOnly_Seconds = 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._numbersOnlyTrennzeichen = True
|
||||
Me.txtLieferung._Prozent = False
|
||||
Me.txtLieferung._ShortDateNew = True
|
||||
Me.txtLieferung._ShortDateOnly = False
|
||||
Me.txtLieferung._TimeOnly = False
|
||||
Me.txtLieferung._TimeOnly_Seconds = 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._numbersOnlyTrennzeichen = True
|
||||
Me.txtBestellung._Prozent = False
|
||||
Me.txtBestellung._ShortDateNew = True
|
||||
Me.txtBestellung._ShortDateOnly = False
|
||||
Me.txtBestellung._TimeOnly = False
|
||||
Me.txtBestellung._TimeOnly_Seconds = 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._numbersOnlyTrennzeichen = True
|
||||
Me.txtGueltigkeit2._Prozent = False
|
||||
Me.txtGueltigkeit2._ShortDateNew = True
|
||||
Me.txtGueltigkeit2._ShortDateOnly = False
|
||||
Me.txtGueltigkeit2._TimeOnly = False
|
||||
Me.txtGueltigkeit2._TimeOnly_Seconds = 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.scanBestellung)
|
||||
Me.TabPage2.Controls.Add(Me.scanPIN)
|
||||
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
|
||||
'
|
||||
'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, 30)
|
||||
Me.scanBestellung.Name = "scanBestellung"
|
||||
Me.scanBestellung.Size = New System.Drawing.Size(94, 24)
|
||||
Me.scanBestellung.TabIndex = 26
|
||||
'
|
||||
'scanPIN
|
||||
'
|
||||
Me.scanPIN._ARCHIV = True
|
||||
Me.scanPIN._DATENSERVER_KATEGORIE = "DOKUMENTE"
|
||||
Me.scanPIN._DATENSERVER_ORDNER = "MDM"
|
||||
Me.scanPIN._DATENSERVER_UOrdner1 = Nothing
|
||||
Me.scanPIN._DATENSERVER_UOrdner2 = Nothing
|
||||
Me.scanPIN._DATENSERVER_UOrdner3 = Nothing
|
||||
Me.scanPIN._MULTI_FILES = True
|
||||
Me.scanPIN._TEXT_PDF = "PIN"
|
||||
Me.scanPIN.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
|
||||
Me.scanPIN.BackColor = System.Drawing.Color.White
|
||||
Me.scanPIN.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.scanPIN.Cursor = System.Windows.Forms.Cursors.Default
|
||||
Me.scanPIN.Location = New System.Drawing.Point(192, 4)
|
||||
Me.scanPIN.Name = "scanPIN"
|
||||
Me.scanPIN.Size = New System.Drawing.Size(58, 24)
|
||||
Me.scanPIN.TabIndex = 24
|
||||
'
|
||||
'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._OPEN_ORIGINAL = False
|
||||
Me.scanSonstiges._TYPE = "PDF"
|
||||
Me.scanSonstiges.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
|
||||
Me.scanSonstiges.BackColor = System.Drawing.Color.White
|
||||
Me.scanSonstiges.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.scanSonstiges.Cursor = System.Windows.Forms.Cursors.Hand
|
||||
Me.scanSonstiges.Location = New System.Drawing.Point(3, 56)
|
||||
Me.scanSonstiges.Margin = New System.Windows.Forms.Padding(0)
|
||||
Me.scanSonstiges.Name = "scanSonstiges"
|
||||
Me.scanSonstiges.Size = New System.Drawing.Size(250, 108)
|
||||
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(98, 4)
|
||||
Me.scanRetourniert.Name = "scanRetourniert"
|
||||
Me.scanRetourniert.Size = New System.Drawing.Size(93, 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
|
||||
'
|
||||
'usrCntlSDLLeistungenPLOSE_MEDPASS
|
||||
'
|
||||
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.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.Controls.Add(Me.txtVermerk)
|
||||
Me.Name = "usrCntlSDLLeistungenPLOSE_MEDPASS"
|
||||
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
|
||||
Friend WithEvents scanPIN As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan
|
||||
Friend WithEvents scanBestellung As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan
|
||||
End Class
|
||||
@@ -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>
|
||||
@@ -0,0 +1,209 @@
|
||||
|
||||
Imports System.Globalization
|
||||
|
||||
Public Class usrCntlSDLLeistungenPLOSE_MEDPASS
|
||||
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 VERAG_PROG_ALLGEMEIN.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)
|
||||
scanBestellung.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
|
||||
scanPIN.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
|
||||
|
||||
initDataBinding()
|
||||
If txtPLOSEKdNr.Text = "" Then
|
||||
getPartnerKdNrFromFMZOLL() ' Lädt die Partner-KdNr
|
||||
txtPLOSEKdNr.Text = PartnerKdNrFromFMZOLL.PLOSE_KundenNr
|
||||
End If
|
||||
|
||||
boud = True
|
||||
|
||||
' 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 VERAG_PROG_ALLGEMEIN.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
|
||||
PROG.initPIN(txtPin)
|
||||
|
||||
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
|
||||
@@ -92,6 +92,7 @@ Public Class frmMDMDatenverarbetiung
|
||||
|
||||
sqlstr &= " AND plose_DatumTransaktion between '" & dat_Sum_Von.Value & "' and '" & dat_Sum_Bis.Value & "' "
|
||||
sqlstr &= " AND plose_Fakturiert =0 "
|
||||
sqlstr &= " AND plose_ProduktCode NOT IN (SELECT plp_ProductCode FROM [tblPLOSE_Produktbeschreibung] WHERE [plp_einarbeiten]=0 ) "
|
||||
|
||||
sqlstr &= " group by plose_ProduktCode"
|
||||
sqlstr &= " order by plose_ProduktCode"
|
||||
@@ -179,7 +180,8 @@ Public Class frmMDMDatenverarbetiung
|
||||
FROM tblPLOSE_Details
|
||||
WHERE 1 = 1
|
||||
And plose_DatumTransaktion between '" & dat_Sum_Von.Value & "' and '" & dat_Sum_Bis.Value & "'
|
||||
AND plose_Fakturiert=0
|
||||
AND plose_Fakturiert=0
|
||||
AND plose_ProduktCode NOT IN (SELECT plp_ProductCode FROM [tblPLOSE_Produktbeschreibung] WHERE [plp_einarbeiten]=0 )
|
||||
group by plose_POLSEKundennummer,plose_ProduktCode
|
||||
order by plose_POLSEKundennummer,plose_ProduktCode", "FMZOLL")
|
||||
.LOAD()
|
||||
@@ -285,7 +287,7 @@ Public Class frmMDMDatenverarbetiung
|
||||
|
||||
|
||||
Function genRGAtt_PLOSE() As Boolean
|
||||
Dim dt_Main As DataTable = SQL.loadDgvBySql_Param("SELECT [AdressenNr],PLOSEKundenNr FROM tblPLOSE_Details INNER JOIN Adressen ON plose_POLSEKundennummer=PLOSEKundenNr where plose_Fakturiert = 0 AND plose_DatumTransaktion between '" & dat_Sum_Von.Value.ToShortDateString & "' and '" & dat_Sum_Bis.Value.ToShortDateString & "' group by [AdressenNr],PLOSEKundenNr ", "FMZOLL")
|
||||
Dim dt_Main As DataTable = SQL.loadDgvBySql_Param("SELECT [AdressenNr],PLOSEKundenNr FROM tblPLOSE_Details INNER JOIN Adressen ON plose_POLSEKundennummer=PLOSEKundenNr where plose_Fakturiert = 0 AND plose_ProduktCode NOT IN (SELECT plp_ProductCode FROM [tblPLOSE_Produktbeschreibung] WHERE [plp_einarbeiten]=0 ) AND plose_DatumTransaktion between '" & dat_Sum_Von.Value.ToShortDateString & "' and '" & dat_Sum_Bis.Value.ToShortDateString & "' group by [AdressenNr],PLOSEKundenNr ", "FMZOLL")
|
||||
'MsgBox("Keine Daten!""SELECT [AdressenNr],PLOSEKundenNr FROM tblPLOSE_Details INNER JOIN Adressen ON plose_POLSEKundennummer=PLOSEKundenNr where AND plose_Fakturiert = 0 AND plose_DatumTransaktion between '" & dat_Sum_Von.Value.ToShortDateString & "' and '" & dat_Sum_Bis.Value.ToShortDateString & "' group by [AdressenNr],PLOSEKundenNr ")
|
||||
If dt_Main Is Nothing OrElse dt_Main.Rows.Count = 0 Then
|
||||
MsgBox("Keine Daten!")
|
||||
@@ -307,7 +309,7 @@ Public Class frmMDMDatenverarbetiung
|
||||
|
||||
If verarbOK Then
|
||||
'UPDATE Fakturiert
|
||||
SQL.doSQL("UPDATE tblPLOSE_Details SET plose_FakturiertDatum=GETDATE() WHERE plose_Fakturiert = 0 AND plose_DatumTransaktion between '" & dat_Sum_Von.Value.ToShortDateString & "' and '" & dat_Sum_Bis.Value.ToShortDateString & "' AND plose_POLSEKundennummer='" & R_PLOSE("PLOSEKundenNr") & "' ", "FMZOLL")
|
||||
SQL.doSQL("UPDATE tblPLOSE_Details SET plose_FakturiertDatum=GETDATE() WHERE plose_Fakturiert = 0 AND plose_DatumTransaktion between '" & dat_Sum_Von.Value.ToShortDateString & "' and '" & dat_Sum_Bis.Value.ToShortDateString & "' AND plose_POLSEKundennummer='" & R_PLOSE("PLOSEKundenNr") & "' ", "FMZOLL")
|
||||
End If
|
||||
|
||||
If True Then 'cnt Mod 10 = 0 Then
|
||||
@@ -358,7 +360,7 @@ Public Class frmMDMDatenverarbetiung
|
||||
sqlstr &= " SELECT 'PLOSE',AdressenNr,plose_Kennzeichen,plose_DatumTransaktion,plp_Land,isnull([tblPLOSE_Produktbeschreibung].plp_Description_EN,plose_Produktbeschreibung) as plose_Produktbeschreibung ,isnull(plose_NummerKarteGeraet,plose_Kontonummer) as plose_NummerKarteGeraet ,plose_BeschreibungEinfahrt,plose_BeschreibungAusfahrt,plose_NettobetragWaehrungAbbuchung,(plose_BruttobetragWaehrungAbbuchung-plose_NettobetragWaehrungAbbuchung) as Steuer,plose_BruttobetragWaehrungAbbuchung "
|
||||
sqlstr &= " FROM tblPLOSE_Details INNER JOIN [tblPLOSE_Produktbeschreibung] on plose_ProduktCode=plp_ProductCode INNER JOIN Adressen on plose_POLSEKundennummer=PLOSEKundenNr and plp_LeistungsNr is not null "
|
||||
sqlstr &= " WHERE 1=1 "
|
||||
sqlstr &= " AND plose_Fakturiert=0 AND plp_Land NOT IN ('AT','DE') "
|
||||
sqlstr &= " AND plose_Fakturiert=0 AND plose_ProduktCode NOT IN (SELECT plp_ProductCode FROM [tblPLOSE_Produktbeschreibung] WHERE [plp_einarbeiten]=0 ) AND plp_Land NOT IN ('AT','DE') "
|
||||
sqlstr &= " AND plose_DatumTransaktion between '" & von.ToShortDateString & "' and '" & bis.ToShortDateString & "' "
|
||||
sqlstr &= " order by plp_Land, plose_DatumTransaktion"
|
||||
|
||||
@@ -371,7 +373,7 @@ Public Class frmMDMDatenverarbetiung
|
||||
sqlstrAT &= " SELECT 'PLOSE',AdressenNr,plose_Kennzeichen,plose_DatumTransaktion,plp_Land,'' as plose_Produktbeschreibung ,plose_NummerKarteGeraet as plose_NummerKarteGeraet ,'' as plose_BeschreibungEinfahrt,'' as plose_BeschreibungAusfahrt,sum(plose_NettobetragWaehrungAbbuchung) as plose_NettobetragWaehrungAbbuchung,sum(plose_BruttobetragWaehrungAbbuchung-plose_NettobetragWaehrungAbbuchung) as Steuer,sum(plose_BruttobetragWaehrungAbbuchung ) as plose_BruttobetragWaehrungAbbuchung "
|
||||
sqlstrAT &= " FROM tblPLOSE_Details INNER JOIN [tblPLOSE_Produktbeschreibung] on plose_ProduktCode=plp_ProductCode INNER JOIN Adressen on plose_POLSEKundennummer=PLOSEKundenNr and plp_LeistungsNr is not null "
|
||||
sqlstrAT &= " WHERE 1=1 "
|
||||
sqlstrAT &= " AND plose_Fakturiert=0 AND plp_Land IN ('AT','DE') "
|
||||
sqlstrAT &= " AND plose_Fakturiert=0 AND plose_ProduktCode NOT IN (SELECT plp_ProductCode FROM [tblPLOSE_Produktbeschreibung] WHERE [plp_einarbeiten]=0 ) AND plp_Land IN ('AT','DE') "
|
||||
sqlstrAT &= " AND plose_DatumTransaktion between '" & von.ToShortDateString & "' and '" & bis.ToShortDateString & "' "
|
||||
sqlstrAT &= " group by plp_Land, AdressenNr, plose_Kennzeichen,plose_DatumTransaktion,plose_NummerKarteGeraet"
|
||||
sqlstrAT &= " order by plp_Land"
|
||||
@@ -546,6 +548,7 @@ Public Class frmMDMDatenverarbetiung
|
||||
sqlstr &= " FROM tblPLOSE_Details INNER JOIN [tblPLOSE_Produktbeschreibung] on plose_ProduktCode=plp_ProductCode INNER JOIN Adressen on plose_POLSEKundennummer=PLOSEKundenNr "
|
||||
sqlstr &= " WHERE 1=1 "
|
||||
sqlstr &= " AND plose_Fakturiert=0 "
|
||||
sqlstr &= " AND plose_ProduktCode NOT IN (SELECT plp_ProductCode FROM [tblPLOSE_Produktbeschreibung] WHERE [plp_einarbeiten]=0 ) "
|
||||
sqlstr &= " AND AdressenNr = '" & KdNr & "' "
|
||||
sqlstr &= " AND plose_DatumTransaktion between '" & von.ToShortDateString & "' and '" & bis.ToShortDateString & "' "
|
||||
|
||||
@@ -826,6 +829,7 @@ Public Class frmMDMDatenverarbetiung
|
||||
sqlstr &= " FROM tblPLOSE_Details INNER JOIN [tblPLOSE_Produktbeschreibung] on plose_ProduktCode=plp_ProductCode "
|
||||
sqlstr &= " WHERE 1=1 "
|
||||
sqlstr &= " AND plose_Fakturiert=0 "
|
||||
sqlstr &= " AND plose_ProduktCode NOT IN (SELECT plp_ProductCode FROM [tblPLOSE_Produktbeschreibung] WHERE [plp_einarbeiten]=0 ) "
|
||||
sqlstr &= " AND plose_POLSEKundennummer = '" & PLOSEKundenNr & "' "
|
||||
sqlstr &= " AND plp_LeistungsNr is not null "
|
||||
sqlstr &= " AND plose_DatumTransaktion between '" & von.ToShortDateString & "' and '" & bis.ToShortDateString & "' "
|
||||
|
||||
25
SDL/mdm/frmNewData.Designer.vb
generated
25
SDL/mdm/frmNewData.Designer.vb
generated
@@ -51,6 +51,7 @@ Partial Class frmNewData
|
||||
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.btnSDL_PLOSE_MEDPASS = 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()
|
||||
@@ -167,6 +168,7 @@ Partial Class frmNewData
|
||||
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.btnSDL_PLOSE_MEDPASS)
|
||||
Me.FlowLayoutPanel.Controls.Add(Me.btnVeragParkplatz)
|
||||
Me.FlowLayoutPanel.Dock = System.Windows.Forms.DockStyle.Bottom
|
||||
Me.FlowLayoutPanel.Location = New System.Drawing.Point(0, 119)
|
||||
@@ -571,6 +573,26 @@ Partial Class frmNewData
|
||||
Me.btnSDL_PLOSE_CZ.TextAlign = System.Drawing.ContentAlignment.BottomCenter
|
||||
Me.btnSDL_PLOSE_CZ.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btnSDL_PLOSE_MEDPASS
|
||||
'
|
||||
Me.btnSDL_PLOSE_MEDPASS.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||
Me.btnSDL_PLOSE_MEDPASS.Cursor = System.Windows.Forms.Cursors.Default
|
||||
Me.btnSDL_PLOSE_MEDPASS.Enabled = False
|
||||
Me.btnSDL_PLOSE_MEDPASS.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Silver
|
||||
Me.btnSDL_PLOSE_MEDPASS.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnSDL_PLOSE_MEDPASS.ForeColor = System.Drawing.Color.Black
|
||||
Me.btnSDL_PLOSE_MEDPASS.Image = CType(resources.GetObject("btnSDL_PLOSE_MEDPASS.Image"), System.Drawing.Image)
|
||||
Me.btnSDL_PLOSE_MEDPASS.ImageAlign = System.Drawing.ContentAlignment.TopCenter
|
||||
Me.btnSDL_PLOSE_MEDPASS.Location = New System.Drawing.Point(168, 140)
|
||||
Me.btnSDL_PLOSE_MEDPASS.Margin = New System.Windows.Forms.Padding(2)
|
||||
Me.btnSDL_PLOSE_MEDPASS.Name = "btnSDL_PLOSE_MEDPASS"
|
||||
Me.btnSDL_PLOSE_MEDPASS.Size = New System.Drawing.Size(78, 64)
|
||||
Me.btnSDL_PLOSE_MEDPASS.TabIndex = 61
|
||||
Me.btnSDL_PLOSE_MEDPASS.Tag = "216"
|
||||
Me.btnSDL_PLOSE_MEDPASS.Text = "MEDPASS"
|
||||
Me.btnSDL_PLOSE_MEDPASS.TextAlign = System.Drawing.ContentAlignment.BottomCenter
|
||||
Me.btnSDL_PLOSE_MEDPASS.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btnVeragParkplatz
|
||||
'
|
||||
Me.btnVeragParkplatz.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||
@@ -581,7 +603,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(168, 140)
|
||||
Me.btnVeragParkplatz.Location = New System.Drawing.Point(250, 140)
|
||||
Me.btnVeragParkplatz.Margin = New System.Windows.Forms.Padding(2)
|
||||
Me.btnVeragParkplatz.Name = "btnVeragParkplatz"
|
||||
Me.btnVeragParkplatz.Size = New System.Drawing.Size(78, 64)
|
||||
@@ -725,4 +747,5 @@ Partial Class frmNewData
|
||||
Friend WithEvents btnSDL_PLOSE As Button
|
||||
Friend WithEvents btnSDL_PLOSE_IT As Button
|
||||
Friend WithEvents btnSDL_PLOSE_CZ As Button
|
||||
Friend WithEvents btnSDL_PLOSE_MEDPASS As Button
|
||||
End Class
|
||||
|
||||
@@ -118,6 +118,77 @@
|
||||
<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="btnSDL_PLOSE_MEDPASS.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAADwAAAAeCAYAAABwmH1PAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
|
||||
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAA8dSURBVFhH1VhnVBbXun4AUXoTIYBYsB1CxBITK1hA
|
||||
kAQLIBZQEVAQUUFEEQUBKypFRBTxmIiiGARbFCtoaCJdP5DeESuanLuSc5N1k7nv+8noZ0nOOT9yV+5e
|
||||
61l7Zs/ee/bz9hmcq+tCQtkTpNe+QHrdv4ebbf9AdFHn0C9OVxo6ZlTD6ewbCILwlwZCctsw+XQV/G42
|
||||
wymjFjMzajCb+t8DP/e40oh+8SVnrFIknutvtcCL7kV86CV/JWBP0UM4X6yFz/UmLLvcgICsZvhcbcTK
|
||||
ax/GmhtNWEuQ25EvjE2+f2hX4UOszW55DWpBBNoZN6QvAEy676VjMtd/NOZFEPcR8YLgTLCWGfN6TeTt
|
||||
faTj1CJlxg5Lx3bffYiF39YhOKcN7lcasI4Ir85qwWrS+KoPIIjmLbvSOARhuUK/xLLC2JJObMptfQ1q
|
||||
sgdlsnx48Z4PxQfng4h4LaDu+8bue3H8MEE8eEn3PV9L13QTE98h7s8QBc1rGHxtLSW8gAiH53dgxNf3
|
||||
YHemGpF3O7HhdivWEQJlwPfRJY9glfpgDUJyBMW9hb8EZDWp7yrswGYiy6AmS5gP8tYBCS9ErXQf9tPu
|
||||
Z7yOm6hBcR9+zo0FwQfnngnxNffaBFmhiQIS9+X54pjJa8Khee2YkFIJh3M1Uu363WjGJtJm8HdvsIkQ
|
||||
RSY87Eh5JrbmCdiWJyzPbJyTWPEEEfnthA7a8/XL+TD8IvGA4oG4l4U4XyTMBN6dI0LUFO8rrmOhsqnL
|
||||
zuP38D7iexl8jrcJW5yshCMRtkytIg23UfR+jFAKakx2M5FnQlvz2hV7xRb9iF0FApv1mGOSQ0kVTxGW
|
||||
14FwAjVZab9LVBxjaYt4V8OyPs8QtcPPxb1lkSZj1qJAGCwE3ltWyJFvEZ5EhOedr4Xj+To4X6ijvgY7
|
||||
CtuxixBK5nqw4hHmnqtxRARpN+qugO35gt6Bks706uc4S+nqFPXUxEOJPRMUr6WE/4VJv7teNGluorWI
|
||||
whLv0wjiXBaQ7HruRR9/n7AzEZ5HZGedrcWiy/Xks53YcadDqt2v7z/FxBOSFGzJeUV4LyEiVwi61Trh
|
||||
WssPSK58Rnu+dVA+DJMUx2SlLeJDY6ypdwmLmuf5YnuXnAh+ryhIWTh/kDBr1+FcLbwoDTmRtl0u1uN4
|
||||
5VNEFrTLqcQUdWInmTMTZoTnChYplTv3UODaSEGNGr+IpS8GE9G0eMy/u5cFz3l3jJvsPty453veT2zi
|
||||
HO5Zi+J6ExnrEcecpWN/RNiD0tRiys3LKS8fKn+EoNstKth9R5BCJExmbZhQmr37Tjs8/z8UHn9E2Pdm
|
||||
EwI4HVFBEZjdjOmpVT7YRWT3Fr4hTMFLNarwSXhu29AgCnRbCzo++KK/Ct4j7EZ+60kaXUKadblYZ/Ll
|
||||
meqlZknlx3vHFbWAqqu3yDKiCZGvtE6aLptysjLKMaPGZvWNJmXpHpfq4UOVGccDRxKmfXoN9pJXRJBg
|
||||
WDgiIoqfYb/kJRa7eWDaxEmIiYqF3xp/DP/EHKt912D8uIlwX7KUxqOxP24/plvbYM4sB1hb2cBnxUqs
|
||||
D9wAH28fJBxIwBSLaSgsLERjUyPu37//FhBFpeWy642IL38Mm28e4ItvHoykknG9QXxxofweIkImK825
|
||||
7LciWe5lwWNs5iwQCmI8Vyu26Ongw+WplNtdPTPr+3pT6epBgmTLiaHiJYzy9nuEK78nwp5/LmGqhT+a
|
||||
dEKywiypIl8h8s6vUoJ88B1EcDcT6tbkfwIWApu+uA9ZgHr03Wd/Syo7PvVU1VSyKqUdVMBsyX+I9XmP
|
||||
pAgo7MLeqh/h5v4nEw7IbtUZ8feKBQMSSlL14ksaerGJMultBC4uRA3+J9hDa3gPiuBMWC2m6Af9uOLC
|
||||
scfvR1udkkzwvNLQc1vJcynhw3ebkUhIknTh69z7cJk7F1Mtp/55hP2yWmGbVo1VWU30cdDEEdlo+ukH
|
||||
rqZHyk9rxxY9wc7ugzMBMTq/a87csx+L5k+C6nugVDL5ZNW+OWfrLDyzOuVWF3Rhxa12+sR8ALtzjUi9
|
||||
146SexI0V1agQXIPT9takHv9CmbZz8TUKdZ/HuG12a2YSqWky6U6LL1SjxUUYPwpKq+iWtrvZpOS89ma
|
||||
6dNOVe01PFBSpsDEZFNSN1keV4u++8I4vjh99pkHPstzusy8c54jvrQT2wra4Hq+CgvSKuCS2YSxGa3w
|
||||
z6zCD/X30FpZRoeQQEJoa2nFrexszJ41B1MnW/3fEHbLrJcGFrfMBvpkrMdqSkX8ARFJkXz97RY4n6t1
|
||||
lpq6rF+Tr/aOK37kealWw+lyM6I7BGy8UIwjVwvQ8eIfePacNOvrjxEjPkVA+C4cuVWO+tpadDY3oLWt
|
||||
HU1Nzaivb6B5z5GTk4OZ9rMwxXIa9u+LR9CGjRhhPhKBAYHvEba2mg4nh7mYYfsF1voHYPOmEHgv98aB
|
||||
+AOYNtka1dXVePGyC21trW/hdwm7EOGVZOLeVG29+jam1HKxTklquuyjIuGt+cLAxLLrUcVPMP9qK+yC
|
||||
ojByyFCkJ8YpPW1r1K6uKNfycHFRGDPcHOHr16Ii+zK+f9KJopJShfyCfO3S0jLNSkkVamvrcOXKVcyZ
|
||||
7YAv7WbiUEIivL18TD42NZvk471SbzL5tUh4X2wcvrD7EnMdnUHjI5e6eZixcIKDNtKzfRhlPhpZWVma
|
||||
FfcqtPLz86UoKLijlZOTq/OHhJcRWf4p8JXkCY5XPUUKlZcGCaVNUi1HdZMO+U6Yf742NK/rfxB55gbs
|
||||
xgzHTBtbhaFDTJsMDfr++pGegaDfx/DlwP6DvgoPD9f49tuLuHHjhtznn40rV1VR/6fVtOmz3Jd6gA6N
|
||||
I0eOwHflKoz9bPy40SPH5KooqQtyUBAM9Ix+HWwyNHDNqtWIjY7BV0ePkjnPMdTR0r2trqolaGnoCLq9
|
||||
+0g8lnq60d6k9Rn6RgbG/6WvZyjQHEFXR4/m9BYM9PsKHyS8lAhztbWCcif/CGDChyse40J9FyalSBIR
|
||||
2v3xwJqmKLzmesPoY60/Ys/R04gOD8HqVX6f9uqhwsUsHbjH99qaunQtJ4wwH5V38NAh+PsFqMqjh6Ag
|
||||
11PYGBRsEBm5G6EhoTidmorFi5ZY8lxeSyQfTRg3qUw6V15RmG0/a0F4WDjCwyKUhw0xbVHuqSoYGw24
|
||||
qaasQc4JKfHQkC1yAWsDzcQ9+hr1e0T7PKNnL00GDC54jzBXWVwduVD1tZd8N7b4IX34t9I3cQv2lTyE
|
||||
x6V669d+THlWM664MazwCRUPbdi+czcOREeRWTpu5hdOmTwtOWxLGGbPnGOro60rqJLGyAx7zZo5W1te
|
||||
TkEYPWpMReqpVJxMOYnc3Fzu1cga/psP6uDgFJKUdAQ1NbXYFLx5SU9FJaG3dp8unhsdFTOR54wbO+HR
|
||||
/rgDiNobTUJe4zGgn4kZmT8cZjtGyEFeIN+22rZ1G5yd5sGT8nto6JZ3ojQRXkzadSfSEfQ5GEIf/qEU
|
||||
tPgnAGM7V0S57VCPLXopzdH0mWhzuirmZMvPCLtwF8FrVmHn9p0w/2TkHT5QRPhWm8zMTCzz9FJWV9MU
|
||||
9HQ/EsJCwxTmz1swXUpqjlNYQsJBRJOZXjh/Ab4+vvYsKNNhH5eyIOL27Zf6s/nwkb1YWOQiwi8//4KM
|
||||
9Iz+vF5DTfu3xa5L1qecOIHEg4lwWbgIe3bvxd+GflympqIurPBeaeXk4Dzwk4/Nh7q6LBpw7dq1N4Rd
|
||||
L9fRl1G9NDovzWykWPSQixKsu/U2Igs7MSSpPENaQlLOdblQa5tQ+xMij59HLJlzRPg2ZQN9o9+UlVSE
|
||||
6Kho83UB602NDI1z+YDjx07IT09Px7jPxyfzvbubh3XgunXYsX0Hiu4WwXXhomget/9ypg8Jhk0fjg5O
|
||||
sLSYaqyppi31xdiYfYqdHQ/ZbfbxXBUlNUFTXeuMn58/rl2/juCNm1SNjfr/U11VU2D/1tPVF9TU1IVJ
|
||||
Eyyy4/cfeEN43sVaLCEN82/bQCLmc70ZKykX+8qA78NI8/bp1V6s3Z4xd38MyetQCi96jF3xSTiVlIi1
|
||||
fgFTVZXVBR3yW6WeKoI8FAWlXqrU92i3nT5DL45SCvndTxyQ7Gzt1LZt3U4mNx/ko9DV1rvBpkikJjVQ
|
||||
qjpxPAXpZ9IRuStyZE/FXoKZ6fA68k+5MPLj27dvkyZNd4q+amMzIyklJYWsZJUl701BqlVdRfOqjlaf
|
||||
mz3ke+bMn7dwVkx07CvCk09VYf5F+tAn7QZmNWMtYQ2log+Bf9y7Xao3ZsImiWW54YWPsf56NaWRg7iY
|
||||
cRYLF7iGKsgrCP2NTZ5PnGBRSeZUMMXSalMfnT5q8+bOo8PvHij135GflqSlpaFSUon7FRJpOiINXmPC
|
||||
lEttL1++THu5oKqK3G2B6zEmtXKFb3Dm5Uy6hNwMWzsOXuSvTjuUe6kQQW1eBw93z9U8d11AoI2lxRSp
|
||||
IIkwZtjYYZnHcsCfSsvPjkvgTr7rdbUJjhm1cDhbC8dzdb+LpZcaobCr4LfRX9/bH170HEGZ95FM2k0n
|
||||
ApMmWmbzCxfMX+jR1tYmDSjjx07ENCoXk48d5/Tjzs9J4nEPOzrV8/MKdIuLS/rcvv2dMhURvqxJCmaF
|
||||
I0aM0vx8zDj5ZZ7LVygqKlLEHvLz4cNJim5L3O1off3gQUMCIrZGYGv4NhsWoIqy6k/JycmUn+0z1VQ1
|
||||
hJn2s80MDA170FyGsqa6hpqRvhHgc62ZqqhWKgMfg3+3/js4V/8CVqeqvrJOkbj65jyG/ze5SD92FImH
|
||||
EnU4MIG05OToNIhNMjh4M0dNfJOahvKyclhMtLzJhPsbD6SU0l/o01tf4Ajs77fWJj4+AapKGlITVeml
|
||||
Jhh+1PcXvmZQpLbgHEuR+DzfK5Ob6Orov1RV1pC6DQlrBVlPj359Bwga5Luv1snRPDXp9YbADfYXztNS
|
||||
jrx/v/cYKVXPkEz5Nlny9F+ACNd1Ufpt77vwYr3usqw2HL2Si9I7eYiNjRulrqZVbWZqnu213Ashm0Ow
|
||||
fJk3Fs53xZaQMK6J5SiCn6OgVkpkq4hsCxUGzZrqOvWk/QEcVKhAsR00cEgu9QKDCOZbTJw8Z+eOnSxQ
|
||||
rPTxlaeSMtjQwLhiAD1XV9dsJ9cJq6NKjdYP662tW0nuVEK5t2XYYNP2Af0GdQwyGVpDqUw3Le0M/hdJ
|
||||
9RrEJqMV8wAAAABJRU5ErkJggg==
|
||||
</value>
|
||||
</data>
|
||||
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
AAABAAEAgIAAAAEAGAAoyAAAFgAAACgAAACAAAAAAAEAAAEAGAAAAAAAAMgAAMQOAADEDgAAAAAAAAAA
|
||||
|
||||
@@ -205,6 +205,7 @@ Public Class frmNewData
|
||||
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 217 : btnAddLeistungVordefiniert.Image = My.Resources.plose_medpass : btnAddLeistungVordefiniert.Text = "MEDPASS" & 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"
|
||||
@@ -254,7 +255,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, btnSDL_PLOSE.Click, btnSDL_PLOSE_IT.Click, btnSDL_PLOSE_CZ.Click
|
||||
btnVeragParkplatz.Click, btnSDL_PLOSE.Click, btnSDL_PLOSE_IT.Click, btnSDL_PLOSE_CZ.Click, btnSDL_PLOSE_MEDPASS.Click
|
||||
|
||||
If KdSearchBox1.KdNr <= 0 Then MsgBox("Kunde auswählen!") : Exit Sub
|
||||
|
||||
|
||||
36
SDL/mdm/usrCntlKartenDaten.Designer.vb
generated
36
SDL/mdm/usrCntlKartenDaten.Designer.vb
generated
@@ -74,13 +74,14 @@ 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_MEDPASS = New System.Windows.Forms.Button()
|
||||
Me.FlowLayoutPanel.SuspendLayout()
|
||||
Me.ContextMenuStrip1.SuspendLayout()
|
||||
Me.Panel1.SuspendLayout()
|
||||
@@ -128,6 +129,7 @@ Partial Class usrCntlKartenDaten
|
||||
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.btnSDL_PLOSE_MEDPASS)
|
||||
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)
|
||||
@@ -857,6 +859,15 @@ Partial Class usrCntlKartenDaten
|
||||
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
|
||||
@@ -915,14 +926,22 @@ Partial Class usrCntlKartenDaten
|
||||
Me.ToolStripMenuItem6.Size = New System.Drawing.Size(210, 22)
|
||||
Me.ToolStripMenuItem6.Text = "Formatiert (dauert länger)"
|
||||
'
|
||||
'UsrCntlDatenDetails1
|
||||
'btnSDL_PLOSE_MEDPASS
|
||||
'
|
||||
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_MEDPASS.Cursor = System.Windows.Forms.Cursors.Default
|
||||
Me.btnSDL_PLOSE_MEDPASS.FlatAppearance.BorderSize = 0
|
||||
Me.btnSDL_PLOSE_MEDPASS.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnSDL_PLOSE_MEDPASS.ForeColor = System.Drawing.Color.Black
|
||||
Me.btnSDL_PLOSE_MEDPASS.Image = Global.SDL.My.Resources.Resources.plose_medpass
|
||||
Me.btnSDL_PLOSE_MEDPASS.ImageAlign = System.Drawing.ContentAlignment.TopCenter
|
||||
Me.btnSDL_PLOSE_MEDPASS.Location = New System.Drawing.Point(404, 64)
|
||||
Me.btnSDL_PLOSE_MEDPASS.Margin = New System.Windows.Forms.Padding(0)
|
||||
Me.btnSDL_PLOSE_MEDPASS.Name = "btnSDL_PLOSE_MEDPASS"
|
||||
Me.btnSDL_PLOSE_MEDPASS.Size = New System.Drawing.Size(78, 64)
|
||||
Me.btnSDL_PLOSE_MEDPASS.TabIndex = 44
|
||||
Me.btnSDL_PLOSE_MEDPASS.Text = "MEDPASS"
|
||||
Me.btnSDL_PLOSE_MEDPASS.TextAlign = System.Drawing.ContentAlignment.BottomCenter
|
||||
Me.btnSDL_PLOSE_MEDPASS.UseVisualStyleBackColor = True
|
||||
'
|
||||
'usrCntlKartenDaten
|
||||
'
|
||||
@@ -1007,4 +1026,5 @@ Partial Class usrCntlKartenDaten
|
||||
Friend WithEvents btnSDL_PLOSE As Button
|
||||
Friend WithEvents btnSDL_PLOSE_IT As Button
|
||||
Friend WithEvents btnSDL_PLOSE_CZ As Button
|
||||
Friend WithEvents btnSDL_PLOSE_MEDPASS As Button
|
||||
End Class
|
||||
|
||||
@@ -94,6 +94,7 @@ Public Class usrCntlKartenDaten
|
||||
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
|
||||
btnSDL_PLOSE_MEDPASS.Visible = dt.Select("SDLNr=217").Count > 0
|
||||
btnMANAbgasplakette.Visible = dt.Select("SDLNr=500").Count > 0
|
||||
btnVERAGParkplatz.Visible = dt.Select("SDLNr=501").Count > 0
|
||||
|
||||
@@ -123,6 +124,7 @@ Public Class usrCntlKartenDaten
|
||||
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
|
||||
btnSDL_PLOSE_MEDPASS.Visible = dt.Select("SDLNr=217").Count > 0
|
||||
btnMANAbgasplakette.Visible = dt.Select("SDLNr=500").Count > 0
|
||||
btnVERAGParkplatz.Visible = dt.Select("SDLNr=501").Count > 0
|
||||
|
||||
@@ -511,6 +513,7 @@ Public Class usrCntlKartenDaten
|
||||
Case 214 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, /*KartenNr,*/ OBUID, PIN, PLOSEKundenNr, /*GültigBis,*/Vermerk, Gesperrt, Defekt, Verloren, Gestohlen, Retourniert, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL INNER JOIN [VERAG].[dbo].Adressen ON [VERAG].[dbo].Adressen.AdressenNr=SDL.KundenNr WHERE SDLNr=214"
|
||||
Case 215 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, [TELEPASS-Nr], PLOSEKundenNr, /*GültigBis,*/Vermerk, Gesperrt, Defekt, Verloren, Gestohlen, Retourniert, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL INNER JOIN [VERAG].[dbo].Adressen ON [VERAG].[dbo].Adressen.AdressenNr=SDL.KundenNr WHERE SDLNr=215"
|
||||
Case 216 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, KartenNr, OBUID, PIN, PLOSEKundenNr, /*GültigBis,*/Vermerk, Gesperrt, Defekt, Verloren, Gestohlen, Retourniert, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL INNER JOIN [VERAG].[dbo].Adressen ON [VERAG].[dbo].Adressen.AdressenNr=SDL.KundenNr WHERE SDLNr=216"
|
||||
Case 217 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, KartenNr, OBUID, PIN, PLOSEKundenNr, /*GültigBis,*/Vermerk, Gesperrt, Defekt, Verloren, Gestohlen, Retourniert, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL INNER JOIN [VERAG].[dbo].Adressen ON [VERAG].[dbo].Adressen.AdressenNr=SDL.KundenNr WHERE SDLNr=217"
|
||||
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"
|
||||
@@ -563,6 +566,7 @@ Public Class usrCntlKartenDaten
|
||||
Case 214 : Return btnSDL_PLOSE
|
||||
Case 215 : Return btnSDL_PLOSE_IT
|
||||
Case 216 : Return btnSDL_PLOSE_CZ
|
||||
Case 217 : Return btnSDL_PLOSE_MEDPASS
|
||||
Case 209 : Return btnSDL_MautPL
|
||||
Case 210 : Return btnSDL_MautSI
|
||||
Case 208 : Return btnSDL_MautMSE
|
||||
@@ -721,7 +725,7 @@ Public Class usrCntlKartenDaten
|
||||
End If
|
||||
|
||||
btnRetourniert.Enabled = False
|
||||
If (sdlNr = 202 Or sdlNr = 203 Or sdlNr = 209 Or sdlNr = 210 Or sdlNr = 211 Or sdlNr = 213 Or sdlNr = 214 Or sdlNr = 215 Or sdlNr = 216) Then
|
||||
If (sdlNr = 202 Or sdlNr = 203 Or sdlNr = 209 Or sdlNr = 210 Or sdlNr = 211 Or sdlNr = 213 Or sdlNr = 214 Or sdlNr = 215 Or sdlNr = 216 Or sdlNr = 217) Then
|
||||
btnRetourniert.Enabled = True
|
||||
End If
|
||||
|
||||
@@ -737,6 +741,7 @@ Public Class usrCntlKartenDaten
|
||||
If sdlNr = 214 Then btnBenachrichtigungKartenboxen.Enabled = True
|
||||
If sdlNr = 215 Then btnBenachrichtigungKartenboxen.Enabled = True
|
||||
If sdlNr = 216 Then btnBenachrichtigungKartenboxen.Enabled = True
|
||||
If sdlNr = 217 Then btnBenachrichtigungKartenboxen.Enabled = True
|
||||
If sdlNr = 208 Then btnBenachrichtigungKartenboxen.Enabled = True
|
||||
If sdlNr = 207 Then btnBenachrichtigungKartenboxen.Enabled = True
|
||||
If sdlNr = 101 Then btnBenachrichtigungKartenboxen.Enabled = True
|
||||
@@ -1149,6 +1154,7 @@ Public Class usrCntlKartenDaten
|
||||
Case 214 : pfad = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Retour\PLOSE.doc"
|
||||
Case 215 : pfad = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Retour\PLOSE_IT.doc"
|
||||
Case 216 : pfad = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Retour\PLOSE_CZ.doc"
|
||||
Case 217 : pfad = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Retour\PLOSE.doc"
|
||||
End Select
|
||||
|
||||
If Not System.IO.File.Exists(pfad) Then
|
||||
@@ -1173,7 +1179,8 @@ Public Class usrCntlKartenDaten
|
||||
Case 213 : odoc = getWordRetourniert_HUGO(odoc, kdNr, datum)
|
||||
Case 214 : odoc = getWordRetourniert_PLOSE(odoc, kdNr, datum)
|
||||
Case 215 : odoc = getWordRetourniert_PLOSE_IT(odoc, kdNr, datum)
|
||||
Case 216 : odoc = getWordRetourniert_PLOSE_CZ(odoc, kdNr, datum)
|
||||
Case 216 : odoc = getWordRetourniert_PLOSE_MEDPASS(odoc, kdNr, datum)
|
||||
Case 217 : odoc = getWordRetourniert_PLOSE(odoc, kdNr, datum)
|
||||
Case Else : odoc.Close() : MsgBox("Falsche Leistung")
|
||||
End Select
|
||||
|
||||
@@ -1368,6 +1375,43 @@ Public Class usrCntlKartenDaten
|
||||
Return odoc
|
||||
End Function
|
||||
|
||||
Function getWordRetourniert_PLOSE_MEDPASS(odoc As Microsoft.Office.Interop.Word.Document, kdNr As Integer, datum As Date) As Microsoft.Office.Interop.Word.Document
|
||||
Try
|
||||
Dim dt As DataTable = SQL.loadDgvBySql("SELECT * FROM SDL WHERE KundenNr=" & kdNr & " AND SDLNr=217 AND Retourniert=1 AND RetourniertAm between '" & datum.ToShortDateString & " 00:00:00' and '" & datum.ToShortDateString & " 23:59:59'")
|
||||
Dim KUNDE = kundenSQL.getKundeFMZOLLByKdNr(kdNr)
|
||||
If KUNDE Is Nothing Then MsgBox("Kunde nicht gefunden!") : Return odoc
|
||||
Dim PartnerKdNrFromFMZOLL As cPartnerKdNRFMZoll = kundenSQL.getPartnerKdNrFromFMZOLL(kdNr)
|
||||
|
||||
Dim oTable As Word.Table
|
||||
odoc.FormFields("Anzahl").Range.Text = dt.Rows.Count
|
||||
odoc.FormFields("KdName").Range.Text = KUNDE.Name_1 & " " & KUNDE.Name_2
|
||||
odoc.FormFields("KdStrasse").Range.Text = KUNDE.Straße
|
||||
odoc.FormFields("KdOrt").Range.Text = KUNDE.LandKz & " " & KUNDE.PLZ & " " & KUNDE.Ort
|
||||
odoc.FormFields("KdNrVERAG").Range.Text = KUNDE.KundenNr
|
||||
odoc.FormFields("KdNrMST").Range.Text = PartnerKdNrFromFMZOLL.PLOSE_KundenNr
|
||||
odoc.FormFields("Sachbearbeiter").Range.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
|
||||
|
||||
If odoc.Range.Bookmarks.Exists("TabelleKarten2") Then
|
||||
If odoc.Bookmarks("TabelleKarten2").Range.Tables.Count > 0 Then
|
||||
oTable = odoc.Bookmarks("TabelleKarten2").Range.Tables(1)
|
||||
Dim i = 1
|
||||
For Each r As DataRow In dt.Rows
|
||||
oTable.Rows(i + 1).Cells(1).Range.Text = cSqlDb.checkNullStr(r("KfzKennzeichen"))
|
||||
oTable.Rows(i + 1).Cells(2).Range.Text = cSqlDb.checkNullStr(r("KartenNr"))
|
||||
oTable.Rows(i + 1).Cells(3).Range.Text = cSqlDb.checkNullStr(r("OBUID"))
|
||||
If i < dt.Rows.Count Then oTable.Rows.Add()
|
||||
i += 1
|
||||
Next
|
||||
End If
|
||||
Else
|
||||
MessageBox.Show("Textmarke nicht vorhanden!")
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MessageBox.Show(ex.ToString)
|
||||
End Try
|
||||
Return odoc
|
||||
End Function
|
||||
|
||||
Function getWordRetourniert_MULTI(odoc As Microsoft.Office.Interop.Word.Document, kdNr As Integer, datum As Date) As Microsoft.Office.Interop.Word.Document
|
||||
Try
|
||||
Dim dt As DataTable = SQL.loadDgvBySql("SELECT * FROM SDL WHERE KundenNr=" & kdNr & " AND SDLNr=211 AND Retourniert=1 AND RetourniertAm between '" & datum.ToShortDateString & " 00:00:00' and '" & datum.ToShortDateString & " 23:59:59'")
|
||||
@@ -1586,4 +1630,8 @@ Public Class usrCntlKartenDaten
|
||||
Private Sub btnSDL_PLOSE_CZ_Click(sender As Object, e As EventArgs) Handles btnSDL_PLOSE_CZ.Click
|
||||
SET_SDL(216)
|
||||
End Sub
|
||||
|
||||
Private Sub Button2_Click_1(sender As Object, e As EventArgs) Handles btnSDL_PLOSE_MEDPASS.Click
|
||||
SET_SDL(217)
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
Reference in New Issue
Block a user