Полезняшки в 1с 77 бухгалтерии

[Аноним]

Сегодня осенило и за полчасика на коленке слепил замечательную штуку:
Ввод платежного поручения на основании приходной накладной от поставщика с автоматическим заполнением всех реквизитов.
Достали постоянные ошибки бухгалтеров!

[Lemori]

Сегодня осенило и за полчасика на коленке слепил замечательную штуку:
Ввод платежного поручения на основании приходной накладной от поставщика с автоматическим заполнением всех реквизитов.
Достали постоянные ошибки бухгалтеров!

А поделиться??? или другой вариант)))

[Gray_bird]

Это надо дорабатывать в конфигураторе модуль платежного поручения.
Всего кода аж строк 15. Если опыта в подобных издевательствах нет - то лучше не лезть, а если есть, то и сам слепишь быстро. Главное идея, о том что так можно делать.
Если по прежнему хочется, в понедельник с работы могу запостить кусочек кода с инструкцией куда засовывать.
НО - последствия за свой счет.

[DIR]

В других программах это давно есть...

[Fosihas]

ps:
так напоминаю коммерческую часть вопроса не публиковать тут (форум не торговая площадка).

[Gray_bird]

ps:
так напоминаю коммерческую часть вопроса не публиковать тут (форум не торговая площадка).

Хм.
Так халява же.
Брать деньги за 15 строчек кода - просто непорядочно.
)

[azernot]

Где ж найти таких поставщиков которые принимают оплату по факту...
Подавляющее большинство на предоплате.

[Аноним]

Где ж найти таких поставщиков которые принимают оплату по факту...
Подавляющее большинство на предоплате.

Кто платит деньги тот и заказывает музыку.
Поставщиков надо дрессировать и воспитывать.

[Gray_bird]

0. делаем резервную копию базы
1. открываем конфигуратор
2. открываем конфигураци, с ней раздел "документы", там ищем "платежное поручение" открываем его.
3. жмем кнопку "ввод на основании" и в списке ставим галочку в столбце "Вводить на основании" напротив "поступление товаров". закрываем диалог "ввод на основании"
4. жмем кнопку "форма документа", потом внизу жмем закладку "модуль документа" Листаем примерно до 426 строки где написано "Процедура ПрОткрытии () // предопределенная"

Перед этой строкой, но после последней строки предыдущей процедуры вставляем следующий код:
//_____________________________________________________________________________
Процедура ВводНаОсновании(Основание)
Новый = 1;
РасчетныйСчет = глЗначениеПоУмолчанию("ОсновнойБанковскийСчет");
ЗаполнениеКППплательщика();
СтавкаНДС = глЗначениеПоУмолчанию("ОсновнаяСтавкаНДС");
ВидПлатежа = Перечисление.ВидыПлатежа.Электронно;
Очередность = 6;
ДокОсн=Основание;
ДокОсн.ВыбратьСтроки();
ВсегоНДСоснования = 0;
ВсегоСуммаоснования = 0;
Пока ДокОсн.ПолучитьСтроку() = 1 Цикл
ВсегоНДСоснования = ВсегоНДСоснования + ДокОсн.НДС;
ВсегоСуммаоснования = ВсегоСуммаоснования + ДокОсн.Сумма;
КонецЦикла;
Сумма=ВсегоСуммаоснования;
НДС=ВсегоНДСоснования;
Контрагент=ДокОсн.Контрагент;
СчетКонтрагента = глРасчетныйСчетКонтрагента(Контрагент);
Договор=ДокОсн.Договор;
Содержание = "Оплата за ХХХ по "+договор+" Cумма "+СокрЛП(Формат(Сумма,"Ч20.2-'"))+", в т.ч. НДС(18% и 10%) - "+СокрЛП(Формат(НДС,"Ч20.2-'"));
АвтоПодстСуммыНДС = Перечисление.ПодстановкаСуммыНДС.БезСуммыБезНДС;
УстДату();
НомерПлатПор = СокрЛП(НомерДок);
Если (ДатаДок >= '15.02.2000') и (Прав(НомерПлатПор,3) = "000") Тогда
НомерДок = Лев(НомерПлатПор, СтрДлина(НомерПлатПор)-1) + "1";
КонецЕсли;
КонецПроцедуры
//_____________________________________________________________________________

После чего сохраняем изменения. При желании можно еще сделать на панели инструментов спец кнопочку для быстрого вызова этой функции..

[Fosihas]

Gray_bird, уточни что за конфигурация и номер ее релиза где делалось.

[Gray_bird]

Gray_bird, уточни что за конфигурация и номер ее релиза где делалось.

Бухгалтерия 77, 491 релиз, ОСНО.
Бухгалтерия 77 УСН, релиз один из последних, циферки не помню.

Вся разница, что документ в УСН называется не "поступление товаров", а "Поступление МПЗ"