FiveTech Software tech support forums

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()" ...

... RETURN NIL FUNCTION TESTA_PROCESSO_01(cCompetencia) LOCAL aRet := {} LOCAL dData LOCAL nSele := Select() LOCAL cAvulso LOCAL cField, nLen LOCAL oMes,oEmp,oAvu LOCAL oPan, aCargo, cAno,lAllOk, nPos, aTemp, a // LOCAL cComp LOCAL nConti:=0 LOCAL nContador :=0 LOCAL nContador2:=0 local ...

Prueba asi:

msginfo( CChex_Update( Anviz_handle, iDx, tipo, aDatos, nLen ) )

... MH_RecordSetToHTML( oRs, lHtmlPage ) static function CloseTag( cTag ) static function ImageType( cBuf ) static function IsBinaryData( cData, nLen ) static function MH_ValToHTML( uVal, cTag ) These functions are working well and are generic functions. If we see that there is some interest ...