AXForum - Блоги - b_nosoff

VCS sync: TreeNode not initialized

b_nosoff — Tue, 22 Oct 2019 18:38:13 GMT

При стечении определенных обстоятельств синхронизация с TFS выпадает с ошибкой TreeNode not initialized.

Добавление следующих двух строчек в метод fromFile класса SysTreeNodeVSItem решает эту проблему

X++:

public void fromFile(FilenameOpen _filename)
{
    VSProjectFileNode vsItemNode = this.parmTreeNode() as VSItemNode;
    str treeNodePath = SysTreeNode::getPath(vsItemNode); //fix
    SysTreeNodeVSItem::importFromFile(_filename, vsItemNode);
    this.parmTreeNode(TreeNode::findNode(treeNodePath)); // fix
}

Excel Add-In - Update Ledger journals

b_nosoff — Sun, 07 Oct 2018 01:08:48 GMT

To enable update on LedgerGeneralJournalService perform the following steps:

Add RecId field to the LedgerJournalTrans datasource of the AxdLedgerGeneralJournal query.

Set Update property of both LedgerJournalTable and LedgerJournalTrans datasources of the AxdLedgerGeneralJournal query to Yes.

Set Validate Property of the CustEPRemitInfo_BR relation of the LedgerJournalTrans table to No.

Implement bypass to super of update and updateList methods of the AxdLedgerGeneralJournal class.

Implement update method on the LedgerGeneralJournalService class

Add update method on the LedgerGeneralJournalService service and perform Register service on the service.

Deploy LedgerServices service group.

Open Organization administration \ Setup \ Document management \ Document data sources form and make sure LedgerGeneralJournalService is activated

Миниатюры

Setup MPOS product image source

b_nosoff — Thu, 17 Aug 2017 20:57:00 GMT

[DRAFT]

Setup channel profile

The path to images should be as follows

Create website in IIS

Падает клиент при передаче файла с клиента на сервер

b_nosoff — Fri, 21 Oct 2016 11:36:05 GMT

Не новая проблема, уже обсуждалась не раз. Понравилась идея someOne передавать файл по кускам, только решил объединить классы в один и переписать на .NET. Заодно подумал, что неплохо было бы немного сжимать данные. Может, кому-то пригодится.

Вложения

SysFileTransfer.xpo (7.6 Кб, 1655 просмотров)

Обновление CU11 AX2012R3 ModernPOS

b_nosoff — Sat, 17 Sep 2016 23:48:40 GMT

При обновлении ModernPOS на CU11 внезапно столкнулся с неожиданной проблемой. Несмотря на настройку Direct database connection при активации MPOS требовал указать адрес Retail Server. После продолжительных изысканий оказалось, что по какой-то причине при установке не был зарегистрировал COM компонент Microsoft.Dynamics.Commerce.ClientBrokerProxy.dll. Регистрация с помощью regsvr32 решила проблему.

Excel OXML Book Protection

b_nosoff — Mon, 20 Jul 2015 21:27:11 GMT

Защита книги и/или листа Excel паролем оказалась занимательной задачей. Статья на MSDN говорит, что для защиты книги требуется указать целых четыре параметра - workbookAlgorithmName, workbookHashValue, workbookSaltValue, workbookSpinCount. Excel при установке защиты через интерфейс использует алгоритм SHA-512 и 100000 раундов, будем использовать аналогичные параметры.

Для установки защиты книги на классы OxmlWorkBook_RU и Oxml_RU достаточно добавить два метода:

OxmlWorkBook_RU

X++:

public void protect(
    str _password = "",
    boolean _structure = false,
    boolean _windows = false)
{
    DocumentFormat.OpenXml.Spreadsheet.WorkbookProtection workbookProtection;
    str hashValue, saltValue;
    int spinCount;

    workbookProtection = workbook.get_WorkbookProtection();

    if (!workbookProtection)
    {
        workbookProtection = new DocumentFormat.OpenXml.Spreadsheet.WorkbookProtection();

        workbook.set_WorkbookProtection(workbookProtection);
    }

    [hashValue, saltValue, spinCount] = Oxml_RU::calcHash(_password, saltValue, spinCount);

    workbookProtection.set_WorkbookAlgorithmName(OXML_RU::setStringValue("SHA-512"));
    workbookProtection.set_WorkbookHashValue(DocumentFormat.OpenXml.Base64BinaryValue::FromString(hashValue));
    workbookProtection.set_WorkbookSaltValue(DocumentFormat.OpenXml.Base64BinaryValue::FromString(saltValue));
    workbookProtection.set_WorkbookSpinCount(DocumentFormat.OpenXml.UInt32Value::FromUInt32(System.Convert::ToUInt32(spinCount)));
    workbookProtection.set_LockStructure(OXML_RU::setBooleanValue(_structure));
    workbookProtection.set_LockWindows(OXML_RU::setBooleanValue(_windows));
}

Oxml_RU

X++:

private static server container calcHash(container _params)
{
    System.Text.Encoding encoding = System.Text.Encoding::GetEncoding("UTF-16LE");
    System.Security.Cryptography.SHA512Managed sha512 = new System.Security.Cryptography.SHA512Managed();
    System.Byte[] buffer, hash, salt;
    System.UInt32 uint32;
    str password, hashValue, saltValue;
    int i, spinCount, hashLength, bufferLength, saltLength;

    str createSalt()
    {
        System.DateTime randomValue = System.DateTime::get_Now();

        buffer = encoding.GetBytes(randomValue.ToString());

        hash = sha512.ComputeHash(buffer);

        buffer = new System.Byte[16]();

        System.Array::Copy(hash, 0, buffer, 0, buffer.get_Length());

        saltValue = System.Convert::ToBase64String(buffer);

        return saltValue;
    }

    [password, saltValue, spinCount] = _params;

    saltValue = saltValue ? saltValue : createSalt();

    spinCount = spinCount > 0 ? spinCount : 100000;

    salt = System.Convert::FromBase64String(saltValue);

    saltLength = salt.get_Length();

    buffer = encoding.GetBytes(password);

    bufferLength = buffer.get_Length();

    hash = new System.Byte[bufferLength + saltLength]();

    System.Array::Copy(salt, 0, hash, 0, salt.get_Length());

    System.Array::Copy(buffer, 0, hash, salt.get_Length(), buffer.get_Length());

    hashLength = hash.get_Length();

    buffer = new System.Byte[hashLength]();

    bufferLength = buffer.get_Length();

    System.Array::Copy(hash, 0, buffer, 0, buffer.get_Length());

    sha512.Initialize();

    hash = new System.Byte[0]();

    for (i = 0; i <= spinCount; i++)
    {
        hash = sha512.ComputeHash(buffer);

        hashLength = hash.get_Length();
        bufferLength = buffer.get_Length();

        if (bufferLength != hashLength + 4)
        {
            bufferLength = hashLength + 4;

            buffer = new System.Byte[bufferLength]();
        }

        uint32 = System.Convert::ToUInt32(i);

        System.Array::Copy(hash, 0, buffer, 0, hash.get_Length());

        System.Array::Copy(System.BitConverter::GetBytes(uint32), 0, buffer, hash.get_Length(), 4);
    }

    hashValue = System.Convert::ToBase64String(hash);

    encoding = null;

    sha512.Clear();
    sha512 = null;

    return [hashValue, saltValue, spinCount];
}

Стоит заметить, что расчет ста тысяч раундов хэша лучше проводить в CIL ;)

Определение SysOperationController в диалоге

b_nosoff — Thu, 08 May 2014 10:29:36 GMT

Класс SysSetupForm в AX2012 по какой-то причине не подвергся доработке после внедрения SysOperationFramework, и стало невозможно определить, что за класс вызвал диалог. Хотя доработка-то всего в пять строк:

X++:

public ClassName determineCallerName()
{
    #aot
    Object caller = editFormRun.args().caller();

    if (caller)
    {
        switch (true)
        {
            // fix -->
            case caller is SysOperationDialog:
                caller       = caller.controller();
                callerName   = classId2Name(classidget(caller));
                callerPath   = #classesPath;
                break;
            // fix <--
       ...

Daily AccountingDistribution WTF

b_nosoff — Fri, 25 Apr 2014 12:34:21 GMT

Случилось разбираться с очень странной ошибкой при разноске корректирующей накладной:

Цитата:

Не удается вставить несколько записей в Распределение по бухгалтерским счетам (AccountingDistribution). Сумма в валюте проводки: 0,00, RUB.
Запись уже существует.

Раскопки показали, что в методе DimensionDerivationDistributionRule.resetAllocationFactorOfMatchDistribution() кто-то забыл одну маленькую, но важную строку дописать:

X++:

if (totalAllocationFactor != 1)
{
    accountingDistributionListEnumerator = finalAccountingDistributionList.getEnumerator();

    while (accountingDistributionListEnumerator.moveNext())
    {
        accountingDistribution = accountingDistributionListEnumerator.current();

        if (maxDistributionRecId == accountingDistribution.RecId)
        {
            accountingDistribution.AllocationFactor = accountingDistribution.AllocationFactor + 1 - totalAllocationFactor;
            finalAccountingDistributionList.addEnd(accountingDistribution); //fix
            break;
        }
    }
}

AX 2012 R2 CU7 Setup "Searching for updates..."

b_nosoff — Thu, 06 Feb 2014 15:03:27 GMT

Столкнулся сегодня с необычным поведением инсталлятора AX - завис почти на час в состоянии "Searching for updates..." и не подавал никаких признаков, что он из него выйдет.
Понятно было, что он пытается найти какие-либо обновления, но сервер не имел выхода в интернет и, видимо, это было для него необычным состоянием окружающей среды.
Вывести его из этого состояния удалось, как ни странно, остановкой службы Windows Update, после чего установка сразу же двинулась дальше.

Настройка AX 2012 R2 Retail Synch Service

b_nosoff — Mon, 09 Sep 2013 17:57:28 GMT

В поисках сакральных знаний о том, как заставить работать Retail Synch Service, нашел два полезных документа:
Retail Solution for AX 2012 - Deployment и Implementation guide for Commerce Data Exchange

Отмечу два нюанса, на которые новичку следует обратить внимание при установке - для всех экземпляров Synch Service, установленных в системе, необходимо создавать записи в форме настроек, но в профиле баз данных необходимо указывать именно конечные экземпляры, установленные на сервере магазина. И второе - если вы устанавливаете POS на WinXP, то у вас не будет работать IPSec, и, соответственно, во всей цепочке от центральной Synch Service, до магазина, придется его выключать.

SSAS strange error

b_nosoff — Tue, 16 Apr 2013 09:59:03 GMT

На одном из проектов столкнулся с редко, но метко появляющейся ошибкой Analysis Server при использовании прогнозных моделей

Цитата:

Ошибка (Интеллектуальный анализ данных): Набор вариантов временных рядов должен быть разреженным, если он содержит только один вариант.

Как оказалось, сервер выпадает в такую ошибку если в исходном ряду содержится только одно значение. А при попытке воспроизведения исходные данные обычно уже менялись, и значений уже было несколько. Сюрприз-сюрприз ))

Serializing & deserializing CLR objects in X++

b_nosoff — Mon, 11 Jul 2011 15:14:44 GMT

X++:

string serializeClrObject(ClrObject _clrObject)
{
    System.Xml.Serialization.XmlSerializer  serializer;
    System.IO.StringWriter                  xml;
    ;

    xml = new ClrObject("System.IO.StringWriter", new System.Text.StringBuilder());

    serializer = new clrObject("System.Xml.Serialization.XmlSerializer", _clrObject.GetType());

    serializer.Serialize(xml, _clrObject);

    return xml.ToString();
}

X++:

ClrObject deserializeClrObject(string _className, string _serializedClass)
{
    System.Xml.Serialization.XmlSerializer  serializer;
    System.IO.StringReader                  xml;
    ClrObject                               clrObject;
    ;

    xml = new ClrObject("System.IO.StringReader", _serializedClass);

    clrObject = new ClrObject(_className);

    serializer = new clrObject("System.Xml.Serialization.XmlSerializer", clrObject.GetType());

    return serializer.Deserialize(xml);
}

Yet another way to use serial port devices in DAX

b_nosoff — Sat, 07 May 2011 07:00:00 GMT

Не думал я, что когда-нибудь буду что-либо писать в блог на АксФоруме... Вообще, больше читать люблю )) Но тут на днях столкнулся с темой, по которой не нашел чего почитать, вообще практически ничего по ней нет. Похоже тема столь древняя, что когда она гремела, интернетов еще толком не было.
Тема эта - написание сервисного объекта для OPOS (была такая технология). Почему она меня заинтересовала спустя десять лет, как она была актуальна? А понадобилось мне привязать к Аксапте сканер прокси-карт. Сканер российского производства. Естественно, никаких драйверов, кроме виртуального последовательного порта. Что делать? Писать ActiveX не хотелось. Тем более, что есть готовые ocx для OPOS от Curtiss Monroe, отлаженные и внушающие доверие, спасибо ему за них. Единственное, чего не было, так это сервисного объекта, но его написание не казалось большой проблемой. До тех пор, пока не начал его писать )) Информации в сети о том, как это делать - около нуля. Единственный сайт, где есть хоть что-то - Monroe Consulting Services.
В общем, разработка темы заняла около трех дней, что на мой взгляд многовато. И я решил поделиться полученным результатом, вдруг у кого-нибудь тоже обострится некрофилия )) По крайней мере, три дня назад мне бы эта информация сохранила бы три дня спокойной жизни. Вот такой сумбурный каламбур.
Прошу судить не строго - в C# я еще тот нуб, если будет у кого желание внести исправления, нет проблем.

В общем, я пришел к выводу, что для того, чтобы написать хоть как-то работающий Service object для OPOS, необходимо реализовать следующий интерфейс (пример для SmartCardRW)

Код:

[Guid("your GUID here"), InterfaceType(ComInterfaceType.InterfaceIsIDispatch)]
public interface OPOSSmartCardRWServiceObject_Interface
{
    [DispId(0)]    
    long COFreezeEvents(
        [MarshalAs(UnmanagedType.Bool)]
        bool Freeze);

    [DispId(1)]
    [return: MarshalAs(UnmanagedType.I8)]
    long GetPropertyNumber(long PropIndex);
        
    [DispId(2)]
    void SetPropertyNumber(
        long PropIndex, 
        [MarshalAs(UnmanagedType.I8)] 
        long Number);
        
    [DispId(3)]
    [return: MarshalAs(UnmanagedType.BStr)]
    string GetPropertyString(long PropIndex);
        
    [DispId(4)]    
    void SetPropertyString(
        long PropIndex, 
        [MarshalAs(UnmanagedType.BStr)] 
        String String);
        
    [DispId(5)]
    long OpenService( 
        [MarshalAs(UnmanagedType.BStr)] String DeviceClass,
        [MarshalAs(UnmanagedType.BStr)] String DeviceName,
        [MarshalAs(UnmanagedType.IDispatch)] object pDispatch);


    [DispId(6)]
    long CheckHealth(long Level);

    [DispId(7)]
    long ClaimDevice(long Timeout);

    [DispId(8)]
    long ClearInput();
        
    [DispId(9)]
    long ClearOutput();

    [DispId(10)]
    long CloseService();
        
    [DispId(11)]
    long DirectIO(
        long Command, 
        ref long pData, 
        [MarshalAs(UnmanagedType.BStr)]
        out String pString);

    [DispId(12)]
    long ReleaseDevice();

    [DispId(13)]
    long ResetStatistics(
        [MarshalAs(UnmanagedType.BStr)]
        String StatisticsBuffer);        

    [DispId(14)]
    long RetrieveStatistics(
        [MarshalAs(UnmanagedType.BStr)]
        ref String StatisticsBuffer);

    [DispId(15)]
    long UpdateStatistics(
        [MarshalAs(UnmanagedType.BStr)]
        String StatisticsBuffer);
        
    [DispId(16)]
    long BeginInsertion(long Timeout);

    [DispId(17)]
    long BeginRemoval(long Timeout);

    [DispId(18)]
    long EndInsertion();

    [DispId(19)]
    long EndRemoval();

    [DispId(20)]
    long ReadData(
        long Action,
        ref long pCount,
        [MarshalAs(UnmanagedType.BStr)]
        ref String pData);      
        
    [DispId(21)]
    long WriteData(
        long Action,
        long Count,
        [MarshalAs(UnmanagedType.BStr)]
        String Data);   

    [DispId(22)]
    long CompareFirmwareVersion(
        [MarshalAs(UnmanagedType.BStr)]
        String FirmwareFileName,
        out long pResult); 
  
    [DispId(23)]
    long UpdateFirmware(
        [MarshalAs(UnmanagedType.BStr)]
        String FirmwareFileName); 
 
    [DispId(24)]
    long ClearInputProperties();   
}

И это было самое сложное.Потому как у MCS исходники на C++, и они описывают объект управления. Пришлось изучать сначала их, а потом уже думать, как они будут работать с моим кодом. Вот к чему приводит отсутствие примеров кода в интернетах )) Самое веселое в работе по созданию этого интерфейса было найти значения DispId для всех этих методов и осознать, что есть еще и набор идентификаторов для получения доступа к свойствам сервисного объекта через методы GetProperty и SetProperty, и это разные наборы констант )) Но это все детали. После создания интерфейса остальное уже пошло как по маслу. Готовый код для сервисного объекта SmartCardRW прилагаю. Это, конечно, ужасный код, но вдруг он кому-нибудь сбережет три дня. В общем, надеюсь, не зря я здесь виртуальную бумагу мараю. Конечно, поначалу хотелось написать больше, но куча работы бьет по рукам, поэтому закругляюсь. Если вдруг будет у кого интерес к этому посту, по возможности постараюсь ответить на вопросы. Спасибо за внимание.

Пользуясь случаем, выражаю благодарность Curtiss Monroe, MSDN, RSDN и некоторым другим сайтам, на которые меня забросила судьба (точнее поисковик), и где я почерпнул бесценную информацию для реализации вышеописанного чуда!

UPD: интерфейс для Scanner (сканер штрихового кода) несколько отличается

Код:

public interface OPOSScannerServiceObject_Interface
{
    [DispId(0)]
    long COFreezeEvents(
        [MarshalAs(UnmanagedType.Bool)]
        bool Freeze);

    [DispId(1)]
    [return: MarshalAs(UnmanagedType.I8)]
    long GetPropertyNumber(long PropIndex);

    [DispId(2)]
    void SetPropertyNumber(
        long PropIndex,
        [MarshalAs(UnmanagedType.I8)] 
        long Number);

    [DispId(3)]
    [return: MarshalAs(UnmanagedType.BStr)]
    string GetPropertyString(long PropIndex);

    [DispId(4)]
    void SetPropertyString(
        long PropIndex,
        [MarshalAs(UnmanagedType.BStr)] 
        String String);

    [DispId(5)]
    long OpenService(
        [MarshalAs(UnmanagedType.BStr)] String DeviceClass,
        [MarshalAs(UnmanagedType.BStr)] String DeviceName,
        [MarshalAs(UnmanagedType.IDispatch)] object pDispatch);


    [DispId(6)]
    long CheckHealth(long Level);

    [DispId(7)]
    long ClaimDevice(long Timeout);

    [DispId(8)]
    long ClearInput();

    [DispId(9)]
    long CloseService();

    [DispId(10)]
    long DirectIO(
        long Command,
        ref long pData,
        [MarshalAs(UnmanagedType.BStr)]
        out String pString);

    [DispId(11)]
    long ReleaseDevice();

    [DispId(12)]
    long ResetStatistics(
        [MarshalAs(UnmanagedType.BStr)]
        String StatisticsBuffer);

    [DispId(13)]
    long RetrieveStatistics(
        [MarshalAs(UnmanagedType.BStr)]
        ref String StatisticsBuffer);

    [DispId(14)]
    long UpdateStatistics(
        [MarshalAs(UnmanagedType.BStr)]
        String StatisticsBuffer);

    [DispId(15)]
    long CompareFirmwareVersion(
        [MarshalAs(UnmanagedType.BStr)]
        String FirmwareFileName,
        out long pResult);

    [DispId(16)]
    long UpdateFirmware(
        [MarshalAs(UnmanagedType.BStr)]
        String FirmwareFileName);

    [DispId(17)]
    long ClearInputProperties();
}

UPD2: ну и добавил вроде ничего так работающий код для сканера штриховых кодов

Вложения

	Service.zip (8.5 Кб, 140 просмотров)
	OPOSScannerSO.zip (11.9 Кб, 106 просмотров)