Histórico da Página
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: |
|
Ponto de Entrada F240NBOR serve para validar o numero do borderô digitado.
Exemplo:
Bloco de código | ||||
---|---|---|---|---|
| ||||
#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 |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas