Как пометить док на удаление из самой формы (программно)

[dim3740]

На форме документа размещен флажок Булево. Нужно, чтоб при его Истине, при закрытии формы документ помечался на удаление. Пока приходится проваливаться в журнал, и там помечать, что неудобно.

[alexandr_ll]

На форме документа размещен флажок Булево. Нужно, чтоб при его Истине, при закрытии формы документ помечался на удаление. Пока приходится проваливаться в журнал, и там помечать, что неудобно.

http://my1c-archive.narod.ru/knowhow/skpblock.html

[dim3740]

Что это за ссылка? Кроме рекламного материала там ничего нет.

[wise]

(2) там же конфигурация лежит... поразбирайтесь в её коде.

[dim3740]

Прошу помощи. Я не программист. Делаю все методом проб и нужен конечный результат, т.к. скоро сводить баланс. Если есть вопросы по бухучету - рад буду помочь:).
Надо типа такого:

Код Выделить Развернуть


Процедура ПриЗакрытии()

Если Удал=1 Тогда
Док.ПометитьНаУдаление();
КонецЕсли;

Док = Документ.ПолучитьОбъект();
Если Удал=1 Тогда
ПометкаУдаления = Истина;
КонецЕсли;     
Записать(РежимЗаписиДокумента.Запись);

КонецПроцедуры



[wise]

(4) у Вас "клюшки" ИЛИ "снеговик" ??
спрашиваете про 77, а пишете как в 8...

[dim3740]

Вам "поговорить" или вы пришли на форум помогать? Я показал, что стараюсь найти ответ, а не просто получить на халяву.

[alexandr_ll]

Вам "поговорить" или вы пришли на форум помогать? Я показал, что стараюсь найти ответ, а не просто получить на халяву.

Дима, вы написали в теме Конфигурирование, программирование в "1С - Предприятие 7.7", я вам привел пример, как это решается в платформе 7.7.
Напишите четко платформу, конфигурацию и релиз.

[dim3740]

Напишите четко платформу, конфигурацию и релиз.

7.70.027 Вашу конфу открыл, ниже передаланный и неработающий фрагмент.
Конфигурации нет, имеется всего один рукописный документ без проведения. В настоящее время, если я ошибся, то просто жду когда нужно сделать новый и заменяю старый. Это неудобно. Или приходится открывать журнал, выписывать какие ошибочные и в журнале помечать на удаление, что также плохо.

Код Выделить Развернуть

Перем ИсхДок;

Процедура ПриЗаписи()
Если ИсхДок.Выбран()=1 Тогда 
Если Удал=1 Тогда
ИсхДок.ПометкаУдаления();   
сообщить("1");
Иначе
ИсхДок.СнятьПометкуУдаления();
сообщить("2");
КонецЕсли;
//
// КопироватьДокумент(ИсхДок,Контекст);
ИсхДок.Записать();
// ИсхДок.Провести();
СтатусВозврата(0);
Форма.Закрыть(0);
Возврат;
КонецЕсли; ;

КонецПроцедуры
         

ИсхДок=СоздатьОбъект("Документ."+Вид()); 



Добавлено: 17 фев 2020, 15:31

Пожалуйста, объясните:  а)в рукописной конфе сложно сделать\подсказать требуемое? или б)не интересно помогать, если задача нетиповая или в)я написал такую чушь, что бесполезно помогать?