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

END FUNCTION