FiveTech Software tech support forums

Mr. Rao, I will post the complete solution it is the way I'm doing it using : :bEditBlock := { | nRow, nCol, oCol , nKey | ; FUNCTION MYCELLDLG( oBrw, nRow, nCol, oCol , nKey, aItems, aImages, nImgHeight, oListFont, nColor ) .... .... ON INIT ( some calculations.... ...

... MyCellDlg( .. that will calculate the needed overall-size in relation to the defined items. WITH OBJECT :aCols[ 3 ] :nEditType := EDIT_BUTTON :bEditBlock := { | nRow, nCol, oCol, nKey | Retvalue := MyCellDlg( oBrw, nRow, nCol, oCol, nKey ), ; IIF( Retvalue <> NIL, ( oCust:City := Retvalue, ...

... la columna y termina normal. /* WITH OBJECT aBrw:aCols[ 1 ] :addbmpfile( op:bmp16+"eye.bmp" ) :nBtnBmp := 1 :nEditType := EDIT_BUTTON :bEditBlock := {|| VerItems( cCodigo,cQry:tipo,cQry:ord_comp )} :lBtnTransparent := .t. :lBmpStretch := .t. END */ he tenido que solucionarlo usando ...

... 6] :AddBmpFile(".\bitmaps\DLG_NO_MIN.bmp ") :lBmpStretch := .F. :lBmpTransparent := .T. :nwidth := 10 :nEditType := EDIT_BUTTON :bEditBlock := { ||DeleteRow(oBrowse,aGet) } END END the problem : ( I not see the bitmap on row but only the button) https://s8.postimg.cc/5dk2oja7p/image.png ...

Estimados Lo de bEditBlock lo solucioné pasando la base a un Array, sólo me falta condicionar las columnas. Gracias Saludos... ya probastes :bEditWhen := {|| !EMPTY( aItems[oBrw:nArrayAt, 2] ) }, gracias... :shock:    WITH OBJECT ...

Estimados

Lo de bEditBlock lo solucioné pasando la base a un Array,

sólo me falta condicionar las columnas.

Gracias

... {|o, v, n| Nuevo->haber:=v }      oCol:nFooterType := AGGR_SUM   Aparte rengo un problema también en xBrowse Con bEditBlock Habilitando la pulsación de una tecla en éste caso F2     oCol:=oBrw1:AddCol()      oCol:cEditPicture   ...

... OBJECT oBrw:aCols[ 2 ]      :nEditType     := EDIT_BUTTON      :AddResource( "OPEN" )      :nBtnBmp       := 1      :bEditBlock    := { || test()}      :beditwhen    := { || oBrw:keyno <> 1 }   END   oBrw:CreateFromCode()  ...

I tried also with

:nEditType := EDIT_BUTTON
:bEditBlock := { |o|Msginfo("") }
:bEditWhen := { || oBrw:nArrayAt<>1 }

I wish when on first line of the browse thefinal user cannot edit the cell

the user can edit only from second line

... :nBtnBmp := 1 :nwidth := 60 :nDataStrAlign := AL_CENTER :nHeadStrAlign := AL_CENTER :nEditType := EDIT_BUTTON :bEditBlock := { ||RES->QUANTITY++ } :lBtnTransparent := .t. :bEditWhen := { || oBrw:BookMark == 1 } END not run it add the quantity also the record ...

Your changes are correct. It should work. Anyway please try this new function XBrDatePicker( oBrw:oCol ) Usage: oCol:bEditBlock := { |r,c,o,k| XbrDatePick( o ) } #include "fivewin.ch"static dDate, dBOM, dOffSetstatic nMonth, cMonth, nYearstatic oBrw, oDate//----------------------------------------------------------------------------//function ...

... := {| oCol, xVal, nKey | IIf( nKey == VK_RETURN,(aParcelasModalidade[oBrowse:nArrayAt,3] := xVal, oBrowse:Refresh()),) } oBrowse:aCols[2]:bEditBlock := {|r,c| IIf(!Empty(aParcelasModalidade[oBrowse:nArrayAt,1]), aParcelasModalidade[oBrowse:nArrayAt,3] := Calend(aParcelasModalidade[oBrowse:nArrayAt,3], ...

... := 16 oBrwcp:aCols[10]:nBtnWidth := 12 oBrwcp:aCols[10]:nEditType := EDIT_GET_BUTTON oBrwcp:aCols[10]:bStrData := {|| ''} oBrwcp:aCols[10]:bEditBlock := {|| Produto_Bonificar_Menos( oBrwcp, aHistoricoComprasProdutos ), NIL} oBrwcp:aCols[10]:bEditWhen := {|| .f. } oBrwcp:AddCol() oBrwcp:aCols[11]:nDataStrAlign ...

... := AL_CENTER oBrwb:aCols[1 ]:cHeader := 'Venda' oBrwb:aCols[1 ]:cBtnCaption := '$' oBrwb:aCols[1 ]:nEditType := EDIT_GET_BUTTON oBrwb:aCols[1 ]:bEditBlock := {|| oBrwb:SelectCol(1), NIL } //ISSO NÃO FUNCIONA :cry: oBrwb:aCols[1 ]:oBtnList:cToolTip := 'Teste'

Found it

oCol:bOnChange := { |oCol, uOldVal| OnColChange( oCol, uOldVal ) }