xBrowse - Footer (SOLUCIONADO)

[MarioG]

Carlos;
muchisimas gracias por tu tiempo. (ratifica la grandeza de este foro!)
Me diste la solución (ya que estaba mas que mareado con esto), sin necesidad de implementar tu código

Code: Select all  Expand view  RUN

  WITH OBJECT ::oLstDeuda
      ...
     
      :lFooter = TRUE
      :bChange  := {|| ::oLstDeuda:MakeTotals(), ;
                       ::oLstDeuda:Monto:nTotal:= -::oLstDeuda:Monto:nTotal, ::oLstDeuda:Monto:RefreshFooter() }

      :bGotFocus:= {|| h0["CabVentas"]:SetFocus() }
   END

   ....

   WITH OBJECT ::oLstDeuda:Monto
      :nHeadStrAlign:= :nDataStrAlign:= AL_RIGHT
      :nWidth := 85
      :nFooterType := AGGR_TOTAL
      :cEditPicture:= PIC_OCHOCIF1
      :bClrFooter  := {|| {CLR_HRED, CLR_BLACK} }
      :oFooterFont := ::hFont["Tahoma14B"]
      :cEditPicture := "(999,999.99)"                    // tan sencillo como esto
   END

 

[goosfancito]

hola. podrias decirme como tenes definido el STYLE del xbrowse? porque necesito que sea sin el borde que me da y veo que vos lo tenes como lo necesito.
gracias.

[Patricio Avalos Aguirre]

Hola

Al vuelo, si lo que quieres es siempre que salga negativo, has probado colocar el signo negativo antes?

Code: Select all  Expand view  RUN

::oLstDeuda:Monto:cFooter:= Trans( -::oLstDeuda:Monto:nTotal, "@E( 99,999.99" )

::oLstDeuda:Monto:cFooter:= "(-)"+Trans( ::oLstDeuda:Monto:nTotal, "@E( 99,999.99" )

[MarioG]

Goos;
como te comente en otro post, estoy medio atrasado , uso Workshop
Editando el .rc te trasncribo como está definido el STYLE, del recurso en el dlg que expongo en este post

Code: Select all  Expand view  RUN

CONTROL "", 305, "TXBrowse", 0 | WS_CHILD | WS_VISIBLE | WS_VSCROLL | WS_TABSTOP, 6, 34, 283, 181

En código, use para este caso:

Code: Select all  Expand view  RUN

  WITH OBJECT ::oLstCobros
      :l2007              := TRUE
      :nMarqueeStyle      := MARQSTYLE_NOMARQUEE     // linea señaladora
      :nColDividerStyle   := LINESTYLE_LIGHTGRAY      // Linea Tipo
      :lHScroll           := FALSE

      :lFooter = TRUE
      ...
   END
 

saludos