DEFINE pprocedencia ui.ComboBox
FUNCTION procedencias()
 
 DEFINE  kprocedencia SMALLINT, dprocedencia CHAR(50)
 
 LET pprocedencia = ui.combobox.forname("formonly.procedencia")
 
 DECLARE bprocedencias CURSOR FOR
   SELECT a.codigo,a.descripcion FROM tetb00002 a
   WHERE a.status_t IS NULL
   CALL pprocedencia.clear()
 
 FOREACH bprocedencias INTO kprocedencia,dprocedencia
  CALL pprocedencia.additem(kprocedencia,dprocedencia)
 END FOREACH
 
END FUNCTION