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

nSelect = "SELECT Tslv026.*,Tslc001.CLINOM,Tslc001.CLIEND,Tslc001.CLIBAI,Tslc001.CLICID,Tslc001.CLICEP,"
nSelect = nSelect + "Tslc001.CLITEL,Tslc001.CLIFAX,Tslc001.Pessoa,Tslc001.Clicpf,Tslc001.Clirg,Tslc001.Clicgc,Tslc001.Cliins,"
nSelect = nSelect + "Tslc004.NOME AS VENDEDOR,Tslc005.DESCRICAO AS FORMA FROM Tslv026 "
nselect = nSelect + "LEFT JOIN Tslc001 ON Tslv026.CODCLI = Tslc001.CLICOD "
nSelect = nSelect + "LEFT JOIN Tslc004 ON Tslv026.CODVEN = Tslc004.CODIGO "
nselect = nselect + "LEFT JOIN Tslc005 ON Tslv026.CODFOR = Tslc005.CODIGO WHERE ?cTabImp = SEQ026 "
TSEXEC("T",nSelect,"TMP_IMP1")

nSelect = "SELECT * FROM Tslo026 where ?cTabImp = SEQOR "
TSEXEC("T",nSelect,"TMP_MAQ")

cMaquinas = ""
SELECT TMP_MAQ
GO TOP IN TMP_MAQ
DO WHILE ! EOF("TMP_MAQ")
   
   cMaquinas = cMaquinas + ALLTRIM(TMP_MAQ.EQUIP) + CHR(13)
   
   SKIP IN TMP_MAQ
   LOOP
   
ENDDO
cValorTaxa = Val(INPUTBOX("Valor Taxa","Taxa de Servio","30"))

IF MESSAGEBOX("Deseja Imprimir Com Os Itens  ",292,"Aviso") = 7

   
   SELECT TMP_IMP1
   GO TOP IN TMP_IMP1
   cReport = FULLPATH(CURDIR()) + "IMPRESS\TSLV026A.FRX"

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

*   REPORT FORM &cReport TO PRINTER PROMPT PREVIEW

   CHAMAIMP2("TMP_IMPRIMIR",cReport)
ELSE

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

nSelect = "SELECT Tslv026.*,Tslc001.CLINOM,Tslc001.CLIEND,Tslc001.CLIBAI,Tslc001.CLICID,Tslc001.CLICEP,"
nSelect = nSelect + "Tslc001.CLITEL,Tslc001.CLIFAX,Tslc001.Pessoa,Tslc001.Clicpf,Tslc001.Clirg,Tslc001.Clicgc,Tslc001.Cliins,"
nSelect = nSelect + "Tslc004.NOME AS VENDEDOR,Tslc005.DESCRICAO AS FORMA FROM Tslv026 "
nselect = nSelect + "LEFT JOIN Tslc001 ON Tslv026.CODCLI = Tslc001.CLICOD "
nSelect = nSelect + "LEFT JOIN Tslc004 ON Tslv026.CODVEN = Tslc004.CODIGO "
nselect = nselect + "LEFT JOIN Tslc005 ON Tslv026.CODFOR = Tslc005.CODIGO WHERE ?cTabImp = SEQ026 "
TSEXEC("T",nSelect,"TMP_IMP1")

nSelect = "SELECT Tslv027.*,Tslc003.CODBAR FROM Tslv027 LEFT JOIN Tslc003 ON Tslv027.CODPROD = Tslc003.CODIGO "
nSelect = nSelect + "WHERE ?cTabImp = Tslv027.SEQOR AND Tslv027.EXCLUI <> 'S' "
TSEXEC("T",nSelect,"TMP_IMPRIMIR1")


nSelect = "SELECT * FROM Tslo026 where ?cTabImp = SEQOR "
TSEXEC("T",nSelect,"TMP_MAQ")

cMaquinas = ""
SELECT TMP_MAQ
GO TOP IN TMP_MAQ
DO WHILE ! EOF("TMP_MAQ")
   
   cMaquinas = cMaquinas + ALLTRIM(TMP_MAQ.EQUIP) + CHR(13)
   
   SKIP IN TMP_MAQ
   LOOP
   
ENDDO

cProd = ""
SELECT * FROM TMP_IMPRIMIR1 WHERE TP = 'P' INTO CURSOR TMP_PROD
GO TOP IN TMP_PROD
DO WHILE ! EOF("TMP_PROD")
   
   cProd = cProd + SUBSTR(TMP_PROD.DESCRICAO,1,40) + SPACE(33) + TRANSFORM(TMP_PROD.TOTAL,"9,999,999.99") + CHR(13)
   
   SKIP IN TMP_PROD
   LOOP
   
ENDDO

SELECT SUM(TOTAL) AS TOTAL FROM TMP_IMPRIMIR1 WHERE TP = 'P' INTO CURSOR TMP_TOTALP
SELECT TMP_TOTALP
IF ! ISNULL(TMP_TOTALP.TOTAL)
   cValProd = TMP_TOTALP.TOTAL
ELSE
   cValProd = 0
ENDIF

SELECT SUM(TOTAL) AS TOTAL FROM TMP_IMPRIMIR1 WHERE TP = 'S' INTO CURSOR TMP_TOTALS
SELECT TMP_TOTALS
IF ! ISNULL(TMP_TOTALS.TOTAL)
   cValServ = TMP_TOTALS.TOTAL
ELSE
   cValServ = 0
ENDIF

geracursor("TMP_IMPRIMIR1","TMP_IMPRIMIR")

SELECT TMP_IMPRIMIR
UPDATE TMP_IMPRIMIR SET CODBAR = PADL(ALLTRIM(STR(CODPROD,11)),11,"0") WHERE TP = 'S'
GO TOP IN TMP_IMPRIMIR
SELECT TMP_IMPRIMIR
IF RECCOUNT() = 0
   SELECT TMP_IMPRIMIR
   APPEND BLANK IN TMP_IMPRIMIR
ENDIF
lFinal = 1


cLogo = FULLPATH(CURDIR()) + "IMPRESS\LOGO.JPG"
     * SELECT * FROM TMP_IMP1 INTO CURSOR TMP_IMPRIMIR
*      GO TOP IN TMP_IMP1
      cReport = FULLPATH(CURDIR()) + "IMPRESS\TSLV026B_1.FRX"
   SELECT TMP_IMPRIMIR
   GO TOP IN TMP_IMPRIMIR

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


ENDIF 