INDEX    SCCRNOM CR_NOME
VARIAVEL LST_TP = 50
VARIAVEL XTEXTO = ""
VARIAVEL XCLI = 1000
T10,10,14,60,Identificacao
T2,2,Codigo do Cliente:,5,XCLI,9999
FILTRO IF( XCLI > 0, RECNO() = XCLI, CR_DT_ULTI >= CTOD("01.01.1999") )
COMANDO DURANTE lst_tp=61
COMANDO DURANTE pag=0
COMANDO DURANTE XTEXTO = ""
COMANDO DURANTE XTEXTO = XTEXTO + "      Com intuito de torn -lo nosso cliente, buscando "
COMANDO DURANTE XTEXTO = XTEXTO + "atendˆ-lo  de forma  personalizada, implantamos 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 + "eficiente, 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 + "      Certo de estarmos  cada vez mais pr¢ximo  de vocˆ  "
COMANDO DURANTE XTEXTO = XTEXTO + "na busca de seu bem  estar e termos como  nosso cliente, "
COMANDO DURANTE XTEXTO = XTEXTO + "aguardamos a sua liga‡ao ou a sua visita."
D
D
D
D
D
D
D
D    [Dia_Ext(DATE())]
D
D
D
D
D
D    Prezado(a) Senhor(a) : [&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                              Gerente de Vendas
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
