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

Alert descuadre de poliza al actualizar compra

Browse Source
This commit is contained in:
rakcsle
2022-01-24 08:09:43 -07:00
parent 597a4c4c7f
commit ea73d7e37b
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
Compras/Compras.aspx.vb
View File

@@ -9906,6 +9906,8 @@ Partial Class Compras_Compras
End If End If
'End If 'End If
'---------------------------------------------------------------------------------------------------
''EMPIEZA: SI USA AC ''EMPIEZA: SI USA AC
If UsuarioActual.Empresa.UsaAC AndAlso IdPoliza > 0 Then If UsuarioActual.Empresa.UsaAC AndAlso IdPoliza > 0 Then
ObjContaAC = New ClsContPAQi(UsuarioActual.Empresa) ObjContaAC = New ClsContPAQi(UsuarioActual.Empresa)
@@ -10228,7 +10230,7 @@ Partial Class Compras_Compras
End If End If
''TERMINA: SI USA AC ''TERMINA: SI USA AC
'----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
If Not ErrorAC Then If Not ErrorAC Then
Dim Cont As Integer = 0 Dim Cont As Integer = 0
@@ -10729,6 +10731,7 @@ Partial Class Compras_Compras
If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, 4) Then If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, 4) Then
If ObjConta.ValorPolizaDescuadre > 0 Then If ObjConta.ValorPolizaDescuadre > 0 Then
ErrorPrepoliza = True ErrorPrepoliza = True
Alert("Error en validacion de prepoliza cuadre", TipoMensaje.MsgAdvertencia)
GuardaLogAD($"Compras/Compras-Actualizar | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas") GuardaLogAD($"Compras/Compras-Actualizar | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
End If End If
End If End If