Compras refacturacion, Nominas layout Banorte, RegPrepolizas

Contabilidad/RegPrePolizaS.aspx.vb

@@ -2724,7 +2724,10 @@ Partial Class ContabilidadC_RegPrePolizaS
 
                     TxtFolio.Text = ObjConta.ContaFolio.ToString()
                     LnkFolioManual.Visible = False
+                    BtnContabilizar.Visible = False
+                    BtnDescontabilizar.Visible = True
                     UpPoliza.Update()
+                    UpGuardar.Update()
 
                 End If
 
@@ -3215,15 +3218,18 @@ Partial Class ContabilidadC_RegPrePolizaS
 
 
         If ObjConta.ContabilizaDesContabilizaPrePoliza(CvePrePoliza, False, UsuarioActual.CveEmpresa) Then
+
             Alert("Descontabilizado Correctamente.", TipoMensaje.MsgInformacion)
             TxtFolio.Text = ""
             LnkFolioManual.Visible = True
+            BtnDescontabilizar.Visible = False
+            BtnContabilizar.Visible = True
         End If
 
         ObjConta.Dispose()
 
         UpPoliza.Update()
-
+        UpGuardar.Update()