Заказы на доработку 1С (сервис удаленной работы)
Хранилище
База знаний
Неназначенных незавершенных заказов: 2
 Бесплатные отчеты, обработки, конфигурации, внешние компоненты для 1С Статьи, описание работы, методики по работе с 1С

Здравствуйте, гость ( Войти | Зарегистрироваться )



История благодарностей участнику tgpov ::: Спасибо сказали: 4 раз
Дата поста: В теме: За сообщение: Спасибо сказали:
11.02.09, 13:44 Ошибки в конфигурации ЗиК 7.7
Отчет.Расчетные ведомости


// ===============================
Процедура ВыполнитьЗапрос(ПечФорма)
...
	ИначеЕсли (ПечФорма = "ВедомостьП6") ИЛИ (ПечФорма = "ВедомостьП7") Тогда

добавить


|Функция СуммаМежрасчетных = Сумма(Сумма)           когда((ВидРасч = ВидРасчета.ВыплатаЧерезБанк) ИЛИ (ВидРасч = ВидРасчета.ВыплатаЧерезКассу) ИЛИ (ВидРасч = ВидРасчета.ВыплатаНатурой));
MATEVI,
11.02.09, 12:33 Ошибки в конфигурации ЗиК 7.7
Ошибка 7.7 ЗиК регламентные отчеты форма 1дф 


Процедура РассчитатьПоФактуВыплаты()
...
	тбНачисленоДляЛьгот.ВыбратьСтроки();
	тбНачисленоДляЛьгот.ПолучитьСтроку(); 
	
	тбНачислено.Сортировать("ИНН+, Сотр*, ПериодДействия+");
	тбНачислено.ВыбратьСтроки();
	Пока тбНачислено.ПолучитьСтроку() = 1 Цикл
		Если (тбНачисленоДляЛьгот.Сотр <> тбНачислено.Сотр)
		ИЛИ (тбНачисленоДляЛьгот.ПериодДействия <> тбНачислено.ПериодДействия)
		Тогда
			тбНачисленоДляЛьгот.ПолучитьСтроку();
		КонецЕсли;
		тбНачислено.НачисленоДляЛьгот = тбНачисленоДляЛьгот.Начислено; 
	КонецЦикла;


Возможно такое решение (синхронизируем две таблицы по сотруднику)



	тбНачислено.ВыбратьСтроки();
	Пока тбНачислено.ПолучитьСтроку() = 1 Цикл
		Если (тбНачисленоДляЛьгот.Сотр <> тбНачислено.Сотр)
		ИЛИ (тбНачисленоДляЛьгот.ПериодДействия <> тбНачислено.ПериодДействия)
		Тогда
			Если тбНачисленоДляЛьгот.ИНН > тбНачислено.ИНН   Тогда
				Пока тбНачислено.Сотр <> тбНачисленоДляЛьгот.Сотр Цикл 
					тбНачисленоДляЛьгот.ПолучитьСтроку();
				КонецЦикла;
				Если тбНачисленоДляЛьгот.ПериодДействия = тбНачислено.ПериодДействия Тогда
					тбНачислено.НачисленоДляЛьгот = тбНачисленоДляЛьгот.Начислено; 
				КонецЕсли;
			КонецЕсли;
		Иначе
			тбНачислено.НачисленоДляЛьгот = тбНачисленоДляЛьгот.Начислено; 
		КонецЕсли;
	КонецЦикла;
MATEVI,
11.02.09, 1:27 Ошибки в конфигурации ЗиК 7.7
Регламентированные отчеты персонификация в ПФ personpf.ert. Не правильно ведется подсчет количества дней


Процедура ИндДанныеСотр(Знач Сотр)
...
			Пока ТабДвиженияСотр.ПолучитьСтроку() = 1 Цикл
				Если (ДатаПериода >= ТабДвиженияСотр.ДатаПриема) И (ДатаПериода <= ТабДвиженияСотр.ДатаУвольнения)
				ИЛИ (ДатаПериода >= ТабДвиженияСотр.ДатаПриема)	И (Число(ТабДвиженияСотр.ДатаУвольнения)=0)
				Тогда
					ДатаС = ДатаПериода;
					Если ТабДвиженияСотр.ДатаПриема > ДатаПериода Тогда
						ДатаС = ТабДвиженияСотр.ДатаПриема;
					КонецЕсли;
					ДатаПо = КонПериода;
					Если (ДатаЧисло(ТабДвиженияСотр.ДатаУвольнения) <> 0) И (ТабДвиженияСотр.ДатаУвольнения < КонПериода) Тогда
						ДатаПо = ТабДвиженияСотр.ДатаУвольнения;
					КонецЕсли;
					Прервать;
				КонецЕсли;
			КонецЦикла;


РЕшение


Процедура ИндДанныеСотр(Знач Сотр)
.....
                        ТабДвиженияСотр. ВыбратьСтроки();
			Пока ТабДвиженияСотр.ПолучитьСтроку() = 1 Цикл
				Если (КонПериода >= ТабДвиженияСотр.ДатаПриема) И (ДатаПериода <= ТабДвиженияСотр.ДатаУвольнения)
				ИЛИ (КонПериода >= ТабДвиженияСотр.ДатаПриема)	И (Число(ТабДвиженияСотр.ДатаУвольнения)=0)
				Тогда
					ДатаС = ДатаПериода;
					Если ТабДвиженияСотр.ДатаПриема > ДатаПериода Тогда
						ДатаС = ТабДвиженияСотр.ДатаПриема;
					КонецЕсли;
					ДатаПо = КонПериода;
					Если (ДатаЧисло(ТабДвиженияСотр.ДатаУвольнения) <> 0) И (ТабДвиженияСотр.ДатаУвольнения < КонПериода) Тогда
						ДатаПо = ТабДвиженияСотр.ДатаУвольнения;
					КонецЕсли;
					Прервать;
				КонецЕсли;
			КонецЦикла;
gryphus, navys,

RSS Текстовая версия Сейчас: 16.06.25, 8:52
Форум IP.Board © 2025  IPS, Inc.
1С Предприятие 8.3, 1С Предприятие 8.2, 1С Предприятие 8.1, 1С Предприятие 8.0, 1С Предприятие 7.7, Литература 1С, Общие вопросы по администрированию 1С, Методическая поддержка 1С - всё в одном месте: на Украинском 1С форуме!