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

cTabImp = cRet024

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

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

*SET STEP ON 
nSelect = "SELECT Tslv024.*,Tslc001.CLINOM,Tslc001.PESSOA,Tslc001.CLIEND,Tslc001.CLIBAI,Tslc001.CLICID,Tslc001.CLITEL,Tslc001.CLICPF,Tslc001.Numero,"
nSelect = nSelect + "Tslc001.CLICGC,Tslc001.CELULAR,Tslc004.NOME AS CLIVEND,Tslc001.EndEnt,Tslc001.BaiEnt,Tslc001.CidEnt "
nSelect = nSelect + "FROM Tslv024 LEFT JOIN Tslc001 ON Tslv024.CODCLI = Tslc001.CLICOD "
nSelect = nSelect + "LEFT JOIN Tslc004 ON Tslv024.CODVEN = Tslc004.CODIGO WHERE ?cTabImp = Tslv024.SEQ "
TSEXEC("T",nSelect,"TSLV020")

nSelect = "SELECT Tslv025.*,Tslc003.CODBAR,Tslv021.QUANT AS QUANTC,Tslv021.QUANTR FROM Tslv025 "
nSelect = nSelect + "LEFT JOIN Tslc003 ON Tslv025.CODPROD = Tslc003.CODIGO "
nSelect = nSelect + "LEFT JOIN Tslv021 ON Tslv025.SEQV021 = Tslv021.SEQ "
nSelect = nSelect + "WHERE ?cTabImp = Tslv025.CUPOM AND Tslv025.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
   
nPagina = 1

*!*	Select TSLV021
*!*	Go Top IN TSLV021
*!*	nLinha = 9
*!*	cTotal = 0
*!*	cTotalD = 0
*!*	select TSLV021
*!*	ALTER TABLE TSLV021 ADD COLUMN VVISTA N(12,2)
*!*	IF TSLV020.DESCONTO > 0
*!*	   cTotalD = TSLV020.DESCONTO
*!*	   cPerDes = TSLV020.DESCONTO / TSLV020.BRUTO
*!*	   SELECT TSLV021
*!*	   UPDATE TSLV021 SET VVISTA = (TOTAL - (TOTAL * cPerDes))
*!*	   SELECT TSLV021
*!*	   cTotLind = RECCOUNT()
*!*	   cTotald2 = TSLV020.DESCONTO
*!*	ELSE
*!*	   SELECT TSLV021
*!*	   UPDATE TSLV021 SET VVISTA = TOTAL
*!*	ENDIF

SELECT TSLV021
GO TOP IN TSLV021

GERACURSOR("TSLV021","TMP_IMPRIMIR2")
qtd = 0

SELECT TMP_IMPRiMIR2
cTeste = SUBSTR(ALLTRIM(STR(ROUND(RECCOUNT()/10,1),12,1)),LEN(ALLTRIM(STR(ROUND(RECCOUNT()/10,1),12,1))),1)

IF( VAL(cTeste) > 0 .AND. VAL(cTeste) < 5)
   cQtdReg = ROUND(RECCOUNT()/10,0) + 1
ELSE
   cQtdReg = ROUND(RECCOUNT()/10,0)
ENDIF

cProd = ""

SELECT TMP_IMPRiMIR2
cTotalItens = RECCOUNT()
IF cTotalItens <= 10

   SELECT TMP_IMPRIMIR2
   GO TOP IN TMP_IMPRIMIR2

   FOR nIdx = 1 to 10
      
      IF ! EOF("TMP_IMPRIMIR2")
   
         cProd = cProd + Substr(TMP_IMPRIMIR2.CODBAR,12,5) + "    " + Substr(TMP_IMPRIMIR2.DESCRICAO,1,37) + " " 
         cProd = cProd + TRANSFORM(TMP_IMPRIMIR2.QUANTC,"999,999.99") + "    "+ TRANSFORM(TMP_IMPRIMIR2.QUANTR - TMP_IMPRIMIR2.QUANT,"999,999.99") + "  " 
         cProd = cProd + TRANSFORM(TMP_IMPRIMIR2.QUANT,"999,999.99") + "    " + TRANSFORM(TMP_IMPRIMIR2.QUANTC - TMP_IMPRIMIR2.QUANTR,"999,999.99")+CHR(13)
         
         SELECT TMP_IMPRIMIR2
         SKIP IN TMP_IMPRIMIR2
      ENDIF
   NEXT

ENDIF 

SELECT * FROM TSLV020 INTO CURSOR TMP_IMPRIMIR

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

*!*	nSelect = "SELECT * FROM Tsm003 WHERE ?cTabImp = SEQCUP AND FLAG = 'O' AND RECEST = 0"
*!*	TSEXEC("T",nSelect,"TMP_FIN")

*!*	cTabela3 = "TMP_FIN"
*!*	cVenctos = "Vencimentos: "

*!*	select &cTabela3
*!*	Go Top
*!*	Do While ! Eof(cTabela3)
*!*	   cVenctos = cVenctos + dToc(&cTabela3..RECVENCI) + "  Valor..: " + TRANSFORM(&cTabela3..RECVALOR,"999,999.99") + CHR(13) + space(13)
*!*	   Skip In &cTabela3
*!*	   Loop
*!*	ENDDO

cFone = ALLTRIM(TSL.FONE)

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

IF cTotalItens > 10
   
   cReport = FULLPATH(CURDIR()) + "IMPRESS\tsret_docelandia2.frx"
 
   SELECT TMP_IMPRIMIR2
   GO TOP IN TMP_IMPRIMIR2
   CHAMAIMP2("TMP_IMPRIMIR",cReport)
ELSE

   cReport = FULLPATH(CURDIR()) + "IMPRESS\tsret_docelandia.frx"

   SELECT TMP_IMPRIMIR
   GO TOP IN TMP_IMPRIMIR
   CHAMAIMP2("TMP_IMPRIMIR",cReport)

   *CHAMAIMP2("TMP_IMPRIMIR",cCam123)
   *REPORT FORM &cCam123 TO PRINTER

ENDIF
ENDIF