Процедура ОтчетПоМагазинам()  
ном_закл = Форма.Закладки.ТекущаяСтрока();	
Таб = СоздатьОбъект("Таблица");
  Таб.ИсходнаяТаблица("ОтчетПоМагазинам");	  
   прих = СоздатьОбъект("Документ.ПриходнаяНакладная");  
   прих.ВыбратьДокументы(ДатаНач, ДатаКон);  
   пн = 0;
   Пока прих.ПолучитьДокумент() = 1 Цикл  // прих


	  пн = пн + 1;

	  Если пн = 1 Тогда
		 Таб.ВывестиСекцию("Шапка");	
	  КонецЕсли;		  


	  Сообщить(прих.Клиент);

	  Если прих.Клиент = "Магазин" Тогда
	  Таб.ВывестиСекцию("ПрихДок");  
	  КонецЕсли;

   КонецЦикла;	 // прих	  
   Таб.ТолькоПросмотр(1);  
   Таб.ПовторятьПриПечатиСтроки(4,4);
   Таб.Опции(0, 0, 4, 0, "ОтчетПоМагазинам");
   Таб.Показать("ОтчетПоМагазинам","");	  
   Таб.ПараметрыСтраницы(2,100, , 10, 0, 0, 0, 5, 5,  1);	

КонецПроцедуры  

Цитата

Попытка
  ПрофильПочты = Новый ИнтернетПочтовыйПрофиль;
  ПрофильПочты.ПортSMTP		   = "25";
  ПрофильПочты.АдресСервераSMTP   = "АдресСервера";
  ПрофильПочты.Пользователь	   = "Пользователь";
  ПрофильПочты.Пароль			 = "Пароль";
 
  Почта = Новый ИнтернетПочта;
  
  Почта.Подключиться(ПрофильПочты);
  
 
  
  Сообщение = Новый ИнтернетПочтовоеСообщение;
  Сообщение.Тема = ЗаголовокПисма;
  Сообщение.Получатели.Добавить("21@mail.ru");
  Сообщение.Тексты.Добавить(СообщениеПисьма);
  //Сообщение.Вложения.Добавить();
 
  Почта.Послать(Сообщение);
  Почта.Отключиться();
Исключение
  Сообщить("Не удалось отправить почту по причине: "+ ОписаниеОшибки());
  Возврат;
КонецПопытки;

Прикрепленные изображения

&НаКлиенте
Процедура ПриОткрытии(Отказ)
// указываем что это ШМД-обработка
ДинПолеПодборГотовыхФраз.ОбработчикТекущегоЭлемента(ЭтаФорма, ЭтаФорма.ПолеФормыВыбора);
// указываем текущий элемент в который будут вставляться готовые фразы
//ДинПолеПодборГотовыхФраз.УстановитьИдТекущегоЭлемента(ЭтаФорма, ЭтаФорма.ПолеФормыВыбора, "Диагноз", Ложь);
ДинПолеПодборГотовыхФраз.УстановитьИдТекущегоЭлемента(ЭтаФорма, ЭтаФорма.ПолеФормыВыбора, ЭтаФорма.ТекущийЭлемент.Имя, Ложь);
КонецПроцедуры

ФайлЗагрузки = "С:\basa.FDB";
Соединение = Новый COMОбъект("ADODB.Connection");
Комманда = Новый COMОбъект("ADODB.Command");
НаборЗаписей = Новый COMОбъект("ADODB.RecordSet");
Соединение.ConnectionString = "driver=Firebird/InterBase® driver; Dialect=3; CHARSET=NONE; Uid=SYSDBA;Pwd=masterkey;Dbname="+ФайлЗагрузки;
Соединение.ConnectionTimeOut = 1200;
Соединение.CursorLocation = 3;
try
Соединение.Open(Соединение.ConnectionString);
Сообщить("Соединение успешно уставнолено !!!");
except
Сообщить("Невозможно установить соединение с Firebird:
| "+ОписаниеОшибки());
Возврат;
endtry;

ВЫБРАТЬ
ОсновныеСредства.НаименованиеПолное,
ОсновныеСредства.ИнвентарныйНомер,
ОсновныеСредства.СчетУчета,
ОсновныеСредства.ЗаводскойНомер,
ОсновныеСредства.Местонахождение
ИЗ
	 Справочник.ОсновныеСредства КАК			 ОсновныеСредства
ГДЕ
ОсновныеСредства.СчетУчета = "101.34"

• Доработки по архитектуре систем на базе 1С:Предприятия 8
  
• Доработки и разработка новой функциональности по требованию.
  
• Обучение программистов-администраторов работе с нетиповой функциональностью.
  
• Консультирование пользователей по сложным вопросам при ведении учета
  
• Участие в проектах по созданию новой функциональности в качестве архитектора-разработчика

• Опыт разработки и сопровождения систем на базе конфигураций 1С 8 УТ или УПП от 2-х лет и выше.
  
• Знание структуры метаданных одной или нескольких типовых конфигураций «1С:Предприятие 8» на уровне разработчика:Бухгалтерия, Зарплата и Управление Персоналом, 1С:Управляющий

• Место работы: Зеленоград
  
• Корпоративный транспорт от ст. м. Речной вокзал, платформы Сходня и Крюково
  
• Бесплатное питание
  
• ДМС
  
• Уровень оплаты обсуждается на собеседовании

База = Новый XBase;
//Указываем кодировку
База.Кодировка = КодировкаXBase.OEM;
//Добавляем поля в DBF файл
База.Поля.Добавить("KOD","S",11);
База.Поля.Добавить("NOM","S",50);

Путь = "C:\PRIMER.DBF";
База.СоздатьФайл(Путь);
База.Записать();
//Очищаем файл
База.ОчиститьФайл();
Для Каждого Стр из Т Цикл
База.Добавить();
База.KOD = Стр.Код;
База.NOM = Стр.Наименование;
База.Записать();
КонецЦикла;
База.Записать();
База.ЗакрытьФайл();

Результат = Запрос.Выполнить();
Элементы.Цены.СписокВыбора.ЗагрузитьЗначения(Результат.Выгрузить().ВыгрузитьКолонку("Цена"));

Если ЗначениеЗаполнено(Справочник) Тогда
Объект = "Справочник";
Иначе
Объект = "Документ";
КонецЕсли;
Инициализация[Объект]();

"ВЫБРАТЬ
	ХозрасчетныйОстатки.Субконто1 КАК Контрагент,
	ХозрасчетныйОстатки.Счет КАК СчетРасчетов,
	СУММА(ВЫБОР
	   КОГДА ХозрасчетныйОстатки.Счет.Вид = &Активный
		  ИЛИ ХозрасчетныйОстатки.СуммаОстатокДт > 0
	   ТОГДА ХозрасчетныйОстатки.СуммаОстатокДт
	   ИНАЧЕ ХозрасчетныйОстатки.СуммаОстатокКт
	КОНЕЦ) КАК Подтверждено,
	ВЫБОР
	   КОГДА ХозрасчетныйОстатки.Счет.Вид = &Активный
	         ИЛИ ХозрасчетныйОстатки.СуммаОстатокДт > 0
	   ТОГДА &Дебиторская
	   ИНАЧЕ &Кредиторская
	КОНЕЦ КАК ВидЗадолженности
ИЗ
	РегистрБухгалтерии.Хозрасчетный.Остатки(&Дата, Счет В (&МассивСчетов), &ВидыСубконто, Организация = &Организация) КАК ХозрасчетныйОстатки
ГДЕ
       (&ВидЗадолженности = НЕОПРЕДЕЛЕНО
	   ИЛИ ВЫБОР
	      КОГДА ХозрасчетныйОстатки.Счет.Вид = &Активный
		   ИЛИ ХозрасчетныйОстатки.СуммаОстатокДт > 0
	      ТОГДА &Дебиторская
	      ИНАЧЕ &Кредиторская
	   КОНЕЦ = &ВидЗадолженности)

СГРУППИРОВАТЬ ПО
	ХозрасчетныйОстатки.Субконто1,
	ХозрасчетныйОстатки.Счет,
	ВЫБОР
	   КОГДА ХозрасчетныйОстатки.Счет.Вид = &Активный
	        ИЛИ ХозрасчетныйОстатки.СуммаОстатокДт <> 0
		ТОГДА &Дебиторская
		  ИНАЧЕ &Кредиторская
	КОНЕЦ

УПОРЯДОЧИТЬ ПО
	ХозрасчетныйОстатки.Субконто1.Представление,
	ХозрасчетныйОстатки.Счет.Порядок"

Процедура ПроведениеПоРегистрам()
// Удаление движений по регистрам.
Для Номер = 1 По Метаданные.Регистр() Цикл
  ОчиститьДвижения("Регистр."+Метаданные.Регистр(Номер).Идентификатор);
КонецЦикла; 

ТаблицаУслуг = СоздатьОбъект("ТаблицаЗначений");
ТаблицаТМЦ   = глПодготовитьТаблицуДокумента(Контекст,1,ТаблицаУслуг);	
   
ТаблицаТМЦ.ВыбратьСтроки();
Пока ТаблицаТМЦ.ПолучитьСтроку()=1 Цикл
  ТаблицаТМЦ.Единица=ТаблицаТМЦ.Номенклатура.ОсновнаяЕдиница;
КонецЦикла;
ФирмаДляОстатковТМЦ = глФирмаДляОстатковТМЦ(Фирма);

   СписокПараметров=СоздатьОбъект("СписокЗначений");

СписокПараметров.ДобавитьЗначение(ТекущийДокумент(),"ТекДок");
СписокПараметров.ДобавитьЗначение(Константа.СкладПоУмолчанию,  "Склад");
СписокПараметров.ДобавитьЗначение(Константа.ОсновнаяФирма,  "Фирма");
СписокПараметров.ДобавитьЗначение(ФирмаДляОстатковТМЦ,"ФирмаДляОстатковТМЦ");
СписокПараметров.ДобавитьЗначение(Заявка.Контрагент, "Контрагент");
СписокПараметров.ДобавитьЗначение(Заявка.Договор,  "Договор");
							  
// СписокПараметров.ДобавитьЗначение(КодОперации, "КодОперации");
   
    ВремРегистры   = СоздатьОбъект("Регистры");
ВремОстаткиТМЦ   = ВремРегистры.ОстаткиТМЦ;
   

глФильтрОстатковТМЦ  (Контекст, ТаблицаТМЦ, СписокПараметров, ВремОстаткиТМЦ);
   
Если ИтогиАктуальны()=0 Тогда   
  ВремРегистры.Актуальность(1);
  ВремРегистры.РассчитатьРегистрыНа(ТекущийДокумент());
КонецЕсли;
 
Если глСписаниеОстатковТМЦ (Контекст,ТаблицаТМЦ,СписокПараметров, ВремОстаткиТМЦ)=0 Тогда
  Возврат;
КонецЕсли;

КонецПроцедуры

 Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ВложенныйЗапрос.НоменклатурнаяГруппа,
| СУММА(ВложенныйЗапрос.С01001) КАК С01001,
| СУММА(ВложенныйЗапрос.С01006) КАК С01006,
...
|ИЗ
| (ВЫБРАТЬ
|  НезавершенноеПроизводствоБухгалтерскийУчетОстатки.НоменклатурнаяГруппа КАК НоменклатурнаяГруппа,
|  ВЫБОР
|   КОГДА НезавершенноеПроизводствоБухгалтерскийУчетОстатки.СтатьяЗатрат В ИЕРАРХИИ (&СтатьиМатПокупные)
|	ТОГДА НезавершенноеПроизводствоБухгалтерскийУчетОстатки.СтоимостьОстаток
|   ИНАЧЕ 0
|  КОНЕЦ КАК С01001,
| ....
|";

Для Каждого Стр Из ТабЗатрат Цикл
  Если ТаблицаОпераций <> Неопределено Тогда
   СтрокиБаза = ТаблицаОпераций.НайтиСтроки(Новый Структура("НоменклатурнаяГруппа", Стр.НоменклатурнаяГруппа));
  Иначе
   СтрокиБаза = Неопределено;
  КонецЕсли;
  Если СтрокиБаза = Неопределено ИЛИ СтрокиБаза.Количество() = 0 Тогда
   Если ТабИзделий <> Неопределено Тогда
	СтрокиБаза = ТабИзделий.НайтиСтроки(Новый Структура("НоменклатурнаяГруппа", Стр.НоменклатурнаяГруппа));
	ПоказательБазы = "Количество";
   Иначе
	СтрокиБаза = Неопределено;
   КонецЕсли;
  Иначе
   ПоказательБазы = "Сумма";
  КонецЕсли;
  МассивКоэффициентов = Новый Массив;
  Если СтрокиБаза <> Неопределено Тогда
   Для Каждого Ст Из СтрокиБаза Цикл
	Если Ст[ПоказательБазы] <> 0 Тогда
	 МассивКоэффициентов.Добавить(Ст[ПоказательБазы]);
	КонецЕсли;
   КонецЦикла;
  КонецЕсли;

  Если МассивКоэффициентов.Количество() = 0 Тогда
   НовСтр = ТабРезультат.Добавить();
   ЗаполнитьЗначенияСвойств(НовСтр, Стр);
   НовСтр.Номенклатура = Стр.НоменклатурнаяГруппа;
  
   Продолжить;
  КонецЕсли;

  МассивСуммС01001 = ОбщегоНазначения.РаспределитьПропорционально(Стр.С01001, МассивКоэффициентов, 2, Ложь);
  МассивСуммС01006 = ОбщегоНазначения.РаспределитьПропорционально(Стр.С01006, МассивКоэффициентов, 2, Ложь);
  МассивСуммС02000 = ОбщегоНазначения.РаспределитьПропорционально(Стр.С02000, МассивКоэффициентов, 2, Ложь);
  МассивСуммС03000 = ОбщегоНазначения.РаспределитьПропорционально(Стр.С03000, МассивКоэффициентов, 2, Ложь);
  ...

  Ин = 0;
  Для Каждого Ст Из СтрокиБаза Цикл
   НовСтр = ТабРезультат.Добавить();
   НовСтр.Номенклатура = Ст.Номенклатура;
   НовСтр.ХарактеристикаНоменклатуры = Ст.ХарактеристикаНоменклатуры;
   НовСтр.НоменклатурнаяГруппа = Стр.НоменклатурнаяГруппа;
   НовСтр.С01001 = МассивСуммС01001[Ин];
   НовСтр.С01006 = МассивСуммС01006[Ин];
   НовСтр.С02000 = МассивСуммС02000[Ин];
   НовСтр.С03000 = МассивСуммС03000[Ин];
   ....
   СтрКол = ТабИзделий.НайтиСтроки(Новый Структура("Номенклатура, ХарактеристикаНоменклатуры", Ст.Номенклатура, Ст.ХарактеристикаНоменклатуры));
   Если СтрКол.Количество() > 0 Тогда
	НовСтр.Количество = СтрКол[0].Количество;
	НовСтр.ЕдиницаИзмерения = СтрКол[0].ЕдиницаИзмерения;
   КонецЕсли;
  
   Ин = Ин + 1;
  КонецЦикла;
КонецЦикла;

Возврат ТабРезультат;

Процедура Выполнить()
   Текст = СоздатьОбъект("Текст");
   СпрКлиенты = СоздатьОбъект("Справочник.Клиенты");
   СпрКлиенты.ВыбратьЭлементы();
   Пока СпрКлиенты.ПолучитьЭлемент() = 1 Цикл
     Если СпрКлиенты.ЭтоГруппа() = 1 Тогда
        Продолжить;
     ИначеЕсли СпрКлиенты.ПометкаУдаления() = 1 Тогда
         Продолжить;
     КонецЕсли;
   Текст.ДобавитьСтроку(СпрКлиенты.ПолноеИмя);
  КонецЦикла;
Текст.Записать("D:\Клиенты.txt");
КонецПроцедуры

Цитата

&НаСервере
Функция ПолучитьПредставление(ИмяРекв, Рекв) Экспорт
Представление = ЭтаФорма.Элементы[ИмяРекв].СписокВыбора.Получить(Рекв).Представление;
//Сообщить(Представление);
Возврат СокрЛП(Представление);
КонецФункции

ПолучитьПредставление("ОбщееСостояние", ОбщееСостояние)