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.162310

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

Bloco de código

title	Exemplo
linenumbers	true

#include#INCLUDE "protheusProtheus.ch"
  #INCLUDE "FWMVCDEF.CH"

User Function CN121TOTCACN121VLC() As Numeric
    Local oModel    := PARAMIXB[1]     As Object
    Local oModelCND As Object
    Local oModelTOT As Object
    Local oModelCND nVlLiqd := oModel:GetModel("CNDMASTER")  As NumericObject
    Local nTotBPednValorLiquido  As Numeric
    Local nTotMPed  := oModelCND:GetValue('CND_VLLIQD') As Numeric
    Local nTotalBPedido nTotDes    := oModelCND:GetValue('CND_VLBPED') As Numeric
    Local nTotAdt  nTotalMPedido     := oModelCND:GetValue('CND_VLMPED') As Numeric
    Local nTotCauc nTotDescMedicao   := oModelCND:GetValue('CND_DESCME') As Numeric
    Local nModCtnTotAdiantamento  := oModelCND:GetValue('CND_TOTADT') As Numeric

    Local oModelnVlPrevisto := PARAMIXB[1]
    oModelCND := oModeloModelCND:GetModel("CNDMASTER")GetValue('CND_VLPREV') As Numeric
    oModelTOT := oModel:GetModel("TOTMED")
Local nTipoContrato    nModCt := IIf(Cn121RetSt('COMPRA',0,, oModelCND:GetValue('CND_CONTRA')),1,-1) As Numeric
    nVlLiqd := oModelTOT:GetValue('CND_VLLIQD')
Local nTotCaucao       nTotDes := oModelTOT:GetValue('CND_DESCME') 0 As Numeric

    nTotAdt//nTotCaucao := oModelTOT:GetValue('CND_TOTADT') 
    nTotMPed := oModelTOT:GetValue('CND_VLMPED')
    nTotBPed := oModelTOT:GetValue('CND_VLBPED')

    nTotCauc := nVlLiqdnValorLiquido + ((nTotalBPedido - nTotalMPedido) * nTipoContrato) - nTotDescMedicao - nTotAdiantamento // Lógica padrão
    nTotCaucao := nValorLiquido + ((nTotBPednTotalBPedido - nTotMPednTotalMPedido) * nModCtnTipoContrato) - nTotDesnTotDescMedicao - nTotAdt(nTotAdiantamento + //Cálculo padrão
 nVlPrevisto/2)

Return nTotCaucnTotCaucao

Árvore de páginas

Versões comparadas

Versão antiga 2

Nova versão Atual

Chave

01. Dados Gerais

02. Descrição