Impresion

[Emilio Gil]

Hola:
Como se imprime una tabla de datos si esta ha sido elaborado con
TDBBrowse y TMemDataSet, no consigo que cambie el valor de la fila,
siempre me muestra la fila actual, tantas veces como le indico en la orden
DEFINE FONT oFont1 NAME "Arial" SIZE 0, -8
REPORT oReport TITLE cTitulo FONT oFont1 PREVIEW
COLUMN OF oReport TITLE "Agente" DATA ::oMemDataSet1:Nomag
COLUMN OF oReport TITLE "Año" DATA ::oMemDataSet1:Anyo
oReport:nTitleUpLine := rlSINGLE
oReport:nGridStyle := rgBOTH
oReport:bSkip := {|| n++}
RUN REPORT oReport while n <= ::oDBBrowse1:nLen
oFont1:End()
Gracias.

[ignacio]

Emilio,
oReport:bSkip := {|| oMemDataSet:Skip() }
oReport:bWhile := {||| !oMemDataSet:Eof() }
Saludos
"Emilio Gil" <emilio@iplasticas.com> escribió en el mensaje
news:442d4c2e$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> Hola:
>
> Como se imprime una tabla de datos si esta ha sido elaborado con
> TDBBrowse y TMemDataSet, no consigo que cambie el valor de la fila,
> siempre me muestra la fila actual, tantas veces como le indico en la orden
>
> DEFINE FONT oFont1 NAME "Arial" SIZE 0, -8
>
> REPORT oReport TITLE cTitulo FONT oFont1 PREVIEW
>
> COLUMN OF oReport TITLE "Agente" DATA ::oMemDataSet1:Nomag
> COLUMN OF oReport TITLE "Año" DATA ::oMemDataSet1:Anyo
>
> oReport:nTitleUpLine := rlSINGLE
> oReport:nGridStyle := rgBOTH
>
> oReport:bSkip := {|| n++}
>
>
> RUN REPORT oReport while n <= ::oDBBrowse1:nLen
>
> oFont1:End()
>
>
> Gracias.
>

[ignacio]

Emilio,
Perdoname pero te he dicho mal oReport:bWhile. Ya que una matriz nunca puede
estar en EOF como un DBF. Cambia bWhile por:
oReport:bWhile := {|| oDS:nRecno <= oDS:RecCount() }
Saludos,
"Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje
news:442d4fa0$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> Emilio,
>
> oReport:bSkip := {|| oMemDataSet:Skip() }
> oReport:bWhile := {||| !oMemDataSet:Eof() }
>
> Saludos
>
> "Emilio Gil" <emilio@iplasticas.com> escribió en el mensaje
> news:442d4c2e$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>> Hola:
>>
>> Como se imprime una tabla de datos si esta ha sido elaborado con
>> TDBBrowse y TMemDataSet, no consigo que cambie el valor de la fila,
>> siempre me muestra la fila actual, tantas veces como le indico en la
>> orden
>>
>> DEFINE FONT oFont1 NAME "Arial" SIZE 0, -8
>>
>> REPORT oReport TITLE cTitulo FONT oFont1 PREVIEW
>>
>> COLUMN OF oReport TITLE "Agente" DATA ::oMemDataSet1:Nomag
>> COLUMN OF oReport TITLE "Año" DATA ::oMemDataSet1:Anyo
>>
>> oReport:nTitleUpLine := rlSINGLE
>> oReport:nGridStyle := rgBOTH
>>
>> oReport:bSkip := {|| n++}
>>
>>
>> RUN REPORT oReport while n <= ::oDBBrowse1:nLen
>>
>> oFont1:End()
>>
>>
>> Gracias.
>>
>
>