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

Выпуск № 612
от 26.09.2007, 18:05

Вопрос № 102.806

Еще раз здравствуйте, уважаемые эксперты ! Еще раз хочу задать свой вопрос по печати документа в две колонки. Табличная часть документа должна печататься в две колонки, и данные нужно брать из ТЧ документа.Еще раз : есть документ с шестю колонками в Табличной Части (ТЧ). Если количество строк <=25 то все выводится в первой колонке , которая содержит данные из 6-ти колонок ТЧ, а если записей буде больше, то начинает заполнятся вторая колонка, как будто-бы перенос на вторую страницу.

Отправлен: 20.09.2007, 19:01 Вопрос задал: Заброцкий Андрей Игоревич (статус: Посетитель) Всего ответов: 4 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Астафьев Александр Николаевич Здравствуйте, Заброцкий Андрей Игоревич! Если у Вас 7.7 тогда: 1 выгрузите табличную часть документа в Таблицу значений 2 методом Кол = ТаблЗнач.КоличествоСтрок(); определите сколько у вас строк ну например Кол = 4 с хвостиком 3 задайте цикл - Для а = 0 по Цел(кол+2) цикл 4 задайте внутри предыдущего цикла цикл - Для Б = 1 по 25 Цикл 5 и выводите на печать через метод Если (А+Б)<=ТаблЗнач.КоличествоСтрок() Тогда ТаблЗнач.ПолучитьСтрокуПоНомеру(А+Б); Таб.ВывестиСекцию("строка"); Если (А+Б+25)<=ТаблЗнач.КоличествоСтрок() Тогда ТаблЗнач.ПолучитьСтрокуПоНомеру(А+Б); Таб.ПрисоединитьСекцию("строка"); КонецЕсли; КонецЕсли; Полностью процедуру не пишу т.к считаю - програмист должен сам работать иначе он не сможет сам что либо писать. Задачка честно говоря для начинающих.

Ответ отправил: Астафьев Александр Николаевич (статус: 1-ый класс) Ответ отправлен: 20.09.2007, 19:51

Отвечает: Dmitry Stashenko Здравствуйте, Заброцкий Андрей Игоревич! Да, это немного меняет дело :) В таком случае предлагаю две таблицы значений, в первую заносишь от 1 до 25, во вторую дальше. Вывод на печать соответственно строки с двумя колонками. В первой - данные из первой таблицы значений, во второй - со второй. Надеюсь, понятно. Удачи

Ответ отправил: Dmitry Stashenko (статус: 10-ый класс) Ответ отправлен: 20.09.2007, 20:15

Отвечает: Краюшкин Игорь Валерьевич Здравствуйте, Заброцкий Андрей Игоревич! Я Вам дам только направление для действий. В дальнейшем будт необходимо организовать множество доработок (например, когда закончатся строки и ПолучитьСтрокуПоНомеру() будет выдавать ошибку, когда строк более 50 и т.п.) Приложение: Ном = 0; Пока 1 = 1 Цикл Ном = Ном + 1; ПолучитьСтрокуПоНомеру(Ном); Таблица.ВывестиСекцию("ИдентификаторГоризонтальнойСекции|ИдентификаторВертикальнойСекции"); Если КоличествоСтрок() >= Ном + 25 Тогда ПолучитьСтрокуПоНомеру(Ном + 25); Таблица.ПрисоединитьСекцию("ИдентификаторГоризонтальнойСекции|ИдентификаторВертикальнойСекции"); КонецЕсли; КонецЦикла;

Ответ отправил: Краюшкин Игорь Валерьевич (статус: 10-ый класс) Ответ отправлен: 20.09.2007, 21:37

Отвечает: Elric Здравствуйте, Заброцкий Андрей Игоревич! В таблице-шаблоне печтной формы делаете 2 вертикальные секции (в примере "Кол1" и "Кол2" соответственно), горизонтальную секцию "Шапка" для заголовка и горизонтальную секцию "Строка" для вывода собственно строк. Выгружаете табличную часть документа в две таблицы значений (ТЗ1 и ТЗ2) -- так будет проще работать (код прозрачнее). Для "Кол1" данные будут браться из ТЗ1, для "Кол2" из ТЗ2. Выводите пересечение секций "Шапка|Кол1". Если количество строк в ТЗ1 больше 25, то присоединяете справа пересечение секций "Шапка|Кол2". Далее проходите построчно ТЗ1, выводя пересечение секций "Строка|Кол1". Если количество строк в ТЗ1 больше 25, то позиционируете ТЗ2 на строку ТЗ1.НомерСтроки()+25 и присоединяете справа пересечение секций "Строка|Кол2". У меня в Приложении формула в таблице-шаблоне сама берет данные из нужной строки ТЗ1 и ТЗ2 (см. прикрепленный файл). На случай, если строк больше чем 50 (т.е. уже 2 страницы и более), надо предусмотреть адекватное продолжение. В связи с этим немного усовершенствовал программный код. Модуль в Приложении, таблицу-шаблон поместил в прикрепленный файл. Приложение: Процедура Печать() ТЗ1=СоздатьОбъект("ТаблицаЗначений"); ТЗ2=СоздатьОбъект("ТаблицаЗначений"); ВыгрузитьТабличнуюЧасть(ТЗ1); ВыгрузитьТабличнуюЧасть(ТЗ2); КолСтр=ТЗ1.КоличествоСтрок(); Т=СоздатьОбъект("Таблица"); Т.ВывестиСекцию("Шапка|Кол1"); Если КолСтр>25 Тогда Т.ВывестиСекцию("Шапка|Кол2"); КонецЕсли; Н=1; // номер строки Пока Н<=КолСтр Цикл Т.ВывестиСекцию("Строка|Кол1"); Если Н+25<=КолСтр Тогда Т.ВывестиСекцию("Строка|Кол2"); КонецЕсли; Если Н%25=0 Тогда // Мы на 25,50,75... строке // перескакиваем на следующую страницу Н=Н+25; КонецЕсли; // переход на следующую строку Н=Н+1; КонецЦикла; КонецПроцедуры Прикреплённый файл: Загрузить >> Срок хранения файла на сервере RusFAQ.ru составляет 30 суток с момента отправки ответа. --------- В творчестве рождается истина

Ответ отправил: Elric (статус: Специалист) Ответ отправлен: 20.09.2007, 23:23 Оценка за ответ: 5

Вопрос № 102.851

Добрый день, уважаемые Эксперты!!! Вопрос таков: В Форме списка справочника "Договоры" сделал графу Дог. реал., тип значения "Документ", при помощи которой выбираю документ после чего заполняются остальные графы указанного Справочника. Проблема в том, что при выборе документа экранная форма для выбора имеет 4 графы: Дата, Время, Документ и Номер. Соответственно все выглядит так: 20.09.07 15:25:49 Договор на ТЭУ 242 Возможно ли как-нибудь дополнить данную экранную форму дополнительными графами (напр.: Заказчик, Исполнитель и пр.)??? Буду очень благодарен за ответы!!!!

Отправлен: 21.09.2007, 09:50 Вопрос задал: Сазонов Алексей (статус: 6-ой класс) Всего ответов: 5 Мини-форум вопроса >>> (сообщений: 4)

Отвечает: DIMa@XX Здравствуйте, Сазонов Алексей! При выборе документа открывается по умолчанию "форма выбора" этого документа. Она находится в конфигураторе в формах документа. Если её там нет значит форма генерится на лету самой 1С. Сдесь два варианта: 1. Изменить (создать) форму выбора документа так как нужно, но тогда она изменится везде, где применяется выбор такого типа документа. 2. Создать произвольную форму у документа например "НоваяФормаВыбора". Можно просто копированием формы выбора изменить её как надо и вызывать таким образом Для поля выбора В событии "НачалоВыбора" прописать ФормаВыбора = Документы.НужныйДокумент.ПолучитьФорму("НоваяФормаВыбора",Элемент); ФормаВыбора.Открыть(); --------- Hайден неизвестный драйвер, воткните какое-нибудь устройство!

Ответ отправил: DIMa@XX (статус: 9-ый класс) Ответ отправлен: 21.09.2007, 10:10

Отвечает: Elric Здравствуйте, Сазонов Алексей! Вы не написали, в какой версии 1С решаете задачу. Отвечаю для версии 7.7. В свойствах документа "Договор на ТЭУ " у Вас указан Журнал документов, в котором он отображается. Именно этот из этого журнала Вы выбираете документ для справочника "Договоры". Предполагаю, что Вы создали новый журнал специально для этого вида документов, но форму для него сами не генерировали, поэтому он отображается в стандартном виде "по умолчанию". В Конфигураторе найдите этот журнал, создайте в нем графы (Заказчик, Исполнитель и т.д.), затем откройте форму журнала и вставьте в форму все колонки, которые Вам нужны. --------- В творчестве рождается истина

Ответ отправил: Elric (статус: Специалист) Ответ отправлен: 21.09.2007, 10:33

Отвечает: Dmitry Stashenko Здравствуйте, Сазонов Алексей! Это решается так: Конфигурация - журналы документов - нужный журнал - формы - нужная форма. Там есть кнопочка "Графы" (выглядит как лист с плюсиком). Ее нажимаешь, и добавляешь то, что надо Удачи

Ответ отправил: Dmitry Stashenko (статус: 10-ый класс) Ответ отправлен: 21.09.2007, 11:24 Оценка за ответ: 3 Комментарий оценки: Вы не совсем внимательно прочитали вопрос, при этом Ваш ответ дублирует предыдущий, данный почти час назад...

Отвечает: Kvark Здравствуйте, Сазонов Алексей! С какой конфигурацией работаете - Бухгалтерия Проф.? Предварительно можно ответить лишь что заказчик и исполнитель отслежваются по счетам 60, 62 (Отчеты - Журнал ордер по счету и т.д) где договор фигурирует как субконто к счету. Но возможно Ваш вопрос я непонял... --------- Один ум хорошо, а два лучше

Ответ отправил: Kvark (статус: 1-ый класс) Ответ отправлен: 22.09.2007, 15:15

Отвечает: Nikakoy Здравствуйте, Сазонов Алексей! Маленькое замечание.... Бывает, базы хотят свернуть, а после таких изменений это будет проблематично.... В таких случаях я добавляю строковый реквизит, позволяющий однозначно идентифицировать документ. Это может быть либо банальное ЗначениеВСтроку(), либо строка содержащая вид документа, его номер, период..... Далее, при открытии формы этот документ находится, и нужные реквизиты тащатся на форму О! Получилось наконец! Прошу прощения за лишние отправки!

Ответ отправил: Nikakoy (статус: 1-ый класс) Ответ отправлен: 22.09.2007, 22:10

Вопрос № 102.868

Добрый день. Вопрос такой. Как мне сделать выборку по Номенклатуре - Продукты (сумма, кол-во) и сохранить ее в dbf файл?

Отправлен: 21.09.2007, 12:01 Вопрос задал: Клевакин Михаил (статус: Посетитель) Всего ответов: 4 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Андрей Тимофеев Здравствуйте, Клевакин Михаил! Ответ такой. Берете открываете выборку по номенклатуре ( сумме, количеству) и результат своей выборки сохраняете в дбф файл.

Ответ отправил: Андрей Тимофеев (статус: 7-ой класс) Ответ отправлен: 21.09.2007, 12:52

Отвечает: Dmitry Stashenko Здравствуйте, Клевакин Михаил! Все необходимое есть в приложении. Путь c:123.dbf можно изменить на любой другой Приложение: Процедура ВыгрузкавДБФ() Спр = СоздатьОбъект("Справочник.Номенклатура"); ДБФ = СоздатьОбъект("XBase"); ДБФ.СоздатьФайл("c:123.dbf"); ДБФ.ДобавитьПоле("Сумма"); ДБФ.ДобавитьПоле("Колво"); Спр.ВыбратьЭлементы(); Пока Спр.ПолучитьЭлемент() = 1 Цикл ДБФ.Добавить(); ДБФ.Сумма = Спр.Сумма; ДБФ.Колво = Спр.Колво; КонецЦикла; ДБФ.Записать(); ДБФ.ЗакрытьФайл(); КонецПроцедуры

Ответ отправил: Dmitry Stashenko (статус: 10-ый класс) Ответ отправлен: 21.09.2007, 13:59

Отвечает: Elric Здравствуйте, Клевакин Михаил! Сумма и Колво -- это остаток номенклатуры на складе на конкретную дату? В какой конфигурации? Тогда строите запрос по регистру остатков (для Торговли или Комплексной конфигурации) или по бухгалтерским итогам (для Бухгалтерии) и потом записываете результат в dbf-файл. У меня в Приложении пример запроса по регистрам на дату ВыбКонПериода и запись в файл "c:123.dbf". Вместо самого элемента справочника записывается его код -- при желании, можете записать наименование и другие реквизиты. Приложение: Процедура ВыгрузкавДБФ() // Создаем запрос Запрос = СоздатьОбъект("Запрос"); ТекстЗапроса = "//{{ЗАПРОС(Сформировать) |Период с ВыбКонПериода по ВыбКонПериода; |ТМЦ = Регистр.Партии.ТМЦ; |ОстатокТовара = Регистр.Партии.ОстатокТовара; |Стоимость = Регистр.Партии.Стоимость; |Функция Колво = КонОст(ОстатокТовара); |Функция Сумма = КонОст(Стоимость); |Группировка ТМЦ без групп; |"//}}ЗАПРОС ; Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда Возврат; КонецЕсли; // Создаем dbf-файл ДБФ = СоздатьОбъект("XBase"); ДБФ.СоздатьФайл("c:123.dbf"); ДБФ.ДобавитьПоле("Tovar","C",14); ДБФ.ДобавитьПоле("Sum","N",14,2); ДБФ.ДобавитьПоле("Kolvo","N",15,3); // Записываем результат запроса в dbf-файл Пока Запрос.Группировка(1) = 1 Цикл ДБФ.Добавить(); ДБФ.Tovar = СокрЛП(Запрос.ТМЦ.Код); ДБФ.Sum = Запрос.Сумма; ДБФ.Kolvo = Запрос.Колво; КонецЦикла; // Записываем и закрываем файл ДБФ.Записать(); ДБФ.ЗакрытьФайл(); КонецПроцедуры --------- В творчестве рождается истина

Ответ отправил: Elric (статус: Специалист) Ответ отправлен: 21.09.2007, 23:58

Отвечает: Kvark Здравствуйте, Клевакин Михаил! Посмотрите на www.mista.ru - там подробно описана работа с dbf файлами. Можно даже создать промежуточный справочник. --------- Один ум хорошо, а два лучше

Ответ отправил: Kvark (статус: 1-ый класс) Ответ отправлен: 22.09.2007, 15:19

Вопрос № 102.881

Кто может подсказать. Нужно написать обработку для поиска документов по штрих-коду. На данный момент кодируются только счет-фактуры (EAN-13) выданные. Штрих кодирование происходит, как организовать поиск документа по данным полученным со сканера штрих-кода. Просто я никогда этим не занимался. Если есть возможность, то пришлите листинг с комментами, буду очень признателен. Заранее спасибо за помощь.

Отправлен: 21.09.2007, 13:14 Вопрос задал: Плесовских Александр Владимирович (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Шахрайчук Владимир Анатольевич Здравствуйте, Плесовских Александр Владимирович! 1. Если штрих-код записан в шапке документа, то на форме списка даокументов положите колонку Штрих-код, в которую выводите штрих-код. Далее пользователь ставит курсор в стандартное интерфейсовское окошко поиска, вводит штрих-код (как вручную, так и со сканера) и нажимает кнопочку с биноклем. Все. 2. Если штрих-код записан в табличной части документа, то в форме списка документа создаете текстовое поле , в которое выводите через запятые штрих-коды со строк. Поиск стандартными средствами тоже будет идти. Это были варианты без программирования. Должны работать, только пользователю нужно правильно выбирать интервал журнала. 3. Ложим на форму списка документов кнопочку НайтиПоШтрих-коду. И далее Активизировать...

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

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

Ответ отправил: Dmitry Stashenko (статус: 10-ый класс) Ответ отправлен: 21.09.2007, 14:08

Отвечает: Kvark Здравствуйте, Плесовских Александр Владимирович! Штрих-код в номенклатуре (и в документе) присутствует в виде обыкновенного числа. Нужно только организовать поиск по списку номенклатуры (или по журналу со списком документов) и проанализировать поле ШтрихКод. Вот и всё. А дальше делайте с документом всё что хотите... --------- Один ум хорошо, а два лучше

Ответ отправил: Kvark (статус: 1-ый класс) Ответ отправлен: 22.09.2007, 15:24

© 2001-2007, Портал RusFAQ.ru, Россия, Москва. Авторское право: ООО "Мастер-Эксперт Про" Техподдержка портала, тел.: +7 (926) 535-23-31 Хостинг: "Московский хостер" Поддержка: "Московский дизайнер" Авторские права | Реклама на портале Версия системы: 4.60 от 22.09.2007
RusFAQ.ru | MosHoster.ru | MosDesigner.ru | RusIRC.ru Kalashnikoff.ru | RadioLeader.ru | RusFUCK.ru