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

MDM-Word Logo, divers

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-03-06 21:30:46 +01:00
parent ff705db787
commit 397738ca5f
40 changed files with 167 additions and 80 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
SDL/mdm/SDLAbholung/frmSDLAbholungEintrag.vb
View File

@@ -391,7 +391,7 @@ Public Class frmSDLAbholungEintrag
'Dim f As New frmSDLAbholungEintrag(getSDLAbholung())
' If f.ShowDialog(Me) = Windows.Forms.DialogResult.OK Then
genFormular = cGenWord.genUebernahmebestaetigung(cProgramFunctions.dgridViewTods(dgvPositionen), KdNr, VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME, print, printername, SDL_ABHOLUNG.sdlAb_Id, WordPath, TMPvisible)
genFormular = cGenWord.genUebernahmebestaetigungKuvert(cProgramFunctions.dgridViewTods(dgvPositionen), KdNr, VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME, print, printername, SDL_ABHOLUNG.sdlAb_Id, WordPath, TMPvisible)
genFormular = cGenWord.genUebernahmebestaetigungKuvert(cProgramFunctions.dgridViewTods(dgvPositionen), KdNr, VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME, print, printername, SDL_ABHOLUNG.sdlAb_Id, WordPath, TMPvisible, sprache)
'End If
Else
@@ -446,7 +446,7 @@ Public Class frmSDLAbholungEintrag
'If f.ShowDialog(Me) = Windows.Forms.DialogResult.OK Then
genFormular = cGenWord.genUebernahmebestaetigung(cProgramFunctions.dgridViewTods(dgvPositionen), KdNr, VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME, print, printername, SDL_ABHOLUNG.sdlAb_Id, WordPath, TMPvisible)
genFormular = cGenWord.genUebernahmebestaetigungKuvert(cProgramFunctions.dgridViewTods(dgvPositionen), KdNr, VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME, print, printername, SDL_ABHOLUNG.sdlAb_Id, WordPath, TMPvisible)
genFormular = cGenWord.genUebernahmebestaetigungKuvert(cProgramFunctions.dgridViewTods(dgvPositionen), KdNr, VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME, print, printername, SDL_ABHOLUNG.sdlAb_Id, WordPath, TMPvisible, sprache)
'End If
Else
If SDLNr = 999 Then 'Spezialfall PL+CZ

12
SDL/mdm/usrCntlDatenDetails.vb
View File

@@ -254,6 +254,18 @@ Public Class usrCntlDatenDetails
RaiseEvent DataChanged(kdNr, Kfz, SDLNr, History)
End Sub
ElseIf SDLLeistung = 217 Then ' PLOSE cz
pic.Image = Nothing
Dim usrcntl As New usrCntlSDLLeistungenPLOSE_MEDPASS(kdnr, KfzKennzeichen, SDLLeistung, history)
usrcntl.Dock = DockStyle.Fill
pnlSDLLeistungenDetails.Controls.Add(usrcntl)
AddHandler usrcntl.LKWChanged, Sub(kdNr, newKfz, SDLNr, History)
RaiseEvent Changed(kdNr, newKfz, SDLNr, History)
End Sub
AddHandler usrcntl.CHANGED, Sub(kdNr, Kfz, SDLNr, History)
RaiseEvent DataChanged(kdNr, Kfz, SDLNr, History)
End Sub
ElseIf SDLLeistung = 500 Then ' MAN
pic.Image = Nothing
Dim usrcntl As New usrCntlSDLLeistungenMANAbgas(kdnr, KfzKennzeichen, SDLLeistung, history)