Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
Есть обработа. Задачи обработки. Создать документ Товарная накладная (все норм. получаеться)
Затем эта обработка должна создать документ Счет-фактура выдання, при этом основанием СФВ должен быть документ созданный нами ранее (ТН). Проблема: Создаю док СФВ выбираю основание... Остальные реквизиты мажно заполнить автоматически... Я знаю что это можно это можно сделть нажатием на кнопку заполнить. Как это лучше реализовать?
Затем эта обработка должна создать документ Счет-фактура выдання, при этом основанием СФВ должен быть документ созданный нами ранее (ТН). Проблема: Создаю док СФВ выбираю основание... Остальные реквизиты мажно заполнить автоматически... Я знаю что это можно это можно сделть нажатием на кнопку заполнить. Как это лучше реализовать?
Mars пишет:
Все во внешней обработке! Вощем делаю так Создаю док Счет-Фактура Выданная, назначаю основание, теперь... как теперь заполнить реквизиты док СФВ автоматически не пойму (((( Привидите пример кода плиз.
Все во внешней обработке! Вощем делаю так Создаю док Счет-Фактура Выданная, назначаю основание, теперь... как теперь заполнить реквизиты док СФВ автоматически не пойму (((( Привидите пример кода плиз.
См. пункт 5!
Вот так, например, можно:
Процедура КнопкаВыполнитьНажатие(Кнопка)
// на кнопку быстрая клавиша F4, например
Сообщить("Нажали");
КонецПроцедуры
Процедура ПриОткрытии()
WshShell = ПолучитьComОбъект("","WScript.Shell") ;
WshShell.SendKeys("{F4}");
КонецПроцедуры
Процедура КнопкаВыполнитьНажатие(Кнопка)
// на кнопку быстрая клавиша F4, например
Сообщить("Нажали");
КонецПроцедуры
Процедура ПриОткрытии()
WshShell = ПолучитьComОбъект("","WScript.Shell") ;
WshShell.SendKeys("{F4}");
КонецПроцедуры
(23) вчера домой приехал поздно и с дурным настроением. Сел за комп и разрыдался от смеха. Здесь уже кучу решений предложили, а у тебя всё никак не получается. А $5 ты не заслужил ещё :)
Из обработки програмно открой форму, на которой кнопка находится и програмно вызови обработчик нажатия.
Если ЗаполнитьНаОсновании() не принимает никаких параметров, значит есть некоторая переменная, которая хранит в себе этот документ-основание. Разберись, как всё устроено в самом документе, и будешь знать, как жить дальше...
Из обработки програмно открой форму, на которой кнопка находится и програмно вызови обработчик нажатия.
Если ОткрытьФорму(Документ, ,0) = 1 Тогда
Документ.ЗаполнитьНаОсновании(ДокументОснование);
КонецЕсли;Если ЗаполнитьНаОсновании() не принимает никаких параметров, значит есть некоторая переменная, которая хранит в себе этот документ-основание. Разберись, как всё устроено в самом документе, и будешь знать, как жить дальше...
Mars - это в обработке
//****
ДокЗКП.Новый();
ДокЗКП.ДокументОснование =ДокСФПДляОпл.ТекущийДокумент();
ДокЗКПВ = ДокЗКП.ТекущийДокумент();
ДатаЗКП = ДокЗКП.ДатаДок;
НомерЗКП = ДокЗКП.Номердок;
СписокПараметров=СоздатьОбъект("СписокЗначений");
СписокПараметров.ДобавитьЗначение("Заполнить","Команда");
СписокПараметров.ДобавитьЗначение(ДокСФПДляОпл.ТекущийДокумент(),"ДокументОснование");
ОткрытьФорму(ДокЗКПВ,СписокПараметров);
//****
Это ставишь в форму дока в ПриОткрытии()
Если ПустоеЗначение(Форма.Параметр)=0 Тогда
Если ТипЗначенияСтр(Форма.Параметр)="СписокЗначений" Тогда
Если Форма.Параметр.Получить("Команда")="Заполнить" Тогда
ДокументОснование=Форма.Параметр.Получить("ДокументОснование");
Заполнить(ДокументОснование);
Записать();
Провести();
СтатусВозврата(0);
Возврат;
Иначе
Предупреждение("В форму передан неверный параметр!");
КонецЕсли;
КонецЕсли;
КонецЕсли;
//***
Ну а в
Функция Заполнить(ДокОсн)
// тут как правило уже написано что надо сделать
КонецФункции
//****
ДокЗКП.Новый();
ДокЗКП.ДокументОснование =ДокСФПДляОпл.ТекущийДокумент();
ДокЗКПВ = ДокЗКП.ТекущийДокумент();
ДатаЗКП = ДокЗКП.ДатаДок;
НомерЗКП = ДокЗКП.Номердок;
СписокПараметров=СоздатьОбъект("СписокЗначений");
СписокПараметров.ДобавитьЗначение("Заполнить","Команда");
СписокПараметров.ДобавитьЗначение(ДокСФПДляОпл.ТекущийДокумент(),"ДокументОснование");
ОткрытьФорму(ДокЗКПВ,СписокПараметров);
//****
Это ставишь в форму дока в ПриОткрытии()
Если ПустоеЗначение(Форма.Параметр)=0 Тогда
Если ТипЗначенияСтр(Форма.Параметр)="СписокЗначений" Тогда
Если Форма.Параметр.Получить("Команда")="Заполнить" Тогда
ДокументОснование=Форма.Параметр.Получить("ДокументОснование");
Заполнить(ДокументОснование);
Записать();
Провести();
СтатусВозврата(0);
Возврат;
Иначе
Предупреждение("В форму передан неверный параметр!");
КонецЕсли;
КонецЕсли;
КонецЕсли;
//***
Ну а в
Функция Заполнить(ДокОсн)
// тут как правило уже написано что надо сделать
КонецФункции
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот