Отчет выгрузка в эксель

[rmv]

Идиотский кодеюнит, все равно что Нав для рисования в Паинте использовать
У пользую размеченные мной или ключевыми пользователями шаблоны (можно брать хоть регламентные формы из Консультанта) и спец. кодеюнит.
Соглашение с пользователями только о названиях меток для макроподстановок и названиях секций отчета. Дизайн отчета целиком на их совести

Код для вывода листов просчета для инвентаризации:

Header - OnAfterGetRecord()
TemplateMgt.CreateNewSheet("Document No.");
TemplateMgt.CopyPageSetupFromTemplate();
TemplateMgt.CopyNamedRange('HEADER');
TemplateMgt.xlReplaceRange1('#=DocumentNo', "Document No.");
TemplateMgt.xlReplaceRange1('#=DT', FORMAT(CURRENTDATETIME));
TemplateMgt.xlReplaceRange1('#=USERID', USERID);
window.UPDATE(1, "Document No.");


Line - OnPreDataItem()
TemplateMgt.CopyNamedRange('LINE_HEADER');


Line - OnAfterGetRecord()
CALCFIELDS(Barcode, Article);
TemplateMgt.CopyNamedRange('LINE');
TemplateMgt.xlReplaceRange1('#=LineNumber', FORMAT("Line Number"));
TemplateMgt.xlReplaceRange1('#=BinCode', "Bin Code");
TemplateMgt.xlReplaceRange1('#=PSN', "Parent Serial No.");
TemplateMgt.xlReplaceRange1('#=Barcode', Barcode);
TemplateMgt.xlReplaceRange1('#=Description', Description);
TemplateMgt.xlReplaceRange1('#=Article', Article);
TemplateMgt.xlReplaceRange1('#=LotNo', "Lot No.");
TemplateMgt.xlReplaceRange1('#=Project', Project);
TemplateMgt.xlReplaceRange1('#=UOM', UOM);

IF "Qty Per UOM"<>0 THEN
TemplateMgt.xlReplaceRange1('#=QtyPerUOM', FORMAT("Qty Per UOM"))
ELSE
TemplateMgt.xlReplaceRange1('#=QtyPerUOM', '');


Header - OnPostDataItem()
SheetsForDelete.INIT;
SheetsForDelete.Key := 1;
SheetsForDelete.tFld03 := 'ШАБЛОН';
SheetsForDelete.INSERT;
TemplateMgt.DeleteTemplateSheets(SheetsForDelete);
TemplateMgt.FinishBook;