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

Выпуск № 820
от 03.08.2008, 23:05

Вопрос № 140.876

Добрый день. Подскажите почему высвечевается диалоговое окно с предупреждением "Недостаточно прав доступа!" при попытке провести документ.

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

Отвечает: Korolyov Alexander Здравствуйте, ДАС Алекс! В принципе все очень просто: так как для вашей учетной записи в 1С, уставнолены ограничения на проведения. ЧТобы их снять надо иметь права администратора, после чего открыть нужную базу в режиме конфигуратора, далее администрирование - пользователи. В списке пользователей найти нужну учетную запись и выставать ей нужные права. --------- Читайте help

Ответ отправил: Korolyov Alexander (статус: 4-ый класс) Ответ отправлен: 28.07.2008, 12:26

Отвечает: Трифанюк Александр Дмитриевич Здравствуйте, ДАС Алекс! Потому что у пользователя под которым вы заходите в 1С ограниченые права. В частности стоит ограничение на проведение документа который вы хотите провести.

Ответ отправил: Трифанюк Александр Дмитриевич (статус: 3-ий класс) Ответ отправлен: 28.07.2008, 12:28

Отвечает: Strawberry Здравствуйте, ДАС Алекс! Потому что у пользователя под которым сие действо пытаются выполнить стоят ограничения в правах: 1. Пользователь вообще не может проводить данный тип документа - Лечится увеличением прав пользователя в конфигураторе. 2. Пользователь не может проводить данный документ задним числом (ниже точки актуальности). Лечится изменение времени документа. --------- Мальчик-извращенец прочел деду Морозу с табуретки всего Пастернака!

Ответ отправил: Strawberry (статус: Студент) Ответ отправлен: 28.07.2008, 12:38 Оценка за ответ: 5

Вопрос № 140.882

Здравствуйте. У меня здесь такой вопрос. В накладной ТОРГ-12 в графе грузополучатель стояла формула: СокрЛП(Контрагент.ПолнНаименование)+СокрЛП(Контрагент.ФактическийАдрес),она показывала все то что надо, но в ней не хватало расчетного счета и банка Поставил такую: СокрЛП(Контрагент.ПолнНаименование)+", р/с "+СокрЛП(СчетКонтрагента.Номер) + " в " + СчетКонтрагента.БанкОрганизации+", "+СокрЛП(Контрагент.ФактическийАдрес) но она не прокатывает. Почему? Вот моя версия: 1С:Бухгалтерия 7.7 (базовая). Конфигурация, редакция 4.2. Релиз 7.70.434 от 31.01.2003г.

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

Отвечает: Sol666 Здравствуйте, Шишкин Артем Андреевич! В базовой версии нельзя ничего изменить в режиме конфигруатора. За искючением внешних печатных форм. Я думаю проблема именно в этом.

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

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

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

Отвечает: S-vet Здравствуйте, Шишкин Артем Андреевич! Базовая конфигурация отличается от типовой тем, что базовую нельзя редактировать, но можно сделать внешнюю печатную форму, но тогда у вас в элементе справочника контрагента должен быть установлен атрибут основной для выбранного счета.

Ответ отправила: S-vet (статус: 1-ый класс) Ответ отправлен: 28.07.2008, 21:20

Вопрос № 140.885

Здравствуйте, коллеги! Работаю с платформой 7.7. Возникла необходимость в справочнике МестаХранения реквизиту МОЛ (справочника Сотрудники) установить признак Периодический. Но вот незадача - теперь не хочет работать запрос, который ссылается на этот реквизит (в Приложении). Как можно в запросе получить значение МОЛ'а на определенную дату? А прочитать значения в диапазоне дат? Спасибо.

Отправлен: 28.07.2008, 14:28 Вопрос задал: Владимир Лазурко (статус: Студент) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Airyashov По-моему в 7.7 в запросе нельзя использовать периодический, перепишите алгоритм без запроса.

Ответ отправил: Airyashov (статус: 6-ой класс) Ответ отправлен: 28.07.2008, 15:37

Отвечает: Игорь К. Здравствуйте, Владимир Лазурко! Запрос возвращает последнее значение периодического реквизита. Попробуйте использовать "Период с НачДата по КонДата". Тогда запрос будет выдавать МОЛ на дату КонДата. В диапазоне дат наверно можно исхитриться взяв результаты 2 запросов и обработать через Таблицу Значений. Но тогда будут МОЛ на 1 конечную дату и на 2 конечную дату. А вот между датами, если МОЛ менялись ... увы. Но можно несколько запросов - допустим 12 за год, каждый с периодом 1 месяц. Затем обработать в ТЗ и получить всех МОЛ с дискретностью месяц. Пример Кода запроса в приложении. На форме разместил стандартный диалог выбора периода. Приложение: Процедура Сформировать()<br>Таб=СоздатьОбъект("ТаблицаЗначений");<br>ПустойСклад=ПолучитьПустоеЗначение("Справочник.МестаХранения");<br><br>ТекстЗапроса=" <br>|Период с НачДата По КонДата;<br>|МестаХранения = Справочник.МестаХранения.ТекущийЭлемент;<br>|МОЛ = Справочник.МестаХранения.МОЛ;<br>|Группировка МестаХранения упорядочить по МестаХранения.Наименование без групп;<br>|Группировка МОЛ;<br>//|Условие(МОЛ В Сотрудник);<br>//|Условие(МестаХранения <> ПустойСклад);<br>|";<br><br>Запрос=СоздатьОбъект("Запрос");<br>Если Запрос.Выполнить(ТекстЗапроса)=0 Тогда<br> Возврат;<br>КонецЕсли; <br>Запрос.Выгрузить(Таб);<br>Таб.ВыбратьСтроку();<br>КонецПроцедуры <br>//_____________________________________________________________________________<br>Процедура ПриОткрытии()<br> НачДата=НачалоПериодаБИ();<br> КонДата=КонецПериодаБИ();<br>КонецПроцедуры //ПриОткрытии<br></texta rea> <br>---------<br><font color=#808080><i>Если хорошенько подумать, - можно разобраться в чем угодно. Даже в устройстве летающей тарелки.</td></tr> <tr><td height=8></td></tr> <tr><td>Ответ отправил: <b><a href=http://rusfaq.ru/info/user/20632 target=_blank>Игорь К.</a></b> (статус: <b>6-ой класс</b>)<br> Ответ отправлен: <b>28.07.2008, 15:59</b><br>Оценка за ответ: <b><font color=red><font color=green>5</font></font></b><br><b>Комментарий оценки:</b><br><i>Спасибо за идею. Дальше - в мини-форуме.</i></td></tr> </table><hr size=1 noshade> <a name=#140918></a><p><table width=100% cellpadding=4 class=A><tr bgcolor=#EFEFEF><td height=30 valign=middle><font size=2><b>Вопрос № 140.918</b></td></tr> <tr><td> Здравствуйте Уважаемые эксперты! Вопрос по версии 8.<br>Подскажите (или подпраьте мой код) как корректно загрузить из текстового файла сотрудников.<br><br>Процедура КнопкаВыполнитьНажатие(Кнопка)<br> ТекстФайл=Новый ТекстовыйДокумент;<br> ТекстФайл.Прочитать("c:sotr.txt");<br> <br> Для НомСтроки=1 По ТекстФайл.КоличествоСтрок() Цикл<br> Стр=ТекстФайл.ПолучитьСтроку(НомСтроки);<br> Позиция=Найти(Стр,Символ(34));<br> Код=Сред(Стр,1,Позиция-1);<br> Наименование=Сред(Стр,14,Позиция+50);<br> <br> НовыйЭлемент=Справочники.ФизическиеЛица.СоздатьЭлемент();<br> НовыйЭлемент.Код=Код;<br> НовыйЭлемент.Наименование=Наименование;<br> НовыйЭлемент.Записать();<br> КонецЦикла;<br>КонецПроцедуры<br><br>Текст выглядит следующим образом:<br>"00005""Сидоров Петр Иванович"<br>"00006""Петров Федор Валентинович"<br><br>Сорри начинаю изучать версию восемь!<br> </td></tr> <tr><td height=8></td></tr> <tr><td>Отправлен: <b>28.07.2008, 19:58</b><br> Вопрос задал: <b><a href=http://rusfaq.ru/info/user/13227 target=_blank>Besker®</a></b> (статус: <b>Студент</b>)<br> Всего ответов: <b>1</b><br> <a href=http://rusfaq.ru/info/Question/140918 target=_blank><b>Мини-форум вопроса >>></b></a> (сообщений: <b>0</b>)</td></tr> <tr><td height=10><hr size=1 noshade width=115 align=left></td></tr> <tr><td><b><font size=2>Отвечает: Sim_tm</font></b><br> Здравствуйте, Besker®!<br>На первый взгляд у вас все правильно.<br>я бы правда использовал "немного" другие объекты, в приложении мой вариан (как альтернатива).<br>ну и неплохо бы наверно было дать возможность пользователю выбрать файл в котором находятся данные. Для этого можно использовать диалог выбора файла.<br>А еще, возможно, Вам необходимо сделать поиск в справочнике на уже существующие элементы либо по коду, либо по наименованию, а то вдгур элементы с таким кодом или наименованиме уже кто-то ввел ручками или раньше загрузил. <br><br> <p><b>Приложение:</b><br><textarea cols=70 rows=9 class=box>//----- Обработка текстового файла<br><br>ТекстФайл = Новый ЧтениеТекста(Путь);<br>ТекСтрока = ТекстФайл.ПрочитатьСтроку();<br>Пока ТекСтрока <> Неопределено Цикл<br> <br> //ваши действия по обработке прочитанной строки <br> <br> ТекСтрока = ТекстФайл.ПрочитатьСтроку();<br> <br>КонецЦикла;<br><br><br>//----------------Выбор файла<br><br>ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие); <br>ДиалогОткрытияФайла.Заголовок = "Укажите расположение файла с данными";<br>Если ДиалогОткрытияФайла.Выбрать() тогда<br> Путь = ДиалогОткрытияФайла.ПолноеИмяФайла; <br>КонецЕсли;

Ответ отправил: Sim_tm (статус: 6-ой класс) Ответ отправлен: 28.07.2008, 21:05 Оценка за ответ: 5

Вопрос № 140.971

Люди добрые помогите плз. Присвоил названию новой колонке таблицы значений переменную. ТабЗнач.НоваяКолонка(Мес); Как потом можно присвоить этой колонке список значений?? я делаю так - не получается( ТабЗнач.НайтиЗначение (НужныйКонтр, , "Контрагент"); СписокЗнач.ДобавитьЗначение(Реализ); СписокЗнач.ДобавитьЗначение(Счет); СписокЗнач.ДобавитьЗначение(Оплата); ТабЗнач.Мес = СписокЗнач;

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

Отвечает: Вильгоненко Станислав Викторов Здравствуйте, Coollerok! Строка=0; Если ТабЗнач.НайтиЗначение (НужныйКонтр, Строка, "Контрагент")=1 Тогда СписокЗнач=СоздатьОбъект("СписокЗначений"); СписокЗнач.ДобавитьЗначение(Реализ); СписокЗнач.ДобавитьЗначение(Счет); СписокЗнач.ДобавитьЗначение(Оплата); ТабЗнач.УстановитьЗначение(Строка, Мес, СписокЗнач); КонецЕсли; Может быть так будет правильно?

Ответ отправил: Вильгоненко Станислав Викторов (статус: 2-ой класс) Ответ отправлен: 29.07.2008, 13:40

Вопрос № 140.972

Люди добрые помогите плз. Присвоил названию новой колонке таблицы значений переменную. ТабЗнач.НоваяКолонка(Мес); Как потом можно присвоить этой колонке список значений?? я делаю так - не получается( ТабЗнач.НайтиЗначение (НужныйКонтр, , "Контрагент"); СписокЗнач.ДобавитьЗначение(Реализ); СписокЗнач.ДобавитьЗначение(Счет); СписокЗнач.ДобавитьЗначение(Оплата); ТабЗнач.Мес = СписокЗнач;

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

Отвечает: Korolyov Alexander Здравствуйте, Coollerok! Попробуйте следующую конструкцию: ТабЗнач.Мес = СоздатьОбъект ("СписокЗначениий"); ТабЗнач.Мес.ДобавитьЗначение (Реализ); ..... --------- Читайте help

Ответ отправил: Korolyov Alexander (статус: 4-ый класс) Ответ отправлен: 29.07.2008, 13:26

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

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

Вопрос № 140.973

Здравствуйте! Прошу объяснить, как в ячейке таблицы выводить текст не горизонтально (как обычно), а вертикально (с поворотом на 90 грвдусов). В таблице много столбцов, требуется сделать их как можно уже, для этого заголовки надо размещать вертикально. Спасибо

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

Отвечает: Korolyov Alexander Здравствуйте, Марков Дмитрий! Для области таблицы доступна следующая процедура: ОриентацияТекста(<?>) Синтаксис: ОриентацияТекста(<Угол>) Назначение: Получить/установить ориентацию текста в области. Возвращает угол наклона текста в градусах. Параметры: <Угол> - необязательный параметр. Число: угол наклона текста в градусах. Если параметр опущен, то угол наклона текста области не изменяется. --------- Читайте help

Ответ отправил: Korolyov Alexander (статус: 4-ый класс) Ответ отправлен: 29.07.2008, 13:32

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

Ответ отправил: Вильгоненко Станислав Викторов (статус: 2-ой класс) Ответ отправлен: 29.07.2008, 13:46

Вопрос № 140.991

Уважаемые эксперты, прошу помочь, Упр.Торговлей 8.1, макет накладной РеализацияТоваровУслуг, как можно сделать, чтоб распечатать на одной страничке несколько накладных, допустим 4, ИмяМакета, КоличествоЭкземпляров, необходимо еще какое то условие? "КоличествоЭкземпляров=4 ", так понимаю не идет, а как можно программно?

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

Отвечает: S-vet Здравствуйте, Provnick! ТабличныйДокумент (SpreadsheetDocument) ЭкземпляровНаСтранице (PerPage) Использование: Чтение и запись. Описание: Тип: Число. Содержит количество страниц на листе при выводе табличного документа на печать. Допустимые значения: 1 - одна страница, 2 - две страницы, 0 - автоматическое определение. Сериализуется.

Ответ отправила: S-vet (статус: 1-ый класс) Ответ отправлен: 30.07.2008, 13:36

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