PVLRSUGV - Alteração do valor sugerido de venda de máquinas e veículos

Este Ponto de Entrada permite efetuar a alteração do valor sugerido de venda de máquinas e veículos.

User Function PVLRSUGV()
Local nVlrVda := ParamIxb[01] // (valor sugerido de venda já calculado)
Local _cChaInt := ParamIxb[02] // (chassi interno do veiculo)
Local _cCodMar := ParamIxb[03] // (marca do veiculo)
Local _cModVei := ParamIxb[04] // (modelo do veiculo)
Local _cSegMod := ParamIxb[05] // (segmento do modelo do veiculo)
Local _cCorVei := ParamIxb[06] // (cor do veiculo)

MsgInfo("Ponto de entrada PVLRSUGV executado com sucesso!")

Return(nVlrVda)

Português(Brasil)

Todas

Todos

Todas

nVlrVda (valor sugerido de venda já calculado)

_cChaInt (chassi interno do veiculo)

_cCodMar (marca do veiculo)

_cModVei (modelo do veiculo)

_cSegMod (segmento do modelo do veiculo)

_cCorVei (cor do veiculo)

_cCodCli (codigo do cliente do Atendimento)

_cLojCli (loja do cliente do Atendimento)

nVlrVda (valor sugerido de venda)

If _lMinCom .and. left(GetNewPar("MV_MINCVDU","0"),1) $ "1/S" // Utiliza Minimo Comercial como Valor Sugerido de Venda
If nMinCom == 0
_cQuery := "SELECT VV2.VV2_MNVLVD FROM "+RetSqlName("VV2")+" VV2 WHERE VV2.VV2_FILIAL='"+xFilial("VV2")+"' AND VV2.VV2_CODMAR='"+_cCodMar+"' AND VV2.VV2_MODVEI='"+_cModVei+"' AND VV2.D_E_L_E_T_ = ' '"
dbUseArea( .T., "TOPCONN", TcGenQry( ,, _cQuery ), _cAlias , .F., .T. )
If !( _cAlias )->( Eof() )
nMinCom := ( _cAlias )->( VV2_MNVLVD )
EndIf
( _cAlias )->( dbCloseArea() )
If nMinCom == 0
nMinCom := GetNewPar("MV_MINCVLV",0) // % de Valor de Venda do Minimo Comercial Geral
EndIf
EndIf
nVlrVda := ( nVlrVda * ( ( 100 - nMinCom ) / 100 ) ) // Valor Minimo Comercial (Vlr de Venda - % Minimo Comercial)
EndIf

// PE - ALTERACAO DO VALOR SUGERIDO DE VENDA DE MAQUINAS E VEICULOS
If ExistBlock("PVLRSUGV")
nVlrVda := ExecBlock("PVLRSUGV",.f.,.f.,\{ nVlrVda , _cChaInt , _cCodMar , _cModVei , _cSegMod , _cCorVei \})
Endif

If !Empty(cSalvaA)
DbSelectArea(cSalvaA)
EndIf
Return(nVlrVda)

VEIXFUNA