Может начнем обсуждение написания модуля на Харборе? УРОК1
Select messages from
 # through # FAQ
[/[Print]\]
Goto page Previous  1, 2, 3, 4  Next  :| |:
-> Программирование в БЭСТ-4
#31:  Author: WildCat, Location: Андрей Забабонин PostPosted: 20 Sep 2005 12:44
    —
nordk wrote:
Откуда вызываете функцию - из какого модуля ?

Пробовал из "Арм.Гав.бух-а", как собственно и сказано в хелпе. Пробовал указывать полный маршрут к файлу hello.hrb (.prg). Результат один и тот же.
#32: Работает Author: GVA, Location: Gaponenko PostPosted: 20 Sep 2005 12:44
    —
nordk wrote:
Попробуйте мой вариант
http://webfile.ru/528621


Ваш вариант работает Ппопробую найти 10 отличи
#33: Блок kod Author: GVA, Location: Gaponenko PostPosted: 20 Sep 2005 12:54
    —
У меня нет записи 0 10 - пишу туда "Реестр работ ИТ"
и простенькую программу work.hrb
Function Main()
SayAndWait("OK")
return NIL
компилируем ее в харбор и пишем в поле функции меню
HFileEval("work.hrb",{})


Все понятно! Надо было просто не копировать а грамотно записывать по синтаксису блок кода как у Вас в примере {|| HFileEval('work.hrb',{}) }
#34:  Author: Лариса Т., Location: Тюрикова Л.А. PostPosted: 20 Sep 2005 13:12
    —
Весь пример получился, работает. Поясните пожалуйста эти строки:
cCurProc:={||"2"} - сопроцедура для QBrowse() - это означает обновить все записи?

aBlockCols:={{{||field->tek_data},0},{{||field->tek_nomer},9},{{||LEFT(field->name,16)},16},{{||STR(field->kol,5)},33},{{||STR(field->cena,12,2)},39},{{||STR(field->summa,12,2)},52}} - массив блоков кода для QBrowse() - массив описания полей вывода. Это ясно. Как Харбор "понимает", что field - это наша база Work?
#35:  Author: Лариса Т., Location: Тюрикова Л.А. PostPosted: 20 Sep 2005 13:40
    —
Можно ли развить пример дальше на предмет ввода данных и применения различных справочников?
#36:  Author: Марина, Location: Кондрина Марина Александровна PostPosted: 20 Sep 2005 13:58
    —
maestro_ wrote:
Хотелось еще рассмотреть возможность сортировки и поиска по этому реестру.


Кроме этого, не забудьте пожалуйста объяснить, что делать, когда не все столбцы уместились на экране (требуется листание вправо)
#37: Re: Блок kod Author: mrs_2005, Location: Михайлов Р.С. PostPosted: 20 Sep 2005 14:32
    —
GVA wrote:
У меня нет записи 0 10 - пишу туда "Реестр работ ИТ"
и простенькую программу work.hrb
Function Main()
SayAndWait("OK")
return NIL
компилируем ее в харбор и пишем в поле функции меню
HFileEval("work.hrb",{})


Все понятно! Надо было просто не копировать а грамотно записывать по синтаксису блок кода как у Вас в примере {|| HFileEval('work.hrb',{}) }


Да, наступил на те же грабли
#38:  Author: nordk, Location: Горбунов Константин PostPosted: 20 Sep 2005 19:23
    —
WildCat wrote:
nordk wrote:
Откуда вызываете функцию - из какого модуля ?

Пробовал из "Арм.Гав.бух-а", как собственно и сказано в хелпе. Пробовал указывать полный маршрут к файлу hello.hrb (.prg). Результат один и тот же.


Есть каталог PRO\PLUGINS\EXTENSNS от точки запуска best.bat
Если хотите стартовать из АРМа - то надо положить в корень этого каталога если из другого модуля - в папку соответствующую выбранному мод
#39: Re: Блок kod Author: nordk, Location: Горбунов Константин PostPosted: 20 Sep 2005 19:25
    —
GVA wrote:

Все понятно! Надо было просто не копировать а грамотно записывать по синтаксису блок кода как у Вас в примере {|| HFileEval('work.hrb',{}) }


Ну что Вам сказать ?.....
Добро пожаловать в раздел программирования !!!
А значит синтаксические ошибки всякие и другого рода недоглядки возможны - теперь Вы начинаете понимать что значит плохая отладка

Уж извиняйте - не исключено что до каких-то истин вместе будем добираться
#40:  Author: nordk, Location: Горбунов Константин PostPosted: 20 Sep 2005 19:30
    —
Лариса Т. wrote:
Весь пример получился, работает. Поясните пожалуйста эти строки:
cCurProc:={||"2"} - сопроцедура для QBrowse() - это означает обновить все записи?

Совершенно верно - циферки необходимые и доступные смотрите в описании QBROWSE

Quote:
aBlockCols:={{{||field->tek_data},0},{{||field->tek_nomer},9},{{||LEFT(field->name,16)},16},{{||STR(field->kol,5)},33},{{||STR(field->cena,12,2)},39},{{||STR(field->summa,12,2)},52}} - массив блоков кода для QBrowse() - массив описания полей вывода. Это ясно. Как Харбор "понимает", что field - это наша база Work?

field-> это применительно к текущей БД а поскольку мы пишем WORK->( InitList() ) то значит к WORK
#41:  Author: nordk, Location: Горбунов Константин PostPosted: 20 Sep 2005 19:32
    —
Лариса Т. wrote:
Можно ли развить пример дальше на предмет ввода данных и применения различных справочников?

И можно и нужно - тока это в следующей теме УРОК2 - чтобы эти темки были как уроки - потом из них возьмем инфу и сделаем общее описание для других и в поставк
#42:  Author: nordk, Location: Горбунов Константин PostPosted: 20 Sep 2005 19:36
    —
Марина wrote:

Кроме этого, не забудьте пожалуйста объяснить, что делать, когда не все столбцы уместились на экране (требуется листание вправо)


Извините Марина, но как в известном анекдоте
"бананьев нема..."
В описании Initlist четко написано что скролинг вправо не предусмотрен а стало быть у вас тока 80 символов и возможность открывать другие экраны, а также искользовать область на экране над или под столбцами. У Вас разве есть где-то в БЭСТе скролинг вправо - а как нетрудно догадаться он весь на инитлисте и построен, поэтому когда в свое время я Вас консультировал по поводу Торгового Зала - я Вам говорил что любые экраны под Ваши желания...
#43:  Author: WildCat, Location: Андрей Забабонин PostPosted: 21 Sep 2005 10:39
    —
nordk wrote:
WildCat wrote:
nordk wrote:
Откуда вызываете функцию - из какого модуля ?

Пробовал из "Арм.Гав.бух-а", как собственно и сказано в хелпе. Пробовал указывать полный маршрут к файлу hello.hrb (.prg). Результат один и тот же.


Есть каталог PRO\PLUGINS\EXTENSNS от точки запуска best.bat
Если хотите стартовать из АРМа - то надо положить в корень этого каталога если из другого модуля - в папку соответствующую выбранному модулю

Прошу прощения! Сморозил глупость. Надо было не FileEval("hello.prg",{}), а просто имя файл
#44:  Author: Марина, Location: Кондрина Марина Александровна PostPosted: 21 Sep 2005 14:02
    —
nordk wrote:
У Вас разве есть где-то в БЭСТе скролинг вправо

Просто я думала, мы изучаем программирование на Harbour а не в БЭСТ
Наверное клипперовские функции просмотра таблиц будут работать в любом случае, в т ч листание вправо
Но я -то надеялась что нам еще порекомендуют какие-то удобные функции или объекты харбора для просмотра и редактирования таблиц, присоветуют, как к ним лучше привязать функциональные клавиш
#45:  Author: nordk, Location: Горбунов Константин PostPosted: 21 Sep 2005 15:14
    —
Да мы предлагаем инструмент под названием InitList
В нем все есть - что касается скролинга вправо - Вы можете заняться изучением клиппера и непосредственно класса TBROWSE - там Вы все сможете сделать в харборе.
Если же Вы хотите пользоваться программированием в БЭСТе и использовать более быстрые инструменты для решения, то ни в каком описании Вы этого не найдете, кроме нашего хелпа, вот я в данный момент помогаю это осваивать.
Просто не вижу большого смысла в скролинге - разумнее максимум на экране размещать и делать вспомогательные.
-> Программирование в БЭСТ-4


output generated using printer-friendly topic mod. All times are GMT + 4 Hours

Goto page Previous  1, 2, 3, 4  Next  :| |:
Page 3 of 4

Powered by phpBB © 2001, 2005 phpBB Group