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)