Помощь - Поиск - Пользователи - Календарь
Полная версия этой страницы: Расходная накладная на основании приходной.
Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7 > Пользователю 1С 7.7 > 1С Торговля и Склад 7.7 для Украины
pro100vova
Есть приходная накладная в ней 20-30 наименований товара. Можно ли на ее основании сразу сделать расходную, а не снова вбивать товар.
Спасибо за ответы!
igmig65
Можно, если доработать конф-цию, а конкретно ВводНаОсновании().
Будут трудности милости просим в стол заказов, доработка небольшая.
vadim007
pro100vova, становитесь мышкой на приходную накладную, жмете правую кнопку мыши, выбираете пункт "Ввести на основании", появится диалог "Выбор вида документа". Выбираете "Расходная накладная", жмете кнопку Ок, или дважды щелкаете левой кнопкой мышки на выбранном значении, и пожалуйста - заполненная Расходная накладная.
Pepe
Цитата(vadim007 @ 19.06.11, 9:35) необходимо зарегистрироваться для просмотра ссылки
pro100vova, становитесь мышкой на приходную накладную, жмете правую кнопку мыши, выбираете пункт "Ввести на основании", появится диалог "Выбор вида документа". Выбираете "Расходная накладная", жмете кнопку Ок, или дважды щелкаете левой кнопкой мышки на выбранном значении, и пожалуйста - заполненная Расходная накладная.

И получите возврат. Надо вносить изменение в конфигурацию, а именно достаточно в форме документа Расходная накладная, процедура ввестинаосновании поменять признак.
bodka
Ответить лучше поздно .......


И в РасходнойНакладной в модуль объекта пишем код
Процедура ОбработкаЗаполнения(ДанныеЗаполнения, СтандартнаяОбработка)
    //{{__КОНСТРУКТОР_ВВОД_НА_ОСНОВАНИИ
    // Данный фрагмент построен конструктором.
    // При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!
    Если ТипЗнч(ДанныеЗаполнения) = Тип("ДокументСсылка.ПриходнаяНакладная") Тогда
        // Заполнение шапки
        Заказ = ДанныеЗаполнения.Ссылка;
        Для Каждого ТекСтрокаТовары Из ДанныеЗаполнения.Товары Цикл
            НоваяСтрока = Товары.Добавить();
            НоваяСтрока.Количество = ТекСтрокаТовары.Количество;
            НоваяСтрока.Товар = ТекСтрокаТовары.Товар;
            НоваяСтрока.Сумма = ТекСтрокаТовары.Сумма;
            НоваяСтрока.ЦенаЗакупки = ТекСтрокаТовары.Цена;
        КонецЦикла;
    КонецЕсли;
    //}}__КОНСТРУКТОР_ВВОД_НА_ОСНОВАНИИ
КонецПроцедуры
logist
Цитата(bodka @ 15.10.11, 0:09) необходимо зарегистрироваться для просмотра ссылки
Ответить лучше поздно .......

А иногда лучше жевать. Тема про 7.7.
Для просмотра полной версии этой страницы, пожалуйста, пройдите по ссылке.