diff --git a/Inventarios/InventarioFisicoDetalle.aspx.vb b/Inventarios/InventarioFisicoDetalle.aspx.vb
index be4dd8eaf..e71d42996 100644
--- a/Inventarios/InventarioFisicoDetalle.aspx.vb
+++ b/Inventarios/InventarioFisicoDetalle.aspx.vb
@@ -700,11 +700,11 @@ Partial Class Inventarios_InventarioFisicoDetalle
         If IncluyeProveedor.ToString <> "" Then
             dtPS = dtPS.FiltraParametros(String.Format("CveProveedorCompra IN ({0})", IncluyeProveedor.ToString.TrimEnd(",")))
         End If
-        dtPS = dtPS.FiltraParametros("", "PS", {"Codigo", "PS"})
+        dtPS = dtPS.FiltraParametros("", "PS", {"Codigo", "PS", "Clasificacion", "ProveedorCompra"})
         Dim NombreArchivo As String
         SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet)
         Dim workbook As New ExcelFile()
-        Dim worksheet = workbook.Worksheets.Add("Cxp")
+        Dim worksheet = workbook.Worksheets.Add("Productos")
         worksheet.InsertDataTable(dtPS, New InsertDataTableOptions() With
              {
                  .ColumnHeaders = True,
@@ -722,7 +722,7 @@ Partial Class Inventarios_InventarioFisicoDetalle
             worksheet.Columns(i).AutoFit(1, worksheet.Rows(0), worksheet.Rows(worksheet.Rows.Count - 1))
         Next
 
-        NombreArchivo = "CxP"
+        NombreArchivo = "Productos"
         workbook.Save(Response, $"{NombreArchivo}.xlsx", SaveOptions.XlsxDefault)
     End Sub
 #End Region