1:  ...
   2:   
   3:        SELECT csRFQ_B
   4:        SCAN
   5:           Harness = ALLTRIM(csRfq_b.part_no)
   6:           *pulls revision data from Intelex first AND fill IN any others from VFP Document Tables. (DES) 9/26/08
   7:           DO Intelex_Multi_Rev WITH gcRevMemo, gcRevMemo5Col, gcRevMemo6Col, gcPlacardRevMemo
   8:   
   9:           IF USED("csPart_Li") Then
  10:              SELECT csPart_li
  11:           ENDIF
  12:           ** move var values from what's declared in Rev.prg to var's in this prg that aren't named the same as the fields.
  13:           cSpec_Rev=Spec_Rev  
  14:           cALPL_Rev=ALPL_Rev
  15:           cDraw_Rev=Draw_Rev
  16:           Replace Next 1 csRFQ_B.DRAW_Rev WITH cDRAW_Rev
  17:            Replace Next 1 csRFQ_B.ALPL_Rev WITH cALPL_Rev
  18:              Replace Next 1 csRfq_B.Spec_Rev WITH cSpec_Rev
  19:            SELECT csRfq_b
  20:        ENDSCAN
  21:        WAIT CLEAR
  22:        SELECT csRFQ_B
  23:        IF RECCOUNT()>0 Then
  24:           REPORT FORM ("ESTM-0001-23.frx") NOCONSOLE  TO PRINTER PREVIEW
  25:           REPORT FORM ("ESTM-0001-23.frx") NOCONSOLE TO PRINTER PROMPT
  26:        ENDIF
  27:   
  28:  ...