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

Alexander
08 апр 2010, 10:28
Форум: Программирование
Тема: import|export to dbf из випа
Ответы: 19
Просмотры: 4918

import|export to dbf из випа

Нужно некоторые выбранные записи таблиц экспортить в dbf, можно ли как-то сделать по типу: select * from katmc to dbf test; пытался написать так: SQL select * from katmc to dbf test; выдает ошибку, так: SQL select * from katmc dbf test; компилит, но при выполнении летят непонятные ошибки... полный т...
Alexander
08 апр 2010, 10:18
Форум: Программирование
Тема: alter interface, что делаю не правильно?
Ответы: 10
Просмотры: 2326

компилю саппортом, на вип нет лицензии...
порылся по форуму, инфа, которую нашел, не помогает :-(
Причем, обнаружилась еще одна странность: если добавить ручками(меню подключить) компонент(L_DOGOVOR), то саппорт начинает ругаться, что "не загрузился родительский интерфейс"...
Alexander
06 апр 2010, 16:06
Форум: Программирование
Тема: alter interface, что делаю не правильно?
Ответы: 10
Просмотры: 2326

добавил в консоли управления руками L_dogovor, теперь ругается, что не открылся ресурс
Alexander
06 апр 2010, 13:55
Форум: Программирование
Тема: alter interface, что делаю не правильно?
Ответы: 10
Просмотры: 2326

порылся по форуму, нашел много инфы, сделал текущую систему galnet, появились компоненты галактики, пытаюсь подцепиться к фейсу:

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

#component "L_DOGOVOR"
alter interface DOGOVOR;
//create view;
handleevent
}

end;
end.  
пишет, что в ресурсе нет интерфейса L_DOGOVOR::DOGOVOR :-(
Alexander
06 апр 2010, 12:48
Форум: Программирование
Тема: alter interface, что делаю не правильно?
Ответы: 10
Просмотры: 2326

развел по разным ресурсам-все нормально стало. Теперь возникла другая проблема: как подключить ресурсники при загрузке саппорта? пытаюсь делать, как в 7-ке, нифига не выходит... [system] OpenResources=C:\user1.res в консоле управления(компоненты) нет ресурса, приходится говорить "подключить&quo...
Alexander
05 апр 2010, 16:01
Форум: Программирование
Тема: alter interface, что делаю не правильно?
Ответы: 10
Просмотры: 2326

alter interface, что делаю не правильно?

Переходим на 8-ку, хочу перегрузить события, не получается, написал тестик: Interface test; create view select * from katmc; screen s1; buttons cmbt1; << <.start.> >> end; handleevent cmbt1:{ message(1); } end; end. alter interface test; create view; handleevent cmbt1:{ inherited :: handleEvent (cmb...
Alexander
11 ноя 2009, 16:49
Форум: Программирование
Тема: ручной обход дерева. Требуется помощь
Ответы: 11
Просмотры: 2787

edward_K
да я для примера привел просто катподр. у меня свои таблички :-)
код с маркерами хоть и длиннее, но, думаю, быстрее будет. т.к. нет постоянного скакания по позициям, при выходе из рекурсивной функции...
Alexander
11 ноя 2009, 16:45
Форум: Программирование
Тема: ручной обход дерева. Требуется помощь
Ответы: 11
Просмотры: 2787

а... суть понял.... псиб :-)
Alexander
11 ноя 2009, 16:06
Форум: Программирование
Тема: ручной обход дерева. Требуется помощь
Ответы: 11
Просмотры: 2787

дак я и сделал рекурсивно! а как с помощью маркеров?
Визуальные элементы не навешаны... по визуальным и сам знаю :-)
а можно примерчики? по типу как я тестилку на подразделениях накатал :-)
Alexander
11 ноя 2009, 14:48
Форум: Программирование
Тема: ручной обход дерева. Требуется помощь
Ответы: 11
Просмотры: 2787

вот так, вроде, работает: Table Struct TmpTable( name:string, kod : string ); Interface TestIfc; create view vpodr select * from katpodr, TmpTable, katpodr katpodrcur; ; procedure InsPodr(n:string; k:string); begin vpodr.insert into TmpTable set TmpTable.name = n, TmpTable.kod=k; end; procedure Find...
Alexander
11 ноя 2009, 14:30
Форум: Программирование
Тема: ручной обход дерева. Требуется помощь
Ответы: 11
Просмотры: 2787

ручной обход дерева. Требуется помощь

Нужно реализовать ручной проход по дереву, что-то типа поиска в глубину, или ширину, что-то не пойму как это сделать на основе таблиц... написал тестик: Table Struct TmpTable( name:string, kod : string ); Interface TestIfc; create view vpodr select * from katpodr, TmpTable, katpodr katpodrcur; ; pro...
Alexander
08 сен 2009, 12:33
Форум: Программирование
Тема: Программно изменить порядок полей в browse
Ответы: 6
Просмотры: 1980

решил так: код не оптимизирован, но все же... Может можно как-то проще? const #include cfg_all.inc end; interface Mytest; table struct t1 ( f1 : string, p2 : double, p3 : double ); create view as select 0 (fieldname=newpole),* from t1; browse br1 'Browse'; show at(,6,,20); table t1; fields f1 : pick...
Alexander
08 сен 2009, 11:51
Форум: Программирование
Тема: Программно изменить порядок полей в browse
Ответы: 6
Просмотры: 1980

что-то ничерта не получается... как только не приседал... const #include cfg_all.inc end; interface Mytest; table struct t1 ( f1 : string, p2 : double, p3 : double ); create view as select 0 (fieldname=newpole),* from t1; browse br1 'Browse'; show at(,6,,20); table t1; fields t1.f1 : [10],protect; t...
Alexander
04 сен 2009, 13:14
Форум: Программирование
Тема: Программно изменить порядок полей в browse
Ответы: 6
Просмотры: 1980

edward_K писал(а):cfsSetProp
второй параметр
cfpIndex
тока видимо нужно сначала освобождать поле с таким то индексом, а потом туда пихать новое. SetFormat все таки проще использовать.
что-то не получается...
cfsSetProp('my_field', cfpIndex, 10);
компилятор ругается на cfpIndex...
Alexander
01 сен 2009, 13:37
Форум: Программирование
Тема: Программно изменить порядок полей в browse
Ответы: 6
Просмотры: 1980

Программно изменить порядок полей в browse

Собственно возник такой вопрос: Сделал свою таблицу с несколькими полями и браузер по ней. В зависимости от определенных критериев, некоторые колонки нужно показать, некоторые-скрыть(cmPositionChanged). Видимые отсортировать в определенном порядке. Показать/скрыть - не вопрос, но как отсортировать? ...