Форум программистов, компьютерный форум, киберфорум
1С
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск  
 
 
Рейтинг 4.68/25: Рейтинг темы: голосов - 25, средняя оценка - 4.68
2 / 2 / 0
Регистрация: 29.08.2013
Сообщений: 113
1C 8.x

Запрос.приход

10.10.2013, 21:35. Показов 5280. Ответов 31
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Ребят, тут такое дело, написал запрос на заполнение ТЧ из регистра, выставил условие нужно, оно проходит, все заполняет... Но есть косяк, нужно чтобы все дела выводились только со знаком (+) т.е. которые были приход...

Сейчас ситуация такая, вывожу характеристику за ноябрь, списываю, в регистр записывается, что списали, в след раз я введу опять ноябрь, и вылетит еще и номенклатура с (-) расходом, а это надо закрыть Подскажите как поставить условие на (видимо) ВидДвижения = Приход

1C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Функция Запросик()
    Запрос = Новый Запрос;
    Запрос.Текст = "ВЫБРАТЬ
                   |    итсУчетДисков.Контрагент,
                   |    итсУчетДисков.Договор,
                   |    итсУчетДисков.Номенклатура,
                   |    итсУчетДисков.Количество,
                   |    итсУчетДисков.Характеристика
                   |ИЗ
                   |    РегистрНакопления.итсУчетДисков КАК итсУчетДисков
                   |        ЛЕВОЕ СОЕДИНЕНИЕ Документ.итсОтгрузкаИТС КАК итсОтгрузкаИТС
                   |        ПО итсУчетДисков.Характеристика = итсОтгрузкаИТС.Характеристика
                   |ГДЕ
                   |    итсУчетДисков.Характеристика = итсОтгрузкаИТС.Характеристика
                   |    И итсУчетДисков.ВидДвижения = &Приход";//вот что-то такое надо прописать, но я хз :(
    
    
    Результат = Запрос.Выполнить().Выгрузить();
     Объект.Товары.Загрузить(Результат);
     
     КонецФункции
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
10.10.2013, 21:35
Ответы с готовыми решениями:

Приход/Расход
Доброго времени суток. пишу курсовую по учету товаров,подскажите,пожалуйста,как сделать так,если товаров пришло 5 штук то продать больше...

Расход\Приход 8.0
Добрый день! Начал не так давно программировать в 1С 8.0, наткнулся на такую трудность - у меня есть 2 документа (Приход Документа и Расход...

Приход - Расход
Помогите пожалуйста с отчетом. Как сделать в нем чтобы выводилась разница между ПРИХОДОМ и РАСХОДОМ ??

31
 Аватар для duk337
2956 / 1768 / 84
Регистрация: 03.11.2011
Сообщений: 8,280
12.10.2013, 00:35
Студворк — интернет-сервис помощи студентам
запрос д.был вернуть все записи движений (приход и расход детально) по организации и характеристике. Но никак не остатки.
0
2 / 2 / 0
Регистрация: 29.08.2013
Сообщений: 113
12.10.2013, 00:45  [ТС]
Я имел ввиду, что тут абсолютно неправильно выдает...
Сам запрос работает нормально, надо лишь 1цы поставить

Тот вариант, что предлагаете Вы, не срабатывает, потому что : у меня в регистре всего 10 записей например, мне заполняется откуда то 200, явно что-то не то...
0
 Аватар для duk337
2956 / 1768 / 84
Регистрация: 03.11.2011
Сообщений: 8,280
12.10.2013, 03:57
Так левое соединение ж! (не было, вроде) Сколько раз характеристика попадается в доках? А сколько раз в регистре - 10 говорите? А теперь перемножьте.

Добавлено через 4 минуты
итсУчетДисков.ВидДвижения = &Приход";//вот что-то такое надо прописать, но я хз
Ерунда. Между приходом и расходом могли быть другие расходы. Нужны остатки.

Не по теме:

Что за упрямство? В физ.таблице регистра есть поле ВидДвижения, имеющее тип ВидДвиженияНакопления или что-то вроде этого (контекстная подсказка подскажет) - НО ВАМ ЭТО ТОЛЬКО НАВРЕДИТ!

0
858 / 657 / 112
Регистрация: 01.11.2012
Сообщений: 2,411
12.10.2013, 17:34
SirClipz, может кинешь базу сюда с данными, я покопаюсь. Мне чё-та интересно стало
0
2 / 2 / 0
Регистрация: 29.08.2013
Сообщений: 113
12.10.2013, 23:27  [ТС]
Цитата Сообщение от duk337 Посмотреть сообщение
Так левое соединение ж! (не было, вроде) Сколько раз характеристика попадается в доках? А сколько раз в регистре - 10 говорите? А теперь перемножьте.
Да не левое соединение не смотрим, бог с ним как говорится... Давайте я лучше иначе вопрос поставлю, пусть там в регистре как есть так и будет
Назрела другая идея, а как на клиенте после выгрузки результата запроса, циклом эти 1цы заполнить в количество?... как говорится и волки сыты и овцы целы
Цитата Сообщение от Xomych Посмотреть сообщение
может кинешь базу сюда с данными, я покопаюсь. Мне чё-та интересно стало
Ну базу я не кину Во-первых, 200метров) Во-вторых, ну блин, там конфиденциальная информация так сказать по контрагентам и сотрудникам) мало ли что Так что, простите!

Добавлено через 6 минут
как можно реализовать такой цикл:
для Н=1 по тч.количествоСтрок...

Вообще можно ли? мол пройтись по заполненной тч, по строкам, и внести 1 в нужный столбик? просто либо я что-то не так делаю, либо бежать по, скажем так, ID строки нельзя?!
0
Модератор
Эксперт 1С
 Аватар для Dethmontt
4032 / 2977 / 594
Регистрация: 10.03.2011
Сообщений: 11,701
Записей в блоге: 1
13.10.2013, 00:46
НомерСтроки и есть ID строки в табличной части... Беги по нему
0
2 / 2 / 0
Регистрация: 29.08.2013
Сообщений: 113
13.10.2013, 01:10  [ТС]
Да да, знаю, но у меня почему-то вот после выгрузки результата, сам запрос пропускается, и только в след строку ставится 1 т.е. пропускает заполненные,а потом ставит в последнюю строку 1
0
 Аватар для duk337
2956 / 1768 / 84
Регистрация: 03.11.2011
Сообщений: 8,280
13.10.2013, 01:34

Не по теме:

Цитата Сообщение от SirClipz Посмотреть сообщение
Давайте я лучше иначе вопрос поставлю, пусть там в регистре как есть так и будет
Черномырдина напомнило



Добавлено через 3 минуты
Цитата Сообщение от SirClipz Посмотреть сообщение
Да да, знаю, но у меня почему-то вот после выгрузки результата, сам запрос пропускается, и только в след строку ставится 1 т.е. пропускает заполненные,а потом ставит в последнюю строку 1
ну и где здесь зачем? Троллинг, не иначе: попытка дословного перевода этой фразы привела к этой мысли.
0
Модератор
Эксперт 1С
 Аватар для Dethmontt
4032 / 2977 / 594
Регистрация: 10.03.2011
Сообщений: 11,701
Записей в блоге: 1
13.10.2013, 01:40
Цитата Сообщение от SirClipz Посмотреть сообщение
Да да, знаю, но у меня почему-то вот после выгрузки результата, сам запрос пропускается, и только в след строку ставится 1 т.е. пропускает заполненные,а потом ставит в последнюю строку 1
Я вобще ничего не понял из вышесказанного
1C
1
2
3
Для Н=0 По Таблица.Количество()-1 Цикл
   Таблица[Н].ИмяСтолбика = 1;
КонецЦикла;
0
 Аватар для duk337
2956 / 1768 / 84
Регистрация: 03.11.2011
Сообщений: 8,280
13.10.2013, 01:48
Цитата Сообщение от duk337 Посмотреть сообщение
использовать "1 КАК Количество "
а я так и не понял, что тут непонятного, и почему не Загрузить(запрос.выполнить().Выгрузить() );

Добавлено через 49 секунд

Не по теме:

бродим где-то в тени деревьев за сортирами

0
858 / 657 / 112
Регистрация: 01.11.2012
Сообщений: 2,411
13.10.2013, 09:09
Цитата Сообщение от SirClipz Посмотреть сообщение
По договору в руки 1 отгрузка в месяц
Другие договора меня не касаются

Добавлено через 3 минуты

Подождите, я совсем запутался с этой конструкцией.. а куда мне воткнуть эту 1 как Кол. ?
Таблица не ВТ.
Я так понял, что эту 1 можно пихнуть через конструктор в условие? Мол ГДЕ Кол. = 1?

Добавлено через 11 минут
1C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Функция Запросик()
    Запрос = Новый Запрос;
    //Запрос.Текст = "ВЫБРАТЬ * ИЗ РегистрНакопления.итсУчетДисков.Остатки(,Характеристика = &МесяцОтгрузки)";
    Запрос.Текст = "ВЫБРАТЬ
     |  итсУчетДисковОстатки.Организация,
     |  итсУчетДисковОстатки.Контрагент,
     |  итсУчетДисковОстатки.Договор,
     |  итсУчетДисковОстатки.Номенклатура,
     |  итсУчетДисковОстатки.Характеристика,
     |  итсУчетДисковОстатки.ЧислоОтгрузки,
     |  итсУчетДисковОстатки.ДатаОтгрузки,
     |  итсУчетДисковОстатки.Льготная,
     |  итсУчетДисковОстатки.КоличествоОстаток
     |ИЗ
     |  РегистрНакопления.итсУчетДисков.Остатки КАК итсУчетДисковОстатки
     |ГДЕ
     |  итсУчетДисковОстатки.Характеристика = &МесяцОтгрузки
     |  И итсУчетДисковОстатки.Организация = &Организация";
    Запрос.УстановитьПараметр("МесяцОтгрузки",Объект.МесяцОтгрузки);
    Запрос.УстановитьПараметр("Организация",Объект.Организация);
    Результат = Запрос.Выполнить().Выгрузить();
    Объект.Отгрузка.Загрузить(Результат);
КонецФункции
Построил конструктором... Не понимаю, почему когда я выбираю организацию ТЧ не заполняется?

Добавлено через 9 минут
Не, с заполнением отбой! Разобрался! С регистром косякнул

Осталось понять как 1 подставлять в количество...
итсУчетДисковОстатки.КоличествоОстаток КАК Количество , если у вас в регистре ресурс называется КоличествоОстаток конечно в чем я сомневаюсь Названия полей в результате запроса и в документе совпадать же должно
0
2 / 2 / 0
Регистрация: 29.08.2013
Сообщений: 113
14.10.2013, 00:01  [ТС]
в общем разобрался! Получилось! Вот так выходит:
1C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Запрос = Новый Запрос;
    Запрос.Текст = "ВЫБРАТЬ
                   |    итсУчетДисков.Контрагент,
                   |    итсУчетДисков.Договор,
                   |    итсУчетДисков.Номенклатура,
                   |    итсУчетДисков.Льготная,
                   |    итсУчетДисков.Количество
                   |ИЗ
                   |    РегистрНакопления.итсУчетДисков КАК итсУчетДисков
                   |ГДЕ
                   |    итсУчетДисков.Организация = &Организация
                   |    И итсУчетДисков.ВидДвижения = &ВидДвижения
                   |    И итсУчетДисков.Характеристика = &Характеристика";
    Запрос.УстановитьПараметр("Организация", Объект.Организация);
    Запрос.УстановитьПараметр("ВидДвижения",ВидДвиженияНакопления.Приход);
    Запрос.УстановитьПараметр("Характеристика",Объект.МесяцОтгрузки);
    
    Результат = Запрос.Выполнить().Выгрузить();
    Объект.Отгрузка.Загрузить(Результат);
Но есть такой момент, как и где запилить проверку, чтобы не разрешило списать тот же диск повторно?

Добавлено через 52 секунды
Я так понимаю это на клиенте надо делать, но вот как?

Добавлено через 5 часов 52 минуты
Вот что-то такое вылезло! Как Вы считаете, это нормально?
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
Процедура ОбработкаПроведения(Отказ, Режим)
 
// регистр итсУчетДисков Расход
Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ
| итсУчетДисковОстатки.Контрагент,
| итсУчетДисковОстатки.Номенклатура,
| итсУчетДисковОстатки.Характеристика,
| итсУчетДисковОстатки.КоличествоОстаток
|ИЗ
| РегистрНакопления.итсУчетДисков.Остатки КАК итсУчетДисковОстатки
|ГДЕ
| итсУчетДисковОстатки.Характеристика = &Характеристика
| И итсУчетДисковОстатки.Организация = &Организация";
Запрос.УстановитьПараметр("Характеристика", МесяцОтгрузки);
Запрос.УстановитьПараметр("Организация", Организация);
РезультатЗапроса = Запрос.Выполнить();
Если РезультатЗапроса.Пустой() 
Тогда Отказ=Истина; 
Сообщить("Расход дисков не возможен")
КонецЕсли;
 
Если Отказ Тогда
Возврат;
КонецЕсли;
 
Движения.итсУчетДисков.Записывать = Истина;
Для Каждого ТекСтрокаОтгрузка Из Отгрузка Цикл
Движение = Движения.итсУчетДисков.Добавить();
Движение.ВидДвижения = ВидДвиженияНакопления.Расход;
Движение.Период = Дата;
Движение.Организация = Организация;
Движение.Контрагент = ТекСтрокаОтгрузка.Контрагент;
Движение.Договор = ТекСтрокаОтгрузка.Договор;
Движение.Номенклатура = ТекСтрокаОтгрузка.Номенклатура;
Движение.Характеристика = МесяцОтгрузки;
Движение.ДатаОтгрузки = ДатаОтгрузки;
Движение.Льготная = ТекСтрокаОтгрузка.Льготная;
Движение.Количество = ТекСтрокаОтгрузка.Количество;
КонецЦикла;
 
КонецПроцедуры
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
14.10.2013, 00:01

Приход/Расход в 1C 7.7
Здравствуйте, помогите пожалуйста! У меня такой вопрос: Есть склад, припустим на него пришло 100 единиц товара. Это у нас приход....

Приход/Расход 1С 7.7
Здравствуйте, помогите новачку, пожалуйста! У меня такой вопрос: Есть склад, припустим на него пришло 100 единиц товара. Это у нас...

Не понимаю задание (приход-расход партий товаров)
Здравствуйте. Я делаю учебное задание и ни разу не сталкивался с некоторыми вещами, которые нужно сделать(в прошлом опыте не...

7.7 Запрос или бухгалтерский запрос?
Добрый день. Задача такова: необходимо сформировать отчет о доходах и расходах за период с промежуточными итогами по каждому месяцу,...

Приход и списание драгметаллов 7.7
Всем добрый день. Столкнулся с проблемой. Не знаю как внести приход, списание и хранение драгметаллов, на какие счета их вносить в виду...


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

Или воспользуйтесь поиском по форуму:
32
Ответ Создать тему
Новые блоги и статьи
Про "Windows must die!"
kumehtar 04.11.2026
Знаете, чет накатило. . . . Когда-то это было почти боевым кличем: мол, нормальный человек сидит на DOS, OS/ 2 или Linux, а вот это вот - Must Die. А теперь человек произносит «мастдай» с усмешкой - и. . .
Красочные поля с номером страницы svg+background-image
russiannick 04.11.2026
Красочные поля с номером страницы не менее важны чем в эпоху бумажных книг. Посему спешу представить почтеннейшей публике этот важный инструмент который эти поля и формирует. В процессе разработки. . .
Вступаем в новую фазу генерации favicons, векторную.
russiannick 02.11.2026
Теперь нет нужды скрывать что используется простой svg. Исходный код изображения помещаем в поле и жмем кнопку. Исходник преобразуется в вид корректный для помещения в favicon или в url(). Нажатие. . .
Генератор паролей (вариант №4)
Maks 01.11.2026
После публикации 3-го варианта генератора паролей, разослал его своим коллегам (с целью оценки), в итоге были получены следующие рекомендации: 1. Вернуть возможность использования знаков | 1 l I;. . .
Генератор паролей (вариант №3)
Maks 30.10.2026
Финальная версия генератора паролей 1С. Доработка решения в этот раз коснулась только визуальной части, а именно, добавлен реквизит ДопПараметры (тип Булево), который скрывает/ отображает реквизиты:. . .
Магическое мышление и магия, современная наука не отличима от магии (говорит ИИ Джемени)
zorxor 30.10.2026
Джемени, расскажи, пожалуйста, что такое магическое мышление, что такое магия, почему современная наука чем-то напоминает магию? Фраза «Любая достаточно развитая технология неотличима от магии». . .
За какое время ИИ может подобрать пароль по хешу (рассказывает Джемени ИИ)
zorxor 30.10.2026
Расскажи, Джемени, если известен хэш МД5, например, за сколько ИИ сможет подобрать соответствующий пароль? Искусственный интеллект (ИИ) может подобрать простой или средний по сложности пароль по. . .
Кто убил Suno? Почему наше солнышко погасло? (диалог с ИИ Джемени)
zorxor 30.10.2026
Как убивали Suno. Хронология. «Убийство» музыкальной нейросети Suno — это затяжной процесс, в котором технологический хайп стартапа разбился о жесткую реальность судебных исков от гигантов. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru