Histórico da Página

Ponto de Entrada

Descrição:

Ponto de Entrada no processo de remuneração, executado no momento que se retorna o % de remuneração a ser utilizado no Orçamento e Fechamento de OS. Pode ser utilizado para customizar a regra e retornar o percentual desejado.

Localização:

Atualizações \ Cadastros Gestão \ Remunerações de Peças (OFIA420)

Eventos:

Function OFA420021_LevantaRemuneracao( cCdPag , nVlInf , cCdCli , cLjCli )

Local aRet := { 0 , "2" }

Local nRecVBL := OFA420031_Remuneracao( cCdPag , nVlInf ) // RecNo da Remuneração Cadastrada

If nRecVBL > 0

VBL->(DbGoto(nRecVBL))

aRet := { VBL->VBL_PERREM , VBL->VBL_PROMOC }

If ExistBlock("OF420PCR")

aRet := ExecBlock("OF420PCR",.f.,.f.,{ aRet , cCdPag , nVlInf , cCdCli , cLjCli , nRecVBL })

EndIf

Return aClone(aRet)

Programa Fonte:

OFIA420.PRW

Função:

OFA420021_LEVANTAREMUNERACAO()

Parâmetros:

Nome	Tipo	Descrição
aRet	Array	Array com o retorno padrão. Na primeira posição o Percentual de Remuneração e na segunda posição se contempla a Promoção, onde: 0=Não,1=Sim e Não Acrescenta Percentual e 2=Sim e Acrescenta Percentual.
cCdPag	Caractere	Condição de Pagamento utilizada
nVlInf	Numérico	Valor de Peças utilizado no Orçamento ou Fechamento da OS
cCdCli	Caractere	Código do Cliente
cLjCli	Caractere	Loja do Cliente
nRecVBL	Numérico	RecNo da tabela VBL referente ao registro padrão retornado

Retorno:

Nome	Tipo	Descrição
aRet	Array	Contém na primeira posição o Percentual de Remuneração e na segunda posição se contempla a Promoção, onde: 0=Não,1=Sim e Não Acrescenta Percentual e 2=Sim e Acrescenta Percentual.

Exemplo:

Include totvs.ch

// Ponto de Entrada no processo de remuneração, executado no momento que se

// retorna o % de remuneração a ser utilizado no Orçamento e Fechamento de OS.

// Pode ser utilizado para customizar a regra e retornar o percentual desejado.

User Function OF420PCR()

Local aRet := ParamIXB[1] // Array com o retorno padrão. Na primeira posição o Percentual de Remuneração e na segunda posição se contempla a Promoção, onde: 0=Não,1=Sim e Não Acrescenta Percentual e 2=Sim e Acrescenta Percentual.

Local cCdPag := ParamIXB[2] // caracter referente a Condição de Pagamento utilizada

Local nVlInf := ParamIXB[3] // numerico referente ao Valor de Peças utilizado no Orçamento ou Fechamento da OS

Local cCdCli := ParamIXB[4] // caracter referente ao Codigo do Cliente

Local cLjCli := ParamIXB[5] // caracter referente a Loja do Cliente

Local nRecVBL := ParamIXB[6] // numerico referente ao RecNo VBL do registro padrão que esta sendo retornado

MsgInfo("Ponto de Entrada OF420PCR executado com sucesso.","Atenção")

Return aClone(aRet)

Árvore de páginas

Versões comparadas

Versão antiga 15

Nova versão 16

Chave

Ponto de Entrada