С Новым годом! Форум программистов, компьютерный форум, киберфорум
1С: Собственные программы
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
 
Рейтинг 4.87/15: Рейтинг темы: голосов - 15, средняя оценка - 4.87
0 / 0 / 0
Регистрация: 30.09.2013
Сообщений: 112
1

Остаток -> Резерв. Проверка остатков в регистре накоплений

24.11.2017, 18:34. Показов 2822. Ответов 25
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Доброго времени суток!

Есть форма документа и два поля ввода прикрепленных к реквизитам Бумага, МассаБлок и КолвоПечатныхЛистов, их поля заполняются данными из справочника. Допустим при нажатии кнопки система должна проверить количество товара (<Бумага> и <МассаБлокиз> - параметр Измерения) и (<КолвоПечатныхЛистов> - параметр Ресурсы) из регистра накопления БумагаЦифра.

Я создал код запроса с обработкой результата, получился вот такой код:
1C
1
2
3
4
5
6
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
&НаСервереБезКонтекста
Процедура ОстаткиПроверкаНаСервере()
    // Вставить содержимое обработчика.
    
    //{{КОНСТРУКТОР_ЗАПРОСА_С_ОБРАБОТКОЙ_РЕЗУЛЬТАТА
    // Данный фрагмент построен конструктором.
    // При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!
 
    Запрос = Новый Запрос;
    Запрос.Текст = 
        "ВЫБРАТЬ
        |   БумагаЦифраОстатки.МатериалЦифра,
        |   БумагаЦифраОстатки.Масса,
        |   БумагаЦифраОстатки.ОстатокОстаток,
        |   БумагаЦифраОстатки.РезервОстаток,
        |   БумагаЦифраОстатки.ОстатокРезервОстаток
        |ИЗ
        |   РегистрНакопления.БумагаЦифра.Остатки(
        |           ,
        |           Масса = &Масса
        |               И МатериалЦифра.Наименование = &Бумага) КАК БумагаЦифраОстатки
        |ГДЕ
        |   БумагаЦифраОстатки.ОстатокРезервОстаток = 0";
 
    Запрос.УстановитьПараметр("Бумага", Документы.ТЗ_ЦифраОфсет.Бумага);
    Запрос.УстановитьПараметр("Масса", Документы.ТЗ_ЦифраОфсет.Масса);
 
    РезультатЗапроса = Запрос.Выполнить();
 
    ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
 
    Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
        // Вставить обработку выборки ВыборкаДетальныеЗаписи
    КонецЦикла;
 
    //}}КОНСТРУКТОР_ЗАПРОСА_С_ОБРАБОТКОЙ_РЕЗУЛЬТАТА
    
    Сообщить("Проверка остатков материала");
    
КонецПроцедуры
Синтаксических ошибок не обнаружено, но при нажатии на кнопку выдается ошибка
"Поле объекта не обнаружено (Бумага)"

1. Подскажите пожалуйста в чем ошибка и как реализовать данную задумку?
2. Как можно реализовать в Регистре накопления вариант резерва товара?
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
24.11.2017, 18:34
Ответы с готовыми решениями:

8.2 регистр накоплений. получить остаток
здравствуйте. изучаю 1с предприятие 8.2 есть у меня регистр накоплений. накапливаю количество...

Перемещение остатков в Регистре накопления
Всем привет! Не знаю как правильно назвать тему )) Есть регистр накопления остатки с реквизитами:...

Контроль остатков в регистре бухгалтерии
Привет всем, у меня есть процедура которая осуществляет котроль остатков при проведения документа...

7.7 Порядок Измерений В Регистре Остатков
Добрый день. Хотелось бы узнать, имеет ли значение порядок измерений в регистре остатков? Какой...

25
3031 / 1584 / 576
Регистрация: 16.01.2015
Сообщений: 6,739
24.11.2017, 19:31 2
432286, Ошибка в определении параметров
1C
1
2
Запрос.УстановитьПараметр("Бумага", Документы.ТЗ_ЦифраОфсет.Бумага);
    Запрос.УстановитьПараметр("Масса", Документы.ТЗ_ЦифраОфсет.Масса);
Документы.ТЗ_ЦифраОфсет.Бумага - это набор ошибок (с массой то же самое)
Вы должны установить конкретную Бумагу. Где хранятся данные по бумаге? В справочнике Бумага? Тогда что-то типа:
1C
1
Запрос.УстановитьПараметр("Бумага", Справочники.Бумага.НайтиПоНаименованию("Светокопия")
подобно и для массы
0
0 / 0 / 0
Регистрация: 30.09.2013
Сообщений: 112
25.11.2017, 15:18  [ТС] 3
Подскажите пожалуйста, а как в
1C
1
Справочники.Бумага.НайтиПоНаименованию("Светокопия")
"Светокопия" подставить данные из заполненного поля на форме документа?

1C
1
Запрос.УстановитьПараметр("Бумага", Справочники.ЦифраМатериал.НайтиПоНаименованию(Документы.ТЗ_ЦифраОфсет.Объект.Бумага));
Подскажите пожалуйста!!!
0
3031 / 1584 / 576
Регистрация: 16.01.2015
Сообщений: 6,739
25.11.2017, 15:25 4
432286, Нет. "Светокопия" в примере - это имя бумаги в справочнике. Т.е. (см скрин как пример) Чтобы найти в справочнике номенклатура, товар Брус 40 х 30 должно было бы быть так:
1C
1
Запрос.УстановитьПараметр("Номенклатура", Справочники.Номенклатура.НайтиПоНаименованию("Брус 40 х 30"));
Миниатюры
Остаток -> Резерв. Проверка остатков в регистре накоплений  
0
0 / 0 / 0
Регистрация: 30.09.2013
Сообщений: 112
25.11.2017, 15:41  [ТС] 5
у меня наименование номенклатуры выводится в поле формы документа,
должно поиск должен проводится по данным бумаги и массы с последующей проверкой остатков
Миниатюры
Остаток -> Резерв. Проверка остатков в регистре накоплений  
0
3031 / 1584 / 576
Регистрация: 16.01.2015
Сообщений: 6,739
25.11.2017, 16:00 6
Кажется понял, что вам надо. Запрос в модуле формы какого-то документа? И надо узнать остатки Бумаги указанной в этом документе? Если так, то
1. Процедура должна быть НаСервере а не НаСервереБезКонтекста (вам нужен будет контекст)
2. Установка параметров тогда
1C
1
Запрос.УстановитьПараметр("Бумага", Объект.Бумага);
Объект.Бумага - это контекст, значение поля Бумага на форме


и в параметрах виртуальной таблицы исправьте
1C
1
2
И МатериалЦифра.Наименование = &Бумага // то же верно, но нужно лишнее действие, определения наименования, а достаточно ссылки
И МатериалЦифра = &Бумага
0
0 / 0 / 0
Регистрация: 30.09.2013
Сообщений: 112
25.11.2017, 16:46  [ТС] 7
Подскажите пожалуйста, а что означает код

span class="kw1"> далее вроде бы понятно, а вот что это за код.

И я так понимаю, такой же параметр надо будет по массе прописать? Ведь запрос в регистр делается по двум параметрам - Бумага и Масса, т.к. наименование бумаги одинаковое, например, а масса ее разная?
0
3031 / 1584 / 576
Регистрация: 16.01.2015
Сообщений: 6,739
25.11.2017, 16:49 8
432286, Да это какой-то глюк форума. Вместо "Добавлено" вставил этот код )))
1C
1
2
Запрос.УстановитьПараметр("Бумага", Объект.Бумага);
      Запрос.УстановитьПараметр("Масса", Объект.Масса);
В Запросе:
Заменить
И МатериалЦифра.Наименование = &Бумага
На
И МатериалЦифра.Ссылка = &Бумага
0
0 / 0 / 0
Регистрация: 30.09.2013
Сообщений: 112
27.11.2017, 14:53  [ТС] 9
В результате получился вот такой код
1C
1
2
3
4
5
6
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
&НаКлиенте
Процедура ОстаткиПроверка(Команда)
    ОстаткиПроверкаНаСервере();
КонецПроцедуры
 
&НаСервере
Процедура ОстаткиПроверкаНаСервере()
    // Вставить содержимое обработчика.
    
    //{{КОНСТРУКТОР_ЗАПРОСА_С_ОБРАБОТКОЙ_РЕЗУЛЬТАТА
    // Данный фрагмент построен конструктором.
    // При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!
 
    Запрос = Новый Запрос;
    Запрос.Текст = 
        "ВЫБРАТЬ
        |   БумагаЦифраОстатки.МатериалЦифра,
        |   БумагаЦифраОстатки.Масса,
        |   БумагаЦифраОстатки.ОстатокОстаток,
        |   БумагаЦифраОстатки.РезервОстаток,
        |   БумагаЦифраОстатки.ОстатокРезервОстаток
        |ИЗ
        |   РегистрНакопления.БумагаЦифра.Остатки(
        |           ,
        |           Масса = &Масса
        |               И МатериалЦифра.Ссылка = &Бумага) КАК БумагаЦифраОстатки
        |ГДЕ
        |   БумагаЦифраОстатки.ОстатокРезервОстаток = 0";
 
    Запрос.УстановитьПараметр("Бумага", Объект.Бумага);
    Запрос.УстановитьПараметр("Масса", Объект.Масса);
 
    РезультатЗапроса = Запрос.Выполнить();
 
    ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
    
    Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
        // Вставить обработку выборки ВыборкаДетальныеЗаписи
        Сообщить("Данного материала НЕТ!");
 
    КонецЦикла;
        Сообщить(Объект.Бумага);
    //}}КОНСТРУКТОР_ЗАПРОСА_С_ОБРАБОТКОЙ_РЕЗУЛЬТАТА
    
    Сообщить("Проверка остатков материала");
    
КонецПроцедуры
При нажатии на кнопку ошибок не выдает, не ругается. Выдает сообщение "Проверка остатков материала", но результат запроса не показывает и соответственно ошибки об остатках бумаги при 0 тоже не говорит!
0
Модератор
2296 / 839 / 244
Регистрация: 22.04.2013
Сообщений: 6,165
Записей в блоге: 1
27.11.2017, 15:03 10
оно сообщает. на сервере. только там нет никого. серо и скучно. и никто не видит.
надо переделать.
0
0 / 0 / 0
Регистрация: 30.09.2013
Сообщений: 112
27.11.2017, 19:22  [ТС] 11
Каким образом? Подскажите пожалуйста, чтобы было красочно и весело!
Буду Вам очень признателен за помощь,
0
3031 / 1584 / 576
Регистрация: 16.01.2015
Сообщений: 6,739
27.11.2017, 20:21 12
Цитата Сообщение от 432286 Посмотреть сообщение
Запрос.УстановитьПараметр("Бумага", Объект.Бумага);
* * Запрос.УстановитьПараметр("Масса", Объект.Масса);
Проверьте в форме документа какой тип значения у полей ввода Маса и Бумага (ваш Объект.Масса и Объект.Бумага) Должно быть СправочникСсылка.ИмяСправочника
0
0 / 0 / 0
Регистрация: 30.09.2013
Сообщений: 112
28.11.2017, 20:31  [ТС] 13
Тип данных у Бумаги = СправочникСсылка.ЦифраМатериал, а у Массы = Число. Данные в поле Масса заполняются вместе с данными при выборе Бумаги из справочника.

Я понял что данные сообщаются на сервер, а как их вернуть на Клиента? Подскажите пожалуйста!
0
3031 / 1584 / 576
Регистрация: 16.01.2015
Сообщений: 6,739
28.11.2017, 21:23 14
432286, Сообщить() работает как на клиенте таки на сервере. так что здесь у вас все в порядке. У вас где-то ошибка в запросе. Запрос возвращается пустой, поэтому и не пишет ничего. Отбор ГДЕ идет непоняно по какому полю ОстатокРезервОстаток ? попробуйте так:

1C
1
2
3
4
5
6
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
&НаКлиенте
Процедура ОстаткиПроверка(Команда)
    ОстаткиПроверкаНаСервере();
КонецПроцедуры
 
&НаСервере
Процедура ОстаткиПроверкаНаСервере()
 
    Запрос = Новый Запрос;
    Запрос.Текст = 
        "ВЫБРАТЬ
        |   БумагаЦифраОстатки.МатериалЦифра,
        |   БумагаЦифраОстатки.Масса,
        |   БумагаЦифраОстатки.ОстатокОстаток,
        |   БумагаЦифраОстатки.РезервОстаток,
        |   БумагаЦифраОстатки.ОстатокРезервОстаток
        |ИЗ
        |   РегистрНакопления.БумагаЦифра.Остатки(
        |           ,
        |           Масса = &Масса
        |               И МатериалЦифра = &Бумага) КАК БумагаЦифраОстатки
        |ГДЕ
        |   БумагаЦифраОстатки.Остаток = 0";
 
    Запрос.УстановитьПараметр("Бумага", Объект.Бумага);
    Запрос.УстановитьПараметр("Масса", Объект.Масса);
 
    РезультатЗапроса = Запрос.Выполнить();
 
 Если НЕ РезультатЗапроса.Пустой() Тогда
    ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
    
    Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
        
        Сообщить("" +Выборка.МатериалЦифра+"" + " нет в наличии!");
 
    КонецЦикла;
Иначе Сообщить ("Все ОК"); // это строка, чтобы проконтролировать рабоиу запроса, потом уберете
       
  КонецЕсли;
    
    Сообщить("Проверка остатков материала");
    
КонецПроцедуры
0
Модератор
2296 / 839 / 244
Регистрация: 22.04.2013
Сообщений: 6,165
Записей в блоге: 1
28.11.2017, 21:31 15
Цитата Сообщение от polax Посмотреть сообщение
Сообщить() работает как на клиенте таки на сервере
точно
всё. больше не буду писать ничего. сорри.
0
3031 / 1584 / 576
Регистрация: 16.01.2015
Сообщений: 6,739
28.11.2017, 21:35 16
Цитата Сообщение от Yulunga Посмотреть сообщение
всё. больше не буду писать ничего. сорри.

Не по теме:

А вот это жесть. Надеюсь несерьезно.

0
0 / 0 / 0
Регистрация: 30.09.2013
Сообщений: 112
30.11.2017, 10:37  [ТС] 17
Спасибо, попробую!
А можете ещё подсказать, как посмотреть пошагово выполнение работы запроса, если кнопка Shift-F9 не работает и его нигде нет в списке меню программы.

Добавлено через 19 часов 8 минут
Запрос возвращается видимо пустой, так как все время при любом виде бумаги сообщается "Все ОК", а в цикле выдает ошибку на
1C
1
2
{Документ.ТЗ_Визитки.Форма.ФормаДокумента.Форма(116,18)}: Переменная не определена (Выборка)
             Сообщить("" +<<?>>Выборка.МатериалЦифра+"" + " нет в наличии!"); (Проверка: Сервер)
0
0 / 0 / 0
Регистрация: 30.09.2013
Сообщений: 112
30.11.2017, 14:42  [ТС] 18
Но самая "прелесть" в том, что количество материала должно сравниваться не с 0, а с данными в поле Объект.КолвоПечатныхЛистов (тип данных Число)

1C
1
2
3
4
5
6
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
    Запрос = Новый Запрос;
    Запрос.Текст = 
        "ВЫБРАТЬ
        |   БумагаЦифраОстатки.МатериалЦифра,
        |   БумагаЦифраОстатки.Масса,
        |   БумагаЦифраОстатки.ОстатокОстаток,
        |   БумагаЦифраОстатки.РезервОстаток,
        |   БумагаЦифраОстатки.ОстатокРезервОстаток
        |ИЗ
        |   РегистрНакопления.БумагаЦифра.Остатки(
        |           ,
        |           Масса = &Масса
        |               И МатериалЦифра.Ссылка = &Бумага) КАК БумагаЦифраОстатки
        |ГДЕ
        |   БумагаЦифраОстатки.ОстатокРезервОстаток <= &КолвоПечатныхЛистов";
        
    Запрос.УстановитьПараметр("Бумага", Объект.Бумага);
    Запрос.УстановитьПараметр("Масса", Объект.Масса);
    
    РезультатЗапроса = Запрос.Выполнить();
    
    Если НЕ РезультатЗапроса.Пустой() Тогда
        ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
        Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
             Сообщить("нет в наличии!");
        КонецЦикла;
    Иначе Сообщить("Все хорошо!");
        
    //}}КОНСТРУКТОР_ЗАПРОСА_С_ОБРАБОТКОЙ_РЕЗУЛЬТАТА
    КонецЕсли;
 
    Сообщить("Проверка остатков материала");
При отладке ошибок нет, а при выполнении запроса выдает ошибку. Я так понимаю, что мне надо передать данные Объект в запрос?!
Миниатюры
Остаток -> Резерв. Проверка остатков в регистре накоплений  
0
Модератор
2296 / 839 / 244
Регистрация: 22.04.2013
Сообщений: 6,165
Записей в блоге: 1
30.11.2017, 14:47 19
у вас должен быть реквизит примерно называющийся КолвоПечатныхЛистов
вот его надо поставить в параметр способом, аналогичным тому, которым поставлены в параметр другие значения.
0
0 / 0 / 0
Регистрация: 30.09.2013
Сообщений: 112
01.12.2017, 01:29  [ТС] 20
Реквизит в документе есть, называется точно так же. Может проще вернуть количества материала в процедуру и там уже с ней манипулировать.
Если бумага в регистре есть, то запрос возвращает ее количество в процедуру, там я уже сравниваю и высчитываю. А если такой бумаги нет, то выдается сообщение "Данного материала на складе НЕТ! Оформить заказ на доставку? ДА / НЕТ"

Я думаю это проще будет, критерии запроса Бумага и Масса.

Добавлено через 10 часов 23 минуты
При любых раскладах, запрос возвращается пустой! Пишет, что все ОК!
0
01.12.2017, 01:29
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
01.12.2017, 01:29
Помогаю со студенческими работами здесь

Что сделать чтобы в заказе покупателя отображалось "резерв" и "остаток"?
Добрый день. Подскажите что и где нужно заполнить для того чтобы подтянулись данные в эти колонки....

Проверка значения в регистре
.model tiny .data Gstr DB 'GOOD$' Bstr DB 'BAD$' .code .186 org 100h start: mov al,0Bh ...

Проверка файлов в разном регистре
Здравствуйте форумчани :3 У меня проблемка, конкретно кубической игры minecraft Я думаю, такое...

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


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
20
Ответ Создать тему
Новые блоги и статьи
Книги и учебные ресурсы по C#
InfoMaster 08.01.2025
Базовые учебники и руководства Одной из лучших книг для начинающих является "C# 10 и . NET 6 для начинающих" Эндрю Троелсена и Филиппа Джепикса . Книга последовательно раскрывает основные концепции. . .
Что такое NullReferenceEx­­­ception и как исправить?
InfoMaster 08.01.2025
NullReferenceException - одно из самых распространенных исключений, с которым сталкиваются разработчики на C#. Это исключение возникает при попытке обратиться к членам объекта (методам, свойствам или. . .
Что такое Null Pointer Exception (NPE) и как это исправить?
InfoMaster 08.01.2025
Null Pointer Exception (NPE) - это одно из самых распространенных исключений в Java, которое возникает при попытке использовать ссылку на объект, значение которой равно null. Это исключение относится. . .
Русский язык в консоли C++
InfoMaster 08.01.2025
При разработке программ на C++ одной из частых проблем, с которой сталкиваются русскоязычные программисты, является корректное отображение кириллицы в консольных приложениях. Эта проблема особенно. . .
Telegram бот на C#
InfoMaster 08.01.2025
Разработка ботов для Telegram стала неотъемлемой частью современной экосистемы мессенджеров. C# предоставляет мощный и удобный инструментарий для создания разнообразных ботов, от простых. . .
Использование GraphQL в Go (Golang)
InfoMaster 08.01.2025
Go (Golang) является одним из наиболее популярных языков программирования, используемых для создания высокопроизводительных серверных приложений. Его архитектурные особенности и встроенные. . .
Что лучше использовать при создании класса в Java: сеттеры или конструктор?
Alexander-7 08.01.2025
Вопрос подробнее: На вопрос: «Когда одновременно создаются конструктор и сеттеры в классе – это нормально?» куратор уточнил: «Ваш класс может вообще не иметь сеттеров, а только конструктор и геттеры. . .
Как работать с GraphQL на TypeScript
InfoMaster 08.01.2025
Введение в GraphQL и TypeScript В современной разработке веб-приложений GraphQL стал мощным инструментом для создания гибких и эффективных API. В сочетании с TypeScript, эта технология. . .
Счётчик на базе сумматоров + регистров и генератора сигналов согласования.
Hrethgir 07.01.2025
Создан с целью проверки скорости асинхронной логики: ранее описанного сумматора и предополагаемых fast регистров. Регистры созданы на базе ранее описанного, предполагаемого fast триггера. То-есть. . .
Как перейти с Options API на Composition API в Vue.js
BasicMan 06.01.2025
Почему переход на Composition API актуален В мире современной веб-разработки фреймворк Vue. js продолжает эволюционировать, предлагая разработчикам все более совершенные инструменты для создания. . .
Архитектура современных процессоров
inter-admin 06.01.2025
Процессор (центральный процессор, ЦП) является основным вычислительным устройством компьютера, которое выполняет обработку данных и управляет работой всех остальных компонентов системы. Архитектура. . .
История создания реляционной модели баз данных, правила Кодда
Programming 06.01.2025
Предпосылки создания реляционной модели В конце 1960-х годов компьютерная индустрия столкнулась с серьезными проблемами в области управления данными. Существовавшие на тот момент модели данных -. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru