[{{mminutes}}:{{sseconds}}] X
Пользователь приглашает вас присоединиться к открытой игре игре с друзьями .
Фрагменты модуля 1С
(0)       Используют 11 человек

Комментарии

krosaf4eg 29 октября 2010
глючной словарь. Почти на всех текстах где-то в середине нельзя ни пробел набрать, ни перевод строки. Так и приходится выходить из игры
-konst- 1 апреля 2010
Напишите, пожалуйста, какие тексты вы хотели бы видеть по 1с. Ключевые слова или может фрагменты модулей?
Написать тут
Описание:
Розница
Автор:
-konst-
Создан:
20 марта 2010 в 08:10 (текущая версия от 30 марта 2010 в 23:40)
Публичный:
Да
Тип словаря:
Тексты
Цельные тексты, разделяемые пустой строкой (единственный текст на словарь также допускается).
Содержание:
1 ЗначениеЗаполнено(Получатель.ДатаРождения) Тогда ДатаТекущегоГода = Дата(Год(мТекущаяДата), Месяц(Получатель.ДатаРождения),День(Получатель.ДатаРождения)); ДатаПредыдущегоГода = ДобавитьМесяц(ДатаТекущегоГода,-12);
2 Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ " + Сред(СтрокиЗапроса, 2) + " ИЗ Документ." + ДокументОбъектМетаданные.Имя + " КАК Док "+ ТаблицыЗапроса + Символы.ПС + " ГДЕ Док.Ссылка = &ДокументСсылка"; Запрос.УстановитьПараметр("ДокументСсылка" , ДокументОбъект.Ссылка); Запрос.УстановитьПараметр("ДатаДокумента" , ?(ОбщегоНазначения.ЕстьРеквизитДокумента("ПериодРегистрации", ДокументОбъектМетаданные), КонецМесяца(ДокументОбъект.ПериодРегистрации), ДокументОбъект.Дата));
3 Если ИмяТабличнойЧасти = "Товары" И (ТипЗнч(ДокументОбъект) = Тип("ДокументОбъект.РеализацияТоваров") ИЛИ ТипЗнч(ДокументОбъект) = Тип("ДокументОбъект.ВозвратТоваровПоставщику") ИЛИ ТипЗнч(ДокументОбъект) = Тип("ДокументОбъект.СписаниеТоваров")) Тогда РазрешитьНулевыеСуммыИЦены = Ложь; Если ТипСклада = Перечисления.ТипыСкладов.ТорговыйЗал Тогда РазрешитьНулевыеСуммыИЦены = УправлениеПользователями.РазрешитьНулевыеЦеныДляТорговогоЗала(); Иначе РазрешитьНулевыеСуммыИЦены = УправлениеПользователями.РазрешитьНулевыеЦеныДляСкладов(); КонецЕсли;
4 Если Не ВозвращатьОстатки И Не ВозвращатьЦены Тогда Возврат Новый ТаблицаЗначений; КонецЕсли; Если Магазин = Неопределено Тогда Магазин = ПараметрыСеанса.ТекущийМагазин; Если Магазин = Неопределено Тогда Возврат Новый ТаблицаЗначений; КонецЕсли; КонецЕсли; Запрос = Новый Запрос;
5 ЕстьОтбор = Конт.ПолучитьОтбор(Отбор, ЗначениеОтбора); НачДата = Конт.НачалоИнтервала(); КонДата = Конт.КонецИнтервала(); Расшифровка = СоздатьОбъект("СписокЗначений"); Расшифровка.Установить("Отчет","ОбработкаДокументов"); Расшифровка.Установить("Дата1", НачДата); Расшифровка.Установить("Дата2", КонДата); Расшифровка.Установить("ВыбрКонтрагент", ПолучитьПустоеЗначение("Справочник.Контрагенты")); Расшифровка.Установить("ВыбрСтрока", ""); Расшифровка.Установить("ВыбрСтрокаКом", ""); Расшифровка.Установить("Признак", "Все"); Расшифровка.Установить("ВидОбработки", "Печать")

Связаться
Выделить
Выделите фрагменты страницы, относящиеся к вашему сообщению
Скрыть сведения
Скрыть всю личную информацию
Отмена