diff --git a/Contabilidad/RegPrePolizaS.aspx b/Contabilidad/RegPrePolizaS.aspx
index 7fdbf74da..6bb72ae7d 100644
--- a/Contabilidad/RegPrePolizaS.aspx
+++ b/Contabilidad/RegPrePolizaS.aspx
@@ -405,7 +405,8 @@
                                 <asp:TemplateField HeaderText="Eliminar">
                                     <ItemTemplate>
                                         <asp:LinkButton ID="LnkE" runat="server" AlternateText="Editar" CausesValidation="False" CommandName="Edit" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
-                                        <asp:ImageButton Visible="false" ID="imgD" runat="server" AlternateText="Eliminar" CausesValidation="False" CommandName="Delete" ImageUrl="/Imagenes/Btn_Delete.png" OnClientClick="javascript:return C();" />
+                                        <asp:LinkButton Visible="false" ID="imgD" runat="server" AlternateText="Eliminar" CausesValidation="False" CommandName="Delete" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>"  OnClientClick="javascript:return C();" />
+
                                     </ItemTemplate>
                                 </asp:TemplateField>
 
diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb
index 2c44b33e0..4b37f6583 100644
--- a/Contabilidad/RegPrePolizaS.aspx.vb
+++ b/Contabilidad/RegPrePolizaS.aspx.vb
@@ -787,7 +787,7 @@ Partial Class ContabilidadC_RegPrePolizaS
 
             If DdlPlantilla.SelectedValue.ToEntero = 53 Then 'Plantilla Personalizada
                 e.Row.FCDropDownList("DdlSubProyecto").Enabled = True
-                e.Row.FCImageButton("imgD").Visible = True
+                e.Row.FCLinkButton("imgD").Visible = True
             Else
                 e.Row.FCDropDownList("DdlSubProyecto").Enabled = False
             End If
@@ -1443,7 +1443,10 @@ Partial Class ContabilidadC_RegPrePolizaS
                 dr("CveCliente") = DdlClientes.SelectedValue.ToEntero
                 dr("CveVenta") = DdlVentas.SelectedValue.ToEntero
                 dr("CveCuenta") = DdlCtaContable.SelectedValue.ToEntero
-            End If
+            End If
+            GvMov.DataSource = DtMovimientos
+            GvMov.DataBind()
+            UPMovs.Update()
             LbCancelarEdicion.Visible = False
             LbAgregar.Text = "Agregar"