Re: Help! Designing a two-block form.

From: <fgreene_at_hayes.com>
Date: 12 Sep 93 16:27:37 EDT
Message-ID: <7942.2c934df9_at_hayes.com>


ASSUME THIS IS BLOCK1
> Location: _______ [ ]
>
> ---------------------------------------------------------------------
 AND THIS IS BLOCK2
>
> Employee ID: _____ [ ] Job: [ ]
> Absent From: ______ To: ______ Reason: ____ [ ]
>
> Employee ID: _____ [ ] Job: [ ]
> Absent From: ______ To: ______ Reason: ____ [ ]
>
> Employee ID: _____ [ ] Job: [ ]
> Absent From: ______ To: ______ Reason: ____ [ ]
>
IF YOU ARE BUILDING A NEW FORM USING FORMS 3, THERE IS A DEFAULT CAPABILITY THAT WILL LET YOU AUTOMATICALLY CO-ORDINATE TWO BLOCKS. LETS ASSUME, HOWEVER, THAT YOUR BLOCKS ALREADY EXIST. TO AUTOMATICALLY FILL BLOCK2 FROM BLOCK1 YOU NEED TO LET BLOCK2 KNOW WHAT IS THE CORRECT LOCATION. TRY THIS:         IN BLOCK1 CREATE A KEY-NXTBLK KEY THAT SAYS

		GO_BLOCK('BLOCK2');
		EXECUTE_QUERY;

	WITHIN BLOCK2 ADD THE FIELD 'LOCATION_CODE' AS A BASE TABLE
	FIELD.  

	WITHIN BLOCK2, ADD A PRE-QUERY TRIGGER AT THE BLOCK LEVEL THAT
	SAYS 

		:BLOCK2.LOCATION_CODE := :BLOCK1.LOCATION_CODE


THE BLOCK1 KEY-NXTFLD TRIGGER SAYS 'GO TO BLOCK2 AND IMMEDIATELY EXECUTE A QUERY. THE BLOCK2 PRE-QUERY TRIGGER SAYS 'BUT BEFORE YOU EXECUTE THE QUERY, GO BACK TO BLOCK1 AND GET THE CURRENT VALUE FOR 'LOCATION_CODE' OVERALL RESULT IS THAT BLOCK2 ONLY RETRIEVES THOSE VALUES THAT MATCH THE INPUT FROM BLOCK1.


 | Frank Greene DELPHI SYSTEMS Inc    |          _/_/_/  _/_/_/             |
 | Telephone [615] 458-6032           |           _/_/    _/_/              |
 | Internet 74200.427_at_compuserve.com  |          _/_/    _/_/  _/_/_/       |
 | Compuserve 74200,427               |         _/_/    _/_/    _/_/        |
 | 324 Ootsima Way                    |        _/_/    _/_/    _/_/         |
 | Loudon, TN 37774                   |       _/_/_/  _/_/_/  _/_/_/        |
 ----------------------------------------------------------------------------
 |         Of course, any opinions or suggestions are strictly my own       |
 ----------------------------------------------------------------------------
Received on Sun Sep 12 1993 - 22:27:37 CEST

Original text of this message