IE cancelacion, RegPrePolizasS contabilizar descontabilizar Folio opcional

Contabilidad/RegPrePolizaS.aspx.vb

@@ -277,6 +277,21 @@ Partial Class ContabilidadC_RegPrePolizaS
                 ValidaCrearAPartirDe()
                 DvPlantilla.Visible = False
                 UPPDocumento.Visible = False
+
+                If UsuarioActual.Empresa.TipoContabilidad = 1 Then
+
+                    If Folio.ToEntero > 0 Then
+                        BtnDescontabilizar.Visible = True
+                        LnkFolioManual.Visible = False
+                    Else
+                        BtnDescontabilizar.Visible = False
+                        LnkFolioManual.Visible = True
+                    End If
+
+                End If
+
+
+
                 Exit Sub
 
             ElseIf Request("CvePrePolizaOrigen") IsNot Nothing AndAlso IsNumeric(Request("CvePrePolizaOrigen")) AndAlso Request("CvePrePolizaOrigen").ToEntero > 0 Then
@@ -2695,22 +2710,51 @@ Partial Class ContabilidadC_RegPrePolizaS
 
         Dim ObjConta As New ClsContabilidad
 
-        If IdPoliza > 0 Then 'si está bloqueada, lo desbloqueaprimero
-            ObjConta.UpdatePrePolizasDetalleBloquear(CvePrePoliza, False)
-        End If
+        If UsuarioActual.Empresa.TipoContabilidad = 1 Then
+
+            If Folio.ToEntero = 0 Then
+
+                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)
+
+                    TxtFolio.Text = ObjConta.ContaFolio.ToString()
+                    LnkFolioManual.Visible = False
+                    UpPoliza.Update()
+
+                End If
 
-        If ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, pIDPoliza:=If(IdPoliza > 0, IdPoliza, -1), Concepto:=TxtConcepto.Text, Fecha:=TxtFechaDocumento.Text.ToDateTime()) Then
-            If UsuarioActual.Empresa.TipoContabilizacion = 1 Then
-                Alert(String.Format("Prepóliza contabilizada. <br/><br/>Folio: <b>{0}</b> ", ObjConta.FolioPoliza), ModExtensiones.TipoMensaje.MsgInformacion)
-            Else
-                Alert(String.Format("Prepóliza contabilizada. <br/><br/>Folio:<a Class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Ver Póliza</a>", ObjConta.ContaIdPoliza), ModExtensiones.TipoMensaje.MsgInformacion)
             End If
 
         Else
 
-            Alert($"Ocurrio un error al contabilizar {ObjConta.AlertaMensaje}", TipoMensaje.MsgAdvertencia)
+
+            If IdPoliza > 0 Then 'si está bloqueada, lo desbloqueaprimero
+                ObjConta.UpdatePrePolizasDetalleBloquear(CvePrePoliza, False)
+            End If
+
+            If ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, pIDPoliza:=If(IdPoliza > 0, IdPoliza, -1), Concepto:=TxtConcepto.Text, Fecha:=TxtFechaDocumento.Text.ToDateTime()) Then
+                If UsuarioActual.Empresa.TipoContabilizacion = 1 Then
+                    Alert(String.Format("Prepóliza contabilizada. <br/><br/>Folio: <b>{0}</b> ", ObjConta.FolioPoliza), ModExtensiones.TipoMensaje.MsgInformacion)
+                Else
+                    Alert(String.Format("Prepóliza contabilizada. <br/><br/>Folio:<a Class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Ver Póliza</a>", ObjConta.ContaIdPoliza), ModExtensiones.TipoMensaje.MsgInformacion)
+                End If
+
+            Else
+
+                Alert($"Ocurrio un error al contabilizar {ObjConta.AlertaMensaje}", TipoMensaje.MsgAdvertencia)
+            End If
+
         End If
 
+
+
+
+
         ObjConta.Dispose()
     End Sub
 
@@ -3159,13 +3203,38 @@ Partial Class ContabilidadC_RegPrePolizaS
 
 
     End Sub
+
+
 #End Region
 
 
 
+    Private Sub BtnDescontabilizar_Click(sender As Object, e As EventArgs) Handles BtnDescontabilizar.Click
+
+        Dim ObjConta As New ClsContabilidad
+
+
+        If ObjConta.ContabilizaDesContabilizaPrePoliza(CvePrePoliza, False, UsuarioActual.CveEmpresa) Then
+            Alert("Descontabilizado Correctamente.", TipoMensaje.MsgInformacion)
+            TxtFolio.Text = ""
+            LnkFolioManual.Visible = True
+        End If
+
+        ObjConta.Dispose()
+
+        UpPoliza.Update()
 
 
 
 
+    End Sub
+
+    Private Sub LnkFolioManual_Click(sender As Object, e As EventArgs) Handles LnkFolioManual.Click
+
+        TxtFolio.Enabled = True
+        TxtFolio.Focus()
+        UpPoliza.Update()
+
+    End Sub
 End Class