FiveTech Software tech support forums

Posted: **Sun Aug 07, 2011 9:03 pm**

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



     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()

Posted: **Sun Aug 07, 2011 10:19 pm**

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

Saludos.

Posted: **Tue Aug 09, 2011 3:17 pm**

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

Posted: **Wed Aug 10, 2011 8:09 pm**

Francisco Horta wrote: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

Posted: **Wed Aug 10, 2011 11:55 pm**

Francisco Horta wrote: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.

Posted: **Thu Aug 11, 2011 12:13 am**

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

Posted: **Thu Aug 11, 2011 12:29 am**

Hola

Cambia bStrData por bEditValue

Posted: **Thu Aug 11, 2011 6:49 pm**

Gracias Daniel. Voy a probarlo.

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

Posted: **Thu Aug 11, 2011 8:32 pm**

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

Posted: **Thu Aug 11, 2011 8:42 pm**

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

Posted: **Thu Aug 11, 2011 8:46 pm**

Examples to show progress of ToExcel()

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

FiveTech Software tech support forums

Como tatalizo una coloumna con Xbrowse

Como tatalizo una coloumna con Xbrowse

Re: Como tatalizo una coloumna con Xbrowse

Re: Como tatalizo una coloumna con Xbrowse

Re: Como tatalizo una coloumna con Xbrowse

Re: Como tatalizo una coloumna con Xbrowse

Re: Como tatalizo una coloumna con Xbrowse

Re: Como tatalizo una coloumna con Xbrowse

Re: Como tatalizo una coloumna con Xbrowse

Re: Como tatalizo una coloumna con Xbrowse

Re: Como tatalizo una coloumna con Xbrowse

Re: Como tatalizo una coloumna con Xbrowse