dm_create.ds_covid_sem.Close;
       // dm_create.ds_covid_sem.SQLs.SelectSQL.Clear;
        if LookupForActForm.MCODLookupCombobox.Value<>null then begin

              dm_create.ds_covid_sem.SQLs.SelectSQL.Text:='select distinct u.id_sluch, p.mse, p.inv, u.podr, so.iotd,u.ds_onk,t.data_l,t.npr_mo, t.npr_date, u.p_per,t.nhistory, u.npolis, u.profil_k, p.w, '+
                                                      't.usl_ok, usl.umpname, t.for_pom, t.ishod, t.rslt, u.profil, sp.t_type, '+
                                                      't.date_1, t.date_2, u.ed_col as KD, u.koefk, t.ds0, t.ds1, t.ds2, t.ds3, t.c_zab, '+
                                                      'u.dn, t.c_zab, n.napr_v, t.disp,  u.npolis,  u.lpu, u.lpu_1, sl.m_namef, '+
                                                      't.det, p.fam, p.im, p.ot, p.dr, extract(year from t.date_1)-extract(year from p.dr) as VOZRAST, u.date_in, u.date_out, u.ds, m.name, t.iddokt, '+
                                                      'd.fio, d.spec, u.code_usl, sp.name_issl, t.prvs_s, u.zak, '+
                                                      'iif(u.sumv_usl=0,u.tarif*u.kol_usl,u.sumv_usl) as sumv_usl, '+
                                                      'IIF(sn.id_povod='',''Проверен'', sn.id_povod) as id_povod, '+
                                                      'sn.comment, sn.summa_v, sn.tip_exp, sn.data_exp,sk.sumoms_sht as mek '+
                                                      'from ut05s50'+LookupForActForm.cData+' u '+
                                                      'left join tt05s50'+LookupForActForm.cData+' t on u.id_sluch=t.id_sluch_tt '+
                                                      'left join pt05s50'+LookupForActForm.cData+' p on substring(p.id_sch from 9 for 6)=u.lpu and p.polis=t.id_pac and t.novor=p.novor and p.id_pac_new=t.id_pac_new '+
                                                      'left join sp_tarif sp on sp.ksg=u.code_usl '+
                                                      'left join uslmp usl on usl.idump=t.usl_ok '+
                                                      'left join s_lpu s on s.mcod=u.lpu_1 '+
                                                      'left join mkb m on m.lcod=t.ds1 '+
                                                      'left join stacotd so on so.kotd=u.podr and so.mcod=u.lpu_1 '+
                                                      'left join ( '+
                                                      '    select s.id, s.id_sluch, s.id_exp, s.id_povod, s.comment, s.summa_v, s.summa_m, s.data_exp, s.tip_exp from snk'+LookupForActForm.cData+' s '+
                                                      '     union all '+
                                                      '    select s.id, s.id_sluch, s.id_exp, s.id_povod, s.comment, s.summa_v, s.summa_m, s.data_exp, s.tip_exp from snk_stac'+LookupForActForm.cData+' s '+
                                                      ') sn on sn.id_sluch=u.id_sluch '+
                                                      'left join sankc sk on sk.id_sluch=u.id_sluch and sk."year"='+QuotedStr(LookupForActForm.cbyear.Text)+' and sk.mont='+QuotedStr(LookupForActForm.cbMonth.Text)+' ' +
                                                      'where u.lpu_1=:mcod and t.usl_ok<3 and extract(year from t.date_1)-extract(year from p.dr)>=70 and ((t.ds1 in (''U07.1'',''U07.2'')) or (t.ds2 in (''U07.1'',''U07.2'')) or (t.ds3 in (''U07.1'',''U07.2''))) ';
              Showmessage(IntToStr(dm_create.ds_covid_sem.ParamCount));
              dm_create.ds_covid_sem.ParamByName('mcod').AsString:=dm.ds_slpuMCOD.AsString;
              dm_create.ds_covid_sem.Open;
          end 

select distinct u.id_sluch, p.mse, p.inv, u.podr, so.iotd,u.ds_onk,t.data_l,t.npr_mo, t.npr_date, u.p_per,t.nhistory, u.npolis, u.profil_k, p.w,
    t.usl_ok, usl.umpname, t.for_pom, t.ishod, t.rslt, u.profil, sp.t_type,
    t.date_1, t.date_2, u.ed_col as KD, u.koefk, t.ds0, t.ds1, t.ds2, t.ds3, t.c_zab,
    u.dn, t.c_zab, n.napr_v, t.disp,  u.npolis,  u.lpu, u.lpu_1, sl.m_namef,
    t.det, p.fam, p.im, p.ot, p.dr, extract(year from t.date_1)-extract(year from p.dr) as VOZRAST, u.date_in, u.date_out, u.ds, m.name, t.iddokt,
    d.fio, d.spec, u.code_usl, sp.name_issl, t.prvs_s, u.zak,
    iif(u.sumv_usl=0,u.tarif*u.kol_usl,u.sumv_usl) as sumv_usl,
    IIF(sn.id_povod='','Проверен', sn.id_povod) as id_povod,
    sn.comment,
    sn.summa_v, sn.tip_exp, sn.data_exp,sk.sumoms_sht as mek
from ut05s50202108 u
left join tt05s50202108 t on u.id_sluch=t.id_sluch_tt
left join pt05s50202108 p on substring(p.id_sch from 9 for 6)=u.lpu and p.polis=t.id_pac and t.novor=p.novor and p.id_pac_new=t.id_pac_new
left join NPR05s50202108 n on n.idserv=u.idserv
left join dt05s50202108 d on d.kod=t.iddokt and d.mcod=u.lpu_1
left join sp_tarif sp on sp.ksg=u.code_usl
left join uslmp usl on usl.idump=t.usl_ok
left join s_lpu sl on sl.mcod=u.lpu_1
left join mkb m on m.lcod=t.ds1
left join stacotd so on so.kotd=u.podr and so.mcod=u.lpu_1
left join (
    select s.id, s.id_sluch, s.id_exp, s.id_povod, s.comment, s.summa_v, s.summa_m, s.data_exp, s.tip_exp from snk202108 s
    union all
    select s.id, s.id_sluch, s.id_exp, s.id_povod, s.comment, s.summa_v, s.summa_m, s.data_exp, s.tip_exp from snk_stac202108 s
) sn on sn.id_sluch=u.id_sluch
left join sankc sk on sk.id_sluch=u.id_sluch and sk."year"='2021' and sk.mont='07'
where u.lpu_1=:glpu and t.usl_ok<3 and extract(year from t.date_1)-extract(year from p.dr)>=70 and ((t.ds1 in ('U07.1','U07.2')) or (t.ds2 in ('U07.1','U07.2')) or (t.ds3 in ('U07.1','U07.2')))