necesito hacer un footer en twbrowse de hernan

[goosfancito]

Algun ejemplo?

Tengo que ados/zarle a este código un footer.

Code: Select all  Expand view

      REDEFINE LISTBOX oBrw[1] ;
         FIELDS  "";
         HEADERS "Origen",       ;
                 "Proveedor",    ;
                 "Actual",       ;
                 "En curso",     ;
                 "Comprom", ;
                 "Crítico"       ;
         sizes 100, 60, ;
               60, 60, ;
               60, 60  ;
         ID 203;
         OF oFolder:aDialogs[2];
         UPDATE;
         colors CLR_BLACK, rgb( 210, 230, 250 )   // lindo celestito que hace juego con el cursor

         //----------( Configuracion de la TW )----------

         oBrw[1]:cAlias:= "array"
         oBrw[1]:setarray( vDatosOrigen )

         oBrw[1]:nHeaderHeight := 21
         oBrw[1]:nFooterHeight := 16
         oBrw[1]:nLineHeight   := 19

         oBrw[1]:ladjlastcol   := .t.
         oBrw[1]:oFont         := GetFont():CELDA
         oBrw[1]:aHJustify     := { 2, 2, 2, 2, 2, 2 }
         oBrw[1]:aJustify      := { 2, 2, .T., .T., .T., .T. }

         oBrw[1]:lAutoEdit     := .F.
         oBrw[1]:lAutoSkip     := .T.
         oBrw[1]:lCellStyle    := .F.
         oBrw[1]:oHScroll      := NIL

         oBrw[1]:nLineStyle    := 10

         // Ajustes del browser
         oBrw[1]:nAt        := 1

         oBrw[1]:lAutoEdit  := .T.
         oBrw[1]:lAutoSkip  := .T.
         oBrw[1]:lCellStyle := .T.
         oBrw[1]:nColAct    := 1

         oBrw[1]:bGotop     := { || oBrw[1]:nAt:= 1 }

         obrw[1]:bLine      := { | nAt | nat:= oBrw[1]:nat, ;
                                             { vDatosOrigen[nat, 1], vDatosOrigen[nat, 2], ;
                                             Transform( vDatosOrigen[nAt, 3], "@E 9,999" ), ;
                                             Transform( vDatosOrigen[nat, 4], "@E 9,999" ), ;
                                             Transform( vDatosOrigen[nat, 5], "@E 9,999" ), ;
                                             Transform( vDatosOrigen[nAt, 6], "@E 9,999" ) } }


Gracias.

[Patricio Avalos Aguirre]

Code: Select all  Expand view

oBrw:lDrawFooters := .t.
oBrw:aFooters    := { "", "", trans(ntot, "@E 9,999,999,999" ) }


la cantidad de columnas....

[goosfancito]

Code: Select all  Expand view

oBrw:lDrawFooters := .t.
oBrw:aFooters    := { "", "", trans(ntot, "@E 9,999,999,999" ) }


la cantidad de columnas....

gracias.

[goosfancito]

Code: Select all  Expand view

oBrw:lDrawFooters := .t.
oBrw:aFooters    := { "", "", trans(ntot, "@E 9,999,999,999" ) }


la cantidad de columnas....

Estimado.

Es necesario refrescar los footers en la twbrowse? como?

Yo refresco el browser, pero no veo reflejado los valores de los footers.

Gracias.

[pymsoft]

Hola,


yo lo hago asi:


oBrw:aFooters := {|| TotxCespite( aElenco ) }

y en la funcion, devuelvo un array con los resultados.


FUNCTION TotxCespite( aElenco )

aArray := { "Totale ammortizzato: "+TRANSFORM( nTotAmm, "@e 999,999,999.99" ), "", "", "", "", ""}

RETURN aArray



Saludos