Visual Basic Foro
Programación => Bases de Datos => Mensaje iniciado por: zxs23 en Septiembre 20, 2012, 07:52:51 pm
-
Hola como estan aqui con una duda, encontre este tema http://leandroascierto.com/foro/index.php?topic=1436.msg8379#msg8379 (http://leandroascierto.com/foro/index.php?topic=1436.msg8379#msg8379) y casi todo lo entiendo aunque no necesito aplicar intereses, bueno igual el ejemplo es algo bastante generico y util.
La unica duda que tengo es sobre si necesito crear otra tabla para el plan de pago, en el hilo final del user "79137913" se menciona el campo "FechaDeconsolidacion" y supongo que de ahi sale el plan de pagos con campos calculados.
!Como me explico! haber suponiendo que el importe es 1000 y se pagaran 10 cuotas y sin aplicar interes ni nada por el estilo, como saco el plan de pagos a partir de la "FechaDeconsolidacion:fecha que se genera la deuda" asumiendo que son 10 cuotas y que cada cuota se pagara semanal o cada mes, para tales casos necesito crear otra tabla o basta con hacer campos calculados o basta con hacer:
cuota 1 = FechaDeconsolidacion+7
cuota 2 = FechaDeconsolidacion+14 y asi sucesivamente en caso el plan de pagos sea semanal.
-
zxs23, Yo hago de esta manera.
Con este creo en un ListView la lista de la cuota. guardo en una tabla asi mismo.
Private Sub cmdCalcular_Click()
LCuotas.ListItems.Clear
If txtValor.Text = vbNullString Then
'txtValor.SetFocus
ElseIf txtValor.Text <= 0 Then
'txtValor.SetFocus
Else
lblSaldo.Caption = "0"
For i = 1 To txtNCuotas.Text
Set TLS = LCuotas.ListItems.Add(, , i)
With TLS
TLS.SubItems(1) = DateAdd("m", i, txtFCredito.Value)
vResta = (Val(Format(txtValor.Text, "")) - Val(Format(txtEntrega.Text, ""))) / txtNCuotas.Text
vInteres = Val(vResta) * Val(txtInteres.Text) / 100
TLS.SubItems(2) = Format(Val(vResta) + Val(vInteres), "##,###0")
TLS.SubItems(3) = txtInteres.Text
End With
lblSaldo.Caption = Format(Val(Format(lblSaldo.Caption, "")) + Val(Format(LCuotas.ListItems(i).SubItems(2), "")), "##,###0")
lblTotalCredito.Caption = Format(Val(Format(lblSaldo.Caption, "")) + Val(Format(txtEntrega.Text, "")), "##,###0")
Next i
End If
End Sub
Esta es mi tabla
(http://www.mediafire.com/conv/e8ebeb6375dc972507f7b7ccdd6dc5acfaa111e28ed0c054bb31367b37ab2c924g.jpg) (http://www.mediafire.com/view/?venao3h9ql79imm)
Preparando las Cuotas del Cliente
(http://www.mediafire.com/conv/2b881b7c730e04b50e8d16ffe101b9a030db77568e4583ee14d8d58831ed53714g.jpg) (http://www.mediafire.com/view/?1g7097lq089e1w4)
COBRANDO LAS CUOTAS
(http://www.mediafire.com/conv/e55fe538be315a4b645b7d9f402fc29409e68cc9f030ce75d4f325b933220f534g.jpg) (http://www.mediafire.com/view/?0ftqxo5nh4lm2rz)
-
HOLA!!!
!Como me explico! haber suponiendo que el importe es 1000 y se pagaran 10 cuotas y sin aplicar interes ni nada por el estilo, como saco el plan de pagos a partir de la "FechaDeconsolidacion:fecha que se genera la deuda" asumiendo que son 10 cuotas y que cada cuota se pagara semanal o cada mes, para tales casos necesito crear otra tabla o basta con hacer campos calculados o basta con hacer:
cuota 1 = FechaDeconsolidacion+7
cuota 2 = FechaDeconsolidacion+14 y asi sucesivamente en caso el plan de pagos sea semanal.
Exactamente las cuotas las calculas al vuelo, para eso es la fecha de consolidacion.-
Yo usaria un bucle en vez de eso que escribiste pero es correcto.
Un ejemplo:
dim cuotas(1 to 10)
for x = 1 to 10
cuotas(x) = fechadeconsolidacion + x*7
next
GRACIAS POR LEER!!!
-
Me gustaron las interfaces de enter y 79 me confirmas lo que tenia en mente, bueno voy a analizar bien si me conviene guardar las cuotas pagadas en una tabla o crear el calculo al momento de hacer una consulta sea para reporte o para pagar, igual debo tomar en cuenta en no siempre el cliente paga puntualjeje, ya tengo tambien mas o menos como hacer los reportes, si hay algo mas que decir bienvenido sea :)
-
igual debo tomar en cuenta en no siempre el cliente paga puntualjeje
También a veces no paga todo, o también puede que el cliente venga a hacer una entrega antes de su fecha de pago.
-
ENTER y como haces cuando solo pagan parte de una cuota y luego vuelven al dia sigte. y pagan el resto de la cuota, simplemente actualizas! los campos "pago" y "Estado=PAGADO"pero no queda registrado por ningun lado que dicha cuota se pago en 2 partes o me equivoco. Aqui estoy en conflicto por que si doy recibos por cada pago aunque se pague una misma cuota en varios pagos segun lo que muestran tus imagenes esto no se registra o quizas lo tengas oculto, bueno haber si me despejan esta duda.
-
Disculpa me olvide no lo puse ese si queda todo registrado y solo actualiza el campo.
Esta es la tabla.
(http://www.mediafire.com/conv/eeba0691e909199c321cddec18865364b02a1f2b79e2a5ea04c6d48dc4dddb0f4g.jpg) (http://www.mediafire.com/view/?xccax1aq8811s0x)
el campo fcount me sirve para deshacer un pago. es decir el operador por ejemplo cobro mal en ves de poner 50.000 puso 5.000 entonces con ese campo se cual fue el ultimo pago de cada factura por que el cliente puede tener 3,4,5 factura.
Ejemplo acá el cliente tiene 3 facturas:
(http://www.mediafire.com/conv/f95803538a39d772d5f5c9c0b03c0fe51945268c07fac9b24db3f37608fee4b54g.jpg) (http://www.mediafire.com/view/?vd7319ndigs57oi)