TSEXEC("T","SELECT * FROM Tsl ","TSL")
nSelect = "SELECT Tslv026.*,Tslc001.CLINOM,Tslc001.CLIEND,Tslc001.CLIBAI,Tslc001.CLICID,Tslc001.CLICEP,"
nSelect = nSelect + "Tslc001.CLITEL,Tslc001.CLIFAX,Tslc004.NOME AS VENDEDOR FROM Tslv026 "
nselect = nSelect + "LEFT JOIN Tslc001 ON Tslv026.CODCLI = Tslc001.CLICOD "
nSelect = nSelect + "LEFT JOIN Tslc004 ON Tslv026.CODVEN = Tslc004.CODIGO WHERE ?cTabImp = SEQ026 "
TSEXEC("T",nSelect,"TMP_IMPRIMIR")

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

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

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

   REPORT FORM &cReport TO PRINTER PROMPT PREVIEW
   RETURN

ENDIF

SELECT TMP_IMPRIMIR
GO TOP IN TMP_IMPRIMIR

SYS(1037) && INDICAR IMPRESSORA

??? chr(18)

??? TSL.NOME + SPACE(14) + "Ordem N.: " + PADL(ALLTRIM(STR(TMP_IMPRIMIR.SEQ026,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.TIPO + SPACE(1) + "Atendente: " + SUBSTR(TMP_IMPRIMIR.VENDEDOR,1,19) + CHR(13) + CHR(10)

??? "Cliente: " + PADL(ALLTRIM(STR(TMP_IMPRIMIR.CODCLI,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)

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

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

cRep = ALLTRIM(cmaquinas)
cLin = MEMLINES(cRep)
cLin2 = 1
do while cLin => cLin2

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

ENDDO

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


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

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

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

ENDDO

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

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

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

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

ENDDO

??? chr(12)

SET PRINTER TO

SET PRINTER TO DEFAULT