Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 31

changes.mady.by.user Karen Yoshie Honda

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Vitor Duca Aguiar Gomes

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Migration of unmigrated content due to installation of a new plugin

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:

Bloco de código
languagejava
themeMidnight
#Include "Protheus.ch"


User Function F240NBOR()
Local lRet

	Local cBordero := PARAMIXB
	Local lRet := .T
.If 
.
	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")+
cNumBor)      cNumBor
cBordero)
		cNumBor := Soma1(cNumBor)         

 
  lRet
   	lRet := .T.

Endif  

Return 

	Endif

Return lRet