-- parametro de cveempresa, en getprepolizasdetalle

App_Code/ClsContabilidad.vb

@@ -1090,12 +1090,13 @@ Public Class ClsContabilidad
         Return Concepto
     End Function
 
-    Public Function GetPrePolizasDetalle(CvePrePoliza As Integer, Optional CveIE As Integer = -1) As Boolean
+    Public Function GetPrePolizasDetalle(CvePrePoliza As Integer, CveEmpresa As Integer, Optional CveIE As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Conta_PrePolizasDetalleGet")
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza
             .Add("@CveIE", SqlDbType.Int).Value = CveIE
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
         End With
 
         Try