01. Dados Gerais

Linha de Produto:

Microsiga Protheus®

Segmento:

Serviços

Módulo:

Gestão de Contratos

Rotina:

Rotina

Nome Técnico

CNTA121

Medições do Contrato

Parâmetro(s):

PARAMIXB[1]

Ponto de Entrada:

CN121TOTCA 

Versão:Protheus 12.1.16

02. Descrição

Descrição:

Ponto de Entrada desenvolvido para permitir modificar a base de cálculo da caução durante uma medição

Eventos:

Na função da rotina CNTA121

Programa Fonte:

CNTA121.prw

Função:

Cn121VlrMd()

Retorno:

Nome

Tipo

 nTotCauc

Numérico - Valor para alteração do valor de base

 

#include "protheus.ch"
  
User Function CN121TOTCA()
    Local oModel    As Object
    Local oModelCND As Object
    Local oModelTOT As Object
    Local nVlLiqd   As Numeric
    Local nTotBPed  As Numeric
    Local nTotMPed  As Numeric
    Local nTotDes   As Numeric
    Local nTotAdt   As Numeric
    Local nTotCauc  As Numeric
    Local nModCt    As Numeric

    oModel := PARAMIXB[1]
    oModelCND := oModel:GetModel("CNDMASTER")
    oModelTOT := oModel:GetModel("TOTMED")
    nModCt := IIf(Cn121RetSt('COMPRA',0,, oModelCND:GetValue('CND_CONTRA')),1,-1)
    nVlLiqd := oModelTOT:GetValue('CND_VLLIQD')
    nTotDes := oModelTOT:GetValue('CND_DESCME')
    nTotAdt := oModelTOT:GetValue('CND_TOTADT') 
    nTotMPed := oModelTOT:GetValue('CND_VLMPED')
    nTotBPed := oModelTOT:GetValue('CND_VLBPED')

    nTotCauc := nVlLiqd + ((nTotBPed - nTotMPed) * nModCt) - nTotDes - nTotAdt //Cálculo padrão
 
Return nTotCauc