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