Gerar Valor da Diferença a Pagar
Nota importante: para ter acesso aos vídeos e arquivos exemplos deste site, adquira um dos planos apresentados abaixo. Você pode comprar em até 2x no Cartão de Crédito.
Veja como comprar e saiba mais sobre o material oferecido, clicando aqui.
Usuário Juninho:
Tenho um formulário para baixar as parcelas dos clientes, mas tenho dúvida quanto ao gerar um valor da diferença a pagar, caso o cliente não pague o valor total da parcela.
Tentei inserir o comando acNewRec após atualizar o campo do Valor Pago, mas ele não gera um novo valor.
Você pode me ajudar!? Agradeço desde já.
Suporte:
Juninho, com base na imagem enviada e supondo que o cliente tenha pago R$500,00 na primeira parcela. Pergunto:
1- a diferença será acumulada na parcela seguinte, ficando o valor da 2/2 em R$1.500,00 ou será aberta uma nova parcela 3/3, com data de vencimento em 27/09/2016, no valor de R$500,00? A data da parcela 3/3 deve ser flexível ao negociador?
2- serão cobrados juros, caso abra uma terceira parcela 3/3, com o vencimento em 27/09? Quem definirá os juros de mora?
3- existe, ainda, a possibilidade de pegar o saldo devedor e dividi-lo em parcelas iguais, sendo a parcela 2/2, no valor de R$750,00 e a parcela 3/3, no valor de R$750,00?
Usuário Juninho:
Obrigado por ter mencionado sobre estas observações, daí consigo tirar proveito de certas situações...
Mas enfim, não quero uma coisa tão complexa, gostaria do seguinte:
O valor da parcela é igual a R$1.000,00, com o vencimento para 20/08/2016. O cliente pagará R$500,00 e, após esta baixa, preciso criar um registro abaixo com o Valor Restante de R$500,00, com o mesmo vencimento para o dia 20/08/2016 (o vencimento pode permanecer no mesmo dia em que era antes).
Já na parte de juros, eu criei os campos para os cálculos dos valores dos dias de atraso, fazendo a soma com o valor da parcela e tudo mais. Só queria mesmo que gerasse o valor restante abaixo, nada complexo.
Desde já agradeço!
Suporte:
Juninho, no evento Após atualizar do campo Quitar, coloque:
dim strSql$
if me![valor pago] < me![valor parcela] then
msgbox "Será aberta uma parcela do valor restante"
strSql = "INSERT INTO NomeTabelaParcelamentos (venda,vencimento,[valor parcela]) "
strSql = strSql & "VALUES ('" & me!venda & "','" & me!vencimento & "','"
strSql = strSql & replace((me![valor Parcela] - me![valor pago]),",",".") & "');"
currentdb.execute strSql
me.requery
end if
Usuário Juninho:
Deu certo! Obrigado novamente, meu caro!
| Não há comentário |
