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,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")

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

lFinal = 1

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

   SELECT TMP_IMPRIMIR
   GO TOP IN TMP_IMPRIMIR
   cReport = FULLPATH(CURDIR()) + "IMPRESS\TSLV026B.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_IMP1.SEQ026,6)),6,"0") + CHR(13) + CHR(10)

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

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

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

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

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

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

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

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

cRep = ALLTRIM(TMP_IMP1.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_IMP1.DEFE)
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)

??? "T Codigo        Descricao                            Quant   Unitario      Total" + CHR(13) + CHR(10)

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

SELECT TMP_IMPRIMIR
GO TOP IN TMP_IMPRIMIR
DO WHILE ! EOF("TMP_IMPRIMIR")
   
   ??? SUBSTR(TMP_IMPRIMIR.TP,1,1) + SPACE(1) + SUBSTR(TMP_IMPRIMIR.CODBAR,4,13) + SPACE(1) + SUBSTR(TMP_IMPRIMIR.DESCRICAO,1,30) + SPACE(1) + TRANSFORM(TMP_IMPRIMIR.QUANT,"99999999.99") + SPACE(1) + TRANSFORM(TMP_IMPRIMIR.UNIT,"999,999.99") + SPACE(1) + TRANSFORM(TMP_IMPRIMIR.TOTAL,"999,999.99") + CHR(13) + CHR(10)
   
   SKIP IN TMP_IMPRIMIR
   LOOP

ENDDO

SELECT TMP_IMPRIMIR
GO TOP IN TMP_IMPRIMIR

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

??? "Fechamento: " + DTOC(TMP_IMP1.DTFECHAM) + SPACE(5) + "Plano: " + TMP_IMP1.FORMA + SPACE(5) + "Pecas......: " + TRANSFORM(TMP_IMP1.PECA,"9,999,999.99") + CHR(13) + CHR(10)

??? SPACE(55) + "Mao de Obra: " + TRANSFORM(TMP_IMP1.MO,"9,999,999.99") + CHR(13) + CHR(10)

??? SPACE(55) + "Desconto...: " + TRANSFORM(TMP_IMP1.DESCONTO,"9,999,999.99") + CHR(13) + CHR(10)

??? SPACE(55) + "Total Geral: " + TRANSFORM(TMP_IMP1.LIQUIDO,"9,999,999.99") + CHR(13) + CHR(10)

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

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

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

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

??? "Assinatura por extenso: _____________________________ R.G.: ____________________" + chr(13) + chr(10)

??? chr(12)

SET PRINTER TO

SET PRINTER TO DEFAULT