BLOB 2 XML.Attribute

[srg]

Вот, код кнопки (для экспорта)


на он пуше

CALCFIELDS(BLOB);
IF BLOB.HASVALUE THEN BEGIN
  BLOBRef.Blob := BLOB;
  ThreeTierMgt.BLOBExport(BLOBRef,"File Name",TRUE);
END;

Вот, код кнопки (для импорта)

TemplateExists := BLOB.HASVALUE;
BLOBRef.Blob := BLOB;
Filename := ThreeTierMgt.BLOBImport(BLOBRef,'*.xls',TRUE);
IF Filename = '' THEN
  EXIT;
IF TemplateExists THEN
  IF NOT CONFIRM(Text001,FALSE,TABLECAPTION,Code) THEN
    EXIT;
BLOB := BLOBRef.Blob;
WHILE STRPOS(Filename,'\') <> 0 DO
  Filename := COPYSTR(Filename,STRPOS(Filename,'\') + 1);
"File Name" := Filename;
CurrForm.SAVERECORD;

Constantine
Мне говорят, что в четверке есть такая функция тоже.
сказали, есть в "персонал и зарплата" -> "НАСТРОЙКА" -> "настройка модуля и зарплаты" - >ОКНО - "Т формы"


вот fob(forma ексель темплейт)