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:

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
nTotCaucao	Numérico - Valor para alteração do valor de base

Bloco de código

title	Exemplo
linenumbers	true

#include "totvs.ch"
#include "tlpp-core.th"

Namespace pe.cn121vlc
  
User Function CN121VLC() As Numeric
    Local oModel    := PARAMIXB[1]                   As Object
    Local oModelCND := oModel:GetModel("CNDMASTER")  As Object
    Local oModelTOT := oModel:GetModel("TOTMED")     As Object
    Local nValorLiquido     := oModelTOT:GetValue('CND_VLLIQD') As Numeric
    Local nTotalBPedido     := oModelTOT:GetValue('CND_VLBPED') As Numeric
    Local nTotalMPedido     := oModelTOT:GetValue('CND_VLMPED') As Numeric
    Local nTotDescMedicao   := oModelTOT:GetValue('CND_DESCME') As Numeric
    Local nTotAdiantamento  := oModelTOT:GetValue('CND_TOTADT') As Numeric
    Local nTipoContrato     := IIf(Cn121RetSt('COMPRA',0,, oModelCND:GetValue('CND_CONTRA')),1,-1) As Numeric
    Local nTotCaucao        As Numeric

    nTotCaucao := nValorLiquido + ((nTotalBPedido - nTotalMPedido) * nTipoContrato) - nTotDescMedicao - nTotAdiantamento
 
    FreeObj(oModel)
    FreeObj(oModelCND)
    FreeObj(oModelTOT)
Return nTotCaucao

Árvore de páginas

Versões comparadas

Versão antiga 6

Nova versão 7

Chave

01. Dados Gerais

02. Descrição