tavedo
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
В выгруженном txt файле не подсчитывает итоговую сумму:
Список перечисляемой в банк зарплаты за Март 2013
№ п/п Сотрудник (ФИО) Лицевой счет Перечислено
1 ХХХХХХХХХХХХХХХХХХХХХХ ХХХХХХХХХХХХХХ 1566.00
2 ХХХХХХХХХХХХХХХХХХХХХХ ХХХХХХХХХХХХХХ 2349.00
3 ХХХХХХХХХХХХХХХХХХХХХХ ХХХХХХХХХХХХХХ 2349.00
Итого:
Директор
Гл. бухгалтер
Код выгрузки:
Процедура ВыгрузитьВТекст()
// Раскладываем дату для имени файла
Год = СокрЛП(Год(ДатаАктуальности));
Месяц = СокрЛП(Месяц(ДатаАктуальности));
День = СокрЛП(День(ДатаАктуальности));
Если СтрДлина(День) = 1 Тогда
День = "0"+День;
КонецЕсли;
Если СтрДлина(Месяц) = 1 Тогда
Месяц = "0"+Месяц;
КонецЕсли;
// Выгружаем в файл
Текст = Новый ТекстовыйДокумент();
ПолноеИмяФайла = Каталог + "\" + ИмяФайлаВыгрузки +НомерПП+"_"+ Прав(День,2)+ Прав(Месяц,2) + Прав(Год,2) +".txt";
Текст.Записать(ПолноеИмяФайла,Кодировка);
Текст.ДобавитьСтроку("Список перечисляемой в банк зарплаты за "+ Формат(ДатаАктуальности,"ДФ='ММММ гггг'"));
Текст.ДобавитьСтроку("№ п/п "+" Сотрудник (ФИО) "+" Лицевой счет "+" Перечислено");
СчетчикВыгрузки = 0;
Для Каждого ТекущаяСтрока Из ТаблицаВыгрузки Цикл
// Разбивает ФИО по отдельности.
//Фам=""; Им=""; Отч="";
//Физл=текущаяСтрока.чел;
//Фам=Врег(СокрЛП(текущаяСтрока.чел));
//М=Найти(Фам," ");
//Если М>0 Тогда
// Им=СокрЛП(Сред(Фам,М+1));
// Фам=Лев(Фам,М-1);
// М=Найти(Им," ");
// Если М>0 Тогда
// Отч=СокрЛП(Сред(Им,М+1));
// Им=Лев(Им,М-1);
// КонецЕсли;
//КонецЕсли;
ТекущаяСтрока.Денежка = Формат(ТекущаяСтрока.Денежка,"ЧГ=6 ;ЧРД='.'; ЧДЦ=2");
Если ТекущаяСтрока.НомерСчета = "" Тогда
// Если у сотрудника нет Лицевого счета, тогда не выгружаем его в файл
Сообщить ("ВНИМАНИЕ!!! У "+ТекущаяСтрока.Чел+" НЕТ ЛИЦЕВОГО СЧЕТА, ЗАВЕДИТЕ СОТРУДНИКУ ЛИЦЕВОЙ СЧЕТ И ПОВТОРИТЕ ВЫГРУЗКУ");
Продолжить;
//СтрокаВыгрузки = "";
//Для ии = 0 По ПорядокРеквизитов.Количество()-1 Цикл
// СтрокаВыгрузки = СтрокаВыгрузки+?(ПорядокРеквизитов.Получить(ии).Пометка,текущаяСтрока[ПорядокРеквизитов.Получить(ии).Значение]+СимволРазделитель,"");
//КонецЦикла;
//Текст.ДобавитьСтроку(СтрокаВыгрузки);
Иначе
// динамически формируем строку выгрузки, т.к. порядок реквизитов выгрузки может редактировать пользователь
СтрокаВыгрузки = "";
Для ии = 0 По ПорядокРеквизитов.Количество()-1 Цикл
СтрокаВыгрузки = СтрокаВыгрузки+?(ПорядокРеквизитов.Получить(ии).Пометка,текущаяСтрока[ПорядокРеквизитов.Получить(ии).Значение]+СимволРазделитель,"");
КонецЦикла;
Текст.ДобавитьСтроку(СтрокаВыгрузки);
СчетчикВыгрузки = СчетчикВыгрузки+1;
КонецЕсли
КонецЦикла;
//Текст.ДобавитьСтроку("Итого Зачисление:"+ТекущаяСтрока.Номерок+" Итого:"+Формат(ОБщаяСумма,"ЧЦ=10; ЧДЦ=2; ЧРД=.; ЧГ=0"));
Текст.ДобавитьСтроку("Итого: "+Формат(ТаблицаВыгрузки.Итог("Денежка"),"ЧЦ=10; ЧДЦ=2; ЧРД=.; ЧГ=0"));
Текст.ДобавитьСтроку("Директор "+" ");
Текст.ДобавитьСтроку("Гл. бухгалтер "+" ");
Текст.Записать(ПолноеИмяФайла,Кодировка);
Сообщить("Сформирован файл: "+ПолноеИмяФайла+". Всего выгружено строк: "+СчетчикВыгрузки);
КонецПроцедуры
Нужно чтоб сумма Итого: была = 6264.00
|
Программы » 
Варезник » 
