Ponto-de-Entrada: CNTVLDPMS - Execução nas rotinas CNTA090 e CNTA100
Versões: | Microsiga Protheus 8.11 , Microsiga Protheus 10 |
Compatível Países: | Todos |
Sistemas Operacionais: | Todos |
Compatível às Bases de Dados: | Todos |
Idiomas: | Espanhol , Inglês |
Descrição:
LOCALIZAÇÃO : Ponto de entrada executado na rotina CNTA090 e CNTA100.
EM QUE PONTO : após o preenchimento da tela de lançamento de despesas do SIGAPMS:
* Ao executar baixa dos valores de retenção de caução - CNTA100
* Ao incluir caução de abatimento - CNTA090
* Ao executar baixa da caução sem abatimento - CNTA090
Permite validar os lançamentos de projeto do SIGAPMS, realizado através do módulo Gestão de Contratos.
Eventos
Programa Fonte
CNTA090.PRW e CNTA100.PRW
Sintaxe
CNTVLDPMS - Execução nas rotinas CNTA090 e CNTA100 ( < PARAMIXB[1]> ) --> lRet
Parâmetros:
Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
PARAMIXB[1] | Numérico | Valor total do título gerado | X |
Retorno
-
lRet(logico)
- Informa se permite concluir o lançamento
Observações
Exemplos
//No exemplo a seguir, valida se o valor total do título foi lançado corretamente:User Function CNVLDPMS()Local nVl := PARAMIXB[1]//Valor total do tituloLocal lRet := .T.Local nTot := 0Local nx//aRatAFR - array private que armazena o aCols da tela de lançamento de despesa do projetoIf len(aRatAFR) > 0 //Soma os valores rateados For nx:=1 to len(aRatAFR[1,2]) ntot += aRatAFR[1,2,nx,4] NextEndIf//Verifica se o total equivale ao valor do titulolRet := (ntot == nVl)If !lret MsgAlert('O rateio nao compreende o valor total do título')EndIfReturn lRet
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas