Xailer & OZ Software

Hola,
¿Se puede utilizar la tReport con arrays?
¿Hay algún ejemplo donde mirar?
Saludos y gracias!
José Luis Capel

José Luis:
No lo he probado pero debe de funcionar igual que en FW, hasta ahora
todos los informes que he hecho me los he traido de FW y funcionan
estupendamene.
Saludos
Rene Flores
http://www.ciber-tec.com
Capel escribió:
> Hola,
>
> ¿Se puede utilizar la tReport con arrays?
>
> ¿Hay algún ejemplo donde mirar?
>
> Saludos y gracias!
> José Luis Capel

René,
> No lo he probado pero debe de funcionar igual que en FW, hasta ahora
> todos los informes que he hecho me los he traido de FW y funcionan
> estupendamene.
Gracias por la respuesta. El caso es no he utilizado nunca la treport
con arrays. ¿Como se hace?
Saludos,
José Luis Capel

José Luis Capel escribió:
> Hola,
>
> ¿Se puede utilizar la tReport con arrays?
>
> ¿Hay algún ejemplo donde mirar?
>
> Saludos y gracias!
> José Luis Capel
>
Hola Jose Luis:
te mando un ejemplo de como se hací­a con fivewin, supongo que funciona
exactamente igual.
Static Function imprimir(aMatriz, aDatos)
Local n := 1
Local oReport, oFont1
IF len(aMatriz) == 0
return(nil)
ENDIF
DEFINE FONT oFont1 NAME "Arial" SIZE 0, -10
REPORT oReport TITLE "Consumo Facturas Anual de " + aDatos[4] + " desde
" + dtoc(aDatos[1]) ;
+ " hasta " + dtoc(aDatos[2]) FONT oFont1 PREVIEW
oReport:CellView()
COLUMN TITLE "Cód." DATA aMatriz[n,1] picture "#,###"
COLUMN TITLE "Nombre" DATA aMatriz[n,2]
COLUMN TITLE "Importe" DATA aMatriz[n,3] TOTAL picture "##,###,###.##"
COLUMN TITLE "E" DATA aMatriz[n,4]
ENDREPORT
oReport:bSkip := {|| n++}
ACTIVATE REPORT oReport WHILE aMatriz[n,3] > 0
oFont1:Release()
return(nil)

Emilio,
> te mando un ejemplo de como se hací­a con fivewin, supongo que
> funciona exactamente igual.
>
> Static Function imprimir(aMatriz, aDatos)
> Local n := 1
> Local oReport, oFont1
> IF len(aMatriz) == 0
> return(nil)
> ENDIF
>
> DEFINE FONT oFont1 NAME "Arial" SIZE 0, -10
>
>
> REPORT oReport TITLE "Consumo Facturas Anual de " + aDatos[4] + " desde
> " + dtoc(aDatos[1]) ;
> + " hasta " + dtoc(aDatos[2]) FONT oFont1 PREVIEW
>
> oReport:CellView()
>
> COLUMN TITLE "Cód." DATA aMatriz[n,1] picture "#,###"
> COLUMN TITLE "Nombre" DATA aMatriz[n,2]
> COLUMN TITLE "Importe" DATA aMatriz[n,3] TOTAL picture "##,###,###.##"
> COLUMN TITLE "E" DATA aMatriz[n,4]
>
> ENDREPORT
>
>
> oReport:bSkip := {|| n++}
>
> ACTIVATE REPORT oReport WHILE aMatriz[n,3] > 0
>
> oFont1:Release()
>
> return(nil)
>
Gracias!! Lo pruebo y te digo.
Saludos,
José Luis Capel