*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

cArqImp = REPLICATE("=",48)

cArqImp = cArqImp +  padr(SPACE(16),48," ")

cArqImp = cArqImp +  REPLICATE("=",48)

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

cArqImp = cArqImp +  padr("Valor: " + TRANSFORM(TMP_002A.VLR,"9,999,999.99"),48," ")

cArqImp = cArqImp +  padr("OBS: " + SUBSTR(ALLTRIM(TMP_002A.COMPLEMENT),1,30),48," ")

*cArqImp = cArqImp +  padr("Sangria",48," ")

cArqImp = cArqImp +  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

cArqImp = cArqImp +  padr(SUBSTR("Usuario: " + TMP_004.NOME + SPACE(40),1,40),48," ")

*cArqImp = cArqImp +  DTOC(DATE()) + "   " + TIME() +  + CHR(13) + CHR(10)

*cArqImp = cArqImp +  REPLICATE("=",40) + chr(13) + chr(10)

*cArqImp = cArqImp +  CHR(13) + CHR(10)

*cArqImp = cArqImp +  CHR(13) + CHR(10)

*cArqImp = cArqImp +  CHR(13) + CHR(10)

*cArqImp = cArqImp +  chr(27) + chr(119)

iRetorno = Bematech_FI_RelatorioGerencial(cArqImp)
iRetorno = Bematech_FI_FechaRelatorioGerencial()


