Имя: Пароль:
1C
1С v8
Проблема с "ПереченьПлатежей" УПП 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
печально(((