-- cambio en nombre. del archivo de descarga de universo de productos.

-- cambio de texto Varras a Barras

Inventarios/InventarioFisicoDetalle.aspx.vb

@@ -687,13 +687,13 @@ Partial Class Inventarios_InventarioFisicoDetalle
             worksheet.Columns(i).AutoFit(1, worksheet.Rows(0), worksheet.Rows(worksheet.Rows.Count - 1))
         Next
 
-        NombreArchivo = "Productos"
+        NombreArchivo = "Productos-" + lbTitulo.Text
         workbook.Save(Response, $"{NombreArchivo}.xlsx", SaveOptions.XlsxDefault)
     End Sub
 #End Region
 
-    Protected Sub BtnBuscarCodVarras_Click(sender As Object, e As EventArgs)
-        Dim CodigoBarras As String = If(TxtConCodigoVarras.Text.Trim <> "", TxtConCodigoVarras.Text.Trim, "-1").Replace("'", "''")
+    Protected Sub BtnBuscarCodBarras_Click(sender As Object, e As EventArgs)
+        Dim CodigoBarras As String = If(TxtConCodigoBarras.Text.Trim <> "", TxtConCodigoBarras.Text.Trim, "-1").Replace("'", "''")
         LblContador.Text = "No se encontraron resultados"
         Using Inventarios As New ClsInventarios
             If Inventarios.GetInventarioFisicoContador(CveInventarioFisico, ddlUsuario.SelectedValue.ToString.ToEntero, CodigoBarras) Then