Помогите, пожалуйста. Как правильно написать процедуру, формирующую новый документ? У меня есть следую текст:

Процедура Выполнить()
Спр = СоздатьОбъект("Справочник.Приборы");
       Пока ПолучитьСтроку()=1  Цикл  
       Если ((МестоПоверки=Перечисление.МестоПоверки.ЦСМ) или (ПустоеЗначение(МестоПоверки)=1)) Тогда
           Продолжить;
           Док = СоздатьОбъект("Документ.КТПТР");
       Док.Новый();
       Док.НоваяСтрока();  
          Док.Номенклатура = Спр.ТекущийЭлемент();  
       КонецЕсли;
       КонецЦикла;
       Док.Записать();
       Док.Провести();
КонецПроцедуры

При проведении пишет:Док.Записать(); Значение не представляет агрегатный объект (Записать)

(0) А если условие не выполнится - то что ты Записать пытаешься?

(0)Читай Жёлтые книги 2 книги :)

ты же создаешь объект и новый док в зависимости от условия. а записать пытаешься _всегда_. Вот когда условие ложно, то и матюкается. записывать-то собственно и нечего.

Если ((МестоПоверки=Перечисление.МестоПоверки.ЦСМ) или (ПустоеЗначение(МестоПоверки)=1)) Тогда
           Продолжить;
           Док = СоздатьОбъект("Документ.КТПТР");
       Док.Новый();
       Док.НоваяСтрока();  
          Док.Номенклатура = Спр.ТекущийЭлемент();  
       КонецЕсли;


зачёт........

(3) ты ещё на сам условный оператор полностью глянь

(4) действительно магический мух

зы. Вон из профессии !

(6)Ну, пинать так пинать :)
За СоздатьОбъект в цикле - в сад!

Спр = СоздатьОбъект("Справочник.Приборы");

Док.Номенклатура = Спр.ТекущийЭлемент();

Тоже очень интересно...

черствые, бессердечные люди! человек всего то 3г8м в 1С, а вы его так вот сразу... ну новичок пока он

(11) ДЕНЬ ПРОГРАММИСТА, ёптыть!!!!

(12) думаешь, он уже заквасил, и поэтому такой код вышел? а чё, выглядит правдоподобно

(0)
1. Спр не спозиционирован
2. (9)
3.
вот это:
Док = СоздатьОбъект("Документ.КТПТР");
       Док.Новый();
       Док.НоваяСтрока();  
          Док.Номенклатура = Спр.ТекущийЭлемент();  
       КонецЕсли;

у тебя никогда не выполнится
4. ну и вообще... ну ты понял

(13) судя по его темам, он всегда в закваске

(13) Только если пару бутылок вискаря....

Спр = СоздатьОбъект("Справочник.Приборы");
         Спр.ВыбратьЭлементы();
         Пока Спр.ПолучитьЭлемент()=1  Цикл  
             Если... Тогда
                 ....
                 Док.Новый();
                 ....
                 Док.Записать();
                 Док.Провести();
            КонецЕсли;
         КонецЦикла;
....
КонецВсему;

Если ((Спр.МестоПроверки =Перечисление.МестоПоверки.ЦСМ) или (ПустоеЗначение(Спр.МестоПоверки)=1)) Тогда

(17) битва экстрасенсов ? Какой сезон ?

(18) А может там не выбирать надо, а найти элемент справочника?

(18) Тоде уже вдарил? А если "МестоПроверки" - элемент формы или глобальная переменная?

(19) первый :)
проба пера :)

(21) у него, судя по коду, реквизит справочника :)

Ещё ошибка: нет ВыбратьСтроки()

понабежали... испугали автора )

(20) да пусть ищет :)

Ещё ошибка: Не видно процедуры ОбработкаПроведения(), хотя в сабже говорится про проведение

(27) э?

(28) шо?

(24) имхо - это он так элементы справочника, как строки, выбирает :)

(27) и выборГруппы() надо-бы..
этак ты все функции ОВЯ заставишь человека записать в код :)

(29) где там про модуль проведения?

(31) >>При проведении пишет:Док.Записать()

(31) а и точно! прав 1Сергей: в сабже написано "при проведении" :)

Если он находится в модуле документа(на это указывает "ПолучитьСтроку()=1"), то "МестоПроверки", возможно, реквизит таблично части документа.

(34) и я о том же

(32)(33) угу, вижу. я в ещё большем щоке

(34) и это возможно :)

(33) Проведением он может называть всё что угодно, не стоит на этом заострять внимание.

МестоПоверки реквизит ТЧ, перечисление

(39) тогда оставь своё условие.
а вот  Спр.ТекущийЭлемент();   у тебя не определен.

А что проводить то собрался??? Неизвестный объект. До проведения тут дело и дойти не успело.

Да, кстати. Строка:

   Док.Провести();

в модуле проведения приведёт к огромному болту

Как бы цель следующего содержания, надо создать документ, но при некотором условии. Т.е. не все строки взять из этого документа, а только те, которые удовлетворяют условию, реквизит МестоПовери, который является перечислением, будет выбран ЦСМ или он пустой, т.е. в этом случае эти строки не надо отбирать, а продолжать дальше перебирать строки

(43)вариант:
выгрузи ТЧ в ТЗ, удали лишнее, если что осталось - новый док и загружай строки из ТЗ.

Слушайте, ну чего сегодня так жёстко-то, не пятница ведь!




Процедура Выполнить()
Спр = СоздатьОбъект("Справочник.Приборы");
Док = СоздатьОбъект("Документ.КТПТР");
ФФ=0;
ВыбратьСтроки();
       Пока ПолучитьСтроку()=1  Цикл  
       Если ((МестоПоверки=Перечисление.МестоПоверки.ЦСМ) или (ПустоеЗначение(МестоПоверки)=1)) Тогда
            Продолжить;
        КонецЕсли;
          Если фф=0 Тогда
             Док.Новый();
             фф=1;
          КонецЕсли;
       Док.НоваяСтрока();  
           //вот ту т следует спозиционировать куда надо, т.к. без этого след. строка выдаст ошибку
          Док.Номенклатура = Спр.ТекущийЭлемент();  
       КонецЕсли;
       КонецЦикла;
    Если фф=1 Тогда
       Док.Записать();
       Док.Провести();
    КонецЕсли;
КонецПроцедуры

еще один...

(44) а ещё лучше запросом сразу со всеми условиями и результат запроса в ТЗ. Только имхо рано

(45) выдает ошибку след. содержания: Док.Новый(); Значение не представляет агрегатный объект (Новый)

(48) а что выдаст Сообщить(ТипЗначения(Док)); если поставить её перед
             Док.Новый();

Может он прикалывается???

кста, а как там с правами у того пользователя из под которого?

очень похоже

(50) он скорее всего туда что-то запихнул, т.к. если-бы проблема была в правах - был-бы еррор.


Не ну прям как пятницо!

Все идем к руководству и говорим впредь день программиста красное число и следующий за ним день.

)))

(49) выдает цифру 2

(56) 2 - строковый тип данных
а теперь расскажи зачем туда строку пихаешь? Иил может вызов отсюда куда-то делаешь? На всякий пожарный после объйвления процедуры добавь строку:
Перем Док;

(56) Док - реквизит документа штоль?

нет

(59) замени Док на Док1

бред какойто!!

(61)намана, я тоже первое время всякую  хрень писал...

другое дело что сегодня уже штук 5 таких тем видел... при то, что не искал их!

Машины взбунтовали.день программиста есть, а дня железа нет

в одном случае док поруске в дргом косяк

посмотри Док где как написано перепиши руками порусски

накопируют из инета потом думают где косяк)))

ТС что там?

Док и Дoк отличи во втором случае o английская

(67) да думаю ЗАРАБОТАЛО)))))

побежал за пивом

http://img600.imageshack.us/img600/1866/493020541809400012sk2.jpg        СССР

(71) реально сегодня ПЯТНИЦО!!!!!

(15) не он пишет документаху :) к своей нетленке
OFF: Состав документации по описанию собственной конфигурации 1С

Escander да 99% у него был док не док
после
Док = СоздатьОбъект("Документ.КТПТР");
Док.Новый();
выдает ошибку след. содержания:  Значение не представляет агрегатный объект (Новый)Это толко может быть если Док <> Док

ну все не досвидания не спасибо)))

либо винду свалил горе кодер либо...

Мужики всех с днем программиста(1С)

ВАС всех тоже

с днем программиста

(79) ну че заработало?

ну почти, документ записывается, только пустая строка в табличную часть идет

(81) бугага!

(81) счётчик спозиционировал? А ведь я сразу подозревал что там ещё море других реквизитов... за вас их будет Пушкин заполнять?

Всё!!!!! Взлетело. Всем спасибо

доделал перебор номенклатуры?

у тя небыло выбора номенклатуры

ты из Спр ничего невыбирал в коде

давай удачи .с ПРАЗДНИКОМ

расплескало Захара по всей ветке

(73)Видимо автор в (0) не прочитал ЖКК :D

(89) Не только в этой.

(0) песец. У тебя док создается в цикле. Соответственно, что если захода в цикл не было, то и док нету вообще. Постов почти на сотню из за фигни развели.