Имя: Пароль:
1C
1C 7.7
v7: M.E.Doc как можно с 1с перетянуть контрагентов
0 Ardov
 
26.12.14
15:19
Всем привет. Ребят подскажите может кто работает с этой программой, как можно с 1с перетянуть контрагентов в медок?
1 Classic
 
26.12.14
15:20
А зачем?
2 Ardov
 
26.12.14
15:21
(1) их много и не хочется в ручную всех заносить
3 vicof
 
26.12.14
15:40
Ну подключайся по com-у. Я медок в глаза не видел.
4 Alex S D
 
26.12.14
15:43
5 SleepyHead
 
гуру
26.12.14
15:44
(4) В точку.
6 SleepyHead
 
гуру
26.12.14
15:46
(4) Еще и чтобы с русского языка на украинский названия перевести.
7 Chameleon1980
 
26.12.14
22:53
ну компостер непонятный.
логику ...здесь непонятный мат... вкючаем
формат одного знаем?
другого?
че хотим-то?
8 Chameleon1980
 
28.12.14
01:41
медок - про мед? :)
9 varelchik
 
30.12.14
13:13
База=СоздатьОбъект("XBase");
    База.ДобавитьПоле("CODE","N",20,);
    База.ДобавитьПоле("NUM","S",254,);
    База.ДобавитьПоле("NAME","S",250,);
    База.ДобавитьПоле("BANK","N",20,5);
    База.ДобавитьПоле("ACCNUM","S",254,);
    База.ДобавитьПоле("MFO","S",254,);
    База.ДобавитьПоле("INDTAXNUM","S",254,);
    База.ДобавитьПоле("CODENDS","S",254,);
    База.ДобавитьПоле("ADR","S",254,);
    База.ДобавитьПоле("SHORTNAME","S",150,);
    База.ДобавитьПоле("NREZ","N",20,5);
    База.ДобавитьПоле("DRAGMET","S",254,);
    База.ДобавитьПоле("CALCCONTRO","N",20,5);
    База.ДобавитьПоле("DEPT","S",254,);
    База.СоздатьФайл(СокрЛП(КаталогЭкспорта)+"\PARTNER.dbf");
    База.Записать();
    База.ОчиститьФайл();
    Текст="
    |    select
    |    Контрагенты.row_id Код,
    |    $ПоследнееЗначение.Контрагенты.ПолнНаименование(Контрагенты.id,:ВыбДата) НаименованиеПолное,
    //|    Контрагенты.НаименованиеПолное,
    |    $Контрагенты.ЕДРПОУ КодПоЕДРПОУ,
    |    $Контрагенты.ИНН ИНН,
    |    $ПоследнееЗначение.Контрагенты.НомерСвидетельства(Контрагенты.id,:ВыбДата) НомерСвидетельства,
    //|    Контрагенты.НомерСвидетельства,
    |    Контрагенты.descr Наименование,
    |    Контрагенты.id [Ссылка $Справочник.Контрагенты]
    |from
    |    $Справочник.Контрагенты Контрагенты (nolock)
    |where
    |    rtrim($Контрагенты.ЕДРПОУ) <> ''
    |and
    |    rtrim($Контрагенты.ИНН) <> ''
    |and
    |    Контрагенты.id IN (SELECT val FROM #Контр)
    |";    
    Запрос=глСоединение();
    ВыборкаСтрокКонтрагенты=СоздатьОбъект("ТаблицаЗначений");
    Запрос.УстановитьТекстовыйПараметр("ВыбДата",ТекущаяДата());
    Запрос.УложитьСписокОбъектов(ВыбГруппа,"#Контр","Контрагенты");
    Запрос.ВыполнитьИнструкцию(Текст,ВыборкаСтрокКонтрагенты);
    ВыборкаСтрокКонтрагенты.ВыбратьСтроки();
    пока ВыборкаСтрокКонтрагенты.ПолучитьСтроку()=1 Цикл
        База.Добавить();
        База.CODE      = ВыборкаСтрокКонтрагенты.Код;
        База.NUM       = ВыборкаСтрокКонтрагенты.КодПоЕДРПОУ;
        База.NAME      = ВыборкаСтрокКонтрагенты.НаименованиеПолное;
        База.INDTAXNUM = ВыборкаСтрокКонтрагенты.ИНН;
        База.CODENDS   = ВыборкаСтрокКонтрагенты.НомерСвидетельства;
    //    База.ADR       = ;
        База.SHORTNAME = ВыборкаСтрокКонтрагенты.Наименование;
        База.Записать();
    КонецЦикла;
    База.Записать();
    База.ЗакрытьФайл();
    Предупреждение("Выгружено "+ВыборкаСтрокКонтрагенты.КоличествоСтрок());
10 varelchik
 
30.12.14
13:14
Можно конечно еще кучу всего выгрузить.
Но думаю вам и этого фатит.
11 varelchik
 
30.12.14
13:15
(4)Я так понял (0) нужна структура файла.
12 varelchik
 
30.12.14
13:16
(9) это для 7.7
13 Alex S D
 
30.12.14
13:17
(11) я так понял, по ссылке можно увидеть где есть описание структуры файла
14 varelchik
 
30.12.14
14:11
(13)нет, тама как работать с контрагентами.
15 Alex S D
 
30.12.14
14:13
а это что?

Детальний опис структури DBF для імпорту реєстру у програму міститься у документі з назвою "Инструкция по импорту Контрагентов (DBF).pdf", який знаходиться у каталозі help: за замовчанням, C:Documents and SettingsAll UsersApplication DataMedocMedochelpmanuals.
16 varelchik
 
30.12.14
14:20
(15)Ага.
А вы его тама случаем нашли?
У нас его точно нет.
17 DS
 
30.12.14
14:23
(16) Переустановить не предлагать?
18 gorakh
 
30.12.14
14:24
Попроси у них на форуме обработку по стыковке Медка и 1с типовых украинских. И прими участие в бетатестировании этой обработки. Позавчера мне прислали. В ней есть примеры работы через комобъекты.
19 varelchik
 
30.12.14
14:26
(18)Я ж в 9 описал структуру.
Че еще надо-то?
20 varelchik
 
30.12.14
14:52
(15)Вы правы!
Тама куча всяких инструкций.
ТОко шо проверил.
21 varelchik
 
30.12.14
14:56
+(16)Это было со слов бухгалтерии.
Оказалось плохо смотрели.