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

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