Вопрос № 136.426

Здравствуйте уважаемые эксперты. Подскажите пожалуйста есть ли в 8-ке возможность окрашивать отдельные строки журнала документов в различные цвета. Например, что бы в зависимости от определенного реквизита документа строка принимала тот или иной цвет. В 7-ке данная проблема решалась с помощью внешней компоненты, а как быть в 8-ке не знаю. Может быть для 8-ой версии тоже есть подобная компонента, или данную возможность внесли в возможности платформы. Подскажите любые варианты как это можно сделать, очень нужно. Заранее спасибо.

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

Отвечает: Airyashov Здравствуйте, ProstakV! Если есть диск ИТС почитайте там статья есть на эту темы с примером. Ну если разберетесь вот пример: Процедура ЖурналДокументовСписокПриВыводеСтроки(Элемент, ОформлениеСтроки, ДанныеСтроки) Если ДанныеСтроки = Неопределено Тогда Возврат; КонецЕсли; Если Не ДанныеСтроки.Проведен И Не ДанныеСтроки.ПометкаУдаления Тогда ОформлениеСтроки.ЦветФона = ЦветаСтиля.ЦветФона_НеПроведенныйДок; КонецЕсли; Подпись=Подписи_СостояниеОбъекта(ДанныеСтроки.Ссылка,ПланыВидовХарактеристик.ВидыПодписей.ПодписьРКО); _Состояние =Подпись.Состояние; _Автор =Подпись.СокрНаименование;//Подпись.Автор; Если _Состояние <> Неопределено Тогда ОформлениеСтроки.Ячейки.Подпись.ОтображатьТекст = Истина; ОформлениеСтроки.Ячейки.Подпись.Текст = _Автор; // Цвета Если _Состояние=Перечисления.ПодписиОбъектов_Состояния.Снята Тогда ОформлениеСтроки.Ячейки.Подпись.ЦветФона=ЦветСнята; ИначеЕсли _Состояние=Перечисления.ПодписиОбъектов_Состояния.Блок Тогда ОформлениеСтроки.Ячейки.Подпись.ЦветФона=ЦветБлок; ИначеЕсли _Состояние=Перечисления.ПодписиОбъектов_Состояния.Подписан Тогда ОформлениеСтроки.Ячейки.Подпись.ЦветФона=ЦветПодписан; Иначе ОформлениеСтроки.Ячейки.Подпись.ЦветФона=ЦветНаПодпись; КонецЕсли; КонецЕсли; КонецПроцедуры

Ответ отправил: Airyashov (статус: 5-ый класс) Ответ отправлен: 12.05.2008, 10:14 Оценка за ответ: 5

Отвечает: Кулевский Сергей Владимирович Здравствуйте, ProstakV! Добрый день. Это реализовано в возможностях платформы. И доступно в обработке события "ПриВыводеСтроки": ОформлениеСтроки.ЦветФона = Новый Цвет(255,255,255);

Ответ отправил: Кулевский Сергей Владимирович (статус: 5-ый класс) Ответ отправлен: 12.05.2008, 11:17 Оценка за ответ: 5

Вопрос № 136.480

Помогите решить проблему: мой компьютер находится в домене SBS SERVERA,у меня стоит Vista Bussines, сетевая версия 1С Предприятие 7.7 после загрузки компа некоторое время работает, а потом пишет "Не опознан ключ программы". После перезагрузки опять работает нормально и т.д.......На других клиентских компах стоят ХР и 1С работает без проблем

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

Отвечает: Кулевский Сергей Владимирович Здравствуйте, Вавилов Евгений! Этот вопрос уже рассматривался здесь. Попробуйте обновить платформу 1С на 27 релиз. http://rusfaq.ru/info/Question/133909

Ответ отправил: Кулевский Сергей Владимирович (статус: 5-ый класс) Ответ отправлен: 12.05.2008, 15:32 Оценка за ответ: 4

Вопрос № 136.486

1c 7.7 комплексная. В базе ведется несколько фирм, контроль остатков - по компании в целом. В результате выяснилось, что в результате проведения доков списания-реализации регистр ПартииНаличие не закрывается (идет списание с одной и той же партии несколько раз в разрезе нескольких фирм). Перепроведение (так как сдача отчетности была) не подходит. 1. Есть ли универсальная обработка - отчет, которую можно использовать для просмотра незакрытых партий. Смотрела с диска итс Regprint.ert - отражает все движения регистра, условия отбора не работают. 2. Подскажите схему - с чего начать выправлять значения себестоимости и с помощью каких обработок или доков можно отредактировать конкретные ошибки регистра не перепроводя доки (например в разрезе фирмы остаток 0 единиц, а сумма без НДС равна 10000).

Отправлен: 12.05.2008, 15:44 Вопрос задала: Краскова Ира (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Астафьев Александр Николаевич Здравствуйте, Краскова Ира! Просмотреть партии очень просто. Т.к. каждый приходный документ это партия то сформировав ведомость по партиям в разрезе документов прихода (галочку в детализации надо поставить на документы прихода) вы сразу видите по каким документам конечные остатки есть та партия и не закрылась. Почему у вас не работает отбор в Regprint.ert сложно сказать, у всех работает. Поэкспериментируйте с настройками где то вы там ошибаетесь. А вот с корректировкой партий сложно. Если стоит: контролировать остатки по компании в целом, как вы пишете, это вовсе не означает что реализовывать надо с какой хочу фирмы и мне все паралельно. Обычно по итогам дня делается соответствующий отчет на отрицательные остатки. Затем нужно сделать документы расхода прихода между своими фирмами в программе, причем эти документы помещаем в начало дня и перепроводим все документы за день. Чтобы в программе все легло красиво. Контроль по компании в целом ставится для ускорения обслуживания клиентов, чтобы быстрее произвести отпуск и не тратить время при клиентах на перемещения товаров с одной своей фирмы на другую. Или что ваши бухгалтера считают что они делают приход на одну фирму , а расход с другой фирмы и это допустимо по правилам бухгалтерского учета? Все ваши фирмы это по закону разные юридические лица и приходно-расходные документы между ними обязательны. Теперь о грусном: движения регистра записываются только при проведении и исправить себестоимость по по партиям без перепроведения соответственно никак не получится. Остатки же по партиям вы можете поправить вводом документов списания и оприходования. Тольлко оставляйте в них пустыми бухгалтерские счета чтобы оборотка осталась без изменений. Корректировку эту нужно сделать на конец текущего периода и дальше работать правильно(пример смотри выше) Если вы начнете заносить документы корректировки задним числом у вас слетит граница последовательности и тогда рано или поздно документы прийдется перепроводить (надеюсь вы знаете что это такое и граница у вас на текущей дате) . Поэтому корректировку остатков нужно делать только на конец текущего периода. Удачи!!!

Ответ отправил: Астафьев Александр Николаевич (статус: Студент) Ответ отправлен: 14.05.2008, 15:46 Оценка за ответ: 5 Комментарий оценки: фирмами у нас делаются, правда только по итогам месяца, а вот в начало месяца бухи их не помещали - отсюда и проблемы себестоимости. Граница последовательности восстанавливается регулярно. А для выправления партий создала док, который делает движения по регистру, кроме того надо будет списывать остатки сумм и с 41 счета. вот такие идеи)

Вопрос № 136.505

Здравствуйте уважаемые эксперты! Почему у меня не выводит ни одной строки простейший запрос: |Период с ВыбНачПериода по ВыбКонПериода; |Сч = Операция.Счет; |Группировка Сч; |"//}}ЗАПРОС

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

Отвечает: Владимир Лазурко Здравствуйте, DENIA! Вы привели только текст запроса. Сам по себе текст запроса ничего не делает. Для того, чтобы запрос работал, нужно его выполнить. Затем уже обработать результаты запроса. Предполагаю, что Вы работаете с седьмой платформой, а в запросе хотите перебрать все счета из операций. Посмотрите, как у меня в Приложении. Здесь переменная ТекстЗапроса содержит текст запроса. После этого запрос выполняется Запрос.Выполнить(ТекстЗапроса). В случае удачного выполнения запроса идёт выборка по группировке (цикл Пока). Рекомендую прочитать в книге "Описание встроенного языка" главы 33 "Работа с Запросами" и 34 "Язык запросов". С уважением, Владимир. Приложение: Процедура Сформировать() Перем Запрос, ТекстЗапроса, Таб; //Создание объекта типа Запрос Запрос = СоздатьОбъект("Запрос"); ТекстЗапроса = "//{{ЗАПРОС(Сформировать) |Период с ВыбНачПериода по ВыбКонПериода; |ПриходнаяНакладная = Документ.ПриходнаяНакладная.ТекущийДокумент; |Группировка ПриходнаяНакладная; |"//}}ЗАПРОС ; // Если ошибка в запросе, то выход из процедуры Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда Возврат; КонецЕсли; Пока Запрос.Группировка("ПриходнаяНакладная") = 1 Цикл Сообщить("Дата: "+Запрос.ПриходнаяНакладная.ДатаДок+", номер: "+Запрос.ПриходнаяНакладная.НомерДок+", контрагент: "+Запрос.ПриходнаяНакладная.Контрагент); КонецЦикла; КонецПроцедуры

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

Вопрос № 136.616

Добрый день эксперты! Работаю в 1С уже 2 месяца. Создана печатная форма и там добавлены в таблицу (Пол, День рождения и стаж вождения). Как мне из справочника контрагента выдрать эту информацию и поместить в таблицу?

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

Отвечает: Mukomelo Yevgeniy Bogdanovich Здравствуйте, Extrbot! Если я правильно Вас понял, необходимо в таблице, в нужной ячейке, вписать : "Справочники.Контрагенты.Пол" и "Справочники.Контрагенты.Стаж" и т.д. При этом в свойствах ячейке, обязательно нужно указать, что это "Формула", а не просто текст. --------- Никогда не бойся делать то, что ты не умеешь. Помни, ковчег был построен любителем. Профессионалы построили 'Титаник'.

Ответ отправил: Mukomelo Yevgeniy Bogdanovich (статус: 1-ый класс) Ответ отправлен: 13.05.2008, 12:37 Оценка за ответ: 5

Отвечает: Владимир Лазурко Здравствуйте, Extrbot! Я немного дополню предыдущий ответ. Всё верно: нужно в ячейку вписать нужную формулу, переменную или шаблон и указать в свойствах ячейки, что тип её содержимого отлично от текста. Однако хоть в таблице можно делать различныек вычисления, злоупотреблять этим не стоит. Рациональнее в ячейке таблицы поместить переменную, а значение этой переменной вычислять в модуле. Так будет быстрее. То есть в формулах ячеек строки напишите переменные ПечСотрудник, ПечПол, ПечДатаРождения, ПечСтаж. Соответственно, в процедуре печати перед выводом строки таблицы этим переменным присвойте значения: // Пример ПечСотрудник = Сотрудник.Наименование; ПечПол = ?(Сотрудник.Пол = 1, "М", "Ж"); ПечДатаРождения = Формат(Сотрудник.ДатаРождения, "ДДДММММГГГГ"); ПечСтажВождения = СотрудникСтажВождения; С уважением, Владимир.

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

Вопрос № 136.665

7,7 Ситация: есть справочник ТМЦ в нем есть реквизиты которые являются элементами другого справочника "ткани" . Вопрос: как запретить человеку выбырать элемент справочника Тмц в доки если в нем есть реквизиты (элнменты справочника Ткани) которые помечены на удалении. Тоесть нужно чтобы система проверяла и выкидывала сообщение.

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

Отвечает: Кулевский Сергей Владимирович Здравствуйте, Asteroid! Попробуйте так: Если Номенклатура.Ткани.ПометкаНаУдаление Тогда Сообщить("Элемент выбирать нельзя"); Возврат КонецЕсли; Номенклатура - ссылка на элемент справочника ТМЦ Ткани - имя реквизита на справочник Ткани в элементе "Номенклатура"

Ответ отправил: Кулевский Сергей Владимирович (статус: 5-ый класс) Ответ отправлен: 13.05.2008, 17:36 Оценка за ответ: 5

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

Ответ отправил: Maximush (статус: 3-ий класс) Ответ отправлен: 13.05.2008, 18:55 Оценка за ответ: 5

Вопрос № 136.781

Добрый день. Есть отчет по должникам. Сделан на основе "Оборотно-сальдовой по счету". Код в приложении. Выборка, как вы видите-по субконто. В представлении субконто "Договор" есть ДатаДок,НомерДок и УсловияОплаты. А вот в самом договоре есть еще и срок отсрочки, если договор "Отсрочка" и фио менеджера. Как можно вывести эти данные в отдельные колонки отчета? И еще. Не работает Расшифровка. Выдает - "Не выбран счет". Что я сделал не правильно? 1С 7.7 для украины Приложение: //=========================================== Перем Расшифровка; Перем Счет; Перем Ит; //******************************************* Процедура ПриОткрытии() Счет = "361"; КонДата=ТекущаяДата(); НачДата=НачМесяца(ТекущаяДата()); КонецПроцедуры //=========================================== Процедура Сформировать() Т=СоздатьОбъект("Таблица"); Т.ИсходнаяТаблица("Таблица"); Расшифровка = СоздатьОбъект("СписокЗначений"); РАсшифровка.Установить("Отчет","КарточкаСчета"); Расшифровка.Установить("ДатаНач", НачДата); Расшифровка.Установить("ДатаКон", КонДата); Расшифровка.Установить("Счет", Счет); ВидСубконто1 = ВидыСубконто.ЗначениеПоИдентификатору("Договора"); ВидСубконто2 = ВидыСубконто.ЗначениеПоИдентификатору("Контрагенты"); Ит=СоздатьОбъект("БухгалтерскиеИтоги"); Ит.ИспользоватьСубконто(ВидСубконто1,,1,); Ит.ИспользоватьСубконто(ВидСубконто2,,1,); Ит.ВыполнитьЗапрос(НачДата,КонДата,Счет); Ит.ВыбратьСубконто(); Т.ВывестиСекцию("Секция_2"); Т.ВывестиСекцию("Секция_3"); Пока Ит.ПолучитьСубконто() > 0 Цикл Если Ит.СКД() <=500 Тогда Продолжить; КонецЕсли; //Если Прав(Ит.ПредставлениеСубконто(1),8)<> "Отсрочка" Тогда // Продолжить; //КонецЕсли; Т.ВывестиСекцию("Секция_1"); КонецЦикла; Т.ВывестиСекцию("Секция_4"); Т.ТолькоПросмотр(1); Т.Показать("Отчет по должникам"); КонецПроцедуры

Отправлен: 14.05.2008, 12:43 Вопрос задал: stahh (статус: 6-ой класс) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 12)

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

Ответ отправил: Дмитрий Сташенко (статус: Студент) Ответ отправлен: 14.05.2008, 18:06 Оценка за ответ: 5 Комментарий оценки: Спасибо. Код очень помог =)

Вопрос № 136.788

Уважаемые эксперты, может вопрос и не в тему, но может кто подскажет: требуется иметь возможность загрузки компа как с "родного" жеского диска, так и с USB-диска (материнка поддерживает такой вариант). Вопрос в следующем: с помощью каких программ это достигается, т.е. как создать образ и как оформить USB-диск для загрузки с него. Буду благодарен за любую инфу! С уважением, Станислав.

Отправлен: 14.05.2008, 13:34 Вопрос задал: Вильгоненко Станислав Викторович (статус: 2-ой класс) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Strawberry Здравствуйте, Вильгоненко Станислав Викторович! вот что советует гугл http://forums.ferra.ru/index.php?showtopic=18228 http://faqs.org.ru/forum/viewtopic.php?t=11498 http://forum.ru-board.com/topic.cgi?forum=62&topic=7579 но есть одно НО - нельзя поставить полноценную винду на USB-диск потому что при загрузке или установке винды выпоняется переинициализация USB-контроллера и загрузочный диск для винды теряется --------- Мальчик-извращенец прочел деду Морозу с табуретки всего Пастернака!

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

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

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

Вопрос № 136.939

Доброго здоровья Эксперты! Есть проблема. Имеется комп(Windows XP SP1) на нем установлен LPT ключ к 1С. Данный ключ, по какой-то причине, не хочет устанавливаться ни на какой другой компьютер(на других машинах с Windows XP SP2 система его просто не видит). Зависит это от сервис пака или нет(просто проверить на другом компьютере с Windows XP SP1 нет возможности)? Имеется необходимость переустановки системы на Windows XP SP2, и есть опасения, что после переустановки данная машина не увидит ключ. Может ли быть такое?

Отправлен: 15.05.2008, 14:11 Вопрос задал: Alex81 (статус: 1-ый класс) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 4)

Отвечает: Кулевский Сергей Владимирович Здравствуйте, Alex81! Может. Это связано с тем, что в комплекте поставки драйвер ключа не расчитан на работу с SP2. Обновленный драйвер ключа защиты можно скачать с сайта производителя ПО защиты. (http://www.aladdin.com/hasp/default.aspx)

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

Отвечает: Астафьев Александр Николаевич Здравствуйте, Alex81!Проверте настройки LPT порта в биосе ставте самые расширенные. На новых компьютерах по умолчанию LPT может быть вообще в биосе отключен.

Ответ отправил: Астафьев Александр Николаевич (статус: Студент) Ответ отправлен: 15.05.2008, 16:07 Оценка за ответ: 3 Комментарий оценки: Спасибо за ответ - но наврядли это проблема из-за LPT порта. Например, на другом компе принтер, через LPT работает, а ключ нет...

Вопрос № 137.047

Приветствую Вас, уважаемые Эксперты! Возможно вопрос покажется глупым, но всеже... Как получить значение реквизита элемента справочника, если этот элемент еще не записан? Необходимо после заполнения но перед записью проверить некоторые из реквизитов нового элемента на совпадение с соответсвующими реквизитами уже имеющихся элементов этого справочника...

Отправлен: 16.05.2008, 10:51 Вопрос задал: Сазонов Алексей (статус: 7-ой класс) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Strawberry Здравствуйте, Сазонов Алексей! Если запись происходит итерактивно из элемента справочника: то просто обращаетесь к реквизиту значение = название_реквизита; Спр=СоздатьОбъект("Справочник.НашСправочник"); Если Спр.НайтиПоРеквизиту("название_реквизита",Значение,1) =1 Тогда сообщить("уже есть элемент справочника " + Спр.ТекущийЭлемент()+" с реквизитом название_реквизита" + Значение); КонецЕСли; --------- Мальчик-извращенец прочел деду Морозу с табуретки всего Пастернака!

Ответ отправил: Strawberry (статус: Студент) Ответ отправлен: 16.05.2008, 11:51

Вопрос № 137.057

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

Отправлен: 16.05.2008, 11:57 Вопрос задал: Ткаченко Алексей Васильевич (статус: 2-ой класс) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Сысоев Дмитрий Олегович Здравствуйте, Ткаченко Алексей Васильевич! Для Каждого Элемент из ЭлементыФормы Цикл Если Элемент.Имя = "ОсновныеДействияФормы" Тогда Кнопки = Элемент.Кнопки; Для Каждого Кнопка из Кнопки Цикл Если Не Кнопка.Имя = "ОсновныеДействияФормыЗакрыть" И Не Кнопка.Имя = "ОсновныеДействияФормыОК" Тогда //Это для панелей Кнопка.Доступность = Ложь; КонецЕсли; КонецЦикла; КонецЕсли; КонецЦикла; --------- Hайден неизвестный драйвер, воткните какое-нибудь устройство!

Ответ отправил: Сысоев Дмитрий Олегович (статус: Студент) Ответ отправлен: 16.05.2008, 15:42 Оценка за ответ: 1 Комментарий оценки: Вы хоть сами поняли как это реализовать? Нет все не так. Я уже все реализовал. Доступ к полям формы реализовано с помощью "РасширениеФормы". Всем спасибо!!!!

Вопрос № 137.253

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

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

Отвечает: Астафьев Александр Николаевич Здравствуйте, Владимир Лазурко! На 30 апреля вам нужно ввести НАЧАЛЬНУЮ стоимость основных средств и НАЧИСЛЕННУЮ АМОРТИЗАЦИЮ. Срок полезного использования вводите полный - 5 лет в вашем примере. Затем через Меню-"Налоговый учет"-"Формирование и контроль начальных остатков по налоговому учету" сформируйте начальные остатки по налоговому учету на 01 мая.

Ответ отправил: Астафьев Александр Николаевич (статус: Студент) Ответ отправлен: 18.05.2008, 18:06 Оценка за ответ: 5 Комментарий оценки: Спасибо. Продолжим в мини-форуме

Вопрос № 137.365

Здравсвуйте! У меня вопрос по Платворме 8.0 . Не могу разобраться с выгрузкой данных их ТЗ и загрузкой выгруженных данных в Табличную Часть документа. Обычно выдает ошибку: {МодульПриложения(149)}: Значение не является значением объектного типа (ЗагрузитьКолонку) Докум=Документы.Тест.Выбрать().ЗаданныеВопросы.ЗагрузитьКолонку( тз1.ВыгрузитьКолонку("Вопрос")); А в принципе мне надо выгрузить все данные а не одну колонку. Но для таблицы значений я такой метод не нашла. Подскажите, пожалуйста, что делать. Очень срочно надо! Приложение: Процедура СоздатьТест(ИмяТеста) Экспорт Док=Документы.Тест; кол=Справочники.Тесты.НайтиПоНаименованию(ИмяТеста).ВопросыТеста.Количество(); текстрока=Справочники.Тесты.ПолучитьФорму("ФормаЭлемента").ТекущийЭлемент; табчасть=Справочники.Тесты.НайтиПоНаименованию(ИмяТеста).ВопросыТеста; ТабДок = Новый ТабличныйДокумент; Макет = Справочники.Тесты.ПолучитьМакет("Печать"); // ПереченьВопросов Для каждого текстрока из табчасть Цикл Область = Макет.ПолучитьОбласть("вопросы"); Вопр=текстрока.Вопрос;//Справочники.Тесты.НайтиПоНаименованию(ИмяТеста).ВопросыТеста.Получить(т).Вопрос; //код вопроса Область.Параметры.Вопрос = Вопр; ТВопр=Справочники.Вопросы.НайтиПоКоду(Вопр).Вопрос; //текст вопроса Область.Параметры.Текст = ТВопр; ТабДок.Вывести(Область); КонецЦикла; тз1=новый ТаблицаЗначений; тз1.Колонки.Добавить("НомерВопроса"); тз1.Колонки.Добавить("Вопрос"); Для каждого текстрока из табчасть Цикл Вопр=текстрока.Вопрос; ТВопр=Справочники.Вопросы.НайтиПоКоду(Вопр).Вопрос; стр=тз1.Добавить(); стр.НомерВопроса=Вопр; стр.Вопрос=ТВопр; КонецЦикла; // тз1.ВыгрузитьКолонку("Вопрос"); //ТабДок.ОтображатьСетку = Ложь; //ТабДок.Защита = Ложь; //ТабДок.ТолькоПросмотр = Ложь; //ТабДок.ОтображатьЗаголовки = Ложь; //ТабДок.Показать(); Докум=Документы.Тест.Выбрать().ЗаданныеВопросы.ЗагрузитьКолонку( тз1.ВыгрузитьКолонку("Вопрос")); //Докум=Документы.Тест.Выбрать().ЗаданныеВопросы.Вставить().Вопрос.ПолучитьОбъект().Метаданные().ЗагрузитьКолонку( тз1.ВыгрузитьКолонку("Вопрос"));//НайтиПоРеквизиту("Вопрос",1).ПолучитьОбъект().ЭтотОбъект.ЗаданныеВопросы.ЗагрузитьКолонку(тз1.ВыгрузитьКолонку("Вопрос")); // Док.Выбрать().ЗаданныеВопросы.ЗагрузитьКолонку(тз1.ВыгрузитьКолонку("Вопрос")); //ФормаДок=Документы.Тест.ПолучитьФорму("ФормаТеста").ЭлементыФормы.Найти("ЗаданныеВопросы"). // КонецПроцедуры

Отправлен: 18.05.2008, 16:21 Вопрос задала: Ларионова Евгения Валерьевна (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 3)

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

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

Вопрос № 137.575

Добрый вечер! 1С 7.7. Есть оборотно-сальдовая ведомость. Бухгалтер по счету 77.2 или по любому другому счету формирует отчет. В ней видны кто клиенты по данному счету сумма и.т.д, но бухгалтеру нужно ИНН. В таблицу я добавил поле ИНН и как мне выдрать ИНН с контрагента или клиента? Все это она сохраняет в Excel и вручную набивает ИНН, что очень долго. Заранее спасибо

Отправлен: 19.05.2008, 22:44 Вопрос задал: Extrbot (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 4)

Отвечает: Астафьев Александр Николаевич Здравствуйте, Extrbot! Полю "ИНН" ставите в свойстве тип "Выражение" и поле для выражения пишете ПечИнн(). В модуле создадите функцию: Функция ПечИнн() Если ТипЗначенияСтр(Ит.Субконто())="Справочник" Тогда Если Ит.Субконто().Вид = "КонтрАгенты" Тогда Возврат СокрЛП(Ит.Субконто().ИНН); КонецЕсли; КонецЕсли; Возврат ""; КонецФункции Пример я взял для бухгалтерии 1С7.7 редакция 4.5 "Оборотно сальдовая ведомость по счету". Предполагая что в соседнем поле где выводится наименование организации написано Ит.ПредставлениеСубконто(), если у вас в ячейке где выводится наименование контрагента или клиента стоит какая то другая переменная то в ПечИнн() вместо Ит.Субконто() нужно будет использовать соответственно другое значение. Приложение: Функция ПечИнн() Если ТипЗначенияСтр(Ит.Субконто())="Справочник" Тогда Если Ит.Субконто().Вид = "КонтрАгенты" Тогда Возврат СокрЛП(Ит.Субконто().ИНН); КонецЕсли; КонецЕсли; Возврат ""; КонецФункции

Ответ отправил: Астафьев Александр Николаевич (статус: Студент) Ответ отправлен: 20.05.2008, 08:23 Оценка за ответ: 4

Вопрос № 137.600

Добрый день уважаемые! Такой вопрос есть переменные "Часы" и "Минуты" в они должны выдавать значение текущего часа и минуты по системному времени. Вот, что делаю: Часы = ТекущееВремя("Час"); Минуты = ТекущееВремя("Мин"); Потом эти переменные передают значения в реквизиты справочника (Тип число, 2 точность 0). Итог: Час передается нормально, а вместо минут опять идет значение часа...... Наверно я дурак и ответ очень близко, но без вашей помощи не догадаться! Зарание спасибо за ответ! Приложение: 1с 7.7

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

Отвечает: Airyashov Здравствуйте, Serega_artem! ТекущееВремя(Часы,Минуты,Секудны);

Ответ отправил: Airyashov (статус: 5-ый класс) Ответ отправлен: 20.05.2008, 09:56 Оценка за ответ: 2 Комментарий оценки: И в чем, простите, ответ?

Отвечает: Кулевский Сергей Владимирович Здравствуйте, Serega_artem! Попробуйте наоборот: Час = ТекущееВремя("Час") Мин = ТекущееВремя(,"Час")

Ответ отправил: Кулевский Сергей Владимирович (статус: 5-ый класс) Ответ отправлен: 20.05.2008, 10:36 Оценка за ответ: 4 Комментарий оценки: :) Неа не работает! Спасибо, что приняли участие

Отвечает: Игорь К. Здравствуйте, Serega_artem! Функция ТекущееВремя возвращает текстовую строку со значением времени. Если Вы храните в справочнике числовые значения часов, минут надо писать: Перем Час, Мин, Сек; ТекущееВремя( Час, Мин, Сек); Тогда в переменных Час, Мин и Сек будут значения соответственно часов, минут, секунд в числовом виде и их уже можно заносить в справочник. --------- Если хорошенько подумать, - можно разобраться в чем угодно. Даже в устройстве летающей тарелки.

Ответ отправил: Игорь К. (статус: 6-ой класс) Ответ отправлен: 20.05.2008, 10:50 Оценка за ответ: 4 Комментарий оценки: Вариант интересный, но не работает. Переменную Мин программа воспринимает как недописанную Мин() и ругается на ошибки...... Спасибо, что приняли участие

Отвечает: Астафьев Александр Николаевич Здравствуйте, Serega_artem!Пишите: Перем Ч, М, С; ТекущееВремя( Ч, М, С); В значениях переменных получите Ч-часы,М-минуты,С-секунды. Вообще то имена переменных могут быть любые, кроме зарезервированных 1С языком програмирования. Например нельзя использовать имя переменной Мин т.к это функция Мин(). Писать Часы=ТекущееВремя("Час") это ошибка, никакие кавычки внутри скобок стоять не должны. Программа такие записи игнорирует и возвращает текущее (системное) время в текстовом виде, например "12.34.53" где 12 часов 34 минуты 53 секунды.

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

Вопрос № 137.609

Здравствуйте. Нужна Ваша помощь по 1С 8.0 Как передать параметр Элемента формы документа в форму выбора справочника. Например фирму указанную в документе в фирму в форме выбора в справочнике.

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

Отвечает: Кулевский Сергей Владимирович Здравствуйте, Трифанюк Александр Дмитриевич! Необходимо перед тем как открывается форма выбора передать значение Элемента формыкак параметр отбора. Форма Выбора = Справочники.Номенклатура.ПолучитьФорму("ФормаСписка"); ФормыВыбора.Отбор.Организация.Значение = ЭлементФормы; // значение его ФормаВыбора.Отбор.Организация.Использование = Истина; ФормаВыбора.Открыть();

Ответ отправил: Кулевский Сергей Владимирович (статус: 5-ый класс) Ответ отправлен: 20.05.2008, 15:10 Оценка за ответ: 3 Комментарий оценки: Речь шла о форме выбора а не о форме списка. И эта форма выбора автоматически открывается при нажатии на кнопку выбора реквизита номенклатура в табличной части документа. Ответ впринципе правильный но не на мой вопрос. Он не решает моей проблемы. Мало того он к ней вообще не относиться.

Отвечает: Sim_tm Здравствуйте, Трифанюк Александр Дмитриевич! Ну я могу только добавить в защиту предыдущего ответа. для того что бы сделать то, что вы хотите, Вам в событии НачалоВыбора(Элемент, СтандартнаяОбработка) элемента для которого происходит открытие, параметр "СтандартнаяОбработка" надо скинуть в ЛОЖЬ и сделать ваши дейсткие - к примеру те, которые были описаны в первом ответе.

Ответ отправил: Sim_tm (статус: 6-ой класс) Ответ отправлен: 20.05.2008, 23:42

Вопрос № 137.626

Здравствуйте, господа эксперты. Извиняюсь, если это будет повторный вопрос, просто похоже был глюк и мой вопрос, который я задал часа три назад так и не дошел до русфака. Помогите пожалуйста, срочно нужно решить один вопрос. Суть проблемы: наш кадровик решил привести в порядок базу ЗиК, доставшуюся ему от предшественника. (1С 7.7, 281). Проблема в том, что база велась кое-как. Сейчас остро встал вопрос о том, что начисление зарплаты производилось без обязательных северных надбавок и районных коэффициентов. То есть сумма оклада и являлась той суммой, которая выплачивалась на руки. Вопрос в том, как быстро, правильно и без лишних проблем сделать так, чтобы эти коэффициенты и надбавки учитывались в расчете зарплаты и фигурировали в ведомостях? Чтоб, если неожиданная проверка, потом мне без зарплаты не остаться :-). Я поискал по инету, нашел несколько полезных ссылок, почитал...Вроде все понятно, как делается, вот только я так и не увидел эффекта от своих действий. Может я что-то не так сделал? Мои действия: установил районный коэффициент в константах, сделал шкалу северных надбавок в зависимости от стажа, проставил стаж для сотрудников в их карточках, в справочнике Виды расчетов для Оплаты по среднему заработку добавил в базу районный коэффициент...Или это совсем не так делается? Подскажите как быть, с радостью приму любую помощь. P.S.: кстати, кадровик утверждает, что в самой форме приказа о приеме на работу, возле поля "оклад", должно быть два "окошечка", где и надо вбивать северную надбавку и районный коэффициент. Я, если честно, даже и не знаю, как ей помягче ответить... :-)

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

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

Ответ отправил: Астафьев Александр Николаевич (статус: Студент) Ответ отправлен: 21.05.2008, 19:25 Оценка за ответ: 5 Комментарий оценки: Да, Вы правы, я как-то забыл, что по-идее надо сделать перерасчет, чтобы изменения применились. Хорошо, спасибо большое, буду пробовать.

Вопрос № 137.632

Вопрос по 1С 7.7. С помощью внешней обработки Необходимо программно обнулить значение реквизита "ПричинаВыбытия" справочника "Основные средства". Тип реквизита - перечисление. Код в приложении. Подскажите пожалуйста в чем ошибка. При записи элемента справочника реквизит не очищается. Приложение: Спр= создатьОбъект("Справочник.ОсновныеСредства"); спр.НайтиЭлемент(ПР); ТекРекв=СписокРекв.ПолучитьЗначение(СписокРекв.ТекущаяСтрока()); ТекЗнач=спр.ПолучитьАтрибут(ТекРекв); спр.УстановитьАтрибут(ТекРекв,ПолучитьПустоеЗначение(ТекЗнач)); спр.Записать();

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

Отвечает: Ромашов Евгений Николаевич Здравствуйте, Оксана/kasy! а если просто спр.требуемыйреквизит = 0;

Ответ отправил: Ромашов Евгений Николаевич (статус: 6-ой класс) Ответ отправлен: 21.05.2008, 05:43 Оценка за ответ: 5 Комментарий оценки: Спасибо. Помогло

Вопрос № 137.795

Вопрос по 1С 7.7 и SQL одновременно. Выполнялась обработка которая удаляла документы за определенный период методом удалитьобъект(). Выскочило сообщение о невосстановимой ошибке базы данных, 1С закрылась. При запуске 1С вывалилось сообщение, что база данных с указанным именем не обнаружена. В качестве сервера SQL используется MS SQL SERVER 2000. В списке баз эта база пропала. Произошло переполнение лог-файла и диска на котором находился каталог базы. присоединить базу не получается, выдается сообщение что "может быть некорректно физическое имя файла". Можно ли как то восстановить базу? Могло ли эта проблема быть из-за того, что метод удалитьобъект() выполнялся без проверки ссылок на объект?

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

Отвечает: Ромашов Евгений Николаевич Здравствуйте, Оксана/kasy! нет из-за метода Удалить() базы не теряются, просто нарушается ссылочная целостность. Если база исчезла из списка баз в самом sql, то по моему остается лишь архив.

Ответ отправил: Ромашов Евгений Николаевич (статус: 6-ой класс) Ответ отправлен: 22.05.2008, 05:04 Оценка за ответ: 4 Комментарий оценки: Спасибо. Проблема в том, что архив не восстановит данные за определ. промежуток времени. Архив делается с интервалом 1 час.

© 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