Имя: Пароль:
1C
1С v8
УТ Отчет о розничных продажах и возрат
0 KENT2007
 
27.06.13
14:00
Как то в УТ особо не интересовались но при выгрузке в БП поняли что все отчеты о розничных продажах и возвраты без ПКО и РКО.
проводки по кассе есть, а в кассовой книге нет.
Никто не писал обработку по авто созданию ПКО на основаниии Отчета о розничных продажах
1 thezos
 
27.06.13
14:03
это вы инкассацию не делали вообще никогда и нал копился в операционной кассе?
2 KENT2007
 
27.06.13
14:05
ну да, вот такая контора
3 KENT2007
 
27.06.13
14:06
вопрос как исправить
4 NcSteel
 
27.06.13
14:07
обработку пиать - 30 минут
5 KENT2007
 
27.06.13
14:09
было что то похожее для Акта об оказании услуг ПХ -> Реализация товаров услуг. там я просто реквизиты копиравл. а как программно создать на основании
6 KENT2007
 
27.06.13
14:11
как то так ВыборкаДокументов = Документы.АктОбОказанииПроизводственныхУслуг.Выбрать(Начало,Конец);
   
Пока ВыборкаДокументов.Следующий() Цикл
       ОбщегоНазначения.СообщитьОбОшибке(ВыборкаДокументов);  
       РТУ = Документы.РеализацияТоваровУслуг.СоздатьДокумент();
       РТУ.ВидОперации=Перечисления.ВидыОперацийРеализацияТоваров.ПродажаКомиссия;
       РТУ.Заполнить(ВыборкаДокументов.Ссылка);
       РТУ.Организация = ВыборкаДокументов.Организация;
       РТУ.Контрагент=ВыборкаДокументов.Контрагент;
       РТУ.Дата=ВыборкаДокументов.Дата;
       РТУ.Номер=ВыборкаДокументов.Номер;
       РТУ.Комментарий="Бывший Акт Об Оказании Производственных Услуг";
       Рту.Склад="";
       РТУ.ДоговорКонтрагента= ВыборкаДокументов.ДоговорКонтрагента;
       РТУ.ВалютаДокумента= ВыборкаДокументов.ВалютаДокумента;
       РТУ.СпособЗачетаАвансов=Перечисления.СпособыЗачетаАвансов.Автоматически;
       РТУ.СчетУчетаРасчетовПоАвансам=ПланыСчетов.Хозрасчетный.РасчетыПоАвансамПолученным;
   
Для Каждого Стр Из ВыборкаДокументов.Услуги цикл  
   
Новаястрока = РТУ.Услуги.Добавить();
Новаястрока.Номенклатура=Стр.Номенклатура;
Новаястрока.Содержание=Стр.Номенклатура;
Новаястрока.Количество= Стр.Количество;
Новаястрока.Цена=Стр.Цена;
Новаястрока.Сумма = Стр.Сумма;
Новаястрока.СтавкаНДС = стр.СтавкаНДС;
Новаястрока.СчетДоходов=Стр.СчетДоходов;
Новаястрока.Субконто=Стр.Субконто;
Новаястрока.СчетУчетаНДСПоРеализации=Стр.СчетУчетаНДСПоРеализации;
Новаястрока.СчетРасходов=Стр.СчетРасходов;


 
РТУ.Записать(РежимЗаписиДокумента.Проведение);
7 KENT2007
 
27.06.13
14:18
есть у кого пример "Создания на основании"
8 KENT2007
 
27.06.13
14:26
ВыборкаДокументов = Документы.ОтчетОРозничныхПродажах.Выбрать(Начало,Конец);
   
Пока ВыборкаДокументов.Следующий() Цикл
   
ПКО = Документы.ПриходныйКассовыйОрдер.СоздатьДокумент();
ПКО.Заполнить(Документ);
ПКО.Записать (РежимЗаписиДокумента.Проведение);
   
Конеццикла;
9 KENT2007
 
27.06.13
14:36
как реквизиты заполнить?