powered by simpleCommunicator - 2.0.50     © 2025 Programmizd 02
Форумы / [игнор отключен] [закрыт для гостей] / Форма Т2 в "Зарплата и кадры"
6 сообщений из 6, страница 1 из 1
Форма Т2 в "Зарплата и кадры"
    #34744260
ARTAVOH
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Всем привет!у меня такая проблема:в 1с 7.7 Зарплата и кадры
в базе есть сотрудник у которого есть отпуска с 2002 по 2007 год,формирую по нему форму Т2 (отпуска ,больничные .....) в печатную форму попадают только отпуска с 2002 по 2004!все документы проведенны все нормально,попробовал в конфигураторе добавить новые строки (подумал инфа не влазиет) все равно не помогло!подскажите в чем проблема где искать концы?
заранее спасибо!!!
...
Рейтинг: 0 / 0
Форма Т2 в "Зарплата и кадры"
    #34744497
Фотография klen_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
	ДБЛ = СоздатьОбъект("Документ.БольничныйЛист");
	ДБЛ.ВыбратьДокументы();
	Пока ДБЛ.ПолучитьДокумент()= 1  Цикл 
		Если (ДБЛ.Начало    <= ВыбКонПериода) 
		   И (ДБЛ.Окончание >= ВыбНачПериода) Тогда
		   	
		   	здесь пополняй таблицу значений
затем читай ПриказПоОтпуску
Код: plaintext
1.
2.
3.
4.
5.
6.
	ППО = СоздатьОбъект("Документ.ПриказПоОтпуску");
	ППО.ВыбратьДокументы();
	Пока ППО.ПолучитьДокумент()= 1  Цикл 
		Если (ППО.Начало    <= ВыбКонПериода) 
		   И (ППО.Окончание >= ВыбНачПериода) Тогда
		   	
		   	здесь опять пополняй ту же таблицу значений
дальше полученную таблицу значений сортируешь и выводишь как необходимо

или же, можно читать историю сотрудника, что наверное удобнее
короче, покажи код, как ты читаешь данные?
...
Рейтинг: 0 / 0
Форма Т2 в "Зарплата и кадры"
    #34744611
ARTAVOH
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
//******************************************************************************
// Функция ПолучитьПодчиненныйДокументОтпуск(ДокОсн)
//
// Параметры: ДокОсн - документ.Отпуск, для которого ищем документ корректировку.
//
// Описание: Возвращаем докумет отпуск, корректировка документа ДокОсн.
// Если подчиненных документов нет, возвращает 0.
//
Функция ПолучитьПодчиненныйДокументОтпуск(ДокОсн)
ПодчДокОтп = СоздатьОбъект("Документ");
ПодчДокОтп.УстановитьФильтр(1, 0);
ПодчДокОтп.ВыбратьПодчиненныеДокументы(,,ДокОсн);
Пока ПодчДокОтп.ПолучитьДокумент() = 1 Цикл
Если ПодчДокОтп.Вид() = "НачислениеОтпуска" Тогда
Возврат ПодчДокОтп.ТекущийДокумент();
КонецЕсли;

КонецЦикла;
Возврат 0;
КонецФункции // ПолучитьПодчиненныйДокументОтпуск

//******************************************************************************
// Функция ПолучитьПриказПоОтпуску(ДокНачОтп)
//
// Параметры: ДокНачОтп - Документ.НачислениеОтпуска
//
// Описание: Возвращает документ.ПриказПоОтпуску, на основании которого и был введен документ ДокНачОтп.
// Если приказПоОтпуску не найден, возвращает 0;
Функция ПолучитьПриказПоОтпуску(ДокНачОтп)
ДокПриказ = СоздатьОбъект("Документ");
ДокПриказ.ВыбратьПоЗначению(, , "Сотрудник", Сотрудник);
Пока ДокПриказ.ПолучитьДокумент() = 1 Цикл
Если ДокПриказ.ТекущийДокумент().Вид() = "ПриказПоОтпуску" Тогда
Если ((ДокНачОтп.Начало = ДокПриказ.Начало) и (ДокНачОтп.Окончание = ДокПриказ.Окончание))
или (ДокНачОтп.ДокОснование = ДокПриказ.ТекущийДокумент()) Тогда
Возврат ДокПриказ.ТекущийДокумент();
КонецЕсли;
КонецЕсли;
КонецЦикла;
Возврат 0;
КонецФункции // ПолучитьПриказПоОтпуску
...
Рейтинг: 0 / 0
Форма Т2 в "Зарплата и кадры"
    #34746315
Фотография klen_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
я бы попробовал не использовать ВыбратьПодчиненныеДокументы(),
так сказать, ради поиска причины, хотя по идее ничего не должно измениться, только дольше будет работать
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
Функция ПолучитьПодчиненныйДокументОтпуск(ДокОсн)
	ПодчДокОтп = СоздатьОбъект("Документ");
	ПодчДокОтп.УстановитьФильтр( 1 ,  0 );
	
	//ПодчДокОтп.ВыбратьПодчиненныеДокументы(,,ДокОсн);
	
	Пока ПодчДокОтп.ПолучитьДокумент() =  1  Цикл
		
		Если ДокОсн.ДокОснование = ПодчДокОтп.ТекущийДокумент() Тогда
		
			Если ПодчДокОтп.Вид() = "НачислениеОтпуска" Тогда
				Возврат ПодчДокОтп.ТекущийДокумент();
			КонецЕсли; 
			
		КонецЕсли;
	
	КонецЦикла;
	
	Возврат ПолучитьПустоеЗначение("Документ"); 
	//Возврат  0 ;
	
КонецФункции
...
Рейтинг: 0 / 0
Форма Т2 в "Зарплата и кадры"
    #34746321
Фотография klen_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ой, виноват , только сейчас увидел, что наврал
...
Рейтинг: 0 / 0
Форма Т2 в "Зарплата и кадры"
    #34746339
Фотография klen_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
вместо выбрать подчинённые, попробуй выбрать по значению
Код: plaintext
1.
	//ПодчДокОтп.ВыбратьПодчиненныеДокументы(,,ДокОсн);
	ПодчДокОтп.ВыбратьПоЗначению(ДокОсн.ДатаНачала, ДокОсн.ДатаОкончания, "Сотрудник", ДокОсн.Сотрудник);
...
Рейтинг: 0 / 0
6 сообщений из 6, страница 1 из 1
Форумы / [игнор отключен] [закрыт для гостей] / Форма Т2 в "Зарплата и кадры"
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]