gracias Amigo roman.
te explico mas a detalle para tu gentil colaboracion.
Nombre tabla: AVALUOS
Campos
predio A 25
2010 N
2011 N
2012 N
2013 N
2014 N
2015 N
2016 N
2017 N
************************
Resultado: Llenar un Grid
Vigencia Avaluo Impuesto
2010 XXXX1 YYYYY1
2011 XXXX2 YYYYY2
........
2017 XXXX8 YYYYY8
********************************
Actualmente
NVigencias:=8;
FOR VANO:=1 TO NVigencias DO
BEGIN
GRIDLIQUIDACION.CELLS[1,I]:=inttostr(2010+I);
GRID:= GRIDLIQUIDACION.CELLS[1,I];
CASE GRID OF
//************ 2010
2010: begin
GRIDLIQUIDACION.CELLS[2,I]:=strtoint(TAvaluos['2010']);
GRIDLIQUIDACION.CELLS[3,I]:=CALCULARIMPUESTO(TAvaluos['2010']);
end;
EN TOTAL SON 8 VIGENCIAS >>> OBSERVANDO PODRIA REDUCIR TODO EL CASE DE LA SIGUIENTE MANERA:
FOR VVIGENCIA:=2010 TO 2017
begin
GRIDLIQUIDACION.CELLS[2,I]:=strtoint(TAvaluos[VVIGENCIA]);
GRIDLIQUIDACION.CELLS[3,I]:=CALCULARIMPUESTO(TAvaluos[VVIGENCIA]);
end;
PERO ME MARCA ERROR >>> QUISIERA REEMPLAZAR TAvaluos['2010'] POR TAvaluos[VVIGENCIA]
COMO RREMPLAZO EN NOMBRE DEL CAMPO POR UN PARAMETRO????....
|