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,Tslc045.FROTA,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,Tslc001.Celular,Tslc001.Numero,"
nSelect = nSelect + "Tslc001_3.NOME as MOTORISTA,"
nSelect = nSelect + "Tslc001_3.RG AS RGMOTO 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 + "LEFT JOIN Tslc001_3 ON Tslos01.MOTO = Tslc001_3.COD001_3 "
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 = ""

*REPORT FORM &cReport TO PRINTER PROMPT


IF MESSAGEBOX("Impressora Matricial   ",292,"Impresso") = 7

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

   REPORT FORM &cReport TO PRINTER PROMPT PREVIEW
   RETURN

ENDIF

SELECT TMP_IMPRIMIR
GO TOP IN TMP_IMPRIMIR

cObs = "TESTE DE OBS"

SYS(1037) && INDICAR IMPRESSORA

??? chr(18)

??? TSL.NOME + SPACE(14) + "Ordem N.: " + PADL(ALLTRIM(STR(TMP_IMPRIMIR.SEQOS01,6)),6,"0") + CHR(13) + CHR(10)

??? REPLICATE("-",80) + CHR(13) + CHR(10)

??? "Data Abertura: " + DTOC(TMP_IMPRIMIR.DATA) + space(2) + "Tipo Ordem: " + TMP_IMPRIMIR.TORDEM + SPACE(1) + "Atendente: " + SUBSTR(TMP_IMPRIMIR.USUARIO,1,19) + CHR(13) + CHR(10)

??? "Cliente: " + PADL(ALLTRIM(STR(TMP_IMPRIMIR.SEQ001,6)),6,"0") + " - " + ALLTRIM(TMP_IMPRIMIR.CLINOM) + CHR(13) + CHR(10)

??? "Endereco: " + TMP_IMPRIMIR.CLIEND + CHR(13) + CHR(10)

??? "Bairro: " + SUBSTR(TMP_IMPRIMIR.CLIBAI,1,23) + SPACE(1) + "Cidade: " + SUBSTR(TMP_IMPRIMIR.CLICID,1,24) + space(1) + "Cep: " + " " + Substr(TMP_IMPRIMIR.clicep,1,2) + "." + Substr(TMP_IMPRIMIR.clicep,3,3) + "-" + Substr(TMP_IMPRIMIR.clicep,6,3) + CHR(13) + CHR(10)

??? "Telefone: " + TMP_IMPRIMIR.CLITEL + SPACE(5) + "Fax: " + TMP_IMPRIMIR.CLIFAX + CHR(13) + CHR(10)

IF TMP_IMPRIMIR.PESSOA = 'FSICA'
   ??? "C.P.F.: " + MCPF(TMP_IMPRIMIR.CLICPF) + SPACE(10) + "R.G.: " + TMP_IMPRIMIR.CLIRG + CHR(13) + CHR(10)
ELSE
   ??? "C.N.P.J.: " + MCPF(TMP_IMPRIMIR.CLICGC) + SPACE(10) + "I.E.: " + TMP_IMPRIMIR.CLIINS + CHR(13) + CHR(10)
ENDIF

??? REPLICATE("-",80) + CHR(13) + CHR(10)

??? "Placa: " + TMP_IMPRIMIR.PLACA + SPACE(1) + "Chassi: " + TMP_IMPRIMIR.CHASSI + CHR(13) + CHR(10)

??? "Marca: " + TMP_IMPRIMIR.DESCMAR + SPACE(1) + "Tipo: " + TMP_IMPRIMIR.DESCTIPO + SPACE(1) + "Modelo: " + SUBSTR(TMP_IMPRIMIR.DESCMOD,1,15) + SPACE(1) + chr(13) + chr(10)

??? "Comb.: " + TMP_IMPRIMIR.TCOMB + SPACE(5) + "Ano: " + str(TMP_IMPRIMIR.ANO,4) + SPACE(5) + "Km: " + TRANSFORM(TMP_IMPRIMIR.KM,"999,999") + CHR(13) + CHR(10)

??? REPLICATE("-",80) + CHR(13) + CHR(10)

??? "Inconveniente" + CHR(13) + CHR(10)

nLin = 14

cRep = ALLTRIM(TMP_IMPRIMIR.RECL)
cLin = MEMLINES(cRep)
cLin2 = 1
do while cLin => cLin2

   ??? MLINE(cRep,cLin2)+CHR(10)+CHR(13)
   
   cLin2 = cLin2 + 1
   nLin = nLin + 1
   Loop

ENDDO

??? REPLICATE("-",80) + CHR(13) + CHR(10)

??? "Causa" + CHR(13) + CHR(10)

nLin = nLin + 2

cRep = ALLTRIM(TMP_IMPRIMIR.LAUDO)
cLin = MEMLINES(cRep)
cLin2 = 1
do while cLin => cLin2

   ??? MLINE(cRep,cLin2)+CHR(10)+CHR(13)
   
   cLin2 = cLin2 + 1
   nLin = nLin + 1
   Loop

ENDDO

??? REPLICATE("-",80) + CHR(13) + CHR(10)

??? "Reparo" + CHR(13) + CHR(10)

nLin = nLin + 2

cRep = ALLTRIM(TMP_IMPRIMIR.REPARO)
cLin = MEMLINES(cRep)
cLin2 = 1
do while cLin => cLin2

   ??? MLINE(cRep,cLin2)+CHR(10)+CHR(13)
   
   cLin2 = cLin2 + 1
   nLin  = nLin + 1
   Loop

ENDDO

DO WHILE nLin < 51
   
   ??? " " + CHR(13) + CHR(10)
   
   nLin = nLin + 1
   Loop

ENDDO

??? "Autorizo a executar os servicos acima descritos e a troca de pecas se" + CHR(13) + CHR(10)

??? "necessario, me comprometo a pagar pelo mesmo conforme praze  descrito" + CHR(13) + CHR(10)

??? "acima. Favor retirar objetos de dentro do seu veiculo, como:  oculos," + CHR(13) + CHR(10)

??? "cds, frente de toca fitas, carteiras e outros." + CHR(13) + CHR(10)

??? " " + CHR(13) + CHR(10)

??? " " + CHR(13) + CHR(10)

??? "Assinatura por extenso: ______________________________ R.G.: " + ALLTRIM(TMP_IMPRIMIR.RGMOTO) + CHR(13) + CHR(10)

??? "                        " + ALLTRIM(TMP_IMPRIMIR.MOTORISTA)

??? CHR(12)

SET PRINTER TO
SET PRINTER TO DEFAULT