IF MESSAGEBOX("Confirma Impresso   ",36,"Impresso") = 6

cValor1 = LEN(ALLTRIM("ORCAMENTO"))
cVal1 = 27 - cValor1

TSEXEC("T","SELECT * FROM Tsl ","TSL")
TSEXEC("T","SELECT * FROM Tsc008a WHERE EMPCOD = ?cCodEmp ","TSC008A")

nSelect = "SELECT Tslv020.*,Tslc001.CLINOM,Tslc001.PESSOA,Tslc001.CLIEND,Tslc001.CLIBAI,Tslc001.CLICID,Tslc001.CLITEL,Tslc001.CLICPF,"
nSelect = nSelect + "Tslc001.CLICGC,Tslc001.CLICEP,TSLC001.NUMERO,TSLC001.ENDENT,TSLC001.BAIENT,TSLC001.CIDENT,TSLC001.UFENT,TSLC001.CEPENT,Tslc004.NOME,Tslc001.CLIRG,Tslc001.CLIINS "
nSelect = nSelect + "FROM Tslv020 LEFT JOIN Tslc001 ON Tslv020.CODCLI = Tslc001.CLICOD "
nSelect = nSelect + "LEFT JOIN Tslc004 ON Tslv020.CODVEN = Tslc004.CODIGO WHERE ?cTabImp = Tslv020.SEQ "
TSEXEC("T",nSelect,"TSLV020_1")

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 44 SHARED
ENDIF

SELECT SUM(TOTAL) AS TOTAL,SUM(DESCONTO) AS DESCONTO FROM TSLV021 INTO CURSOR TMP_TOTAL

cTotal = TMP_TOTAL.TOTAL
cDesconto = TMP_TOTAL.DESCONTO

SELECT PARAMETRO
   
*SET PRINTER TO NAME cImp(PARAMETRO.IMPORC)

nPagina = 1

*DO WHILE nPagina < 2

nValPag = 1
SELECT * FROM TSLV021 WHERE ENTREGA = 'R' INTO CURSOR TMP_RETIRAR
SELECT * FROM TSLV021 WHERE ENTREGA = 'E' INTO CURSOR TMP_ENTREGAR
SELECT * FROM TSLV021 WHERE ENTREGA = 'A' INTO CURSOR TMP_ARETIRAR

SELECT TMP_RETIRAR
IF RECCOUNT() > 0

SELECT TMP_RETIRAR
GO TOP in TMP_RETIRAR

cTipoOrc = "RETIRAR NA LOJA"

Select * From TMP_RETIRAR INTO CURSOR TMP_IMPRIMIR

nselect = "SELECT * FROM Tsm003 WHERE ?cTabImp = SEQCUP AND FLAG = 'O' AND RECEST = 0 "
TSEXEC("T",nSelect,"TMP_VENCTOS")
cVenctos = "Vencimentos " + CHR(13)
SELECT TMP_VENCTOS
go top IN TMP_VENCTOS
DO WHILE ! EOF("TMP_VENCTOS")
   cVenctos = cVenctos + DTOC(TMP_VENCTOS.RECVENCI) + " " + TRANSFORM(TMP_VENCTOS.RECVALOR,"9,999,999.99") + CHR(13)
   
   SKIP IN TMP_VENCTOS
   LOOP

ENDDO

SELECT TMP_IMPRIMIR
GO TOP IN TMP_IMPRIMIR

cReport = FULLPATH(CURDIR()) + "IMPRESS\TSORC_BARRACAO.FRX"
cLogo = FULLPATH(CURDIR()) + "IMPRESS\LOGO.JPG"

*SET PRINTER TO NAME "CAIXA"
*REPORT FORM &cReport TO PRINTER NOCONSOLE
CHAMAIMP2("TMP_IMPRIMIR",cReport)

ENDIF

SELECT TMP_ENTREGAR
IF RECCOUNT() > 0

SELECT TMP_ENTREGAR
GO TOP in TMP_ENTREGAR

cTipoOrc = "ENTREGAR"

Select * From TMP_ENTREGAR INTO CURSOR TMP_IMPRIMIR

nselect = "SELECT * FROM Tsm003 WHERE ?cTabImp = SEQCUP AND FLAG = 'O' AND RECEST = 0 "
TSEXEC("T",nSelect,"TMP_VENCTOS")
cVenctos = "Vencimentos " + CHR(13)
SELECT TMP_VENCTOS
go top IN TMP_VENCTOS
DO WHILE ! EOF("TMP_VENCTOS")
   cVenctos = cVenctos + DTOC(TMP_VENCTOS.RECVENCI) + " " + TRANSFORM(TMP_VENCTOS.RECVALOR,"9,999,999.99") + CHR(13)
   
   SKIP IN TMP_VENCTOS
   LOOP

ENDDO

SELECT TMP_IMPRIMIR
GO TOP IN TMP_IMPRIMIR

cReport = FULLPATH(CURDIR()) + "IMPRESS\TSORC_BARRACAO.FRX"
cLogo = FULLPATH(CURDIR()) + "IMPRESS\LOGO.JPG"

*SET PRINTER TO NAME "CAIXA"
*REPORT FORM &cReport TO PRINTER NOCONSOLE
CHAMAIMP2("TMP_IMPRIMIR",cReport)

ENDIF

SELECT TMP_ARETIRAR
IF RECCOUNT() > 0

SELECT TMP_ARETIRAR
GO TOP in TMP_ARETIRAR

cTipoOrc = " RETIRAR "

Select * From TMP_ARETIRAR INTO CURSOR TMP_IMPRIMIR

nselect = "SELECT * FROM Tsm003 WHERE ?cTabImp = SEQCUP AND FLAG = 'O' AND RECEST = 0 "
TSEXEC("T",nSelect,"TMP_VENCTOS")
cVenctos = "Vencimentos " + CHR(13)
SELECT TMP_VENCTOS
go top IN TMP_VENCTOS
DO WHILE ! EOF("TMP_VENCTOS")
   cVenctos = cVenctos + "30 DIAS " + " " + TRANSFORM(TMP_VENCTOS.RECVALOR,"9,999,999.99") + CHR(13)
   
   SKIP IN TMP_VENCTOS
   LOOP

ENDDO

SELECT TMP_IMPRIMIR
GO TOP IN TMP_IMPRIMIR

cReport = FULLPATH(CURDIR()) + "IMPRESS\TSORC_BARRACAO.FRX"
cLogo = FULLPATH(CURDIR()) + "IMPRESS\LOGO.JPG"

*SET PRINTER TO NAME "CAIXA"
*REPORT FORM &cReport TO PRINTER NOCONSOLE
CHAMAIMP2("TMP_IMPRIMIR",cReport)

ENDIF

ENDIF