VPF::1С Delphi - Форум программистов

WaReZMEN

Дата 9.10.2008, 13:28 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 683
Регистрация: 9.6.2006
Где: Россия, Санкт-Пет ербург

Репутация: нет
Всего: 3

Проблема в следующем пишу данные в РегистрыСведений. Данные записываются но приетом все данные каторые были до этого исчезают. Помогите проблему.

Код


  s1C8_ole:=UnAssigned;
  Com_1C8_Name := 'V81.COMConnector.1';
  InitStr := 'Srvr="ServerName";Ref="Baseold";Usr="Тест";Pwd="123"';

 s1C8_ole:=ConnectTo1C8_COM(Trim(Com_1C8_Name),Trim(InitStr));

       Table := s1C8_ole.РегистрыСведений.СоответствиеКодов;
       SelectTable := Table.Выбрать();
       K :=1;
       StringGrid1.Cells[0,0] := 'КОД';
       StringGrid1.Cells[1,0] := 'ВидКода';
       StringGrid1.Cells[2,0] := 'Локация';
       while SelectTable.Следующий() = True do
          Begin

            StringGrid1.RowCount := StringGrid1.RowCount+1;
            StringGrid1.Cells[0,K] := SelectTable.Код;
            StringGrid1.Cells[1,K] := s1C8_ole.String(SelectTable.ВидКода);
           StringGrid1.Cells[2,K] := s1C8_ole.String(SelectTable.Локация);

      СправочникСсылка.Номенклатура
            Inc(K);
          End;
       ShowMessage('Получено '+IntToStr(K-1)+' записей');

        SprLocationm := s1C8_ole.Справочники.ПодразделенияОрганизаций.НайтиПоКоду('02       ');

         InsertTable := Table.СоздатьНаборЗаписей();

           NewRecordTable := InsertTable.Добавить();

          NewRecordTable.Код := '4400';
          NewRecordTable.ВидКода := s1C8_ole.Перечисления.ВидыКодов.Фигура;

          NewRecordTable.Локация := SprLocationm;

       InsertTable.Записать();

Это сообщение отредактировал(а) WaReZMEN - 9.10.2008, 13:30

WaReZMEN

Дата 9.10.2008, 14:31 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 683
Регистрация: 9.6.2006
Где: Россия, Санкт-Пет ербург

Репутация: нет
Всего: 3

С этой проблемой разобрался! Остался вопрос с тем как распечатать все записи РегистрыСведений.СоответствиеКодов

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| 1C: Предприятие, SAP, ERP и учётные системы \| Следующая тема »