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

TruckMaster

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-12-18 15:28:36 +01:00
parent ec955264ca
commit b88155a445
22 changed files with 1636 additions and 134 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
SDL/kunden/frmKundenblatt.vb
View File

@@ -1210,7 +1210,7 @@ Public Class frmKundenblatt
Case 212 : txtPartnerKdNr.Text = PartnerKdNrFromFMZOLL.UTAKundenNr 'UTA
Case 101 : txtPartnerKdNr.Text = PartnerKdNrFromFMZOLL.WölflKundenNr 'WÖLFL
Case 202 : txtPartnerKdNr.Text = PartnerKdNrFromFMZOLL.TELEPASS_Kd_Nr 'TELEPASS
Case 214, 215, 216, 217 : txtPartnerKdNr.Text = PartnerKdNrFromFMZOLL.PLOSE_KundenNr 'PLOSE
Case 214, 215, 216, 217, 218 : txtPartnerKdNr.Text = PartnerKdNrFromFMZOLL.PLOSE_KundenNr 'PLOSE
Case 201 : grpMautDE.Visible = True : Panel2.Visible = False 'MAUT DE
txtMautDE_FlottenPIN.Text = PartnerKdNrFromFMZOLL.MautDE_FlottenPIN 'MAUT DE
@@ -1229,7 +1229,7 @@ Public Class frmKundenblatt
Case 203 : scanErstbestellung.Visible = True
Case 209 : scanErstbestellung.Visible = True
Case 215 : scanErstbestellung.Visible = True' PLOSE IT
Case 214, 217 : scanErstbestellung.Visible = True 'PLOSE Roadmaster
Case 214, 217, 218 : scanErstbestellung.Visible = True 'PLOSE Roadmaster
Case 211
' scanErstbestellung.Visible = True
scanMWSTAgreement.Visible = True
@@ -1255,7 +1255,7 @@ Public Class frmKundenblatt
'gibt keine Einträge
Case 202 : kundenSQL.setPartnerKdNrFromFMZOLL("TELEPASS-Kd-Nr", txtPartnerKdNr.Text, kdNr) 'TELEPASS
kundenSQL.setPartnerKdNrSDL("TELEPASS-Kd-Nr", txtPartnerKdNr.Text, kdNr, sdlNrTmp)
Case 214, 215, 216, 217 : kundenSQL.setPartnerKdNrFromFMZOLL("PLOSEKundenNr", txtPartnerKdNr.Text, kdNr) 'PLOSE
Case 214, 215, 216, 217, 218 : kundenSQL.setPartnerKdNrFromFMZOLL("PLOSEKundenNr", txtPartnerKdNr.Text, kdNr) 'PLOSE
Case 201 : kundenSQL.setPartnerKdNrFromFMZOLL_DE(kdNr, txtMautDE_FlottenPIN.Text, txtMautDEMasterPIN.Text, txtMautDE_BenutzerNr.Text)
kundenSQL.setPartnerKdNrSDL("FlottenPIN", txtMautDE_FlottenPIN.Text, kdNr, sdlNrTmp)
kundenSQL.setPartnerKdNrSDL("MasterPIN", txtMautDEMasterPIN.Text, kdNr, sdlNrTmp)

13
SDL/kunden/usrCntlLKW.vb
View File

@@ -441,7 +441,7 @@ Public Class usrCntlLKW
End Sub
ElseIf dgvSDLLeistungen.SelectedRows(0).Cells(2).Value = 217 Then ' PLOSE CZ
ElseIf dgvSDLLeistungen.SelectedRows(0).Cells(2).Value = 217 Then ' PLOSE MED
Dim usrcntl As New usrCntlSDLLeistungenPLOSE_MEDPASS(dgvSDLLeistungen.SelectedRows(0).Cells(0).Value, dgvSDLLeistungen.SelectedRows(0).Cells(1).Value, dgvSDLLeistungen.SelectedRows(0).Cells(2).Value, dgvSDLLeistungen.SelectedRows(0).Cells(3).Value)
pnlSDLLeistungenDetails.Controls.Add(usrcntl)
AddHandler usrcntl.LKWChanged, Sub(kdNr, newKfz, SDLNr, History)
@@ -452,6 +452,17 @@ Public Class usrCntlLKW
End Sub
ElseIf dgvSDLLeistungen.SelectedRows(0).Cells(2).Value = 218 Then ' PLOSE TRUCKMASTER
Dim usrcntl As New usrCntlSDLLeistungenPLOSE_TRUCKMASTER(dgvSDLLeistungen.SelectedRows(0).Cells(0).Value, dgvSDLLeistungen.SelectedRows(0).Cells(1).Value, dgvSDLLeistungen.SelectedRows(0).Cells(2).Value, dgvSDLLeistungen.SelectedRows(0).Cells(3).Value)
pnlSDLLeistungenDetails.Controls.Add(usrcntl)
AddHandler usrcntl.LKWChanged, Sub(kdNr, newKfz, SDLNr, History)
RaiseEvent LKWChanged(kdNr, newKfz, SDLNr, History)
End Sub
AddHandler usrcntl.CHANGED, Sub(kdNr, newKfz, SDLNr, History)
doChange(kdNr, newKfz, SDLNr, History)
End Sub
ElseIf dgvSDLLeistungen.SelectedRows(0).Cells(2).Value = 500 Then ' MAN
Dim usrcntl As New usrCntlSDLLeistungenMANAbgas(dgvSDLLeistungen.SelectedRows(0).Cells(0).Value, dgvSDLLeistungen.SelectedRows(0).Cells(1).Value, dgvSDLLeistungen.SelectedRows(0).Cells(2).Value, dgvSDLLeistungen.SelectedRows(0).Cells(3).Value)
pnlSDLLeistungenDetails.Controls.Add(usrcntl)