{
====================================================================
PROGRAMA       : CCFUNCIONES
OBJETIVO       : ALMACENAR LAS FUNCIONES GENERALES DEL SISTEMA CC
PROGRAMADOR    : ING. JUAN SOTO
FECHA CREACION : 5/11/2010
====================================================================
}

FUNCTION localidad()

 DEFINE  klocalidad SMALLINT, dlocalidad CHAR(30),
         plocalidad ui.combobox
 
 LET plocalidad = ui.combobox.forname("formonly.localidad")
 
 DECLARE blocalidad CURSOR FOR
   SELECT a.ventas,a.descripcion FROM vetb00061 a
 CALL pventas.clear()
 
 FOREACH bventas INTO kventas,dventas
  CALL pventas.additem(kventas,dventas)
 END FOREACH
  
END FUNCTION
END FUNCTION