Выгрузку в бухгалтерии можно сделать так :
// формируем таблицу значений
DocT = CreateObject("ValueTable");
DocT.NewColumn("Account","String",12,,"Счет",24);
DocT.NewColumn("SumR","Number",15,2,"Д*цензура*",14);
DocT.NewColumn("SumP","Number",15,2,"Кредит",14);
DocT.NewColumn("KD","Number",12,2,"Кол Д*цензура*",14);
DocT.NewColumn("KK","Number",12,2,"Кол Кредит",14);
DocT.NewColumn("SK1","String",45,,"Вид",24);
DocT.NewColumn("SK2","String",45,,"Вид",24);
DocT.NewColumn("SK3","String",45,,"Вид",24);
DocT.NewColumn("Code","String",12,,"Код",12);
DocT.NewColumn("Code2","String",12,,"Код",12);
DocT.NewColumn("Code3","String",12,,"Код",12);
BTotal = CreateObject("AccountTotals");
BTotal.UseSubconto(Account.SubcontoKind(1),,1,0);
BTotal.UseSubconto(Account.SubcontoKind(2),,1,0);
BTotal.UseSubconto(Account.SubcontoKind(3),,1,0);
if BTotal.DoQuery(Date2,Date2,Account) = 1 then
BTotal.SelectSubconto();
While BTotal.GetSubconto() = 1 do
// в созданную таблицу выгружаем итоги
// чтобы не перегружать пост - пример для 1-го субконто
DocT.NewLine();
DocT.SK1 = TrimAll(String(Account.SubcontoKind().SubcontoType()));
if BTotal.Account.Активный = 1 then
if BTotal.СКД() < 0 then
DocT.SumP = - BTotal.СКД();
endif;
endif;
if BTotal.Account.Активный = 2 then
if BTotal.СКК() < 0 then
DocT.SumR = - BTotal.СКК();
endif;
endif;
if Find(DocT.SK1,"Справочник") > 0 then
DocT.Code = BTotal.Субконто().Code;
endif;
if Find(DocT.SK1,"Перечисление") > 0 then
DocT.Code = BTotal.Субконто().Number();
endif;
DocT.Account = TrimAll(String(BTotal.Account));
if BTotal.СКК() > 0 then
DocT.SumP = BTotal.СКК();
DocT.KK = BTotal.СКК(3)
endif;
if BTotal.СКД() > 0 then
DocT.SumR = BTotal.СКД();
DocT.KD = BTotal.СКД(3)
endif;
enddo;
//отдельно надо обрабатывать ситуацию
// if (Account.SubcontoCount() = 0) OR (Account.TurnoversOnly() = 1) then
//но это уже детали
// далее таблицу сохраняем во внешнем файле (я предпочитаю DBF) и другой программой аналогично загружаем в пустую копию базы
Кстати, сам напишешь все эти примочки - приобретешь неоценимый опыт