&& Diebold

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

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

cArquivoi = ""

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

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) + SUBSTR("Recebi(emos) do(a) Sr.(a)" + REPLICATE(" ",48),1,48)

cArquivoi = cArquivoi + REPLICATE(" ",cQEsp) + SUBSTR(ALLTRIM(c_Arq.CLINOM)  + REPLICATE(" ",48),1,48)

cArquivoi = cArquivoi + REPLICATE(" ",cQEsp) + SUBSTR("A Quantia de R$ " + ALLTRIM(TRANSFORM(cValorBx,"9,999,999.99")) + REPLICATE(" ",48),1,48)

cArquivoi = cArquivoi + REPLICATE(" ",cQEsp) + SUBSTR(ALLTRIM(VALEXT(cValorBx)) + REPLICATE(" ",48),1,48)

cArquivoi = cArquivoi + REPLICATE(" ",cQEsp) + SUBSTR(ALLTRIM(VALEXT(cValorBx)) + SPACE(96),49,48)

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

cCodCliente = c_Arq.RECCLI
SELECT c_Arq
GO TOP
DO WHILE ! EOF("c_Arq")
   cArquivoi = cArquivoi + REPLICATE(" ",cQEsp) + SUBSTR(c_arq.RECCOD + " " + DTOC(c_arq.RECEMISS) + TRANSFORM(c_arq.RECTOTAL,"9,999,999.99") + REPLICATE(" ",48),1,48)
   SKIP IN c_arq
   LOOP
ENDDO

cArquivoi = cArquivoi + REPLICATE(" ",cQEsp) + REPLICATE(" ",48)
cArquivoi = cArquivoi + REPLICATE(" ",cQEsp) + REPLICATE(" ",48)
cArquivoi = cArquivoi + REPLICATE(" ",cQEsp) + SUBSTR("Para Maior Clareza Firmo o Presente" + REPLICATE(" ",48),1,48)
cArquivoi = cArquivoi + REPLICATE(" ",cQEsp) + SUBSTR(PROPER(ALLTRIM(TSL.CIDADE)) + ", " + ALLTRIM(TRANSFORM(DAY(cDataPag),"99")) + " de " + MES(MONTH(cDataPag)) + " de " + TRANSFORM(YEAR(cDataPag),"9999") + REPLICATE(" ",48),1,48)
cArquivoi = cArquivoi + REPLICATE(" ",cQEsp) + REPLICATE(" ",48)
cArquivoi = cArquivoi + REPLICATE(" ",cQEsp) + REPLICATE(" ",48)
cArquivoi = cArquivoi + REPLICATE(" ",cQEsp) + REPLICATE(" ",48)
cArquivoi = cArquivoi + REPLICATE(" ",cQEsp) + REPLICATE("-",48)
cArquivoi = cArquivoi + REPLICATE(" ",cQEsp) + SUBSTR(ALLTRIM(cNomeEmp) + REPLICATE(" ",48),1,48)
cArquivoi = cArquivoi + "FIM ARQUIVO"

*MESSAGEBOX(cArquivoi)

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

DO FORM &cForm WITH cArquivoi