|
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)Это было со слов бухгалтерии.
Оказалось плохо смотрели. |
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |