Новости для бухгалтера, бухучет, налогообложение, отчетность, ФСБУ, прослеживаемость и маркировка, 1С:Бухгалтерия

Вход или Регистрация

Показывать по 10 20 40 сообщений
Новая тема Ответить
Письмо в техподдержку 1С
[Прочее]

Удаление нулевых строк в таблице...1с Автосервис

Янушка
читатель
офлайн
Дата регистрации: 01.09.2010
Сообщений: 11
Пост №1
 
13.10.2010 12:39

"Здравствуйте!!!<br>У меня возникла проблема, есть небольшой отчет, который выводит всего 4 столбика:<br><br>№ /Цех-ФИО / Количество Н/ Ч с [ДатаНачала] / Сумма выработки с [ДатаНачала] / Заработная плата с [ДатаНачала]<br><br>Соответственно, документ делает вывод всех сотрудников, у которых и есть суммы, у которых сумм нет...<br><br>Как сделать так, чтобы сотрудники у которых ЗП = 0 не выводились вообще в отчете?<br><br>Я начинающий, но очень интересно..делается это запросом или нет?<br><br>Вот код Модуля:<br>//*****************************************<br>//*******************************************<br>Процедура Сформировать()<br> Перем ВидРемонта[2];<br> Если ДатаКонца>ПолучитьДатуТА() Тогда<br> Предупреждение("Получить отчет за датой актуальности итогов невозможно");<br> Возврат;<br> КонецЕсли;<br> ВидРемонта[1]=Перечисление.ВидыРемонта.Текущий;<br> ВидРемонта[2]=Перечисление.ВидыРемонта.ПоГарантии;<br> Цех=СоздатьОбъект("Справочник.Цеха");<br> Исп=СоздатьОбъект("Справочник.Исполнители");<br> Рег=СоздатьОбъект("Регистр.ОбъемРабот");<br> Таб=СоздатьОбъект("Таблица"); <br> Таб.ИсходнаяТаблица("Таблица");<br> Таб.ПовторятьПриПечатиСтроки(3,3);<br> Таб.ВывестиСекцию("Шапка");<br> Цех.ВыбратьЭлементы();<br> Ном=0;<br> Пока Цех.ПолучитьЭлемент()=1 Цикл<br> СумКолНЧ=0;<br> ЗП=0;<br> СумКолРуб=0;<br> ТекДата=ДатаНачала;<br> Пока Дата(ТекДата)<=ДатаКонца Цикл<br> ПроцНДС=Константа.ОсновнаяСтавкаНДС.Значение.Получить(ТекДата);<br> БезНДС=1-ПроцНДС/(100+ПроцНДС);<br> Рег.ИспользоватьПериод(ДатаГод(ТекДата),ДатаМесяц(ТекДата),ДатаЧисло(ТекДата));<br> КолНЧЗаДень=0;<br> КолРубЗаДень=0;<br> ЗП=0;<br> Для Н=1 По 2 Цикл<br> Рег.СводныеИтоги(ВидРемонта[Н],Цех.ТекущийЭлемент(),);<br> КолНЧ=Рег.ОбъемНал+Рег.ОбъемБезНал+Рег.ОбъемНеОплач;<br> КолНЧЗаДень=КолНЧЗаДень+КолНЧ;<br> СумКолНЧ=СумКолНЧ+КолНЧ;<br> КолРуб=Пересчет(КолНЧ,Константа.ОсновнаяВалютаУслуги,Рубли,ТекДата);<br> КолРуб=КолРуб*БезНДС;<br> КолРубЗаДень=КолРубЗаДень+КолРуб;<br> СумКолРуб=СумКолРуб+КолРуб;<br> ЗП=СумКолРуб*0.400;<br> КонецЦикла;<br> ТекДата=ТекДата+1;<br> КонецЦикла;<br> Таб.ВывестиСекцию("Цех");<br> Исп.ИспользоватьВладельца(Цех.ТекущийЭлемент());<br> Исп.ВыбратьЭлементы();<br> Пока Исп.ПолучитьЭлемент()=1 Цикл<br> Если Исп.ЭтоГруппа()=1 Тогда<br> Продолжить;<br> КонецЕсли;<br> Ном=Ном+1;<br> СумКолНЧ=0;<br> СумКолРуб=0;<br> ЗП=0;<br> ТекДата=ДатаНачала;<br> Пока Дата(ТекДата)<=ДатаКонца Цикл<br> ПроцНДС=Константа.ОсновнаяСтавкаНДС.Значение.Получить(ТекДата);<br> БезНДС=1-ПроцНДС/(100+ПроцНДС);<br> Рег.ИспользоватьПериод(ДатаГод(ТекДата),ДатаМесяц(ТекДата),ДатаЧисло(ТекДата));<br> КолНЧЗаДень=0;<br> КолРубЗаДень=0;<br> Для Н=1 По 2 Цикл<br> Рег.Итоги(ВидРемонта[Н],Цех.ТекущийЭлемент(),Исп.ТекущийЭлемент());<br> КолНЧ=Рег.ОбъемНал+Рег.ОбъемБезНал+Рег.ОбъемНеОплач;<br> КолНЧЗаДень=КолНЧЗаДень+КолНЧ;<br> СумКолНЧ=СумКолНЧ+КолНЧ;<br> КолРуб=Пересчет(КолНЧ,Константа.ОсновнаяВалютаУслуги,Рубли,ТекДата);<br> КолРуб=КолРуб*БезНДС;<br> КолРубЗаДень=КолРубЗаДень+КолРуб;<br> СумКолРуб=СумКолРуб+КолРуб;<br> ЗП=СумКолРуб*0.400;<br> КонецЦикла;<br> ТекДата=ТекДата+1;<br> КонецЦикла;<br><br> Таб.ВывестиСекцию("Строка");<br> <br> КонецЦикла;<br> КонецЦикла;<br><br> Таб.Защита(Константа.ФлагЗащитыТаблиц);<br> Таб.ТолькоПросмотр(1);<br> Таб.Опции(0,0,3,0,Портрет);<br> Таб.ПараметрыСтраницы(1,,,Константа.ПолеСлева,Константа.ПолеСправа,Константа.ПолеСверху,Константа.ПолеСнизу,,,1);<br> Таб.Показать("Персональная выработка",""""); <br>КонецПроцедуры<br>//-------------------------------------- <br><br><br>ДатаКонца=ПолучитьДатуТА();<br>ДатаНачала=НачМесяца(ДатаКонца);<br>//*********************************************<br><br><br>Заранее всем спасибо))))"

zak555 (398843952)
читатель
офлайн
Дата регистрации: 27.03.2008
Сообщений: 4656
Пост №2
 
13.10.2010 12:54

переписать отчёт "в запрос"

Янушка
читатель
офлайн
Дата регистрации: 01.09.2010
Сообщений: 11
Пост №3
 
13.10.2010 12:57

я пока в запросах не мастак....как?

zak555 (398843952)
читатель
офлайн
Дата регистрации: 27.03.2008
Сообщений: 4656
Пост №4
 
13.10.2010 13:11

> я пока в запросах не мастак....как?<br><br>структура регистра ОбъемРабот<br>+ он оборотный или остатков ?

Показывать по 10 20 40 сообщений

Читают тему:

Быстрый переход
Для технических специалистов
  • Книга жалоб и предложений по работе сайта
  • Для технических специалистов
  • Представление регламентированной отчетности
  • Говорильня
  • Бухгалтерский учет: обсуждаем проекты нормативных актов и рекомендаций по ведению учета от БМЦ
  • Новый порядок применения ККТ (онлайн кассы с передачей сведений в ФНС)
  • Интернет-конференция: Оформление командировок по новым правилам
  • МАРКИРОВКА
  • ЕГАИС
  • Учет, налогообложение, автоматизация