diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index d83e88ed7..31b36d589 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -6209,7 +6209,7 @@ Partial Class Compras_Compras
                                                                             Dim SumatoriaOCINV = 0.0D, Importe176 = 0.0D, ImporteME176 = 0.0D, ImporteMN176 = 0.0D, Importe228 = 0.0D, ImporteME228 = 0.0D, ImporteMN228 = 0.0D, Importe229 = 0.0D, ImporteME229 = 0.0D, ImporteMN229 = 0.0D, ImporteCI176 = 0.0D
                                                                             For Each Dr As DataRow In TmpDT.FiltraParametros("ISNULL(TipoAF,0) <> 2 AND ISNULL(CveAlmacen,0) = 0 AND ISNULL(AplicaCostoIndirecto,0) <> 1 AND ISNULL(CveTipoPS,0) = 2").Rows
                                                                                 If ObjOC.OrdenesCompraDetalleCostoPP(Dr("CveOrdenCompraDetalle").ToString.ToEntero) AndAlso ObjOC.DtResultados.Rows.Count = 1 Then
-                                                                                    Concepto = $"{NombreProveedor} {TxtSerie.Text} - {TxtFolio.Text} OC: {ObjOC.DtResultados.FiltroPrimeroValor("Folio").ToString}"
+                                                                                    Concepto = $"{NombreProveedor} {TxtSerie.Text} - {TxtFolio.Text} OC: {ObjOC.DtResultados.FiltroPrimeroValor("Folio").ToString} Inv:{ObjOC.DtResultados.FiltroPrimeroValor("FolioAlmacen").ToString}"
                                                                                     Importe176 = ObjOC.DtResultados.FiltroPrimeroValor("Importe176").ToDecimal * Dr("Cantidad").ToString.ToDecimal : ImporteME176 = ObjOC.DtResultados.FiltroPrimeroValor("ImporteME176").ToDecimal * Dr("Cantidad").ToString.ToDecimal : ImporteMN176 = ObjOC.DtResultados.FiltroPrimeroValor("ImporteMN176").ToDecimal * Dr("Cantidad").ToString.ToDecimal
                                                                                     Importe228 = ObjOC.DtResultados.FiltroPrimeroValor("Importe228").ToDecimal * Dr("Cantidad").ToString.ToDecimal : ImporteME228 = ObjOC.DtResultados.FiltroPrimeroValor("ImporteME228").ToDecimal * Dr("Cantidad").ToString.ToDecimal : ImporteMN228 = ObjOC.DtResultados.FiltroPrimeroValor("ImporteMN228").ToDecimal * Dr("Cantidad").ToString.ToDecimal
                                                                                     Importe229 = ObjOC.DtResultados.FiltroPrimeroValor("Importe229").ToDecimal * Dr("Cantidad").ToString.ToDecimal : ImporteME229 = ObjOC.DtResultados.FiltroPrimeroValor("ImporteME229").ToDecimal * Dr("Cantidad").ToString.ToDecimal : ImporteMN229 = ObjOC.DtResultados.FiltroPrimeroValor("ImporteMN229").ToDecimal * Dr("Cantidad").ToString.ToDecimal
@@ -14296,6 +14296,7 @@ Partial Class Compras_Compras
             DTOCTemp.Columns.Add("IEPSPSIVATC", GetType(Double))
             DTOCTemp.Columns.Add("RetIVATC", GetType(Double))
             DTOCTemp.Columns.Add("RetISRTC", GetType(Double))
+            DTOCTemp.Columns.Add("FolioAlmacen", GetType(String))
             For Each Dr As DataRow In DTOCTemp.Rows
                 Dr("PUTC") = Dr("Importe")
                 Dr("DescuentoTC") = Dr("Descuento")
@@ -18592,6 +18593,7 @@ Partial Class Compras_Compras
         'DtInvOCDiferencias.Columns.Add("ImporteMovtoDLLS", GetType(Double))
         DtInvOCDiferencias.Columns.Add("CveAlmacen", GetType(Integer))
         DtInvOCDiferencias.Columns.Add("CveMovimiento", GetType(Integer))
+        DtInvOCDiferencias.Columns.Add("FolioAlmacen", GetType(String))
         DtInvOCDiferencias.Columns.Add("TipoCambioAjuste", GetType(Double))
         DtInvOCDiferencias.Columns.Add("ConceptoSalida", GetType(Integer))
         DtInvOCDiferencias.Columns.Add("PS", GetType(String))
@@ -18615,6 +18617,7 @@ Partial Class Compras_Compras
                     DrInvOCDiferencias("FolioOC") = dr2("FolioOC").ToString
                     DrInvOCDiferencias("CveProveedor") = dr2("CveProveedorOC").ToString.ToEntero
                     DrInvOCDiferencias("PS") = dr2("PS").ToString
+                    DrInvOCDiferencias("FolioAlmacen") = dr2("FolioAlmacen").ToString
 
                     If DdlOCVinculaInv.SelectedValue.ToEntero.Contiene(205) Then
                         DrInvOCDiferencias("TipoCambioAjuste") = 0
@@ -18725,7 +18728,7 @@ Partial Class Compras_Compras
                     SerieFolio = $"OC: {DrDiferencias("FolioOC").ToString}"
                     CveProveedor = DrDiferencias("CveProveedor").ToString.ToEntero
                     ProveedorNombre = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltroPrimeroValor("RazonSocial", $"CveProveedor = {CveProveedor}").ToString
-                    Dim ConceptoPartida As String = String.Format("{0} OC# {1}", ProveedorNombre, DrDiferencias("FolioOC"))
+                    Dim ConceptoPartida As String = String.Format("{0} OC: {1} Inv: {2}", ProveedorNombre, DrDiferencias("FolioOC"), DrDiferencias("FolioAlmacen"))
 
                     ConceptoSalida = DrDiferencias("ConceptoSalida").ToString.ToEntero
                     CveAlmacen = DrDiferencias("CveAlmacen").ToString.ToEntero