Помощь - Поиск - Пользователи - Календарь
Полная версия: Delphi OLE запись - В форме документа значения вида "<>"
1C-PRO - Форум по 1С > Форумы по платформе "1С:Предприятие 7.7" > (7.7) Обмен данными
pogi
Помогите разобраться плиз!

При записи документа в 1С через OLE все успешно записываем, но потом в интерфейсе 1С в форме документа некоторые поля-справочники заполняются значением "<>". Не "<Объект не найден>", а просто "<>".
В эти поля значение вообще не передается.

Причем происходит это только у закзачика, в тестовой среде все отображается как надо.

Откуда берутся эти "<>" и как от них избавиться?

1С v.7.7 + MS SQL 2000 sp4

В данные поля вообще не идет запись значений, т.к. поля не заполняют. Запись идет примерно так:

if Loss.fNM_REASON <> '' then
AddValFromSpr(Handle1CObj, 'ПричинаОтказа', Loss.fNM_REASON, 'ПричинаОтказа');

function AddValFromSpr(Handle1CObj: OleVariant; nmSpr, nmFind, nmField: string): Boolean;
var hSprObj: OleVariant;
str: string;
begin
Result := False;
LogMessage('Begin TfrmLossInit.AddValFromSpr', 6);
hSprObj := Unassigned;
hSprObj := ConnectTo1C_Object(Handle1C, 'Справочник.'+nmSpr);
LogMessage('Справочник.'+nmSpr, 6);
if not VarIsEmpty(hSprObj) then
begin
if (hSprObj.FindByDescr(Trim(nmFind), 0, 0)=1) then
begin
LogMessage('Справочник.'+nmSpr + ' - Нашли значение', 6);
Handle1CObj.SetAttrib(nmField, hSprObj.CurrentItem);
Result := True
end;
end;
DisconnectFrom1C_Object(hSprObj);
LogMessage('End TfrmLossInit.AddValFromSpr', 6);
end;
BabySG
Обычно такое, когда не задано наименование (представление) объекта
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.
Русская версия Invision Power Board © 2001-2009 Invision Power Services, Inc.