Главная
Новый форум
 FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Может начнем обсуждение написания модуля на Харборе? УРОК1
Goto page Previous  1, 2, 3, 4  Next
 
Post new topic   Reply to topic   printer-friendly view     Forum Index -> Программирование в БЭСТ-4
View previous topic :: View next topic  
Author Message
WildCat



Joined: 13 Sep 2005
Posts: 18
Location: Андрей Забабонин
Occupation: ОАО "1000 мелочей"
Interests: Калининград
PostPosted: 20 Sep 2005 12:44    Post subject: Reply with quote
nordk wrote:
Откуда вызываете функцию - из какого модуля ?

Пробовал из "Арм.Гав.бух-а", как собственно и сказано в хелпе. Пробовал указывать полный маршрут к файлу hello.hrb (.prg). Результат один и тот же.
Back to top
View user's profile Send private message
GVA



Joined: 16 Oct 2003
Posts: 99
Location: Gaponenko
Occupation: HDM
Interests: Москва
PostPosted: 20 Sep 2005 12:44    Post subject: Работает Reply with quote
nordk wrote:
Попробуйте мой вариант
http://webfile.ru/528621


Ваш вариант работает Ппопробую найти 10 отличи
Back to top
View user's profile Send private message
GVA



Joined: 16 Oct 2003
Posts: 99
Location: Gaponenko
Occupation: HDM
Interests: Москва
PostPosted: 20 Sep 2005 12:54    Post subject: Блок kod Reply with quote
У меня нет записи 0 10 - пишу туда "Реестр работ ИТ"
и простенькую программу work.hrb
Function Main()
SayAndWait("OK")
return NIL
компилируем ее в харбор и пишем в поле функции меню
HFileEval("work.hrb",{})


Все понятно! Надо было просто не копировать а грамотно записывать по синтаксису блок кода как у Вас в примере {|| HFileEval('work.hrb',{}) }
Back to top
View user's profile Send private message
Лариса Т.



Joined: 05 Jul 2004
Posts: 247
Location: Тюрикова Л.А.
Occupation: программист
Interests: Ижевск
PostPosted: 20 Sep 2005 13:12    Post subject: Reply with quote
Весь пример получился, работает. Поясните пожалуйста эти строки:
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?
Back to top
View user's profile Send private message
Лариса Т.



Joined: 05 Jul 2004
Posts: 247
Location: Тюрикова Л.А.
Occupation: программист
Interests: Ижевск
PostPosted: 20 Sep 2005 13:40    Post subject: Reply with quote
Можно ли развить пример дальше на предмет ввода данных и применения различных справочников?
Back to top
View user's profile Send private message
Марина



Joined: 27 Aug 2002
Posts: 501
Location: Кондрина Марина Александровна
Occupation: ОАО БКО программист
Interests: Боровичи Новгородской обл
PostPosted: 20 Sep 2005 13:58    Post subject: Reply with quote
maestro_ wrote:
Хотелось еще рассмотреть возможность сортировки и поиска по этому реестру.


Кроме этого, не забудьте пожалуйста объяснить, что делать, когда не все столбцы уместились на экране (требуется листание вправо)
Back to top
View user's profile Send private message
mrs_2005



Joined: 22 Jun 2005
Posts: 105
Location: Михайлов Р.С.
Occupation: ООО "Предприятие "Виктория-Юг"
Interests: г. Краснодар
PostPosted: 20 Sep 2005 14:32    Post subject: Re: Блок kod Reply with quote
GVA wrote:
У меня нет записи 0 10 - пишу туда "Реестр работ ИТ"
и простенькую программу work.hrb
Function Main()
SayAndWait("OK")
return NIL
компилируем ее в харбор и пишем в поле функции меню
HFileEval("work.hrb",{})


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


Да, наступил на те же грабли
Back to top
View user's profile Send private message Send e-mail Visit poster's website
nordk



Joined: 27 Jun 2005
Posts: 1000
Location: Горбунов Константин
Occupation: БЭСТ-Партнер
Interests: СПб
PostPosted: 20 Sep 2005 19:23    Post subject: Reply with quote
WildCat wrote:
nordk wrote:
Откуда вызываете функцию - из какого модуля ?

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


Есть каталог PRO\PLUGINS\EXTENSNS от точки запуска best.bat
Если хотите стартовать из АРМа - то надо положить в корень этого каталога если из другого модуля - в папку соответствующую выбранному мод
Back to top
View user's profile Send private message Send e-mail
nordk



Joined: 27 Jun 2005
Posts: 1000
Location: Горбунов Константин
Occupation: БЭСТ-Партнер
Interests: СПб
PostPosted: 20 Sep 2005 19:25    Post subject: Re: Блок kod Reply with quote
GVA wrote:

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


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

Уж извиняйте - не исключено что до каких-то истин вместе будем добираться
Back to top
View user's profile Send private message Send e-mail
nordk



Joined: 27 Jun 2005
Posts: 1000
Location: Горбунов Константин
Occupation: БЭСТ-Партнер
Interests: СПб
PostPosted: 20 Sep 2005 19:30    Post subject: Reply with quote
Лариса Т. 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
Back to top
View user's profile Send private message Send e-mail
nordk



Joined: 27 Jun 2005
Posts: 1000
Location: Горбунов Константин
Occupation: БЭСТ-Партнер
Interests: СПб
PostPosted: 20 Sep 2005 19:32    Post subject: Reply with quote
Лариса Т. wrote:
Можно ли развить пример дальше на предмет ввода данных и применения различных справочников?

И можно и нужно - тока это в следующей теме УРОК2 - чтобы эти темки были как уроки - потом из них возьмем инфу и сделаем общее описание для других и в поставк
Back to top
View user's profile Send private message Send e-mail
nordk



Joined: 27 Jun 2005
Posts: 1000
Location: Горбунов Константин
Occupation: БЭСТ-Партнер
Interests: СПб
PostPosted: 20 Sep 2005 19:36    Post subject: Reply with quote
Марина wrote:

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


Извините Марина, но как в известном анекдоте
"бананьев нема..."
В описании Initlist четко написано что скролинг вправо не предусмотрен а стало быть у вас тока 80 символов и возможность открывать другие экраны, а также искользовать область на экране над или под столбцами. У Вас разве есть где-то в БЭСТе скролинг вправо - а как нетрудно догадаться он весь на инитлисте и построен, поэтому когда в свое время я Вас консультировал по поводу Торгового Зала - я Вам говорил что любые экраны под Ваши желания...
Back to top
View user's profile Send private message Send e-mail
WildCat



Joined: 13 Sep 2005
Posts: 18
Location: Андрей Забабонин
Occupation: ОАО "1000 мелочей"
Interests: Калининград
PostPosted: 21 Sep 2005 10:39    Post subject: Reply with quote
nordk wrote:
WildCat wrote:
nordk wrote:
Откуда вызываете функцию - из какого модуля ?

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


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

Прошу прощения! Сморозил глупость. Надо было не FileEval("hello.prg",{}), а просто имя файл
Back to top
View user's profile Send private message
Марина



Joined: 27 Aug 2002
Posts: 501
Location: Кондрина Марина Александровна
Occupation: ОАО БКО программист
Interests: Боровичи Новгородской обл
PostPosted: 21 Sep 2005 14:02    Post subject: Reply with quote
nordk wrote:
У Вас разве есть где-то в БЭСТе скролинг вправо

Просто я думала, мы изучаем программирование на Harbour а не в БЭСТ
Наверное клипперовские функции просмотра таблиц будут работать в любом случае, в т ч листание вправо
Но я -то надеялась что нам еще порекомендуют какие-то удобные функции или объекты харбора для просмотра и редактирования таблиц, присоветуют, как к ним лучше привязать функциональные клавиш
Back to top
View user's profile Send private message
nordk



Joined: 27 Jun 2005
Posts: 1000
Location: Горбунов Константин
Occupation: БЭСТ-Партнер
Interests: СПб
PostPosted: 21 Sep 2005 15:14    Post subject: Reply with quote
Да мы предлагаем инструмент под названием InitList
В нем все есть - что касается скролинга вправо - Вы можете заняться изучением клиппера и непосредственно класса TBROWSE - там Вы все сможете сделать в харборе.
Если же Вы хотите пользоваться программированием в БЭСТе и использовать более быстрые инструменты для решения, то ни в каком описании Вы этого не найдете, кроме нашего хелпа, вот я в данный момент помогаю это осваивать.
Просто не вижу большого смысла в скролинге - разумнее максимум на экране размещать и делать вспомогательные.
Back to top
View user's profile Send private message Send e-mail
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view     Forum Index -> Программирование в БЭСТ-4 All times are GMT + 4 Hours
Goto page Previous  1, 2, 3, 4  Next
Page 3 of 4

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Powered by phpBB © phpBB Group

Rambler
Rambler's Top100 Рейтинг@Mail.ru