1С (1C): Вопросы по конфигурациям (часть 4) - [37] :: Программы

В обработку конвертации Камина в начало нужно вписать следующее:

Код:

Функция Гл_ЗначениеНеЗаполнено(Значение) Экспорт
//ldg
Результат = Ложь;
ТипЗначения = ТипЗнч(Значение);
// Сначала примитивные типы
Если Значение = Неопределено Тогда
Результат = Истина;
ИначеЕсли Значение = NULL Тогда
Результат = Истина;
ИначеЕсли ТипЗначения = Тип("Строка") Тогда
Если СокрЛП(Значение) = "" Тогда
Результат = Истина;
КонецЕсли;
ИначеЕсли ТипЗначения = Тип("Число") Тогда
Если Значение = 0 Тогда
Результат = Истина;
КонецЕсли;
ИначеЕсли ТипЗначения = Тип("Дата") Тогда
Если Значение = Дата('00010101') Тогда
Результат = Истина;
КонецЕсли;
ИначеЕсли ТипЗначения = Тип("Булево") Тогда
Результат = Ложь; // Булево будем считать не пустым
// Для остальных будем считать значение пустым, если оно равно
// дефолтному значению своего типа
Иначе
Если Значение = Новый(ТипЗначения) Тогда
Результат = Истина;
КонецЕсли;
КонецЕсли;
Возврат Результат;
КонецФункции

Функция Гл_СформироватьОписаниеДокумента(п_Контекст) Экспорт
л_Описание = "";
л_Тип = ТипЗнч(п_Контекст);
Если (л_Тип = Тип("ДокументОбъект.Табель")) или (л_Тип = Тип("ДокументОбъект.НачПростое")) или (л_Тип = Тип("ДокументОбъект.НДФЛ")) или (л_Тип = Тип("ДокументОбъект.Удержание"))
или (л_Тип = Тип("ДокументОбъект.Выплата")) или (л_Тип = Тип("ДокументОбъект.ВхСальдо")) или (л_Тип = Тип("ДокументОбъект.Дивиденды")) или (л_Тип = Тип("ДокументОбъект.ПрочиеДоходы"))
или (л_Тип = Тип("ДокументОбъект.НачСложное")) или (л_Тип = Тип("ДокументОбъект.РасчетПоИЛ")) или (л_Тип = Тип("ДокументОбъект.НачПоСреднему")) или (л_Тип = Тип("ДокументОбъект.ИзменениеСеверныхНадбавок")) Тогда
л_Строк = 0;
л_Описание = "";
Если (л_Тип = Тип("ДокументОбъект.НачПростое")) или (л_Тип = Тип("ДокументОбъект.Дивиденды")) или (л_Тип = Тип("ДокументОбъект.НачПоСреднему")) Тогда
л_Описание = л_Описание + п_Контекст.Начисление + ",";
ИначеЕсли л_Тип = Тип("ДокументОбъект.Выплата") Тогда
л_Описание = л_Описание + п_Контекст.ВидВыплаты + ",";
ИначеЕсли л_Тип = Тип("ДокументОбъект.Удержание") Тогда
л_Описание = л_Описание + п_Контекст.УдержаниеШапки + ",";
ИначеЕсли л_Тип = Тип("ДокументОбъект.ПрочиеДоходы") Тогда
л_Описание = л_Описание + п_Контекст.ПрочийДоход + ",";
ИначеЕсли (л_Тип = Тип("ДокументОбъект.НачСложное")) Тогда
КонецЕсли;
л_Строк = п_Контекст.ТаблицаДокумента.Количество();
Если л_Строк = 1 Тогда
л_Строка1 = п_Контекст.ТаблицаДокумента[0];
л_Сотр = л_Строка1.Сотрудник;
л_Описание = л_Описание + Строка(л_Сотр);
ИначеЕсли л_Строк > 1 Тогда
л_Колво = п_Контекст.ТаблицаДокумента.Количество();
л_Описание = л_Описание + Строка(л_Колво)+" стр. ";
л_Строка1 = п_Контекст.ТаблицаДокумента[0];
л_Сотр = л_Строка1.Сотрудник;
л_Описание = л_Описание + Строка(л_Сотр);
л_Строка2 = п_Контекст.ТаблицаДокумента[л_строк - 1];
л_Сотр = л_Строка2.Сотрудник;
л_Описание = л_Описание +"..." + Строка(л_Сотр);
КонецЕсли;
ИначеЕсли л_Тип = Тип("ДокументОбъект.Договор") Тогда
л_Описание = л_Описание + п_Контекст.Сотрудник + " Дог.№ " + п_Контекст.НомерДоговора + " от " + Формат(п_Контекст.ДатаЗаключенияДоговора,"ДЛФ=Д");
КонецЕсли;
л_Описание = л_Описание + п_Контекст.Комментарий;
Возврат(л_Описание)
КонецФункции

Модерирует : gyra, Maz
Widok (01-06-2010 13:11): Лимит страниц. Продолжаем здесь.	Версия для печати • Подписаться • Добавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101