INDEX    SCCRNOM CR_NOME
VARIAVEL LST_TP = 50
VARIAVEL XTEXTO = ""
VARIAVEL XCLI = 0
VARIAVEL xDESC = SPACE(35)
VARIAVEL XLEN = 1
T10,10,14,60,Identificacao
T2,2,Codigo do Cliente:,5,XCLI,9999
T3,2,Descricao:,24,xdesC,xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
FILTRO IF( XCLI > 0, RECNO() = XCLI, CR_DT_ULTI >= CTOD("01.06.1999") )
COMANDO DURANTE XLEN = LEN(ALLTRIM(XDESC))
FILTRO  XDESC = SPACE(35) .OR. LEFT(CR_NOME,XLEN) = LEFT(XDESC,XLEN)
COMANDO DURANTE lst_tp=61
COMANDO DURANTE pag=0
COMANDO DURANTE XTEXTO = ""
COMANDO DURANTE XTEXTO = XTEXTO + "        Visando  qualificar  e  agilizar  o  atendimento "
COMANDO DURANTE XTEXTO = XTEXTO + "a  vocˆ , nosso  cliente , estamos  implantando  o nosso "
COMANDO DURANTE XTEXTO = XTEXTO + "E SERVI€O   DE   ATENDIMENTO   AO   CLIENTE   ( S A C ) ,F "
COMANDO DURANTE XTEXTO = XTEXTO + "Epelo  n§  214 - 8080 F, onde vocˆ  poder   fazer seus pedidos, " 
COMANDO DURANTE XTEXTO = XTEXTO + "consultar pre‡os, verificar nossas formas de comercializa‡ao " 
COMANDO DURANTE XTEXTO = XTEXTO + "(cartoes, cheques programados, descontos), obter informa‡oes " 
COMANDO DURANTE XTEXTO = XTEXTO + "sobre medicamentos ( tais como princ¡pios ativo, classifica‡ao "  
COMANDO DURANTE XTEXTO = XTEXTO + "terapˆutica, gen‚ricos, etc), informar-se sobre nossas promo‡oes, "
COMANDO DURANTE XTEXTO = XTEXTO + "fazer reclama‡oes , dar sugestoes , tudo isso de forma  gil e "
COMANDO DURANTE XTEXTO = XTEXTO + "personalizada, proporcionando o esclarecimento de todas as "
COMANDO DURANTE XTEXTO = XTEXTO + "suas d£vidas."
COMANDO DURANTE XTEXTO = XTEXTO + CHR(13)+CHR(10)
COMANDO DURANTE XTEXTO = XTEXTO + CHR(13)+CHR(10)
COMANDO DURANTE XTEXTO = XTEXTO + "        Com a certeza de estarmos cada vez mais pr¢ximo de "
COMANDO DURANTE XTEXTO = XTEXTO + "vocˆ e continuarmos tendo-o como nosso cliente , aguardamos "
COMANDO DURANTE XTEXTO = XTEXTO + "a sua liga‡ao  para  nosso  novo  n£mero."
D
D
D
D
D
D
D
D    [Dia_Ext(DATE())]
D
D
D
D
D
D    Prezado(a) Cliente: [&M_ENFAT] [CR_NOME] [&M_NAOENFAT]
D
D
D
D
D
D
D[txt_prt(XTEXTO,10,60)]
D
D
D
D                                Agradecimentos,
D
D
D
D
D                           Geniezer Pereira Ventura
D                                S¢cio-Gerente
D
D
D
D
D              E Na Internet nosso email ‚ farmesp@terra.com.br F
D
D
D             Obs.: Acompanha ima de geladeira e adesivo p/ telefone 
D
