&& SER PNEUS

SELECT TSF002A

*!*	??? CHR(27)+"@"
??? CHR(25)+"@"
??? CHR(27)+"0"+CHR(27)+"C"+CHR(68)
??? chr(15)
??? chr(13)+chr(10)
??? CHR(13)+CHR(10)
??? CHR(13)+CHR(10)
??? space(81)+"      XX                                       "+chr(13)+chr(10)
??? chr(13)+chr(10)
??? chr(13)+chr(10)
??? CHR(13)+CHR(10)
??? CHR(13)+CHR(10)
??? chr(13)+chr(10)
??? chr(13)+chr(10)
??? chr(13)+chr(10)
??? SPACE(01)+TSF002A.NATOPER+space(24)+TSF002A.CFOP+chr(13)+chr(10)
??? chr(13)+chr(10)
??? CHR(13)+CHR(10)
??? chr(13)+chr(10)
??? TSF002A.CLIENTE + SPACE(48) + PADR(MCPF(TSF002A.CNPJ),18," ") + SPACE(15) + DTOC(TSF002A.EMISSAO) + CHR(13)+CHR(10)
??? CHR(13)+CHR(10)
??? TSF002A.ENDERECO + SPACE(30) + TSF002A.BAIRRO + SPACE(10) + TSF002A.CEP + SPACE(11) + DTOC(TSF002A.DATASAIDA) + CHR(13)+CHR(10)
??? CHR(13)+CHR(10)
??? CHR(13)+CHR(10)
??? TSF002A.MUNICIPIO + SPACE(25) + TSF002A.FONE + SPACE(12) + TSF002A.UF + SPACE(14) + TSF002A.IE + CHR(13)+CHR(10)
??? CHR(13)+CHR(10)
??? CHR(13)+CHR(10)

nSelect = "SELECT * FROM Tsm003 WHERE ?cNumNota = NF AND RECEST = 0 "
TSEXEC("T",nSelect,"TMP_DUPL")

SELECT TMP_DUPL
GO TOP IN TMP_DUPL
cNumDpl = 0
DO WHILE ! EOF("TMP_DUPL")

   nDpl = TMP_DUPL.RECCOD + SPACE(5) + TRANSFORM(TMP_DUPL.RECVALOR,"9,999,999.99") + SPACE(5) + DTOC(TMP_DUPL.RECVENCI)
   cNumDpl = cNumDpl + 1
   
   SELECT TMP_DUPL
   SKIP IN TMP_DUPL
   IF ! EOF("TMP_DUPL")
      nDpl = nDpl + SPACE(10) + TMP_DUPL.RECCOD + SPACE(5) + TRANSFORM(TMP_DUPL.RECVALOR,"9,999,999.99") + SPACE(5) +;
      DTOC(TMP_DUPL.RECVENCI) + CHR(13)+CHR(10)
      
      SKIP IN TMP_DUPL
      LOOP
   ELSE
      nDpl = nDpl + CHR(13)+CHR(10)
   ENDIF
   
   LOOP
   
ENDDO

IF cNumDpl < 2
   DO WHILE cNumDpl < 2
      ??? CHR(13)+CHR(10)
      cNumDpl = cNumDpl + 1
      LOOP
   ENDDO
ENDIF

??? CHR(13)+CHR(10)
??? CHR(13)+CHR(10)
??? CHR(13)+CHR(10)
??? CHR(13)+CHR(10)
??? CHR(13)+CHR(10)
??? CHR(13)+CHR(10)

cNumProd = 0

SELECT TSF002B
GO TOP IN TSF002B
DO WHILE ! EOF("TSF002B")
   
   ??? PADL(ALLTRIM(STR(TSF002B.CODPROD,13)),6,"0") + SPACE(2) + TSF002B.NOMPROD + SPACE(17) + ;
   TSF002B.ST + SPACE(2) + TSF002B.UNIDADE + SPACE(3) + TRANSFORM(TSF002B.QTDPROD,"99999999.99") + SPACE(7) + TRANSFORM(TSF002B.UNITARIO,"9,999,999.99") + ;
   SPACE(7) + TRANSFORM(TSF002B.TOTAL,"9,999,999.99") + SPACE(3) + TRANSFORM(TSF002B.ICMS,"99") + CHR(13)+CHR(10)
   
   cNumProd = cNumProd + 1
   
   SKIP IN TSF002B
   LOOP
   
ENDDO

DO WHILE cNumProd < 24
   ??? CHR(13)+CHR(10)
   cNumProd = cNumProd + 1
   LOOP
ENDDO

??? TSF002A.LINHA1 + CHR(13)+CHR(10)
??? TSF002A.LINHA2 + CHR(13)+CHR(10)
??? TSF002A.LINHA3 + CHR(13)+CHR(10)
??? TSF002A.LINHA4 + CHR(13)+CHR(10)
??? TSF002A.LINHA5 + CHR(13)+CHR(10)

??? CHR(13)+CHR(10)
??? CHR(13)+CHR(10)
??? CHR(13)+CHR(10)
??? SPACE(5) + TRANSFORM(TSF002A.BASEICMS,"9,999,999.99") + SPACE(18) + TRANSFORM(TSF002A.TOTALICMS,"9,999,999.99") + ;
    SPACE(73) + TRANSFORM(TSF002A.VPRODUTO,"9,999,999.99") + CHR(13)+CHR(10)
??? CHR(13)+CHR(10)
??? CHR(13)+CHR(10)
??? SPACE(120) + TRANSFORM(TSF002A.TTOTAL,"9,999,999.99") + CHR(13)+CHR(10)
??? CHR(13)+CHR(10)
??? CHR(13)+CHR(10)
??? CHR(13)+CHR(10)
??? TSF002A.NOMTRA + SPACE(56) + TSF002A.FRETE + SPACE(4) + TSF002A.PLACA + SPACE(10) + TSF002A.UFPT + SPACE(8) + ;
    TSF002A.CNPJT + CHR(13)+CHR(10)
??? CHR(13)+CHR(10)
*!*	??? CHR(13)+CHR(10)
??? TSF002A.ENDT + SPACE(45) + TSF002A.MUNT + SPACE(14) + TSF002A.UFT + SPACE(3) + TSF002A.IET + CHR(13)+CHR(10)
??? CHR(13)+CHR(10)
??? CHR(13)+CHR(10)
??? TRANSFORM(TSF002A.QTDEMBA,"99999999.99") + SPACE(9) + TSF002A.ESPECIE + SPACE(5) + TSF002A.MARCA + SPACE(13) + ;
    TSF002A.NUMERO + SPACE(23) + TRANSFORM(TSF002A.PBRUTO,"99999999.99") + SPACE(13) + ;
    TRANSFORM(TSF002A.PLIQUIDO,"99999999.99") + CHR(13)+CHR(10)

??? CHR(13)+CHR(10)
??? CHR(13)+CHR(10)

??? CHR(12)

SET PRINTER TO