database marmotech
screen size 24 by 80
{
   Codigo de Cliente    [f0]-[f001] [nomb                          ]
   Tipo de Negocio      [f1             ]
   Tipo de Cliente      [f002           ]
   Frecuencia de Visita [f003           ]
   Tipo de Pago         [f004           ]
   [a]
   Usuario Creador      [f005     ] Fecha de Creacion    [f006            ]
   Usuario Modificador  [f007     ] Fecha de Modificacion[f008            ]
}
end
tables
vetb00040
attributes
f0   = vetb00040.tipo_cliente,comments="Digite Codigo de Cliente";
f001 = vetb00040.sec_cliente,comments="Digite Codigo de Cliente";
nomb = formonly.nombre type char,noentry;
f1   = vetb00040.tipo_negocio,upshift,comments="Digite Tipo de Negocio";
f002 = vetb00040.tipo_cte,upshift,comments="Digite Tipo de Cliente";
f003 = vetb00040.frecuencia_visita,upshift,comments="Digite la Frecuencia";
f004 = vetb00040.tipo_pago,upshift,comments="Digite Tipo de pago de Cliente";
a = vetb00040.status_t,noentry;
f005 = vetb00040.us_crea,noentry;
f006 = vetb00040.fech_crea,noentry;
f007 = vetb00040.us_mod,noentry;
f008 = vetb00040.fech_mod,noentry;
instructions delimiters " "
end