Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
15 дек 2024, 11:30

Сформировать список плательщиков в Банк в ЗиУП 8.2

Автор Dikovenka, 04 сен 2012, 17:07

0 Пользователей и 1 гость просматривают эту тему.

Dikovenka

Нужно в ЗиУП 8.2 документе Зарплата к выплате организации, сформировать элементарный список плательщиков в банк, который состоит только из лицевого счета сотрудника и соответствующий суммы заработной платы, только 2 колонки, без шапок и подвалов. Я создала Внешнюю обработку, но она не работает, подскажите пожалуйста, что в моем модуле не верно? Буду очень очень признательна за любую помощь.

Модуль Объекта внешней обработки:

Функция Печать() Экспорт
   
   ТабДокумент = Неопределено;
   
   Если НЕ СсылкаНаОбъект.СпособВыплаты=Перечисления.СпособыВыплатыЗарплаты.ЧерезБанк тогда
      Сообщить("Документ можно распечатать только, если перечисление через банк!");
      возврат Неопределено;   
   КонецЕсли;   
   
   Объект = СсылкаНаОбъект.ПолучитьОбъект();
   Если Объект.ЭтоНовый() Тогда
      Предупреждение("Документ можно распечатать только после его записи");
      Возврат ТабДокумент;
   КонецЕсли;
   
   Если Не РаботаСДиалогами.ПроверитьМодифицированность(Объект) Тогда
      Возврат ТабДокумент;
   КонецЕсли;

   Запрос=Новый Запрос;
   Запрос.текст="ВЫБРАТЬ
                |   ЛицевыеСчетаРаботниковОрганизации.НомерЛицевогоСчета КАК НомерЗарплатногоСчета,
                |   ЗарплатаКВыплатеОрганизацийЗарплата.Сумма КАК Сумма_Компенсация,
                |   ЗарплатаКВыплатеОрганизацийЗарплата.Физлицо КАК Сотрудник_Наименование,
                |   ЗарплатаКВыплатеОрганизацийЗарплата.КомпенсацияЗаЗадержкуЗарплаты КАК Компенсация
                |ИЗ
                |   Документ.ЗарплатаКВыплатеОрганизаций.Зарплата КАК ЗарплатаКВыплатеОрганизацийЗарплата
                |      ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ЛицевыеСчетаРаботниковОрганизации КАК ЛицевыеСчетаРаботниковОрганизации
                |      ПО ЗарплатаКВыплатеОрганизацийЗарплата.Физлицо = ЛицевыеСчетаРаботниковОрганизации.ФизЛицо
                |         И ЗарплатаКВыплатеОрганизацийЗарплата.Ссылка.Организация = ЛицевыеСчетаРаботниковОрганизации.Организация
                |         И ЗарплатаКВыплатеОрганизацийЗарплата.Ссылка.Банк = ЛицевыеСчетаРаботниковОрганизации.Банк
                |ГДЕ
                |   ЗарплатаКВыплатеОрганизацийЗарплата.Ссылка = &Ссылка
                |ИТОГИ
                |   СУММА(Сумма_Компенсация)
                |ПО
                |   ОБЩИЕ";
             
   Запрос.УстановитьПараметр("Ссылка",СсылкаНаОбъект);
   Рез=Запрос.Выполнить().Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
   
   ТабДокумент = Новый ТабличныйДокумент;
   
   Макет = ПолучитьМакет("МойЭксперимент");
   ОбластьМакета = Макет.ПолучитьОбласть("Шапка");
   
      ТабДокумент.Вывести(ОбластьМакета);
           
      ОбластьМакета = Макет.ПолучитьОбласть("Строка");
         
   ОбщаяСумма=0;
   
   Если Рез.Следующий() тогда
     
      ТабЗарплата=Рез.Выбрать();
      ОбщаяСумма=Рез.Сумма_Компенсация;
      ОбластьМакета.Параметры.ОбщаяСумма=ОбщаяСумма;
     
      НомСтр=1;
      Пока ТабЗарплата.Следующий() Цикл
         
         ЗаполнитьЗначенияСвойств(ОбластьМакета.Параметры,ТабЗарплата);
         ТабДокумент.Вывести(ОбластьМакета);
         НомСтр=НомСтр+1;
      КонецЦикла;
     
   КонецЕсли;   
   
    ОбластьМакета = Макет.ПолучитьОбласть("Подвал");
   
   Возврат ТабДокумент;

КонецФункции



Изображение табличной части  и самой внешней обработки:


Dikovenka

Изображение табличной части и самой обработки можно посмотреть перейдя по ссылке : http://imglink.ru/show-image.php?id=2cd07bbd5f869daec593b011aef5bf1f

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск