Em funções e método é indicado o uso de gravação e restauração de posicionamento de registros de todas as tabelas utilizadas dentro da função ou método utilitário.

// ProtectionAgainstDislodgmentSample.prw

aArea := GetArea() // Guarda o ponteiro do resgistro da area ativa

If SB1->(DbSeek(XFilial("SB1") + cVar))

       // Achei o registro, portanto faço o que for necessário

Else

       // Gero retorno negativo da execução do processamento.

Endif

RestArea(aArea) // Restaura a Area amazenada na Variável aArea

  • Sem rótulos