Kbase P98506: ADM1: How to populate a database field viewed as COMBO-BOX in an SmartViewer object?
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
07/05/2005 |
|
Status: Unverified
GOAL:
How to populate a database field viewed as COMBO-BOX in ADM1 SmartViewer object?
FACT(s) (Environment):
Progress 8.x
Progress 9.x
FIX:
Create local-initialize procedure in the SmartViewer with code similar to:
/*------------------------------------------------------------------------------
Purpose: Override standard ADM method
Notes: Code to populate the State field COMBO-BOX.
------------------------------------------------------------------------------*/
/* Code placed here will execute PRIOR to standard behavior. */
DO WITH FRAME {&FRAME-NAME}:
FOR EACH Customer NO-LOCK BREAK BY State:
IF FIRST-OF(State) THEN
sports.Customer.State:ADD-LAST(state).
END.
END.
END PROCEDURE.
/* Dispatch standard ADM method. */
RUN dispatch IN THIS-PROCEDURE ( INPUT 'initialize':U ) .
/* Code placed here will execute AFTER to standard behavior. */