diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb
index eafc5dd0b..3965abdfb 100644
--- a/Contabilidad/RegPrePolizaS.aspx.vb
+++ b/Contabilidad/RegPrePolizaS.aspx.vb
@@ -817,6 +817,8 @@ Partial Class ContabilidadC_RegPrePolizaS
 
         GvMov.DataSource = DtMovimientos
         GvMov.DataBind()
+        GvPrePoliza.DataBind() ''limpio el grid
+        UpPrePoliza.Update()
         UPMovs.Update()
 
     End Sub
@@ -982,9 +984,12 @@ Partial Class ContabilidadC_RegPrePolizaS
                     FolioPoliza = ObjMov.FolioPoliza
 
                     Dim Gv As GridView = GvMov
-                    If DdlPlantilla.SelectedValue = "53" Then
-                        Gv = GvPrePoliza
-                        TipoGrid = 1
+                    If DdlPlantilla.SelectedValue = "53" OrElse GvPrePoliza.Visible = True Then
+                        If GvPrePoliza.Rows.Count > 0 Then
+                            Gv = GvPrePoliza
+                            TipoGrid = 1
+                        End If
+
                     End If
 
                     'inserto las compras que voy a pagarDdlSaldos
@@ -1164,10 +1169,6 @@ Partial Class ContabilidadC_RegPrePolizaS
                 If row.FCCheckBox("chkModificado").Checked Then
                     contador = contador + 1
 
-
-
-
-
                     Dim ImporteIE As Decimal = If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0, row.FCLiteral("TxtCargo").Text.ToDecimal, row.FCLiteral("TxtAbono").Text.ToDecimal)
 
                     If row.DataKey("CveConceptoContable").ToEntero = 30 AndAlso ImporteIE > 0 AndAlso row.DataKey("CveIE").ToDecimal <= 0 Then
@@ -1182,9 +1183,6 @@ Partial Class ContabilidadC_RegPrePolizaS
                         End If
                     End If
 
-
-
-
                     If Not ObjContabilidad.UpdatePrePolizasDetalle(row.DataKey("CvePrePolizaDetalle").ToEntero, row.FCLiteral("TxtConcepto").Text, row.DataKey("CveSubProyecto").ToEntero,
                                                                        row.DataKey("IdCtaContable").ToEntero, If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0, False, True), If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0,
                                                                        row.FCLiteral("TxtCargo").Text.ToDecimal, row.FCLiteral("TxtAbono").Text.ToDecimal), CveTipoGasto:=If(DdlTipoGasto.Visible, row.DataKey("CveTipoGasto").ToEntero, row.DataKey("CveTipoGasto").ToEntero),
@@ -1242,7 +1240,7 @@ Partial Class ContabilidadC_RegPrePolizaS
 
         If Not OcurrioError Then
             If IdPoliza > 0 AndAlso contador Then
-                ' BtnContabilizar_Click(Nothing, Nothing)
+                Contabilizar()
             End If
 
         End If
@@ -2304,7 +2302,6 @@ Partial Class ContabilidadC_RegPrePolizaS
         DdlPlantilla.SelectedValue = DdlPlantilla2.SelectedValue
         dt = ReadExcelFile(Ruta + FileName, True)
 
-
         If Not ErrorArchivo Then
 
             If Not dt.Columns(0).ColumnName.ToUpper = "CONCEPTOADMINISTRATIVO" Then
@@ -2512,6 +2509,8 @@ Partial Class ContabilidadC_RegPrePolizaS
                     ContadorRegistros = ContadorRegistros + 1
                 Next
 
+                GvMov.DataBind()
+                divMovtos.Visible = False
                 GvPrePoliza.DataSource = DtMovimientos
                 GvPrePoliza.DataBind()
                 UpPrePoliza.Update()
@@ -2599,8 +2598,6 @@ Partial Class ContabilidadC_RegPrePolizaS
 
                 Dim FolioManual As Integer = If(TxtFolio.Text.ToEntero > 0, TxtFolio.Text.ToEntero, -1)
 
-
-
                 If ObjConta.ContabilizaDesContabilizaPrePoliza(CvePrePoliza, True, UsuarioActual.CveEmpresa, Folio:=FolioManual) Then
 
                     Alert($"Contabilizado Correctamente Folio <b>{ ObjConta.ContaFolio.ToString()}.</b>", TipoMensaje.MsgInformacion)
@@ -2618,7 +2615,6 @@ Partial Class ContabilidadC_RegPrePolizaS
 
         Else
 
-
             If IdPoliza > 0 Then 'si está bloqueada, lo desbloqueaprimero
                 ObjConta.UpdatePrePolizasDetalleBloquear(CvePrePoliza, False)
             End If
@@ -2637,10 +2633,6 @@ Partial Class ContabilidadC_RegPrePolizaS
 
         End If
 
-
-
-
-
         ObjConta.Dispose()
     End Sub