PECOMVSG - Customização da comissão do Gestão de Concessionaria.

Este Ponto de Entrada tem a finalidade de customizar a comissão do Gestão de Concessionária, e encontra-se logo após o desbloqueio do registro na gravação da tabela de Comissão do DMS .

User Function PECOMVSG()

MsgInfo("Ponto de Entrada PECOMVSG executado com sucesso!")

Return()

Português(Brasil)

Todas

Todos

Todas

N/A

N/A

For ni := 1 to Len(aAvaliacao)

DbSelectArea("VSG")
DbSetOrder(1)
DbSeek(xFilial("VSG") + cNosNum + cTipComissao + aAvaliacao[ni,1] )
RecLock("VSG",!Found())
VSG->VSG_FILIAL := xFilial("VSG")
VSG->VSG_NOSNUM := cNosNum
VSG->VSG_TIPCOM := cTipComissao
VSG->VSG_CODVEN := aAvaliacao[ni,1]
VSG->VSG_PERCOM := aAvaliacao[ni,2]

If cMoedaForte == "N"

VSG->VSG_VALCOM := aAvaliacao[ni,3]

Else

VSG->VSG_MODFOR := aAvaliacao[ni,3]

EndIf

MsUnLock()

//Ponto de Entrada após o desbloqueio do registro na gravação da tabela de Comissão do DMS
if ExistBlock("PECOMVSG")
ExecBlock("PECOMVSG",.f.,.f.)
Endif

Next

VEIFUNC.PRW