BlackSmith2021

Untitled

Nov 30th, 2024
25
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 3.27 KB | None | 0 0
  1. &НаСервере
  2. Процедура ЧерезЗапросНаСервере()
  3.     Если ВыборДокумента.Метаданные().Имя = "ПриходнаяНакладная" Тогда
  4.         НомерЗапроса = 0;
  5.     ИначеЕсли ВыборДокумента.Метаданные().Имя = "РасходнаяНакладная" Тогда
  6.         НомерЗапроса = 1;
  7.     КонецЕсли;
  8.    
  9.     Запрос = Новый Запрос();
  10.        
  11.     Запрос.Текст =
  12.     "ВЫБРАТЬ
  13.     |   ПриходнаяНакладная.Ссылка КАК Ссылка,
  14.     |   ПриходнаяНакладная.Номер КАК Номер,
  15.     |   ПриходнаяНакладная.Дата КАК Дата,
  16.     |   ПриходнаяНакладная.Склад КАК Склад,
  17.     |   ПриходнаяНакладная.Менеджер КАК Менеджер,
  18.     |   ПриходнаяНакладная.Номенклатура.(
  19.     |       Ссылка,
  20.     |       НомерСтроки,
  21.     |       Номенклатура,
  22.     |       Количество,
  23.     |       ЕдиницаИзмерения,
  24.     |       Цена,
  25.     |       Сумма
  26.     |   ) КАК Номенклатура
  27.     |ИЗ
  28.     |   Документ.ПриходнаяНакладная КАК ПриходнаяНакладная
  29.     |ГДЕ
  30.     |   ПриходнаяНакладная.Ссылка = &Ссылка
  31.     |;
  32.     |
  33.     |////////////////////////////////////////////////////////////////////////////////
  34.     |ВЫБРАТЬ
  35.     |   РасходнаяНакладная.Ссылка КАК Ссылка,
  36.     |   РасходнаяНакладная.Номер КАК Номер,
  37.     |   РасходнаяНакладная.Дата КАК Дата,
  38.     |   РасходнаяНакладная.Склад КАК Склад,
  39.     |   РасходнаяНакладная.Менеджер КАК Менеджер,
  40.     |   РасходнаяНакладная.Номенклатура.(
  41.     |       Ссылка,
  42.     |       НомерСтроки,
  43.     |       Номенклатура,
  44.     |       Количество,
  45.     |       ЕдИзм,
  46.     |       Цена,
  47.     |       Сумма
  48.     |   ) КАК Номенклатура
  49.     |ИЗ
  50.     |   Документ.РасходнаяНакладная КАК РасходнаяНакладная
  51.     |ГДЕ
  52.     |   РасходнаяНакладная.Ссылка = &Ссылка";
  53.    
  54.     Запрос.УстановитьПараметр("Ссылка", ВыборДокумента.Ссылка);
  55.    
  56.     МассивЗапросов = Запрос.ВыполнитьПакет();
  57.     Результат = МассивЗапросов[НомерЗапроса].Выбрать();
  58.     //ВыборкаНоменклатура = Результат.Номенклатура.Выбрать();
  59.     Сообщить("" + Результат.Ссылка + "; Склад:" + Результат.Склад + "; Менеджер:" + Результат.Менеджер);
  60.     //Пока ВыборкаНоменклатура.следующий() Цикл
  61.     //  Сообщить("" + ВыборкаНоменклатура.Номенклатура + "; Кол-во:" + ВыборкаНоменклатура.Количество + "; Цена:" + ВыборкаНоменклатура.Цена);
  62.     //КонецЦикла;
  63.     //Сообщить("Сумма:" + ВыборкаНоменклатура.Сумма);
  64.     Сообщить("");
  65. КонецПроцедуры
  66.  
Advertisement
Add Comment
Please, Sign In to add comment