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

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

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


cLogo = FULLPATH(CURDIR()) + "IMPRESS\LOGO" + alltrim(str(cCodEmp,1)) + ".JPG"

IF MESSAGEBOX("Deseja Imprimir Carregamento ?",292,"Impresso") = 7
   
   cReport = FULLPATH(CURDIR()) + "IMPRESS\tsorc_jatovivapet.frx"
 
*   SELECT TMP_IMPRIMIR2
*   GO TOP IN TMP_IMPRIMIR2
   *CHAMAIMP2("TMP_IMPRIMIR",cReport)
   REPORT FORM &cReport TO PRINT PROMPT PREVIEW
ELSE

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

   *CHAMAIMP2("TMP_IMPRIMIR",cReport)

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

ENDIF 

RETURN .F.
*SET STEP ON 
nSelect = "SELECT Tslv020.*,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 + "Tslc001.CLICEP,Tslc001.CLICON,Tslc001.CLIFAN,Tslc001.EMAIL,Tslc003.CODBAR,Tslv021.DESCRICAO,Tslv021.UNIDADE,Tslv021.QUANT,Tslv021.UNIT,Tslv021.TOTAL "
nSelect = nSelect + "FROM Tslv020 LEFT JOIN Tslc001 ON Tslv020.CODCLI = Tslc001.CLICOD "
nSelect = nSelect + "LEFT JOIN Tslc004 ON Tslv020.CODVEN = Tslc004.CODIGO "
nSelect = nSelect + "LEFT JOIN Tslc005 ON Tslv020.CODFORM = Tslc005.CODIGO "
nSelect = nSelect + "LEFT JOIN Tslv021 ON Tslv020.SEQ = Tslv021.CUPOM "
nSelect = nSelect + "LEFT JOIN Tslc003 ON Tslv021.CODPROD = Tslc003.CODIGO "
nSelect = nSelect + "WHERE ?cTabImp = Tslv020.SEQ "
TSEXEC("T",nSelect,"TSLV020")
SELECT TSLV020
BROW
RETURN .F.

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
   
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"

cEmpOrcamento = TSLV020.EMPRESA

TSEXEC("T","SELECT * FROM TSC008A WHERE EMPCOD = ?cEmpOrcamento ","TMP_008AORC")

IF MESSAGEBOX("Deseja Imprimir Carregamento ?",292,"Impresso") = 7
   
   cReport = FULLPATH(CURDIR()) + "IMPRESS\tsorc_jatovivapet.frx"
 
   SELECT TMP_IMPRIMIR2
   GO TOP IN TMP_IMPRIMIR2
   *CHAMAIMP2("TMP_IMPRIMIR",cReport)
   REPORT FORM &cReport TO PRINT PROMPT PREVIEW
ELSE

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

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

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

ENDIF 

ENDIF 