diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb
index ddca79238..e6e877f15 100644
--- a/App_Code/ClsContabilidad.vb
+++ b/App_Code/ClsContabilidad.vb
@@ -6386,14 +6386,16 @@ Public Class ClsContabilidad
 #End Region
 
 #Region "VALIDACION POLIZA DESCUADRADA"
-    Public Function ValidacionPrePolizaCuadre(CvePrePoliza As Integer, Opcion As Integer, Optional CveVenta As Integer = -1) As Boolean
+    Public Function ValidacionPrePolizaCuadre(CvePrePoliza As Integer, Opcion As Integer, Optional CveVenta As Integer = -1, Optional AutoConta As Boolean = True) As Boolean
         Dim Retorno = False
 
-        DataAdapter("PA_Conta_PrePoliza_Validacion")
+        DataAdapter("PA_Conta_PrePolizasValidacion")
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza
-            .Add("@CveVenta", SqlDbType.Int).Value = CveVenta
             .Add("@Opcion", SqlDbType.Int).Value = Opcion
+            ' .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveVenta", SqlDbType.Int).Value = CveVenta
+            .Add("@AutoConta", SqlDbType.Int).Value = If(AutoConta, 1, 0)
             .Add("@Valor", SqlDbType.Int).Direction = ParameterDirection.Output
             .Add("@MsgSalida", SqlDbType.VarChar, 100).Direction = ParameterDirection.Output
             .Add("@MsgPrePolizaSalida", SqlDbType.VarChar, 8000).Direction = ParameterDirection.Output