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.
Código:
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
Me pueden ayudar a buscar mi error...
Gracias de antemano
Saludos
Mayté Mtz