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

Выпуск № 798
от 17.05.2008, 04:35

Вопрос № 135.004

Здравствуйте уважаемые эксперты! Как сделать чтобы поле в документе снова стало не заполненным после того как там был выбрано какое нибудь значение перечисления?

Отправлен: 02.05.2008, 11:41 Вопрос задал: DENIA (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Никифоров Иван Петрович Здравствуйте, DENIA! Надо нажать Shift+F4 Надо нажать Shift+F4 Надо нажать Shift+F4 Надо нажать Shift+F4 Надо нажать Shift+F4 Надо нажать Shift+F4 Надо нажать Shift+F4

Ответ отправил: Никифоров Иван Петрович (статус: 1-ый класс) Ответ отправлен: 02.05.2008, 11:55 Оценка за ответ: 5

Отвечает: Ткаченко Алексей Васильевич Здравствуйте, DENIA! В свойства поля добавьте формулу ПриВыбореПеречисления() ///------------------------------------------------------------------------ Процедура ПриВыбореПеречисления() Если ПустоеЗначение(ПолеПеречисления)=0 Тогда // Сюда впишите что нужно сделать если поле не пустое ПолеПеречисления =""; КонецЕсли; КонецПроцедуры ///------------------------------------------------------------------------

Ответ отправил: Ткаченко Алексей Васильевич (статус: 2-ой класс) Ответ отправлен: 02.05.2008, 11:55 Оценка за ответ: 5 Комментарий оценки: Все просто, и как я сразу не догадался.

Вопрос № 135.168

приветствую всех! мы используем в нашем предприятии прог.1С бухгалтерия 7.7 уже с 1999 годов. Так вот, наша база в этот период через чур увеличился. И как нам с 2009 года начать с нулевыми оборотами, НО при условии с переходящими остатками. Я знаю что такой метод существует в 6.0 версии 1С-бух. Там можно перенести с остатками или без (только списки справочников). Я готов к любым методам программирование, но только не вводить остатки В РУЧНУЮ. помогите мне, кто чем может

Отправлен: 03.05.2008, 17:02 Вопрос задал: Abdugani abdrimov (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Larsh Здравствуйте, Abdugani abdrimov! На диске ИТС есть стандартная обработка WRAP.ERT - Это как раз светрка бух итогов. Там есть несколько вариантов. Типа пометить доки на 4удаление, либо выключить проводки. Удачи

Ответ отправила: Larsh (статус: 3-ий класс) Ответ отправлен: 04.05.2008, 02:12 Оценка за ответ: 5 Комментарий оценки: спасибо огромное!

Отвечает: Vlad Skorochod Здравствуйте, Abdugani abdrimov! На дисках ИТС и в установленной стандартной конфигурации в папке EXTFORMS есть обработка. Называется свертка бухгалтерских итогов ( WRAP.ERT). Попробуйте с помощью нее. Принцип действия данной обработки: Сворачивает все бух.итоги по всем счетам на заданную дату, и создает ручные операции начальных остатков.

Ответ отправил: Vlad Skorochod (статус: Студент) Ответ отправлен: 04.05.2008, 11:20 Оценка за ответ: 5 Комментарий оценки: спасибо за помощь !

Отвечает: Шахрайчук Владимир Анатольевич Здравствуйте, Abdugani abdrimov! Проверено на практике, что свертка WRAP.ERT лучше, чем вариант, предложенный Ромашов Евгений Николаевич. Причем, свернуть нужно по 2005 год или по год последней налоговой проверки, ведь данные до истечения срока исковой давности часто нужны для анализа и иногда для корректировки. После свертки нужно удалить файлы 1sbcttl.dbf, 1sbcttlc.dbf, RGxxxx.dbf .cdx и запустить тестирование и исправление. Эти файлы будут пересчитаны по новому. Справочники можно почистить тоже, например, обработкой, пример которой я высылаю. Подадаптируете код пометки на удаление неиспользуемых справочников к своей базе. Кстати, эта же обработка прекрасно резала мою базу, с сокращением размера. Прикреплённый файл: Загрузить >> Срок хранения файла на сервере RusFAQ.ru составляет 30 суток с момента отправки ответа.

Ответ отправил: Шахрайчук Владимир Анатольевич (статус: Практикант) Ответ отправлен: 06.05.2008, 13:53 Оценка за ответ: 5 Комментарий оценки: отлично! спасибо!

Вопрос № 135.254

Здравствуйте, уважаемые эксперты. Помогите, запутался. 1с 8.1. УПП 1.2 Есть Справочник "Единицы Измерения", Справочник "Классификатор Единиц Измерения", Справочник "Номенклатура", который также содержит в себе единицу измерения. Как правильно (написание кода) вытащить единицу измерения, чтобы при создании(написании кода) документа, у которого есть табличная часть с реквизитом "Единица Измерения", этот реквизит был корректно заполнен. Код Единицы Измерения вытаскиваю из ДБФ. И нахожу по нему Базовую Единицу Измерения в Классификаторе Единиц Измерения. С этим проблем нет. Как дальше правильно поступить? Исправьте мой код. Спасибо. Очень жду ответов. Приложение: БазЕдИзм=Справочники.КлассификаторЕдиницИзмерения.НайтиПоКоду( СтрЗаменить(СокрЛП(ФайлДБФЕдИзм.ID_1C_S),Символ(160),"")); Если Не БазЕдИзм = НЕопределено Тогда Если ОбъектНоменклатуры.БазоваяЕдиницаИзмерения = БазЕдИзм Тогда //ОбъектНоменклатуры - Владелец Единицы Измерения. Отбор1=НовыйCтруктура("Наименование",БазЕдИзм.Наименование); //Отбор1=Справочники.ЕдиницыИзмерения.НайтиПоРеквизиту("ЕдиницаПоКлассификатору",БазЕдизм); Выборка1=Справочники.ЕдиницыИзмерения.Выбрать(,ОбъектНоменклатуры.Ссылка,Отбор1,); Если Выборка1.Следующий() Тогда ЕдИзм = Выборка1.ПолучитьОбъект(); КонецЕсли; КонецЕсли; КонецЕсли; Стр = Док.Товары.Добавить();//Док - Документ "Поступление Товаров и Услуг" Стр.ЕдиницаИзмерения = ЕдИзм;//Реквизит Табличной части

Отправлен: 04.05.2008, 08:33 Вопрос задал: Роман Андреевич (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 7)

Отвечает: Яна Здравствуйте, Роман Андреевич! При создании элемента справочника Номенклатура, создается единица хранения остатков (элемент справочника Единицы измерения), в этой единице нужно указать единицу по классификатору, и др. поля. Потом сохранить единицу, потом записать эту единицу в поле ЕдиницаХраненияОстатков.

Ответ отправила: Яна (статус: Практикант) Ответ отправлен: 04.05.2008, 09:01 Оценка за ответ: 5 Комментарий оценки: Спасибо

Отвечает: Владимир Лазурко Здравствуйте, Роман Андреевич! Вы можете открыть выборку подчинённого номенклатуре справочника единиц измерения, и найти нужный элемент по наименованию или коду (чем представлена единица товара в таблице DBF?). В Приложении код функции, возвращающей базовую единицу товара. В ней параметр Товар - элемент справочника Номенклатура, Товар.БазоваяЕдиница - базовая единица товара. Успехов! С уважением, Владимир. Приложение: Функция ВернутьБазовуюЕдиницуТовара(Товар) Перем ЕдиницыТовара; Перем ТипБазовойЕдиницы; Если ПустоеЗначение(Товар) = 1 Тогда // проверка на всякий случай глТрассировка("Не задан товар!",0); Возврат 0; КонецЕсли; ТипБазовойЕдиницы = Товар.БазоваяЕдиница; ЕдиницыТовара = СоздатьОбъект("Справочник.Единицы"); ЕдиницыТовара.ИспользоватьВладельца(Товар); ЕдиницыТовара.ВыбратьЭлементы(); ////////////////////////////////// ///// обратите внимание на этот цикл: Пока ЕдиницыТовара.ПолучитьЭлемент()=1 Цикл Если ЕдиницыТовара.Единица = ТипБазовойЕдиницы Тогда Возврат ЕдиницыТовара.ТекущийЭлемент(); КонецЕсли; КонецЦикла; /////////// вот создание элемента подчинённого справочника: // если дошли до этого места, то у товара нет базовой единицы измерения // нужно ее создать и вернуть Если ПустоеЗначение(Товар.БазоваяЕдиница) = 1 Тогда Сообщить("У товара "+СокрЛП(Товар.Наименование)+РазделительСтрок+ "не задан тип базовой единицы!"); Возврат 0; КонецЕсли; ЕдиницыТовара.Новый(); ЕдиницыТовара.Единица = Товар.БазоваяЕдиница; ЕдиницыТовара.Наименование = Товар.БазоваяЕдиница.Наименование; // коэффициент у базовой единицы может быть равен только 1. ЕдиницыТовара.Коэффициент = 1; Попытка ЕдиницыТовара.Записать(); Исключение глТрассировка("Невозможно создать базовую единицу товара "+СокрЛП(Товар.Наименование),0); Возврат 0; КонецПопытки; Возврат ЕдиницыТовара.ТекущийЭлемент(); КонецФункции

Ответ отправил: Владимир Лазурко (статус: Студент) Ответ отправлен: 04.05.2008, 17:32 Оценка за ответ: 5 Комментарий оценки: Спасибо, попробую разобраться.

Вопрос № 135.268

Доброго времени суток, господа эксперты! Подскажите какое значение для режима бога по умолчанию установлено в константах для 1С версии 7.7. Извините, если вопрос не корректный. Можно ли изменить это значение? Как узнать текущий параметр? И вообще буду благодарен за ссылки - где можно было-бы почитать об этом режиме (да и других режимах тоже). Запрос по ключевым словам "1С режим бога" ничего толкового ни в одном поисковике не дал... Всем заранее огромное спасибо!

Отправлен: 04.05.2008, 11:00 Вопрос задал: Garry973 (статус: 3-ий класс) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 3)

Отвечает: Ткаченко Алексей Васильевич Здравствуйте, Garry973! Не знаю чего такое "режим бога", но по идее это доступ ко всему! По умолчанию администратор это и есть ВАШ БОГ!!!(Я так думаю). Посмотрите Глобальный модуль процедуру ПриНачалеРаботыСистемы(), там и "собака зарыта" а БОГ вы или не БОГ, все временно!!! Удачи.

Ответ отправил: Ткаченко Алексей Васильевич (статус: 2-ой класс) Ответ отправлен: 04.05.2008, 11:36

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

Ответ отправил: Астафьев Александр Николаевич (статус: Студент) Ответ отправлен: 05.05.2008, 21:31 Оценка за ответ: 4 Комментарий оценки: Спасибо! Это уже несколько проясняет ситуацию. Особенно, что касается юмора программистов. А я на 90% уверен что в Киеве созданием конфигураций для узкой фармацевтической области занимается одна - две конторы... Однако, подчеркиваю - я не программист и практически ничего не смыслю в программировании 1С. Очень хотелось бы узнать поподробнее что означает "имеет оператор Удалить() и если в скобках поставить 1 то произойдет немедленное удаление..." и "если выбор числа для подстановки в оператор прописать через константу" ... Что такое оператор? Где его искать/ковырять/открывать? В какие скобки ставить 1 или 0?

Вопрос № 135.408

Здравствуйте. Дело в том, что у меня на ноутбуке 1С:Деньги 7.7. была установлена и работала без проблем..После выхода из строя ноутбука удалось сохранить рабочий каталог \ProgramFiles\1C77\. На новый ПК (WinXPsp2) поставил с диска 1С деньги + конфигурацию. Зарегистрировал. Демо и стандартная конфигурация запускаются. Копирую из своего каталога папки bin и money в новую рабочую директорию. Запускаю 1С, прописываю путь к новой базе (каталог /money/) запускаю...пишет пользователь занят... удаляю из папок money и профиля пользователя файл *.lck (или чёто вроде) 0 kb. Запускаю базу. На "занятость" пользователя больше не ругается. Но пишет: "1C:V7.7 Starter Program (single user) - обнаружена ошибка. Приложение будет закрыто. Просим извенения за неудобства. Если работа не была закончена, рабочие данные могут быть утеряны." Переустановка после полного удаления тоже не помогла... Подскажите, пожалуйста, как мне восстановить мою рабочую базу?

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

Отвечает: Vlad Skorochod Здравствуйте, Yustas! Попробуйте удалить папку SYSLOG в каталоге базы данных. У меня это помогало...

Ответ отправил: Vlad Skorochod (статус: Студент) Ответ отправлен: 05.05.2008, 13:09 Оценка за ответ: 5 Комментарий оценки: продвинулся на шаг вперёд... не могу зайти в конфигуратор, пишет: "Доступ к файлу C;Programm Files1Cv77Money1Cv77.md закрыт" -> "Ошибка загрузки метаданных"

Отвечает: Астафьев Александр Николаевич Здравствуйте, Yustas! копируте ВСЕ файлы с расширением .dbf и 1cv7.md и 1cv7.dd (файлы с расширением .cdx сами создадутся при первом запуске), в папке USRDEF сидят настройки пользователей , в папке ExtForms внешние отчеты и печатные формы. Остальные файлы можно взять из новой пустой базы.

Ответ отправил: Астафьев Александр Николаевич (статус: Студент) Ответ отправлен: 05.05.2008, 16:49 Оценка за ответ: 5 Комментарий оценки: спасибо!

Отвечает: Кулевский Сергей Владимирович Здравствуйте, Yustas! Попробуйте в конфигураторе удалить своего пользователя и создать заново с новым путем к папке пользователя (или ее вообще не указывать).

Ответ отправил: Кулевский Сергей Владимирович (статус: 5-ый класс) Ответ отправлен: 05.05.2008, 19:11 Оценка за ответ: 5 Комментарий оценки: Спасибо. На будущее буду знать

Отвечает: Ahab Здравствуйте, Yustas! так же можно проверить права пользователя винды под которым в системе на чтение/запись файлов в каталог БД и 1С

Ответ отправил: Ahab (статус: 5-ый класс) Ответ отправлен: 06.05.2008, 06:46 Оценка за ответ: 4 Комментарий оценки: это ту не при чём:) но всё равно спасибо)))

Вопрос № 135.569

Расскажите возможную причину или почему может потеряться записи в журнале регистраций о документе когда он создан, изменен, помечен на удаление... Такое происходит через 2-3 дня после создания. журнал весит 300 Мб примерно. Сам журнал открывал блокнотиком и искал записи по документам, там ничего, теряются только сами записи

Отправлен: 06.05.2008, 09:26 Вопрос задал: Lynxi (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 4)

Отвечает: Maximush Здравствуйте, Lynxi! а есть уверенность в том, что данные записи вообще присутствовали в журнале регистрации? вариант 1: копируем файл журнала в сторону, вносим свои коварные изменения в базу, возвращаем копию журнала на место, и вроде бы ничего не происходило. вариант 2: Создание документов, их изменение, пометка отмечаются в журнале, только если данные действия произведены интерактивно. Т.е. если я сделаю програмно --- док=СоздатьОбъект("документ.ПКО"); док.новый(); док.Записать(); в журнале регистрации ничего нового не появится. вариант 3: Помимо этого - в конфигураторе, "Администрирование->настройка параметров журнала регистрации" можно галочками управлять какие события регистрировать. отключили регистацию изменения данных, внесли свои коварные изменения, и включили обратно (но это уже для эстетов). ------- если записи все таки были и они пропадают из журнала регистрации, то я бы рекомендовал уменьшить его объем, ибо большой файл журнала регистрации, помимо прочего, заметно замедляет работу, как я заметил. На данный момент у меня журнал архивируется каждую неделю, для просмотра старых записей используется обработка с journalNMV.dll Max//

Ответ отправил: Maximush (статус: 3-ий класс) Ответ отправлен: 06.05.2008, 10:03 Оценка за ответ: 4

Отвечает: Игорь К. Здравствуйте, Lynxi! v7.7 Из вопроса не ясно: теряются записи по любым документам или по конкретному? Если по конкретному и нет пароля для доступа к журналу, то вероятно причина ручной правки. Хотя это маловероятно. Поставите пароль и в блокноте будет не разобрать. Только внутренним просмотрщиком. Кстати им просматривать довольно удобно: можно отфильтровать по конкретному документу. Если теряются записи хаотично, то вероятно причина в слишком большом объеме журнала. Удалите файл <каталог базы>SYSLOG1CV7.mlg и 1С создаст новый. Если нужна история - скопируйте его. --------- Если хорошенько подумать, - можно разобраться в чем угодно. Даже в устройстве летающей тарелки.

Ответ отправил: Игорь К. (статус: 5-ый класс) Ответ отправлен: 06.05.2008, 10:09 Оценка за ответ: 4

Вопрос № 135.592

Добрый день уважаемые эксперты! Нужна Ваша помощь.. Есть самописная конфига на 1с 77, есть обработка с таблицой значений в которой отображается элементы определенного справочника в этой же обработке есть возможность удалять выбранный элемент справочника (находит по коду элемента и удаляет, привожу код процедуры в приложении) и все бы было нечего, но для стабильной работы конфиги необходимо чтобы номер кода элемента соответствовал положению элемента в справочнике (к примеру, если в справочнике 30 записей, то код последней записи должен быть "30", а первой "1" т.е от 1 до 30) при удалении элемента соотвественно образовывается "разрыв цепи" к примеру, первая запись получает код 2, вторая код 5 и т.д. Собственно вопрос, возможно ли сделать так, чтобы после удаления записи порядок кодов автоматически востанавливался, наверно что-то нужно дописать в процедуру удаления (в приложении), но что незнаю.... :( Надеюсь на Вашу помощь! Зарание спасибо! Приложение: // Удаляем контакт Процедура УдалитьКонтакт() Если ПустоеЗначение(тзКонтакты) = 1 Тогда Предупреждение("Нет контактов!"); Возврат; КонецЕсли; Если ПустоеЗначение(Код) = 1 Тогда Предупреждение("Укажите контакт который хотите удалить!"); Возврат; КонецЕсли; Если Вопрос("Вы действительно хотите удалить этот контакт?", "Да+Нет") = "Да" Тогда СпрКонтакты.НайтиПоКоду(Код); СпрКонтакты.Удалить(); // Обновляем ТЗ после удаления контакта ПостоитьПоВсем(); КонецЕсли; КонецПроцедуры

Отправлен: 06.05.2008, 12:20 Вопрос задал: Serega_artem (статус: 7-ой класс) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Maximush Здравствуйте, Serega_artem! / Удаляем контакт Процедура УдалитьКонтакт() Если ПустоеЗначение(тзКонтакты) = 1 Тогда Предупреждение("Нет контактов!"); Возврат; КонецЕсли; Если ПустоеЗначение(Код) = 1 Тогда Предупреждение("Укажите контакт который хотите удалить!"); Возврат; КонецЕсли; Если Вопрос("Вы действительно хотите удалить этот контакт?", "Да+Нет") = "Да" Тогда СпрКонтакты.НайтиПоКоду(Код); СпрКонтакты.Удалить(); //++++ КМА 080506 ТЗ=СоздатьОбъект("ТаблицаЗначений"); //занесем ссылки на объекты в таблицу значений, чтобы не путаться при выборке ТЗ.НоваяКолонка("Элемент"); // ссылка на элемент справочника ТЗ.Новаяколонка("НовыйКод"); // новый код спр=СоздатьОбъект("Справочник."+спрКонтакты.Вид()); //ибо кто его знает как он там у вас называется :) спр.ПорядокКодов(1); //нам же надо сохранить порядок кодов, где возможно спр.ВыбратьЭлементы(); //может быть еще и использовать владельца/родителя ибо кто знает какая у вас структура сч=1; //заполняем ТЗ и определяем новый код для элементов Пока спр.ПолучитьЭлемент()=1 цикл ТЗ.НоваяСтрока(); ТЗ.Элемент = спр.ТекущийЭлемент(); ТЗ.новыйКод = сч; сч = сч+1; КонецЦикла; НачатьТранзакцию(); //чтоб быстро и надежно ТЗ.ВыбратьСтроки(); Пока ТЗ.ПолучитьСтроку()=1 цикл Если ТЗ.Элемент.Код <> ТЗ.НовыйКод тогда //возможно нужно преобразование к строке, сравнение через СокрЛП и т.п. спр.НайтиЭлемент(ТЗ.Элемент); //позиционируемся на элементе из ТЗ спр.Код=сч; //возможно нужно преобразование в строку спр.Записать(); КонецЕсли; КонецЦикла; попытка ЗафиксироватьТранзакцию(); исключение Сообщить("хмм... не сработала перенумерация "+ОписаниеОшибки()); //дабы знать чего опять не так конецПопытки; //------ конец вставки // Обновляем ТЗ после удаления контакта ПостоитьПоВсем(); КонецЕсли; КонецПроцедуры

Ответ отправил: Maximush (статус: 3-ий класс) Ответ отправлен: 06.05.2008, 13:58 Оценка за ответ: 5 Комментарий оценки: В очередно раз убеждаюсь, что незрая один из главных лозунгов Русфака "Искуство помогать!". Огромное спасибо, ответ выше всяких похвал!

Отвечает: Игорь К. Здравствуйте, Serega_artem! v7.7 Вы выгружаете весь справочник Контакты в таблицу значений. Тогда в чем проблема? Если Элементы справочника нигде не задействованы (ни в каких документах) то можно просто удалить все элементы и занести заново из тзКонтакты. Если используются, тогда сложнее. В таблицу тзКонтакты заносите ссылку на элемент справочника: тзКонтакты.Элемент=СпрКонтакты.ТекущийЭлемент(); - эту строчку надо добавить в процедуру заполняющую ТЗ. Наверно это: ПостроитьПоВсем(); И соответственно где организуете структуру ТЗ: тзКонтакты.НоваяКолонка("Элемент","Справочник.Контакты"); Предположил, что справочник с контактами в конфигураторе - Справочник.Контакты Потом в тзКонтакты перенумеровываете коды и выгружаете обратно в справочник: нрр=1; тзКонтакты.ВыбратьСтроки(); Пока тзКонтакты.ПолучитьСтроку()=1 Цикл СпрКонтакты.НайтиЭлемент(тзКонтакты.Элемент); СпрКонтакты.Код=Строка(нрр); СпрКонтакты.Записать(); нрр=нрр+1; КонецЦикла; и выгружаете обратно в справочник Приложение: / Удаляем контакт Процедура УдалитьКонтакт() Если ПустоеЗначение(тзКонтакты) = 1 Тогда Предупреждение("Нет контактов!"); Возврат; КонецЕсли; Если ПустоеЗначение(Код) = 1 Тогда Предупреждение("Укажите контакт который хотите удалить!"); Возврат; КонецЕсли; Если Вопрос("Вы действительно хотите удалить этот контакт?", "Да+Нет") = "Да" Тогда СпрКонтакты.НайтиПоКоду(Код); СпрКонтакты.Удалить(); // Обновляем ТЗ после удаления контакта ПостоитьПоВсем(); //********изменено начало нрр=1; тзКонтакты.ВыбратьСтроки(); Пока тзКонтакты.ПолучитьСтроку()=1 Цикл СпрКонтакты.НайтиЭлемент(тзКонтакты.Элемент); СпрКонтакты.Код=Строка(нрр); СпрКонтакты.Записать(); нрр=нрр+1; КонецЦикла; //********изменено конец КонецЕсли; КонецПроцедуры --------- Если хорошенько подумать, - можно разобраться в чем угодно. Даже в устройстве летающей тарелки.

Ответ отправил: Игорь К. (статус: 5-ый класс) Ответ отправлен: 06.05.2008, 14:27 Оценка за ответ: 5 Комментарий оценки: В очередно раз убеждаюсь, что незрая один из главных лозунгов Русфака "Искуство помогать!". Огромное спасибо, ответ выше всяких похвал!

Вопрос № 135.594

Здравствуйте уважаемые эксперты. Помогите со следующей проблемой. Имеется таблица у которой есть реквизиты "Количество" и "Единица". В свойствах реквизита стоит тип "Число", у реквизита "Единица"-"Справочник.Единица". В таблице у меня есть колонка в которой высчитывается кубатура заказанных изделий как Количество*Единицы.Вес. В конце этой таблицы надо выводить сумму по этой колонке. Вот и вопрос как это сделать. Пробовал через функцию Итог, чтото не получается.

Отправлен: 06.05.2008, 12:23 Вопрос задал: Mich49 (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Maximush Здравствуйте, Mich49! ТЗ=СоздатьОбъект("ТаблицаЗначений"); ТЗ.НоваяКолонка("Количество"); ТЗ.НоваяКолонка("Единица"); КактоХитроЗаполнитьТаблицу(ТЗ); ТЗ.НоваяКолонка("кубатура","Число"); ТЗ.ВыбратьСтроки(); Пока ТЗ.ПолучитьСтроку()=1 цикл ТЗ.Кубатура = ТЗ.Количество*ТЗ.Единица.Вес; КонецЦикла; Сообщить("Итого:"+ТЗ.Итог("Кубатура")); должно работать. насколько я понимаю, для Итог нужно чтобы суммируемая колонка имела тип число. Указав при добавлении колонки тип число - мы предотвращаем ситуацию занесения туда значений других типов (они обнуляются или становятся некрасивыми). алгоритм элементарный, ищите банальную ошибку.

Ответ отправил: Maximush (статус: 3-ий класс) Ответ отправлен: 06.05.2008, 13:44

Отвечает: Игорь К. Здравствуйте, Mich49! v7.7 Таблица в документе? Открываем форму этого документа. Колонка в которой высчитывается кубатура должна иметь идентификатор. Если это реквизит табличной части - то идентификатор - имя реквизита. Если это поле типа "Текст" надо прописать ему идентификатор. (Выделить мышкой колонку - клик правой кнопкой - меню "свойства". Далее на форме размещаете поле типа "Текст" и в свойствах на закладке "Дополнительно" в поле "формула" пишем: итог("имя_вашего_реквизита"). Если таблица в справочнике - это не поможет. Можно, допустим, в процедуре "ПриЗаписи" Вычислять сумму простым перебором строк Справочника. Если это элемент Таблица значений там также работает Итог по колонке: ТаблицаЗначений.Итог("ИдентификаторПоляТаблицыЗначений") --------- Если хорошенько подумать, - можно разобраться в чем угодно. Даже в устройстве летающей тарелки.

Ответ отправил: Игорь К. (статус: 5-ый класс) Ответ отправлен: 06.05.2008, 13:51

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

Ответ отправил: Астафьев Александр Николаевич (статус: Студент) Ответ отправлен: 06.05.2008, 22:40 Оценка за ответ: 5

Вопрос № 135.610

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

Отправлен: 06.05.2008, 13:58 Вопрос задала: Оксана/kasy (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

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

Ответ отправил: Maximush (статус: 3-ий класс) Ответ отправлен: 06.05.2008, 14:13 Оценка за ответ: 5 Комментарий оценки: Спасибо за примеры

Вопрос № 135.670

Здравствуйте уважаемые эксперты. Помогите, пожалуйста, по 8.1 Из внешней обработки я обращаюсь в цикле к экспортной функции печати документа: ТабДокумент = Новый ТабличныйДокумент; Макет = ПолучитьМакет("ДрукДокументів"); // ... // Документ = Вибірка.ПолучитьОбьект().Печать(); Потом делаю: ТабДокумент.Вывести(Документ); где ТабДокумент - пустой табличный документ, созданный в обработке. Далее: ТабДокумент.Показать(Макет); Результат: При переборе документов каждый из них выводится в печатной форме и,кроме того, все они вместе выводятся в ТабДокумент. Если документов много - много окон. Подскажите, пожалуйста, как сделать так, чтоб результат обращения к функции передавался только в ТабДокумент. Заранее спасибо

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

Отвечает: Кулевский Сергей Владимирович Здравствуйте, М.Денис! Если нужно в 1 ТабДокумент вывести, то строку "ТабДокумент.Показать(Макет);" Необходимо вынести из цикла

Ответ отправил: Кулевский Сергей Владимирович (статус: 5-ый класс) Ответ отправлен: 07.05.2008, 13:55

Вопрос № 135.728

Добрый день! Снова нужна помощь! Такой вопрос будет ли самописная конфига на 1с77 работать на БАЗОВОЙ версии 1с77? Просто на сколько я знаю базовая версия не конфигурируется.....

Отправлен: 07.05.2008, 07:26 Вопрос задал: Serega_artem (статус: 7-ой класс) Всего ответов: 4 Мини-форум вопроса >>> (сообщений: 5)

Отвечает: Татьяна Ласовская Здравствуйте, Serega_artem! Нет, не будет. Вы правильно говорите, что базовая версия не конфигурируется - там md-файл изменен таким образом, что даже если взять конфигурацию от базовой версии, отредактировать ее на обычной версии и подложить обратно - работать она перестанет.

Ответ отправила: Татьяна Ласовская (статус: Студент) Ответ отправлен: 07.05.2008, 09:08 Оценка за ответ: 5 Комментарий оценки: Спасибо и прошу в минифорум!

Отвечает: Дмитрий Сташенко Здравствуйте, Serega_artem! Совершенно верно считаете. В базовой версии конфигуратор закрыт от внесений изменений пользователей, кроме печатных форм. А в стандартной и профессиональной (сетевой) можно изменять конфигурацию. Стандартная от базовой отличается только возможностью изменять конфигурацию. А вот различия стандартной и проф принципиальные: в стандартной версии может быть использован только один план счетов, в проф - несколько; количество субконто для каждого счета (то есть количество разрезов аналитики по каждому счету) в стандартной версии не может быть более 3, в проф - 5; уровень иерархии элементов справочников не может превышать 4, в проф - 10; в стандартной версии не поддерживаются "сложные проводки", то есть проводки, имеющие один счет дебета и несколько счетов кредита или наоборот; в стандартной версии не поддерживается "разделитель учета" - средство, позволяющее в одной информационной базе вести бухгалтерский учет по нескольким предприятиям. Разумеется, существует во зможность с помощью стандартной версии вести учет по нескольким предприятиям на одном компьютере в отдельных информационных базах; не поддерживается также совместная работа с компонентами "Расчет" и "Оперативный учет" в одной базе; и не поддерживается работа с компонентой "Управление распределенными базами данных"

Ответ отправил: Дмитрий Сташенко (статус: Студент) Ответ отправлен: 07.05.2008, 10:57 Оценка за ответ: 5 Комментарий оценки: Спасибо и прошу в минифорум!

Отвечает: Кулевский Сергей Владимирович Здравствуйте, Serega_artem! Базовая - вариант конфигурации. Т.о. самописная конфигурация на одном уровне с базовой конфигурацией. А на какой платформе они будут работать это без разницы (потому что вариант конфигурации на платформу не распространяется)

Ответ отправил: Кулевский Сергей Владимирович (статус: 5-ый класс) Ответ отправлен: 07.05.2008, 13:52 Оценка за ответ: 3 Комментарий оценки: Нехочу Вас обидеть, но посмотрите минифорум....

Отвечает: Larsh Здравствуйте, Serega_artem Вы, извените путаете божий дар с яичницей. или неправильно формулируете вопрос Ваша самописная конфигурация-Это кнфигурация Базавая конфигурация - Это тоже конфигурация Они обе могут независимо работать наплатформе 1С. Если у вас стоит задача объединить эти конфигурации, тогда другое дело. Вы их можете объединить, но в рез-те ролучится конфигурация , которая уже не будет базовой.

Ответ отправила: Larsh (статус: 3-ий класс) Ответ отправлен: 08.05.2008, 02:04 Оценка за ответ: 3 Комментарий оценки: Нехочу Вас обидеть, но посмотрите минифорум....

Вопрос № 135.733

Добрый день!! Проблема в следующем. Имея опыт программирования на 1С тока месяц столкнулся с проблемой проводка документа используя только регистры без операций и счетов. Есть регистр Заказы. Измерение1 = ЗаказыЗапчастей (тип Документ.Заказы), ресурс1 = Количество и ресурс2 = Стоимость. При выполнении следующего кода выдается сообщение об ошибке Регистр.Заказы.ДвижениеПриходВыполнить(); {Документ.ДокументЗаказовЗапчастей.Модуль Документа(12)}: Движения регистров не могут выполняться у данного объекта. Спасибо за вы... за внимание :) Приложение: Процедура ОбработкаПроведения() //Здесь следует написать алгоритм проведения документа Регистр.Заказы.ЗаказыЗапчастей = ТекущийДокумент(); ВыбратьСтроки(); Пока(ПолучитьСтроку() > 0) Цикл Регистр.Заказы.Количество = Количество; Регистр.Заказы.Стоимость = Стоимость; Регистр.Заказы.ДвижениеПриходВыполнить(); КонецЦикла; КонецПроцедуры

Отправлен: 07.05.2008, 08:33 Вопрос задал: Павел Шведенко (статус: 1-ый класс) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Татьяна Ласовская Здравствуйте, Павел Шведенко! Вам надо у документа ДокументЗаказовЗапчастей поставить флажок "Оперативный учет", чтобы документ мог формировать движения по регистрам

Ответ отправила: Татьяна Ласовская (статус: Студент) Ответ отправлен: 07.05.2008, 09:10 Оценка за ответ: 5 Комментарий оценки: Спасибо за ответ. Следующая заминка в следующем - Не открыт период, выбирается в монопольном режиме меню Операции, команда управление ... итогами, нажимаю установить - обрабатывается без предупреждений, но при проводки возникает ошибка не открыт период 7.7 27 релиз. Заранее ублагодорен !!!

Вопрос № 135.743

Привет знатокам! Как зделать чтоб созданный документ нельзя было распечатать без сохранения, а все удаленные документы неудалялись а где нибудь складировались!

Отправлен: 07.05.2008, 10:25 Вопрос задал: Топорков Алексей Иванович (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Ndakota !!! Здравствуйте, Топорков Алексей Иванович! нуно в коде (например на кнопке"Печать") втавить код Если дОК.Записан()=0 тоГДА СООБЩИТЬ("НУЖНО ЗАПИСАТЬ ДОК"); ИНАЧЕ печать КонецЕсли; А складировать где то доки не получится, они все будутв журнале торчать!!! Ответ неверный. Метод Записан() не существует. Ниже приведёны способы хранения удалённых документов. ----- ∙ Отредактировал: skrech (Профессионал) ∙ Дата редактирования: 07.05.2008, 13:55

Ответ отправил: Ndakota (статус: 1-ый класс) Ответ отправлен: 07.05.2008, 10:36

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

Ответ отправил: Дмитрий Сташенко (статус: Студент) Ответ отправлен: 07.05.2008, 11:58

Вопрос № 135.780

Здравствуйте Эксперты! У меня вопрос как в 1с 7,7 можно запретить редактирование, копирование, выбор в документ если стоит ПометкаУдаления элемента справочника. но только модально, а не через права пользователя. Некоторым пользователям оставить права.

Отправлен: 07.05.2008, 14:00 Вопрос задал: Asteroid (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Strawberry Здравствуйте, Asteroid! Если интересно или можно то таки да можно. Для єтого в функциях обработки подбора поверять помечен ли єлемент справочника на удаление или нет. При пометке на удаление возвращать пустое значение. При єтом анализировать тот ли єто пользователь которому нельзя подбирать то что пометели на удаление.. --------- Мальчик-извращенец прочел деду Морозу с табуретки всего Пастернака!

Ответ отправил: Strawberry (статус: Студент) Ответ отправлен: 07.05.2008, 16:32 Оценка за ответ: 5 Комментарий оценки: спасибо

Отвечает: Ткаченко Алексей Васильевич Здравствуйте, Asteroid! У меня этот момент реализован. В документе в процедуре ПриОткрытии() первой строкой вызывается функция ПроверкаДоступа(Пользователь), в глобальном модуле указал функцию проверка доступа и в завивисимости от пользователя устанавливаю возможность рабоать с документом, (открытие, копирование, перепроведение, удаление, печать и т.д.)

Ответ отправил: Ткаченко Алексей Васильевич (статус: 2-ой класс) Ответ отправлен: 08.05.2008, 12:56 Оценка за ответ: 4

Отвечает: Ovr1970 Здравствуйте, Asteroid! Можно. Для этого я использовал метод справочника ИспользоватьСписокЭлементов() Специальная процедура, которая вызывается "приоткрытии" и "приизмененииРодителя" выбирает, какой список элементов можно показывать данному пользователю, а какой нет. Соответственно, в зависимости от прав изменяется видимые элементы в справочнике (т.е. запрещенные элементы пользователь с недостаточными правами не видит вообще)

Ответ отправил: Ovr1970 (статус: Практикант) Ответ отправлен: 08.05.2008, 15:23 Оценка за ответ: 5

Вопрос № 135.808

Доброго времени суток. Ситуация смешная. Сказали поставить клиенту базовую бухгалтерию 8.1, но не сказали на какой компьютер. Установилась отлично, активировалась, но..... я её установил не на тот компьютер. Реально ли её как-нибудь перенести на нужный компьютер? Или просто так же поставить, просто способ активации выбрать в ручную? В общем жду Вашей помощи.

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

Отвечает: Pycuk Здравствуйте, kaban! Проше некуда. Копируеш базу (Что бы узнать путь к ней запускаеш в режиме конфигуратора выбираеш изменить потом далее и там будет каталог информационной базы вот его и перекидуеш на нужный комп). Устанавливаеш 1С без конфигурации на нужный комп. Запускаеш нажимаеш Добавить Далее потом выбераеш "создание информационной базы без конфигурации ..." нажимаеш далее указуеш наименование базы далее и выбераеш каталог готово.

Ответ отправил: Pycuk (статус: 2-ой класс) Ответ отправлен: 07.05.2008, 17:07 Оценка за ответ: 5 Комментарий оценки: Сперва хотел 2 поставить, но потом перечитал ответ. Спасибо. Буду пробовать, хотя кажется что не получится так. :)

Вопрос № 135.890

Здравствуйте уважаемые эксперты Возникла проблема, которую с Вашей помощью постараюсь решить. Суть такая: Есть документ Спецификация (модефицированая Заявка покупателя) После формирования табличной части (Оборудования)нужно добавить строку Материалы, которая будет рассчитываться как 12% (это переменная) от Суммы с НДС. Пример: Итого за Оборудование -1000 руб с НДС Материалы 12% -120 руб. Итого с Материалами – 1120 руб. Я пошла таким путем: Добавила в шапку документа Реквизиты Материалы – перечисления (меняла на число, не помогло) ИтогоМатериалыИОбрудование – строка В общем ничего не счетает… Единственное чего удалось добиться, чтоб выводило в ИтогоМатериалыИОбрудование сумму равную Итого за Оборудование Помогите? Спасибо!

Отправлен: 08.05.2008, 07:31 Вопрос задала: Lakosiera (статус: 1-ый класс) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 5)

Отвечает: Nikakoy Здравствуйте, Lakosiera! Как вариант... В процедуре призаписи() добавить вызов процедуры анализа табл. часть и добавления строки с заранее определенной позицией номенклатуры..... и при этом не надо мудрить с доп реквизитами документа.... для какого-то особого анализа по материалам, можно установить для материала уникальное свойство, отличное от свойств другой номенклатуры..... написанное далее применимо для ТиС и Комплексной 1С 7.7 что-то типа процедура ДобавитьМатериал() НомМатериал=создатьобъект("Справочник.Номенклатура"); НомМатериал.найтиПоКоду("КодМатериала"); //проверка наличия данной позиции в табл. части и удаление, если есть выбратьстроки(); пока получитьстроку()=1 цикл номСтр=номерстроки; если номенклатура=номматериал.текущийэлемент() тогда удалитьстроку(); если номстр>1 тогда получитьстрокупономеру(номстр-1); конецесли; конеццикла; //почистили, теперь можно добавить материал СуммаПоДоку=итог("Сумма"); если суммаПоДоку>0 тогда новаястрока(); номенклатура=номматериал; единица = номматериал.основнаяединица; количество=1; цена=суммаподоку*коэффициентпересчета;// это сами определяете заранее глПересчетТаблЧасти(Контекст,"Цена"); конецесли; конецпроцедуры

Ответ отправил: Nikakoy (статус: 3-ий класс) Ответ отправлен: 08.05.2008, 10:57 Оценка за ответ: 4

Отвечает: Ovr1970 Здравствуйте, Lakosiera! Во первых нужно определиться добавлять строку материалы в табличную часть или нет. Вы выбрали второй материал. Если достаточно этого варианта, то в сам документ достаточно добавить только один реквизит - флаг подсчета материалов. На модели формы документа добавляете Реквизиты формы или текстовые значения (как нравится). В любом случае возможности редактирования быть не должно. Вместо суммы за материалы должно быть текстовое поле ( с любой надписью) в котором вызывается функция "рассчитатьматериалы()" (см приложение) Примерно так, собственно это все. Если нужно, в процедуре можно поменять значения и других переменных. Приложение: Функция РасчитетьМатериалы() Перем рез; ИтогоСМатериалами=Итог("СуммаСНДС"); Рез=ИтогоСМатериалами*12/100; ИтогоСМатериалами=ИтогоСМатериалами+рез; Возврат Формат (рез,"ЧПДС"); КонецФункции

Ответ отправил: Ovr1970 (статус: Практикант) Ответ отправлен: 08.05.2008, 15:19 Оценка за ответ: 4

Вопрос № 135.944

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

Отправлен: 08.05.2008, 13:34 Вопрос задал: Павел Шведенко (статус: 1-ый класс) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 1)

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

Ответ отправил: Strawberry (статус: Студент) Ответ отправлен: 08.05.2008, 13:59 Оценка за ответ: 4

Отвечает: Pycuk Здравствуйте, Павел Шведенко! Я решил эту проблеу следующим образом. Создал константу ПартНомер. При выборе ПартНомер во всех документах зделал запись выбраного значения в константу (Константа.ПартНомер=ПартНомер;). В форме списка справочника в процедуре ПриОткрытии УстановитьОтбор("ПартНомер",Константа.ПартНомер);

Ответ отправил: Pycuk (статус: 2-ой класс) Ответ отправлен: 08.05.2008, 14:15 Оценка за ответ: 5 Комментарий оценки: Отличное решение

Отвечает: Ovr1970 Здравствуйте, Павел Шведенко! Все делается примерно так. В предопредлененной процедуре "ПриНачалеВыбораЗначения" вы задаете значение ПартНомер. Это можно сделать двумя способами: 1. Задать значение через глобальную переменную 2. Вызвать открытие справчоника автомобили с параметром. и отменить стандартный вызов (т.к. с параметрами уже состоялся) В обоих случаях в предопределнной процедуре "ПриОткрытии" той формы списка справочника, которая вызывается по умолчанию (или Вы вызываете) вы получаете значение ПартНомер Пишите в предопределенной процедуре "ПриВыбореРодителя" алгоритм, который выбирает из данного уровня справочника те элементы, которые имеют соответствующий ПартНомер и выполняете метод ИспользоватьСписокЭлементов() Помните! Чтобы справочник корректно фильтровался нужно выбирать только элементы указанного уровня (определеяется по родителю), иначе будут в списке чужеродные элементы.

Ответ отправил: Ovr1970 (статус: Практикант) Ответ отправлен: 08.05.2008, 15:03 Оценка за ответ: 4 Комментарий оценки: Мои знания далеки от понимания слодных слов, но наверстаю!!!

Вопрос № 136.107

Здравствуйте уважаемые эксперты. Подскажите, пожалуйста, по 8.1. Как выгрузить в Табличный документ Таблицу значений с изменяемым количеством колонок? (Т.е один раз в таблице может быть 10 колонок, при следующем запуске обработки - 50). Заранее благодарен.

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

Отвечает: Яна Здравствуйте, М.Денис! Воспользуйтесь циклом по колонкам и методом Присоединить().

Ответ отправила: Яна (статус: Практикант) Ответ отправлен: 09.05.2008, 22:23 Оценка за ответ: 4 Комментарий оценки: Большое спасибо

Вопрос № 136.355

Здравствуйте уважаемые эксперты! Помогите переделать код процедуры используя команды Найти() или НайтиПоКоду(),а не как у меня в приложение перебором записей. Не могу разобраться.. Приложение: ДБФ=СоздатьОбъект("XBASE"); ДБФ.ДобавитьПоле("A",2,8,); ДБФ.ДобавитьПоле("B",2,35,); ДБФ.ДобавитьПоле("C",2,200,); ДБФ.КодоваяСтраница(1); ДБФ.ПоказыватьУдаленные(0); ИмяФайла = "Platel.dbf"; Результат = ФС.НайтиПервыйФайл("C:"+ИмяФайла); Если ФС.СуществуетФайл("C:"+Результат)=1 Тогда ДБФ.ОткрытьФайл("C:"+ИмяФайла); Для Ном=1 По ДБФ.КоличествоЗаписей() Цикл ДБФ.Перейти(Ном); Если СокрЛП(ДБФ.A) = СокрЛП(Контрагент.Код) Тогда Плательщик = СокрЛП(ДБФ.B); КонецЕсли; КонецЦикла; ДБФ.ЗакрытьФайл(); Иначе Предупреждение("Обратите внимание! Не найден файл плательщиков",1); КонецЕсли;

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

Отвечает: Дмитрий Сташенко Здравствуйте, Darina! Насколько видно из приведенного Вами кода, Вам не помогут методы справочника Найти() или НайтиПоКоду(), поскольку Контрагент у Вас уже определен, а Вам надо найти соответсвие ему в ДБФ. То есть иными словами необходим поиск в ДБФ, а не в справочнике. Для поиска в ДБФ необходимо использовать механизм индексов. Подробнее можете почитать тут: http://www.mista.ru/tutor_1c/dbf.htm . Для этого правда прийдется переделать процедуру создания ДБФ-файла. Если же его не использовать, то поиск как таковой осуществлять не представляется возможным, и сравнивать приходится перебором, как у Вас. Удачи.

Ответ отправил: Дмитрий Сташенко (статус: Студент) Ответ отправлен: 12.05.2008, 09:44 Оценка за ответ: 5 Комментарий оценки: Спасибо!

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