Import BankInter;
file d(arhdoc) key  0 ;
file a(account) key  0 ;

data_s={curdate};
data_e={curdate};

GetDate(data_s,"Дата начала");
GetDate(data_e,"Дата окончания");

ch1="60308810?????2??????";
ch2="60308810?????1??????";
sy1=" 53";
sy2=" 42";

macro GetAccountName(ac);
 a.Account = ac;
 GetEQ(a);
 return a.NameAccount;
end;

macro Compare
 res= 0 ;
 c = CompareStrWithMasks(ch1,d.Account_Payer);
 if (c== 0 )
  res= 1 ;
 end;
 c = CompareStrWithMasks(ch2,d.Account_Payer);
 if (c== 0 )
  res= 2 ;
 end;
 return res;
end;

d.Date_Carry=data_s;

stat=GetGE(d);
i= 0 ;
[#################### # ############################################################ # ##### # ######### # ################]
("№ счета","|","Название счета","|"," СК","|","№ док","|","Сумма");
//println("| № cчета           | Название счета                                             | СК  | № док.  |  Сумма         |");
println("");
initprogress(nrecords(d));
while(stat and (d.Date_Carry<=data_e))
 c = Compare();
 if (c== 1 )
  if (d.Symbol_Cach!=sy1)
  [#################### # ############################################################ # ##### # ######### # ################]
  (d.Account_Payer,"|",GetAccountName(d.Account_Payer),"|",d.Symbol_Cach,"|",d.Numb_Document,"|",d.Sum);
  end;
 end;
 if (c== 2 )
  if (d.Symbol_Cach!=sy2)
   [#################### # ########################################################### # ##### # ######### # ################]
   (d.Account_Payer,"|",GetAccountName(d.Account_Payer),"|",d.Symbol_Cach,"|",d.Numb_Document,"|",d.Sum);
  end;
 end;
stat=next(d);
i=i+ 1 ;
useprogress(i);
end;
remprogress();