¿Como totalizar en un Browse?

por **Adalberto** » 21 Set 2012 16:43

Caros amigos do foro,

Necesito totalizar una o varias columnas de un Browse, estoy usando MiniGui Ext (ultima version) y el TSBROWSE, que lo defino asi:

   //
   XSele( cArcDbf2, 1 )
   DBGOTOP()
   DEFINE TBROWSE oBrow AT 100, 010 CELLED ALIAS cArcDbf2       ;
      HEIGHT   270 WIDTH 510 FONT 'Font1' BOLD             ;
      HEADERS  'Madera', 'Especie', 'Precio', 'Importe'      ;
      WIDTHS   070, 200, 100, 120                        ;
      FIELDS   Madera, Nom_Esp, Precio, Importe            ;
      PICTURE  REPL( '!', 05), REPL('!', 25), '##,###.##', '##,###.##';
      ON DBLCLICK Editar( RECNO() )

Me ajudan por favor?, les agradezco mucho.

El Dios del cielo sea con ustedes.

[] Adalberto

por **Adalberto** » 26 Set 2012 17:39

Caros amigos do foro.

Desejo compartilhar com vocês a solução deste problema que me tirou o sonho muitas noites; com a ajuda do amigo lichitorres y outros amigos do foro harbourminigui_es consegui isso. (muito agradecido com cada um deles)

ADD COLUMN TO oBrow               ;
         DATA FieldWblock( 'Metros', Select( cArcDbf2 ) )  ;
         PICTURE '##.###' HEADER 'Metros³' SIZE 080 PIXELS ;
         COLORS CLR_BLACK,CLR_NBLUE 3DLOOK TRUE, TRUE, TRUE;
         MOVE DT_MOVE_NEXT ALIGN DT_RIGHT, DT_CENTER FOOTER {|| SumaCol()}

//
STATIC FUNCTION SumaCol()
LOCAL nTotal := nReg := 0
//
nReg := &cArcDbf2.->( RECNO() )
&cArcDbf2.->( DBGOTOP() )
&cArcDbf2.->( DBEVAL( {||nTotal += Metros}) )
&cArcDbf2.->( DBGOTO(nReg) )
RETURN TRANS( nTotal, '##.###' )

Muito obrigado com cada um de vocês, nosso bom Deus os abençoe assim também os seus amados e suas amadas.
[] Adalberto

por **alxsts** » 26 Set 2012 18:19

Olá!

Muy bien!

Não conheço HMG mas, em se tratando de xBase, é possível melhorar a performance deste código, eliminando a utilização do operador macro ( & ):

STATIC FUNCTION SumaCol()
LOCAL nTotal := nReg := 0
//
nReg := (cArcDbf2)->( RECNO() )
(cArcDbf2)->( DBGOTOP() )
(cArcDbf2)->( DBEVAL( {||nTotal += Metros}) )
(cArcDbf2)->( DBGOTO(nReg) )
RETURN TRANSFORM( nTotal, '@E 999,999.999' )

ou

STATIC FUNCTION SumaCol()
LOCAL nTotal := 0, nReg := (cArcDbf2)->( RECNO() )
//
(cArcDbf2)->( DBGOTOP(), DBEVAL( {||nTotal += Metros}), DBGOTO(nReg) )
//
RETURN TRANSFORM( nTotal, '@E 999,999.999' )

por **Adalberto** » 28 Set 2012 13:49

Hola Alexandre Santos,
Gracias por tu respuesta, ya implemente tus sugerencias y funciono mu bien

[] Adalberto