FiveTech Software tech support forums

this is the function code in "memvars.c" of Harbour HB_FUNC( __MVSETBASE ) { HB_STACK_TLS_PRELOAD HB_ISIZ nOffset = hb_stackBaseProcOffset( 0 ); if( nOffset > 0 ) hb_stackItem( nOffset )->item.asSymbol.stackstate->nPrivateBase = hb_memvarGetPrivatesBase(); }

Dear Cristobal,

Thank you for the kind words.
Now also preload is working fine.

Best regards,
Otto

... EXECUTABLE COMPRESS 5 MAP S,A,X PACKCODE PACKDATA DEFBEGIN name PeadWin description 'Clipper for Windows library' exetype Windows 3.1 data preload moveable code preload moveable nondiscardable stacksize 8500 heapsize 2048 segment 'PLANKTON_TEXT' nondiscardable segment 'EXTEND_TEXT' nondiscardable ...

We confirm the problem that the values used in SetDefault() are not being saved. We fixed it in the next version FWH1904.
Till then you may use FieldPut() as I explained above.

Please try

Code: Select all  Expand view

oRec:FieldPut( fldname, value )

instead of

Code: Select all  Expand view

oRec:SetDefault( fldname, value )

Same problem in when i use 19.03

Version 18.12

I will check again and get back to you.
Can you let me know which version are you using for testing? FWH1903?

Still, the preloaded data is seens in the edit dialog, but will not be saved ?

It seems that only the inputfields that are changed are saved, not the fields that are filled with preloaded data.

Can this be a issue from FW ? I would like to use the standards of FW for this kind of small dialogs.

// Here I want based on the current colomn to put the Seek data in that field /* if oBrw:oCol() = 2 oRec:SetDefault( "naam_1", oBrw:cSeek ) elseif oBrw:oCol() = 3 oRec:SetDefault( "straat", oBrw:cSeek ) oRec:SetDefault( oBrw:SelectedCol():cExpr, oBrw:cSeek )  It ...

Can you please try this? oBrw:bDataRow := <|oBrw,cFieldList,lNew|    local oRec := TDataRow():New( oBrw:uDataSource, cFieldList, lNew )   if oRec:RecNo == 0  // new record      oRec:SetDefault( fieldname, yourvalue )   endif   return oRec   >  It works for getting the ...

From FWH 1904 we can write oBrw:EditSource(.T., "klant_nr,Naam_1,Straat,Postcode,Gemeente" , { nil, "somename", nil, nil, cGemeente }) The non empty values in the array in the 3rd paramter will be initially assigned to the fileds in that order. Very Nice.. Wait...

From FWH 1904 we can write

Code: Select all  Expand view

oBrw:EditSource(.T., "klant_nr,Naam_1,Straat,Postcode,Gemeente" , { nil, "somename", nil, nil, cGemeente })

The non empty values in the array in the 3rd paramter will be initially assigned to the fileds in that order.

Can you please try this? oBrw:bDataRow := <|oBrw,cFieldList,lNew|    local oRec := TDataRow():New( oBrw:uDataSource, cFieldList, lNew )   if oRec:RecNo == 0  // new record      oRec:SetDefault( fieldname, yourvalue )   endi...

Can we preload data when using the editsource() function from Xbrowse, without building a own adit function ?  oBrw:EditSource(.T., "klant_nr,Naam_1,Straat,Postcode,Gemeente" )  some edit values should contain ...