This commit is contained in:
2023-02-28 12:42:51 -07:00
87 changed files with 7965 additions and 4960 deletions

View File

@@ -3133,7 +3133,17 @@ Partial Class Inventarios_EntregaAlmacen
ErrorMovInv = True
End If
'AutoConta - El movimiento 1 es el de Venta
If Not ErrorMovInv AndAlso ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, -1) Then
If ObjConta.ValorPolizaDescuadre > 0 Then
GuardaLogAD($"Compras/Compras-Guardar | Error{ObjConta.MensajePolizaDescuadre} Diferencia{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
ErrorMovInv = True
End If
End If
Dim AutoConta As Boolean = UsuarioActual.Empresa.Funcionalidad(200) = "1"
If AutoConta And Not ErrorMovInv Then