Помощь - Поиск - Пользователи - Календарь
Полная версия этой страницы: Номер счета и дата в налоговой
Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7 > Программисту > Программирование в 1С Предприятие 8.2 > Программирование обычных форм 1С 8.2 и не интерфейсной логики
underwater
Здравствуйте!
Подскажите, пожалуйста, как можно добавить такую форму заполнения номера счета и его даты в поле договора в налоговой накладной, чтобы при печати налоговой накладной подтягивался этот номер в строке "Вид цивільно-правового договору".
1С 8.2 последняя версия, Бухгалтерия Украины последняя версия.

Пример прилагается с УТП.

logist
А не проще брать данные из счета, судя по всему они от-туда и берутся, зачем добавлять реквизиты в НН, пропишите необходимые изменения в код, там вроде всего в трех местах надо.
underwater
Какие изменения и в какой код, можете подсказать где и что прописывать?
Я просто ещё не совсем разбираюсь в этом - новичок..

Спасибо большое!
logist
Процедура модуля объекта "ПечатьДокументаНалоговыйКодекс2015"
для изменения даты, найти там код
    ТекДатаДоговора = Шапка.ДатаДоговора;
    Если ЗначениеЗаполнено(ТекДатаДоговора) Тогда
        ТекДатаДоговора = Формат(ТекДатаДоговора,"ДФ=ddMMyyyy");
    Иначе
        ТекДатаДоговора = "";
    КонецЕсли;
и изменить его на
Если ТипЗнч(Объект.Сделка)  = Тип("ДокументСсылка.СчетНаОплатуПокупателю") Тогда
        ТекДатаДоговора = Формат(Объект.Сделка.Дата,"ДФ=ddMMyyyy");
Иначе
    ТекДатаДоговора = Шапка.ДатаДоговора;
    Если ЗначениеЗаполнено(ТекДатаДоговора) Тогда
        ТекДатаДоговора = Формат(ТекДатаДоговора,"ДФ=ddMMyyyy");
    Иначе
        ТекДатаДоговора = "";
    КонецЕсли;
КонецЕсли


Для изменения номера договора найти код
    ТекНомерДоговора = СокрЛП("" + Шапка.НомерДоговора);

и заменить его на
Если ТипЗнч(Объект.Сделка)  = Тип("ДокументСсылка.СчетНаОплатуПокупателю") Тогда
    ТекНомерДоговора = СокрЛП("" + Объект.Сделка.Номер);  // Только тут будет префикс и лидирующие нули, если надо - найдите где-то функцию ПолучитьНомерДляПечати или как-то так
Иначе
    ТекНомерДоговора = СокрЛП("" + Шапка.НомерДоговора);
КонецЕсли


возможно в этой процедуре они могут встретиться несколько раз, точно не помню.
underwater
Спасибо большое, но оказывается я ещё очень далек к этим процессам...придется искать помощи, кто бы смог такое прописать.
underwater
Цитата(underwater @ 29.01.15, 16:25) необходимо зарегистрироваться для просмотра ссылки
Спасибо большое, но оказывается я ещё очень далек к этим процессам...придется искать помощи, кто бы смог такое прописать.

Но если кто-нибудь подскажет, как и где именно это прописывается, буду очень признателен.
Быть может существуют другие способы, как можно это проще сделать...
Для просмотра полной версии этой страницы, пожалуйста, пройдите по ссылке.