AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge branch 'master' of http://oirigoyen@192.168.10.111:8383/SIG.git

Browse Source
This commit is contained in:
rakcsle
2022-02-18 12:34:05 -07:00
parent bc9ff8d722 3ccb6d1a15
commit cb4706f8cb
31 changed files with 1897 additions and 494 deletions
Download Patch File Download Diff File Expand all files Collapse all files

42
Contabilidad/RegPrePolizaS.aspx.vb
View File

@@ -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
@@ -2611,29 +2610,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. <br/><br/>Folio:<a Class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Ver Póliza</a>", 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. <br/><br/>Folio:<a Class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Ver Póliza</a>", 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"
@@ -2795,16 +2794,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