EICCO100 - Conta e Ordem

Descrição

Ponto de entrada para alterar a forma de rateio para um processo de Conta e Ordem.

Observações

Exemplos

User Function EICCO100()

Local cExecute:= ""

If Type("ParamIXB") == "C"
cExecute := ParamIXB
EndIf

Do Case

Case cExecute == "RATEIO"

If GetMV("MV_CODTXSI",,"XXX") == Left(aWorkMarcaMPE1,3)
nRateio:= (WorkItens->WN_FOB_R+WorkItens->WN_FRETE+WorkItens->WN_SEGURO)/nCIFTotal
MsgInfo("Taxa Siscomex rateada por CIF!")
Endif

End Case

Return

Preview

Veja também

Idioma

Português(Brasil)

Versões

Microsiga_Protheus11

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Updates

Parâmetros

RATEIO

Retorno

Nil

Eventos de chamada do Ponto de Entrada

Variáveis

nRateio

Programa Fonte

EICCO100.PRW