database smarmotech
screen size 24 by 80
{
Codigo Cliente[f0]-[f001] 
                 
Proyecto      [f002                          ] 
Direccion     [f003                                              ]
Status Proyecto    [a]
Creador [f006     ]                             Fecha  [f008     ]
Modificado [f007            ] Fecha Modificacion[f009            ]
}
end
tables
vetb00004, 
vetb00049
attributes
f0   = vetb00049.tipo_cliente,autonext, 
       comments="Digite el codigo del Cliente o Ctrl-W para busqueda";
f001 = vetb00049.sec_cliente, autonext;

f002 = vetb00049.nombre_proyecto,autonext, upshift, 
       comments="Digite el nombre de la calle donde esta ubicado el Cliente";
f003 = vetb00049.direccion_proyecto,upshift,scroll, 
       comments="Digite el numero de la casa o establecimiento del Cliente";
a    = vetb00049.status_t,noentry;
f006 = vetb00049.us_crea,noentry;
f007 = vetb00049.fech_crea,noentry;
f008 = vetb00049.us_mod,noentry;
f009 = vetb00049.fech_mod,noentry;
end

instructions
delimiters " "