Имя: Пароль:
1C
1С v8
КД, произвольное ПВД. как установить параметр
0 zladenuw
 
23.09.11
15:51
Всем привет. выгружаю цены с 7.7 в 8.2, выгрузка падает. так как много позиций и куча тип цен. как можно добавить параметры, что бы они были доступны в обработке 7.7. где смотреть. спасибо
1 Рэйв
 
23.09.11
15:54
Какие параметры?
2 zladenuw
 
23.09.11
15:56
тип цены и номенклатуру
3 Рэйв
 
23.09.11
15:59
(2)что за манера буркнуть что то и ждать телепатии...

Ты имеешь в виду:
1.Параметры, которые передаются с выгрузкой?
или
2.Параметры, по которым отбирать выгружаемые объекты?
4 zladenuw
 
23.09.11
16:01
(3) честно я не подумал о 1 и 2. Мне нужно отобрать например одну номенклатуру и один тип цен, перед выгрузкой. формирую запрос. могу указать в запросе параметр явный, но хочу что было доступно в обработке 7.7.
5 zladenuw
 
23.09.11
16:01
(4) как отбор
6 Рэйв
 
23.09.11
16:17
(4)Я делал сам. Немного придется подправить стандартную выгрузку за то очень пригодоится в последствии

дарю

1.Делаешь у стандартной выгрузки из 7.7 еще одну закладку и обрабатываешь ее в коде.

2.ложишь блок отбора, один или несколько
примерно вот такой(у меня только по документам)
http://s55.radikal.ru/i150/1109/14/3db3e8344eb2.jpg

3. на кнопки пишешь процедуры и обработчики.У меня принцип такой - выбираешь вид дока и список доков, по ним только и идет выгрузка.
Процедуры:

Процедура  ДобавитьОтбор()
   Если (ИспользоватьВыбранныйВид=0)  или (Найти(ВыбВид,"Документ")=0) Тогда
       спВыбор=СоздатьОбъект("СписокЗначений");
       Для н=1 По Метаданные.Документ() Цикл
           спВыбор.ДобавитьЗначение("Документ."+Метаданные.Документ(н).Идентификатор,Метаданные.Документ(н).Представление());
       КонецЦикла;    
   КонецЕсли;
   Если (ИспользоватьВыбранныйВид=0)  или (Найти(ВыбВид,"Документ")=0) Тогда
       Если спВыбор.ВыбратьЗначение(ВыбВид)=1 Тогда
           ОткрытьПодбор(ВыбВид,,,1);
       КонецЕсли;    
   Иначе
       ОткрытьПодбор(ВыбВид,,,1);
   КонецЕсли;
КонецПроцедуры    
Процедура ОбработкаПодбора(ЗначениеПод6ора, КонтФормы)
   Если спОтбор.НайтиЗначение(ЗначениеПод6ора)=0 Тогда
       спОтбор.ДобавитьЗначение(ЗначениеПод6ора);
   Иначе
       Предупреждение("Этот объект уже выбран в список.");
   КонецЕсли;    
КонецПроцедуры    

Процедура УдалитьстрокуСпОтбор()
   Тек=спОтбор.ТекущаяСтрока();
   Если Тек<>0 Тогда
       спОтбор.УдалитьЗначение(Тек);
       спОтбор.ТекущаяСтрока(Тек);
   КонецЕсли;
КонецПроцедуры    
Процедура Открыть()
   Если спОтбор.ТекущаяСтрока()<>0 Тогда
       ОткрытьФорму(спОтбор.ПолучитьЗначение(спОтбор.ТекущаяСтрока()));
   КонецЕсли;    
КонецПроцедуры

//-------------

потом в моем варианте  я ищу процедуру
ВыгрузитьДанныеПоПравилу(ИмяПравилаВыгрузки)
я добавляю в выбор объектов свой несколько строк

Выборка = СоздатьОбъект(ОбъектВыборки);
Выборка.ВыбратьДокументы(ДатаНачала, ДатаОкончания);

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


Тебе надо для справочников, это немного выше.

Но сразу предупреждаю, что если будешь просто делать в коде = это до следующей замены модуля.Чтобы эта музыка была вечной надор этот же код вставить в КД в обработку ВыгрузкаКонвертации в макет ПроцедурыИФункцииМодуляВыгрузки

Если ничего не забыл, то джолно работать
7 zladenuw
 
23.09.11
16:20
СПАСИБО :)
Независимо от того, куда вы едете — это в гору и против ветра!