Faire un Filtrage spécifique des colonnes

On ne souhaite exporter que les colonnes ecrdt, lib, mtdev(1) et mtdev(2) :
;*
public procedure Export_Tableau_av
;
Beginp
PingLocal("filtreColVisible", "N")
endp
;*
public function char Export_Tableau_FiltreColonne
;
Record "ddsys.dhsd"COLUMNINFO
beginf
PingLocalReceive("COLUMNINFO",COLUMNINFO)
if (COLUMNINFO.Nomdonnee in ('ecrdt', 'lib'))
freturn('O')
endif
if (COLUMNINFO.Nomdonnee = 'mtdev')
if (COLUMNINFO.Indices(1) in (1, 2))
freturn('O')
endif
endif
freturn('N')
endf

On souhaite exporter toutes les colonnes, sans filtrage :
;*
public procedure Export_Tableau_av
;
Beginp
PingLocal("filtreColVisible", "N")
endp
;*
public function char Export_Tableau_FiltreColonne
;
beginf
freturn('O')
endf
On ne veut jamais exporter la colonne "Bitmap", sinon selon la visibilité
;*
public procedure Export_Tableau_av
;
Beginp
PingLocal("filtreColVisible", "N")
endp
;*
public function char Export_Tableau_FiltreColonne
;
Record "ddsys.dhsd"COLUMNINFO
1 EstVisible B ; La colonne est-elle visible ?
Beginf
PingLocalReceive("COLUMNINFO",COLUMNINFO)
PingLocalReceive("EstVisible",EstVisible)
if (COLUMNINFO.Nomdonnee in ('bitmap'))
freturn('N')
endif
if EstVisible = true
freturn('O')
else
freturn('N')
endif
endf