Помощь - Поиск - Пользователи - Календарь
Полная версия этой страницы: Установка цены в РТУ
Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7 > Программисту > Программирование в 1С Предприятие 8.1 (8.0)
КубикРубик
начинаю разбираться с 1с, к сожалению знание не обширные=( что бы лучше понять решит разобрать код который уже написан в нашей конфе
в документе реализация товаров и услуг эта кнопка устанавливает цену товара (как я понимаю из поступления)
если пошлете почитать ссылке по теме буду рад=)
если подскажите что к чему буду очень благодарен
код следующего содержания

Процедура КоманднаяПанельТоварыУстановитьЦену(Кнопка)
    СтруктураПолей = Новый Структура();
    СтруктураПолей.Вставить("Номенклатура",        "Номенклатура");
    СтруктураПолей.Вставить("Услуга"      ,        "Номенклатура.Услуга");
    СтруктураПолей.Вставить("Количество"  ,        "Количество");
    СтруктураПолей.Вставить("Сумма"       ,        "Сумма");
    СтруктураПолей.Вставить("СтавкаНДС"   ,        "СтавкаНДС");
    СтруктураПолей.Вставить("НДС"         ,        "СуммаНДС");
    СтруктураПолей.Вставить("НомерГТД",            "НомерГТД");
    СтруктураПолей.Вставить("СтранаПроисхождения", "СтранаПроисхождения");

    СтруктураПолей.Вставить("СчетУчета"          , "СчетУчета");
    СтруктураПолей.Вставить("ПереданныеСчетУчета", "ПереданныеСчетУчета");
    СтруктураПолей.Вставить("СчетДоходов"        , "СчетДоходов");
    СтруктураПолей.Вставить("Субконто"           , "Субконто");
    СтруктураПолей.Вставить("СчетРасходов"       , "СчетРасходов");
    СтруктураПолей.Вставить("СчетУчетаНДСПоРеализации", "СчетУчетаНДСПоРеализации");
    СтруктураПолей.Вставить("ДокументОприходования", "ДокументОприходования");
    СтруктураПолей.Вставить("Себестоимость"           , "Себестоимость");
    СтруктураПолей.Вставить("Цена"                   , "Цена");
    РезультатЗапросаПоТоварам = ОбщегоНазначения.СформироватьЗапросПоТабличнойЧасти(ЭтотОбъект, "Товары", СтруктураПолей);

    // Подготовим таблицу товаров для проведения.

    СтруктураШапкиДокумента = ОбщегоНазначения.СформироватьСтруктуруШапкиДокумента(ЭтотОбъект);
    ТаблицаПоТоварам = ПодготовитьТаблицуТоваров(РезультатЗапросаПоТоварам, СтруктураШапкиДокумента);
    //Для каждого ТекущаяСтрока из Товары Цикл

    СтИнд = ЭтотОбъект.Товары.Количество()-1;
    //ДляСч = 0 по СтИнд Цикл

    Сч = 0;
    Отказ = Ложь;
    СодержаниеПроводки = "Реализация товаров";

    УправлениеЗапасамиПартионныйУчет.ДвижениеПартийТоваров(Заголовок, ТаблицаПоТоварам, Истина, СтруктураШапкиДокумента.ОтражатьВНалоговомУчетеУСН, Отказ, , СодержаниеПроводки);
    Если ЭтотОбъект.ЭтоНовый() Тогда
        Сообщить("Новый документ необходимо записать!");
    Иначе
        Для каждого ТекущаяСтрока из Товары Цикл
            ТекущаяСтрока.Сумма = ТаблицаПоТоварам[Сч].СписанныеПартии[0].СуммаСписания;
            Если ТекущаяСтрока.Количество<>0 Тогда
                ОбработкаТабличныхЧастей.РассчитатьЦенуТабЧасти(ТекущаяСтрока, ЭтотОбъект);
                ОбработкаТабличныхЧастей.РассчитатьСуммуНДСТабЧасти(ТекущаяСтрока, ЭтотОбъект);
            КонецЕсли;
            Сч = Сч + 1;
        КонецЦикла;
        Комментарий = "";
    КонецЕсли;


1. Для чего нужна структура?
2.Зачем полученную структура протаскивать между процедур из общего модуля(УправлениеЗапасамиПартионныйУчет,ОбщегоНазначения) ?
3. Где здесь расчет движений и зачем он нужен?


 ! 

Правила, п.12
 
logist
Прям какой-то день пользователей которые не знают что такое структура... необходимо зарегистрироваться для просмотра ссылки
Ardi
Цитата(КубикРубик @ 04.02.14, 9:46) необходимо зарегистрироваться для просмотра ссылки
2.Зачем полученную структура протаскивать между процедур из общего модуля(УправлениеЗапасамиПартионныйУчет,ОбщегоНазначения) ?3. Где здесь расчет движений и зачем он нужен?

Цитата(КубикРубик @ 04.02.14, 9:46) необходимо зарегистрироваться для просмотра ссылки
в документе реализация товаров и услуг эта кнопка устанавливает цену товара (как я понимаю из поступления)

А какое отношение цена поступления имеет к реализации?
Для просмотра полной версии этой страницы, пожалуйста, пройдите по ссылке.