Друзья помогите разобраться в коде
X

Привет дорогой друг

Наш сайт существует и развиваетется за счет рекламы. Пожалуйста, отключите блокировку рекламы AdBlock или подобное, для нашего сайта. Спасибо!
Показано с 1 по 3 из 3
  1. #1
    Спец
    Аватар для lekhaplaton
    Регистрация
    16.10.2011
    Сообщений
    237
    Сказал(а) спасибо
    441
    Поблагодарили 236 раз(а) в 79 сообщениях

    По умолчанию Друзья помогите разобраться в коде

    Друзья помогите разобраться в коде. в УПД убрал а в счет фактуре не поймал стопом. Нужно убрать из даты часы и просто оставить дату.
    Процедура ВывестиСчетФактуруВТаблич ныйДокумент(ТабДокумент, Макет, ВыборкаСФ, ЭтоУниверсальныйПередаточ ныйДокумент = Ложь)

    ТаблицаДокумента = ВыборкаСФ.ТаблицаДокумент� �;

    // Вывод шапки

    ДанныеШапки = ВыборкаСФ.ДанныеШапки;

    ДатаДляПолученияМакета = ?(ДанныеШапки.Исправление, ДанныеШапки.ДатаИсправлен� �я, ДанныеШапки.Дата);
    ВедетсяУчетНДСПоФЗ56 = ВедетсяУчетНДСПоФЗ56(ДатаД� �яПолученияМакета);
    ВерсияПостановления1137 = УчетНДСПереопределяемый.В� �рсияПостановленияНДС1137(Да таДляПолученияМакета);
    // Переопределим версию для целей первого этапа поддержки постановления Правительства Российской Федерации
    // от 19 августа 2017 г. № 981.
    Если ДатаДляПолученияМакета >= '20171001' Тогда
    ВерсияПостановления1137 = 4;
    КонецЕсли;

    Если ВерсияПостановления1137 >= 4
    ИЛИ НЕ ВедетсяУчетНДСПоФЗ56 Тогда
    ОбластьМакета = Макет.ПолучитьОбласть("Шап� �а");
    Иначе
    Если НЕ ЗначениеЗаполнено(Макет.Об ласти.Найти("Шапка625")) Тогда
    ТекстИсключения = НСтр("ru = 'C 01.07.2017 г. изменился типовой макет печатной формы счета-фактуры. Для использования
    |новой формы необходимо обновить отредактированный ранее макет.
    |Вы можете отредактировать макет самостоятельно в разделе ""Администрирование - Печатные формы,
    |отчеты, обработки - Макеты печатных форм"" или обратиться к специалисту обслуживающей организации.'");
    ВызватьИсключение ТекстИсключения;
    КонецЕсли;
    ОбластьМакета = Макет.ПолучитьОбласть("Шап� �а625");
    КонецЕсли;

    ОбластьМакета.Параметры.За полнить(ДанныеШапки);

    Если ЭтоУниверсальныйПередаточ ныйДокумент Тогда

    //НомерСчетаФактуры = "Универсальный передаточный документ № " + ДанныеШапки.Номер;
    НомерСчетаФактуры = "Универсальный передаточный документ № " + ДанныеШапки.Номер + " от " + Формат(ДанныеШапки.Дата, "ДЛФ='ДД'");


    ОбластьМакета.Параметры.Но мер = ДанныеШапки.Номер;
    //ОбластьМакета.Параметры.Да та = Формат(ДанныеШапки.Дата, "ДЛФ='Д'");

    ОбластьМакета.Параметры.Но мерИсправления = ДанныеШапки.НомерИсправле� �ия;
    ОбластьМакета.Параметры.Да таИсправления = Формат(ДанныеШапки.ДатаИсп равления, "ДЛФ='Д'");

    ОбластьМакета.Параметры.По Документу = ДанныеШапки.ПоДокументу;
    ОбластьМакета.Параметры.Ва люта = ДанныеШапки.ВалютаНаимено� �ание;
    Если ДатаДляПолученияМакета >= '20210701' Тогда

    ОбластьМакета.Параметры.До кументыОбОтгрузке = "№ п/п 1-"+ВыборкаСФ.СчетФактура.Док ументОснование.Товары.коли чество()+", № "+
    ПрефиксацияОбъектовКлиент Сервер.УдалитьЛидирующиеН� �лиИзНомераОбъекта(Выборка СФ.СчетФактура.ДокументОсн ование.номер)+
    " от "+Формат(ВыборкаСФ.СчетФакт ура.ДокументОснование.Дата ,"ДЛФ='Д'");

    КонецЕсли;

    ОбластьМакета.Параметры.Пр едставлениеПоставщика = ДанныеШапки.Представление� �оставщика;
    ОбластьМакета.Параметры.ИН НПоставщика = ?(ДанныеШапки.Свойство("ИНН� �ПППоставщика"),
    ДанныеШапки.ИННКПППоставщ� �ка,
    "" + ДанныеШапки.ИННПоставщика + ?(ЗначениеЗаполнено(Данные� �апки.КПППоставщика), "/" + ДанныеШапки.КПППоставщика, ""));
    ОбластьМакета.Параметры.Ад ресПоставщика = ДанныеШапки.АдресПоставщи� �а;
    ОбластьМакета.Параметры.Пр едставлениеГрузоотправите ля = ДанныеШапки.Представление� �рузоотправителя;

    ОбластьМакета.Параметры.Пр едставлениеПокупателя = ДанныеШапки.Представление� �окупателя;
    ОбластьМакета.Параметры.ИН НПокупателя = ?(ДанныеШапки.Свойство("ИНН� �ПППокупателя"),
    ДанныеШапки.ИННКПППокупат� �ля,
    "" + ДанныеШапки.ИННПокупателя + ?(ЗначениеЗаполнено(Данные� �апки.КПППокупателя), "/" + ДанныеШапки.КПППокупателя, ""));
    ОбластьМакета.Параметры.Ад ресПокупателя = ДанныеШапки.АдресПокупате� �я;
    ОбластьМакета.Параметры.Пр едставлениеГрузополучател я = ДанныеШапки.Представление� �рузополучателя;

    Иначе

    НомерСчетаФактуры = ДанныеШапки.Номер;
    //НомерСчетаФактуры = " от " + Формат(ДанныеШапки.Дата, "ДЛФ='ДД'");
    //НомерСчетаФактуры = "Счет-фактура № " + ДанныеШапки.Номер + " от " + Формат(ДанныеШапки.Дата, "ДЛФ='ДД'");
    Если ДатаДляПолученияМакета >= '20210701' Тогда

    ОбластьМакета.Параметры.До кументыОбОтгрузке = "№ п/п 1-"+ВыборкаСФ.СчетФактура.Док ументОснование.Товары.коли чество()+", № "+
    ПрефиксацияОбъектовКлиент Сервер.УдалитьЛидирующиеН� �лиИзНомераОбъекта(Выборка СФ.СчетФактура.ДокументОсн ование.номер)
    //" от " + Формат(ВыборкаСФ.СчетФакту ра.ДокументОснование.Дата);
    +" от "+Формат(ВыборкаСФ.СчетФакт ура.ДокументОснование.Дата ,"ДЛФ=DD");

    КонецЕсли;
    ///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////platon

    ОбластьМакета.Параметры.Но мер = НомерСчетаФактуры;
    //ОбластьМакета.Параметры.Но мерИсправления = "Исправление № " + ДанныеШапки.НомерИсправле� �ия ;
    ОбластьМакета.Параметры.Пр едставлениеПоставщика = ДанныеШапки.Представление� �оставщика;
    ОбластьМакета.Параметры.Ад ресПоставщика = ДанныеШапки.АдресПоставщи� �а;
    ОбластьМакета.Параметры.ИН НПоставщика = "" + ?(ДанныеШапки.Свойство("ИНН� �ПППоставщика"),
    ДанныеШапки.ИННКПППоставщ� �ка,
    "" + ДанныеШапки.ИННПоставщика + ?(ЗначениеЗаполнено(Данные� �апки.КПППоставщика), "/" + ДанныеШапки.КПППоставщика, ""));
    ОбластьМакета.Параметры.Пр едставлениеГрузоотправите ля = ДанныеШапки.Представление� �рузоотправителя;
    ОбластьМакета.Параметры.Пр едставлениеГрузополучател я = ДанныеШапки.Представление� �рузополучателя;
    ОбластьМакета.Параметры.По Документу = ДанныеШапки.ПоДокументу;
    ОбластьМакета.Параметры.Пр едставлениеПокупателя = ДанныеШапки.Представление� �окупателя;
    ОбластьМакета.Параметры.Ад ресПокупателя = ДанныеШапки.АдресПокупате� �я;
    ОбластьМакета.Параметры.ИН НПокупателя = "" + ?(ДанныеШапки.Свойство("ИНН� �ПППокупателя"),
    ДанныеШапки.ИННКПППокупат� �ля,
    "" + ДанныеШапки.ИННПокупателя + ?(ЗначениеЗаполнено(Данные� �апки.КПППокупателя), "/" + ДанныеШапки.КПППокупателя, ""));
    ОбластьМакета.Параметры.Ва люта = ДанныеШапки.ВалютаНаимено� �ание;

    КонецЕсли;
    /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////platon
    ТабДокумент.Вывести(Област ьМакета);

    Если ВедетсяУчетНДСПоФЗ56 Тогда
    Если не ДатаДляПолученияМакета >= '20210701' Тогда


    Если НЕ ЗначениеЗаполнено(Макет.Об ласти.Найти("Идентификатор� �осКонтракта")) Тогда
    ТекстИсключения = НСтр("ru = 'C 01.07.2017 г. изменился типовой макет печатной формы счета-фактуры. Для использования
    |новой формы необходимо обновить отредактированный ранее макет.
    |Вы можете отредактировать макет самостоятельно в разделе ""Администрирование - Печатные формы,
    |отчеты, обработки - Макеты печатных форм"" или обратиться к специалисту обслуживающей организации.'");
    ВызватьИсключение ТекстИсключения;
    КонецЕсли;
    ОбластьМакета = Макет.ПолучитьОбласть("Иде� �тификаторГосКонтракта");
    Если ЭтоУниверсальныйПередаточ ныйДокумент Тогда
    ОбластьМакета.Параметры.Ид ентификаторГосКонтракта = ДанныеШапки.Идентификатор� �осКонтракта;
    Иначе
    Если ВерсияПостановления1137 >= 4 Тогда
    ШаблонЗаголовкаГосконтрак т = НСтр("ru = 'Идентификатор государственного контракта, договора (соглашения) (при наличии): %1'");
    Иначе
    ШаблонЗаголовкаГосконтрак т = НСтр("ru = 'Идентификатор государственного контракта, договора (соглашения): %1'");
    КонецЕсли;
    ОбластьМакета.Параметры.Ид ентификаторГосКонтракта = СтроковыеФункцииКлиентСер вер.ПодставитьПараметрыВС� �року(
    ШаблонЗаголовкаГосконтрак т, ДанныеШапки.Идентификатор� �осКонтракта);
    КонецЕсли;
    ТабДокумент.Вывести(Област ьМакета);
    КонецЕсли;
    КонецЕсли;

    // Вывод заголовка таблицы

    ОбластьМакета = Макет.ПолучитьОбласть("Заг� �ловокТаблицы");
    ТабДокумент.Вывести(Област ьМакета);

    // Вывод табличной части

    ОбластьМакета = Макет.ПолучитьОбласть("Стр� �ка");

    КоличествоСтраниц = 1;

    СчетФактураБезНДС = Истина;
    НДСНеВыставляетя = Истина;

    НомерСтроки = 0;
    НомерЛиста = 1;
    КоличествоСтрок = ТаблицаДокумента.Количест� �о();
    Для каждого СтрокаДокумента Из ТаблицаДокумента Цикл

    НомерСтроки = НомерСтроки + 1;
    СтрокаДокумента.НомерСтро� �и = НомерСтроки;

    ОбластьМакета.Параметры.За полнить(СтрокаДокумента);

    Если НЕ ЗначениеЗаполнено(СтрокаД� �кумента.СтавкаНДС) Тогда
    ОбластьМакета.Параметры.Ст авкаНДС = "--";
    Если СтрокаДокумента.СуммаНДС = 0 Тогда
    ОбластьМакета.Параметры.Су ммаНДС = "--";
    КонецЕсли;
    КонецЕсли;

    ДозаполнитьСтрокуСчетаФак туры1137(ОбластьМакета, ВыборкаСФ.ВидСчетаФактуры) ;

    Если НЕ ПроверитьВыводСчетаФактур ыНаСтраницу(ТабДокумент, ОбластьМакета, (НомерСтроки = КоличествоСтрок), Макет, НомерЛиста, НомерСчетаФактуры, ЭтоУниверсальныйПередаточ ныйДокумент) Тогда
    КоличествоСтраниц = КоличествоСтраниц + 1;
    КонецЕсли;

    ТабДокумент.Вывести(Област ьМакета);

    СчетФактураБезНДС = СчетФактураБезНДС И СтрокаДокумента.СуммаНДС = 0
    И СтрокаДокумента.СтавкаНДС = Перечисления.СтавкиНДС.Без НДС;

    НДСНеВыставляетя = НДСНеВыставляетя И СтрокаДокумента.СуммаНДС = 0
    И НЕ ЗначениеЗаполнено(СтрокаД� �кумента.СтавкаНДС);

    КонецЦикла;

    ТабДокумент.Область(ТабДок умент.ВысотаТаблицы,,ТабДо� �умент.ВысотаТаблицы,).Вмес� �еСоСледующим = Истина;

    // Вывод итоговых сумм

    ОбластьМакета = Макет.ПолучитьОбласть("Ито� �о");
    Если ВыборкаСФ.ВидСчетаФактуры = Перечисления.ВидСчетаФакт� �рыВыставленного.НаАванс
    ИЛИ ВыборкаСФ.ВидСчетаФактуры = Перечисления.ВидСчетаФакт� �рыВыставленного.НаАвансКо митента
    ИЛИ ВыборкаСФ.ВидСчетаФактуры = Перечисления.ВидСчетаФакт� �рыВыставленного.НаАвансКо митентаНаЗакупку Тогда
    ОбластьМакета.Параметры.Ит огоСтоимость = "--";
    Иначе
    ОбластьМакета.Параметры.Ит огоСтоимость = ТаблицаДокумента.Итог("Сто� �мость");
    КонецЕсли;

    Если НДСНеВыставляетя Тогда
    ОбластьМакета.Параметры.Ит огоСуммаНДС = "--";
    ИначеЕсли СчетФактураБезНДС Тогда
    ОбластьМакета.Параметры.Ит огоСуммаНДС = "без НДС";
    Иначе
    ОбластьМакета.Параметры.Ит огоСуммаНДС = ТаблицаДокумента.Итог("Сум� �аНДС");
    КонецЕсли;

    ОбластьМакета.Параметры.Ит огоВсего = ТаблицаДокумента.Итог("Все� �о");
    ТабДокумент.Вывести(Област ьМакета);

    // Вывод подвала
    КоличествоЛистов = СтроковыеФункцииКлиентСер вер.ПодставитьПараметрыВС� �року(
    НСтр("ru = 'Документ составлен на%1%2 %3'"), Символы.ПС, КоличествоСтраниц,
    ОбщегоНазначенияБПКлиентС ервер.ФормаМножественного� �исла(
    НСтр("ru = 'листе'"), НСтр("ru = 'листах'"), НСтр("ru = 'листах'"), КоличествоСтраниц));

    ДанныеШапки.Вставить("Коли� �ествоЛистов", КоличествоЛистов);

    ОбластьМакета = Макет.ПолучитьОбласть("Под� �ал");
    ОбластьМакета.Параметры.За полнить(ДанныеШапки);
    ТабДокумент.Вывести(Област ьМакета);

    // Вывод информации о комиссионере по договорам комиссии на закупку

    Если НЕ ЭтоУниверсальныйПередаточ ныйДокумент И ЗначениеЗаполнено(ДанныеШ� �пки.ПредставлениеКомиссио нера) Тогда

    ОбластьМакета = Макет.ПолучитьОбласть("Рек� �изитыКомиссионера");
    ОбластьМакета.Параметры.Пр едставлениеКомиссионера = ДанныеШапки.Представление� �омиссионера;
    ТабДокумент.Вывести(Област ьМакета);

    КонецЕсли;

    КонецПроцедуры

  2. #2
    Иногда оказывает помощь

    Регистрация
    14.09.2019
    Сообщений
    121
    Сказал(а) спасибо
    93
    Поблагодарили 839 раз(а) в 173 сообщениях

    По умолчанию Re: Друзья помогите разобраться в коде

    Поставьте стоп и посмотрите в отладчике требуемые значения,
    если стоп не срабатывает -
    то скорее всего, процедура исполняется в фоновом режиме - установите в конфигураторе галочку "ловить фоновые задания" - будет останавливаться где скажите.
    ...

  3. #3
    Гость форума

    Регистрация
    19.06.2018
    Сообщений
    2
    Сказал(а) спасибо
    7
    Поблагодарили 1 раз в 1 сообщении

    По умолчанию Re: Друзья помогите разобраться в коде

    Из какого параметра то убрать?
    Формат разве не помогает?
    ОбластьМакета.Параметры.Да та = Формат(ДанныеШапки.Дата, "ДЛФ='Д'");

  4. Пользователь сказал cпасибо:

    mcmurphy) (02.09.2021)

Похожие темы

  1. Друзья, помогите скачать дрова с сайта асус. Спасибо.
    от BOSS_KRR в разделе Драйверы и прошивки BIOS
    Ответов: 2
    Последнее сообщение: 11.11.2019, 22:36
  2. Ответов: 0
    Последнее сообщение: 18.10.2017, 15:32
  3. 1с 8.1 розница удаление пробелов в коде номенклатуры
    от arturzin в разделе 1С - Предприятие 8.0, 8.1, 8.2, 8.3
    Ответов: 1
    Последнее сообщение: 19.03.2012, 19:55

Социальные закладки

Социальные закладки

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •