Como tatalizo una coloumna con Xbrowse

[ruben Dario]

Como tatalizo una coloumna con Xbrowse, en mi caso especifico las columnas tot_pesos,tot_bodeg etc y como coloco un picture para formatear el numero.

Saludos al Forum

Code: Select all  Expand view

     oLbx := TXBrowse():New( oDlgbrow )
     oLbx:CreateFromResource( 4001 )

    oCol := oLbx:AddCol()
    oCol:bStrData  := { || RADAField("planta",::oDbfxls) }
    oCol:cHeader   := "Planta"
    oCol:cFooter  := " "
    oCol:nWidth   := 30
    oCol:nHeadStrAlign := AL_LEFT    //AL_RIGHT  AL_CENTER
    oCol:nDataStrAlign := AL_LEFT
 
 
    oCol := oLbx:AddCol()
    oCol:bStrData := { || FEC_LETRAS(RADAField("fec_soli",::oDbfxls),1) }
    oCol:cHeader  := "Fecha_Sol"
    oCol:cFooter  := " "
    oCol:nWidth   := 90
    oCol:nHeadStrAlign := AL_LEFT    //AL_RIGHT  AL_CENTER
    oCol:nDataStrAlign := AL_LEFT

    oCol := oLbx:AddCol()
    oCol:bStrData := { || FEC_LETRAS(RADAField("fec_conf",::oDbfxls),1)}
    oCol:cHeader  := "Fecha.Conf"
    oCol:cFooter  := " "
    oCol:nWidth   := 90
    oCol:nHeadStrAlign := AL_LEFT    //AL_RIGHT  AL_CENTER
    oCol:nDataStrAlign := AL_LEFT

    oCol := oLbx:AddCol()
    oCol:bStrData := { || RADAField("numorden",::oDbfxls) }
    oCol:cHeader  := "N.Orden"
    oCol:cFooter  := " "
    oCol:nWidth   := 90
    oCol:nHeadStrAlign := AL_LEFT    //AL_RIGHT  AL_CENTER
    oCol:nDataStrAlign := AL_LEFT

    oCol := oLbx:AddCol()
    oCol:bStrData := { || RADAField("tot_bodeg",::oDbfxls) }
    oCol:cHeader  := "Bodega"
    oCol:cFooter  := " "
    oCol:nWidth   := 90
    oCol:nHeadStrAlign := AL_LEFT    //AL_RIGHT  AL_CENTER
    oCol:nDataStrAlign := AL_RIGHT

    oCol := oLbx:AddCol()
    oCol:bStrData := { || RADAField("tot_pesos",::oDbfxls) }
    oCol:cHeader  := "$ Bodega"
    oCol:cFooter  :=  " "
    oCol:nWidth   := 90
    oCol:nHeadStrAlign := AL_LEFT    //AL_RIGHT  AL_CENTER
    oCol:nDataStrAlign := AL_RIGHT
 
    oLbx:oFont := ::oBrwFont  //oLbx:SetFont( oBrwFont )

   i := 1
   FOR i := 1 TO LEN( oLbx:aCols )
    WITH OBJECT oLbx:aCols[i]
      oLbx:aCols[i]:oHeaderFont := ::oHeadFont
      oLbx:aCols[i]:oFooterFont := ::oFootFont
    END
   NEXT

  Endif
       oLbx:SetAdo(::oDbfxls)  
       oLbx:refresh()

 

[FranciscoA]

viewtopic.php?f=6&t=21511&hilit=total+de+columna+en+xbrowse#p114291

Saludos.

[Francisco Horta]

ruben,
ahi va el que ejemplo:
oBrw2:lFooter := .T.
oBrw2:nFooterHeight := 26
oBrw2:aCols[5]:nFooterType := AGGR_SUM
oBrw2:aCols[6]:nFooterType := AGGR_SUM
oBrw2:MakeTotals()

salu2
pak-o

[ruben Dario]

ruben,
ahi va el que ejemplo:
oBrw2:lFooter := .T.
oBrw2:nFooterHeight := 26
oBrw2:aCols[5]:nFooterType := AGGR_SUM
oBrw2:aCols[6]:nFooterType := AGGR_SUM
oBrw2:MakeTotals()

salu2
pak-o

Francisco Gracias

Voy A probarlo

[nageswaragunupudi]

ruben,
ahi va el que ejemplo:
oBrw2:lFooter := .T.
oBrw2:nFooterHeight := 26
oBrw2:aCols[5]:nFooterType := AGGR_SUM
oBrw2:aCols[6]:nFooterType := AGGR_SUM
oBrw2:MakeTotals()

salu2
pak-o

This is correct. But the method MakeTotals() works only if RADAField("tot_bodeg",::oDbfxls) and RADAField("tot_pesos",::oDbfxls) return NUMERIC values but not CHARACTER value using transform function.

Also direct use of bStrData has been deprecated from March 2008. Please see whats new text of March 2008

a) bStrData: Deprecated, Users are advised to assign a codeblock returning the data in
its native type ( 'N', "C", "D", "L" ) and optionally assigining the picture to
oCol:cEditPicture. Browse class will automatically derive the bStrData from the
bEditValue and cEditPicture, if specified, and in addition the Browse can
appropriately handle the values for alignment, formatting, copy / export to
excel and reports.

Please use oCol:bEditValue and for formatting, use oCol:cEditPicture and leave oCol:bStrData for internal use of XBrowse. This is necessary to avail the advanced features of XBrowse.

[ruben Dario]

Si funciono el ejempllo francisco.

Como coloco el picture,
he visto estos ejemplos y nome funciona
//xbrNumFormat( "A", .t. ) // "E" for European, "A" for American and others
// .t. for showing thousand separators
XbrNumFormat( 'I', .t. )

como es la sintaxis para que funcione.

oCol:cEditPicture = "@E 9,999,999,999.99" este no funciona

[Daniel Garcia-Gil]

Hola

Cambia bStrData por bEditValue

[ruben Dario]

Gracias Daniel. Voy a probarlo.

Otra Pregunta colo se coloca que muestre la barra de postgres cuando se manda a excel con oBrow:toexcel())

[Francisco Horta]

ruben yo tengo el picture asi y si me funciona
oBrw2:aCols[5]:cEditPicture := '99,999,999.99'
oBrw2:aCols[6]:cEditPicture := '99,999,999.99'

saludos
pak-o

[nageswaragunupudi]

Incidentally, this posting shows how simple it is to XBrowse a table in Excel Sheet with the latest FWH

viewtopic.php?f=3&t=22146

[nageswaragunupudi]

Examples to show progress of ToExcel()

viewtopic.php?f=3&t=18102&p=95022&hilit=excel+bprogress#p95022