@@ -713,7 +709,7 @@
- <%----%>
+
diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb
index 6fd890e1f..13b90a69e 100644
--- a/Contabilidad/RegPrePolizaS.aspx.vb
+++ b/Contabilidad/RegPrePolizaS.aspx.vb
@@ -531,14 +531,13 @@ Partial Class ContabilidadC_RegPrePolizaS
End If
- If UsuarioActual.CveEmpresa = 119 Then
- ' BtnContabilizar.Visible = True
+ If dr("FolioPoliza").ToString = "" Then
+ BtnContabilizar.Visible = True
End If
If UsuarioActual.Empresa.TipoContabilizacion = 1 Then
If dr("FolioPoliza").ToString.ToEntero > 0 Then
divContabilizada.Visible = True
- LblFolio.Text = dr("FolioPoliza").ToString
Folio = dr("FolioPoliza").ToString
End If
@@ -2588,29 +2587,29 @@ Partial Class ContabilidadC_RegPrePolizaS
End Function
#End Region
- 'Private Sub BtnContabilizar_Click(sender As Object, e As EventArgs) Handles BtnContabilizar.Click
+ Private Sub BtnContabilizar_Click(sender As Object, e As EventArgs) Handles BtnContabilizar.Click
- ' Contabilizar()
+ Contabilizar()
- 'End Sub
+ End Sub
- 'Private Sub Contabilizar()
+ Private Sub Contabilizar()
- ' Dim ObjConta As New ClsContabilidad
+ Dim ObjConta As New ClsContabilidad
- ' If IdPoliza > 0 Then 'si está bloqueada, lo desbloqueaprimero
- ' ObjConta.UpdatePrePolizasDetalleBloquear(CvePrePoliza, False)
- ' End If
+ 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
- ' Alert(String.Format("Prepóliza contabilizada.
Folio:Ver Póliza", ObjConta.ContaIdPoliza), ModExtensiones.TipoMensaje.MsgInformacion)
+ Else
- ' Alert($"Ocurrio un error al contabilizar {ObjConta.AlertaMensaje}", TipoMensaje.MsgAdvertencia)
- ' End If
+ Alert($"Ocurrio un error al contabilizar {ObjConta.AlertaMensaje}", TipoMensaje.MsgAdvertencia)
+ End If
- ' ObjConta.Dispose()
- 'End Sub
+ ObjConta.Dispose()
+ End Sub
#Region "Paquete Egresos"
@@ -2772,16 +2771,9 @@ Partial Class ContabilidadC_RegPrePolizaS
LnkComplementoPago.Visible = True
End If
-
- If UsuarioActual.CveEmpresa = 119 Then
- ' BtnContabilizar.Visible = True
- End If
-
-
If UsuarioActual.Empresa.TipoContabilizacion = 1 Then
If dr("FolioPoliza").ToString.ToEntero > 0 Then
divContabilizada.Visible = True
- LblFolio.Text = dr("FolioPoliza").ToString
Folio = dr("FolioPoliza").ToString
End If