{
==========================================================================
FORMULARIO  :VEFMWD16
OBJETIVO    :MANTENIMIENTO CORPORACIONES
PROGRAMADOR : JUAN F. SOTO
FECHA       : ABRIL 1, 2003
==========================================================================
}
DATABASE rayovac
screen size 24 by 80
{
Codigo [co        ][de                                  ]
============================================================
  Clientes     Nombres                      
============================================================
  [a ][a1      ][b                                         ]
  [a ][a1      ][b                                         ]
  [a ][a1      ][b                                         ]
  [a ][a1      ][b                                         ]
  [a ][a1      ][b                                         ]
  [a ][a1      ][b                                         ]
  [a ][a1      ][b                                         ]
}
tables
vetb00052,vetb00004
attributes
co = vetb00052.codigo_grupo;
de = vetb00052.descripcion;
a = vetb00052.tipo_cliente;
a1 = vetb00052.sec_cliente;
b = vetb00004.nombre,noentry;
instructions
screen record s_datos[7](tipo_cliente,sec_cliente,nombre)
end