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 |