Автоматический добавление номенклатуры товара при создании документа

Форум Учет и отчетность Складской учет и логистика (WMS)

1С:Производство+Услуги+Бухгалтерия Оперативный учет 7.7 1С:Торговля и склад 7.7

1. 2sw 18 28.05.12 17:30 Сейчас в теме

Есть задача (кнопка или пункт в меню), чтобы при открытии документа "реализация" автоматически в табличную часть сразу включалась нужная номенклатура (по коду или артикулу).
Подскажите плз что добавить в модуль и какую задачу повесить на кнопку.
Спасибо ;)

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

Ответы

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

Свернуть все

2. baldorc 4 28.05.12 17:44 Сейчас в теме

Если при открытии документа, то в процедуру формы "ПриОткрытии" в конец добавить след кусок кода

    СпрНоменклатура = СоздатьОбъект("Справочник.Номенклатура");
    Код = "00000231";
    Если СпрНоменклатура.НайтиПоКоду(Код, 0) <> 0 Тогда
        НоваяСтрока();
        Номенклатура = СпрНоменклатура.ТекущийЭлемент();
        Количество = 1;
        Цена = 20;
        //и так далее, остальные реквизиты табличсной части
    КонецЕсли;

Показать

если нужно добавлять строчку только при создании нового документа, тогда этот кусок кода надо добавить в предопределенную процедуру модуля формы "ВводНового"

или, на худой конец, поместить этот код в процедуру с названием, например ДобавитьТовар(), добавить на форму кнопку и у кнопки, в поле "дополнительно", прописать название процедуры ДобавитьТовар()
вот как-то так :)

4. 2sw 18 28.05.12 18:34 Сейчас в теме

если такую задачу повесить на кнопку

ОткрытьФорму("Документ.Реализация", "ДобавитьТовар")

Если ПустоеЗначение(Форма.Параметр)=0 Тогда
        Если Форма.Параметр = "ДобавитьТовар" Тогда  
//код (2) baldorc
                   СпрНоменклатура = СоздатьОбъект("Справочник.Номенклатура");
                   Код = "00000231";
                           Если СпрНоменклатура.НайтиПоКоду(Код, 0) <> 0 Тогда
                           НоваяСтрока();
                           Номенклатура = СпрНоменклатура.ТекущийЭлемент();
                           Количество = 1;
                           Цена = 20;
      //и так далее, остальные реквизиты табличсной части
                           КонецЕсли;

        КонецЕсли;
    Иначе

Показать

...

6. 2sw 18 28.05.12 18:48 Сейчас в теме

:D Все получилось

добавил кнопку меню, повесил задачу
ОткрытьФорму("Документ.Реализация", "ДобавитьТовар")

вот итоговый модуль

// предопределенная процедура
Процедура ВводНового(Скопирован)
                      
    глЗаполнитьШапку(Контекст, Скопирован,"Продажа");
    
    Если Скопирован = 1 Тогда
        ПересчетСуммыВзаиморасчетов();
        Возврат;
    КонецЕсли;
    
    Если ПустоеЗначение(Форма.Параметр)=0 Тогда
        Если Форма.Параметр = "Комиссия" Тогда  
            КодОперации        = Перечисление.КодыОпераций.ПередачаНаРеализацию;
        Иначе
            КодОперации        = Перечисление.КодыОпераций.Продажа;
        КонецЕсли;  

        //sw
        Если Форма.Параметр = "ДобавитьТовар" Тогда  
//код (2) baldorc
                   СпрНоменклатура = СоздатьОбъект("Справочник.Номенклатура");
                   //заправка картриджа
                   Код = "DS001986";
                           Если СпрНоменклатура.НайтиПоКоду(Код, 0) <> 0 Тогда
                           НоваяСтрока();
                           Номенклатура = СпрНоменклатура.ТекущийЭлемент();
                           Количество = 1;
                           Цена = 300;
      //и так далее, остальные реквизиты табличсной части
                           КонецЕсли;

      КонецЕсли;    
        
    Иначе
        КодОперации    = Перечисление.КодыОпераций.Продажа;
    КонецЕсли;    
    
    // Документы оптовой торговли можно оформлять только с оптового склада
    Если (Склад.РозничныйСклад = 1) Тогда
        Склад = "";
    КонецЕсли;              
    
КонецПроцедуры // ВводНового()

Показать

;)

7. baldorc 4 29.05.12 13:18 Сейчас в теме

(6) 2sw, да, вполне нормально получилось

3. 2sw 18 28.05.12 17:55 Сейчас в теме

Большое спасибо за столь подробный ответ!
Буду мучать кнопки и модуль. ;)

зы. А можно ли сделать вызов этой процедуры по кнопке панели иструментов, например через задачу:

ОткрытьФорму("Документ.Реализация", ".....")

Как инициализировать вызов этой процедуры только при условии нажатия определенной кнопки меню?

5. baldorc 4 28.05.12 18:38 Сейчас в теме

добавить в меню пункт(или на панель кнопку) Задача с командой "Задача.Выполнить" в поле "формула" на закл "параметры" прописать что-то такое

ОткрытьФорму("Документ.Реализация", "ой")

вышеуказанный код трансформируется в

Если Форма.Параметр = "ой" Тогда
   СпрНоменклатура = СоздатьОбъект("Справочник.Номенклатура");
   Код = "00000231";
   Если СпрНоменклатура.НайтиПоКоду(Код, 0) <> 0 Тогда
      НоваяСтрока();
      Номенклатура = СпрНоменклатура.ТекущийЭлемент();
      Количество = 1;
      Цена = 20;
      //и так далее, остальные реквизиты табличной части
   КонецЕсли;
КонецЕсли;

Показать

и поместить его лучше в ВводНового

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

E-mail: