for i= 1  to dw_list.rowcount()
 if dw_list.object.active[i]= 1  then
	dirh=dw_list.object.dirhouse[i];
	no_acc=dw_list.object.no_account[i];
	c_d=dw_list.object.current_date[i];
	sum=dw_list.object.sum[i]-dw_list.object.sumopl[i];
	countt=dw_list.object.countt[i];
	code=dw_list.object.code[i];
  insert into flat.reestrdolg(dirhouse,no_account,current_date,sum,countt,typedoc,code)
  values(:dirh,:no_acc,:c_d,:sum,:countt, 2 ,:code);
end if;
next;
commit;

c_d=dw_data.object.d1_ins[ 1 ];
typedoc=integer(dw_data.object.typedoc_ins[ 1 ]);
dw_list.setfilter("active=1");
dw_list.filter();
rcount=dw_list.rowcount();
for i= 1  to rcount
 id=dw_list.object.id[i];
 sum=dw_list.object.sum[i]-dw_list.object.sumopl[i];
 insert into flat.reestrdolg(dirhouse,no_account,current_date,sum,countt,typedoc,code)
 select dirhouse,no_account,:c_d,:sum,countt,:typedoc,code
 from flat.reestrdolg
 where id=:id;
next;
commit;
dw_list.setfilter("");
dw_list.filter();

 insert into flat.reestrdolg(dirhouse,no_account,current_date,sum,countt,typedoc,code)
 select dirhouse,no_account,:c_d,:sum,countt,:typedoc,code
 from flat.reestrdolg
 where id=:id;

DataStore lds
lds = CREATE DataStore
lds.DataObject = 'ds_reestrdolg'
lds.SetTransObject(sqlca)

// В цикле:
lds.InsertRow(li_i)
lds.SetItem(li_i, 'dirhous', dirh)
...

//После выхода из цикла:
lds.Update()

c_d=dw_data.object.d1_ins[ 1 ];
typedoc=integer(dw_data.object.typedoc_ins[ 1 ]);
dw_list.setfilter("active=1");
dw_list.filter();
rcount=dw_list.rowcount();
ds=create datastore;
sql="select id,dirhouse,no_account,current_date,sum,countt,typedoc,code,dateizm from flat.reestrdolg where id=1";
new_syntax=SQLCA.SyntaxFromSQL(sql,'Style(Type=Grid)',error_syntaxfromSQL);
ds.create(new_syntax,sqlerror);
ds.settransobject(sqlca);
ds.retrieve();
for i= 1  to rcount
  sum=dw_list.object.sum[i]-dw_list.object.sumopl[i];
  row=ds.insertrow( 0 );
  ds.object.dirhouse[row]=dw_list.object.dirhouse[i];
  ds.object.no_account[row]=dw_list.object.no_account[i];
  ds.object.current_date[row]=c_d;
  ds.object.sum[row]=sum;
  ds.object.countt[row]=dw_list.object.countt[i];
  ds.object.typedoc[row]=typedoc;
  ds.object.code[row]=dw_list.object.code[i];
next;
ds.accepttext();
ds.update();
commit;
dw_list.setfilter("");
dw_list.filter();

dw_list.setfilter("active=1");
dw_list.filter();
rcount=dw_list.rowcount();
for i= 1  to rcount
 dw_list.object.typedoc[i]= 2 ;
next;
dw_list.update();
commit;
dw_list.setfilter("");
dw_list.filter();

select a.owne,r.sum,r.no_account,r.countt,h.gek,
 (select (type_street_name+' '+s.name) from  ref.street rs,dba.streets s
 where rs.id=h.street and rs.id=s.ref_code) streetnm,
 string(streetnm,', д. ',isnull(h.num, 0 ),isnull(h.num2,''),' ,кв. ',a.no_flat) dname,r.id,r.current_date,s.fio,
 isnull((select sum(sum) from flat.doc din,flat.account ain
  where ain.id=din.account and ain.dirhouse=a.dirhouse and ain.no_account=a.no_account
	and din.in_out=- 1  and din.current_date>=r.current_date and din.current_date<
	isnull((
	 select min(current_date) from flat.reestrdolg
	 where dirhouse=r.dirhouse and no_account=r.no_account and current_date>r.current_date
	),ymd( 3000 , 01 , 01 ))
 ), 0 ) sumopl,
 (if sumopl= 0  then  1  else  0  endif) active,r.code,r.dirhouse,r.typedoc,r.dateizm
 from dba.house h,flat.reestrdolg r,flat.account a,dba.sotrud s
 where a.dirhouse=r.dirhouse and a.no_account=r.no_account and a.dirhouse=h.id
 and r.code=s.id and a.copy is null
 and r.current_date between ctod(:d1) and ctod(:d2) and r.typedoc=:typedoc
 order by r.current_date,h.gek,a.no_account