ПРобував, але він там застосовується доignorant писав:Как сделать медовой стыковкой версии 4_70 не нашел
В документе formaty_import-export.doc описан объект GetDocKVT
Только перебирая/читая потом документы в цикле через например док = App.OpenDocumentByCodeolegyudin писав:Добрый день!
Кто-нибудь знает, как можно получить из списка первичных документов значения полей "Дата експорту", "Реєстрація в ДПС" и др.
Юдин Олег
Код: Виділити все
Если дс.FldVal("SEND_DPA") = 12 и СокрЛП(дс.FldVal("SEND_DPA_RN"))<> "" Тогда
Новая.ВключенаРЕЕСТР = Истина;
ДатаРег = СокрЛП(дс.FldVal("SEND_DPA_DATE"));
Новая.ДатаВключенияВЕРНН = Дата(Сред(ДатаРег,7,4),Сред(ДатаРег,4,2),Лев(ДатаРег,2));
................................По смыслу да, но поскольку в большинстве случаев в этот момент вы создаете у себя в учетной системе НН, то все-равно читать документ в Медке надо, а вот саму квитанцию уже не надо - меньше запросов с медок.....ignorant писав:vademchuk
По смыслу - те же 2 поля, что и в GetDocKVT:
- дата последней операции с документом (хотя по наименованию поля SEND_DPA_DATE можно предположить, что поле задумывалось как дата отправки в ДПА)
- регистрационный номер в ЕРНН
Как узнать общее количество строк Документа? Как получить данные из остальных строк Документа?main = doc.DataSets("MAIN");
... Выводятся имена полей и их значения из ТЕЛА ДОКУМЕНТА
main = doc.DataSets("TAB1");
... Выводятся имена полей и их значения из ПЕРВОЙ строки Документа
Код: Виділити все
Строк = main.RecordCount();
Пока НЕ main.EOF Цикл
КонецЦикла;
Код: Виділити все
Пока НЕ main.EOF Цикл
НомерСтроки = main.Fields.item(2).value;
main.NEXT ();
КонецЦикла;
Вычитал поле KVT_TEXT - Печалька - там только ХМЛ файл налоговой. Никакого текста квитанции. В KVT_SIGN при переводе в строку возвращает TRANSPORTABLE - тоже нет текста квитанции - ГДЕ ЖЕ ОН ?JazzyManSerg писав:Так никто и не ответил. Как всё таки прочитать поля KVT_SIGN, KVT_TEXT или хотябы FILE_NAME у GetDocKVT что бы можно было хмл прочитать. Из того что я опытным путём наковырял: 1-При попытке прочитать FILE_NAME- ошибка. 2- KVT_SIGN при переводе в строку возвращает TRANSPORTABLE 3- KVT_TEXT при переводе в строку дает пусто. 4 - поле OPERTYPE выдает 14 такого значения в перечне нет. 5 - Поля KVT_SIGN и KVT_TEXT имеют тип М - что єто такое ? Да и вообще - можно ли их прочитать или объект в разработке?
Покажете _код_ как вычитывали?JazzyManSerg писав:ВЫчитал поле KVT_TEXT - Печалька - там только ХМЛ файл налоговой.
?ignorant писав:Метод GetDocKVT работает ОЧЕНЬ медленно при количестве налоговых несколько тысяч.
Это только у нас?
Есть другие варианты вЫчитать REGNUM - регистрационный номер?
Код: Виділити все
док = App.OpenDocumentByCode (Формат( табл.FldVal("Code"), "ЧГ=0"));
дс = док.DataSets("MAIN") ;
Если дс.FldVal("SEND_DPA") = 12 и СокрЛП(дс.FldVal("SEND_DPA_RN"))<> "" Тогда
Новая2.Флажок = Истина;
Новая2.Флажок
........................
КонецЕсли;Для Каждого СтрокаДокумент из ЭлементыФормы.ТаблицаДокументов.ВыделенныеСтроки Цикл
Документ = СтрокаДокумент.Документ;
ИД = Строка(Документ.УникальныйИдентификатор());
primДокументы = App.GetPrimaryDocs();
reestrNN = primДокументы.GetPrimaryReestr(1, "-1", Документ.Дата, Документ.Дата);
reestrNN.Filter = "Doc_num=" + СокрЛП(ОбщегоНазначения.ПолучитьНомерНаПечать(Документ));
reestrNN.Filter = "Partner_IPN=" + СокрЛП(Документ.Контрагент.ИНН);
Если reestrNN.RecordCount()=1 Тогда
Если ЗначениеЗаполнено(reestrNN.Fields.Item("REGDATE").Value) Тогда
Сообщить("Дата регистрации: " + reestrNN.Fields.Item("REGDATE").Value);
Иначе
Сообщить("Даты регистрации нет!");
КонецЕсли;
КонецЕсли;
КонецЦикла;
По наивности считал, что новый метод GetDocKVT "заточен" для быстрого получения квитанций.vademchuk писав:Зачем вообще читать квитанцию, если факт регистрации есть в самом документе, а документ все-равно читать надо....
