seguimiento.Close;
seguimiento.SQL.Clear;
seguimiento.SQL.Add('select * from modulos left join distritos on distritos.drclave = modulos.modr where idmodulo=:modulo && modr=:dr');
seguimiento.ParamByName('modulo').Value:=DR_Modu.DR_Modulo.Label7.Caption;
seguimiento.ParamByName('dr').Value:=DR_Modu.DR_Modulo.CBDistrito.Text;
seguimiento.Open;
RveSeg.SetParam('Param.Alma1',edit176.text);
RveSeg.SetParam('Param.Alma2',edit177.text);
RveSeg.SetParam('Param.Alma3',edit179.text);
RveSeg.SetParam('Param.Alma4',edit180.text);
RveSeg.SetParam('Param.Alma5',edit181.text);
RveSeg.SetParam('Param.Alma6',edit182.text);
RveSeg.SetParam('Param.Alma7',edit1.text);
RveSeg.SetParam('Param.Alma8',edit50.text);
RveSeg.SetParam('Param.Alma9',edit175.text);
RveSeg.SetParam('Param.Alma10',edit100.text);
RveSeg.SetParam('Param.Alma11',edit101.text);
RveSeg.SetParam('Param.Almar12',edit126.text);
RveSeg.SetParam('Param.ciclo',combobox1.Text);
RVESeg.ProjectFile:=principal.edit1.text +'Reportes\Necesidades-Medias.rav';
RVESeg.Execute