{
-------------------------------------------------------------------------------
FORMULARIO           :  CCFMRP020
OBJETIVO             :  Comisiones por Cobro (CCPRRP020)
PROGRAMADOR          :  Juan Fco. Soto
FECHA REALIZACION    :  Mayo 28, 1993   
-------------------------------------------------------------------------------
}
database marmotech   
screen size 24 by 80
{
         Compania           [c]
         Ano Comision       [a1  ]
         Mes Comision       [m1]
         Codigo Vendedor    [c1   ]
}
end
tables
vetb00028,
vetb00003
attributes
c   = vetb00003.cod_cia,include = (1,2),comments = 
"1- Marmotech ";
a1  = formonly.ano1 type CHAR;
m1  = formonly.mes type smallint,include = (1 to 12),comments =
"Digite en formato MM eje. 01 (Enero)";
c1  = vetb00028.sec_vend,
      comments = "Digite el codigo del vendedor o el criterio de seleccion";
instructions
     delimiters " "
end