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

Выпуск № 228
от 21.06.2006, 11:35

Вопрос № 46.299

Здравствуйте, Эксперты! 1с 7.7. 1С:Бухгалтерия. Типовая конфигурация (релиз 466). При вводе основных средств менее 20'000 происходит автоматическое списание их "ОС списано на затраты". Чтобы сделать такое, чтобы, например, после увольнения сотрудника, отследить, что за ним числится (ведь при вводе этих средств мы же указываем отвественное лицо - элемент справочника "Сотрудники", а после автоматического списания нужная информация теряется)... Если у кого есть, какие идеи или может какой нибудь исх. код, на примере которого можно было бы реализовать мою задачу, буду очень признателен...!!!

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

Отвечает: BuhCIA Здравствуйте, Виталик! 1. Сделать счет 01.1 (или весь 01) с количественным учетом. При вводе в эксплуатацию Дебет 01 Кредит 08 идет с количеством 1, Дебет 26(20) Кредит 01 идет с количеством 0. Таким образом, оборотно-сальдовая ведомость по счету 01.1 или 01 будет показывать конечное сальдо 0 рублей количество 1 Разумеется, нужно будет вручную или подправленным "Списание ОС" или самописным документом списывать такие основные средства по количеству, когда они приходят в негодность. 2. Создать регистр с измерениями "ОсновныеСредства" и "Сотрудники" и организовать занесение при вводе в эксплуатацию и списание при списании ОС. 3. Ничего не менять в конфигурации, написать внешний отчет, просматривающий все проводки по счету 01.1 за все годы существования фирмы (например, СоздатьОбъект("БухгалтерскиеИтоги");ИспользоватьСубконто(ВидыСубконто.ОсновныеСредства);ВыполнитьЗапрос(); ), по каждому значению субконто Основные средства, имеющему обороты по дебету 01, из справочника извлекать атрибут ОтветственноеЛицо, результаты заносить хотя бы в ТаблицуЗначений, которую потом отсортировать. Проблема та же: пока бухгалтеры не начнут следить за списанием таких основных средств (и за передачей их между ответственными лицами), ничего хорошего не получится: будет просто перечень основных средств, которые когда-то выдавались в эксплуатацию сотруднику, а что потом было с этими основными средствами - неизвестно. Если бухгалтеры следить обещают, то доделывать документы "ПеремещениеОС", "СписаниеОС" и т.п. все равно придется... 4. Ничего не делать, объяснить бухгалтерам, что не вредно было бы вести вручную карточки на все основные средства, где и отмечать их движение, а карточки разложить по конвертам, каждый конверт на одно ответственное лицо Выбор за Вами! Добавлено: А. Карточка - это прямоугольный кусок картона или плотной бумаги, на которой бухгалтер авторучкой пишет название основного средства, ответственное лицо и др. сведения. Есть унифицированная форма. Если ответственных лиц десяток, то берется большой почтовый конверт формата А4 и на нем пишется ФИО ответственного лица, а внутрь вкладываются "его" карточки основных средств. При небольшом количестве ОС эта технология работает значительно быстрее компьютерного учета. Б. Не знал, что уже в релизе 466 было такое списание основных средств на затраты. Но если так, то почему не выдавать просто оборотно-сальдовую ведомость по счету 10.9 ? Местом хранения может быть и лицо, ответственное за данное ОС, а чтобы основные средства не путались с другими материалами, можно создать соответствующую группу в справочнике МестаХранения или в справочнике Материалы и выдавать оборотно-сальдовую ведомость с отбором по этой группе. Это в порядке развития Вашего предложения, вполне разумного. P.S. Все же лучше обговорить с бухгалтерами и утвердить где-нибудь типа учетной политики критерий контроля за движением дешевых основных средств - ведь калькулятор и даже хорошая авторучка тоже основное средство, если служат более года. Учитывать всю историю этого - будут огромные компьютерные распечатки... --------- Скажите, сколько времени? - (устало, показывая часы) Читайте, там же все написано!

Ответ отправил: BuhCIA (статус: Практикант) Ответ отправлен: 16.06.2006, 09:33 Оценка за ответ: 5 Комментарий оценки: Ваши варианты решения задачи мне весьма интересны...! Одновременно с этим у меня появился свой вариант. Прокомментируйте пожайлуста его. А звучит он так, правда не совсем уверен, что правильно поступаю, идя на такой шаг. При вводе в эксплюатацию ОС и выставлении на вкалдке "Общие сведения" галочки "Списать на затраты на производство" - в типовой конфигурации происходит Дт 10.9 Кт 08.Х. Я же сразу после этого делаю продоку Дт 014 (счет забалансовый, количественный учет, аналитика в разрезе Субконто1 -> Сотрудники, Субконто2 -> ОсновныйСредства) на туже сумму и количетсво, что и у 10.9. Далее если сделать отчет ОСВ по счету 014 (по субконто) - можно просмотреть что за кем и сколько закреплено. Если же малоценное средство пришло в негодность, бухгалтер при помощи "Бухгалтерской справки" д елает проводку Кт 014. Если вариант очень глуп, прошу не быть слишком строгим ко мне... :)

Вопрос № 46.304

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

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

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

Ответ отправил: BuhCIA (статус: Практикант) Ответ отправлен: 15.06.2006, 13:15 Оценка за ответ: 5 Комментарий оценки: Спасибо!

Отвечает: Elric Здравствуйте, Vlad! 1. Если ТМЦ это реквизит табличной части, то не забывайте пользоваться методом НоваяСтрока(). Опять же, Вы описали что делать если документ с соответствующим номером не найден (кстати, дату забыли указать) и не указали что делать если документ с таким номером уже существует (наверняка в таком случае нужно в этот документ добавить новую строку с соответствующим ТМЦ и Количеством). 2. При создании нового документа Вы не присваиваете ему номер из Списка. В результате автоматически присвоенный номер может оказаться другим и у Вас будут созданы лишние документы с "неправильными" номерами по которым будет разбросан номенклатурный состав. 3. Если сам текстовый файл формируется также в 1С, рекомендую отказаться от использования функции "ИзСтрокиСРазделителем". Логичнее использовать функции "ЗначениеВСтроку" и "ЗначениеИзСтроки" применительно к списку значений -- тогда список всегда будет сохраняться и восстанавливаться корректно (не будет путаницы с разделителями). В итоге приведенный фрагмент кода должен выглядеть так как в Приложении. Если же текстовый файл формируется не в 1С или в другой базе 1С, то, возможно, стоит выгружать не ссылку на элемент справочника, а, скажем, только его код и потом по коду находить нужный элемент (а потом уже присваивать это значение как реквизит документа). --------- Мирный атом в КАЖДЫЙ дом

Ответ отправил: Elric (статус: Студент) Ответ отправлен: 15.06.2006, 14:11 Оценка за ответ: 5 Комментарий оценки: Elric, спасибо большое!

Отвечает: Лазурко Владимир Здравствуйте, Vlad! Посмотри кусок кода. Думаю, поможет. Приложение: // =============================== // Описание: Поиск элемента справочника Функция НайтиЭлемент(ВидСправочника, Код = 0, Наименование = "") Спр = СоздатьОбъект("Справочник." + ВидСправочника); текСтатусВозврата = 0; Если ПустаяСтрока(Наименование) = 1 Тогда текСтатусВозврата = Спр.НайтиПоКоду(Код, 0); ИначеЕсли Код = 0 Тогда текСтатусВозврата = Спр.НайтиПоНаименованию(Наименование, 0); КонецЕсли; Если текСтатусВозврата = 0 Тогда Сообщить("Не найден " + ВидСправочника + "по " + ?(ПустаяСтрока(Наименование) = 1, "коду " + код, " наименованию " + Наименование)); КонецЕсли; Возврат ?(текСтатусВозврата = 1, Спр.ТекущийЭлемент(), ПолучитьПустоеЗначение("Справочник." + ВидСправочника)); КонецФункции // НайтиЭлемент() // =============================== Процедура СоздатьШапкуДокумента(Док); Док = СоздатьОбъект("Документ.ВводОстатковТоваров"); Док.Новый(); Док.Фирма = Константа.ОсновнаяФирма;//?((ПустоеЗначение(текФирма) = 1) или (ТипЗначенияСтр(текФирма) <> "Справочник"), Константа.ОсновнаяФирма, текФирма); Док.Склад = ВыбСклад; Док.ДатаДок = ВыбДата; Док.ВидОстатков = 1; Док.Основание = "Заполнен автоматически обработкой перегрузки данных"; Док.Контрагент = ВыбКлиент; Док.Комментарий = Док.Основание; Док.Автор = глПользователь; //Док.Тип = 1; КонецПроцедуры // СоздатьШапкуДокумента() // =============================== Процедура Сформировать() Перем Док; Текст = СоздатьОбъект("Текст"); Сп = СоздатьОбъект("СписокЗначений"); Текст.Открыть(ВыбФайлЗагрузки); тз = СоздатьОбъект("ТаблицаЗначений"); тз.НоваяКолонка("Товар", "Справочник.Номенклатура"); тз.НоваяКолонка("ИнвКоличество","Число", 13,3); тз.НоваяКолонка("Количество", "Число", 13,3); тз.НоваяКолонка("ПослЦена", "Число", 13,3); тз.НоваяКолонка("Стоимость", "Число", 15,3); НачатьТранзакцию(); Состояние("Обработка текстового файла"); Док = СоздатьОбъект("Документ.ВводОстатковТоваров"); текТовар = ""; ВсегоСтрок = Текст.КоличествоСтрок(); Для Инд = 1 По Текст.КоличествоСтрок() Цикл Состояние("Обработка файла " + Формат(?(ВсегоСтрок = 0, 0, Инд / ВсегоСтрок) * 100, "Ч012.2") + "%"); ТекСтрока = Текст.ПолучитьСтроку(Инд); Сп.УдалитьВсе(); Сп.ИзСтрокиСРазделителями(ТекСтрока); тз.НоваяСтрока(); тз.Товар = НайтиЭлемент("Номенклатура", Число(Сп.ПолучитьЗначение(1))); тз.ИнвКоличество = Число(Сп.ПолучитьЗначение(4)); тз.Количество = Число(Сп.ПолучитьЗначение(5)); тз.ПослЦена = Число(Сп.ПолучитьЗначение(6)); тз.Стоимость = Число(Сп.ПолучитьЗначение(7)); КонецЦикла; тз.ВыбратьСтроку(); // записывание документа // Пока тз.КоличествоСтрок() <> 0 Цикл тз.ПолучитьСтрокуПоНомеру(1); СоздатьШапкуДокумента(Док); текТовар = ""; тз.ВыбратьСтроки(); Пока тз.ПолучитьСтроку() = 1 Цикл Состояние("Обработка тз " + Формат(?(тз.КоличествоСтрок() = 0, 0, тз.НомерСтроки / тз.КоличествоСтрок()) * 100, "Ч012.2") + "%"); Если ТекТовар <> тз.Товар Тогда ТекТовар = тз.Товар; // Добавить строку Док.НоваяСтрока(); Док.Товар = ТекТовар; Док.Количество = тз.Количество; Док.Единица = ТекТовар.ЕдиницаПоУмолчанию; Док.Коэффициент = 1; Док.ЦенаСНДС = тз.ПослЦена; Док.ЦенаБезНДС = тз.ПослЦена; Док.СуммаСНДС = тз.Стоимость; Док.СуммаБезНДС = тз.Стоимость; Док.ЦенаСНДСРеал = тз.ПослЦена; Док.ЦенаБезНДСРеал = тз.ПослЦена; Док.СуммаСНДСРеал = тз.Стоимость; Док.СуммаБезНДСРеал = тз.Стоимость; КонецЕсли; КонецЦикла; // Попытка записи Попытка Док.Записать(); Исключение КонецПопытки; // КонецЦикла; ЗафиксироватьТранзакцию(); КонецПроцедуры --------- Доброе отношение к людям может изменить твою жизнь

Ответ отправил: Лазурко Владимир (статус: 2-ой класс) Ответ отправлен: 16.06.2006, 01:07

© 2001-2006, Портал RusFAQ.ru, Россия, Москва. Идея, дизайн, программирование: Калашников О.А. Email: adm@rusfaq.ru, Тел.: +7 (926) 535-23-31 Авторские права | Реклама на портале Версия системы: 4.34 от 01.06.2006