| 
    
        
     
     | 
    
  | 
Проблема с "ПереченьПлатежей" УПП 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 
 | 
         
        печально(((     
         | 
| Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |