FiveTech Software tech support forums

Code: Select all  Expand view

Error irrecuperable 9201: hb_cdxPageSeekKey: wrong parent key
Error irrecuperable 9201: hb_cdxPageGetKeyVal: index corrupted.
Error irrecuperable 1010: hb_cdxIndexPageRead: Read index page failed.
 

Code: Select all  Expand view

#Include "FiveWin.ch"

REQUEST HB_LANG_PT
REQUEST HB_CODEPAGE_PT850

ANNOUNCE RDDSYS
REQUEST OrdKeyNo, OrdKeyCount, OrdCreate, OrdKeyGoto
REQUEST DBFCDX, DBFFPT

FUNCTION Main()
 
   SET DATE BRITISH
   SET EPOCH TO 1950
   SET CENTURY ON
   SET SOFTSEEK OFF
   SET WRAP ON
   SETCANCEL( .F. )
   SET CONFIRM OFF
   SET DELETED ON
   SET ESCAPE OFF
   SET EXACT ON
   SET EXCLUSIVE OFF
   SET MULTIPLE OFF

   IF ISEXERUNNING( CFILENAME( HB_ARGV( 0 ) ) )
      __Quit()
   ENDIF

   RDDSETDEFAULT("DBFCDX")

   HB_LANGSELECT( 'PT' )     // Default language is now Portuguese
   HB_SETCODEPAGE( "PT850" )


   /*
   USE BD...
   GO TOP


   BROWSE()
   */

RETURN NIL
 

Code: Select all  Expand view

  REQUEST DBFCDX
  REQUEST DBFFPT
  RDDSETDEFAULT ("DBFCDX")
  REQUEST HB_Lang_ES
  REQUEST HB_CODEPAGE_ESWIN
  HB_LangSelect("ES")
  HB_CDPSELECT ("ESWIN")

 

Code: Select all  Expand view

Function Indexa (cAlias,cOrden,cCond,cComo)
/* =====================================================================
   Crea un índice temporal
   
   Parámetros:
                cAlias . Alias que se quiere ordenar
                cOrden . Campo a ordenar el fichero
                cCond  . Condiciones a aplicar para generar el orden
                cComo  . Se le pasa .T. si se quiere ordenadr DESCENDING
               
   Devuelve el nombre del fichero temporal creado                
   ---------------------------------------------------------------------
   Última revisión:06/08/2013 17:05
   Revisado por   :Angel
   =====================================================================
*/  
       
Local oWnd, nRecs, nFil:=0, cFil:="IND", nSel:=Select()

  Select &cAlias
  Set Index To

  cFil:="temporal.cdx"

  If cComo=NIL
    Index On &cOrden TAG (cOrden) To (cDirTemp+cFil)
  Else
    Index On &cOrden TAG (cOrden) To (cDirTemp+cFil) DESCENDING
  Endif
  (cAlias)->(OrdListAdd (cDirTemp+cFil))
  (cAlias)->(DbSetOrder(1))
  (cAlias)->(DbGoTop())
  Select (nSel)
 
 
Return (cFil)
 

José Vicente Beltrán wrote:Hace tiempo que no tengo ese problema con mis clientes, y es porque al hacer una nueva instalación siempre me aseguro de anular el protocolo SMB de windows en el servidor y cada uno de los terminales existentes, protocolo que precisamente es el que por hacer un bien, ahorrar tiempo, lo que realmente hace es corromper los indices.
Ocurre generalmente cuando el servidor tiene como S.O el Server 2008 o 2012.
Hecho esto, nunca mas el problema en la instalación en cuestión.
Saludos

Code: Select all  Expand view

   if Left( ProcName( 7 ), 10 ) == "ERRORDIALO"
      SET RESOURCES TO
      ErrorLevel( 1 )
      QUIT
   endif

   // Incluido em 27/06/2013 By Joao Santos - Sao Paulo - Brasil
   IF UPPER(e:Description)="CORRUPTION DETECTED"         .OR. ;
      UPPER(e:Description)="DETECTADO ÖNDICE CORROMPIDO" .OR. ;
      UPPER(e:Description)="DETECTADO INDICE CORROMPIDO"


      ? "CORRUPTION DETECTED"  // mensageria

      DBCLOSEALL()

      QUIT

   ENDIF

   // Incluido em 26/07/2013 By Joao Santos
   IF UPPER(e:Description) = "LOCK REQUIRED"                              .OR.;
      UPPER(e:Description) = "TRAVAMENTO REQUERIDO"                       .OR.;
      UPPER(e:Description) = "FALHA NO TRAVAMENTO"                        .OR.;
      UPPER(e:Description) = "FALHA NO TRAVAMENTO DO APPEND"              .OR.;
      UPPER(e:Description) = "USO EXCLUSIVO REQUERIDO"                    .OR.;
      UPPER(e:Description) = "Erro DBFCDX/1002 erro ao Abrir"             .OR.;
      UPPER(e:Description) = "Erro DBFCDX/1002 erro Open (DOS Erro 2)"    .OR.;
      UPPER(e:Description) = "Error DBFCDX/1002 Open error"               .OR.;
      UPPER(e:Description) = "Error DBFCDX/1002 Open error (DOS Error 2)" .OR.;
      UPPER(e:Description) = "ERROR BASE/1003 Variable does Not Exist"    .OR.;
      UPPER(e:Description) = "(DOS Error 2) DBFCDX/1002 ERRO DE ABERTURA" .OR.;
      UPPER(e:Description) = "Erro DBFCDX/1001 erro ao Abrir"             .OR.;
      UPPER(e:Description) = "Erro DBFCDX/1001 erro Open (DOS Erro 2)"    .OR.;
      UPPER(e:Description) = "Error DBFCDX/1001 Open error"               .OR.;
      UPPER(e:Description) = "Error DBFCDX/1001 Open error (DOS Error 2)" .OR.;
      UPPER(e:Description) = "(DOS ERROR 2) DBFCDX/1001 ERRO DE ABERTURA" .OR.;
      UPPER(e:Description) = "(DOS ERROR 2) DBFCDX/1001 Open Error"       .OR.;
      UPPER(e:Description) = "Error DBFCDX/1201 WORKAREA NOT INDEXED"     .OR.;
      UPPER(e:Description) = "ERROR DBFCDX/1201 WORKAREA NÇO INDEXADA"    .OR.;
      UPPER(e:Description) = "Error DBFCDX/1012 Corruption detected"      .OR.;
      UPPER(e:Description) = "ERROR DBFCDX/1012 CORRUPTION DETECTED"      .OR.;
      UPPER(e:Description) = "Error DBFCDX/1210 Corruption detected"      .OR.;
      UPPER(e:Description) = "ERROR DBFCDX/1210 CORRUPTION DETECTED"      .OR.;
      UPPER(e:Description) = "(DOS ERROR 64) DBFCDX/1010  ERRO DE LEITURA".OR.;
      UPPER(e:Description) = "(DOS ERROR 64) DBFCDX/1010  READ ERROR"     .OR.;
      UPPER(e:Description) = "(DOS ERROR 87) DBFCDX/1010  ERRO DE LEITURA".OR.;
      UPPER(e:Description) = "(DOS ERROR 87) DBFCDX/1010  READ ERROR"     .OR.;
      UPPER(e:Description) = "(DOS Error 2) DBFCDX/1001 ERRO DE ABERTURA" .OR.;
      UPPER(e:Description) = "Error DBCMD/2001 Workarea nao esta em uso"  .OR.;
      UPPER(e:Description) = "Error DBCMD/2001 Workarea not in use"


      ? [ERROR DE RED]  // Mensageria

   ENDIF

   cErrorLog += "Aplicacao - Instrucoes Para Envio de Email-Leia: DESCRICAO DO ERRO Logo Abaixo:" + CRLF
   cErrorLog += "===============================================================================" + CRLF
   cErrorLog += "   Caminho e Nome: " + GetModuleFileName( GetInstance() )
 

Code: Select all  Expand view

Notes

     .  Network environment: DBCOMMIT() makes database updates visible
        to other processes.  To insure data integrity, issue DBCOMMIT()
        before an UNLOCK operation.  For more information, refer to the
        "Network Programming" chapter in the Programming and Utilities Guide.