System.Activities System.Activities.Statements System.Activities.Expressions System.Activities.Validation System.Activities.XamlIntegration Microsoft.VisualBasic Microsoft.VisualBasic.Activities System System.Collections System.Collections.Generic System.Data System.Diagnostics System.Drawing System.IO System.Linq System.Net.Mail System.Xml System.Xml.Linq UiPath.Core UiPath.Core.Activities System.Windows.Markup System.ComponentModel System.Runtime.Serialization System.Xml.Serialization UiPath.Excel UiPath.Excel.Activities System.Globalization System.Activities Microsoft.VisualBasic mscorlib System.Data System.Data.DataSetExtensions System System.Drawing System.Core System.Xml System.Xml.Linq PresentationFramework WindowsBase PresentationCore System.Xaml UiPath.System.Activities UiPath.UiAutomation.Activities System.Runtime.Serialization UiPath.Excel.Activities.Design UiPath.Excel.Activities UiPath.Excel True [outDT] [inputDT.Clone] [outDT] [(From row In inputDT.AsEnumerable.Where(Function (r) r("Sociedad").ToString.Equals("Ind Colombiana Cafe S.A.S")) Group row By lv=row("LINEA NUEVA").ToString Into grp=Group Select outDT.Rows.Add(New Object(){grp(0)("Sociedad"), lv, grp.Sum(Function (s) CDbl(s("Ventas Netas Act").ToString.Replace(".","").Replace(",","."))).ToString("N0", Globalization.CultureInfo.CreateSpecificCulture("es-CO"))}) ).AsEnumerable.OrderByDescending(Function (r) CDbl(r("Ventas Netas Act").ToString.Replace(".","").Replace(",","."))).CopyToDataTable]