1C Программирование и поддержка - [11] :: Прикладное программирование

An4eus

Цитата:

выложи текст формул!

Если я правильно понял, тогда формулы такие:

Код:

_{Процедура ИзмФлагаПоказыватьОстатки()

    Если (фПоказыватьОст = 0) Тогда
        ВидимостьОст = 0;
    Иначе
        ВидимостьОст = 1;
    КонецЕсли;

    Форма.Остаток.Видимость(ВидимостьОст);

КонецПроцедуры    // ИзмФлагаПоказыватьОстатки()

//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\
Функция ВывестиОстаток()
    Перем Ост;

    Ост = "";

    Если (ТекущийЭлемент().Выбран() = 1) Тогда

        Если (ТекущийЭлемент().ЭтоГруппа() = 0) Тогда

            // Берем по базовой фирме.
            Фирма = Константа.БазФирма;
            Если (Склад.Выбран() = 1) Тогда
                Ост = Регистр.ПартииТоваров.Остаток(фирма, ТекущийЭлемент(), Склад, "Кво");
            Иначе
                Ост = Регистр.ПартииТоваров.СводныйОстаток(фирма, ТекущийЭлемент(), , "Кво");
            КонецЕсли;

        КонецЕсли;

    КонецЕсли;

    Возврат Ост;

КонецФункции
//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\}

и

Код:

_{Процедура ПоказатьЦены()
    Перем ФормаСпискаЦен;

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

Процедура ИзмКатегорияЦен()

КонецПроцедуры    // ИзмКатегорияЦен

Функция ПолучитьЦена()
    КатЦен = ВыбКатегорияЦен.получитьзначение(ВыбКатегорияЦен.текущаястрока());
    Если (КатЦен = глВернутьКатегориюЦен("_Прих")) или (КатЦен = глВернутьКатегориюЦен("_Хран")) Тогда
        Точность = 5;
    Иначе
        Точность = 2;
    КонецЕсли;
    Возврат Формат(глВернутьЦену(ТекущийЭлемент(),КатЦен,НаДату),"Ч015."+Точность);
КонецФункции    // ПолучитьЦена()}

Модерирует : ShIvADeSt
ShIvADeSt (30-10-2009 09:51): http://forum.ru-board.com/topic.cgi?forum=33&topic=10715	Версия для печати • Подписаться • Добавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101