Отправлено: 13.06.06 22:30. Заголовок: Странные ошибки !

Не стого ни с сего возникают непредсказуемые ошибки при компиляции кода . Траблы заключаются в том что компилятор выкидывает на совершенно нормальных строках ошибки вроде неправильного синтаксиса и т д . Странно - но куски кода уже не менялись там несколько лет . Собственно что-то в модуле правлю - но не там где ошибка .... Выгружаю из памяти NG.EXE - и всё становится нормально . Код ЕХЕшника уже под 1 мег . Блинкер 7 CLIPPER 5.3 .... Что скажут ГУРУ ?

Следующая ошибка - уже видно где-то я недосмотрел или не дочитал :
Есть индекс CDX и вот иногда (пока не выяснил) выскакивает что-то вроде - "повреждены данные" .... это когда пытаюсь изненить какое-то поле - например логическое значение ...

 Отправлено: 14.06.06 07:47. Заголовок: Re:

Основной памяти не хватает для компиляции при загруженном NG скорее всего.
Юзай weg - Expert Guide. Norton Guide Reader For Windows
http://www.davep.org/norton-guides/
http://www.davep.org/norton-guides/WEGSetup.exe

 Отправлено: 14.06.06 10:49. Заголовок: Re:

Это ерунда!
Вот когда начнет писать memory overbloker, тогда придеться помучиться: дробить PRG, уменьшать количество definoв, задавать rmakeу дополнительные параметры /XS /XW....

 Отправлено: 14.06.06 11:42. Заголовок: Re:

... или отправиться к xHarbour, как Patric

Виталий,
"повреждены данные":
подробнее: система, сеть, среда...

 Отправлено: 14.06.06 14:55. Заголовок: Re:

saulius Могу скинуть на мыло кусочек кода с описанием - может поможешь ?
А ошибка - _DBFCDX/8006 - Обнаружено разрушение данных .
Вкратце :
&& Так я организую индексный файл
USE "JROPT" ALIAS "LANJROPT" && Открыли журнал ОПТОВЫХ ПРОДАЖ
INDEX ON CODE TAG CODE TO ("LANJROPT") FOR !DELETED() && код товара
INDEX ON DATEP TAG DATEP TO ("LANJROPT") FOR !DELETED() && дата продажи
INDEX ON OPTCODE TAG OPTCODE TO ("LANJROPT") FOR !DELETED() && код оптовика
INDEX ON DATEP TAG DATEPU TO ("LANJROPT") FOR !DELETED() UNIQUE && все даты продаж (для быстрого меню ДАТЫ)
INDEX ON OPL TAG OPL TO ("LANJROPT") FOR !DELETED() && Олачено/нет
INDEX ON STR(OPTCODE,5,0)+DTOC(DATEP) TAG DPROD TO ("LANJROPT") FOR !DELETED() UNIQUE && все уникальные даты для каждого клиента - для меню КЛИЕНТ->ДАТА
INDEX ON X_KASSE TAG XKASSE TO ("LANJROPT") FOR !DELETED() && номера кассовых чеков
INDEX ON OPTCODE TAG OPTNEOPL TO ("LANJROPT") FOR (!DELETED() .AND. !OPL ) && по кодам клиентов только НЕОПЛАЧЕННОГО ТОВАРА
SET INDEX TO ("LANJROPT")
**********************************
&& Убиваю стандартный обработчик ошибок
bErrorHandler:={|oError| MyError(oError) }
bLastHandler:=ERRORBLOCK(bErrorHandler)


SELECT TABLE && Тут у нас список товара на оплату
&& CODE:N:6 - код товара
&& DAT:D:8 - дата продажи
GO TOP
DO WHILE !EOF() && пробегаем по списку на оплату
S_C:=CODE && Код товара
S_D:=DAT && Дата

SELECT LANJROPT
SET ORDER TO
SET ORDER TO TAG OPTCODE && На индекс КЛИЕНТЫ
SET SCOPE TO (KLIENT) && Видим только нужного
GO TOP
DO WHILE !EOF() && Пробегаем по данным нашему клиенту
&& МЕТКА-1
IF DATEP=S_D .AND. CODE=S_C .AND. !OPL .AND. OPTCODE=KLIENT && товар соответствует ??
RLOCK()
NEOPL:=(KOL*CENA)-SUMOPL && Неоплаченная сумма для этой детали
XX:=OST_DEN-NEOPL
IF XX<0 && Денег на оплату меньше, чем нужно
REPLACE LANJROPT->OPL WITH .F. && признак что не до конца оплачен
REPLACE DOPL WITH DATE() && дата оплаты
REPLACE SUMOPL WITH SUMOPL+OST_DEN && прибавляем денюжки к тому что уже могло быть
New_OPL:=New_OPL+OST_DEN && Сумма уже разнесенная
OST_DEN:=0 && Нет больше денег
DBUNLOCK()
ELSE && Денег на оплату этой позиции хватает
&& Проверяем нужно-ли оплачивать полностью или нет
REPLACE DOPL WITH DATE() && Дата оплаты
DOB:=(KOL*CENA)-SUMOPL && Добавленная сумма
REPLACE SUMOPL WITH SUMOPL+DOB
OST_DEN:=OST_DEN-DOB && Уменьшим остаток денег на сумму добавленных денег
New_OPL:=NEW_OPL+DOB && Добавили сумму на сумму добавленных денег
&& МЕТКА-2
REPLACE LANJROPT->OPL WITH .T. && Признак что эта позиция оплачена полностью
ENDIF
EXIT && раз этот товар проплатили
&& значит нефиг искать дальше
ENDIF
SELECT LANJROPT && Ищем дальше
SKIP
ENDDO
SELECT TABLE && Следующая деталька на оплату
SKIP
ENDDO
*************************

вот тут если в алиасе LANJROPT сделать какие-либо

движения (SKIP,GO TOP , DBCLOSEAREA()...) - возникает ошибка :
_DBFCDX/8006 Обнаружено разрушение данных:OPL
Я предполагаю что когда вошли в оплату (МЕТКА-1) по условию : !OPL - тоесть
признак что товар не оплачен - а затем в теле делаем изменение этого флага (МЕТКА-2)
и вываливается .

 Отправлено: 14.06.06 15:54. Заголовок: Re:

Pager пишет:

цитата:

Это ерунда!

тогда как это объяснить ?

Виталий пишет:

цитата:

Выгружаю из памяти NG.EXE - и всё становится нормально

 Отправлено: 14.06.06 17:07. Заголовок: Re:

Видать что-то там в памяти мешает - может переменные какие "накладываются" ? Но это ошибки скорее системные . Меня интересует тема - как убрать [ОШИБКА _DBFCDX/8006 ]?

 Отправлено: 14.06.06 17:29. Заголовок: как убрать

1. после создания CDX ОБЯЗАТЕЛЬНО закрыть DBF - это относится ко всем CDX-драйверам
2. CDX в 5.3 кривые. лучше пользовать 5.2e + Six (или xHarbour)

 Отправлено: 14.06.06 21:02. Заголовок: Re:

Попробую - но вроде я так и делаю ! Дело в том что создание индекса - рано утром при первом пуске .... да и другие станции в сети НИЧЕГО не создают - а все равно вылетает . И именно при изменении ЛОГИЧЕСКОГО поля ....

 Отправлено: 14.06.06 21:04. Заголовок: Re:

А дрова у меня не DBFCDX а именно COMIX : _DBFCDX

 Отправлено: 14.06.06 23:37. Заголовок: Re:

Виталий,
в ветке ELSE (где МЕТКА-2) невижу DBUNLOCK()

 Отправлено: 15.06.06 09:49. Заголовок: Re:

Я просто порезал текст - там действительно небыло DBUNLOCK() . Я поставил - всё равно "ошибается" !
Блин - надоело мне заглушки выставлять на ERROR ! Стек жрёт !

 Отправлено: 15.06.06 12:12. Заголовок: Re:

а строить индекс по DTOC - неправильно. надо пользовать DTOS
_Date_Format_ меняется - и кирдык.
UNIQUE индексы также неприменимы (обсуждалось уж на форуме).

 Отправлено: 15.06.06 13:11. Заголовок: Re:

Виталий,
Можно сделать кусок программы и локально получить стабильную ошибку ?
Надо выяснить суть проблеммы.

Какие заглушки ?

 Отправлено: 15.06.06 14:06. Заголовок: Re:

Заглушки - это в смысле перехват ошибок на процедуру польщователя ...
Кстати а что там про UNIQUE ??? Неприменимы в смысле когда ? Если вместе с логическим полем (составной индекс) или как ?
По поводу построения DTOC-DTOS - у меня в программе формат ДАТЫ не меняется .... извините - 10 лет работает

 Отправлено: 15.06.06 14:45. Заголовок: про UNIQUE - это пора в FAQ, однако

PROC main
FIELD qq
dbCreate( "test1", {{'qq','C',10,0}})
use test1
aEval( Array(5),{|_1,_2| _1 := StrZero(_2,10), ;
__dbAppend(), Field->qq := _1, ;
__dbAppend(), Field->qq := _1 })
index on qq to test1 UNIQUE FOR !DELETED()
dbGoTop()
dbDelete() // удаляю запись 1 (qq == '0000000001')
// замечу, что есть запись 2 (qq == '0000000001')
dbEval({|| QOut(Field->qq) }) // где '0000000001' от 2-й записи?
return

 Отправлено: 15.06.06 15:02. Заголовок: Re:

PROC main
FIELD qq
LOCAL i
SET DELETED OFF
dbCreate( "test1", {{'qq','C',10,0}})
use test1
aEval( Array(5),{|_1,_2| _1 := StrZero(_2,10), ;
__dbAppend(), Field->qq := _1, ;
__dbAppend(), Field->qq := _1 })
index on qq to test1 UNIQUE FOR !DELETED()
index on qq to test2 UNIQUE ADDITIVE
dbGoTop()
dbDelete() // удаляю запись 1 (qq == '0000000001')
// замечу, что есть запись 2 (qq == '0000000001')
For i := 1 to 2
?
OrdSetFocus(i)
dbEval({|| QOut(Field->qq), QQOut(STR(RecNo())+IIF(Deleted(),' Deleted','')) })
Next
return

 Отправлено: 15.06.06 15:40. Заголовок: Re:

SergeJa И что из твоего кода ?
Когда делаю удаление - привычка SKIP(0) ....

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

Про SKIP(0) не понял.
10 лет программе?
Мой тестик запусти. Sapienti sat.

 Отправлено: 15.06.06 18:02. Заголовок: Re:

SKIP(0) - иногда чтоб рефрешик был записей ...
Моя программулинка уже с 1995 года крутится .... начиналось с 5.0 и дошло до 5.3 . Думал уйти в винду ... да появился PageScript ... и пришлось остаться ....
Про тестик расскажи поподробнее - а то не понял что где должно показать ?

 Отправлено: 15.06.06 18:23. Заголовок: Re:

рефреш бессмысленен в данном случае.

для сборки теста сохранить мой примерчик в qqq.prg и ...
clipper qqq.prg /m/n/a/w
rtlink fi qqq
-------
результат

0000000002 3
0000000003 5
0000000004 7
0000000005 9

0000000001 1 Deleted
0000000002 3
0000000003 5
0000000004 7
0000000005 9

----
Диагноз уникальным индескам ставь сам.
В анамнезе: после удаления записи данные индекса не соответствуют желаемым.
Надеюсь, что твоя программа не обслуживает нужды стратегических объектов (живу я на северо-западе РФ :) ).
Успехов!

 Отправлено: 16.06.06 00:18. Заголовок: Re:

Тоесть нет смысла держать в индексе !DELETED() !

 Отправлено: 16.06.06 09:35. Заголовок: Re:

Вот сегодня попробовал построить индексы без !DELETED() .... результат тот-же ! ошибка не ушла

 Отправлено: 16.06.06 12:38. Заголовок: Re:

Виталий пишет:

цитата:

Тоесть нет смысла держать в индексе !DELETED() !

Упс. Я - о другом. Более простой пример.

PROC main
FIELD qq
SET DELETED ON
dbCreate( "test1", {{'qq','C',1,0}})
USE test1
// добавляю две записи
APPEND BLANK
REPLACE qq WITH '1'
APPEND BLANK
REPLACE qq WITH '1'
INDEX ON qq TO test2 UNIQUE
GO TOP
// тут видна одна запись. первая
? 'Цикл до удаления записи #1'
WHILE .NOT. EOF()
? 'Запись',RECNO(),'из',LASTREC()
SKIP
ENDDO
? 'Удаление записи #1'
GO TOP
DELETE // запись #1 удалена
GO TOP
// а тут EOF. несмотря на наличие неудаленной записи #2 ее нет в индексе
? 'Цикл после удаления записи #1.'
WHILE .NOT. EOF()
? 'Запись',RECNO(),'из',LASTREC()
SKIP
ENDDO
? 'Неудалённая запись #2 не видна, не так ли?'
return
// теперь рассмотрим твой индекс, например "все даты продаж (для быстрого меню ДАТЫ)"
INDEX ON DATEP TAG DATEPU TO ("LANJROPT") FOR !DELETED() UNIQUE
допустим, сегодня стряслись две продажи (#1 и #2). сообразно, в файле две записи с одинаковым значением в DATEP.
В индекс с тегом "DATEPU" попадает продажа #1 (в моём примере это 'Цикл до удаления записи #1'). После ее удаления (уверен, что такое бывает в жизни) продажа #2 будет не видна ('Цикл после удаления записи #1.') и в "быстром меню ДАТЫ" будет чепуха.

цитата:

ошибка не ушла

говорят, помогает: http://www.bubny.ru/

 Отправлено: 16.06.06 13:10. Заголовок: Re:

Ха ! Дело в том что я чаще всего делаю так - значения УДАЛЯЕМЫХ полей обнуляю - тоесть коды товаров или клиентов =0 а даты REPLACE DATEP WITH CTOD("00/00/00")
"это чтоб индексы правились . Ну и конечно DELETE . вот и все хитрости !

 Отправлено: 16.06.06 16:47. Заголовок: Re:

Это правильно, но програмка с ошибкой 8006 и базой было бы чудесно!

 Отправлено: 16.06.06 17:05. Заголовок: Re:

в смысле - скинуть для теста ???

 Отправлено: 26.06.06 14:14. Заголовок: Re:

Так тема ушла в никуда . Жаль .

 Отправлено: 28.06.06 12:29. Заголовок: Re:

Виталий пишет:

цитата:

Так тема ушла в никуда . Жаль .

чем тебя не удовлетворили ответы?

 Отправлено: 28.06.06 12:53. Заголовок: Re:

Так и не ушла проблема с ошибкой . Не понял в чем ошибка
Неуже-ли из-за того что :
при изменении значения записи - если именно эта запись была в другом ключе как UNIQUE - её уже не находит ?
Тогда зачем везде описывается что
"при изменении значения - обновляются значения индексов "

Что теперь перекраивать без индексов UNIQUE ?????

 Отправлено: 28.06.06 13:05. Заголовок: Re:

тебе ответили - не используй стандартный DBFCDX - ОН ГЛЮЧНЫЙ

 Отправлено: 28.06.06 13:06. Заголовок: Re:

2) ФАК - индексы UNIQUE должны строится для РАЗОВЫХ запросов. Сделал, чет-то там посчитал и выкинул. Эти индексы НЕЛЬЗЯ использовать, если база изменяется.

 Отправлено: 28.06.06 17:39. Заголовок: Re:

а зачем UNIQUE? собрать список уникальных ключей - просто

LOCAL aKey := {}, cKey
dbGoTop()
DO While !EOF()
cKey := sx_KeyData() // или &(IndexKey())
AADD( aKey, cKey )
ADDASCII(@cKey,1)
DBSEEK(cKey,.T.)
EndDO

 Отправлено: 30.06.06 16:28. Заголовок: Re:

У меня CLIPPER 5.3 : SX_KEYDATA() Это SIX ?

 Отправлено: 30.06.06 16:36. Заголовок: Re:

Виталий пишет:

цитата:

SX_KEYDATA() Это SIX ?

ДА

 Отправлено: 04.07.06 11:28. Заголовок: Re:

И что мне с SIXом в 5.3 делать ?

 Отправлено: 04.07.06 17:37. Заголовок: Re:

Виталий пишет:

цитата:

И что мне с SIXом в 5.3 делать ?

Ни чего.
Есть аналогичный продукт , называется COMIX , он дружит с Clipper 5.3

 Отправлено: 05.07.06 15:52. Заголовок: Re:

Так у меня от COMIX драйвер и есть ! _DBFCDX . !!!

 Отправлено: 06.07.06 12:32. Заголовок: Re:

Виталий пишет:

цитата:

И что мне с SIXом в 5.3 делать ?

дык я специально написал:

цитата:

// или &(IndexKey())

 Отправлено: 25.07.06 20:58. Заголовок: уточните по поводу связки Clipper 5.2/5.3 + SIX 3

Эта связка без глюков? У себя обнаружил ошибку в Clipper 5.2e при штатном RDD DBFCDX неправильно строились индексы по ключу, задаваемому, как вычисляемое выражение числового типа. И выдавало в неготорых ситуациях внутреннюю ошибку:
1210 Data and Index files out of sync рассогласования базы и индекса
С SIX 3 эти ошибки исчезли. Но может есть какие-то другие траблы?

 Отправлено: 16.08.06 18:30. Заголовок: Re:

alexmar пишет:

цитата:

1210 Data and Index files out of sync рассогласования базы и индекса С SIX 3 эти ошибки исчезли. Но может есть какие-то другие траблы?

мне жаль тебя огорчать, но в сиксе траблов до хрена и больше
честно говоря, ни хрена он не работает

 Отправлено: 07.09.06 08:30. Заголовок: Re:

suv2 пишет:

цитата:

мне жаль тебя огорчать, но в сиксе траблов до хрена и больше честно говоря, ни хрена он не работает

Вот уже в течение месяца на разных машинах юзаю связку Clipper 5.2e + SIX3 (idx) + родной DBFNTX (ntx) и пока вроде с индексами проблем не возникало.

 Отправлено: 08.09.06 13:43. Заголовок: Re:

увидишь еще...

 Отправлено: 08.09.06 18:29. Заголовок: Re:

Спасибо, утешил
... Вот сегодня с одной конторы кинули мне базу, которую я месяц назад конвертнул dbt -> fpt и пересадил под SIX3 (idx) Порядка десятка записей оказались запорченными. Произошло то же, что иногда раньше происходило и с dbt файлами. В разных записях указатели на номер блока (смещения) в memo файле оказываются одинаковыми. Обычно это происходило при сбоях питания. Буду надеяться, что причина в этом.

Кто работал с fpt файлами, отзовитесь, насколько часто они имеют тенденцию ломаться?

 Отправлено: 08.09.06 18:34. Заголовок: Re:

suv2 пишет:

цитата:

мне жаль тебя огорчать, но в сиксе траблов до хрена и больше честно говоря, ни хрена он не работает

А что тогда делать?

 Отправлено: 14.09.06 10:54. Заголовок: Re:

ХЗ... Попробуй SIxNSX - более стабилен. Но тож таксе, на тройку с минусом. (

Мусор в базах - типичное явление. Ошибки в коде. В клиппер, в сикс, в эмуляции доса виндой...

 Отправлено: 14.09.06 17:14. Заголовок: Re:

suv2 пишет:

цитата:

А что тогда делать?

ну еще адс попробуй))) если времени до хрена)))

но это гиморрой еще тот))) там стока непробиваемых стен, что ой

просто в лоб заменить дефолтный рдд на АДС не получится, придется долго пыхтеть. Опять же нетварь ставить, админы про нее как услышат - истово крестятся.

АДС на IP не юзал, но там свой гиморрой есть, поспрошай

Но АДС работает стабильно, быстро + переваривает большие базы, в отличие от остальных рдд

 Отправлено: 14.09.06 17:53. Заголовок: Re:

suv2 пишет:

цитата:

ну еще адс попробуй

Насколько я знаю, АДС не бесплатен. И потом, если бы это касалось только одной организации. У меня порядка 20 контор, где работают программы

 Отправлено: 14.09.06 17:56. Заголовок: Re:

suv2 пишет:

цитата:

Попробуй SIxNSX

Попробую SIxNSX и еще попробую низкоуровненые блокировки файлов, на время записи, как ты советовал. Если не поможет, буду отказываться от memo.

 Отправлено: 14.09.06 18:13. Заголовок: Re:

Есть старый добрый способ замены мемо полей обычным DBF файлом. Просто мемо запись "нарезается" на записи фиксированной длины. Эти фиксированные записи нумеруются и заносятся в обычный DBF файл. Ключом к записям этого файла служит составной ключ из первичного ключа основного DBF файла и порядковых номеров "нарезанных" мемо записей.

 Отправлено: 14.09.06 19:03. Заголовок: Re:

Григорьев Владимир пишет:

цитата:

Просто мемо запись "нарезается" на записи фиксированной длины

Спасибо, мне уже добые люди подсказали Вообще-то, когда-то давно, когда только встал вопрос о необходимости memo, я тоже думал их заменить таким образом. Но потом попробовал dbt, они показали себя достаточно надежными и я не стал заморачиваться с такими переделками. Но время шло, базы росли и в некоторых конторах начала возникать ошибка переполнения счетчика блоков. И я решил перейти на FPT. И похоже, поторопился, так как FPT начали ломаться...

 Отправлено: 15.09.06 13:02. Заголовок: Re:

alexmar пишет:

цитата:

Насколько я знаю, АДС не бесплатен.

дык и клиппер не бесплатен)

alexmar пишет:

цитата:

И я решил перейти на FPT. И похоже, поторопился, так как FPT начали ломаться...

не драматизируй, люди работают на фпт и ничо, причем по 100 усеров ))) в основном не ломается) если у тебя ломается - может что с ОС не так или с сетью.

Опять же - делай чисты protect mode, любая программа глючит при критически малой доступной памяти.