Perguntas Tela de Cadastro

Alguém tem algum exemplo de tela de cadastro de produtos ?

att

se é uma tela simples, faz um AxCadastro

Qualquer coisa,

Segue um exemplo de AXCADASTRO.

User Function TesteCad()

Local aRotAdic :={}
Local bPre := {||MsgAlert('Chamada antes da função')}
Local bOK := {||MsgAlert('Chamada ao clicar em OK'), .T.}
Local bTTS := {||MsgAlert('Chamada durante transacao')}
Local bNoTTS := {||MsgAlert('Chamada após transacao')}
Local aButtons := {}

//adiciona botões na tela de inclusão, alteração, visualização e exclusao
aadd(aButtons,{ "PRODUTO", {|| MsgAlert("Teste")}, "Teste", "Botão Teste" } )

//adiciona chamada no aRotina
aadd(aRotAdic,{ "Adicional","U_Adic", 0 , 6 })

AxCadastro("SA1", "Clientes", "U_DelOk()", "U_COK()", aRotAdic, bPre, bOK, bTTS, bNoTTS, , , aButtons, , )
Return(.T.)

User Function DelOk()
MsgAlert("Chamada antes do delete")
Return

User Function COK()
MsgAlert("Clicou botao OK")
Return .t.

User Function Adic()
MsgAlert("Rotina adicional")
Return

Abraços.