Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
28 мар 2024, 18:07

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

Автор fagust1982, 27 дек 2013, 13:09

0 Пользователей и 1 гость просматривают эту тему.

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

Цитата: fagust1982 от 27 дек 2013, 13:09
//определить год по реквизиту дата сообщение
//документ дело
таб =  РеквизитФормыВЗначение("Объект");
р=таб.ДокументДело.Договор.НомерДоговора;
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к.
Ты конечно извини но если стал работать с программирование то применяй общие правила.

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск