Visual Basic Foro
Programación => Bases de Datos => Mensaje iniciado por: wolf_kof en Agosto 17, 2010, 12:38:44 am
-
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).
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. :'( :'( :'( :'( :'(
-
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...!
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?
-
Eso es justamente, como siempre Groso mi querido amigo SSCCAANN
-
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.