Форум » [x]Harbour » Windows7 (32 64) & xHarbour » Ответить
Windows7 (32 64) & xHarbour
Oskar_AAA: Добрый день, коллеги. Выходит ошибка Сигнатура проблемы: Имя события проблемы: APPCRASH Имя приложения: INGAZ.Exe Версия приложения: 0.0.0.0 Отметка времени приложения: 00000000 Имя модуля с ошибкой: INGAZ.Exe Версия модуля с ошибкой: 0.0.0.0 Отметка времени модуля с ошибкой: 00000000 Код исключения: c0000005 Смещение исключения: 000143a1 Версия ОС: 6.1.7601.2.1.0.256.1 Код языка: 1049 Дополнительные сведения 1: 75a3 Дополнительные сведения 2: 75a3ab59ef75079b188fef7e382e8db8 Дополнительные сведения 3: 3ad9 Дополнительные сведения 4: 3ad9aa1a59cd6f29175773fe7ccc92cd Блок по записи данных в БД, суммирование, и запись результата в другую БД (вывод на экран Dbedit.Ch)
Ответов - 8
Dima: Версия Harbour ? RDD ? Код где вылетает........
Haz: Oskar_AAA пишет: Имя события проблемы: APPCRASH Скорее всего это не связано с кодом на Harbour , ошибка APPCRASH говорит что задача умерла и дальше не может выполняться. Причин для этого может быть множество и большинство не связаны с программой на харбуре, например это : -Вирусы; -Приложение не совместимо с операционкой; -Ошибки реестра; -Старые версии драйверов; -Отсутствие некоторых дополнительных программ или компонентов для операционной системы. -Нет прав доступа на операцию и куча других .... как лечить - ссылок в интернете много, в основном они касаются обслуживания и оптимизации операционки к примеру эта http://howwindows.ru/windows/7/appcrash-kak-ispravit-v-windows-7 Dima пишет: Код где вылетает........ на это тоже нужно обратить внимание, особенно если вылетает не только на W7
Dima: Haz пишет: -Вирусы; + антивирусы
Haz: Dima пишет: антивирусы это одно и тоже
Oskar_AAA: Добрый вечер... Блок кода... Do Case Case Skl_Kod==K_ESC Return DE_ABORT // вылетает тут Case Skl_Kod==K_F1 Restore Screen from F_001S3 Return DE_REFRESH Case Skl_Kod==K_F4 Select DATASKL Set Order To 2 Seek Kode_Skl+Dtos(Date_Inp1) If !Found() Append Blank Repl Code_Skl With Kode_Skl,Data With Date_Inp1 DbCommit() Endif Rec_Baza:=Recno() If Rlock() @ 21,2 Clear To 21,77 @ 21,2 Say Date_Inp1 Ostatn_Kg1=Ostatn_Kg If Ostat_Wxd2>0 @ 21,13 Say Transform(Ostat_Wxd2,'@z 99999999.99') Else If Day(Date_Inp1)==1 @ 21,13 Get Ostatn_Kg1 Pict '99999999.99' SetCursor(1) Read SetCursor(0) Repl Ostatn_Kg With Ostatn_Kg1 DbCommit() God_Skl=Year(Date_Inp1) Mec_Skl=Mont(Date_Inp1) Select MECDSKL Set Order To 1 Seek Kode_Skl+Str(God_Skl,4)+Str(Mec_Skl,2) If !Found() Append Blank Repl Code_Skl With Kode_Skl,God With God_Skl,Mec With Mec_Skl Endif If Rlock() Repl Ostatn_Kg With Ostatn_Kg1 Endif DbCommit() UnLock Endif Endif Kode_Pos=Sprav_Pos(11,1,0) Restore screen from F_001S3 If Val(Kode_Pos)>0 Set Color To (Scr_Col6) @ 19,1 Clear To 22,78 @ 19,1 To 22,78 Set Color To (Scr_Col9) @ 20,2 Say POSTAV->Name_Pos Set Color To (Scr_Col6) Select DATAPOS Set Order To 1 Seek Dtos(Date_Inp1)+Kode_Pos+Kode_Skl If !Found() Append Blank Repl Data With Date_Inp1,Code_Pos With Kode_Pos,Code_Skl With Kode_Skl Endif If Rlock() @ 21,27 Get Priobr_Kg Pict '999999.99' @ 21,37 Get Priobr_Som Pict '9999999.99' SetCursor(1) Read SetCursor(0) DbCommit() UnLock S_Priobr_Kg=0 S_Priobr_Sm=0 Select DATAPOS Set Order To 1 Set SoftSeek On Seek Dtos(Date_Inp1) Set SoftSeek Off Do While !Eof().And.Data==Date_Inp1 If Code_Skl==Kode_Skl S_Priobr_Kg=S_Priobr_Kg+Priobr_Kg S_Priobr_Sm=S_Priobr_Sm+Priobr_Som Endif DbSkip() Enddo Select DATASKL Goto Rec_Baza Repl Priobr_Kg With S_Priobr_Kg,Priobr_Som With S_Priobr_Sm DbCommit() UnLock Calc_Skl() Skl_DayScr1() // расчет итогов Endif Endif Endif Restore screen from F_001S3 Skl_DayScr2() // вывод на экран результатов расчета Select MAIN2 Goto Top Return DE_REFRESH Case Skl_Kod==K_F5.And.MAIN2->Data==Date_Inp1 Select DATASKL Set Order To 2 Seek Kode_Skl+Dtos(Date_Inp1) If Found().And.Rlock() Delete Record Recno() Select DATAPOS Set Order To 1 Set SoftSeek On Seek Dtos(Date_Inp1) Do While !Eof().And.Data==Date_Inp1 If Code_Skl==Kode_Skl If Rlock() Delete Record Recno() Endif UnLock Endif DbSkip() Enddo Endif Select DATASKL Unlock Skl_DayScr1() Restore screen from F_001S3 Skl_DayScr2() Select MAIN2 Return DE_REFRESH Endcase
Oskar_AAA: xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6476) Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/ RDD - REQUEST HB_CODEPAGE_RU866 REQUEST DBFCDX,DBFFPT HB_SetCodePage( "RU866" ) RDDSetDefault('DBFCDX')
Dima: Oskar_AAA пишет: xHarbour Compiler build 1.2.1 а если посвежее версию взять... Oskar_AAA пишет: Return DE_ABORT // вылетает тут слегка погуглил и да были какие то проблемы с этим , в Dbedit()
Oskar_AAA: Добрый день, проблему решил - немного доработал блок по вызову вложенного DBEDIT() и были пересекающиеся переменные.... Спасибо, друзья
полная версия страницы