Par2: Edit in Place and update form template 1998-02-05 -- Neil Worley Well here goes my second attempt. Damn I hate it when things don't work
the way I think they do when I am learning something new. Anyway I have
tested this a couple of times in various situations and seems to work.
Even with a second browse but not to update the second browse. That's my
next project......
Regards,
Neil
here's the code...............
#EXTENSION(WCSEIP,'Add Both EIP and Update Procedure
Functionality'),REQ(BrowseBox(ABC))
#ATSTART
#FIND(%ControlInstance,%ActiveTemplateParentInstance,%Control)
#!DECLARE(%WCSSAVENUM,LONG),MULTI
#!DECLARE(%WCSLISTQUE,%WCSSAVENUM,STRING),MULTI
#ENDAT
#SHEET
#TAB('EIP')
#DISPLAY('Worley Computing Systems'),AT(40,20)
#DISPLAY('Bright Concepts for Bright Companies'),AT(40,30)
#DISPLAY
#BUTTON('EIP and Update
Procedure'),MULTI(%WCSSAVENUM,%WCSLISTQUE),INLINE
#PROMPT('Browse:',FROM(%CONTROL,%CONTROLTYPE =
'LIST')),%WCSLISTQUE,AT(40)
#ENDBUTTON
#ENDTAB
#TAB('Help')
#DISPLAY('WCS Utils v1.0 3-Feb-98')
#DISPLAY('This template is designed to work with only 1 browse box')
#DISPLAY('on the window at this time. Please feel free to modify')
#DISPLAY('the code to work better and with more features but please')
#DISPLAY('send a copy of the changes to nworley@ozemail.com.au')
#DISPLAY('and also freely distribute to others.')
#DISPLAY(' ')
#DISPLAY('---------------------------------------------------------')
#DISPLAY(' ')
#DISPLAY('Features to be added: ')
#DISPLAY('- multiple browse boxes')
#DISPLAY('- ability to have multiple procedures called')
#DISPLAY(' ')
#ENDTAB
#ENDSHEET
#!------------------------------------------------------------------------------
#AT(%WindowManagerMethodCodeSection,'Init','(),BYTE'),PRIORITY(4000)
!@WCS@ Initialize the AskProcedure Variable to use the Update Procedure
#FOR(%WCSSAVENUM)
! %TestField
BRW%WCSSAVENUM.AskProcedure = 1
#ENDFOR
#ENDAT
#!------------------------------------------------------------------------------
#AT(%BrowserMethodCodeSection,1,'TakeKey','(),BYTE'),FIRST
!@WCS@ Make Double Click EIP, If Clicked on the Queue
IF RECORDS(SELF.ListQueue) AND KEYCODE() = MouseLeft2
#FOR(%WCSSAVENUM)
BRW%WCSSAVENUM.AskProcedure = 0
#ENDFOR
END
#ENDAT
#!------------------------------------------------------------------------------
#AT(%BrowserMethodCodeSection,1,'Ask','(BYTE Request),BYTE'),LAST
!@WCS@ reset the AskProcedure Variable to use the Update Procedure
#FOR(%WCSSAVENUM)
BRW%WCSSAVENUM.AskProcedure = 1
#ENDFOR
#ENDAT
#!------------------------------------------------------------------------------
Printed May 3, 2024, 7:12 am This article has been viewed/printed 35110 times. |