... Assinatura do site por 1 ano + Kit MontaRibbons + 3 Livros em PDF + Diversas Revistas (pdf) de brinde, por apenas R$100,00
(
podendo parcelar em até 10 vezes no cartão de crédito)...

Clique aqui e obtenha mais detalhes do nosso kit completo e de como comprar.


Gerar Valor da Diferença a Pagar

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á.

Formulário parcelas

 

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

Envie seu comentário: