Всем привет. Ребят подскажите может кто работает с этой программой, как можно с 1с перетянуть контрагентов в медок?

А зачем?

(1) их много и не хочется в ручную всех заносить

Ну подключайся по com-у. Я медок в глаза не видел.

http://www.me-doc.com.ua/pages/spravka_sublevel.php?id=41219

(4) В точку.

(4) Еще и чтобы с русского языка на украинский названия перевести.

ну компостер непонятный.
логику ...здесь непонятный мат... вкючаем
формат одного знаем?
другого?
че хотим-то?

медок - про мед? :)

База=СоздатьОбъект("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 = ВыборкаСтрокКонтрагенты.Наименование;
        База.Записать();
    КонецЦикла;
    База.Записать();
    База.ЗакрытьФайл();
    Предупреждение("Выгружено "+ВыборкаСтрокКонтрагенты.КоличествоСтрок());

Можно конечно еще кучу всего выгрузить.
Но думаю вам и этого фатит.

(4)Я так понял (0) нужна структура файла.

(9) это для 7.7

(11) я так понял, по ссылке можно увидеть где есть описание структуры файла

(13)нет, тама как работать с контрагентами.

а это что?

Детальний опис структури DBF для імпорту реєстру у програму міститься у документі з назвою "Инструкция по импорту Контрагентов (DBF).pdf", який знаходиться у каталозі help: за замовчанням, C:Documents and SettingsAll UsersApplication DataMedocMedochelpmanuals.

(15)Ага.
А вы его тама случаем нашли?
У нас его точно нет.

(16) Переустановить не предлагать?

Попроси у них на форуме обработку по стыковке Медка и 1с типовых украинских. И прими участие в бетатестировании этой обработки. Позавчера мне прислали. В ней есть примеры работы через комобъекты.

(18)Я ж в 9 описал структуру.
Че еще надо-то?

(15)Вы правы!
Тама куча всяких инструкций.
ТОко шо проверил.

+(16)Это было со слов бухгалтерии.
Оказалось плохо смотрели.