{
=============================================================================
   FORMULARIO         : IPFMWD009
   OBJETIVO           : Desplegar los codigos y nombres de la maestra de
                        clientes
   PROGRAMA Q. LO USA : IPPRMT044
   AUTOR              : JUAN F. SOTO
   FECHA              : FEBRERO 6, 1999
=============================================================================
}
DATABASE marmotech    
SCREEN
{
\g-----------------------------------------------\g
    Codigo      Nombre
\g-----------------------------------------------\g
    [sp]-[cod ] [nom                           ]
    [sp]-[cod ] [nom                           ]
    [sp]-[cod ] [nom                           ]
    [sp]-[cod ] [nom                           ]
    [sp]-[cod ] [nom                           ]
    [sp]-[cod ] [nom                           ]
    [sp]-[cod ] [nom                           ]
    [sp]-[cod ] [nom                           ]
}
end
tables
vetb00004
attributes
sp  = vetb00004.tipo_cliente,comments = "Digite tipo Cliente";
cod = vetb00004.sec_cliente;
nom = vetb00004.nombre;
instructions delimiters " "
screen record s_cliente[8](tipo_cliente,sec_cliente,nombre)
end