Версия для печати темы Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > 1C: Предприятие, SAP, ERP и учётные системы > Таблица значений

Автор: Strucka 26.8.2007, 17:10

У меня такая вот проблемка.  Мне нужно пройтись по документами и записать инфу в ТЗ.  Я написал такую процедурку Код Процедура ЗаполнитьТЗ(ТЗ,знач док,НомерПозиции)     Дк = СоздатьОбъект("Документ.Перемещение");     Дк=Док;     дк.ВыбратьСтроки();      Пока дк.получитьстроку()>0 Цикл         тз.Новаястрока(НомерПозиции);         тз.УстановитьЗначение(НомерПозиции, 1, дк.товар.наименование);         тз.УстановитьЗначение(НомерПозиции, 2, дк.Количество);         тз.УстановитьЗначение(НомерПозиции, 4, дк.Цена);         тз.УстановитьЗначение(НомерПозиции, 3, дк.Сумма);         тз.УстановитьЗначение(НомерПозиции, 5, дк.Единица.наименование);         НомерПозиции=НомерПозиции+1;         КонецЦикла; КонецПроцедуры по идее я вызываю её после того, как оперделяю , что я получил нужный документ. Так как метод выгрузить в ТЗ её перезаписывает. Так вот я вызываю этот метод следующим образом. Я где то в модуле определяю      Тз.новаястрока(1);      тмп=Тз.количествоСтрок(); а потом процедурой этой мне по идее переменная тмп накапливается. У мня вроде бы получилось и обработа работает, если не заданы доп. условия. А вот если заданы , то начинаются проблемы. Проблемы скорее всего в условии или в процедурке этой?

Автор: Zero 26.8.2007, 20:00

Цитата(Strucka @  26.8.2007,  17:10 ) А вот если заданы , то начинаются проблемы. Проблемы скорее всего в условии или в процедурке этой? Ты считаешь форумчан телепатами, неговоря о том какие проблемы у тебя начались? 1. Напиши поподробнее информацию о самой поставленой задачи; 2. Опиши конкретную проблему, которая у тебя возникает; 3. Приведи кусок кода, который ты сделал, и в нём возникает та самая проблема.

Автор: Strucka 26.8.2007, 20:51

Будет ли та процедура ,которую я описал выше  работать правильно , если я буду вызывать её для тех документов, которые удовлетворяют условию? Условие значение не имеет. Важно , что я отбираю документ по какому-нибудь признаку, например по времени создания и заношу информацию табличной части в ТЗ.

Автор: Zero 26.8.2007, 21:26

Цитата(Strucka @  26.8.2007,  20:51 ) Условие значение не имеет. Условия бывают разный, и во многих случаях они значения имеют. В данном случае нужно смотреть, на то каким образом будешь производить этот самый отбор документов. А вобще, я бы твоё процедурку немного бы переделал так: Код Процедура ЗаполнитьТЗ(ТЗ, Док, НомерПозиции)     Дк = СоздатьОбъект("Документ.Перемещение");     Дк.НайтиДокумент(Док);     Дк.ВыбратьСтроки();      Пока Дк.ПолучитьСтроку() = 1 Цикл         тз.Новаястрока(НомерПозиции);         тз.УстановитьЗначение(НомерПозиции, 1, дк.товар.наименование);         тз.УстановитьЗначение(НомерПозиции, 2, дк.Количество);         тз.УстановитьЗначение(НомерПозиции, 4, дк.Цена);         тз.УстановитьЗначение(НомерПозиции, 3, дк.Сумма);         тз.УстановитьЗначение(НомерПозиции, 5, дк.Единица.наименование);         НомерПозиции=НомерПозиции+1;         КонецЦикла; КонецПроцедуры Вроде так должно работать будет...   Навскидку больше телепатическими способностями сказаь неполучиться. Если какие-то проблемы будут взникать, тогда пиши и поподробнее описывай проблему Добавлено через 5 минут и 43 секунды Ещё, как ты вызываешь данную процедуру. Меня интересует как ты указываешь параметры при её вызове? PS: я думаю тебе нужно процедуру, чтобы небыло входного параметра "НомерПозиции", он у тебя менятся при выполнении процедуры, и при выходе из процедуры уничтожаеться деструктором. А при вызове процедуры для переноса строк уже из второго документа, могут возникнуть глюки, если третий параметр будет не так указан. Который вообще и ненужен. Привижи лучше позицыю таблицы к количеству строк в таблице, по идеи это количество должно совпадать с этим самым номером позиции.  Добавлено через 14 минут и 2 секунды СТОП!!!   А есть же у документа метод: ВыгрузитьТабличнуюЧасть(<ТаблЗнач>,<Колонки>), и в свою очередь у таблицы значений есть метод Выгрузить(<Знач>,<НачСтрока>,<КонСтрока>,<Колонки>), который можно использовать для заполнения главной твоей таблицы из временной, куда данные поступают из документа.

Автор: Strucka 26.8.2007, 21:44

именно для этого я и сделал так , чтобы процедура изменяла это значение. Дело в том , что мне нужно проверить множество условий (если конечный юзверь их указывает) и каждый раз когда я должен буду записать данные из документа я должен знать количество строк, которое уже есть в ТЗ (поэтому я решил не вызывать каждый раз номерпоз=Тз.количествострок(); перед вызовом процедуры, а инициализировать этот параметр(номерпозиции) перед циклом (отбор документов по дате), а далее изменять его в зависимости от того ,сколько данных записываем)  и с помощью процедуры дописывать её. Все условия, которые я проверяю являются атрибутами шапки документа (т.е сравниваю атрибуты шапки с данными выбранными юзверем). Так что с этой стороны проблема может быть только в том, что я напортачил с описанием этих условий в самом 1с. Пока вариант условий которые надо проверить выглядит так(в моем исполнении 8)) Код     док = СоздатьОбъект("Документ.Перемещение");     ТЗ = СоздатьОбъект("ТаблицаЗначений");      ТЗ.НоваяКолонка("Товар","Строка",100);     ТЗ.НоваяКолонка("Количество","Число",9,3);     ТЗ.НоваяКолонка("Цена","Число",12,2);      ТЗ.НоваяКолонка("Сумма","Число",12,2);     ТЗ.НоваяКолонка("Единица","Строка",5);     Тз.новаястрока(1);      тмп=Тз.количествоСтрок(); если док.ВыбратьДокументы(ДатаОтчета, ДатаКонца)=1 Тогда         Пока док.получитьДокумент()=1 Цикл              если Док.ПометкаУдаления() = 0 тогда                  ВремяДок=док.ПолучитьВремя(Ч,М,С);                 ВремяДок=Лев(ВремяДок,2)+Сред(ВремяДок,4,2)+Прав(ВремяДок,2);                   времядок=число(ВремяДок);                 Сообщить(времядок);                 если (ПустаяСтрока(Время1)=0) и (пустаястрока(время2)=0) тогда                      если  (времядок>=число(время1)) и (времядок<=Число(время2)) Тогда                                     если ВыбПолучатель1.выбран()=1 Тогда                             если ВыбОтправитель1.выбран()=1 Тогда                                 если Смена1.выбран()=1 Тогда                                     Если (док.Склад= ВыбОтправитель1) и (док.СкладПолучатель = ВыбПолучатель1) и (док.смена= Смена1) Тогда                                         //тмп=Тз.КоличествоСтрок();                                          ЗаполнитьТЗ(ТЗ,док,тмп);                                         //док.ВыгрузитьТабличнуюЧасть(ТЗ,"Товар,Количество,Цена,Сумма");                                     КонецЕсли;                                     иначе                                      Если (док.Склад= ВыбОтправитель1) и (док.СкладПолучатель = ВыбПолучатель1) Тогда                                         //тмп=Тз.КоличествоСтрок();                                          ЗаполнитьТЗ(ТЗ,док,тмп) ;                                         //док.ВыгрузитьТабличнуюЧасть(ТЗ,"Товар,Количество,Цена,Сумма");                                     КонецЕсли;                                  КонецЕсли;                                                                 иначе                                 Если Смена1.выбран()=1 Тогда                                     Если (док.Смена = Смена1)и(док.СкладПолучатель = ВыбПолучатель1) Тогда                                         //тмп=Тз.КоличествоСтрок();                                          ЗаполнитьТЗ(ТЗ,док,тмп) ;                                         //док.ВыгрузитьТабличнуюЧасть(ТЗ,"Товар,Количество,Цена,Сумма");                                     КонецЕсли;                                   Иначе                                       если (док.СкладПолучатель = ВыбПолучатель1) Тогда                                         //тмп=Тз.КоличествоСтрок();                                          ЗаполнитьТЗ(ТЗ,док,тмп);                                         //док.ВыгрузитьТабличнуюЧасть(ТЗ,"Товар,Количество,Цена,Сумма");                                     КонецЕсли;                                 КонецЕсли;                                 КонецЕсли;                                 Иначе                              Если ВыбОтправитель1.выбран()=1 Тогда                                  если Смена1.Выбран()=1 тогда                                      Если (док.Смена = Смена1)и(док.Склад = ВыбОтправитель1) Тогда                                              //тмп=Тз.КоличествоСтрок();                                          ЗаполнитьТЗ(ТЗ,док,тмп) ;                                         // док.ВыгрузитьТабличнуюЧасть(ТЗ,"Товар,Количество,Цена,Сумма");                                     КонецЕсли;                                 Иначе                                     если (док.Склад = ВыбОтправитель1) Тогда                                          //тмп=Тз.КоличествоСтрок();                                          ЗаполнитьТЗ(ТЗ,док,тмп);                                         //док.ВыгрузитьТабличнуюЧасть(ТЗ,"Товар,Количество,Цена,Сумма");                                     КонецЕсли;                                 КонецЕсли;                              Иначе                                 если Смена1.Выбран()=1 тогда                                     если (док.Смена = Смена1) тогда                                          //тмп=Тз.КоличествоСтрок();                                          ЗаполнитьТЗ(ТЗ,док,тмп) ;                                         //док.ВыгрузитьТабличнуюЧасть(ТЗ,"Товар,Количество,Цена,Сумма");                                     КонецЕсли;                                     //иначе док.ВыгрузитьТабличнуюЧасть(ТЗ,"Товар,Количество,Цена,Сумма");                                 КонецЕсли;                             КонецЕсли;                             КонецЕсли;                         если ВыбОтправитель1.выбран()=1 Тогда                             если ВыбПолучатель1.выбран()=1 Тогда                                  если Смена1.выбран()=1 Тогда                                     Если (док.Склад= ВыбОтправитель1) и (док.СкладПолучатель = ВыбПолучатель1) и (док.смена= Смена1) Тогда                                          //тмп=Тз.КоличествоСтрок();                                          ЗаполнитьТЗ(ТЗ,док,тмп);                                         //док.ВыгрузитьТабличнуюЧасть(ТЗ,"Товар,Количество,Цена,Сумма");                                     КонецЕсли;                                     иначе                                      Если (док.Склад= ВыбОтправитель1) и (док.СкладПолучатель = ВыбПолучатель1) Тогда                                         //тмп=Тз.КоличествоСтрок();                                          ЗаполнитьТЗ(ТЗ,док,тмп) ;                                         //док.ВыгрузитьТабличнуюЧасть(ТЗ,"Товар,Количество,Цена,Сумма");                                     КонецЕсли;                                  КонецЕсли;                             иначе                                 Если Смена1.выбран()=1 Тогда                                     Если (док.Смена = Смена1)и(док.Склад = ВыбОтправитель1) Тогда                                         //тмп=Тз.КоличествоСтрок();                                          ЗаполнитьТЗ(ТЗ,док,тмп);                                         //    док.ВыгрузитьТабличнуюЧасть(ТЗ,"Товар,Количество,Цена,Сумма");                                     КонецЕсли;                                   Иначе                                       если (док.Склад = ВыбОтправитель1) Тогда                                         //тмп=Тз.КоличествоСтрок();                                          ЗаполнитьТЗ(ТЗ,док,тмп)  ;                                         //док.ВыгрузитьТабличнуюЧасть(ТЗ,"Товар,Количество,Цена,Сумма");                                     КонецЕсли;                                 КонецЕсли;                                 КонецЕсли;                         Иначе                             Если ВыбПолучатель1.выбран()=1 Тогда                                  если Смена1.Выбран()=1 тогда                                      Если (док.Смена = Смена1)и(док.СкладПолучатель = ВыбПолучатель1) Тогда                                         //тмп=Тз.КоличествоСтрок();                                          ЗаполнитьТЗ(ТЗ,док,тмп) ;                                         //док.ВыгрузитьТабличнуюЧасть(ТЗ,"Товар,Количество,Цена,Сумма");                                     КонецЕсли;                                 Иначе                                     если (док.Склад = ВыбПолучатель1) Тогда                                          //тмп=Тз.КоличествоСтрок();                                          ЗаполнитьТЗ(ТЗ,док,тмп);                                         //    док.ВыгрузитьТабличнуюЧасть(ТЗ,"Товар,Количество,Цена,Сумма");                                     КонецЕсли;                                 КонецЕсли;                              Иначе                                 если Смена1.Выбран()=1 тогда                                     если (док.Смена = Смена1) тогда                                       //    тмп=Тз.КоличествоСтрок();                                          ЗаполнитьТЗ(ТЗ,док,тмп);                                         //    док.ВыгрузитьТабличнуюЧасть(ТЗ,"Товар,Количество,Цена,Сумма");                                     КонецЕсли;                                 КонецЕсли;                             КонецЕсли;                             КонецЕсли;                         если Смена1.выбран()=1 Тогда                              если ВыбПолучатель1.выбран()=1 Тогда                                 если ВыбОтправитель1.выбран()=1 Тогда                                     Если (док.Склад= ВыбОтправитель1) и (док.СкладПолучатель = ВыбПолучатель1) и (док.смена= Смена1) Тогда                                      //    тмп=Тз.КоличествоСтрок();                                          ЗаполнитьТЗ(ТЗ,док,тмп) ;                                         //    док.ВыгрузитьТабличнуюЧасть(ТЗ,"Товар,Количество,Цена,Сумма");                                     КонецЕсли;                                     иначе                                      Если (док.СкладПолучатель= ВыбПолучатель1) и (док.Смена = Смена1) Тогда                                         //    тмп=Тз.КоличествоСтрок();                                          ЗаполнитьТЗ(ТЗ,док,тмп) ;                                         //    док.ВыгрузитьТабличнуюЧасть(ТЗ,"Товар,Количество,Цена,Сумма");                                     КонецЕсли;                                  КонецЕсли;                                                                 иначе                                 Если ВыбОтправитель1.выбран()=1 Тогда                                     Если (док.Склад = ВыбОтправитель1)и(док.смена = смена1) Тогда                                         //тмп=Тз.КоличествоСтрок();                                          ЗаполнитьТЗ(ТЗ,док,тмп);                                         //    док.ВыгрузитьТабличнуюЧасть(ТЗ,"Товар,Количество,Цена,Сумма");                                     КонецЕсли;                                   Иначе                                       если (док.Смена = смена1) Тогда                                           //тмп=Тз.КоличествоСтрок();                                          ЗаполнитьТЗ(ТЗ,док,тмп) ;                                         //док.ВыгрузитьТабличнуюЧасть(ТЗ,"Товар,Количество,Цена,Сумма");                                     КонецЕсли;                                 КонецЕсли;                                 КонецЕсли;                         Иначе                              Если ВыбОтправитель1.выбран()=1 Тогда                                  если ВыбПолучатель1.Выбран()=1 тогда                                      Если (док.СкладПолучатель = ВыбПолучатель1)и(док.Склад = ВыбОтправитель1) Тогда                                         //тмп=Тз.КоличествоСтрок();                                          ЗаполнитьТЗ(ТЗ,док,тмп);                                         // док.ВыгрузитьТабличнуюЧасть(ТЗ,"Товар,Количество,Цена,Сумма");                                     КонецЕсли;                                 Иначе                                     если (док.Склад = ВыбОтправитель1) Тогда                                          //тмп=Тз.КоличествоСтрок();                                          ЗаполнитьТЗ(ТЗ,док,тмп);                                         //    док.ВыгрузитьТабличнуюЧасть(ТЗ,"Товар,Количество,Цена,Сумма");                                     КонецЕсли;                                 КонецЕсли;                              Иначе                                 если ВыбПолучатель1.Выбран()=1 тогда                                     если (док.СкладПолучатель = ВыбПолучатель1) тогда                                           //тмп=Тз.КоличествоСтрок();                                          ЗаполнитьТЗ(ТЗ,док,тмп);                                         //    док.ВыгрузитьТабличнуюЧасть(ТЗ,"Товар,Количество,Цена,Сумма");                                     КонецЕсли;                                 КонецЕсли;                             КонецЕсли;                             КонецЕсли;                         если (ВыбПолучатель1.Выбран()=0) и (ВыбОтправитель1.Выбран()=0) и (Смена1.Выбран()=0) Тогда                              //тмп=Тз.КоличествоСтрок();                              ЗаполнитьТЗ(ТЗ,док,тмп);                             //док.ВыгрузитьТабличнуюЧасть(ТЗ,"Товар,Количество,Цена,Сумма");                         КонецЕсли;                         Иначе Сообщить("Время"+ времядок+ "не совпадает с "+Число(время1)+" "+Число(время2));                                              КонецЕсли;                 иначе Сообщить("Время не задано");                 КонецЕсли;              КонецЕсли;                      КонецЦикла;     КонецЕсли;  Думаю теперь понятно почему я не стал писать весь текст с самого начала 8))))  Я думаю там можно кусок проверок убрать. Буду завтра на работе этим заниматься.

Автор: Strucka 26.8.2007, 22:00

А есть же у документа метод: ВыгрузитьТабличнуюЧасть(<ТаблЗнач>,<Колонки>), и в свою очередь у таблицы значений есть метод Выгрузить(<Знач>,<НачСтрока>,<КонСтрока>,<Колонки>), который можно использовать для заполнения главной твоей таблицы из временной, куда данные поступают из документа. Попробую завтра заменить процедурку на это, в принципе должно работать.

Автор: Strucka 28.8.2007, 17:37

короче решил все, все условия выполняются верно. Сделал отчет , но делал его ручками, т.е вообще без секций. Все приняли, но сказали на ка тебе для общего развития задачку переделать отчет следующим образом. 1) чтобы все было с секциями Сделал А потом дали задание посложнее: Сделать отчет разбитым на отдельные части. Т.е элементы которые я вывожу в справочнике являются элементами различных групп. И мне нужно вывести теперь все элементы разбив их по группам.  Я приступил к выполнению и наткнулся на загвоздку еще до начала переделки таблицы отчета. Значит так воть: есть список значений, в котором находятся группы , которые есть в справочнике (именно объект хранится в списке). Как организовать проверку из многострочной части документа (в ней хранится элемент типа справночник), такую , чтобы была проверена принадлежность элемента мнгстр. части документа к группе, записанной в спискезн. и возвратить позицию совпавшей группы из списка? Так я хочу сделать чтобы заполнить колонку, которую я завел в тз. В колонке должно находится название Группы для текущего элемента.

Автор: Zero 28.8.2007, 18:49

1 топик = 1 вопрос

Автор: Strucka 29.8.2007, 16:43

дык это к этой задаче относится просто 8) Да и сделал уже 8) Правда я так и не понял почему при помещении в список значений элемент отказывался сравниватьс потом. Но я сделал забив в список наименования групп, так все вышло 8)

Автор: danich 3.9.2007, 07:52

Процедура ЗаполнитьТЗ(ТЗ,знач док)     Если ПустоеЗначение(док)=1 тогда         Врзврат;     КонецЕсли;     Дк = СоздатьОбъект("Документ.Перемещение");     Дк.НайтиДокумент(Док);     дк.ВыбратьСтроки();      Пока дк.получитьстроку()>0 Цикл         тз.Новаястрока();         НомерПозиции=тз.КоличествоСтрок();         тз.УстановитьЗначение(НомерПозиции, 1, дк.товар.наименование);         тз.УстановитьЗначение(НомерПозиции, 2, дк.Количество);         тз.УстановитьЗначение(НомерПозиции, 4, дк.Цена);         тз.УстановитьЗначение(НомерПозиции, 3, дк.Сумма);         тз.УстановитьЗначение(НомерПозиции, 5, дк.Единица.наименование);     КонецЦикла; КонецПроцедуры убрать лишние переменные, которве неизвестно где переопределяются

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)