Имя: Пароль:
1C
1С v8
Документ основание
0 KENT2007
 
01.07.13
20:24
Как программно создать документ ПКО на основании отчета о розничных продажах.

ВыборкаДокументов = Документы.ОтчетОРозничныхПродажах.Выбрать(Начало,Конец);
   
Пока ВыборкаДокументов.Следующий() Цикл
   
ПКО = Документы.ПриходныйКассовыйОрдер.СоздатьДокумент();
ПКО.Заполнить(Документ);
ПКО.Записать (РежимЗаписиДокумента.Проведение);
   
Конеццикла;
1 KENT2007
 
01.07.13
20:25
нужно каждый реквизита заполнять?
2 exwill
 
01.07.13
20:27
нет
3 AlexNew
 
01.07.13
20:28
Так там вроде типовое есть?
4 KENT2007
 
01.07.13
20:28
так пот не найду
5 KENT2007
 
01.07.13
20:37
вот так по каждому реквизиту?

ВыборкаДокументов = Документы.ОтчетОРозничныхПродажах.Выбрать(Начало,Конец);
   
Пока ВыборкаДокументов.Следующий() Цикл
   
ПКО = Документы.ПриходныйКассовыйОрдер.СоздатьДокумент();
ПКО.Дата=ВыборкаДокументов.Дата;
ПКО.ОтражатьВБухгалтерскомУчете=Истина;
ПКО.ОтражатьВНалоговомУчете=Истина;
ПКО.ОтражатьВУправленческомУчете=Истина;
ПКО.Заполнить(ВыборкаДокументов);
ПКО.Записать (РежимЗаписиДокумента.Проведение);
6 exwill
 
01.07.13
20:40
ПКО.Заполнить(ВыборкаДокументов.Ссылка)
7 AlexNew
 
01.07.13
20:44
Я бы правда искал, что еще не создан, чтобы не задвоить...
8 KENT2007
 
01.07.13
20:54
(6) Что то ничего не заполняется дата 01.01.0001
(7) Как проверить на существование Оснований в ООП ?
9 KENT2007
 
01.07.13
20:56
(6) Как то слишком просто
ВыборкаДокументов = Документы.ОтчетОРозничныхПродажах.Выбрать(Начало,Конец);
Пока ВыборкаДокументов.Следующий() Цикл
ПКО = Документы.ПриходныйКассовыйОрдер.СоздатьДокумент();
ПКО.Дата=ВыборкаДокументов.Дата;
ПКО.Заполнить(ВыборкаДокументов.Ссылка);
ПКО.Записать (РежимЗаписиДокумента.Проведение);
Конеццикла;
10 KENT2007
 
01.07.13
21:00
Осталось проверить на существование Основания и почему кстати у отчета стоит БЕЗ НДС, а в приходники стоит НДС 18
11 KENT2007
 
01.07.13
21:08
с НДС что то проблема от куда он видит 18%
ВыборкаДокументов = Документы.ОтчетОРозничныхПродажах.Выбрать(Начало,Конец);
//Если  ВыборкаДокументов.  
Пока ВыборкаДокументов.Следующий() Цикл
ПКО = Документы.ПриходныйКассовыйОрдер.СоздатьДокумент();
ПКО.Дата=ВыборкаДокументов.Дата;

ПКО.Заполнить(ВыборкаДокументов.Ссылка);
ПКО.СтавкаНДС=Перечисления.СтавкиНДС.БезНДС;
ПКО.Записать (РежимЗаписиДокумента.Проведение);
12 AlexNew
 
01.07.13
21:08
А ОбработкаЗаполнения в ПКО кто-то запоролил?
13 KENT2007
 
01.07.13
21:14
как ее применить есть пример
14 AlexNew
 
01.07.13
21:16
Она вызовется про ПКО.Заполнить. Какой пример?
15 KENT2007
 
01.07.13
21:18
ПКО.Заполнить(ОбработкаЗаполнения ?
16 KENT2007
 
01.07.13
21:41
что в ступоре, есть хоть пример какой?
17 KENT2007
 
01.07.13
21:50
с НДС разобрался он оказывается из настроек пользователя брал
Как теперь проверить на что существует основание у документа?
18 AlexNew
 
01.07.13
21:53
Запрос отменили?
19 KENT2007
 
01.07.13
22:00
что за запрос?
20 AlexNew
 
01.07.13
22:02
Объект такой. Запрос = Новый Запрос.
21 KENT2007
 
01.07.13
22:06
это Вы что то из другой темы тут такого не было
22 AlexNew
 
01.07.13
22:12
(21) Очко! Я угадал. Это из серии когда сисадмины УПП внедряют?
23 KENT2007
 
01.07.13
22:18
подскажи проверить документ, на пред существования у него основания?
24 AlexNew
 
01.07.13
22:27
Запрос = Новый Запрос;
Запрос.Текст = "<Текст запроса>";
Запрос.УстановитьПараметр(ИмяПараметра, Параметр);
...
Результат = Запрос.Выполнить();
Если Результат.Пустой() Тогда
...
иначе
Выборка = Результат.Выбрать();
Пока Выборка.Следующий() Цикл
...
КонецЦикла;
КонецЕсли;

Так понятней?
25 KENT2007
 
01.07.13
22:31
всмысле зпросом выбрать на предмет Основание?
26 aMz
 
02.07.13
02:51
Вообще через попытку хотя бы записывал
27 aMz
 
02.07.13
02:53
Запросом ты проверишь есть ли в базе уже документы, что бы не задвоить их
Здесь можно обсудить любую тему при этом оставаясь на форуме для 1Сников, который нужен для работы. Ymryn