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

DARKDEAD

Цитата:

Справочник. тип цен подчинен, спр. номенклатуре?

Этот справочник не подчинен. А подчинен справочник "Цены", в котором и выбираются эти типы цен.

dias65

Цитата:

Я предположил, что это 7.7, а конфига -?

7.7 и конфига "Торговля и склад" (переписанная)

Цитата:

Возврат Формат(глВернутьЦену(КатЦен,НаДату),"Ч015."+Точность);

Цитата:

ОткрытьФорму("Справочник.Цены.ФормаСписка",ТекЭл);

Похоже с этими строками кода я явно перестарался.

An4eus

Цитата:

1. глВернутьКатегориюЦен()
2. глВернутьЦену()

1.
Код:

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

2.
Код:

Функция глВернутьЦену(Товар, КатегорияЦены, ДатаЦены=0,Конт = 0, ТочностьЦены = 5,Коэффициент=1) Экспорт Далее

Код:

Функция глВернутьЦену(Товар, КатегорияЦены, ДатаЦены=0,Конт = 0, ТочностьЦены = 5,Коэффициент=1) Экспорт

    //Вызывала ошибку при вызове из справочника
    Если (Товар.ЭтоГруппа() = 1) или (ПустоеЗначение(Товар) = 1) Тогда
        Возврат 0;
    КонецЕсли;
    Если ПустоеЗначение(КатегорияЦены)=1 Тогда
        Сообщить("Не определена категория цен: "+КатегорияЦены+" в товаре "+Товар+" "+Товар.Артикул,"!!!");
        Возврат 0;
    КонецЕсли;
    Если ПустоеЗначение(Конт) = 0 Тогда
        Если Конт.Вид() = "РасходнаяНакладная" Тогда
            Если (Конт.Подразделение.ТипПодразделения = Перечисление.ТипыПодразделений.Логистическое) И (Конт.ДатаДок > Дата("03.05.06")) Тогда
                Возврат Конт.ЦенаСНДС;
            КонецЕсли;
        КонецЕсли;
    КонецЕсли;

    Цена = 0;

    ЦеныТовара = СоздатьОбъект("Справочник.Цены");
    ЦеныТовара.ИспользоватьВладельца(Товар);

    Если Константа.ПрограммируемаяМиграция = 1 Тогда
        Если ЦеныТовара.НайтиПоРеквизиту("КатегорияЦены",КатегорияЦены,0) = 1 Тогда
            Цена = ЦеныТовара.ТекущийЭлемент()
        КонецЕсли;
    Иначе
        ЦеныТовара.ВыбратьЭлементы();
        Пока ЦеныТовара.ПолучитьЭлемент() = 1 Цикл
            Если ЦеныТовара.ПометкаУдаления() = 1 Тогда
                Продолжить;
            КонецЕсли;

            Если ЦеныТовара.КатегорияЦены = КатегорияЦены Тогда
                Цена = ЦеныТовара.ТекущийЭлемент();
                Прервать;
            КонецЕсли;
        КонецЦикла;
    КонецЕсли;

Добавлено:
И такой вопрос вдогонку, создал поля для ввода с идентификаторами: ТелКлиент, АдрКлиент
Только при выборе контрагента почему-то данные телефона и адреса не подставляются.

Код:

//***************************Обработка шапки диалога обработки**************************
Процедура ПриОткрытии()
ЭлементСправочника = СоздатьОбъект ("Справочник.ТорговыеТочки");
СпК = СоздатьОбъект ("Справочник.Контрагенты");
//Наименование=Контрагенты;
Если Контрагенты=1 Тогда
ТелКлиент=СпК.Телефоны;
АдрКлиент=ЭлементСправочника.Адрес;
КонецЕсли;

Модерирует : 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