Гость
Войти | Профиль | Очистить
Действия ...
Форумы / 1С [игнор отключен] [закрыт для гостей] / Delphi + 1C ( если поле типа Справочник ) / 8 сообщений из 8, страница 1 из 1
11.10.2014, 00:39
    #38773872
Anton2014
Anton2014
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Delphi + 1C ( если поле типа Справочник )
Пишу прогу для работы с 1С 7.7 на Delphi


Не могу понять как записать поле если там тип Справочник ?

Например, вот создал новый справочник
Код: pascal
1.
2.
3.
4.
5.
6.
7.
    OleSklad := Ole1C.CreateObject('Справочник.Склады');
    OleSklad .Новый;
    OleSklad .Код := '0123456';
    OleSklad .Наименование :='новый склад';

    OleSklad .МОЛ:= ????? ( что сюда записать ? )  - Это же тип справочник ФизЛИца  ? 
    OleSklad .Записать;



Вот что только не пробовал

Код: pascal
1.
2.
3.
4.
mid_val:=Ole1C.CreateObject('Справочник.ФизЛица');
mid_val.НайтиПоКоду('00000040', 0)

OleSklad .МОЛ:=mid_val ;



НЕ работает. Помогите пожалуйста!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.10.2014, 02:15
    #38773896
Последний выдох ГПЖ
Последний выдох ГПЖ
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Delphi + 1C ( если поле типа Справочник )
midval.ТекущийЭлемент();
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.10.2014, 10:34
    #38773939
Anton2014
Anton2014
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Delphi + 1C ( если поле типа Справочник )
Последний выдох ГПЖ,


Так тоже не работает!
Писал

Код: pascal
1.
OleSklad .МОЛ:=mid_val.ТекущийЭлемент();



Пишет несовпадение типов. Может быть там как то в ссылку (адрес ) преобразование сделать ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.10.2014, 10:51
    #38773943
Последний выдох ГПЖ
Последний выдох ГПЖ
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Delphi + 1C ( если поле типа Справочник )
Значит не нашел по коду...

все должно работать на стороне одной базы

http://lada-it.ru/index.php/1cv7/96-v77ole.html
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.10.2014, 11:37
    #38773965
Anton2014
Anton2014
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Delphi + 1C ( если поле типа Справочник )
Последний выдох ГПЖ,

По коду находит ( проверял в отладчике )

Почитаю статью, что прислали. Спасибо. Прям загадка какая то.

1С и Delphi работают на 1 компьютере.

Больше идей нет, почему не работает ? Может проблема в том что у


Код: pascal
1.
OleSklad .МОЛ - другой тип ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.10.2014, 12:36
    #38773976
Последний выдох ГПЖ
Последний выдох ГПЖ
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Delphi + 1C ( если поле типа Справочник )
Anton2014Последний выдох ГПЖ,

По коду находит ( проверял в отладчике )

Почитаю статью, что прислали. Спасибо. Прям загадка какая то.

1С и Delphi работают на 1 компьютере.

Больше идей нет, почему не работает ? Может проблема в том что у


Код: pascal
1.
OleSklad .МОЛ - другой тип ?



другой это какой? смотрите в конфигураторе, там все указано
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.10.2014, 12:39
    #38773977
Anton2014
Anton2014
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Delphi + 1C ( если поле типа Справочник )
Последний выдох ГПЖ,

Написано :

Справочник.ФизЛица


Не понимаю, почему не работает. Ну что ... никто чтоли из Delphi в 1С не записывал данные ? Скиньте кто нибудь
примерный код. Буду признателен!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.10.2014, 14:16
    #38773998
Anton2014
Anton2014
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Delphi + 1C ( если поле типа Справочник )
Это Атас!

Вот рабочий код:

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
mid_val:=Ole1C.CreateObject('Справочник.ФизЛица');
Doc1:=Ole1C.CreateObject('Справочник.ФизЛица');
Doc1:=mid_val.НайтиПоКоду('00000021', 0);

Doc1:=mid_val.ТекущийЭлемент;

 tOleFizLica := Ole1C.CreateObject('Справочник.Склады');
  tOleFizLica.Новый;
  tOleFizLica.Наименование := 'Это Атас';
  tOleFizLica.МОЛ:=Doc1;
 tOleFizLica.Записать;

mid_val:= Unassigned;
Doc1:= Unassigned;
tOleFizLica:= Unassigned;



Надеюсь, что я съэкономил кому то кучу времени!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / 1С [игнор отключен] [закрыт для гостей] / Delphi + 1C ( если поле типа Справочник ) / 8 сообщений из 8, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 177ms
Закрыть
start [/forum/topic.php?fid=28&tablet=1&tid=1519284]:
 0ms
get settings:
 9ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 68ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 49ms
get tp. blocked users:
 2ms
others: 13ms
total:  177ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]