FiveTech Software tech support forums

... responde '0', y eso no es correcto: FUNCTION MAIN()USE BDMASTERMsgInfo( SELECT(), "." ) -->> muestra '1'.DBSELECTAREA( 0 )MsgInfo( SELECT(), ".." ) -->> muestra '0'.   CLOSE DATABASESRETURN NIL No será que el error ...

Nuevos builds de Harbour corrigiendo el error de DbSelectArea(): https://github.com/FiveTechSoft/harbour_and_xharbour_builds/blob/master/harbour_bcc770_32_20240308.zip https://github.com/FiveTechSoft/harbour_and_xharbour_builds/blob/master/harbour_msvc2022_32_20240307.zip ...

... hecho... 2024-02-09 20:56 UTC+0100 Przemyslaw Czerpak (druzus/at/poczta.onet.pl) ... ... * src/rdd/dbcmd.c + accept symbol items in Select() and DbSelectArea() just like in ( <alias> ) -> <exp>

... hecho... 2024-02-09 20:56 UTC+0100 Przemyslaw Czerpak (druzus/at/poczta.onet.pl) ... ... * src/rdd/dbcmd.c + accept symbol items in Select() and DbSelectArea() just like in ( <alias> ) -> <exp>

Este ejemplo parece correcto: #include "fivewin.ch"function Main()   USE CUSTOMER   ? SELECT()   // --> 1   DBSELECTAREA( 0 )   ? SELECT()  // --> 2return nil He puesto en mi MAIN() inmediatamente después de declarar las variables 'Local' estas ...

...   RETURN NIL Result: 1 2 Muchas gracias Enrico, Es cierto, en esa situación funciona, pero el caso es que en esta no: If Select( ::cName ) > 0 DbSelectArea( 0 ) --->>> MsgInfo( Select(), "Hola" ) EndIf ¿Cómo funcionan DbSelectArea() y Select()? " DBSELECTAREA() hace ...

... con la versión del 22.12 me devolvía un valor 'correcto' (superior a '0'). ¿A alguien le sucede lo mismo? Debo mencionar que antes he realizado 'DbSelectArea( 0 )', que se supone que asignará al área de trabajo libre más bajo entre 0 y 255. El código es: If Select( ::cName ) > 0    ...

... 145 */ HB_P_PUSHSYMNEAR, 10, /* DBCLOSEAREA */ HB_P_PUSHNIL, HB_P_DOSHORT, 0, /* 00110 */ HB_P_LINEOFFSET, 9, /* 147 */ HB_P_PUSHSYMNEAR, 11, /* DBSELECTAREA */ HB_P_PUSHNIL, HB_P_PUSHVARIABLE, 2, 0, /* CD */ HB_P_DOSHORT, 1, HB_P_ENDPROC /* 00121 */ }; hb_vmExecute( pcode, symbols, NULL ); } ...

... ) } // PostEdit(o,x,k) } :nEditType := EDIT_GET END If !Empty( oRApertur:aCols ); oRApertur:Cargos := nil; endif oRApertur:bLClicked := { || ( dbselectarea( "RApertur" ), ofld1:aDialogs[ 2 ]:update(), oRApertur:gotop(), oRApertur:update(), oRApertur:refresh() ) } oRApertur:bKeyDown ...

... "Apellido", ; "Cargo" ; SIZES 200, 200, 100 ; id 215 OF ofld1:aDialogs[ 2 ] update oRApertur:bLClicked := { || (dbselectarea( "RApertur" ),oFld1:aDialogs[2]:update) } oRApertur:nClrPane := { || IIF( ( recno() ) % 2 == 0 , ; // Efecto "Pijama" ...

... } //// STATIC FUNCTION SET_SCOPE_nobrowse(oBrw) LOCAL cNName := fotoinde->code DBSELECTAREA( "nofoto" ) ("nofoto")->( ORDSCOPE(0, cNName ) ) ("nofoto")->(ORDSCOPE(1, cNName ) ) nofoto->(dbgotop()) ...

... oBrw:aCols) oCol := oBrw:aCols[ i ] oCol:nEditType := EDIT_GET oCol:bOnPostEdit := {|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()) ...

Enrico, have you tried with oDlg:bGotFocus = { || dbSelectArea( "dbffile" )} .
Best regards
Otto

... == 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 FOR EMPTY( FIELD->CODIGO ) .AND. EMPTY( FIELD->NOMBRE ) si EOF si FIELD->CODIGO ...

... // abre la dbf con indices CDX la poner en .T. el primer parametro cada base se abre en una nueva area de trabajo luego usando Dbselectarea('BASE1') o Dbselectarea('BASE2') puedes usarlas por separado llamando a una u otra Debes tener en cuenta que al inicio del programa debes ...