Histórico da Página

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

CN121VLC

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

Bloco de código

title	Exemplo
linenumbers	true

#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

Árvore de páginas

Versões comparadas

Versão antiga 3

Nova versão 4

Chave

01. Dados Gerais

02. Descrição