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

Выпуск № 374
от 12.12.2006, 20:35

Вопрос № 65.844

Здравствуйте! Снова с Вам за помощью. После выполнения процедуры Заполнить() заполнятся ТЗ, которая состоит из, например, 3-х колонок, строки заполняются вразнобой. Т.е., например, Аренда Налоги Зарплата 1200,00 1000,00 1300,00 300,00 а надо бы построчно. Надеюсь вопрос понятен. Помогите пожалуйста, а то по-всякому пробовала, и в итоге посылаю как писала изначально. И второй вопросик: можно ли из таблицы значений, нажав на Сумму, перейти для просмотра в документ из которого эта сумма взята? Приложение: Процедура Заполнить() ТЗ1.УдалитьСтроки(); Док = СоздатьОбЪект("Документ.РасходныйОрдер"); // Выбирам документы за период. Док.ВыбратьДокументы(ДатаНачала,ДатаКонца); //Проходим по каждому документу выбираем строки и заполняем 'ТаблицуЗначений'. Пока Док.ПолучитьДокумент()=1 Цикл Если Док.Выбран()=1 Тогда ТЗ1.НоваяСтрока(); // Заполняем ТЗ. Если Док.Субконто1=Перечисление.СтатьиИздержек.Аренда Тогда ТЗ1.Аренда=Док.Сумма; ИначеЕсли Док.Субконто1=Перечисление.СтатьиИздержек.ОплатаТруда Тогда ТЗ1.Зарплата=Док.Сумма; ИначеЕсли Док.Субконто1=Перечисление.СтатьиИздержек.Отчисления Тогда ТЗ1.Налоги=Док.Сумма; КонецЕсли; КонецЕсли; КонецЦикла; Если ТЗ1.КоличествоСтрок()=0 Тогда Предупреждение("За данный период нет расходов!",10); КонецЕсли; КонецПроцедуры

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

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

Ответ отправил: Vizli (статус: 5-ый класс) Ответ отправлен: 07.12.2006, 06:03 Оценка за ответ: 4 Комментарий оценки: Свернуть() не подойдет, мне это не нужно. А над 2) работаю, но что-то не получается.

Отвечает: Гребиников Павел Генадьевич Здравствуйте, Darina! А как вы хотите построчно??? Ведь у вас может идти подряд несколько документов с одинаковыми значениями, т.е. например Аренда может идти несколько раз. Если я правильно понял ВАм ндо чтоб было примерно так: Аренда/ Налоги/ Зарплата 1000/2000/3000 2000/4000/2000 и.т.д. тут можете попробовать при каждом новом значении искать последнюю заполненную нужную графу и вставлять туда ваше значение, что то типа как в приложении: в коде могут быть ошибки,и надо добавить обработчик вставки новой строки, но принцып, я думаю, понятен А насчет второго вопроса, то пользуйтесь предопределенной процедурой ОбработкаЯчейкиТаблицы(). Приложение: Если Док.Субконто1=Перечисление.СтатьиИздержек.Оплататруда Тогда ТЗ1.выбратьстроки(); пока тз1.получитьстроку()=1 цикл если пустоезначение(тз1.Зарплата)=1 тогда тз1.зарплата=док.сумма; прервать;//цикл прерывайте обязательно конецесли; конеццикла; --------- Плох тот юзер, который не мечтает стать админом...

Ответ отправил: Гребиников Павел Генадьевич (статус: Студент) Ответ отправлен: 07.12.2006, 07:01

Отвечает: Полозов Олег aka Asher Здравствуйте, Darina! Ну думаю, что надо как то вот так... Процедура Заполнить() ТЗ1.УдалитьСтроки(); Док = СоздатьОбЪект("Документ.РасходныйОрдер"); // Выбирам документы за период. Док.ВыбратьДокументы(ДатаНачала,ДатаКонца); //Проходим по каждому документу Пока Док.ПолучитьДокумент() = 1 Цикл Если Док.Выбран() = 1 Тогда Док.ВыбратьСтроки(); ТЗ1.НоваяСтрока(); СуммаАренда = 0; СуммаЗарплата = 0; СуммаНалоги = 0; // А вот сдесь выбираем строки Пока Док.ПолучитьСтроку() = 1 Цикл // Распихаем суммы по видам Если Док.Субконто1 = Перечисление.СтатьиИздержек.Аренда Тогда СуммаАренда = Док.Сумма; ИначеЕсли Док.Субконто1 = Перечисление.СтатьиИздержек.ОплатаТруда Тогда СуммаЗарплата = Док.Сумма; ИначеЕсли Док.Субконто1 = Перечисление.СтатьиИздержек.Отчисления Тогда СуммаНалоги = Док.Сумма; КонецЕсли; КонецЦикла; // И соберем в строку таблицы ТЗ1.Аренда = СуммаАренда; ТЗ1.Зарплата = СуммаЗарплата; ТЗ1.Налоги = СуммаЗарплата; КонецЕсли; КонецЦикла; Если ТЗ1.КоличествоСтрок()=0 Тогда Предупреждение("За данный период нет расходов!",10); КонецЕсли; КонецПроцедуры

Ответ отправил: Полозов Олег aka Asher (статус: 2-ой класс) Ответ отправлен: 07.12.2006, 08:01 Оценка за ответ: 4 Комментарий оценки: Получается также, как и у меня

Вопрос № 65.845

Здравствуйте! Снова к Вам за помощью. После выполнения процедуры Заполнить() заполнятся ТЗ, которая состоит из, например, 3-х колонок, строки заполняются вразнобой. Т.е., например, Аренда Налоги Зарплата 1200,00 1000,00 1300,00 300,00 а надо бы построчно. Надеюсь вопрос понятен. Помогите пожалуйста, а то по-всякому пробовала, и в итоге посылаю как писала изначально. И второй вопросик: можно ли из таблицы значений, нажав на Сумму, перейти для просмотра в документ из которого эта сумма взята? Приложение: Процедура Заполнить() ТЗ1.УдалитьСтроки(); Док = СоздатьОбЪект("Документ.РасходныйОрдер"); // Выбирам документы за период. Док.ВыбратьДокументы(ДатаНачала,ДатаКонца); //Проходим по каждому документу выбираем строки и заполняем 'ТаблицуЗначений'. Пока Док.ПолучитьДокумент()=1 Цикл Если Док.Выбран()=1 Тогда ТЗ1.НоваяСтрока(); // Заполняем ТЗ. Если Док.Субконто1=Перечисление.СтатьиИздержек.Аренда Тогда ТЗ1.Аренда=Док.Сумма; ИначеЕсли Док.Субконто1=Перечисление.СтатьиИздержек.ОплатаТруда Тогда ТЗ1.Зарплата=Док.Сумма; ИначеЕсли Док.Субконто1=Перечисление.СтатьиИздержек.Отчисления Тогда ТЗ1.Налоги=Док.Сумма; КонецЕсли; КонецЕсли; КонецЦикла; Если ТЗ1.КоличествоСтрок()=0 Тогда Предупреждение("За данный период нет расходов!",10); КонецЕсли; КонецПроцедуры

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

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

Ответ отправил: Краюшкин Игорь Валерьевич (статус: 6-ой класс) Ответ отправлен: 06.12.2006, 21:11 Оценка за ответ: 4 Комментарий оценки: Извините что непонятно написала. Сортировать() не подходит. Ссылка ставится, но мне то хотелось открыть ещё этот документ.

Отвечает: Гребиников Павел Генадьевич Здравствуйте, Darina! А как вы хотите построчно??? Ведь у вас может идти подряд несколько документов с одинаковыми значениями, т.е. например Аренда может идти несколько раз. Если я правильно понял ВАм ндо чтоб было примерно так: Аренда/ Налоги/ Зарплата 1000/2000/3000 2000/4000/2000 и.т.д. тут можете попробовать при каждом новом значении искать последнюю заполненную нужную графу и вставлять туда ваше значение, что то типа как в приложении: в коде могут быть ошибки,и надо добавить обработчик вставки новой строки, но принцып, я думаю, понятен А насчет второго вопроса, то пользуйтесь предопределенной процедурой ОбработкаЯчейкиТаблицы(). Приложение: Если Док.Субконто1=Перечисление.СтатьиИздержек.Оплататруда Тогда ТЗ1.выбратьстроки(); пока тз1.получитьстроку()=1 цикл если пустоезначение(тз1.Зарплата)=1 тогда тз1.зарплата=док.сумма; прервать;//цикл прерывайте обязательно конецесли; конеццикла; --------- Плох тот юзер, который не мечтает стать админом...

Ответ отправил: Гребиников Павел Генадьевич (статус: Студент) Ответ отправлен: 07.12.2006, 07:01 Оценка за ответ: 4 Комментарий оценки: Надо будет попробовать "искать последнюю заполненную нужную графу". Вы правильно поняли. А с ОбработкаЯчейкиТаблицы() еще не разобралась, мне то нужно переходить в документ из ТЗ

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

Ответ отправил: Elric (статус: Практикант) Ответ отправлен: 08.12.2006, 11:29 Оценка за ответ: 4 Комментарий оценки: Спасибо за ответ! Но Сотрудники тут не нужны

Вопрос № 65.934

Уважаемые эксперты! Подскажите пожалуйста. У меня есть документ для ввода поставок товаров. Этот документ имеет табличную часть - контейнера. Койтенеров может быть конечно разное количество у разных поставок. И мне надо, чтоб конкретно для каждого контейнера были введены выбранные товары с указанием веса и цены. Т е как бы у табличной части еще одна табличная часть. Но это , как я понимаю, невозможно. Не подскажите , как возможно это реализовать и какими методами. Заранее благодарна.

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

Отвечает: Зайцев Александр Здравствуйте, viko! Могу посоветовать использовать способ документа Авансовый отчет, где в табличную часть документа вводится документ "Строка авансового отчета". Вы так же можете добавить в конфигурацию документ "Контейнер", а в документ ввода поставок в табличную часть добавлять уже готовые документы "Контейнер"

Ответ отправил: Зайцев Александр (статус: Студент) Ответ отправлен: 07.12.2006, 12:30

Отвечает: Шахрайчук Владимир Анатольевич Здравствуйте, viko! Необходимо в табличной части добавить еще один реквизит ИмяКонтейнера. Приходная накладная будет иметь следующий вид Контейнер первый Пиво 23шт 2.40 55,20 Контейнер первый водка 35 шт 5,60 196,00 Конт№2 Пиво 16 шт 2,60 41,60 Красный конт Чипсы 156 шт 365,36 56996,16 Красный конт водка 1 шт 65,00 65,00 Немного некрасиво, но, если толково разяснить операционисту, как заполнять приходную накладную, то нормально. При печати же выгружаете табличную часть в ТЗ, сворачиваете как хотите, что хотите делаете и как хотите, печатаете. Имя контейнера может быть как Справочник.Контейнеры, так и число (номер контейнера), так и строка, я рекоммендую справочник. Второй вариант: (как у меня сделано производство кофе в кофейных аппаратах) Напиток Ингредиент шт/гр цена Кофе Пусто 18 1,10 Пусто Кофейный порошок 0,18 Пусто Пусто Сахар 0,36 Пусто Пусто Стакан 18 Пусто Чай Пусто 15 0,80 Пусто Чайный порошок 0,30 Пусто Пусто Сахар 0,45 Пусто Пусто Стакан 15 Пусто Печатная форма же печатает таблицу где по горизонтали ингредиенты по вертикали напитки Суть моего ответа сводится к тому, что двумерный массив (то, что Вам нужно) всегда можно представить как одномерный (ТабличнаяЧасть).

Ответ отправил: Шахрайчук Владимир Анатольевич (статус: Студент) Ответ отправлен: 07.12.2006, 12:47

Отвечает: Arkadiy Karanskiy Здравствуйте, viko! Мы используем Список Значений. Попробуй, мне кажется тебе он тоже подойдет :)... В конфигураторе можно задать количество колонок. Успехов...

Ответ отправил: Arkadiy Karanskiy (статус: 6-ой класс) Ответ отправлен: 07.12.2006, 17:21

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

Ответ отправил: Гребиников Павел Генадьевич (статус: Студент) Ответ отправлен: 08.12.2006, 07:08 Оценка за ответ: 4 Комментарий оценки: Спасибо большое. Такие мысли были,но я полагала,что в 8-ой версии есть какие-нибудь более элегантные связи. Ну ,скажем табличные части имеют ме&# 1078;ду собой какие-нибудь связи, а не только с реквизитами. Т к я только начинаю писать на этом языке, я и решила,что может быть мне это еще неизвестно и знающие люди могут по 076;сказать. Спасибо еще раз.

Вопрос № 65.974

(1С 8.0 УТ) Возникла такая проблема: необходимо почистить базу. Т.е. оставить реальные остатки по товару на складах и итоги по взаиморасчетам, а все старые документы из базы по этим движениям до нужной даты удалить.

Отправлен: 07.12.2006, 16:42 Вопрос задал: Черепнин В.В. (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Полозов Олег aka Asher Здравствуйте, Черепнин В.В.! В седьмой версии была такая обработка "СветркаИнформационнойБазы" (ну или что то вроде) Вам надо нарисовать что то вроде этого. Идея такая: 1. Снять Остатки по регистрам 2. Сформировать документы КорректировкаЗаписейРегистровНакопления на основании этих остатков. 3. Удалить документы.

Ответ отправил: Полозов Олег aka Asher (статус: 2-ой класс) Ответ отправлен: 08.12.2006, 02:45

© 2001-2006, Портал RusFAQ.ru, Россия, Москва. Идея, дизайн, программирование: Калашников О.А. Email: adm@rusfaq.ru, Тел.: +7 (926) 535-23-31 Авторские права | Реклама на портале Версия системы: 4.37 от 04.10.2006