1C Программирование и поддержка - [34] :: Прикладное программирование

St01en

Цитата:

TrustyM
Что непонятно?
Цитата:Неверный тип значения

Значит СчетФактура имеет тип не СтрокаСФ. Чтобы точнее ответить - нужно видеть код, а не только сообщение об ошибке.

какой кусок кода тебе надо видеть?
Если ТипЗнч(СтрокаСФ.СчетФактура) = Тип("ДокументСсылка.ВозвратТоваровПоставщику")
            Или ТипЗнч(СтрокаСФ.СчетФактура) = Тип("ДокументСсылка.ВозвратТоваровПоставщикуИзНТТ")
            // По возвратам оплата не определяется
            Или ТипЗнч(СтрокаСФ.СчетФактура) = Тип("ДокументСсылка.ОтчетКомитентуОПродажах")
            Или ТипЗнч(СтрокаСФ.СчетФактура) = Тип("ДокументСсылка.ОтчетОРозничныхПродажах") Тогда

            НаличиеОплатыНеТребуется = Истина;
        Иначе
                НаличиеОплатыНеТребуется = (СтрокаСФ.Строки[0].МоментОпределенияНалоговойБазыНДС = МоментОпределения_ПоОтгрузке) Или Дата >= '20080101';
            ТаблицаОплат.Очистить();
            Отбор = Построитель_РаспределенныеОплаты.Отбор;
            Отбор.СчетФактура.Значение = СтрокаСФ.СчетФактура;
            Отбор.РаспределеннаяОплата.ВидСравнения = ?(СтрокаСФ.СуммаСНДС>0,ВидСравнения.Больше,ВидСравнения.Меньше);

            Построитель_РаспределенныеОплаты.Выполнить();
            Если Построитель_РаспределенныеОплаты.Результат.Пустой() и не НаличиеОплатыНеТребуется и СтрокаСФ.СуммаСНДС    >= 0 Тогда
                // Оплата не обнаружена
                Продолжить;
            КонецЕсли;

            ВыборкаОплат = Построитель_РаспределенныеОплаты.Результат.Выгрузить(ОбходРезультатаЗапроса.Прямой);

            СуммаКПогашению = СтрокаСФ.СуммаСНДС;

            Для каждого СтрокаРаспределеннойОплаты Из ВыборкаОплат Цикл
                СтрокаОплаты = ТаблицаОплат.Добавить();
                СтрокаОплаты.ДокументОплаты = СтрокаРаспределеннойОплаты.ДокументОплаты;
                СтрокаОплаты.ДатаОплаты = СтрокаРаспределеннойОплаты.ДатаОплаты;
                Если СтрокаСФ.СуммаСНДС>0 Тогда
                    СтрокаОплаты.СуммаОплаты = Мин(СуммаКПогашению,СтрокаРаспределеннойОплаты.РаспределеннаяОплата);
                Иначе
                    СтрокаОплаты.СуммаОплаты = Макс(СуммаКПогашению,СтрокаРаспределеннойОплаты.РаспределеннаяОплата);
                КонецЕсли;

                СуммаКПогашению = СуммаКПогашению - СтрокаОплаты.СуммаОплаты;
                ТаблицаИсточникаПостроителя[СтрокаРаспределеннойОплаты.QueryId].РаспределеннаяОплата = ТаблицаИсточникаПостроителя[СтрокаРаспределеннойОплаты.QueryId].РаспределеннаяОплата - СтрокаОплаты.СуммаОплаты;

                Если СуммаКПогашению = 0 Тогда
                    Прервать;
                КонецЕсли;
            КонецЦикла;
        КонецЕсли;
этого хватит?

Модерирует : ShIvADeSt
ShIvADeSt (30-10-2009 09:51): http://forum.ru-board.com/topic.cgi?forum=33&topic=10715	Версия для печати • Подписаться • Добавить в закладки
Страницы: 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