Perguntas Personalizar axaltera

cara não entendi nOpc := If (nOpc == Nil,3,nOpc) deu erro abaixo
mudei ela para If (nOpc == Nil,3,4) tenho que inicializar nOpc com algum valor?



____________________________________________________________________________________
THREAD ERROR (Alyson_Martins, TI50_PR) 21/06/2012 11:02:25
variable does not exist NOPC on U_ALTE46(ISFAT046.PRW) 21/06/2012 10:57:05 line : 19
_______________________________________________________________________________

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 Alte46()
Local nOpca := 0
local nOpc := If (nOpc == Nil,3,nOpc )
//segunda tentativa> local nOpc := If (nOpc == Nil,3,4)
local aRotAuto := Nil
local aAlter := {"B1_FILIAL", "B1_COD", "B1_DESC"}
local aAcho := {"B1_FILIAL", "B1_COD", "B1_DESC", "B1_ESTSEG"}
local aButtons := {}
local cCadastro := "teste"

dbSelectArea("SB1")

// Fiz o procedimento das seguintes maneiras
primeira> nOpca := AxAltera("SB1",SB1->(Recno()),4,aAcho,,,,"FAT46TudoOk()",,,,NIL,aRotAuto)
segunta> nOpca := AxAltera("SB1",SB1->(Recno()),nOpc,aAcho,,,,"FAT46TudoOk()",,,,NIL,aRotAuto)

Return nOpca

User function FAT46TudoOk()
MsgAlert("Clicou botao ok")
Return .T.

voltou no mesmo
_______________________________________________________
THREAD ERROR (Alyson_Martins, TI50_PR) 21/06/2012 11:28:07
array out of bounds [4] of [2] on MSMGET:NEW(MSMGETPR.PRW) 02/01/2012 18:58:49 line : 946

[TOTVS build: 7.00.111010P-20120314]
Called from AXALTERA(MATXATU.PRX) 01/03/2012 08:42:32 line : 375
Called from U_ALTE46(ISFAT046.PRW) 21/06/2012 11:26:53 line : 29
Called from FWMBROWSE:EXECUTE(FWFORMBROWSE.PRW) 22/05/2012 11:38:01 line : 1013
_________________________________________________________


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 Alte46()
Local nOpca := 0
local nOpc := 3
local aRotAuto := Nil
local aAlter := {"B1_FILIAL", "B1_COD", "B1_DESC"}
local aAcho := {"B1_FILIAL", "B1_COD", "B1_DESC", "B1_ESTSEG"}
local aButtons := {}
local cCadastro := "teste"

nOpc := If (nOpc == Nil,3,4)

dbSelectArea("SB1")

nOpca := AxAltera("SB1",SB1->(Recno()),nOpc,aAcho,,,,"FAT46TudoOk()",,,,NIL,aRotAuto)

Return nOpca

User function FAT46TudoOk()
MsgAlert("Clicou botao ok")
Return .T.

solução... para quem interessar fica a dica de como personalizar uma axaltera ou uma axvisual seguindo essa logica podemos desabilitar campos sua visualização e edição etc...melhor que fazer a tela toda na mão...

#INCLUDE "rwmake.ch"

User Function Exemplo()
Private cCadastro := "Editar Estoque de segurança"
Private cDelFunc := ".T."
Private cString := "SB1"
Private aRotina := { { "Pesquisar" , "AxPesqui" , 0 , 1 } ,;
{ "" , "" , 0 , 2 } ,;
{ "Alterar" , "U_AltFT46" , 0 , 4 } ,;
{ "Visualizar" , "U_VisFT46" , 0 , 2 } ,;
{ "" , "" , 0 , 4 } ,;
{ "" , "" , 0 , 2 } }
dbSelectArea("SB1")
dbSetOrder(1)
dbSelectArea(cString)
mBrowse( 005, 005,093,180,cString )

Return

User Function FlpUm()
Alert("FlpUm")
Return

User Function AltFT46()

Local aAlias := SB1->(GetArea())
local aAlter :={"B1_ESTSEG"}// campo travado a edição
local aAcho := {"B1_FILIAL", "B1_COD", "B1_DESC", "B1_ESTSEG"}// campo a ser editado
//Local cTudOk := "NaoVazio(M->B1_COD)"
Local nRet

nRet := AxAltera("SB1", SB1->(RecNo()), 4, aAcho, aAlter,,,/*cTudOk*/,,,,,,.T.)

If nRet == 1
SB1->(DbGoTop())
Else
RestArea(aAlias)
EndIf
Return

User Function VisFT46()

Local aAlias := SB1->(GetArea())
local aAcho := {"B1_FILIAL", "B1_COD", "B1_DESC", "B1_ESTSEG"} //campos a ser visualizado
//Local cTudOk := "NaoVazio(M->B1_COD)"
Local nRet

nRet := AxVisual("SB1", SB1->(RecNo()), 4, aAcho,,,,/*cTudOk*/,,,,,,.T.)

If nRet == 1
SB1->(DbGoTop())
Else
RestArea(aAlias)
EndIf
Return


User Function FlpQuatro()
Alert("FlpQuatro")
Return

User Function FlpCinco()
Alert("FlpCinco")
Return

683Boa tarde Alyson,
Estou com o mesmo problema porém não consegui solucionar,,,,,

Como conseguiu rodar o fonte?


Desde já Agradeço!