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

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

*cTabImp = 2

*SET STEP ON 
nSelect = "SELECT Tslor01.*,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,Tslc005.DESCRICAO AS FORMA_PAGTO "
nSelect = nSelect + "FROM Tslor01 LEFT JOIN Tslc001 ON Tslor01.CODCLI = Tslc001.CLICOD "
nSelect = nSelect + "LEFT JOIN Tslc004 ON Tslor01.CODVEN = Tslc004.CODIGO "
nSelect = nSelect + "LEFT JOIN Tslc005 ON Tslor01.CODFORM = Tslc005.CODIGO WHERE ?cTabImp = Tslor01.SEQ "

TSEXEC("T",nSelect,"TSLV020")

nSelect = "SELECT Tslor02.*,Tslc003.CODBAR FROM Tslor02 LEFT JOIN Tslc003 ON Tslor02.CODPROD = Tslc003.CODIGO "
nSelect = nSelect + "WHERE ?cTabImp = CUPOM AND EXCLUI <> 'S' ORDER BY Tslor02.SEQ "
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 = ""

SET STEP ON 
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) + "    " + TRANSFORM(TMP_IMPRIMIR2.QUANT,"99999.99") + "  " + TMP_IMPRIMIR2.UNIDADE + " " 
         cProd = cProd + Substr(TMP_IMPRIMIR2.DESCRICAO,1,38) + " " 
         cProd = cProd + TRANSFORM(TMP_IMPRIMIR2.UNIT,"99,999.99") + "      " + TRANSFORM(TMP_IMPRIMIR2.TOTAL,"99,999.99") + "    " 
         cProd = cProd + TRANSFORM(TMP_IMPRIMIR2.VVISTA,"99,999.99") + CHR(13)
   
         SELECT TMP_IMPRIMIR2
         SKIP IN TMP_IMPRIMIR2
      ENDIF
   NEXT

ENDIF 

SELECT * FROM TSLV020 INTO CURSOR TMP_IMPRIMIR

SELECT SUM(TOTAL)    AS TOTAL    FROM TMP_IMPRIMIR2 INTO CURSOR TMP_SUB
*SELECT SUM(DESCONTO) AS DESCONTO FROM TMP_IMPRIMIR INTO CURSOR TMP_DES
*SELECT SUM(ACRESCIM) AS ACRESCIM FROM TMP_IMPRIMIR INTO CURSOR TMP_ACR

SELECT TMP_SUB
IF RECCOUNT() > 0
   IF ! ISNULL(TMP_SUB.TOTAL)
      cSubTotal = TMP_SUB.TOTAL
   ELSE
      cSubTotal = 0
   ENDIF
ENDIF

cAcrescim = 0

cDesconto = TSLV020.DESCONTO

cTotal = (cSubTotal + cAcrescim) - cDesconto

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" + alltrim(str(cCodEmp,1)) + ".JPG"


   
cReport = FULLPATH(CURDIR()) + "IMPRESS\tscot_jatovivapet.frx"
 
SELECT TMP_IMPRIMIR2
GO TOP IN TMP_IMPRIMIR2
CHAMAIMP2("TMP_IMPRIMIR",cReport)

*ENDIF 