rotina xHarbour executa no xp, no windows 7 64 bits nao

[porter]

ola pessoal, compilei essa rotina com xHarbour, se executar essa rotina no windows xp, da certo, funciona tudo perfeitamente, mas se executar essa mesma rotina no windows 7, 64 bits, trava, fica processando e nao consigo fechar nem com o Gerenciador de Tarefas, é dessa forma que compilo um sistema inteiro contendo varios prgs e da certo, mas esse com apenas um prg nao roda no windows 7 64 bits.

TESTE.PRG

Código: Selecionar todos

USE CLIENTES
GOTO TOP
do while !eof()
   IF YEAR(CLI_NASCEU) >= 2000
       REPLACE CLI_NASCEU WITH CLI_NASCEU - 36500
   ENDIF
   SKIP
ENDDO
Return 

estou compilando assim:

compteste.bat

Código: Selecionar todos

CLS
DEL *.C
C:\xHarbour\BIN\XBuild TESTE.EXE.XBP -DEBUG -CLASSIC -B -ALL

TESTE.EXE.XBP

Código: Selecionar todos

CINI = 
C_OUTPUTFOLDER = 
DEFFILE = 
INCLUDEFOLDERS = 
LAUTORUN = 
LDEBUG = .T.
LGUI = .F.
LIBFOLDERS = 
LMT = .F.
LNOAUTOFWH = .F.
LPRG_CLASSICDEBUG = .T.
LPRG_DEBUG = .T.
LUSEDLL = .F.
MAPFILE = 
MYC_FLAGS = 
MYDEFINES = 
MYLINK_FLAGS = -Gn -s
MYPRG_FLAGS = 
MYRC_FLAGS = 
MYSLY_FLAGS = 
OUTPUTFOLDER = 
PRG_OUTPUTFOLDER = 
RC_OUTPUTFOLDER = 
RUNARGUMENTS = 
SLY_OUTPUTFOLDER = 
STARTIN = 
TARGETFOLDER = 

[TESTE.PRG]
MYC_FLAGS = 
MYDEFINES = 
MYPRG_FLAGS = 

[dbfcdx.lib]

[codepage.lib]

[porter]

fiz o teste em outro computador com windows 7, 64 bits e funcionou corretamente, alguem ja teve esse problema, somente em um pc especifico essa rotina nao roda, fica travado, nao consigo finalizar o processo nem pelo Gerenciador de Tarefas.

[Kapiaba]

Se for em REDE, Experimente TRAVAR O REGISTRO, dar o REPLACE, o COMMIT, e DESTRAVAR O REGISTRO e ponha um:

Código: Selecionar todos

   ? "Registro Gravado com sucesso"  // uma Msg de gravação.

Verifique se o anti virus é mesmo ou se o firewall não está bloqueando se programa.

Abs.

[JoséQuintas]

Não sei se aí é só um trecho, mas não se esqueça do SET EPOCH pra acertar o ano.
Talvez ajude se colocar no programa pra mostrar alguma informação sobre o andamento, pra ver aonde trava.
Talvez mostrar RecNo() e código, pra ver se tem a ver com o registro.

De repente não detecta EOF(), vai saber.

É essa rotina mesmo, ou está usando indexado?

E coloca também opção de cancelar com ESC, só pra ter a opção

Dependendo do resultado, usar o DEBUG e acompanhar passo a passo (não sei se o xHarbour tem).

[porter]

ola pessoal, esse problema que relatei, acontece em uma máquina especifica, fiz o mesmo teste em um notebook windows 7 64 bits e funcionou perfeitamente, creio que o problema esta na maquina que nao esta dando certo.
Este mesmo computador que nao roda uma pequena rotina, eu compilo um sistema inteiro e executo sem problema, nao estou entendendo.

[JoséQuintas]

Nessa rotina pequena, usa a mesma configuração do aplicativo?

De repente é DBFCDX com abertura automática de índice, e na rotina pequena está usando DBFNTX.
Ou DBT ao invés de FTP

Coloca pra mostrar linha a linha, assim vai ver em que momento trava.

Se na abertura, ou na detecção de EOF.

É local ou em rede? Se for local, então não está testando com os mesmos arquivos.

[AutomoSistema]

Porque você não tenta assim:

USE CLIENTES
GOTO TOP
do while !eof()
IF YEAR( field -> CLI_NASCEU) >= 2000
field -> cli_nasceu := field -> cli_nasceu - 36500
ENDIF
SKIP
ENDDO
Return

[Clipper]

Tive um problema semelhante e era o bendito do Avast.
Tive que colocar o programa na lista de exclusões para rodar.

Até logo.

Marcelo

[porter]

ola pessoal, formatei o computador e agora esta dando certo, tive que trocar o HD tambem, acho que o motivo do problema era esse, obrigado pela atenção de todos.