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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2020-06-23 08:29:29 +02:00
parent 9b52ab1b61
commit 5a5a4c94c1
32 changed files with 876 additions and 346 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungHUGO.vb
View File

@@ -16,7 +16,7 @@ Public Class usrCntlSDLLeistungHUGO
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
Public SDL As VERAG_PROG_ALLGEMEIN.cSDL
Dim boud = False
@@ -82,7 +82,7 @@ Public Class usrCntlSDLLeistungHUGO
Sub initDataBinding()
Try
SDL = New cSDL(kdNr, KfzKennzeichen, SDLNr, History)
SDL = New VERAG_PROG_ALLGEMEIN.cSDL(kdNr, KfzKennzeichen, SDLNr, History)
PROG.initDTPE(txtLieferung)
PROG.initDTPE(txtBestellung)

4
SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungMautAT.vb
View File

@@ -14,7 +14,7 @@ Public Class usrCntlSDLLeistungMautAT
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
Public SDL As VERAG_PROG_ALLGEMEIN.cSDL
Dim boud = False
Sub New(kdNr, KfzKennzeichen, SDLNr, History)
@@ -59,7 +59,7 @@ Public Class usrCntlSDLLeistungMautAT
Sub initDataBinding()
Try
SDL = New cSDL(kdNr, KfzKennzeichen, SDLNr, History)
SDL = New VERAG_PROG_ALLGEMEIN.cSDL(kdNr, KfzKennzeichen, SDLNr, History)
PROG.initDTPE(txtVertragabschlussdatum)
PROG.initDTPE(txtUmstellungsdatum)

4
SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungMautDE.vb
View File

@@ -16,7 +16,7 @@ Public Class usrCntlSDLLeistungMautDE
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
Public SDL As VERAG_PROG_ALLGEMEIN.cSDL
Dim boud = False
Sub New(kdNr, KfzKennzeichen, SDLNr, History)
@@ -64,7 +64,7 @@ Public Class usrCntlSDLLeistungMautDE
End Sub
Sub initDataBinding()
Try
SDL = New cSDL(kdNr, KfzKennzeichen, SDLNr, History)
SDL = New VERAG_PROG_ALLGEMEIN.cSDL(kdNr, KfzKennzeichen, SDLNr, History)
PROG.initDTPE(txtLieferung)
PROG.initDTPE(txtBestellung)

4
SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungPLOSE.vb
View File

@@ -16,7 +16,7 @@ Public Class usrCntlSDLLeistungPLOSE
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
Public SDL As VERAG_PROG_ALLGEMEIN.cSDL
Dim boud = False
@@ -83,7 +83,7 @@ Public Class usrCntlSDLLeistungPLOSE
Sub initDataBinding()
Try
SDL = New cSDL(kdNr, KfzKennzeichen, SDLNr, History)
SDL = New VERAG_PROG_ALLGEMEIN.cSDL(kdNr, KfzKennzeichen, SDLNr, History)
PROG.initDTPE(txtLieferung)
PROG.initDTPE(txtBestellung)

4
SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungVERAGCard.vb
View File

@@ -16,7 +16,7 @@ Public Class usrCntlSDLLeistungVERAGCard
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
Public SDL As VERAG_PROG_ALLGEMEIN.cSDL
Dim boud = False
Sub New(kdNr, KfzKennzeichen, SDLNr, History)
@@ -61,7 +61,7 @@ Public Class usrCntlSDLLeistungVERAGCard
End Sub
Sub initDataBinding()
Try
SDL = New cSDL(kdNr, KfzKennzeichen, SDLNr, History)
SDL = New VERAG_PROG_ALLGEMEIN.cSDL(kdNr, KfzKennzeichen, SDLNr, History)
PROG.initDTPE(txtBestelldatum)
PROG.initDTPE(txtLieferung)

4
SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenCZ.vb
View File

@@ -10,7 +10,7 @@ Public Class usrCntlSDLLeistungenCZ
Dim culture As CultureInfo = New CultureInfo("de-DE")
Private PartnerKdNrFromFMZOLL As cPartnerKdNRFMZoll
Public addnew As Boolean = False
Public SDL As cSDL
Public SDL As VERAG_PROG_ALLGEMEIN.cSDL
' Public WithEvents s As New cBinding 'fürs Binding
Public Event CHANGED(kdNr, newKfz, SDLNr, History)
Dim VAL As New cValidationSDLLeistungen
@@ -72,7 +72,7 @@ Public Class usrCntlSDLLeistungenCZ
If addnew Then newEntry() 'NEUER EINTRAG!
SDL = New cSDL(kdNr, KfzKennzeichen, SDLNr, History)
SDL = New VERAG_PROG_ALLGEMEIN.cSDL(kdNr, KfzKennzeichen, SDLNr, History)
PROG.initDTPE(txtLieferung)
PROG.initDTPE(txtBestellung)

6
SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenDUOBOX.vb
View File

@@ -15,7 +15,7 @@ Public Class usrCntlSDLLeistungenDUOBOX
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
Public SDL As VERAG_PROG_ALLGEMEIN.cSDL
Dim boud = False
Sub New(kdNr, KfzKennzeichen, SDLNr, History)
@@ -73,8 +73,8 @@ Public Class usrCntlSDLLeistungenDUOBOX
Sub initDataBinding()
Try
SDL = New cSDL(kdNr, KfzKennzeichen, SDLNr, History)
SDL = New VERAG_PROG_ALLGEMEIN.cSDL(kdNr, KfzKennzeichen, SDLNr, History)
PROG.initDTPE(txtLieferung)
PROG.initDTPE(txtBestellung)
PROG.initDTPE(txtGueltigkeit2)

4
SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenECOTAX.vb
View File

@@ -15,7 +15,7 @@ Public Class usrCntlSDLLeistungenECOTAX
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
Public SDL As VERAG_PROG_ALLGEMEIN.cSDL
Dim boud = False
Sub New(kdNr, KfzKennzeichen, SDLNr, History)
@@ -73,7 +73,7 @@ Public Class usrCntlSDLLeistungenECOTAX
Sub initDataBinding()
Try
SDL = New cSDL(kdNr, KfzKennzeichen, SDLNr, History)
SDL = New VERAG_PROG_ALLGEMEIN.cSDL(kdNr, KfzKennzeichen, SDLNr, History)
PROG.initDTPE(txtLieferung)
PROG.initDTPE(txtBestellung)

4
SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenFR.vb
View File

@@ -14,7 +14,7 @@ Public Class usrCntlSDLLeistungenFR
Dim VAL As New cValidationSDLLeistungen
Public Event LKWChanged(kdNr, newKfz, SDLNr, History)
Public Event CHANGED(kdNr, newKfz, SDLNr, History)
Public SDL As cSDL
Public SDL As VERAG_PROG_ALLGEMEIN.cSDL
' Public WithEvents s As New cBinding 'fürs Binding
Dim boud = False
@@ -76,7 +76,7 @@ Public Class usrCntlSDLLeistungenFR
' 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")
SDL = New cSDL(kdNr, KfzKennzeichen, SDLNr, History)
SDL = New VERAG_PROG_ALLGEMEIN.cSDL(kdNr, KfzKennzeichen, SDLNr, History)
' AddHandler s.bindingdataTable.ColumnChanged, AddressOf BindingTableColumnChanged
'AddHandler s.bindingdataTable.TableNewRow, AddressOf s.bindingdataTable_TableNewRow_SDLLeistungen

4
SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenFREJUS.vb
View File

@@ -15,7 +15,7 @@ Public Class usrCntlSDLLeistungenFREJUS
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
Public SDL As VERAG_PROG_ALLGEMEIN.cSDL
Dim boud = False
Sub New(kdNr, KfzKennzeichen, SDLNr, History)
@@ -72,7 +72,7 @@ Public Class usrCntlSDLLeistungenFREJUS
Sub initDataBinding()
Try
SDL = New cSDL(kdNr, KfzKennzeichen, SDLNr, History)
SDL = New VERAG_PROG_ALLGEMEIN.cSDL(kdNr, KfzKennzeichen, SDLNr, History)
PROG.initDTPE(txtLieferung)
PROG.initDTPE(txtBestellung)

4
SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenIDS.vb
View File

@@ -13,7 +13,7 @@ Public Class usrCntlSDLLeistungenIDS
Public addnew As Boolean = False
Dim VAL As New cValidationSDLLeistungen
'Public WithEvents s As New cBinding 'fürs Binding
Public SDL As cSDL
Public SDL As VERAG_PROG_ALLGEMEIN.cSDL
Public Event LKWChanged(kdNr, newKfz, SDLNr, History)
Public Event CHANGED(kdNr, newKfz, SDLNr, History)
Dim boud = False
@@ -72,7 +72,7 @@ Public Class usrCntlSDLLeistungenIDS
' 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")
SDL = New cSDL(kdNr, KfzKennzeichen, SDLNr, History)
SDL = New VERAG_PROG_ALLGEMEIN.cSDL(kdNr, KfzKennzeichen, SDLNr, History)
' AddHandler s.bindingdataTable.ColumnChanged, AddressOf BindingTableColumnChanged
'AddHandler s.bindingdataTable.TableNewRow, AddressOf s.bindingdataTable_TableNewRow_SDLLeistungen

4
SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenIT.vb
View File

@@ -15,7 +15,7 @@ Public Class usrCntlSDLLeistungenIT
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
Public SDL As VERAG_PROG_ALLGEMEIN.cSDL
Dim boud = False
Sub New(kdNr, KfzKennzeichen, SDLNr, History)
@@ -73,7 +73,7 @@ Public Class usrCntlSDLLeistungenIT
Sub initDataBinding()
Try
SDL = New cSDL(kdNr, KfzKennzeichen, SDLNr, History)
SDL = New VERAG_PROG_ALLGEMEIN.cSDL(kdNr, KfzKennzeichen, SDLNr, History)
PROG.initDTPE(txtLieferung)
PROG.initDTPE(txtBestellung)

8
SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenMANAbgas.vb
View File

@@ -13,7 +13,7 @@ Public Class usrCntlSDLLeistungenMANAbgas
Public addnew As Boolean = False
Dim VAL As New cValidationSDLLeistungen
'Public WithEvents s As New cBinding 'fürs Binding
Public SDL As cSDL
Public SDL As VERAG_PROG_ALLGEMEIN.cSDL
Public Event LKWChanged(kdNr, newKfz, SDLNr, History)
Public Event CHANGED(kdNr, newKfz, SDLNr, History)
Dim boud = False
@@ -66,9 +66,9 @@ Public Class usrCntlSDLLeistungenMANAbgas
Sub initDataBinding()
Try
SDL = New cSDL(kdNr, KfzKennzeichen, SDLNr, History)
SDL = New VERAG_PROG_ALLGEMEIN.cSDL(kdNr, KfzKennzeichen, SDLNr, History)
PROG.initDTPE(txtLieferung)
PROG.initDTPE(txtBestellung)

4
SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenMSE.vb
View File

@@ -15,7 +15,7 @@ Public Class usrCntlSDLLeistungenMSE
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
Public SDL As VERAG_PROG_ALLGEMEIN.cSDL
Dim boud = False
@@ -70,7 +70,7 @@ Public Class usrCntlSDLLeistungenMSE
Sub initDataBinding()
Try
SDL = New cSDL(kdNr, KfzKennzeichen, SDLNr, History)
SDL = New VERAG_PROG_ALLGEMEIN.cSDL(kdNr, KfzKennzeichen, SDLNr, History)
PROG.initDTPE(txtLieferung)
PROG.initDTPE(txtBestellung)

4
SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenMotorWayMaut.vb
View File

@@ -15,7 +15,7 @@ Public Class usrCntlSDLLeistungenMotorWayMaut
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
Public SDL As VERAG_PROG_ALLGEMEIN.cSDL
Dim boud = False
Sub New(kdNr, KfzKennzeichen, SDLNr, History)
@@ -71,7 +71,7 @@ Public Class usrCntlSDLLeistungenMotorWayMaut
Sub initDataBinding()
Try
SDL = New cSDL(kdNr, KfzKennzeichen, SDLNr, History)
SDL = New VERAG_PROG_ALLGEMEIN.cSDL(kdNr, KfzKennzeichen, SDLNr, History)
PROG.initDTPE(txtLieferung)
PROG.initDTPE(txtBestellung)

4
SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenPL.vb
View File

@@ -13,7 +13,7 @@ Public Class usrCntlSDLLeistungenPL
Public addnew As Boolean = False
'Public WithEvents s As New cBinding 'fürs Binding
Public SDL As cSDL
Public SDL As VERAG_PROG_ALLGEMEIN.cSDL
Public Event LKWChanged(kdNr, newKfz, SDLNr, History)
Public Event CHANGED(kdNr, newKfz, SDLNr, History)
Dim VAL As New cValidationSDLLeistungen
@@ -73,7 +73,7 @@ Public Class usrCntlSDLLeistungenPL
Sub initDataBinding()
Try
SDL = New cSDL(kdNr, KfzKennzeichen, SDLNr, History)
SDL = New VERAG_PROG_ALLGEMEIN.cSDL(kdNr, KfzKennzeichen, SDLNr, History)
PROG.initDTPE(txtLieferung)
PROG.initDTPE(txtBestellung)

4
SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenPLOSE_CZ.vb
View File

@@ -10,7 +10,7 @@ Public Class usrCntlSDLLeistungenPLOSE_CZ
Dim culture As CultureInfo = New CultureInfo("de-DE")
Private PartnerKdNrFromFMZOLL As cPartnerKdNRFMZoll
Public addnew As Boolean = False
Public SDL As cSDL
Public SDL As VERAG_PROG_ALLGEMEIN.cSDL
' Public WithEvents s As New cBinding 'fürs Binding
Public Event CHANGED(kdNr, newKfz, SDLNr, History)
Dim VAL As New cValidationSDLLeistungen
@@ -72,7 +72,7 @@ Public Class usrCntlSDLLeistungenPLOSE_CZ
If addnew Then newEntry() 'NEUER EINTRAG!
SDL = New cSDL(kdNr, KfzKennzeichen, SDLNr, History)
SDL = New VERAG_PROG_ALLGEMEIN.cSDL(kdNr, KfzKennzeichen, SDLNr, History)
PROG.initDTPE(txtLieferung)
PROG.initDTPE(txtBestellung)

4
SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenPLOSE_IT.vb
View File

@@ -15,7 +15,7 @@ Public Class usrCntlSDLLeistungenPLOSE_IT
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
Public SDL As VERAG_PROG_ALLGEMEIN.cSDL
Dim boud = False
Sub New(kdNr, KfzKennzeichen, SDLNr, History)
@@ -73,7 +73,7 @@ Public Class usrCntlSDLLeistungenPLOSE_IT
Sub initDataBinding()
Try
SDL = New cSDL(kdNr, KfzKennzeichen, SDLNr, History)
SDL = New VERAG_PROG_ALLGEMEIN.cSDL(kdNr, KfzKennzeichen, SDLNr, History)
PROG.initDTPE(txtLieferung)
PROG.initDTPE(txtBestellung)

4
SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenSI.vb
View File

@@ -15,7 +15,7 @@ Public Class usrCntlSDLLeistungenSI
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
Public SDL As VERAG_PROG_ALLGEMEIN.cSDL
Dim boud = False
@@ -75,7 +75,7 @@ Public Class usrCntlSDLLeistungenSI
Sub initDataBinding()
Try
SDL = New cSDL(kdNr, KfzKennzeichen, SDLNr, History)
SDL = New VERAG_PROG_ALLGEMEIN.cSDL(kdNr, KfzKennzeichen, SDLNr, History)
PROG.initDTPE(txtLieferung)
PROG.initDTPE(txtBestellung)

4
SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenUTA.vb
View File

@@ -15,7 +15,7 @@ Public Class usrCntlSDLLeistungenUTA
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
Public SDL As VERAG_PROG_ALLGEMEIN.cSDL
Dim boud = False
@@ -72,7 +72,7 @@ Public Class usrCntlSDLLeistungenUTA
Sub initDataBinding()
Try
SDL = New cSDL(kdNr, KfzKennzeichen, SDLNr, History)
SDL = New VERAG_PROG_ALLGEMEIN.cSDL(kdNr, KfzKennzeichen, SDLNr, History)
PROG.initDTPE(txtLieferung)
PROG.initDTPE(txtBestellung)

4
SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenWOELFL.vb
View File

@@ -11,7 +11,7 @@ Public Class usrCntlSDLLeistungenWOELFL
Public addnew As Boolean = False
'Public WithEvents s As New cBinding 'fürs Binding
Public SDL As cSDL
Public SDL As VERAG_PROG_ALLGEMEIN.cSDL
Public Event LKWChanged(kdNr, newKfz, SDLNr, History)
Public Event CHANGED(kdNr, newKfz, SDLNr, History)
Public PROG As New cProgramFunctions
@@ -72,7 +72,7 @@ Public Class usrCntlSDLLeistungenWOELFL
End Function
Sub initDataBinding()
Try
SDL = New cSDL(kdNr, KfzKennzeichen, SDLNr, History)
SDL = New VERAG_PROG_ALLGEMEIN.cSDL(kdNr, KfzKennzeichen, SDLNr, History)
PROG.initDTPE(txtLieferung)
PROG.initDTPE(txtBestellung)