Вот, код кнопки (для экспорта)
на он пуше
Код:
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 ексель темплейт)