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

-- mejora en manejo de liga para prepoliza

Browse Source
This commit is contained in:
rrene
2022-05-26 13:47:57 -07:00
parent 819a5e0db0
commit 6440299038
1 changed files with 4 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
Contabilidad/PopUpAuxiliar.aspx.vb
View File

@@ -268,7 +268,7 @@ Partial Class PopUpAuxiliar
End If End If
If Not TieneError Then If Not TieneError Then
If IdPoliza > 0 Then If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso IdPoliza > 0 Then
If UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.UsaContabilidad Then If UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.UsaContabilidad Then
ObjContPaq = New ClsContPAQi(UsuarioActual.Empresa) ObjContPaq = New ClsContPAQi(UsuarioActual.Empresa)
ObjContPaq.IniciaTransacSQL() ObjContPaq.IniciaTransacSQL()
@@ -410,8 +410,9 @@ Partial Class PopUpAuxiliar
RegistraScript(" $('#DivCancelar').modal('hide'); ") RegistraScript(" $('#DivCancelar').modal('hide'); ")
If UsuarioActual.Empresa.Funcionalidad(200) = "1" Then If UsuarioActual.Empresa.Funcionalidad(200) = "1" Then
If ObjContabilidad.ContabilizarPrePoliza(CvePrePolizaNueva, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then If ObjContabilidad.ContabilizarPrePoliza(CvePrePolizaNueva, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
Str.AppendFormat("<a href='/Contabilidad/RegPoliza.aspx?IdPoliza={0}' target='_blank' class='Texto'>Ver Poliza</a>", ObjContabilidad.ContaIdPoliza) If UsuarioActual.Empresa.TipoContabilidad = 2 Then
Str.AppendFormat("<a href='/Contabilidad/RegPoliza.aspx?IdPoliza={0}' target='_blank' class='Texto'>Ver Poliza</a>", ObjContabilidad.ContaIdPoliza)
End If
End If End If
End If End If
Alert(Str.ToString) Alert(Str.ToString)
@@ -420,8 +421,6 @@ Partial Class PopUpAuxiliar
End If End If
ObjContabilidad.Dispose() ObjContabilidad.Dispose()
CargaDatos() CargaDatos()