Árvore de páginas


Linha de Produto:

Microsiga Protheus

Segmento:

Serviços

Módulo:

Gestão de Contratos

Função:

CNTA300, CNTA300R

Situação/Requisito:

Não existe campo no cronograma financeiro informando a diferença de valores com a revisão anterior para lançamento no PCO na aprovação de revisão

Solução/Implementação:

O lançamento 000357 do PCO referente ao cronograma financeiro dos contratos possui dois lançamentos distintos para contratos:

Item 01: CRONOGRAMA DO CONTRATO - CRONOGRAMA FINANCEIRO, realizado na inclusão do contrato e;

Item 03: CRONOGRAMA DO CONTRATO - CRONOGRAMA FINANCEIRO - APROVAÇÃO REVISÃO, realizado na aprovação de uma revisão do contrato.                                          


O cadastro da regra para definição do valor que será lançado no PCO é aberto para que seja possível a inclusão de qualquer regra, portanto o módulo de Gestão de Contratos não possui domínio sobre estes valores, sendo de responsabilidade do criador da regra adequar esta a suas necessidades.

Para o caso especifico onde é necessário realizar o lançamento da diferença de valores entre revisões contratuais, sugerimos o desenvolvimento de uma regra que retorne a diferença destes valores. Segue abaixo exemplo de regra que pode ser utilizada para esta situação.


Função exemplo de calculo
#include "TOTVS.CH"
#include "TBICONN.CH"
#include "TOPCONN.CH"

USER FUNCTION CalcVlDif()
Local aAreaCNF	:= CNF->(GetArea())
Local cRevAnt := CnRevAnt(.F.,CNF->CNF_REVISA)
Local nRet := 0

//- CNF Indice 3: Num Contrato + Num.revisao + Num Cronogra + Num Parcela
nRet := CNF->CNF_VLPREV - Posicione("CNF",3,CNF->(CNF_FILIAL+CNF_CONTRA) +cRevAnt+ CNF->(CNF_NUMERO+CNF_PARCEL),"CNF_VLPREV") 

RestArea(aAreaCNF)
Return nRet