procedure TfrGurnal_sop.FormShow(Sender: TObject);
var
SQL_text:String;
begin
  SQL_text:= 'and sa.nom_abon = :ID_ABON;';
  if(STAT = 1)then
  begin
  with frGurnal_sop.dsetData do
  begin
  close;
   SQLs.SelectSQL.Text:='select g.*, s.naim as N_CATEGORY,' + #13#10 +
'(select p.adres from bal_pc_adres(g.id_abon) p) as ADRES, k.naim_kod as N_COMMENT,' + #13#10 +
'sa.nom_abon, sa.kol_jil, sa.kol_lg,' + #13#10 + 
'(select max(z.date_dost) from bal_pr_zajvka z where z.id_abon=g.id_abon and coalesce(z.pr_ned,0)=0) as DATE_DOST,' + #13#10 +
'bs.naim as NAIM_SS' + #13#10 +
'from bal_gurnal_sop g' + #13#10 +
'inner join spr_sop s on (s.id=g.id_category)' + #13#10 +
'inner join bal_spr_abon sa on (sa.id=g.id_abon)' + #13#10 +
'inner join sp_punkt sp on (sp.kod_punkt=sa.kod_punkt)' + #13#10 +
'left outer join bal_spr_ss bs on (bs.kod=sp.kod_ss)' + #13#10 + 
'left outer join klsfct k on (k.kod=77) and k.kod_hc=g.stat_comment' + #13#10 + 
'where 1=1 ' +SQL_text;
   ParamByName(':ID_ABON').AsInteger:=ID_ABON;
  Open;
  end;
  end;
  if(STAT <> 1)then
  begin
  dsetData.Close;
  dsetData.Open;
   end;
  cxSOP.RestoreFromIniFile (ProgPath+'ini/gurnal_sop.ini', true , true ,[ gsoUseFilter ,  gsoUseSummary ], 'tmp_gurnal_sop');
  cxSOP.DataController.Filter.Clear;
end;

ParamByName(':ID_ABON').AsInteger:=20911;

ParamByName('ID_ABON').AsInteger:=20911;

ParamByName(':ID_ABON')