Как на основании Акта об оказании услуг ввести ПКО 1С:Бухгалтерии 7.7?

[Kassir]

Здравствуйте!
1С:Бухгалтерия 7.7
В меню, вызываемом при нажатии кнопки "Ввести на основании" в документе "Акт об оказании услуг" отсутствует пункт "Приходный кассовый ордер". В связи с чем приходится по 2 раза вбивать одни и те-же данные: сначала в Акте, потом в ПКО.
Подскажите пожалуйста, что нужно сделать, чтоб получить возможность вводить ПКО на основании Акта об оказании услуг?
Спасибо.

[АнонимХ]

банально, пригласите программиста.
делов на 15 мин, он к вам ехать дольше будет.

впрочем, можете и сами, если не боитесь слова конфигуратор.
в процедуре ВводНаОсновании() добавить
ИначеЕсли ДокОсн.Вид() = "ОказаниеУслуг" Тогда
УчитыватьНП = 0;
УказатьНП = 0;
ФормироватьПроводки = 1;
Валютный = 1;
Сумма = ДокОсн.Итог("Всего");
НДС = ДокОсн.Итог("НДС");
СтавкаНДС=Константа.ОсновнаяСтавкаНДС;

КоррСчет = СчетПоКоду("62.1");
ПриВыбореСчета();
Субконто1=ДокОсн.Контрагент;
Субконто2=ДокОсн.Договор;
ДокументПоставки=ДокОсн;

КонецЕсли;

и в док.оказание услуг указать галкой, что является основанием для пко

[Kassir]

Norna, Вам сколько лет?

АнонимХ, спасибо большое!

[Kassir]

АнонимХ, спасибо Вам за помощь.
Не могли бы Вы подсказать, как бы еще сделать так, чтобы в поле "Принято от" приходного ордера автоматически вставлялось наименование контрагента? А то сейчас вручную забивать приходится.
И чтоб в графе "движение денежных средств" по умолчанию вставало на "Прочие поступления".

Заранее - огромное спасибо!

[АнонимХ]

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

[Kassir]

АнонимХ, огромное Вам спасибо за помощь!
Имя контрагента теперь автоматически вставляется в поле "Принято от".

К сожалению, в Движениях денежных средств ничего не выбирается автоматически

Сейчас этот участок кода у меня выглядит так (там 00010 - код "Прочих поступлений" в справочнике "Движения денежных средств"):

ПринятоОт=""+ДокОсн.Контрагент;

Спр=СоздатьОбъект("Справочник.ДвиженияДенежныхСредств");
Спр.НайтиПоКоду(0010,0);
Проч=Спр.ТекущийЭлемент();
ДвижениеДенежныхСредств=Проч;

[АнонимХ]

Спр.НайтиПоКоду("0010",0);
либо
Спр.НайтиПоКоду(10,0);

[Kassir]

АнонимХ, Большое Вам спасибо! Все отлично работает! Благодарю!