home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a070 / 3.ddi / FOXPRO / TEMPLGEN / FMTPROC.INC < prev    next >
Encoding:
Text File  |  1987-12-20  |  1.8 KB  |  110 lines
  1. <<* FMTPROC.INC *>>
  2.  
  3. <<procedure GenOneForm>>
  4. <<begin>>
  5.  
  6. PROCEDURE {fileprefix}_FORM
  7. <<#
  8.   pushmargin( 1 )
  9.   GenFormHead
  10.   GenFormBody
  11.   popmargin
  12. #>>
  13. RETURN
  14.  
  15. <<end>> <<*GenOneForm*>>
  16.  
  17.  
  18. <<procedure GenOneSays>>
  19. <<begin>>
  20.  
  21. PROCEDURE {fileprefix}_SAYS
  22. <<#
  23.   pushmargin( 1 )
  24.   GenMemInit
  25.   GenMemCalc
  26.   GenSaysBody
  27.   popmargin
  28. #>>
  29. RETURN
  30.  
  31. <<end>> <<*GenOneSays*>>
  32.  
  33.  
  34. <<procedure GenOneStore>>
  35. <<begin>>
  36.  
  37. PROCEDURE {fileprefix}_STOR
  38. <<#
  39.   pushmargin( 1 )
  40.   genln( '* ---Initialize memvars with field contents.' )
  41.   select on databases,fields
  42.   select all fields
  43.   forall (fldtyp $ 'CDLN') and (fldals <> 'M') and fldget
  44.     genln( 'STORE ',ljust( fldnam,10 ),' TO ',fixfldnam )
  45.   endfor
  46.   popmargin
  47. #>>
  48. RETURN
  49.  
  50. <<end>> <<*GenOneStore*>>
  51.  
  52.  
  53. <<procedure GenOneReplace>>
  54. <<begin>>
  55.  
  56. PROCEDURE {fileprefix}_REPL
  57. <<#
  58.   pushmargin( 1 )
  59.   genln( 'IF .NOT. EOF()' )
  60.   genln( '* ---Replace only if there is an available record.' )
  61.   select on databases,fields
  62.   select all fields
  63.   select fields on (fldtyp $ 'CDLN') and (fldals <> 'M') and fldget
  64.   if fldtotal > 0
  65.     GenReplaceFlds
  66.   endif
  67.   select all fields
  68.   genln( 'ENDIF' )
  69.   popmargin
  70. #>>
  71. RETURN
  72.  
  73. <<end>> <<*GenOneReplace*>>
  74.  
  75.  
  76. <<procedure GenOneGets>>
  77. <<begin>>
  78.  
  79. PROCEDURE {fileprefix}_GETS
  80. <<#
  81.   pushmargin( 1 )
  82.   GenMemInit         <<*Selects database 0!*>>
  83.   select database 1  <<*Re-select database 1*>>
  84.   GenGetsBody
  85.   GenCalcBody
  86.   popmargin
  87. #>>
  88. RETURN
  89.  
  90. <<end>> <<*GenOneGets*>>
  91.  
  92.  
  93. <<#
  94. procedure GenProcFile( fspec : string )
  95. begin
  96.   if OpenFile( fspec,'PROCEDURE file for ' + datafile + '.DBF' )
  97.     GenOneForm
  98.     GenOneSays
  99.     GenKeysProc
  100.     GenOneGets
  101.     GenOneStore
  102.     GenOneReplace
  103.     filespec( fspec,fpath,fname,fext )
  104.     genln( '* EOF: ',fname,'.PRG'  )
  105.   end
  106. end GenProcFile
  107. #>>
  108.  
  109. <<* EOF: FMTPROC.INC *>>
  110.