FiveTech Software tech support forums

... 'vta0000.ch' //----------------------------------------------------------------- function go_code( cBarra, nx,ny,oPrint,lHoRz, nColor, nWidth, nLen) //----------------------------------------------------------------- local n, oBr if empty(nColor) nColor := CLR_BLACK end default lHorz := .t. ...

... pItem: Un puntero a un objeto PHB_ITEM que se va a modificar. szText: Un puntero a una cadena de caracteres que se va a asignar al objeto pItem. nLen: La longitud de la cadena szText. Funcionamiento La función comienza con una llamada a HB_TRACE, que probablemente es una función de depuración ...

... no sé si esto último sea correcto, alguien que sepa que aclare por favor. PHB_ITEM hb_itemPutCLPtr( PHB_ITEM pItem, char * szText, HB_SIZE nLen ){   HB_TRACE( HB_TR_DEBUG, ( "hb_itemPutCLPtr(%p, %.*s, %" HB_PFS "u)", ( void * ) pItem, ( int ...

any solution please ? the problem is when I make a search for a sample "frank" ( on First) ndatarow is 3 and also obrw:nlen is 3 I tried to inser a variable nTotalrecords at init oDbf:= TCustomer():New() oDbf:setorder(1) oDbf:Gotop() nTotalRecords:= oDbf:OrdKeyCount() and the ...

oDbf:OrdKeyCount() ) This works only for oDbf. Using oBrw:nLen or oBrw:KeyCount() works for all datasources. ok but the button are not refreshed , only when I move the mouse into obrw for a sample WHEN ( oBrw:nDataRows <= oBrw:nLen ) not work WHEN ...

oDbf:OrdKeyCount() )

This works only for oDbf.
Using oBrw:nLen or oBrw:KeyCount() works for all datasources.

oBrw:nLen and oBrw:nDataRows get their values after the first Refresh/paint of the browse. Also oBrw:nDataRows changes when browse is resized. DEFINE BUTTON/BTNBMP ..... (arrows)  ... WHEN ( oBrw:nDataRows >= ...

oBrw:nLen and oBrw:nDataRows get their values after the first Refresh/paint of the browse.
Also oBrw:nDataRows changes when browse is resized.

Code: Select all  Expand view

DEFINE BUTTON/BTNBMP ..... (arrows)  ... WHEN ( oBrw:nDataRows >= oBrw:nLen )

would work

oBrw:nLen But in case of DBF, please see https://forums.fivetechsupport.com/viewtopic.php?f=3&t=44259&p=268091&hilit=DELETED&sid=ff38ec55e29d34b39e3578311e2aeb8d#p268091 https://i.postimg.cc/FHdXGgsv/gggggg.png ...

oBrw:nLen

But in case of DBF, please see
viewtopic.php?f=3&t=44259&p=268091&hilit=DELETED&sid=ff38ec55e29d34b39e3578311e2aeb8d#p268091

... prg este porcion #pragma BEGINDUMP #include <hbapi.h> #undef hb_retclen_buffer #undef hb_parldef void hb_retclen_buffer( char * szText, int nLen ) { hb_retclen( szText, nLen ); } int hb_parldef( int iParam, int iDefValue ) { return hb_parl( iParam, iDefValue ); } #pragma ENDDUMP

Solucionado nLen := Len( oSire:jsonPeriodo ) hJson:= oSire:jsonPeriodo If !Empty( nLen ) FOR EACH o IN hJson eje->(DBAppend()) eje->ejercicio := o["numEjercicio"] eje->desestado := o["desEstado"] FOR ...

... {"perTributario":"202305","codEstado":"03","desEstado":"No Presentado"}]}] nLen := hb_jsonDecode(cRpta,@hJson) HB_MEMOWRIT(::cPathDescarga+"respuesta.txt",cRpta) FW_MEMOEDIT( hJson, "JSON" ) Error: Error ...

... oCn, cTable, aStruct )LOCAL oCat   := CreateObject( "ADOX.Catalog" )LOCAL oTable, aFld, n, cTypeLOCAL oColLOCAL nType, nLen, i, iMax, cName   oCat:ActiveConnection := oCn   cTable := LOWER( cTable )   oTable := CreateObject( "ADOX.Table" )  ...

... .and. lFileIsRemote( ( ::cAlias )->( DBINFO( DBI_FULLPATH ) ) ) * DEFAULT ::bKeyNo := { |n| ( ::cAlias )->( If( n == nil, OrdKeyRelPos() * ::nLen, ; * If( Empty( OrdSetFocus() ), OrdKeyGoTo( n ), OrdKeyRelPos( n / ::nLen ) ) ) ) } * else ::lRelyOnKeyNo := If( Set( _SET_DELETED ), "DELETED()" ...