Alert descuadre de poliza al actualizar compra
This commit is contained in:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user