Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » 1С Программирование и поддержка (1C)

Модерирует : ShIvADeSt

 Версия для печати • ПодписатьсяДобавить в закладки
На первую страницук этому сообщениюк последнему сообщению

Открыть новую тему     Написать ответ в эту тему

alapin



Junior Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору

&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
// Вставить содержимое обработчика.
    // Установим параметры в динамическом списке
    Детализация.Параметры.УстановитьЗначениеПараметра("Ссылка", Объект.Ссылка);
    Статусы.Параметры.УстановитьЗначениеПараметра("Абонент", Объект.Ссылка);
    ПоследнийСтатус = ПолучитьСтатусНаДату(Объект.Ссылка);
    ТекущийСтатус = ПолучитьСтатусНаДату(Объект.Ссылка, ТекущаяДата());
    Заявка.Параметры.УстановитьЗначениеПараметра("Ссылка", Объкт.Ссылка);
 
 
КонецПроцедуры
 
&НаСервере
Процедура ПриЧтенииНаСервере(ТекущийОбъект)
    // Вставить содержимое обработчика.
    Если ЗначениеЗаполнено(Объект.Ссылка) Тогда // не новый
        
        // получим остатки по взаиморасчетам
        Запрос = Новый Запрос;
        Запрос.Текст = "
        |ВЫБРАТЬ
        |    НачислениеАбонплатыОстатки.СуммаОстаток КАК СуммаОстаток
        |ИЗ
        |    РегистрНакопления.НачислениеАбонплаты.Остатки(, ЛС = &Ссылка) КАК НачислениеАбонплатыОстатки";
                
        Запрос.Параметры.Вставить("Ссылка", Объект.Ссылка);
        ВыборкаРезультат = Запрос.Выполнить().Выбрать();
        Если ВыборкаРезультат.Следующий() Тогда
            ИтогоОстаткиВзаиморасчетов = ВыборкаРезультат.СуммаОстаток;
        КонецЕсли;
        
    КонецЕсли;
 
    Если ЗначениеЗаполнено(Объект.Ссылка) Тогда // не новый
        
        // получим остатки по взаиморасчетам
        Запрос = Новый Запрос;
        Запрос.Текст = "ВЫБРАТЬ
                       |    Заявка.Ссылка,
                       |    Заявка.ПометкаУдаления,
                       |    Заявка.Номер,
                       |    Заявка.Дата,
                       |    Заявка.Проведен,
                       |    Заявка.Клиент,
                       |    Заявка.Автор,
                       |    Заявка.Дом,
                       |    Заявка.Плательщик,
                       |    Заявка.Бригада,
                       |    Заявка.ДатаВыполнения,
                       |    Заявка.Примечание,
                       |    Заявка.ВидЗаявки,
                       |    Заявка.ПричинаОтключения,
                       |    Заявка.Выполнена,
                       |    Заявка.ПричинаНевыполнения,
                       |    Заявка.КоличествоКомнат,
                       |    Заявка.ВидРемонта,
                       |    Заявка.ВидДеятельности
                       |ИЗ
                       |    Документ.Заявка КАК Заявка
                       |ГДЕ
                       |    Заявка.Клиент = &Ссылка";
                
        Запрос.Параметры.Вставить("Ссылка", Объект.Ссылка);
        ВыборкаРезультат = Запрос.Выполнить().Выбрать();
                
    КонецЕсли;
 
    
    
КонецПроцедуры

Всего записей: 102 | Зарегистр. 13-08-2009 | Отправлено: 07:37 20-04-2010 | Исправлено: alapin, 11:35 20-04-2010
Открыть новую тему     Написать ответ в эту тему

На первую страницук этому сообщениюк последнему сообщению

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » 1С Программирование и поддержка (1C)


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru