При нажатии на кнопку нужно создавать документы на выбранную дату

Форум Программирование Общие вопросы программирования (Dev)

1C:Бухгалтерия 1С:ERP Управление предприятием 2 Корп. решения 1С Бухгалтерский учет Управленческий учет Налоговый учет Программист Стажер Внешняя обработка (ert,epf)

1. Гость 30.03.21 15:33

Во внешней обработке нужно, чтобы при выборе даты и нажатие на кнопку Создать документы БУ, новый документ создавался выбранной датой. Как это сделать помогите пожалуйста

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

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

Показать

Прикрепленные файлы:

По теме из базы знаний

Ответы

Подписаться на ответы Инфостарт бот

Свернуть все

2. sssss_aaaaa_2011 30.03.21 15:44 Сейчас в теме

1. При нажатиИ (для проверки смотри как написаны ПриОткрытии, ПриСоздании и т.д.)
2. "создавался выбранной датой" - выбранной где/как?
3. Где-то перед завершением транзакции получи созданный документ, поставь в нём нужную дату, сохрани с проведением.

3. DenisVol 2 30.03.21 15:45 Сейчас в теме

Там где создаете документ. пишите документ.дата = ВыбраннаяДата;

4. ive 3 30.03.21 16:04 Сейчас в теме

документ.дата = ВыбраннаяДата;

в бит_стр_ОМТС_Сервер.ФБД_ПараметрыДляОтображенияВБухДокумент()

5. Гость 30.03.21 18:12

Можно объяснить по подробнее?
(4)

6. ive 3 30.03.21 22:11 Сейчас в теме

(5) Посмотрите функцию ФБД_ПараметрыДляОтображенияВБухДокумент() в модуле бит_стр_ОМТС_Сервер

7. Гость 30.03.21 22:17

(6)

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

Показать

8. ive 3 30.03.21 22:37 Сейчас в теме

(7) Модуль менеджера документа который обрабатывается, там функция ОтобразитьВБухгалтерскийДокумент

9. Гость 30.03.21 22:58

(8) Больше нигде эта функция не встречается

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

Показать

10. ive 3 31.03.21 08:48 Сейчас в теме

Как я понимаю в ПараметрыДляОтображения необходимо добавить новый параметр:
ПараметрыДляОтображения.Вставить("ДатаДокументаБУ", Элементы.ДатаСозданияБухгалтерскихДокументов);

Далее смотреть обработку данных параметров в модуле менеджера документа:
ДокументСоздан = Документы[МетаданныеДокумента.Имя].ОтобразитьВБухгалтерскийДокумент(ПараметрыДляОтображения, ОшибкаОтображения);

необходимо в конфигурации найти документ, который создается в обработке, с модуле менеджера в функции ОтобразитьВБухгалтерскийДокумент добавить обработку параметра ДатаДокументаБУ вида :
Документ.Дата = ПараметрыДляОтображения.ДатаДокументаБУ;
более точно, нужен текст функции ОтобразитьВБухгалтерскийДокумент(ПараметрыДляОтображения, ОшибкаОтображения)

11. Гость 31.03.21 08:53

(10)Спасибо огромное)

Внимание! Не забывайте отмечать решение на ваш вопрос, если оно найдено. Это повысит ваш рейтинг на форуме.

Оставьте свое сообщение

E-mail: