Função que abre um browse para cadastrar registros em uma tabela.
Exemplo da Rotina:
1 | AxCadastro("Alias", "Titulo", "Validacao de Exclusao", "Validacao de Inclusao e Alteracao") |
Exemplo 1- Função de teste para cadastro de produtos:
AxCadastro – Exemplo 1
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 | //Bibliotecas#Include "Protheus.ch"/*/{Protheus.doc} zTesteFunçã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