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

nSelect = "SELECT Tslos01.*,Tslc045.PLACA,Tslc045.CHASSI,Tslc045.SEQ040,Tslc045.ANO,Tslc045.SEQ041,Tslc045.SEQ042,"
nSelect = nSelect + "Tslc045.SEQ043,Tslc045.SEQ044,Tslc046.DESCTIPO AS TORDEM,Tslc004.NOME AS USUARIO,"
nSelect = nSelect + "Tslc040.DESCMAR,Tslc041.DESCTIPO,Tslc042.DESCMOD,Tslc043.DESCCOR,Tslc001.CLINOM,"
nSelect = nSelect + "Tslc001.PESSOA,Tslc001.CLICPF,Tslc001.CLICGC,Tslc001.CLIRG,Tslc001.CLIINS,Tslc001.CLIEND,"
nSelect = nSelect + "Tslc001.CLIBAI,Tslc001.CLICID,Tslc001.CLICEP,Tslc001.CLIEST,Tslc001.CLITEL,Tslc001.CLIFAX FROM Tslos01 "
nSelect = nSelect + "LEFT JOIN Tslc045 ON Tslos01.SEQ045 = Tslc045.SEQ045 "
nSelect = nSelect + "LEFT JOIN Tslc040 ON Tslc045.SEQ040 = Tslc040.SEQ040 "
nSelect = nSelect + "LEFT JOIN Tslc041 ON Tslc045.SEQ041 = Tslc041.SEQ041 "
nSelect = nSelect + "LEFT JOIN Tslc042 ON Tslc045.SEQ042 = Tslc042.SEQ042 "
nSelect = nSelect + "LEFT JOIN Tslc043 ON Tslc045.SEQ043 = Tslc043.SEQ043 "
nSelect = nSelect + "LEFT JOIN Tslc044 ON Tslc045.SEQ044 = Tslc044.SEQ044 "
nSelect = nSelect + "LEFT JOIN Tslc046 ON Tslos01.SEQ046 = Tslc046.SEQ046 "
nSelect = nSelect + "LEFT JOIN Tslc004 ON Tslos01.SEQ004 = Tslc004.CODIGO "
nSelect = nSelect + "LEFT JOIN Tslc001 ON Tslos01.SEQ001 = Tslc001.CLICOD "
nSelect = nSelect + "WHERE ?cTabImp = Tslos01.SEQOS01 "
TSEXEC("T",nSelect,"TMP_IMPRIMIR1")
GERACURSOR("TMP_IMPRIMIR1","TMP_IMPRIMIR")
SELECT TMP_IMPRIMIR
ALTER TABLE TMP_IMPRIMIR ADD COLUMN SEGURO C(50)

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

cObs = "TESTE DE OBS"

REPORT FORM &cReport TO PRINTER PROMPT
