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

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

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

nSelect = "SELECT * FROM Tsm002a WHERE ?cSeqBx = CONTSEQ "
TSEXEC("T",nSelect,"TMP_002A")

SELECT TMP_002A
GO TOP IN TMP_002A

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) + 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) + SPACE(21) + "SANGRIA" + SPACE(20)

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

*cArquivoi = cArquivoi + REPLICATE(" ",cQEsp) + padr("Data: " + DTOC(TMP_002A.EMISSAO) + SPACE(33) + TMP_002A.HORA,48," ")

cArquivoi = cArquivoi + REPLICATE(" ",cQEsp) + PADR("Valor: " + TRANSFORM(TMP_002A.VLR,"9,999,999.99"),48," ")

cArquivoi = cArquivoi + REPLICATE(" ",cQEsp) + PADR("Obs: " + SUBSTR(TMP_002A.COMPLEMENT,1,43),48," ")

cArquivoi = cArquivoi + REPLICATE(" ",cQEsp) + PADR("Caixa: " + TMP_002A.CONT,48," ")

nSelect = "SELECT * FROM Tslc004 WHERE ?cCodUsu = CODIGO "
TSEXEC("T",nSelect,"TMP_004")
SELECT TMP_004
GO TOP IN TMP_004

cArquivoi = cArquivoi + REPLICATE(" ",cQEsp) + SUBSTR("Usuario: " + TMP_004.NOME + 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