Давайте пользоваться HARBOUR
Select messages from
 # through # FAQ
[/[Print]\]
Goto page 1, 2  Next  :| |:
-> Программирование в БЭСТ-4
#1: Давайте пользоваться HARBOUR Author: nordk, Location: Горбунов Константин PostPosted: 06 Sep 2005 10:48
    —
Всеобщий привет !

После открытия данной рубрики поступают вопросы, суть которых - помочь найти ошибки в решениях на FileEval. Очень хочется сказать, отвечая на них. теперь же есть чудо-Harbour со своим чудо-отладчиком - в нем вы найдете ответы на свои вопросы, кототрые задавались - это во-первых, вы не будете ограничены как в FileEval и кто знает клиппер - сможет полноценно использовать возможности этого языка и это только начало...... Harbour содержит в себе огромный потенциал для программистов, а главное не надо изучать какие-то непонятные паскалеобразные языки !!!
Ну да если хотите использовать возможности БЭСТа - есть некототрые функции, которыми стоит научиться и они исключительно функции БЭСТа.
Сейчас мы работаем над тем как сделать более точным HELP к БЭСТу по программированию, с чего лучше начать уроки программирования для начинающих.
В 11-12 версиях HELP можно увидеть в пункте меню "О программе" - "Программирование в БЭСТ-4"
Просьба поделиться своими соображения
#2:  Author: Michael_K, Location: Кувичко Михаил Юрьевич PostPosted: 06 Sep 2005 11:09
    —
Clipper знаю очень давно, начинал еще с Summer 86
Просьба: пока с Help-ом действительно плоховато - напишите, где что "лежит" и что запускать - "раскиданную" информацию тяжело воспринимать. Порекомендуйте, какие сайты посмотреть (рус, англ, нем - не имеет значения )
#3:  Author: Титов Александр, Location: Титов Александр Александрович PostPosted: 07 Sep 2005 09:25
    —
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
#4: Re: Давайте пользоваться HARBOUR Author: Дениска,  PostPosted: 08 Sep 2005 18:05
    —
nordk wrote:

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


Начинать уроки программирования для начинающих надо с полезных примеров
#5:  Author: nordk, Location: Горбунов Константин PostPosted: 09 Sep 2005 11:12
    —
Абсолютно с Вами согласен.
У меня счаз дилема - помогите ее разрешить.
Начинать с функции InitList или QINPUT
Кто-то просит сразу весь MAKEREFER описать...
Хотелось бы сразу начинать с практичных примеров - кототрые интересны всем, вот и пытаюсь спросить - подскажите с чего лучше начать.
Вообще в поставке БЭСТ 4+ есть небольшая задачка cat1.prg там присутствуют многое чтобы было понятно для освоения вышеописанных функций - можно начать с разбора ее.

Еще есть мысль сделать уроки по освоению INITLIST шаг за шагом.
Господа подскажите пожалуйста куда правильнее энергию то направлять - все сразу одновременно - значит ничего.
Давайте немного обусдим направление и начну выкладывать на форуме подсказки и т.
#6:  Author: Дениска,  PostPosted: 09 Sep 2005 11:48
    —
nordk wrote:
Абсолютно с Вами согласен.
У меня счаз дилема - помогите ее разрешить.
Начинать с функции InitList или QINPUT
Кто-то просит сразу весь MAKEREFER описать...
Хотелось бы сразу начинать с практичных примеров - кототрые интересны всем, вот и пытаюсь спросить - подскажите с чего лучше начать.


А вы уже и сами озвучивали интересные примеры К примеру:

nordk wrote:

Насчет справочника - я написал выше что у меня решена задача для очень крупного оптово-розничного оператора.
Партнеров ищут в момент - хочешь по первым буквам в наименовании, хошь по ИНН.



nordk wrote:

Итак по порядку
В БЭСТ-4 есть такие индексы TAG_MARKA,TAG_PROFIL,TAG_RAZMER и т.д. по БАЗЕ mlabel, стало быть инструмент для поиска по атрибутам у нас имеется.
Далее в БЭСТ-4 есть такая функция INITLIST с помощью которой за 1 день можно быстренько накропать свое представление картотеки и задействовав перечисленные выше индексы по связке осуществлять поиск по атрибутам. При желании добавляется в меню свой пункт или подменяется существующий...


В окне выбора товара заменить н/номер на Код по каталогу

nordk wrote:

Еще есть мысль сделать уроки по освоению INITLIST шаг за шагом.


Вот вот, так и надо
#7:  Author: itman, Location: Ильин Е.Ю. PostPosted: 09 Sep 2005 12:24
    —
Quote:
У меня счаз дилема - помогите ее разрешить.
Начинать с функции InitList или QINPUT
Кто-то просит сразу весь MAKEREFER описать...

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

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

Только в меру , а то так весь код БЭСТа обсудим и родим в итоге Некоммерческий проект системы учет
#8:  Author: nordk, Location: Горбунов Константин PostPosted: 12 Sep 2005 10:11
    —
Скажите а идущая в поставке cat1.prg для обсуждения не подходит - код всем доступен и там все есть и справочники и ввод и InitList.....
#9:  Author: Лариса Т., Location: Тюрикова Л.А. PostPosted: 12 Sep 2005 14:14
    —
Меня очень интересует выгрузка в Excel. Спасибо за пример в Хелпе.
Только хотелось бы почитать поподробнее про функции и команды, используемые в примере . Может быть дадите ссылку.
#10:  Author: nordk, Location: Горбунов Константин PostPosted: 12 Sep 2005 15:28
    —
Вот как раз выгрузка в 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 хелп будет поправл
#11:  Author: WildCat, Location: Андрей Забабонин PostPosted: 16 Sep 2005 12:44
    —
Титов Александр wrote:

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

А Borland C++ Builder 6.0 не подойдет?
#12:  Author: shura_k, Location: Александр PostPosted: 16 Sep 2005 12:47
    —
Здесь главное слово Command line!!!!!

Boland C++ 5.5 Command line - весит очень мало ~ 9m
#13:  Author: WildCat, Location: Андрей Забабонин PostPosted: 16 Sep 2005 13:04
    —
shura_k wrote:
Здесь главное слово Command line!!!!!

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


Насколько я знаю, все системы визуального программирования способны генерить консольные приложения.
На русском сайте о xHarbour упоминается C++ Builder, но не сказано какой именно.
#14:  Author: shura_k, Location: Александр PostPosted: 16 Sep 2005 15:52
    —
Ни кто не настаивает
#15: Не панацея Author: GVA, Location: Gaponenko PostPosted: 30 Sep 2005 13:02
    —
Похоже не все проблемы решаться переползанием на Harbour
http://www.bestnet.ru/club/phpBB/viewtopic.php?t=7394
Особенно смущает отработка исключительных ситуаций по TRY
-> Программирование в БЭСТ-4


output generated using printer-friendly topic mod. All times are GMT + 4 Hours

Goto page 1, 2  Next  :| |:
Page 1 of 2

Powered by phpBB © 2001, 2005 phpBB Group