Alert descuadre de poliza al actualizar compra

This commit is contained in:
rakcsle
2022-01-24 08:09:43 -07:00
parent 597a4c4c7f
commit ea73d7e37b

View File

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