DBGrid con campos variables

[mayte mtz]

Código PHP:

cmayte = 'Gracias por las porras' 


[mayte mtz]

Hola, continuando con mi pregunta acerca de campos variables en DBGrid

Tengo un Store procedure que me arroja el sgte resultado.

Este set de resultados, muestra los consumos de lo carros por tipo de gasto,
el cual se obtiene en base a la cuenta contable.

Div_Carro Carro Zona_carro D_Zona 001-Refacciones 003-Diesel  005-Autopistas 006-Llantas 007-Sueldos 

1	 4411   2	  Noreste 6123.04	   29903.25	 0.00		6293.32	   0.00 
1	 4412   2	  Noreste 4360.44	   28357.42	 0.00		1022.61	   0.00
1	 4413	2	  Noreste 4999.46	   951.61	 0.00		8496.20	   0.00 
1	 4414	2	  Noreste 22108.43	   27680.89	 0.00		0.00	 0.00 
1	 4415	2	  Noreste  5208.24	   31128.04	 0.00		0.00	 0.00

La parte del código del SP con el que imprimo lo anterior es:

Código SQL [-]
     Delete From Pivotvar
      Insert Into PivotVar
      (Pivot)
      Select Distinct 'Sum(Case When Tipo_Gasto=''' + Rtrim(Cast(Tipo_Gasto As Varchar(500))) 
      + ''' Then Importe Else 0 End) As ''' + 
      Rtrim(Cast((Tipo_Gasto+'-'+D_Tipo_Gasto) As Varchar(500))) + ''',' As Pivot
      From GtoVarxCarro Where Tipo_Gasto Is Not Null 
      
      -- Imprimir query ya en forma de CrossTab
      Declare @cSql                    varchar(7000)
      Set @cSQL = ''
      Set @cSQL ='SELECT Div_Carro,Carro,Zona_carro,D_Zona, '
      Select @cSQL= @cSQL + RTRIM(convert(varchar(500), Pivot))
      From PIVOTVAR
      Order by Pivot
      Set @cSQL = @cSQL  + 'Sum(IsNull(Total,0))as Gran_Total FROM  GtoVarxCarro  '
      Set @cSQL = @cSQL  + ' Where Carro <> 0  and Zona_carro <> 0 '
      Set @cSQL = @cSQL  + 'Group by Div_Carro,Carro,Zona_carro,D_Zona '
      Set @cSQL = @cSQL  + 'order by Div_Carro,Carro,Zona_carro,D_Zona '
 
EXECUTE (@cSQL)

Si lo ejecuto desde el Query Analizer me arroja el resultado mostrado arriba, todo bien.
Pero al incluirlo en Delphi 5 , haciendo uso de TStoreProc , TDataSorce, TwwDBGrid al momento de correrlo, sólo me muestra las columnas de

• Zona_Carro
• D_Zona

Me pueden ayudar a buscar mi error...

Gracias de antemano

Saludos

Mayté Mtz