-

Contabilidad/RegPrePolizaS.aspx.vb

@@ -2560,7 +2560,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
 
@@ -3044,15 +3047,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()