Correciones saldos inicales,Compras documentos relacionados

Inventarios/EntregaAlmacen.aspx.vb

@@ -3135,7 +3135,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