* &M_ENFAT      Destaca Letra
* &M_NAOENFAT   Volta ao destaque normal
* &M_DEZCPI     letra normal
* &M_DOZECPI    letra pouco menor que a normal
* &M_DEZCOND    menor que a anterior
* &M_DOZECOND   menor ainda que a anterior
* &M_NORMAL     volta ao normal
* CHR(15)       liga comprimido (cabem 132 letras em papel de 80 colunas)
*
INCLUDE CLIF.LST
VARIAVEL LST_TP=58
*INDEX TEMP CR_CIDADE+CR_NOME

INDEX SCCRNOM CR_NOME


VARIAVEL        z_un = 0
COMANDO DURANTE z_un = z_un + 1
C[&M_ENFAT]RIONORTE DISTRIB. DE ALIMENTOS LTDA [&M_NAOENFAT]
C[&M_ENFAT][Sistema][&M_NAOENFAT]
CRelacao de Clientes Preferenciais                 DATA [DATE()]    Pag [Pag 9999][chr(15)]
C[Repl("-",132)]
CCliente                                Rua                            Fone           CGC                INSCRICAO  CIDADE
C[Repl("=",132)]
*9999.99 xxxxxyyyyyxxxxxyyyyyxxxxxyyyyy XXXXXYYYYYXXXXXYYYYYXXXXXYYYYY XXXXXYYYYYXXXX XX.XXX.XXX/XXXX-XX
D[recno() 9999].[CR_ZONA] [CR_Nome @S30] [Cr_rua @s30] [cr_Fone @s14] [CR_CGC] [CR_INSC_EST @S12] [CR_CIDADE @S15]
ULTPAG
ULTPAG[Repl("-",132)]
ULTPAGNumero de Clientes Listados: [z_un @E999,999]
* ULTPAG ----------------------------------------------------------------------