Files
MBS/PROYECTO/vedir/vefmmt103.per
T

64 lines
2.6 KiB
Plaintext

database marmotech
screen size 24 by 80
{
Codigo Cliente [f0]-[f001] [f0011 ]
Fecha Solicitud [f002 ]
Condicion Ventas [f3] [f31 ]
Nombre Solicitante [f004 ]
Cedula Solicitante [f005 ] Serie [f006 ]
Calle [f007 ] Casa No.[f008 ]
Barrio [f009 ] Urbanizacion [f010 ]
Codigo Provincia [f2][f22 ] Telefono [f013 ]
[a]
Usuario Creador [f047 ] Usuario Modificador [f049 ]
Fecha Creacion [f048 ] Fecha Modificacion [f050 ]
}
end
tables
vetb00004,
vetb00006,
vetb00008,
vetb00009,
vetb00020
attributes
f0 = vetb00006.tipo_cliente_s,autonext,
comments="Digite el Codigo del Cliente o Crtl-W para Busqueda";
f001 = vetb00006.sec_cliente_s,autonext,
comments="Digite el Codigo del Cliente o Crtl-W para Busqueda";
f0011 = vetb00004.nombre,noentry;
f002 = vetb00006.fecha_solicitud_s,autonext,format="dd/mm/yy",
comments="Digite la fecha de solicitud de credito";
f3 = vetb00006.condicion_venta_s,autonext,upshift,
comments="Digite la condicion de venta para el Cliente o Ctrl-W para busqueda";
f31 = formonly.descrip1,noentry;
f004 = vetb00006.solicitante_s,autonext,upshift,
comments="Digite el nombre del solicitante del credito";
f005 = vetb00006.cedula_s,autonext,
comments="Digite la cedula del solicitante";
f006 = vetb00006.serie_s,autonext,
comments="Digite la serie de la cedula";
f007 = vetb00006.calle_s,autonext,upshift,
comments="Digite el nombre de la calle donde vive el solicitante";
f008 = vetb00006.casa_num_s,autonext,
comments="Digite el numero de la casa del solicitante";
f009 = vetb00006.barrio_s,autonext,upshift,
comments="Digite el barrio donde vive el solicitante";
f010 = vetb00006.urbanizacion_s,autonext,upshift,
comments="Digite la urbanizacion donde vive el solicitante";
f2 = vetb00006.cod_provincia_s,autonext,
comments=
"Codigo de la Provincia a que pertenece el solicitante o Crtl-W para busqueda";
f22 = vetb00020.nombre_provincia,noentry;
f013 = vetb00006.telefono_s,autonext,picture="###-####",
comments="Digite el telefono del Solicitante";
a = vetb00006.status_t,noentry;
f047 = vetb00006.us_crea,noentry;
f048 = vetb00006.fech_crea,noentry;
f049 = vetb00006.us_mod,noentry;
f050 = vetb00006.fech_mod,noentry;
end
instructions
delimiters " "