60 lines
2.4 KiB
Plaintext
60 lines
2.4 KiB
Plaintext
{
|
|
------------------------------------------------------------------
|
|
FORMULARIO : VEFMMT016
|
|
OBJETIVO : Capturar registros de los Itinerario de Visitas
|
|
a Clientes (VEPRMT016)
|
|
PROGRAMADOR : Lic. Abner Montalvo Z.
|
|
FECHA REALIZACION : Diciembre 7, 1992.
|
|
------------------------------------------------------------------
|
|
}
|
|
database marmotech
|
|
screen size 24 by 80
|
|
{
|
|
Fecha Inicial [f000 ] Fecha Final [f001 ]
|
|
Vendedor [f003] [f033 ]
|
|
Cliente [f4]-[f005] [f055 ]
|
|
Fecha Visita [f006 ] Hora Visita [f007 ]
|
|
Compra [a]
|
|
Contacto [c ]
|
|
Observacion [o ]
|
|
[b]
|
|
Usuario Creador [f008 ] Usuario Modificador [f010 ]
|
|
Fecha Creacion [f009 ] Fecha Modificacion [f011 ]
|
|
}
|
|
end
|
|
tables
|
|
vetb00024
|
|
attributes
|
|
f000 = vetb00024.fecha_ini_sem,autonext,format = "dd/mm/yy",
|
|
comments = "Digite la Fecha Inicial de la Semana";
|
|
f001 = vetb00024.fecha_fin_sem,autonext,format = "dd/mm/yy",
|
|
comments = "Digite la Fecha Final de la Semana";
|
|
f003 = vetb00024.sec_vend, autonext,
|
|
comments = "Digite el Codigo del Vendedor o Ctrl-W para busqueda";
|
|
f033 = formonly.descrip6, noentry;
|
|
f4 = vetb00024.tipo_cliente, autonext,
|
|
comments = "Digite el Codigo del Cliente o Ctrl-W para busqueda";
|
|
f005 = vetb00024.sec_cliente, autonext,
|
|
comments = "Digite el Codigo del Cliente o Ctrl-W para busqueda";
|
|
f055 = formonly.nombre, noentry;
|
|
f006 = vetb00024.fecha_visita,autonext,format = "dd/mm/yy",
|
|
comments = "Digite la fecha en que se visito a el Cliente";
|
|
f007 = vetb00024.hora_visita,autonext,picture = "##:##",
|
|
comments = "Digite la hora a que se visito a el Cliente";
|
|
a = vetb00024.compra,autonext,include = ("S","N"), upshift,
|
|
comments = "S = Cliente Hizo Compra(s) N = Cliente no Hizo Compra(s)";
|
|
c = vetb00024.persona_contacto,upshift,comments =
|
|
"Digite Persona Con Quien Hablo el Vendedor";
|
|
o = vetb00024.observacion,upshift,comments =
|
|
"Digite Observaciones del vendedor para esta visita";
|
|
b = vetb00024.status_t, noentry;
|
|
f008 = vetb00024.us_crea, noentry;
|
|
f009 = vetb00024.fech_crea, noentry;
|
|
f010 = vetb00024.us_mod, noentry;
|
|
f011 = vetb00024.fech_mod, noentry;
|
|
end
|
|
|
|
INSTRUCTIONS
|
|
delimiters " "
|
|
|