** MGL **

SYS(1037)

??? CHR(15)

TSEXEC("T","SELECT Tsm003.*,Tslc001.CLINOM,Tslc001.CLIEND,Tslc001.CLIBAI,Tslc001.CLICID,Tslc001.CLICEP,Tslc001.PESSOA,Tslc001.CLICPF,Tslc001.CLICGC,Tslc001.CLIINS,Tslc001.CLIRG FROM Tsm003 INNER JOIN Tslc001 ON Tsm003.RECCLI = Tslc001.CLICOD WHERE ?cCodEmp = EMPCOD AND ?cCodPed = SEQCUP AND RECEST = 0 AND ?cTpPed = FLAG ","TMP_DPL")
SELECT TMP_DPL
GO TOP IN TMP_DPL
DO WHILE ! EOF("TMP_DPL")
   
   ??? CHR(13)

   ??? CHR(13)

   ??? CHR(13)

   ??? CHR(13)

   ??? CHR(13)

   ??? CHR(13)

   ??? SPACE(40) + DTOC(TMP_DPL.RECEMISS) + CHR(13) + CHR(10)

   ??? CHR(13)

   ??? CHR(13)

   ??? CHR(13)

   ??? SPACE(15) + TRANSFORM(TMP_DPL.RECVALOR,"999,999.99") + SPACE(2) + TMP_DPL.RECCOD





















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

   ??? " " + chr(10)+chr(13)
   ??? "No. " + c_arq.RECCOD + SPACE(20) + "Vencimento: " + DTOC(C_ARQ.RECVENCI) + CHR(10)+CHR(13)
   ??? "Valor R$: " + TRANSFORM(c_arq.RECTOTAL,"9,999,999.99") + CHR(10)+CHR(13)
   ??? " " + CHR(13) + CHR(10)
   ??? "A " + PADL(ALLTRIM(STR(DAY(c_arq.RECVENCI),2)),2,"0") + " de " + MES(MONTH(c_arq.RECVENCI)) + " de " + STR(YEAR(c_arq.RECVENCI),4)  + CHR(10)+CHR(13)
   ??? "Pagarei por esta  unica via de NOTA PROMISSORIA" + chr(10)+chr(13)
   ??? " " + chr(13)+chr(10)
   ??? "A " + ALLTRIM(TSC008A.EMPNOM) + CHR(13) + CHR(10)
   ??? "C.N.P.J. No. " + TSC008A.EMPCNPJ
   ??? " " + CHR(13)+CHR(10)
   ??? "OU A SUA ORDEM, A QUANTIA DE " + VALEXT(c_arq.RECTOTAL) + CHR(13)+CHR(10)
   ??? " " + CHR(13) + CHR(10)
   ??? "Pagavel em " + ALLTRIM(TSC008A.EMPCIDAD) + " - " + ALLTRIM(TSC008A.EMPEST) + CHR(13)+CHR(10)
   ??? "Emitida em " + PADL(ALLTRIM(STR(DAY(c_arq.RECEMISS),2)),2,"0") + " de " + MES(MONTH(c_arq.RECEMISS)) + " de " + STR(YEAR(c_arq.RECEMISS),4) + CHR(13)+CHR(10)
   ??? " " + CHR(13)+CHR(10)
   cCodCliEm = c_arq.RECCLI
   TSEXEC("T","SELECT * FROM Tslc001 WHERE ?cCodCliEM = CLICOD ","TMP_TSLC001")
   SELECT TMP_TSLC001
   ??? "Emitente: " + ALLTRIM(TMP_TSLC001.CLINOM) + CHR(13) + CHR(10)
   IF ALLTRIM(TMP_TSLC001.PESSOA) = 'FSICA'
      ??? "C.P.F...: " + TMP_TSLC001.CLICPF + CHR(13) + CHR(10)
   ELSE
      ??? "C.N.P.J.: " + TMP_TSLC001.CLICGC + CHR(13)+CHR(10)
   ENDIF
   ??? "Endereco: " + ALLTRIM(TMP_TSLC001.CLIEND) + CHR(13)+CHR(10)
   ??? "Cidade..: " + ALLTRIM(TMP_TSLC001.CLICID) + " - " + ALLTRIM(TMP_TSLC001.CLIEST) + " - CEP: " + ALLTRIM(TMP_TSLC001.CLICEP) + CHR(13) + CHR(10)
   ??? " " + CHR(13)+CHR(10)
   ??? " " + CHR(13) + CHR(10)
   ??? "______________________________          ______________________________" + CHR(13)+CHR(10)
   ??? "          EMITENTE                                  AVALISTA" + CHR(13)+CHR(10)
   ??? REPLICATE("-",80)+CHR(13)+CHR(10)

*   FOR X=0 TO 4
*      ??? " " + chr(10)+chr(13)
*   NEXT

   skip in c_arq
   LOOP

ENDDO

Set Printer To