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

Выпуск № 506
от 28.05.2007, 00:35

Вопрос № 88.089

Здравствуйте. Результаты 2-х различных запросов я поместила в 2 таблицы значений соответственно, теперь нужно вывести всех контрагентов и СНК() из табЗнач62 а документы по этим контрагентам из другой табЗнач76. У меня получается что, по табЗнач62 все выполняется правильно, а по ТаБзнач76 только 1-е значение и все, если же я использую выбратьСтроки() то получается полный бред. Приложение: процедура Кредит() табЗнач62=СоздатьОбъект("ТаблицаЗначений"); табЗнач62.НоваяКолонка("Контрагент"); табЗнач62.НоваяКОлонка("сальдоК"); табЗнач62.НоваяКОлонка("сальдоД"); табЗнач76=СоздатьОбъект("ТаблицаЗначений"); табЗнач76.НоваяКолонка("Контрагент"); табЗнач76.НоваяКолонка("Договор"); табЗнач76.НоваяКОлонка("Оборот"); Таб = СоздатьОбъект("Таблица"); Таб.ИсходнаяТаблица("Таблица"); Ит = СоздатьОбъект("БухгалтерскиеИтоги"); Ит.ИспользоватьСубконто(ВидыСубконто.Контрагенты,, 1); Ит.ИспользоватьСубконто(ВидыСубконто.Договоры,, 1); Ит.ВключатьСубсчета(1); Ит.ВыполнитьЗапрос(ВыбНачПериода, ВыбКонПериода, "62.2",,, 3,, "С"); Итб=СоздатьОбъект("БухгалтерскиеИтоги"); Итб.ИспользоватьСубконто(ВидыСубконто.Контрагенты,, 1); Итб.ИспользоватьСубконто(ВидыСубконто.СчетаФактурыВыданные,, 1,); Итб.ВключатьСубсчета(1,1); Итб.ВыполнитьЗапрос(ВыбНачПериода, ВыбКонПериода,"76.АВ",,,3,, "С"); н=0; Таб.ВывестиСекцию("Заголовок"); Таб.Опции(0,0,Таб.ВысотаТаблицы(),0); сум=0;сумС=0; Ит.ВыбратьСчета(,1); Пока Ит.ПолучитьСчет() = 1 Цикл Ит.ВыбратьСубконто(ВидыСубконто.Договоры); Пока Ит.ПолучитьСубконто(ВидыСубконто.Договоры) = 1 Цикл табЗнач62.НоваяСтрока(); табЗнач62.контрагент=ит.Субконто(1); табЗнач62.сальдоД=ит.СНД(); табЗнач62.сальдоК=ит.СНК(); Договор=Ит.Субконто(ВидыСубконто.Договоры); сум=сум+ит.КО(); сумС=сумС+ит.СНК(); КонецЦикла; КонецЦикла; итб.ВыбратьСубконто(2); пока итб.получитьСубконто(2)=1 цикл ТабЗнач76.НоваяСтрока(); табЗнач76.Контрагент=итб.Субконто(1); табЗнач76.Договор=итб.Субконто(2); табЗнач76.Оборот=итб.КО(); конецЦикла; стр=0; табЗнач62.Сортировать("контрагент"); табЗнач62.ВыбратьСтроку(стр,"62"); табЗнач76.Сортировать("контрагент"); табЗнач76.ВыбратьСтроку(стр,"76"); табЗнач62.ВыбратьСтроки(); пока табЗнач62.ПолучитьСтроку()=1 цикл контрагент=табЗнач62.Контрагент; //табЗнач76.ВыбратьСтроки(); //пока табЗнач76.ПолучитьСтроку()=1 цикл если табЗнач76.найтиЗначение(контрагент,номстр,номкол)=1 тогда табзнач76.ПолучитьЗначение(номстр,номКол); табЗнач76.ПолучитьСтрокуПоНомеру(номСтр); контр=табЗнач76.Контрагент; дог=табЗнач76.Договор; КО=табЗнач76.Оборот;сообщить("к= "+контр+" д= "+дог+" КО "+ко); таб.ВывестиСекцию("КредитОсновная"); иначе таб.ВывестиСекцию("К1"); конецЕсли; //конецЦикла; конецЦикла; //таб.ВывестиСекцию("сумма"); Таб.ТолькоПросмотр(1); Таб.Показать("Сформировать",""); конецпроцедуры

Отправлен: 22.05.2007, 16:27 Вопрос задал: Fifina (статус: Посетитель) Всего ответов: 4 Мини-форум вопроса >>> (сообщений: 5)

Отвечает: Шахрайчук Владимир Анатольевич Здравствуйте, Fifina! Ну, это стандартная ошибка- не присвоены начальные значения НомСтр=0;//Поиск по всем строкам Номкол="Контрагент"//Поиск по колонке Контрагент если табЗнач76.найтиЗначение(контрагент,номстр,номкол)=1 тогда табЗнач76.ПолучитьСтрокуПоНомеру(номСтр); Строки же типа табзнач76.ПолучитьЗначение(номстр,номКол); совершенно излишние, ведь Вы полученное значение ничему не присваиваете. Лишняя также строка контр=табЗнач76.Контрагент;, ведь Вы получите, естественно, то же значение, что и искали, а именно контрагент И вообще, код какой-то сумбурный (если, конечно, он не сокращенный для удобочитаемости). Если счет 62.2 не группа, то незачем выбирать счета, потому что он единственный, по которому сделан запрос. Выбирается сразу второе субконто, а ведь по стандартам нужно сначала выбирать первое субконто, а потом второе. Кроме того, есть серьезное замечание. У одного контрагента может быть несколько договоров, и это значит, что табЗнач76 будет иметь несколько строк с одинаковым контрагент. НайтиЗначение всегда будет искать первую строку, содержащую контрагента. Выйти из ситуации можно тремя способами:1. свернуть табЗнач76 по контрагенту 2. добавить служебную колонку Индекс типа неограниченная строка, состоящую из имени контрагента и договора и искать по этой колонке 3. Перебирать всю таблицу табЗнач76 в цикле (как закомментировано). Следует отметить, что перебор в цикле работает очень медленно, лучше сделать индекс или отказаться от детализации по договорам. Приложение: В приложении данные хранятся в ТЗ в разрезе контрагентов и договоров, а поиск ведется через индекс.

Ответ отправил: Шахрайчук Владимир Анатольевич (статус: Практикант) Ответ отправлен: 22.05.2007, 18:08

Отвечает: Dmitry Stashenko Здравствуйте, Fifina! Если мы об одном и том же, то смотрите приложение. Делал под свои план счетов, так что просмотрите, нигде ничего не забыл на место поставить Приложение: //******************************************* Процедура Кредит() табЗнач62=СоздатьОбъект("ТаблицаЗначений"); табЗнач62.НоваяКолонка("Контрагент"); табЗнач62.НоваяКОлонка("сальдоК"); табЗнач62.НоваяКОлонка("сальдоД"); табЗнач76=СоздатьОбъект("ТаблицаЗначений"); табЗнач76.НоваяКолонка("Контрагент"); табЗнач76.НоваяКолонка("Договор"); табЗнач76.НоваяКОлонка("Оборот"); Таб = СоздатьОбъект("Таблица"); Таб.ИсходнаяТаблица("Таблица"); Ит = СоздатьОбъект("БухгалтерскиеИтоги"); Ит.ИспользоватьСубконто(ВидыСубконто.Контрагенты,, 1); Ит.ИспользоватьСубконто(ВидыСубконто.Договоры,, 1); Ит.ВключатьСубсчета(1); Ит.ВыполнитьЗапрос(ВыбНачПериода, ВыбКонПериода, "62.2",,, 3,, "С"); Итб=СоздатьОбъект("БухгалтерскиеИтоги"); Итб.ИспользоватьСубконто(ВидыСубконто.Контрагенты,, 1); Итб.ИспользоватьСубконто(ВидыСубконто.СчетаФактурыВыданные,, 1,); Итб.ВключатьСубсчета(1,1); Итб.ВыполнитьЗапрос(ВыбНачПериода, ВыбКонПериода,"76.АВ",,,3,, "С"); н=0; Таб.ВывестиСекцию("Заголовок"); Таб.Опции(0,0,Таб.ВысотаТаблицы(),0); сум=0;сумС=0; Ит.ВыбратьСчета(,1); Пока Ит.ПолучитьСчет() = 1 Цикл Ит.ВыбратьСубконто(1); Пока Ит.ПолучитьСубконто(1) = 1 Цикл Ит.ВыбратьСубконто(2); Пока Ит.ПолучитьСубконто(2) = 1 Цикл табЗнач62.НоваяСтрока(); табЗнач62.контрагент=ит.Субконто(1); табЗнач62.сальдоД=ит.СНД(); табЗнач62.сальдоК=ит.СНК(); Договор=Ит.Субконто(2); сум=сум+ит.КО(); сумС=сумС+ит.СНК(); КонецЦикла; КонецЦикла; КонецЦикла; итб.ВыбратьСубконто(1); пока итб.получитьСубконто(1)=1 цикл итб.ВыбратьСубконто(2); пока итб.получитьСубконто(2)=1 цикл ТабЗнач76.НоваяСтрока(); табЗнач76.Контрагент=итб.Субконто(1); табЗнач76.Договор=итб.Субконто(2); табЗнач76.Оборот=итб.КО(); конецЦикла; конецЦикла; табЗнач62.ВыбратьСтроки(); пока табЗнач62.ПолучитьСтроку()=1 цикл контрагент=табЗнач62.Контрагент; табЗнач76.ВыбратьСтроки(); пока табЗнач76.ПолучитьСтроку()=1 цикл если табЗнач76.контрагент = контрагент тогда контр=табЗнач76.Контрагент; дог=табЗнач76.Договор; КО=табЗнач76.Оборот; сообщить("к= "+контр+" д= "+дог+" КО "+ко); таб.ВывестиСекцию("КредитОсновная"); иначе таб.ВывестиСекцию("К1"); конецЕсли; конецЦикла; конецЦикла; таб.ВывестиСекцию("сумма"); Таб.ТолькоПросмотр(1); Таб.Показать("Сформировать",""); КонецПроцедуры

Ответ отправил: Dmitry Stashenko (статус: 2-ой класс) Ответ отправлен: 22.05.2007, 18:41 Оценка за ответ: 4 Комментарий оценки: спасибо за ответ, я так пробывала результат выдается неправильно

Отвечает: Elric Здравствуйте, Fifina! Попробуйте мой вариант. Я поубирал все лишнее, исправил несколько неточностей. Хотя, конечно, не видя данных и самой печтной формы... Приложение: процедура Кредит() табЗнач62=СоздатьОбъект("ТаблицаЗначений"); табЗнач62.НоваяКолонка("Контрагент"); табЗнач62.НоваяКОлонка("сальдоК"); табЗнач62.НоваяКОлонка("сальдоД"); табЗнач76=СоздатьОбъект("ТаблицаЗначений"); табЗнач76.НоваяКолонка("Контрагент"); табЗнач76.НоваяКолонка("Договор"); табЗнач76.НоваяКОлонка("Оборот"); Таб = СоздатьОбъект("Таблица"); Таб.ИсходнаяТаблица("Таблица"); Ит = СоздатьОбъект("БухгалтерскиеИтоги"); Ит.ИспользоватьСубконто(ВидыСубконто.Контрагенты,, 1); Ит.ВыполнитьЗапрос(ВыбНачПериода, ВыбКонПериода, "62.2",,, 1,, "С"); Итб=СоздатьОбъект("БухгалтерскиеИтоги"); Итб.ИспользоватьСубконто(ВидыСубконто.Контрагенты,, 1); Итб.ИспользоватьСубконто(ВидыСубконто.СчетаФактурыВыданные,, 1,); Итб.ВыполнитьЗапрос(ВыбНачПериода, ВыбКонПериода,"76.АВ",,,1,, "С"); Таб.ВывестиСекцию("Заголовок"); Таб.Опции(0,0,Таб.ВысотаТаблицы(),0); сум=0;сумС=0; Ит.ВыбратьСубконто(); Пока Ит.ПолучитьСубконто() = 1 Цикл табЗнач62.НоваяСтрока(); табЗнач62.контрагент=ит.Субконто(1); табЗнач62.сальдоД=ит.СНД(); табЗнач62.сальдоК=ит.СНК(); сум=сум+ит.КО(); сумС=сумС+ит.СНК(); КонецЦикла; Итб.ВыбратьСубконто(); Пока Итб.ПолучитьСубконто() = 1 Цикл итб.ВыбратьСубконто(2); пока итб.получитьСубконто(2)=1 цикл ТабЗнач76.НоваяСтрока(); табЗнач76.Контрагент=итб.Субконто(1); табЗнач76.Договор=итб.Субконто(2); табЗнач76.Оборот=итб.КО(); конецЦикла; конецЦикла; стр=0; табЗнач62.Сортировать("контрагент"); табЗнач62.ВыбратьСтроку(стр,"62"); табЗнач76.Сортировать("контрагент"); табЗнач76.ВыбратьСтроку(стр,"76"); табЗнач62.ВыбратьСтроки(); пока табЗнач62.ПолучитьСтроку()=1 цикл контрагент=табЗнач62.Контрагент; табЗнач76.ВыбратьСтроки(); пока табЗнач76.ПолучитьСтроку()=1 цикл если табЗнач76.контрагент=контрагент тогда табЗнач76.ПолучитьСтрокуПоНомеру(номСтр); контр=табЗнач76.Контрагент; дог=табЗнач76.Договор; КО=табЗнач76.Оборот; сообщить("к= "+контр+"; д= "+дог+"; КО= "+ко+"; снд= "+табЗнач62.сальдоД+"; снк = "+табЗнач62.сальдоК); таб.ВывестиСекцию("КредитОсновная"); иначе //таб.ВывестиСекцию("К1"); конецЕсли; конецЦикла; конецЦикла; //таб.ВывестиСекцию("сумма"); Таб.ТолькоПросмотр(1); Таб.Показать("Сформировать",""); конецпроцедуры --------- Мирный атом в КАЖДЫЙ дом!

Ответ отправил: Elric (статус: Специалист) Ответ отправлен: 23.05.2007, 00:32 Оценка за ответ: 4 Комментарий оценки: Спасибо за ответ. но в вашем коде ошибка: табЗнач76.ПолучитьСтрокуПоНомеру(номСтр); Номер за пределами значения!

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

Ответ отправил: Ромашов Евгений Николаевич (статус: 1-ый класс) Ответ отправлен: 23.05.2007, 05:16 Оценка за ответ: 4 Комментарий оценки: Спасибо, но я наверное задала вопрос неправильно, мне нужно получить и тех контрагентов у которых нет остатка по 76.ав, но есть по 62.2

Вопрос № 88.157

Здравствуйте уважаемые эксперты! Мне необходимо: если текущий элемент справочника принадлежит группе с наименованием, например А, или кодом а, то добавляется закладка на форме. Если можно с комментариями, а то у меня похоже проблема с пониманием позиционирования. Заранее спасибо! Приложение: Спр=СоздатьОбъект("Справочник.ОсновныеСредства"); Если Спр.ТекущийЭлемент().ПринадлежитГруппе(...)=1 Тогда Форма.Закладки.ДобавитьЗначение("Прочие сведения"); КонецЕсли;

Отправлен: 22.05.2007, 23:36 Вопрос задала: Darina (статус: Посетитель) Всего ответов: 5 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Полозов Олег aka Asher Здравствуйте, Darina! Проверьте что имя слоя и параметр передаваемый в методе ДобавитьЗначение идентичны. У вас параметр с пробелом. а идентификатор слоя пробелы не допускает.

Ответ отправил: Полозов Олег aka Asher (статус: 5-ый класс) Ответ отправлен: 23.05.2007, 02:28 Оценка за ответ: 4 Комментарий оценки: Это у меня прописано в ПриВыбореЗакладки(). Всё оказалось проще...

Отвечает: DERL.KG Здравствуйте, Darina! Тогда делайте так Спр=СоздатьОбъект("Справочник.ОсновныеСредства"); Спр2=СоздатьОбъект("Справочник.ОсновныеСредства"); Спр2.НайтиПоНаименованию("А");// или Спр2.НайтиПоКоду("а"); ... Если Спр.ТекущийЭлемент().ПринадлежитГруппе(Спр2.ТекущийЭлемент())=1 Тогда Форма.Закладки.ДобавитьЗначение("Прочие сведения"); КонецЕсли; Хотя если честно не понятно для чего это вам нужно. Если вы хотите просто сделать закладки по группам справочника к примеру 1-го уровня, то достаточно пройтись циклом Спр=СоздатьОбъект("Справочник.ОсновныеСредства"); Спр.ВыбратьЭлементы(); Пока Спр.ПолучитьЭлемент() = 1 Цикл Если (Спр.ТекущийЭлемент().ЭтоГруппа() = 1) и (Спр.ТекущийЭлемент().Уровень() = 1) Тогда Форма.Закладки.ДобавитьЗначение(Спр.Наименование); КонецЕсли; КонецЦикла;

Ответ отправил: DERL.KG (статус: 2-ой класс) Ответ отправлен: 23.05.2007, 07:20 Оценка за ответ: 4 Комментарий оценки: Так как Вы написали я тоже хотела попробовать, но не стала. Именно Ваш ответ натолкнул меня на правильную мысль. Всё проще: Спр=СоздатьОбъект("Справочник.ОсновныеСредства"); Спр.НайтиПоКоду("00000687"); Если ТекущийЭлемент().ПринадлежитГруппе(Спр.ТекущийЭлемент())=1 Тогда Форма.Закладки.ДобавитьЗначение("Прочие сведения"); КонецЕсли;

Отвечает: Dmitry Stashenko Здравствуйте, Darina! Добавление закладок в форме обычно делается в процедуре ПриОткрытии(), хотя это и не обязательно, и если у Вас набор закладок зависит, скажем от какого нибудь реквизита, то формирование набора закладок делается при изменении этого реквизита. Также примите во внимание то, что принадлежность элемента справочника группе можно проверить только в том случае, если этот элемент записан. Удачи Приложение: Спр = СоздатьОбъект("Справочник.ОсновныеСредства"); Группа = Спр.НайтиПоКоду("а"); //Находим в Справочнике.ОсновныеСредства элемент с кодом "а" Форма.ИспользоватьЗакладки(1); //Разрешаем использование закладок Форма.Закладки.ДобавитьЗначение("Основной","Основной"); //Добавляем основную закладку Если Выбран() = 1 Тогда //Проверяем записан ли элемент Если ПринадлежитГруппе(Группа) = 1 Тогда //Проверяем принадлежность ТЕКУЩЕГО элемента (а не как у Вас Спр.ТекущийЭлемент(), поскольку у Вас Спр.ТекущийЭлемент() в данный момент ни на чем не спозиционирован, и вообще, нам важен именно наш открытый элемент справочника) Если форма.Закладки.НайтиЗначение("ПрочиеСведения") = 0 Тогда //Проверяем, не добавлена уже закладка.Если нет, то добавляем Форма.Закладки.ДобавитьЗначение("ПрочиеСведения","Прочие сведения"); КонецЕсли; КонецЕсли; КонецЕсли;

Ответ отправил: Dmitry Stashenko (статус: 2-ой класс) Ответ отправлен: 23.05.2007, 10:03 Оценка за ответ: 5 Комментарий оценки: Всё правильно! Спасибо! Моя ошибка была в Спр.ТекущийЭлемент(). А теперь я и ТекущийЭлемент() убрала.

Отвечает: Strawberry Здравствуйте, Darina! предполагается что элемент в котором находимся существует (записан) Приложение: // Вариант первый, если справочник имеет более 2 уровней Спр=СоздатьОбъект("Справочник.ОсновныеСредства"); спр.НайтиПокоду(код); Если Спр.ТекущийЭлемент().ПринадлежитГруппе(...)=1 Тогда Форма.Закладки.ДобавитьЗначение("Прочие сведения"); КонецЕсли; //****************************************** //Если справочник имеет 2 уровня если Родитель = "Группа А" Тогда Форма.Закладки.ДобавитьЗначение("Прочие сведения"); КонецЕсли; --------- Мальчик-извращенец прочел деду Морозу с табуретки всего Пастернака!

Ответ отправил: Strawberry (статус: 7-ой класс) Ответ отправлен: 23.05.2007, 10:28 Оценка за ответ: 4 Комментарий оценки: вот и у Вас эта же ошибка: Спр.ТекущийЭлемент()

Отвечает: Шахрайчук Владимир Анатольевич Здравствуйте, Darina! Если Вы добавляете закладку оперативно, то меняется нумерация закладок и Вы не можете ПриВыбореЗакладки(Номер,Значение) ориентироваться на номер. Можете ориентироваться только на Значение. Форма.Закладки.ДобавитьЗначение("ПрочиеСведенияЗначение","Прочие сведения текст для вывода"); Мне кажется, что Форма.Закладки это СписокЗначений, и работать с ним можно как со списком - удалять, добавлять и просматривать значения. Ну и естественно, необходимо ПриВыбореЗакладки выводить нужный слой.

Ответ отправил: Шахрайчук Владимир Анатольевич (статус: Практикант) Ответ отправлен: 23.05.2007, 10:29 Оценка за ответ: 4 Комментарий оценки: Спасибо за ответ...

© 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