Отправлено: 03.04.10 20:51. Заголовок: Помогите протестировать первую xHarbour систему

Уважаемые профи!

Наконец перевёл систему на xHarbour (терминальный режим). Если не сложно помогите найти ошибки в её работе (сам уже тестил). Если есть желание, то с удовольствием приму критику в любом виде и отвечу на все вопросы. Система содержит исходный код (+ база очень крупной оптовки за 4 месяца) и варианты Clipper (нужна настройка ОС) и xHarbour (Win32) программ. Для установки скачать в любой каталог и распаковать архив. Все виды паролей - 11. Для создания индексов clipper (s_repair.bat), harbour (srepharb.bat). Справка F1 в любом режиме, инструкции в каталоге document. Для принудительного запуска st.bat (clip)/sth.bat (harb). По системе печати, если интересно - отдельно. Состав комплекса:
1. Оперативная программа. ls.exe (clip)/hls.exe (harb)
2. Администратор и бухгалтерия. la.exe (clip)/hla.exe (harb)
3. Аналитический контур. ldust.exe (clip)/hld.exe (harb)

Буду очень благодарен за найденные ошибки и критику в любой форме! Скачка с учётом исправлений всех замечаний на 04.04.2010 (5.92) http://get.freesoft.ru/?id=108083

 Отправлено: 04.04.10 20:52. Заголовок: PSP пишет: AndreyZh..

PSP пишет:

цитата:

AndreyZh пишет: цитата: По примерам с "крестиком" при компиляции ругается unresolved external _FindWindows В оригинале - FindWindow. (be attentive...)

Мдя...

 Отправлено: 04.04.10 20:56. Заголовок: Петр Да ничего там ..

Петр

цитата:

Да ничего там не вылетает. За всю историю своего флейма (с учетом топика про ламеров) AndreyZh так и не привел ни ОДНОГО примера с ошибкой [x]Harbour. Флейм он и есть флейм.

А это вообще при чём? Нет желания помогать - обойдусь! Но хотя бы прочитали сообщение прежде чем "наезжать"! Напомню Вам, а лучше другим, кто желает изучить данную перспективную систему (по материалам моих вопросов):

1. Ошибка функций Upper/Lower исправлена лишь в версии xHarbour декабря 2009

2. Выявили (постоянные вопросы на импортных форумах) источник 9001 внутренней ошибки - порождающий пример:
DbSelectArea(0)
DbSetIndex(1)

3. Выявил "глюки" препроцессора (описываю только сейчас):
#xcommand FOR <i>:=<s> TO <n> DO <*statement*> => FOR <i>:=<s> TO <n> ; <statement> ; END
#xcommand IF <cond> THEN <*statement*> => IF <cond> ; <statement>; ENDIF

Блок порождает ошибки компиляции, а иногда только вылет при выполнении (clipper обрабатывает):
IF <условие> THEN SELE <алиас>; SKIP; LOOP

4. До конца не решена проблема замены TempFile() и многое другое... Думаю мне и многим другим спецам это интересно!


Dima

Спасибо за советы! Подскажите пожалуйста, что не так с "работой с окнами Win" - сообщение компилятора описал. Тему random давайте опустим - проблему решил, а обсуждение превращается в ....

 Отправлено: 04.04.10 21:01. Заголовок: Пример с "крести..

Пример с "крестиком" давайте приведу свой код:

Вызов:

PROC Main( cPar ) 
     LOCA nSel:=1, cTxt:="", nI:=1, nSelWork:=1, dD:=Date(), aArr:={}, nSell:=0, nC:=0, lRep:=FALSE  //  sOp:="9990" 
  
     #include "cfg.ch"   // Глобальные системные установки пакета и конфигурация по df. 
     cnProgramm      := "ОперативПр" 
  
     //  Вставка моего заголовка и блокирование закрытия окна 
     pWind("Программа оперативного учёта")

Кусок модуля (извините не могу скрывать текст):

 
 * -------------------------------------------------------------------------- 
 *   Замена заголовка окна Win и вставка исходника на С 
 PROC pWind(cTxt) 
     LOCA hW 
  
     SetConsoleTitle(Alltrim(cTxt)) 
     hW  := FindWindows(Alltrim(cTxt)) 
     DeleteCloseButton(hW) 
     RETU 
  
 * --------------------------------------------------------------------------- 
 *   Вставляю сишный код 
 #PRAGMA BEGINDUMP 
 #include "hbapi.h" 
 #include "windows.h" 
  
 HB_FUNC(SETCONSOLETITLE) 
 { 
 hb_retl( SetConsoleTitle( hb_parc(1) ) ); 
 } 
  
 HB_FUNC(FINDWINDOWS) 
 { 
 hb_retnl( (LONG) FindWindows(NULL,hb_parc(1)) ); 
 } 
  
 HB_FUNC(DELETECLOSEBUTTON) 
 { 
 DeleteMenu( GetSystemMenu((HWND) hb_parnl(1), FALSE), SC_CLOSE, MF_BYCOMMAND ) ; 
 DrawMenuBar( (HWND) hb_parnl(1) ) ; 
 } 
  
 #PRAGMA ENDDUMP

 Отправлено: 04.04.10 21:02. Заголовок: AndreyZh пишет: 1. ..

AndreyZh пишет:

цитата:

1. Ошибка функций Upper/Lower исправлена лишь в версии xHarbour декабря 2009

Не вижу проблемы
AndreyZh пишет:

цитата:

2. Выявили (постоянные вопросы на импортных форумах) источник 9001 внутренней ошибки - порождающий пример: DbSelectArea(0) DbSetIndex(1)

И вообще всех с праздником , лично я пошел бай

 Отправлено: 04.04.10 21:04. Заголовок: AndreyZh пишет: pWi..

AndreyZh пишет:

цитата:

pWind("Программа оперативного учёта")

По ходу кирилица не катит !
На англицком пишите.

 Отправлено: 04.04.10 21:09. Заголовок: AndreyZh пишет: hb_..

AndreyZh пишет:

цитата:

hb_retnl( (LONG) FindWindows(NULL,hb_parc(1)) );

В WinAPI не функции FindWindows. Есть FindWindow.

Dima пишет:

цитата:

По ходу кирилица не катит !

Угу. Сейчас проверить не могу, но с русскими буквами можно попробывать HB_OEMtoANSI().

 Отправлено: 04.04.10 21:11. Заголовок: По ходу кирилица не ..

цитата:

По ходу кирилица не катит ! На англицком пишите.

Та же самая ошибка при компиляции unresolved external _FindWindows

 Отправлено: 04.04.10 21:12. Заголовок: AndreyZh пишет: Та ..

AndreyZh пишет:

цитата:

Та же самая ошибка при компиляции unresolved external _FindWindows

Вы ответы читаете? :)

 Отправлено: 04.04.10 21:14. Заголовок: PSP пишет: Вы ответ..

PSP пишет:

цитата:

Вы ответы читаете? :)

Похоже что нет

 Отправлено: 04.04.10 21:14. Заголовок: PSP Спасибо всё за..

PSP

Спасибо всё заработало, в том числе с кириллицей! Причём всё подсказывали правильно - я неправильно переписал

 Отправлено: 04.04.10 21:16. Заголовок: PSP пишет: Угу. Сей..

PSP пишет:

цитата:

Угу. Сейчас проверить не могу, но с русскими буквами можно попробывать HB_OEMtoANSI().

Работает однако.

PS
я бай ;)

 Отправлено: 04.04.10 22:50. Заголовок: AndreyZh пишет: А э..

AndreyZh пишет:

цитата:

А это вообще при чём? Нет желания помогать - обойдусь! Но хотя бы прочитали сообщение прежде чем "наезжать"!

Очень хороший способ помочь себе, а также, возможно, другим - написать маленький (по возможности) самодостаточный пример, который приводит к возникновению ошибки.
На всякий случай уточняю - это не пример

цитата:

DbSelectArea(0) DbSetIndex(1)

Ваши сообщения я читаю, но иногда вы так туманно изъясняетесь, что не одному мне становится непонятно, о чем это вы

цитата:

Нет функции создания файла Hb_create. О DbCreate речь ? Да. Посоветовали (Andrey) http://clipper.borda.ru/?1-4-0-00000527-000-60-0 использовать Да есть она. HB_FTempCreate() Смотри документацию, т.е. xHarbour Language Reference Guide 1.1 Ерунда - последовал Вашему совету (написал сам).

 Отправлено: 05.04.10 04:15. Заголовок: AndreyZh пишет: ц..

AndreyZh пишет:
[quote]
цитата:
Окно на полном экране занимает меньше половины экрана:

А это уже Harbour... Вызываете свойства окна Windows/вкладка расположение/ставите высоту строки 25.... [quote]

Это каждый пользователь сам будет делать ? Круто !
Я бы хотел посмотреть на бухгалтеров (в возрасте), как они это будут делать ...

Почему то ни у одной GUI Windows программы - пользователь не настраивает эти параметры !
На Харборе под терминалкой можно сразу настроить этот параметр и не мучить пользователя !

 Отправлено: 05.04.10 09:25. Заголовок: Петр Забыл еще об о..

Петр
Забыл еще об одной ОЧЕНЬ ВАЖНОЙ, выявленной особенности. Индексы NTX у xHarbour и Clipper НЕСОВМЕСТИМЫ, следовательно невозможно совмествное использование индексированных БД системами на разных языках.

цитата:

Почему то ни у одной GUI Windows программы - пользователь не настраивает эти параметры !

Уже приводил пример Far версии до 2.0 (где они это исправили)...

цитата:

На Харборе под терминалкой можно сразу настроить этот параметр и не мучить пользователя !

Подскажите, плиз как это сделать!


P.S. Ответьте пожалуйста на личное послание.

 Отправлено: 05.04.10 10:23. Заголовок: AndreyZh пишет: Под..

AndreyZh пишет:

цитата:

следовательно невозможно совмествное использование индексированных БД системами на разных языках.

Да выкинь уже Клипер нафиг, нечего держаться за него !


AndreyZh пишет:

цитата:

Подскажите, плиз как это сделать!

Писал ранее !
SETMODE(24,80)

AndreyZh пишет:

цитата:

Ответьте пожалуйста на личное послание.

Здесь на форуме, я не нашел как отвечать на личное послание !
Отвечаю здесь: могу только сопровождать в установке и консультациях, куда и что зайти.
Я не владею бухгалтерскими навыками, да и уже возраст не тот чтоб заморачиваться с этим.

 Отправлено: 05.04.10 10:38. Заголовок: Писал ранее ! SETM..

цитата:

Писал ранее ! SETMODE(24,80)

Попробую.

цитата:

Здесь на форуме, я не нашел как отвечать на личное послание

Почта в профиле реальная?

 Отправлено: 05.04.10 10:55. Заголовок: AndreyZh пишет: Заб..

AndreyZh пишет:

цитата:

Забыл еще об одной ОЧЕНЬ ВАЖНОЙ, выявленной особенности. Индексы NTX у xHarbour и Clipper НЕСОВМЕСТИМЫ, следовательно невозможно совместное использование индексированных БД системами на разных языках.

Они даже более несовместимы, чем вы себе представляете. К примеру, в [x]Harbour можно создавать мультитеговые NTX индексы c помощью rddInfo( RDDI_MULTITAG, .t., "DBFNTX" )
Еще dbf от [x]Harbour могут содержать поля не совместимые с Clipper: AUTOINC (+), ROWVERSION (^), TIME (T), DAYTIME (@), MODTIME (=)
Еще есть несовместимости по блокировкам.
Препроцессор в xHarbour, как вы подметили, не совсем Clipper compatible. Отчасти это из-за введения новых опреаторов HAS, IS, LIKE, отчасти из-за того, что в самом Clipper PP содержатся ошибки.
И т.д., и т.п.
Привыкайте к новым реалиям, или переходите на другой xBase продукт.

 Отправлено: 05.04.10 11:00. Заголовок: AndreyZh пишет: Поч..

AndreyZh пишет:

цитата:

Почта в профиле реальная?

Да.

 Отправлено: 05.04.10 11:33. Заголовок: Писал ранее! SETMOD..

цитата:

Писал ранее! SETMODE(24,80)

Проверил на моей модификации Dbu от 5.2 - работает.. Спасибо!


Петр

Конечно мой ответ напоминает флуд, но ещё раз прошу - не хотите реально помочь, тогда и не нужно делать сообщения...

цитата:

Они даже более несовместимы, чем вы себе представляете. К примеру, в [x]Harbour можно создавать мультитеговые NTX индексы c помощью rddInfo( RDDI_MULTITAG, .t., "DBFNTX" ) Еще dbf от [x]Harbour могут содержать поля не совместимые с Clipper: AUTOINC (+), ROWVERSION (^), TIME (T), DAYTIME (@), MODTIME (=)

Мне пока интересна поддержка средств Clipper, а не расширенные возможности xHarbour. Всё это может быть в будущем!

цитата:

Еще есть несовместимости по блокировкам.

Здесь обсуждение не со мной, а с Филатовым. "Его ответ: Индексные файлы xHarbour и Clipper несовместимы и ЗАПРЕЩЕНО их одновременное использование." Это так, но возможно совместное использование баз данных (см. описание ниже).

Мне же нужна или абсолютная совместимость или ничего!

цитата:

Препроцессор в xHarbour, как вы подметили, не совсем Clipper compatible. Отчасти это из-за введения новых опреаторов HAS, IS, LIKE, отчасти из-за того, что в самом Clipper PP содержатся ошибки.

Повторюсь! Мне нужна поддержка xHarbour средств, которые я использовал в Clipper и расширенные возможности xHarb пока не парят. Если и препроцессор Clipper 5.01 и содержал ошибки, то они мной давно "обойдены".

цитата:

Привыкайте к новым реалиям, или переходите на другой xBase продукт.

Хамить не надо! Да? Куда и зачем мне переходить позвольте решение принимать самому на основании глубокого изучения альтернатив, серьёзного тестирования средств разработки, надёжности инструмента, перспективных пожеланий пользователей....

 Отправлено: 05.04.10 11:54. Заголовок: AndreyZh пишет: Хам..

AndreyZh пишет:

цитата:

Хамить не надо!

Да никто и не хамит ! Дельный совет ! Или хватит возгласов насчет "не совместимости" с Клипером !!!
Я тоже советую выкинуть Клипер и сосредоточиться на хХарборе.
Я уже писал ранее, после перехода на хХарбор, я МЕНЬШЕ стал тратить время на сопровождение пользователей !
Т.к. программа на хХарборе НАМНОГО СТАБИЛЬНЕЙ работает, чем на Клипере !!!