AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

quitar codigos en ddl SAT, filtrado por CP colonia choferes

Browse Source
This commit is contained in:
rakcsle
2021-11-02 17:31:01 -07:00
parent 135c8f9d17
commit 580b33071a
6 changed files with 57 additions and 40 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Bancos/Creditos.aspx.vb
View File

@@ -1130,15 +1130,21 @@ Partial Class Bancos_Creditos
Else
Row("Intereses") = IPmt(Tasa, i.ToString.ToDouble, TxtPlazo.Text.ToDouble, TxtTotalCredito.Text.ToDouble) * -1
Row("Capital") = PPmt(Tasa, i, TxtPlazo.Text.ToDouble, TxtTotalCredito.Text.ToDouble) * -1 'TxtMensualidad.Text.ToDouble - Row("Intereses").ToString.ToDouble
'Row("Capital") = TxtMensualidad.Text.ToDouble - Row("Intereses").ToString.ToDouble
' Row("IVA") = 0.0
End If
Row("SaldoInsoluto") = If(i > 1, DTAmortizacion(i - 2)("SaldoInsoluto").ToString.ToDouble, TxtTotalCredito.Text.ToDouble) - If(i > 1, DTAmortizacion(i - 2)("Capital").ToString.ToDouble, 0)
Row("IVACapital") = Row("Capital").ToString.ToDouble * TxtIVA.Text.ToDouble / 100
Row("IVAIntereses") = Row("Intereses").ToString.ToDouble * TxtIVA.Text.ToDouble / 100
Row("IVASeguro") = Row("Seguro").ToString.ToDouble * TxtIVA.Text.ToDouble / 100
Row("ImportePago") = 0
Row("Mensualidad") = Row("Capital").ToString.ToDecimal + Row("Intereses").ToString.ToDecimal + Row("Seguro").ToString.ToDecimal + Row("IVACapital").ToString.ToDecimal + Row("IVAIntereses").ToString.ToDecimal + Row("IVASeguro").ToString.ToDecimal
DTAmortizacion.Rows.Add(Row)
Next