diff --git a/asmx/WSSIGApp.asmx b/asmx/WSSIGApp.asmx
index ef72b62e9..f17a9af4c 100644
--- a/asmx/WSSIGApp.asmx
+++ b/asmx/WSSIGApp.asmx
@@ -2449,7 +2449,7 @@ Public Class WSSIGApp
 
                         If CveEstatusFinalOK > 0 AndAlso CveEstatusFinalOK = Ent.CveEstatus Then
                             Dim IDPolizaPresupuestal = ObjOC.IdPoliza
-                            If ObjOC.GetOrdenesDetalle(Ent.CveOrdenCompra) Then
+                            If ObjOC.GetOrdenesDetalle(Ent.CveOrdenCompra, Ent.CveEmpresa) Then
                                 DtDetalle = ObjOC.DtResultados.Copy
                                 Dim ObjConta As ClsContPAQi = Nothing
                                 Retorno = Not GeneraOrdenes(FolioOCGeneradas, ObjConta, ObjOC, DtOC.Rows(0), DtDetalle, Ent.CveUsuario, Ent.CveEmpresa, IDPolizaPresupuestal, UsaAC, DtPresupuestos)
@@ -2679,7 +2679,7 @@ Public Class WSSIGApp
                     Dim jarray As JArray = JArray.Parse(ObjOC.DtResultados.ToJson)
                     Dim json As JObject = jarray.Children(Of JObject).FirstOrDefault()
                     If json IsNot Nothing Then
-                        If ObjOC.GetOrdenesDetalle(Entrada.CveOrdenCompra) Then
+                        If ObjOC.GetOrdenesDetalle(Entrada.CveOrdenCompra, Entrada.CveEmpresa) Then
                             json.Add(New JProperty("Detalle", JArray.Parse(ObjOC.DtResultados.ToJson)))
                         End If
                         Retorno = Encripta(json.ToString)
@@ -2700,13 +2700,14 @@ Public Class WSSIGApp
             Dim Estructura = New With
             {
                 Key .[CveOrdenCompra] = -1,
+                Key .[CveEmpresa] = -1,
                 Key .[Ticks] = ""
             }
             Dim JsonRequest As String = Decripta(Cadena)
             Dim Entrada = JsonConvert.DeserializeAnonymousType(JsonRequest, Estructura)
             If IsCurrentDate(Entrada.Ticks) Then
                 Dim ObjOC As New ClsOC
-                If ObjOC.GetOrdenesDetalle(Entrada.CveOrdenCompra) Then
+                If ObjOC.GetOrdenesDetalle(Entrada.CveOrdenCompra, Entrada.CveEmpresa) Then
                     Dim JsonRetorno = ObjOC.DtResultados.ToJson
                     retorno = Encripta(JsonRetorno)
                 End If
@@ -2871,7 +2872,7 @@ Public Class WSSIGApp
                 If ObjOC.AddCotizacion(Ent.CveOrdenCompra, Ent.CveProveedor, Ent.CveColectiva, "-1", "-1", "", 1, 0, 0) Then
                     CveCotizacion = ObjOC.CveCotizacion
                     'Cargar los detalles de la cotizacion
-                    If ObjOC.GetOrdenesDetalle(Ent.CveOrdenCompra) Then
+                    If ObjOC.GetOrdenesDetalle(Ent.CveOrdenCompra, Ent.CveEmpresa) Then
                         'Agrega CveCotizacion a la lista
 
                         For Each RowCD As DataRow In ObjOC.DtResultados.Rows
@@ -3221,7 +3222,7 @@ Public Class WSSIGApp
 
         Dim dtConceptos As DataTable = Nothing
         Dim ObjOCdb As New ClsOC
-        If ObjOCdb.GetOrdenesDetalle(CveOrdenCompra) Then
+        If ObjOCdb.GetOrdenesDetalle(CveOrdenCompra, CveEmpresa) Then
             dtConceptos = ObjOCdb.DtResultados
         End If
 
@@ -3320,7 +3321,7 @@ Public Class WSSIGApp
 
                     'verifico los permisos según el estatus
 
-                    If objOC.GetOrdenesDetalle(CveOrdenCompra) Then
+                    If objOC.GetOrdenesDetalle(CveOrdenCompra, CveEmpresaActual) Then
                         For Each dr As DataRow In objOC.DtResultados.Rows
                             strBody.AppendFormat("<tr class='Texto'><td>{0}</td><td>{1}</td><td><span style='width: 220px; border-bottom: 1px solid gray;'>{2}</span><br>{3}</td><td>{4}</td><td style='width:150px;'><span style='width: 150px; border-bottom: 1px solid gray;'>{5}</span><br>{6}</td><td>{7}</td><td align='right'>{8}</td><td align='right'>{9}</td></tr>",
                                                         dr("Cantidad").ToString.FormatoNumero, dr("Abreviatura"), dr("Clasificacion"), dr("PS"), dr("Observacion"), dr("Proyecto"), If(CveEmpresaActual = 66, "", dr("SubProyecto")), dr("Codigo"), If(Not IsDBNull(dr("Importe")), FormatCurrency(dr("Importe").ToString), ""), If(Not IsDBNull(dr("Total")), FormatCurrency(dr("Total").ToString), ""))