AXForum - Блоги - Gustav'ово бложище, или Записки DAX-дилетанта-III. Автор Gustav

Сумма прописью (RU): Axapta, VBA и Excel (в одной ячейке!)

Gustav — Tue, 13 Mar 2012 11:30:38 GMT

Это сообщение готовилось к публикации почти два года тому назад. Тогда мне потребовалась сумма прописью в своей разработке. Прошерстив форум, нашёл ссылки на класс RNumDateInWordConverter, но что-то с первого раза с этим классом не получилось. Потом, правда, срослось, но "осадок остался" и появилось горячее желание прикоснуться к теме лично, тем более, что в голове сложился своеобразный алгоритм решения (как мне кажется... или это только мне кажется его своеобразность? :)). Этим алгоритмом мне тогда и хотелось поделиться, но текучка отложила этот радостный момент на неопределенный срок.

Предлагаемый алгоритм основывается на переводе исходного числа (его целой части) в последовательность триад и в обработке каждой триады как числа от 0 до 999. При этом к соответствующей разрядности типа "тысяч", "миллионов", "миллиардов" относимся так же, как к любому считаемому существительному, например, к "рублям" или иным единицам (метрам, штукам и т.п.). Это позволяет вынести алгоритм обработки триады в отдельную, достаточно компактную функцию, снаружи которой процесс сводится к нескольким ее вызовам с соответствующей считаемой единицей в качестве параметра.

С деталями алгоритма можно ознакомиться по приведенным ниже текстам метода sumInWords_RU (для Аксапты) и одноименной же функции (для VBA).

X++:

// KKu, 23.04.2010 --> РУССКАЯ СУММА ПРОПИСЬЮ

//  _sourceReal - вещественное число для прописи (минус и дробная часть игнорируются при обработке)
//  _unit1,_unit2,_unit5 - формы считаемого существительного соответственно для 1 единицы, 2 ед-ц и 5 ед-ц
//  _gender - код рода считаемого существительного = 1-мужской, 2-женский, 3-средний
//  _capital - в возвращаемой строке делать большими буквы:
//      0-всё маленькими, 1-только самую первую букву всей строки,2-первая буква каждой триады

static str sumInWords_RU( real  _sourceReal,
                          str   _unit1   = 'рубль',  // (один) рубль
                          str   _unit2   = 'рубля',  // (два ) рубля
                          str   _unit5   = 'рублей', // (пять) рублей
                          int   _gender  = 1,        // 1 - мужской (рубль)
                          int   _capital = 1 )       // 1 - только первая всей строки
{
    str         strSource = strFmt('00%1', num2str( trunc((abs(_sourceReal))),1,0,1,0 ));
    int         cntTriad  = trunc(strLen(strSource)/3);
    str         urrTriad, morePwr12, fRet;
    int         i;

    str triadWords(str triad, str unit1, str unit2, str unit5, int gender)
    {
        str ret  = conPeek(['','сто ','двести ','триста ','четыреста ',
                    'пятьсот ','шестьсот ','семьсот ','восемьсот ','девятьсот '],
                    str2int(subStr(triad,1,1))+1 );
        str currUnit = unit5;
        ;
        if (strSource=='000')
        {
            ret = 'ноль ';
        }
        else if (subStr(triad,2,1)=='1')
        {
            ret += conPeek(['десять','одиннадцать','двенадцать','тринадцать','четырнадцать',
                    'пятнадцать','шестнадцать','семнадцать','восемнадцать','девятнадцать'],
                    str2int(subStr(triad,2,2))-9 ) + ' ';
        }
        else
        {
            ret += conPeek(['','','двадцать ','тридцать ','сорок ',
                    'пятьдесят ','шестьдесят ','семьдесят ','восемьдесят ','девяносто '],
                    str2int(subStr(triad,2,1))+1 );

            ret += conPeek(['',conPeek(['один ','одна ','одно '],gender),
                    conPeek(['два ' ,'две ' ,'два ' ],gender),
                    'три ','четыре ','пять ','шесть ','семь ','восемь ','девять '],
                    str2int(subStr(triad,3,1))+1 );

            currUnit = conPeek([unit5, unit1, unit2,unit2,unit2, unit5,unit5,unit5,unit5,unit5],
                        str2int(subStr(triad,3,1))+1 );
        }
        return ret ? strFmt('%1%2 ', str2Capital(ret), currUnit) : (cntTriad-i+1)==1 ? currUnit : '';
    }
    ;

    strSource = subStr(strSource, strLen(strSource)-cntTriad*3+1, cntTriad*3);
    for (i=1; i<=cntTriad; i++)
    {
        urrTriad = subStr(strSource, (i-1)*3+1, 3);
        switch (cntTriad-i+1)
        {
            case 1: fRet += triadWords(urrTriad,_unit1    ,_unit2     ,_unit5,_gender); break; // 10^0
            case 2: fRet += triadWords(urrTriad,'тысяча'  ,'тысячи'   ,'тысяч'     ,2); break; // 10^3
            case 3: fRet += triadWords(urrTriad,'миллион' ,'миллиона' ,'миллионов' ,1); break; // 10^6
            case 4: fRet += triadWords(urrTriad,'миллиард','миллиарда','миллиардов',1); break; // 10^9
            case 5: fRet += triadWords(urrTriad,'триллион','триллиона','триллионов',1); break; // 10^12
            default:
                    morePwr12 = strFmt('10^%1',(cntTriad-i)*3); // 10^15 и т.д.
                    fRet += triadWords(urrTriad, morePwr12, morePwr12 , morePwr12  ,1);
        }
    }
    return strRTrim(conPeek([strLwr(fRet), str2Capital(strLwr(fRet)), fRet], _capital+1));
}

VBA:

X++:

''//РУССКАЯ СУММА ПРОПИСЬЮ - функция sumInWords_RU
Option Explicit

Dim strSource   As String
Dim cntTriad    As Integer
Dim i           As Integer

Private Function triadWords(ByVal triad As String, _
                            ByVal unit1 As String, _
                            ByVal unit2 As String, _
                            ByVal unit5 As String, _
                            ByVal gender As Integer) As String
                            
    Dim ret         As String
    Dim currUnit    As String
    
    ret = Choose(CInt(Left(triad, 1)) + 1, "", "сто ", "двести ", "триста ", "четыреста ", _
                "пятьсот ", "шестьсот ", "семьсот ", "восемьсот ", "девятьсот ")
    currUnit = unit5
    
    If strSource = "000" Then
        ret = "ноль "
        
    ElseIf Mid(triad, 2, 1) = "1" Then
        ret = ret & Choose(CInt(Right(triad, 2)) - 9, "десять", "одиннадцать", _
                    "двенадцать", "тринадцать", "четырнадцать", "пятнадцать", _
                    "шестнадцать", "семнадцать", "восемнадцать", "девятнадцать") & " "
    Else
        ret = ret & Choose(CInt(Mid(triad, 2, 1)) + 1, "", "", _
                    "двадцать ", "тридцать ", "сорок ", "пятьдесят ", _
                    "шестьдесят ", "семьдесят ", "восемьдесят ", "девяносто ")
        ret = ret & Choose(CInt(Right(triad, 1)) + 1, "", _
                    Choose(gender, "один", "одна", "одно") & " ", _
                    Choose(gender, "два", "две", "два") & " ", _
                    "три ", "четыре ", "пять ", "шесть ", "семь ", "восемь ", "девять ")
        currUnit = Choose(CInt(Right(triad, 1)) + 1, _
                    unit5, unit1, unit2, unit2, unit2, _
                    unit5, unit5, unit5, unit5, unit5)
    End If
    
    triadWords = IIf(ret <> "", UCase(Left(ret, 1)) & Mid(ret, 2) & currUnit & " ", _
                                IIf((cntTriad - i + 1) = 1, currUnit, ""))
End Function

''//РУССКАЯ СУММА ПРОПИСЬЮ
''//  sourceReal - вещественное число для прописи (минус и дробная часть игнорируются при обработке)
''//  unit1, unit2, unit5 - формы считаемого существительного соответственно для 1 единицы, 2 ед-ц и 5 ед-ц
''//  gender - код рода считаемого существительного = 1-мужской, 2-женский, 3-средний
''//  capital - в возвращаемой строке делать большими буквы:
''//     0-всё маленькими, 1-только самую первую букву всей строки,2-первая буква каждой триады
Public Function sumInWords_RU(ByVal sourceReal As Double, _
                              Optional ByVal unit1 As String = "рубль", _
                              Optional ByVal unit2 As String = "рубля", _
                              Optional ByVal unit5 As String = "рублей", _
                              Optional ByVal gender As Integer = 1, _
                              Optional ByVal capital As Integer = 1) As String

    Dim urTrd      As String
    Dim morePwr12   As String
    Dim fRet        As String
   
    strSource = "00" & Format(Int(Abs(sourceReal)), "0")
    cntTriad = Int(Len(strSource) / 3)
    strSource = Right(strSource, cntTriad * 3)
    
    For i = 1 To cntTriad
        urTrd = Mid(strSource, (i - 1) * 3 + 1, 3)
        Select Case cntTriad - i + 1
            Case 1: fRet = fRet & triadWords(urTrd, unit1, unit2, unit5, gender)
            Case 2: fRet = fRet & triadWords(urTrd, "тысяча", "тысячи", "тысяч", 2)
            Case 3: fRet = fRet & triadWords(urTrd, "миллион", "миллиона", "миллионов", 1)
            Case 4: fRet = fRet & triadWords(urTrd, "миллиард", "миллиарда", "миллиардов", 1)
            Case 5: fRet = fRet & triadWords(urTrd, "триллион", "триллиона", "триллионов", 1)
            Case Else
                morePwr12 = "10^" & CStr(cntTriad - i) * 3
                fRet = fRet & triadWords(urTrd, morePwr12, morePwr12, morePwr12, 1)
        End Select
    Next i
    
    sumInWords_RU = RTrim(Choose(capital + 1, LCase(fRet), Left(fRet, 1) & LCase(Mid(fRet, 2)), fRet))
End Function

Но что же заставило меня наконец перевести это сообщение из статуса "черновик" в открытый доступ? А вот что - на основе ранее разработанных вышеприведенных функций сочинилась формула для Excel, помещающаяся в одной ячейке! Т.е. в ячейку А1 вводим число, в ячейку B1 - формулу и в ней же читаем сумму прописью. Никаких макросов, весь текст собирается в одной ячейке с использованием стандартных функций рабочего листа (у кого-нибудь есть образец заявки в книгу рекордов Гиннесса? :))

По терминологии маэстро Дж.Уокенбаха эта формула - мегаформула (не в смысле, что такая крутая, а потому что без промежуточных результатов). С количеством символов около 6 тысяч - поэтому может использоваться только в версии Excel, начиная с 2007, когда допустимая длина формулы увеличилась с 1024 до 8192 символов. Для более ранних версий, однако, возможен "расчет" суммы прописью с задействованием нескольких соседних ячеек (и существенным сокращением общего кол-ва формульных символов за счет использования формул массива). Но об этом позже, а сейчас - вот эта базовая формулища:

МЕГАФОРМУЛА ДЛЯ ОДНОЙ ЯЧЕЙКИ EXCEL:

X++:

=(((
(
((("0";15)&((ABS(A1);2));15);3)
+0=0;""
;
((
((("0";15)&((ABS(A1);2));15);3)
)+1
;"";"стоs";"двестиs";"тристаs";"четырестаs";
"пятьсотs";"шестьсотs";"семьсотs";"восемьсотs";"девятьсотs")
&
((
((("0";15)&((ABS(A1);2));15);3)
;2;1)+0=1;
((
((("0";15)&((ABS(A1);2));15);3)
;2)-9
;"десятьs";"одиннадцатьs";"двенадцатьs";"тринадцатьs";"четырнадцатьs";
"пятнадцатьs";"шестнадцатьs";"семнадцатьs";"восемнадцатьs";"девятнадцатьs")
&"триллионов "
;
((
((("0";15)&((ABS(A1);2));15);3)
;2;1)+1
;"";"";"двадцатьs";"тридцатьs";"сорокs";
"пятьдесятs";"шестьдесятs";"семьдесятs";"восемьдесятs";"девяностоs")
&
((
((("0";15)&((ABS(A1);2));15);3)
)+1
;"триллионов ";"одинsтриллион ";"дваsтриллиона ";"триsтриллиона ";"четыреsтриллиона ";
"пятьsтриллионов ";"шестьsтриллионов ";"семьsтриллионов ";"восемьsтриллионов ";"девятьsтриллионов ")
))
&
(
((("0";15)&((ABS(A1);2));12);3)
+0=0;""
;
((
((("0";15)&((ABS(A1);2));12);3)
)+1
;"";"стоs";"двестиs";"тристаs";"четырестаs";
"пятьсотs";"шестьсотs";"семьсотs";"восемьсотs";"девятьсотs")
&
((
((("0";15)&((ABS(A1);2));12);3)
;2;1)+0=1;
((
((("0";15)&((ABS(A1);2));12);3)
;2)-9
;"десятьs";"одиннадцатьs";"двенадцатьs";"тринадцатьs";"четырнадцатьs";
"пятнадцатьs";"шестнадцатьs";"семнадцатьs";"восемнадцатьs";"девятнадцатьs")
&"миллиардов "
;
((
((("0";15)&((ABS(A1);2));12);3)
;2;1)+1
;"";"";"двадцатьs";"тридцатьs";"сорокs";
"пятьдесятs";"шестьдесятs";"семьдесятs";"восемьдесятs";"девяностоs")
&
((
((("0";15)&((ABS(A1);2));12);3)
)+1
;"миллиардов ";"одинsмиллиард ";"дваsмиллиарда ";"триsмиллиарда ";"четыреsмиллиарда ";
"пятьsмиллиардов ";"шестьsмиллиардов ";"семьsмиллиардов ";"восемьsмиллиардов ";"девятьsмиллиардов ")
))
&
(
((("0";15)&((ABS(A1);2));9);3)
+0=0;""
;
((
((("0";15)&((ABS(A1);2));9);3)
)+1
;"";"стоs";"двестиs";"тристаs";"четырестаs";
"пятьсотs";"шестьсотs";"семьсотs";"восемьсотs";"девятьсотs")
&
((
((("0";15)&((ABS(A1);2));9);3)
;2;1)+0=1;
((
((("0";15)&((ABS(A1);2));9);3)
;2)-9
;"десятьs";"одиннадцатьs";"двенадцатьs";"тринадцатьs";"четырнадцатьs";
"пятнадцатьs";"шестнадцатьs";"семнадцатьs";"восемнадцатьs";"девятнадцатьs")
&"миллионов "
;
((
((("0";15)&((ABS(A1);2));9);3)
;2;1)+1
;"";"";"двадцатьs";"тридцатьs";"сорокs";
"пятьдесятs";"шестьдесятs";"семьдесятs";"восемьдесятs";"девяностоs")
&
((
((("0";15)&((ABS(A1);2));9);3)
)+1
;"миллионов ";"одинsмиллион ";"дваsмиллиона ";"триsмиллиона ";"четыреsмиллиона ";
"пятьsмиллионов ";"шестьsмиллионов ";"семьsмиллионов ";"восемьsмиллионов ";"девятьsмиллионов ")
))
&
(
((("0";15)&((ABS(A1);2));6);3)
+0=0;""
;
((
((("0";15)&((ABS(A1);2));6);3)
)+1
;"";"стоs";"двестиs";"тристаs";"четырестаs";
"пятьсотs";"шестьсотs";"семьсотs";"восемьсотs";"девятьсотs")
&
((
((("0";15)&((ABS(A1);2));6);3)
;2;1)+0=1;
((
((("0";15)&((ABS(A1);2));6);3)
;2)-9
;"десятьs";"одиннадцатьs";"двенадцатьs";"тринадцатьs";"четырнадцатьs";
"пятнадцатьs";"шестнадцатьs";"семнадцатьs";"восемнадцатьs";"девятнадцатьs")
&"тысяч "
;
((
((("0";15)&((ABS(A1);2));6);3)
;2;1)+1
;"";"";"двадцатьs";"тридцатьs";"сорокs";
"пятьдесятs";"шестьдесятs";"семьдесятs";"восемьдесятs";"девяностоs")
&
((
((("0";15)&((ABS(A1);2));6);3)
)+1
;"тысяч ";"однаsтысяча ";"двеsтысячи ";"триsтысячи ";"четыреsтысячи ";
"пятьsтысяч ";"шестьsтысяч ";"семьsтысяч ";"восемьsтысяч ";"девятьsтысяч ")
))
&
(
(("0";15)&((ABS(A1);2));3)
+0=0;(((ABS(A1);2))=0;"нольsрублей";"sрублей")
;
((
(("0";15)&((ABS(A1);2));3)
)+1
;"";"стоs";"двестиs";"тристаs";"четырестаs";
"пятьсотs";"шестьсотs";"семьсотs";"восемьсотs";"девятьсотs")
&
((
(("0";15)&((ABS(A1);2));3)
;2;1)+0=1;
((
(("0";15)&((ABS(A1);2));3)
;2)-9
;"десятьs";"одиннадцатьs";"двенадцатьs";"тринадцатьs";"четырнадцатьs";
"пятнадцатьs";"шестнадцатьs";"семнадцатьs";"восемнадцатьs";"девятнадцатьs")
&"рублей"
;
((
(("0";15)&((ABS(A1);2));3)
;2;1)+1
;"";"";"двадцатьs";"тридцатьs";"сорокs";
"пятьдесятs";"шестьдесятs";"семьдесятs";"восемьдесятs";"девяностоs")
&
((
(("0";15)&((ABS(A1);2));3)
)+1
;"";(1;"одинs";"однаs";"одноs");
(1;"дваs";"двеs";"дваs");"триs";"четыреs";
"пятьs";"шестьs";"семьs";"восемьs";"девятьs")
&
(((
(("0";15)&((ABS(A1);2));3)
)+1;3;1;2;2;2;3;3;3;3;3);
"рубль";"рубля";"рублей")
))
);"s";" ");"S";"")
&
" " & (
(("0";((2/3)+1)*3)&(((ABS(A1);2)-((ABS(A1);2)))*10^2;0);((2/3)+1)*3)
;2)&" "
&
(((
(("0";((2/3)+1)*3)&(((ABS(A1);2)-((ABS(A1);2)))*10^2;0);((2/3)+1)*3)
;3)+0=0;((
(("0";((2/3)+1)*3)&(((ABS(A1);2)-((ABS(A1);2)))*10^2;0);((2/3)+1)*3)
;3);2;1)+0=1);
"копеек";
((((
(("0";((2/3)+1)*3)&(((ABS(A1);2)-((ABS(A1);2)))*10^2;0);((2/3)+1)*3)
;3))+1;3;1;2;2;2;3;3;3;3;3);
"копейка";"копейки";"копеек")
)

В отличие от вышеприведенных метода и функции, "проговаривающих" только целые числа, эта формула содержит еще и блок копеек, т.е. дробной части. Формула также приводится в прилагаемом файле, чтобы владельцы копий Excel, отличных от русской, либо русской, но с иными разделителями, тоже могли ею воспользоваться.

Буковка "s" на конце числительных символизирует "пробел" ("space") и предназначена для корректной работы функции ПРОПНАЧ по переводу в верхний регистр только первой буквы каждой триады (иначе, в случае настоящего пробела, прописной стала бы первая буква в каждом слове).

Верхняя граница действия формулы - 999 триллионов (15-тизначное число). Если такие гигантские суммы не предполагается прописывать словами в повседневной хозяйственной практике, то формулу можно подрезать, удалив из нее, скажем, блоки триллионов и миллиардов, ограничив, таким образом, ее значением суммы в 999 миллионов, а то и 999 тысяч, если удалить еще и блок миллионов.

Для облегчения ориентирования в тексте формулы - блок триллионов ограничен фрагментами (фрагменты входят в состав блока):

X++:

(
((("0";15)&((ABS(A1);2));15);3)
+0=0;""
;
.......................................................................
.......................................................................
.......................................................................
;"триллионов ";"одинsтриллион ";"дваsтриллиона ";"триsтриллиона ";"четыреsтриллиона ";
"пятьsтриллионов ";"шестьsтриллионов ";"семьsтриллионов ";"восемьsтриллионов ";"девятьsтриллионов ")
))
&

Блоки остальных разрядностей можно найти по аналогии. Дополнительным средством идентификации блока триллионов может быть второе число 15 в характерной подстроке ЛЕВСИМВ(ПРАВСИМВ(ПОВТОР("0";15)&ЦЕЛОЕ(ОКРУГЛ(ABS(A1);2));15);3). Для миллиардов это число будет 12, для миллионов - 9, для тысяч - 6 (думаю, комментарии излишни).

Конечно же, с вычислительной точки зрения мегаформула (назовем ее "алгоритмом в одной ячейке") вопиюще неоптимальна. Невооруженным глазом видны многократно повторяющиеся одинаковые фрагменты. И всё в угоду тому, чтобы содержать ссылки на одну единственную ячейку A1 - и тем самым производить впечатление экспоната кунсткамеры. Но, согласитесь, прикольно! А современные компы потянут и не такие вычисления ;)

Если же количество задействованных для расчета суммы прописью ячеек для нас не имеет значения (в разумных пределах), то можно использовать "алгоритм в нескольких ячейках". Общее количество символов во всех используемых при этом формулах будет существенно меньше и в самой "насыщенной" не превысит значения 1024, что позволит применить "алгоритм в нескольких ячейках" также и в более ранних версиях Excel (до 2007).

Ниже введем на рабочем листе Excel несколько формул, являющихся составными частями алгоритма в нескольких ячейках. Общее количество задействованных ячеек - 12. Можно уменьшить до 10, если объединить в одной ячейке "рубли", "копейки" и "сцепить" (если только не актуально ограничение на длину формулы в 1024 символа). И дальше - уменьшение на 2 ячейки при каждом отказе от использования старших разрядов (триллионов, миллиардов и т.д.). Для сумм меньше миллиона можно будет уложиться в 4 ячейки.

Итак, формула для ячеек B1:F1 - в них будут отображаться триады цифрами (диапазон содержит 5 ячеек):

X++:

=((("0";15)&((ABS(A1);2));{15;12;9;6;3});3)

Эта формула массива должна быть введена при помощи следующих шагов: копируем ее текст отсюда; в Excel выделяем диапазон B1:F1; жмем F2 для перехода в режим редактирования; в строке редактирования делаем вставку из буфера; завершаем ввод нажатием комбинации Shift+Ctrl+Enter.

Для ячеек G1:J1 - триады словами (4 ячейки!):

X++:

=((
(B1:E1+0=0
;
""
;
((B1:E1)+1;
"";"стоs";"двестиs";"тристаs";"четырестаs";
"пятьсотs";"шестьсотs";"семьсотs";"восемьсотs";"девятьсотs")
&
((B1:E1;2;1)+0=1
;
((B1:E1;2)-9;
"десятьs";"одиннадцатьs";"двенадцатьs";"тринадцатьs";"четырнадцатьs";
"пятнадцатьs";"шестнадцатьs";"семнадцатьs";"восемнадцатьs";"девятнадцатьs")
&{"триллионов ";"миллиардов ";"миллионов ";"тысяч "}
;
((B1:E1;2;1)+1;
"";"";"двадцатьs";"тридцатьs";"сорокs";
"пятьдесятs";"шестьдесятs";"семьдесятs";"восемьдесятs";"девяностоs")
&
((B1:E1)+1;
"";({1;1;1;1};"одинs";"однаs";"одноs");
({1;1;1;2};"дваs";"двеs";"дваs");"триs";"четыреs";
"пятьs";"шестьs";"семьs";"восемьs";"девятьs")
&
{"триллион";"миллиард";"миллион";"тысяч"}&
(((B1:E1)+1;3;1;2;2;2;3;3;3;3;3);
{" ";" ";" ";"а "};{"а ";"а ";"а ";"и "};{"ов ";"ов ";"ов ";" "})
))
);"s";" ")

Эта тоже формула массива, которая вводится тем же способом, что и предыдущая. Следует обратить внимание, что эта формула будет занимать 4 ячейки, а не 5 как предыдущая. 5-ю ячейку (рублей) мы введем отдельно (почему - будет понятно далее из файла, при рассмотрении параметрического варианта алгоритма).

Для ячейки K1 - рубли (обычная формула - ввод завершается простым нажатием Enter):

X++:

=(((
(F1+0=0
;
((ABS(A1))=0;"нольsрублей";"sрублей")
;
((F1)+1;
"";"стоs";"двестиs";"тристаs";"четырестаs";
"пятьсотs";"шестьсотs";"семьсотs";"восемьсотs";"девятьсотs")
&
((F1;2;1)+0=1
;
((F1;2)-9;
"десятьs";"одиннадцатьs";"двенадцатьs";"тринадцатьs";"четырнадцатьs";
"пятнадцатьs";"шестнадцатьs";"семнадцатьs";"восемнадцатьs";"девятнадцатьs")
&"рублей"
;
((F1;2;1)+1;
"";"";"двадцатьs";"тридцатьs";"сорокs";
"пятьдесятs";"шестьдесятs";"семьдесятs";"восемьдесятs";"девяностоs")
&
((F1)+1;
"";(1;"одинs";"однаs";"одноs");
(1;"дваs";"двеs";"дваs");"триs";"четыреs";
"пятьs";"шестьs";"семьs";"восемьs";"девятьs")
&
(((F1)+1;3;1;2;2;2;3;3;3;3;3);
"рубль";"рубля";"рублей")
))
);"s";" ");"S";"")

Для ячейки L1 - копейки (обычная формула - ввод завершается простым нажатием Enter):

X++:

=" " & (
(("0";((2/3)+1)*3)&(((ABS(A1);2)-((ABS(A1);2)))*10^2;0);((2/3)+1)*3)
;2)&" "
&
(((
(("0";((2/3)+1)*3)&(((ABS(A1);2)-((ABS(A1);2)))*10^2;0);((2/3)+1)*3)
;3)+0=0;((
(("0";((2/3)+1)*3)&(((ABS(A1);2)-((ABS(A1);2)))*10^2;0);((2/3)+1)*3)
;3);2;1)+0=1);
"копеек";
((((
(("0";((2/3)+1)*3)&(((ABS(A1);2)-((ABS(A1);2)))*10^2;0);((2/3)+1)*3)
;3))+1;3;1;2;2;2;3;3;3;3;3);
"копейка";"копейки";"копеек")
)

Возможно, вы заметили, что в этой формуле (и в других) присутствуют фрагменты, которые могли бы быть вычислены заранее и введены в формулу как константы, например: (ЦЕЛОЕ(2/3)+1)*3) или 10^2. Это сделано сознательно - в таком виде легче конструировать универсальные параметрические формулы на случаи любых единиц измерения, а не только рублей и копеек. В параметрическом варианте (см. в файле) число 2 в этих примерах, которое по сути представляет собой кол-во знаков дробной части, заменено ссылкой на ячейку, в которой хранится данная величина.

Наконец, в ячейке M1 получаем окончательную сумму прописью:

X++:

=(G1;H1;I1;J1;K1;L1)

// удивительно упорство Microsoft по непредоставлению до сих пор возможности записи этой формулы в виде =СЦЕПИТЬ(G1:L1)

Простую формулу в ячейке M1 можно усложнить дополнительной обработкой по желанию, например, оставив заглавной только самую первую букву фразы:

X++:

=((G1;H1;I1;J1;K1;L1))&(((G1;H1;I1;J1;K1;L1);2;1000))

// здесь 1000 - произвольное, заведомо большее длины строки число

В прилагаемом файле на основе приведенных формул алгоритма в нескольких ячейках демонстрируется также его параметрический вариант - на случай любых единиц измерения. Настройка на любые единицы выполняется путем указания необходимых параметров (род единиц, формы считаемых существительных, кол-во знаков дробной части) в дополнительных ячейках. С несложными деталями можно ознакомиться самостоятельно. Файл создан в Excel 2010.

Вложения

SumInWords_Excel2010.xlsx (18.3 Кб, 3916 просмотров)

Свойство Command кнопки CommandButton

Gustav — Tue, 01 Jun 2010 15:05:59 GMT

Возможно, я что-то пропустил на своем аксаптовском пути или что-то не так понял, но когда мне захотелось на форме динамически создать командную кнопку (FormCommandButtonControl) и нагрузить ее предопределенной командой - OK или Cancel, я не смог найти в своих подручных источниках информации вразумительного списка команд, пригодного для использования при разработке. Конечно, в поле свойства Command выпадающий список появляется, но получить его оттуда полностью как-то не получается. Я полагал, что, как водится в подобных случаях, существует какое-нибудь перечисление (enum) и команда легко задается константой вроде Command::Ok.

Ничего подобного не обнаружилось (или я плохо искал). Поэтому пришлось создавать тестовую форму, помещать на нее единственный контрол - командную кнопку, устанавливать свойство Command этой кнопки в OK и в метод init формы вставлять оператор, информирующий после запуска формы о целочисленном значении, соответствующем этой команде:

X++:

public void init()
{
    FormCommandButtonControl    button;

    super();

    button = element.design().controlNum(1);
    box::info(strFmt('Код команды: %1', button.command())); // 263 - ОК
}

Разумеется, мне тут же захотелось по аналогии получить список всех команд. Усилия привели к следующему джобу, на ходу создающему форму, кнопку и выводящему желаемую информацию в инфолог (форма за всё это время даже не появляется на экране) :

X++:

static void job_getCommandButtonCommandList(Args _args)
{
    Args                        args    = new Args();
    Form                        form    = new Form();
    FormRun                     formRun;
    FormCommandButtonControl    commandButton;
    int                         i;
    str                         currCaption,prevCaption;
;
    form.addDesign('Design');
    args.object(form);

    formRun = classFactory.formRunClass(args);
    formRun.init();

    commandButton = formRun.design().addControl(FormControlType::CommandButton, 'CommandButton');

    for (i=0;i<=10000;i++)
    {
        commandButton.command(i);
        currCaption = CommandButton.caption();

        if (currCaption != prevCaption)
            info(strFmt('%1 -- %2 -- %3', i, commandButton.caption(), commandButton.toolTip()));

        prevCaption = currCaption;
    }

    formRun.close();
}

В результате выполнения джоба вы становитесь счастливым обладателем актуальной информации о паре сотен команд: числовой код, название (подпись на кнопке) и текст всплывающей подсказки (последний особенно помогает в случае повторяющихся названий команд - некоторое количество таковых присутствует в списке, причем, в разных его местах).

Верхний предел цикла - 10000 - был подобран эмпирически, с целью заведомого покрытия диапазона имеющихся значений кодов команд от 257 - "Справка" до 4388 - "Создать из файла" (для Ax 3.0 SP4; в версии 2009 список команд побольше). Было также обнаружено, что если к обеим границам цикла прибавить 65536*N (где N = 1..65536), то последовательность кодов повторяется в других числовых диапазонах и с другими абсолютными значениями. Это говорит о том, что в свойстве command система использует лишь 4 младших байта передаваемого туда целого числа.

P.S. В процессе тестирования джоба в Ax 3.0 SP4 я сверил его результаты с содержимым выпадающего списка свойства Command. Для этого сравнения мне пришлось фрагментарно наскриншотить список. Публикую его здесь на память, чтобы труд не пропал даром (порядок следования частей определяется числами сверху):

Джоб вывел в инфолог 199 команд (Ax 3.0 SP4). В списке же их - 205. Абсолютно повторяются (caption и tooltip): "Сохранить" - 2 раза, "Точки останова" - 2 раза, "Удаление всех точек останова" - 3 раза, "Вставка/удаление точек останова" - 2 раза, "Блокировка/разблокировка точек останова" - 2 раза. Итого имеем "лишних": 1+1+2+1+1 = 6 строк = 205 - 199.

P.S. 10.08.2010. P.S. Обнаружена идентичность параметров n (кодов команд), передаваемых методам FormCommandButtonControl.command(n) и FormRun.task(n): Как программно снять "фильтр по выделению"

Круговорот значений в lookup'е

Gustav — Wed, 19 May 2010 14:41:41 GMT

Как известно, в Аксапте распространены два типа управляющих элементов (контролов) с выпадающим списком. Один из них - ComboBox, служащий для выбора и отображения списка значений конкретного перечисления (enum'а). Другой - редактируемое поле, обычно текстовое (StringEdit), значения для которого выбираются из специальной lookup-формы, отображающей строки определенной таблицы. Механизм отображения lookup-формы работает так, что строки для выбора появляются сразу под редактируемым полем, во много напоминая поведение ComboBox.

Помимо общего "выпадающего" характера оба контрола совпадают и в способе раскрытия списка значений при помощи клавиатуры: Alt-СтрелкаВниз. А вот от еще одной полезной особенности ComboBox'а поле с lookup'ом невыгодно (пока!) отличается. Речь идёт о возможности перебора значений ComboBox'а при помощи двойного щелчка мышкой по этому полю. При каждом очередном щелчке в поле подставляется следующее по очереди значение перечисления, без необходимости раскрывать список. По достижении последнего значения очередь опять переходит к первому, второму и т.д. по кругу. Если при выполнении щелчков удерживать нажатой клавишу Shift, то перебор элементов осуществляется в обратном направлении, также по кругу.

Подобное поведение можно имитировать в форме и на контроле с lookup'ом. Для этого придется написать несложную обработку события mouseDblClick. В качестве примера приведу текст моего метода, предназначенного в нашей Аксапте от GMCS для изменения значение специфического поля "Первичная группа пользователей" (UserGroupDim в таблице SysUserInfo) в форме "Параметры" (SysUserSetup):

X++:

public int mouseDblClick(int _x, int _y, int _button, boolean _Ctrl, boolean _Shift)
{
    int                 ret;
    str                 groupToFind;
    container           filials = ['ГЛАВК','ФилМ','ФилК','ФилП','ФилВ','ФилА',''];
    int                 pos;

    ret = super(_x, _y, _button, _Ctrl, _Shift);

    groupToFind = SysUserInfo.UserGroupDim;

    pos = conFind(filials, groupToFind); // позиция текущего отображаемого элемента

    if (_Shift) // если нажат Shift, то перебор в обратном направлении
    {
        pos--;
        if (pos < 1) pos = conLen(filials);
    }
    else // иначе - в прямом
    {
        pos++;
        if (pos > conLen(filials)) pos = 1;
    }

    SysUserInfo.UserGroupDim = conPeek(filials, pos);
    SysUserInfo.write();

    SysUserInfo_ds.reread();
    SysUserInfo_ds.refresh();

    return ret;
}

Список нужных для перебора элементов (филиалов) у меня жёстко прописан в контейнере. Это потому, что изменяется он крайне редко - за год я добавил в него один элемент (и мне не сложно это сделать, исправив код, а накручивание здесь какого-то более "правильного" функционала - экономически не оправдано). Но при необходимости можно организовать чтение этого списка и из таблицы:

X++:

    while select  order by ... where ...
    {
        filials += .;
    }

Особое внимание обращаю на то, что список перебора для большего удобства можно сознательно ограничить. У нас, например, количество строк для выбора в lookup-форме, выпадающей из поля "Первичная группа пользователей", на порядок больше, нежели количество элементов контейнера. Но нам так надо! ;)

Построение сводной таблицы на форме с загрузкой данных из ADODB.Recordset

Gustav — Mon, 17 May 2010 15:00:33 GMT

Сразу определимся с терминами. "Сводная таблица на форме" - это Office Web Component PivotTable, размещенный как элемент управления ActiveX на форме Аксапты. "ADODB.Recordset" - в первую (и наиболее интересную для нас) очередь отсоединенный (или неприсоединенный, или, если угодно, disconnected), в общем, не связанный с базой данных набор записей, формируемый программистом в оперативной памяти (процесс во многом напоминает заполнение массива: Вывод в Excel через Array). Работа с отсоединенным ADODB.Recordset подробно описана в теме Поговорим об ADO, а также в ряде других смежных обсуждений (Строка в Excel, экспорт в шаблон excel и т.п.).

До недавнего времени я не знал о существовании возможности подачи данных в OWC PivotTable из отсоединенного Recordset'а, будучи, тем не менее, в курсе подобной возможности для сводной таблицы в Excel через PivoteCache (Вывод в Excel сводной таблицы "пользователи-группы"). В том своем сообщении я очень сожалел об отсутствии объекта PivotCache у OWC PivotTable. И думал, что данные могут поступать только из Recordset'ов, связанных с реальными таблицами БД.

Оказалась, что возможность загрузки из неприсоединенного Recordset'а всё-таки существует! Не в том смысле, что нашёлся PivotCache у PivotTable - его как не было, так и нет - и это на сегодняшний день медицинский факт. Но в том смысле, что загружать данные всё-таки можно, хотя и несколько идеологически иначе - при помощи метода PivotTable.DataSource( recordset ): см. Сводные таблицы и Olap в Dax2009.

Приводимый ниже джоб - мой первый опыт работы с OWC PivoteTable на форме. Поэтому можно говорить о том, что публикую я его больше как узелок на память для самого себя, нежели как "лекцию" по пивотостроению (хм, и здесь пиво... :) ).

Джоб решает по сути абсолютно ту же задачу, что и джоб из сообщения Вывод в Excel сводной таблицы "пользователи-группы". Поэтому оба листинга полезно сравнить буквально пооператорно, определяя моменты сходства и отличия между "большим" Excel и "маленьким" OWC. Очень интересен в этом отношении способ гашения итогов: при визуальной схожести фрагментов "Subtotals(1, false)" они обнаружили заметное различие по смыслу. В Excel первый параметр - одно из значений перечисления: 1-Automatic, 2-Sum, 3-Count,..., 11-Var,12-Varp. В OWC PivotTable - "Must be 1" (см.комментарий и ссылку в коде).

X++:

#CCADO
static void Job_showUserGroupInActiveXPivot(Args _args)
{
    Form                form = new Form();
    FormBuildDesign     formBuildDesign = form.addDesign('Design');
    Args                args = new Args();
    FormRun             formRun;
    FormActiveXControl  pivotTable;

    UserGroupList       userGroupList;
    UserInfo            userInfo;
    UserGroupInfo       userGroupInfo;

    COM                 rst,flds,fld;   // переменные ADO

    COM                 ptConstants;    // переменные PivotTable
    COM                 activeView;
    COM                 avFieldSets, fieldSet;
    COM                 pivotFields, pivotField, pivotTotal;
    COM                 comTemp;

    void processFieldSet(COM _axis, str _fieldSetName)
    {
        fieldSet = avFieldSets.Item(_fieldSetName);
        _axis.InsertFieldSet(fieldSet);     // добавляем FieldSet в ось (т.е в Строки или в Столбцы)

        pivotFields = fieldSet.Fields();    // в семействе полей FieldSet'а...
        pivotField = pivotFields.Item(0);   // ...находим единственное поле... (индексация начинается с 0)
        pivotField.Subtotals(1, false);     // ...и гасим (false) для него промежуточные итоги
        // по поводу 1 см. "Must be 1" в [url]http://msdn.microsoft.com/en-us/library/aa831714(office.10).aspx[/url]
    }
    ;

// готовим рекордсет
    rst = AdoRst::openRecordsetInMemory([   // метод можно взять здесь: [url]http://www.axforum.info/forums/blog.php?b=60[/url]
            ['UserId'    , #adVarChar,  5 ],
            ['UserName'  , #adVarChar, 40 ],
            ['GroupId'   , #adVarChar, 10 ],
            ['GroupName' , #adVarChar, 40]]);

    flds = rst.Fields();

    while select userGroupList
        join userInfo
            where userInfo.id == userGroupList.userId
        join userGroupInfo
            where userGroupInfo.id == userGroupList.groupId
    {
        rst.AddNew();
            fld = flds.Item('UserId'   ); fld.Value(userGroupList.userId );
            fld = flds.Item('UserName' ); fld.Value(userInfo.name        );
            fld = flds.Item('GroupId'  ); fld.Value(userGroupList.groupId);
            fld = flds.Item('GroupName'); fld.Value(userGroupInfo.name   );
        rst.Update();
    }

// динамически генерируем форму
    args.object(form);

    formRun = classFactory.formRunClass(args);
    formRun.init();
    formRun.design().caption('Сводная таблица "Пользователи-Группы"');

    pivotTable = formRun.design().addControl(FormControlType::ActiveX, 'PivotTable');
    pivotTable.className('{0002E542-0000-0000-C000-000000000046}'); // Microsoft Office PivotTable 10.0

    pivotTable.heightMode(FormHeight::ColumnHeight);    // именно heightMode ! не путать с просто height
    pivotTable.widthMode(FormWidth::ColumnWidth);       // именно widthMode  ! не путать с просто width
    pivotTable.AutoFit(false);

    ptConstants = pivotTable.Constants(); // для использования ниже именованной константы plFunctionCount

// передаем рекордсет ActiveX'у
    pivotTable.DataSource(rst);


    activeView = pivotTable.ActiveView();
    avFieldSets = activeView.FieldSets(); // список доступных полей рекордсета для размещения в сводной таблице

// сокрытие разных "визуальных раздражителей" (здесь хорошо помог \Classes\GM_PivotViewManager\ initDefaultViewProperties от GMCS)
    COM::createFromObject( pivotTable.ActiveData() ).HideDetails();     // это лучше сделать до размещения полей и особенно итогов - иначе летаргически долго
    COM::createFromObject( activeView.TitleBar()   ).Visible(false);    // выключение синего заголовка "Сводная таблица MS Office 10.0"
    comTemp = ActiveView.FilterAxis();
    COM::createFromObject( comTemp.Label() ).Visible(false);            // выключение области "Перетащите сюда поля фильтра"
    pivotTable.AllowDetails(false);                                     // чтобы убрались "+/-" и не получать надпись "Нет деталей"
    pivotTable.DisplayOfficeLogo(false);                                // выключение самой левой красно-сине-желто-зеленой кнопки на панели


// наполняем строки полями UserName и UserId
    processFieldSet(activeView.RowAxis(), 'UserName');
    processFieldSet(activeView.RowAxis(), 'UserId');

// наполняем столбцы полями GroupId и GroupName
    processFieldSet(activeView.ColumnAxis(), 'GroupId');
    processFieldSet(activeView.ColumnAxis(), 'GroupName');

// наполняем область данных итогом - подсчетом кол-ва по полю GroupName (это поле осталось в переменной pivotField после его вставки в столбцы)
    pivotTotal = activeView.AddTotal('Количество', pivotField, ptConstants.plFunctionCount());  // использование именованной константы
    COM::createFromObject( activeView.DataAxis() ).InsertTotal(pivotTotal);

    formRun.run();
    formRun.wait();
}

При подготовке этого сообщения я использовал следующие материалы для изучения вопроса и написания джоба:

файл помощи OWCVBA10.CHM на своем компьютере, а также другие источники, описанные в сообщении Сводные таблицы и Olap в Dax2009;
демонстрационный пример Ivanhoe из сообщения Сводные таблицы и Olap в Dax2009;
наработки компании GMCS, которые нашёл в AOT нашей корпоративной Аксапты (3.0, SP4) - классы и формы с именами, начинающимися на "GM_Pivot"; пример работающей реализации этого хозяйства можно увидеть (клиентам GMCS!) по маршруту: Управление запасами \Запросы \Оборотно-сальдовая ведомость по складу \вкладка Обзор \кнопка Сводная таблица);
Метод \Classes\SysTableLookup\formRun - для подсматривания простейшего способа создания динамической формы без использования класса Dialog.

Заканчивается поддержка: Windows 2000, XP SP2 and Vista End of Life Support

Gustav — Thu, 18 Mar 2010 11:42:33 GMT

Размещено по просьбе Microsoft

Hello MVP’s,

As you may be aware, there are a number of Microsoft Windows versions which will go out of support during the coming year. We want to help customers avoid the risk of running unsupported products in their environment. Please help us share the message below on your blog, twitter or Facebook account:

Windows 2000 Professional and Windows 2000 Server are approaching 10 years since their launch and both products will go out of support on July 13, 2010.

Windows XP was launched back in 2001. While support for the product will continue, Service Pack 2 will go out of support on July 13, 2010. From that date onwards, Microsoft will no longer support or provide free security updates for Windows XP SP2. Please install the free Service Pack 3 for Windows XP to have the most secure and supported Windows XP platform.

Finally, Windows Vista with no Service Packs installed will end support on April 13 2010. Please install the free Service Pack 2 for Windows Vista to have the most secure and supported Windows Vista platform.

Please help us spread this message via your blog/twitter/Facebook!

For more information:
http://blogs.technet.com/lifecycle/a...installed.aspx

Resources:
Service Pack 3 for Windows XP:
http://www.microsoft.com/downloads/d...displaylang=en

Service Pack 2 for Windows Vista: http://www.microsoft.com/windows/win...a/default.aspx

Оперативная сортировка по убыванию

Gustav — Mon, 15 Mar 2010 07:40:56 GMT

Программисту-аксаптоведу известно, что если поместить набор однотипных элементов в базовый класс Set ("множество"), а потом выбрать их оттуда при помощи итератора (SetIterator) или перечислителя (SetEnumerator), то порядок извлечения будет соответствовать порядку сортировки этих элементов по возрастанию.

Слово "оперативная" в заголовке темы относится скорее даже не к выполнению процесса в оперативной памяти, а к возможности выполнить такую сортировку "быстренько, на ходу", не прибегая к более тяжелой "артиллерии" - например, временным таблицам.

Итак, использование Set позволяет нам получить список значений, отсортированный в возрастающем порядке (A..Z). Но как быть, если требуется сортировка по убыванию (Z..A)?

При сортировке чисел - int или real - можно использовать прием, о котором я уже как-то рассказывал в теме order by и group by. Суть приема заключается во врЕменном изменении знака числа на противоположный при добавлении в Set и в восстановлении знака при извлечении из Set'а.

X++:

static void Job_Numeric(Args _args)
{
    Set             set = new Set(Types::Integer);
    SetEnumerator   setEnumerator;
    int             i;
    int             t;

    t = WinAPI::getTickCount();
//--------------------------------------------
    for (i=1; i<=9000; i++)
        set.add(-i);

    setEnumerator = set.getEnumerator();
    while (setEnumerator.moveNext())
        i = -1*setEnumerator.current();
//--------------------------------------------
    info(strFmt('Milliseconds: %1', WinAPI::getTickCount()-t));

    setEnumerator.reset();
    while (setEnumerator.moveNext())
        info(strFmt('%1', -1*setEnumerator.current()));
}

Последовательность операторов между пунктирными линиями (или, что то же самое, между засекающими время вызовами getTickCount) собственно и решает задачу сортировки. Вывод отсортированных по убыванию элементов множества в окно Infolog вынесен за пределы этого фрагмента из-за продолжительного времени операции вывода, многократно превышающего время отрабатывания непосредственно сортирующих операторов.

Пусть вас не смущает выглядящая несколько странной операция присваивания i = -1*setEnumerator.current(). Она здесь лишь для того, чтобы показать, как следует восстанавливать исходные значения чисел, а также для учёта времени, затрачиваемого на восстановление, в общем времени сортировки. Вы можете видеть, что чуть ниже цикла с этим фиктивным присваиванием цикл перебора множества повторяется еще раз, но теперь уже исключительно для вывода значений в окно Infolog. Аналогичный подход принят и в следующих демонстрационных джобах, при рассмотрении сортировок других типов данных.

Переходим к обратной сортировке дат. С ними - чуть сложнее, чем с числами. Их нельзя просто так взять со знаком минус, но можно вычесть из одной и той же заведомо большей (более поздней) даты. Получившиеся разницы в днях (целые положительные числа) можно загрузить в Set - внимание: типа Integer, а не Date! В качестве очень большой даты можно использовать значение, возвращаемое функцией dateMax() = 31.12.2153 (по крайней мере для сортировок в течение ближайших ста сорока лет нам ее должно хватить :))

X++:

static void Job_Date(Args _args)
{
    Set             set = new Set(Types::Integer);
    SetEnumerator   setEnumerator;
    date            d, dMax=dateMax(), td=today(), tdMin=td-9000;
    int             t;

    t = WinAPI::getTickCount();
//--------------------------------------------
    for (d=td; d>tdMin; d--)
        set.add(dMax-d);

    setEnumerator = set.getEnumerator();
    while (setEnumerator.moveNext())
        d = dMax-setEnumerator.current();
//--------------------------------------------
    info(strFmt('Milliseconds: %1', WinAPI::getTickCount()-t));

    setEnumerator.reset();
    while (setEnumerator.moveNext())
        info(strFmt('%1', dMax-setEnumerator.current()));
}

Теперь о текстовых строках. Сразу отмечу, что обратно-сортировочное решение для данных этого типа ко мне шло как-то очень долго. Временами в голове рисовались какие-то побайтные инвертирования и прочие головоломки. Я всячески гнал эти мысли от себя и, как выяснилось, поступил правильно, когда, наконец, вдруг вспомнилось, что в базовый класс List элементы можно добавлять как в конец, так и в начало списка! (Ну, не часто я использую List в своей практике, ну, извиняйте!)

X++:

static void Job_String(Args _args)
{
    Set             set = new Set(Types::String);
    SetEnumerator   setEnumerator;
    str             s;
    int             t, i;
    List            list = new List(Types::String);
    ListEnumerator  listEnumerator;

    t = WinAPI::getTickCount();
//--------------------------------------------
    for (i=1; i<=9000; i++)
        set.add('Строка '+subStr(int2str(10000+i),2,4));

    setEnumerator = set.getEnumerator();
    while (setEnumerator.moveNext())
        list.addStart(setEnumerator.current());

    listEnumerator = list.getEnumerator();
    while (listEnumerator.moveNext())
        s = listEnumerator.current();
//--------------------------------------------
    info(strFmt('Milliseconds: %1', WinAPI::getTickCount()-t));

    listEnumerator.reset();
    while (listEnumerator.moveNext())
        info(strFmt('%1', listEnumerator.current()));
}

Как видно из кода Job_String, добавился еще один шаг - загрузка строк, отсортированных в Set, в List в обратном порядке. Из этого List'а теперь и получается окончательный результат. Несмотря на дополнительный шаг, процедура для строк претендует на статус универсальной, пригодной для данных любого типа.

Тем не менее, продемонстрированные выше частные решения для чисел и дат не будем спешить удалять из своего арсенала. Причина - бОльшая компактность кода, а также вполне логично объяснимая более высокая скорость выполнения. Вы можете сами поэкспериментировать, сравнивая количество миллисекунд выполнения частных и универсальных версий. Для удобства сравнения вот еще два джобика для чисел и дат в универсальном формате:

X++:

static void Job_Numeric_Univers(Args _args)
{
    Set             set = new Set(Types::Integer);
    SetEnumerator   setEnumerator;
    int             i;
    int             t;
    List            list = new List(Types::Integer);
    ListEnumerator  listEnumerator;

    t = WinAPI::getTickCount();
//--------------------------------------------
    for (i=1; i<=9000; i++)
        set.add(i);

    setEnumerator = set.getEnumerator();
    while (setEnumerator.moveNext())
        list.addStart(setEnumerator.current());

    listEnumerator = list.getEnumerator();
    while (listEnumerator.moveNext())
        i = listEnumerator.current();
//--------------------------------------------
    info(strFmt('Milliseconds: %1', WinAPI::getTickCount()-t));

    listEnumerator.reset();
    while (listEnumerator.moveNext())
        info(strFmt('%1', listEnumerator.current()));
}

++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

static void Job_Date_Univers(Args _args)
{
    Set             set = new Set(Types::Date);
    SetEnumerator   setEnumerator;
    date            d, td=today(), tdMin=td-9000;
    int             t;
    List            list = new List(Types::Date);
    ListEnumerator  listEnumerator;

    t = WinAPI::getTickCount();
//--------------------------------------------
    for (d=td; d>tdMin; d--)
        set.add(d);

    setEnumerator = set.getEnumerator();
    while (setEnumerator.moveNext())
        list.addStart(setEnumerator.current());

    listEnumerator = list.getEnumerator();
    while (listEnumerator.moveNext())
        d = listEnumerator.current();
//--------------------------------------------
    info(strFmt('Milliseconds: %1', WinAPI::getTickCount()-t));

    listEnumerator.reset();
    while (listEnumerator.moveNext())
        info(strFmt('%1', listEnumerator.current()));
}

У меня лично в среднем получилось: для чисел - 100 ms в частном случае против 170 ms универсального решения; для дат - 140 и 170 ms соответственно.

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

Как бы то ни было, но аппетит, как говорится, пришёл во время еды, и в результате следующий джоб решает задачу комплексной сортировки набора контейнеров, состоящих из пяти элементов (для удобства изложения будем называть их полями - по аналогии со строкой таблицы БД, на которую контейнер вполне похож). Поля контейнеров в примере имеют типы: 1 - действительное, 2 - дата, 3,4,5 - строки. Требуемый порядок сортировки: 1,2 - по возрастанию, 3 - по убыванию, 4 - по возрастанию, 5 - по убыванию.

Мы сосредоточимся на интересной для нас обратной сортировке, которая "начинается" в глубине контейнера - с 3-го поля. Для того чтобы два первых поля при этом не "фонили", заполним их одинаковыми повторяющимися значениями (3.62 и 31\12\2009).

Вспомогательные действия и врЕменные изменения, которые нужно проделать с набором контейнеров при желании отсортировать некоторые текстовые поля по убыванию:

определить общее количество контейнеров в наборе (элементов в Set) и найти ближайшее число "10 в степени x", превышающее это количество (x - положительное целое число);
.
переставить поля в контейнерах так, чтобы на первых местах слева оказались поля, по которым хочется выполнить сортировку по убыванию;
.
создать еще один вспомогательный набор (SetTmp), который заполнить переставленными контейнерами. При этом контейнеры автоматически отсортируются, правда, пока по возрастанию;
.
очистить исходный набор (Set) и заполнить его контейнерами из вспомогательного набора, возвращая всем полям контейнеров исходный порядок и дописывая в начало значений из сортируемых по убыванию полей подстроку, состоящую из x-значного цифрового кода, рассчитываемого по убыванию, начиная со значения 10^x-1 ("99..99"). К повторяющимся исходным значениям текстовых полей добавляются и повторяющиеся (одинаковые) цифровые коды;
.
окончательно прочитать контейнеры из Set, восстанавливая исходные текстовые значения путем обрезания слева x временно добавленных символов.

Перечисленные алгоритмические шаги реализованы в джобе:

X++:

static void Job_Container_AscDesc(Args _args)
{
// СОРТИРОВКА КОНТЕЙНЕРОВ В ВОЗРАСТАЮЩЕ-УБЫВАЮЩЕМ ПОРЯДКЕ
// Имеется множество контейнеров вида [r1,d2,s3,s4,s5] (real,date,str,str,str)
// Нужно выполнить сортировку: r1 ASC, d2 ASC, s3 DESC, s4 ASC, s5 DESC

    Set             set     = new Set(Types::Container);
    Set             setTmp  = new Set(Types::Container);
    SetEnumerator   setEnumerator;
    real            r1;
    date            d2;
    str             s3, s4, s5, sprev, s3prev, s5prev;
    int             t, i, j, k, pwr, tenInPwr;
    ;

    t = WinAPI::getTickCount();
//--------------------------------------------
    // Заполнение Set исходным набором данных - контейнерами [r1,d2,s3,s4,s5]
    for (i=1; i<=20; i++)
        for (j=1; j<=20; j++)
            for (k=1; k<=20; k++) // итого 20 * 20 * 20 = 8000 элементов
                set.add([3.62, 31\12\2009,
                        'Строка '+subStr(int2str(100+i),2,2),
                        'Строка '+subStr(int2str(100+j),2,2),
                        'Строка '+subStr(int2str(100+k),2,2)]);

    // вычисляем кол-во элементов в Set и число 10^x, достаточное для их нумерации
    pwr = trunc(log10(set.elements()))+1; // х
    tenInPwr = any2int(power(10,pwr));    // 10^x

    // 1 => 2: перебираем Set и заполняем вспомогательный SetTmp контейнерами с переставленными элементами
    setEnumerator = set.getEnumerator();
    while (setEnumerator.moveNext())
    {
        [r1,d2,s3,s4,s5] = setEnumerator.current();
        // выводим на первые позиции контейнера все сортируемые по убыванию строковые поля - s3, s5
        setTmp.add([s3,s5, r1,d2,s4]);
    }

    //  2 => 1: очищаем Set и заполняем его из SetTmp
    // строками с добавленными в начало "номерами" для изменения порядка сортировки
    set = new Set(Types::Container);
    i = tenInPwr;
    j = tenInPwr;
    s3prev = strMax(); 
    s5prev = strMax();
    setEnumerator = setTmp.getEnumerator();
    while (setEnumerator.moveNext())
    {
        [s3,s5, r1,d2,s4] = setEnumerator.current(); // например, s3 = "Вася"

        // первое убывающее текстовое поле
        if (s3 != s3prev) // "номер" в s3 изменяем только при изменении значения
        {
            i--;
            s3prev = s3;
        }
        s3 = subStr( int2str(tenInPwr+i), 2, pwr) + s3; // например, s3 станет = "9999Вася"

        // второе убывающее текстовое поле
        if (s5 != s5prev) // "номер" в s5 изменяем только при изменении значения
        {
            j--;
            s5prev = s5;
        }
        s5 = subStr( int2str(tenInPwr+j), 2, pwr) + s5;

        // здесь также можно преобразовать нетекстовые убывающие поля (если есть такие)

        // восстановление исходного порядка элементов в контейнере
        set.add([r1,d2,s3,s4,s5]);
    }

    // окончательное извлечение и восстановление измененных значений
    setEnumerator = set.getEnumerator();
    while (setEnumerator.moveNext())
    {
        [r1,d2,s3,s4,s5] = setEnumerator.current();
        s3 = subStr(s3, pwr+1, strLen(s3)); // "9999Вася" => "Вася"
        s5 = subStr(s5, pwr+1, strLen(s5));
        // здесь также восстанавливаем нетекстовые убывающие поля (если есть)
    }
//--------------------------------------------
    info(strFmt('Milliseconds: %1', WinAPI::getTickCount()-t));

    setEnumerator.reset();
    while (setEnumerator.moveNext())
    {
        [r1,d2,s3,s4,s5] = setEnumerator.current();
        s3 = subStr(s3, pwr+1, strLen(s3));
        s5 = subStr(s5, pwr+1, strLen(s5));

        info(strFmt('%1 -- %2 -- %3 -- %4 -- %5', r1,d2,s3,s4,s5));
    }
}

Если помимо обратной сортировки по текстовым полям требуется также и обратная сортировка по полям чисел или дат, то для них манипуляции существенно проще: их не надо переставлять внутри контейнера, достаточно лишь "изменить знак" перед окончательной ("сортирующей") загрузкой в Set и затем в процессе считывания восстановить значения повторным "изменением знака". Потенциальные места преобразования нетекстовых полей в джобе отмечены соответствующими комментариями.

Используя сортирующую способность Set, не следует забывать и о его группирующей способности - содержать в себе только уникальные значения, игнорируя повторное добавление уже имеющихся элементов. Поэтому если сортируется набор неуникальных простых значений (чисел, дат, строк), их следует превратить в контейнеры путем добавления на вторую позицию уникального значения целочисленного счетчика (своеобразного "RecId"), как это было сделано, например, здесь: order by и group by (в результате чего оба значения "200" попали в финальный результат). Если сортируются неуникальные контейнеры, то их так же надо сделать уникальными, добавив аналогичный "RecId" последним элементом.

Приятное управление источниками данных ODBC

Gustav — Fri, 19 Feb 2010 11:15:44 GMT

ВНИМАНИЕ! Материал ниже - не "узко"-аксаптовский, но "широко"-виндосовский! Поэтому "Добро пожаловать, ВСЕ!" :)

Приходилось ли вам скрежетать зубами при создании источника данных ODBC через стандартный интерфейс Windows: Старт \ Настройка \ Панель управления \ Администрирование \ Источники данных (ODBC) ? При создании одного источника, наверное, нет. А при создании пяти сразу? А при создании хоть и одного нового, но на десятках пользовательских компьютеров? Что и говорить, удовольствия от такого рутинного занятия не сильно много.

Лет восемь примерно назад мне пришлось решать задачу по прописыванию ODBC-источника на компьютерах свыше полсотни пользователей. Тогда наш IT-отдел, состоящий из 3 человек, каждому из которых было лень оббегать пользователей по кругу и тупо повторять одно и то же десятки раз, совместными усилиями нарыл в Сети пример на VBA по автоматическому созданию источника. Мы подрихтовали код и упаковали его в mdb-файл Access'а как в командный файл, с автозапуском процедуры при открытии этого файла и последующим закрытием после срабатывания. Получившийся "командник" разослали пользователям по почте с просьбой запустить этот файл на своих машинах самостоятельно. Источники красиво создались, а мы, IT-шники, получили глубокое удовлетворение от содеянного.

Воды с тех пор утекло много. Участники того давнего действа теперь работают в других и разных местах. Код, как это часто бывает в таких случаях, даже если и сохранился где-то в архивах, то в них же и безнадежно затерялся и, возможно, лучшим выходом является просто повторное его создание заново. Так и пришлось сделать, когда мне недавно захотелось возродить забытую процедуру и уж на этот раз поместить его в легкодоступное место, коим я и считаю данное сообщение.

После развернутого лирического вступления далее покажу получившийся код (Excel VBA), намекну на возможности получившегося инструментика и приложу Excel-файл с необходимой начинкой, которым каждый из вас сможет при желании самостоятельно воспользоваться. Думаю, что то, что именно Excel является контейнером для решения этой задачи, для моих постоянных читателей не является неожиданностью ;)

Собственно, интерфейс "инструментика" - во всей его непосредственности - можно наблюдать уже на следующем рисунке - фрагменте рабочего листа Excel:

На приведенном рисунке мы видим таблицу с наборами данных о DSN (область между серыми полосами; назовем ее мини-таблица) и небольшую голубую "панель управления" в нижней правой части. Состав колонок таблицы - достаточный для источников, предназначенных для работы с Oracle. При необходимости список колонок легко "расширяется" вправо путем добавления специфических столбцов для других драйверов ODBC. При этом соответствующие несложные изменения надо будет внести и в приведенный ниже код VBA. Само собой, что строки между серыми полосами можно добавлять и удалять, следя за тем, чтобы не было разрывов (пустых ячеек) в колонке "Driver" между строкой заголовков и последней заполненной строкой этой мини-таблицы.

Как всё это работает, думаю, понятно. Выбор опции в группе переключателей "DSN" эквивалентен выбору соответствующей вкладки на первом рисунке - User DSN или System DSN. Выбор во второй группе "Operation" имитирует одну из кнопок первого рисунка. Наконец по нажатию единственной кнопки "Do The Operation" выбранная операция для выбранного типа DSN выполняется в цикле для каждой строки (набора параметров) мини-таблицы.

Информация об успехе или неудаче операции для каждой строки выводится в окно отладки редактора Visual Basic. Вывод о результате делается на основании значения, возвращаемого функцией SQLConfigDataSource (см. в коде). Насколько я понимаю, изначально разработчиками этой функции предполагался возврат либо значения 1 (успех), либо 0 (неудача), что и проверяется в моей процедурке. Однако, в процессе тестирования драйверов для Oracle выяснилось, что для них возвращаются какие-то довольно большие целые числа - и в случае успеха, и в случае неудачи. Поэтому, если такой драйвер имеется в системе, то для него все операции, выполняемые с помощью моей процедуры считаются "успешными". Для таких драйверов убедиться в реальном положении вещей можно с помощью стандартной формы "ODBC Data Source Administrator".

Хотя код процедуры можно посмотреть в прилагаемом Excel-файле, продублирую его здесь - в основном, для гостей форума, не имеющих доступа к вложениям:

Код:

Option Explicit

'--- Excel VBA ---

'Constant Declaration
'User DSN
Private Const ODBC_ADD_DSN = 1          ' Add data source
Private Const ODBC_CONFIG_DSN = 2       ' Configure (edit) data source
Private Const ODBC_REMOVE_DSN = 3       ' Remove data source

'System DSN
Private Const ODBC_ADD_SYS_DSN = 4      ' Add data source
Private Const ODBC_CONFIG_SYS_DSN = 5   ' Configure (edit) data source
Private Const ODBC_REMOVE_SYS_DSN = 6   ' Remove data source

Private Const vbAPINull As Long = 0     ' NULL Pointer

'Function Declare
#If Win32 Then
    Private Declare Function SQLConfigDataSource Lib "ODBCCP32.DLL" _
    (ByVal hwndParent As Long, ByVal fRequest As Long, _
    ByVal lpszDriver As String, ByVal lpszAttributes As String) _
    As Long
#Else
    Private Declare Function SQLConfigDataSource Lib "ODBCINST.DLL" _
    (ByVal hwndParent As Integer, ByVal fRequest As Integer, ByVal _
    lpszDriver As String, ByVal lpszAttributes As String) As Integer
#End If

Sub doSomethingWithDSNs()

    #If Win32 Then
        Dim intRet As Long
    #Else
        Dim intRet As Integer
    #End If
    
    Dim strDriver As String
    Dim strAttributes As String
    Dim rng As Range
    Dim i As Integer
    Dim fRequest As Long
    
    Select Case ThisWorkbook.Worksheets("List_of_DSNs").Range("DSNCell")
        Case 1
            Select Case ThisWorkbook.Worksheets("List_of_DSNs").Range("OperationCell")
                Case 1: fRequest = ODBC_ADD_DSN
                Case 2: fRequest = ODBC_REMOVE_DSN
                Case 3: fRequest = ODBC_CONFIG_DSN
            End Select
        Case 2
            Select Case ThisWorkbook.Worksheets("List_of_DSNs").Range("OperationCell")
                Case 1: fRequest = ODBC_ADD_SYS_DSN
                Case 2: fRequest = ODBC_REMOVE_SYS_DSN
                Case 3: fRequest = ODBC_CONFIG_SYS_DSN
            End Select
    End Select
    
    Set rng = ThisWorkbook.Worksheets("List_of_DSNs").Range("TableUpLeft").CurrentRegion
    
    For i = 2 To rng.Rows.Count
    
        strDriver = rng(i, 1)
        
        'Set the attributes delimited by null.
        'See driver documentation for a complete list of attributes.
        strAttributes = "DSN=" & rng(i, 2) & Chr(0)
        strAttributes = strAttributes & "DESCRIPTION=" & rng(i, 3) & Chr(0)
        strAttributes = strAttributes & "SERVER=" & rng(i, 4) & Chr(0)
        strAttributes = strAttributes & "UID=" & rng(i, 5) & Chr(0)
        strAttributes = strAttributes & "PWD=" & rng(i, 6) & Chr(0)
        
        'To show dialog, use Form1.Hwnd instead of vbAPINull.
        intRet = SQLConfigDataSource(vbAPINull, fRequest, strDriver, strAttributes)
        
        If intRet Then
            Debug.Print i - 1 & " -- Successful operation for " & rng(i, 2) & " with " & rng(i, 1)
        Else
            Debug.Print i - 1 & " -- Failed operation for " & rng(i, 2) & " with " & rng(i, 1)
        End If
        
    Next i
    
    MsgBox "You can see log in Immediate window (Alt+F11, Ctrl+G)", vbInformation, "FINISHED!"
            
End Sub

Несколько слов об открывшихся возможностях, которые нравятся лично мне:

Хранение информации о всех DSN в одном месте - табличке Excel, со всеми ее вытекающими прелестями типа дублирования значений копированием и т.п.
.
Можно указать пароли. При помощи стандартного "Администратора" я не помню, чтобы такое было возможно. Обычно, когда это было нужно, я прописывал их напрямую в реестре Windows. А нужно это бывает, например, при открытии присоединенной таблички в Access - если пароль не прописан в реестре, то он раздражающе запрашивается; если же прописан, то легко открывается сразу как родная табличка Access. Плюс, в этом случае пароль совсем не обязательно сообщать конечному пользователю.
.
Возможность автоматически выбрать нужный драйвер из нескольких возможных. В моем конкретном случае для Oracle это хорошо видно. У нас у некоторых пользователей уже установлены новые версии - "Oracle in VER10_HOME", в то время как у многих - еще старые "Oracle in OraHome92". Так вот, при прогоне процедуры ненужный драйвер просто не установится (если в системе имеются оба драйвера, то понятно, что установится первый встретившийся в мини-таблице).
.
Конечно, эстетическая мелочь, но все равно приятно - можно неспешно указать "Description". Обычно это поле впопыхах админской жизни либо не заполняется вообще, либо туда дублируется строка из поля DSN. А уж о такой роскоши, как как-нибудь сесть за чашкой чая и привести в порядок эти описания и говорить не приходится - какой идиот захочет этим заниматься через "Administrator"?! А теперь - выставил всё в мини-табличке, запустил "Configure" - и вот оно, счастье!

В целом, мне кажется, вся рассмотренная выше задачка из серии тех, на которые при всей их простоте сам время найдёшь с трудом (и ведь будешь продолжать скрежетать зубами!), но если кто-то предлагает готовое решение, то почему бы не воспользоваться. В общем, приятного вам юзанья моей скромной тулзы!

"СПИСОК ЛИТЕРАТУРЫ":

(Ура! Почти на грани, но уложился в разрешенные 10 тыщ символов :))

Вложения

ComfortODBC.xls (51.0 Кб, 3415 просмотров)

Цикл по сквозным годомесяцам

Gustav — Wed, 20 Jan 2010 10:00:54 GMT

Эта "новая" единица измерения времени - "годомесяц" = год*12+месяц - всем наверняка знакома. Сама по себе в абсолютном значении величина эта смысла не имеет, интересны лишь ее изменения в некотором диапазоне. Любопытно, что я поискал в репозитарии по строке "mthofyr" и в явном виде подобный цикл ни разу не увидел, хотя разницы "годомесяцев" местами используются, например, в функции GM_Global::mthDiff в приложении GMCS.

Мне этот цикл пригодился в задаче нахождения расхождений между записями LedgerTrans в одной компании и соответствующими (по трансляции) записями в другой компании. Поскольку записей за без квартала три года имелось уже очень приличное количество (несколько миллионов), а для выявления расхождений использовался метод difference класса Set, то чтобы не делать сравниваемые множества слишком большими, было решено идти по месяцам - на каждом шаге определялись даты начала и конца месяца, которые затем подставлялись в условие where (в джобе ниже - currFirstDay и currLastDay соответственно).

Получившийся шаблончик цикла мне понравился и я решил его зафиксировать, дабы при случае еще раз воспользоваться и более не копаться в календарных функциях. Шаблон эффективен только в том случае, если цикл затрагивает более одного года (внутри одного и того же года, понятное дело - всё гораздо проще).

Вот как выглядит этот помесячный цикл:

X++:

static void jobYearMonthLoop(Args _args)
{
    TransDate   dateBeg = 01\10\2006;
    TransDate   dateEnd = 30\06\2009;
    TransDate   currFirstDay, currLastDay;
    int         m, currYear, currMonth;
    ;
    for (m = year(dateBeg)*12+mthofyr(dateBeg);
         m<= year(dateEnd)*12+mthofyr(dateEnd);
         m++)
    {
        currMonth = m mod 12 ? m mod 12 : 12;
        currYear  = (m-currMonth) / 12;

        currFirstDay = mkDate(1,currMonth,currYear);
        currLastDay  = dateEndMth(currFirstDay);
        info(strFmt('%1 -- %2', currFirstDay, currLastDay));
    }
}

Ну, и до кучи - сама собой напрашивающаяся версия цикла для "годокварталов":

X++:

static void jobYearQuarterLoop(Args _args)
{
    TransDate   dateBeg = 01\10\2006;
    TransDate   dateEnd = 30\06\2009;
    TransDate   currFirstDay, currLastDay;
    int         q, currYear, currQtr;
    ;
    for (q = year(dateBeg)*4+date2qtr(dateBeg);
         q<= year(dateEnd)*4+date2qtr(dateEnd); 
         q++)
    {
        currQtr = q mod 4 ? q mod 4 : 4;
        currYear  = (q-currQtr) / 4;

        currFirstDay = mkDate(1,currQtr*3-2,currYear);
        currLastDay  = dateEndQtr(currFirstDay);
        info(strFmt('%1 -- %2', currFirstDay, currLastDay));
    }
}

Вывод в Excel сводной таблицы "пользователи-группы"

Gustav — Mon, 21 Dec 2009 11:32:00 GMT

В принципе задача не бог весть какая сложная, хотя и сама по себе достаточно полезная с точки зрения администрирования Аксапты. Я, наверное, и не стал бы постить ее решение, если бы не маленькая изюминка - исходные данные из Аксапты выводятся не на лист Excel, а сразу в кэш сводной таблицы. Точнее, кэшу передается ADODB.Recordset, предварительно сформированный в памяти в Аксапте. Поэтому сообщение можно считать приложением к, не побоюсь этого слова, ставшей популярной теме Поговорим об ADO :)

Вот джоб, строящий в Excel перекрестную таблицу со строками-пользователями и столбцами-группами:

X++:

#CCADO
#define.xlExternal(2)
#define.xlRowField(1)
#define.xlColumnField(2)

static void Job_showUserGroupInExcelPivot(Args _args)
{
    UserGroupList   userGroupList;
    UserInfo        userInfo;
    UserGroupInfo   userGroupInfo;

    COM             rst, flds, fld;
    COM             wbk, pc, ptb, pf;
    COM             rng = SysExcelApplication::construct().workbooks().add().worksheets().itemFromNum(1).range('A1').comObject();
    ;

    rst = AdoRst::openRecordsetInMemory([
            ['UserId'    , #adVarChar,  5 ],
            ['UserName'  , #adVarChar, 40 ],
            ['GroupId'   , #adVarChar, 10 ],
            ['GroupName' , #adVarChar, 40 ]]);

    flds = rst.Fields();

    while select userGroupList
        join userInfo
            where userInfo.id == userGroupList.userId
        join userGroupInfo
            where userGroupInfo.id == userGroupList.groupId
    {
        rst.AddNew();
            fld = flds.Item('UserId'   ); fld.Value(userGroupList.userId );
            fld = flds.Item('UserName' ); fld.Value(userInfo.name        );
            fld = flds.Item('GroupId'  ); fld.Value(userGroupList.groupId);
            fld = flds.Item('GroupName'); fld.Value(userGroupInfo.name   );
        rst.Update();
    }

    wbk = rng.Parent(); wbk = wbk.Parent(); // ActiveWorkbook

    pc = wbk.PivotCaches(); pc = pc.Add(#xlExternal); // PivotCache
    pc.Recordset(rst); // вот здесь и передаем рекордсет -> кэшу

    ptb = pc.CreatePivotTable(rng); // PivotTable

    pf = ptb.PivotFields('UserName' ); pf.Orientation(#xlRowField   ); pf.Position(1); pf.Subtotals(1,false);
    pf = ptb.PivotFields('UserId'   ); pf.Orientation(#xlRowField   ); pf.Position(2); pf.Subtotals(1,false);

    pf = ptb.PivotFields('GroupId'  ); pf.Orientation(#xlColumnField); pf.Position(1); pf.Subtotals(1,false);
    pf = ptb.PivotFields('GroupName'); // PivotField
    ptb.AddDataField(pf, 'Участие пользователей в группах');
                                       pf.Orientation(#xlColumnField); pf.Position(2); pf.Subtotals(1,false);

    COM::createFromObject(rng.Application()).Visible(true);
}

Как видно, код джоба получился вполне компактным - в первую очередь, за счет того, что везде, где можно, используются свойства сводной таблицы по умолчанию. Признаком вхождения конкретного пользователя в конкретную группу является результат (равный 1) агрегатной функции Count по последнему полю GroupName. Причем, нюанс - сначала это поле помещается в область данных сводной таблицы и лишь заключительным шагом - в область заголовков строк. Использовавшееся вначале решение "в лоб", когда поле первым делом помещалось в область заголовков строк и затем в область данных, приводило к тому, что поле исчезало из заголовков строк. Ну, а почему выбрано именно последнее поле, думаю, понятно - чтобы не делать лишнего присваивания "pf = ...".

Рекомендую также обратить внимание на способ выключения ненужных подитогов для полей при помощи конструкции "Subtotals(1,false)". При записи процедуры макрорекордером в Excel на этом шаге прописывается вариантный массив VBA вида Array(False,False,False...), имитация которого в джобе при помощи COMVariant.safeArray увеличила бы размер его кода раза в два - за счёт подготовительных действий по созданию массива.

Используемый в джобе для построения рекордсета в памяти статический метод openRecordsetInMemory - член некоторого моего класса AdoRst. Метод можно поместить и в Global, либо развернуть как вложенную функцию в самом джобе. Единственный параметр метода - контейнер контейнеров-полей.

X++:

#CCADO
static COM openRecordsetInMemory(container _fields)
{
    COM rst  = new COM('ADODB.Recordset');
    COM flds = rst.Fields();

    int i;
    str fldName;
    int fldType;
    int fldDefinedSize;
    ;

    for (i=1;i<=conLen(_fields);i++)
    {
        [fldName, fldType, fldDefinedSize] = conPeek(_fields, i);

        if (! fldType)
            fldType = #adVarChar;

        if (! fldDefinedSize            &&
           (fldType == #adChar          || // 129
            fldType == #adWChar         )) // 130
        {
            fldDefinedSize = 30;
        }

        if (! fldDefinedSize            &&
           (fldType == #adVarChar       || // 200
            fldType == #adLongVarChar   || // 201
            fldType == #adVarWChar      || // 202
            fldType == #adLongVarWChar  )) // 203
        {
            fldDefinedSize = 255;
        }

        if (fldDefinedSize)
            flds.Append(fldName, fldType, fldDefinedSize);
        else
            flds.Append(fldName, fldType);
    }

    rst.Open();

    return rst;
}

К великому моему сожалению, данный метод передачи рекордсета сводной таблице нельзя применить в случае ActiveX - OWC PivotTable. В его объектной модели, увы, отсутствует объект PivotCache...

События FormActiveXControl не получается использовать в диалоге

Gustav — Tue, 17 Nov 2009 15:49:52 GMT

Хотел воспользоваться такими родными событиями Spreadsheet в динамической форме (диалоге), как SelectionChange, DblClick и еще некоторыми, которые видны через ActiveX Explorer при правом щелчке на узле контрола этого типа в дизайне обычной формы, сохраненной в AOT.

Уверенности придавал тот факт, что в форме, сохраненной в AOT, всё работает отлично. Методы событий добавляются во время разработки при помощи ActiveX Explorer с именами onEvent_SelectionChange, onEvent_DblClick и т.п. Внедренный в форму Spreadsheet (как FormActiveXControl) прекрасно на них реагирует и должным образом отрабатывает.

Как известно, для обработки событий в диалоге приходится прибегать к хитростям "перегрузки", заключающимся в использовании операторов

X++:

.controlMethodOverload(true);

.controlMethodOverloadObject
 ( new <    >() );

в некотором методе, формирующем диалог перед его исполнением.

Во втором операторе необходимо указать место хранения методов обработки событий. Таким местом обычно выступает некий отдельно стоящий класс, используемый только для данного диалога (в сам диалог по понятным "динамическим" причинам мы, к сожалению, не можем добавить методы событий).

Также известно, что для названий методов событий в таком классе существуют определенные правила. Согласно этим правилам название метода должно начинаться с имени элемента управления ("контрола") в форме и и далее через символ подчеркивания - название выбранного метода. Если в форме имеется кнопка MyButton, нажатие на которую обрабатывается методом clicked(), то предназначенный для тех же целей метод, вынесенный в класс, должен называться MyButton_clicked().

Имея в диалоге Spreadsheet с именем ss, я создал поддерживающий класс с методом под названием ss_onEvent_SelectionChange(). В метод я поместил оператор box::info('Изменилась ячейка!') и стал щелкать мышкой по разным ячейкам Spreadsheet'а. Ожидаемая с каждым щелчком реакция - появление сообщения - не наблюдалась.

Сделал шаг назад - вернулся к сохраненной в AOT обычной форме, но обработку событий оставил в поддерживающем классе (вызов element.controlMethodOverload поместил в init формы). И опять Spreasheet никак не реагировал :( Родная же аксаптовская кнопка (FormButtonContol) нормально "кликалась" со срабатыванием вынесенного метода MyButton_clicked() во всех вариантах: и в диалоге, и в сохраненной форме.

И всё же для этого промежуточного варианта - сохраненная форма, но вынесенная обработка - решение нашлось. Оказалось, что для вынесенного метода в узле методов Spreadsheet'а сохраненной формы должен присутствовать аналогичный пустой метод. Например, чтобы сработал вынесенный метод ss_onEvent_SelectionChange() - в узле ss\Methods сохраненной формы должен присутствовать метод с кодом "void onEvent_SelectionChange(){}", добавленный с помощью ActiveX Explorer.

И хотя практического смысла в таком промежуточном решении немного, важно другое - получен ответ, пусть и отрицательный, на вопрос "Можно ли использовать события для FormActiveXControl в диалоге?". Нельзя! Негде для диалога написать "void onEvent_SelectionChange(){}"... (Ax 3.0 SP4)

Или всё-таки можно? ;) Может, как-то в более новых версиях?..

Повышение комфортности разработки при использовании Spreadsheet

Gustav — Thu, 12 Nov 2009 13:51:03 GMT

Считая себя увлеченным популяризатором Excel и всего, что на нее (него) похоже, развиваю дальше тему OWC Spreadsheet.

Если решено использовать Spreadsheet для определенной задачи в приложение Axapta (например, отображать в диалоге, как было показано в моем предыдущем собщении: http://www.axforum.info/forums/blog.php?b=26), то управлять его свойствами при программировании приходится практически вслепую. Такое достижение программирующего человечества, как технология IntelliSense, обеспечивающая автоматическое "дописывание" операторов, имен свойств, методов и событий по мере их ввода, а также открывающая список элементов объекта при завершении его имени точкой ".", увы, не работает для переменных типа COM.

Приходится поступать так: записывать скрипт в Excel (вручную или макрорекордером), переводить его на язык X++ и далее отлаживать, устраняя отдельные недоразумения (всё же Spreadsheet - не точная копия Excel и имеет в ряде случаев свое специфическое поведение).

Это сообщение ставит целью поменять вышеупомянутые шаги местами и сделать перевод с VBA на X++ самым последним и неутомительным рутинным этапом всей процедуры внедрения кода по "обслуживанию" Spreadsheet в приложении Axapta.

Первыми же (более творческими) этапами предлагается сделать записывание в Excel кода VBA макрорекордером, его ручное подправление при необходимости и "переключение" этого кода на выполнение в Spreadsheet (помещенном в рассматриваемом ниже случае на лист Excel). Попутно также устраняются обнаруженные разночтения между Excel и Spreadsheet, НО (!) пользуясь всей мощью IntelliSence уже для самого Spreadsheet, а не для используемого для "черновых" набросков Excel. Что еще не маловажно - визуально уже в самом Spreadsheet же контролируется прописываемое поведение этого объекта (т.е. во время отладки не нужно всякий раз запускать форму, как это было бы при отладке в Аксапте).

Итак, что собственно? Собственно следующее - вручную нарисуем в Excel элемент управления Spreadsheet и напишем несколько строк VBA по назначению этого элемента управления объектной переменной типа Spreadsheet. Как вы правильно поняли, всё происходит в Excel, Axapta здесь только путеводная звезда, к которой мы плывем со своим отлаженным кодом. Отмечу, что целевым приложением может быть и не Axapta, но любое другое, работающее с элементами ActiveX.

ШАГИ:

откроем Excel (пусть 2003 - я по-прежнему больше люблю то, что старше версии 2007).
найдём панель инструментов "Control Toolbox" и нажмем на ней кнопку "More Controls" (с пиктограммой с перекрещенными ключом и молотком)
в открывшемся списке выберем "MIcrosoft Office Spreadsheet 10.0" (или 11.0 или др.) и нарисуем появившимся крестиком рамку внедряемого объекта прямо на текущем листе Excel
покинем режим конструирования, отжав кнопку "Design Mode" (с угольником и линейкой) и перейдём в редактор VBA (Alt+F11)
создадим новый модуль и поместим в него следующий код:

Код:

Sub assignSpreadsheetObjectToVariable()

    Dim ss As Spreadsheet
    
    Set ss = ActiveSheet.OLEObjects(1).Object
    
    
    ' и дальше ведем здесь разработку
    ' с использованием переменной ss
   
    ss.Range("A1").Value = "Мы управляем Spreadsheet'ом из Excel"
    ss.Range(ss.Cells(2, 2), ss.Cells(5, 6)).Interior.ColorIndex = 35
    
End Sub

запустим этот код (F5) и убедимся, что он работает

.
Всё! Далее в этой же процедуре можно сочинять свою обработку Spreadsheet, которую по окончании перевести на язык X++:

Использование OWC Spreadsheet в диалоге

Gustav — Thu, 15 Oct 2009 13:49:39 GMT

Имеется диалог, при помощи которого пользователь задает параметры изменения срока службы у нескольких основных средств, которые в данный момент отфильтрованы и/или отмечены в гриде формы "Основные средства" (RAssetTable). Процесс инициируется кнопкой, расположенной на этой форме. Диалог выглядит так:

После нажатия на кнопку ОК новое значение срока службы (как можно догадаться из рисунка - одно и то же) прописывается всем выбранным ОС - одному или нескольким, отмеченным в гриде при помощи мышки и клавиш Ctrl или Shift. Код, выполняющий эту работу, выглядит следующим образом ( (с) GMCS ):

X++:

void ChangeLifeTime()
{
    DialogRunBase           dialog = new Dialog();
    DialogField             dialogDate,dialogLifeTime,dialogStandardId;

    RAssetLifeTime          dialogLifeTimeValue;
    RAssetStandardId        dialogStandardValue;
    TransDate               dialogDateValue;
    int                     i = 0;
    common                  urRec;
    RassetTable             urRAssetTable;
    RassetStandards         urRassetStandards;
    ;
    urRec = RAssetTable_ds.getFirst(1);
    if (! urRec) urRec = RAssetTable_ds.cursor();
    if (urRec)
    {
        dialog.caption("Новые значения");
        DialogDate = dialog.addField(typeId(TransDate));
        DialogDate.value(today());
        dialogStandardId = dialog.addField(typeId(RAssetStandardId));
        dialogLifeTime = dialog.addField(typeId(RAssetLifeTime));

        dialogDate.widthMode(formwidth::ColumnWidth);
        dialogStandardId.widthMode(formwidth::ColumnWidth);
        dialogLifeTime.widthMode(formwidth::ColumnWidth);

        if (dialog.run())
        {
            dialogDateValue =           DialogDate.value();
            dialogStandardValue =       dialogStandardId.value();
            dialogLifeTimeValue =       dialogLifeTime.value();
            if (! (dialogDateValue && dialogStandardValue && dialogLifeTimeValue))
            {
                checkFailed(strFmt("Заполните все поля"));
                return;
            }
            if (! RAssetStandardTable::Find(dialogStandardValue))
            {
                checkFailed(strFmt("Значение '%1' не найдено в таблице модели учета", dialogStandardValue));
                return;
            }

            While (urRec)
            {
                i++;
                RAssetTable_ds.findRecord(urRec);
                if (RAssetTable_ds)
                {
                    historyDialog.lifetimeDate(dialogDateValue);
                    ttsBegin;
                    urRassetStandards = RassetStandards::find(
                        urRec.(fieldNum(RAssetTable,AccountNum)),dialogStandardValue, true);
                    urRassetStandards.Lifetime = dialogLifeTimeValue;
                    urRassetStandards.update(historyDialog);
                    ttsCommit;
                    RAssetTable_ds.reread();
                    RAssetTable_ds.refresh();
                }

                urRec = RAssetTable_ds.getNext();
            }
            info(strFmt("Операция по смене срока службы по %1 ОС  модели %2 успешно завершена", int2Str(i),dialogStandardValue));

        }
    }
}

Помимо изменения поля LifeTime в таблице RAssetStandards для соответствующего ОС, происходит еще и сохранение записи в таблице истории RAssetLifeHist. Переменная historyDialog класса RAssetHistoryDialog определена в ClassDeclaration формы RAssetTable и предназначена для передачи в метод update таблицы RAssetStandards, в котором в конечном счете и выполняется вызов метода, отвечающего за сохранение в истории записи об изменении срока службы ОС.

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

Нужно было как-то модифицировать исходный диалог, чтобы приспособить его к новым требованиям. Был выбран вариант с ActiveX - OWC Spreradsheet, и после внесения изменений диалог стал выглядеть так:

В связи с тем, что помещение элемента управления ActiveX в диалог не столь прозрачно, как, скажем, помещение текстового поля или поля даты, ниже будет приведен модифицированный код метода ChangeLifeTime, который обслуживает вторую картинку.

Код будет приведен в первом комментарии, так как попытка поместить его в это стартовое сообщение опять упёрлась в ограничение на 10К символов. В свою очередь, в комментариях не хотят размещаться картинки, но вроде я уже все необходимые разместил в этом сообщении...

Функция определения рабочего статуса дня

Gustav — Fri, 28 Aug 2009 11:18:27 GMT

В системах, с которыми мне довелось работать довольно близко, включая Аксапту, БОСС-Кадровик, некоторые бухгалтерские и биллинговые самописки и т.п., как правило, имеется специальная таблица-календарь, из которой черпается информация о рабочих и выходных днях. Одна запись в такой таблице соответствует одному календарному дню.

Обычно в календаре имеются записи от даты начала работы предприятия или от некоторой другой оговоренной даты, например, с момента старта новой внедренной системы - это то, что касается прошлого. Распространение календаря в будущее не ограничено, но фактически содержит список дней на несколько ближайших лет (5-10, сколько надо исходя из потребностей предприятия). По мере продвижения в будущее в список добавляются дни последующих лет, например, системным администратором, сгенерившем последовательность дней очередного требуемого года в Excel и затем вставившему эти данные в таблицу-календарь, попутно проставив признаки выходных и праздничных дней, а также учтя нестандатные переносы, указанные в очередном ежегодном Постановлении Правительства РФ.

Каждый раз сталкиваясь близко с таким календарем, я невольно задумывался: почему таблица? почему не функция? Ведь существует же, например, в том же Excel функция WORKDAY (РАБДЕНЬ), рассчитывающая дату, отстоящую от исходной на заданное количество рабочих дней. Эта функция даже учтёт праздники, если ей их передать параметром в виде массива дат, правда, не совсем точно для российской реальности - на переносе праздников, попадающих на субботу и воскресенье, на ближайший следующий рабочий день, который предусмотрен статьей 112 нашего Трудового кодекса, функция WORKDAY сдается ("Ааа, блин!" - сказали суровые сибирские мужики ;) ) Однако, сама попытка создания подобной универсальной функции, вызывает заслуженное уважение в адрес команды разработчиков Excel.

При обучении в институте меня, признаться, несколько утомляли аналитические способы решения интегралов. Поэтому когда я приобщился к вычислительной технике и постиг азы численных методов, я с удовольствием перестал напрягать себя аналитически и вычислял интегралы на машине при помощи метода Симпсона или даже трапеций. Примерно также, мне кажется, не стали напрягать себя и разработчики систем, использующие таблицу-календарь вместо функции. В общем-то, понятно - с таблицей как-то нагляднее и надежнее. К тому же структуру записи можно расширить какими-нибудь дополнительными полями и, таким образом, как бы "превзойти" возможности функции. Опять же количество записей в календаре аж на целый век по современным меркам совсем невелико - чуть меньше 37 тысяч.

Казалось бы, смирись, используй таблицу-календарь и не мучайся! Тем не менее, смутное желание создать функцию, учитывающую российские нюансы переносов праздников, периодически теребило меня несколько лет, но каждый раз начавшийся было процесс раздумий прерывался чем-то более насущным и не оставлял после себя никаких набросков, которые можно было бы развить дальше при следующем приступе "заболевания".

Очередное напоминание явилось в виде темы Как учесть только рабочие часы?, и я почувствовал, что в этот раз должно что-то оформиться... И оно-таки оформилось! Прекрасно понимая, что родившаяся функция представляет скорее теоретический интерес - кто ж откажется от своих таблиц-календарей, которые за годы обросли связями с самыми различными фрагментами системы?! - я все же надеюсь, что кому-то она может пригодиться и для практического дела.

Лично мне она понравилась своей компактностью - мне почему-то представлялось, что в подобной функции всяких IF-ов должно быть на порядок больше, чем оно оказалось на самом деле. Может быть, конечно, это из-за того, что в Аксапте есть такие достойнейшие средства, как Map и Set, и без оных как раз куча IF-ов бы и получилась?

Во всяком случае я пока не думал о портации функции в другие языки. Может, через несколько лет... :D

В рамках демонстрационного примера функция (dayWorkingStatus) вложена в нижеследующий джоб, результатом работы которого будет вывод в окно infolog всех дат годов 2007,2008, 2009 с указанием дня недели и рабочего статуса дня:

X++:

#macrolib.HolidayExceptions // глобальный макрос (см. ниже)

static void Job_RussianHolidays(Args _args)
{
    date    currDate;
    Map     holidayExceptions = new Map(Types::Date, Types::Integer);

    //------------------------------------------------------------------------
    int dayWorkingStatus(date   _currDate,
                         Map    _exceptions = null,
                         Set    _holidays   = null)
    {
        Set holidaysBefore      = new Set(Types::Date);
        Set holidaysTransfer    = new Set(Types::Date);

        SetEnumerator enumr;
        int holiYear, holiMonth, holiDay;
        date holidayToMove;
        ;

        // самыми первыми проверяем исключения
        // если искомый день среди них, то заканчиваем и возвращаем статус
        if (_exceptions)
        {
            if (_exceptions.exists(_currDate))
                return _exceptions.lookup(_currDate);
        }

        if (!_holidays)
        {
            _holidays = new Set(Types::Container);
            // Russian holidays
            _holidays.add([ 1, 1]); // Новогодние каникулы
            _holidays.add([ 1, 2]); // Новогодние каникулы
            _holidays.add([ 1, 3]); // Новогодние каникулы
            _holidays.add([ 1, 4]); // Новогодние каникулы
            _holidays.add([ 1, 5]); // Новогодние каникулы
            _holidays.add([ 1, 7]); // Рождество Христово
            _holidays.add([ 2,23]); // День защитника Отечества
            _holidays.add([ 3, 8]); // Международный женский день
            _holidays.add([ 5, 1]); // Праздник Весны и Труда
            _holidays.add([ 5, 9]); // День Победы
            _holidays.add([ 6,12]); // День России
            _holidays.add([11, 4]); // День народного единства
        }

        if ( dayOfWk(_currDate)==6 || dayOfWk(_currDate)==7 ||
            _holidays.in([mthOfYr(_currDate), dayOfMth(_currDate)]))
            return 0; // текущий - выходной (сб,вс или празд)

        // если уж дошли сюда, то проверям нет ли праздничного переноса

        // для этого пробегаем по всему множеству "безгодовых" праздников (_holidays)
        // и формируем последовательность всех праздничных дат до текущей даты (holidaysBefore),
        // т.е. генерим реальные праздничные даты за годовой период, предшествующий текущей дате
        enumr = _holidays.getEnumerator();
        while (enumr.moveNext())
        {
            [holiMonth, holiDay] = enumr.current();
            holiYear = ([mthOfYr(_currDate), dayOfMth(_currDate)] > [holiMonth, holiDay]) ?
                            (year(_currDate)) :
                            (year(_currDate)-1);
            holidaysBefore.add(mkDate(holiDay, holiMonth, holiYear));
        }

        // обрабатываем сдвиги выходных дней, вызванных попаданием праздника на субботу или воскрсенье (на 6 или 7)
        enumr = holidaysBefore.getEnumerator();
        while (enumr.moveNext())
        {
            holidayToMove = enumr.current();

            // смещение происходит только в том случае, если выходной попадает на 6 или 7
            while (dayOfWk(holidayToMove)==6 || dayOfWk(holidayToMove)==7)
            {
                if      (dayOfWk(holidayToMove)==6) holidayToMove += 2;
                else if (dayOfWk(holidayToMove)==7) holidayToMove += 1;

                // если перемещаясь попали на другой  праздничный день из НЕСМЕЩЕННЫХ (before)
                // или из УЖЕ СМЕЩЕННЫХ (transfer), то двигаемся дальше
                while ( holidaysBefore  .in(holidayToMove)  ||
                        holidaysTransfer.in(holidayToMove)  )
                    holidayToMove += 1;
            }
            // только если было смещение, добавляем день в множество переносов
            if (! holidaysBefore.in(holidayToMove))
                holidaysTransfer.add(holidayToMove);
        }
        // в результате имеем множество дат с (годами), которые стали выходными из-за предшествующих праздников

        // окончательно определяем рабочийСтатусДня
        if (holidaysTransfer.in(_currDate))
            return 0; // выходной = день, на который перенесли праздник, попавший на 6 или 7
        else
        {
            if (_holidays.in([mthOfYr(_currDate+1), dayOfMth(_currDate+1)]))
                return 2; // рабочий ПРЕДпраздничный
            else
                return 1; // обычный рабочий;
        }
    }
    //------------------------------------------------------------------------
    ;

    #holidayExceptionsInsert(holidayExceptions) // передаем map макросу 

    for (currDate=01\01\2007; currDate<=31\12\2009; currDate++)
    {
        info(strFmt('%1 -- %2 -- %3',
            currDate, dayOfWk(currDate), dayWorkingStatus(currDate, holidayExceptions)));
    }
}

Возвращаемые int-значения ("статусы рабочего дня"):

0 - выходной день,
1 - рабочий день,
2 - предпраздничный рабочий день.

Параметры:

_currDate - дата, для которой определяется статус,
_exceptions - список переносов-исключений, которые не поддаются алгоритму статьи 112 российского Трудового кодекса; если опущен, то работаем без исключений.
_holidays - список общегосударственных праздников (только день и месяц); если опущен, то подразумеваются праздники России (прописаны в коде).

Способ формирования списка переносов-исключений - по желанию разработчика: или читать из специальной таблицы; или использовать макрос, который по мере продвижения вперед по годам следует дополнять новыми строками - на основании информации из очередного Постановления.

(to be continued...)

Я осваиваю Office 2007

Gustav — Thu, 20 Aug 2009 11:15:29 GMT

Наконец, свершилось. На одном из доступных мне компьютеров появился Office 2007. А то уже было стыдно просить друзей по переписке перепослать какой-либо файл Excel в прежнем формате 97-2003, так как я не мог открыть файл формата 2007.

Тем не менее, в качестве нашего корпоративного стандарта ПО Office 2007 еще не утвержден и многие пользователи всё еще продолжают сидеть на Excel 2003 и даже 2000. Поэтому надеюсь в будущем помочь им своими заметками, которые я буду собирать в этом сообщении.

Попутно мне подумалось, что, возможно, именно данная тема может быть идеальной для подобного рода блога: во-первых, напрямую с Аксаптой не связана (а то мягкие упрёки "что не в Форуме" уже появились: http://www.axforum.info/forums/blog.php?bt=47); во-вторых, многим, уже перешедшим на Office 2007, скорее всего, уже не интересная, но зато интересная мне и далее моим пользователям как напоминалка об основных операциях в "новом формате".

Речь в первую очередь пойдёт о существенно изменившемся интерфейсе приложений. А среди приложений я буду в основном "налегать" на Excel. Приглашаю всех желающих поделиться своими подробностями перехода на версию 2007 участвовать в "Комментариях" к данному посту.

Итак, поехали! Для Excel:

* Есть ли возможность включить меню в традиционном стиле предыдущих версий? - Штатным образом - НЕТ! И не ищите! Я тоже очень надеялся, но Microsoft решил действовать радикально - "резать к чёртовой матери, не дожидаясь перитонитов" :( Однако существуют сторонние (небесплатные - 15-30 долларов) примочки, позволяющие это сделать (можно поискать в Гугле по строке "старое меню Excel").

* Как общаться с пользователями предыдущих версий? - Жмём круглую кнопку "Office" в левом верхнем углу, далее в нижней части открывшегося окна кнопку "Параметры Excel" и далее: Сохранение \ Сохранять файлы в следующем формате \ Книга Excel 97-2003 (*.xls). После рестарта Excel видим, что строк на листах "опять" стало 65 тысяч вместо "новых" более 1 миллиона. В заголовке окна при этом горит подстрока "Режим совместимости".

* Где спрятаны команды Создать, Открыть, Сохранить? - Моё знакомство с Excel 2007 уже состоялось несколько раньше, когда меня подозвал начальник и попросил помочь сохранить файл. Тогда я не смог ему помочь! Кто бы мог подумать, что круглая "дура" в левом верхнем углу окна не просто украшение, а кнопка "Кнопка "Office"?? За ней, собственно, и скрываются перечисленные команды, а также некоторые другие :)

* Если вы записываете и редактируете макросы на VBA, то включите вкладку "Разработчик" - Кнопка "Office" \ Параметры Excel \ Основные \ Показывать вкладку "Разработчик" на ленте.

* Одновременное отображение нескольких агрегатных функций в строке состояния - в предыдущих версиях Excel для выделенного диапазона можно было отобразить что-то одно: либо сумму (пользовалась наибольшей популярностью), либо среднее, либо минимум, либо максимум и т.п. Иногда этого не хватало - например, хотелось видеть одновременно и среднее, и максимум. Теперь это возможно - кликаем на строке состояния правой кнопкой и выставляем любую комбинацию галок: Среднее, Количество, Количество чисел, Минимум, Максимум, Сумма. Причем, галки даже можно не ставить - соответствующие величины уже отображаются прямо в этом контекстном меню.

* Где теперь галка Tools \ Options \ View \ Windows in Taskbar ? - Кнопка "Office" \ Параметры Excel \ Дополнительно \ группа Экран \ Показывать все окна на панели задач

* Как разрешить выполнение макросов? - выполнение макросов по умолчанию (сразу после установки) запрещено. Разрешить выполнение макросов можно при помощи уже упоминавшейся вкладки "Разработчик": эта вкладка \ группа пиктограмм "Код" (название группы подписано снизу) \ пиктограмма "Безопасность макросов" \ Параметры макросов \ радиокнопка "Включить все макросы"

* Как найти нужную команду на ленте? - пока вы еще не привыкли к местоположению команд на ленте и не сразу находите необходимую, можно воспользоваться режимом добавления команд в панель быстрого доступа (саму команду не обязательно при этом добавлять на панель). Щелкните правой кнопкой на ленте и выберите "Настройка панели быстрого доступа". В открывшемся окне "Параметры Excel" в поле со списком "Выбрать команды из..." выберите "Все команды". В отсортированном по алфавиту списке команд найдите нужную и наведите на нее мышь - всплывающая подсказка покажет путь к команде, например, "Вкладка "Разработчик" | Код | Безопасность макросов". Теперь вы знаете, как найти команду "Безопасность". Обратите внимание, что в списке имеются команды, которых нет на ленте. Они - явные кандидаты на помещение в панель быстрого доступа.

* Теперь можно сортировать по цвету ячейки - при работе с предыдущими версиями Excel наверняка многим приходилось обрабатывать пользовательские файлы, в которых некоторые отметки были сделаны цветом и далее надо было отобрать эти помеченные записи. Чтобы выполнить сортировку таких ячеек нужно было выделить рядом с ними дополнительный столбец для текстовых отметок и либо просмотреть таблицу вручную (если не очень большая) и пометить строки "единичкой" в этом дополнительном столбце, либо написать несложную функцию рабочего листа, возвращающую код цвета заливки соседней ячейки. Теперь всё проще: вкладка "Главная" \ группа "Редактирование" \ Сортировка и фильтр \ Настраиваемая сортировка.

Контроль возможности создания журнала

Gustav — Tue, 28 Jul 2009 12:41:19 GMT

Ну, что... попробуем создать первую, так сказать, содержательную запись. Итак...

Возникла необходимость не разрешать пользователям создание журналов (в различных модулях), если не выполнено некоторое условие. В нашем приложении Axapta от GMCS этим условием является заполненность поля "Первичная группа пользователя" формы "Параметры" (верхнее меню \ Сервис \ Параметры \ вкладка Разное; поле UserGroupDim в таблице SysUserInfo). Значение этого поля фактически определяет конкретный филиал нашего холдинга, к которому принадлежит пользователь.

Функционал приложения глобально кастомизирован так, что при заполненном поле пользователи видят только данные своего филиала и не видят других (своеобразный аналог механизма RLS). Однако, иногда им необходимо видеть данные всех филиалов одновременно, и они самостоятельно очищают это поле (те, у которых на это есть соответствующее право).

Неприятности начинаются, когда пользователю снова необходимо переключиться с аналитической работы на операционную и ввести какой-нибудь журнал. Если пользователь забыл включить конкретный филиал, то созданный журнал сохранится и разнесется "вне филиала" со всеми вытекающими последствиями - конечно, не супер-пагубными, но всё же вызывающими раздражение. Коррекцией ситуации обычно занимается системный администратор, который по звонку пользователя, допустившего оплошность, средствами СУБД или джобиком Аксапты прописывает недостающие филиальные данные в журнальные таблицы.

И вот было решено избавить администратора от этих неконструктивных действий и контролировать пользователя при создании журнала. Возник вопрос - в каком конкретном месте этот контроль выполнять? Я не смог найти (или плохо искал) единого предка для всех журналов (какой-нибудь JournalTable-папа), чтобы в каком-либо подобающем методе (new, construct, create, insert и т.п.) которого вставить необходимую проверку. Попробовал самое начало метода construct класса JournalTableData - получилось не очень удачно, ну в смысле - совсем не получилось:

X++:

private static JournalTableData construct(
    JournalTableMap _journalTable
    )
{
    // мои эксперименты -->
    ;
    box::info('Привет из констракта');
    // return;
    // мои эксперименты <--

    switch (_journalTable.tableId)
    {
        case tableNum(TutorialJournalTable):    return new tutorialJournalTableData(_journalTable);
        case tableNum(ProjJournalTable):        return new ProjJournalTableData(_journalTable);
        case tableNum(LedgerJournalTable):      return new LedgerJournalTableData(_journalTable);
        case tableNum(WMSJournalTable):         return new WMSJournalTableData(_journalTable);
        case tableNum(InventJournalTable):      return new InventJournalTableData(_journalTable);
        case tableNum(ProdJournalTable):        return prodJournalTableData::newTable(_journalTable);
        case tableNum(RPayJournalTable):        return new RPayJournalTableData(_journalTable);
        case tableNum(RHRMOrderTable):          return new RHRMJournalTableData(_journalTable);

        default :
            return new JournalTableData(_journalTable);
    }
}

Тогда я решил просто навставлять проверочный код в начало метода insert тех таблиц, которые присутствуют в вышеприведенном методе construct, благо что из этого перечня живыми в нашем приложении оказалось всего две: LedgerJournalTable и InventJournalTable.

Сказано - сделано. В начало методов insert двух указанных таблиц был добавлен одинаковый фрагмент:

X++:

    if (KKu::userUnknownFilialToCreateJournal(this))
        return; // да - прерываемся

а сам статический метод определен как:

X++:

static boolean userUnknownFilialToCreateJournal(Common _common)
{
    #define.alarmJournalDescr('ПОЖАЛУЙСТА, УДАЛИТЕ ЭТУ НЕПРАВИЛЬНУЮ ЗАПИСЬ БЕЗ ФИЛИАЛА!')
    ;
    if (SysUserInfo::find(curUserId()).UserGroupDim)
    {
        return false;
    }
    else
    {
        box::stop(strFmt('%1\n\n%2\n%3\n\n%4\n%5',
            'Невозможно создать журнал - не указан филиал текущего пользователя!',
            'Пожалуйста, укажите филиал в поле "Первичная группа пользователя" формы "Параметры",',
            'после чего начните создание журнала заново.',
            'Если Вы работаете в форме-списке журналов, то удалите неправильную запись без филиала',
            'или закройте и снова откройте форму.'));

        switch (_common.TableId)
        {
            case tableNum(LedgerJournalTable):
                _common.(fieldNum(LedgerJournalTable, Name)) = #alarmJournalDescr;
                break;

            case tableNum(InventJournalTable):
                _common.(fieldNum(InventJournalTable, Description)) = #alarmJournalDescr;
                break;
        }
        return true; // Неизвестный филиал пользователя для создания журнала
    }
}

Получилось, конечно, несколько громоздковато, но, с другой стороны, производимый эффект совпадает с ожиданиями заказчика :)

Происходит следующее. В зависимости от конкретной формы, для которой срабатывает insert, пользователю "без филиала" разрешается создать "запись" в гриде формы, и внешне она выглядит как обычная запись, до тех пор пока пользователь не перейдет на другую запись или не попробует перейти в строки журнала при помощи соответствующей кнопки. Тут и вылетает предупреждение, а поле описания журнала заполняется просьбой об удалении записи. Если пользователь закроет форму и потом откроет ее, то "записи" этой уже не будет.

Буду рад, если кто-нибудь из читателей укажет путь к какому-нибудь более правильному методу решения этой задачи. Я почти уверен, что он существует! :)

Явная невозможност

Gustav — Tue, 28 Jul 2009 06:14:19 GMT

Хотел запоститься в блог с заголовком "Невозможность создавать складской журнал", а оно обрезается до "Невозможност" :(

В тоже время словосочетание "Возможность создавать складской журнал" полностью сохраняется как заголовок.

Оставьте комментарии к этому посту

Gustav — Tue, 14 Jul 2009 09:37:08 GMT

Коллеги, функционал блогов находится в стадии обкатки.

Сейчас хочется посмотреть, как будут выглядеть комментарии к произвольному сообщению. Не стесняйтесь, пишите что-нибудь (хоть про погоду! :) )

Спасибо.

Возможности блога на AxForum

Gustav — Tue, 14 Jul 2009 06:36:12 GMT

Итак, в нашем распоряжении новая фича - блоги внутри Форума. Попробуем понять, как пользоваться этим функционалом.

Первое, что понравилось - есть возможность сохранения черновика сообщения. Т.е. можно набрасывать тезисы по темке, никому не показывая и не стесняясь, а потом однажды всё это более-менее оформить в связный текст и предъявить общественности.

Новое сообщение сохраняется как черновик путем нажатия на кнопку "Сохранить как черновик" (справа под окном редактирования текста). Последующий перевод черновика в нормальное сообщение осуществляется изменением статуса записи в блоке "Дополнительные опции" (и кнопка "Сохранить изменения")

Тест 1

Gustav — Fri, 10 Jul 2009 06:50:57 GMT

Тест! А что же это такое?