Вход | Регистрация

1С:Предприятие ::

Метки:документы

Записать значение из документа в справочник

Я
   Umka-Kate
 
09.07.04 - 08:14
В табличной части документа пересчитываются цены номенклатуры. При проведении значения должны записаться в справочник. Как ето сделать?
чайник
 
 
   SnarkHunter
 
1 - 09.07.04 - 08:20
Лень...
   Umka-Kate
 
2 - 09.07.04 - 08:21
(1)
сеньксь
   427
 
3 - 09.07.04 - 08:37
СпрЦены = CreateObject("Reference.Цены"); 
SelectLines();
while GetLine() =1 do
    СпрЦены.UseOwner(Товар);
    if СпрЦены.SelectItems()  <> 1 then
        СпрЦены.UseDate(DocDate);
        СпрЦены.UseOwner(Товар);
        СпрЦены.New();
        СпрЦены.ТипЦен = ТипЦен;
        СпрЦены.Write();

        SetRefField(СпрЦены,"Цена",НоваяЦенаБезНДС, DocDate);
        SetRefField(СпрЦены,"ПерваяСкидка",ПерваяСкидка, DocDate);
        SetRefField(СпрЦены,"ТипСкидки",ТипСкидки, DocDate);
        SetRefField(СпрЦены,"РазмерСкидки",РазмерСкидки, DocDate);
        Изменения = Изменения +1;
    else        
       // нужный элемент найден
       while СпрЦены.GetItem() =1 do
           if СпрЦены.ТипЦен = ТипЦен then
               if EmptyValue(НоваяЦенаБезНДС) <>1 then
                   // устанавливаем новую цену без НДС                    

                    if СпрЦены.Цена = НоваяЦенаБезНДС 
                    then    Message ("Товар  "+Товар+" новая цена не установлена - она не изменилась");
                    else    SetRefField(СпрЦены,"Цена",НоваяЦенаБезНДС, DocDate);
                    endIf; 
                    
                    if СпрЦены.ПерваяСкидка <> ПерваяСкидка 
                    then    SetRefField(СпрЦены,"ПерваяСкидка",ПерваяСкидка, DocDate);
                    endIf; 
                    if СпрЦены.ТипСкидки <> ТипСкидки 
                    then    SetRefField(СпрЦены,"ТипСкидки",ТипСкидки, DocDate);
                    endIf; 
                    if СпрЦены.РазмерСкидки <> РазмерСкидки 
                    then    SetRefField(СпрЦены,"РазмерСкидки",РазмерСкидки, DocDate);
                    endIf; 
                endIf; 
                Break; 
            endIf;     
        endDo;
        
       а вот здесЯ нужно посомтреть
       нашли ли тот элемент, который нужно изменить
       и ежели не нашли, то создать и записать его
   endIf;
endDo;


Список тем форума
Рекламное место пустует  
Пользователь не знает, чего он хочет, пока не увидит то, что он получил.
Э. Йодан
ВНИМАНИЕ! Если вы потеряли окно ввода сообщения, нажмите Ctrl-F5 или Ctrl-R или кнопку "Обновить" в браузере.
Ветка сдана в архив. Добавление сообщений невозможно.
Но вы можете создать новую ветку и вам обязательно ответят!
Каждый час на Волшебном форуме бывает более 2000 человек.
Рекламное место пустует