Linha Microsiga Protheus

Árvore de páginas

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

EndIf

Return aClone(aRet)

Programa Fonte:

OFIA420.PRW

Função:

OFA420021_LEVANTAREMUNERACAO()

Parâmetros:
NomeTipoDescriçã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

CaractereLoja do Cliente

nRecVBL

Numérico

RecNo da tabela VBL referente ao registro padrão retornado

Retorno:
NomeTipoDescriçã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)