FiveTech Software tech support forums

Hi ,
When i have to do that, i insert a column and use a code block with my function :

oCol:=oLbxp:inscol(4)
oCol:bStrData:={||QSTOCK(oRsp:Fields("NB"):Value)}
oCol:cHeader:="Total"
*

*
function QSTOCK(p)
return p/2


Philippe .

... se relaciona con Tab_Cte, por el campo común entre ellos rut_cte.. Set Relation to Vta_Cot1->Cte_Cot into Tab_Cte oCol2 := oBrw2:AddCol() oCol2:bStrData := { || Transform(Vta_Cot1->Nro_Cot,"99-99-999") } oCol2:cHeader := "Cotizacion" oCol2 := oBrw2:AddCol() oCol2:bStrData ...

... todos los campos de la tabla... y yo solo quiero que me muestre 3 o 4, como se ve asi, pero al colocarlo no me toma... oCol:= oLbx:AddCol() oCol:bStrData:= { || IF(oProducto:BOF() .AND. oProducto:EOF(),SPACE(1),ADOField(oProducto,"rut_cte")) } oCol:cHeader := 'RUT' oCol:nWidth := 100 ...

... barra de linea selecc cuando el control no tiene el foco oBrw:nStretchCol := STRETCHCOL_WIDEST oBrw:oFont := oFont2 oCol := oBrw:AddCol() oCol:bStrData := { || Tab_Fam->Cod_Fam } oCol:cHeader := "Codigo" oCol:nHeadStrAlign := AL_CENTER //LEFT oCol:nDataStrAlign := AL_LEFT //LEFT ...

... barra de linea selecc cuando el control no tiene el foco oBrw:nStretchCol := STRETCHCOL_WIDEST oBrw:oFont := oFont2 oCol := oBrw:AddCol() oCol:bStrData := { || Tab_Fam->Cod_Fam } oCol:cHeader := "Codigo" oCol:cSortOrder :="Tab_Fam1" oCol := oBrw:AddCol() oCol:bStrData ...

... barra de linea selecc cuando el control no tiene el foco oBrw:nStretchCol := STRETCHCOL_WIDEST oBrw:oFont := oFont2 oCol := oBrw:AddCol() oCol:bStrData := { || Tab_Fam->Cod_Fam } oCol:cHeader := "Codigo" oCol:nWidth := 100 oCol:cSortOrder :="Tab_Fam1" oCol := oBrw:AddCol() ...

Rao Don't forget you need to guard against Nil if that date field is empty .. or you are at Eof oCol:bStrData := { |x| x := if(oRsUser:eof, ,TtoDate(oRsUser:Fields("LastLog"):Value)),;                                     If( Empty(x), ...

... oBrw:nFreeze := 2 oBrw:lFastEdit := .T. //oBrw:cAlias := cAlias // REMOVE THIS LINE oCol := oBrw:AddCol() oCol:cHeader := "Clave" oCol:bStrData := { || ( oBrw:cAlias )->clave } oCol:nWidth := 45 oCol:nDataStrAlign:= AL_RIGHT oCol:nHeadStrAlign:= AL_RIGHT oCol:lAllowSizing :=.F. oCol ...

... .f. oBrw:lFooter := .t. oBrw:nFreeze := 2 oBrw:lFastEdit := .T. oBrw:cAlias := cAlias oCol := oBrw:AddCol() oCol:cHeader := "Clave" oCol:bStrData := { || ( oBrw:cAlias )->clave } oCol:nWidth := 45 oCol:nDataStrAlign:= AL_RIGHT oCol:nHeadStrAlign:= AL_RIGHT oCol:lAllowSizing :=.F. oCol ...

ESTABA HACIENDO ESTO
oCol:=xLbx:AddCol() , oCol:cHeader:= cTitulo , oCol:bStrData := bCampo , oCol:nWidth := nAncho ) ,;

AHORA HAGO
oCol:=xLbx:AddColumn( cTitulo , bCampo , cPicture ,,,, nAncho , .F., .F.,,,,,, .F.,,,,, .F.,,, ) , oCol:oHeaderFont:=memvar->oDatos:oFont9 )

... Yo lo tengo así : oCol:bEditValue :={|| (v:POL:cAlias)->z0Cta } oCol:cEditPicture:='@Z 999,999,999.99' funciona muy bien, tal vez tengas oCol:bStrData en lugar de oCol:bEditValue. saludos!!

Yo lo tengo así :
oCol:bEditValue :={|| (v:POL:cAlias)->z0Cta }
oCol:cEditPicture:='@Z 999,999,999.99'

funciona muy bien, tal vez tengas oCol:bStrData en lugar de oCol:bEditValue.

saludos!!

... "TOTAL",   "DATEPAY", "PAYMENT" ;      CELL LINES NOBORDER A continuación se modifica el codeblcok bStrData de la segunda columna para que visualice el total. WITH OBJECT :Total         :lMergeVert          := .t.         :bStrData            := { ...

... -1 ) oCol:PaintData( nRow-::nrowheight, aCols[ nLast+1], nHeight, lHighLite, .t., nFor, 0 ) endif 5. method paintdata() class txbrwcolumn if ::bStrData != nil.and. !EVAL(::obrw:bBookMark)==EVAL(::obrw:bkeyCount)+1,.t.); .or.::obrw:lgetbar.and.nPaintRow<=0 if ::obrw:lgetbar.and.nPaintRow==-1 ...

... oCol:AddResource("CHECKOFF") oCol:cHeader := "" oCol:bBmpData := { || iif( TEMP072->MARCADO, 1, 2) } oCol:bStrData := nil oCol:nDataStyle := oCol:DefStyle( AL_LEFT, .T.) oCol := oBrw:AddCol() oCol:bStrData := { || TEMP072->BOLETO} oCol:cHeader := "Nº ...