diff --git a/Contabilidad/RegPrePolizaS.aspx b/Contabilidad/RegPrePolizaS.aspx index 15117ab36..da6e5c217 100644 --- a/Contabilidad/RegPrePolizaS.aspx +++ b/Contabilidad/RegPrePolizaS.aspx @@ -231,11 +231,7 @@
Si -
- -
- -
+
@@ -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 + 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