Histórico da Página

User Function TesteCad()Private aRotina := 	{{ "Pesquisar"  ,"u_Pesqui",0 , 1},;  //"Pesquisar"			{ "Visualizar" ,"u_Visual", 0 , 2},;  //"Visualizar"			{ "Incluir"    ,"u_Inclui", 0 , 3},;  //"Incluir"			{ "Alterar"    ,"u_Altera", 0 , 4 },;  //"Alterar"			{ "Excluir"    ,"u_Deleta", 0 , 5 }}  //"Excluir"mBrowse(6, 1,22,75,"SA1",,,,,,)Return(.T.)            User Function Before()  	MsgAlert("Chamada antes da função")ReturnUser Function Inclui()                    Local nOpca := 0  Local aParam := {} Private  aButtons := {}Private cCadastro := "123" // título da tela                                                                     //adiciona botoes na Enchoice                       aAdd( aButtons, { "PRODUTO", {|| MsgAlert("Teste")}, "Teste", "Botão Teste" } ) //adiciona codeblock a ser executado no inicio, meio e fimaAdd( aParam,  {|| U_Before() } )  //antes da aberturaaAdd( aParam,  {|| U_TudoOK() } )  //ao clicar no botao okaAdd( aParam,  {|| U_Transaction() } )  //durante a transacaoaAdd( aParam,  {|| U_Fim() } )       //termino da transacaodbSelectArea("SA1")//AxInclui( cAlias, nReg, nOpc, aAcho, cFunc, aCpos, cTudoOk, lF3, cTransact, aButtons, aParam, aAuto, lVirtual, lMaximized, cTela, lPanelFin, oFather, aDim, uArea) nOpca := AxInclui("SA1",SA1->(Recno()), 3,, "U_Before",, "U_TudoOk()", .F., "U_Transaction", aButtons, aParam,,,.T.,,,,,)                                                                       Return nOpcaUser function TudoOK()	MsgAlert("Clicou botao ok")Return .T.    User function Transaction()	MsgAlert("Chamada durante transacao")Return .T.                              User function Fim()	MsgAlert("Fim transacao")Return .T.