Рекомендую взять типовые, и переделать под свою конфу. Я так делал, правда времени потратил пока разобрался, кучу. Зато сейчас нет проблем с переброской данных.
У вас наверное комплексная, а в ней не определен параметр ДатаНачНУ. Ошибка... Ну а если вы не хотите всем объектам ставить дату ввода 01.04.11, тогда ставьте срок использования, с даты ввода, а не с 1.04...
В принципе правильно, но не слишком рационально... Я пошел другим путем, взял остаточную стоимость отнял "ЛиквидационнаяСтоимость" и разделил на оставшееся количество месяцев (СрокИспользования - к-во месяцев за которые начислялся износ). Если кого-то затронуло...
//СуммаИзноса = Макс(Окр((ПервСтоимость - ЛиквидационнаяСтоимость)/Элемент.СрокИспользования,2),0); // Начало( // определим к-во мес. за которые начислялся износ ДатаВвода = Элемент.ДатаВвода; ДатаВвода = ?(ДатаЧисло(ДатаВвода)=1, ДатаВвода, КонМесяца(ДатаВвода)+1); Годы = ДатаГод(ДатаДок)-ДатаГод(ДатаВвода); Если Годы < 0 Тогда Годы = Годы + 100; КонецЕсли; РазницаМес = ДатаМесяц(ДатаДок) - ДатаМесяц(ДатаВвода) + Годы*12; Если ДатаЧисло(ДатаДок) < ДатаЧисло(ДатаВвода) Тогда РазницаМес = РазницаМес-1; КонецЕсли; СуммаИзноса = Макс(Окр((ОстСтоимость - ЛиквидационнаяСтоимость)/(Элемент.СрокИспользования-РазницаМес),2),0); // окончание)
Насколько я понял это комплексная конфа, а в ней у документов есть общие реквизиты: ТипУчета и ФинУчет. ПроверьТЕ что у ВАС в них стоит и будет ВАМ счастье...
Если ПустоеЗначение(ДатаДокумента) = 1 Тогда ДатаДокумента = ДатаДок; КонецЕсли; ДокЗКП = СоздатьОбъект("Документ.ЗаписьКнигиПриобретения"); ДокЗКП.ВыбратьДокументы(ДатаДокумента, РабочаяДата()); Пока ДокЗКП.ПолучитьДокумент() = 1 Цикл Если Контрагент <> ДокЗКП.Контрагент Тогда Продолжить; КонецЕсли; Если ТекущийДокумент().Выбран()=1 Тогда Если ТекущийДокумент() = ДокЗКП.ТекущийДокумент() Тогда Продолжить; КонецЕсли; КонецЕсли; Если (НомерДокумента = ДокЗКП.НомерДокумента) и (ДатаДокумента = ДокЗКП.ДатаДокумента) и (СуммаБезНДС = ДокЗКП.СуммаБезНДС) Тогда глКомментарий("По документу "+глДокументВОтчете(Контекст,1,1,"Р")+ ", уже существует документ "+глДокументВОтчете(ДокЗКП.ТекущийДокумент(),1,1,"Р")+" с такой датой и номером!", 0,,"!"); КонецЕсли; КонецЦикла; ДокЗКП = 0;
а якщо фірма не може позволити собі придбати 1С, то як тоді працювати, а газовий ключ можна позичити.... ще дурні питання будуть?
1С:Предприятие 7.7 (сетевая версия). Бухгалтерский учет для Украины USB = 6,600.00 якщо фірма купила три компа то і це може купити... А ще, більша половина із тих хто сидить на цьому форумі і знають, і мають все необхідне, і можуть все це вам зробити за якісь пів години... навіть при бажанні і через інтернет, бо вони не один рік з цим працють, а ви тратите купу свого часу, а все одно прийдеться звертатися до спеціаліста... Вирішувати вам.
Документ "Табель". При попытке открыть форму документа (будь то в режиме предприятия или в конфигураторе) выдается сообщение "Неправильный формат файла". Лечится: заменой документа с предыдущего рабочего релиза.
ЗЫ. устанавливал обновление на старый релиз, поэтому не знаю, как с табелем обстоят дела в 031, 030... релизах, поэтому взял его из старого.
Vofka обнови релиз платформы... до 27-го. "Элементарно Ватсон..."
И думаю было-бы не плохо. Кстати там еще одна ошибка, сумму НДСа выданных накладных считает ошибочно... Строку 409 - |НДС_ = Документ.НалоговаяНакладная.НДС; заменить на - |НДС_ = Документ.НалоговаяНакладная.СуммаНДС; Вылезает если в накл. больше одной строки, в реестр выводит максимальную сумму НДС из одной строки.
ВыбратьСтроки(); Пока ПолучитьСтроку()=1 Цикл ВсегоСписать = ДокСп.Кво;// * Коэффициент; ОсталосьСписать = ВсегоСписать;
НС=0; Если тбИтоги.НайтиЗначение(Товар,НС,"Товар")=1 Тогда тбИтоги.ПолучитьСтрокуПоНомеру(НС); Иначе тбИтоги.ВыбратьСтроки(); тбИтоги.ПолучитьСтроку(); КонецЕсли;
Пока тбИтоги.Товар = Товар Цикл ОстатокТовара = тбИтоги.ОстатокТовара; СписываемыйОстатокТовара = Мин(ОсталосьСписать, ОстатокТовара);
// тут списываем и готово
тбИтоги.ОстатокТовара = тбИтоги.ОстатокТовара - СписываемыйОстатокТовара; Если тбИтоги.ПолучитьСтроку()=0 Тогда Прервать; КонецЕсли; КонецЦикла; КонецЦикла;
1С Предприятие 8.3, 1С Предприятие 8.2, 1С Предприятие 8.1, 1С Предприятие 8.0, 1С Предприятие 7.7, Литература 1С, Общие вопросы по администрированию 1С, Методическая поддержка 1С - всё в одном месте: на Украинском 1С форуме!
< 1 2
