topic-30951

DonDrew

Posts: 63

Joined: Mon Aug 02, 2010 05:38 PM

Test network connection?
Posted: Mon Jun 22, 2015 05:39 PM

I'm having trouble with a customer application which seems to loose its network connection from time to time.

Does anyone know of a technique that will allow me to test if a workstation is still connected to a LAN?

Don

Marc Vanzegbroeck

Posts: 1195

Joined: Mon Oct 17, 2005 05:41 AM

Re: Test network connection?
Posted: Mon Jun 22, 2015 06:40 PM

Don,

You can check if a file exist on the network-directory with IF FILE() like.

Code (fw): Select all Collapse

IF !FILE(...)
   msgalert('Networkdrive error')
ENDIF

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: Test network connection?
Posted: Mon Jun 22, 2015 08:17 PM

Code (fw): Select all Collapse

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

      ...

   ENDIF

Regards,

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

DonDrew

Posts: 63

Joined: Mon Aug 02, 2010 05:38 PM

Re: Test network connection?
Posted: Tue Jun 23, 2015 12:30 PM

Marc & Karinha
Thanks for your suggestions.

I've used your ideas plus a few of my own to add enhancements to errsysw.prg which I hope will help me catch possible network errors.

Thanks again.

Don

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: Test network connection?
Posted: Tue Jun 23, 2015 06:58 PM

In ERRSYSW.PRG

Code (fw): Select all Collapse

   IF .NOT. EMPTY( e:osCode )

      ? "Error in NetWork"

   ENDIF

Code (fw): Select all Collapse

   IF UPPER(e:Description)="CORRUPTION DETECTED" 

      ? "Corruption Detected"

   ENDIF

Please, translate for ingles.

Code (fw): Select all Collapse

   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) = "(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) = "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 2) DBFCDX/1001 ERRO DE ABERTURA"

      ? "Error in .DBF"

   ENDIF

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

FiveTech Support Forums

Continue the discussion