qr код

[Дмитрий1991]

здравствуйте прошу извинить если задаю глупый вопрос я просто только начинаю программировать в 1с,а зделать надо срочно
как этот код поменять, чтобы дата вывадилась не в формате 12.02.2004, а в 12022004 и номер лицевого счета не в л/с №433 а просто 433

Функция СформироватьШтрихкодИзШаблона(Параметры, ПарамУчетнойПолитики) Экспорт
   
   // Дополним структуру параметров.
   Параметры.Вставить("Константа", СокрЛП(ПарамУчетнойПолитики.КонстантаОрганизацииДляШтрихКода));
   Если Параметры.Свойство("Дата") Тогда
      Параметры.Вставить("МесяцОплаты", Формат(Параметры.Дата, "ДФ=MM"));
      Параметры.Вставить("ГодОплаты",   Формат(Параметры.Дата, "ДФ=yy"));
   КонецЕсли;
   Если Параметры.Свойство("ЛицевойСчет") Тогда
      Если ПарамУчетнойПолитики.ИдентификаторЛСШтрихкода Тогда
         Параметры.Вставить( "КодЛС",
                        УПЖКХ_ТиповыеМетодыКлиентСервер.ДополнитьСтроку(СокрЛП(Параметры.ЛицевойСчет.Идентификатор),
                                                          ПарамУчетнойПолитики.ДлинаИдентификатораШтрихкода,
                                                          "0"));
      Иначе
         Параметры.Вставить("КодЛС", УПЖКХ_ТиповыеМетодыКлиентСервер.ДополнитьСтроку(СокрЛП(Параметры.ЛицевойСчет.Код), 9, "0"));
      КонецЕсли;
   КонецЕсли;
   Если Параметры.Свойство("Сумма") Тогда
      Если ПарамУчетнойПолитики.РазделительДробнойЧастиСуммы = "не выводить" Тогда
         Параметры.Вставить("СуммаКОплате", УПЖКХ_ТиповыеМетодыКлиентСервер.ДополнитьСтроку(Формат(Параметры.Сумма * 100, "ЧГ=0"),
                                                                  ПарамУчетнойПолитики.ДлинаСуммыШтрихкода,
                                                                  "0"));
      ИначеЕсли ПарамУчетнойПолитики.РазделительДробнойЧастиСуммы = " . (точка)" Тогда
            Параметры.Вставить("СуммаКОплате", УПЖКХ_ТиповыеМетодыКлиентСервер.ДополнитьСтроку(Формат(Параметры.Сумма, "ЧДЦ=2; ЧРД=.; ЧН=; ЧГ=0"),
                                                                  ПарамУчетнойПолитики.ДлинаСуммыШтрихкода + 1,
                                                                  "0"));
      ИначеЕсли ПарамУчетнойПолитики.РазделительДробнойЧастиСуммы = " , (запятая)" Тогда
            Параметры.Вставить("СуммаКОплате", УПЖКХ_ТиповыеМетодыКлиентСервер.ДополнитьСтроку(Формат(Параметры.Сумма, "ЧДЦ=2; ЧРД=,; ЧН=; ЧГ=0"),
                                                                  ПарамУчетнойПолитики.ДлинаСуммыШтрихкода + 1,
                                                                  "0"));
      КонецЕсли;
   КонецЕсли;
   
   ТекстКода = СокрЛП(ПарамУчетнойПолитики.КодОрганизацииДляШтрихКода);
   
   // сформируем текст штрихкода.
   ТекстКода = ТекстКода + Параметры.КодЛС + Параметры.МесяцОплаты
   + Параметры.ГодОплаты + Параметры.СуммаКОплате;
   УПЖКХ_РаботаСоШтрихкодомВызовСервера.ВставитьКонтрольнуюСтрокуШК(ТекстКода, ПарамУчетнойПолитики);
   
   Возврат ТекстКода;
   
КонецФункции // СформироватьШтрихкодИзШаблона()

заранее спасибо   

[Sinsinmin]

Надо бы знать какой параметр отвечает за Дату которая вам нужна и за Лицевой счёт...

Я вижу у вас Месяц и Год, но не вижу дату...
И не вижу где у вас НомерЛицевогоСчёта передаётся...

Для лицевого счёта можно написать Параметры.КодЛС = СтрЗаменить(Параметры.КодЛС, "л/c №", "");
А для даты  Параметры.Дата = Формат(Параметры.Дата,"ДФ=ddMMyyyy");

[cska-fanat-kz]

чтобы дата вывадилась не в формате 12.02.2004, а в 12022004

у вас дата не в виде "12.02.2004" а в виде "0204"...

номер лицевого счета не в л/с №433 а просто 433

вот тут ковыряйте
Если Параметры.Свойство("ЛицевойСчет") Тогда
      Если ПарамУчетнойПолитики.ИдентификаторЛСШтрихкода Тогда
         Параметры.Вставить( "КодЛС",
                        УПЖКХ_ТиповыеМетодыКлиентСервер.ДополнитьСтроку(СокрЛП(Параметры.ЛицевойСчет.Идентификатор),
                                                          ПарамУчетнойПолитики.ДлинаИдентификатораШтрихкода,
                                                          "0"));
      Иначе
         Параметры.Вставить("КодЛС", УПЖКХ_ТиповыеМетодыКлиентСервер.ДополнитьСтроку(СокрЛП(Параметры.ЛицевойСчет.Код), 9, "0"));
      КонецЕсли;
   КонецЕсли;