Função que confirma a numeração

Exemplo da Rotina:

ConfirmSX8()

Exemplo 1- Pegando o próximo código do campo A1_COD da tabela SA1:

//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 cCodigo := ''

	Begin Transaction
		//Pegando o último código do cliente conforme a SXE / SXF
		cCodigo := GetSXENum('SA1', 'A1_COD')

		//Perguntando se deseja confirmar esse código, para confirmar e atualizar as tabelas SXE / SXF
		If MsgYesNo("Deseja confirmar o código "+cCodigo+"?", "Atenção")
			ConfirmSX8()

		//Senão, volta a numeração onde estava
		Else
			RollBackSX8()
		EndIf
	End Transaction

	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