IF MESSAGEBOX("Confirma Impresso   ",292,"Impresso") = 7
   RETURN .F.
ENDIF

TSEXEC("T","SELECT * FROM Tsl ","TSL")

cForm = FULLPATH(CURDIR()) + "\IMPRESS\TECPRIMA"

nSelect = "SELECT Tslv020.*,Tslc001.CLINOM,Tslc001.PESSOA,Tslc001.CLIEND,Tslc001.CLIBAI,Tslc001.CLICID,Tslc001.CLITEL,Tslc001.CLICPF,"
nSelect = nSelect + "Tslc001.CLICGC,Tslc004.NOME,Tslc005.DESCRICAO "
nSelect = nSelect + "FROM Tslv020 LEFT JOIN Tslc001 ON Tslv020.CODCLI = Tslc001.CLICOD "
nSelect = nSelect + "LEFT JOIN Tslc004 ON Tslv020.CODVEN = Tslc004.CODIGO "
nSelect = nSelect + "LEFT JOIN Tslc005 ON Tslv020.CODFORM = Tslc005.CODIGO "
nselect = nSelect + "WHERE ?cTabImp = Tslv020.SEQ "
TSEXEC("T",nSelect,"TSLV020")

nSelect = "SELECT Tslv021.*,Tslc003.CODBAR FROM Tslv021 LEFT JOIN Tslc003 ON Tslv021.CODPROD = Tslc003.CODIGO "
nSelect = nSelect + "WHERE ?cTabImp = CUPOM AND EXCLUI <> 'S' "
TSEXEC("T",nSelect,"TSLV021_1")

GERACURSOR("TSLV021_1","TSLV021")

SELECT TSLV021
UPDATE TSLV021 SET CODBAR = PADL(ALLTRIM(STR(CODPROD,16)),16,"0") WHERE EMPTY(ALLTRIM(CODBAR))

IF ! USED("PARAMETRO")
   USE PARAMETRO IN 33 SHARED
ENDIF
SELECT PARAMETRO
cQEsp = PARAMETRO.ESPCUP

cArquivoi = ""

cArquivoi = cArquivoi + CHR(27) + CHR(64)

cArquivoi = cArquivoi + + CHR(27) + CHR(97) + CHR(1)

cArquivoi = cArquivoi + CHR(27) + CHR(33) + CHR(48) + 'PE DE CHINELO'+CHR(13) + CHR(10) + CHR(13) + CHR(10)
cArquivoi = cArquivoi + CHR(27) + CHR(97) + CHR(0)
cArquivoi = cArquivoi + CHR(27) + CHR(33) + CHR(0)

*cArquivoi = cArquivoi + REPLICATE(" ",cQEsp) + PADR(space(int((48 - len(AllTrim(AllTrim(TSL.ENDERECO)))) / 2))+AllTrim(AllTrim(TSL.ENDERECO))+ space(int((48 - len(AllTrim(AllTrim(TSL.ENDERECO)))) / 2)),48," ")

*cArquivoi = cArquivoi + REPLICATE(" ",cQEsp) + PADR(space(int((48 - len(AllTrim("Fone: " + AllTrim(TSL.FONE)))) / 2))+AllTrim("Fone: " + AllTrim(TSL.FONE))+ space(int((48 - len(AllTrim("Fone: " + AllTrim(TSL.FONE)))) / 2)),48," ")

cArquivoi = cArquivoi + CHR(27) +'G'+CHR(1)+ "   < CUPOM SEM VALOR FISCAL >" + CHR(13) + CHR(10)

cArquivoi = cArquivoi + CHR(27) +'G'+CHR(0) + REPLICATE("-",32) + CHR(13) + CHR(10)

cArquivoi = cArquivoi + CHR(27) +'G'+CHR(0) + "CODIGO        DESCRICAO"+ CHR(13) + CHR(10)

cArquivoi = cArquivoi + CHR(27) +'G'+CHR(0) + "    Qtde   X        Unit.R$" + CHR(13) + CHR(10)
cArquivoi = cArquivoi + CHR(27) +'G'+CHR(0) + "                   Valor R$" + CHR(13) + CHR(10)

cArquivoi = cArquivoi + CHR(27) +'G'+CHR(0) + REPLICATE("-",32) + CHR(13) + CHR(10)


SELECT TSLV021
GO TOP IN TSLV021
DO WHILE ! EOF("TSLV021")

   cArquivoi = cArquivoi + CHR(27) +'G'+CHR(0) + SUBSTR(TSLV021.CODBAR,4,13) + " " + ALLTRIM(TSLV021.DESCRICAO) + CHR(13) + CHR(10)
   
   cArquivoi = cArquivoi + CHR(27) +'G'+CHR(0) + TRANSFORM(TSLV021.QUANT,"9,999.99") + "   X   " +;
   TRANSFORM(TSLV021.UNIT,"9,999,999.99") + CHR(13) + CHR(10)
   cArquivoi = cArquivoi + CHR(27) +'G'+CHR(0) + SPACE(15) + TRANSFORM(TSLV021.TOTAL,"9,999,999.99")+ CHR(13) + CHR(10)
   

   SKIP IN TSLV021
   LOOP
ENDDO

cArquivoi = cArquivoi + CHR(27) +'G'+CHR(0) + REPLICATE("-",32) + CHR(13) + CHR(10)

cArquivoi = cArquivoi + CHR(27) +'G'+CHR(0) + "Sub Total..: " + TRANSFORM(TSLV020.BRUTO,"9,999,999.99") + CHR(13) + CHR(10)

IF EMPTY(TSLV020.ACRESCIM)
   cArquivoi = cArquivoi + CHR(27) +'G'+CHR(0) + "Desconto...: " + TRANSFORM(TSLV020.DESCONTO,"9,999,999.99") + CHR(13) + CHR(10)
   
ELSE
   cArquivoi = cArquivoi + CHR(27) +'G'+CHR(0) + "Acrescimo..: " + TRANSFORM(TSLV020.DESCONTO,"9,999,999.99") + CHR(13) + CHR(10)
   
ENDIF
cArquivoi = cArquivoi + CHR(27) +'G'+CHR(0) + "Total Geral: " + TRANSFORM(TSLV020.LIQUIDO,"9,999,999.99") + CHR(13) + CHR(10)


cCodCup = TSLV020.SEQ

nSelect = "SELECT Tsm003.*,Tsm002a.*,Tsm002b.TP FROM Tsm003 "
nSelect = nSelect + "INNER JOIN Tsm002b ON Tsm003.SEQBX = Tsm002b.SEQBX "
nSelect = nSelect + "INNER JOIN Tsm002a ON Tsm002b.SEQBX = Tsm002a.CONTSEQ WHERE "
nSelect = nSelect + "?cCodCup = Tsm003.SEQCUP AND 'O' = Tsm003.FLAG AND RECEST = 0 AND Tsm003.RECBAIXA = 'S' "
TSEXEC("T",nSelect,"TMP_FORMAS")

SELECT TMP_FORMAS
IF RECCOUNT() = 0
   cArquivoi = cArquivoi + CHR(27) +'G'+CHR(0) + "Forma Pgto.: " + ALLTRIM(TSLV020.DESCRICAO) + CHR(13) + CHR(10)
   
ELSE
SELECT TMP_FORMAS
GO TOP IN TMP_FORMAS
IF TMP_FORMAS.DIN > 0
   cArquivoi = cArquivoi + CHR(27) +'G'+CHR(0) + "Dinheiro...: " + TRANSFORM(TMP_FORMAS.DIN,"9,999,999.99")+ CHR(13) + CHR(10)
   
ENDIF
IF TMP_FORMAS.CHE > 0
   cArquivoi = cArquivoi + CHR(27) +'G'+CHR(0) + "Cheque.....: " + TRANSFORM(TMP_FORMAS.CHE,"9,999,999.99") + CHR(13) + CHR(10)
   
ENDIF
IF TMP_FORMAS.CARC > 0
   cArquivoi = cArquivoi + CHR(27) +'G'+CHR(0) + "C. Credito.: " + TRANSFORM(TMP_FORMAS.CARC,"9,999,999.99")+ CHR(13) + CHR(10)
   
ENDIF
IF TMP_FORMAS.CARD > 0
   cArquivoi = cArquivoi + CHR(27) +'G'+CHR(0) + "C. Debito..: " + TRANSFORM(TMP_FORMAS.CARD,"9,999,999.99")+ CHR(13) + CHR(10)
   
ENDIF
IF TMP_FORMAS.CARF > 0
   cArquivoi = cArquivoi + CHR(27) +'G'+CHR(0) + "Carta Frete: " + TRANSFORM(TMP_FORMAS.CARF,"9,999,999.99")+ CHR(13) + CHR(10)
   
ENDIF
IF TMP_FORMAS.TIC > 0
   cArquivoi = cArquivoi + CHR(27) +'G'+CHR(0) + "Ticket.....: " + TRANSFORM(TMP_FORMAS.TIC,"9,999,999.99")+ CHR(13) + CHR(10)
   
ENDIF
   cArquivoi = cArquivoi + CHR(27) +'G'+CHR(0) + "Troco......: " + TRANSFORM(TMP_FORMAS.TROCO,"9,999,999.99")+ CHR(13) + CHR(10)
   
ENDIF
          
cArquivoi = cArquivoi + CHR(27) +'G'+CHR(0) + REPLICATE("-",32) + CHR(13) + CHR(10)

cArquivoi = cArquivoi + CHR(27) +'G'+CHR(0) + "ORC.: " + PADL(ALLTRIM(STR(TSLV020.SEQ,6)),6,"0") + CHR(13) + CHR(10)

cArquivoi = cArquivoi + CHR(27) +'G'+CHR(0) + "Nome: " + ALLTRIM(TSLV020.CLINOM)+ CHR(13) + CHR(10)

cArquivoi = cArquivoi + CHR(27) +'G'+CHR(0) + "Vend: " + ALLTRIM(PADL(ALLTRIM(STR(TSLV020.CODVEN,5)),5,"0") + " " + SUBSTR(TSLV020.NOME,1,24)) + CHR(13) + CHR(10)

cArquivoi = cArquivoi + CHR(27) +'G'+CHR(0) + REPLICATE("-",32) + CHR(10)+CHR(13)

cArquivoi = cArquivoi + CHR(27) +'G'+CHR(0) + ALLTRIM(TSL.OMENS01) + CHR(13) + CHR(10)

cArquivoi = cArquivoi + CHR(27) +'G'+CHR(0) + ALLTRIM(TSL.OMENS02) + CHR(13) + CHR(10)

cArquivoi = cArquivoi + CHR(27) +'G'+CHR(0) + alltrim(TSL.OMENS03) + CHR(13) + CHR(10)

cArquivoi = cArquivoi + CHR(27) +'G'+CHR(0)+CHR(97)+CHR(1)
cArquivoi = cArquivoi + CHR(27) +'G'+CHR(0)+CHR(42)+CHR(48)
cArquivoi = cArquivoi + CHR(13)+CHR(10)+CHR(13)+CHR(10)
cArquivoi = cArquivoi + '================================'
cArquivoi = cArquivoi + CHR(27) +'G'+CHR(0) + CHR(100) + CHR(4)


*MESSAGEBOX(cArquivoi)

DO FORM &cForm WITH cArquivoi,6