Имя: Пароль:
1C
1C 7.7
v7: Вопрос по Модулю документа
,
0 cte17ka
 
10.11.11
10:15
Сразу извините если некорректно поставлю вопрос.

Есть База для Основных средств, шедевр не мой.

База построена без единого запроса все выполняется в документах.

Модулю документа заполняет форму, и рассчитывает в данном случае Амортизацию.  
Вопрос. Как мне можно сделать чтоб, модуль тянул "единицу" но не рассчитывал её.

Если нужно модуль ниже...

Процедура ОбработкаПроведения()  
   
   УдалитьСтроки();
   Спр=СоздатьОбъект("Справочник.Картки");
   Спр.ИспользоватьДату(КонМесяца(ДобавитьМесяц(ДатаДок,-1)),1);
   Спр.ВыбратьЭлементы();
   Пока Спр.ПолучитьЭлемент()=1 цикл
       
       Спр.ИспользоватьДату(ДатаДок,1);
       
       Если (Спр.Остаточная=0)и(Спр.Амортизация=0.01) тогда
           Спр.УстановитьАтрибут("Амортизация",0);
           Спр.Записать();
       КонецЕсли;            
       
       Спр.ИспользоватьДату(КонМесяца(ДобавитьМесяц(ДатаДок,-1)),1);
   //    Сообщить ("1"+Спр.Код);
       Если (Спр.ЭтоГруппа()=0)и(Спр.ДатаВвода<ДатаДок)и((Спр.ДатаСписания>ДатаДок)или(Спр.ДатаСписания=ДатаСрав))и(Спр.Остаточная>0) тогда
       //    Сообщить ("2"+Спр.Код);
           Спр.ИспользоватьДату(КонМесяца(ДатаДок),1);                        
           Если ((Спр.НеРассчитыватьС-1)<НачМесяца(ДатаДок))и((Спр.НеРассчитыватьПо+1)>КонМесяца(ДатаДок)) тогда
       //        Сообщить ("3"+Спр.Код);
               Продолжить;    
           Иначе          
       //        Сообщить ("4"+Спр.Код);
               Спр.ИспользоватьДату(КонМесяца(ДобавитьМесяц(ДатаДок,-1)),1);    
               НоваяСтрока();        
               УстановитьАтрибут("Картки",Спр.ТекущийЭлемент());
               УстановитьАтрибут("ОстаточнаяНач",Спр.Остаточная);
               УстановитьАтрибут("Амортизация",Окр(Спр.Стоимость2011/?(Спр.Эксплуатация=0,1,Спр.Эксплуатация)/12,2));
               
               Если (Амортизация=0)и(Спр.Остаточная>0)тогда
                   УстановитьАтрибут("Амортизация",0.01);
               КонецЕсли;
               УстановитьАтрибут("ОстаточнаяКон",ОстаточнаяНач-Амортизация);        
               
           КонецЕсли;    
       КонецЕсли;
   КонецЦикла;
1 ado
 
10.11.11
10:27
(0) "тянул единицу" можно на русский перевести?
2 cte17ka
 
10.11.11
10:29
ну к примеру "чайник" чтобы добавлял в форму документа без расчета Амортизации,
по сути этот модуль заполняет строки в форме, а потом из формы тянет в табличку значения.
3 Mikeware
 
10.11.11
10:32
(1) Из обычное единицы делал длинную единицу...
4 ado
 
10.11.11
10:33
(2) Затащи код, заполняющий строки в модуль формы и повесь на кнопку.
5 cte17ka
 
10.11.11
10:35
Тот код который я добавил и так на кнопке висит...это и есть модуль.
6 cte17ka
 
10.11.11
10:35
(3) ни понял
7 cte17ka
 
10.11.11
11:34
хоть кто нибудь ? что нибудь ? а то я исчерпал себя мыслями...хоть како то свежий взгляд плииииззззз
8 Mikeware
 
10.11.11
11:35
(7) увольняйся...©
9 cte17ka
 
10.11.11
11:37
пасип ))))
10 cte17ka
 
10.11.11
13:30
Ниподписали :-]