[Resolvido]Parcelas com divisão exata

Senhores, bom dia.

Seguindo as normas do fórum, informo que foram inúmeras pesquisas e, após baixar programas exemplo do Sr. João Paulo (Parcelas_2008 e Parcelas_2008_Retificado) e algumas alterações para a minha realidade, continuo a ter problemas na geração de parcelas com valores exatos.

Vou postar aqui e enviar um anexo com o módulo adaptado e o print da tela com dois exemplos de geração de parcelas: um com valores gerados corretamente e outro com valores divergentes.

Dentro do meu pouco conhecimento, alterei formato de valores e, infelizmente, não consegui o que queria e, da forma como está, não posso confiar no parcelamento.

Peço, por favor, sua análise e as possíveis causas do problema.

Desde já sou muito agradecido.

Antonio Aurélio

Código:

Private Sub cmdParcelasOs_Click()
Call Calc_parc
End Sub

Private Function Calc_parc()
Dim rs As DAO.Recordset, I As Byte
Dim rs1 As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("select * from tbl_parcelas_Vendas where Num_OR = " & Me.CódigoDoOrçamentoDeServiço & "")
Set rs1 = CurrentDb.OpenRecordset("select * from tbl_parcelas_Vendas where Num_OR = " & Me.CódigoDoOrçamentoDeServiço & " and quitada = -1")
If Not rs1.EOF Then
MsgBox "Este Serviço ja foi parcelada e contém pagamento efetuados. " & Chr(10) & "" _
& "Não será possivel refazer parcelamento !!!", vbCritical
Set rs1 = Nothing
Exit Function
End If

If Not rs.EOF Then
 If MsgBox("Já existe um parcelamento para este Serviço !!! " & Chr(10) & "" _
   & "Deseja substituir pelos novos valores? ", vbYesNo + vbExclamation + vbDefaultButton1, "Parcelamento") = vbYes Then
   DoCmd.SetWarnings False
   DoCmd.RunSQL "Delete * from tbl_parcelas_Vendas where Num_OR = " & Me.CódigoDoOrçamentoDeServiço & ""
   DoCmd.SetWarnings True
 
 Else
   Exit Function
 End If

End If

       'If Not Resto <= 0 Then
       'Dim intX As Double
       'Dim intY As Double



If Not Total_do_Pedido <= 0 Then
Dim intX As Double
Dim intY As Double

   intX = Val(Me.Total_do_Pedido) / Val(Me.bytParcelas) ' valor de cada parcela
   intY = Val(Me.Total_do_Pedido)
   
For I = 1 To Me.bytParcelas

With rs
   .AddNew
   !Num_OR = Me.CódigoDoOrçamentoDeServiço
   !Num_parc = I & "/0"
   !Num_parc = I & "/0" & Me.bytParcelas
   !Data_venc = DateAdd("m", I - 1, Me.[DataDeTérmino] + [bytMeses])

' DateAdd("m", I - 1, Me.[DataDeTérmino] + [bytMeses]

   intY = CCur(Format(intY, "0.00")) - CCur(Format(intX, "0.00"))
       
   If I = Me.bytParcelas Then
   intX = CCur(Format(intX, "0.00")) + CCur(Format(intY, "0.00"))
   
       !Val_parc = intX
       .Update
   
   Else
   
   !Val_parc = Me.v_parc
   .Update
   
   End If

End With
Next
Else
   DoCmd.SetWarnings False
   DoCmd.RunSQL "Delete * from tbl_parcelasVendas where Num_OR = " & Me.CódigoDoOrçamentoDeServiço & ""
   DoCmd.SetWarnings True
End If
rs.Close
Set rs = Nothing
'MsgBox "Valores inseridos com sucesso!!!"
Me.SubFrm_Parcelas_Os.Requery
Me.SubFrm_Parcelas_Os.SetFocus

End Function


O print da tela com os resultados dos parcelamentos está anexo.

Muito obrigado.

Olá..

Acredito que o problema pode estar na função Val() Usada em sua expressão.

Esta função não reconhece a virgula como separador decimal e ela também só retorna números inteiros.
Pesquise sobre esta função.

Faça um teste, altere esta parte:

intX = Val(Me.Total_do_Pedido) / Val(Me.bytParcelas) ' valor de cada parcela
intY = Val(Me.Total_do_Pedido)


Por

intX = Me.Total_do_Pedido / Me.bytParcelas ' valor de cada parcela
intY = Me.Total_do_Pedido

Se não for isso, anexe exemplo com dados significativos para analizar mos


Aguardamos


Abraços

Olá Antonio Aurélio,

Por gentileza, poste aqui seu banco de dados (somente as partes envolvidas) para que os colaboradores do fórum possa te ajudar.

Grato.

[]'s

Veja este exemplo, talvez ajude.

Antonio bom dia,

Provavelmente o erro está na formatação dos valores.

Tente formatar assim:

Código:



intX = Format(CDbl(Me.Total_do_Pedido) / Int(Me.bytParcelas), "#,#00.0#") ' valor de cada parcela



Boa sorte

Senhores, bom dia.

Agradeço a todos pelas orientações.
O Sr. Celso Roberto estava com razão sobre o erro estar na função Val().
Efetuei as alterações de conforme ele sugeriu e o parcelamento esta gerando valores que totalizam o valor da OS.
Estou dando o tópico como resolvido agradecendo a todos.
Muito obrigado.

Antonio Aurélio

Valeu Antonio...boa sorte !!!

Valeu Celso, pela força ai !!!

Abraços a todos

Olá a todos..

Ficamos felizes por ter ajudado

Abraços e sucesso a todos