FUNCTION deptoSupervisa(usuarios)
 
 DEFINE  kdepartamentos SMALLINT, xddepartamentos CHAR(50),
         cdepartamentos ui.ComboBox,
         usuarios CHAR(30)
         
    LET cdepartamentos = ui.combobox.forname("formonly.cdepartamentos")
    
    DECLARE ddepartamentos CURSOR FOR
    select b.departamento, b.nom_dpto+'('+CAST(b.departamento AS VARCHAR(7))+')' 
        from seg0001 a,  
       adtb00001 b , ADTB00056 c   
        where a.usuario = usuarios  and  b.departamento = c.departamento_visualiza AND
              a.usuario = c.usuario
        
        CALL cdepartamentos.clear()
 
    FOREACH ddepartamentos INTO kdepartamentos,xddepartamentos
        DISPLAY xddepartamentos
      CALL cdepartamentos.additem(kdepartamentos,xddepartamentos)
    END FOREACH 
 END FUNCTION