Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 9

changes.mady.by.user Henrique Willian Testi

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Ivan Ueno Magno

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

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

 nTotCaucao

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

 

Bloco de código
titleExemplo
linenumberstrue
#include#INCLUDE "tlpp-coreProtheus.thch"
#INCLUDE  
namespace pe

"FWMVCDEF.CH"

User Function CN121VLC() As Numeric
    Local oModel    := PARAMIXB[1]                   As Object
    Local oModelCND := oModel:GetModel("CNDMASTER")  As Object
    Local oModelTOTnValorLiquido     := oModeloModelCND:GetModel("TOTMED")     As ObjectGetValue('CND_VLLIQD') As Numeric
    Local nValorLiquidonTotalBPedido     := oModelTOToModelCND:GetValue('CND_VLLIQDVLBPED') As Numeric
    Local nTotalBPedidonTotalMPedido     := oModelTOToModelCND:GetValue('CND_VLBPEDVLMPED') As Numeric
    Local nTotalMPedido  nTotDescMedicao   := oModelTOToModelCND:GetValue('CND_VLMPEDDESCME') As Numeric
    Local nTotDescMedicao nTotAdiantamento  := oModelTOToModelCND:GetValue('CND_DESCMETOTADT') As Numeric
    Local nTotAdiantamentonVlPrevisto       := oModelTOToModelCND:GetValue('CND_TOTADTVLPREV') As Numeric
    Local nTipoContrato     := IIf(Cn121RetSt('COMPRA',0,, oModelCND:GetValue('CND_CONTRA')),1,-1) As Numeric
    Local nTotCaucao        := 0 As Numeric

    //nTotCaucao := nValorLiquido + ((nTotalBPedido - nTotalMPedido) * nTipoContrato) - nTotDescMedicao - nTotAdiantamento // Lógica padrão
    nTotCaucao := nValorLiquido + ((nTotalBPedido - nTotalMPedido) * nTipoContrato) - nTotDescMedicao - (nTotAdiantamento + nVlPrevisto/2)

Return nTotCaucao