change ppdbtext.datapipeline

rbuser

I need to do a program that load a report, and find a ppdbtext and change
datapipeline and datafield of tppdbtext...

I do all but only change datafield and not datapipeline

code is similar to this :

for iCnt := 0 to Self.ComponentCount - 1 do
begin
if( Self.Components[ iCnt ].ClassType = TppDBText )then
begin
if ( ( AnsiCompareText( TppDBText(Self.Components[
iCnt ]).DataPipeline.Name, 'plClientes' ) = 0 ) OR
( AnsiCompareText( TppDBText(Self.Components[
iCnt ]).DataPipeline.UserName, 'plClientes' ) = 0 ) ) then
begin

if ( AnsiCompareText( TppDBText(Self.Components[
iCnt ]).DataField, 'Empresa' ) = 0 ) then
begin
TppDBText(Self.Components[ iCnt ]).DataPipeline.Name
:= 'plCabecera';
TppDBText(Self.Components[ iCnt ]).DataField :=
'IMP_EMPRESA' ;
end
else if
.....

ppInforme.Template.SaveToDatabase ;

what happens ?

thanks

--
Un saludo


Jaime Lloret.
Jefe de Desarrollo de Proyectos Software.
ISCOPYME, S.L.

CL?USULA DE CONFIDENCIALIDAD: ISCOPYME, S.L garantiza la confidencialidad de
los datos que obran en su poder y seg?n lo estipulado por la LOPD (Ley
Org?nica 15/1999 de 13 de diciembre de Protecci?n de Datos de Car?cter
Personal). Este mensaje se dirige exclusivamente al destinatario consignado.
Puede contener informaci?n confidencial, de nuestra propiedad o legalmente
protegida. Si usted no es el destinatario, le informamos que cualquier
acceso, divulgaci?n, copia o distribuci?n de la informaci?n, as? como
cualquier acci?n u omisi?n realizada con base a la misma, queda prohibida y
puede ser ilegal. En caso de haber recibido este mensaje por error, le
rogamos que nos lo reenv?e y notifique inmediatamente, borrando toda copia
de su sistema. Gracias.


ISCOPYME, S.L.
Ingenier?a del Software y Consulting para la PYME.
Servicios Inform?ticos.

Tel : 96 688 12 88
Fax : 96 688 20 29
C/ Pintores, N? 19.
03590 - ALTEA - Alicante
Espa?a.

www.iscopyme.com
Administraci?n : admin@iscopyme.com
Depto. Software : soft@iscopyme.com
SAT : sat@iscopyme.com

nicocizik

Hi Jaime,

Try assigning the actual pipeline object to the pipeline property of the
report instead of the Name.

TppDBText(Self.Components[ iCnt ]).DataPipeline := plCabecera;


--
Regards,

Nico Cizik
Digital Metaphors
http://www.digital-metaphors.com

rbuser

plCabecera is a pipeline inside the report....

nicocizik

You can access the datapipelines created in DADE using the
TdaQueryDataView.DataPipelines property. Something like the following...

ppReport1.DataPipeline := daBDEQueryDataView2.DataPipelines[0];

or

ppReport1.DataPipeline := daDataModule1.DataViews[1].DataPipelines[0];

--
Regards,

Nico Cizik
Digital Metaphors
http://www.digital-metaphors.com