home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a070 / 3.ddi / FOXPRO / TEMPLGEN / AP1CALC.INC < prev    next >
Encoding:
Text File  |  1987-12-20  |  2.2 KB  |  108 lines
  1. <<* APPCALC.INC *>>
  2. <<#
  3.  
  4. procedure GenCalcDisp
  5. begin
  6.   forecolor := 32000  <<*For GenColorAtr() procedure*>>
  7.   backcolor := 32000
  8.   if ismultipage
  9.     genln( 'DO CASE' )
  10.     forall pages
  11.       if fldtotal > 0
  12.         genln( 'CASE pageno=',pagcount )
  13.         forall fields
  14.           pushmargin( 1 )
  15.           GenColorAtr
  16.           genln( rtrim( getFIELD( AutoMem ) ) )
  17.           popmargin
  18.         endfor
  19.       endif
  20.     endfor
  21.     genln( 'ENDCASE' )
  22.   else <<*Single page format*>>
  23.     select page 1
  24.     forall fields
  25.       GenColorAtr
  26.       genln( rtrim( getFIELD( AutoMem ) ) )
  27.     endfor
  28.   endif
  29. end <<*GenCalcDisp*>>
  30.  
  31.  
  32. procedure GenCalcThem
  33. begin
  34.   forall fields
  35.     if AutoMem
  36.       genln( 'STORE ',fixautomem(fldcal),' TO ',fixfldnam )
  37.     else
  38.       genln( 'REPLACE ',fldnam,' WITH ',fixautomem(fldcal) )
  39.     endif
  40.   endfor
  41. end <<*GenCalcThem*>>
  42.  
  43.  
  44. procedure GenCalcBody
  45. begin
  46.   select on databases,fields,pages
  47.   select fields on fldcal and (fldtyp $ 'CDLN')
  48.   if fldtotal > 0
  49.     genln( '* ---Calculate values.' )
  50.     GenCalcThem
  51.     GenCalcDisp
  52.     genln( 'CLEAR GETS' )
  53.   endif
  54.   select all fields  <<*clear field FILTER*>>
  55. end GenCalcBody
  56.  
  57.  
  58. procedure GenCalcFlds
  59. begin
  60.   select on databases,fields,pages
  61.   select all pages
  62.   select all fields   <<*clear field FILTER*>>
  63.   select fields on (fldals <> 'M')
  64.   GenCalcBody
  65. end GenCalcFlds
  66.  
  67.  
  68. procedure GenCalcMems
  69. begin
  70.   select all
  71.   select on databases,fields,pages
  72.   select fields on (fldals = 'M')
  73.   GenCalcBody
  74. end GenCalcMems
  75.  
  76.  
  77. procedure GenMemInit
  78. begin
  79.   select all
  80.   select field on fldini and (fldtyp $ 'CDLN') and (fldals = 'M')
  81.   if fldtotal > 0
  82.     genln( '* ---Initialize memory variables.' )
  83.     forall fields
  84.       genln( 'STORE ',fldini,' TO ',fldnam )
  85.     endfor
  86.     genln( '*' )
  87.   endif
  88.   select all
  89. end <<*GenMemInit*>>
  90.  
  91.  
  92. procedure GenMemCalc
  93. begin
  94.   select all
  95.   select fields on fldcal and (fldtyp $ 'CDLN') and (fldals = 'M')
  96.   if fldtotal > 0
  97.     genln( '* ---Calculate memory variables.' )
  98.     forall fields
  99.       genln( 'STORE ',fldcal,' TO ',fldnam )
  100.     endfor
  101.     genln( '*' )
  102.   endif
  103.   select all
  104. end <<*GenMemCalc*>>
  105.  
  106. <<* EOF: APPCALC.INC *>>
  107. #>>
  108.