ls_values = adw_source.Describe("DataWindow.Crosstab.Values")
ls_values = "DataWindow.Crosstab.Values='" + ls_values +"'"
adw_dest.Modify(ls_values)

blob     lblb_data      // Buffer 
integer   li_retour      // code retour de fonction 
integer  li_cpt        // compteur
integer  li_nb_obj=0    // nb d'objets 
integer  li_len_string_obj         // Longeur de la chaine d'objets
integer  li_pos_deb =1    integer  li_len_obj_courant      // longeur de chaine de l'objet
integer  li_nb_dim      // Nombre de dimension d'un structure
integer   li_len        // Longueur de la chaine ls_nom_compute
integer  li_indice      

string   ls_name      // nom d'objets
string   ls_type        
string   ls_list_objet    // Liste d'objets
string  ls_sep = '~t'    string  ls_expression    // expression des computes
string  ls_visible       string  ls_nom_compute  string  ls_joker  = "XXXX" string  ls_new_nom    string   ls_retour      // Chaine de retour de fonctions
string  ls_modify      //  Chaine de modify

boolean  lb_fin = false    boolean  lb_is_child = false     
// - On stocke dans un buffer 
//  - et le statut des flags
li_retour = adw_source.getfullstate(lblb_data)

  li_retour = adw_dest.resetupdate()
  li_retour = adw_dest.SetFullState(lblb_data)

ls_retour = adw_dest.Modify("DataWindow.Crosstab.StaticMode=Yes")

//   Valorise une chaine avec la liste des objets de la datawindow , en suite on parcours les objets de cette chaine
ls_list_objet = adw_dest.Describe("datawindow.objects")
    
// On  Valorise une chaine avec la liste des objets de la datawindow pour ensuite la parcourir
ls_list_objet = adw_dest.Describe("datawindow.objects")
if ls_list_objet <> "?" or ls_list_objet <> "!" then
    li_len_string_obj = len(ls_list_objet) 
    li_nb_obj =  Pos(ls_list_objet,ls_sep,1)
  
  if li_nb_obj >= 1 Then
    //  On parcours la liste d'objet
    DO WHILE not lb_fin
            li_nb_obj ++
      
      // On redetermine la position
      li_nb_obj =  Pos(ls_list_objet,ls_sep,1) 
      if li_nb_obj = 0 then 
        lb_fin = true 
        li_nb_obj = li_len_string_obj+1
      end if
          
            ls_name = Mid(ls_list_objet, li_pos_deb, (li_nb_obj - li_pos_deb))
      ls_type = adw_dest.describe(ls_name+".type")
      
      
      //  Dans le cas d'une compute on va lire dans la structure si il existe des infos.
            if ls_type = "compute"  then
        li_len = len(ls_nom_compute)
        lb_is_child = ((li_len > 0) and (ls_nom_compute = left(ls_name, li_len)))
                        if (ls_nom_compute <> ls_name) and  lb_is_child = false then
          li_nb_dim = upperbound(ast_infos_crosstab)        
          if li_nb_dim >0 then
            for li_cpt=1 to li_nb_dim  
              // On regarde si la compute en cours de lecture se trouve dans la structure
              if not isnull(ast_infos_crosstab[li_cpt].nom_compute) and ast_infos_crosstab[li_cpt].nom_compute = ls_name then 
                li_indice  = li_cpt      // stocke l'indice dans la structure as_infos_crosstab
                ls_nom_compute  = ls_name                end if
            next        
          end if
        else 
                    if ls_nom_compute <> "" then 
            ls_expression = ast_infos_crosstab[li_indice].valeur
            ls_new_nom = ast_infos_crosstab[li_indice].nom_colonne +right(ls_name, len(ls_name) - li_len)
            
            ls_expression = f_remplacer_chaine(ls_expression, ls_joker, ls_new_nom,false)
            
            // On applique le modify sur la compute avec la nouvelle expression
            ls_retour = adw_dest.Modify(ls_name +".Expression='"+ls_expression+"'")          
            if ls_retour <> '' then 
              f_isa_error(-1, + ls_retour, "nvo_export_data.uof_rowscopy_crosstab", 16)  
            end if          
          end if   
        end if /*(ls_nom_compute <> ls_name) and  lb_is_child = false*/
      else /*ls_type <> "compute"*/        
        li_indice  = 0    
        ls_nom_compute  = ""  
      end if /*ls_type = "compute"*/      
      
            li_len_obj_courant = len(ls_name)  
      ls_list_objet = Right(ls_list_objet, (li_len_string_obj - li_len_obj_courant - 1))
      
            li_len_string_obj = len(ls_list_objet)
    loop /*lb_fin*/
  end if /*li_nb_obj >= 1*/
end if/*ls_list_objet <> "?" or ls_list_objet <> "!" */