none
FOR EACH RRS feed

  • Pregunta

  • Buenas noches , ando dandole vueltas hace 2 dias a este for each, si bien es cierto los calculos que me arrojan son correctos.

    la columna de amort_efec ya la traigo del sql, son unos pagos que se hicieron, lo que hice aca fue generar el saldo por cada pago. 

    ste es:

    MontoInicial = CInt(txtimporte.Text)---este el importe que le ingreso

    For Each Fila As DataRow In DT_Original.Rows
                PagoAmort = Fila("Amort_Efec")
                x += 1
                If x = 1 Then
                    NuevoMontoInicial = MontoInicial
                Else
                    ' PagoAmort = Fila("Amort_Efec")
                    NuevoMontoInicial = NuevoMontoInicial - PagoAmort
                    'Fila("IntProgramado") = PorcentajeProg
                    'Fila("cuota") = txtcuota.Text
                    'Fila("Intprogramado") = Math.Round(NuevoMontoInicial * PorcentajeProg, 2)
                    'Fila("AmorProgramada") = Math.Round(Fila("Cuota") - Fila("Intprogramado"), 2)
                End If

    Fila("saldo") = NuevoMontoInicial

    next


    lutermick

    miércoles, 13 de noviembre de 2013 6:09