The daily Axapta WTF

[EVGL]

Из творчества программистов датской компании Munk IT:

void Munk_NoteMark()
{
    MenuFunction menuFunction;
    Args         args = new Args();
    ;
    menuFunction = new MenuFunction('@NEO258', MenuItemType::Display);
    args.caller(this);
    menuFunction.run(args);
}

@NEO258: DocuView

[macklakov]

В зависимости от текущего языка вызывают разные формы?

[EVGL]

Дает сбой на любом языке интерфейса, кроме датского. Вот к чему приводит бездумное увлечение Best Practices.

[Alex_K]

Мдя... Как-то я такое уже видел, только в американском решении. Видимо, это заразно...

[EVGL]

Из творчества одного системного администратора из Польши:

prodRouteItemInfo.Values[17] =
     num2str(str2num(this.propertyToValueText(
                                        prodParameters.TCHPropIdCutOffLength,
                                        inventTableDesign)),0,1,2,3);

[Stitch_MS]

А как вам такая строка, написанная безымянным швейцарским программистом?

    this = null;

[belugin]

(iRetAvans > 1 ? false : true);

[kashperuk]

@SYS22807

На англ. (США) у меня эта метка - Synchronize
А на англ. (GB, Australia) - Synchronise

Я в других инглишах не силен, может кто лучшее подскажет?

Что, неужели не только у нас есть "трудности перевода"?

[EVGL]

Что значит "лучшее"? Американцы пишут через "z", англичане - через "s", все правильно. Это не одно такое слово: materialise (BrE), materialize (AmE).

[belugin]

наверное американский английский для англичан - как для нас "язык падонкафф"

[kashperuk]

Цитата:

Сообщение от EVGL

Что значит "лучшее"? Американцы пишут через "z", англичане - через "s", все правильно. Это не одно такое слово: materialise (BrE), materialize (AmE).

А, ну тогда я спокоен.
Британский англ. просто редко в письменном виде вижу.
Спасибо, что прояснил ситуацию. А то уж обрадовался было, подумал, не одни мы такие на свете, с суржиком повсюду.

[EVGL]

Они, британцы, к этому серьезно относятся. В одном решении, которое адаптировали для англичан, пришлось поменять всех "vendors" на "suppliers", "production order" на "works order", "inventory" на "stock".

[glibs]

Цитата:

Сообщение от EVGL

...
Вот к чему приводит бездумное увлечение Best Practices.
...

EVGL, господь с вами. Что вы такое говорите? Ладно бы какой-то балбес так глупо пошутил...

К вам же люди прислушиваются!

А по БестПрактису это пишется примерно так.

menuFunction = new MenuFunction(menuitemdisplaystr(Bla-Bla-Bla), MenuItemType:isplay);

[ziva]

А вот творение одного гуру:

static container now()
{
    TransDate   _date;
    TimeOfDay   _time;

    do
    {
        _date = today();
        _time = timenow();
    }
    while (_date != today());

    return [_date, _time];
}

Кто считает этот код неверным - пусть бросит в меня камень

[glibs]

Цитата:

Сообщение от EVGL

...
Они, британцы, к этому серьезно относятся. В одном решении, которое адаптировали для англичан, пришлось поменять всех "vendors" на "suppliers", "production order" на "works order", "inventory" на "stock".
...

По имеющимся у меня сведениям "work order" — это наряд, а не производственный заказ. Хотя, м.б. у меня как раз сведения из американского английского. В общем, им, англичанам, виднее, конечно.

[belugin]

Цитата:

Сообщение от ziva

А вот творение одного гуру:

static container now()
{
    TransDate   _date;
    TimeOfDay   _time;

    do
    {
        _date = today();
        _time = timenow();
    }
    while (_date != today());

    return [_date, _time];
}

Кто считает этот код неверным - пусть бросит в меня камень

Вероятно человек боялся что код запустят в полночь....

[EVGL]

Цитата:

Сообщение от belugin

Вероятно человек боялся что код запустят в полночь....

Да, наверное. Но даже в этом случае хватило бы одного if(). Интересно, если Аксапта исполняет две строчки кода за, скажем, 2 микросекунды, то какова вероятность наступления полуночи за этот промежуток времени?

2 E(-6) / 3600 / 24 ~ 1,5 E(-10)

Неплохо. Кроме того, выход из процедуры, скорее всего, занимает большее время, чем исполнение цикла. Осталось выяснить, для какой прикладной задачи потребовалась столь дьявольская точность.

[AndyD]

Цитата:

Сообщение от belugin

Вероятно человек боялся что код запустят в полночь....

Неа. Без долей секунды полночь.
Дату можно получить в предыдущем дне, а время уже в следующем. В результате отстанем не сутки.
PS Вероятность одновременно написать ответ намного выше

[belugin]

Цитата:

Сообщение от EVGL

2 микросекунды

Он вероятно расчитывал на пошаговой выполнение под отладчиком (интересно, есть ли другой процесс, который может сильно замедлить выполнение кода?)

[EVGL]

Я постарался улучшить код, избавив его от указанных недостатков.

static container now()
{
    #define.KernelDLL('KERNEL32')
    #define.SizeOfStructure(8*4)

    Binary      systemtime = new Binary(#SizeOfStructure);
    DLL         _DLL          = new DLL(#KernelDLL);
    DLLFunction _GetSystemTime = new DLLFunction(_DLL, 'GetLocalTime');

    int         wYear;
    int         wMonth;
    int         wDayOfWeek;
    int         wDay;
    int         wHour;
    int         wMinute;
    int         wSecond;
    int         wMilliseconds;

    date        resDate;
    TimeOfDay   resTime;


    _GetSystemTime.arg(ExtTypes::Pointer);

    _GetSystemTime.call(systemtime);

    wYear   = systemtime.word(0);
    wMonth  = systemtime.word(2);
    wDay    = systemtime.word(6);

    resDate = mkdate(wDay, wMonth, wYear);

    wHour   = systemtime.word(8);
    wMinute = systemtime.word(10);
    wSecond = systemtime.word(12);

    resTime = wSecond + (wMinute + wHour*60)*60;

    info(strFmt("%1 %2", resDate, time2str(resTime, -1, -1)));

    return [resDate, resTime];
}

К сожалению, он возвращает время Coordinated Universal Time (UTC), т.е. для Гринвичского меридиана. Буду рад, если кто-нибудь продолжит работу и скорректирует код с учетом временной зоны.

P.S. Исправил: надо было успользовать функцию GetLocalTime вместо GetSystemTime.

Как нетрудно видеть, код в итоге стал не менее компактным, зато более доступным и понятным.