` Detect if Procedure is Browse or Form (Alexander) - Icetips Article
Icetips - Templates, Tools & Utilities for Clarion Developers

Templates, Tools and Utilities
for Clarion Developers

Icetips Article

Back to article list   Search Articles     Add Comment     Printer friendly     Direct link  

Templates: Detect if Procedure is Browse or Form
2004-02-24 -- Alexander
 
Newsgroups: softvelocity.clarion.templates Hi Alvin We use this method in some of our VIVID templates. It appears as being OK. Ironically the group is called %FormOrBrowse :-) It analyses procedure tempaltes and works in c5-c6 (and maybe in c4) Regards Alexander www.vividhelp.com ---------------------------------------------------------------------------- #! decalrations.................................. #ATSTART #DECLARE(%IsForm) #DECLARE(%ProcType) #ENDAT #! group def. .................................. #GROUP(%FormOrBrowse) #CLEAR(%IsForm) #FOR(%ActiveTemplate) #IF(INSTRING('RecordValidation',%ActiveTemplate,1,1)) #SET(%IsForm,%TRUE) #SET(%ProcType,'Form') #BREAK #ENDIF #ENDFOR #IF(%IsForm) #ELSE #FOR(%ActiveTemplate) #IF(INSTRING('BrowseBox',%ActiveTemplate,1,1)) #SET(%ProcType,'Browse') #BREAK #ENDIF #ENDFOR #ENDIF #! calling group ........................................... #INSERT(%FormOrBrowse) #IF(%ProcType = 'Browse') ............................. #ENDIF ---------------------------------------------------------------------------- -- "Alvin" wrote in message news:A921.1077250650.8915@discuss.softvelocity.com... > Hi Experts, > > In template writing, how do we determine whether it is a form window or a > browse window? > > Currently, I m using this method for checking: > WHERE(LEFT(%Procedure, 5) <> 'Browse') > > But if naming of my browse window does not starts with 'Browse..., I will > have a problem. > > Thank you in advance


Today is November 21, 2024, 3:49 am
This article has been viewed 35201 times.
Google search has resulted in one hit on this article since January 25, 2004.



Back to article list   Search Articles   Add Comment   Printer friendly

Login

User Name:

Password: