diff --git a/Bancos/RepIngresosPorComprobar.aspx b/Bancos/RepIngresosPorComprobar.aspx
index f0c84a439..928e41330 100644
--- a/Bancos/RepIngresosPorComprobar.aspx
+++ b/Bancos/RepIngresosPorComprobar.aspx
@@ -282,7 +282,7 @@
Fecha:
-
diff --git a/Bancos/RepIngresosPorComprobar.aspx.vb b/Bancos/RepIngresosPorComprobar.aspx.vb
index 32e006658..12998e47f 100644
--- a/Bancos/RepIngresosPorComprobar.aspx.vb
+++ b/Bancos/RepIngresosPorComprobar.aspx.vb
@@ -267,6 +267,7 @@ Partial Class Bancos_RepIngresosPorComprobar
End Sub
Protected Sub LnkSaldar_Click(sender As Object, e As EventArgs)
+ TxtObservaciones.Text = ""
RegistraScript("$('#DivModalSaldar').modal();")
End Sub
@@ -277,16 +278,20 @@ Partial Class Bancos_RepIngresosPorComprobar
ObjConta.IniciaTransacSQL()
Dim CvePrePoliza As Integer = 0
Dim MsgError As String = ""
- CvePrePoliza = ObjConta.AddPrePolizas("Bancos/RepIngresosPorComprobar", 6, 0, 0, 1, TxtFecha.Text.ToDate, "Saldo de IxC", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+
+ Dim Obs As String = TxtObservaciones.Text.Trim()
+
+ CvePrePoliza = ObjConta.AddPrePolizas("Bancos/RepIngresosPorComprobar", 6, 0, 0, 1, TxtFecha.Text.ToDate, Obs, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+
+ Dim FolioPoliza As Integer = ObjConta.FolioPoliza
For Each gr As GridViewRow In GvIPC.Rows
If gr.FCCheckBox("Chk").Checked Then
-
- If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, gr.DataKey("Saldo").ToDecimal, gr.DataKey("Saldo").ToDecimal, 92, "", "Saldo de IxC", CveIE:=gr.DataKey("CveIE").ToEntero, CveCliente:=gr.DataKey("CveCliente").ToEntero, CveSubProyecto:=DdlSubProyectoSaldar.SelectedValue.ToEntero) Then
+ If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, gr.DataKey("Saldo").ToDecimal, gr.DataKey("Saldo").ToDecimal, 92, "Saldo de IxC", Obs, CveIE:=gr.DataKey("CveIE").ToEntero, CveCliente:=gr.DataKey("CveCliente").ToEntero, CveSubProyecto:=DdlSubProyectoSaldar.SelectedValue.ToEntero) Then
MsgError = "Ocurrio un error al saldar el movimiento"
End If
- If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, gr.DataKey("Saldo").ToDecimal, gr.DataKey("Saldo").ToDecimal, 78, "", "Saldo de IxC", CveIE:=gr.DataKey("CveIE").ToEntero, CveSubProyecto:=DdlSubProyectoSaldar.SelectedValue.ToEntero) Then
+ If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, gr.DataKey("Saldo").ToDecimal, gr.DataKey("Saldo").ToDecimal, 78, "Saldo de IxC", Obs, CveIE:=gr.DataKey("CveIE").ToEntero, CveSubProyecto:=DdlSubProyectoSaldar.SelectedValue.ToEntero) Then
MsgError = "Ocurrio un error al saldar el movimiento"
End If
End If
@@ -296,7 +301,7 @@ Partial Class Bancos_RepIngresosPorComprobar
ObjConta.Commit()
CargaDatos()
- Alert(String.Format("Los movimientos se saldaron correctamente.
Póliza:
{1}
", CvePrePoliza, ObjConta.ContaFolio))
+ Alert(String.Format("Los movimientos se saldaron correctamente.
Póliza: {1}
", CvePrePoliza, FolioPoliza))
Else
ObjConta.RollBack()
Alert(MsgError, TipoMensaje.MsgError)