Utilizado o programa abaixo para ajustar o campo FLG da tabela HAT de 1 para 0.
# Marcel Cruz - Ajuste docs pendentes de contabilização
#---------------------------------------------------------------------------------------------------------------------
If !clalev ([F:HAT]) : Local File GACCTMP[HAT] : Endif
For [F:HAT] Where FLG = 1
[F:HAT]FLG = 0
Rewrite [F:HAT]
# Infbox "doc: " - num$([F:HAT]NUM) - "estab: " - num$([F:HAT]FCY)
Next
#---------------------------------------------------------------------------------------------------------------------