| View previous topic :: View next topic |
| Author |
Message |
nordk
Joined: 27 Jun 2005
Posts: 1000
Location: Горбунов Константин
Occupation: БЭСТ-Партнер
Interests: СПб
|
 Posted: 06 Sep 2005 10:48 Post subject: Давайте пользоваться HARBOUR |
 |
|
Всеобщий привет !
После открытия данной рубрики поступают вопросы, суть которых - помочь найти ошибки в решениях на FileEval. Очень хочется сказать, отвечая на них. теперь же есть чудо-Harbour со своим чудо-отладчиком - в нем вы найдете ответы на свои вопросы, кототрые задавались - это во-первых, вы не будете ограничены как в FileEval и кто знает клиппер - сможет полноценно использовать возможности этого языка и это только начало...... Harbour содержит в себе огромный потенциал для программистов, а главное не надо изучать какие-то непонятные паскалеобразные языки !!!
Ну да если хотите использовать возможности БЭСТа - есть некототрые функции, которыми стоит научиться и они исключительно функции БЭСТа.
Сейчас мы работаем над тем как сделать более точным HELP к БЭСТу по программированию, с чего лучше начать уроки программирования для начинающих.
В 11-12 версиях HELP можно увидеть в пункте меню "О программе" - "Программирование в БЭСТ-4"
Просьба поделиться своими соображения |
|
| Back to top |
|
 |
Michael_K
Joined: 08 May 2002
Posts: 87
Location: Кувичко Михаил Юрьевич
Occupation: ООО "Телеком-КМВ", ведущий инженер
Interests: Пятигорск
|
| Posted: 06 Sep 2005 11:09 Post subject: |
|
|
Clipper знаю очень давно, начинал еще с Summer 86 
Просьба: пока с Help-ом действительно плоховато - напишите, где что "лежит" и что запускать - "раскиданную" информацию тяжело воспринимать. Порекомендуйте, какие сайты посмотреть (рус, англ, нем - не имеет значения  ) |
|
| Back to top |
|
|
Титов Александр
Joined: 26 Jul 2002
Posts: 975
Location: Титов Александр Александрович
Occupation: Компания БЭСТ
Interests: Москва
|
| Posted: 07 Sep 2005 09:25 Post subject: |
|
|
| Michael_K wrote: | Clipper знаю очень давно, начинал еще с Summer 86
Просьба: пока с Help-ом действительно плоховато - напишите, где что "лежит" и что запускать - "раскиданную" информацию тяжело воспринимать. Порекомендуйте, какие сайты посмотреть (рус, англ, нем - не имеет значения ) |
Добрый день!
Некоммерческая версия xharbour: www.xharbour.org
Для некоммерческой версии нужен Boland C++ 5.5 Command line или MS VC++.
Коммерческая версия www.xharbour.com
В коммерческой версии имеется Visual xHarbour, библиотека sqlrdd, builder.
www.otc.pl - библиотеки для доступа к базам MSSql, Oracle, Postgre, MySql. MySql является бесплатной, другие ограничены числом рабочих станций.
Интерактивный справочник:
http://www.xharbour.com/xhdn/
Сайт Александра Кресина:
http://kresin.belgorod.su/rus/index.html
_________________
С уважением, Александр Титов, Компания БЭСТ, Москва, отдел разрабо |
|
| Back to top |
|
|
Дениска
Joined: 26 Feb 2002
Posts: 649
|
| Posted: 08 Sep 2005 18:05 Post subject: Re: Давайте пользоваться HARBOUR |
|
|
| nordk wrote: |
Сейчас мы работаем над тем как сделать более точным HELP к БЭСТу по программированию, с чего лучше начать уроки программирования для начинающих.
В 11-12 версиях HELP можно увидеть в пункте меню "О программе" - "Программирование в БЭСТ-4"
Просьба поделиться своими соображениями |
Начинать уроки программирования для начинающих надо с полезных примеров  |
|
| Back to top |
|
|
nordk
Joined: 27 Jun 2005
Posts: 1000
Location: Горбунов Константин
Occupation: БЭСТ-Партнер
Interests: СПб
|
| Posted: 09 Sep 2005 11:12 Post subject: |
|
|
Абсолютно с Вами согласен.
У меня счаз дилема - помогите ее разрешить.
Начинать с функции InitList или QINPUT
Кто-то просит сразу весь MAKEREFER описать...
Хотелось бы сразу начинать с практичных примеров - кототрые интересны всем, вот и пытаюсь спросить - подскажите с чего лучше начать.
Вообще в поставке БЭСТ 4+ есть небольшая задачка cat1.prg там присутствуют многое чтобы было понятно для освоения вышеописанных функций - можно начать с разбора ее.
Еще есть мысль сделать уроки по освоению INITLIST шаг за шагом.
Господа подскажите пожалуйста куда правильнее энергию то направлять - все сразу одновременно - значит ничего.
Давайте немного обусдим направление и начну выкладывать на форуме подсказки и т. |
|
| Back to top |
|
|
Дениска
Joined: 26 Feb 2002
Posts: 649
|
| Posted: 09 Sep 2005 11:48 Post subject: |
|
|
| nordk wrote: | Абсолютно с Вами согласен.
У меня счаз дилема - помогите ее разрешить.
Начинать с функции InitList или QINPUT
Кто-то просит сразу весь MAKEREFER описать...
Хотелось бы сразу начинать с практичных примеров - кототрые интересны всем, вот и пытаюсь спросить - подскажите с чего лучше начать.
|
А вы уже и сами озвучивали интересные примеры К примеру:
| nordk wrote: |
Насчет справочника - я написал выше что у меня решена задача для очень крупного оптово-розничного оператора.
Партнеров ищут в момент - хочешь по первым буквам в наименовании, хошь по ИНН.
|
| nordk wrote: |
Итак по порядку
В БЭСТ-4 есть такие индексы TAG_MARKA,TAG_PROFIL,TAG_RAZMER и т.д. по БАЗЕ mlabel, стало быть инструмент для поиска по атрибутам у нас имеется.
Далее в БЭСТ-4 есть такая функция INITLIST с помощью которой за 1 день можно быстренько накропать свое представление картотеки и задействовав перечисленные выше индексы по связке осуществлять поиск по атрибутам. При желании добавляется в меню свой пункт или подменяется существующий...
|
В окне выбора товара заменить н/номер на Код по каталогу
| nordk wrote: |
Еще есть мысль сделать уроки по освоению INITLIST шаг за шагом.
|
Вот вот, так и надо |
|
| Back to top |
|
|
itman
Joined: 05 Apr 2002
Posts: 1247
Location: Ильин Е.Ю.
Occupation: Cio
Interests: Кинель
|
| Posted: 09 Sep 2005 12:24 Post subject: |
|
|
| Quote: | У меня счаз дилема - помогите ее разрешить.
Начинать с функции InitList или QINPUT
Кто-то просит сразу весь MAKEREFER описать... |
На мой взгляд отдельный разбор функций малоэффективен.
Может быть будет интереснее "разработать" в открытом коде, так сказать, альтернативный справочник партнеров (для начала) к примеру?
И initlist - собственной персоной
и qinput - на ввод с привязкой справочников для ряда полей, созданных makerefer.
Затем уже можно и несколько баз объединить в одном реестре, и т.д.
Можно предложить опубликовать участникам форума свои наработки, на обсуждение, заодно и обмен опытом.
Только в меру .gif) , а то так весь код БЭСТа обсудим и родим в итоге Некоммерческий проект системы учет |
|
| Back to top |
|
|
nordk
Joined: 27 Jun 2005
Posts: 1000
Location: Горбунов Константин
Occupation: БЭСТ-Партнер
Interests: СПб
|
| Posted: 12 Sep 2005 10:11 Post subject: |
|
|
| Скажите а идущая в поставке cat1.prg для обсуждения не подходит - код всем доступен и там все есть и справочники и ввод и InitList..... |
|
| Back to top |
|
|
Лариса Т.
Joined: 05 Jul 2004
Posts: 247
Location: Тюрикова Л.А.
Occupation: программист
Interests: Ижевск
|
| Posted: 12 Sep 2005 14:14 Post subject: |
|
|
Меня очень интересует выгрузка в Excel. Спасибо за пример в Хелпе.
Только хотелось бы почитать поподробнее про функции и команды, используемые в примере . Может быть дадите ссылку. |
|
| Back to top |
|
|
nordk
Joined: 27 Jun 2005
Posts: 1000
Location: Горбунов Константин
Occupation: БЭСТ-Партнер
Interests: СПб
|
| Posted: 12 Sep 2005 15:28 Post subject: |
|
|
Вот как раз выгрузка в Excel там для Б4 - для Б4+ должна быть ошибка вроде бы
Счаз надо писать CallExcel(pth)
Вот простенький текcт как я в Excel когда-то что-то делал
| Code: | FUNCTION EXCELPLAN7(xName)
LOCAL oWorkBook,oApp,oAS
TRY
oApp := CreateObject( "Excel.Application" )
CATCH
Alert("Excel не доступен!")
RETURN .F.
END
oApp:Visible := .F.
oApp:screenUpdating:=.F.
oApp:displayAlerts:=.F.
oWorkBook:=oApp:WorkBooks:Add()
oAS:=oWorkBook:Worksheets():Add()
oAS:Activate()
oApp:calculation:=xlCalculationManual
oAS:Name:=OemToAnsi("Сверка")
oAS:Range("A1:D2"):MergeCells:=.F.
oAS:Range("A1:D2"):Merge()
oAS:Range("A1"):Value:=OemToAnsi("ООО Невская Компания")
oAS:Range("G1"):Value:=OemToAnsi(xName)
oAS:Range("D3"):Value:=OemToAnsi("Акт сверки")
oAS:Range("C4"):Value:=OemToAnsi("за период")
oAS:Range("A6:D6"):Merge()
oAS:Range("A6:D6"):HorizontalAlignment:=xlCenter
oAS:Range("A6"):Value:=OemToAnsi("Отгрузка ООО Невская Компания")
oAS:Range("E6:H6"):Merge()
oAS:Range("E6:H6"):HorizontalAlignment:=xlCenter
oAS:Range("E6"):Value:=OemToAnsi("Оплата "+xName)
oAS:Range("A7"):Value:=OemToAnsi("Дата")
oAS:Range("B7"):Value:=OemToAnsi("Наименование")
oAS:Range("C7"):Value:=OemToAnsi("Сумма")
oAS:Range("D7"):Value:=OemToAnsi("В т.ч. НДС")
oAS:Range("E7"):Value:=OemToAnsi("Дата")
oAS:Range("F7"):Value:=OemToAnsi("Наименование")
oAS:Range("G7"):Value:=OemToAnsi("Сумма")
oAS:Range("H7"):Value:=OemToAnsi("В т.ч. НДС")
oAS:Range("A10"):Value:=OemToAnsi("Начальное сальдо в пользу")
oAS:Range("B11"):Value:=OemToAnsi("В т.ч. по ")
oAS:Range("B12"):Value:=OemToAnsi("В т.ч. по ")
oAS:Range("A13"):Value:=OemToAnsi("Конечное сальдо в пользу")
oAS:Range("B14"):Value:=OemToAnsi("В т.ч. по ")
oAS:Range("B15"):Value:=OemToAnsi("В т.ч. по ")
oAS:Range("A17"):Value:=OemToAnsi("Главный бухгалтер")
oAS:Range("E17"):Value:=OemToAnsi("Главный бухгалтер")
oAS:Range("A18"):Value:=OemToAnsi("ООО Невская Компания")
oAS:Range("G18"):Value:=OemToAnsi(xName)
oAS:Range("A20"):Value:=OemToAnsi("____________________")
oAS:Range("G20"):Value:=OemToAnsi("____________________")
oAS:Range("A21"):Value:=OemToAnsi("(подпись)")
oAS:Range("G21"):Value:=OemToAnsi("(подпись)")
oAS:Cells:Font:Name := "Tahoma"
oAS:Cells:Font:Size := 8
oAS:Range("D3"):Font:Size:= 14
oAS:Range("A6:H6"):Font:Size:= 7
oAS:Range("D3"):Font:Bold:=.T.
oAS:Range("C4"):Font:Size:= 10
oAS:Range("C4"):Font:Bold:=.T.
oAs:Range("A1"):Select()
oApp:screenUpdating:=.T.
oApp:calculation:=xlCalculationAutomatic
oApp:displayAlerts:=.T.
oApp:Visible := .T.
RETURN NIL |
Описание функций счаз имеется в стандартном хелпе идущем в поставке вместе с версией - смотрите сразу хелп для 12 версии - он там полнее значительно. По QINPUT хелп будет поправл |
|
| Back to top |
|
|
WildCat
Joined: 13 Sep 2005
Posts: 18
Location: Андрей Забабонин
Occupation: ОАО "1000 мелочей"
Interests: Калининград
|
| Posted: 16 Sep 2005 12:44 Post subject: |
|
|
| Титов Александр wrote: |
Для некоммерческой версии нужен Boland C++ 5.5 Command line или MS VC++.
|
А Borland C++ Builder 6.0 не подойдет? |
|
| Back to top |
|
|
shura_k
Joined: 10 Oct 2003
Posts: 342
Location: Александр
Occupation: Специалист
Interests: Калининград
|
| Posted: 16 Sep 2005 12:47 Post subject: |
|
|
Здесь главное слово Command line!!!!!
Boland C++ 5.5 Command line - весит очень мало ~ 9m |
|
| Back to top |
|
|
WildCat
Joined: 13 Sep 2005
Posts: 18
Location: Андрей Забабонин
Occupation: ОАО "1000 мелочей"
Interests: Калининград
|
| Posted: 16 Sep 2005 13:04 Post subject: |
|
|
| shura_k wrote: | Здесь главное слово Command line!!!!!
Boland C++ 5.5 Command line - весит очень мало ~ 9m |
Насколько я знаю, все системы визуального программирования способны генерить консольные приложения.
На русском сайте о xHarbour упоминается C++ Builder, но не сказано какой именно. |
|
| Back to top |
|
|
shura_k
Joined: 10 Oct 2003
Posts: 342
Location: Александр
Occupation: Специалист
Interests: Калининград
|
| Posted: 16 Sep 2005 15:52 Post subject: |
|
|
Ни кто не настаивает  |
|
| Back to top |
|
|
GVA
Joined: 16 Oct 2003
Posts: 99
Location: Gaponenko
Occupation: HDM
Interests: Москва
|
|
| Back to top |
|
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
