Linha Microsiga Protheus

Árvore de páginas

Ponto de Entrada

Descrição:

Ponto de Entrada F240NBOR serve para validar o numero do borderô digitado.

Localização:

Borderô de Pagamento

Eventos:

Borderô de Pagamento

Programa Fonte:

FINA240

Função:

FA240NUM

Retorno:

Nome

Tipo

Descrição

Obrigatório

 lRet

Logico

Confirma Validação

Sim

 

Ponto de Entrada F240NBOR serve para validar o numero do borderô digitado.

Exemplo:

#Include "Protheus.ch"

User Function F240NBOR()
	Local cBordero := PARAMIXB
	Local lRet := .T.
	Local cMVNUMBOR := ""
	
	//Verifica se é o ultimo borderô gerado
	cQuery := "SELECT ISNULL(MAX(EA_NUMBOR),'') MVNUMBOR FROM "+RetSqlName("SEA")+" WHERE D_E_L_E_T_ = ' ' "
	cMVNUMBOR := MpSysExecScalar(cQuery,"MVNUMBOR")

	If cMVNUMBOR == cBordero
		lRet := .F.
		Help(" ",1,"F240BORDE")
	Endif	 

	//Validação se conseguiu reservar o numero
	If lRet .and. !MayIUseCode("E2_NUMBOR"+xFilial("SE2")+cBordero)
		cNumBor := Soma1(cNumBor)         
    	lRet := .T.
	Endif

Return lRet