{
------------------------------------------------------------------
 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 " "