Perguntas Personalizar axaltera

Veja a posição, o seu esta na posição 4, o padrão é na 5.

nOpca := AxAltera(cAlias,nReg,nOpc,aAcho,aAlter,,,"A380TudoOk()",,,,NIL,aRotAuto)

Boa tarde galera tudo bom estou com a seguinte duvida quero exibir apenas alguns campos da SB1 para edição então resolvi fazer da seguinte forma personalizando a axaltera, limitando os campos a serem exibidos, algum já realizou este procedimento pois ele esta apresentando erro

User Function ISFAT046()

Private cCadastro := "Produto"
Private aRotina := {}
Private cAlias := "SB1"
AADD(aRotina,{ "Pesquisa","AxPesqui" ,0,1})
AADD(aRotina,{ "Altera" ,"U_Alte46" ,0,4})
dbSelectArea(cAlias)
dbSetOrder(1)
mBrowse( 6,1,22,75,cAlias)
Return

/*User Function Before()
MsgAlert("Chamada antes da função")
Return */

User Function Alte46()
Local nOpca := 0
//Local aParam := {}
//Private aCpos := {"B1_FILIAL", "B1_COD", "B1_DESC"}
Private aAcho := {B1_FILIAL, B1_COD, B1_DESC, B1_ESTSEG}
Private aButtons := {}
Private cCadastro := "teste" // título da tela
//adiciona botoes na Enchoice
// Add( aButtons, { "PRODUTO", {|| MsgAlert("Teste")}, "Teste", "Botão Teste" } ) //adiciona codeblock a ser executado no inicio, meio e fima
// Add( aParam, {|| U_Before() } ) //antes da abertura
// Add( aParam, {|| U_TudoOK6() } ) //ao clicar no botao
// Add( aParam, {|| U_Transaction() } ) //durante a transacao
// Add( aParam, {|| U_Fim() } ) //termino da transacao
dbSelectArea("SB1")
//AxAltera(cAlias,nReg,nOpc,aAcho,aCpos,nColMens,cMensagem,cTudoOk,cTransact,cFunc, aButtons, aParam, aAuto, lVirtual, lMaximized, cTela,lPanelFin,oFather,aDim,uArea)
//nOpca := AxAltera("SB1",SB1->(Recno()),4,/*aAcho,/*aCpos*/,,,/*"U_TudoOk6()"*/,/*"U_Transaction"*/,/*"U_Before()"*/, aButtons,/*aParam*/,,,/*.T.*/,,,,,)
nOpca := AxAltera("SB1",SB1->(Recno()),4,aAcho,,,,,,, aButtons,,,,,,,,,)
Return nOpca

/*User function TudoOK6()
MsgAlert("Clicou botao ok")
Return .T.

User function Transaction()
MsgAlert("Chamada durante transacao")
Return .T.

User function Fim()
MsgAlert("Fim transacao")
Return .T. */

Alyson, qual é a mensagem de erro que está apresentando, nesta ultima alteração que você mandou ?

Cara substitui essa linha

Private aRotAuto := {"B1_FILIAL","B1_COD","B1_DESC","B1_ESTSEG"}

por essa

nOpc := If (nOpc == Nil,3,nOpc)
aRotAuto := Nil
MsRotAuto(nOpc,aRotAuto,"CCO")