FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour Close the sistem
Posts: 32
Joined: Thu Sep 20, 2012 07:29 PM
Close the sistem
Posted: Thu Aug 14, 2014 07:16 PM

Good afternoon to all my dear colleagues: D
I'm going through a situation where my system is simply closed form 'not advised' and causing much inconvenience to my customers. I have observed that it generates a file called 'hb_out.log'. In this aquivo find the timeline happened to the time of error, is always 'burst' in some of the functions 'DB ... ()' (dbcommit (), dbAppend (), etc.). The information is brought to me is that the CDX is corrupted (hb_cdxPageKeyLeafBalance:. Corrupted index). Would like to know if any of your friends or even liniares antonio One can help me.
Already I am grateful to everyone's attention.

Ps: I am Brazilian and I'm using the google translator if my 'english' is not good, I apologize. rsrsrsrsrsrsrs
PS: I use Harbour

Posts: 8523
Joined: Tue Dec 20, 2005 07:36 PM
Re: Close the sistem
Posted: Thu Aug 14, 2014 08:15 PM

i suggest you delete the index file and recreate it

Regards.

Jo茫o Santos - S茫o Paulo - Brasil - Phone: +55(11)95150-7341
Posts: 88
Joined: Wed Apr 28, 2010 06:34 PM
Re: Close the sistem
Posted: Fri Aug 15, 2014 12:05 PM

not solve, I'm also having the same problem, first thought was the database class, then the harbour, I particionei my dbf parameters created in the harbour dbf minimized, but once a week is the same problem and all this then I switched to harbour in xHarbour did not have that problem. all say the harbour is better and while I could see is that I gained speed network and running the program, however has this inconvenience.

let's wait some guro the harbour.

Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Close the sistem
Posted: Fri Aug 15, 2014 12:11 PM

You can put the expression you create the index?

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noci贸n del tiempo

El secreto de la felicidad no est谩 en hacer lo que te gusta, sino en que te guste lo que haces
Posts: 88
Joined: Wed Apr 28, 2010 06:34 PM
Re: Close the sistem
Posted: Fri Aug 15, 2014 12:43 PM

sorry arthur enjoy your post, but I have the same difficulty

this is what most corrupts the index, is also the most used

          oTxt1:SetText("Arquivo de Clientes")
          USE arqcli NEW EXCLUSIVE
          IF( lPack, hb_dbPack(), )
          nRegCdx := RecCount() / 100
            oMetCdx:SetTotal( RecCount() )
          oTxt2:SetText("Indexando o Arquivo Por C贸digo")
          INDEX ON cod TAG cod EVAL ( oMetCdx:Set(RECNO()), SysRefresh() ) EVERY nRegCdx
          oTxt2:SetText("Indexando o Arquivo Por Raz茫o Social")
          INDEX ON nom TAG nom EVAL ( oMetCdx:Set(RECNO()), SysRefresh() ) EVERY nRegCdx
          oTxt2:SetText("Indexando o Arquivo Por Nome do Cliente")
          INDEX ON ape TAG ape EVAL ( oMetCdx:Set(RECNO()), SysRefresh() ) EVERY nRegCdx
          oTxt2:SetText("Indexando o Arquivo Por C.N.P.J.")
          INDEX ON cgc TAG cgc EVAL ( oMetCdx:Set(RECNO()), SysRefresh() ) EVERY nRegCdx
          oTxt2:SetText("Indexando o Arquivo Por Munic铆pio")
          INDEX ON mun TAG mun EVAL ( oMetCdx:Set(RECNO()), SysRefresh() ) EVERY nRegCdx
          oTxt2:SetText("Indexando o Arquivo Por Ramo de Atividade")
          INDEX ON atv TAG atv EVAL ( oMetCdx:Set(RECNO()), SysRefresh() ) EVERY nRegCdx
          oTxt2:SetText("Indexando o Arquivo Por Vendedor")
          INDEX ON ven TAG ven EVAL ( oMetCdx:Set(RECNO()), SysRefresh() ) EVERY nRegCdx
Posts: 1467
Joined: Mon Oct 10, 2005 11:26 AM
Re: Close the sistem
Posted: Fri Aug 15, 2014 07:03 PM

I had a similar problem some time ago. At that time, I was using xHarbour.

I changed to Harbour and the problem disappeared.

Regards,

Michel D.
Genk (Belgium)


_____________________________________________________________________________________________

I use : FiveWin for (x)Harbour v. 25.12 - Harbour 3.2.0 (May 2025) - xHarbour Builder (January 2020) - Bcc773

Posts: 88
Joined: Wed Apr 28, 2010 06:34 PM
Re: Close the sistem
Posted: Fri Aug 15, 2014 07:55 PM

mine was just the opposite, but I'm reviewing the entire structure of dbf, inclusion, change ... hope FIND the problem.

Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Close the sistem
Posted: Fri Aug 15, 2014 08:04 PM
Try creating indexes so the first time

Code (fw): Select all Collapse
oTxt1:SetText("Arquivo de Clientes")
USE arqcli NEW EXCLUSIVE
IF( lPack, hb_dbPack(), )
nRegCdx := RecCount() / 100
oMetCdx:SetTotal( RecCount() )
oTxt2:SetText("Indexando o Arquivo Por C贸digo")
INDEX ON cod TAG cod //EVAL ( oMetCdx:Set(RECNO()), SysRefresh() ) EVERY nRegCdx
oTxt2:SetText("Indexando o Arquivo Por Raz茫o Social")
INDEX ON nom TAG nom //EVAL ( oMetCdx:Set(RECNO()), SysRefresh() ) EVERY nRegCdx
oTxt2:SetText("Indexando o Arquivo Por Nome do Cliente")
INDEX ON ape TAG ape //EVAL ( oMetCdx:Set(RECNO()), SysRefresh() ) EVERY nRegCdx
oTxt2:SetText("Indexando o Arquivo Por C.N.P.J.")
INDEX ON cgc TAG cgc //EVAL ( oMetCdx:Set(RECNO()), SysRefresh() ) EVERY nRegCdx
oTxt2:SetText("Indexando o Arquivo Por Munic铆pio")
INDEX ON mun TAG mun //EVAL ( oMetCdx:Set(RECNO()), SysRefresh() ) EVERY nRegCdx
oTxt2:SetText("Indexando o Arquivo Por Ramo de Atividade")
INDEX ON atv TAG atv //EVAL ( oMetCdx:Set(RECNO()), SysRefresh() ) EVERY nRegCdx
oTxt2:SetText("Indexando o Arquivo Por Vendedor")
INDEX ON ven TAG ven //EVAL ( oMetCdx:Set(RECNO()), SysRefresh() ) EVERY nRegCdx


What version of FWH and Harbour are you using?
Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noci贸n del tiempo

El secreto de la felicidad no est谩 en hacer lo que te gusta, sino en que te guste lo que haces
Posts: 88
Joined: Wed Apr 28, 2010 06:34 PM
Re: Close the sistem
Posted: Fri Aug 15, 2014 09:19 PM

I'll try and then I report you, use FWH 907 / 1312 + harbour 3.0 / 3.2 and two'm in trouble

Posts: 187
Joined: Mon Oct 20, 2008 06:33 PM
Re: Close the sistem
Posted: Sat Aug 16, 2014 10:16 AM

I have the same problem, but only on a few customers, most of them do not.

It seems that is related to equipment.

I don't know what to do.

Oscar Ribeiro

OASyS Inform谩tica

Fwh18.02 + xHarbour 1.2.3 + Bcc72
Posts: 1
Joined: Fri Mar 20, 2009 03:12 PM
Re: Close the sistem
Posted: Mon Aug 18, 2014 02:04 AM

Erro irrecuper vel 9201: hb_cdxPageKeyLeafBalance: index corrupted.
Erro irrecuper vel 9201: hb_cdxPageSeekKey: wrong parent key.

I have the same problem, already used XHB, switched to HB and was otimo for 5 days and after this period continues with the same problem, after deleting the CDX and create problem sometimes back again in 1 hour or 6 hours but it comes back happening, this customer has 40 machines that uses accessing the system, but already reduce usage to 20 machines and the problem continues, if some physical problem on some equipament to identify this problem.

Currently use the HB 3.2 and FHW 13.12 and bcc 5.82

Marcio Tullio
Inteligence Informatica
Hb 3.2 FHW 13.12 BCC 5.82

(83)3222-8017 / 8852-0124
www.inteligence.com.br
Email:marcio@inteligence.com.br
msn:inteligence.suporte@hotmail.com
skype:marciotulliochaves
http://twitter.com/inteligence_inf
Posts: 581
Joined: Tue Oct 11, 2005 11:28 AM
Re: Close the sistem
Posted: Mon Aug 18, 2014 09:35 PM

Marcio Tullio,

The problem is in your dbf that is corrupted. You must do this: rename your DBF like yourdbf_old.dbf and create a new one (maybe using DBU or another of your preference) and create the structure manually. After this, import all data from the old dbf. In your app, recreate all CDX files.

Let us know your results.

Kleyber Derick



FWH / xHb / xDevStudio / SQLLIB
Posts: 88
Joined: Wed Apr 28, 2010 06:34 PM
Re: Close the sistem
Posted: Mon Aug 18, 2014 10:35 PM

Kleyber Hello, I've done it and not resolved, I created all dbf in harbour and spends a few hours, sometimes minutes, corrupts the cdx.

I added this function in application start.
If! WIN_OSNETREGOK () // Need ADM rights
If! WIN_OSNETREGOK (.t.,. T.) // First .t. is to adjust XP / ... W98, the second adjusts the view.
MsgInfo ('Registration not set windows!')
EndIf
EndIf

and took the DBINFO (DBI_SHARED, .F.) opening dbf

Only Tomorrow I will have the results.

Posts: 4840
Joined: Fri Nov 18, 2005 04:52 PM
Re: Close the sistem
Posted: Tue Aug 19, 2014 11:08 PM

From my notes:

4/27/2005 7:08 AM

Windows' Oppontunistic Locking

Is well described at:

http://www.dataaccess.com/whitepapers/o ... ching.html

It also appears that you have Win 98 computers on the network--I highly recommend not using those.

The amount of RAM in the computers can be an issue.

Is this a new system, or an existing system that just started generating errors? If it just started, was there an update to the application software or server?

James

FWH 18.05/xHarbour 1.2.3/BCC7/Windows 10
Posts: 88
Joined: Wed Apr 28, 2010 06:34 PM
Re: Close the sistem
Posted: Wed Aug 20, 2014 12:56 PM

Hi James, thanks for answering.

in my case, I dont have computers with w98, machines are core i3 4GB, 3GB 2duo core, but are already two days without problems after the changes.
I'm monitoring and getting everything in order will give the opinion.