FUNCTION deptorelacionado()
 DEFINE pdepartamento SMALLINT,pdescripcion CHAR(30),
        kdepto ui.ComboBox
  LET kdepto = ui.ComboBox.forName("formonly.departamento_relaciona")  
  CALL kdepto.clear()
  
  DECLARE busca_dpto CURSOR FOR
    SELECT a.departamento,a.nom_dpto FROM adtb00001 a
    WHERE a.status_t IS NULL
    ORDER BY a.nom_dpto
    
  FOREACH busca_dpto INTO pdepartamento,pdescripcion
   CALL kdepto.additem(pdepartamento,pdescripcion)
  END FOREACH

END FUNCTION