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

m0p3e
16 окт 2017, 18:07
Форум: Программирование
Тема: функция добавления строки в спецификацию
Ответы: 6
Просмотры: 1131

Re: функция добавления строки в спецификацию

Если в буфере уже существующая запись, то nrec необходимо принудительно занулить. Тогда он при вставке будет сгенерирован.
m0p3e
16 окт 2017, 13:20
Форум: Программирование
Тема: Табель учета рабочего времени
Ответы: 16
Просмотры: 3712

Re: Табель учета рабочего времени

Я бы сделал следующим образом. В tmpdata добавил поле DayBeg - byte - дата начала интервала. Привязываем таблицу через ФИО + Табельный номер + функция, определяющая начало интервала по tmp_tabel_s2.day . В цикле с 1..31 первое поле с осмысленным отклонением (не X, не '-', или что-там). Далее просто ...
m0p3e
04 окт 2017, 13:54
Форум: Программирование
Тема: create view в Глобальной функции
Ответы: 24
Просмотры: 4295

Re: create view в Глобальной функции

Если известно значение поля cTypeIzd (видимо ссылка на тип изделия?), то добавление его в выборку позволит избавиться от второго noIndex.
У меня большое подозрение, что cTypeIzd = cgKau_KatMc = 4.

И word(1411) все-таки замените на coKatMc. Глаз режет. :)
m0p3e
04 окт 2017, 13:11
Форум: Программирование
Тема: create view в Глобальной функции
Ответы: 24
Просмотры: 4295

Re: create view в Глобальной функции

Если обращение все равно по nrec, то зачем нужно attrnam тащить в выборку? И зачем сам nrec в кавычках? лишнее преобразование. Create view from spstep, katmc, attrnam, attrval,hdr_ps where (( NrecSpStep == spstep.nrec and spstep.cmcusl == katmc.nrec and 281474976710823 == attrval.cattrnam and coKatM...
m0p3e
06 сен 2017, 19:27
Форум: Программирование
Тема: Как сделать не выбираемое поле
Ответы: 5
Просмотры: 2378

Re: Как сделать не выбираемое поле

Для чекбоксов есть другая процедура: Процедура ClusterDisabledField Назначение Делает невыбираемыми отдельные элементы в кластере cluster по маске. Описание procedure ClusterDisabledField (cluster : longInt; mask : longInt); Параметры cluster - номер поля в логической таблице. mask - маска, биты кот...
m0p3e
30 май 2017, 18:47
Форум: Программирование
Тема: Каждая накладная в отдельный файл
Ответы: 7
Просмотры: 1582

Re: Каждая накладная в отдельный файл

Резюмируя предыдущих высказавшихся...фактически, нужно написать свою печать накладных как вам нужно. Не обязательно. Можно сформировать поток на этом же прототипе, но по каждой накладной с именованием выходного файла. SetFileName -это метод формы для интерфейсов. Т.е. парню надо лезть в vip-програм...
m0p3e
30 май 2017, 16:11
Форум: Программирование
Тема: Каждая накладная в отдельный файл
Ответы: 7
Просмотры: 1582

Re: Каждая накладная в отдельный файл

Den писал(а):Резюмируя предыдущих высказавшихся...фактически, нужно написать свою печать накладных как вам нужно.
Не обязательно. Можно сформировать поток на этом же прототипе, но по каждой накладной с именованием выходного файла.
m0p3e
30 май 2017, 13:00
Форум: Программирование
Тема: Каждая накладная в отдельный файл
Ответы: 7
Просмотры: 1582

Re: Каждая накладная в отдельный файл

Если rtf, то варианты есть, но трудоемкие. Исходим из того, что имя файла можно задать в коде.
FormName.SetFileName('Имя.rtf');
Повлиять на стандартные поток не получится, а вот организовать свой можно.
m0p3e
03 май 2017, 15:48
Форум: Программирование
Тема: cmInsert
Ответы: 2
Просмотры: 802

Re: cmInsert

dummy.inc
cmInsert : Word = 344;
m0p3e
24 мар 2017, 11:59
Форум: Программирование
Тема: Реестр Windows
Ответы: 6
Просмотры: 1707

Re: Реестр Windows

GetRegistryValue(longint,string,string): string; Стоит попробовать: function GETREGISTRYVALUE(RootKey : longint; KeyName, ValueName: shortstring): shortstring; external 'DDELib.dll'; Первый параметр: case RootKey of 0: Registry.RootKey := HKEY_CLASSES_ROOT; 1: Registry.RootKey := HKEY_CURRENT_USER;...
m0p3e
24 мар 2017, 11:20
Форум: Программирование
Тема: Реестр Windows
Ответы: 6
Просмотры: 1707

Re: Реестр Windows

Изучал вопрос в рамках задачи по масштабированию создаваемых объектов. 1. Встроенные (RegistryGetBoolean и т.д.) читают/пишут только свою ветку - 'SoftWare\Galaktika Corp'. 2. Через OleCall, но нужно подождать пока решат проблему с обращениям к наследникам (ПИР зарегистрирован). Через vbs читает (Re...
m0p3e
02 мар 2017, 17:30
Форум: Опыт
Тема: Кое-что про динамическое создание объектов (ver2)
Ответы: 0
Просмотры: 2903

Кое-что про динамическое создание объектов (ver2)

Первоначальный вариант не прижился по причине "пожирания" буфера команд. Быстро исправил с хранением коэффициентов в реестр. Хочется сделать красивее, но времени свободного не хватает. Итак ver2. В продолжение темы http://www.tyumbit.ru/gal_forum/viewtopic.php?f=2&t=11538&start=15 ...
m0p3e
02 мар 2017, 17:11
Форум: Администрирование
Тема: Новый месяц - следующий Атлантис
Ответы: 185
Просмотры: 69637

Re: Re:

Screw писал(а):
m0p3e писал(а): Хорошо бы уточнить номер ПИР, а то я навскидку не нашёл в списке проблем, включённых в сборку 5.5.28.0, ничего похожего. На всякий случай не помешает тестовый пример.
Ее в 5.4.28 решили. :)
m0p3e
23 янв 2017, 11:10
Форум: Программирование
Тема: Работа с LDAP
Ответы: 2
Просмотры: 909

Re: Работа с LDAP

Если БД на MSSQL, то самое простое функцию нарисовать для обращения через LDAP.