* Voce esta na area do SP_MOVF
* 
* INDEX           temp pdesc
* OUTROARQ        se_prod seip_c pcod
* COMANDO DURANTE se_prod->( DbSeek(sp_movf->pcod) )
INCLUDE CLIF.LST
FILTRO  cr_tip_cli = "2"
VARIAVEL        z_un = 0
FORMULA         z_un = z_un + 1
C[Empresa @S40]                                                Data [Date()]
C[Sistema]                                                 Hora [Time()]
CRelacao de Empresas Conveniadas                                        Pag [Pag 9999]
C[Repl("-",80)]
CNome                                     Rua                                 Fone
C[Repl("=",80)]
*9999999 xxxxxyyyyyxxxxxyyyyyxxxxxyyyyy dd.mm.aa xxxxxyyyyy
D[recno() 9999] [cr_Nome] [cr_rua] [cr_fone]
ULTPAG
ULTPAG[Repl("-",80)]
ULTPAGNumero de Empresas Conveniadas: [z_un @E999,999]
* ULTPAG ----------------------------------------------------------------------