FiveTech Software tech support forums

...  IF lOrder      ::SetMyBmpSort()   ENDIFRETURN NIL  a question, in client/server is correct this codes: i have dude in the use of rlock o flock in c/s with ads is necesary? in a transacction, is correct my implementation? sorry for my questyon, is my first use of ads: /*-------------------------------------------------------------------------------------------------*/#include ...

... workstation logs in and locks ‘his’ record. The station which executes the dbf-file update must first try to lock the control.dbf successfully (flock - oControl:flock() ). Or, if there were no DBF modifications, you still could have some users running the old version while users running the ...

... to be properly APPENDed. In a network environment, APPEND FROM does not require that the current database file be USEed EXCLUSIVEly or locked with FLOCK() to perform its operation. As each record is added, CA-Clipper automatically arbitrates contention for the new record. When you invoke APPEND ...

... con Clipper y Harbour, lo mejor es indexar lo campor tipo numerico convirtiendo a cadena, y los campos tipo igual : SELECT("VENTAS") IF !FLOCK() RETURN(.f.) ENDIF IF !FERASE("VENTAS.CDX") RETURN(.F.) ENDIF INDEX ON C_VENDEDOR TAG VEND TO VENTAS // C_VENDEDOR campo tipo cadena ...

... endcase end endmenu enddo endpage endprint erase eof eval exact file for function from of footer font filter field fieldget fieldput fcount flock ferase fields get go goto gotop hidden header headers icon id if iif inline index init in left len locate listbox listview loop lower maximized ...

... endcase end endmenu enddo endpage endprint erase eof eval exact file for function from of footer font filter field fieldget fieldput fcount flock ferase fields get go goto gotop hidden header headers icon id if iif inline index init in left len locate listbox listview loop lower maximized ...

... endcase end endmenu enddo endpage endprint erase eof eval exact file for function from of footer font filter field fieldget fieldput fcount flock ferase fields get go goto gotop hidden header headers icon id if iif inline index init in left len locate listbox listview loop lower maximized ...

... Curiously enough, though we are technical people, most of you consider xHarbour as a faster compiler. Just "hype" caused by the "marketing" and "flock follow" (aka "lamb") effect... :-)

... el click en el boton Imprimir,, un linea antes de que empieze la impresion de la factura, se toma el numero de la tabla correspondiente (con un Flock() ) 3ro, Se incrementa en 1 el numero, y se actualiza la tabla y de hace el UnLock(), 4ro, Se imprime la factura con el numero inicialmente tomado. ...

... el click en el boton Imprimir,, un linea antes de que empieze la impresion de la factura, se toma el numero de la tabla correspondiente (con un Flock() ) 3ro, Se incrementa en 1 el numero, y se actualiza la tabla y de hace el UnLock(), 4ro, Se imprime la factura con el numero inicialmente tomado. ...

... de clipper En un entorno de red, APPEND FROM no requiere que el fichero actual de base de datos se utilice en modo exclusivo o se bloquee con FLOCK(). A medida que se añaden registros, CA-Clipper regula automáticamente los conflictos de utilización de los nuevos registros. Saludos

... endcase end endmenu enddo endpage endprint erase eof eval exact file for function from of footer font filter field fieldget fieldput fcount flock ferase fields get go goto gotop hidden header headers icon id if iif inline index init in left len locate listbox listview loop lower maximized ...

... posible verificar cuenta" + CRLF + "Base de datos no disponible") // RETURN .F. //ENDIF USE BANCOS ALIAS BANCOS SHARED NEW SET INDEX TO BANCOS If FLOCK() browse() EndIf BANCOS->( DbSeek(ncta, .f.) ) IF BANCOS->( Found() ) // DO WHILE .T. // IF BANCOS->( DbRLock() ) nSaldo := BANCOS->saldo ...

... endcase end endmenu enddo endpage endprint erase eof eval exact file for function from of footer font filter field fieldget fieldput fcount flock ferase fields get go goto gotop hidden header headers icon id if iif inline index init in left len locate listbox listview loop lower maximized ...

... msgalert("Error al intentar abrir: "+CRLF+cDbf, "Abortando!"); return(nil); endif FOL->( if( lastrec() = 0, dbappend(), ) ) do FOL->( if( flock(),; ( if( nFolio = NIL, nFolio := &(cField) + 1, ),; dbfield(cField, nFolio), lOk:=.t. ),; ( lOk:=.f. ) ) ) until lOk FOL->( dbcommit(), ...