Имя: Пароль:
1C
1C 7.7
v7: обработка формирования итоговых накладных
0 Ardov
 
13.05.13
10:03
Всем привет Подскажите пожалуйста
Есть отчет обработка формирования итоговых накладных
надо что бы при выборе контрагента тянулась только одна продукция подскажите как это правильно прописать, я создал поле где выбирается продукция, но если её сформировать то она тянет за всю продукцию по контрагенту
http://rghost.ru/45961547
1 Godofsin
 
13.05.13
10:07
прикольно:

   //Если Клиент.Выбран() = 0 Тогда
   //    Если Лев(Строка(глПользователь), 6) = "Кубряк" Тогда
   //        Предупреждение("Аня!
   //                        |Я ж русским языком просил указывать клиента!
   //                        |Даю ещё несколько попыток. Если и дальше не будешь вводить клиента, обработка сама себя удалит и будешь потом вручную набирать!
   //                        |Если все формируется правильно, то в следующем месяце налоговые будут формироваться по всем клиентам!
   //                        |Я за тобой наблюдаю!!! о_О
   //                        |");
   //        Возврат;
   //    Иначе
   //        Предупреждение("Укажите клиента!");
   //        Возврат;
   //    КонецЕсли;
   //КонецЕсли;
2 Ardov
 
13.05.13
10:10
подскажите пожалуйста, очень надо ((
3 Ganiev
 
13.05.13
10:10
У тебя запрос а условия отбора по ВыбНоменклатуре нет!
4 mikecool
 
13.05.13
10:11
(2) условие надо добавить, сомтри как фильтруется по контрагенту и сделай аналогично
5 Ganiev
 
13.05.13
10:12
И нахера ты параметру формы постоянно в цикле присваеваешь номенклатуру?
6 Ardov
 
13.05.13
10:15
(5) это не мой отчет
я на стажировке, вот попросили доделать отчет
7 Ganiev
 
13.05.13
10:16
Что то типо такого должно быть!

Запрос=СоздатьОбъект("Запрос");
   Текст="
   |Период с Дата1 по Дата2;
   |ОбрабатыватьДокументы Проведенные;
   |Док=Документ.РасходнаяНакладная.ТекущийДокумент,Документ.РасходнаяНакладнаяК.ТекущийДокумент,Документ.РНМатериалы.ТекущийДокумент;
   |Кли=Документ.РасходнаяНакладная.Контрагент,Документ.РасходнаяНакладнаяК.Контрагент,Документ.РНМатериалы.Контрагент;      
   |Дат=Документ.РасходнаяНакладная.ДатаДок,Документ.РасходнаяНакладнаяК.ДатаДок,Документ.РНМатериалы.ДатаДок;
   |Кво=Документ.РасходнаяНакладная.Кво,Документ.РасходнаяНакладнаяК.Кво,Документ.РНМатериалы.Кво;  
   |Товар=Документ.РасходнаяНакладная.ТМЦ,Документ.РасходнаяНакладнаяК.ТМЦ,Документ.РНМатериалы.ТМЦ;
   |Ед =Документ.РасходнаяНакладная.Ед,Документ.РасходнаяНакладнаяК.Ед;    
     |Ндс  =Документ.РасходнаяНакладная.Ндс,Документ.РасходнаяНакладнаяК.Ндс,Документ.РНМатериалы.Ндс;
     |СуммаБезСкидки=Документ.РасходнаяНакладная.СуммаБезСкидки,Документ.РасходнаяНакладнаяК.СуммаБезСкидки,Документ.РНМатериалы.СуммаСНДС;
     |Скидка    =Документ.РасходнаяНакладная.Скидка,Документ.РасходнаяНакладнаяК.Скидка;
     |СуммаБезНдс=Документ.РасходнаяНакладная.СуммаБезНдс,Документ.РасходнаяНакладнаяК.СуммаБезНдс;
     |СуммаСндс  =Документ.РасходнаяНакладная.СуммаСНДС,Документ.РасходнаяНакладнаяК.СуммаСНДС,Документ.РНМатериалы.СуммаСНДС;
     |ЦенаБезНДС  =Документ.РасходнаяНакладная.ЦенаБезНДС;
     |ЦенаСНДС  =Документ.РасходнаяНакладная.ЦенаСНДС,Документ.РасходнаяНакладнаяК.ЦенаСНДС,Документ.РНМатериалы.ЦенаСНДС;
     |Группировка Кли без групп;
     |Группировка Товар без групп упорядочить по Товар.Наименование;
     |Группировка ЦенаСНДС;                        
 
     
     |Функция СумКво=Сумма(Кво);
   |Функция СумНдс=Сумма(Ндс);
   |Функция СумСуммаБезСкидки=Сумма(СуммаБезСкидки);
   |Функция СумСкидка=Сумма(Скидка);
   |Функция СумСуммаБезНдс=Сумма(СуммаБезНдс);
   |Функция СумСуммаСНДС=Сумма(СуммаСНдс);
                                                 
   |Условие (Кли В Клиент);";              
   Если ПустоеЗначение(ВыбНоменклатура) = 0 Тогда
       Текст = Текст + "
       |Условие (Товар = ВыбНоменклатура);
       |";
   КонецЕсли;
8 Ganiev
 
13.05.13
10:17
и закоментируй строку
ВыбНоменклатура = запрос;
9 Ёпрст
 
13.05.13
10:17
(0)
воткни в текст запроса
   |Условие (Товар В ВыбНоменклатура);

наслаждайся
10 Ganiev
 
13.05.13
10:18
(9) у Него ВыбНоменклатура Элемент! можно просто через равно!
11 Ёпрст
 
13.05.13
10:18
(10) зачем ?
А если выберет группу ?
12 Ёпрст
 
13.05.13
10:19
и проверок на ПустоеЗначение(ВыбНоменклатура) никаких не надо.
13 Ganiev
 
13.05.13
10:19
(12) Ну в принципе да!
14 Ardov
 
13.05.13
10:29
Всем огромное спасибо за помощь
все работает)))))
Я не хочу быть самым богатым человеком на кладбище. Засыпать с чувством, что за день я сделал какую-нибудь потрясающую вещь — вот что меня интересует. Стив Джобс