FS_COMVEI - Personaliza cálculo de comissões

O ponto de entrada FS_COMVEI tem como objetivo personalizar o cálculo de comissões referentes a vendas de veículos. Está localizado na rotina Recálculo de Comissões (VEIVM080) dentro do módulo de veículos.Deverá ser utilizado somente para alterar os valores dos campos VVA_COMVDE, VVA_COMGER, VVA_COMPAT e VVA_VALIRF. Consequentemente, o valor do campo VVA_LUCLQ2 também será alterado.

   If ExistBlock("FS_COMVEI")   // Se existir este PRW, entao ele sera usado
      ExecBlock("FS_COMVEI",.f.,.f.)
      RecLock("VVA",.f.)
        VVA->VVA_COMVDE := M->VVA_COMVDE
        VVA->VVA_COMGER := M->VVA_COMGER
        VVA->VVA_VALIRF := M->VVA_VALIRF
        VVA->VVA_CMFVDE := FG_CalcMF(  {{VV0->VV0_DATMOV,VVA->VVA_COMVDE}} )
        VVA->VVA_CMFGER := FG_CalcMF(  {{VV0->VV0_DATMOV,VVA->VVA_COMGER}} )
       VVA->VVA_LUCLQ2 := VVA->VVA_LUCLQ1-VVA->VVA_VALIRF-VVA->VVA_COMVDE-VVA->VVA_COMGER-VVA->VVA_COMPAT
        VVA->VVA_LMFLQ2 := FG_CalcMF(  {{VV0->VV0_DATMOV,VVA->VVA_LUCLQ2}} )
       MsUnlock()
    Endif
   If ExistBlock("FS_COMVEI")   // Se existir este PRW, entao ele sera usado
      ExecBlock("FS_COMVEI",.f.,.f.)
      RecLock("VVA",.f.)
        VVA->VVA_COMGER := M->VVA_COMGER
        VVA->VVA_COMPAT := M->VVA_COMPAT
       VVA->VVA_VALIRF := M->VVA_VALIRF // Comissao de Quem Indicou
       MsUnlock()
    Endif

VEIVM080; FS_COMVEI

FS_COMVEI - Personaliza cálculo de comissões ( [ ] )

()

User Function FS_COMVEIM->VVA_COMVDE := M->VVA_COMVDE *1M->VVA_COMGER := M->VVA_COMGER *1M->VVA_COMPAT := M->VVA_COMPAT *1M->VVA_VALIRF := M->VVA_VALIRF *1Alert("FS_COMVEI")Return