[pft]@AHHEAD.PFT[/pft] [pft] proc('d9021a9021!',replace(replace(v5006^a[1],' ',''),',','!a9021!')'!'), proc('d9022a9022!',(if v9021 = v5021[1] then f(iocc,1,0) fi),'!'), [/pft]
[pft]@AHHIDD.PFT[/pft]

Base de datos [pft]v5003^*[/pft] : configurar

[pft] if p(v5011^h) then 'ayuda' else ' ' fi [/pft]
[pft]if s(mpu,v5006^m,mpl) = 'ON' then[/pft]
 
Idioma de la interface
 
[pft]else[/pft] [pft]fi[/pft]
 
Barra de navegación
 
Sí     No
 
Presentación del resultado
[pft]if a(v1002) then[/pft]
 
Mostrar hasta  referencias por página
[pft]else[/pft] [pft]fi[/pft] [pft]if nocc(v5005) > 2 then[/pft] [pft] /* procedimento que marca o texto a ser apresentado como label ^L para as opções de formato de apresentação */ proc('d5005',('a5005!',replace(v5005,s('^'v9022[1]),'^L'),'!')), [/pft]
 
Formato de presentación     [pft]else[/pft] [pft]v5005^p[/pft] [pft]fi[/pft]