Index: UI/MB/UGLYPicking/dlgReceptie.cls.xml =================================================================== diff -u -r5127 -r5133 --- UI/MB/UGLYPicking/dlgReceptie.cls.xml (.../dlgReceptie.cls.xml) (revision 5127) +++ UI/MB/UGLYPicking/dlgReceptie.cls.xml (.../dlgReceptie.cls.xml) (revision 5133) @@ -570,25 +570,26 @@ } } Else { - Quit:($$$cmReceptie.IsBufferClosed(..RGID,..VolgNr)) - New Msg - Set Msg="Wenst u de huidige lijst af te sluiten?" - If $$pdaMsgBox^vhVisual(..Form.Caption,Msg,$$$MBICONQUESTION,1)=$$$mrOk - { - Set MApplication.ScreenCursor=$$$crHourGlass - New tmpStatus - Set tmpStatus=$$$cmReceptie.CloseAndHandleBuffer(..RGID,..VolgNr) - Set MApplication.ScreenCursor=$$$crDefault - If $LI(tmpStatus)<0 { - Do pdaMsgBox^vhVisual(..Form.Caption,$LI(tmpStatus,2),$$$MBICONERROR) + If ('$$$cmReceptie.IsBufferClosed(..RGID,..VolgNr)){ + New Msg + Set Msg="Wenst u de huidige lijst af te sluiten?" + If $$pdaMsgBox^vhVisual(..Form.Caption,Msg,$$$MBICONQUESTION,1)=$$$mrOk + { + Set MApplication.ScreenCursor=$$$crHourGlass + New tmpStatus + Set tmpStatus=$$$cmReceptie.CloseAndHandleBuffer(..RGID,..VolgNr) + Set MApplication.ScreenCursor=$$$crDefault + If $LI(tmpStatus)<0 { + Do pdaMsgBox^vhVisual(..Form.Caption,$LI(tmpStatus,2),$$$MBICONERROR) + } + If (..LocatieScanNadien){ + New RForm + Set RForm=##class(UI.MB.UGLYPicking.dlgReceptieScanNadien).%New($LB(%this.Form.Address,0)) + Do RForm.Init(..RGID,..VolgNr,..txtLocatie.Text,..txtPalletID.Text) + Do RForm.Form.ShowModal() + } } - If (..LocatieScanNadien){ - New RForm - Set RForm=##class(UI.MB.UGLYPicking.dlgReceptieScanNadien).%New($LB(%this.Form.Address,0)) - Do RForm.Init(..RGID,..VolgNr,..txtLocatie.Text,..txtPalletID.Text) - Do RForm.Form.ShowModal() - } - } + } } ;Unlock stuff...