Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 52

changes.mady.by.user Karen Yoshie Honda

Gravado em

comparado com

Nova versão 53

changes.mady.by.user Vitor Duca Aguiar Gomes

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

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 
 .T.

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
cBordero)
      

	cNumBor := Soma1(cNumBor)         

   
lRet
 lRet := .T.

Endif
 


Return lRet