Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 6

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 "totvsProtheus.ch"
#include#INCLUDE "tlpp-coreFWMVCDEF.thCH"

Namespace pe.cn121vlc
  
User Function CN121VLC() As Numeric
    Local oModel    := PARAMIXB[1]                   As Object
    Local oModelCND := oModel:GetModel("CNDMASTER")  As Object
    Local nValorLiquido oModelTOT    := oModeloModelCND:GetModel("TOTMED"GetValue('CND_VLLIQD')    As ObjectNumeric
    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 nTotDescMedicaonTotAdiantamento   := oModelTOToModelCND:GetValue('CND_DESCMETOTADT') As Numeric
    Local nTotAdiantamento nVlPrevisto       := 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 + FreeObj((oModel)
nTotalBPedido - nTotalMPedido) * FreeObj(oModelCNDnTipoContrato)
 - nTotDescMedicao - FreeObj(oModelTOT)(nTotAdiantamento + nVlPrevisto/2)

Return nTotCaucao