FiveTech Software tech support forums

... RETURN   Does not work for me. Can I see your output? Anyway, you mixed the R lock flavor and the normal lock flavor. With DBRLOCK() you must use DBRUNLOCK(). And furthermore, APPEND BLANK operation locks the newly appended record so there is no need of another lock.

... ) ) ;      SIZE 200,30 PIXEL OF oDlg UPDATE   @ 140, 20 BUTTON "Unlock" SIZE 140,30 PIXEL OF oDlg ;      ACTION ( DBRUNLOCK(), oDlg:Update(), oGet:SetFocus() )   @ 140,280 BUTTON "Close" SIZE 100,30 PIXEL OF oDlg ;      ACTION ...

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

... := {|o, v, n| iif( (n != VK_ESCAPE .AND. oBrw:nColSel >2), (dbselectarea("EQUIP"),DBRLOCK(), FieldPut( o:nCreationOrder-1, v ), DBRUNLOCK() ), ) } oCol:bLClickHeader := {|r,c,f,o| (DEXO(o:nCreationOrder),oBrw:refresh()) } NEXT

Does SQLRDD support
DBRLOCK( [nRec] ) and
DBRUNLOCK( [nRec] ) ?

... DBRLock([<xRecno>])->lSuccess DBRLockList()->aLockedRecords DBRSelect(<nRelation>)->nWorkArea DBRUnlock([<xRecno>])->Nil DBSeek(<expKey>,[<lSoftSeek>])->lFound DBSelectArea(<nArea>|<cAlias>)->Nil DBSetDriver([<cDriver>])->cCurrentDriver ...

... DBGoTo DBGoTop DBInfo DBJoin DBList DBOrderInfo DBPack DBRecall DBRecordInfo DBReindex DBRelation dbRename DBRLock DBRLockList DBRSelect DBRUnlock DBSeek DBSelectArea DBSetDriver DBSetFilter DBSetIndex DBSetOrder DBSetRelation DBSkip DBSkipper DBSort DBStruct DBTableExt DBTotal DBUnlock ...

... .AND. (!EMPTY(ctnrtrx->notify)) .AND. (!EMPTY(ctnrtrx->outgate)) DO WHILE (.T.) IF ctnrtrx->( dbrlock() ) ctnrtrx->( dbrunlock() ) EXIT ENDIF ENDDO ENDIF SELECT edi315 APPEND BLANK edi315->isa := 'HEREGPS' edi315->ctnr := ALLTRIM( cAssetid ) edi315->reqno ...

... block of the TBrowse object. It provides for standard skip behaviour when browsing data in a work area. de la ayuda de xHarbour Description The DbRUnlock() function releases a record lock for an individual record specified with <xRecno>. If no record identifier is passed to the function, ...

... block of the TBrowse object. It provides for standard skip behaviour when browsing data in a work area. de la ayuda de xHarbour Description The DbRUnlock() function releases a record lock for an individual record specified with <xRecno>. If no record identifier is passed to the function, ...

...  If InsDownRecord(lRelease,.F.)      //if NetRecLock(, RECNO() )         ArrayToFields(aRecord)     if lUnlock            DBRUnLock( RECNO() )         endif      //else         //MsgInfo( "El registro esta en uso, intente nuevamente", "InsDupRecord(..)" ...

...  If InsDownRecord(lRelease,.F.)      //if NetRecLock(, RECNO() )         ArrayToFields(aRecord)     if lUnlock            DBRUnLock( RECNO() )         endif      //else         //MsgInfo( "El registro esta en uso, intente nuevamente", "InsDupRecord(..)" ...

EXPORTS HB_FUN_AADD @1 HB_FUN_ABS @2 HB_FUN_ACCELERATO @3 HB_FUN_ACCELERATOR @4 HB_FUN_ACHOICE @5 HB_FUN_ACLONE @6 HB_FUN_ACOPY @7 HB_FUN_ADEL @8 HB_FUN_ADIR @9 HB_FUN_AEVAL @10 HB_FUN_AFIELDS @11 HB_FUN_AFILL @12 HB_FUN_AINS @13 HB_FUN_ALERT @14 HB_FUN_ALIAS @15 HB_FUN_ALLTRIM @16 HB_FUN_ALTD @17 H...

... - A los METODOS RecLock() y UnLock() se les ha añadido el número de registro a bloquear/desbloquear cambiando RLock() x DBRLock() y DBUnlock() x DBRUnLock(). De esta manera se persigue que se pueda realizar el bloqueo de varios registros a voluntad, evitando que al momento de ser grabados se ...

... pulse Enter para reintentar") end while ...sustituyo los valores del campo por los de las variables Archivo->(dbCommit()) Archivo->(dbRUnLock()) oBrw:refresh() end if Borrado: if lConforme while ! Archivo->(dbRLock()) MsgInfo("Registro bloqueado por otro usuario, pulse Enter ...