FiveTech Software tech support forums

... se exportan los datos al fichero sin aviso ni error. Si se deniega el acceso debido, por ejemplo, a que otro proceso est utilizando el fichero, NETERR() pasa a tener el valor verdadero (.T.). <nModo> es una constante que define el modo de copia, de acuerdo a los valores de la siguiente ...

...     USE ( cDbf ) ALIAS ( cAlias ) VIA "DBFCDX" EXCLUSIVE NEW   ENDIF   IF !NetErr()      RETURN( .T. )   ENDIF   // Se nÆo podemos abrir, solicita repeti‡Æo   MsgStop( ...

Ahora lo estoy manejando de esta forma DO WHILE ( lForever .OR. ( nSeconds > 0 ) ) If dbUseArea( .T.,, cDatabase, ( cAlias ), lOpenMode, .F. ) RETURN ( .T. ) ENDIF MsgAlert( OemToAnsi( "Archivo " + cFileName( cDatabase ) + " bloqueado por otro Usuario" ), ; "Compartir&quo...

... de usuario en la carpeta tambien. DO WHILE ( lForever .OR. ( nSeconds > 0 ) ) dbUseArea( .T.,, cDatabase, ( cAlias ), lOpenMode, .F. ) IF ! NETERR() RETURN ( .T. ) ENDIF If nIntentos>3 MsgAlert( OemToAnsi( "Archivo " + cFileName( cDatabase ) + " bloqueado por otro Usuario" ...

   SELECT( DBCADPROPO )   IF .NOT. NETERR()      SET ORDER TO 01      GO TOP      cAlias := ALIAS()  // ALIAS DE CADPROPO.DBF   ELSE      ...

Buenas tardes he tenido una función que comprueba al abrir una DBF no este ocupada y ha venido funcionando bien pero he notado que q me ha estado mandando mensaje como si estuviera en uso he probado usar xbrowse() antes del neterr() y la tabla esta abieta

Estoy tratando de comprobar si una base de datos esta abierta desde otro programa, uso: Select 1 Use C:\Datos\Mesa_1 ALIAS aMesa_1 Exclusive if !NetErr() ////compruebo si puedo abrirla o no Select 2 ///uso otra base datos para poner el resultado Go Registro if Rlock() ///NUNCA LO BLOQUEA CUANDO ...

... se ha podido bloquear ya como como sabes append blank intenta bloquear por lo que después deberías comprobar si lo ha conseguido. APPEND BLANK IF !NETERR() // ... ELSE ? "Error en bloqueo " ENDIF Y ojo no te olvides de efectuar unlock después . Saludos José. Enviado desde mi POCOPHONE ...

... o reciclado, 0 en caso de error) . Ejemplo de uso: if DBFAPPEND() > 0 // assign values to fields DBUNLOCK() endif en lugar de DBAPPEND() if !NetErr() // assign values ti fields DBUNLOCK() endif - Nueva función: FW_SetRecycleDeleted( uSet ) --> Configuración anterior Valores posibles del ...

... or recycled record. 0 on failure) Example usage: if DBFAPPEND() > 0 // assign values to fields DBUNLOCK() endif instead of DBAPPEND() if !NetErr() // assign values ti fields DBUNLOCK() endif - New function FW_SetRecycleDeleted( uSet ) --> Previous setting Possible values of the param ...

... there is not a sample test I wish a sample test having these features: - Open customers on Lan Network with some indexes USE CUSTOMER SHAREDIF NETERR()    // could not openENDIFSET INDEX TO MYINDEX - Add New record APPEND BLANKREPLACE …COMMITUNLOCK - Modify the record RLOCK()REPLACE ...

... toma Este Tiempo. Sele GENEFAC Seek dtos(cFecha_exa) Do While (Fec_rec=dtoc(cFecha_exa).and.!eof()) Sele b // PasoGral do while .t. Dbappend() If !neterr() repl Nro_bon with a->Nro_bon,Nom_pac with a->Nom_pac Dbcommit() Dbunlock() Exit Else // Do ocupado Endif Enddo Sele d // Detalle Seek ...

... NationMsg(<nMessageID>)->cMessage NetCancel(<cLocalDevice>)->lIsReleased NetDisk(<cDrive>)->lIsNetworkDrive NetErr(<lNewError>)->lError NetName()->cWorkstationName NetPrinter()->lIsNetworkPrinter NetRedir(<cLocal>,<cServer>,[<cPassword>],[<lShowError>])->lSuccess ...

... MLeftDown MLPos Mod Month MPosToLC MPresent MRestState MRightDown MRow MSaveState MSetBounds MSetCursor MSetPos MShow NationMsg NetCancel NetDisk NetErr NetName NetPrinter NetRedir NetRmtName Network NextKey NNetwork NoSnow Notify NotifyAll NtoC NtoCDoW NtoCMonth NtoColor Nul NumAND NumAt NumButtons ...