Visual Basic.NET - Distribuir abonos a diferentes cuentas

   
Vista:

Distribuir abonos a diferentes cuentas

Publicado por Elianny (62 intervenciones) el 09/08/2015 16:45:46
Buenas días

Programo en vb.net
Tengo un textbox que se llama txtMonto
Tengo un datagridview, con dos columnas:

Balance Factura Abono
2000
1500
1000

Tengo un botón que se llama btnDistribuir

Por ejemplo, si en ejecución dentro del txtMonto, hay 4000 y presiono clic al botón btnDistribuir,

Deberá salir así:

Balance Factura Abono
2000 2000
1500 1500
1000 500

Espero que puedan ayudarme, necesito este código para el Registro Recibo de ingreso/Pagos

Saludos cordiales.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Distribuir abonos a diferentes cuentas

Publicado por Miguel (352 intervenciones) el 09/08/2015 17:20:02
Hola Elianny,

Cómo se calcula cuánto distribuir en cada fila?


Saludos,
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Distribuir abonos a diferentes cuentas

Publicado por Elianny (62 intervenciones) el 09/08/2015 20:17:34
Gracias por contestar

por ejemplo, yo tengo pendiente por pagar 3 facturas, el balance de las 3 facturas son 4500 pesos, pero solo tengo 4000, el botón distribuir que hace:

como son 4000, salda la primera factura, y si queda mas dinero salda la segunda factura, y como solo quedan 500 pesos de los 4000, hace un abono a la 3era factura de 500 pesos; eso es distribuir

pero gracias a Dios con la ayuda de unos amigos puede resolver

me quedo Asi:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub btnDistribuir_Click(sender As Object, e As EventArgs) Handles btnDistribuir.Click
        Dim monto As Double
        If Double.TryParse(txtMonto.Text, monto) Then
            For Each row As DataGridViewRow In DataGridView1.Rows
                Dim balance As Double
                If Double.TryParse(row.Cells("Balance").Value, balance) Then
                    If balance > monto Then
                        row.Cells("Abono").Value = monto
                        monto = 0
                    Else
                        row.Cells("Abono").Value = balance
                        monto = monto - balance
                    End If
                End If
            Next
        End If
    End Sub

De todos modos muchas gracias.
.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar