Função que inclui um registro na tabela.

Exemplo da Rotina:

AxInclui("Alias", 0, 3)

Exemplo 1- Incluindo um novo produto:

AxInclui – 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 nOpcao      := 0
	Private cCadastro := "Teste"

	DbSelectArea('SB1')
	SB1->(DbSetOrder(1)) //B1_FILIAL + B1_COD
	SB1->(DbGoTop())

	//Chama a inclusão
	nOpcao := AxInclui('SB1', 0, 3)
	If nOpcao == 1
		MsgInfo("Produto incluído: "+SB1->B1_COD, "Atenção")
	EndIf

	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