Найдено 473 результата

KATZ
13 мар 2013, 14:55
Форум: Программирование
Тема: Юридический адрес
Ответы: 4
Просмотры: 1181

Re: Юридический адрес

Как-то так:

Код: Выделить всё

KatOrg.nRec == PodrInfo.cPodr and Comp(PodrInfo.InsNomer) == AddressN.nRec
KATZ
21 фев 2013, 10:48
Форум: Администрирование
Тема: Установка патчей
Ответы: 190
Просмотры: 64697

Re: Установка патчей

Программисты свои поделки напрямую на фтп не выкладывают. Патчи после сборки еще тестироваться должны (так, по крайней мере, по регламенту полагается). Обычно дата RES-файла на 3-7 дней раньше, чем дата ACD-файла.
KATZ
21 фев 2013, 10:12
Форум: Администрирование
Тема: Установка патчей
Ответы: 190
Просмотры: 64697

Re: Установка патчей

RAJAH
Берите от 14.02.
99%, что патчи собраны не позднее 12.02 и с вашей лицензией нормально уживутся.
KATZ
08 фев 2013, 12:49
Форум: Сопровождение
Тема: Ничего не понимаю....
Ответы: 4
Просмотры: 1723

Re: Ничего не понимаю....

На текущей 8.1 всё нормально. Попробуйте Trim-ом строку обрезать, может, пробелы лишние есть.
KATZ
28 дек 2012, 10:05
Форум: Программирование
Тема: Фильтр в КСУ для всех
Ответы: 10
Просмотры: 1402

Re: Фильтр в КСУ для всех

'KartStor_wArchMC' - это не название окна, это имя переменной в DSK-файле, в которую оригинальный интерфейс сохраняет выбранный пользователем способ фильтрации (и читает потом оттуда же, естественно). Перед тем, как значение будет прочитано и применено, мы его меняем на такое, какое нам нужно. Имя н...
KATZ
28 дек 2012, 09:27
Форум: Программирование
Тема: Фильтр в КСУ для всех
Ответы: 10
Просмотры: 1402

Re: Фильтр в КСУ для всех

Можно еще так попробовать:

Код: Выделить всё

#component "L_SKLAD"

alter interface KartStorage;
HandleEvent
cmInit:
{
  SaveMyDsk(Word(0), 'KartStor_wArchMC');
  Inherited::HandleEvent(cmInit);
}
end;
end.
KATZ
12 дек 2012, 21:03
Форум: Программирование
Тема: Не работает Pick
Ответы: 14
Просмотры: 4097

Re: Не работает Pick

А что конкретно лишнее поудаляли? И работало ли с этим лишним? 1. Инклудится tranfunc.vpp, самого файла нет. Удалил обращения к отсутствующим функциям. 2. В таблице MAGOPER нет некоторых полей. То ли их в 8.1 не стало, то ли у вас модифицированный словарь. 3. Убрал всё, что делается после нажатия c...
KATZ
10 дек 2012, 15:45
Форум: Программирование
Тема: Не работает Pick
Ответы: 14
Просмотры: 4097

Re: Не работает Pick

Посмотрел ваш код, даже скомпилировал на 8.1, поудаляв лишнее. Для случая Cnt>1 всё нормально отрабатывает, при Cnt==1 проблема, т. к. в этом случае берется NAME из KATPODR или KATMOL, но позиции в этих таблицах никак не связаны со сделанным выбором. Ситуацию Cnt==0 при RunInterface()==cmDefault не ...
KATZ
10 дек 2012, 12:45
Форум: Программирование
Тема: Не работает Pick
Ответы: 14
Просмотры: 4097

Re: Не работает Pick

Чудес не бывает. Для визуализации оператора set должно хватать. Выложите полный код, с ним яснее станет.

З. Ы. Что-то я в документации не встретил функцию Inc, она точно есть в "Галактике"? Если вместо нее написать Cnt:=Cnt+1, то что-нибудь меняется?
KATZ
10 дек 2012, 09:29
Форум: Программирование
Тема: Не работает Pick
Ответы: 14
Просмотры: 4097

Re: Не работает Pick

1. При выборе подразделения переменная для счетчика названа Count. Есть функции с такими же именами. Возможно, причина в совпадении имен. 2. При выборе МОЛ используется RowCount. Она, как пишет документация, "возвращает количество обработанных записей при групповых операциях модификации "....
KATZ
30 ноя 2012, 13:42
Форум: Программирование
Тема: Надо добраться до отчета STEKS СРОЧНО!
Ответы: 1
Просмотры: 752

Re: Надо добраться до отчета STEKS СРОЧНО!

Нашел исходник этого отчета в L_Ostatki.rar. Действительно, нет описаний полей, впервые такое увидел. Полез в документацию, нашел в разделе Документация на Атлантис\Описание языка VIP\Отчеты\Описание полей отчета\Синтаксис описания полей отчета : Конструкция <описание полей> в управляемой форме-прот...
KATZ
20 ноя 2012, 10:26
Форум: Программирование
Тема: МАНУАЛ НА VIP ЯЗЫК ПРОГРАММИРОВАНИЯ!!!
Ответы: 12
Просмотры: 7733

Re: МАНУАЛ НА VIP ЯЗЫК ПРОГРАММИРОВАНИЯ!!!

agrail Разбираться в 1000+ строк кода вряд ли кто-то станет, тем более без ясной постановки задачи и знания особенностей ведения учета в вашей фирме. Так что напрасно вы выложили ваши исходники, да еще и с протоколом, в котором реальные данные. Как я понимаю, вы - новичок, а всё это богатство вам д...
KATZ
19 ноя 2012, 15:09
Форум: Программирование
Тема: докомпиляция (накл. снабжение). кнопка.
Ответы: 2
Просмотры: 1024

Re: докомпиляция (накл. снабжение). кнопка.

Вот так вроде работает: #component 'L_SOPRDOC' #include cfg_all.inc const cmMyFuncStr=30115; end; alter interface SoprDocB; var iObj: longint; window EditSopr HandleEvent cmMyFuncStr: Message('ionasdjf nlkasdf'); end; end; HandleEvent cmInit: { inherited::HandleEvent(cmInit); cfsSetCurrentContainer(...
KATZ
01 ноя 2012, 15:05
Форум: Программирование
Тема: Банковские дни
Ответы: 3
Просмотры: 1149

Re: Банковские дни

CalcDaysBetweenDates все праздники посчитает рабочими днями. Возможно, подойдет BalBwDates для режима 11, описание есть в хелпе.
KATZ
01 ноя 2012, 14:22
Форум: Программирование
Тема: Параметры dsk
Ответы: 5
Просмотры: 1300

Re: Параметры dsk

В старых исходниках нашел файл от 07.2011. DSK в нем не используется.