*return .f.
*IF MESSAGEBOX("Confirma Impresso   ",292,"Impresso") = 6
*   
*   SET PRINTER TO NAME 'tstisat'
*
*   IF ! USED("TSCOMP3")
*      USE TSCOMP3 IN 76 SHARED
*   ENDIF
*
*   SELECT TSCOMP3
*   GO TOP IN TSCOMP3
*   DO WHILE ! EOF("TSCOMP3")
*   
*      ??? SUBSTR(TSCOMP3.IMPRESS,1,40) + CHR(13) + CHR(10)
*      
*      SKIP IN TSCOMP3
*      LOOP
*
*   ENDDO
*
*   ??? CHR(10) + CHR(13)
*   ??? CHR(10) + CHR(13)
*   ??? CHR(10) + CHR(13)
*   ??? CHR(10) + CHR(13)
*   ??? CHR(27) + CHR(109)
*
*   SET PRINTER TO NAME 'tstisat'
*
*ENDIF

select sum(qtd) as quant from tscomp2 where codprod = 184 into cursor tmp_saida
select tmp_saida
*if ! isnull(tmp_saida.quant)
IF 1 = 2
   
   for x = 1 to tmp_saida.quant


*IF ! USED("TSCOMP2")
*   USE TSCOMP2 IN 38 SHARED
*ENDIF

*SELECT TSCOMP2
*BROW
*GO TOP IN TSCOMP2
*DO WHILE ! EOF("TSCOMP2")
   
*   if tscomp2.codprod = 184
      
      SET PRINTER TO NAME 'TSTISAT'

      ??? REPLICATE("*",40) + CHR(13) + CHR(10)
      ??? REPLICATE("*",40) + CHR(13) + CHR(10)
      ??? DTOC(DATE()) + SPACE(10) + TIME() + CHR(13) + CHR(10)
      ??? CHR(13) + CHR(10)
      ??? CHR(13) + CHR(10)
      ??? "S A I D A   L I B E R A D A" + CHR(13) + CHR(10)
      ??? CHR(13) + CHR(10)
      ??? CHR(13) + CHR(10)
      ??? REPLICATE("*",40) + CHR(13) + CHR(10)
      ??? REPLICATE("*",40) + CHR(13) + CHR(10)
      ??? CHR(13) + CHR(10)
      ??? CHR(13) + CHR(10)
      ??? CHR(13) + CHR(10)
      ??? CHR(13) + CHR(10)
      ??? CHR(27) + CHR(109)
   
      SET PRINTER TO NAME 'tstisat'

   NEXT
ENDIF

*   ENDIF
*
*   SKIP IN TSCOMP2
*   LOOP
*
*ENDDO