Amortización de Prestamos

[wolf_kof]

Tengo un pequeño problemita con uns osftware que estoy retocando!!!! les cuento, he aqui el codigo que tengo para guardar una simple venta de un producto ya sea al contado, credito por abonos a plazos distintos o a plazos fijos (Amortización).

Código: (vb) [Seleccionar]

Private Sub Command2_Click()
On Error Resume Next

    If Check1.Value = 0 Then
        CREDIT = "CONTADO"
    End If
    correlativo.Requery -1
    If estado = "Nuevo" Then
       
        ' agrega una nueva factura
       
        ventas.Requery -1
        detalleventas.Requery -1
        inventario.Requery -1
       
        ventas.AddNew
       
        'Se obtiene el numero de facura
        ventas!factura = correlativo!Id + 1
       
        'Se guarda el Numero de Facura en su tabla
        correlativo!Id = ventas!factura
        correlativo.Update
       
        ventas!fecha = t2.Value
        ventas!nitc = t1.Text
        ventas!cliente = t4.Caption
        ventas!direccion = t5.Caption
        ventas!cantidad = Text2.Text
        ventas!recibido = Text3.Text
        ventas!cambio = Text4.Text
        ventas!estado = CREDIT
        ventas!credito = Check1.Value
        temporalv.Filter = "factura = '" & maquina & "'"
               
       
        Do Until temporalv.EOF
            detalleventas.AddNew
            detalleventas!factura = correlativo!Id + 1
            detalleventas!cant = temporalv!cant
            detalleventas!codigo = temporalv!codigo
           
            inventario.Filter = "codigo = '" & temporalv!codigo & "'"
            inventario!stock = inventario!stock - temporalv!cant
            inventario.Update
           
            detalleventas!descripcion = temporalv!descripcion
            detalleventas!puni = temporalv!puni
            detalleventas!subtotal = temporalv!subtotal
            detalleventas!prpuni = temporalv!prpuni
            detalleventas!prptotal = temporalv!prptotal
            detalleventas.Update
            temporalv.MoveNext
        Loop
       
        'limpia la tabla temporal
       
        temporalv.MoveFirst
        temporalv.Filter = "factura = '" & maquina & "'"
        Do Until temporalv.EOF
            temporalv.Delete
            temporalv.MoveNext
        Loop
        ventas.Update
       
        'SE INGRESA LOS CREDITOS SI EXISTE
       
        'SE INGRESA CREDITOS POR ABONOS
        If CREDIT = "ABONO" Then
            abonos.Requery -1
            abonos.AddNew
            abonos!factura = ventas!factura
            abonos!fecha_pago = Date
            abonos!saldo = Text2.Text
            abonos!pago = "0.00"
            abonos!deuda = Text2.Text
            abonos.Update
        End If
       
        'SE INGRESA CREDITOS POR AMORTIZACION
        If CREDIT = "AMORTIZACION" Then
           
            amortizaciones.Requery -1

            Dim numero
            Dim costo
           
            costo = Text2.Text / 12
           
            For numero = 1 To 12
                amortizaciones.AddNew
                amortizaciones!pago = numero
                'problema de fecha!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
                amortizaciones!fecha = date + 31
                amortizaciones!cant = Format(costo, "0.00")
                amortizaciones!estado = "PENDIENTE DE PAGO"
                amortizaciones.Update
            Next
       
        End If
       
        Call rellenarlist
        Call limpiar
    End If

End Sub


pero el problema es el siguiente, no se me ocurre nada y eso que ya investigue en internet y no he encontrado una solución tangible, tengo que poner la fecha de los primeros dias abiles de cada mes desde que se realizo el prestamo para 12 meses osea si estamos en octubre del 2010 la tabla tiene que quedar hasta septiembre del 2010 o algo asi, osea no solo es la fecha sino el año, si me pudieran ayudar con esto graxias.

[ssccaann43]

Me confunde un poco lo que requieres...!

A ver, pero te expongo algo que quizas pueda ayudarte...

Por ejemplo, si el pago se realizo en agosto, deseas agregar los meses siguientes hasta llegar al anio...!

Código: (vb) [Seleccionar]

Dim FechaInicial As Date

For numero = 1 To 12

        'aqui adiciono un mes a la fecha.
        FechaInicial = DateAdd("m", numero, Date)

        'aqui, me posiciono en el primer dia de la fecha a la que le voy adicionando el mes
        FechaInicial = "01/" & Month(FechaInicial) & "/" & Year(FechaInicial)

        amortizaciones.AddNew
        amortizaciones!pago = numero
        amortizaciones!fecha = FechaInicial
        amortizaciones!cant = Format(costo, "0.00")
        amortizaciones!estado = "PENDIENTE DE PAGO"
        amortizaciones.Update

Next


Sera esto lo que deseas?

[wolf_kof]

Eso es justamente, como siempre Groso mi querido amigo SSCCAANN

[Aldana_D]

Buen dia...
Por las dudas... no tendria alguien el desarrollo del sistema frances programado? me esta partiendo la cabeza.. y no lo estoy pudiendo resolver.