Модераторы: stron
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Цена из справочника на конкретную дату, Цена из справочника на конкретную дату 
:(
    Опции темы
NSCO
Дата 28.11.2007, 22:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 5
Регистрация: 28.11.2007

Репутация: нет
Всего: нет



Приветствую.

Ни как не получается в 1С77 из документа записать и прочитать цены номенклатуры на конкретную дату.
Одно значене для заданного типа цен - получается.
Много записей с одним типом цен, что по моему - бред, то же получается.
А с историей цен ни как не получается.

Кто сможет подсказать?



Это сообщение отредактировал(а) NSCO - 28.11.2007, 22:44
PM MAIL   Вверх
tosyan
Дата 29.11.2007, 02:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 9
Регистрация: 17.8.2007

Репутация: нет
Всего: нет



Получить(<Дата>)

PM MAIL   Вверх
SaschaL
Дата 29.11.2007, 06:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 880
Регистрация: 13.12.2006
Где: Челябинская обл г .Нязепетровcк

Репутация: 8
Всего: 9



Используй:
Товар.Цена.Получить(ДатаДок);

предлагаю это использовать для выбора значения "цена", причем согласно приведенного примера значение цены будеи получено на дату документа в который вы вносите данный товар.
PM MAIL ICQ   Вверх
NSCO
Дата 29.11.2007, 13:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 5
Регистрация: 28.11.2007

Репутация: нет
Всего: нет



В модуле

спЦены.ИспользоватьВладельца(Номенклатура);
спЦены.ИспользоватьДату(ДатаДок, 1); 
спЦены.ОбратныйПорядок(1);    

спЦены.ВыбратьЭлементыПоРеквизиту("ТипЦен", ТипЦены);    
    
add = 0;
if спЦены.ПолучитьЭлемент() = 1 then
   старЦена = спЦены.ТекущийЭлемент().Цена.Получить(ДатаДок);
       
   if ПустоеЗначение(старЦена) = 1 then
     add = 1;
   else    
     if новЦена <> старЦена Тогда
        спЦены.Цена.Установить(НачМесяца(ДатаДок), новЦена);

        ОбъектЗаписать(спЦены, );
     endif;  
   endif;
else
   add = 1;
endif;  

при замене цены ошибка

{Документ.Реализация.Форма.Модуль(865)}: Значение не представляет агрегатный объект (Установить)


PM MAIL   Вверх
SaschaL
Дата 29.11.2007, 14:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 880
Регистрация: 13.12.2006
Где: Челябинская обл г .Нязепетровcк

Репутация: 8
Всего: 9



А значение цена имеет Признак "Периодический". А то складывается впечатление по виду ошибки что не имеет.
PM MAIL ICQ   Вверх
tosyan
Дата 30.11.2007, 02:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 9
Регистрация: 17.8.2007

Репутация: нет
Всего: нет



Одновременно ИспользоватьДату(ДатаДок, 1);  и Установить(НачМесяца(ДатаДок), новЦена); НЕЛЬЗЯ использовать как собственно и Получить(<Дата>)!!!

Это сообщение отредактировал(а) tosyan - 30.11.2007, 07:38
PM MAIL   Вверх
Dr.Drunk
Дата 30.11.2007, 10:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 179
Регистрация: 12.1.2004
Где: Волжский

Репутация: нет
Всего: нет



попробуй вот так:

Код

перЦена = СоздатьОбъект("Периодический");


спЦены.ИспользоватьВладельца(Номенклатура);
спЦены.ИспользоватьДату(ДатаДок, 1); 
спЦены.ОбратныйПорядок(1);    

спЦены.ВыбратьЭлементыПоРеквизиту("ТипЦен", ТипЦены);    
    
add = 0;
if спЦены.ПолучитьЭлемент() = 1 then
   перЦена.ИспользоватьОбъект("Цена",спЦены)
   старЦена = перЦена.Получить(ДатаДок);
       
   if ПустоеЗначение(старЦена) = 1 then
     add = 1;
   else    
     if новЦена <> старЦена Тогда
        перЦена.Установить(НачМесяца(ДатаДок), новЦена);

        ОбъектЗаписать(спЦены, );
     endif;  
   endif;
else
   add = 1;
endif;  



все-таки реквизит периодический  smile 
--------------------
_Theory_ is when you know everything but nothning works._Practice_ is when everything works but no one knows why._IN THIS PLACE_ we're combining theory and practice -nothing works and no one knows why!
PM MAIL WWW ICQ   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "1C: Предприятие, SAP, ERP и учётные системы"
stron

Запрещается!

1. Обсуждение крэков, кейгенов и других подобных программ

Пробуйте искать сами или обращайтесь в приват к участникам форума.

Темы с подобными вещами будут немедленно удаляться, а нарушители - получать предупреждения.

Также запрещается обсуждение проблем работы этих программ (что куда вписать, куда что скопировать и т.п...)

2. Давать ссылки на взломанные продукты

  • Пожалуйста, пользуйтесь поиском перед тем, как задать вопрос - возможно ответ уже есть на форуме.
  • Название темы должно отражать её суть
  • Действия модераторов можно обсудить здесь

С уважением, stron, Pegas.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | 1C: Предприятие, SAP, ERP и учётные системы | Следующая тема »


 




[ Время генерации скрипта: 0.0658 ]   [ Использовано запросов: 20 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.