home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a079 / 1.img / FPDG.LZH / VOL2NUM0 / MISC / BFORMAT.PRG < prev    next >
Encoding:
Text File  |  1992-12-01  |  1.4 KB  |  45 lines
  1. ***************************************************************
  2. *     * 07/30/92            BFORMAT.PRG               4:42:02 *
  3. *     * Description:                                          *
  4. *     * This program illustrates BROWSE with FORMAT keyword   *
  5. *     * and with FIELDS clause by contrast                    *
  6. ***************************************************************
  7. SET TALK OFF
  8. USE ORDERS
  9. USE ACCOUNTS IN 2 ORDER ACCOUNT
  10. DEFINE POPUP GetAccount FROM 3,80 PROMPT FIELD ACCOUNTS->ACCOUNT
  11. ON SELECTION POPUP GetAccount DO Action
  12. SET FORMAT TO ORDERS
  13. * Example 1: with FORMAT
  14. BROWSE FORMAT
  15. * Example 2: Same action without FORMAT
  16. BROWSE FIELDS ;
  17.       Name :P= "XXXXXXXXXXXXXXXX",  ; 
  18.       AccNO :V= FetchAccts():F,     ;       
  19.       Price :P= "@$ 999,999.99",    ; 
  20.       Quantity :B= 1,200,           ; 
  21.       Total = Price*Quantity :P="@$ 999,999.99" 
  22. *...
  23. RETURN
  24. *****************************************************
  25. * PROCEDURE: FetchAccts - Executed to validate AcctNo field entry
  26. FUNCTION FetchAccts
  27. IsValid = .T.
  28. IF NOT SEEK(AccNo, "ACCOUNTS" )
  29.     ACTIVATE POPUP GetAccount
  30. ENDIF
  31. RETURN
  32. *****************************************************
  33. * PROCEDURE: Action - executed when popup option is
  34. *            selectedFetches selected account
  35. PROCEDURE Action
  36. IF BAR() # 0
  37.     REPLACE AccNO WITH PROMPT()
  38. ELSE
  39.     IsValid = .F.
  40. ENDIF
  41. DEACTIVATE POPUP GetAccount
  42. RETURN
  43.  
  44.  
  45.