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

Implementierung Besucherberichte

Browse Source
This commit is contained in:
d.breimaier
2022-09-20 12:26:25 +02:00
parent 8e98815f0e
commit 8e6b6ef1e4
4 changed files with 630 additions and 471 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
VERAG_PROG_ALLGEMEIN/Classes/cBesuchsbericht.vb
View File

@@ -23,14 +23,14 @@ Public Class cBesuchsbericht
Property bb_FuhrparkLeasing As Object = Nothing
Property bb_LKW_Plane As Boolean = False
Property bb_LKW_Kuehltranporte As Boolean = False
Property bb_LKW_Sonsertransporte As Boolean = False
Property bb_LKW_Sprinter As Boolean = False
Property bb_LKW_Sondertransporte As Boolean = False
Property bb_LKW_Sprinter As Boolean = False
Property bb_LKW_SiloTank As Boolean = False
Property bb_Auftraggeber As Object = Nothing
Property bb_Route As Object = Nothing
Property bb_DerzeitigerLieferant As Object = Nothing
Property bb_Zufrieden As Object = Nothing
Property bb_ZufriedenNEIN As Object = Nothing
Property bb_Zufrieden As Boolean = Nothing
Property bb_ZufriedenNEIN As Object = Nothing
Property bb_Garantie As Object = Nothing
Property bb_Interesse_Zollabfertigung As Boolean = False
Property bb_Interesse_Brexit As Boolean = False
@@ -74,7 +74,7 @@ Public Class cBesuchsbericht
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bb_FuhrparkLeasing", bb_FuhrparkLeasing)) 'Object = Nothing
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bb_LKW_Plane", bb_LKW_Plane)) 'Boolean = False
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bb_LKW_Kuehltranporte", bb_LKW_Kuehltranporte)) 'Boolean = False
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bb_LKW_Sonsertransporte", bb_LKW_Sonsertransporte)) 'Boolean = False
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bb_LKW_Sondertransporte", bb_LKW_Sondertransporte)) 'Boolean = False
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bb_LKW_Sprinter", bb_LKW_Sprinter)) 'Boolean = False
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bb_LKW_SiloTank", bb_LKW_SiloTank)) 'Boolean = False
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bb_Auftraggeber", bb_Auftraggeber)) 'Object = Nothing
@@ -113,7 +113,7 @@ Public Class cBesuchsbericht
Public Shared Function DELETE(bb_Id As Integer) As Boolean
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Return SQL.doSQL("DELETE FROM tblBesuchsberichte WHERE bb_Id=" & bb_Id)
Return SQL.doSQL("DELETE FROM tblBesuchsberichte WHERE bb_Id=" & bb_Id)
End Function
Public Sub LOAD()