FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour xBrowse - Footer (SOLUCIONADO)
MarioG
Posts: 1380
Joined: Fri Oct 14, 2005 01:28 PM
Re: xBrowse - Footer
Posted: Wed Dec 04, 2013 02:37 PM
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 (fw): Select all Collapse
   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
Resistencia - "Ciudad de las Esculturas"

Chaco - Argentina
goosfancito
Posts: 1956
Joined: Fri Oct 07, 2005 07:08 PM
Re: xBrowse - Footer (SOLUCIONADO)
Posted: Wed Jun 04, 2014 11:23 AM

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.

FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/
Patricio Avalos Aguirre
Posts: 1074
Joined: Fri Oct 07, 2005 01:56 PM
Re: xBrowse - Footer (SOLUCIONADO)
Posted: Wed Jun 04, 2014 02:20 PM
Hola

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

Code (fw): Select all Collapse
::oLstDeuda:Monto:cFooter:= Trans( -::oLstDeuda:Monto:nTotal, "@E( 99,999.99" )

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

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl
MarioG
Posts: 1380
Joined: Fri Oct 14, 2005 01:28 PM
Re: xBrowse - Footer (SOLUCIONADO)
Posted: Wed Jun 04, 2014 02:22 PM
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 (fw): Select all Collapse
CONTROL "", 305, "TXBrowse", 0 | WS_CHILD | WS_VISIBLE | WS_VSCROLL | WS_TABSTOP, 6, 34, 283, 181

En código, use para este caso:
Code (fw): Select all Collapse
   WITH OBJECT ::oLstCobros
      :l2007              := TRUE
      :nMarqueeStyle      := MARQSTYLE_NOMARQUEE     // linea señaladora
      :nColDividerStyle   := LINESTYLE_LIGHTGRAY      // Linea Tipo
      :lHScroll           := FALSE

      :lFooter = TRUE
      ...
   END

saludos
Resistencia - "Ciudad de las Esculturas"

Chaco - Argentina

Continue the discussion

Static archive · New replies & topics via GitHub Discussions