Perguntas Alguem pode me dizer o erro ?

Thiago boa tarde provavelmente vc não setou a função SetRegua(), ela deve estar fora do laço do while, coloque assim SetRegua(0)

Segue um Exemplo:

SetRegua(0)
dbSelectArea("KAD")
DbGoTop()
While KAD->(!Eof())

If lEnd
@ Prow()+1,001 PSAY "CANCELADO PELO OPERADOR"
lContinua := .f.
Exit
EndIf

IncRegua()