Отправлено: 30.11.14 11:22. Заголовок: Перевожу Clipper на консольный Харбор

Добрый день, уважаемое сообщество!

Перехожу на Харбор, собрал программу, начинаю бороть ошибки несовместимости кода, по мере появления вопросов надеюсь на скорую помощь.
Заранее всем участникам огромное спасибо!

 Отправлено: 30.11.14 11:31. Заголовок: ошибка построения индекса

Работаю с ADS
Выдает ошибку построения индекса на основе данных связаных таблиц.
Код имеет следующий вид:

use pricen new
index on kod to price
use sklad new
set relation to s_kodt into PRICEN
index on PRICEN->cena to s_cena

Ошибка:

цитата:

Error ADSNTX/3010 Error 3010: Unknown alias name used with field name in index key expression.: s_cena

И еще одна ошибка при использовании сложных выражений в индексе:

INDEX ON c_kod+IF(c_kod<0,0,IF(C_KOD==qmag,10000,if(fil>0,20000,if(osn,-10000,40000)))) TO clientss

В Clipper все работает

 Отправлено: 30.11.14 15:01. Заголовок: MIKHAIL пишет: Выда..

MIKHAIL пишет:

цитата:

Выдает ошибку построения индекса на основе данных связаных таблиц.

Из справки по ADS
Problem: An error occurred in the Advantage Expression Engine parser. A field name within the key expression was aliased by an unknown alias name.
Solution: Advantage only supports aliases for the current work area. If an alias to another work area is referenced, this error will result. Verify the alias name is spelled properly.

PS:Если не секрет , какой смысл здесь от ADS, может на CDX перейти? возможно даже и пошустрее будет. Тем более вроде как ADS заставляете работать в режиме совместимости с NTX который не умеет автоматически открывать эти индексы и соответственно не оптимизирует запросы ( за исключение наличия словаря данных).
ADS хорош как компактный сервер БД c его оптимизацией SQL запросов и конечно оптимизацией фильтров используя ПРОСТЫЕ индексы, во всяком случае я для себя это определил как главное . Если использовать локальный сервер ADS ( ADSLocal32.dll) - то только как тест или с числом пользователей не более 10,
Уже давно обхожусь без SET RELATION и сложных INDEX, все достаточно шустро делает сам сервер , по команде SELECT * FROM ... JOIN .. WHERE создается рабочая область собранная из нескольких таблиц как надо.

PPS: Может сразу на GUI ?

 Отправлено: 30.11.14 21:48. Заголовок: Haz Advantage only..

Haz

цитата:

Advantage only supports aliases for the current work area

ADS для Clipper и Harbor по разному работают?

цитата:

Если не секрет , какой смысл здесь от ADS

Смысл в том что проект написан с использованием ADS и работает много лет, в сети до 30 активных пользователей, несколько кассовых терминалов в гипермаркете с количеством транзакций десятки тысяч в день. Задача стоит перевести проект с минимальными переделками, а потом уже оптимизировать.

цитата:

Уже давно обхожусь без SET RELATION и сложных INDEX, все достаточно шустро делает сам сервер , по команде SELECT * FROM ... JOIN .. WHERE

Речь идет о БД SQL ? Или ADS поддерживает запросы SQL ? Если в ADS есть такая возможность, где можно почитать про это поподробнее? Или лучше пример использования запросов и разбор ответов. С MySQL дело имел, такой подход интересно было бы использовать

цитата:

PPS: Может сразу на GUI ?

В смысле? Забить на проект который писался 20 лет и с нуля новый разработать? Даже если не с нуля, нужно перевести то что есть, а потом уже GUI наверное...

 Отправлено: 30.11.14 22:02. Заголовок: MIKHAIL пишет: ADS ..

MIKHAIL пишет:

цитата:

ADS для Clipper и Harbor по разному работают?

Скорее всего по разному, вроде мелькала такая инфа, но утверждать не стану
Для Clipper версия с 8 не поддерживается а уже текущая 11 .

MIKHAIL пишет:

цитата:

Речь идет о БД SQL ? Или ADS поддерживает запросы SQL ? Если в ADS есть такая возможность, где можно почитать про это поподробнее?

ADS поддерживает SQL почитать можно в справке. http://devzone.advantagedatabase.com/dz/webhelp/Advantage11.1/index.html
Примеры вроде Dima тут не раз выкладывал можно поискать по форуму.
MIKHAIL пишет:

цитата:

Забить на проект который писался 20 лет

GUI морда не сильно увеличит время перевода с Clipper , но согласен в console привычнее и быстрее будет

 Отправлено: 01.12.14 08:06. Заголовок: Клиент ads для клипп..

Клиент ads для клиппера поддерживает индексацию на клиенте, а все 32-х разрядные клиенты ads, в том числе харбор-клиент, не поддерживают. Поэтому такое создание индекса не сработает. Но это вопрос ads, а не харбора, и вопрос неразрешимый.

 Отправлено: 01.12.14 12:30. Заголовок: MIKHAIL пишет: И ещ..

MIKHAIL пишет:

цитата:

И еще одна ошибка при использовании сложных выражений в индексе: INDEX ON c_kod+IF(c_kod<0,0,IF(C_KOD==qmag,10000,if(fil>0,20000,if(osn,-10000,40000)))) TO clientss В Clipper все работает

А если попробовать:
INDEX ON c_kod+IIF(c_kod<0,0,IIF(C_KOD==qmag,10000,iif(fil>0,20000,iif(osn,-10000,40000)))) TO clientss

 Отправлено: 01.12.14 14:52. Заголовок: VitalClip пишет: А ..

VitalClip пишет:

цитата:

А если попробовать: INDEX ON c_kod+IIF(c_kod<0,0,IIF(C_KOD==qmag,10000,iif(fil>0,20000,iif(osn,-10000,40000)))) TO clientss

Не работает. Ну это не так принципиально, перепишу.

 Отправлено: 01.12.14 21:34. Заголовок: Еще вопросики: 1.Как..

Еще вопросики:
1.Как запустить консольный Harbor в виде системной службы, в скрытом виде?
2.Можно ли одновременно использовать ADS в одной программе по IP и IPX протоколу, по выбору? Мне нужно конектиться к БД которая на NW лежит и одновременно подключаться к удаленной БД через интернет.
3.Можно ли в консольной версии Harbor подключить такие библиотеки как FR ?

 Отправлено: 01.12.14 22:01. Заголовок: MIKHAIL пишет: 3.Мо..

MIKHAIL пишет:

цитата:

3.Можно ли в консольной версии Harbor подключить такие библиотеки как FR ?

Да. У меня задачи с ним с 2008 года работают, только у меня больше всего на хХарборе, но это не принципиально.
Демонстрашки можешь скачать с ... Облом, нет уже сайта http://www.paritetsoft.ru/frh.htm
Ну тогда предлагаю мои примеры и просмотр файлов FR на МиниГуи смотри здесь https://cloud.mail.ru/public/39dd9efd1bbe/FastReport40
Если что заинтересует, пиши.

 Отправлено: 01.12.14 22:23. Заголовок: 1.Как запустить конс..

цитата:

1.Как запустить консольный Harbor в виде системной службы, в скрытом виде?

В исходниках есть пример службы core\contrib\hbnetio\utils\hbnetio

 Отправлено: 02.12.14 11:18. Заголовок: Error BASE/1005 Mes..

Error BASE/1005 Message not found: TBCOLUMN:_COLORBLOC

Где посмотреть справку по Tbrowse ?

 Отправлено: 02.12.14 12:48. Заголовок: Справку можно посмот..

Справку можно посмотреть в ng по клипперу, а по поводу этой ошибки: замените выражение вида

<obj>:colorbloc

на

<obj>:colorblock

 Отправлено: 02.12.14 13:54. Заголовок: Pasha пишет: замени..

Pasha пишет:

цитата:

замените выражение вида <obj>:colorbloc на <obj>:colorblock

Спасибо, глаз замылился, а в Clipper и так работало...

Еще вопросы:
Я так понимаю что цветовая палитра может быть более расширенная? Где посмотреть полную карту палитры?
цвет вида g*+/b не мигает, как исправить?
Какие можно шрифты использовать в консоли?

 Отправлено: 03.12.14 15:32. Заголовок: Какие можно шрифты использовать в консоли?

Моноширинные. Courier New, Lucida Console,Consolas..

 Отправлено: 05.12.14 13:46. Заголовок: petr707 пишет: Моно..

petr707 пишет:

цитата:

Моноширинные. Courier New, Lucida Console,Consolas..

А работать со шрифтами так же как и в clipper? или там своя система управления шрифтами?

 Отправлено: 05.12.14 14:04. Заголовок: для WVT терминала hb..

для WVT терминала
hb_gtInfo(HB_GTI_CODEPAGE, 255)
hb_gtInfo(HB_GTI_FONTNAME, 'Lucida Console')
hb_gtInfo(HB_GTI_FONTQUALITY,4)

тут размеры
HB_GtInfo(HB_GTI_FONTSIZE , nFontH)
HB_GtInfo(HB_GTI_FONTWIDTH, nFontW)

 Отправлено: 23.02.15 13:59. Заголовок: Dima пишет: для WV..

Dima пишет:

цитата:

для WVT терминала hb_gtInfo(HB_GTI_CODEPAGE, 255) hb_gtInfo(HB_GTI_FONTNAME, 'Lucida Console') hb_gtInfo(HB_GTI_FONTQUALITY,4) тут размеры HB_GtInfo(HB_GTI_FONTSIZE , nFontH) HB_GtInfo(HB_GTI_FONTWIDTH, nFontW)

Не понимаю как использовать шрифты различных размеров одновременно? Мне нужно стандартный шрифт и крупнее в 5 -6 раз
Как могу поменять толщину шрифта?
Как изменить шрифт у в полноэкранном режиме?
Как автоматически запускть в полноэкранном режиме?

 Отправлено: 23.02.15 14:19. Заголовок: у себя делаю так при..

у себя делаю так примерно.

 
 #REQUEST HB_GT_WVT 
  
  
 hb_gtInfo(HB_GTI_FONTNAME, 'Lucida Console') 
 hb_gtInfo(HB_GTI_FONTQUALITY,4) 
  
 nWidth  := HB_GtInfo(HB_GTI_DESKTOPWIDTH) 
 nHeight := HB_GtInfo(HB_GTI_DESKTOPHEIGHT) 
  
 nFontH  := Int(nHeight/25) 
 nFontW  := Int(nWidth /80)  
  
 HB_GtInfo(HB_GTI_FONTSIZE , nFontH) 
 HB_GtInfo(HB_GTI_FONTWIDTH, nFontW) 
  
 setmode(25,80) 
  
 

Но это будет не полноэкранный режим а окно.
Что касается атрибутов шрифта , копни "hbgtinfo.ch"

 Отправлено: 23.02.15 14:55. Заголовок: Пример самодостаточн..

Пример самодостаточный , поиграйся с ним .

 
  
 #include "hbgtinfo.ch" 
  
 proc main   
 local nWidth,nHeight,nFontH,nFontW 
  
 REQUEST HB_GT_WVT_DEFAULT 
   
 REQUEST HB_LANG_RU866  
 HB_LANGSELECT("RU866") 
  
 REQUEST HB_CODEPAGE_RU866 
 hb_cdpSelect( "RU866" ) 
  
  hb_gtInfo(HB_GTI_MAXIMIZED,.t.)  
   
  hb_gtInfo(HB_GTI_FONTNAME, 'Lucida Console')  
  hb_gtInfo(HB_GTI_FONTQUALITY,4)  
    
  nWidth  := HB_GtInfo(HB_GTI_DESKTOPWIDTH)  
  nHeight := HB_GtInfo(HB_GTI_DESKTOPHEIGHT)  
    
  nFontH  := Int(nHeight/25)  
  nFontW  := Int(nWidth /80)   
    
  HB_GtInfo(HB_GTI_FONTSIZE , nFontH)  
  HB_GtInfo(HB_GTI_FONTWIDTH, nFontW)  
    
  setmode(25,80)  
  
 ? "TEST" 
 ? "ПРОВЕРКА" 
 wait 
  
 return 
 

 Отправлено: 24.02.15 09:19. Заголовок: Речь идет о БД SQL..

цитата:

Речь идет о БД SQL ? Или ADS поддерживает запросы SQL ? Если в ADS есть такая возможность, где можно почитать про это поподробнее?

Я использую локальный ADS для формирования данных для некоторых отчетов, примерно так

цитата:

AdsConnect('C:\') nSele:=Select() ; Select (nSele+1) AdsCreateSQLStatement('QUERY', 2) sQlStr:='SELECT DISTINCT w.n_otdel,k.kucha,k.Nomk,k.fam,k.im,k.ot,k.pol,k.birth_date,'; + 'k.DOC_TYPE,k.DOC_SER,k.DOC_NUM,k.NO_POLIS,k.SMK_CODE,'; + 'k.POLIS_SER,k.POLIS_NUM,k.EDIN_POLIS,k.NASP_CODE2,W.S_TYPE '; + ' FROM '+Par2+'ARC\Karta kT, '; + Par2+'ARC\SWIST W,'; + Par2+'KLIENT K '; + ' where ((kT.Unicum = K.Unicum) and (kT.N_TALON = W.N_TALON)'; +' AND (K.N_TARIF =0 ) AND (kT.Oplata =2) AND '; + IIF(i=1,' (W.S_TYPE ='+chr(39)+'R'+chr(39)+') ',' (W.S_TYPE <> '+chr(39)+'R'+chr(39)+') '); + ') ORDER BY 4,5' AdsPrepareSQL(sQlStr) AdsExecuteSQL(sQlStr) nRecCount:=RecCount() if nRecCount > 0

Создание индексов только в RDD CDX.
Конфликтов не замечено, хХарбоур 1
Если у тебя много подключений? то желательно НЕ локальный сервер ADS

 Отправлено: 24.02.15 10:19. Заголовок: Vlad04 пишет: nRecC..

Vlad04 пишет:

цитата:

nRecCount:=RecCount() if nRecCount > 0

А какой формат возвращаемых данных? Как их разбирать?

 Отправлено: 24.02.15 12:15. Заголовок: Еще вопросы: - можно..

Еще вопросы:
- можно ли вставить картинку в Tbrowse ?
- где можно посмотреть примеры подключения к MYSQL ?

 Отправлено: 24.02.15 14:23. Заголовок: А какой формат возвр..

цитата:

А какой формат возвращаемых данных? Как их разбирать?

Это та же DBF. Формат возвращаемых данных = Формату исходных полей, которые учавствуют в запросе.

 Отправлено: 24.02.15 14:25. Заголовок: MIKHAIL пишет: А ка..

MIKHAIL пишет:

цитата:

А какой формат возвращаемых данных? Как их разбирать?

1) в результате выполнения SQL запроса получаем открытую рабочую область с записями по условию SQL
2) разбирать как обычную раб область к примеру while !eof() ...skip ... end

MIKHAIL пишет:

цитата:

где можно посмотреть примеры подключения к MYSQL

в примерах MiniGui есть несколько , вот один
C:\MiniGUI\SAMPLES\BASIC\MYSQL\

Vlad04 - опередил

 Отправлено: 24.02.15 14:44. Заголовок: MIKHAIL пишет: - мо..

MIKHAIL пишет:

цитата:

- можно ли вставить картинку в Tbrowse ?

Картинки показывать можно но в бровс вставить скорее всего не получится (ну разве что в заголовок) и для
этих целей лучше использовать одну из GUI библиотек.

 Отправлено: 24.02.15 15:43. Заголовок: Dima пишет: Пример ..

Dima пишет:

цитата:

Пример самодостаточный , поиграйся с ним .

А с какими параметрами поиграться? как добиться одновременного использования шрифтов разных размеров?
У меня меняется шрифт на всем экране. А в полноэкранном режиме впечатление такое что справа еще отступ символов на 10, 80 символов выводит не до конца экрана...

 Отправлено: 24.02.15 15:52. Заголовок: MIKHAIL пишет: как ..

MIKHAIL пишет:

цитата:

как добиться одновременного использования шрифтов разных размеров?

Боюсь ни как...

 Отправлено: 24.02.15 16:22. Заголовок: Dima пишет: Боюсь н..

Dima пишет:

цитата:

Боюсь ни как...

т.е. только под GUI можно?

 Отправлено: 24.02.15 16:30. Заголовок: MIKHAIL пишет: т.е...

MIKHAIL пишет:

цитата:

т.е. только под GUI можно?

Да

 Отправлено: 24.02.15 17:59. Заголовок: Не совсем так..

Видимо, все-таки можно иметь разные шрифты в разных открытых окнах.
В пределах одного окна - только один размер.

 Отправлено: 24.02.15 18:01. Заголовок: petr707 пишет: Види..

petr707 пишет:

цитата:

Видимо, все-таки можно иметь разные шрифты в разных открытых окнах.

да это понятно что в разных можно

 Отправлено: 27.02.15 17:36. Заголовок: Как подключить мышку..

Как подключить мышку для WVT терминала ?

 Отправлено: 27.02.15 19:01. Заголовок: mousetst.prg

Можно начать с mousetst.prg из комплекта HBxx

 Отправлено: 28.02.15 09:39. Заголовок: petr707 пишет: Можн..

petr707 пишет:

цитата:

Можно начать с mousetst.prg из комплекта HBxx

А как привязать к prompt, achoice, get ? Неужели нет встроенного механизма обработки стандартных объектов?
Работа с тачскрином аналогична мышке?

 Отправлено: 28.02.15 10:06. Заголовок: petr707 пишет: В пр..

petr707 пишет:

цитата:

В пределах одного окна - только один размер.

А может есть какие нибудь функции вывода текста в графике другим шрифтом, как в clipper например:
GWRITEAT(X , Y , cString, nColor, LLG_MODE_SET, aFont)

 Отправлено: 28.02.15 10:13. Заголовок: harbour\contrib&..

harbour\contrib\gtwvg\

Там есть примеры

 Отправлено: 28.02.15 13:53. Заголовок: А так ли уж полезна мышка в VWT...

Achoice и get будут реагировать на мышку, как только откроется прием событий от мышки INKEY_ALL
Для GET мышка может дать проблему за счет произвольного доступа к любому поле на форме,
если специально об этом не позаботиться.
Клавишками - только последовательный(ну или контролируемый программой) обход полей ввода на форме.
Мышка для VWT это все же "эрзац".
Возможно, есть смысл выбрать сразу GUI (графику с мышкой), если тип задачи этого сильно требует.

 Отправлено: 28.02.15 21:25. Заголовок: petr707 пишет: есл..

petr707 пишет:

цитата:

если тип задачи этого сильно требует.

Просто хочется под планшет интерфейс адаптировать, никогда с мышкой не требовалось работать...
А как открыть прием событий INKEY_ALL для prompt, get, achoice и tbrowse ?

 Отправлено: 28.02.15 22:54. Заголовок: EVENTMASK

Поиск по EVENTMASK в этой конфе даст наводки. И смотрите примеры PRG из комплекта поставки Harbour

 Отправлено: 01.03.15 15:07. Заголовок: petr707 пишет: В пр..

petr707 пишет:

цитата:

В пределах одного окна - только один размер.

Видимо все же можно выводить другой шрифт с помощью Wvt_DrawLabel

 Отправлено: 01.03.15 21:46. Заголовок: MIKHAIL Если время ..

MIKHAIL
Если время есть и желание то конечно лучше все делать в GUI. Согласен с Петром.

 Отправлено: 31.08.15 06:28. Заголовок: Можно ли запустить н..

Можно ли запустить на выполнение программу без открытия окна? Или в скрытом режиме, либо в трее ?

 Отправлено: 31.08.15 07:22. Заголовок: Можно

Нужно уточнить нужные условия запуска - зачем без окна ? Чтобы картинка не мелькала ?
Задачу, свернутую в трей, оператор может поднять и снять(удалить).

1) Запуск от любой обертки вида START ..c параметрами , RUNAS и т.д.
2) По Заданию планировщика Windows - разовому или постоянно существующему, особенно если от другого профиля
3) Написать на Harb свой запускатель с нужными свойствами
4) Окно может быть, но быть невидимым. Это устроит ?

 Отправлено: 31.08.15 08:35. Заголовок: MIKHAIL пишет: Мож..

MIKHAIL пишет:

цитата:

Можно ли запустить на выполнение программу без открытия окна?

Да , как сервис.

 Отправлено: 31.08.15 15:53. Заголовок: Тоже без окна do wh..

Тоже без окна

do while .T.
бла-бла-бла
sysrefresh()
enddo

 Отправлено: 02.09.15 17:16. Заголовок: petr707 пишет: Нужн..

petr707 пишет:

цитата:

Нужно уточнить нужные условия запуска - зачем без окна ?

Головная программа будет запускать на выполнение вспомогательную программу, работа с интерфейсом которой не нужна совсем, а выполняться она может некоторое время и само по себе окно может мешать или кто то попробует его закрыть. Поэтому нужно его как то скрыть от пользователя.

Dima пишет:

цитата:

Да , как сервис.

А вчем принципиальная разница от обычного приложения и как это реализовано? Какие управляющие команды запускают программу как сервис?

fil пишет:

цитата:

do while .T. бла-бла-бла sysrefresh() enddo

Не совсем понял в чем тут соль? я так понимаю это для MiniGUI что то? У меня консольная программа.

Хотелось бы просто как то отключить консоль, что бы небыло окна

 Отправлено: 02.09.15 17:46. Заголовок: MIKHAIL пишет:Хотело..

MIKHAIL пишет:

цитата:

Хотелось бы просто как то отключить консоль, что бы небыло окна

Не делайте команд (функций) очистки и вывода на экран - окна консоли не будет, т.е. CLS, CLEAER SCREEN, Say .., ? ...

 Отправлено: 03.09.15 11:09. Заголовок: SergKis Спасибо..

SergKis Спасибо

 Отправлено: 13.09.15 14:06. Заголовок: Собираю проект, выда..

Собираю проект, выдает такую ошибку:
Compiling 'nakl.prg'...
nakl.prg(4211) Error E0001 Illegal character '\x00'
nakl.prg(4211) Error E0030 Syntax error "syntax error at ''"
2 errors

смотрю файл:
4210:return ret
4211:
4212:
4213:func get_gtd(cl,gt,x,y)

что ему не нравиться?
строки удалял и добавлял, смещается ссылка ошибки на номер строки и все. В clipper все без проблемм собирается.

 Отправлено: 13.09.15 14:19. Заголовок: MIKHAIL пишет: что ..

MIKHAIL пишет:

цитата:

что ему не нравиться?

С ходу не могу сказать в чем ошибка. Выдели в отдельный файл эту функцию и попробуй скомпилировать.
Если не получается, то давай этот кусок (т.е. полностью эту функцию)

 Отправлено: 13.09.15 15:14. Заголовок: MIKHAIL пишет: nakl..

MIKHAIL пишет:

цитата:

nakl.prg(4211) Error E0001 Illegal character '\x00'

Была похожая штука.
Это у тебя вкрался левый символ.
С помощью редактора FAR manager , посмотри файл в разных кодировках и увидишь бяку.

Например:
Текст набран в кодировке OEM (866) и не компилится , переключаемся в кодировку ANSI (1251) ,
наблюдаем левый символ(ы) , валим их(его) , возвращаемся в кодировку OEM (866) , и всё прекрасно
компилится.

 Отправлено: 13.09.15 17:30. Заголовок: Dima пишет: Текст н..

Dima пишет:

цитата:

Текст набран в кодировке OEM (866) и не компилится , переключаемся в кодировку ANSI (1251) , наблюдаем левый символ(ы) , валим их(его) , возвращаемся в кодировку OEM (866) , и всё прекрасно компилится.

Точно, открыл в другом редакторе, увидел, удалил все нормуль. Спасибо.

 Отправлено: 13.09.15 17:58. Заголовок: Вызов без окна..

Использую EXECANDWAIT отсюда click here
и hb_processRun

 Отправлено: 15.09.15 09:17. Заголовок: ───..

────────────────────────────────────────────────────
Странная ошибка вылезает при работе через ADS:

Error ADSNTX/5068 Error 5068: There is no current record.
Called from TBROWSE:READRECORD(0)
Called from TBROWSE:STABILIZE(0)

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

ADS 7 Novell 6.5 по IPX

В Clipper эта-же база работает без ошибок.

 Отправлено: 15.09.15 09:21. Заголовок: MIKHAIL пишет: Erro..

MIKHAIL пишет:

цитата:

Error ADSNTX/5068 Error 5068: There is no current record

индекс пересоздавал ?

 Отправлено: 15.09.15 11:47. Заголовок: Dima пишет: индекс ..

Dima пишет:

цитата:

индекс пересоздавал ?

Да

 Отправлено: 27.10.15 08:28. Заголовок: Как можно управлять ..

Как можно управлять выводом лога ошибок программы?

 Отправлено: 27.10.15 08:35. Заголовок: MIKHAIL пишет: Как ..

MIKHAIL пишет:

цитата:

Как можно управлять выводом лога ошибок программы?

Посмотрите в исходниках Харбора файл errsys.prg

 Отправлено: 27.10.15 11:33. Заголовок: MIKHAIL пишет: Как ..

MIKHAIL пишет:

цитата:

Как можно управлять выводом лога ошибок программы?

Set( _SET_HBOUTLOG[, <cFileName>] ) -> <cOldFileName>

 Отправлено: 27.10.15 12:23. Заголовок: Dima а у меня вообще..

Dima а у меня вообще при ошибке выполнения, файл лога не создается. Что нужно добавить в код?

 Отправлено: 27.10.15 13:57. Заголовок: MIKHAIL Проверил у ..

MIKHAIL
Проверил у себя , таки да , не создается лог в случае падения.

PS
Можно вот так xhb_errorsys() где то в самом начале проги.

 Отправлено: 27.10.15 19:06. Заголовок: Dima Так работает н..

Dima
Так работает но имя лога не меняется.

 Отправлено: 27.10.15 19:15. Заголовок: MIKHAIL Пробуй XHB_..

MIKHAIL
Пробуй XHB_ERRORLOG( [<cFileName>], [<lAppend>] ) -> { cOldName, lOldAppend }

 Отправлено: 27.10.15 19:27. Заголовок: hb_out.log - только Internal Errors

Насколько помню, в hb_out.log пишутся только серьезные внутренние ошибки,
которые нельзя перехватить в ERRSYS.PRG.

Можно взять к себе текст ERRORSYS() из ..\src\rtl\errsys.prg
и модицировать у себя выводом в нужный файл-лог

Можно даже взять ERRORSYS из Clipper

 Отправлено: 28.10.15 15:42. Заголовок: Как можно сделать ра..

Как можно сделать разбор XML файла? где можно список функций и описание почитать?

 Отправлено: 28.10.15 15:44. Заголовок: MIKHAIL Начни с htt..

MIKHAIL
Начни с http://clipper.borda.ru/?1-4-0-00000708-000-0-0-1328625125

 Отправлено: 30.10.15 20:31. Заголовок: MIKHAIL пишет: Как ..

MIKHAIL пишет:

цитата:

Как можно сделать разбор XML файла? где можно список функций и описание почитать?

Мои соболезования... Самому пришлось с 20.09.15 с нуля изучать данную "тему", в связи с появлением ЕГАИС в розничной торговле - в теории, на примитивных примерах всё кажется понятным, а в более сложных задачах

1. По документации есть классы TXML*, которые позволяют парсить и собирать хмл файлы, к данным классам приведено множество примеров использования переменных и методов - это наверное АЗБУКА. На "импортных" форумах в основном "разжовывают" примеры к этим классам

2. Реальность. Мной в процессе освоения данной темы создана и развивается программа. При изучении тщательно описывал в тексте программы нюансы и "засады" данных классов для xHarbour. Ее (программы) исходные текста, примеры разбираемых и порождаемых хмл файлов выложены для первого релиза на "странице" программы: http://olegon.ru/showthread.php?t=23079 - можете использовать для освоения... съэкономите кучу времени

 Отправлено: 10.11.15 15:17. Заголовок: Так и не смог понять..

Так и не смог понять откуда возникает ошибка Error ADSNTX/5068 Error 5068: There is no current record
Она появляется только под Harbour +ADS (Local или Remote), при чем под Harbor+DBFNTX и Clipper+ADS все работает без проблемм...
У кого есть какой то опыт на этот счет?
Появляется в момент перемещения например dbseek() или dbgoto()... при чем не всегда...
Может ADS + Harbour отслеживает выполнение set relations более строго чем для clipper ?

 Отправлено: 10.11.15 16:02. Заголовок: "Плохой" индекс ?

Похоже на поведение при индексе , который не соответствует таблице.
Есть индексные выражения из связанных по relation областей ?
Сделайте проверку индекса после свала.

 Отправлено: 10.11.15 17:29. Заголовок: petr707 пишет: Похо..

petr707 пишет:

цитата:

Похоже на поведение при индексе , который не соответствует таблице. Сделайте проверку индекса после свала.

Так дело в том что с одной базой работают приложение на Clipper и та же самая переведенная на Harbour. Так вот Clipper ведет себя нормально
Причем тестил как на ADS7+Novell IPX так и на ADS10+Linux IP, везде одна борода... даже на LocalAds это происходит

petr707 пишет:

цитата:

Есть индексные выражения из связанных по relation областей ?

Да, есть, буду пробовать их отключать, но больно муторно выискивать где нужно будет править код....

 Отправлено: 10.11.15 17:46. Заголовок: Одновременная работа Clipper app и Harbour app ?

.. работают приложение на Clipper и та же самая переведенная на Harbour..

Одновременно ? Лучше не делать.
Переправу надо перейти.

 Отправлено: 10.11.15 17:56. Заголовок: petr707 пишет: Одно..

petr707 пишет:

цитата:

Одновременно ? Лучше не делать.

Так и отдельно, без Clipper приложений тот же косяк...

 Отправлено: 10.11.15 21:48. Заголовок: Как найти глюк ?

Старый способ - контрольная группа - хоть в биологии хоть в космонавтике

1) Сделать тестовую среду как копию (реплику) основной БД
2) Провести полную начальную индексацию
3) использовать только новый софт
4) повторять все проводки как в рабочей базе со старым софтом
5) после первого свала - всем стоп
6) ну и изучайте по всем срезам состояние этого контрольного примера

 Отправлено: 11.11.15 09:08. Заголовок: Ads имеет два клиент..

Ads имеет два клиента: старый клипперовский 16-разрядный, и Ace. Они работают не одинаково.
Проблема может быть именно в ace, даже не в харборе.

 Отправлено: 11.11.15 15:04. Заголовок: вообще у меня была с..

вообще у меня была связка Clipper+ADS и Harbour+ADS
обе проги юзали одну и ту же базу.
версии ADS (ACE и для Clipper) были 5.5 и работало нормально

 Отправлено: 11.11.15 19:03. Заголовок: Скорее всего моя дог..

Скорее всего моя догадка была правильной, клиент под Харбор проверяет соответствие выполнения set relation, если передвинуть в связаной таблице на другую запись, будет эта ошибка. Убрал все relations пока полет нормальный...

 Отправлено: 11.11.15 22:21. Заголовок: MIKHAIL Сделай тест..

MIKHAIL
Сделай тестовый не большой пример.

 Отправлено: 12.11.15 11:21. Заголовок: Dima пишет: Сделай ..

Dima пишет:

цитата:

Сделай тестовый не большой пример.

USE TABLE1 INDEX TABLE1
USE TABLE2
SET RELATIONS TO KOD INTO TABLE1
DBGOTO(10)

далее если делать перемещение по table1 из текущей активной области, где значение индексного
выражения не равно значению TABLE2->KOD, будет ошибка ADS 5068
т.е. например
table1->(dbgoto(n))
table1->(dbseek(n))

 Отправлено: 12.11.15 13:11. Заголовок: Как использовать фун..

Как использовать функцию AdsIsConnectionAlive() ?

ADSHANDLE:=AdsConnect(cPath)
? AdsIsConnectionAlive(ADSHANDLE) // .F.

ADSHANDLE:=AdsConnection(cPath)
? AdsIsConnectionAlive(ADSHANDLE) // .F.

ADSHANDLE:=AdsConnect60(cPath)
? AdsIsConnectionAlive(ADSHANDLE) // .F.

Что не так?

 Отправлено: 12.11.15 13:25. Заголовок: MIKHAIL пишет: ADSH..

MIKHAIL пишет:

цитата:

ADSHANDLE:=AdsConnect(cPath)

Не верно ловишь хендл
Лови его так ADSHANDLE:=AdsConnection()
после AdsConnect(cPath) если он вернет TRUE

 Отправлено: 12.11.15 14:31. Заголовок: Dima пишет: Лови ег..

Dima пишет:

цитата:

Лови его так ADSHANDLE:=AdsConnection() после AdsConnect(cPath) если он вернет TRUE

Не получается:
? AdsConnect(cPath) // .T.
ADSHANDLE:=AdsConnection()
? AdsIsConnectionAlive(ADSHANDLE) // .F.

Чего то ей не хватает.

Еще вопрос по AdsMgGetUserNames ()
Она выдает массив с информацией о пользователях несколько раз об одних и тех-же подключениях.
С чем это может быть связано?

 Отправлено: 12.11.15 14:55. Заголовок: MIKHAIL пишет: ADSH..

MIKHAIL пишет:

цитата:

ADSHANDLE:=AdsConnection()

что вернуло тут ?

какой тип подключения (ADS_LOCAL_SERVER , ADS_REMOTE_SERVER, ADS_AIS_SERVER ) ?

IPX/SPX , TCP/IP ?

 Отправлено: 12.11.15 15:02. Заголовок: MIKHAIL пишет: Еще ..

MIKHAIL пишет:

цитата:

Еще вопрос по AdsMgGetUserNames () Она выдает массив с информацией о пользователях несколько раз об одних и тех-же подключениях. С чем это может быть связано?

Возможно отвалилась связь с ADS а коннект живет по умолчанию 120 сек.
Или не совсем верно завершаешь программу. В конце вставь перед QUIT
AdsDisconnect(ТВОЙ ХЕНДЛ)
AdsApplicationExit()

 Отправлено: 12.11.15 15:04. Заголовок: Dima пишет: что вер..

Dima пишет:

цитата:

что вернуло тут ? какой тип подключения (ADS_LOCAL_SERVER , ADS_REMOTE_SERVER, ADS_AIS_SERVER ) ? IPX/SPX , TCP/IP ?

LINUX TCP/IP ADS_REMOTE_SERVER

? ADSHANDLE:=AdsConnection() // 3966024

 Отправлено: 12.11.15 15:06. Заголовок: MIKHAIL пишет: LINU..

MIKHAIL пишет:

цитата:

LINUX TCP/IP ADS_REMOTE_SERVER

с этим зверем не работал
с сервером вынь AdsIsConnectionAlive работает нормально
попробуй в ADS.INI в секции [SETTINGS]
прописать
USE_TCP_IP=1

 Отправлено: 12.11.15 16:42. Заголовок: MIKHAIL пишет: Чего..

MIKHAIL пишет:

цитата:

Чего то ей не хватает.

версия сервера какая ?

 
 HB_FUNC( ADSISCONNECTIONALIVE ) /* Determine if passed or default connection is still valid */ 
 { 
 #if ADS_LIB_VERSION >= 800 
    UNSIGNED16 bConnectionIsAlive = 0; 
  
    AdsIsConnectionAlive( HB_ADS_PARCONNECTION( 1 ), &bConnectionIsAlive ); 
  
    hb_retl( bConnectionIsAlive != 0 ); 
 #else 
    hb_retl( HB_FALSE ); 
 #endif 
 } 
 

 Отправлено: 12.11.15 17:21. Заголовок: Haz пишет: версия с..

Haz пишет:

цитата:

версия сервера какая ?

Хороший вопрос

 Отправлено: 12.11.15 17:27. Заголовок: Haz пишет: версия с..

Haz пишет:

цитата:

версия сервера какая ?

LINUX 10.03

 Отправлено: 12.11.15 18:03. Заголовок: MIKHAIL пишет: LINU..

MIKHAIL пишет:

цитата:

LINUX 10.03

Это версия ADS под LINUX или версия LINUX ?

 Отправлено: 12.11.15 18:19. Заголовок: Это версия ADS под L..

Это версия ADS под LINUX

 Отправлено: 12.11.15 18:22. Заголовок: MIKHAIL Можно попро..

MIKHAIL
Можно попробовать "покурить" их форум на предмет ADSISCONNECTIONALIVE + LINUX
http://devzone.advantagedatabase.com/dz/content.aspx?

 Отправлено: 13.11.15 10:35. Заголовок: Dima пишет: LINUX 1..

MIKHAIL пишет:

цитата:

LINUX 10.03

а клиентская часть ( DLL на компе пользователя ) тоже версии 10 ?
там есть adsver.exe - проверь на всякий случай

 Отправлено: 13.11.15 17:47. Заголовок: Haz пишет: а клиент..

Haz пишет:

цитата:

а клиентская часть ( DLL на компе пользователя ) тоже версии 10 ? там есть adsver.exe - проверь на всякий случай

Эта утилита показывает версию клиентской DLL, ее можно просто в свойствах файла увидеть, версии совпадают 10.0.0.3
ADS 64 и Linux 64 разрядный

 Отправлено: 13.11.15 18:00. Заголовок: Установи тестовый A..

Установи тестовый ADS Server под WIN , хотя бы на своем компе и проверь AdsIsConnectionAlive() там.
у меня подключение такое ( сервер под win64 клиент под win32 )

adsConnect60( сDict, nServerType, cUser, cUserPass, 0, @hConnection )
AdsIsConnectionAlive(hConnection) дает .T.

 Отправлено: 13.11.15 18:07. Заголовок: Haz пишет: adsConne..

Haz пишет:

цитата:

adsConnect60( сDict, nServerType, cUser, cUserPass, 0, @hConnection ) AdsIsConnectionAlive(hConnection) дает .T.

Не запутывай человека словарями . При обычном коннекте у меня тоже работает AdsIsConnectionAlive.

 Отправлено: 13.11.15 18:11. Заголовок: А нужно какие значе..

А нужно какие значения прописывать для сDict, nServerType, cUser, cUserPass, hConnection ?

 Отправлено: 13.11.15 18:13. Заголовок: Dima пишет: Не запу..

Dima пишет:

цитата:

Не запутывай

я как пример привел, и в мыслях не было путать )))
MIKHAIL пишет:

цитата:

версию клиентской DLL, ее можно просто в свойствах файла увидеть

возможно и так , не проверял. А по чеснаку она в текстовом виде в файле сразу после строки EsIAx!@# которую ADS использует как заголовок регистрационной информации.

 Отправлено: 13.11.15 18:14. Заголовок: MIKHAIL Ставь вот э..

MIKHAIL
Ставь вот эту версию _http://devzone.advantagedatabase.com/dz/content.aspx?key=20&Release=16&Product=25&Platform=10
(последнюю 10.x)
Там столько багов устранено по сравнению 10.03 в том числе и с индексами.

 Отправлено: 13.11.15 18:15. Заголовок: Haz пишет: А нужно ..

MIKHAIL пишет:

цитата:

А нужно какие значения прописывать для сDict, nServerType, cUser, cUserPass, hConnection ?

это параметры конекта к словарю данных , пример тута
https://github.com/harbour/core/blob/master/contrib/rddads/tests/datad.prg

Дима посоветовал проще , без словаря обычным AdsConnect( в путь)

 Отправлено: 14.11.15 11:31. Заголовок: Попробовал по разном..

Попробовал по разному, под WIN32XP и ServerR8 64 на ADS 10.10 и ADS 9.10 и Linux 64 ADS64 10.10, везде функция выдает .F.
Причем соединение с сервером устанавливается даже по AdsIsServerLoaded(), поэтому у меня были множественные соединения из одной программы.

 Отправлено: 14.11.15 11:40. Заголовок: MIKHAIL Попробуй те..

MIKHAIL
Попробуй тест (у меня работает)

 
 Proc main 
 local adshandle:=0 
  
 AdsSetServerType(2) 
  
  if  AdsConnect("c:\") 
 adshandle:=AdsConnection() 
 ? AdsIsConnectionAlive(adshandle) 
  endif 
  
 return 
 

 Отправлено: 14.11.15 11:53. Заголовок: Dima пишет: if A..

Dima пишет:

цитата:

if AdsConnect("c:\") adshandle:=AdsConnection() ? AdsIsConnectionAlive(adshandle) endif

у меня все равно выдает .F.
Может какие то установки или настройки ADS нужны?

 Отправлено: 14.11.15 12:35. Заголовок: MIKHAIL а если этот..

MIKHAIL
а если этот тест запустить непросредственно на винсервере r8 64 , где живет ADS.

 Отправлено: 14.11.15 12:40. Заголовок: MIKHAIL пишет: Попр..

MIKHAIL пишет:

цитата:

Попробовал по разному, под WIN32XP и ServerR8 64 на ADS 10.10 и ADS 9.10 и Linux 64 ADS64 10.10, везде функция выдает .F.

1 Поставь ADS Server на СВОЙ комп ( на котором запускаешь тестовую программу от Димы )
2 убедись что на компе в системной папке винды , в путях поиска и в папке с тестом не было старых версий DLL от ADS
потом проверь тест который дал Дима

 Отправлено: 14.11.15 13:07. Заголовок: MIKHAIL Что выдает ..

MIKHAIL
Что выдает
? AdsVersion(3)

у меня
Advantage 32-bit Client Engine for Windows, v10.1

 Отправлено: 14.11.15 13:50. Заголовок: Dima пишет: ? AdsVe..

Dima пишет:

цитата:

? AdsVersion(3)

Advantage 32-bit Client Engine for Windows, v10.10

Тестил на своем и на сервере, везде одно и тоже

 Отправлено: 14.11.15 14:25. Заголовок: MIKHAIL Да уж , пол..

MIKHAIL
Да уж , полтергейст какой то ))
А RddAds переcобирал c новым ACE ?

ps
может файер что то блочит........

 Отправлено: 14.11.15 14:55. Заголовок: Dima пишет: А RddAd..

Dima пишет:

цитата:

А RddAds переcобирал c новым ACE ?

Я пока не очень разбираюсь в этом, подскажите как это сделать пошагово?