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

Выпуск № 801
от 05.06.2008, 07:05

Вопрос № 138.219

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

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

Отвечает: Игорь К. Здравствуйте, Павел Шведенко! Попробуйте: спрБанк.ИспользоватьВладельца(ТекущийЭлемент()); Хозяином Справочник.БанковскийСчетКонтрагента является Объект - элемент Справочника Контрагентов. "Наименование" всего лишь реквизит скорей всего типа "Строка". Удачи! --------- Если хорошенько подумать, - можно разобраться в чем угодно. Даже в устройстве летающей тарелки.

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

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

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

Отвечает: Ромашов Евгений Николаевич Здравствуйте, Павел Шведенко! Наименование должно быть объектом справочника контрагенты т.е, Если Выбран() = 1 Тогда спрБанк.ИспользоватьВладельца(ТекущийЭлемент()); КонецЕслИ;

Ответ отправил: Ромашов Евгений Николаевич (статус: 7-ой класс) Ответ отправлен: 28.05.2008, 10:23 Оценка за ответ: 5

Вопрос № 138.248

Здравствуйте. Подскажите пожалуйста как в 1С8.0 скопировать *.DBF файлик с одного места в другое. А потом с этого другого загрузить данные в табличку.

Отправлен: 28.05.2008, 11:27 Вопрос задал: Трифанюк Александр Дмитриевич (статус: 3-ий класс) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Кулевский Сергей Владимирович Здравствуйте, Трифанюк Александр Дмитриевич! КопироватьФайл("C:TempOrder.htm", "C:My DocumentsOrder.htm");

Ответ отправил: Кулевский Сергей Владимирович (статус: 5-ый класс) Ответ отправлен: 28.05.2008, 12:02 Оценка за ответ: 5 Комментарий оценки: Спасибо. Ещё бы на вторую часть ответ и вообще супер.

Отвечает: Владимир Лазурко Здравствуйте, Трифанюк Александр Дмитриевич! На первую часть Вам ответили, я дополню, как можно выгрузить и загрузить данные в DBF. Пример в Приложении. Суважением, Владимир. Приложение: БД = Новый XBase; БД.Поля.Добавить("CODE", "S", 5); БД.Поля.Добавить("NAME", "S", 40); БД.СоздатьФайл(Путь + "start.dbf", Путь + "index.cdx"); БД.Индексы.Добавить("IDXCODE", "CODE"); ФлИБД = БД.СоздатьИндексныйФайл(Путь + "index.cdx"); БД.АвтоСохранение = Истина; Выборка = Справочники.Номенклатура.ВыбратьИерархически(); Пока Выборка.Следующий() Цикл БД.Добавить(); БД.CODE = Выборка.Код; БД.NAME = Выборка.Наименование; КонецЦикла; БД.ЗакрытьФайл(); БД = Новый XBase; БД.ОткрытьФайл(Путь + "start.dbf", Путь + "index.cdx"); БД.ТекущийИндекс = БД.Индексы.IDXCODE; Пока БД.Следующая() Цикл Сообщить(БД.CODE); Сообщить(БД.NAME); КонецЦикла; БД.ЗакрытьФайл();

Ответ отправил: Владимир Лазурко (статус: Студент) Ответ отправлен: 29.05.2008, 09:05 Оценка за ответ: 5 Комментарий оценки: Спасибо. Этот пример многое для меня прояснил. Принцип я понимал я просто не знаю синтаксис 1С 8.0. Теперь всё стало на свои места.

Вопрос № 138.254

Помогите с проблемой. Как в 1с бюджет только в Заявках нужно чтоб Наименование клиента Было полное. (Наименование учреждения тоесть). А во стольных всех сокращеннное. Что мне сделать??? Помогите кто может.

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

Отвечает: Ромашов Евгений Николаевич Здравствуйте, Кладкевич Виталий Владимирович! для всех случаев ?(ПустоеЗначение(Контрагент.ПолнНаименование)=1,Контрагент.Наименование,Контрагент.ПолнНаименование)

Ответ отправил: Ромашов Евгений Николаевич (статус: 7-ой класс) Ответ отправлен: 28.05.2008, 12:32

Отвечает: Владимир Лазурко Здравствуйте, Кладкевич Виталий Владимирович! Вам необходимо в конфигураторе открыть Вашу конфигурацию и в печатной форме документа Заявка использовать реквизит справочника клиентов, в котором хранится полное наименование. В типовых конфигурация это обычно ПолнНаименование. Т.е. в ячейке, где печатается клиент, замените переменную на этот реквизит. Например, был Клиент, а Вы пропишите Клиент.ПолноеНаименование. Как это сделать. Откройте Конфигуратор, в меню Конфигурация -> Открыть конфигурацию. Затем в дереве метаданных найдите документ Заявка и откройте его форму, переключитесь на страницу с печатной формой. В печатной форме посмотрите, какой справочник и какой реквизит этого справочника вызывается для печати клиента. Затем в дереве метаданных найдите этот справочник и просмотрите, какой реквизит этого справочника хранит полное наименование, и впишите его в печатной форме. Если такого реквизита нет, создайте. Обычно это строка, бОльшей длины, чем наименование, например, длиной 50 символов. Осталось только сохранить изменения и запустить. Теперь в режиме Предприятия Вы можете клиентам прописать полное наименование, но по умолчанию новый реквизит справочника пуст, а потому есть несколько вариантов: 1. Прописать всем клиентам полные наименования. Можно вручную, а можно и написать обработку, которая новому реквизиту присвоит простое наименование., которое можно потом по необходимости отредактировать. 2. Прописать полные наименования только тем клиентам, для которых пишут Заявки. 3. В печатной форме документа в поле для клиента написать такую формулу: ?(ПустоеЗначение(Клиент.ПолнНаименование)=1, Клиент.Наименование, Клиент.ПолнНаименование) С уважением, Владимир.

Ответ отправил: Владимир Лазурко (статус: Студент) Ответ отправлен: 29.05.2008, 08:55

Вопрос № 138.468

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

Отправлен: 29.05.2008, 12:45 Вопрос задал: Александр новичок (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Strawberry Здравствуйте, Александр новичок! Зачем??? может проще написать отчет который соберет суммы неучитывая разделитель учета ?? --------- Мальчик-извращенец прочел деду Морозу с табуретки всего Пастернака!

Ответ отправил: Strawberry (статус: Студент) Ответ отправлен: 29.05.2008, 15:52

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

Ответ отправил: Полозов Олег aka Asher (статус: Студент) Ответ отправлен: 30.05.2008, 04:08

Отвечает: Ромашов Евгений Николаевич Здравствуйте, Александр новичок! Я полагаю что на каком нибудь счете нужно создать дополнительную аналитику равную разделителю учета

Ответ отправил: Ромашов Евгений Николаевич (статус: 7-ой класс) Ответ отправлен: 30.05.2008, 04:56

Вопрос № 138.475

Здравствуйте уважаемые эксперты! 7.7 Торговля и Склад. Мне нужно сформировать отчет по определенному например товару с последним поступлением. Т.е. как мне быстро обратиться к последнему документу поступления этого товара?

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

Отвечает: Strawberry Здравствуйте, Darina! Учитывая что товар определенный и справочник товар имеет подчиненный партии, то я бы использовал метод справочника ОбратныйПорядок(). Т.е. для справочника партии обратный выбор элементов. Первый элемент в выборки и будет последнее поступление. А дальше фильтруем в запросе отбор в регистре партии товара по партиеобразующему документу. Приложение: Синтаксис: ОбратныйПорядок(<Режим>) Назначение: Установить порядок выборки элементов справочника. Возвращает: текущее значение порядка выборки элементов справочника (на момент до исполнения метода): 1 - обратный порядок выборки элементов справочника; 0 - выборка элементов справочника в прямом порядке. Параметры: <Режим> - необязательный параметр. Число: 1 - выбирать элементы справочника в обратном порядке; 0 - выбирать элементы справочника в прямом порядке. Если параметр опущен, то метод просто возвращает текущее значение порядка выборки элементов справочника. Замечание: Метод можно использовать только для объектов, созданных функцией СоздатьОбъект. --------- Мальчик-извращенец прочел деду Морозу с табуретки всего Пастернака!

Ответ отправил: Strawberry (статус: Студент) Ответ отправлен: 29.05.2008, 15:50 Оценка за ответ: 5 Комментарий оценки: Спасибо конечно. Но если спр.партии не заполняется... :-) то как тогда быть. Извините ТиС плохо знаю. Может как-то сразу обратиться к регистру.партииналичие или партииотданные?

Отвечает: Ромашов Евгений Николаевич Здравствуйте, Darina! можно через запрос, потом Группировка("Док",-1), -1 - означает что документы в обратном порядке идут, или через метод Док.ОбоаьныйПорядок()

Ответ отправил: Ромашов Евгений Николаевич (статус: 7-ой класс) Ответ отправлен: 30.05.2008, 04:55 Оценка за ответ: 4 Комментарий оценки: как обратиться к этому документу поступления?

Вопрос № 138.651

Здравствуйте. Помогите, пожалуста розобраться с проблемой. Суть такая. Последнее время стало много ушлых работников, которые за 1,5-2 часа до конца рабочего дня уходят и для того, чтобы создавать видимость типа "я только отлучился на минутку по неотложным делам, оставляют включённым комп. с запущенной 1С. Ходить за ними выключать компы - не ice. Для выключения компов по расписанию поставил соответсвующую прогу, но хотелось бы предварительно - во избежании всяких эксцессов с базой - закрывать 1С. В конце процедуры ПриНачалеРаботыСистемы объявил функцию ОбработкаОжидания("ЗавершениеПоВремени",60); Затем прописал саму функцию след. обр. Функция ЗавершениеПоВремени() Перем __Ч; Перем __М; Перем __С; ТекущееВремя(__Ч,__М,__С); Если (__Ч=19) И (__М<3) Тогда Сообщить("Выключаем 1С. Всем спасибо за работу. До завтра! "); ЗавершитьРаботуСистемы(); КонецЕсли; КонецФункции // Завершение по времени Но она почему-то не срабатывает. Что я сделал не так?

Отправлен: 30.05.2008, 12:49 Вопрос задал: Барилов Д. (статус: Посетитель) Всего ответов: 6 Мини-форум вопроса >>> (сообщений: 2)

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

Ответ отправил: Strawberry (статус: Студент) Ответ отправлен: 30.05.2008, 13:21

Отвечает: Nikakoy Здравствуйте, Барилов Д.! скорее всего дело в вызове ЗавершитьРаботуСистемы() без параметра. в этом случае идет запрос на сохранение документов. Кроме того, в типовой ТиС есть реквизит справочника "Пользователи" "НеЗапрашиватьПодтверждениеПриВыходе" и в процедуре ПриЗавершенииРаботыСистемы() идет его проверка с повисанием вопроса "Завершить работу системы?". В кач-ве решения - объявить переменную "ОбязательноеЗавершениеРаботы" устанавливать в 1 при выполнении условия по времени, и не запрашивать подтверждение на выход при этом... З.Ы. отлично работает такой вариант Если текущееВремя()>"19:00:00" тогда

Ответ отправил: Nikakoy (статус: 3-ий класс) Ответ отправлен: 30.05.2008, 13:37

Отвечает: Игорь К. Здравствуйте, Барилов Д.! Вариантов много. Расскажу как сам сделал. 1.Завел Константу "Отключить" Число 5 2.Обработка которая включает/отключает режим отключения пользователей. Доступна только админу. Там на форме поле ввода "Пауза" Число 3 - где вводится пауза в минутах до выключения. и 2 кнопки ВКЛ и ВЫКЛ - включить/выключить таймер. После включения В течение заданного интервала минут система выдает каждую минуту предупреждение, что осталось столько-то минут и когда время иссякнет выключает комп. Процедуры висящие на кнопках ВКЛ и ВЫКЛ (Вкл() и Откл()) в приложении В процедуре ПриНачалеРаботыСистемы() Процедура ПриНачалеРаботыСистемы() ... ОбработкаОжидания("ПоказВремени",60); ... Запускаем раз в минуту обработку "ПоказВремени" . Сама обработка в приложении Она проверяет раз в минуту состояние константы "Отключить". и если там число отличное от нуля, сравнивает текущее время и время в константе. После того как всех отключит и вы зайдете монопольно не забудьте в обработке нажать кнопку ВЫКЛ иначе она Вас через минуту тоже отключит. Программа срабатывает не всегда. 1) если пользователь открыл модальное окно, то программно его не закрыть 2) если пока идет отсчет паузы кто-то зашел и начинает работать, то их тоже не выгоняет. Вероятно, что у них Константа.Отключить=0 и не обрабатывается. Ну это только идея - доработайте под свои нужды Приложение: Процедура Вкл() Перем _Ч,_М,_С; Если Пауза>0 Тогда ТекущееВремя(_Ч,_М,_С); Константа.Отключить=_Ч*3600+(_М+пауза)*60+_С; Предупреждение("Время пошло!!! "+РазделительСтрок +"Через: "+Строка(пауза)+" минут выключим! "+ИмяПользователя()+": Не забудьте потом вручную отключить!",10); КонецЕсли; КонецПроцедуры //Вкл //_____________________________________________________________________________ Процедура Откл() Константа.Отключить=0; пауза=0; КонецПроцедуры //Откл //проц ПоказВремени должна быть в глобальном модуле //_____________________________________________________________________________ Процедура ПоказВремени() Перем __Чччч; Перем __Мммм; Перем _Сек; ТекущееВремя(__Чччч,__Мммм,_Сек); Состояние("Текущее время: "+Формат(__Чччч,"Ч(0)2")+":"+Формат(__Мммм,"Ч(0)2")); Если Константа.Отключить>0 Тогда Осталось=Константа.Отключить-(__Чччч*3600)-(__Мммм*60)-_Сек; Если Осталось<=0 Тогда ЗавершитьРаботуСистемы(1); КонецЕсли; Если Осталось>0 Тогда Предупреждение("Внимание!!! Система завершит работу через "+Строка(Цел(Осталось/60))+" Минут "+Строка(Цел(Осталось%60))+" Секунд ",10); КонецЕсли; КонецЕсли; КонецПроцедуры //ПоказВремени //_____________________________________________________________________________ --------- Если хорошенько подумать, - можно разобраться в чем угодно. Даже в устройстве летающей тарелки.

Ответ отправил: Игорь К. (статус: 6-ой класс) Ответ отправлен: 30.05.2008, 13:41

Отвечает: Астафьев Александр Николаевич Здравствуйте, Барилов Д.! Замениет условие на : Если (__Ч>=19) И (__М>3) Тогда. Часы на разных компах идут по разному так что при вашем условии можно проскочить 3 минуты заветные и опять же время в обработке можно поставить больше 60 секунд т.е. меньше база будет нагружаться. А вообще есть программы типа Remote Administrator(RAdmin), заходите на компьютер типа как в терминале только в сеанс пользователя и отключаете что вам нужно, и незачем бегать по кабинетам. А если вы это еще начальству поставите, чтоб оно начальство могло видеть чем сотрудники в рабочее время занимаются, то ваш рейтинг у руководства резко возрастет.

Ответ отправил: Астафьев Александр Николаевич (статус: Студент) Ответ отправлен: 30.05.2008, 14:23

Отвечает: Владимир Лазурко Здравствуйте, Барилов Д.! Есть внешняя компонентка waiter, которая как раз для подобных целей разрабатывалась: считать время бездействия пользователя. Эта компонента выдаёт время бездействия пользователя 1С, а уж как использовать полученную информацию, зависит от фантазии. В Приложении ссылка на архив (200 Кб), в нём описание и пример использования. С уважением, Владимир. Приложение: waiter.zip 200.84 Kb http://ifolder.ru/5653241

Ответ отправил: Владимир Лазурко (статус: Студент) Ответ отправлен: 30.05.2008, 19:06

Отвечает: Кулевский Сергей Владимирович Здравствуйте, Барилов Д.! Замените "ЗавершитьРаботуСистемы()" на "ПрекратитьРаботуСистемы()"

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

© 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