diff --git a/Contabilidad/RegPrePolizaS.aspx b/Contabilidad/RegPrePolizaS.aspx
index fde03b86f..4ba12dac4 100644
--- a/Contabilidad/RegPrePolizaS.aspx
+++ b/Contabilidad/RegPrePolizaS.aspx
@@ -404,7 +404,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 193be8c97..add9383be 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
@@ -1438,7 +1438,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"