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

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

IF ! USED("PARAMETRO")
   USE PARAMETRO SHARED IN 33
ENDIF 

cModImpBema  = PARAMETRO.MODBEMA
cPortImpBema = ALLTRIM(PARAMETRO.PORTABEMA)
                 
cRet = ConfiguraModeloImpressora(cModImpBema)
         
IF cRet <> 1
   MESSAGEBOX("Erro ao Configurar Modelo Impressora " + CHR(13) + "Parametro Invlido ",48,"Aviso")
   RETURN .F.
ENDIF         
         *WAIT WINDOW "Conf. Modelo:" + ALLTRIM(STR(cRet))
         
cRet = IniciaPorta(cPortImpBema)
         
IF cRet = 0
   MESSAGEBOX("Erro Ao Abrir Porta de Comunicao ",48,"Aviso")
   RETURN .F.
ENDIF


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

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

nSelect = "SELECT * FROM Tsm002a WHERE ?cSeqSupl = 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

BematechTX (REPLICATE("=",48)+ CHR(10) +CHR(13))

BematechTX (padr(SPACE(16),48," ")+ CHR(10) +CHR(13))

BematechTX (REPLICATE("=",48)+ CHR(10) +CHR(13))

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

BematechTX (padr("Valor: " + TRANSFORM(TMP_002A.VLR,"9,999,999.99"),48," ")+ CHR(10) +CHR(13))

BematechTX (padr("Suplemento",48," ")+ CHR(10) +CHR(13))

BematechTX (padr("Caixa: " + TMP_002A.CONT,48," ")+ CHR(10) +CHR(13))

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

BematechTX (padr(SUBSTR("Usuario: " + TMP_004.NOME + SPACE(40),1,40),48," ")+ CHR(10) +CHR(13))

cRet = FechaPorta()


