Процедура ТоварыПриВыводеСтроки(Элемент, ОформлениеСтроки, ДанныеСтроки)
    ОформлениеСтроки.Ячейки.Штрихкод.Значение=ДанныеСтроки.единица.штрихкод;
    ОформлениеСтроки.Ячейки.DigərMaxiAlış.Значение=ДанныеСтроки.единица.ТипЦен3.Текущаядата();
    ОформлениеСтроки.Ячейки.DigərMaxiSatış.Значение=ДанныеСтроки.единица.ТипЦен4.Текущаядата();
КонецПроцедуры

Привет. Мне нужно просто отразить Значение типцены3 и типцены4. Для удобного просмотра. Пожалуйста помогите. Я не очень хорошо говорю по-русски, извините за это.

{Документ.ПоступлениеТоваров.Форма.ФормаДокумента.Форма(124)}: Поле объекта не обнаружено (ТипЦен3)
    ОформлениеСтроки.Ячейки.DigərMaxiAlış.Значение=ДанныеСтроки.единица.ТипЦен3.Текущаядата();

Пожалуйста помогите.

"ТипЦен3" это реквизит?

(4) Да

Позволь мне объяснить. Есть 2 рынка. Каждый использует свой тип цены. Я хочу видеть цену, используемую другим магазином для нашего собственного магазина, в документе о покупке.

Форма управляемая?
Действие происходит на клиенте?

(7) Да

ОформлениеСтроки.Ячейки.Штрихкод.Значение=ДанныеСтроки.единица.штрихкод;
    ОформлениеСтроки.Ячейки.DigərMaxiAlış.Значение=ДанныеСтроки.единица.ТипЦен3.Текущаядата();
    ОформлениеСтроки.Ячейки.DigərMaxiSatış.Значение=ДанныеСтроки.единица.ТипЦен4.Текущаядата();

change

ОформлениеСтроки.Ячейки.Штрихкод.Значение=ДанныеСтроки.единица.штрихкод;
    ОформлениеСтроки.Ячейки.DigərMaxiAlış.Значение=ВернутьТекДатуТИпЦен3(ДанныеСтроки.единица);
    ОформлениеСтроки.Ячейки.DigərMaxiSatış.Значение=ВернутьТекДатуТИпЦен4(ДанныеСтроки.единица);


add below

&НаСервере
Функция ВернутьТекДатуТИпЦен3(единица)
    Возврат единица.ТипЦен3.Текущаядата();
КонецФункции

&НаСервере
Функция ВернутьТекДатуТИпЦен4(единица)
    Возврат единица.ТипЦен4.Текущаядата();
КонецФункции

Вот только смущает, что на поле "штрихкод" не заругалось.

Текущаядата() - это экспортная функция в модуле менеджера скорее всего в справочнике "тип цен", но одноименная функция является системной. Очень все это смущает.

{Документ.ПоступлениеТоваров.Форма.ФормаДокумента.Форма(124,49)}: Процедура или функция с указанным именем не определена (ВернутьТекдатуТИпЦен3)
    ОформлениеСтроки.Ячейки.DigərMaxiAlış.Значение=<<?>>ВернутьТекдатуТИпЦен3(ДанныеСтроки.единица); (Проверка: Толстый клиент (обычное приложение))
{Документ.ПоступлениеТоваров.Форма.ФормаДокумента.Форма(125,53)}: Процедура или функция с указанным именем не определена (ВернутьТекдатуТИпЦен4)
    ОформлениеСтроки.Ячейки.DigərMaxiSatış.Значение=<<?>>ВернутьТекдатуТИпЦен4(ДанныеСтроки.единица); (Проверка: Толстый клиент (обычное приложение))

Процедура ИзмЕдин(док,стр)экспорт
    стр.коэффициент=стр.единица.коэффициент;
    Если Док.ТипЦен=1 Тогда
        стр.DigərMaxiAlış=стр.товар.ТипЦен3;
        стр.DigərMaxiSatış=стр.товар.ТипЦен4;
    Иначеесли Док.ТипЦен=3 Тогда
        стр.DigərMaxiAlış=стр.товар.ТипЦен1;
        стр.DigərMaxiSatış=стр.товар.ТипЦен2;
    КонецЕсли;
            /////////..............
КонецПроцедуры

Общие модули РаботаСТЧДокумента

Не работает. Как исправить? :(

Пожалуйста помогите (((

(0) Покажи картинку с формой в пофигураторе, для начала.

это что б понимать, УФ у тебя или ОФ..

https://www.linkpicture.com/q/123123_1.jpg

(15) у тебя Толстый клиент (обычное приложение))

поэтому все строчки типа &НаКлиенте, &НаСервере  выкинь. Они для тонкого клиента. Только мешаются.

Мне нада почти это

Если Док.ТипЦен=1 Тогда
        стр.DigərMaxiAlış=стр.товар.ТипЦен3;
        стр.DigərMaxiSatış=стр.товар.ТипЦен4;
    Иначеесли Док.ТипЦен=3 Тогда
        стр.DigərMaxiAlış=стр.товар.ТипЦен1;
        стр.DigərMaxiSatış=стр.товар.ТипЦен2;

стр.DigərMaxiAlış и стр.DigərMaxiSatış  нада толко Я вижу

(19) все НаКлиенте

(0) "ДанныеСтроки.единица.ТипЦен3.Текущаядата(); " - так цены на текущую дату нельзя получать.
Делайте запрос в регистру цен на нужную дату с указанием нужного вида цен

(22) вот же у тебя

&НаСервере

Функция ВернутьТекДатуТИпЦен4(единица)


зачем врешь?

(20)
Процедура ТоварыПриВыводеСтроки(Элемент, ОформлениеСтроки, ДанныеСтроки)
    ОформлениеСтроки.Ячейки.Штрихкод.Значение=ДанныеСтроки.единица.штрихкод;
    ОформлениеСтроки.Ячейки.DigərMaxiAlış.Значение=ДанныеСтроки.единица.ТипЦен3;
    ОформлениеСтроки.Ячейки.DigərMaxiSatış.Значение=ДанныеСтроки.единица.ТипЦен4;
КонецПроцедуры

(24) какой клиент/сервер, когда там (Проверка: Толстый клиент (обычное приложение))

(26) если обычное приложение, почему у него не видит функцию, которая &НаСервере?

&НаСервере

Функция ВернутьТекДатуТИпЦен4(единица)

Процедура или функция с указанным именем не определена (ВернутьТекдатуТИпЦен4)

(27) потому что ее нет у него

(15) что конкретно не работает? Ошибки какие-то?

(29) {ОбщийМодуль.РаботаСТЧДокумента.Модуль(173,7)}: Переменная не определена (ТипЦен)
    Если <<?>>ТипЦен.Док=1 Тогда (Проверка: Толстый клиент (обычное приложение))
{ОбщийМодуль.РаботаСТЧДокумента.Модуль(176,12)}: Переменная не определена (ТипЦен)
    Иначеесли <<?>>ТипЦен.Док=3 Тогда (Проверка: Толстый клиент (обычное приложение))

(30) вам походу надо с азов изучать 1с, то что вы пищите "ТипЦен.Док=1" это вообще мимо.

*пишите

поэтому вам тут вряд ли подскажут, только есть с нуля все для вас напишут.

(30) как в (25) работает хоть ?

КодЦены = УправлениеНоменклатурой.ОновлениеЦены(стр.товар,Док.ТипЦен,стр.единица,док.Дата);
    Если Док.ТипЦен("КодЦен1") Тогда
        стр.DigərMaxiAlış=стр.товар.ТипЦен("КодЦен3");
        стр.DigərMaxiSatış=стр.товар.ТипЦен("КодЦен4");
    Иначеесли Док.ТипЦен("КодЦен3") Тогда
        стр.DigərMaxiAlış=стр.товар.ТипЦен("КодЦен1");
        стр.DigərMaxiSatış=стр.товар.ТипЦен("КодЦен2");
    КонецЕсли;

РаботаСТЧДокумента Модул.

(34) не работает

(37) че пишет ?

(38) Только встречные цены не появляются. Никаких ошибок не пишет.

а можно пиши Процедура ПолучитьЦену в ФормаДокумента модул?

(40) в 1с есть отладчик, вам надо пошагово пройти по тексту с отладчиком. И еще там в отладчике есть "Останавливаться по ошибке", программа у вас остановится на этой строчке, и вы просмотрите все переменные в момент ошибки.

(41) Синтаксических ошибок не обнаружено!

(42) я ничего не писал про синтаксические ошибки.

Процедура ТоварыПриВыводеСтроки(Элемент, ОформлениеСтроки, ДанныеСтроки)
    ОформлениеСтроки.Ячейки.Штрихкод.Значение=ДанныеСтроки.единица.штрихкод;
    ОформлениеСтроки.Ячейки.DigərMaxiSatış.Значение=ДанныеСтроки.Цена(док.Автор.DigərMaxiSatış);
    ОформлениеСтроки.Ячейки.DigərMaxiAlış.Значение=ДанныеСтроки.Цена(док.Автор.DigərMaxiAlış);
КонецПроцедуры

Я добавил эти типы цен пользователям. Что здесь не так?

(45) см (41)

(46) {Документ.ПоступлениеТоваров.Форма.ФормаДокумента.Форма(120)}: Поле объекта не обнаружено (DigərMaxiAlış)
    ОформлениеСтроки.Ячейки.DigərMaxiAlış.Значение=ДанныеСтроки.единица.DigərMaxiAlış;

(47) ну в меню отладка поставь точку останова на этой твоей строчке, запусти программу, она там остановится, и посмотри там эти 2 поля:

ДанныеСтроки.единица.DigərMaxiAlış
ОформлениеСтроки.Ячейки.DigərMaxiAlış.Значение

чему они равны?

(47) скорее всего у тебя в единице измерения нет такого поля DigərMaxiAlış. Ты в справочник единицы измерения добавлял такой реквизит? DigərMaxiAlış ?

Процедура ТоварыПриВыводеСтроки(Элемент, ОформлениеСтроки, ДанныеСтроки)
    ОформлениеСтроки.Ячейки.Штрихкод.Значение=ДанныеСтроки.единица.штрихкод;
    DigərMaxiAlış=УправлениеПользователями.ЗначениеПоУмолчания("DigərMaxiAlış");
    DigərMaxiSatış=УправлениеПользователями.ЗначениеПоУмолчания("DigərMaxiSatış");
    ОформлениеСтроки.Ячейки.DigərMaxiAlış.Значение=DigərMaxiAlış;
    ОформлениеСтроки.Ячейки.DigərMaxiSatış.Значение=DigərMaxiSatış;
КонецПроцедуры

Почти готово. Пишется только название типа цены. Цена товара в строке не написана.

https://www.linkpicture.com/q/1111111.jpg

(50) ты же туда и выводишь название типа цены. Оно и пишет название типа цены. Правильно программа отрабатывает.

(53) Это он хвастался )

(54) НЕТ )

Процедура ТоварыПриВыводеСтроки(Элемент, ОформлениеСтроки, ДанныеСтроки)
    ОформлениеСтроки.Ячейки.Штрихкод.Значение=ДанныеСтроки.единица.штрихкод;
    ОформлениеСтроки.Ячейки.DigərMaxiAlış.Значение=ДанныеСтроки.ТипыЦен("m2alish");
    ОформлениеСтроки.Ячейки.DigərMaxiSatış.Значение=ДанныеСтроки.ТипыЦен("m2satish");
    
    
    
    /////ОформлениеСтроки.Ячейки.DigərMaxiAlış.Значение=УправлениеНоменклатурой.ПолучитьСтруктураЦена(ДанныеСтроки.Ссылка,ДокументОбъект.Автор.DigərMaxiAlış,ДокументОбъект.Дата);
    //ТипЦен=УправлениеПользователями.ЗначениеПоУмолчания("DigərMaxiAlış");
    //ОформлениеСтроки.ячейки.DigərMaxiAlış.Значение=Строка(ПолучитьЦена(ДанныеСтроки.Номенклатура,ТипЦен,ТекущаяДата())  );    
КонецПроцедуры

Все они мусор. Помоги мне. Я не знаю что делать

(57) Попробуй пройти курсы по 1С. Их сейчас уже достаточно много.

(57) вот это похоже на правду у тебя

   //ТипЦен=УправлениеПользователями.ЗначениеПоУмолчания("DigərMaxiAlış");

    //ОформлениеСтроки.ячейки.DigərMaxiAlış.Значение=Строка(ПолучитьЦена(ДанныеСтроки.Номенклатура,ТипЦен,ТекущаяДата())  );

(58) Вы преподаете урок. Я лучше понимаю так. веди меня. Или например. Также спасибо за вашу помощь.

(59) Не работает

(61) если не работает, то надо отлаживать, вы отладчиком научились пользоваться?

(60) Чем ты отличаешся от 100500 людей, проходящих курсы?

(62) Нет (

(63) Я пытаюсь. Stock Manager. У меня нет времени.

Проблемы, с которыми мне нужна ваша помощь, связаны с моей работой. В то же время писать код - это весело. Мне просто нужна помощь. Вы уже помогли. Большое вам спасибо за это.

Процедура ТоварыПриВыводеСтроки(Элемент, ОформлениеСтроки, ДанныеСтроки)
    ОформлениеСтроки.Ячейки.Штрихкод.Значение=ДанныеСтроки.единица.штрихкод;
    DigərQiymətA=УправлениеПользователями.ЗначениеПоУмолчания("DigərMaxiAlış");
    DigərQiymətS=УправлениеПользователями.ЗначениеПоУмолчания("DigərMaxiSatış");
    ОформлениеСтроки.Ячейки.DigərMaxiAlış.Значение=ПолучитьЦена(ДанныеСтроки.Товар,ДанныеСтроки.Единица,DigərQiymətA);
    ОформлениеСтроки.Ячейки.DigərMaxiSatış.Значение=ПолучитьЦена(ДанныеСтроки.Товар,ДанныеСтроки.Единица,DigərQiymətS);
        
КонецПроцедуры

Работает!!! Спасибо

(67) вот эту хрень
DigərQiymətA=УправлениеПользователями.ЗначениеПоУмолчания("DigərMaxiAlış");
    DigərQiymətS=УправлениеПользователями.ЗначениеПоУмолчания("DigərMaxiSatış");

получай снаружи, потом просто используй в ПриВыводе

Иначе, своим кодом можешь очень сильно замедлить свой список, и при листании, открытии тормоза обеспечены.
ПолучитьЦена ..тут тоже, могут быть тормоза

(70) Как вы посоветуете мне написать? Я не профессионал. я любитель

Если ЕстьРеквизитТЧ(Док,"DigərMaxiAlış")<>неопределено Тогда
        Если  значениезаполнено(Док.Автор.ПротивЗакупочныйТипЦен)  Тогда
            СтруктураЦены = УправлениеНоменклатурой.ПолучитьСтруктураЦена(стр.товар,Док.Автор.ПротивЗакупочныйТипЦен,стр.единица,док.Дата);
            Если СтруктураЦены<>неопределено Тогда
                ценацены=СтруктураЦены.цена;
                Валютацены=СтруктураЦены.Валюта;
                Единицацены=СтруктураЦены.Единица;
                Если (значениезаполнено(ценацены)и значениезаполнено(Валютацены)и значениезаполнено(Единицацены)) Тогда
                    ценацены=ценацены*стр.коэффициент/ Единицацены. коэффициент;
                    ценацены=МодульВалютногоУчета.ПересчитатьИзВалютыВВалюту(ценацены,Валютацены,док.валюта,МодульВалютногоУчета.ПолучитьКурсВалюты(Валютацены,док.дата).курс,док.курс);
                    стр.DigərMaxiAlış= ценацены;
                КонецЕсли;    
            КонецЕсли;
        КонецЕсли;                
    КонецЕсли;
    
    Если ЕстьРеквизитТЧ(Док,"DigərMaxiSatış")<>неопределено Тогда
        Если  значениезаполнено(Док.Автор.ПротивРозничныйТипЦен)  Тогда
            СтруктураЦены = УправлениеНоменклатурой.ПолучитьСтруктураЦена(стр.товар,Док.Автор.ПротивРозничныйТипЦен,стр.единица,док.Дата);
            Если СтруктураЦены<>неопределено Тогда
                ценацены=СтруктураЦены.цена;
                Валютацены=СтруктураЦены.Валюта;
                Единицацены=СтруктураЦены.Единица;
                Если (значениезаполнено(ценацены)и значениезаполнено(Валютацены)и значениезаполнено(Единицацены)) Тогда
                    ценацены=ценацены*стр.коэффициент/ Единицацены. коэффициент;
                    ценацены=МодульВалютногоУчета.ПересчитатьИзВалютыВВалюту(ценацены,Валютацены,док.валюта,МодульВалютногоУчета.ПолучитьКурсВалюты(Валютацены,док.дата).курс,док.курс);
                    стр.DigərMaxiSatış= ценацены;
                КонецЕсли;    
            КонецЕсли;
        КонецЕсли;                
    КонецЕсли;

Все готов. Проста нада когда открите бывший документ, обновит толко 2 строка (DigərMaxiSatış и DigərMaxiAlış)

Доброе утро. Помоги мне для обновит толко 2 строка