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

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

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

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 + REPLICATE(" ",cQEsp) + REPLICATE("=",48)

cArquivoi = cArquivoi + REPLICATE(" ",cQEsp) + DTOC(DATE()) + REPLICATE(" ",30) + TIME()

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

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 + REPLICATE(" ",cQEsp) + PADR(space(int((48 - len(AllTrim("< CUPOM SEM VALOR FISCAL >"))) / 2))+AllTrim("< CUPOM SEM VALOR FISCAL >")+ space(int((48 - len(AllTrim("< CUPOM SEM VALOR FISCAL >"))) / 2)) + " ",48," ")

cArquivoi = cArquivoi + REPLICATE(" ",cQEsp) + REPLICATE("-",48)

cArquivoi = cArquivoi + REPLICATE(" ",cQEsp) + "CODIGO        DESCRICAO"+SPACE(25)

cArquivoi = cArquivoi + REPLICATE(" ",cQEsp) + "    Qtde   X        Unit.R$     Valor R$  "+SPACE(6)

cArquivoi = cArquivoi + REPLICATE(" ",cQEsp) + REPLICATE("-",48)


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

   cArquivoi = cArquivoi + REPLICATE(" ",cQEsp) + SUBSTR(TSLV021.CODBAR,4,13) + " " + SUBSTR(TSLV021.DESCRICAO,1,34)
   
   cArquivoi = cArquivoi + REPLICATE(" ",cQEsp) + TRANSFORM(TSLV021.QUANT,"9,999.99") + "   X   " +;
   TRANSFORM(TSLV021.UNIT,"9,999,999.99") + " " + TRANSFORM(TSLV021.TOTAL,"9,999,999.99")+SPACE(8)
   

   SKIP IN TSLV021
   LOOP
ENDDO

cArquivoi = cArquivoi + REPLICATE(" ",cQEsp) + REPLICATE("-",48)

cArquivoi = cArquivoi + REPLICATE(" ",cQEsp) + REPLICATE(" ",15) + "Sub Total..: " + TRANSFORM(TSLV020.BRUTO,"9,999,999.99")+SPACE(8)

IF EMPTY(TSLV020.ACRESCIM)
   cArquivoi = cArquivoi + REPLICATE(" ",cQEsp) + REPLICATE(" ",15) + "Desconto...: " + TRANSFORM(TSLV020.DESCONTO,"9,999,999.99")+SPACE(8)
   
ELSE
   cArquivoi = cArquivoi + REPLICATE(" ",cQEsp) + REPLICATE(" ",15) + "Acrescimo..: " + TRANSFORM(TSLV020.DESCONTO,"9,999,999.99")+SPACE(8)
   
ENDIF
cArquivoi = cArquivoi + REPLICATE(" ",cQEsp) + REPLICATE(" ",15) + "Total Geral: " + TRANSFORM(TSLV020.LIQUIDO,"9,999,999.99")+SPACE(8)


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 + REPLICATE(" ",cQEsp) + SUBSTR(REPLICATE(" ",15) + "Forma Pgto.: " + ALLTRIM(TSLV020.DESCRICAO) + SPACE(48),1,48)
   
ELSE
SELECT TMP_FORMAS
GO TOP IN TMP_FORMAS
IF TMP_FORMAS.DIN > 0
   cArquivoi = cArquivoi + REPLICATE(" ",cQEsp) + SUBSTR(REPLICATE(" ",15) + "Dinheiro...: " + TRANSFORM(TMP_FORMAS.DIN,"9,999,999.99")+ SPACE(48),1,48)
   
ENDIF
IF TMP_FORMAS.CHE > 0
   cArquivoi = cArquivoi + REPLICATE(" ",cQEsp) + SUBSTR(REPLICATE(" ",15) + "Cheque.....: " + TRANSFORM(TMP_FORMAS.CHE,"9,999,999.99") + SPACE(48),1,48)
   
ENDIF
IF TMP_FORMAS.CARC > 0
   cArquivoi = cArquivoi + REPLICATE(" ",cQEsp) + SUBSTR(REPLICATE(" ",15) + "C. Credito.: " + TRANSFORM(TMP_FORMAS.CARC,"9,999,999.99")+ SPACE(48),1,48)
   
ENDIF
IF TMP_FORMAS.CARD > 0
   cArquivoi = cArquivoi + REPLICATE(" ",cQEsp) + SUBSTR(REPLICATE(" ",15) + "C. Debito..: " + TRANSFORM(TMP_FORMAS.CARD,"9,999,999.99")+ SPACE(48),1,48)
   
ENDIF
IF TMP_FORMAS.CARF > 0
   cArquivoi = cArquivoi + REPLICATE(" ",cQEsp) + SUBSTR(REPLICATE(" ",15) + "Carta Frete: " + TRANSFORM(TMP_FORMAS.CARF,"9,999,999.99")+ SPACE(48),1,48)
   
ENDIF
IF TMP_FORMAS.TIC > 0
   cArquivoi = cArquivoi + REPLICATE(" ",cQEsp) + SUBSTR(REPLICATE(" ",15) + "Ticket.....: " + TRANSFORM(TMP_FORMAS.TIC,"9,999,999.99")+ SPACE(48),1,48)
   
ENDIF
   cArquivoi = cArquivoi + REPLICATE(" ",cQEsp) + SUBSTR(REPLICATE(" ",15) + "Troco......: " + TRANSFORM(TMP_FORMAS.TROCO,"9,999,999.99")+ SPACE(48),1,48)
   
ENDIF
          
cArquivoi = cArquivoi + REPLICATE(" ",cQEsp) + REPLICATE("-",48)

cArquivoi = cArquivoi + REPLICATE(" ",cQEsp) + SUBSTR("ORC.: " + PADL(ALLTRIM(STR(TSLV020.SEQ,6)),6,"0") + SPACE(48),1,48)

cArquivoi = cArquivoi + REPLICATE(" ",cQEsp) + SUBSTR("Nome: " + SUBSTR(TSLV020.CLINOM,1,36)+ SPACE(48),1,48)

cArquivoi = cArquivoi + REPLICATE(" ",cQEsp) + SUBSTR("Vend: " + PADL(ALLTRIM(STR(TSLV020.CODVEN,5)),5,"0") + " " + SUBSTR(TSLV020.NOME,1,24) + SPACE(48),1,48)

cArquivoi = cArquivoi + REPLICATE(" ",cQEsp) + REPLICATE("-",48) + CHR(10)+CHR(13)

cArquivoi = cArquivoi + REPLICATE(" ",cQEsp) + SUBSTR(space(int((48 - len(AllTrim(AllTrim(TSL.OMENS01)))) / 2))+AllTrim(AllTrim(TSL.OMENS01)) + SPACE(48),1,48)

cArquivoi = cArquivoi + REPLICATE(" ",cQEsp) + SUBSTR(space(int((48 - len(AllTrim(AllTrim(TSL.OMENS02)))) / 2))+AllTrim(AllTrim(TSL.OMENS02)) + SPACE(48),1,48)

cArquivoi = cArquivoi + REPLICATE(" ",cQEsp) + SUBSTR(space(int((48 - len(AllTrim(AllTrim(TSL.OMENS03)))) / 2))+AllTrim(AllTrim(TSL.OMENS03)) + SPACE(48),1,48)

cArquivoi = cArquivoi + REPLICATE(" ",cQEsp) + REPLICATE("=",48)
cArquivoi = cArquivoi + "FIM ARQUIVO"


*MESSAGEBOX(cArquivoi)

*cForm = FULLPATH(CURDIR()) + "\IMPRESS\DIEBOLD"   

DO FORM &cForm WITH cArquivoi