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