Histórico da Página

...

Exemplo:

#Include 'Protheus.ch'

User

...

Function AT740INITD( oModel )
Local oMdlTeste := oModel:GetModel("TXX_TESTE")
Local nw

If !oMdlTeste:isEmpty() //Verifica se há dados no modelo
   

...

MsgAlert(/*Mensagem*/, /*Titulo*/)

...

  For nw := 1 to oMdlTeste:Length() //Percorre todas as linhas da grid
            oMdlTeste:GoLine(nw) //Posiciona na linha
            oMdlTeste:LoadValue("TXX_NOME", "TESTE") //Carrega o valor
            //...
      Next nw
EndIf

Return