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

Помогите разобраться с печатной формой

Автор Pavel779, 22 июн 2012, 17:43

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

Pavel779

Вот часть кода внешней печатной формы для ЗУП Документ-Зарплата к выплате организации



// Формирует запрос по документу
//
// Параметры:
//  ПечатаемыйДокумент - документ, из которого выполняется печать
// Платежное поручение исходящее или Зарплата к выплате организаций
//  Ведомости - массив, документы Зарплата к выплате организаций
//  ФИОСокращенно - булево, используется для идентификации печати ФИО с инициалами
//
// Возвращаемое значение:
//  Результат запроса
//
Функция СформироватьЗапросДляПечатиПеречняПеречислений(СсылкаНаОбъект)

Запрос = Новый Запрос;
Запрос.МенеджерВременныхТаблиц = Новый МенеджерВременныхТаблиц;

Если ТипЗнч(СсылкаНаОбъект) = Тип("ДокументСсылка.ПлатежноеПоручениеИсходящее") Тогда
ПечатьПлатежногоПоручения = Истина;
Иначе
ПечатьПлатежногоПоручения = Ложь;
КонецЕсли;

// Установим параметры запроса
Если ПечатьПлатежногоПоручения Тогда
Запрос.УстановитьПараметр("ДокументСсылка", СсылкаНаОбъект);
Иначе
Запрос.УстановитьПараметр("ДокументСсылка", СсылкаНаОбъект);
КонецЕсли;

Запрос.УстановитьПараметр("ДатаДокумента", СсылкаНаОбъект.Дата);
Запрос.УстановитьПараметр("ФИОСокращенно", Ложь);

ТекстЗапроса =
"ВЫБРАТЬ РАЗЛИЧНЫЕ
| ЗарплатаКВыплатеОрганизацийЗарплата.Физлицо КАК Физлицо,
| ЗарплатаКВыплатеОрганизацийЗарплата.НомерСтроки,
| ЗарплатаКВыплатеОрганизацийЗарплата.Сумма,
| ЗарплатаКВыплатеОрганизацийЗарплата.КомпенсацияЗаЗадержкуЗарплаты,
| ЗарплатаКВыплатеОрганизацийЗарплата.Ссылка.Банк КАК Банк,
| ЗарплатаКВыплатеОрганизацийЗарплата.Ссылка.Организация,
| ЗарплатаКВыплатеОрганизацийЗарплата.Ссылка КАК Ведомость,
| ЗарплатаКВыплатеОрганизацийЗарплата.Ссылка.ПериодРегистрации // ЭТА СТРОКА
|ПОМЕСТИТЬ ВТСписокФизлиц
|ИЗ
| Документ.ЗарплатаКВыплатеОрганизаций.Зарплата КАК ЗарплатаКВыплатеОрганизацийЗарплата
|ГДЕ
| ЗарплатаКВыплатеОрганизацийЗарплата.Сумма + ЗарплатаКВыплатеОрганизацийЗарплата.КомпенсацияЗаЗадержкуЗарплаты > 0";

Если ПечатьПлатежногоПоручения Тогда
ТекстЗапроса = ТекстЗапроса + "
| И ЗарплатаКВыплатеОрганизацийЗарплата.Ссылка В(&ДокументСсылка)";
Иначе
ТекстЗапроса = ТекстЗапроса + "
| И ЗарплатаКВыплатеОрганизацийЗарплата.Ссылка = &ДокументСсылка";
КонецЕсли;

ТекстЗапроса = ТекстЗапроса + "
|ИНДЕКСИРОВАТЬ ПО
| Физлицо";

Запрос.Текст = ТекстЗапроса;

Запрос.Выполнить();

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

Запрос.Текст = ТекстЗапроса;

Возврат Запрос.Выполнить();

КонецФункции // СформироватьЗапросДляПечатиПеречняПеречислений()



Хочу вот эту строчку вынести в макет

"ЗарплатаКВыплатеОрганизацийЗарплата.Ссылка.ПериодРегистрации"

Вот ссылка на макет

http://narod.ru/disk/53808380001.011a0bfd9c51790782548efdd0a76c8c/%D0%9C%D0%B0%D0%BA%D0%B5%D1%82.mxl.html


Параметр в Макете "ПериодРегистрации" находится в шапке.

Что я хочу от этого параметра:
Этот параметр в документе "ПериодРегистрации" Выводит месяц прописью за который выплачивается З\П
Вот я хочу этот месяц вывести в документ, чтоб он был прописью.

Если не понятно что хочу могу выложить весь код!!!

Dethmontt

А я хочу Миллион долларов и если не понятно чего я хочу!!!!!!!1 Могу еще раз сказать - хочу миллиард долларов
Если долго всматриваться в учебник...то в голову может прийти мысль его открыть!

Dethmontt

И.... Честно из вашкго

="white-space: pre;">    </span><span style="white-space: pre;">    </span><span style="white-space: pre;">    </span><span style="white-space: pre;">    </span><span style="white-space: pre;">    </span><span style="white-space: pre;">    </span>ВТСписокФизлиц КАК СписокФизЛиц)) КАК ФИОФизЛицСрезПоследних
<span style="white-space: pre;">    </span>|<span style="white-space: pre;">    </span><span style="white-space: pre;">    </span>ПО ЗарплатаКВыплатеОрганизацийЗарплата.Физлицо = ФИОФизЛицСрезПоследних.ФизЛицо

Ничего не понятно
Если долго всматриваться в учебник...то в голову может прийти мысль его открыть!

cska-fanat-kz

без "спамов" 1Сный код отображается в Файерфоксе.

"А я хочу Миллион долларов и если не понятно чего я хочу!!!!!!!1 Могу еще раз сказать - хочу миллиард долларов"

2 Dethmontt, вы становитесь такая же язва как и я ;) простите за сие невольное дурное влияние ;)
Получил помощь - скажи СПАСИБО.
Разобрался сам - расскажи другим.

Pavel779


Dethmontt

Фанат я не подражаю вам! Просто по другому тут невозможно =))
Если долго всматриваться в учебник...то в голову может прийти мысль его открыть!

Теги:

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

Рейтинг@Mail.ru

Поиск