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

Давайте пользоваться HARBOUR
Goto page 1, 2  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: 06 Sep 2005 10:48    Post subject: Давайте пользоваться HARBOUR Reply with quote

Всеобщий привет !

После открытия данной рубрики поступают вопросы, суть которых - помочь найти ошибки в решениях на FileEval. Очень хочется сказать, отвечая на них. теперь же есть чудо-Harbour со своим чудо-отладчиком - в нем вы найдете ответы на свои вопросы, кототрые задавались - это во-первых, вы не будете ограничены как в FileEval и кто знает клиппер - сможет полноценно использовать возможности этого языка и это только начало...... Harbour содержит в себе огромный потенциал для программистов, а главное не надо изучать какие-то непонятные паскалеобразные языки !!!
Ну да если хотите использовать возможности БЭСТа - есть некототрые функции, которыми стоит научиться и они исключительно функции БЭСТа.
Сейчас мы работаем над тем как сделать более точным HELP к БЭСТу по программированию, с чего лучше начать уроки программирования для начинающих.
В 11-12 версиях HELP можно увидеть в пункте меню "О программе" - "Программирование в БЭСТ-4"
Просьба поделиться своими соображения
Back to top
View user's profile Send private message Send e-mail
Michael_K



Joined: 08 May 2002
Posts: 87
Location: Кувичко Михаил Юрьевич
Occupation: ООО "Телеком-КМВ", ведущий инженер
Interests: Пятигорск

PostPosted: 06 Sep 2005 11:09    Post subject: Reply with quote

Clipper знаю очень давно, начинал еще с Summer 86
Просьба: пока с Help-ом действительно плоховато - напишите, где что "лежит" и что запускать - "раскиданную" информацию тяжело воспринимать. Порекомендуйте, какие сайты посмотреть (рус, англ, нем - не имеет значения )
Back to top
View user's profile Send private message
Титов Александр



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

PostPosted: 07 Sep 2005 09:25    Post subject: Reply with quote

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
View user's profile Send private message Visit poster's website
Дениска



Joined: 26 Feb 2002
Posts: 649



PostPosted: 08 Sep 2005 18:05    Post subject: Re: Давайте пользоваться HARBOUR Reply with quote

nordk wrote:

Сейчас мы работаем над тем как сделать более точным HELP к БЭСТу по программированию, с чего лучше начать уроки программирования для начинающих.
В 11-12 версиях HELP можно увидеть в пункте меню "О программе" - "Программирование в БЭСТ-4"
Просьба поделиться своими соображениями


Начинать уроки программирования для начинающих надо с полезных примеров
Back to top
View user's profile Send private message
nordk



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

PostPosted: 09 Sep 2005 11:12    Post subject: Reply with quote

Абсолютно с Вами согласен.
У меня счаз дилема - помогите ее разрешить.
Начинать с функции InitList или QINPUT
Кто-то просит сразу весь MAKEREFER описать...
Хотелось бы сразу начинать с практичных примеров - кототрые интересны всем, вот и пытаюсь спросить - подскажите с чего лучше начать.
Вообще в поставке БЭСТ 4+ есть небольшая задачка cat1.prg там присутствуют многое чтобы было понятно для освоения вышеописанных функций - можно начать с разбора ее.

Еще есть мысль сделать уроки по освоению INITLIST шаг за шагом.
Господа подскажите пожалуйста куда правильнее энергию то направлять - все сразу одновременно - значит ничего.
Давайте немного обусдим направление и начну выкладывать на форуме подсказки и т.
Back to top
View user's profile Send private message Send e-mail
Дениска



Joined: 26 Feb 2002
Posts: 649



PostPosted: 09 Sep 2005 11:48    Post subject: Reply with quote

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
View user's profile Send private message
itman



Joined: 05 Apr 2002
Posts: 1247
Location: Ильин Е.Ю.
Occupation: Cio
Interests: Кинель

PostPosted: 09 Sep 2005 12:24    Post subject: Reply with quote

Quote:
У меня счаз дилема - помогите ее разрешить.
Начинать с функции InitList или QINPUT
Кто-то просит сразу весь MAKEREFER описать...

На мой взгляд отдельный разбор функций малоэффективен.
Может быть будет интереснее "разработать" в открытом коде, так сказать, альтернативный справочник партнеров (для начала) к примеру?
И initlist - собственной персоной
и qinput - на ввод с привязкой справочников для ряда полей, созданных makerefer.
Затем уже можно и несколько баз объединить в одном реестре, и т.д.

Можно предложить опубликовать участникам форума свои наработки, на обсуждение, заодно и обмен опытом.

Только в меру , а то так весь код БЭСТа обсудим и родим в итоге Некоммерческий проект системы учет
Back to top
View user's profile Send private message Send e-mail
nordk



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

PostPosted: 12 Sep 2005 10:11    Post subject: Reply with quote

Скажите а идущая в поставке cat1.prg для обсуждения не подходит - код всем доступен и там все есть и справочники и ввод и InitList.....
Back to top
View user's profile Send private message Send e-mail
Лариса Т.



Joined: 05 Jul 2004
Posts: 247
Location: Тюрикова Л.А.
Occupation: программист
Interests: Ижевск

PostPosted: 12 Sep 2005 14:14    Post subject: Reply with quote

Меня очень интересует выгрузка в Excel. Спасибо за пример в Хелпе.
Только хотелось бы почитать поподробнее про функции и команды, используемые в примере . Может быть дадите ссылку.
Back to top
View user's profile Send private message
nordk



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

PostPosted: 12 Sep 2005 15:28    Post subject: Reply with quote

Вот как раз выгрузка в 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
View user's profile Send private message Send e-mail
WildCat



Joined: 13 Sep 2005
Posts: 18
Location: Андрей Забабонин
Occupation: ОАО "1000 мелочей"
Interests: Калининград

PostPosted: 16 Sep 2005 12:44    Post subject: Reply with quote

Титов Александр wrote:

Для некоммерческой версии нужен Boland C++ 5.5 Command line или MS VC++.

А Borland C++ Builder 6.0 не подойдет?
Back to top
View user's profile Send private message
shura_k



Joined: 10 Oct 2003
Posts: 342
Location: Александр
Occupation: Специалист
Interests: Калининград

PostPosted: 16 Sep 2005 12:47    Post subject: Reply with quote

Здесь главное слово Command line!!!!!

Boland C++ 5.5 Command line - весит очень мало ~ 9m
Back to top
View user's profile Send private message
WildCat



Joined: 13 Sep 2005
Posts: 18
Location: Андрей Забабонин
Occupation: ОАО "1000 мелочей"
Interests: Калининград

PostPosted: 16 Sep 2005 13:04    Post subject: Reply with quote

shura_k wrote:
Здесь главное слово Command line!!!!!

Boland C++ 5.5 Command line - весит очень мало ~ 9m


Насколько я знаю, все системы визуального программирования способны генерить консольные приложения.
На русском сайте о xHarbour упоминается C++ Builder, но не сказано какой именно.
Back to top
View user's profile Send private message
shura_k



Joined: 10 Oct 2003
Posts: 342
Location: Александр
Occupation: Специалист
Interests: Калининград

PostPosted: 16 Sep 2005 15:52    Post subject: Reply with quote

Ни кто не настаивает
Back to top
View user's profile Send private message
GVA



Joined: 16 Oct 2003
Posts: 99
Location: Gaponenko
Occupation: HDM
Interests: Москва

PostPosted: 30 Sep 2005 13:02    Post subject: Не панацея Reply with quote

Похоже не все проблемы решаться переползанием на Harbour
http://www.bestnet.ru/club/phpBB/viewtopic.php?t=7394
Особенно смущает отработка исключительных ситуаций по TRY
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  Next
Page 1 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