{
--------------------------------------------------------------------------
FORMULARIO    : VEFMWD101
OBJETIVO      : Desplegar los vendedores (VEPRMT101)
REALIZADO POR : Lic. Abner Montalvo Z.
FECHA         : Diciembre 7, 1992 
--------------------------------------------------------------------------
}
database marmotech     
screen size 24 by 80
{
         Captura Vendedor Para Este Cliente
\g-----------------------------------------------------
  Cliente [c1][c2  ][n1                             ]
\g-----------------------------------------------------
   Vendedor  Nombre          
\g-----------------------------------------------------
   [f1  ][f001                                   ]
   [f1  ][f001                                   ]
   [f1  ][f001                                   ]
   [f1  ][f001                                   ]
}
end
tables
vetb00028
attributes
c1 = vetb00028.tipo_cliente,noentry;
c2 = vetb00028.sec_cliente,noentry;
n1 = formonly.nombre,noentry;
f1 = vetb00028.sec_vend,autonext;
f001 = formonly.nombre_v,noentry;
instructions
   screen record s_vend[4] (sec_vend,nombre_v)
   delimiters " "
end