hola Ecfisa, te mando el código del evento On show.
Código Delphi
[-]
Procedure TfrmEvaluacionPersonal.TabAreaShow(Sender: TObject);
begin
w_Area:=0;
with clicoopera do begin
close;
params.ParamByName('numero').AsInteger:=Prop_Funcionario;
params.ParamByName('fecha').Asdate:=dbefecha.date;
params.ParamByName('area').AsInteger:=1;
params.ParamByName('Nivel').AsInteger:=1;
Open;
if not isempty () then begin
w_area:=w_area+puntos(CliCoopera.fieldvalues['IdArea'],CliCoopera.fieldvalues['IdNivel'],CliCoopera.fieldvalues['IdEvaluacion']);
end else begin
w_area:=w_area;
end;
end;
with cliInteres do begin
close;
params.ParamByName('numero').AsInteger:=Prop_Funcionario;
params.ParamByName('fecha').Asdate:=dbefecha.date;
params.ParamByName('idarea').AsInteger:=1;
params.ParamByName('idNivel').AsInteger:=2;
Open;
if not isempty () then begin
w_area:=w_area+puntos(CliInteres.fieldvalues['IdArea'],Cliinteres.fieldvalues['IdNivel'],CliInteres.fieldvalues['IdEvaluacion']);
end else begin
w_area:=w_area;
end;
end;
end;
Puntos es una función que me devuelve un valor a partir de los parámetros pasados.
Los datos me los muestra en un Combobox. No se si la información enviada es suficiente.
Saludos y Muchas Gracias