Имя: Пароль:
1C
1С v8
Смена текущей закладки
0 amadeus2010
 
25.10.12
11:58
Добрый день вопрос по Агент+. На эмуляторе тестирую работу Мобильная торговля.В документе Заказ добавил закладку3. При нажатии кнопки Подбор и выборе товаров в этой закладке они автоматически переходят в табличную часть Товары,которая расположена в закладке2.Мне надо чтобы Товары выбранные в закладке подарочные оставались в этой же закладке. привожу код при смене закладок
///////////////////////////////////////////////////////////////////
Функция Tabs_ПриСменеТекущейЗакладки(стараяЗакладка)
   
   
   ЭтаФорма.Скидка.Текст = Строка(ТекДокОбъект.Контрагент.Скидка);
   СкидкаДляПроверки      = ТекДокОбъект.Контрагент.Скидка;
   ОбновитьСкидки=ТекДокОбъект.Контрагент.Скидка;
   
   
   Если ЭтаФорма.Tabs.ТекущаяЗакладка = ЭтаФорма.Tabs.Закладка2 Тогда
        НулеваяЦена=Ложь;
   ИначеЕсли ЭтаФорма.Tabs.ТекущаяЗакладка = ЭтаФорма.Tabs.Закладка3 Тогда    
       НулеваяЦена=Истина;
   Иначе
       НулеваяЦена=Неопределено;
   КонецЕсли;

   
   Если Число(СкидкаДляПроверки) <> Число(ЭтаФорма.Скидка.Текст) Тогда
        ОбновитьСкидку = Истина;
        ОбновитьСписокТоваров(Неопределено, Ложь);
        ОбновитьДинамическиеРеквизиты();
        ОбновитьСкидку = Ложь;
   КонецЕсли;
   
   ОтладочноеСообщение(НулеваяЦена);
   
   Возврат 0;
   
КонецФункции

Вот код для подбора товаров,он одинаков для двух закладок
//////////////////////////////////////////////////////
Функция ОткрытьФормуПодбораТоваров()
   
   Если Не Глоб.ВыполнитьТипЗнч(Истина, "ТипыЦен", ТекДокОбъект.ТипЦены) Тогда
       Глоб.ВывестиВсплывающееСообщение(Слов DictCatalogsMessageBoxNoPrice);
   Иначе
       ЗаполнитьОбъектДляЗаписи();
       Если ТекДокОбъект.Мерчендайзинг = Неопределено Тогда
           СоздатьДокументМерчендайзинга();
       КонецЕсли;
       Глоб.МодульНоменклатуры.ТекДокОбъект     = ТекДокОбъект;
       Глоб.МодульНоменклатуры.ТипДокумента     = "Заказ";
       
   Если НулеваяЦена=Ложь Тогда
       Глоб.МодульНоменклатуры.ТоварыВДокументе = СписокТоваровОбновления;
   Иначе    
       Глоб.МодульНоменклатуры.ТоварыВДокументе =СписокПодарковОбновления;
   КонецЕсли;
       
       Глоб.МодульНоменклатуры.НулеваяЦена = НулеваяЦена;
       Глоб.МодульНоменклатуры.ТипЦенДокумента  = ТекДокОбъект.ТипЦены;
       Глоб.МодульНоменклатуры.СкидкаДокумента  = Число(ЭтаФорма.Скидка.Текст);
       Глоб.МодульНоменклатуры.ДляВыбора         = Истина;
       Глоб.МодульНоменклатуры.ВыводитьОстаткиНаБорту = Ложь;
       Глоб.МодульНоменклатуры.Мерчендайзинг     = ?(ТекДокОбъект.Мерчендайзинг = Неопределено, Ложь, Истина);
       Глоб.МодульНоменклатуры.СписокМерчендайзинга = СписокМерчендайзинга;
       Глоб.МодульНоменклатуры.ОсновнойОбработчикСканера = Глоб.ПолучитьФункциюМодуля(ПриПолученииШтрихКода);
       Глоб.МодульНоменклатуры.УстановитьОбработкуВыбора(ОбновитьСписокТоваровВДокументе);
       Глоб.МодульНоменклатуры.ЭтаФорма.Показать(1);
   КонецЕсли;
       
   Возврат 0;
КонецФункции
///////////////////////////////////////////////////////////////////
1 amadeus2010
 
25.10.12
14:18
есть кто-нибудь из спецов по Агент+
2 amadeus2010
 
30.10.12
17:31
Добрый вечер, вопрос остался открытым, есть какие-либо предложения. В данное время при выборе закладок, номенклатура садиться в закладку Товары, если она была выбрана в закладке Подарочные.
3 Vladal
 
30.10.12
17:43
Ну а разница только в этом? В нулевой цене?

   Если НулеваяЦена=Ложь Тогда
       Глоб.МодульНоменклатуры.ТоварыВДокументе = СписокТоваровОбновления;
   Иначе    
       Глоб.МодульНоменклатуры.ТоварыВДокументе =СписокПодарковОбновления;
   КонецЕсли;

// я бы переписал так:
   Если НулеваяЦена Тогда
       Глоб.МодульНоменклатуры.ТоварыВДокументе = СписокПодарковОбновления;
   Иначе    
       Глоб.МодульНоменклатуры.ТоварыВДокументе = СписокТоваровОбновления;
   КонецЕсли;
4 amadeus2010
 
31.10.12
09:39
спасибо за совет, попробую сделать так
5 amadeus2010
 
31.10.12
10:03
Дело не нулевой цене, а в том что если я что-то выбираю на закладке подарочные,то данные не сохраняются в этой закладке, а автоматически переносятся на закладку товары.
Я не хочу быть самым богатым человеком на кладбище. Засыпать с чувством, что за день я сделал какую-нибудь потрясающую вещь — вот что меня интересует. Стив Джобс