Estou chamando dentro do menudef uma staticcal --------------------------------------------------------------

ADD OPTION aRotina TITLE 'FUNCAO'  ACTION 'StaticCall( TCOMA093, AcessaPV)'  OPERATION 2 ACCESS 0

. . . A função que eu chamo é essa ....................................................................................................................................................................... . .

Static Function AcessaPV(cPedido)

       Local aArea := GetArea() 

     Private Inclui    := .F.

    Private Altera    := .T.      := 1 

       Private cCadastro := "Pedido de Vendas" 

 cCadastro     Private aRotina := {} 

       DbSelectArea("Z4I") 

       Z4I->(dbSetOrder(1)) 

       Z4I->(dbSeek(xFilial("Z4I")+ cPedido)) 

       If Z4I->(!EOF()) 

           Z4I->(DbGoTo(Recno())) 

           MatA410(Nil, Nil, Nil, Nil, "A410Visual") 

       Endif

       Z4I->(DbCloseArea()) 

       RestArea(aArea)