|   |   | 
| 
 | v7: Прошу вашей помощи очень надо | ☑ | ||
|---|---|---|---|---|
| 0
    
        walkman315 19.10.12✎ 16:37 | 
        Всем привет))
  только не давно начал изучать 1с, есть некий уже отчет в который нужно добавить Таблицу значений(уже добавил), и прописать так, чтобы при нажатии на ТМЦ указывая период, все выводилось в эту таблицу(тмц, еденица измерения, количество).Очень прошу вашей помощи Процедура ОбновитьТБ() х=2; КонецПроцедуры //******************************************* // Процедура генерации запроса Сформировать. // Процедура Сформировать() Перем Запрос, ТекстЗапроса, Таб; //Создание объекта типа Запрос Запрос = СоздатьОбъект("Запрос"); ТекстЗапроса = "//{{ЗАПРОС(Сформировать) |Период с дата1 по дата2; |Куда = Документ.ПеремещениеТМЦ.Подразделение1; |ТМЦ = Документ.ПеремещениеТМЦ.ТМЦ; |Кво = Документ.ПеремещениеТМЦ.Кво; |ТекущийДокумент = Документ.ПеремещениеТМЦ.ТекущийДокумент; |Функция КвоСумма = Сумма(Кво); |Группировка Куда; |Группировка ТМЦ; |Группировка ТекущийДокумент;"; Если фТмц.Выбран()=1 тогда Если фТмц.ЭтоГруппа()=1 тогда ТекстЗапроса =ТекстЗапроса+"Условие(ТМЦ в фТМЦ);"; иначе ТекстЗапроса =ТекстЗапроса+"Условие(ТМЦ=фТМЦ);"; Конецесли; Конецесли; Если фСклад.Выбран()=1 тогда Если фТмц.ЭтоГруппа()=1 тогда ТекстЗапроса =ТекстЗапроса+"Условие(Куда в фСклад);"; иначе ТекстЗапроса =ТекстЗапроса+"Условие(Куда = фСклад);"; конецесли; Конецесли; // Если ошибка в запросе, то выход из процедуры Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда Возврат; КонецЕсли; нпп=0; // Подготовка к заполнению выходных форм данными запроса Таб = СоздатьОбъект("Таблица"); Таб.ИсходнаяТаблица("Таблица"); // Заполнение полей "Заголовок" Таб.ВывестиСекцию("шапка"); Состояние("Заполнение выходной таблицы..."); Таб.Опции(0, 0, Таб.ВысотаТаблицы(), 0); Пока Запрос.Группировка(1) = 1 Цикл // Заполнение полей Куда Таб.ВывестиСекцию("грп"); Пока Запрос.Группировка(2) = 1 Цикл Пока Запрос.Группировка(3) = 1 Цикл нпп=нпп+1; Таб.ВывестиСекцию("стр"); КонецЦикла; КонецЦикла; КонецЦикла; // Заполнение полей "Итого" //Таб.ВывестиСекцию("Итого"); // Вывод заполненной формы Таб.ТолькоПросмотр(1); Таб.Показать("Сформировать", ""); КонецПроцедуры //======================================== Процедура ПриОткрытии() Дата2=ТекущаяДата(); Дата1=НачМесяца(Дата2); ОбновитьТБ(); КонецПроцедуры //======================================== Процедура ИзмСклад() ОбновитьТБ(); КонецПроцедуры //ИзмСклад() //======================================== Процедура Выгрузить() ОбновитьТБ(); КонецПроцедуры //Выгрузить() //======================================== Процедура ИзмТМЦ() ОбновитьТБ(); КонецПроцедуры | |||
| 1
    
        mikecool 19.10.12✎ 16:38 | ||||
| 2
    
        ГдеСобака Зарыта 19.10.12✎ 16:43 | 
        Запрос.Выгрузить(ТвояТЗ,0,0);     | |||
| 3
    
        walkman315 19.10.12✎ 16:45 | 
        а куда это вписывать, подскажи     | |||
| 4
    
        KRV 19.10.12✎ 16:46 | 
        в туда     | |||
| 5
    
        Wobland 19.10.12✎ 16:46 | 
        (3) раз недавно начал, подсказываю. берёшь СП, читаешь про Выгрузить(), думаешь, что ГдеСобакаЗарыта имел в виду, применяешь     | |||
| 6
    
        Wobland 19.10.12✎ 16:47 | 
        так, для справки: недавно начал с 1С или с программингом вообще? откуда молодые семёрочники прилетают?     | |||
| 7
    
        walkman315 19.10.12✎ 16:49 | 
        блин не ужеле так тяжело сказать
  ГдеСобакаЗарыта, большое тебе спасибо, буду пробывать.....я думала тут все такие люди понимающие | |||
| 8
    
        Надсмотрщик 19.10.12✎ 16:50 | 
        (7) Еще и без фото!     | |||
| 9
    
        Wobland 19.10.12✎ 16:50 | 
        (7) тут гады и сволочи кругом. некоторые даже тыкают к каждую орфографическую ошибку. потыкать?     | |||
| 10
    
        walkman315 19.10.12✎ 16:51 | 
        с программингом знакома давненько, 1С только начала изучать, я по книге и так работаю, просто в ней этого нету     | |||
| 11
    
        walkman315 19.10.12✎ 16:55 | ||||
| 12
    
        walkman315 19.10.12✎ 16:55 | ||||
| 13
    
        walkman315 19.10.12✎ 16:55 | ||||
| 14
    
        walkman315 19.10.12✎ 16:56 | ||||
| 15
    
        mikecool 19.10.12✎ 16:56 | 
        (14) это не твое фото     | |||
| 16
    
        Wobland 19.10.12✎ 16:56 | 
        что это? кидала б уже обработку целиком, раз сама не в силах подумать...     | |||
| 17
    
        GLazNik 19.10.12✎ 16:57 | 
        охохо
  Выгрузить(<?>,,) Синтаксис: Выгрузить(<ТаблЗнач>,<Флаг>,<Итоги>) Назначение: Выгружает результаты запроса в таблицу значений. Возвращает число: 1 - если выгрузка произошла успешно, иначе - 0. Параметры: <ТаблЗнач> - Таблица значений, куда выгружаются результаты запроса. <Флаг> - необязательный параметр. Число или строка: 0 - значения групп и функций (по умолчанию); 1 - значения групп и функций, дополнительных переменных; 2 - значения упорядочиваний групп и функций; 3 - значения упорядочиваний групп и функций, дополнительных переменных; Строка - '' Товар(1), Товар(2), Товар, Склад, Приход, Расход'', где Товар(1) - значение первого упорядочивания группировки ''Товар''. <Итоги> - необязательный параметр. Число: 0 - итоги по группировкам не выводить; 1 - итоги по группировкам выводить сверху (по умолчанию); 2 - итоги по группировкам выводить снизу; 3 - итоги по группировкам выводить сверху и снизу. | |||
| 18
    
        ГдеСобака Зарыта 19.10.12✎ 16:57 | 
        Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
  Возврат; КонецЕсли; Запрос.Выгрузить(ТабЗн,0,0); //Можно поробывать вставить | |||
| 19
    
        walkman315 19.10.12✎ 17:07 | 
        Все работает
  ГдеСобакаЗарыта огромное тебе спасибо | |||
| 20
    
        BlackSeaCat 19.10.12✎ 17:41 | 
        А по-моему, ошибка вот в этом:
  Процедура ОбновитьТБ() х=2; КонецПроцедуры Должно быть так: Процедура ОбновитьТБ() х=22; х.ЕдиницаИзмерения.Код="004"; КонецПроцедуры | |||
| 21
    
        Wobland 19.10.12✎ 17:48 | 
        (20) найди единицу по коду сначала ;)     | |||
| 22
    
        Смотрящий от 1С 19.10.12✎ 18:42 | 
        В качестве подразделения склад, а в качестве склада подразделение. Чтобы жизнь медом не казалась ))     | 
 
 | Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |