datetime ldt, ldt_r
long ll_nrow, row, ll_keyrm, ll_keyrm_r
double lf_kol, lf_kol_r
pointer oldpointer

ldt = dw_1.getitemdatetime( 1 ,'dt_obr')

ll_nrow = dw_2.rowcount()
if ll_nrow >  0  then
	oldpointer = SetPointer(HourGlass!)
	For row =  1  to  2 //ll_nrow
		lf_kol = dw_2.getitemnumber(row,'pr_kol')
		ll_keyrm = dw_2.getitemnumber(row,'key_rm')
		if ll_keyrm >  0  then
			 select key_rm , kol , dt_ras into :ll_keyrm_r, :lf_kol_r, :ldt_r from doc_rashod 
			   where key_rm = :ll_keyrm;
			   messagebox('отото', 'sqlcode = ' + string(sqlca.sqlcode) )
			 //sle_1.text = string(ll_keyrm_r)
			 //if ll_keyrm_r >  0  then
			 if sqlca.sqlcode =  0  then
				  sle_1.text = string(ll_keyrm_r)
				 update doc_rashod set dt_ras = :ldt , kol = :lf_kol where key_rm =:ll_keyrm_r;
				 messagebox('отото', 'sqlcode = ' + string(sqlca.sqlcode) )
				 commit;
				 //sqlca.of_errormessage()
			 end if	
		end if	
	Next
	SetPointer(oldpointer)
	parent.event pfc_save()
end if	
close(parent)

update doc_rashod set dt_ras = :ldt , kol = :lf_kol where key_rm =:ll_keyrm_r;