Login
Templates, Tools and Utilities
for Clarion Developers
Templates, Tools and Utilities
|
||
|
|
|
Add a comment to an Icetips ArticlePlease add your comments to this article.
Please note that you must provide both a name and a valid email address in order
for us to publish your comment. Comments are moderated and are not visible until they have been approved. Spam is never approved!
Back to article list Search Articles Add Comment Printer friendly Direct link 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
#!------------------------------------------------------------------------------
Today is November 21, 2024, 6:47 am This article has been viewed 35185 times.
|
|