diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb
index 141c03289..8b913b6c3 100644
--- a/Inventarios/EntradasSalidas.aspx.vb
+++ b/Inventarios/EntradasSalidas.aspx.vb
@@ -1953,15 +1953,27 @@ Partial Class Inventarios_EntradasSalidas
                                 OpcionPrePoliza = 11
                             End If
 
-                            If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, OpcionPrePoliza) Then
-                                If ObjConta.ValorPolizaDescuadre > 0 Then
-                                    ErrorMovInv = True
-                                    GuardaLogAD($"Inv/ES | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
-                                    Alert("No se pudo validar la prepoliza de cuadre.", TipoMensaje.MsgAdvertencia)
-                                End If
-                            Else
-                                Alert("No se pudo validar la prepoliza de cuadre.", TipoMensaje.MsgAdvertencia)
+                            Dim AutoConta As Boolean = True
+                            If (UsuarioActual.CveEmpresa = 119 And EsConsumoInterno) Then
+                                AutoConta = False
                             End If
+                            If Not ErrorMovInv AndAlso Not ObjConta.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual, Opcion:=OpcionPrePoliza, AutoConta:=AutoConta) Then
+                                ErrorMovInv = True
+                                'If ObjConta.ValorPolizaDescuadre > 0 Then
+                                '    GuardaLogAD($"Compras/Compras-Guardar | Error{ObjConta.MensajePolizaDescuadre} Diferencia{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
+                                '    ErrorPrepolizaDescuadre = True
+                                'End If
+                            End If
+
+                            'If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, OpcionPrePoliza) Then
+                            '    If ObjConta.ValorPolizaDescuadre > 0 Then
+                            '        ErrorMovInv = True
+                            '        GuardaLogAD($"Inv/ES | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
+                            '        Alert("No se pudo validar la prepoliza de cuadre.", TipoMensaje.MsgAdvertencia)
+                            '    End If
+                            'Else
+                            '    Alert("No se pudo validar la prepoliza de cuadre.", TipoMensaje.MsgAdvertencia)
+                            'End If
                         End If
 
                         '------------------------------------------------
@@ -4503,9 +4515,6 @@ Partial Class Inventarios_EntradasSalidas
             End If
         Next
 
-
-
-
         If Prorratear Then
             If Not ErrorMovInv AndAlso CveMovimientoSalida > 0 Then
                 If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then
@@ -4527,8 +4536,6 @@ Partial Class Inventarios_EntradasSalidas
             End If
         End If
 
-
-
         If Not ErrorMovInv Then
             For Each Dr As DataRow In DtMovimientosEntradaInvFisico.Rows
                 ImporteConcepto = If(Prorratear, ProPU, Dr("PU").ToString.ToDecimal)
@@ -4635,17 +4642,28 @@ Partial Class Inventarios_EntradasSalidas
                 End If
             End If
 
-
-            End If
+        End If
 
         If Not ErrorMovInv Then
-            If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, -1) Then
-                ObjConta.GetPrePolizasDetalle(CvePrePoliza, UsuarioActual.CveEmpresa)
-                If ObjConta.ValorPolizaDescuadre > 0 Then
-                    ErrorMovInv = True
-                    Mensaje = "Ocurrió un error al validar los movimientos contables"
-                End If
+            Dim AutoConta As Boolean = True
+            If (UsuarioActual.CveEmpresa = 119) Then
+                AutoConta = False
             End If
+            If Not ErrorMovInv AndAlso Not ObjConta.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual, AutoConta:=AutoConta) Then
+                ErrorMovInv = True
+                'If ObjConta.ValorPolizaDescuadre > 0 Then
+                '    GuardaLogAD($"Compras/Compras-Guardar | Error{ObjConta.MensajePolizaDescuadre} Diferencia{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
+                '    ErrorPrepolizaDescuadre = True
+                'End If
+            End If
+
+            'If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, -1) Then
+            '    ObjConta.GetPrePolizasDetalle(CvePrePoliza, UsuarioActual.CveEmpresa)
+            '    If ObjConta.ValorPolizaDescuadre > 0 Then
+            '        ErrorMovInv = True
+            '        Mensaje = "Ocurrió un error al validar los movimientos contables"
+            '    End If
+            'End If
         End If
 
         Dim RetornoVirtual As MMovimientoVirtual = Nothing
@@ -4695,8 +4713,6 @@ Partial Class Inventarios_EntradasSalidas
     End Sub
     Private Sub BtnGuardarCambiosVigencia_Click(sender As Object, e As EventArgs) Handles BtnGuardarCambiosVigencia.Click
 
-
-
         If GvSalidasCambioVigencia.Rows.Count = 0 Then
             Alert("No hay ningun registro para generar el movimiento. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgError)
             RegistraScript("playsonidito('142608__autistic-lucario__error.wav')")
diff --git a/Inventarios/PrestamosdeProveedor.aspx.vb b/Inventarios/PrestamosdeProveedor.aspx.vb
index 3913420b9..8f4b45ce7 100644
--- a/Inventarios/PrestamosdeProveedor.aspx.vb
+++ b/Inventarios/PrestamosdeProveedor.aspx.vb
@@ -237,6 +237,18 @@ Partial Class Inventarios_PrestamosdeProveedor
                         If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoAlmacen, -tValorInventario, TxtObservacionesEntrega.Text.Trim, CveConceptoContable, TxtObservacionesEntrega.Text.Trim, Fecha, IdCtaContableOtro, -1, CveMovimientoAlmacen:=CveMovimientoSalida, CveClasificacion:=CveClasifCosto, ImporteMX:=-tValorInventario, CveSubProyecto:=CveSubProyecto) Then
                             ErrorMovInv = True
                         End If
+                    End If
+
+                    Dim AutoConta As Boolean = True
+                    If (UsuarioActual.CveEmpresa = 119) Then
+                        AutoConta = False
+                    End If
+                    If Not ErrorMovInv AndAlso Not ObjConta.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual, AutoConta:=AutoConta) Then
+                        ErrorMovInv = True
+                        'If ObjConta.ValorPolizaDescuadre > 0 Then
+                        '    GuardaLogAD($"Compras/Compras-Guardar | Error{ObjConta.MensajePolizaDescuadre} Diferencia{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
+                        '    ErrorPrepolizaDescuadre = True
+                        'End If
                     End If
                 Else
                     ErrorMovInv = True