topic-18278

Board index FiveWin for Harbour/xHarbour Edit a xBrowse array

Posts: 312

Joined: Sat Oct 08, 2005 09:12 AM

Edit a xBrowse array
Posted: Fri Mar 05, 2010 11:02 AM

Hi all,

i try to edit an array value from a xBrowse.
But i can't see the post edit value.
Do i miss something?
Here my code

Code (fw): Select all Collapse

REDEFINE XBROWSE oBrw ID 10 OF oDlg;
      ARRAY aArtGrp;
      COLUMNS 1, 2, 4;
      HEADERS "Art.Grp.", "Name", "Target";
      SIZES    50       ,  120  ,  90

   WITH OBJECT oBrw
      :lKineticBrw      := .f.
      :nMarqueeStyle    := MARQSTYLE_HIGHLROW
 
      :oCol( "Target"   ):nEditType  := EDIT_BUTTON 
      :oCol( "Target"   ):addResource( "qty" )
      :oCol( "Target"   ):nBtnBmp    := 1            
      :oCol( "Target"   ):bEditBlock := { || GetNewTarget( oBrw, cKdNr, @nRet ) }
   END
...

STATIC PROCEDURE GetNewTarget( oBrw, cKdNr, xnTarget )
LOCAL oDlg
LOCAL nTarget := 0, oTarget

   DEFINE DIALOG oDlg RESOURCE "GET_TARGET"

   REDEFINE GET oTarget VAR nTarget ID 20 of oDlg PICTURE "@E 9999999" 

   ACTIVATE DIALOG oDlg CENTERED ON PAINT oTarget:SetFocus()

   if oDlg:nResult == ID_OK    
      do while !tgt->( dbAppend() ); enddo
         tgt->kdnr   := cKdNr
         tgt->artgrp := left( cArtGrp, 3 )
         tgt->target := nTarget
      tgt->( DbUnLock() )
      
      xnTarget := nTarget
   endif
   
   oBrw:Refresh()
   oBrw:SetFocus()
RETURN

Thanks and regards,
Detlef

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: Edit a xBrowse array
Posted: Fri Mar 05, 2010 11:48 AM

bEditBlock should return the new value if edited or old value if not edited.

You may change the bEditBlock as:

Code (fw): Select all Collapse

:oCol( "Target"   ):bEditBlock := { || GetNewTarget( oBrw, cKdNr, oBrw:aRow[ 4 ]) }

Please also change STATIC PROCEDURE as STATIC FUNCTION and RETURN xnTarget.

Regards

G. N. Rao.

Hyderabad, India

Detlef Hoefner

Posts: 312

Joined: Sat Oct 08, 2005 09:12 AM

Re: Edit a xBrowse array
Posted: Fri Mar 05, 2010 04:19 PM

nageswaragunupudi wrote:bEditBlock should return the new value if edited or old value if not edited.

You may change the bEditBlock as:
Code (fw): Select all Collapse
:oCol( "Target" &nbsp; ):bEditBlock := { || GetNewTarget( oBrw, cKdNr, oBrw:aRow[ 4 ]) }
Please also change STATIC PROCEDURE as STATIC FUNCTION and RETURN xnTarget.

Dear Mr. Rao,

many thanks again for your help.
It's working fine now.

btw,
The part : oBrw:aRow[ 4 ] was not necessary and will make trouble if the user changes the column order.

Regards,
Detlef

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: Edit a xBrowse array
Posted: Fri Mar 05, 2010 05:01 PM

The part : oBrw:aRow[ 4 ] was not necessary and will make trouble if the user changes the column order.

It would not in this case. oBrw:aRow[ 4 ] is same as oBrw:aArrayData[ oBrw:nArrayAt ][ 4 ] and 4 is not column number but your array element.

But I fully agree with you that we should avoid using absolute column numbers in our code. I never use numbers.

I would have written the above code block as :

Code (fw): Select all Collapse

oBrw:Target:bEditBlock := { || GetNewTarget( oBrw, cKdNr, oBrw:Target:Value ) }

This code works even if you later change your array structure.

Regards

G. N. Rao.

Hyderabad, India

FiveTech Support Forums

Continue the discussion