[Resolvido]Preenchimento Automático de campos

Olá Pessoal,


Criei uma Tabela tblParcelamentos

Com os seguintes campos:
ID = Numeração Automatica
NrParcelamento = Numero
NrCliente = Numero
DataParcelamento = Data/Hora
DataParcela
Contrato = Numero
Valor Parcela = Numero
DataPagamento =Data/Hora
Juros = Numero
Multa = Numero
ValorPago= Unidade Monetaria
ComissãoEmpresa = Numero
ComissãoProprietario = Numero


Gostaria da ajuda dos colegas para o seguinte:

Se a DatadePagamento for Maior que a DataParcela então os campos Juros e Multa Fossem preenchidos com 1% que juros diários e 2% que é a multa pelo atraso.
além claro da soma do =ValorParcela+Juros + Multa.

Pode colocar em eventos... No atual..

If Me.DataPagamento > DataParcela Then
Me.Juros = 1
Me.Multa = 2
End Id

Agora... Quanto a somatoria de juros e multa... Tem que ferificar se:


Juros = são mensais, porem calculados de acordo com o numero de dias de atrado
Multa = é valor unico independente do atraso..

Verifique como será essa logica de cobraça de juros e multa... para podermos encontrar a maneira correta de aplicá-los.

Cumprimentos.

Olá Piloto,

Coloquei o código no evento atual, e crieir um campo calculando a diferença de datas. Se o Cliente pagar antecipado o campo calculado sai negativo e os campos juros e multa não são preenchidos podemos contornar isso deixando os campos em branco e exibir uma mensagem para verificar a data ?

Obrigado.

Envie um modelo conciso do BD... para que possamos ver...
Cumprimentos.

Piloto,

Varios companheiros inclusive voce já me deram super dicas neste BD, voce perceberá que há um campo IGPM mas esse campo só será preenchido em uma data específica no fututo algo que não podemos prever.
E nescessário a soma dos campos valor da parcela, Juros e Multas em caso de atrao e o campo IGPM, quando Houver.

http://dl.dropbox.com/u/13553076/C%C3%B3pia%20de%20Parcelamento%202.5.rar

obs: esses calculos estou fazendo no sub formulario1

Boas Amigão... Amanha cedo vejo isto.

Boa Noite. Abraços.

Amigão.. não entendi a lógica disso..

Porque a data do parcelamento é maior que a data do vencimento?

Cumprimentos.

Bom dia Piloto,
A data do parcelamento é a data que foi gerada à partir de BD Do Alexandre, que coloca essa data automática.
Ou seja a data quando o Parcelamento foi gerada, são contratos antigos. A imobiliaria fazia ´há anos os contratos manualmente resolvemos informatizar todos os contratos. Essa data não irá influenciar pois no formulário principal está a data do Contrato. Neste subformulario1 a data de vencimento da parcela é que comanda a brincadeira. A data de vencimento da parcela iremos extrair o atraso. Mas quando o cliente pagar antes do vencimento devemos ignorar a multa e o juro.
Obrigado.

Boas Gersom....

Considerando que a multa incide apaenas uma vez, adaptei para isto, digite uma data de pagamento e de um tab..
Observe.

Carreguei variaveis com os valores e apliquei em uma MsgBox para que possa entender.
Coloquei um modulo que calcula com extidao a diferenca de Anos, Meses e dias do vencimento para o pagamento.


Obs.. Para o cálculo de juros, teremos que estudar como faremos isso, posto que os juros serão calculados nas situações:

1 - Se no pagamento não completou 30 dias do vencimento, então:
Juros / Numero de dias do mês
** Aqui teremos que identificar o mes para situações de 29,30 ou 31 dias

2 - Se no pagamento completou 30 dias exatos
Juros total = 1%

3 - Se no pagamento ultrapassou o montante de um mes
No caso para os meses = 1%, sendo calculado juros sobre juros
+ a diferenca em juros para o número de dias.


Creio que essa é a logica para a aplicação dos juros.

caso algum colega tenha sugestões, serão bem vindas!


https://dl.dropbox.com/u/26441349/Gerson.rar


Cumprimentos.

Piloto,
Bacana as mensagens!

1)a regra para os juros é a seguinte:
1%sobre o valor da parcela /30 * dias de atraso
ai somamos tudo {Valor da Parcela] + [Juros] + [Multa]+ [IGPM]

2) Caso o pagamento se ja efetuado antes o campo valor pago será o mesmo valor da parcela

3) seria possível que ao invés de preencher o campo multa =2 e juros=1 poderíamos colocar os valores ?

Obrigado pela força !

Gerson, as mensagem foram apenas para que entenda... Podemos sim colocar os valores no lugar dos juros e multa...

Agora o que estou tentando prever é:

1 - Atrazo de mais de 30 dias, posto que tem meses de 29, 30 ou 31 dias
2 - Atrazo de mais de 30 dias + N dias (1 mes e x dias)

Essa é a parte que teremos que encontrar a solução.

Primeiro
- Identificar o Mês após o vencimento (que mes é do 1 ao 12) para identificarmos a quantidade de dias
- Se mais de 30 dias de atrazos proceder o cálculo cumulativamente, para o mes seguinte ao vencimento, caso mais de um mes...
Mes 1 + Mes 2 + Mes n (depois do vencimento)

Não sei se entendeu.

Olá Piloto,

Para o caso em questão sempre se considera sempre 30 dias independente do mês.
Considerando um valor de 250,00
1 dia de atraso multa de 2% = 5,00
1 dia de atraso Juros : 250,00 *1% = 2,50/30 = 0,08
Valor Pago = 255,08
Se o atraso for de mais dias então multiplica-se os 0,08 pela quantidade de dias atrasados.
Obrigado Amigo!

Olá Pessoal,

Piloto, se possível veja o código que estou tentando e veja se estou no caminho certo.
Private Sub DataPagamento_AfterUpdate()
If Me.DataPagamento > Me.DataParcela Then
Me.Juros = Nz(Me.ValorParcela, 0) * 1 / 100 / 30 * Texto48
Me.Multa = Nz(Me.ValorParcela, 0) * 2 / 100
StrMulta = Nz(Me.ValorParcela, 0) * Me.Multa / 100
Me.ValorPago = Me.ValorParcela + Me.Juros + Me.Multa

MsgBox StrMulta, vbInformation, "VALOR DA MULTA"
StrVlPag = Me.ValorParcela + StrMulta
MsgBox StrVlPag, vbInformation, "VALOR COM A MULTA"
Else
Me.Juros = ""
Me.Multa = ""
End If
MsgBox AnoMesDia(Me.DataParcela, Me.DataPagamento) & " de Atrazo"
End Sub

Obrigado Pela Força!!!

Boas Gerson.. Ontem fui dormir pensando nisso rsrs

E realmente eu viajei quanto a questão dos meses...

O que temos que fazer é:

Pegar o total de dias, Ex. 125
Dividir por 30: 125/30 = 4,1666
Extrair o numero de dias excedentes para um mes completo
125 -(4x30) = 5 dias

Criaremos um Procedimento utilizando o For

For x = 1 to Numero de Meses (no Caso 4)

e ir aplicando a rotina de juros cumulativamente
Valor = Valor + 1% juros

Next x

Ai a cada loop de x o valor irá sendo acrescido dos juros.

e por fim calcular o excedente de dias (5) com a fração dos Juros 1 / 30

e somá-los ao final.


E por ai...


Cumprimentos.

Piloto,
aí é que está o problema eu ainda não sei como Fazer os códigos e quais as funções apropriadas.
Veja no exemplo que eu postei se pode se fazer daquele jeito.
Como não entendo bem sobre VBA tenho medo que possa dar problemas futuros.
Se você tiver um tempo quebra esse galhão.
Abraços,
Gerson

Boas Gerson... Vamos então começar para casos de o atrazo ser maior que 30 dias.

Abra sua tabela parcelamentos em modo design e nos campo Juros, Multa e ValorPago:

Tipo: Numero
Tamanho do Campo: Duplo
Formato: Numero Geral
Casas Decimais: 2


Bem... neste código abaixo... preve mais de 30 dias de atrazo...
Este código está calculando os meses extraidos
Ex: 120 dias >>>> ele calcula os 4 meses sendo juros sobre juros.

No caso de Meses + dias (mes incompleto) ex: 125 (4 meses + 5 dias)
Ele calcula os 4 meses, ainda nao fiz o modulo para calcular os 5 dias.

Testemos esse e seguimos para calcular os dias excedentes (mes incompleto)

Private Sub DataPagamento_AfterUpdate()
'Declaração de variáveis que comportarão os valores utilizados nos cálculos
Dim StrMulta, StrJuros, StrJurosCal, StrValorPag, ValorJuros As Double
Dim X As Variant
Dim I, DiasAtrazos As Integer

'Checa se a data de pagamento é maior que a data da parcela
If Me.DataPagamento > Me.DataParcela Then
'Carrega as variáveis com o valor correspondente para o cálculo
StrMulta = 2
StrJuros = 1

'Carrego a variável com o número de dias de atrazo, conseguido com a diferença entre as data
DiasAtrazos = Me.DataPagamento - Me.DataParcela
'Aplico a condição para caso ocorra mais de 30 dias de atrazos
If DiasAtrazos > 30 Then
'Carrego a variável x com o numero de meses de atrazos.. Este numero dependendo da quantidade de dias, será exprimido em decimais
'Ex: 25,2
X = DiasAtrazos / 30
'Em sendo um numero decimal, extraio apenas o numero de meses, Ex: de 25,2 Pego apenas o Numero de meses: 25
X = Mid(X, 1, (InStr(1, X, ",") - 1))
'Faço um loop de acordo com o nuemero de meses para calcular o juros Mes a Mes, ou seja:
'Valor da Parcela + Juros, e no proximo laço, esta soma + os juros extraidos dessa soma (Juros sobre Juros)
For I = 1 To X
'Executo esta condição apenas para o primeiro mês de cálculo, caso tenha mais de um mes de atrazo
If StrValorPag = 0 Then
'Calculo de juros do primeiro mês de atrazo
StrJurosCal = Me.ValorParcela * StrJuros / 100
'Carrego a variável com o valor em real dos Juros no primeiro mês de atrazo
ValorJuros = StrJurosCal
'Carrego a variável com o Valor da Parcela + o Juros
StrValorPag = Me.ValorParcela + ValorJuros
'Caso seja o segundo mês de atrazo a variável StrValorPag terá o valor diferente de 0, portanto irá para esta condição
Else
'Calculo de juros para os meses seguintes de atrazo, observe que o valor aqui não é mais o da parcela e sim o valor ja acrecido do
'Primeiros juros
StrJurosCal = StrValorPag * StrJuros / 100
'Carrego a variável com o valor em real + Juros
StrValorPag = StrValorPag + StrJurosCal
'Carrego a variável com o valor de juros somados a cada loop
ValorJuros = ValorJuros + StrJurosCal
End If
Next I
End If
'Lanço no campo o valor total de juros
Me.Juros = ValorJuros
'Lanço no campo o valor da multa
Me.Multa = Nz(Me.ValorParcela, 0) * StrMulta / 100
'Lanço no campo a somatória de: Parcela, Juros e Multa
Me.ValorPago = Me.ValorParcela + Me.Juros + Me.Multa
Else
'Limpo as campos caso o pagamento seja antecipado
Me.Juros = ""
Me.Multa = ""
End If
End Sub



Cumprimentos.

Olá Piloto,
Estou chegando agora e já fiz o teste com o código.
logo na primeira linha do sub formulario o vencimento é 10/02/2010 eu propositalmente digitei 29/02/2010 ele grita logo, aparece uma mensagem "o valor que voce inseriu não é válido para esse campo" show de bola 29/02/2010 não existe.
Se voce limpar a data de pagamento limpa os campos, juros, multa ótimo, mas não limpa o campo valor pago.
os juros pela lei são simples 1% ao dia. Não posso usar juros compostos. Usando essa linha como referência onde o vencimento é 10/02/2010 a data de pagamento seja 10/04/2010 chega-se a 59 dias de atraso o que irá considerando o valor da parcela de 250,00 um total de juros = 147,50 + 5,00 (Multa)+ IGPM(esse pode ou nao ser preenchido)esse IGPM entraria no calculo do campo valorpago.

1 % ao Dia???????????????????


Creio que é 1% ao mês não?

Veja direito isso

Bem so necessito de uma informação...

então não são juros sobre juros e sim corridos..

Ex:

59 dias de atrazo: 59 x Juros diários. é isso?

Cumprimentos.

Olá Amigão,
Bom domingo estou aqui na batalha. É isso mesmo é 1% ao dia, ou seja valor de 250,00 juros de 2,50 2 dias 5,00 e assim vai
a multa é fixa de 2% independente se for 1 ou 200 dias de atraso.
Abraços!

Juros de 30% ao Mês????????????????????????

Tem certeza disto?

Piloto, é 1% ao dia se ele ficar 30 dias sem pagar tá lascado a formla é valor 250/1% = 2,50 X Dias de Atraso
depois tera ainda o IGPM mas isso vou abrie outro tópico.

logo vi, Veja o que você havia falado:

Código:

Bom domingo estou aqui na batalha. É isso mesmo é 1% ao dia, ou seja valor de 250,00 juros de 2,50 2 dias 5,00 e assim vai
a multa é fixa de 2% independente se for 1 ou 200 dias de atraso.
Abraços!

Bem... Logo mais faço isto pra ti.

Cumprimentos.

Vale companheiro !

Bem... se entendi direito:


Private Sub DataPagamento_AfterUpdate()
Dim JurosDia, ValorJuros As Double
Dim DiasAtrazos As Integer

DiasAtrazos = Me.DataPagamento - Me.DataParcela
JurosDia = Nz(Me.ValorParcela, 0) * (1 / 100)
ValorJuros = JurosDia * DiasAtrazos
Me.Juros = ValorJuros
Me.Multa = Nz(Me.ValorParcela, 0) * (2 / 100)
Me.ValorPago = Me.ValorParcela + ValorJuros + Me.Multa
End Sub



Cumprimentos.

Neste momentos estou no trabalho mais tarde em casa vou testar obrigado Amigo!

Piloto meu amigo está acabando!!

No caso do usuário apagar a data de pagamento como fazer para limpar os campos Juros, Multas e Valor Pago?
E no caso da pessoa antecipar o campo Dias de Atraso coloca ex: Vencimento 10/02/2010 DataPagamento 09/02/2010 ele joga multa e juros sendos juros (-).

Private Sub DataPagamento_AfterUpdate()
Dim JurosDia, ValorJuros As Double
Dim DiasAtrazos As Integer
If Me.DataPagamento = "" Then
Me.Juros = ""
Me.Multa = ""
Exit Sub
End If

If Me.DataPagamento > Me.DataParcela Then
DiasAtrazos = Me.DataPagamento - Me.DataParcela
JurosDia = Nz(Me.ValorParcela, 0) * (1 / 100)
ValorJuros = JurosDia * DiasAtrazos
Me.Juros = ValorJuros
Me.Multa = Nz(Me.ValorParcela, 0) * (2 / 100)
Me.ValorPago = Me.ValorParcela + ValorJuros + Me.Multa
Else
Me.Juros = ""
Me.Multa = ""
End If
End Sub

Piloto meu Amigo!

Adicionei a seguinte linha no seu código
Else
Me.Juros = ""
Me.Multa = ""
Me.ValorPago = ""
End If
End Sub

Agora se o cliente zerar a DataPagamento some multas e Juros, mas...falta apenas o seguinte:
Se a Data de Pagamento for igual a Data da Parcela o valor da parcela gostaria que fosse incluido no valor pago.Tentei de algumas formas aqui mas não consegui. Peço ajuda e agradeço toda a atenção e tempo e paciência que teve comigo neste tópico.
Abraços

Envie o seu codigo completo com essa ultima alteração que fizeste.

Cumprimentos.

Lá vai,

Private Sub DataPagamento_AfterUpdate()
Dim JurosDia, ValorJuros As Double
Dim DiasAtrazos As Integer
If Me.DataPagamento = "" Then
Me.Juros = ""
Me.Multa = ""
Me.ValorPago = ""
Exit Sub
End If

If Me.DataPagamento > Me.DataParcela Then
DiasAtrazos = Me.DataPagamento - Me.DataParcela
JurosDia = Nz(Me.ValorParcela, 0) * (1 / 100)
ValorJuros = JurosDia * DiasAtrazos
Me.Juros = ValorJuros
Me.Multa = Nz(Me.ValorParcela, 0) * (2 / 100)
Me.ValorPago = Me.ValorParcela + ValorJuros + Me.Multa
Else
Me.Juros = ""
Me.Multa = ""
Me.ValorPago = ""
End If
End Sub

Private Sub DataPagamento_AfterUpdate()
Dim JurosDia, ValorJuros As Double
Dim DiasAtrazos As Integer
If Me.DataPagamento = "" Then
Me.Juros = ""
Me.Multa = ""
Me.ValorPago = ""
Exit Sub
End If

If Me.DataPagamento > Me.DataParcela Then
DiasAtrazos = Me.DataPagamento - Me.DataParcela
JurosDia = Nz(Me.ValorParcela, 0) * (1 / 100)
ValorJuros = JurosDia * DiasAtrazos
Me.Juros = ValorJuros
Me.Multa = Nz(Me.ValorParcela, 0) * (2 / 100)
Me.ValorPago = Me.ValorParcela + ValorJuros + Me.Multa
ElseIf Me.DataPagamento = Me.DataParcela Then
Me.ValorPago = Me.ValorParcela
Me.Juros = ""
Me.Multa = ""
Me.Juros = ""
Me.Multa = ""
Me.ValorPago = ""

Else
End If
End Sub.

Cumprimentos.

Piloto, se nós limparmos a DataPamento, seria possível limpar os campos de multa e juros e valor pago? Não está acontecendo, o campo Valor pago fica mantido.
Obrigado plea paciência !!

Obs: Se a Diferença de datas for = 0 o valor pago dever ser preenchido com o valor da parcela
Se houver pagamento anrecipado o usuário colocara o desconto no ato. no campo total pago.

Abraços

Private Sub DataPagamento_AfterUpdate()
Dim JurosDia, ValorJuros As Double
Dim DiasAtrazos As Integer
DoCmd.RunCommand acCmdSaveRecord

If IsNull(Me.DataPagamento) = True Or Me.DataPagamento = "" Then
Me.Juros = ""
Me.Multa = ""
Me.ValorPago = ""
Exit Sub
End If

If Me.DataPagamento > Me.DataParcela Then
DiasAtrazos = Me.DataPagamento - Me.DataParcela
JurosDia = Nz(Me.ValorParcela, 0) * (1 / 100)
ValorJuros = JurosDia * DiasAtrazos
Me.Juros = ValorJuros
Me.Multa = Nz(Me.ValorParcela, 0) * (2 / 100)
Me.ValorPago = Me.ValorParcela + ValorJuros + Me.Multa
ElseIf Me.DataPagamento = Me.DataParcela Then
Me.ValorPago = Me.ValorParcela
Me.Juros = ""
Me.Multa = ""
Me.Juros = ""
Me.Multa = ""
Else
End If
End Sub


Cumprimentos.

Piloto está resolvido ! acrescentei uma linha caso a diferença de datas seja negativa.

Obrigado pelo esforço e pela aula ! Foi muito útil essas lições.
Valeu Amigao !




If IsNull(Me.DataPagamento) = True Or Me.DataPagamento = "" Then
Me.Juros = ""
Me.Multa = ""
Me.ValorPago = ""
Exit Sub
End If

If Me.DataPagamento > Me.DataParcela Then
DiasAtrazos = Me.DataPagamento - Me.DataParcela
JurosDia = Nz(Me.ValorParcela, 0) * (1 / 100)
ValorJuros = JurosDia * DiasAtrazos
Me.Juros = ValorJuros
Me.Multa = Nz(Me.ValorParcela, 0) * (2 / 100)
Me.ValorPago = Me.ValorParcela + ValorJuros + Me.Multa
ElseIf Me.DataPagamento = Me.DataParcela Then
Me.ValorPago = Me.ValorParcela
Me.Juros = ""
Me.Multa = ""
Me.Juros = ""
Me.Multa = ""
ElseIf Me.DataPagamento < Me.DataParcela Then
Me.ValorPago = Me.ValorParcela
Me.Juros = ""
Me.Multa = ""
Me.Juros = ""
Me.Multa = ""
Else
End If
End Sub

Vossos desafios me aumentam cada vez mais o aprendizado... uma aula para ambos.

Grato. O Fórum agradece o retorno.

Apenas uma resalva...

o ultimo else era para casos contrarios ao if ou ElseIf....

como adicionou a linha para negativos.. nao é mais necessário.


Cumprimentos.