home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a070 / 3.ddi / FOXPRO / TEMPLGEN / AP1FORM.INC < prev    next >
Encoding:
Text File  |  1988-06-08  |  1.0 KB  |  57 lines
  1. <<* APPFORM.INC *>>
  2. <<#
  3.  
  4. procedure WriteLabels
  5. integer lasthue
  6. begin
  7.   lasthue := 32000
  8.   forall (not fldnap)
  9.     if (fldhue <> lasthue)
  10.       genln( 'SET COLOR TO ',AtrCode( fldhue ) )
  11.       lasthue := fldhue
  12.     endif
  13.     genLABEL
  14.   endfor
  15. end <<*WriteLabels*>>
  16.  
  17.  
  18. procedure GenFormBody
  19. begin
  20.   select all    <<*View all fields in the table*>>
  21.   if ismultipage
  22.     genln( 'DO CASE' )
  23.     forall pages
  24.       if fldtotal > 0
  25.         genln( 'CASE pageno=',pagcount )
  26.         pushmargin( 1 )
  27.         WriteLabels
  28.         popmargin
  29.       endif
  30.     endfor
  31.     genln( 'ENDCASE' )
  32.   else  <<*Single page format*>>
  33.     select page 1
  34.     WriteLabels
  35.   endif
  36. end <<*GenFormBody*>>
  37.  
  38.  
  39. procedure GenFormHead
  40. begin
  41.   GenColor( 0,'SCREEN' )
  42.   genln( 'CLEAR' )
  43.   GenColor( 0,'STATUS' )
  44. #>>
  45. @  0, 0 SAY SPACE(80)
  46. @  0, 0 SAY "Record:"
  47. <<if ismultipage>>
  48. @  0,17 SAY "Page:"
  49. <<endif>>
  50. @  0,72 SAY DATE()
  51. <<GenColor( 0,'PROMPT' )>>
  52. @ PromptRow-1,0 SAY PromptBar
  53. *
  54. <<end>> <<*GenFormHead*>>
  55.  
  56. <<* EOF: APPFORM.INC *>>
  57.