[pft]if v5001^s = 'FORM' then @AHHEAD.PFT fi[/pft] [pft]if v5001^s = 'FORM' then[/pft]
[pft]@AHHIDD.PFT[/pft]
[pft]fi[/pft] [pft]if v6000 = 'F' then[/pft]
Database [pft] ,if p(v5004) then, '
' /* agrega informacao ^nNew para executar LoadBaseDef */ ('
'v5004^*,'
') '
' ,else, '
'v5003^* ,fi, [/pft] : Free form
[pft] if p(v5011^h) then '
help
' fi [/pft] [pft] if size(v5014) > 2 then if v5014 : 'B' then `
Basic form
` fi if v5014 : 'A' then `
Advanced form
` fi fi [/pft]
Enter one or more words
All words
(AND)
Any word
(OR)
[pft] /* especifica o indexSearch caso exista um indice default usando o search por tag */ if p(v6099^d) then, (if p(v6099^d) and p(v6099^s) then '
' fi) fi, [/pft]
[pft]fi[/pft] [pft]if v6000 = 'B' then [/pft]
Database [pft] ,if p(v5004) then, '
' /* agrega informacao ^nNew para executar LoadBaseDef */ ('
'v5004^*,'
') '
' ,else, '
'v5003^* ,fi, [/pft] : Basic form
[pft] if p(v5011^h) then '
help
' fi [/pft] [pft] if size(v5014) > 2 then if v5014 : 'F' then `
Free form
` fi if v5014 : 'A' then `
Advanced form
` fi fi [/pft]
Search:
in field:
[pft]@LIST6003.PFT[/pft] [pft],(,[/pft] [pft]if iocc <= 3 then[/pft]
[pft]f(iocc,1,0)[/pft]
[pft],if iocc > 1 then,[/pft]
and
or
and not
[pft]else[/pft]
[pft]fi[/pft]
[pft] `
` [/pft]
[pft]v6099[/pft]
[pft]fi[/pft] [pft],),[/pft]
[pft]fi[/pft] [pft]if v6000 = 'A' then [/pft]
Database [pft] ,if p(v5004) then, '
' /* agrega informacao ^nNew para executar LoadBaseDef */ ('
'v5004^*,'
') '
' ,else, '
'v5003^* ,fi, [/pft] : Advanced form
[pft] if p(v5011^h) then '
help
' fi [/pft] [pft] if size(v5014) > 2 then if v5014 : 'F' then `
Free form
` fi if v5014 : 'B' then `
Basic form
` fi fi [/pft]
Search:
in field:
[pft]@LIST6003.PFT[/pft] [pft],(,[/pft] [pft]if iocc <= 3 then[/pft]
[pft]f(iocc,1,0)[/pft]
[pft],if iocc > 1 then,[/pft]
and
or
and not
[pft]else[/pft]
[pft]fi[/pft]
[pft] `
` [/pft]
[pft]v6099[/pft]
[pft]fi[/pft] [pft],),[/pft]
[pft]fi[/pft]
[pft]if p(v5011^n) then[/pft]
[pft]cat(v5011^n)[/pft]
[pft]fi[/pft] [pft]@AHFOOT.PFT[/pft]