Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
16 апр 2024, 21:28

Помогите с обработкой

Автор Zeratul, 07 июн 2010, 21:25

0 Пользователей и 1 гость просматривают эту тему.

Zeratul

ПЛ = ПолучитьОбъект(Документы.БС_ПутевойЛистАвтомобиля);
вот так когда записываю то потом уже ничего не рулится :(

Myti

бр,,,,если записал то и надо брать его....

Myti


Zeratul

Процедура СписаниеГорючегоНажатие(Элемент)
   ПЛ = Документы.БС_ПутевойЛистАвтомобиля.Выбрать(НачалоПериода,КонецПериода);

   ПЛ = Документы.БС_ПутевойЛистАвтомобиля.СоздатьДокумент();
   Пл.Дата = ТекущаяДата();
   ПЛ.Записать();
   Док = Документы.ТребованиеНакладная.СоздатьДокумент();
   Док.Записать();
   
   
   
   Если  ПЛ.РасходГорючегоФакт<>0 тогда           
      Док.ЭтоНовый();
      Док.ПутевойЛист = ПЛ;
      
      Док.Дата=Пл.Дата;
      
         
      Док.СчетЗатрат= ПЛ.ТабличнаяЧасть1.Видработ.СчетБУ;
      Док.Субконто1=ПЛ.ЭлементыФормы.ТабличнаяЧасть1.Видработ.СубконтоБУ1;
      Док.Субконто2=ПЛ.ЭлементыФормы.ТабличнаяЧасть1.Видработ.СубконтоБУ2;
      Док.Субконто3=ПЛ.ЭлементыФормы.ТабличнаяЧасть1.Видработ.СубконтоБУ3;
   КонецЕсли;
   
   Док.Записать(РежимЗаписиДокумента.Проведение);
   ПЛ.Записать(РежимЗаписиДокумента.Проведение);
    Сообщить("Обработка завершена!");   
   
   
КонецПроцедуры

Myti

а описание того фто тибе надо?наити док ПЛ и по нему заполнить ТребованиеНакладная ???

Zeratul

Да ты прав!
Мне надо чтобы документ ТребованиеНАкладная заполнялся на основании документа ПЛ, все ее значения, это и счет и субконты и количество бензина и материал и все такое!

Myti

а в конфе у дока "ТребованиеНАкладная" стоит основание документ "ПЛ"???

Zeratul

Да, там добавлен реквизит, и на форму выведено полевввода, у которого в свойствах указан тип данных и значение ПЛ

Myti

:))) изиняюсь,,,но в коде бреддддд...
Вот держи.........
   ПЛ = Документы.БС_ПутевойЛистАвтомобиля.Выбрать("Дата1","Дата2");
   
   Пока Пл.Следующий() Цикл
      Док = Документы.ТребованиеНакладная.СоздатьДокумент();
      Док.Номер = "бла";
      
      НоваяСтрока = Док."т.ч. документа".Добавить();
      НоваяСтрока."Реквизит т.ч." = "Бла";
      
      
      
         
   КонецЦикла;
Док.Записать()

Zeratul

Да я то знаю что в коде бредд)))))
В том то и дело что синтаксис восьмерки не знаю нихрена :dfbsdfbsdf:
Спасибо большое щас буду пробывать, я еще отпишусь так что не пропадай :)

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск