Здравствуйте. Подскажите пожалуйста почему может быть такое... у меня не получается изменить реквизит у документа извне....то есть вот один документ, там есть поле ввода (реквизит).....мне надо из другого документа его изменить....я делаю ВыборкуДокументов....обращаюсь к реквизиту...присваиваю что нужно....ничего не ругается...... но в том документе так ничего и не меняется(((

Во втором документе вот такой код:

ВыборкаДокументов = Документы.График.Выбрать(НачалоГода(ТекущаяДата()), КонецГода(ТекущаяДата()));
   
Пока ВыборкаДокументов.Следующий() Цикл    
   
ВД = ВыборкаДокументов.ПолучитьОбъект();
ВД.Январь1 = "Вывоз";
           
КонецЦикла;


Реквизит Январь1 - строка...все как надо. Метод ПолучитьОбъект сделал потому что без него пишет что Поле объекта недоступно для записи

ВД.Записать()

(0) Какой физический смысл у реквизита "Январь1" ?

(2) Ты ТОЧНО уверен, что хочешь это знать? :)

(3) Я люблю ужасы на ночь.

(4) Это новая сказка "Двенадцать месяцев" в интерпретации 1С!

мне почему то кажется что Defender aka LINN точно догадался что сейчас делает начинающий программист в моем лице)

а если хотите ужасов на ночь то могу и рассказать)

ЗЫ.  пробую ВД.Записать()

(6) Не пробуй, подожди до утра!

(6) Я был первым.

Какой физический смысл у реквизита "Январь1" ?

(8) вне вакуума ?

(6) Ага. Страдает куйней.

http://s51.radikal.ru/i131/1004/ce/7d629e341b4b.jpg

это чтобы вы поняли весь ужас происходящего)

О_О
мама...

а что, симпатично.
ну и нефиг флудить:
ВД.Записать()

(11) начхать реально. Сделай эти данные, типа Январь1 на регистре

Гусары, молчать!!!

Я бы.
Даже.
Просто Копипастом поленился пользоваться, для вставки реквизитов.

А судя по
ВД.Январь1

там и кода дофигища

Если честно боюсь даже что либо больше писать...это опять будет смех) ну да ладно) смех продлевает жизнь и я делаю хорошее дело)
Регистр так же есть...тоже на 365 реквизитов...

Хм.... Это, я так понимаю, календарь 2010 года? А на 2011 год будет другая форма? О_о

>Регистр так же есть...тоже на 365 реквизитов...

О_о!!!!!!!

а чо, трудолюбивый мальчик..

нет....там как только начнется новый год - Графики 2009го года уже будут не нужны....а в Выборке стоит Начало Конец года) так что с этим все хорошо

365?
понимаю, до 2012 дожить не рассчитываешь.

(22) Как жаль.
Ведь только-только доделал 2009, а уже на пороге - середина 2010

(3) ТЫ ЗНАЛ!

отложим ветку до пятницы

(22) >Графики 2009го года уже будут не нужны
Нескромный вопрос. На хрена тогда регистр?

пойдемте v8: Выполнить. Весь мозг поломал там круче. Там философия

где то сегодня в середине дня я тоже понял что не нужны.))
В общем) спасибо GoldenCalf и Птице)
Записать работает)

(29)"где то сегодня в середине дня я тоже понял что не нужны"
о_О
в смысле, ты теперь будешь удалять 365 реквизитов?

(17) кода и правда многа)))

(30) нет) на всякий случай оставил)

(30) где то в средине удаление поймет что они были нужны ... но не все, только те что уже удалил

а зачем тебе в бухе график? ты УПП делать собрался? посмотри как в ЗУПе реализовано а не лепи 365 реквизитов...

(32)молодец, с тобой приятно общаться

кстати о Зупе...я перенес в бухгалтерию тамошний График...даже более того он работал...) но тамошняя реализация ну ОЧЕНЬ пока для меня сложная...

(31) А можно какую-нибудь часть кода, где используются реквизиты?

ты решил его упростить?

(36) код в студию :)

(39)нет нет...я просто открыл 2 конфы...ЗУП и бузию....и поперетаскивал все что только нужно для Графикаработы....все перечисления, регистры) закомментировал что не нужно) и все работает) график открывается, в него можно ставить циферки, он эти циферки кидает в регистр, и при открытт подтягивает все из регистра) все как в зарплате

А как быть с Февраль29 ?

(41)по поводу високосного....меня почему то проглючило и показалось что в обычном 27 дней....а в високосном 28((( исправлю

Умею я иногда так вовремя и так правильно спросить.

(42) кроме графика, тебе будут нужны табеля, документы о невыходах, ты это тоже перетащить хочешь?

(42) Хорошая, забористая травка

(42) бери больше)))

(39)

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

Если ЭлементыФормы.День.Значение = "Январь2"
       Тогда
       Если ВыборкаДокументов.Январь2 = "п" Тогда
       СтрокаСостава = ДокументОбъект.Разнарядка.Добавить();
       СтрокаСостава.Контрагент = ВыборкаДокументов.Контрагент;
       СтрокаСостава.Адрес = ВыборкаДокументов.Адрес; СтрокаСостава.График = ВыборкаДокументов.Ссылка;
   КонецЕсли;
КонецЕсли;


и так по каждому дню)
Это код выборки) там ставлю день) напрмер завтрашний и обработка мне показывает к кому завтра надо съездить вывезти мусор)

ужс О_о

(44) нет это все мне не нужно) просто нужен красивое отображение года

(47) Ипппать......  И так для всех 365 дней????? О_о!!!!

вот....а с запросами я пока не умею работать(

(50) да) и причем все шустро считает-ищет) ничего не тормозит

(51) без них делать нечего, вся ЗП на них написана

(51) правильной дорогой идете товаришь. Скоро устанете копипастить и будете генерить код всех проверок на лету а в конфе будут сплошные выполнить и вычислить :) Но сразу предупреждаю goto в выполнить лучше не юзать :):):)

хорошо-то как..

(54)ну спасибо за поддержку) в общем то я думаю тема исчерпана) доставил вам пару мгновений радости))) смех и правда продлевает жизнь) тем более я тоже хорошо посмеялся от ваших комментов) спасибо!)
ЗЫ. кину ссыль на ветвь в ЖЖ

(11)(47) это действительно круто ;)))))))

а всего-то надо вместо 365 копий одного кода написать один фрагмент:
Если ВыборкаДокументов[ЭлементыФормы.День.Значение] = "п" Тогда
       СтрокаСостава = ДокументОбъект.Разнарядка.Добавить();
       СтрокаСостава.Контрагент = ВыборкаДокументов.Контрагент;
       СтрокаСостава.Адрес = ВыборкаДокументов.Адрес; СтрокаСостава.График = ВыборкаДокументов.Ссылка;
   КонецЕсли;

(58) о_О как раз писал вопрос с просьбой о совете как это можно было сделать

(58) А всего-то можно нормальный объект "ПолеКалендаря" заюзать ;)

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

(58) спасибо вам огромное) все работает))) токо уже вот как то не так интересно и весело получается)))

>токо уже вот как то не так интересно
мазохист  :-)

(62)да, 1с убивает радость

(64) Ну вот, обломили всю малину.... может, оплата ему за количество строк идет. А тут вместо 2920 строк получилось всего 5. Скукотищща!!!!

(63) ну на самом деле я не так уж и много сил и времени затратил на 365 фрагментов одинакового кода...Ворд и "Замена" быстро решили мою проблему) один месяц сделать...а потом заменять там месяц)

(65)нет) оплата мне не идет) делаю диплом) благо на прогу смотреть не будут...лишь бы была и работала) на код тем более смотреть не будут)

ну вот, пятница началась на час раньше

(47) ААААААААААААААА
УБИЛ. Я 100 лет так не ржал.))

(11)(47) О_О!!!! Я под столом!!! Чувагг, ты что куришь? Лучше ЖКК покури!!! Это сохранит тебе время!

аминь

(0) сатанист какой-то...

Лень, страх и упёртость порождает 365 реквизитов? о.О

ну а что) главное - решение задачи, а уж потом оптимизация)

(73) причем тут страх?.....но лень и упертость это да) лень - разобраться в запросах) а упертость.... я бы сказал "упорство")

(74) я того же мнения) сначало сделать в срок и чтоб работало) а потом разберемся)

http://lurkmore.ru/Вон_из_профессии

(77) программирование это всегда творчество...не могу назвать занятие живописью - профессией) вот у меня сейчас все коряво и нелогично в коде... быть может это как пикассо со воими картинами) многие тоже думают что в этом ничего нет и какой то бред и что так нарисовать сможет каждый ребенок))) я понимаю вас...что с точки зрения производительности, практичности и так далее - это ужасно...и в серьезной работе это неприемлимо) но...пока как есть...дальше - видно будет)

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

в смысле я уже не буду таких глупостей писать)

(78) Сколько лет, кем работали раньше, какое образование?

(79) Лично я вам - не помогал.

(82) в том плане что вы - все вместе кто тут писал)

(81) лет 21) образование получу только через полтора месяца...защита диплома в 20х числах июня) образование Прикладная информатика в экономике...но учился абы как потому как не особо это моя стезя) а 1с начали изучать ток в конце 4го курса...

(83) Ясно. Вопросов - не имею.

Вам в плюс:
1) Стрессоустойчивость - не скатились на оскорбления в ответ на критику кода.
2) Молодой возраст - можно многому научиться
3) Усидчивость - судя по коду, посидеть пришлось

В минус:
1) Отсутствие навыков программирования, хотя бы на других языках.

Но.. Удачи!

(84) Благодарю)

На amdati не наезжать!
Парень молодец, с ЧЮ!

Друзья, а подскажите пожалуйста как мне сделать перебор всех элементов формы отдельно взятого месяца?

сейчас делаю вот так но ничего не выходит:

Для n = 1 по 31 Цикл
   Дата1 = "Январь"+n+"";
   Если ЭлементыФормы[Дата1] = "В" Тогда
   ЭлементыФормы.ИтогоЯнварь.Значение = ЭлементыФормы.ИтогоЯнварь.Значение + 1;
   КонецЕсли;
КонецЦикла;

подскажите что не так(

вроде и не ругается ни на что, но и не считает сколько дней с буковкой "В" (то есть вывезли ли мусор) в этом месяце есть...

Для n = 1 по 31 Цикл
   Дата1 = "Январь"+n+"";
   Если Ссылка[Дата1] = "В" Тогда
   ЭлементыФормы.ИтогоЯнварь.Значение = ЭлементыФормы.ИтогоЯнварь.Значение + 1;
   КонецЕсли;
КонецЦикла;


так работает)