unit MyIPDReport;
procedure main;
var
min_hba1c,max_hba1c:string;
begin
min_HbA1C:='5';
max_HbA1C:='6.5';
inputquery('Minimum HbA1C','Min HbA1C',min_HbA1C);
inputquery('Maximum HbA1C','Max HbA1C',max_HbA1C);
zquery.sql.text:='delete from tempreport where id = "CUSTOM-Yindee" ';
zquery.execsql;
fcds.close;
fcds.datarequest('select * from tempreport where id = "CUSTOM-Yindee" ');
fcds.open;
fcds.insert;
fcds['id']:='CUSTOM-Yindee';
fcds['reportname']:='CUSTOM-Yindee';
fcds['name1']:=min_HbA1C;
fcds['name2']:=max_HbA1C;
fcds.post;
fcds.datarequest('select * from tempreport where id = "CUSTOM-Yindee" ');
applyupdate_fcds();
end;
end.