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

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



Joined: 27 Jun 2005
Posts: 1000
Location: Горбунов Константин
Occupation: БЭСТ-Партнер
Interests: СПб

PostPosted: 03 Oct 2005 11:16    Post subject: Reply with quote

Приведенный Вами программный код абсолютно корректен
Дело в том что мы применяем с Вами переменную - она проверяет уникальность записи (по параметру 2) а индексного файла по кторому следует проверять work.cdx нет - вот она и ругается. Если убрать эту переменную из параметров вызова то ошибка уйдет.
Для создания индексного файла можно сделать следующее:
в файл dbase\real\bases_05.dbf добавьте следующую строчку
05
REAL\
work
01
DATE
DTOS(tek_data)
и запустите переиндексацию модуля управление продажами
После этого попробуйте тестовую задачу - ошибка уйде
Back to top
View user's profile Send private message Send e-mail
nordk



Joined: 27 Jun 2005
Posts: 1000
Location: Горбунов Константин
Occupation: БЭСТ-Партнер
Interests: СПб

PostPosted: 03 Oct 2005 11:47    Post subject: Reply with quote

Теперь поиск в справочнике по первым буквам
Допустим по наименованию поставщика
Это значит нас интересует
параметр 47 - тег поиска по первым буквам
Возьмем к примеру 'NAME' и перепишем нашу задачу

_PARTNER->( MAKEREFER("PARTNERS","Справочник поставщиков",2 ;
,{" Код ","Наименование поставщика"," И Н Н "},;
{3,5,16}, "n/w,w+/n",{"SHORTNAME"},{"aIn[7]"},,;
{{||FIELD->CODE},{||FIELD->SHORTNAME},;
{||FIELD->CODE_PR}},,,,,,,,,,,,,,,,,'cFind$UPPER(ShortName)';
,,,,,,,,,,,,,,,,,,,,'NAME') )
Back to top
View user's profile Send private message Send e-mail
Светлана



Joined: 22 Jul 2002
Posts: 416
Location: Эпштейн Светлана

Interests: Бердск, Новосибирская обл

PostPosted: 04 Oct 2005 05:59    Post subject: Reply with quote

Все отлично работает! Может теперь выполним просьбу Марины про горячие клавиши? Мня тоже очень интересует эта тема, а сама разобраться с правилами заполнения массива aHotKey не смогла.

И еще вопрос. А каким образом мы узнали, что для поиска по первым буквам нам нужен именно 47 параме
Back to top
View user's profile Send private message Send e-mail
nordk



Joined: 27 Jun 2005
Posts: 1000
Location: Горбунов Константин
Occupation: БЭСТ-Партнер
Interests: СПб

PostPosted: 04 Oct 2005 10:16    Post subject: Reply with quote

Для этого разработчик предоставляет мне исходные тексты - чтобы я смотрел как внутри сделано и отвечал на Ваши вопросы
Насчет горячих клавиш - мона завтра тему начну. Вы пока напишите что конкретно хотите повесить на горячие кнопки - небольшое ТЗ так сказать...
Back to top
View user's profile Send private message Send e-mail
Титов Александр



Joined: 26 Jul 2002
Posts: 975
Location: Титов Александр Александрович
Occupation: Компания БЭСТ
Interests: Москва

PostPosted: 04 Oct 2005 10:52    Post subject: Reply with quote

Светлана wrote:
И еще вопрос. А каким образом мы узнали, что для поиска по первым буквам нам нужен именно 47 параметр?

Эту возможность не успели отразить в HELPе, в ближайшее время дополним.
_________________
С уважением, Александр Титов, Компания БЭСТ, Москва, отдел разрабо
Back to top
View user's profile Send private message Visit poster's website
Марина



Joined: 27 Aug 2002
Posts: 501
Location: Кондрина Марина Александровна
Occupation: ОАО БКО программист
Interests: Боровичи Новгородской обл

PostPosted: 04 Oct 2005 14:47    Post subject: Reply with quote

nordk wrote:
Для этого разработчик предоставляет мне исходные тексты - чтобы я смотрел как внутри сделано и отвечал на Ваши вопросы


Тогда скажите пожалуйста, как искать не по первым буквам, а по вхождению букв, например "абв" в "ляляляабвляляля" а) в справочнике партнеров б) в sclad\mlabel
Или это тоже можно горячими клавишами?
Back to top
View user's profile Send private message
Олег Смирнов



Joined: 06 Sep 2004
Posts: 821
Location: Олег Смирнов
Occupation: Раут (поганист-сисадмин)
Interests: Новосибирск

PostPosted: 04 Oct 2005 14:56    Post subject: Reply with quote

Марина wrote:
как искать не по первым буквам, а по вхождению букв, например "абв" в "ляляляабвляляля" а) в справочнике партнеров б) в sclad\mlabel
Или это тоже можно горячими клавишами?

У меня такое осчущчение, что - "по горячим клавишам"... И имейте в виду, на всякий случай, что такой поиск ж-жутко неэффективен по времени, т.к. в этом случае индексы использовать низ-зя...
_________________
С уважением, Олег Р. Смирн
Back to top
View user's profile Send private message
Марина



Joined: 27 Aug 2002
Posts: 501
Location: Кондрина Марина Александровна
Occupation: ОАО БКО программист
Interests: Боровичи Новгородской обл

PostPosted: 04 Oct 2005 15:18    Post subject: Reply with quote

[quote="Олег Смирнов"]
Марина wrote:
такой поиск ж-жутко неэффективен по времени

Все правильно, но для поиска по наименованию мои операторы используют в 90% случаев именно этот поиск. Так как везде в БЭСТ этот поиск по Alt+F7 выполнен одинаково, я подозреваю, что есть стандартная процедура подключения этого поиска. Если так, то зачем писать свою. И второе, одно дело искать в таблице, в которой мы первоначально стояли, а другое дело - в справочнике партнеров, который мы вызвали. Вот я и хочу получить какой-то комментари
Back to top
View user's profile Send private message
nordk



Joined: 27 Jun 2005
Posts: 1000
Location: Горбунов Константин
Occupation: БЭСТ-Партнер
Interests: СПб

PostPosted: 04 Oct 2005 17:49    Post subject: Reply with quote

Марина wrote:


Тогда скажите пожалуйста, как искать не по первым буквам, а по вхождению букв, например "абв" в "ляляляабвляляля" а) в справочнике партнеров б) в sclad\mlabel
Или это тоже можно горячими клавишами?


За это отвечает 23 параметр функции InitList()

cFindMacro:='cFind$UPPER(Name)'

work->(Initlist(nTop,nBot,cColHead,aBlockCols,cCurProc,;
_aHeads,aRef,aPic,aWhen,,;
nUniMode,bDel,,,,;
,,,,,;
,,cFindMacro))
И поиск по ALT-F7 а заодно и фильтр у Вас заработают - для этого нет необходимости горячие клавиши подвешивать - это стандартные свойства InitList()
А в справочнике если обратите внимание такой параметр уже присутств
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
Page 2 of 2

 
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