TFileXls

[Pablo Herranz]

Hola, estoy usando esta clase con Xailer y funciona perfectamente, pero
tengo un pequeño problema: No se como formatear los numeros con
separador de miles. He puesto los pictures que se indican en la propia
clase pero me salen los números sin ellos.
Saludos
Pablo H

[Xevi]

Pablo,
yo lo estoy utilizando así y me está funcionando perfectamente.
::oStatusBar1:aItems[2]:cText := aIdioma[26,AppData:nIdioma]
If Right( ::oLblFitxer:cText, 3 ) == "Xls"
DEFINE XLS FONT nFont NAME "Arial" ITALIC BOLD HEIGHT 10
DEFINE XLS FONT nFont2 NAME "Arial" ITALIC BOLD HEIGHT 12
DEFINE XLS FORMAT nFormat PICTURE '#,##0.00'
XLS oFileXLS FILE ( ::oLblFitxer:cText ) AUTOEXEC
XLS COL 1 WIDTH 5 OF oFileXLS
XLS COL 2 WIDTH 10 OF oFileXLS
XLS COL 3 WIDTH 35 OF oFileXLS
XLS COL 4 WIDTH 15 OF oFileXLS
XLS COL 5 WIDTH 15 OF oFileXLS
XLS COL 6 WIDTH 5 OF oFileXLS
XLS COL 7 WIDTH 15 OF oFileXLS
XLS COL 8 WIDTH 5 OF oFileXLS
XLS COL 9 WIDTH 15 OF oFileXLS
XLS COL 10 WIDTH 15 OF oFileXLS
For n:=3 to 12
@ 1,n-2 XLS SAY aIdioma[n,AppData:nIdioma] OF oFileXLS FONT
If( n=3, nFont, nFont2 )
Next
@ 1,11 XLS SAY "ID.Factura" OF oFileXLS
@ 1,12 XLS SAY "Clave" OF oFileXLS
@ 1,13 XLS SAY "Desglose" OF oFileXLS
If ::oRadioMenu1:nIndex = 1 //Facturas Recibidas
@ 1,14 XLS SAY "Deducible" OF oFileXLS
EndIf
For n:=1 to Len( aItems )
If n % 10 == 0
::oStatusBar1:aItems[2]:cText := { "Generant el fitxer...
Ordre: ", "Generando el fichero... Ordre: " }[AppData:nIdioma] +
aItems[n,1]
EndIf
xFactura( aItems, n, @cNumFra, @cDataFra, @cNomFra, @cNifFra,
@cTotalFra, @cClave, @cDesglose, @cIdFra )
@ n+1,1 XLS SAY Val( cNumFra ) OF oFileXLS
@ n+1,2 XLS SAY cDataFra OF oFileXLS
@ n+1,3 XLS SAY cNomFra OF oFileXLS
@ n+1,4 XLS SAY cNifFra OF oFileXLS
@ n+1,5 XLS SAY xNumCtoN( aItems[n,5] ) FORMAT nFormat OF
oFileXLS
@ n+1,6 XLS SAY Val( aItems[n,6] ) OF oFileXLS
@ n+1,7 XLS SAY xNumCtoN( aItems[n,7] ) FORMAT nFormat OF
oFileXLS
@ n+1,8 XLS SAY Val( aItems[n,8] ) OF oFileXLS
@ n+1,9 XLS SAY xNumCtoN( aItems[n,9] ) FORMAT nFormat OF
oFileXLS
@ n+1,10 XLS SAY xNumCtoN( cTotalFra ) FORMAT nFormat OF
oFileXLS
@ n+1,11 XLS SAY AllTrim( cIdFra ) OF oFileXLS
@ n+1,12 XLS SAY cClave OF oFileXLS
@ n+1,13 XLS SAY Val( cDesglose ) OF oFileXLS
If ::oRadioMenu1:nIndex = 1 //Facturas Recibidas... Deducible
@ n+1,14 XLS SAY xNumCtoN( aItems[n,7] ) OF oFileXLS
EndIf
Next
::oStatusBar1:aItems[2]:cText := ""
ENDXLS oFileXLS
espero que te pueda servir.
Un Saludo,
Xevi.
"Pablo Herranz" <pablo@ibertabaco.com> escribió en el mensaje
news:4adefdd4$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Hola, estoy usando esta clase con Xailer y funciona perfectamente, pero
> tengo un pequeño problema: No se como formatear los numeros con separador
> de miles. He puesto los pictures que se indican en la propia clase pero me
> salen los números sin ellos.
>
> Saludos
>
> Pablo H

[Bingen Ugaldebere]

tFileXls es muy rápido y si que puedes poner un picture como indica
Xevi, pero me temo que no podrás sacar toda la fuincionalidad de Excel
si no usas Excel por OLE entonces si que puedes hacer casi lo que
quieras con Excel, vamos el picture es lo de menos.
Tienes ejemplo en XailerSamplesOle
Salu2.
Pablo Herranz escribió:
> Hola, estoy usando esta clase con Xailer y funciona perfectamente, pero
> tengo un pequeño problema: No se como formatear los numeros con
> separador de miles. He puesto los pictures que se indican en la propia
> clase pero me salen los números sin ellos.
>
> Saludos
>
> Pablo H

[Pablo Herranz]

Muchas Gracias a los dos, pero el problema que tengo es que por ejemplo
la cantidad de 1,837.32 me la pone como 1837.32, es decir sin el
separador de millares.
Saludos
Pablo H

[Xevi]

Pablo,
te adjunto un sample de TFileXls
En los samples verás que se formatean las celdas con punto de millares e
incluso con la coma para decimales.
Si no obtienes este resultado con el sample, será que tienes mal configurado
windows la configuración regional e idioma.
Un Saludo,
Xevi.
"Pablo Herranz" <pablo@ibertabaco.com> escribió en el mensaje
news:4adf3955$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Muchas Gracias a los dos, pero el problema que tengo es que por ejemplo
> la cantidad de 1,837.32 me la pone como 1837.32, es decir sin el
> separador de millares.
>
>
> Saludos
> Pablo H


Attached files TestTFileXLS.zip (26.7 KB)Â