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

Выпуск № 586
от 29.08.2007, 10:35

Вопрос № 99.400

В программе 1С:Предприятие 7.7 в конфигурации бухгалтерский учет в справочнике наменклатура при вводе нового элемента код автоматически не учитывается после того как прошел рубеж 999. Пожалуйста подскажите как сделать так,чтобы после 999, он автоматически делал автономерацию 1000, 1001 и т.д. Зарянее блогодарю.

Отправлен: 23.08.2007, 14:41 Вопрос задал: Трофимов Сергей Анатольевич (статус: Посетитель) Всего ответов: 5 Мини-форум вопроса >>> (сообщений: 0)

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

Ответ отправил: Андрей Тимофеев (статус: 5-ый класс) Ответ отправлен: 23.08.2007, 14:53

Отвечает: Vlad Skorochod Здравствуйте, Трофимов Сергей Анатольевич! В справочнике номенклатура код это текстовое поле. Надо установить во всех кодах справочника лидирующие нули. После этого все будет нормально.

Ответ отправил: Vlad Skorochod (статус: 7-ой класс) Ответ отправлен: 23.08.2007, 15:01

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

Ответ отправил: Дрёма (статус: 5-ый класс) Ответ отправлен: 23.08.2007, 15:04

Отвечает: Elric Здравствуйте, Трофимов Сергей Анатольевич! Как вариант, можете ввести следующий элемент справочника с кодом К0001000 (вместо 1000), т.е. добавить первой какую-то букву -- тогда нумерация подхватит этот новый префикс и следующий номер автоматически будет К0001001. Разумеется, можно начать с более позднего кода, чем 1000... Главное добавить новый префикс. Это самое простое решение, все предыдущие, прозвучавшие здесь, тоже верны, хоть и более трудоемки. --------- В творчестве рождается истина

Ответ отправил: Elric (статус: Специалист) Ответ отправлен: 23.08.2007, 15:11

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

Ответ отправил: Афанасьев Владимир Владимирович (статус: 1-ый класс) Ответ отправлен: 23.08.2007, 15:40

Вопрос № 99.467

Здравствуйте уважаемые эксперты! Бухгалтерия 7.7. Помогите пожалуйста, не могу понять почему расхождения результатов по документу ИнвентаризацияТМЦ и отчету ИнвентаризационнаяОпись. Правильные данные по описи. В частности проверяю по материалам с учетом склада. В документе меняла на СКД(), но не помогает... У кого какие мысли по этому поводу? Приложение: // Инвентаризационная опись Функция ЗаполнитьТаблицуМПЗ(ВыборВидаМПЗ, ВидСубконто1, ВидСубконто2, Субконто2, Очистить=1) Если Очистить = 1 Тогда МПЗ.УдалитьСтроки(); КонецЕсли; // Формирование запроса к бухгалтерским итогам. БИ = СоздатьОбъект("БухгалтерскиеИтоги"); БИ.ВключатьСубсчета(-1); БИ.ИспользоватьСубконто(ВидСубконто1); Если ПустоеЗначение(ВидСубконто2) = 0 Тогда БИ.ИспользоватьСубконто(ВидСубконто2, Субконто2,2); КонецЕсли; ИспользоватьСчета = СоздатьОбъект("СписокЗначений"); Виды = ""; Для Б = 1 По ВыборВидаМПЗ.РазмерСписка() Цикл Если ВыборВидаМПЗ.Пометка(Б) = 1 Тогда Стр = ""; В = ВыборВидаМПЗ.ПолучитьЗначение(Б, Стр); ИспользоватьСчета.ДобавитьЗначение(СчетПоКоду(В)); Виды = Виды + Лев(Стр, Найти(Стр, "(")-2) + ", "; КонецЕсли; КонецЦикла; Если ИспользоватьСчета.РазмерСписка() = 0 Тогда Возврат 0; КонецЕсли; Виды = ?(СтрДлина(Виды) > 0, Лев(Виды, (СтрДлина(Виды) - 2)), ""); Если (ВидСубконто1 = ВидыСубконто.ОсновныеСредства) и (УчитыватьОбъектыСНулевойСтоимостью = 1) Тогда БИ.ВыполнитьЗапрос(\\\'01.01.1980\\\',ДатаДок,ИспользоватьСчета); Иначе БИ.ВыполнитьЗапрос(,ДатаДок,ИспользоватьСчета); КонецЕсли; // Заполнение итоговой таблицы значений МПЗ БИ.ВыбратьСубконто(1); Пока БИ.ПолучитьСубконто(1) = 1 Цикл Цена = ?(БИ.СКД("К")=0, БИ.СКД(), (БИ.СКД()/БИ.СКД("К")) ); Если ПустоеЗначение(ВидСубконто2) = 0 Тогда Если БИ.ПолучитьСубконто(2,, Субконто2) = 0 Тогда Продолжить; КонецЕсли; КонецЕсли; Если Форма.Закладки.ТекущаяСтрока() = 2 Тогда // инвентаризация ОС ... КонецЕсли; БИ.ВыбратьСчета(); Пока БИ.ПолучитьСчет() = 1 Цикл МПЗ.НоваяСтрока(); Если БИ.Субконто(1).Вид() = "ОсновныеСредства" Тогда МПЗ.ЕдиницаИзмерения = Константа.ОсновнаяЕдиницаИзмерения; МПЗ.Количество = 1; ИначеЕсли (БИ.Субконто(1).Вид() = "ОбъектыСтроительства") или (БИ.Субконто(1).Вид() = "Оборудование") Тогда МПЗ.ЕдиницаИзмерения = Константа.ОсновнаяЕдиницаИзмерения; МПЗ.Количество = БИ.СКД("К"); Иначе МПЗ.ЕдиницаИзмерения = БИ.Субконто(1).ЕдиницаИзмерения; МПЗ.Количество = БИ.СКД("К"); КонецЕсли; МПЗ.Товар = БИ.Субконто(1); МПЗ.Стоимость = Цена*МПЗ.Количество; МПЗ.Цена = Цена; МПЗ.Счет = БИ.Счет.Код; КонецЦикла; КонецЦикла; Если МПЗ.КоличествоСтрок() = 0 Тогда Возврат 0; КонецЕсли; Возврат 1; КонецФункции // ЗаполнитьТаблицуМПЗ() //----- Процедура Сформировать() Если ПроверкаПериода() = 0 Тогда Возврат; КонецЕсли; Виды = ""; Аренда = ""; Рез = 0; // Получение данных для описи в виде таблицы значений Если Форма.Закладки.ТекущаяСтрока() = 1 Тогда // опись ТМЦ ВыбСклад = ""; ВидСубконто = ""; Если Склад.Выбран() = 1 Тогда ВыбСклад = Склад; ВидСубконто = ВидыСубконто.МестаХранения; ИначеЕсли ВыбМОЛСклада.Выбран() = 1 Тогда Склады = СоздатьОбъект("Справочник.МестаХранения"); Склады.ВыбратьЭлементы(); Пока Склады.ПолучитьЭлемент() = 1 Цикл Если Склады.МОЛ = ВыбМОЛСклада Тогда ВыбСклад = Склады.ТекущийЭлемент(); ВидСубконто = ВидыСубконто.МестаХранения; КонецЕсли; КонецЦикла; КонецЕсли; Рез = Рез + ЗаполнитьТаблицуМПЗ(Товар, ВидыСубконто.Материалы, ВидСубконто, ВыбСклад); Рез = Рез + ЗаполнитьТаблицуМПЗ(Товар, ВидыСубконто.Номенклатура, ВидСубконто, ВыбСклад, 0); Рез = Рез + ЗаполнитьТаблицуМПЗ(Товар, ВидыСубконто.Оборудование, ВидСубконто, ВыбСклад, 0); Если ВыбСклад = "" Тогда Рез = Рез + ЗаполнитьТаблицуМПЗ(Товар, ВидыСубконто.ОбъектыСтроительства, "", "", 0); КонецЕсли; ИначеЕсли Форма.Закладки.ТекущаяСтрока() = 2 Тогда // опись основных средств ... КонецЕсли; // Печать инвентаризационной описи. ... КонецПроцедуры // Сформировать() //*************************************************** // ИнвентаризацияТМЦ Функция ЗаполнитьТаблицуМПЗ(ВыборВидаМПЗ, ВидСубконто1, ВидСубконто2, Субконто2, Режим, ОбъектыВключаемыеВЗапрос); // Формирование запроса к бухгалтерским итогам. БИ = СоздатьОбъект("БухгалтерскиеИтоги"); БИ.Опции(1,); БИ.ВключатьСубсчета(-1); БИ.ИспользоватьСубконто(ВидСубконто1, ОбъектыВключаемыеВЗапрос); Если ПустоеЗначение(ВидСубконто2) = 0 Тогда БИ.ИспользоватьСубконто(ВидСубконто2); КонецЕсли; ИспользоватьСчета = СоздатьОбъект("СписокЗначений"); Если Режим = 1 Тогда Для Б = 1 По ВыборВидаМПЗ.РазмерСписка() Цикл Если ВыборВидаМПЗ.Пометка(Б) = 1 Тогда В = ВыборВидаМПЗ.ПолучитьЗначение(Б, ""); ИспользоватьСчета.ДобавитьЗначение(СчетПоКоду(В)); КонецЕсли; КонецЦикла; Иначе ВыгрузитьТабличнуюЧасть(ИспользоватьСчета, "Счет"); КонецЕсли; Если ИспользоватьСчета.РазмерСписка() = 0 Тогда Возврат 0; КонецЕсли; БИ.ВыполнитьЗапрос(ТекущийДокумент(), , ИспользоватьСчета); // Заполнение итоговой таблицы значений МПЗ БИ.ВыбратьСубконто(1); Пока БИ.ПолучитьСубконто(1) = 1 Цикл УчЦена = ?(БИ.СНД("К")=0, БИ.СНД(), (БИ.СНД()/БИ.СНД("К")) ); Если ПустоеЗначение(ВидСубконто2) = 0 Тогда Если БИ.ПолучитьСубконто(2,, Субконто2) = 0 Тогда Продолжить; КонецЕсли; КонецЕсли; Если ВидТМЦ = 2 Тогда // инвентаризация ОС ... КонецЕсли; БИ.ВыбратьСчета(); Пока БИ.ПолучитьСчет() = 1 Цикл ВыбранныйСчет = БИ.Счет; ВыбранныйМПЗ = БИ.Субконто(1); Если Режим = 1 Тогда НоваяСтрока(); Иначе ВыбраннаяСтрока = 0; ВыбратьСтроки(); Пока ПолучитьСтроку() = 1 Цикл Если (МПЗ = ВыбранныйМПЗ) и (Счет = ВыбранныйСчет) Тогда ВыбраннаяСтрока = НомерСтроки; Прервать; КонецЕсли; КонецЦикла; Если ВыбраннаяСтрока = 0 Тогда Продолжить; Иначе ПолучитьСтрокуПоНомеру(ВыбраннаяСтрока); КонецЕсли; КонецЕсли; Если ВыбранныйМПЗ.Вид() = "ОсновныеСредства" Тогда КоличествоУчет = 1; ИначеЕсли (ВыбранныйМПЗ.Вид() = "ОбъектыСтроительства") или (ВыбранныйМПЗ.Вид() = "Оборудование") Тогда КоличествоУчет = БИ.СНД("К"); Иначе КоличествоУчет = БИ.СНД("К"); Если (ВидТМЦ = 1) и (ВыбранныйСчет = СчетПоКоду("41.2")) Тогда УчЦена = ?(БИ.СНД("К")=0, БИ.СНД(), (БИ.СНД()/БИ.СНД("К")) ); КонецЕсли; КонецЕсли; Если ВидТМЦ = 3 Тогда ... Иначе СуммаУчет = УчЦена*КоличествоУчет; КонецЕсли; Если Режим = 1 Тогда МПЗ = ВыбранныйМПЗ; Если ПустоеЗначение(МПЗ) = 0 Тогда Если МПЗ.Вид() = "Номенклатура" Тогда Если МПЗ.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.Продукция Тогда ВидМПЗ = "Продукция"; ИначеЕсли МПЗ.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.Полуфабрикат Тогда ВидМПЗ = "Полуфабрикат"; Иначе ВидМПЗ = "Товар"; КонецЕсли; ИначеЕсли МПЗ.Вид() ="Материалы" Тогда ВидМПЗ = "Материал"; ИначеЕсли МПЗ.Вид() ="Оборудование" Тогда ВидМПЗ = "Оборудование"; ИначеЕсли МПЗ.Вид() ="ОбъектыСтроительства" Тогда ВидМПЗ = "Внеоборотный актив"; КонецЕсли; КонецЕсли; Количество = КоличествоУчет; Счет = ВыбранныйСчет; Если ВидТМЦ = 3 Тогда Цена = глПолучитьЦену(Контекст,ВыбранныйМПЗ,?(РозничныйСклад.Выбран()=1,РозничныйСклад.ТипЦен,""),ДатаДок,,1); СуммаПродажи = -(Количество - КоличествоУчет - ОтклНедостача)*Цена; Если (ВыбранныйМПЗ.Вид() = "Номенклатура") Тогда Если (ОблагаетсяЕНВД = 1) и (ВыбранныйМПЗ.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.Товар) Тогда Если ВыбранныйМПЗ.ТипТовара = Перечисление.ТипыТоваров.НаКомиссии Тогда НП = глПоказательДокумента(Контекст, "НП"); КонецЕсли; Иначе НДС = глПоказательДокумента(Контекст, "НДС"); НП = глПоказательДокумента(Контекст, "НП"); КонецЕсли; КонецЕсли; Иначе Сумма = СуммаУчет; ФормироватьПроводку = "Да"; КонецЕсли; КонецЕсли; КонецЦикла; КонецЦикла; Возврат 1; КонецФункции // ЗаполнитьТаблицуМПЗ() //--- Процедура Заполнить() ... ОбъектыВключаемыеВЗапрос = СоздатьОбъект("СписокЗначений"); Если РежимЗаполнения = 1 Тогда Если КоличествоСтрок() > 0 Тогда Если Вопрос("Таблица будет очищена, а существующие строки удалены. |Продолжить?","Да+Нет") <> "Да" Тогда Возврат; КонецЕсли; УдалитьСтроки(); КонецЕсли; Иначе // Очистим учетное количество и сумму. ВыбратьСтроки(); Пока ПолучитьСтроку() = 1 Цикл КоличествоУчет = 0; СуммаУчет = 0; Если ВидТМЦ = 3 Тогда СуммаПРодажи =0; Цена = 0; КонецЕсли; КонецЦикла; ВыгрузитьТабличнуюЧасть(ОбъектыВключаемыеВЗапрос, "МПЗ"); КонецЕсли; Если ВидТМЦ = 1 Тогда ВыбСклад = ""; ВидСубконто = ""; Если МестоХранения.Выбран() = 1 Тогда ВыбСклад = МестоХранения; ВидСубконто = ВидыСубконто.МестаХранения; ИначеЕсли ВыбМОЛСклада.Выбран() = 1 Тогда Склады = СоздатьОбъект("Справочник.МестаХранения"); Склады.ВыбратьЭлементы(); Пока Склады.ПолучитьЭлемент() = 1 Цикл Если Склады.МОЛ = ВыбМОЛСклада Тогда ВыбСклад = Склады.ТекущийЭлемент(); ВидСубконто = ВидыСубконто.МестаХранения; КонецЕсли; КонецЦикла; КонецЕсли; ЗаполнитьТаблицуМПЗ(Товар, ВидыСубконто.Материалы, ВидСубконто, ВыбСклад, РежимЗаполнения, ОбъектыВключаемыеВЗапрос); ЗаполнитьТаблицуМПЗ(Товар, ВидыСубконто.Номенклатура, ВидСубконто, ВыбСклад, РежимЗаполнения, ОбъектыВключаемыеВЗапрос); ЗаполнитьТаблицуМПЗ(Товар, ВидыСубконто.Оборудование, ВидСубконто, ВыбСклад, РежимЗаполнения, ОбъектыВключаемыеВЗапрос); ЗаполнитьТаблицуМПЗ(Товар, ВидыСубконто.ОбъектыСтроительства, "", "", РежимЗаполнения, ОбъектыВключаемыеВЗапрос); ИначеЕсли ВидТМЦ = 2 Тогда ... ИначеЕсли ВидТМЦ = 3 Тогда ... КонецЕсли; // Переход на закладку с табличной частью ... КонецПроцедуры //Заполнить()

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

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

Ответ отправил: Elric (статус: Специалист) Ответ отправлен: 24.08.2007, 11:27 Оценка за ответ: 5 Комментарий оценки: Спасибо! Точно же причина в ИспользоватьСубконто(). А я проглядела. А про ВыполнитьЗапрос: при смене на СКД я и ВыполнитьЗапрос поменяла, просто не указала в вопросе.

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