English
Español
DistribuiValorContasBancarias
Esta função é utilizada para carregar as variáveis de sistema de informações bancárias do colaborador, terceiro e dependente de pensão judicial, de acordo com a data passada como parâmetro.
Sintaxe: DistribuiValorContasBancarias(Numero xNumEmp, Numero xNumCad, Numero xTipCol, Numero xCodDep, Numero xDatRef, Numero xValTot);
Parâmetros:Nome | Tipo | Descrição |
xNumEmp | Numérico | Código da empresa do colaborador. |
xTipCol | Numérico | Tipo do colaborador. |
xNumCad | Numérico | Cadastro do colaborador. |
xCodDep | Numérico | Código do dependente (quando informado buscará as informações bancárias do dependente de pensão judicial, senão busca as informações bancárias do colaborador). |
xDatRef | Numérico | Data de referência para buscar as contas bancárias, que seja igual ou a mais próxima a essa data. |
xValTot | Numérico | Valor total da conta. |
Tipo de Retorno: Carrega as seguintes variáveis de sistema: CodBan, CodAge, TipBan, ConBan, DigBan, PerCon, ValConBan, QtdConBan e HisCon.
Essas variáveis possuem índices, pois um colaborador pode possuir até 50 registro de contas bancárias.
Colaborador possui um crédito de R$ 1.000,00 a ser distribuído conforme seu histórico de contas bancárias:
Banco | Agência | Tipo Conta | Conta | Dígito | Percentual |
1 | 1236 | 1 | 123654789 | 1 | 60,00 |
2 | 3654 | 2 | 965821423 | 40,00 |
<div class="Code"><p>DistribuiValorContasBancarias(R034FUN.NumEmp, R034FUN.NumCad, R034FUN.TipCol, 0, DatRef, xSalLiq);</p><p>@ Os retornos serão: @<br></br>CodBan[1] = 1;<br></br>CodBan[2] = 2;<br></br>CodAge[1] = 1236;<br></br>CodAge[2] = 3654;<br></br>TipBan[1] = 1;<br></br>TipBan[2] = 2;<br></br>ConBan[1] = 123654789;<br></br>ConBan[2] = 965821423;<br></br>DigBan[1] = 1;<br></br>DigBan[2] = ;<br></br>PerCon[1] = 60;<br></br>PerCon[2] = 40;<br></br>ValConBan[1] = 600,00;<br></br>ValConBan[2] = 400,00<br></br>QtdConBan = 2;<br></br>HisCon = S;</p></div>
Utilização: Gerador de Relatórios, Regras e Cubos dos sistemas Administração de Pessoal, BS e PLR.
English
Español
