Страница 1 из 1
Экспорт Memo с документами ..
Добавлено: 25 май 2012, 13:07
Masygreen
Итак в мемо текст + документы приложили
выгрузили
загрузили
получили кракозябры .. так как будто прикрепленные документы типа текст .. О_о возможно победить ?
Re: Экспорт Memo с документами ..
Добавлено: 25 май 2012, 13:22
edward_K
Префикс нужно ставить посоле импорта
Re: Экспорт Memo с документами ..
Добавлено: 25 май 2012, 13:55
Masygreen
edward_K писал(а):Префикс нужно ставить посоле импорта
??
function GetMemoPrefix(aList: integer): string;
procedure SetMemoPrefix(list: integer; prefix: string);
а что тут aList??
Re: Экспорт Memo с документами ..
Добавлено: 25 май 2012, 15:49
m0p3e
Код: Выделить всё
Назначение
Получить префикс мемо-поля для узла логической таблицы.
Описание
function GetMemoPrefix (aList : integer) : string;
Параметры
aList - номер узла логической таблицы.
Возвращаемое значение
Строка "Err", если была ошибка.
Re: Экспорт Memo с документами ..
Добавлено: 25 май 2012, 16:13
Masygreen
спасибо кэп .. хелп у меня тоже есть .. но что это в реальности ?? ни фига не понял ..
допустим у меня memo это поле моей таблицы ..
Код: Выделить всё
Create Table D_PIR.MSPDocsPIR
....
,mData : lvar "Данные"
и чего я должен тут проставить ???
примерчиком не поделитесь?
Re: Экспорт Memo с документами ..
Добавлено: 25 май 2012, 16:47
m0p3e
Мемо поле в таблице может быть только одно.
Соответственно указывать его не требуется.
GetMemoPrefix(#Appendix) или GetMemoPrefix(tnAppendix)
Все просто
Re: Экспорт Memo с документами ..
Добавлено: 22 янв 2013, 16:19
Masygreen
Ну дабы не забыть, и может кому пригодится ...
Код: Выделить всё
Create Table D_PIR.MSPDocsPIR "MR Реестр спецификации вопросов"
Using "MSPDocs.dat"
#ifdef ComponentVersion
Component MR_PIR
#end
with table_code = 31602
With Replace
With TableOptions header
(
num : integer "Номер п/п"
,mData : lvar "Данные"
экспорт
Код: Выделить всё
XMLDOMElement_SetAttribute(xml_spelement, 'Prefix', GetMemoPrefix(tnMSPDocsPIR));
ExportMemoToFile(MSPDocsPIR.mData, _FolderExport + '\' + _FileNameMemo, false);
импорт
Код: Выделить всё
ImportFileToMemo(MSPDocsPIRIns.mData, _FolderExport + _str, false);
SetMemoPrefix(tnMSPDocsPIRIns, _Prefix);
insert current MSPDocsPIRIns;