/ КОМПЬЮТЕРЫ И ПО / Языки программирования / 1С для программиста

Выпуск № 607
от 21.09.2007, 11:05

Вопрос № 102.152

Уважаемые эксперты! Помогите разобраться в следующем вопросе, несколько дней уже мучаюсь... В одной конторе используется несколько конфигураций: и бухгалтерия проф, и упрощенка. Они измененные. В частности, прикреплена обработка, позволяющая переносить данные из одной конфигурации в другую. Об этом и вопрос... но по порядку. В конфигурациях заведен справочник Базы для выгрузки, в котором только один реквизит: наименования всех этих самых конфигураций. Заполняется он вручную, и нигде больше в конфигурации не упоминается, за исключением документа расходной накладной (на форму документа добавлено поле ввода типа Справочник.БазыДляВыгрузки). В самом модуле формы это поле никак не упоминается, как и в модуле документа или главном модуле. И зачем оно?... Можно выбрать одну из баз для выгрузки и провести документ. Закрыть конфигурацию. Затем открыть выбранную базу, и из нее через ОЛЕ обратиться к снова к первой: выбрать даты, за которые надо просматривать, выбрать через диалог каталог первой базы, затем нажать на кнопку "Получить список баз" (в поле выбора из списка загружается список Справочник.БазыДля Выгрузки из первой базы), выбрать нужную базу, затем нажать на кнопку "Принять данные" - и по идее, в журналы запишутся те документы, которые были предназначены для выгрузки. В старой конфигурации это работало, но после обновления перестало, несмотря на тщательный перенос изменений в обновленную конфигурацию. То есть в расходной накладной можно выбрать базу для выгрузки, провести документ, залезть в выбанную базу, указать путь, но после нажатия на "Принять данные" появляется сообщение: "За период... для базы ... данные отсутствуют!" Построчное сравнение текстов модулей ничего не дало, поиск по всей конфигурации не помог... И еще раз обращаю внимание: в модуле формы расходной накладной (как и везде) выбранная база для выгрузки никак не фигурирует и никуда явным образом ничего с ней связанное не записывается. Там даже слов таких нет. в чем может быть дело? Исходники модулей расходной накладной и сервиса загрузки данных - в приложении. Приложение: // куски из обработки переноса данных: Перем олеБД; Перем фБазаОткрыта; Перем ДатаДокаИст; // ***************************************************************************** Процедура ПоКнопкеВыборФайла() ИмяКаталога = СокрЛП(ПутьКБазеИсточнику); Если ПустаяСтрока(ИмяКаталога) = 1 Тогда ИмяКаталога = КаталогИБ(); КонецЕсли; Если ФС.ВыбратьКаталог(ИмяКаталога, "Выберите базу-источник!") = 1 Тогда ПутьКБазеИсточнику = ИмяКаталога; КонецЕсли; КонецПроцедуры // ПоКнопкеВыборФайла // ***************************************************************************** Процедура ЗагрузитьРеализацию(ДокОле) ДокПоиск = СоздатьОбъект("Документ"); ДокРН = СоздатьОбъект("Документ.РасходнаяНакладная"); // Проверим наличие документа в базе Рез = ДокПоиск.ВыбратьПоЗначению(,, "ГУИД", ДокОле.ГУИД); НовыйДок = 0; Если Рез = 1 Тогда // Документ с таким ГУИД возможно уже существует в базе Пока ДокПоиск.ПолучитьДокумент() = 1 Цикл Если ДокПоиск.Вид() = "РасходнаяНакладная" Тогда ДокРН.НайтиДокумент(ДокПоиск); Прервать; КонецЕсли; КонецЦикла; Если ДокРН.Выбран() = 1 Тогда Если фПерезаписыватьДоки = 0 Тогда // Режим загрузки только новых, без перезаписи Возврат; КонецЕсли; КонецЕсли; ДокРН.УдалитьСтроки(); КонецЕсли; Если ДокРН.Выбран() = 0 Тогда ДокРН.Новый(); ДокРН.ДатаДок = ДокОле.ДатаДок; ДокРН.УстановитьНовыйНомер(); НовыйДок = 1; КонецЕсли; ДатаДокаИст = ДокОле.ДатаДок; ДокОле.ВыбратьСтроки(); Пока ДокОле.ПолучитьСтроку()=1 Цикл ДокРН.НоваяСтрока(); ДокРН.Товар = ПолучитьНоменклатуру(ДокОле.Товар); ДокРН.Количество = ДокОле.Количество; ДокРН.Цена = ДокОле.Цена; ДокРН.Сумма = ДокОле.Сумма; ДокРН.НДС = ДокОле.НДС; ДокРН.Всего = ДокОле.Всего; КонецЦикла; Попытка ДокРН.Записать(); Если НовыйДок = 1 Тогда Сообщить("Записан новый документ - №" + ДокРН.НомерДок + " от " + ДокРН.ДатаДок); Иначе Сообщить("Перезаписан существующий документ - №" + ДокРН.НомерДок + " от " + ДокРН.ДатаДок); КонецЕсли; Исключение Сообщить(ОписаниеОшибки()); КонецПопытки; КонецПроцедуры // ЗагрузитьРеализацию // ***************************************************************************** Процедура ПринятьДанные() Состояние("Идет прием данных, ждите окончания процесса..."); ТекБаза = сзСписокБаз.ПолучитьЗначение(сзСписокБаз.ТекущаяСтрока()); ДокОле = олеБД.CreateObject("Документ"); Рез = ДокОле.ВыбратьПоЗначению(ВыбДатаНач, ВыбДатаКон, "БазаДляВыгрузки", ТекБаза); Если Рез = 0 Тогда Предупреждение("За период " + ВыбДатаНач + " - " + ВыбДатаКон + " |для базы " + СокрЛП(ТекБаза.Наименование) + " данные отсутствуют!", 30); Возврат; КонецЕсли; Режим = сзРежимы.ТекущаяСтрока(); Если Режим = 2 Тогда Если ПустоеЗначение(ВыбКонтрагентРН) = 1 Тогда Предупреждение("Не выбран контрагент у расходной накладной!", 30); Возврат; КонецЕсли; Если ПустоеЗначение(ВыбКонтрагентПН) = 1 Тогда Предупреждение("Не выбран контрагент для приходной накладной!", 30); Возврат; КонецЕсли; КонецЕсли; ОчиститьОкноСообщений(); Пока ДокОле.ПолучитьДокумент() = 1 Цикл Если фТолькоПроведенные = 1 Тогда Если ДокОле.Проведен() = 0 Тогда Продолжить; КонецЕсли; КонецЕсли; ТекВид = ДокОле.Вид(); Если Режим = 1 Тогда // Загружаеи документы РеализацияПродукции и ОтчетКомитента как РасходнуюНакладную Если Найти("/ОтчетКомиссионера/РеализацияПродукции/", ТекВид) > 1 Тогда ЗагрузитьРеализацию(ДокОле); КонецЕсли; Иначе Если СокрЛП(ДокОле.Контрагент.Наименование) = СокрЛП(ВыбКонтрагентРН.Наименование) Тогда ЗагрузитьПриход(ДокОле); КонецЕсли; КонецЕсли; КонецЦикла; Предупреждение("Прием данных завершен!", 30); КонецПроцедуры // ПринятьДанные // ***************************************************************************** Функция ПодключитьБазуИсточник() ПутьБД = СокрЛП(ПутьКБазеИсточнику); Если ФС.СуществуетФайл(ПутьБД + "NUL") = 0 Тогда Предупреждение("По указанному пути база данных не найдена!", 30); олеБД = 0; Возврат 0; Иначе олеБД = СоздатьОбъект("V77.Application"); Рез = олеБД.Initialize(олеБД.RMTrade, "/d""" + ПутьБД + """ /N" + СокрЛП(Пользователь) + ?(ПустаяСтрока(Пароль) = 1, "", "/P" + СокрЛП(Пароль)), "NO_SPLASH_SHOW"); Если Рез = 0 Тогда Предупреждение("Не удалось открыть базу-источник! | |Возможные причины ошибки: |1. Указаны неверные пользователь или пароль |2. База данных уже открыта указанным пользователем |3. База данных открыта в монопольном режиме |4. Требуется переиндексация после некорректного выхода", 30); олеБД = 0; Возврат 0; КонецЕсли; КонецЕсли; Возврат 1; КонецФункции // ПодключитьБазуИсточник // ***************************************************************************** Процедура ПолучитьСписокБаз() Если ПодключитьБазуИсточник() = 0 Тогда Возврат; КонецЕсли; СпрБазы = олеБД.CreateObject("Справочник.БазыДляВыгрузки"); СпрБазы.ВыбратьЭлементы(); Пока СпрБазы.ПолучитьЭлемент() = 1 Цикл сзСписокБаз.ДобавитьЗначение(СпрБазы.ТекущийЭлемент(), СокрЛП(СпрБазы.Наименование)); КонецЦикла; Если сзСписокБаз.РазмерСписка() = 0 Тогда Предупреждение("В базе-источнике справочник ""Базы для выгрузки"" пуст!", 30); олеБД = 0; Иначе сзСписокБаз.ТекущаяСтрока(1); Форма.кнПринятьДанные.Доступность(1); КонецЕсли; КонецПроцедуры // ПолучитьСписокБаз // ***************************************************************************** Процедура ПриОткрытии() // Восстановим настройки ПутьКБазеИсточнику = ВосстановитьЗначение("ПутьКБазеИсточнику"); Пользователь = ВосстановитьЗначение("Пользователь"); Пароль = ВосстановитьЗначение("Пароль"); ВыбДатаНач = ВосстановитьЗначение("ВыбДатаНач"); ВыбДатаКон = ВосстановитьЗначение("ВыбДатаКон"); ВыбКонтрагентРН = ВосстановитьЗначение("ВыбКонтрагентРН"); ВыбКонтрагентПН = ВосстановитьЗначение("ВыбКонтрагентПН"); фПерезаписыватьДоки = ВосстановитьЗначение("фПерезаписыватьДоки"); фПереноситьКонтрагентов = ВосстановитьЗначение("фПереноситьКонтрагентов"); фТолькоПроведенные = ВосстановитьЗначение("фТолькоПроведенные"); Если ПустоеЗначение(ВыбДатаНач) = 1 Тогда ВыбДатаНач = ТекущаяДата(); КонецЕсли; Если ПустоеЗначение(ВыбДатаКон) = 1 Тогда ВыбДатаКон = ТекущаяДата(); КонецЕсли; Форма.кнПринятьДанные.Доступность(0); сзРежимы.ТекущаяСтрока(1); КонецПроцедуры // ***************************************************************************** Процедура ПриЗакрытии() олеБД = 0; // Сохранить настройки СохранитьЗначение("ПутьКБазеИсточнику", ПутьКБазеИсточнику); СохранитьЗначение("Пользователь", Пользователь); СохранитьЗначение("Пароль", Пароль); СохранитьЗначение("ВыбДатаНач", ВыбДатаНач); СохранитьЗначение("ВыбДатаКон", ВыбДатаКон); СохранитьЗначение("ВыбКонтрагентРН", ВыбКонтрагентРН); СохранитьЗначение("ВыбКонтрагентПН", ВыбКонтрагентПН); СохранитьЗначение("фПерезаписыватьДоки", фПерезаписыватьДоки); СохранитьЗначение("фПереноситьКонтрагентов", фПереноситьКонтрагентов); СохранитьЗначение("фТолькоПроведенные", фТолькоПроведенные); КонецПроцедуры // ПриЗакрытии // ***************************************************************************** сзРежимы.ДобавитьЗначение("Загружать расходные накладные как расходные"); сзРежимы.ДобавитьЗначение("Загружать расходные накладные как приходные");

Отправлен: 15.09.2007, 19:07 Вопрос задала: Джелл (статус: 5-ый класс) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 4)

Отвечает: Elric Здравствуйте, Джелл! Проверьте, есть ли в базе, откуда Вы загружаете данные, графа отбора БазаДляВыгрузки. Если ее нет, создайте и добавьте реквизит с базой данных расходной накладной. У Вас в модуле есть строки: Рез = ДокОле.ВыбратьПоЗначению(ВыбДатаНач, ВыбДатаКон, "БазаДляВыгрузки", ТекБаза); Если Рез = 0 Тогда Предупреждение("За период " + ВыбДатаНач + " - " + ВыбДатаКон + " |для базы " + СокрЛП(ТекБаза.Наименование) + " данные отсутствуют!", 30); Возврат; КонецЕсли; Именно здесь, при попытке выбрать документы по значению графы отбора, Вы и получаете упомянутое сообщение. --------- В творчестве рождается истина

Ответ отправил: Elric (статус: Специалист) Ответ отправлен: 15.09.2007, 20:53 Оценка за ответ: 4 Комментарий оценки: Да, реквизит есть, создан. Также был запущен поиск по всей конфигурации "базаДляВыгрузки" и проведено тщательное сравнение модулей, и перенос всех различий. Но не помогло :( До этого места я добралась. Интересно, что с этим дальше делать ...

Отвечает: Иванов Алексей Владимирович Здравствуйте, Джелл! Дело может быть в том, что при открытии выборки документов (процедура ПринятьДанные(), строка "Рез = ДокОле.ВыбратьПоЗначению(ВыбДатаНач, ВыбДатаКон, "БазаДляВыгрузки", ТекБаза);") не найдено документов со значением реквизита "БазаДляВыгрузки" совпадающим со значанием переменной "ТекБаза". Выяснить почему так происходит проще, на мой взгляд, если потрассировать в отладчике этот кусок и посмотреть на значения переменных. Если нет желания заниматься трассировкой, можно навставлять в соответствующие места конструкции вида "Сообщить(ТекБаза)", а потом посмотреть на результат и сравнить его с тем, что вводилось ранее в расходной накладной в соответствующий реквизит.

Ответ отправил: Иванов Алексей Владимирович (статус: 2-ой класс) Ответ отправлен: 17.09.2007, 00:56 Оценка за ответ: 5 Комментарий оценки: Спасибо большое! Вы не только указали место, где появляется ошибка, но и посоветовали способ решения. Попробую. Ничего другого все равно не остается )

Вопрос № 102.156

Здравствуйте уважаемые эксперты, возникла такая проблемка. Имеется распределенная база данных на платформе ТиС 7.7. Так вот на периферийной базе невозможно провести документ Реализации .так как выходит сообщение "На фирме в целом нет нужного свободного количества ТМЦ такого -то", хотя всевозможные отчеты по остаткам ТМЦ показывают что именно эта номенклатура и именно на этом складе в наличии есть. И что самое интересное документ Перемещение ТМЦ с той же самой номенклатурой и с того же самого склада проводится без проблем. Вроде пролез все что мог( ТА, пересчет ГП, ни на каких резервах товар тоже не числится и т.д и т.п), ничего не помогает.В чем фокус не понятно. Может это особенность работы периферийной РБД,то бишь остается только снимать галку контроля остатков ТМЦ и... распахнись душа?

Отправлен: 15.09.2007, 19:44 Вопрос задал: student (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Elric Здравствуйте, student! УРБД здесь ни причем. Проверьте отчет по резервам -- если Перемещение работает нормально, а Реализация нет, и сообщение "нет нужного свободного количества", то... А вообще если возникает потребность справиться с каким-то парадоксом, то самый быстрый и эффективный способ -- это Отладчик :) --------- В творчестве рождается истина

Ответ отправил: Elric (статус: Специалист) Ответ отправлен: 15.09.2007, 20:40 Оценка за ответ: 4 Комментарий оценки: Спасибо за оперативность. Но не помогло. База аварийная скорее всего.

Отвечает: Яна Здравствуйте, student! Возможно, что проблема с управленческим/финансовым учетом. Возможно, перемещение проводится не по обоим, а по одному. Для того, чтобы определить с каким стоит посмотреть внимательно нехватает товара на складе вообще или по данной организации. Посмотрите какие организации выбраны в этих документах - возможно они различны. Отчеты тоже могут показывать разные цифры. Одни - по управленческому учету - другие по финансовому. Попробуйте заполнить инвентаризацию по нужному складу и нужной организации - она заполняется по данным финансового учета. И посмотреть в ней сколько нужного товара числится по финансовому учету. Возможно, эти цифры разойдутся с отчетом Остатки товаров.

Ответ отправила: Яна (статус: Студент) Ответ отправлен: 15.09.2007, 21:54

© 2001-2007, Портал RusFAQ.ru, Россия, Москва. Авторское право: ООО "Мастер-Эксперт Про" Техподдержка портала, тел.: +7 (926) 535-23-31 Хостинг: "Московский хостер" Поддержка: "Московский дизайнер" Авторские права | Реклама на портале Версия системы: 4.59 от 18.09.2007
RusFAQ.ru | MosHoster.ru | MosDesigner.ru | RusIRC.ru Kalashnikoff.ru | RadioLeader.ru | RusFUCK.ru