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

nSelect = "SELECT Tslos03.*,Tslc004.NOME AS USUARIO,"
nSelect = nSelect + "Tslos04.COD_TIPO,Tslos04.COD_PROD,Tslos04.DESCRICAO,Tslos04.QUANT,Tslos04.VTOTAL AS VTOTALP,"
nSelect = nSelect + "Tslos04.VUNIT,Tslc003.CODBAR,Tslc003.LOCAL FROM Tslos03 "
nSelect = nSelect + "LEFT JOIN Tslc004 ON Tslos03.SEQ004 = Tslc004.CODIGO "
nSelect = nSelect + "LEFT JOIN Tslos04 ON Tslos03.SEQOS03 = Tslos04.SEQOS03 "
nSelect = nSelect + "LEFT JOIN Tslc003 ON Tslos04.COD_PROD = Tslc003.CODIGO "
nSelect = nSelect + "WHERE ?cTabImp = Tslos03.SEQOS03 "
TSEXEC("T",nSelect,"TMP_IMPRIMIR1")
GERACURSOR("TMP_IMPRIMIR1","TMP_IMPRIMIR")
SELECT TMP_IMPRIMIR
ALTER TABLE TMP_IMPRIMIR ADD COLUMN SEGURO C(50)
ALTER TABLE TMP_IMPRIMIR ADD COLUMN TIPO C(10)

UPDATE TMP_IMPRIMIR SET CODBAR = PADL(ALLTRIM(STR(COD_PROD,16)),16,"0") WHERE COD_TIPO <> 1 .Or. ISNULL(CODBAR)
UPDATE TMP_IMPRIMIR SET TIPO = 'PEAS' WHERE COD_TIPO = 1
UPDATE TMP_IMPRIMIR SET TIPO = 'SERVIOS' WHERE COD_TIPO = 2
UPDATE TMP_IMPRIMIR SET TIPO = 'TERCEIRO' WHERE COD_TIPO = 3

SELECT COD_TIPO,SUM(VTOTALP) AS VTOTAL FROM TMP_IMPRIMIR INTO CURSOR TMP_TOTAL GROUP BY COD_TIPO
SELECT TMP_TOTAL
GO TOP IN TMP_TOTAL
LOCATE FOR 1 = TMP_TOTAL.COD_TIPO
IF FOUND("TMP_TOTAL")
   tPeca = TMP_TOTAL.VTOTAL
ELSE
   tPeca = 0
ENDIF

SELECT TMP_TOTAL
GO TOP IN TMP_TOTAL
LOCATE FOR 2 = TMP_TOTAL.COD_TIPO
IF FOUND("TMP_TOTAL")
   tServico = TMP_TOTAL.VTOTAL
ELSE
   tServico = 0
ENDIF

SELECT TMP_TOTAL
GO TOP IN TMP_TOTAL
LOCATE FOR 3 = TMP_TOTAL.COD_TIPO
IF FOUND("TMP_TOTAL")
   tTerceiro = TMP_TOTAL.VTOTAL
ELSE
   tTerceiro = 0
ENDIF

nSelect = "SELECT Tslos05.*,Tslc005.DESCRICAO FROM Tslos05 LEFT JOIN Tslc005 ON Tslos05.SEQ005 = Tslc005.CODIGO "
nSelect = nSelect + "WHERE ?cTabImp = Tslos05.SEQOS03 "
TSEXEC("T",nSelect,"TMP_PARCELAS")

cParcelas = ""

SELECT TMP_PARCELAS
GO TOP IN TMP_PARCELAS
DO WHILE ! EOF("TMP_PARCELAS")

   cParcelas = cParcelas + TMP_PARCELAS.DESCRICAO + " " + STR(TMP_PARCELAS.PARCELAS,2) + " X " + TRANSFORM(TMP_PARCELAS.VPARCELAS,"9,999,999.99") + " = " + TRANSFORM((TMP_PARCELAS.VPARCELAS * TMP_PARCELAS.PARCELAS),"9,999,999.99") + CHR(13)

   skip in TMP_PARCELAS
   LOOP

ENDDO

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

cObs = "TESTE DE OBS"

REPORT FORM &cReport TO PRINTER PROMPT