Имя: Пароль:
1C
1C 7.7
v7: Задача про двигатели
0 Velka
 
28.12.11
08:40
Всем привет.

Пишу свою конфигурацию. Возникла трудность, не могу сама сообразить.
Есть справочник Двигатель (реквизиты: Подразделение, МОЛ) .
Есть Документ Перемещение двигателя. Тут задаю новые Подразделение и МОЛ для конкретного двигателя.
Нужно чтобы по этому документу новые значения Подразделение и МОЛ ввелись в справочник по этому же двигателю.
у меня не получается...

Помогите советом, как это воплотить в реальность?
1 Зеленый Кот
 
28.12.11
08:41
фотка ничего
2 Гефест
 
28.12.11
08:41
без фото в полный рост не взлетит
3 Velka
 
28.12.11
08:47
(2)еще может в бикини? )
4 ДенисЧ
 
28.12.11
08:47
А что именно не получается и как делаешь?
(1) Чем-то на Фиму Собак похожа :-) Из известного фильма...
5 ДенисЧ
 
28.12.11
08:47
(3) бикини - лишнее.
6 Гефест
 
28.12.11
08:47
(3) вот тогда точно взлетит и очень быстро
7 Velka
 
28.12.11
08:47
(1) ^^ старались фоткали
8 Velka
 
28.12.11
08:48
(4) такого не смотрела
9 Зеленый Кот
 
28.12.11
08:48
Двигатель.Подразделение=Подразделение;
Двигатель.МОЛ=МОЛ;
Двигатель.Записать();

так?
10 ДенисЧ
 
28.12.11
08:48
(8) Да неужели? Есть люди, которые 12 стульев с Мироновым не смотрели?
Ты лучше на вопрос отвечай, на первый из (4)
11 KishMish
 
28.12.11
08:49
(0)
советую сделать реквизиты периодическими. и записывать изменения документом.
12 1Сергей
 
28.12.11
08:50
(11) о_О зачем?
13 Velka
 
28.12.11
08:51
(4) в справочнике назначила периодические реквизиты изменяемые документом. В документе пишу что нужно установить новые реквизиты справочника
14 1Сергей
 
28.12.11
08:51
(13) показывай что пишешь
15 Velka
 
28.12.11
08:53
модуль формы:

-------
Процедура ПриВыбореДвигателя()
   
   Если Двигатель.Выбран() = 1 Тогда
       Если КоличествоСтрок() = 1 Тогда
         
           Подразделение = Двигатель.Подразделение.Получить(ДатаДок);
           ОС = Двигатель.ОС.Получить(ДатаДок);
           МОЛ = Двигатель.МОЛ.Получить(ДатаДок);
           УстановитьАтрибут("Состояние", Двигатель.Состояние.Получить(ДатаДок));
       КонецЕсли;
   КонецЕсли;
       
КонецПроцедуры //ПриВыбореОС

-----------------

Модуль документа:

                             
Процедура ОбработкаПроведения()

   ВыбратьСтроки();
   Пока ПолучитьСтроку() = 1 Цикл
   
       УстановитьРеквизитСправочника(Двигатель,"Подразделение",Подразделение,ДатаДок);
       УстановитьРеквизитСправочника(Двигатель,"МОЛ",МОЛ,ДатаДок);
       УстановитьРеквизитСправочника(Двигатель,"Состояние",ПолучитьАтрибут("Состояние"),ДатаДок);
       УстановитьРеквизитСправочника(Двигатель,"ОС",ОС,ДатаДок);

   КонецЦикла;

КонецПроцедуры // ОбработкаПроведения()
16 KishMish
 
28.12.11
08:53
(12) а как же?
(13) УстановитьРеквизитСправочника(<ЭлементСправочника>,<НазваниеРеквизита>,<Значение>,<ДатаУстановки>,<ИмяТипа>,<Длина>,<Точность>)
нужно испльзвоать в ОбработкеПРоведения
17 KishMish
 
28.12.11
08:54
(16) а в чем проблема то?
18 Velka
 
28.12.11
08:55
(16) не меняются значения справочнике
19 KishMish
 
28.12.11
09:00
1. ПолучитьАтрибут("Состояние") - это что?
Измени идентификатор на СостояниеДвигателя и используй его
2. в строках документа у тебя что?
3. ПриВыбореДвигателя - не совсе корреткно будет обработка. (В проведенном документе.) я бы посоветовал использовать регистры или проводки
20 Velka
 
28.12.11
09:03
1. это получить значение состояние из реквизита "Состояние" (имеется ввиду в работе двигатель или на ремонте или т.п.)
2. сейчас попробую
3. у меня ни проводок ни сумм нет. просто учет движения по подразделением двигателей.
21 KishMish
 
28.12.11
09:06
(20) это понятно что ни сумм не колва нет. но при использовании периодических реквизитов будет пухнуть файл констант. поэтмоу и советую использовать регистры, на крайни случай план счетов забалансовый счет. при перемещении переносить "1". это будет намного корректнее работать
22 НЕА123
 
28.12.11
09:07
(15)
Записать() - не надо?
23 Velka
 
28.12.11
09:10
(21) ясно. попробую
(22) надо
24 0xFFFFFF
 
28.12.11
09:11
(0) Я так понимаю, двигатель не хочет перемещаться в одиночку.
Предлагаю создать в конфигурации документы

Перемещение коробки передач
Перемещение коленвала
Перемещение шасси.
25 Velka
 
28.12.11
10:58
(24) он не перемещается. его переносят
26 Эльниньо
 
28.12.11
11:00
(24) Не взлетит. Разукомплектовать надо и по запчастям переносить.