no aparece totales en xbrowser

[artu01]

Gente:
Estoy leyendo un txt que paso a un arreglo para mostrarlo en un xbrowser pero no consigo que aparezcan los totales podrian decirme que me falta.
la primera fila del txt tiene el nombre de las cabeceras de las cols., esa fila la elimino antes de ponerlo en el xbrowser

Code: Select all  Expand view  RUN

    cText := StrTran( MemoRead( cfileTXT ), CHR( 10 ), Chr(1) )
    aData := HB_ATokens( cText, Chr(1), .t., .t. )
   
    AEval( aData, { |c,i| c := StrTran( c, Chr(1), CRLF ), aData[ i ] := HB_ATokens( c, "|", .t., .t. ) } )

    aCab:={}
    for i:=5 to 27
        if i<>11
            aadd(aCab, aData[ 1,i])          
        endif    
    next
    adel( aData, 1, .t. )
    aSize( aData, len( aData ) - 1 )

    xbrNumFormat( "A", .t. )

    xbrowser aData COLUMNS 5,6,7,8,9,10,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27 ;
        SETUP ( oBrw:lFooter:= .t. ,oBrw:aCols[7]:cEditPicture := "@", oBrw:cheaders:=aCab,TotalizarFoot(oBrw),obrw:maketotals()) SHOW RECID    

    Static Function TotalizarFoot(oBrw)
        oBrw:aCols[10]:cDataType :="N"
        oBrw:aCols[10]:nFooterType := AGGR_SUM
        oBrw:aCols[10]:cFooterType := "@E 999,999.99"
        oBrw:aCols[16]:cDataType :="N"
        oBrw:aCols[16]:nFooterType := AGGR_SUM
        oBrw:aCols[16]:cFooterType := "@E 999,999.99"
    return nil    

 

[nageswaragunupudi]

Add

Code: Select all  Expand view  RUN

oBrw:MakeTotals()

at the end before

Code: Select all  Expand view  RUN

return nil

in the static function TotalizarFoot( oBrw )

[artu01]

Gracias mr. rao por responder pero sigue sin funcionar

Code: Select all  Expand view  RUN

    xbrowser aData COLUMNS 5,6,7,8,9,10,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27 ;
        SETUP ( oBrw:lFooter:= .t. ,oBrw:aCols[7]:cEditPicture := "@", oBrw:cheaders:=aCab,TotalizarFoot(oBrw),oBrw:MakeTotals()) SHOW RECID    


Static Function TotalizarFoot(oBrw)
        oBrw:aCols[10]:cDataType :="N"
        oBrw:aCols[10]:nFooterType := AGGR_SUM
        oBrw:aCols[10]:cFooterType := "@E 999,999.99"
        oBrw:aCols[16]:cDataType :="N"
        oBrw:aCols[16]:nFooterType := AGGR_SUM
        oBrw:aCols[16]:cFooterType := "@E 999,999.99"
        oBrw:MakeTotals()
return nil  

 

He subido el xbrowse.prg para su revision
https://www.transfernow.net/dl/20231105orw9nLuV

[artu01]

Gracias mr. rao por responder pero sigue sin funcionar

Code: Select all  Expand view  RUN

    xbrowser aData COLUMNS 5,6,7,8,9,10,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27 ;
        SETUP ( oBrw:lFooter:= .t. ,oBrw:aCols[7]:cEditPicture := "@", oBrw:cheaders:=aCab,TotalizarFoot(oBrw),oBrw:MakeTotals()) SHOW RECID    


Static Function TotalizarFoot(oBrw)
        oBrw:aCols[10]:cDataType :="N"
        oBrw:aCols[10]:nFooterType := AGGR_SUM
        oBrw:aCols[10]:cFooterType := "@E 999,999.99"
        oBrw:aCols[16]:cDataType :="N"
        oBrw:aCols[16]:nFooterType := AGGR_SUM
        oBrw:aCols[16]:cFooterType := "@E 999,999.99"
        oBrw:MakeTotals()
return nil  

 

He subido el xbrowse.prg para su revision
https://www.transfernow.net/dl/20231105orw9nLuV

Mr. rao he formateado el picture para que aparezca dos decimales en la col pero aparece 0 nada mas, porque?

[Willi Quintana]

Hola Amigo,
El valor del dato a totalizar tiene que ser numerico....

[artu01]

Hola Amigo,
El valor del dato a totalizar tiene que ser numerico....

Hola willy gracias x responder
pense que con esta linea lo convertia a numerico la columna

Code: Select all  Expand view  RUN

oBrw:aCols[10]:cDataType :="N"
 

probare tu sugerencia

Gracias