Ponto-de-Entrada: OI001FNV - Tratamento de Fases do Orçamento
| Versões: | Microsiga Protheus 10 , Microsiga Protheus 11 |
| Compatível Países: | Todos |
| Sistemas Operacionais: | Todos |
| Compatível às Bases de Dados: | Todos |
| Idiomas: | Português (Brasil) |
Descrição:
Este Ponto de Entrada permite tratar as fases do orçamento que não sejam padrão.
Eventos
User Function OI001FNV()
Local lPassou := .f.
Local cFaseAtu := ParamIxb[1]
Local cNumOrc := VS1->VS1_NUMORC
if cFaseAtu == "V"
//
// Faz o tratamento necessário e seta o lPassou
//
// se o orcamento pode passar de fase retorna .t.
if lPassou == .t.
return { .t. }
else // caso contrário, retorna a mensagem.
OI001ATU(cNumOrc,"V")
return { .f., {"Checar verba. Nao Passou.",.t.,.f.,.f.} }
endif
endif
return { .t. }
Programa Fonte
OFIXI001
Sintaxe
OI001FNV - Tratamento de Fases do Orçamento ( [ cFaseAtu ] ) --> aRet
Parâmetros:
| Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
| cFaseAtu | Caracter | Código da Fase na sequencia do MV_FASEORV |
Retorno
-
aRet(vetor)
- {.t.} se a fase foi executada com sucesso{.f.,{"Mensagem de Erro",lPerRol,lObrRoll,lAborta}
Observações
// CHAMA PTO ENTRADA
if ExistBlock("OI001FNV")
aRet := ExecBlock("OI001FNV",.f.,.f.,{cFaseAtu})
if aRet[1] == .f.
return aRet[2]
endif
Endif
Variáveis
| Nome | Tipo | Escopo | Pode Alterar | descrição | ||||||||||
| Array of Record | Global | Não |