Главная » 1С Предприятие » ВЕДОМОСТЬ ПЕРЕЧИСЛЕНИЙ В БАНК

0

Формируется в  виде текстового  файла, который затем  можно отправить по  электронной почте  в  банк  назначения.  Содержит  для  каждого сотрудника  его  ФИО, табельный номер, номер счета  в банке  и перечисленную сумму.  При этом мы предполагаем, что  номер счета  отличается  от табельного номера сотрудника  только  префиксом Б-.  Если это  не так, то в справочник Сотрудники_2  придется добавить новое поле для хранения  в нем  номера счета сотрудника.

процедура СтрокаВТекст(сотр, текст, ном, всего) далее

// Ведомость перечислений в банк для одного  сотрудника или сотрудников

// выбранного подразделения. Формируется как текстовый файл

// Поскольку процедура присутствует в модуле формы списка ЖЗ,

//то все методы ЖР вызываются без префикса

процедура ВедомостьБанк()

перем текст, всего, сЗначСотр, ин, сотр; перем сообщение;

сообщение = "Формируем  ведомость перечислений сотрудника ";

всего = 0;                               //                   Общая сумма  перечислений  в банк  текст = СоздатьОбъект("Текст");  //         Направляем вывод  в текстовый  файл

текст.КодоваяСтраница(1);                //          Используем DOS-кодировку текста  текст.ДобавитьСтроку("        Список перечислений  во вклады из заработной

платы  на лицевые счета рабочих и служащих"); текст.ДобавитьСтроку("        " + Объект.Родитель + "," +

Константа.НазваниеОрганизации);

текст.ДобавитьСтроку("       за " + ПериодРегистрации.ОписательПериода + " в " + Константа.БанкОрганизации);

текст.ДобавитьСтроку("

если  кто  —  1 тогда                        //              Ведомость для  выбранного сотрудника  Состояние(сообщение + Объект.Наименование);

СтрокаВТекст(Объект, текст,  1, всего);

// Вывод РЛ сотрудников выбранного подразделения

// Используя метод ЖР  ВыбратьПоЗначению, занесем (без повторов) значение

// атрибута Объект расчетов  выбранного подразделения в  список сЗначСотр

иначе

Состояние("Формируем список сотрудников подразделения " + Объект.Родитель);

// Код процедуры СоздатьСЗнач см.  в предшествующем разделе СоздатьСЗнач(сЗначСотр); //        Формируем список сотрудников подразделения для ин = 1 по сЗначСотр.РазмерСписка() цикл

сотр = сЗначСотр.ПолучитьЗначение(ин); Состояние(сообщение + сотр.Наименование); СтрокаВТекст(сотр, текст, ин, всего);

конецЦикла; // для

// Поправляем закладку отбора УстановитьОтбор("Родитель",  сотр.Родитель);

конецЕсли;

// Завершаем вывод ведомости перечислений в банк текст.ДобавитьСтроку("");              //               Пустая строка

// Формат "ЧПД"  обеспечит  вывод итоговой суммы  перечислений прописью  текст.ДобавитьСтроку("   Итого: " + Формат(всего,  "ЧПД")); текст.ДобавитьСтроку("");                   //            Пустая строка текст.ДобавитьСтроку("    Гл. бухгалтер" + СимволТабуляции +

Символ Табуляции + СимволТабуляции + СимволТабуляции +

Константа.ГлБухгалтер.Получить(ТекущаяДата()));

текст.ТолькоПросмотр(1);       //                Запрещаем редактирование текста  текст.Показать("Ведомость перечислений  в  банк");

конецПроцедуры // ВедомостьБанк

// Добавляет  в  ведомость  строку  под  номером ном и  корректирует значение  переменной всего

процедура СтрокаВТекст(сотр, текст, ном, всего)

// Открываем выборку расчетов объекта, зарегистрированных  в текущем  периоде ВыбратьПериодПоОбъекту(сотр);

пока  ПолучитьЗапись() = 1 цикл

если  видРасч =  ВидРасчета.ВБанк_2  тогда всего = всего + Результат;

// Форматируем данные в соответствии с заголовком табличной  части ведомости текст.ДобавитьСтроку(" " + Формат(ном, "С5") + ":" +

Формат(Объект.Наименование, "С27") + ": " + Формат(Объект.Код, "С9") + ":" + Формат(Результат, "410.2") + " : " + Формат("Б-" + Строка(Объект.Код), "С9"));

возврат; конецЕсли;

конецЦикла; // пока конецПроцедуры // СтрокаВТекст

Результат для третьего цеха приведен на рис. 7.81.

Рис. 7.81. Ведомость для третьего цеха

Замечание.   Чтобы   получить  отображение  ведомости  перечислений  в  банк  равномерным шрифтом, была выполнена  цепочка Текст  Текст  модуля.

Источник: Бартеньев О. В. 1С:Предприятие:  программирование для  всех.  Базовые объекты и расчеты на одной дискете. М.: Диалог-МИФИ, 2005. 464 с.

По теме:

  • Комментарии