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
ReturnEndif Return lRet |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas