CRIASXE- Retornar o próximo número que deve ser utilizado na inicializaç

Salve salve....

Ponto de entrada CRIASXE- ( Todos ) 

CRIASXE- Retornar o próximo número que deve ser utilizado na inicialização da numeração

#INCLUDE "TOTVS.CH"


/*/{Protheus.doc} CRIASXE
Retornar o próximo número que deve ser utilizado na inicialização da numeração

@type 		function
@author    	Eurai Rapelli
@since     	2023.01.01
/*/
User Function CRIASXE()
	Local cAlias    := PARAMIXB[01]		 	//Nome da tabela
	Local cCpoSx8   := PARAMIXB[02] 		 //Nome do campo que será utilizado para verificar o próximo sequencial
	Local cAliasSx8 := PARAMIXB[03] 		 //Filial e nome da tabela na base de dados que será utilizada para verificar o sequencial
	Local nOrdSX8   := PARAMIXB[04] 		 //Índice de pesquisa a ser usada na tabela.

	Local cNextNum	:= NIL
	Local cQuery    := ""
	Local aArea     := {}
	Local aArea2    := {}






	Begin Sequence

		If At(cAlias,'SA1/') == 0
			Break
		Endif
		aArea     := Getarea()
		aArea2    := (cAlias)->( Getarea() )

		dbselectarea(cAlias)
		(cAlias)->( dbsetorder(nOrdSX8) )




		If cAlias == "SA1"
                        cNextNum := 'XXX'	
		Endif




	End Sequence


	If Len(aArea) > 0
		Restarea(aArea2)
		Restarea(aArea)
	Endif



Return( cNextNum )

Gostou? Compartilhe com seus amigos e deixe um comentário! 😎  

Um abraço, e até a próxima