FiveTech Software tech support forums

Enrico, but if you try like Mr. Rao said your sample is working for me. APPEND BLANK dbRLock() REPLACE FIELD ->test WITH "TEST" DbUnlock() Best regards, Otto #include "fivewin.ch"REQUEST DBFCDXREQUEST DBFFPTFUNCTION MAIN()    LOCAL cDbf := "MYTEST.DBF"  ...

Enrico, but if you try like Mr. Rao said your sample is working for me. APPEND BLANK dbRLock() REPLACE FIELD ->test WITH "TEST" DbUnlock() Best regards, Otto #include "fivewin.ch"REQUEST DBFCDXREQUEST DBFFPTFUNCTION MAIN()    LOCAL cDbf := "MYTEST.DBF"  ...

... optimize record updates in databases but requires an explicit COMMIT command to indicate that data must be written to the database.   Simple DBUNLOCK()/DBRUNLOCK() is enough.

... ,; if(Rlock(),(dbdelete(),dbunlock()),NIL) ) },,; {|| !eof() .and. PERFILFW->Usuario==Cript(Usuari) })) else MsgInfo('Usuario sin Perfil Definido') endif // MENU oMenu MENU ...

... not executed already thanks for the reply. I will make the case: ? CUST->CITYCUST->CITY := "CHANGED"? CUST->CITYCUTS->( DbUnlock() )  // do other process...CUST->( dbRollBack() )? CUST->CITY  Taking into account that CUST->CITY has ...

... hasta mi turno. Debe existir otra lógica y pienso que mejor, pero a mi me ha funcionado esto. Veo que le has agregado un SYSREFRESH() y sacado el DbUnlock(), que tenia en la grabación ? Mi problema en cuestión es que para la búsqueda en los Xbrowse, me han pedido pedido que vaya filtrando y mostrando ...

... donde hago un simple APPEND BLANK, es decir  select 40 ; append blank   replace codigop with codcli, nombrep with nom..... Pensaba que rlock() y dbunlock() debía colocarse justo cuando se editan/eliminan registros... pero NO para un simple INSERT. En este caso... ¿como debo proceder? Interponiendo ...

... --> nRecNo. (Registro recién agregado 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 ) --> ...

... DBFAPPEND() --> nRecNo (Newly appended 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 ...

... For n= 1 to nRecords (cAlias)->(DbGoto(n)) IF!Occupato((cAlias)) (cAlias)->(DbDelete()) (cAlias)->(DbCommit()) (cAlias)->(DbUnlock()) ENDIF next the problem is then how recreate the index file cdx or refresh it

... 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 str(a->Fol_lab,10) Do While (Nro_bon=a->Fol_lab).and.!eof() If Nro_for=0 ...

... DBUnlock()->Nil DBUnlockAll()->Nil DBUpdate(<cAlias>,<bReplace>,<bExpression>,[<lRandom>])->lSuccess DBUseArea([<lNewArea>],[<cDriver>],<cName>,[<xcAlias>],[<lShared>],[<lReadOnly>],[<cCodePage>],[<nConnection>])->Nil ...

... DBRUnlock DBSeek DBSelectArea DBSetDriver DBSetFilter DBSetIndex DBSetOrder DBSetRelation DBSkip DBSkipper DBSort DBStruct DBTableExt DBTotal DBUnlock DBUnlockAll DBUpdate DBUseArea DBZap Default DefPath Deleted DeleteFile Descend DevOut DevOutPict DevPos DirChange Directory DirectoryRecurse ...

... 0 ) select("Personal") APPEND BLANK IF Personal->(rlock()) REPLACE Huella WITH cTemplate Personal->(dbcommit()) Personal->(dbunlock()) ENDIF GO TOP nIdScore := 0 WHILE !eof() GrIdentifyPrepare( cTemplate, 0 ) nId:= GrIdentify( Personal->Huella, @nIdScore , 0 ) ? nId é ...

... a record lock for an individual record specified with <xRecno>. If no record identifier is passed to the function, DbRUnlock() bahaves like DbUnlock() since all active record locks are released. Locking and unlocking one or more records for shared write access is the task of DbRlock() and ...