Erros intermitentes tolos

oribeiro · July 29, 2013

Pessoal, Minha aplicao estdando uns erros intermitentes tolos, do tipo:

EXEMPLOS:

(1)

Aplicacao

=========

Aplicativo........: d:\sist\integr\mvend.exe

Versao............: 22.07.2013

Tamanho...........: 3.058.688 bytes

Maximo de arquivos: SetHandleCount( 0 )

Erro ocorrido em..: 29/07/2013 as 15:29:40 horas

Computador\Usuario: SERVTERM\ipawin\ELLEN

Descricao do erro.: Erro DBFCDX/1020 Data type error

Sequencia de erros

==================

Programa: NEWITEM Linha: 1809

Programa: (b)C_CEST Linha: 456

Na linha 1809 tem o comando:

CAIFORMATO[2] := (cDbfForm)->FORMATO

(2)

Aplicacao

=========

Aplicativo........: D:\sist\integr\mvend.exe

Versao............: 29.07.2013

Tamanho...........: 3.059.200 bytes

Maximo de arquivos: SetHandleCount( 0 )

Erro ocorrido em..: 29/07/2013 as 14:25:10 horas

Computador\Usuario: WIN-EK6GS1FGHP1\Mayara\ADMIN

Descricao do erro.: Erro BASE/1003 Variable does not exist: QTMOV

Sequencia de erros

==================

Programa: DEL_MOV Linha: 3483

Programa: APAGA_MOV Linha: 892

Nessa linha do programa esto comando (REPLACE abaixo):

Select(xDbMov)

If RLock()

REPLACE QTMOV WITH xQtMov

NÃ£o consigo reproduzir esses erros na minha rede, nem estÃ¡ acontecendo em todos os clientes, mas s intermitentes. Muito estranho!!!

AlguÃ©m jÃ¡ passou por isso?

kapiaba · July 29, 2013

Descricao do erro.: Erro DBFCDX/1020 Data type error

http://www.pctoledo.com.br/forum/viewtopic.php?f=1&t=3527

Descricao do erro.: Erro BASE/1003 Variable does not exist: QTMOV

http://www.pctoledo.com.br/forum/viewtopic.php?p=21439&sid=abbafc935573ad2fef69dee69bed13c8

Yury · July 30, 2013

OlÃ¡

me parece que os erros acima listados ocorrem pq estÃ¡ utilizando uma Ã¡rea diferente, por causa de "Select(xDbMov)" , pois vc estÃ¡ usando sem o ponteiro ( -> )

coloque na sua rotina que documenta os erros para salvar/exibir qual o ALIAS atual que estÃ¡ em uso e a estrutura do arquivo associado a este ALIAS (dbstruct)

isso vai auxiliar vc a identificar oq estÃ¡ ocorrendo

AbraÃ§o

mkyx · July 30, 2013

Data type error

Ocorre quando tentamos gravar um campo com um conteÃºdo diferente do especificado na estrutura do arquivo.

Exemplo: gravar num campo tipo data um conteÃºdo ou variÃ¡vel caracter, gravar mum campo numÃ©rico, um conteÃºdo alfanumÃ©rico ou vice-versa.

Analise os dados que estÃ£o sendo gravados nos campos, exibindo na tela o conteÃºdo e o tipo do dado que estÃ¡ sendo gravado.

DICA:

? CAMPO,TYPE("CAMPO")

REPLACE ALIAS->NOME_DO_CAMPO WITH CAMPO

Espero ter ajudado.

oribeiro · July 31, 2013

Amigos,

O problema Ã© que a rotina roda normalmente e apenas "de vez em quando" dÃ¡ esses tipos de erro, notei agora que isso estÃ¡ acontecendo apenas em servidores com Windows 2003 Server, com terminal server.

oribeiro · July 31, 2013

Vejam, por favor, que estranho:

Erro no sistema
===============
Aplicativo........: d:\sist\integr\MVEND.EXE
Versao............: 22.07.2013
Tamanho...........: 3.058.688 bytes
Erro ocorrido em..: 31/07/2013 as 08:22:36 horas
Computador\Usuario: SERVERMAQ\win01\JUNIOR
Descricao do erro.: Erro DBCMD/2001 Workarea not in use: RLOCK

Sequencia de erros
==================
Programa: FNRLOCK Linha: 2789

Vejam essa funcao
=================
********************************************************************************************
FUNCTION FnRLOCK
********************************************************************************************
Local fLock := .T.
Local nTempo := 0
Local cDbf
PARAM fEsc // Permite escapar
DEFAULT fEsc := .F.
IF !USED()
fLock := .F.
MsgAlert("O Arquivo n estaberto para eu bloquear o registro.","Funo: FnRlock()")
ELSE
cDbf := ALIAS()
fLock := .T.
nTempo := 0
WHILE !(cDbf)->(RLOCK()) /// ====>>>> ESSA A LINHA ((( 2789 ))) <<<<====
if !fEsc
nTempo++
SysWait(1)
if nTempo=5
nTempo=0
MsgBeep()
MsgAlert("O Registro ("+(cDbf)->(DBF())+") estsendo atualizado por outro!"+chr(13)+chr(13)+"Solicite que o registro seja libera do antes de continuar.","Ateno")
endif
else
MsgBeep()
MsgStop("O Registro ("+(cDbf)->(DBF())+") estsendo atualizado por outro.","N posso continuar")
fLock=.F.
EXIT
endif
ENDDO
ENDIF
RETURN(fLock)

NÃ£o Ã© estranho? Eu verifiquei que o arquivo estava aberto com USED() e ainda assim, de vez em quando dÃ¡ erro nessa linha. A minha dor de cabe que n acontece com frequÃªncia.

Aguardo, obrigado.

oribeiro · July 31, 2013

Vejam esse outro erro:

Aplicacao

=========

Aplicativo........: D:\Suporte\Sist\sidnei\mvend.exe

Versao............: 29.07.2013

Tamanho...........: 3.059.200 bytes

Maximo de arquivos: SetHandleCount( 0 )

Erro ocorrido em..: 31/07/2013 as 09:28:34 horas

Computador\Usuario: SERVSYS\Neto\ADMIN

Descricao do erro.: Erro BASE/1002 Alias does not exist: PPFtProdut

Sequencia de erros

==================

Programa: FNPESQUISAPRODUT Linha: 5391

Vejam o programa:

Select PPFtProdut

_Ordem = "CÃ³digo"

Set Order to 1 // Prod

Seek oChave

if Eof()

_Ordem = "DescriÃ§Ã£o"

Set Order to 2 // Descricao

Seek oChave

if Eof() // ===>>> ESSA Ã‰ A LINHA 5391 <<<===

_Ordem = "PadrÃ£o"

Set Order to 3 // Padrao

Seek oChave

if Eof()

_Ordem = "CÃ³digo de Barras"

Set Order to 4 // CodBar

Seek oChave

if Eof()

_Ordem = "Fornecedor + DescriÃ§Ã£o"

Set Order to 5 // Fornecedor

Seek oChave

endif

NÃ£o dÃ¡ para entender.

kapiaba · July 31, 2013

Experimente este teste aqui para ver a reacao do seu sistema em rede. Troque o Nome dos BANCOS para os seus...



FUNCTION VER_SE_ABRE_BANCOS()

 

 

   IF .NOT. FILE( "CADNFE.DBF" ) .OR. .NOT. FILE( "CADCESVE.DBF" ) .OR.     ;

      .NOT. FILE( "ICESVE.CDX" ) .OR. NETERR()

 

      MsgStop( OemToAnsi( "ATENâ‚¬Ã‡O USUÂµRIO:                       " )+CRLF+ ;

               OemToAnsi( "PROBLEMAS NA REDE DE COMPUTADORES.     " )+CRLF+ ;

               OemToAnsi( "IMPOSSIVEL ABRIR BANCO DE DADOS.       " )+CRLF+ ;

               OemToAnsi( "VERIFIQUE SUAS CONEXÃ¥ES DE REDE.       " )+CRLF+ ;

               OemToAnsi( "O SEU COMPUTADOR NÃ‡O CONSEGUE CONEXÃ‡O  " )+CRLF+ ;

               OemToAnsi( "COM O SERVIDOR DE ARQUIVOS.            " )+CRLF+ ;

               OemToAnsi( "TENTE: DESLIGUE E RELIGUE O SEU COMPUTA" )+CRLF+ ;

               OemToAnsi( "DOR PELO <BOTÃ‡O> DE DESLIGAR.          " )+CRLF+ ;

               OemToAnsi( "ESPERE 10 SEGUNDOS E RELIGUE-O.        " )+CRLF+ ;

               OemToAnsi( "SE MESMO ASSIM CONTINUAR ESTA MENSAGEM," )+CRLF+ ;

               OemToAnsi( "RETIRE TODOS OS USUÂµRIOS DA REDE E,    " )+CRLF+ ;

               OemToAnsi( "TENTE: DESLIGUE E RELIGUE O SERVIDOR DE" )+CRLF+ ;

               OemToAnsi( "ARQUIVOS ONDE ESTÂµ INSTALADO O PROGRAMA" )+CRLF+ ;

               OemToAnsi( "REINDEXAR TODOS OS ARQUIVOS DO PROGRAMA" )+CRLF+ ;

               OemToAnsi( "SE MESMO ASSIM CONTINUAR ESTA MENSAGEM," )+CRLF+ ;

               OemToAnsi( "CHAME O SEU TCNICO DE REDES(T.I.).    " ),      ;

               OemToAnsi( "Erro Fatal de Rede - Verifique Sua Rede" ) )

 

      DBCLOSEALL()

 

      QUIT

 

   ENDIF

 

RETURN( .T. )

Erciley Junior · July 31, 2013

O erro do cDbf......

nÃ£o deveria estar !(&(cDbf)->(RLock())) ?

Quanto ao erro do PPFtProdut

SerÃ¡ que a linha nÃ£o foi no Select PPFtProdut ?

Coloque uma mensagem antes de dar este erro para ver os Alias abertos

?valtoprg( aGetWorkAreas() )

oribeiro · July 31, 2013

Estou usando o xHarbour 1.0.0 Simplex + BCC55 + FWH 8.08

Acham que esses erros podem estar relacionados com a versÃ£o do xHarbour ou do BCC55 ?

Aguardo, obrigado.

oribeiro · July 31, 2013

AgradeÃ§o seus comentÃ¡rios, mas, veja que em ambos os casos o arquivo estÃ¡ aberto, jÃ¡ executou funÃ§Ãµes nele ( veja as linhas que antecedem ao erro ) e eu nÃ£o consigo reproduzir esse arquivo aqui no meu servidor. Ele acontece ( de vez em quando ) nos clientes.

No caso do PPFTProduto, a rotina mostra que foi dado o Select no arquivo, executados o cinco comandos nele (setorder, seek, eof(), setorder, seek) e no prÃ³ximo comando eof() que deu erro, mas nem sempre esse erro dÃ¡ nessa mesma linha.

Rapaz, estou ficando doido. (risos).

Obrigado, aguardo suas ponderaÃ§Ãµes.

kapiaba · July 31, 2013

if Eof() // ===>>> ESSA Ã‰ A LINHA 5391 <<<===

Toque por:

IF .NOT. FOUND()) // ===>>> Para ver a reaÃ§Ã£o...

kapiaba · July 31, 2013

Erro BASE/1002 Alias does not exist: PPFtProdut

Como estÃ¡ seu FLAG de compilaÃ§Ã£o?

/M/N ??

oribeiro · July 31, 2013

HARBOURFLAGS = -m -w0

CFLAG1 = -OS $(CFLAGS) -d -c -L$(HB_DIR)\lib;$(FWH)\lib

CFLAG2 = -I$(HB_DIR)\include;$(CC_DIR)\include

RFLAGS =

LFLAGS = -L$(CC_DIR)\lib\obj;$(CC_DIR)\lib;$(HB_DIR)\lib -Gn -M -m -s -Tpe -x -aa -L$(FWH)\lib

IFLAGS =

LINKER = ilink32

ALLOBJ = c0w32.obj $(OBJFILES) $(OBJCFILES)

ALLRES = $(RESDEPEN)

ALLLIB = $(LIBFILES) import32.lib cw32.lib

.autodepend

#DEPENDS

#COMMANDS

.cpp.obj:

$(CC_DIR)\BIN\bcc32 $(CFLAG1) $(CFLAG2) -o$* $**

.c.obj:

$(CC_DIR)\BIN\bcc32 -I$(HB_DIR)\include $(CFLAG1) $(CFLAG2) -o$* $**

.prg.obj:

$(HB_DIR)\bin\harbour -D__EXPORT__ -n -go -I$(HB_DIR)\include $(HARBOURFLAGS) -I$(FWH)\include -o$* $**

.rc.res:

$(CC_DIR)\BIN\brcc32 $(RFLAGS) $<

#BUILD

kapiaba · July 31, 2013



xHarbour 1.2.3 Intl. (SimpLex) (Build 20130326)

Copyright 1999-2013, http://www.xharbour.org http://www.harbour-project.org/

 

Syntax:  c:\XHARBOUR1303\bin\harbour.exe <file[s][.prg]> [options]

 

Options:  /a               automatic memvar declaration

          /b               debug info

          /build           display detailed version info

          /credits         display credits

          /d<id>[=<val>]   #define <id>

          /es[<level>]     set exit severity

          /ex              create public function list (.xbx)

          /g<type>         output type generated is <type> (see below)

          /gc[<type>]      output type: C source (.c) (default)

                           <type>: 0=compact 1=normal 2=verbose (default)

                                   3=generate real C code

          /go              output type: Platform dependant object module

          /gh              output type: Harbour Portable Object (.hrb)

          /i<path>         #include file search path

          /j[<file>]       output i18n support [to <file>] to .hil

          /k               compilation mode (type -k? for more data)

          /l               suppress line number information

          /m               compile module only

          /n[<type>]       no implicit starting procedure (default)

                           <type>: 0=no implicit starting procedure

                                   1=no starting procedure at all

                                   2=force application starting procedure

          /o<path>         object file drive and/or path

          /p[o<path>]      generate pre-processed output (.ppo) file in <path>

          /pt[o<path>]     generate pre-processor trace (.ppt) file in <path>

          /q               quiet

          /q0              quiet and don't display program header

          /s               syntax check only

          /u[[+]<file>]    use command def set in <file> (or none)

          /undef:<id>      #undef <id>

          /v               variables are assumed M->

          /vd              external functions are assumed as dynamic functions

          /w[<level>]      set warning level number (0..3, default 1)

          /x[<prefix>]     set symbol init function name prefix (for .c only)

          /z               suppress shortcutting (.and. & .or.)

          @<file>          compile list of modules in <file>

xHarbour 1.2.3 Intl. (SimpLex) (Build 20130326)

Copyright 1999-2013, http://www.xharbour.org http://www.harbour-project.org/

 

Syntax:  c:\XHARBOUR1303\bin\harbour.exe <file[s][.prg]> [options]

 

Options:  /a               automatic memvar declaration

          /b               debug info

          /build           display detailed version info

          /credits         display credits

          /d<id>[=<val>]   #define <id>

          /es[<level>]     set exit severity

          /ex              create public function list (.xbx)

          /g<type>         output type generated is <type> (see below)

          /gc[<type>]      output type: C source (.c) (default)

                           <type>: 0=compact 1=normal 2=verbose (default)

                                   3=generate real C code

          /go              output type: Platform dependant object module

          /gh              output type: Harbour Portable Object (.hrb)

          /i<path>         #include file search path

          /j[<file>]       output i18n support [to <file>] to .hil

          /k               compilation mode (type -k? for more data)

          /l               suppress line number information

          /m               compile module only

          /n[<type>]       no implicit starting procedure (default)

                           <type>: 0=no implicit starting procedure

                                   1=no starting procedure at all

                                   2=force application starting procedure

          /o<path>         object file drive and/or path

          /p[o<path>]      generate pre-processed output (.ppo) file in <path>

          /pt[o<path>]     generate pre-processor trace (.ppt) file in <path>

          /q               quiet

          /q0              quiet and don't display program header

          /s               syntax check only

          /u[[+]<file>]    use command def set in <file> (or none)

          /undef:<id>      #undef <id>

          /v               variables are assumed M->

          /vd              external functions are assumed as dynamic functions

          /w[<level>]      set warning level number (0..3, default 1)

          /x[<prefix>]     set symbol init function name prefix (for .c only)

          /z               suppress shortcutting (.and. & .or.)

          @<file>          compile list of modules in <file>

kapiaba · July 31, 2013

http://forums.fivetechsupport.com/viewtopic.php?f=2&t=23941&p=136490&hilit=HARBOURFLAGS#p136490

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=3674&p=16155&hilit=HARBOURFLAGS#p16155

oribeiro · July 31, 2013

Kapiaba,

AgradeÃ§o a sua ajuda, os meus flags estÃ£o iguais ao sugerido nos links que vocÃª postou:

HARBOURFLAGS = -m -w0

oribeiro · July 31, 2013

Pode ser algum problema do xHarbour 1.0.0 ou do BCC 55 ?

kapiaba · July 31, 2013

Pode ser algum problema do xHarbour 1.0.0 ou do BCC 55 ?

http://comments.gmane.org/gmane.comp.lang.xharbour.devel/582

http://xa.yimg.com/kq/groups/10024680/667166844/name/atual.bc

kleyber · July 31, 2013

AgradeÃ§o seus comentÃ¡rios, mas, veja que em ambos os casos o arquivo estÃ¡ aberto, jÃ¡ executou funÃ§Ãµes nele ( veja as linhas que antecedem ao erro ) e eu nÃ£o consigo reproduzir esse arquivo aqui no meu servidor. Ele acontece ( de vez em quando ) nos clientes.

No caso do PPFTProduto, a rotina mostra que foi dado o Select no arquivo, executados o cinco comandos nele (setorder, seek, eof(), setorder, seek) e no prÃ³ximo comando eof() que deu erro, mas nem sempre esse erro dÃ¡ nessa mesma linha.

Rapaz, estou ficando doido. (risos).

Obrigado, aguardo suas ponderaÃ§Ãµes.

Oscar,

Passe o dbf explicitamente para a funÃ§Ã£o, tipo

FUNCTION FnRLOCK(teuDBF)

oribeiro · August 1, 2013

Kleyber,

kapiaba · August 1, 2013

Kleyber,

Fiz isso e o erro persiste e Ã© intermitente.

Respondendo Ã pergunta do Kapiaba, o xHarbour 1.0.0 Ã© o que veio com o FWH.

Pergunta:

Este erro ocorre em modo REMOTO ou LOCAL?

Ocorre com windows XP e windows 7?

TÃ¡ dureza...

evertonlb · August 1, 2013

Cara.. tu jÃ¡ experimentou trocar de servidor? Colocar numa outra mÃ¡quina com o mesmo Win, e depois colocar em outra com uma versÃ£o diferente?

Tu disse que o erro Ã© "randÃ´mico", fica trocando de lugar(?!?!) jÃ¡ verificou a mÃ¡quina??? JÃ¡ tive problemas semelhantes e o culpado era superaquecimento do servidor!

Att.

oribeiro · August 5, 2013

O erro está acontecendo em clientes diferentes, em momentos diferentes do programa, mas a maioria está com Windows 2003 Server.
Vejam esse novo:

Aplicacao
=========
Aplicativo........: \\servidor2\C\Sist\INTEGR\MVEND.EXE
Versao............: 22.07.2013
Tamanho...........: 3.058.688 bytes
Erro ocorrido em..: 05/08/2013 as 08:51:09 horas
Computador\Usuario: AUTO-86A426861C\Sai\ADMIN
Descricao do erro.: Erro GPFHANDLER/0 EXCEPTION_ACCESS_VIOLATION - O thread tentou ler/escrever num endereço virtual ao qual não tinha acesso.: GPFHANDLER

Sequencia de erros
==================
Programa: PRINTPRV Linha: 1191
Programa: PRINTPAGE Linha: 1128
Programa: (b)BUILDMENU Linha: 381
Programa: TMENU:COMMAND Linha: 416
Programa: TWINDOW:COMMAND Linha: 1002
Programa: _FWH Linha: 3300
Programa: TDIALOG:ACTIVATE Linha: 270
Programa: L_BOLC Linha: 262
Programa:(b)BUILDMENU Linha: 645
Programa: TMENU:COMMAND Linha: 416
Programa: TWINDOW:COMMAND Linha: 1002
Programa: TMDIFRAME:COMMAND Linha: 241
Programa:_FWH Linha: 3300
Programa: TMDIFRAME:ACTIVAT Linha: 951
Programa: MAIN Linha: 323

kapiaba · August 5, 2013

http://fivetechsupport.com/forums/viewtopic.php?f=6&t=22745

http://www.pctoledo.com.br/forum/viewtopic.php?f=20&t=13720&start=15

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=12645&p=66531&hilit=GPFHANDLER#p66531

O que faz este programa? Pega alguma imagem? Tipo .BMP ou .JPG?

Programa: PRINTPRV Linha: 1191 ???

Erros intermitentes tolos

Recommended Posts

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Join the conversation