Função que pega o próximo código sequencial (SXE / SXF)

Exemplo da Rotina:

GetSXENum("Alias", "Campo")

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

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

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;