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

Обсуждение написание модуля на харборе УРОК2
Goto page 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
nordk



Joined: 27 Jun 2005
Posts: 1000
Location: Горбунов Константин
Occupation: БЭСТ-Партнер
Interests: СПб
PostPosted: 20 Sep 2005 19:44    Post subject: Обсуждение написание модуля на харборе УРОК2 Reply with quote
Итак господа экраны мы уже рисуем.
Теперь вопрос что будем во втором уроке обсуждать ввод/корректировку или сортировку/поиск ?
Пока суть да дело расскажу про удаление.
Если в нашу программу из первого занятия добавить
bDel:={||.F.} удаление будет запрещено и наоборот соответственно разрешено
Строка тогда изменится:
WORK->( INITLIST(nTop,nBot,cColHead,aBlockCols,cCurProc,,,,,,,bDel) )
Back to top
View user's profile Send private message Send e-mail
itman



Joined: 05 Apr 2002
Posts: 1247
Location: Ильин Е.Ю.
Occupation: Cio
Interests: Кинель
PostPosted: 21 Sep 2005 07:03    Post subject: Reply with quote
по сортировке/поиску думаю будет достаточно создать индексы и рассмотреть 14 параметр.
А вот на Вводе/редактировании остановиться поподробнее.
От себя добавлю, что для удобства восприятия вызов initlist лучше делать так:
initlist(nTop,nBot,cColHead,aBlockCols,cCurProc,;
,,,,,;
,bDel,,,,)
bDel как раз 12 параметр.
Т.е. пишем в каждой строке по пять параметров, в описании параметры пронумерованы, так будет намного быстрее , и вероятность добавить переменнную "не туда" станет меньш
Back to top
View user's profile Send private message Send e-mail
nordk



Joined: 27 Jun 2005
Posts: 1000
Location: Горбунов Константин
Occupation: БЭСТ-Партнер
Interests: СПб
PostPosted: 21 Sep 2005 15:18    Post subject: Reply with quote
Это уж как Вам будет угодно....
Теперь давайте опять определимся для начала по каким полям хотим делать ввод/корректировку/фильтр/суммирование
Back to top
View user's profile Send private message Send e-mail
Лариса Т.



Joined: 05 Jul 2004
Posts: 247
Location: Тюрикова Л.А.
Occupation: программист
Interests: Ижевск
PostPosted: 22 Sep 2005 10:09    Post subject: Reply with quote
с нетерпением ждем продолжения...
ввод и корректировка, наверное, всех полей. А суммирование, так один вариант - поле SUMMA.
Back to top
View user's profile Send private message
nordk



Joined: 27 Jun 2005
Posts: 1000
Location: Горбунов Константин
Occupation: БЭСТ-Партнер
Interests: СПб
PostPosted: 22 Sep 2005 13:01    Post subject: Reply with quote
Тогда создаем переменную
_aHeads:={{"Введите дату работ.................:","TEK_DATA"}, ; {"Введите номер документа............:","TEK_NOMER"}, ;{"Наименование работ.................:","NAME"}, ;{"Количество.........................:","KOL",,,"0"}, ;{"Цена...............................:","СENA",,,"0"}, ;
{"Сумма (руб.).......................:","SUMMA"}}

И пишем (по совету товарищей )

initlist(nTop,nBot,cColHead,aBlockCols,cCurProc,;
_aHeads,,,,,;
,bDel,,,,)

Дальше опять наводим марафет - кому какой нравится и задаем вопросы
Back to top
View user's profile Send private message Send e-mail
Сергей В. Чурбанов



Joined: 27 Jun 2003
Posts: 35
Location: Чурбанов Сергей Вячеславович
Occupation: ООО "Интеллект-сервис-НСК"
Interests: Новосибирск
PostPosted: 22 Sep 2005 15:00    Post subject: Reply with quote
Добрый день!
Добавил все строки но добавления в таблицу не получается, ккую кнопку нажать чтобы добавить запись в таблицу.
Back to top
View user's profile Send private message
nordk



Joined: 27 Jun 2005
Posts: 1000
Location: Горбунов Константин
Occupation: БЭСТ-Партнер
Interests: СПб
PostPosted: 22 Sep 2005 15:21    Post subject: Reply with quote
Попробуйте создать индексный файл work.cdx с каким-нибудь ключ
Back to top
View user's profile Send private message Send e-mail
shura_k



Joined: 10 Oct 2003
Posts: 342
Location: Александр
Occupation: Специалист
Interests: Калининград
PostPosted: 22 Sep 2005 15:22    Post subject: Reply with quote
У меня после этого в initlist пишет "неверный аргумент"
Back to top
View user's profile Send private message
Лариса Т.



Joined: 05 Jul 2004
Posts: 247
Location: Тюрикова Л.А.
Occupation: программист
Interests: Ижевск
PostPosted: 22 Sep 2005 15:54    Post subject: Reply with quote
Получилось. А еще подскажите, пожалуйста, как написать, чтобы сумма вычислялась автоматом при вводе количества и цены.
Back to top
View user's profile Send private message
nordk



Joined: 27 Jun 2005
Posts: 1000
Location: Горбунов Константин
Occupation: БЭСТ-Партнер
Interests: СПб
PostPosted: 22 Sep 2005 16:05    Post subject: Reply with quote
Виноват !
Надо поправить тут
;{"Количество.........................:","KOL","1","1","0"}, ;{"Цена...............................:","СENA","1","1","0"},

а индекс нужен тока для фильтра - этот массив сразу на много направлений определя
Back to top
View user's profile Send private message Send e-mail
nordk



Joined: 27 Jun 2005
Posts: 1000
Location: Горбунов Константин
Occupation: БЭСТ-Партнер
Interests: СПб
PostPosted: 22 Sep 2005 16:21    Post subject: Reply with quote
Лариса Т. wrote:
Получилось. А еще подскажите, пожалуйста, как написать, чтобы сумма вычислялась автоматом при вводе количества и цены.


Добавим aWhen:={,,,,,{||aIn[6]:=aIn[4]*aIn[5]}}
И опять в нужном стиле пишем

initlist(nTop,nBot,cColHead,aBlockCols,cCurProc,;
_aHeads,,,aWhen,,;
,bDel,,,,)
Back to top
View user's profile Send private message Send e-mail
shura_k



Joined: 10 Oct 2003
Posts: 342
Location: Александр
Occupation: Специалист
Interests: Калининград
PostPosted: 22 Sep 2005 17:12    Post subject: Reply with quote
nordk wrote:
Виноват !
Надо поправить тут
;{"Количество.........................:","KOL","1","1","0"}, ;{"Цена...............................:","СENA","1","1","0"},


А теперь пишет когда нажимаешь F4
Class: NIL has no export metod

Nil в Return убирал- толку мало
Back to top
View user's profile Send private message
nordk



Joined: 27 Jun 2005
Posts: 1000
Location: Горбунов Константин
Occupation: БЭСТ-Партнер
Interests: СПб
PostPosted: 22 Sep 2005 17:48    Post subject: Reply with quote
Убирать не надо
Похоже в поле Cena первый символ русский у меня был а Вы просто скопировали - ошибка говорит что переменную не опознала, нет мол тако
Back to top
View user's profile Send private message Send e-mail
shura_k



Joined: 10 Oct 2003
Posts: 342
Location: Александр
Occupation: Специалист
Interests: Калининград
PostPosted: 22 Sep 2005 17:55    Post subject: Reply with quote
nordk wrote:
Убирать не надо
Похоже в поле Cena первый символ русский у меня был а Вы просто скопировали - ошибка говорит что переменную не опознала, нет мол такой


Точно
Back to top
View user's profile Send private message
shura_k



Joined: 10 Oct 2003
Posts: 342
Location: Александр
Occupation: Специалист
Interests: Калининград
PostPosted: 22 Sep 2005 17:57    Post subject: Reply with quote
А как задать формат для Summa, а то после перемножения, очень много 0 вылази
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view     Forum Index -> Программирование в БЭСТ-4 All times are GMT + 4 Hours
Goto page 1, 2, 3, 4  Next
Page 1 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