ReSQL.ru
     
powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / 1С [игнор отключен] [закрыт для гостей] / Delphi + 1C ( если поле типа Справочник )
8 сообщений из 8, страница 1 из 1
Delphi + 1C ( если поле типа Справочник )
    #38773872
Anton2014
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Anton2014
Участник
Пишу прогу для работы с 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, 00:39
| Ответить | Цитировать | Написать  
Delphi + 1C ( если поле типа Справочник )
    #38773896
Последний выдох ГПЖ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Последний выдох ГПЖ
Участник
midval.ТекущийЭлемент();
...
Рейтинг: 0 / 0
11.10.2014, 02:15
| Ответить | Цитировать | Написать  
Delphi + 1C ( если поле типа Справочник )
    #38773939
Anton2014
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Anton2014
Участник
Последний выдох ГПЖ,


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

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



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

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

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

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

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

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

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


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

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

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

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

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


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



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

Написано :

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


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

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

Код: 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
11.10.2014, 14:16
| Ответить | Цитировать | Написать  
8 сообщений из 8, страница 1 из 1
Форумы / 1С [игнор отключен] [закрыт для гостей] / Delphi + 1C ( если поле типа Справочник )
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=28&fpage=31&tid=1519284]:
 0ms
get settings:
 9ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 43ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 40ms
get tp. blocked users:
 1ms
others: 304ms
total:  427ms
созд. / загр.: 427ms
x
x
Закрыть


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