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

Espada
05 фев 2020, 14:54
Форум: Программирование
Тема: использование глобальной ф-и в коде
Ответы: 2
Просмотры: 1591

использование глобальной ф-и в коде

Доброго времени суток, подскажите пожалуйста, могу ли я вызвать ранее написанную Глобальную функцию в frm отчёте? исходник функции компилирую вместе с отчётом. может у кого-нибудь пример вызова есть? если такое возможно, конечно.
Espada
31 янв 2020, 12:02
Форум: Программирование
Тема: Выбор одного из вариантов в интерфейсе
Ответы: 3
Просмотры: 2122

Re: Выбор одного из вариантов в интерфейсе

В простейшем варианте ваша задача решается так. В переменной wSurname возвращается значение из выбранного списка. interface TestRadioButton; var wSurname: word; screen scrMain; fields wSurname: noprotect; buttons cmOk ,default; cmCancel ,,,'Отмена',, sci1Esc; << (.) Фамилия 1` (.) Фамилия 2` (.) Фа...
Espada
30 янв 2020, 18:44
Форум: Программирование
Тема: Выбор одного из вариантов в интерфейсе
Ответы: 3
Просмотры: 2122

Выбор одного из вариантов в интерфейсе

Доброго дня, может подскажете такую инфу: появилась необходимость создать интерфейс с выбором одного из предложенных вариантов, интерфейс я сделал: buttons cmOk ,default; cmCancel ,,,'Отмена', hcOplTrudhlp, sci1Esc; << (.) Фамилия 1` (.) Фамилия 2` (.) Фамилия 3` <. OK .> <.Отмена.> >> end; // scree...
Espada
20 янв 2020, 14:13
Форум: Программирование
Тема: Ошибка при компиляции исходника
Ответы: 12
Просмотры: 4385

Re: Ошибка при компиляции исходника

edward_K писал(а): Если вы не хотите все inc подключать, тогда придется подбирать нужный состав.
я не против подключить) если подскажете где и как)
Espada
20 янв 2020, 14:12
Форум: Программирование
Тема: Ошибка при компиляции исходника
Ответы: 12
Просмотры: 4385

Re: Ошибка при компиляции исходника

У вас должен быть подключен GloDefs.inc там есть #ifdef Atl51 #define Licensed_Free Licensed(Free) #else #define Licensed_Free #end Обычно если в проект включать #include galnet.inc end; таких проблем не возникает. Если вы не хотите все inc подключать, тогда придется подбирать нужный состав. Подклю...
Espada
20 янв 2020, 10:41
Форум: Программирование
Тема: Ошибка при компиляции исходника
Ответы: 12
Просмотры: 4385

Re: Ошибка при компиляции исходника

Доброго дня, столкнулся с проблемкой, при компиляции старых ресурсников. при компиляции ругается мол "Тип переменной iGetKau не совпадает с типом ранее зарегистрированной переменной", и ругается не на ресурсник,а на "SRC\COMPSRC\F\F_GETAN\VIP\GETKAU.VAR". мОЖЕТ КТО МОЖЕТ ПОДСКАЗ...
Espada
24 дек 2019, 13:31
Форум: Программирование
Тема: настройка отображения столбца по условию
Ответы: 2
Просмотры: 1390

настройка отображения столбца по условию

Доброго дня. подскажите пожалуйста можно или реализовать такую штуку( кодом, или в конфигураторе окна): нужно поставить условие, что бы столбец отображался в зависимости от значения поля. например если на форме выбора мц из накладно если katsopr.vidsopr = 201, то в spsopr отображается столбец, а есл...
Espada
29 окт 2019, 15:04
Форум: Программирование
Тема: Создание нового интерфейса
Ответы: 22
Просмотры: 3790

Re: Создание нового интерфейса

Здравствуйте. Вы ввели лишние переменные. _Vnrec и _Vtara не имеют смысла. И присвоение им значений в cmOk тоже лишнее. В Parameters Вы указываете имена переменных, которые будут возвращаться после нажатия ОК. И эти переменные действительно определяются при вводе пользователем. Оператор set MCNrec ...
Espada
29 окт 2019, 12:27
Форум: Программирование
Тема: Создание нового интерфейса
Ответы: 22
Просмотры: 3790

Re: Создание нового интерфейса

Спасибо за помощь, вроде разобрался, что и как, но буду дальше развивать эту тему) Так у меня получилось: Код интерфейса: interface DialogTest 'Окно ввода данных'; show at (0,3,45,8); create view var _Vnrec:Comp; _Vtara:Double; MCNrec : comp; MCName : string; PackPrice : double; as select KatMC.Name...
Espada
28 окт 2019, 18:23
Форум: Программирование
Тема: Создание нового интерфейса
Ответы: 22
Просмотры: 3790

Re: Создание нового интерфейса

Buddy писал(а):В диалоге нельзя использовать Pickbutton (если не ошибаюсь, у диалогов нет обработки событий).
Блин, это прискорбно. Спасибо. буду ковыряться в интерфейсах) :)
Espada
28 окт 2019, 18:08
Форум: Программирование
Тема: Создание нового интерфейса
Ответы: 22
Просмотры: 3790

Re: Создание нового интерфейса

Это уже попытка использовать магию вне Хогвартса. Я конечно не могу утверждать со 100% достоверностью, но в диалогах нельзя использовать вьюхи. А зачем вам это надо? Диалоги нужны только для получения данных от пользователя. Всю логику дальнейшую нужно обрабатывать в самом интерфейсе или отчете, из...
Espada
28 окт 2019, 18:06
Форум: Программирование
Тема: Создание нового интерфейса
Ответы: 22
Просмотры: 3790

Re: Создание нового интерфейса

Потому что у вас перемешался код диалога и самого отчета. Вы блок с диалогом лучше вообще в отдельный файл выделите. В вашем случае - как-то так: я просто хочу сделать, что бы в этом окне было ещё поле выбора МЦ из каталога. смотрел примеры пробовал делать по образцу по образцу: pricetara dialog cr...
Espada
28 окт 2019, 17:53
Форум: Программирование
Тема: Создание нового интерфейса
Ответы: 22
Просмотры: 3790

Re: Создание нового интерфейса

Должно работать. У меня работает. ещё один вопрос появился, при добавлении Create view ругается на ошибку: Ошибка: Ожидался идентификатор или ключевое слово pricetara dialog create view var NrecMC:Comp from katmc where (( NrecMC == katmc.nrec )); fields Price: double; buttons cmOk,default,,'OK'; <<...
Espada
28 окт 2019, 10:46
Форум: Программирование
Тема: Создание нового интерфейса
Ответы: 22
Просмотры: 3790

Re: Создание нового интерфейса

spark писал(а): Должно работать. У меня работает.
Спасибо большое, всё заработало, не создал отдельный файлик с интерфейсом) сейчас, вроде схему понял, буду разбираться) спасибо ещё раз) :grin:
Espada
25 окт 2019, 17:56
Форум: Программирование
Тема: Создание нового интерфейса
Ответы: 22
Просмотры: 3790

Re: Создание нового интерфейса

Она везде работает. Что именно не получается? Пришлите текст ошибки или текст всего вашего отчета. .function STXOGETEXTATTRIBUT(wtbl:word; attr_name:string; n_rec:comp):string; begin ext_attr.wtbl:=wtbl; ext_attr.name_attr:=attr_name; ext_attr.n_rec:=n_rec; if (ext_attr.getfirst attrnam = tsOK and ...