|Группировка Контрагент без групп; |Группировка Товар без групп;
после запроса если можно, использовать вашу ТЗ если нет -создать др.таблицу знач.
Если Флаг = 1 Тогда Запрос.Выгрузить(ТЗ,,0); ТЗ.Свернуть("Контрагент, Товар", "Количество"); Возврат; Иначе Запрос.Выгрузить(ТЗ,,0); ТЗ.Свернуть("Товар", "Количество"); ТЗ.Сортировать("Товар"); КонецЕсли;
потом как-то так
Таб = СоздатьОбъект("Таблица"); Таб.ИсходнаяТаблица("Таблица1"); // Заполнение полей "Заголовок" Таб.ВывестиСекцию("Заголовок|ШАпка"); ТЗ.ВыбратьСтроки(); Пока ТЗ.ПолучитьСтроку()=1 Цикл загТовар = ТЗ.Товар; Таб.ПрисоединитьСекцию("Заголовок|Товар"); КонецЦикла; Пока Запрос.Группировка(1) = 1 Цикл //Контрагент текКонтр = Запрос.Контрагент; Таб.ВывестиСекцию("Контрагент|ШАпка");
КвоТовара=0; //то что вывести в Таб ТЗ.ВыбратьСтроки(); Пока ТЗ.ПолучитьСтроку()=1 Цикл загТовар = ТЗ.Товар; Если Запрос.Получить(текКонтр,загТовар)=1 Тогда КвоТовара=Запрос.КоличествоСумма; КонецЕсли; Таб.ПрисоединитьСекцию("Контрагент|Товар");
мне б что в строке была дата и сумма, как это реализовать можно?
1 вариант - таблица значений, где колонки: "Докум, Дата, Сумма" 2 вариант - в списке расписать в символьном представлении как то так
Пока док.получитьДОкумент()=1 цикл текДок = Док.ТекущийДокумент(); списокЗначенийНаФорме.ДобавитьЗначение(текДок,""+текДок.НомерДок+" от "+текДок.ДатаДок+" Сумма="+текДок.Сумма); КонецЦикла;
только я не помню какой реквизит с суммой в приходном кассовом
Дублирования нет: "без ПДВ" и "з ПДВ"(это и имел ввиду Ardi), если в документе поставить Вид НДС = "БезНДС", то сумма будет печататься только один раз у вас вероятно стоит "0%"
Итоги.ВыбратьСубконто(1); Пока Итоги.ПолучитьСубконто(1) = 1 цикл иНА = Итоги.Субконто(1); Итоги.ВыбратьСчета(); Пока Итоги.ПолучитьСчет()=1 Цикл иСчет = Итоги.Счет;
Что Женщине нужно на самом-то деле, Я более-менее, вроде бы, знаю! И все, что себе пожелать вы хотели б – Я именно этого вам и желаю! Успехов – в работе! Погоды – приятной! Любви – чистой, нежной и неоднократной! Волос – шелковистых! Зубов – белоснежных! Мужей – состоятельных! Спонсоров – нежных! Любовников – умных! Супругов – в законе! Свекровей – живущих в другом регионе! Невесток – покорных! Тарелок – помытых! Мужей – не храпящих и на ночь побритых! Коллег – не зацикленных только на бабах! Врагов – слабосильных! Врагов – сильно слабых! Чулок – без затяжек! Ни дня – без обновки! Мужей – в очень длительной командировке! Любви – обжигающей, как в сериале! По пять сериалов – на каждом канале! Романов – курортных! Порывов – безумных! Соседей и снизу и сверху – бесшумных! Поездок – не дачных, а только на море! Пироженок – вкусных, но чтоб без калорий! Машин – иностранных, но руль чтобы слева! Духов – от Диора! Цветов – ежедневно! Намерений – разных, но лучше серьезных! Жилищ – пятикомнатных и пятизвездных! Билетов в автобусах – только счастливых! Друзей – не занудных! Подруг – не ревнивых! Мужей – состоятельных! (Как говорится, Раз сильно желаешь – не грех повториться!) Любви – чтобы воспламенялась, как порох! (Когда это важно, не жалко повторов) Стиральных машин, пылесосов, комбайнов – И функциональных, и стильных дизайнов. Страстей – изнурительных! Трудностей – кратких! Брильянтов – не меньше, чем 40 каратов! И сбыться – мечте стать великой артисткой!!! И Женского Дня – в год хотя бы раз 300!!!
1) Общение между пользователями форума - вежливое и уважительное. 2) Спасибо - это слово вежливости для выражения благодарности. 3) По правилам этикета благодарить надо всегда, даже за незначительную услугу или приятные слова. Моё мнение: "Спасибо" должно оставаться на форуме в том виде,в котором оно существует сейчас.
Поздравляю! Желаю огромного счастья, любви и успехов!
В песенке поется: "День рожденье только раз в году", а у Вас и того реже Но родиться 29 февраля – это большая редкость, а значит удача - Ваш спутник с самого рождения.
Вам, настоящим мужчинам, Желаю я силы большой... Чтоб с этой силой Вы защищали Мир и покой! Мы счастливы будем и Вдвое спокойны, Когда рядом с нами парни такие... Так будьте и Вы счастливы вдвое, Наши рыцари дорогие.
Пока Запрос.Группировка(1) = 1 Цикл Док = Запрос.Док; Док.ВыбратьСтроки(); Пока Док.ПолучитьСтроку() = 1 Цикл Если ПустоеЗначение(Док.ТМЦ) = 1 Тогда Продолжить; КонецЕсли; ТЗ.НоваяСтрока(); ТЗ.Товар = Док.ТМЦ; ТЗ.Вид = Док.ТМЦ.Вид;//нужно заполнить колонку вид КонецЦикла; КонецЦикла;
ТЗ.Сортировать("Вид"); //сортировка после заполения таблицы //теперь вывод на печать ТЗ.ВыбратьСтроки(); Пока ТЗ.ПолучитьСтроку(); Цикл Таб.ВывестиСекцию("Строка"); КонецЦикла;
Если (Док.Вид() = "УслугиСтороннихОрганизаций") ИЛИ (Док.Вид() = "ПриходнаяНакладнаяЗапасы") ИЛИ (Док.Вид() = "ПриходнаяНакладнаяПрочие") ИЛИ (Док.Вид() = "ПриходнаяНакладнаяГТД") Тогда
в запросе отобраны только эти документы
А по поводу сортировки, сделать такой запрос:
Запрос = СоздатьОбъект("Запрос"); ТекстЗапроса = " |Период с ВыбНачПериода по ВыбКонПериода; |Обрабатывать НеПомеченныеНаУдаление; |ОбрабатыватьДокументы Проведенные; |Док = Документ.ПриходнаяНакладнаяГТД.ТекущийДокумент, Документ.ПриходнаяНакладнаяЗапасы.ТекущийДокумент, Документ.ПриходнаяНакладнаяПрочие.ТекущийДокумент, Документ.УслугиСтороннихОрганизаций.ТекущийДокумент; |Контрагент= Документ.ПриходнаяНакладнаяГТД.Контрагент, Документ.ПриходнаяНакладнаяЗапасы.Контрагент, Документ.ПриходнаяНакладнаяПрочие.Контрагент, Документ.УслугиСтороннихОрганизаций.Контрагент; |Группировка Контрагент упорядочить по ТМЦ.Наименование без групп; |Группировка Док;";
и соответственно обход по запросу
Пока Запрос.Группировка(1) = 1 Цикл Контрагент = Запрос.Контрагент; Если ПустоеЗначение(Контрагент) = 1 Тогда Продолжить; КонецЕсли; Таб.ВывестиСекцию("Строка"); КонецЦикла;
или если нужны данные по документам
Пока Запрос.Группировка(1) = 1 Цикл Контрагент = Запрос.Контрагент; Если ПустоеЗначение(Контрагент) = 1 Тогда Продолжить; КонецЕсли; Пока Запрос.Группировка(2) = 1 Цикл Док = Запрос.Док; Таб.ВывестиСекцию("Строка"); КонецЦикла; КонецЦикла;
Кто на свете всех милей, Всех румяней и белей? Из всех знаков гороскопа - Это точно Водолей. Кто хитрее, кто ловчее, Кто откроет сто дверей? Из всех знаков гороскопа – Это точно Водолей. Кто имеет сто друзей, Кто герой планеты всей? Из всех знаков гороскопа – Это точно Водолей. Я душой желаю всей, Будь счастливым Водолей, В жизни сможешь ты добиться Исполнения всех затей.
Так вроде еще и после апреля 2011 г. релиз был, где также менялся круто план счетов?
в 288 релизе менялся план счетов, если не ошибаюсь, разбили 48 на субсчета но из собственного недавнего опыта с 286 до 291 план счетов обновился нормально( правда в той базе не велся учет по 48 счету0
предлагаю свой вариант, потратила конечно не 5мин, а где-то 10-15 проверен на аналогичном справочнике и подчиненном ему - работает первый запрос - выдает тех Контрагентов, у которых есть подчиненные КатегорииКонтрагентов, но реквизит Категории пустой, а второй - тех Контрагентов, у которых НЕТ подчиненных КатегорииКонтрагентов
Перем СпрПодч;
//******************************************* Функция НаличиеПодчСпр(Владелец) СпрПодч.ИспользоватьВладельца(Владелец); Возврат СпрПодч.ВыбратьЭлементы(); КонецФункции //НаличиеПодчСпр
//******************************************* Процедура Сформировать() Запрос = СоздатьОбъект("Запрос"); ТекстЗапроса = "//{{ЗАПРОС(Сформировать) |Владелец = Справочник.КатегорииКонтрагентов.Владелец; |Категории = Справочник.КатегорииКонтрагентов.Категории; |Группировка Владелец без групп; |Условие(ПустоеЗначение(Категории)=1); |"//}}ЗАПРОС ; Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда Возврат; КонецЕсли;
Таб = СоздатьОбъект("Таблица"); Пока Запрос.Группировка(1) = 1 Цикл пВладелец = Запрос.Владелец; Таб.ВывестиСекцию("Строка"); КонецЦикла; Таб.ТолькоПросмотр(1); Таб.Показать("Сформировать", "");
1С Предприятие 8.3, 1С Предприятие 8.2, 1С Предприятие 8.1, 1С Предприятие 8.0, 1С Предприятие 7.7, Литература 1С, Общие вопросы по администрированию 1С, Методическая поддержка 1С - всё в одном месте: на Украинском 1С форуме!
< 1 2 3 4 >
