FiveTech Software tech support forums

... badaniach oBRWF :nHeaderLines := 2 oBRWF :nDataLines := 1 oBRWF :lFooter :=.t. oBRWF :aCols[3]:cHeader := "Nazwa"+sCRLF+"badania" oBRWF :aCols[3]:cFooter := "RAZEM : " oBRWF :aCols[4]:cHeader := "Cena"+sCRLF+"badania" oBRWF :aCols[4]:cFooter := Transform(nRABAT,"#####.##") oBRWF :aCols[6]:cHeader ...

... nil http://www.xtech.com.cn/down/tmysql.prg 2 . Method nTotal() class TXbrowse local i,i2,i1 ::lfooter:=.t. if len(::acols)>1; ::acols[1]:cfooter:="Total"; end for i:=2 to len(::acols) if len(::acols[i]:cfooter)>=1 ::acols[i]:cfooter:=" " end next eval(::bgotop) while !eval(::bEof) ...

Bueno, ahora funciona.

lo unico que hice, fue poner uno de los footers como texto fijo

oCol:cFooter := "Totali:"

y ahora muestra todos.

Con xBrowse, cFooter es un valor estatico, al igual que cHeader. Yo añadi un data a la clase TXBrwColumn, el data bStrFooter, que contiene un codeblock que nos debe retornar lo que queremos visualizar en el pie de la columna. Hay ...

... oGet:bValid := nil oGet:bValid:=bValid FOR X:=1 TO LEN(bStruc) valtota1+=round(bStruc[x][3],2) valtota2+=round(bStruc[x][6],2) NEXT uBrw:aCols[3]:cFooter:= trans(valtota1,"@E 999,999.99") uBrw:aCols[6]:cFooter:= trans(valtota2,"@E 999,999.99") uBrw:refresh() RETURN lValRet Fique com Deus Aoki

Julio,

Prueba con:

oCol[1]:cFooter := Tran( nTotal, "9999,999,999" )

oCol[1]:PaintFooter( oBrowse:nHeight - oBrowse:nFooterHeight, nil, oBrowse:nFooterHeight - 3 )

Maestro.
Eso fue lo primero que hice.
Luego vinieron los codigos de bloque, luego las funciones y luego EL FORO !!

yo lo declare algo asi como

oCol[1]:cFooter := Tran( nTotal, "9999,999,999" )

Saludos

PD: vi por ahi un "bStrFoot" ..... pero en la clase no existia...

... uBrw:nColDividerStyle := LINESTYLE_DARKGRAY uBrw:lColDividerComplete := .t. uBrw:nFooterLines := 2 uBrw:lFooter := .t. uBrw:aCols[ 1 ]:cFooter := "Total:" uBrw:bClrStd := { ||{ RGB(0,0,0), iif( uBrw:nArrayAt % 2 == 0, RGB(234,255,234) , RGB(255,255,255) ) } } uBrw:nFreeze := 6 uBrw:lHScroll ...

... uBrw:nColDividerStyle := LINESTYLE_DARKGRAY uBrw:lColDividerComplete := .t. uBrw:nFooterLines := 2 uBrw:lFooter := .t. uBrw:aCols[ 1 ]:cFooter := "Total:" uBrw:bClrStd := { ||{ RGB(0,0,0), iif( uBrw:nArrayAt % 2 == 0, RGB(234,255,234) , RGB(255,255,255) ) } } uBrw:nFreeze := 6 uBrw:lHScroll ...

... :bStrData := GenCB( oQry,4 ) END WITH OBJECT oBrw:AddCol() :cHeader := "Monto" :bStrData := GenCB( oQry,5 ) :cEditPicture := "9,999,999,999.99" :cFooter := " "+transform(0 ,"Total Cobrado") END WITH OBJECT oBrw:AddCol() :cHeader := "Tipo envio" :bStrData := GenCB( oQry,6 ) END WITH OBJECT oBrw:AddCol() ...

... nI ) },::acols[ni]:nwidth*0.12, ; { If( ! Empty( ::acols[ nI ]:cEditPicture), ; ::acols[ nI ]:cEditPicture, "" ) },, ; ( len(::acols[ nI ]:cFooter)>0 .and.::acols[nI]:nDataStrAlign==1 ),, ; // prints footings if the column has one (numeric only) If( ::acols[nI]:nDataStrAlign==1, "RIGHT", ...