Старый 08.08.2013, 23:44   #1
infocentr_neruhomist
Новичок
 
Регистрация: 23.11.2012
Сообщений: 9
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
infocentr_neruhomist пока не определено
По умолчанию Помогите пожалуйста

Здравствуйте. Помогите мне идиоту кто чем может. Написал пару запросов,
а последний не могу. Он вообще то первый. Управление Торговым Предприятием.
Документ - "Реализация товаров и услуг".Суть что нужно: нужно узнать сколько
у контрагента обратной тары находится на данный момент (общая сумма), которую
затем можно будет использовать для блокировки выписки ему документа. Документ
ниже. Если отсортировать Тару от другой продукции по ВидомНоменклатуры это
вообще идеально.








Процедура ПередЗаписью(Отказ, РежимЗаписи, РежимПроведения)

......

ПРОЦЕДУРА(ЗАПИТ) который я не могу сделать;

ЗаполнитьТару();
ПроверитьЛимитТары();


КонецПроцедуры // ПередЗаписью

Процедура ПроверитьЛимитТары()

Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ
| ЗначенияСвойствОбъектов.Объект,
| ЗначенияСвойствОбъектов.Свойство,
| ЗначенияСвойствОбъектов.Значение
|ИЗ
| РегистрСведений.ЗначенияСвойствОбъектов КАК ЗначенияСвойствОбъектов
|ГДЕ
| ЗначенияСвойствОбъектов.Объект = &Объект
| И ЗначенияСвойствОбъектов.Свойство = &Свойство";

Запрос.УстановитьПараметр("Объект", Контрагент);
Запрос.УстановитьПараметр("Свойство",ПланыВидовХар актеристик.СвойстваОбъектов.НайтиПоКоду("000000003 "));
Выборка = Запрос.Выполнить().Выбрать();

ОчиститьСообщения();

ЛимитТары = 0;
Пока Выборка.Следующий() Цикл
ЛимитТары = Выборка.Значение;
Прервать;
КонецЦикла;

КолЗменш = (ВозвратнаяТара.Итог("Количество") - (ЛимитТары));

Если (ЛимитТары > 0) И (ВозвратнаяТара.Итог("Количество") > ЛимитТары) Тогда
Сообщить("Ліміт тари по даному клієнту є перевищеним, потрібно зменшити кількість продукції, що відпускається");
Сообщить("Ліміт тари по даному клієнту=" + СокрЛП(ЛимитТары));
Сообщить("Кількість тари, що вибивається=" + СокрЛП(ВозвратнаяТара.Итог("Количество")));
Сообщить("Кількість на яку потрібно зменшити=" + СокрЛП(КолЗменш));
КонецЕсли;

КонецПроцедуры //ПроверитьЛимитТары

Процедура ЗаполнитьТару()
ВозвратнаяТара.Очистить();
Для каждого строка из Товары цикл
Запрос = Новый Запрос("
|Выбрать * Из РегистрСведений.ЗначенияСвойствОбъектов
|ГДЕ Объект = &ВыбОбъект И Свойство = &ВыбСвойство");
Запрос.УстановитьПараметр("ВыбОбъект",Строка.Номен клатура);
Запрос.УстановитьПараметр("ВыбСвойство",ПланыВидов Характеристик.СвойстваОбъектов.НайтиПоКоду("000000 002"));
Выборка = Запрос.Выполнить().Выбрать();
Выборка.Следующий();
Свойство = Выборка.Значение;

если Не Свойство = Неопределено Тогда
Строкатара = ВозвратнаяТара.Добавить();
Строкатара.Номенклатура = Свойство;
Строкатара.Количество = Строка.Количество;
Запрос = Новый Запрос ("ВЫБРАТЬ
| ЦеныНоменклатурыСрезПоследних.Цена КАК Ціна
|ИЗ
| РегистрСведений.ЦеныНоменклатуры.СрезПоследних КАК ЦеныНоменклатурыСрезПоследних
|ГДЕ
| ЦеныНоменклатурыСрезПоследних.ТипЦен = &ТипЦен
| И ЦеныНоменклатурыСрезПоследних.Номенклатура = &Номенклатура");

Запрос.УстановитьПараметр("ТипЦен",Справочники.Тип ыЦенНоменклатуры.НайтиПоКоду("000000001"));
Запрос.УстановитьПараметр("Номенклатура",Свойство) ;
Выборка = Запрос.Выполнить().Выбрать();
Выборка.Следующий();
Цена = Выборка.Ціна;

Строкатара.Цена = 0;
Строкатара.Цена = Цена;
Строкатара.Сумма = Цена * Строкатара.Количество;


Строкатара.СпособСписанияОстаткаТоваров = Строка.СпособСписанияОстаткаТоваров;
Строкатара.СчетУчетаБУ = ПланыСчетов.Хозрасчетный.ТараИТарныеМатериалы;
Строкатара.СхемаРеализации = Справочники.СхемыРеализации.Товары;
Строкатара.НалоговоеНазначение = Справочники.НалоговыеНазначенияАктивовИЗатрат.НДС_ НеоблагаемаяХозДеятельность;
Строкатара.НалоговоеНазначениеДоходовИЗатрат = Строка.НалоговоеНазначениеДоходовИЗатрат;
Строкатара.Склад = Справочники.Склады.НайтиПоКоду("000000002");


КонецЕсли;
Конеццикла;
КонецПроцедуры //ЗаполнитьТару
infocentr_neruhomist вне форума   Ответить с цитированием
Старый 03.09.2013, 12:25   #2
marishon
Новичок
 
Регистрация: 11.01.2012
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
marishon пока не определено
По умолчанию

Реєстрація ТОВ і ПП, Реєстрація ФОП (фізична особа підприємець), Ліквідація, Перереєстрація, реєстраційні зміни(заміна керівника, власників, юр.адреси, зміна установчих документів, зміна місця проживання фізичної особи-підприємця, тощо). Реогранізація. Включення відомостей про юридичну та фізичну особу-підприємця. Зміна видів економічної діяльності (КВЕД), Витяг, Довідка, Виписка. Підтвердження юридичної адреси та багато іншого. 0950864767, 0634557848
marishon вне форума   Ответить с цитированием
Старый 03.09.2013, 14:14   #3
DUH
Местный
 
Аватар для DUH
 
Регистрация: 07.02.2013
Адрес: Kyiv
Сообщений: 538
Сказал(а) спасибо: 86
Поблагодарили 753 раз(а) в 134 сообщениях
DUH пока не определено
Отправить сообщение для DUH с помощью ICQ Отправить сообщение для DUH с помощью AIM Отправить сообщение для DUH с помощью Skype™
Вопрос

Цитата:
Сообщение от marishon Посмотреть сообщение
Реєстрація ТОВ і ПП, Реєстрація ФОП (фізична особа підприємець), Ліквідація, Перереєстрація, реєстраційні зміни(заміна керівника, власників, юр.адреси, зміна установчих документів, зміна місця проживання фізичної особи-підприємця, тощо). Реогранізація. Включення відомостей про юридичну та фізичну особу-підприємця. Зміна видів економічної діяльності (КВЕД), Витяг, Довідка, Виписка. Підтвердження юридичної адреси та багато іншого. 0950864767, 0634557848
Спамер
DUH вне форума   Ответить с цитированием
Старый 17.10.2013, 19:56   #4
viktor
Новичок
 
Регистрация: 19.12.2011
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
viktor пока не определено
По умолчанию

Кто знает где можно найти обновление версии для 1с 8.1 обновление платформы 1.1.26.1.
viktor вне форума   Ответить с цитированием
Старый 18.10.2013, 18:23   #5
Анастасия Черкесова
Новичок
 
Регистрация: 18.10.2013
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Анастасия Черкесова пока не определено
По умолчанию

Цитата:
Сообщение от viktor Посмотреть сообщение
Кто знает где можно найти обновление версии для 1с 8.1 обновление платформы 1.1.26.1.
Подскажите, пожалуйста, где скачать 1С Предприятие 7.7 для Украины
Анастасия Черкесова вне форума   Ответить с цитированием
Ответ

Любые журналы Актион-МЦФЭР регулярно !!! Пишите https://www.nado.in/private.php?do=newpm&u=12191 или на электронный адрес pantera@nado.ws


Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 
Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите пожалуйста infocentr_neruhomist 1C: Предприятие + конфигурации для Украины 0 08.08.2013 23:43
Помогите пожалуйста infocentr_neruhomist 1C: Предприятие + конфигурации 8.2 0 08.08.2013 23:42
помогите, пожалуйста bux 1C: Предприятие + конфигурации для Украины 7 18.04.2013 09:27
Помогите пожалуйста с 1С 8.2 organza 1C: Предприятие + конфигурации для Украины 1 01.09.2012 08:15
Помогите, пожалуйста, найти две книги Petenokor Запросы на поиск литературы 0 18.03.2012 23:57


Текущее время: 11:13. Часовой пояс GMT +1.


Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2024, vBulletin Solutions, Inc. Перевод: zCarot