Бух7.7 "Расходная на основании приходной"
07.10.2005
13:34
#1
Подскажите пожалуйста кто-нить встречал обработку для Бухгалтерии 7.7 создание расходной накладной на основании приходной...., значительно бы облегчила работу...
09.10.2005
08:27
#2
А чем не устраивает процедура "ВводНаОсновании()"?
Или нужно в другую базу перенести?
Или нужно в другую базу перенести?
10.10.2005
11:16
#3
"Да нет,в одной базе, я попробовал, в конфигупаторе поставил галочку ввод на основании, но при работе выдает ошибку:
Если ВидОтгрузки <> СписокВидовОтгрузки.ПолучитьЗначение(СписокВидовОтгрузки.ТекущаяСтрока()) Тогда
{Документ.РасходнаяНакладная.Форма.Модуль(981)}: Индекс не входит в границы списка значений.
ВидОтгрузки = СписокВидовОтгрузки.ПолучитьЗначение(СписокВидовОтгрузки.ТекущаяСтрока());
{Документ.РасходнаяНакладная.Форма.Модуль(982)}: Индекс не входит в границы списка значений."
Если ВидОтгрузки <> СписокВидовОтгрузки.ПолучитьЗначение(СписокВидовОтгрузки.ТекущаяСтрока()) Тогда
{Документ.РасходнаяНакладная.Форма.Модуль(981)}: Индекс не входит в границы списка значений.
ВидОтгрузки = СписокВидовОтгрузки.ПолучитьЗначение(СписокВидовОтгрузки.ТекущаяСтрока());
{Документ.РасходнаяНакладная.Форма.Модуль(982)}: Индекс не входит в границы списка значений."
14.10.2005
05:00
#4
"Ну, дык, отдельно ещё надо написать:
Если ДокОснование.Вид()="РасходнаяНакладная" Тогда
//Заполнение реквизитов шапки:
Контрагент=ДокОснование.Контрагент;
Договор=ДокОснование.Договор;
......
......
......
//Заполнение табличной части:
ДокОснование.ВыбратьСтроки();
Пока ДокОснование.ПолучитьСтроку()=1 Цикл
Товар=ДокОснование.Товар;
Цена=ДокОснование.Товар.Цена.Получить(ДатаДок);// или выбрать цену из справочника "Цены"
.....
.....
.....
Сумма=Цена*Количество;
.....
Пересчет("Сумма");
КонецЦикла;
КонецЕсли;
и что-то в этом роде
"
Если ДокОснование.Вид()="РасходнаяНакладная" Тогда
//Заполнение реквизитов шапки:
Контрагент=ДокОснование.Контрагент;
Договор=ДокОснование.Договор;
......
......
......
//Заполнение табличной части:
ДокОснование.ВыбратьСтроки();
Пока ДокОснование.ПолучитьСтроку()=1 Цикл
Товар=ДокОснование.Товар;
Цена=ДокОснование.Товар.Цена.Получить(ДатаДок);// или выбрать цену из справочника "Цены"
.....
.....
.....
Сумма=Цена*Количество;
.....
Пересчет("Сумма");
КонецЦикла;
КонецЕсли;
и что-то в этом роде
"
Читают тему
(гостей: 1)