Histórico da Página

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

Namespace pe.cn121vlc
  
User Function CN121TOTCACN121VLC()
    Local oModel    As ObjectNumeric
    Local oModelCNDoModel As Object
  := PARAMIXB[1] Local oModelTOT As Object
    Local nVlLiqd   As Numeric
    Local nTotBPed  As NumericObject
    Local nTotMPed oModelCND := oModel:GetModel("CNDMASTER") As NumericObject
    Local nTotDesoModelTOT :=  As Numeric
    Local nTotAdt   As NumericoModel:GetModel("TOTMED")    As Object
    Local nTotCauc nValorLiquido As Numeric
    Local nModCt    := oModelTOT:GetValue('CND_VLLIQD') As Numeric

    oModelLocal := PARAMIXB[1]
nTotalBPedido     oModelCND := oModeloModelTOT:GetModel("CNDMASTER")GetValue('CND_VLBPED') As Numeric
    oModelTOT := oModel:GetModel("TOTMED")
Local nTotalMPedido    nModCt := IIf(Cn121RetSt('COMPRA',0,, oModelCNDoModelTOT:GetValue('CND_CONTRAVLMPED')),1,-1) As Numeric
    nVlLiqdLocal nTotDescMedicao   := oModelTOT:GetValue('CND_VLLIQDDESCME') As Numeric
    Local nTotAdiantamento nTotDes := oModelTOT:GetValue('CND_DESCMETOTADT') As Numeric
    Local nTipoContrato   nTotAdt  := oModelTOTIIf(Cn121RetSt('COMPRA',0,, oModelCND:GetValue('CND_TOTADT') CONTRA')),1,-1) As Numeric
    nTotMPed := oModelTOT:GetValue('CND_VLMPED')
Local nTotCaucao       nTotBPed := oModelTOT:GetValue('CND_VLBPED')As Numeric

    nTotCaucnTotCaucao := nVlLiqdnValorLiquido + ((nTotBPednTotalBPedido - nTotMPednTotalMPedido) * nModCtnTipoContrato) - nTotDesnTotDescMedicao - nTotAdt //Cálculo padrão
 
Return nTotCaucnTotAdiantamento
 
    FreeObj(oModel)
    FreeObj(oModelCND)
    FreeObj(oModelTOT)
Return nTotCaucao