Выгрузка НН из Медок в 1С 7.7 для Украины

Перенос записей книги приобретения из Медка.

Обработка обновлена.
Добавлен контроль периода.
 

Вложения

mikkyfam написал(а):
Предлагается обработка "Перенос записей книги приобретения из Медка".
Для конфигурации "Бухгалтерский учет для Украины" 7.7.
Обработка с инструкцией в архиве .
Обработка предлагается как есть , дорабатываться по желанию не будет.
Можете дорабатывать , развивать тему.
Успехов.
Нажмите для раскрытия...

Доброго дня! Люди напишіть у кого працює ця обробка "загрузка налоговых накладных поставщиков из xls в 1С документ ЗаписьКнигиПриобритения" на версії "1С 7.7 :Бухгалтерский учет для Украины" бо в мене вона не працює :(
 
Обработка

Обработка доработана.Добавлено: запоминание значений ячеек и добавление отсутствующих контрагентов в базе по ОКПО
 

Вложения

У меня конф управление сх 2.60 кварц , при запуске обработки

ГрКлНов.Записать();
{D:\1CV77\IMPORT_NN\ЗКПВБУХ.ERT(273)}: Код не уникальный!

Подскажите в каком направлении копать?

// ===============================
Процедура ПриОткрытии()
НачДата=НачМесяца(РабочаяДата());
КонДата=КонМесяца(РабочаяДата());
кДата = ?(ПустоеЗначение(ВосстановитьЗначение("кДата"))=1,7,ВосстановитьЗначение("кДата"));
кДатаОтр = ?(ПустоеЗначение(ВосстановитьЗначение("кДатаОтр"))=1,21,ВосстановитьЗначение("кДатаОтр"));
кДатаРег = ?(ПустоеЗначение(ВосстановитьЗначение("кДатаРег"))=1,11,ВосстановитьЗначение("кДатаРег"));
кСумБПдв = ?(ПустоеЗначение(ВосстановитьЗначение("кСумБПдв"))=1,16,ВосстановитьЗначение("кСумБПдв"));
кПДВ = ?(ПустоеЗначение(ВосстановитьЗначение("кПДВ"))=1,15,ВосстановитьЗначение("кПДВ"));
кСумСПДВ = ?(ПустоеЗначение(ВосстановитьЗначение("кСумСПДВ"))=1,14,ВосстановитьЗначение("кСумСПДВ"));
кТип = ?(ПустоеЗначение(ВосстановитьЗначение("кТип"))=1,6,ВосстановитьЗначение("кТип"));
кНомДок = ?(ПустоеЗначение(ВосстановитьЗначение("кНомДок"))=1,8,ВосстановитьЗначение("кНомДок"));
кНомДог = ?(ПустоеЗначение(ВосстановитьЗначение("кНомДог"))=1,10,ВосстановитьЗначение("кНомДог"));
кРег = ?(ПустоеЗначение(ВосстановитьЗначение("кРег"))=1,25,ВосстановитьЗначение("кРег"));
кКоррДок = ?(ПустоеЗначение(ВосстановитьЗначение("кКоррДок"))=1,24,ВосстановитьЗначение("кКоррДок"));
ПерваяСтрока = ?(ПустоеЗначение(ВосстановитьЗначение("ПерваяСтрока"))=1,3,ВосстановитьЗначение("ПерваяСтрока"));


Форма.ИспользоватьЗакладки(1);
Форма.Закладки.ДобавитьЗначение("Основной","Основной");
Форма.ИспользоватьСлой("Общий,Основной",2);
ЗаполнитьСтруктуруТаблицы();

ГрКлНов = СоздатьОбъект("Справочник.Контрагенты");
Если ГрКлНов.НайтиПоНаименованию("Новые",1)=0 Тогда
ГрКлНов.НоваяГруппа();
ГрКлНов.Наименование="Новые";
ГрКлНов.Записать(); <---------------------------------------------------- вот тут остановка и все
КонецЕсли;
КонецПроцедуры // ПриОткрытии
 
Попробуйте через отладчик посмотреть, на каком именно коде "зависает" - значит, у вас в справочнике уже есть такой код (можете его попробовать изменить руками на другой . . .)
 
Ну я ж с отладчика процедуру и скопировал 3 снизу. смотрите мое сообщение

ГрКлНов.Записать(); <---------------------------------------------------- вот тут остановка и все

это самая первая процедура. даже на экране не появляется форма обработки
 
Alexsoft2003 написал(а):
У меня конф управление сх 2.60 кварц , при запуске обработки

ГрКлНов.Записать();
{D:\1CV77\IMPORT_NN\ЗКПВБУХ.ERT(273)}: Код не уникальный!

Подскажите в каком направлении копать?

// ===============================
Процедура ПриОткрытии()
НачДата=НачМесяца(РабочаяДата());
КонДата=КонМесяца(РабочаяДата());
кДата = ?(ПустоеЗначение(ВосстановитьЗначение("кДата"))=1,7,ВосстановитьЗначение("кДата"));
кДатаОтр = ?(ПустоеЗначение(ВосстановитьЗначение("кДатаОтр"))=1,21,ВосстановитьЗначение("кДатаОтр"));
кДатаРег = ?(ПустоеЗначение(ВосстановитьЗначение("кДатаРег"))=1,11,ВосстановитьЗначение("кДатаРег"));
кСумБПдв = ?(ПустоеЗначение(ВосстановитьЗначение("кСумБПдв"))=1,16,ВосстановитьЗначение("кСумБПдв"));
кПДВ = ?(ПустоеЗначение(ВосстановитьЗначение("кПДВ"))=1,15,ВосстановитьЗначение("кПДВ"));
кСумСПДВ = ?(ПустоеЗначение(ВосстановитьЗначение("кСумСПДВ"))=1,14,ВосстановитьЗначение("кСумСПДВ"));
кТип = ?(ПустоеЗначение(ВосстановитьЗначение("кТип"))=1,6,ВосстановитьЗначение("кТип"));
кНомДок = ?(ПустоеЗначение(ВосстановитьЗначение("кНомДок"))=1,8,ВосстановитьЗначение("кНомДок"));
кНомДог = ?(ПустоеЗначение(ВосстановитьЗначение("кНомДог"))=1,10,ВосстановитьЗначение("кНомДог"));
кРег = ?(ПустоеЗначение(ВосстановитьЗначение("кРег"))=1,25,ВосстановитьЗначение("кРег"));
кКоррДок = ?(ПустоеЗначение(ВосстановитьЗначение("кКоррДок"))=1,24,ВосстановитьЗначение("кКоррДок"));
ПерваяСтрока = ?(ПустоеЗначение(ВосстановитьЗначение("ПерваяСтрока"))=1,3,ВосстановитьЗначение("ПерваяСтрока"));


Форма.ИспользоватьЗакладки(1);
Форма.Закладки.ДобавитьЗначение("Основной","Основной");
Форма.ИспользоватьСлой("Общий,Основной",2);
ЗаполнитьСтруктуруТаблицы();

ГрКлНов = СоздатьОбъект("Справочник.Контрагенты");
Если ГрКлНов.НайтиПоНаименованию("Новые",1)=0 Тогда
ГрКлНов.НоваяГруппа();
ГрКлНов.Наименование="Новые";
ГрКлНов.Записать(); <---------------------------------------------------- вот тут остановка и все
КонецЕсли;
КонецПроцедуры // ПриОткрытии
Нажмите для раскрытия...

Снимите на время контроль уникальности со справочника Контрагенты.
 
Последнее редактирование модератором:
Войдите или зарегистрируйтесь для ответа.
Назад
Сверху