FiveTech Software tech support forums

... },VK_INSERT,"<Insert>",.f.},; {"Borrar.bmp" ,"Borro Registro " , "Borrar" , {|| (if(Borro(),dbdelete(),NIL),oBrw:SetFocus(),oBrw:refresh()) },VK_DELETE,"<Delete>",.f.},; {"Editar.bmp" ,"Modifico Registro" ...

... aadd(TablaMnu,{OpcMenu->Orden,OpcMenu->Tipo,OpcMenu->Opcion,OpcMenu->Mensaje,OpcMenu->Accion,OpcMenu->Imagen}) ,; if(Rlock(),(dbdelete(),dbunlock()),NIL) ) },,; {|| !eof() .and. PERFILFW->Usuario==Cript(Usuari) })) else MsgInfo('Usuario sin Perfil Definido') endif // MENU ...

... RDDs. This feature exists in the RDDs for many years. Simple Syntax: dbInfo( DBI_ROLLBACK )  This rolls back any modifications (including DBDELETE() and DBRECALL()) made to the current record in the current work area. Just like any RDBMS, RollBack does not work after COMMIT. FWH was using ...

... },VK_INSERT,"<Insert>"},; {"Borrar.bmp" ,"Borro Registro " , "Borrar" , {|| .t./*(if(Borro(),dbdelete(),NIL),oBrw:SetFocus(),oBrw:refresh())*/ },VK_DELETE,"<Delete>"},; {"Editar.bmp" ,"Modifico Registro" , ...

... blank si CLIENTES->( OrdScope( 1, Nil ) ) ? COUNT TO nDuplicados FOR FIELD->NUMERO == nNumero ? COUNT TO nRegistros si DBCLEARFILTER si DbDelete si DbDelete() si DbGoBottom() si Dbgoto( nregistro ) si Dbseek( nCodigo ) si dbSelectArea si DbSetOrder(1) si DBSKIP si DBSKIP() ? DELETE ALL ...

there is a method Local nRecords:= (cAlias)->(reccount()) 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

... DBCreateIndex(<cIndexName>,<cKeyExpr>,<bKeyExpr>,[<lUnique>])->Nil DBDelete()->Nil DBDrop([<cTable>],[<cIndex>])->Nil DBEdit([<nTop>],[<nLeft>],[<nBottom>],[<nRight>],[<acColumns>],[<cUserFunction>],[<acColumnSayPictures>|<cColumnSayPicture>],[<acColumnHeaders>|<cColumnHeader>],[<acHeadingSeparators>|<cHeadingSeparator>],[<acColumnSeparators>|<cColumnSeparator>],[<acFootingSeparators>|<cFootingSeperator>],[<acColumnFootings>|<cColumnFooting>])->Nil ...

... DBClearFilter DBClearIndex DBClearRelation DBCloseAll DBCloseArea DBCommit DBCommitAll DBCopyExtStruct DBCopyStruct DBCreate DBCreateIndex DBDelete DBDrop DBEdit DBEval DBExists DBF DBFieldInfo DBFileGet DBFilePut DBFilter DBFSize DBGoBottom DBGoTo DBGoTop DBInfo DBJoin DBList DBOrderInfo ...

... local lMateria := ( Len(cCargo) <= 40 ) local nNext SELECT GE GE->(DbSkip()) nNext := GE->(Recno()) GE->(DbGoto(nRecno)) GE->(DbDelete()) GE->(DbPack()) GE->(DbGoto(nNext)) IF GE->(EOF()) .or. nNext == nRecno GE->(DbGoBottom()) ENDIF now try to del the item on tree ...

... Ya comenté en el anterior post que ZAP no funciona en win CE, pero borrando y creándo la dbf y sus índices hace el mismo efecto. Pero, sí funciona DbDelete(), lo marca, pero para luego mostrar recno() y reccount() correcto, debo hacer un DbPack(), pero inexplicablemente no funciona, y además desmarca ...

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...

... required: TABLE1 Stack Calls =========== Called from: => UR_SUPER_ERROR( 0 ) Called from: test.prg => ADO_DELETE( 1068 ) Called from: => DBDELETE( 0 ) Called from: .\source\classes\XBROWSE.PRG => (b)TXBROWSE_SETRDD( 4153 ) Called from: .\source\classes\XBROWSE.PRG => (b)TXBROWSE( ...

... dbUnLock() dbSetOrder( <oldIndex> ) ELSE ? "no bloqueado récord" ENDIF para eliminar un registro IF Rlock() dbSetOrder( 0 ) DbDelete() dbCommit() dbUnLock() dbSetOrder( <oldIndex> ) ELSE ? "no bloqueado récord" ENDIF

... ),; iif(nKey=46 .AND. Confirma("¨Deseas Borrar la entrada "+AllTrim(GUIINGAL->Nombres)+"?"),; (Iif(Rlock(),GUIINGAL->(dbDelete()),),; oLbx:nRowSel:=1, oLbx:Refresh()),; iif(nKey=65 ,(EditList(.T.,oWPpal), oLbx:nRowSel := 1, oLbx:Refresh()),; iif(nKey=77 ,(EditList(.F.,oWPpal), ...

... ID 190 RESOURCE 1190 OF oDlg ACTION IF (Confirma("¨Deseas Borrar la entrada "+ALLTRIM(MAEREP->Descrip)+"?"),; (MAEREP->(dbDelete()), oLbx:nRowSel:=1, oLbx:Refresh()), ) REDEFINE BTNBMP oBtn[4] ID 200 RESOURCE 1200 OF oDlg REDEFINE BTNBMP oBtn[5] ID 210 RESOURCE 1210 OF ...