This commit is contained in:
2020-09-23 07:24:25 +02:00
parent 89d8e0a3a8
commit ce31c2c398
84 changed files with 4953 additions and 554 deletions

View File

@@ -1,9 +1,9 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class usrCntlSDLLeistungHUGO
Inherits System.Windows.Forms.UserControl
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
@@ -20,7 +20,7 @@ Partial Class usrCntlSDLLeistungHUGO
'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()> _
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Me.cbxRetourniert = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
@@ -472,6 +472,8 @@ Partial Class usrCntlSDLLeistungHUGO
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
@@ -583,5 +585,4 @@ Partial Class usrCntlSDLLeistungHUGO
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

View File

@@ -118,7 +118,7 @@ Public Class usrCntlSDLLeistungHUGO
txtOBUID.Text = SDL.OBUID
txtKartenNr.Text = SDL.KartenNr
txtPin.Text = SDL.PIN
PROG.initPIN(txtPin)
Catch ex As Exception
MsgBox(ex.Message)
@@ -207,4 +207,6 @@ Public Class usrCntlSDLLeistungHUGO
If tmp.Length > txtVermerk.MaxLength Then tmp = tmp.Substring(0, txtVermerk.MaxLength)
Return tmp
End Function
End Class

View File

@@ -117,6 +117,7 @@ Public Class usrCntlSDLLeistungPLOSE
txtOBUID.Text = SDL.OBUID
txtKartenNr.Text = SDL.KartenNr
txtPin.Text = SDL.PIN
PROG.initPIN(txtPin)
Catch ex As Exception
MsgBox(ex.Message)

View File

@@ -120,6 +120,7 @@ Public Class usrCntlSDLLeistungenIDS
' UsrCntlDetails.lblSachbearb.DataBindings.Add(New Binding("Text", s.bindingSource, "Sachbearbeiter", True, DataSourceUpdateMode.OnPropertyChanged, ""))
txtPIN.Text = SDL.PIN
PROG.initPIN(txtPIN)
txtKartenNr.Text = SDL.KartenNr
'txtPIN.DataBindings.Add(New Binding("Text", s.bindingSource, "PIN", True, DataSourceUpdateMode.OnPropertyChanged, ""))
'txtKartenNr.DataBindings.Add(New Binding("Text", s.bindingSource, "KartenNr", True, DataSourceUpdateMode.OnPropertyChanged, ""))

View File

@@ -105,6 +105,7 @@ Public Class usrCntlSDLLeistungenUTA
txtPIN.Text = SDL.PIN
PROG.initPIN(txtPIN)
txtKartenNr.Text = SDL.KartenNr
txtClientNr.Text = SDL.CLIENT_Nr
txtCardNr.Text = SDL.CARD_Nr

View File

@@ -103,6 +103,7 @@ Public Class usrCntlSDLLeistungenWOELFL
txtPIN.Text = SDL.PIN
PROG.initPIN(txtPIN)
txtKartenschluesselNummer.Text = SDL.KartenSchlüsselNr