FiveTech Support Forums

excuse me,
i'm starting to use xbrowse
I have customer.dbf
can someone help me put the total of INVOICE field to the bottom ?
thanks

Grazie silvio, domani provo e ti faccio sapere!

ok dimmi se hai problemi al massimo mi puoi chiamare in privato

ho creato la mia procedura, ma quando la dialog viene creata il totale non esce se poi clicco su una parte qualsiasi della dialog il totale esce:
questo è lo spezzone di prg:
*-------------------------------
@ 10,10 XBROWSE oBrw SIZE -10,-30 PIXEL OF oDlg ;
CELL LINES FOOTERS NOBORDER FASTEDIT

oBrw:lfooter:=.t.
oBrw:nStretchCol:= -1
aBrowse := { ;
{ { ||UTILE1->RAGSOC}, i18n("RAGIONE SOCIALE"), 360, },;
{ { ||UTILE1->KGTOTA }, i18n("KG TOTALI"), 80, '@E 9,999,999'} ,;
{ { ||UTILE1->IMPONI }, i18n("IMPONIBILE"), 80, '@E 999,999.99' } ,;
{ { ||UTILE1->EURTON }, i18n("UTILE/TN"), 60,'@E 99,999.99' } ,;
{ { ||UTILE1->BLOCCO }, i18n("BLK"), 30, }}

FOR i := 1 TO Len(aBrowse)
oCol := oBrw:AddCol()
oCol:bEditValue := aBrowse[ i, 1 ]
oCol:cHeader := aBrowse[ i, 2 ]
oCol:nWidth := aBrowse[ i, 3 ]
if !Empty(aBrowse[ i, 4 ])
oCol:cEditPicture:=aBrowse[ i, 4 ]
Endif
oCol:oDataFont := oFont

NEXT

WITH OBJECT oBrw

WITH OBJECT oBrw:aCols[2]
    :nDataStrAlign := AL_RIGHT
    :cEditPicture := '@E 99,999.99'
    :lTotal := .t.
    :nFooterType := AGGR_SUM
    :nFootStrAlign := AL_RIGHT
END

:nStretchCol := STRETCHCOL_WIDEST
:lHscroll:=.f.
:lVscroll:=.T.
:lRecordSelector := .f.
:bChange = {|| oBrw:MakeTotals() }

END

oBrw:CreateFromCode()

ACTIVATE DIALOG oDlg CENTERED
*------------------------------------------------------

damianodec wrote:excuse me,
i'm starting to use xbrowse
I have customer.dbf
can someone help me put the total of INVOICE field to the bottom ?
thanks

FWH 12.01 (jan 2012)

Please let us know the dbstructure() of the dbf you want to browse and which columns of the dbf you want to browse.

this is the dbstructure():
DbCreate( "c:\cruscotto\utile1", {{ "LOGICA","L", 1, 0 },;
{ "DOCENT" ,"C", 8, 0 },;
{ "CODICE" ,"C", 7, 0 },;
{ "RAGSOC" ,"C", 50, 0 },;
{ "SALDO" ,"N", 15,2 },;
{ "PAGATO" ,"N", 15,2 },;
{ "RISCHI" ,"N", 15,2 },;
{ "INSOLU" ,"L", 1,0 },;
{ "BLOCCO" ,"L", 1,0 },;
{ "LEGALE" ,"L", 1,0 },;
{ "KGTOTA" ,"N", 10,0 },;
{ "PERCUT" ,"N", 6,2 },;
{ "EURTON" ,"N", 10,2 },;
{ "IMPONI" ,"N", 12,2 },;
{ "TOTUTI" ,"N", 10,2 },;
{ "FIDO" ,"N", 10,2 } })

the columns are:
UTILE1->RAGSOC
UTILE1->KGTOTA
UTILE1->IMPONI
UTILE1->EURTON
UTILE1->PERCUT
UTILE1->TOTUTI
UTILE1->FIDO
(utile1->SALDO - UTILE1->PAGATO)
utile1->PAGATO
utile1->RISCHI
utile1->INSOLU
utile1->LEGALE
UTILE1->BLOCCO

thanks

if !Empty( oCol := oBrw:oCol( "kgtota" ) )

replace with if !Empty( oCol := oBrw:oCol( "D" ) ) // it is the header title that is assigned

Hth

Richard

thank Richard!!!

Again xbrowse,
I would like to put a value (total column 3 / total colum 5) to the bottom of column "kgtota" an not the total of "kgtota"
Thanks