duda con report y Array [solucionado]

[lucasdebeltran]

hola a todos,

tengo una duda con report.

necesito sacar información de otra base de datos, conretamente tres campos. podría sacarlo en un array pero esto no me funciona.

Code: Select all  Expand view  RUN

LOCAL AFont1, AFont2, Afont3, aarray, i:= 1

DEFINE FONT AFont1 NAME "ARIAL" SIZE 0,-10
DEFINE FONT AFont2 NAME "ARIAL" SIZE 0,-10 BOLD
DEFINE FONT AFont3 NAME "ARIAL" SIZE 0,-6 BOLD

PrinterSetup()
REPORT oRepFam ;
FONT AFONT1, AFONT2, AFONT3;
CAPTION "Maestro de Familia" ;
TITLE " ",;
"Maestro de Familia",;
" ";
CENTER;
HEADER " ";
LEFT;
FOOTER "Fecha "+ dtoc(date());
CENTER;
PREVIEW


aarray := sacamiarray()


COLUMN TITLE "Código" DATA aarray[i,1]
COLUMN TITLE "Descripción" DATA aarray[i,2]

i++

END REPORT
ACTIVATE REPORT oRepFam

AFont1:End()
AFont2:End()
AFont3:End()

 

¿alguna idea por favor?.

muy agradecido.

[Ruben Fernandez]

Hola, quizas puedas probar asi:

local aarray := Array(nelementos)

CargaArray()
----------------

FUNCTION CARGAARRAY()
Lo que debas cargar

RET .T.


Saludos.

[lucasdebeltran]

rubén,

así lo hago, pero el tema es que el report no reconoce el array.

gracias

[Armando]

Lucas:

Podrías apoyarte en la función DBSETRELATION(), así tendrías a tu disposición todos
los campos de las DBF relacionadas.

Saludos

[lucasdebeltran]

Hola:

Ya encontré la solución:

Code: Select all  Expand view  RUN

 oReport:bWhile := { || n <= nHasta }
  oReport:bSkip := { | | n++}
 

Muchas gracias.