Всем привет! Имеется документ наценка\уценка товара, в данном документе нужно создать флаг. Если данный флаг = 1, тогда информация должны вноситься в справочник ПослеНаценкиУценки, если = 0 тогда в справочник ТоварНаСкладе. В модуле этого документа есть процедура записи документа в справочник:
Процедура ЗаписьДокументаВСправочник()
   Перем а[3];
   
   а[1] = 0; // общее количество по документу
   а[2] = 0; // общая сумма до наценки
   а[3] = 0; // общая сумма после наценки  
   
      Спр = СоздатьОбъект("Справочник.ТоварНаСкладе");
   СпрТовар = СоздатьОбъект("Справочник.Номенклатура");
   ТекДок = ТекущийДокумент();
   Если ВидНаценки = Перечисление.ВидНаценки.Наценка Тогда
      пНаценка = Перечисление.ВидПрихода.Наценка;
   Иначе
      пНаценка = Перечисление.ВидПрихода.Уценка;
   КонецЕсли;    
         
   ВыбратьСтроки();    
   Пока ПолучитьСтроку() > 0 Цикл
      ТекШтрих = "";    
      Если ПустоеЗначение(ИдСтроки) = 1 Тогда
           Спр.Новый();
           Спр.Продан = НЕТ;
      Иначе      
         Если Спр.НайтиЭлемент(ИдСтроки) = 1 Тогда
            ТекШтрих = СокрЛП(Спр.ШтрихКод);
         Иначе    
            Спр.Новый();
            Спр.Продан = НЕТ;
         КонецЕсли;
      КонецЕсли;    

      Если ТекШтрих = "" Тогда
         ТекШтрих = глФормироватьШтрихКод(СпрТовар,СпрПоиск);
      КонецЕсли;
         
      Спр.ДатаНакл  = ДатаДок;
      Спр.Накладная = ТекДок;
      Спр.ВидПрихода= пНаценка;
      Спр.НомерПП   = НомерСтроки;
      Спр.Товар     = Товар;  
      Спр.Количество= Количество;
      Спр.ЦенаДо    = ЦенаДоНаценки;
      Спр.Процент   = ПроцентНаценки;  
      Спр.ЦенаПосле = ЦенаСНаценкой;
      Спр.ШтрихКод  = ТекШтрих;
      Спр.ИдПрихода = ИдПрихода;
      Спр.Записать();
     
      а[1] = а[1] + Количество;
      а[2] = а[2] + СуммаДоНаценки;
      а[3] = а[3] + СуммаСНаценкой;
   КонецЦикла;

   ОбКолво = а[1];
   ОбСумДоНаценки = а[2];
   ОбСумСНаценкой = а[3];
КонецПроцедуры    
Помогите пожалуйста!! куда нужно записать цикл выбора и как его оформить?

"Цикл выбора" ? О_О

(0) Вытащи флаг на форму и анализируй его ПриЗаписи(). Не?

Жесть жестяная...

(0)Не ссы,ляпи сбоку-я так сто раз делал)

ляпал, не катит)

(5) Ляпать не надо, а то станешь героем сайта http://govnokod.ru/

Наценки уценки - это просто.
А вот Уценкой наценки будет сложнее.

(0)Сделай реквизит документа Флаг(тип число(1,0))
Добавь его на форму в виде флажка.

потом как то так:
Если Флаг=1 Тогда
     Спр = СоздатьОбъект("Справочник.ПослеНаценкиУценки");
Иначе
  Спр = СоздатьОбъект("Справочник.ТоварНаСкладе");
КонецЕсли;

Кстати - что происходит с массивом при таком его изнасиловании?

(0) стесняюсь спросить, это все для работы или так - потренироваться?
...если не создать очередную "нетленку" не самоцель, посмотри как сделано в типовых. Реквизиты в табличной части: Количество,СуммаБезСкидки,Скидка(с минусом - наценка),Сумма тебе помогут. И счиать ничего не нужно, пользуйся встроенными возможностями типа: ОбщееКоличествоПоДокументу = ИТОГ("Количество")

это меня загрузили на практике))