FiveTech Software tech support forums

... ocol:beditvalue:={||odb2:itemid} oCol:nedittype:= {||if(ledit .and. LEN(ALLTRIM(odb1:stockid))>0.and.odb2:qty==0,EDIT_GET_BUTTON,0)} oCol:bEditBlock:={||goods2brw(odb2:itemid,,,odb2)} oCol:cEditPicture:="@!" oCol:bOnPostEdit := {|o, v, n| if( n != VK_ESCAPE .and. v != odb2:itemid,; ...

... OBJECT oCol   :bEditValue      := { || oQry:preke }   :bEditWhen       := { || lEdt }   :nEditType       := EDIT_GET_BUTTON   :bEditBlock      := { | nRow, nCol, oCol | brw_arr( "Choose!", { "Model", "Description" }, aMod, oCol:Value ...

... OBJECT oCol   :bEditValue      := { || oQry:preke }   :bEditWhen       := { || lEdt }   :nEditType       := EDIT_GET_BUTTON   :bEditBlock      := { | nRow, nCol, oCol | brw_arr( "Choose!", { "Model", "Description" }, aMod, oCol:Value ...

...  := { || oQry:preke }   :nEditType       := if( lEdt, EDIT_GET_BUTTON, EDIT_NONE )   :bEditBlock      := { | nRow, nCol, oCol | uVal := brw_arr( "Choose!", { "Model", "Description" ...

... ), nil ), Decrypt( FIELD->PASSWORD, cPW ) }  Now you can use either EDIT_GET or EDIT_BUTTON. In case of EDIT_BUTTON, bEditBlock should return the new password without encryption. In case edit is cancelled bEditBlock should return NIL.

I have on first column

WITH OBJECT oBrw:aCols[1]
:nBtnBmp := 1

:nEditType := EDIT_BUTTON
:bEditBlock :={||MsgInfo("selezione articolo")}

END

could also have the possibility to use EDIT_GET toghether with EDIT_BUTTON ?

bEditBlock should return the new value, if the value is changed or NIL if the value is not to be changed. This line: oBrwDeta:aCols[ nx ]:bEditBlock := { | r,c,o | o:value := PickPrd(o:value) } should be re-written as : oBrwDeta:aCols[ ...

One more thing (i think it is a bug):

When the user enter the data directly with the keyboard in the editable column, the :bOnPostEdit is evaluated.
But, when clicking the small button and : bEditBlock is evaluated returning a value, the :bOnPostEdit is NOT evaluated.

Thank for you answer.

Ralph

...   nx := len(oBrwDeta:aCols)    oBrwDeta:aCols[ nx ]:nEditType   := EDIT_GET_BUTTON    oBrwDeta:aCols[ nx ]:bEditBlock  := { | r,c,o | o:value := PickPrd(o:value) }    oBrwDeta:aCols[ nx ]:bOnPostEdit := { | oCol, xVal, nKey ...

...     nx := len(oBrwDeta:aCols)    oBrwDeta:aCols[ nx ]:nEditType   := EDIT_BUTTON    oBrwDeta:aCols[ nx ]:bEditBlock   := { | r, c, o | o:Value := PickPrd( o:Value ) }  Pero, cuando uso el modo de edicion EDIT_BUTTON no me permite escribir ...

... := {|| { 16711680,0 } }, ; oBrw:Refresh() } oBrw:aCols[3]:nHeadBmpAlign := AL_LEFT oBrw:aCols[4]:nEditType := EDIT_BUTTON oBrw:aCols[4]:bEditBlock := { | r, c, o | EditNotes( r, c, o, EditData[10] ) } oBrw:bLClicked := { | nRow, nCol | LOAD_FIEDS() } oBrw:bChange := { || LOAD_FIEDS() ...

oBrw:nEditType := 3 oBrw:bEditBlock := {||SomeDialog(oBrw)} Is it possible to place this dialog just below the cell to edit ? I tryed without succes : nRow := oBrw:oWnd:nTop + ( ( oBrw:nRowSel - 1 ) * oBrw:nRowHeight ) + oBrw:HeaderHeight() ...

... oBrw:aCols[1]:nEditType := EDIT_GET_BUTTON oBrw:aCols[1]:bEditValid := { | oGet, oCol | BuscarProd( oGet,oCol,oBrw,aDatos,oDlg1 ) } oBrw:aCols[1]:bEditBlock := {|| LeerCodigo(oDlg1,oBrw,aDatos),oBrw:GoRight(),oBrw:GoRight() } oBrw:aCols[1]:nDataStrAlign:= AL_LEFT oBrw:aCols[1]:nHeadStrAlign:= ...

... 980 ) Called from: C:\fwteam\samples\fivedbu.prg => MAIN( 58 ) ROW 552 original oBrw:aCols[ 2 ]:nEditType = EDIT_BUTTON oBrw:aCols[ 2 ]:bEditBlock = { || If( ! Empty( oBrw:aRow[ 2 ] ) .and. ; ! AllTrim( oBrw:aRow[ 2 ] ) == "/ /",; DToC( MsgDate( CtoD( oBrw:aRow[ 2 ] ) ) ),; ...

... ocol:beditvalue:={||odb2:itemid} oCol:nedittype:= {||if(::ledit .and. LEN(ALLTRIM(odb1:stockid))>0.and.odb2:qty==0,EDIT_GET_BUTTON,0)} oCol:bEditBlock:={||goods2brw(odb2:itemid,,,self,odb1:stockid)} // itemid,lvalid,unitid,lmulti oCol:cEditPicture:="@!" oCol:bOnPostEdit := {|o, ...