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

Cambio en RepRembolososComprobaciones

Browse Source
This commit is contained in:
Desarrollo2019
2019-08-19 16:28:17 -07:00
parent 8652b26302
commit 62551bf1a2
1 changed files with 7 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
Compras/RepRembolsoComprobaciones.aspx.vb
View File

@@ -201,15 +201,16 @@ Partial Class Compras_RepRembolsoComprobaciones
If UsuarioActual.Empresa.UsaAC AndAlso Not TieneError Then If UsuarioActual.Empresa.UsaAC AndAlso Not TieneError Then
If ObjAC Is Nothing Then If ObjAC Is Nothing Then
TieneError = True TieneError = True
Return
End If End If
If Not TieneError Then
If Not ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjAC) Then If Not ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjAC) Then
TieneError = True TieneError = True
Alert($"Ocurrio un error al contabilizar {ObjMov.AlertaMensaje}", TipoMensaje.MsgAdvertencia) Alert($"Ocurrio un error al contabilizar {ObjMov.AlertaMensaje}", TipoMensaje.MsgAdvertencia)
Else Else
IdPoliza = ObjMov.ContaIdPoliza IdPoliza = ObjMov.ContaIdPoliza
End If End If
End If
If IdPoliza > 0 AndAlso Not TieneError Then If IdPoliza > 0 AndAlso Not TieneError Then
Msg.AppendFormat("<br/><br/><a Class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Ver Póliza</a>", IdPoliza) Msg.AppendFormat("<br/><br/><a Class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Ver Póliza</a>", IdPoliza)