begin
DM.IBQuery_Correlativas_Regular_cursar.SQL.Text:= 'Select * from correlatividad where id_materia= :mat '+
' and TIPO = ''CURSAR'' and ESTADO_CORRELATIVIDAD = ''REGULAR'' ';
dm.IBQuery_Correlativas_Regular_cursar.ParamByName('mat').AsInteger:= dm.IBQuery_materiaID_MATERIA.Value;
dm.IBQuery_Correlativas_Regular_cursar.Open;
end;