Версия для печати темы (https://pro1c.org.ua/index.php?s=fee988de873cd5168188a56136cf7979&showtopic=37693)

Нажмите сюда для просмотра этой темы в обычном формате

Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7 _ Программирование управляемых форм 1С 8.2 _ Программное определение проведения документа в 1с 8

Автор: Gigi 07.06.17, 12:02

Всем привет!
Перейду сразу к делу...
Как программно определить факт проведения документа? Т.е. он записан и проведен или только записан, но не проведен?
Вот код в котором все с комментарием где это нужно:

&НаСервере
Процедура УдалитьДоументыПоказаний_ОбъектПериод(ОбъектПринадлежностиКОД,ОтчетныйМесяц)
// Ставим пометку на удаление
ВыборкаДокументов = Документы.ТочкаУчетаПоказания.Выбрать();
//=================================================
Пока ВыборкаДокументов.Следующий() Цикл
ДокВыборки = ВыборкаДокументов.ПолучитьОбъект();
//-------------------------------------------------

//ЗДЕСЬ НУЖЕНО ОПРЕДЕЛИТЬ ДОКУМЕНТ ПРОВЕДЕН ИЛИ НЕТ!
//КАК ЭТО СДЕЛАТЬ?
//НИГДЕ НЕ НАШЕЛ ИНФУ ОБ ЭТОМ... ПОЭТОМУ ОПЯТЬ ПРИХОДИТЬСЯ МЕТОДОМ ТЫКА.. КАК ЭТОТ ВАРИАНТ:
//Если ДокВыборки.Проведение=Ложь; Тогда знДокументПроведен="Нет"; КонецЕсли;
//КОТОРЫЙ НЕ РАБОТАЕТ! :):) ИНОГДА ПОПАДАЛ, А НА ЭТОТ РАЗ НЕТ! :):)


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

К сожалению опять нужна Ваша помощь.
Нужно просто вставить код в указанную линию и все.
Буду признателен!

Автор: Vofka 07.06.17, 12:05

Если ДокВыборки.Проведен Тогда

Автор: Gigi 07.06.17, 12:15

Vofka @ Сегодня, 13:05 * ,
Спасибо!
Быстро и коротко и ясно!
Супер сайт! Реакция моментальная!
Поэтому спасибо и этому сайту!

Автор: Vidocq05 07.06.17, 13:13

Gigi @ Сегодня, 13:15 * ,
Похоже Вы не знаете что такое "Точка останова" и "Вычислить выражение". Советую ознакомится и жить станет легче.

Пардон. Не заметил, что процедура на сервере

Автор: Bernet 07.06.17, 13:25


Кстати, по поводу быстроты реакции, было бы наверно прикольно сделать либо какого-то бота в Телеграме или Вайбере, который бы оповещал об ответах в топиках, или просто о создании новых тем и т.д. Vofka, как считаете насколько это реально и нужно?)

Автор: Vidocq05 07.06.17, 13:32

Цитата(Vidocq05 @ 07.06.17, 14:13) *
Похоже Вы не знаете что такое "Точка останова" и "Вычислить выражение". Советую ознакомится и жить станет легче.

Пардон. Не заметил, что процедура на сервере


Я забыл как работают управляемые формы! Позор мне

Автор: Gigi 07.06.17, 14:46

Цитата(Vidocq05 @ 07.06.17, 14:32) *
Я забыл как работают управляемые формы! Позор мне

Да ниче.. ерунда ..
Ша уже вот в таком виде .. знаю. что вам это не нужно ... это так ... для тех которые как я шастают по форумам:
&НаСервере
Процедура УдалитьДоументыПоказаний_ОбъектПериод(КонфигуратЭлемент,ОбъектПринадлежностиКОД,ОтчетныйМесяц)
// Ставим пометку на удаление
ВыборкаДокументов = Документы[КонфигуратЭлемент].Выбрать();
//=================================================
Пока ВыборкаДокументов.Следующий() Цикл
ДокВыборки = ВыборкаДокументов.ПолучитьОбъект();
//-------------------------------------------------
ДокВыборки_ОбъектПринадлКод = ДокВыборки.ОбъектПринадлКод;
ДокВыборки_ОтчПериодМесяц=ДокВыборки.ОтчетныйПериодМесяц;
//-------------------------------------------------
Если ДокВыборки.Проведен=Ложь и ДокВыборки_ОбъектПринадлКод=ОбъектПринадлежностиКОД и ДокВыборки_ОтчПериодМесяц=ОтчетныйМесяц Тогда
//Сообщить(ДокВыборки_ОтчПериодМесяц+" -- "+ДокВыборки);
ДокВыборки.УстановитьПометкуУдаления(Истина); // Пометка на удаление
ДокВыборки.Записать();
ДокВыборки.Удалить(); // Удаление
КонецЕсли
//-------------------------------------------------
КонецЦикла;
//=================================================
КонецПроцедуры


Цитата(Bernet @ 07.06.17, 14:25) *
Кстати, по поводу быстроты реакции, было бы наверно прикольно сделать либо какого-то бота в Телеграме или Вайбере, который бы оповещал об ответах в топиках, или просто о создании новых тем и т.д. Vofka, как считаете насколько это реально и нужно?)

Нужно нужно smile.gifsmile.gif Все нужно! smile.gifsmile.gif
И привет и ответ..
Ладно! Главное... хоть и не супер красиво, но на данном этапе развития smile.gifsmile.gif доволен результатом.
Еще раз всем спасибо за реакцию!
Пока!


Автор: Vofka 07.06.17, 15:52

Цитата(Bernet @ 07.06.17, 14:25) *
Кстати, по поводу быстроты реакции, было бы наверно прикольно сделать либо какого-то бота в Телеграме или Вайбере, который бы оповещал об ответах в топиках, или просто о создании новых тем и т.д. Vofka, как считаете насколько это реально и нужно?)

Насчет нужно или нет - ответить сложно, т.к. это субъективно: кому-то нужно, кому-то будет надоедать. Эту проблему можно решить, сделать это как-то опционально, чтобы человек сам себе выбирал. Но тут мы упираемся в то, что это нужно реализовать, т.е. программировать. "Штатных" программистов у нас сейчас всего один, я crazy.gif . Сам я сейчас не могу оценить трудоемкость этой разработки. Сколько это может стоить, чтобы нанять кого-то - я тоже не знаю, но думаю, что сумма получится не меньше, чем с 4 нулями. А сайт у нас так то не коммерческий и лишних денег он не приносит. Кроме того ещё возникает вопрос о том, сколько денег могут стоить услуги отправки различных сообщений. Так, например, я знаю, что открытого АПИ у Вайбера нету (либо я чего-то не знаю) и у нас был проектик, где мы пробовали работать с Вайбером через стороннего провайдера (как провайдер взаимодействует с Вайбером я уже не знаю), который берет за это бабло.

Идея не плохая, но сил и денег в её реализацию придется вложить заметно. А многим ли такое нужно - это вопрос smile.gif .

Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7
https://pro1c.org.ua