БП помогите создать обработку группового ввода ПКО на основании документа оказание услуг

Сколько?

может что похожее есть?

4,5 года на Мисте и такие вопросы...

Процедура КнопкаВыполнитьНажатие(Кнопка)
       
ВыборкаДокументов = Документы.???.Выбрать(НачалоГода(ТекущаяДата()), КонецГода(ТекущаяДата()));
   
Пока ВыборкаДокументов.Следующий() Цикл
   
ПКО = Документы.???.СоздатьДокумент();
ПКО.ОбработкаЗаполнения(ВыборкаДокументов.Ссылка);
ПКО.Записать();
КонецЦикла;
   
КонецПроцедуры

если есть кусок похожий выложите плиз, буду пробывать...

кто сможет помочь?

Помогут многие, вопрос в цене

(4) 50% обработки уже написано

и сколько будет стоит помощь?

4000 рублей

3999

ты дорогой спец, мне кого нить по проще

(4) Что не получается то?

10000руб
3000руб тебе, 3000руб мне и за 4000руб (10) сделает

(13) как табличную часть выбрать

Ну тогда продолжайте попрошайничать

(14) - 50% я уже написал )

(15) Продам СП. Недорого. Научу им пользоваться. ОЧЕНЬ дорого :))

(15) Через точку не разименовывается? В конструкторе запросов нельзя выбрать ТЧ?

Процедура КнопкаВыполнитьНажатие(Кнопка)
       
ВыборкаДокументов = Документы.???.Выбрать(НачалоГода(ТекущаяДата()), КонецГода(ТекущаяДата()));
   
Пока ВыборкаДокументов.Следующий() Цикл
   
ПКО = Документы.???.СоздатьДокумент();
ПКО.ОбработкаЗаполнения(ВыборкаДокументов.Ссылка);

Для Каждого СтрокаДокумента Из ВыборкаДокументов.Следующий.ТвояХзКакаяТабличнаяЧасть Цикл

    НоваяСтрока = ПКО.ЕщеОднаХзКакаяТабЧасть.Добавить();
    НоваяСтрока.... = СтрокаДокумента.... // еще есть заполнитьзначениясвойств
КонецЦикла

ПКО.Записать();
КонецЦикла;
   
КонецПроцедуры

ВыборкаДокументов.Следующий.ТвояХзКакаяТабличнаяЧасть = ВыборкаДокументов.ТвояХзКакаяТабличнаяЧасть

(21) ВыборкаДокументов.Следующий? о_О )

(22) Нормально все. В старину тоже в чертежи ошибки вносили, чтобы тупым и непосвященным не удавалось воссоздать устройство

(21) Что за бред ты написал? адекват..

(20) Про методы тч Выгрузить() и Загрузить() ниче не слышал? в цикле обходит, епта))

(23) А, ну с этой точки зрения да, все ок))

(22) ошибка копипаста :)
(23) это исправление ошибки копипаста в (20), вроде бы должно быть понятно
(25) при чем здесь выгрузить и загрузить? болеешь? или ты в сабже увидел сходные структуры табличных частей двух документов?

Процедура КнопкаВыполнитьНажатие(Кнопка)  
   // Вставить содержимое обработчика.
   
ВыборкаДокументов = Документы.ОказаниеУслуг.Выбрать(НачалоГода(ТекущаяДата()), КонецГода(ТекущаяДата()));
   
Пока ВыборкаДокументов.Следующий() Цикл
   
ПКО = Документы.ПриходныйКассовыйОрдер.СоздатьДокумент();
ПКО.ОбработкаЗаполнения(ВыборкаДокументов.Ссылка);

Для Каждого ПКО.Контрагент Из ВыборкаДокументов.Следующий.Контрагенты = ВыборкаДокументов.Контрагенты Цикл
    НоваяСтрока = ПКО.Контрагент.Добавить();
   
   
    КонецЦикла;
ПКО.Записать();
КонецЦикла;
КонецПроцедуры

жееесть

я даже немного растерялся...

(28) Это работает?

(28) а так можно?
Для Каждого ПКО.Контрагент Из ВыборкаДокументов.Следующий.Контрагенты = ВыборкаДокументов.Контрагенты Цикл

автор у тебя работает? Или ны на C++ компилируешь?

сильно не пинайте опыта прогить нет, звать спеца не подходит

абассака

что у тебя есть в табличной части документа ОказаниеУслуг что ты хочешь перенести в табличную часть документа ПКО? и вообще какие таб части ты используешь?

(33)

ВыборкаДокументов = Документы.ОказаниеУслуг.Выбрать(НачалоГода(ТекущаяДата()), КонецГода(ТекущаяДата()));
   
Пока ВыборкаДокументов.Следующий() Цикл
   
ПКО = Документы.ПриходныйКассовыйОрдер.СоздатьДокумент();
ПКО.ОбработкаЗаполнения(ВыборкаДокументов.Ссылка);


ПКО.Записать();
КонецЦикла;
КонецПроцедуры
Чем так просто не устраивает?

(36) устраивает
ПКО.ОбработкаЗаполнения(ВыборкаДокументов.Ссылка);
......
ТУТ Что ....
ПКО.Записать();

ничего

а тут ОбработкаЗаполнения(

ДоговорКонтрагента = Основание.Договор;
Контрагент = Основание.Контрагент;
Сумма=Основание.Сумма

ну ясно как попасть в табчасть оказание услуг

зачем

{Форма.Форма.Форма(15)}: Метод объекта не обнаружен (ОбработкаЗаполнения)
ПКО.ОбработкаЗаполнения(ВыборкаДокументов.Ссылка);

(43)ОбработкаЗаполнения замени на Заполнить

с ютим ясно, а как перебрать табличную часть Оказание услуг и вставить в ПКО

(45)какую табличную часть и как вы хотите ее вписать в ПКО?

Сформулируйте задачу

Процедура КнопкаВыполнитьНажатие(Кнопка)  
ВыборкаДокументов = Документы.ОказаниеУслуг.Выбрать(НачалоГода(ТекущаяДата()), КонецГода(ТекущаяДата()));
   
Пока ВыборкаДокументов.Следующий() Цикл
   
ПКО = Документы.ПриходныйКассовыйОрдер.СоздатьДокумент();
ПКО.Заполнить(ВыборкаДокументов.Ссылка);

ПКО.Дата=ВыборкаДокументов.Дата;
пко.Контрагент=ВыборкаДокументов.Контрагенты;
ПКО.СуммаДокумента=ВыборкаДокументов.СуммаДокумента;
КонецПроцедуры

Таб часть Оказание услуг в ней есть контр, договор и сумма их нужно в пко

так бы и сказали, тогда по другому

Процедура КнопкаВыполнитьНажатие(Кнопка)  
ВыборкаДокументов = Документы.ОказаниеУслуг.Выбрать(НачалоГода(ТекущаяДата()), КонецГода(ТекущаяДата()));
   
Пока ВыборкаДокументов.Следующий() Цикл
  Для Каждого Стр Из ВыборкаДокументов.ИмяТабчасти цикл  
ПКО = Документы.ПриходныйКассовыйОрдер.СоздатьДокумент();
ПКО.Заполнить(ВыборкаДокументов.Ссылка);

ПКО.Дата=ВыборкаДокументов.Дата;
пко.Контрагент=Стр .Контрагенты;
ПКО.СуммаДокумента=Стр .СуммаДокумента;
Конеццикла
Конеццикла
КонецПроцедуры

{Форма.Форма.Форма(12)}: Поле объекта не обнаружено (Контрагенты)
пко.Контрагент=Стр.Контрагенты;


как договор выбрать?

с ошибками разобрался.
почему то по умолчанию ПКО создает со списком по договорам

Процедура КнопкаВыполнитьНажатие(Кнопка)  
ВыборкаДокументов = Документы.ОказаниеУслуг.Выбрать(НачалоГода(ТекущаяДата()), КонецГода(ТекущаяДата()));
   
Пока ВыборкаДокументов.Следующий() Цикл
  Для Каждого Стр Из ВыборкаДокументов.Контрагенты цикл  
ПКО = Документы.ПриходныйКассовыйОрдер.СоздатьДокумент();
ПКО.Заполнить(ВыборкаДокументов.Ссылка);

ПКО.Дата=ВыборкаДокументов.Дата;
Пко.ДоговорКонтрагента=стр.ДоговорКонтрагента;
пко.РасшифровкаПлатежа.ДоговорКонтрагента=Стр.Контрагент;
ПКО.РасшифровкаПлатежа.СуммаПлатежа=Стр.Сумма;
Конеццикла;
ПКО.Записать();
Конеццикла
КонецПроцедуры

Конфигуратор1с плиз, последний штрих

{Форма.Форма.Форма(13)}: Поле объекта не обнаружено (ДоговорКонтрагента)
пко.РасшифровкаПлатежа.ДоговорКонтрагента=Стр.Контрагент;

пко.РасшифровкаПлатежа.ДоговорКонтрагента=Стр.ДоговорКонтрагента;

{Форма.Форма.Форма(14)}: Поле объекта не обнаружено (ДоговорКонтрагента)
пко.РасшифровкаПлатежа.ДоговорКонтрагента=Стр.ДоговорКонтрагента;

(58)посмотрите как реквизиты называются в документах

Новаястрока = пко.РасшифровкаПлатежа.Добавить();
Новаястрока .ДоговорКонтрагента=стр.ДоговорКонтрагента;
Новаястрока .ДоговорКонтрагента=Стр.Контрагент;
Новаястрока .СуммаПлатежа=Стр.Сумма;

вроде все готово но есть косяки

Процедура КнопкаВыполнитьНажатие(Кнопка)  
           
    ВыборкаДокументов=ОУ.Ссылка;
   //ВыборкаДокументов = Документы.ОказаниеУслуг.Выбрать(НачалоГода(ТекущаяДата()), КонецГода(ТекущаяДата()));
   
//Пока ВыборкаДокументов.Следующий() Цикл
   
   Для Каждого Стр Из ВыборкаДокументов.Контрагенты цикл  
       
       ПКО = Документы.ПриходныйКассовыйОрдер.СоздатьДокумент();
       ПКО.Заполнить(ВыборкаДокументов.Ссылка);
       ПКО.Организация = ВыборкаДокументов.Организация;
       ПКО.СчетКасса=ПланыСчетов.Хозрасчетный.КассаОрганизации;
       ПКО.Контрагент=Стр.Контрагент;
       ПКО.Дата=ВыборкаДокументов.Дата;

       
Новаястрока = пко.РасшифровкаПлатежа.Добавить();
//Новаястрока.ДоговорКонтрагента=Стр.Контрагент;
Новаястрока.ДоговорКонтрагента=стр.ДоговорКонтрагента;
Новаястрока.СпособПогашенияЗадолженности= Перечисления.СпособыПогашенияЗадолженности.Автоматически;
Новаястрока.КратностьВзаиморасчетов = 1;
Новаястрока.СуммаПлатежа=Стр.Сумма;



//пко.РасшифровкаПлатежа.ДоговорКонтрагента=Стр.ДоговорКонтрагента;
//пко.Контрагент=Стр.Контрагент;
//ПКО.СуммаДокумента=Стр.Сумма;
Конеццикла;
ПКО.Записать();
//Конеццикла
КонецПроцедуры

1 Почему первую запись из ТЧ в оказнии улуг не берет
2 Кратность не заполняется
3 Если кратность ставлю руками то ПКО не проводится
Проводка № 1 <>: не заполнен счет кредита.

Кстати как ввести ПКО с видом операции "Оплата от покупателя"

феерично, я валяюсь.

1000 евро за элегантное решение!

(65) Не вы один, я тоже

(0) Автор, объяви вознаграждение за помощь тебе и оставь контакты. Возможно, вменяемый человек за символическую плату поможет тебе с твоей проблемой

можете поздравить все работает, спасибо Конфигуратор1с

(62)
Конеццикла;
ПКО.Записать();

надо заменить на
ПКО.Записать();
Конеццикла;