FiveTech Software tech support forums

Roberto Utilizá oCol:bEditValue en vez de oCo:bStrDatal  oCol:=oBrw:AddCol()   oCol:bEditValue := { || LCV->IMPORTE }   oCol:cHeader  := "IMPORTE"   oCol:nHeadStrAlign ...

... @ x,y Xbrowse.... WITH OBJECT oBrw WITH OBJECT oBrw:InsCol( 8 ) :lHide := !lRitenuta :bEditValue := { || AScan( oBrw:aSelected, oBrw:BookMark ) > 0 } :SetCheck() :nHeadBmpNo := { || If( Len( oBrw:aSelected ) == oBrw:nLen, 1, 2 ) } ...

... the new import ( sample nImporto+20%) I made @x,y button ...action Ins_Ritenuta(oBrw) Function Ins_Ritenuta(oBrw) WITH OBJECT oBrw:InsCol( 8 ) :bEditValue := { || AScan( oBrw:aSelected, oBrw:BookMark ) > 0 } :SetCheck() :nHeadBmpNo := { || If( Len( oBrw:aSelected ) == oBrw:nLen, 1, 2 ) } ...

...  := i18n("Tasso")      oBrwCambi:aCols[3]:nWidth   := 70    WITH OBJECT oBrwCambi:InsCol( 1 )      :bEditValue    := { || AScan( oBrwCambi:aSelected, oBrwCambi:BookMark ) > 0 }      :SetCheck()      :nHeadBmpNo    := { ...

Mr. Rao, Thank you. it is ok now. I have read before you said this. I have tried to change all bStrData to bEditValue in my apps. But in case dbfcdx, some colons (that is defined by bEditValue) the backslashs (\) appears and some characters is missing. It could be codepage problem. ...

Please use oBrw:bEditValue instead of oBrw:bStrData. You do not have to add any code to check emptiness of the array. Please try      oCol:bEditValue := {||ALLTRIM(oBrw:aRow[3]) + ;               IIF(!EMPTY(oBrw:aRow[4])," ...

... pair of values like 'T','F', etc if required. Eg: oCol:SetLogical( 'T', 'F' ) This method works only when oCol:cDataType is 'C' or 'N' and oCol:bEditvalue is already assigned. Normally this is the case when browse is created with command syntax from RDD,ADO,MySql/ Dolphin with columns clause. ...

FranciscoA wrote:No uso TDolphin, pero me da la impresion que aqui:

:acols[1]:bData:= { || oQuery:ID_PROG} <--------------------- esto esta mal.

...deberia ser: acols[1]:bEditValue:= { || oQuery:ID_PROG} o acols[1]:bStrData:= { || oQuery:ID_PROG}
Saludos.

gracias.

No uso TDolphin, pero me da la impresion que aqui:

:acols[1]:bData:= { || oQuery:ID_PROG} <--------------------- esto esta mal.

...deberia ser: acols[1]:bEditValue:= { || oQuery:ID_PROG} o acols[1]:bStrData:= { || oQuery:ID_PROG}
Saludos.

... nx and ny parameters interchanged. Now fixed. * Enhancement: TXBrowse can now browse Blank Trees. Note: If the programmer adds columns on his own, bEditValue should check if oBrw:oTreeItem == nil and return the value appropriately. Columns created within command automatically take care of this. ...

... lo uso de tipo integer de 1 valor, en el cual uso 0 ó 1. 2. esa columna la muestro asi oBrw:aCols[5]:cHeader := "ADJ." oBrw:aCols[5]:bEditValue := {|| IIF( oQryADJ:LastRec() == 0, SPACE(10) ,; ( IIF( oQryADJ:adj_adjudicar==0, .f., .t. ) ) ) } oBrw:aCols[5]:nHeadStrAlign := AL_LEFT ...

... with object oBrw:oCol(1) :cHeader := 'Código' :cEditPicture := '999999' :nDataStrAlign := AL_CENTER :nHeadStrAlign := AL_CENTER :nWidth := 100 :bEditValue := {|| oData:codigo} end with object oBrw:oCol(2) :cHeader := 'Nome' :cEditPicture := '@!' :nDataStrAlign := AL_LEFT :nHeadStrAlign := AL_LEFT ...

... this workaround. First specify the COLUMNS CLAUSE with some column name for the second column also. After that you assign codeblock to the oCol:bEditValue. Example: oBrw:aCols[ 2 ]:bEditValue := { || ........your codeblock } Also assign :cEditPicture if required and assign :cHeader Alternatively, ...

If oCol:cDataType is nil, the column's Adjust() method assigns ::cDataType := ValType( Eval( ::bEditValue ) ). I shall give here the actual fix adopted: Please see the code from line 8362 to 8371 The existing code is reproduced below:           ...

... != nil .and. oCol:cDataType $ "+="  Fixed for the next release. With this solution oCol:cDatatype remains nil , maybe : if Empty( oCol:bEditValue ) ..... // :ndatatype assigned ELSE oCol:cDataType := ValType( EVAL(oCol:bEditValue) ) ENDIF Frank