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

Выпуск № 537
от 04.07.2007, 15:05

Вопрос № 93.221

Здравствуйте, уважаемые эксперты. Подскажите, какими способами можно узнать откуда вызвается процедура. С помощью отладчика не могу понять. Спасибо.

Отправлен: 28.06.2007, 15:38 Вопрос задала: Lena (статус: Посетитель) Всего ответов: 6 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: DERL.KG Здравствуйте, Lena! Можно попытаться через "Поиск во всех текстах" Затем в найденном там где вызывается ваша процедура проставить точки останова и потом смотреть в отладчике...

Ответ отправил: DERL.KG (статус: 4-ый класс) Ответ отправлен: 28.06.2007, 15:53 Оценка за ответ: 5 Комментарий оценки: Да! спасибо, оказывается все просто

Отвечает: Vovchai Здравствуйте, Lena! в режиме конфигуратора, у элемента формы (кнопка, текст и т.д.) в свойствах есть вкладка "Дополнительно", в ней поле "Формула". вот там прописываются процедуры или функции

Ответ отправил: Vovchai (статус: 3-ий класс) Ответ отправлен: 28.06.2007, 15:59 Оценка за ответ: 3 Комментарий оценки: Это я знаю, но не все процедуры обрабатывют события элементов. А если элементов на форме много? И вкладка События...

Отвечает: Elric Здравствуйте, Lena! В отладчике поставьте точку останова в процедуре и откройте "стек вызовов". --------- Мирный атом в КАЖДЫЙ дом!

Ответ отправил: Elric (статус: Специалист) Ответ отправлен: 28.06.2007, 16:02 Оценка за ответ: 5 Комментарий оценки: Спасибо, самый удобный способ из предложенных..

Отвечает: ATan Здравствуйте, Lena! Если процедура НЕ ЯВЛЯЕТСЯ ЧАСТЬЮ ЯЗЫКА 1С ИЛИ ФУНКЦИЕЙ ДОПОЛНИТЕЛЬНЫХ КОМПОНЕНТ, то в отладчике нажав F8 можно зайти внутрь процедуры. После чего в заголовке окна отладчика будет указан модуль в котом эта собсно функция находиться. Ну еще можно предворительно в конфигураторе посмотреть "поиск по всем текстам" с названием функции. Удачи.

Ответ отправил: ATan (статус: 3-ий класс) Ответ отправлен: 28.06.2007, 16:04 Оценка за ответ: 5 Комментарий оценки: Спасибо, так и сделала

Отвечает: Finist Здравствуйте, Lena! А если попробовать через поиск найти объявление процедуры?

Ответ отправил: Finist (статус: 3-ий класс) Ответ отправлен: 29.06.2007, 05:00

Отвечает: Ромашов Евгений Николаевич Здравствуйте, Lena! конфигурация - поиск во всех текстах

Ответ отправил: Ромашов Евгений Николаевич (статус: 2-ой класс) Ответ отправлен: 29.06.2007, 07:30

Вопрос № 93.226

Здравствуйте уважаемые эксперты! Бухгалтерия 7.7. В документе ОтпускМатериаловНаСторону завела новый реквизит табличной части МестоХранения1 чтобы списывать с разных складов. Я сделала проверку остатка количества методом Рассчитать() вместо ВыполнитьЗапрос() как было раньше. Правильно но ли и как можно по-другому (если стоит ли вообще). И как мне тогда дальше рассчитать СуммаНаСкладахНУ и КоличествоНаСкладахНУ? Спасибо большое заранее!!! Приложение: СписокМатериалов = СоздатьОбъект("СписокЗначений"); ВыгрузитьТабличнуюЧасть(СписокМатериалов, "Материал"); // БухИт = СоздатьОбъект("БухгалтерскиеИтоги"); // БухИт.ИспользоватьСубконто(ВидыСубконто.Материалы, СписокМатериалов, 2); // БухИт.ИспользоватьСубконто(ВидыСубконто.МестаХранения, МестоХранения,2); // БухИт.ВключатьСубсчета(-1); // БухИт.ВыполнитьЗапрос(,ТекущийДокумент(),"10",,,,,"СК"); БИ_НУ = СоздатьОбъект("БухгалтерскиеИтоги"); БИ_НУ.ИспользоватьСубконто(ВидыСубконто.Материалы, СписокМатериалов, 2); БИ_НУ.ВыполнитьЗапрос(,ТекущийДокумент(), "Н02.01",,,,, "СК"); ТаблицаОстатков = СоздатьОбъект("ТаблицаЗначений"); ВыгрузитьТабличнуюЧасть(ТаблицаОстатков, "Материал, МестоХранения1,КоличествоОтпущено"); ТаблицаОстатков.Свернуть("Материал,МестоХранения1", "КоличествоОтпущено"); ТаблицаОстатков.НоваяКолонка("КоличествоНаСкладах", "Число"); ТаблицаОстатков.НоваяКолонка("СуммаНаСкладах", "Число"); ТаблицаОстатков.НоваяКолонка("СредняяСтоимость", "Число"); ТаблицаОстатков.НоваяКолонка("КоличествоНаСкладахНУ", "Число"); ТаблицаОстатков.НоваяКолонка("СуммаНаСкладахНУ", "Число"); ТаблицаОстатков.ВыбратьСтроки(); Пока ТаблицаОстатков.ПолучитьСтроку() = 1 Цикл БухИт = СоздатьОбъект("БухгалтерскиеИтоги"); КоличествоНаСкладе = 0; Если ТаблицаОстатков.Материал.Вид() = "Материалы" Тогда БухИт.Рассчитать(,ТекущийДокумент(),ТаблицаОстатков.Материал.СубСчет10); //Если БухИт.ПолучитьСчет(, ТаблицаОстатков.Материал.СубСчет10) = 1 Тогда //Если БухИт.ПолучитьСубконто(ВидыСубконто.Материалы,, ТаблицаОстатков.Материал) = 1 Тогда ТаблицаОстатков.СуммаНаСкладах = БухИт.СКД(ТаблицаОстатков.Материал.СубСчет10,"С",,ТаблицаОстатков.Материал); ТаблицаОстатков.КоличествоНаСкладах = БухИт.СКД(ТаблицаОстатков.Материал.СубСчет10,"К",,ТаблицаОстатков.Материал); //КонецЕсли; //Если БухИт.ПолучитьСубконто(ВидыСубконто.МестаХранения,, ТаблицаОстатков.МестоХранения1) = 1 Тогда КоличествоНаСкладе = БухИт.СКД(ТаблицаОстатков.Материал.СубСчет10,"К",,ТаблицаОстатков.Материал,ТаблицаОстатков.МестоХранения1); //КонецЕсли; //КонецЕсли; КонецЕсли; Стр = ""+ТаблицаОстатков.НомерСтроки+". "+ТаблицаОстатков.Материал+": на складе "+ТаблицаОстатков.МестоХранения1+" "+КоличествоНаСкладе+" "+ ТаблицаОстатков.Материал.ЕдиницаИзмерения+", всего на складах "+ТаблицаОстатков.КоличествоНаСкладах+" "+ ТаблицаОстатков.Материал.ЕдиницаИзмерения+" на сумму "+ТаблицаОстатков.СуммаНаСкладах; Если ТаблицаОстатков.КоличествоНаСкладах > 0 Тогда ТаблицаОстатков.СредняяСтоимость = ТаблицаОстатков.СуммаНаСкладах/ТаблицаОстатков.КоличествоНаСкладах; Стр = Стр + ", средняя стоимость " + Окр(ТаблицаОстатков.СредняяСтоимость, 2, 1); КонецЕсли; ТекстСообщения = Стр; глСообщениеПроведения(ТекстСообщения, ТекущийДокумент(), 0); Если КоличествоНаСкладе < ТаблицаОстатков.КоличествоОтпущено Тогда ТекстСообщения = "На складе "+КоличествоНаСкладе+" "+ТаблицаОстатков.Материал.ЕдиницаИзмерения+ " из необходимых "+ТаблицаОстатков.КоличествоОтпущено+" "+ТаблицаОстатков.Материал.ЕдиницаИзмерения+" "+ ТаблицаОстатков.Материал + " ("+ТаблицаОстатков.Материал.СубСчет10+")"; Если Константа.КонтрольОтрицательныхОстатков = Да Тогда глНеПроводить(Контекст, ТекстСообщения); Возврат; Иначе глСообщениеПроведения(ТекстСообщения, ТекущийДокумент(), -1); КонецЕсли; КонецЕсли; // Предваритальные операции по налоговому учету. Если (ВидОтпуска <> 1) и (глНовыеПравилаВеденияНУ(ДатаДок) = 1) Тогда Если БИ_НУ.ПолучитьСубконто(1,, ТаблицаОстатков.Материал) = 1 Тогда ТаблицаОстатков.СуммаНаСкладахНУ = Макс(БИ_НУ.СКД("С"), 0); ТаблицаОстатков.КоличествоНаСкладахНУ = БИ_НУ.СКД("К"); КонецЕсли; Если ТаблицаОстатков.КоличествоНаСкладахНУ < ТаблицаОстатков.КоличествоОтпущено Тогда ТекстСообщения = "По данным налогового учета на складах "+ТаблицаОстатков.КоличествоНаСкладахНУ+" "+ТаблицаОстатков.Материал.ЕдиницаИзмерения+ " из необходимых "+ТаблицаОстатков.КоличествоОтпущено+" "+ТаблицаОстатков.Материал.ЕдиницаИзмерения+" "+ ТаблицаОстатков.Материал; Если Константа.КонтрольОтрицательныхОстатков = Да Тогда глНеПроводить(Контекст, ТекстСообщения); Возврат; Иначе глСообщениеПроведения(ТекстСообщения, ТекущийДокумент(), -1); КонецЕсли; КонецЕсли; КонецЕсли; КонецЦикла;

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

Отвечает: Elric Здравствуйте, Darina! Если Вы начали использовать Бухгалтерские итоги в режиме запроса, то рекомендую так и продолжать, не смешивать. Тем более что в Вашем случае это единственно возможный вариант. Пример кода я привел в Приложении. Сначала дополнительным методом ИспользоватьСубконто() говорите запросу получить информацию не только о материалах, но и о складах. Потом для получения информации о материале (а потом и о материале на конкретном складе) применяете метод ПолучитьСубконто(). Рекомендую перед ним вызывать также метод ВыбратьСубконто(), однако насколько я знаю это не есть жесткое требование. Просто в моей практике с ним код работал стабильнее :) Приложение: СписокМатериалов = СоздатьОбъект("СписокЗначений"); ВыгрузитьТабличнуюЧасть(СписокМатериалов, "Материал"); БИ_НУ = СоздатьОбъект("БухгалтерскиеИтоги"); БИ_НУ.ИспользоватьСубконто(ВидыСубконто.Материалы, СписокМатериалов, 1); БИ_НУ.ИспользоватьСубконто(ВидыСубконто.МестаХранения, , 1); БИ_НУ.ВыполнитьЗапрос(,ТекущийДокумент(), "Н02.01",,,,, "СК"); ТаблицаОстатков = СоздатьОбъект("ТаблицаЗначений"); ВыгрузитьТабличнуюЧасть(ТаблицаОстатков, "Материал, МестоХранения1,КоличествоОтпущено"); ТаблицаОстатков.Свернуть("Материал,МестоХранения1", "КоличествоОтпущено"); ТаблицаОстатков.НоваяКолонка("КоличествоНаСкладах", "Число"); ТаблицаОстатков.НоваяКолонка("СуммаНаСкладах", "Число"); ТаблицаОстатков.НоваяКолонка("СредняяСтоимость", "Число"); ТаблицаОстатков.НоваяКолонка("КоличествоНаСкладахНУ", "Число"); ТаблицаОстатков.НоваяКолонка("СуммаНаСкладахНУ", "Число"); ТаблицаОстатков.ВыбратьСтроки(); Пока ТаблицаОстатков.ПолучитьСтроку() = 1 Цикл БухИт = СоздатьОбъект("БухгалтерскиеИтоги"); КоличествоНаСкладе = 0; Если ТаблицаОстатков.Материал.Вид() = "Материалы" Тогда БИ_НУ.ВыбратьСубконто(ВидыСубконто.Материалы); Если БИ_НУ.ПолучитьСубконто(ВидыСубконто.Материалы, , ТаблицаОстатков.Материал) = 1 Тогда // Всего этого материала на всех складах ТаблицаОстатков.СуммаНаСкладах = БИ_НУ.СКД(); ТаблицаОстатков.КоличествоНаСкладах = БИ_НУ.СКД(3); БИ_НУ.ВыбратьСубконто(ВидыСубконто.МестаХранения); Если БИ_НУ.ПолучитьСубконто(ВидыСубконто.МестаХранения, , ТаблицаОстатков.МестоХранения1) = 1 Тогда // Этого материала на складе МестоХранения1 КоличествоНаСкладе = БИ_НУ.СКД(3); КонецЕсли; КонецЕсли; КонецЕсли; --------- Мирный атом в КАЖДЫЙ дом!

Ответ отправил: Elric (статус: Специалист) Ответ отправлен: 28.06.2007, 18:20 Оценка за ответ: 5 Комментарий оценки: Спасибо!!!

Отвечает: Ромашов Евгений Николаевич Здравствуйте, Darina! надо создать СписокЗначений в него выгрузить склады с табличной части и использовать в ИспользоватьСубконто() а в цикле обработки строк в получитьсубконто() указать склад с табличной части

Ответ отправил: Ромашов Евгений Николаевич (статус: 2-ой класс) Ответ отправлен: 29.06.2007, 07:29

Вопрос № 93.312

А вы не подскажите, как можно реализовать формулу в типовой операции, чтобы выбирался контрагент,договор и сумма из нужного документа "Оказание услуг".Проводки самого документа иногда не совсем устраивают.Возникает порой необходимость, чтобы была корреспонденция Дт60-Кт76, а не Дт60-Кт90, или Дт60-Кт76-часть суммы , а другая часть суммы -Дт60-Кт90. В модуле документа "Оказание услуг" что-то дописывать неохота, поэтому я выбрала вариант ввода типовой операции. Ну как теперь реализовать?Помогите.Может надо в глобальном модуле написать процедуру, которую прописать потом в поле "формула" типовой операции, и которая открывает окно с перечнем документов "Оказание услуг" .А потом при выборе какого-либо документа будут в операции выбираться нужные реквизиты. Или это неосуществимый бред?Подскажите возможные варианты.

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

Отвечает: Elric Здравствуйте, Lanka26! Выбор документа с последующим заполнением субконто в типовой операции нереализуем. Рекомендую все же изменить обработку проведения документа, это в любом случае надежнее. Если есть разные схемы проведения, просто добавьте реквизиты в документ, в которых будет зафиксирован выбор конкретной схемы и необходимые для нее дополнительные данные. --------- Мирный атом в КАЖДЫЙ дом!

Ответ отправил: Elric (статус: Специалист) Ответ отправлен: 29.06.2007, 14:08

Отвечает: Николай Александрович Здравствуйте, Lanka26! Единственный путь с минимальными потерями: это скопировать документ ОказаниеУслуг в конфигураторе, он станет ОказаниеУслуг1, потом уже в этом новом документе настраивайте проводки какие Вам нужно и при таком варианте у Вас не будет проблемм при обновлении. Единственное что, это документы вводимые на основании.... но по моему проще 2 раза мышкой щёлкнуть в настройке "Ввод на основании", чем переписывать целый модуль. Удачи Вам!!!

Ответ отправил: Николай Александрович (статус: 2-ой класс) Ответ отправлен: 30.06.2007, 17:35

Вопрос № 93.317

Добрый день! 1С:Предприятие 7.7 Торговля и Склад 9.2 7.70.925. Подскажите пожалуйста каким образом можно из одного документа реализации организовать две печатные формы. В первой товар по одиной группе поставщиков, во второй по другой. Если можно пример. Спасибо.

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

Отвечает: Краюшкин Игорь Валерьевич Здравствуйте, Novinnik! В типовой конфигурации есть возможность подключения внешних печатных форм: Сервис -> Регистрация внешних печатных форм Эти печатные формы должны лежать в каталоге базы в папке ExtFormsPrnForms В качестве примера там лежит sale.ert - внешняя печатная форма документа реализации. Если Вы владеете навыками программирования в 1С, то Вам не составит труда сделать другую печатную форму на базе sale.ert

Ответ отправил: Краюшкин Игорь Валерьевич (статус: 9-ый класс) Ответ отправлен: 29.06.2007, 13:44

Отвечает: svsrus Здравствуйте, Novinnik! Да хоть сто печатных форм можно. Тут другой вопрос: умеете вы программировать в 1С (или хотя бы конфигурировать) или нет? Судя по вопросу ни тем, ни другим вы не владеете. Поэтому вам будет трудно, лучше попросите кого-нибудь сделать. Пример приводить бессмыслено. Т.к. чего пример привести не очень понятно. Если кода - то смысла нет, можете и так посмотреть в конфигураторе. Могу порекомендовать книжку "Введение в конфигурирование". Там как раз описывается создание печатной формы очень подробно. Книжка даже где-то в электронном виде есть. Ищите. Будут вопросы, пишите. Помогу. svsrus@mial.ru

Ответ отправил: svsrus (статус: 6-ой класс) Ответ отправлен: 29.06.2007, 13:46

Вопрос № 93.337

Уважаемые эксперты! Я пытаюсь установить 1с 7.7.029 на висту (ноутбук Gateway dual core). Инсталировать не смог, скопировал платформу с другого компа (там ХР и база тамже), установил hasp, но все равно требует ключ зашиты. Попробовал 1с Portable, здесь програма запускается но требует установки компоненты "упровление распределёнными БД", хотя я его устанавливаю. помогите устоновить хоть каким то методом. Заранее благодарю.

Отправлен: 29.06.2007, 12:54 Вопрос задал: Lomai (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Vovchai Здравствуйте, Lomai! в каталог bin положите файл DistrDB.dll для УРБД

Ответ отправил: Vovchai (статус: 3-ий класс) Ответ отправлен: 29.06.2007, 13:03 Оценка за ответ: 1 Комментарий оценки: не помогло. в каталоге bin и так был файл DistrDB.dll, так что ничего не изменилось, 1с portable никак не признаёт установленную компоненту УРБД и всё требует и требует его.

Отвечает: Ovr1970 Здравствуйте, Lomai! Вообще то ломать 1С нельзя, но будем считать, что ключ у Вас есть, но тоже плохо работает - это все из-за дуальности. Если вы поставите в системе драйвер "ACPI Uniprocessor PC" вместо "ACPI Multiprocessor PC", то все у Вас заработает. Другой способ - откорректировать файл 1cv7?.exe с помощью программы -патчера от Saaron

Ответ отправил: Ovr1970 (статус: Практикант) Ответ отправлен: 29.06.2007, 18:03 Оценка за ответ: 5

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