нужно вставить текущую дату

[fagust1982]

 

Код Выделить Развернуть

//определить год по реквизиту дата сообщение
//документ дело
таб =  РеквизитФормыВЗначение("Объект");
р=таб.ДокументДело.Договор.НомерДоговора;
j=Формат(ТекущаяДата(),"ДФ= г");

//Сообщение = Новый СообщениеПользователю;
//Сообщение.Текст=Формат(ТекущаяДата(),"ДФ= г");
//Сообщение.Сообщить();
//Сообщение = Новый СообщениеПользователю;
//Сообщение.Текст=р;
//Сообщение.Сообщить();
з=Новый Запрос;
з.УстановитьПараметр("Номер",таб.ДокументДело.Договор);
з.Текст="ВЫБРАТЬ
| Заявление.Ссылка,
| Заявление.Договор.НомерДоговора
|ИЗ
| Документ.Заявление КАК Заявление
|ГДЕ
| Заявление.Договор = &Номер";
рез=з.Выполнить().Выгрузить();
  Для каждого тек из рез Цикл
  //ф=тек.Ссылка
// Сообщение = Новый СообщениеПользователю;
//Сообщение.Текст=Формат(ТекущаяДата(),"ДФ= г");
//Сообщить(Формат(ТекущаяДата(),"ДФ= г"));
//Сообщение = Новый СообщениеПользователю;
//Сообщение.Текст=тек.Ссылка.НомерДелаЮА;
//Сообщение.Сообщить();
КонецЦикла;
з=Новый Запрос;
з.УстановитьПараметр("Номер",таб.ДокументДело);
з.Текст="ВЫБРАТЬ
| СтраховойАкт.Ссылка,
| СтраховойАкт.Заявление
|ИЗ
| Документ.СтраховойАкт КАК СтраховойАкт
|ГДЕ
| СтраховойАкт.Заявление = &Номер";
рез=з.Выполнить().Выгрузить();

Для каждого тек из рез Цикл
// j=Формат(ТекущаяДата(),"ДФ= г");
// Сообщение = Новый СообщениеПользователю;
// Сообщение.Текст=Формат(ТекущаяДата(),"ДФ= г");
//Сообщить(Формат(ТекущаяДата(),"ДФ= г"));

//Сообщение = Новый СообщениеПользователю;
//Сообщение.Текст=тек.Ссылка.Номер;
//Сообщение.Сообщить();
КонецЦикла;
n=таб.ДокументДело.Договор.Продукт;
Если лев(СокрЛП(нрег(n)),5)=("каско") ИЛИ найти(n,"КАСКО")>0 Тогда

h=("к");
//Сообщение = Новый СообщениеПользователю;
//Сообщение.Текст=("к");
//Сообщение.Сообщить();
КонецЕсли;
Если лев(СокрЛП(нрег(n)),5)=("го") ИЛИ найти(n,"ГО")>0  Тогда
h=("о");
//Сообщение = Новый СообщениеПользователю;
//Сообщение.Текст=("о");
//Сообщение.Сообщить();
КонецЕсли;
Если лев(СокрЛП(нрег(n)),5)=("майно") ИЛИ найти(n,"Майно")>0 Тогда
h=("м");
//Сообщение = Новый СообщениеПользователю;
//Сообщение.Текст=("м");                                                         
//Сообщение.Сообщить();
КонецЕсли;       
Если лев(СокрЛП(нрег(n)),5)=("дго") ИЛИ найти(n,"ДГО")>0 Тогда
h=("д");
//Сообщение = Новый СообщениеПользователю;
//Сообщение.Текст=("д");
//Сообщение.Сообщить();
КонецЕсли;
// Если найти(n,"НомерДоговора")>0 Тогда
// Сообщение = Новый СообщениеПользователю;
// Сообщение.Текст=Формат(ТекущаяДата(),"ДФ= г");
// Сообщить(Формат(ТекущаяДата(),"ДФ= г"));
//
//КонецЕсли;

  t = р+h;
 
сообщить(t);
j=Формат(ТекущаяДата(),"ДФ= г"); выводит 1624.01.1213к, а нужно 1624.1301.12к.

[DmitriyF]

Код Выделить Развернуть

//определить год по реквизиту дата сообщение
//документ дело
таб =  РеквизитФормыВЗначение("Объект");
р=таб.ДокументДело.Договор.НомерДоговора;
j=Формат(ТекущаяДата(),"ДФ= г");

//Сообщение = Новый СообщениеПользователю;
//Сообщение.Текст=Формат(ТекущаяДата(),"ДФ= г");
//Сообщение.Сообщить();
//Сообщение = Новый СообщениеПользователю;
//Сообщение.Текст=р;
//Сообщение.Сообщить();
з=Новый Запрос;
з.УстановитьПараметр("Номер",таб.ДокументДело.Договор);
з.Текст="ВЫБРАТЬ
| Заявление.Ссылка,
| Заявление.Договор.НомерДоговора
|ИЗ
| Документ.Заявление КАК Заявление
|ГДЕ
| Заявление.Договор = &Номер";
рез=з.Выполнить().Выгрузить();
  Для каждого тек из рез Цикл
  //ф=тек.Ссылка
// Сообщение = Новый СообщениеПользователю;
//Сообщение.Текст=Формат(ТекущаяДата(),"ДФ= г");
//Сообщить(Формат(ТекущаяДата(),"ДФ= г"));
//Сообщение = Новый СообщениеПользователю;
//Сообщение.Текст=тек.Ссылка.НомерДелаЮА;
//Сообщение.Сообщить();
КонецЦикла;
з=Новый Запрос;
з.УстановитьПараметр("Номер",таб.ДокументДело);
з.Текст="ВЫБРАТЬ
| СтраховойАкт.Ссылка,
| СтраховойАкт.Заявление
|ИЗ
| Документ.СтраховойАкт КАК СтраховойАкт
|ГДЕ
| СтраховойАкт.Заявление = &Номер";
рез=з.Выполнить().Выгрузить();

Для каждого тек из рез Цикл
// j=Формат(ТекущаяДата(),"ДФ= г");
// Сообщение = Новый СообщениеПользователю;
// Сообщение.Текст=Формат(ТекущаяДата(),"ДФ= г");
//Сообщить(Формат(ТекущаяДата(),"ДФ= г"));

//Сообщение = Новый СообщениеПользователю;
//Сообщение.Текст=тек.Ссылка.Номер;
//Сообщение.Сообщить();
КонецЦикла;
n=таб.ДокументДело.Договор.Продукт;
Если лев(СокрЛП(нрег(n)),5)=("каско") ИЛИ найти(n,"КАСКО")>0 Тогда

h=("к");
//Сообщение = Новый СообщениеПользователю;
//Сообщение.Текст=("к");
//Сообщение.Сообщить();
КонецЕсли;
Если лев(СокрЛП(нрег(n)),5)=("го") ИЛИ найти(n,"ГО")>0  Тогда
h=("о");
//Сообщение = Новый СообщениеПользователю;
//Сообщение.Текст=("о");
//Сообщение.Сообщить();
КонецЕсли;
Если лев(СокрЛП(нрег(n)),5)=("майно") ИЛИ найти(n,"Майно")>0 Тогда
h=("м");
//Сообщение = Новый СообщениеПользователю;
//Сообщение.Текст=("м");                                                         
//Сообщение.Сообщить();
КонецЕсли;       
Если лев(СокрЛП(нрег(n)),5)=("дго") ИЛИ найти(n,"ДГО")>0 Тогда
h=("д");
//Сообщение = Новый СообщениеПользователю;
//Сообщение.Текст=("д");
//Сообщение.Сообщить();
КонецЕсли;
// Если найти(n,"НомерДоговора")>0 Тогда
// Сообщение = Новый СообщениеПользователю;
// Сообщение.Текст=Формат(ТекущаяДата(),"ДФ= г");
// Сообщить(Формат(ТекущаяДата(),"ДФ= г"));
//
//КонецЕсли;

  t = р+h;
 
сообщить(t);
j=Формат(ТекущаяДата(),"ДФ= г"); выводит 1624.01.1213к, а нужно 1624.1301.12к.

Ты конечно извини но если стал работать с программирование то применяй общие правила.