566d727297
Added Export as an DevEnv interface function, exporting a single object to txt. Builds a filter string and writes the whole stuff out. Works like a breeze. Added Charset conversion for finsql.exe result values (command output and error log), which uses something similar (but not quite) to CP850. For any error message, this should be enough, however, be aware that the format of the TXT files generated by ExportObject is in the same strange encoding. Details can be found here: http://forum.mibuso.com/discussion/37078/encoding-of-exported-navision-objects-txt-files It should be considered if it makes sense to normalize the objects as best as possible into the Unicode plane and convert them back on exit - though this will probably generate a whole different set problems when automating Build jobs. For now, leave it as-is, better safe than sorry.
83 lines
3.3 KiB
C#
83 lines
3.3 KiB
C#
using System;
|
|
using System.Collections.Generic;
|
|
using System.Linq;
|
|
using System.Text;
|
|
using System.Threading.Tasks;
|
|
using log4net;
|
|
using System.Runtime.Serialization;
|
|
using System.Xml;
|
|
using System.Data.Linq;
|
|
using NavScm;
|
|
using NavScm.NavInterface;
|
|
using System.IO;
|
|
|
|
namespace NavScm.TestHost
|
|
{
|
|
class Program
|
|
{
|
|
private static readonly ILog log = LogManager.GetLogger(typeof(Program));
|
|
|
|
static void Main(string[] args)
|
|
{
|
|
log4net.Config.XmlConfigurator.ConfigureAndWatch(new System.IO.FileInfo("Config Files\\log4net.config"));
|
|
|
|
log.Info("Starting up...");
|
|
|
|
var context = new NavSQLDataContext("Data Source=tbrt-sql-erp-01;Initial Catalog=\"TERRABIT 2015 DEV\";Integrated Security=True");
|
|
var NavSqlObjects = context.NavObject;
|
|
|
|
log.InfoFormat("{0} total entries in NavSqlObjects", NavSqlObjects.Count());
|
|
|
|
var query = from sql in NavSqlObjects
|
|
where sql.Modified == 1 && sql.Type > 0
|
|
select sql;
|
|
|
|
int count = query.Count();
|
|
|
|
log.InfoFormat("{0} modified objects detected, reading them into the cache...", count);
|
|
|
|
var foundObjects = new Dictionary<string, NavObject>(count);
|
|
|
|
// int i = 1;
|
|
foreach (NavObject o in query)
|
|
{
|
|
//log.DebugFormat("Row {6}/{7}: Type {0}, ID {1}, Name {2}, Modified {3} {4}, Version {5}",
|
|
// o.Type, o.ID, o.Name, o.Date.ToShortDateString(), o.Time.ToShortTimeString(), o.Version_List, i++, count);
|
|
|
|
foundObjects.Add(o.CacheKey, o);
|
|
}
|
|
|
|
log.InfoFormat("Collection has {0} entries, writing to cache.xml", foundObjects.Count);
|
|
|
|
FileStream writer = new FileStream("cache.xml", FileMode.Create);
|
|
DataContractSerializer serializer = new DataContractSerializer(typeof(Dictionary<string, NavObject>));
|
|
serializer.WriteObject(writer, foundObjects);
|
|
writer.Close();
|
|
|
|
log.Info("Reloading these entries");
|
|
FileStream reader = new FileStream("cache.xml", FileMode.Open);
|
|
XmlDictionaryReader xmlReader = XmlDictionaryReader.CreateTextReader(reader, new XmlDictionaryReaderQuotas());
|
|
var loadedObjects = (Dictionary<string, NavObject>)serializer.ReadObject(xmlReader, true);
|
|
|
|
// 5.99997 => CU TN_Test
|
|
|
|
log.Debug("Dumping sample object descriptor for 5.99997 ");
|
|
|
|
NavObject o2 = loadedObjects["5.99997"];
|
|
log.DebugFormat("Type {0}, ID {1}, Name {2}, Modified {3} {4}, Version {5}",
|
|
o2.Type, o2.ID, o2.Name, o2.Date.ToShortDateString(), o2.Time.ToShortTimeString(), o2.Version_List);
|
|
|
|
DevEnvInterface devenv = new DevEnvInterface("C:\\Program Files (x86)\\Microsoft Dynamics NAV\\tbrt-nav-erp-02\\RoleTailored Client\\finsql.exe",
|
|
"tbrt-sql-erp-01", "TERRABIT 2015 DEV");
|
|
|
|
devenv.Export(loadedObjects["5.80"], $"{Directory.GetCurrentDirectory()}\\CU80.txt");
|
|
devenv.Export(loadedObjects["5.99997"], $"{Directory.GetCurrentDirectory()}\\CU99997.txt");
|
|
devenv.Export(loadedObjects["1.13"], $"{Directory.GetCurrentDirectory()}\\TAB13.txt");
|
|
|
|
log.Info("Shutting down...");
|
|
|
|
Console.ReadLine();
|
|
}
|
|
}
|
|
}
|