![]() |
![]() |
![]() |
|
Проблема с "ПереченьПлатежей" УПП 8.2 | ☑ | ||
---|---|---|---|---|
0
demous
16.12.11
✎
11:15
|
Вообщем возникла проблема, при формировании документа ( перечень платежей, который формируется на основе "ЗаявкаНаРасходованиеСредств") в список полученый попадают как неоплаченные заявки, так и оплаченные, может кто встречался с такой проблемой? суть в том что должны выводиться только неоплаченные заявки...
|
|||
1
shuhard
16.12.11
✎
11:21
|
(0) в типовой УПП нет такого документа,
все вопросы к автору дописки |
|||
2
demous
16.12.11
✎
11:29
|
Эх, проблематично тогда все получается(((
|
|||
3
shuhard
16.12.11
✎
11:34
|
(2) что-то мешает открыть конфигуратор и разобраться ?
|
|||
4
demous
16.12.11
✎
11:40
|
пытаюсь, опыта малова-то еще
вот процедура единственная, в которой встречается реквизит - оплачено Процедура СоздатьДокументПоЗаявкеНаСумму(СтрокаТЧ, НомерДока) Заявка = СтрокаТЧ.Заявка; Сумма = СтрокаТЧ.КПеречислению; //Заявка = Документы.ЗаявкаНаРасходованиеСредств.НайтиПоНомеру(); Если Заявка.ФормаОплаты = Перечисления.ВидыДенежныхСредств.Безналичные Тогда Документ = Документы.ПлатежноеПоручениеИсходящее.СоздатьДокумент(); Документ.НазначениеПлатежа = СокрЛП(СтрокаТЧ.ОснованиеПлатежа) + " По счету "+СтрокаТЧ.НомерСчета; Документ.Заполнить(Заявка); УправлениеДенежнымиСредствами.ЗаполнитьРеквизитыРасчетногоДокумента(Документ, глЗначениеПеременной("глТекущийПользователь"), Документ.мВалютаРегламентированногоУчета,Документ.РасшифровкаПлатежа,,Заявка); Если ЗначениеЗаполнено(СтрокаТЧ.Счет) И ТипЗнч(СтрокаТЧ.Счет) = Тип("СправочникСсылка.БанковскиеСчета") Тогда Документ.СчетОрганизации = СтрокаТЧ.Счет; КонецЕсли; Документ.Дата = Дата; Если Документ.РасшифровкаПлатежа.Количество()>0 Тогда ВалютаВзаиморасч = СтрокаТЧ.ВалютаВзаиморасчетов; Документ.РасшифровкаПлатежа[0].СуммаВзаиморасчетов = МодульВалютногоУчета.ПересчитатьИзВалютыВВалюту(Сумма, ВалютаДокумента, ВалютаВзаиморасч, МодульВалютногоУчета.ПолучитьКурсВалюты(ВалютаДокумента, КонецДня(Дата)).Курс, МодульВалютногоУчета.ПолучитьКурсВалюты(ВалютаВзаиморасч, КонецДня(Дата)).Курс) ; Документ.РасшифровкаПлатежа[0].СуммаПлатежа = Сумма; Документ.РасшифровкаПлатежа[0].ДокументПланированияПлатежа = Заявка; Документ.РасшифровкаПлатежа[0].СтавкаНДС = Заявка.РасшифровкаПлатежа[0].СтавкаНДС; УправлениеДенежнымиСредствами.ПересчитатьСуммуНДС(Документ.РасшифровкаПлатежа[0]); //Документ.РасшифровкаПлатежа[0].СуммаНДС = Заявка.РасшифровкаПлатежа[0].СуммаНДС; КонецЕсли; Документ.СуммаДокумента = Сумма; Документ.ОтражатьВБухгалтерскомУчете = Истина; УправлениеДенежнымиСредствами.ЗаполнитьСчетаУчетаПлатежейБУ(Документ,глЗначениеПеременной("глТекущийПользователь"),Истина); Документ.Оплачено = Истина; Документ.ДатаОплаты = Дата; //Если НЕ Документ.Организация.Пустая() Тогда // Документ.ИННПлательщика = Документ.Организация.ИНН; // Документ.КПППлательщика = Документ.Организация.КПП; //КонецЕсли; //Если НЕ Документ.Контрагент.Пустая() Тогда // Документ.ИННПолучателя = Документ.Контрагент.ИНН; // Документ.КПППолучателя = Документ.Контрагент.КПП; //КонецЕсли; АвтоЗначенияРеквизитов = ФормированиеПечатныхФорм.СформироватьАвтоЗначенияРеквизитовПлательщикаПолучателя( Документ.Организация, Документ.СчетОрганизации, Документ.Контрагент, Документ.СчетКонтрагента, Документ.ВидОперации, Документ.ПеречислениеВБюджет); Документ.ТекстПлательщика = АвтоЗначенияРеквизитов.ТекстПлательщика; Документ.ИННПлательщика = АвтоЗначенияРеквизитов.ИННПлательщика; Документ.КПППлательщика = АвтоЗначенияРеквизитов.КПППлательщика; Документ.ТекстПолучателя = АвтоЗначенияРеквизитов.ТекстПолучателя; Документ.ИННПолучателя = АвтоЗначенияРеквизитов.ИННПолучателя; Документ.КПППолучателя = АвтоЗначенияРеквизитов.КПППолучателя; Документ.ОчередностьПлатежа = 6; Документ.ВидПлатежа = "Электронно"; СформироватьНазначениеПлатежа(Документ, Документ.РасшифровкаПлатежа[0]); Иначе Документ = Документы.РасходныйКассовыйОрдер.СоздатьДокумент(); Документ.Заполнить(Заявка); УправлениеДенежнымиСредствами.ЗаполнитьРеквизитыРасчетногоДокумента(Документ, глЗначениеПеременной("глТекущийПользователь"), Документ.мВалютаРегламентированногоУчета,Документ.РасшифровкаПлатежа,,Заявка); Если ЗначениеЗаполнено(СтрокаТЧ.Счет) И ТипЗнч(СтрокаТЧ.Счет) = Тип("СправочникСсылка.Кассы") Тогда Документ.Касса = СтрокаТЧ.Счет; КонецЕсли; Документ.Дата = Дата; Если Документ.РасшифровкаПлатежа.Количество()>0 Тогда Документ.РасшифровкаПлатежа[0].СуммаВзаиморасчетов = Сумма; Документ.РасшифровкаПлатежа[0].СуммаПлатежа = Сумма; КонецЕсли; Документ.СуммаДокумента = Сумма; Документ.ОтражатьВБухгалтерскомУчете = Истина; Документ.Оплачено = Истина; //Документ.ДатаОплаты = Дата; УправлениеДенежнымиСредствами.ЗаполнитьСчетаУчетаПлатежейБУ(Документ,глЗначениеПеременной("глТекущийПользователь"),Истина); КонецЕсли; Если Заявка.Состояние<>Перечисления.СостоянияОбъектов.Утвержден Тогда //Утвердим заявки по которым сделали платеж ЗаявкаОбъект = Заявка.ПолучитьОбъект(); ЗаявкаОбъект.Состояние = Перечисления.СостоянияОбъектов.Утвержден; ЗаявкаОбъект.Записать(); КонецЕсли; Попытка Если СокрЛП(НомерПлатежки)<>"" Тогда Документ.Номер = НомерДока; КонецЕсли; Документ.Записать(); СтрокаТЧ.ПлатежноеПоручение = Документ.Ссылка; //Возврат Документ.Ссылка; Исключение //Возврат Неопределено; Сообщить("Не удалось создать документ: " + ОписаниеОшибки()); КонецПопытки; КонецПроцедуры |
|||
5
demous
16.12.11
✎
11:41
|
может кто подскажет?
|
|||
6
demous
16.12.11
✎
12:51
|
ни кто не знает?(((
|
|||
7
demous
16.12.11
✎
15:05
|
печально(((
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |