Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 140882
28.07.2008, 14:03
0.00 руб.
0 3 3
ДРУГОЕ / РАЗНОЕ
Здравствуйте. У меня здесь такой вопрос.
В накладной ТОРГ-12 в графе грузополучатель стояла формула:
СокрЛП(Контрагент.ПолнНаименование)+СокрЛП(Контрагент.ФактическийАдрес),она показывала все то что надо, но в ней не хватало расчетного счета и банка
Поставил такую:
СокрЛП(Контрагент.ПолнНаименование)+", р/с "+СокрЛП(СчетКонтрагента.Номер) + " в " + СчетКонтрагента.БанкОрганизации+", "+СокрЛП(Контрагент.ФактическийАдрес)
но она не прокатывает. Почему?
Вот моя версия: 1С:Бухгалтерия 7.7 (базовая).
Конфигурация, редакция 4.2.
Релиз 7.70.434 от 31.01.2003г.

Обсуждение

Неизвестный
28.07.2008, 15:00
общий
это ответ
Здравствуйте, Шишкин Артем Андреевич!
В базовой версии нельзя ничего изменить в режиме конфигруатора. За искючением внешних печатных форм.
Я думаю проблема именно в этом.
Неизвестный
28.07.2008, 15:09
общий
это ответ
Здравствуйте, Шишкин Артем Андреевич!
Вообще-то в Стандартной ТОРГ-12 есть и расчетный счет и реквизиты банка.
см. приложение.
СчетКонтрагента-ловит функция Глобального модуля: глРасчетныйСчетКонтрагента(Контрагент)
Вероятно у данного Контрагента у Вас не заведено ни одного р/с.
Справочник Контрагенты->РасчетныеСчета.
И соответственно переменная СчетКонтрагента-пустая строка.

Приложение:
// формирование адреса грузополучателя
Если ПустоеЗначение(Грузополучатель) = 1 Тогда
ГрузополучательАдрес = СокрЛП(Контрагент.ПолнНаименование)+", "+СокрЛП(Контрагент.ПочтовыйАдрес)+", тел: "+СокрЛП(Контрагент.Телефоны);
Если ПустоеЗначение(СчетКонтрагента) = 0 Тогда
глДобавитьРеквизит(ГрузополучательАдрес, ", р/с ", СокрЛП(СчетКонтрагента.Номер) + " в " + СчетКонтрагента.БанкОрганизации);
глДобавитьРеквизит(ГрузополучательАдрес, ", БИК ", СокрЛП(СчетКонтрагента.БанкОрганизации.Код));
глДобавитьРеквизит(ГрузополучательАдрес, ", корр/с ", СчетКонтрагента.БанкОрганизации.КоррСчет);
КонецЕсли;
ГрузополучательОКПО = Контрагент.ОКПО;
Иначе
СчетКонтрагента = "";
СчетКонтрагента = глРасчетныйСчетКонтрагента(Грузополучатель);
ГрузополучательАдрес = СокрЛП(Грузополучатель.ПолнНаименование)+", "+СокрЛП(Грузополучатель.ПочтовыйАдрес)+", тел: "+СокрЛП(Грузополучатель.Телефоны);
Если ПустоеЗначение(СчетКонтрагента) = 0 Тогда
глДобавитьРеквизит(ГрузополучательАдрес, ", р/с ", СокрЛП(СчетКонтрагента.Номер) + " в " + СчетКонтрагента.БанкОрганизации);
глДобавитьРеквизит(ГрузополучательАдрес, ", БИК ", СокрЛП(СчетКонтрагента.БанкОрганизации.Код));
глДобавитьРеквизит(ГрузополучательАдрес, ", корр/с ", СчетКонтрагента.БанкОрганизации.КоррСчет);
КонецЕсли;
ГрузополучательОКПО = Грузополучатель.ОКПО;
КонецЕсли;
Неизвестный
28.07.2008, 21:20
общий
это ответ
Здравствуйте, Шишкин Артем Андреевич!
Базовая конфигурация отличается от типовой тем, что базовую нельзя редактировать, но можно сделать внешнюю печатную форму, но тогда у вас в элементе справочника контрагента должен быть установлен атрибут основной для выбранного счета.
Форма ответа