0
totparen
15.12.16
✎
18:06
|
Сабж
Процедура ЗаписатьСоответствие(пСсылка,пИдентификатор8)
ФайлДбф = создатьОбъект("XBASE");
Если ФС.СуществуетФайл(ИмяФайлаДБФ) = 0 Тогда
ФайлДбф.ДобавитьПоле("ref77","S",36,0);
ФайлДбф.ДобавитьПоле("ref8","S",36,0);
ФайлДбф.ДобавитьИндекс("idxref77","ref77",1,0,"");
ФайлДбф.ДобавитьИндекс("idxref8","ref8",1,0,"");
ФайлДбф.СоздатьФайл(ИмяФайлаДБФ,ИмяИндексаДБФ);
Иначе
ФайлДбф.ОткрытьФайл(ИмяФайлаДБФ,ИмяИндексаДБФ,0);
КонецЕсли;
ФайлДбф.Добавить();
ФайлДбф.ref77 = ПолучитьУникальныйИдентификатор(пСсылка);
ФайлДбф.ref8 = пИдентификатор8;
ФайлДбф.Записать();
ФайлДбф.ЗакрытьФайл();
КонецПроцедуры
|
|