www.FiveTechSoft.com
https://fivetechsoft.com/forums/
Code: Select all
IF !FILE(...)
msgalert('Networkdrive error')
ENDIFCode: Select all
IF .NOT. FILE( "CADNFE.DBF" ) .OR. .NOT. FILE( "CADCESVE.DBF" ) .OR. ;
.NOT. FILE( "ICESVE.CDX" ) .OR. NETERR()
...
ENDIF
Code: Select all
IF .NOT. EMPTY( e:osCode )
? "Error in NetWork"
ENDIF
Code: Select all
IF UPPER(e:Description)="CORRUPTION DETECTED"
? "Corruption Detected"
ENDIF
Code: Select all
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