Função que abre um browse para cadastrar registros em uma tabela.

Exemplo da Rotina:

AxCadastro("Alias", "Titulo", "Validacao de Exclusao", "Validacao de Inclusao e Alteracao")

Exemplo 1- Função de teste para cadastro de produtos:

AxCadastro – Exemplo 1

//Bibliotecas
#Include "Protheus.ch"

/*/{Protheus.doc} zTeste
Função de Teste
@type function
@author Terminal de Informação
@since 13/11/2016
@version 1.0
    @example
    u_zTeste()
/*/

User Function zTeste()
	Local aArea    := GetArea()
	Local aAreaB1  := SB1->(GetArea())
	Local cDelOk   := ".T."
	Local cFunTOk  := ".T." //Pode ser colocado como "u_zVldTst()"

	//Chamando a tela de cadastros
	AxCadastro('SB1', 'Produtos - Teste', cDelOk, cFunTOk)

	RestArea(aAreaB1)
	RestArea(aArea)
Return

Exemplo em Vídeo:

Clique nesse link para ver um exemplo em Vídeo da nossa Maratona de Exemplos.

Observações:

– Caso tenha dúvidas ou problemas com os exemplos, entre em contato;
– Se tiver sugestões de rotinas, pode entrar em contato;

Referências:

– TDN