CriaSXE - Controle de Numeração

Descrição:

Ponto de entrada para retornar o próximo número que deve ser utilizado na inicialização da numeração. Este ponto de entrada é recomendado para casos em que deseja-se alterar a regra padrão de descoberta do próximo número.
A execução deste ponto de entrada, ocorre em casos de perda das tabelas SXE/SXF ( versões legado ) e de reinicialização do License Server.

Programa Fonte

MATXATU.PRX

Sintaxe

CriaSXE - Controle de Numeração ( [ PARAMIXB ] ) --> cRet

Parâmetros:

Retorno
cRet

(caracter)
• Número que será utilizado pelo controle de numeração. Caso seja retornado Nulo ( NIL ), a regra padrão do sistema será aplicada. Esta função nunca deve retornar uma string vazia.

Observações
Este ponto de entrada é executado quando não existir uma numeração no SXE para o campo especificado.

Parâmetro PARAMIXB

Estrutura do parâmetro

• [1] - cAlias - Nome da tabela;
• [2] - cCpoSX8 - Nome do campo que será utilizado para verificar o próximo sequencial;
• [3] - cAliasSX8 - Filial e nome da tabela na base de dados que será utilizada para verificar o sequencial;
• [4] - nOrdSX8 - Índice de pesquisa a ser usada na tabela.

Exemplos

#include "protheus.ch"

User Function CRIASXE()
    // o retorno desse ponto de entrada precisa ser nil para tabelas que não serão tratadas
	Local cNum := NIL

    Local _aArea := FwGetArea()
	Local cAlias    := paramixb[1]
	Local cCpoSx8   := paramixb[2]
	Local cAliasSx8 := paramixb[3]
	Local nOrdSX8   := paramixb[4]
	Local cUsa := "SE1"

	// colocar os alias que irão permitir a execução do P.E.
	if cAlias $ cUsa .and.  ! ( Empty(cAlias) .and. empty(cCpoSx8) .and. empty(cAliasSx8) )
		qout(cAlias + "-" + cCpoSx8 + "-" + cAliasSx8 + "-" + str(nOrdSX8))
		dbselectarea(cAlias)
		aArea2 := getarea()
		dbsetorder(nOrdSX8)
		dbseek(xfilial()+"Z")
		dbskip(-1)
		cNum := &(cCpoSx8)
		cnum := soma1(cNum)
		// fazer o tratamento aqui para a numeracao
		MsgGet2( "Indique o numero correto para a tabela:" + calias, "Campo:"+cCposx8, @cNum, , , )
        FwRestArea(_aArea)
	EndIf
Return cNum