FUNCTION busca_departamento()                                                   
DEFINE pdepartamento ui.combobox,                                              
        kdepartamento SMALLINT,kdescripcion CHAR(30) 
   
       LET  pdepartamento = ui.combobox.forname("formonly.departamento")  
       CALL pdepartamento.clear()                                         
       DECLARE pagar CURSOR FOR                                           
         SELECT departamento, nom_dpto FROM adtb00001                     
         WHERE status_t is null 
         ORDER BY nom_dpto
       FOREACH pagar INTO kdepartamento,kdescripcion
         CALL pdepartamento.additem(kdepartamento,kdescripcion)                        
       END FOREACH 
    
END FUNCTION
{
FUNCTION departamento_user()
   DEFINE departamentos_user DYNAMIC ARRAY OF RECORD
     departamento INT,
     titulo VARCHAR(100) 
   END RECORD  
   
   DECLARE busca_dep CURSOR FOR
      SELECT '0',a.departamento,a.nom_dpto,a.tipo_departamento
      FROM adtb00001 a WHERE a.status_t IS NULL
      ORDER BY a.nom_dpto

      
      LET idx = 1
      FOREACH busca_dep INTO arr_departamentos[idx].*
         LET idx = idx + 1
      END FOREACH
      
END FUNCTION
}

FUNCTION departamento_user(xuser)                                                   
DEFINE pdepartamento ui.combobox,                                              
        kdepartamento SMALLINT,kdescripcion CHAR(30),
        xuser STRING 
   
       LET  pdepartamento = ui.combobox.forname("formonly.departamento")  
       CALL pdepartamento.clear()                                         
       DECLARE depto CURSOR FOR                                           
         SELECT a.departamento, a.nom_dpto FROM adtb00001 a,adtb00056 b                     
         WHERE a.departamento = b.departamento_visualiza AND
               b.usuario = xuser AND 
               a.status_t is null 
         ORDER BY nom_dpto
       FOREACH depto INTO kdepartamento,kdescripcion
         CALL pdepartamento.additem(kdepartamento,kdescripcion)                        
       END FOREACH 
    
END FUNCTION