Имя: Пароль:
1C
1С v8
Добавить КПП в ТОРГ12 (внешняя печатная форма)
0 DaryaKoroleva
 
07.06.13
16:20
Добрый день, подскажите пожалуйста, как добавить поле КПП после ИНН через "/".
Делаю так. Как сделать, что бы был слеш и слова "КПП" видно не было?
И у меня вот с таким кодом КПП выводится только в поле "Грузополучатель" а у остальных не проставляется.

Если Шапка.ЮрФизЛицо = Шапка.Грузоотправитель Тогда
       ОбластьМакетаШапка.Параметры.ПредставлениеОрганизации = ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОПоставщике);
   Иначе
       ОбластьМакетаШапка.Параметры.ПредставлениеОрганизации = ФормированиеПечатныхФорм.ОписаниеОрганизации(
           СведенияОГрузоотправителе, "НаименованиеДляПечатныхФорм,ИНН,КПП,ФактическийАдрес,Телефоны,НомерСчета,Банк,БИК,КоррСчет");
   КонецЕсли;                                                              
   
   Если СокрЛП(Шапка.АдресДоставки) <> "" Тогда
       ПредставлениеГрузополучателяДоАдреса    = ФормированиеПечатныхФорм.ОписаниеОрганизации(
           СведенияОГрузополучателе, "НаименованиеДляПечатныхФорм,ИНН,КПП, ");
       ПредставлениеГрузополучателяПослеАдреса = ФормированиеПечатныхФорм.ОписаниеОрганизации(
           СведенияОГрузополучателе, "Телефоны,НомерСчета,Банк,БИК,КоррСчет,");
       ОбластьМакетаШапка.Параметры.ПредставлениеГрузополучателя = ?(СокрЛП(ПредставлениеГрузополучателяДоАдреса) = "",
           "", ПредставлениеГрузополучателяДоАдреса+", ") + Шапка.АдресДоставки
           + ?(СокрЛП(ПредставлениеГрузополучателяПослеАдреса)="", "", ", "+ПредставлениеГрузополучателяПослеАдреса);
   Иначе
       ОбластьМакетаШапка.Параметры.ПредставлениеГрузополучателя = ФормированиеПечатныхФорм.ОписаниеОрганизации(
           СведенияОГрузополучателе,"НаименованиеДляПечатныхФорм,ИНН,КПП ,ФактическийАдрес,Телефоны,НомерСчета,Банк,БИК,КоррСчет");
   КонецЕсли;
1 salvator
 
07.06.13
16:26
Вместо "ФормированиеПечатныхФорм.ОписаниеОрганизации"
написать свою без вывода ненужных данных
2 DaryaKoroleva
 
07.06.13
16:39
Сделала вот так:
   ОбластьМакетаШапка.Параметры.ПредставлениеОрганизации = ФормированиеПечатныхФорм.ОписаниеОрганизации(
           СведенияОГрузоотправителе, "НаименованиеДляПечатныхФорм,ИНН, КПП,ФактическийАдрес,Телефоны,НомерСчета,Банк,БИК,КоррСчет");
                                                             
   
   Если СокрЛП(Шапка.АдресДоставки) <> "" Тогда
       ПредставлениеГрузополучателяДоАдреса    = ФормированиеПечатныхФорм.ОписаниеОрганизации(
           СведенияОГрузополучателе, "НаименованиеДляПечатныхФорм,ИНН,КПП, ");
       ПредставлениеГрузополучателяПослеАдреса = ФормированиеПечатныхФорм.ОписаниеОрганизации(
           СведенияОГрузополучателе, "Телефоны,НомерСчета,Банк,БИК,КоррСчет,");
       ОбластьМакетаШапка.Параметры.ПредставлениеГрузополучателя = ?(СокрЛП(ПредставлениеГрузополучателяДоАдреса) = "",
           "", ПредставлениеГрузополучателяДоАдреса+", ") + Шапка.АдресДоставки
           + ?(СокрЛП(ПредставлениеГрузополучателяПослеАдреса)="", "", ", "+ПредставлениеГрузополучателяПослеАдреса);
   Иначе
       ОбластьМакетаШапка.Параметры.ПредставлениеГрузополучателя = ФормированиеПечатныхФорм.ОписаниеОрганизации(
           СведенияОГрузополучателе,"НаименованиеДляПечатныхФорм,ИНН, КПП ,ФактическийАдрес,Телефоны,НомерСчета,Банк,БИК,КоррСчет");
   КонецЕсли;
   
   ОбластьМакетаШапка.Параметры.ПредставлениеПоставщика  = ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОПоставщике, "НаименованиеДляПечатныхФорм,ИНН, КПП,ФактическийАдрес,Телефоны,НомерСчета,Банк,БИК,КоррСчет");
   ОбластьМакетаШапка.Параметры.ПредставлениеПлательщика = ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОПокупателе, "НаименованиеДляПечатныхФорм,ИНН, КПП ,ФактическийАдрес,Телефоны,НомерСчета,Банк,БИК,КоррСчет");

Все КПП теперь на месте. Но как сделать что бы ИНН/КПП через слеш были? Пыталась между ними вставить ""/"", но выдает ошибку.
3 salvator
 
07.06.13
16:52
(2) Посмотри типовую функцию, которая возвращает данные по контрагенту, пойми как формируется строка.
Потом скопируй ее в свой модуль и измени вывод.
4 salvator
 
07.06.13
16:54
По всей видимости, тебе надо строку
СоответствиеПараметров.Вставить("КПП",                            " КПП ");
заменить на
СоответствиеПараметров.Вставить("КПП",                            " / ");