topic-40174

Board index FiveWin para Harbour/xHarbour pack en Server 2019

Posts: 203

Joined: Tue Oct 11, 2005 02:17 PM

pack en Server 2019
Posted: Thu Mar 25, 2021 04:54 PM

Buenas tardes

Tengo un sistema que corre con Windows Server 2019 y con ficheros dbf/cdxal que los usuarios acceden por terminal server ejecutando el programa localmente. Cuando regenero los índices siempre hacía un pack pero ahora desde que se instaló el programa en este servidor al ejecutar el pack se vuelve muy lento y si el fichero tiene muchos registros se queda colgado directamente.

De momento lo he solucionado desactivando la orden pack pero hasta ahora siempre me funcionó correctamente

Alguna sugerencia

Gracias de antemano.

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: pack en Server 2019
Posted: Thu Mar 25, 2021 05:47 PM

Mira como hago y no tengo problemas con ningun Windows.

Code (fw): Select all Collapse

#Include "Ord.Ch"

   LOCAL lPack      := .T.  // .T. Apaga os Registros Deletados.

   // crea un CHECKBOX en el DIALOGO:
   REDEFINE CHECKBOX lPack ID 21 OF oDlg COLORS nRgb( 250,   0,   0 ), nRgb(  72, 180, 215 ) UPDATE

   REDEFINE BUTTONBMP oAceitar ID 701 OF oDlg RESOURCE "ORGPASTA" TEXTRIGHT ;
      ACTION( ReIndPack( lPack, oMeter1, oMeter2, oMeter3, oMeter4,         ;
                                    oMeter5, oMeter6, DeOndeVem ),          ;
                  lSaida := .T., oDlg:End() )

FUNCTION ReIndPack( lPack, oMeter1, oMeter2, oMeter3, oMeter4, oMeter5,     ;
                           oMeter6, DeOndeVem )


   AEVAL(DIRECTORY( "CADGRUPO.cdx" ),{ |aFILE| FERASE(aFILE[F_NAME]) } )

   USE CADGRUPO NEW EXCLUSIVE ALIAS CADGRUPO

   IF lPack = .T.
      PACK
   ENDIF

   oMeter1:nTotal = RecCount()

   INDEX ON VAL(Field->GRUPOCOD) TAG GRUPOCOD TO CADGRUPO            ;
         FOR !DELETED()                                              ;
         EVAL ( oMeter1:Set( RecNo() ), CursorWait(), SysRefresh() ) ;
         EVERY 10

   INDEX ON Field->GRUPODESCR TAG GRUPODESCR TO CADGRUPO             ;
         FOR !DELETED()                                              ;
         EVAL ( oMeter1:Set( RecNo() ), CursorWait(), SysRefresh() ) ;
         EVERY 10

   // NAO USADO POR ENQUANTO
   INDEX ON Field->GRUPONOME TAG GRUPONOME TO CADGRUPO               ;
         FOR !DELETED()                                              ;
         EVAL ( oMeter1:Set( RecNo() ), CursorWait(), SysRefresh() ) ;
         EVERY 10

   CLOSE DATABASE

   // sigue...

RETURN NIL

Saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

miarcod

Posts: 203

Joined: Tue Oct 11, 2005 02:17 PM

Re: pack en Server 2019
Posted: Sat Mar 27, 2021 05:49 AM

Hola

El programa se queda colgado cuando se ejecuta la orden PACK , los índices se generan sin problemas.

hmpaquito

Posts: 1515

Joined: Thu Oct 30, 2008 02:37 PM

Re: pack en Server 2019
Posted: Sat Mar 27, 2021 08:16 AM

Sólo veo una cosa más peligrosa que un mono con dos pistolas: Un pack que se cuelga, que puede generar perdida de informacion.

Has cambiado el OS solamente. Asi pues, el problema es, probablemente, externo a tu sistema. Revisa el antivirus: Desconectalo al menos para pruebas, puede estar dando la vara auditando constantemente el archivo que se está modificando/ empaquetando

FiveTech Support Forums

Continue the discussion