Как можно сделать дату в таком формате,подскажите пожалуйста)))"__"

"___"_______________ 200_р.

стиль шрифта "подчеркнутый" не предлагать?

200 рублей на что?)

(1) поторопился )

200_ рiк или год

диктую, записывай: "___"_______________ 200_р.

а ещё год можно на 10 поделить и взять целую часть

Контрл-ц контрл-в

А если серьёзно?

CtrlC-V не катит,должно автоматом забивать значения

(9) Серьезно.

у нижней строки сделай верхнее подчеркивание, или Шрифт у этой с подчеркиванием. Где проблем то?

коллеги, что он хочет?

(13) Скорее всего (1), только год должен из даты браться

(13) чтоб ты выслал ему печ форму, где это реализовано

(14) <--- Это предположение

Думаю, разделить дату на ЧЧ ММММ ГГГГ и записать в соответствующие ячейки ТП с подчеркиванием.

ЧЧ = ДД

(14) Всмысле Цел(Год/10), т.е. посл цифра на _ заменена

"30" ноября 2012р

Я так понимаю никто не знает...

В поиск, дарагой, в поиск - нет времени у меня сейчас даже на то чтобы расказать сколько раз это уже спрашивали.

(21) вот я так и не понял. а было интересно, загадочно и таинственно

в поисковике ничего не нахожу что-то...

(24) Ты в поисковике условия свой задачи ищешь? :)

не угадал)

(24) продолжай наблюдения

Что-то я к вечер торможу возможно, не удается кавычку в форматную строку вставить.
Получился вот такой г-код (для условия в (20)):

СтрЗаменить(Формат(НужнаяДата, "ДФ=""*дд* ММММ гггг"""),"*","""")+"г."

г. вставил:

СтрЗаменить(Формат(НужнаяДата, "ДФ=""*дд* ММММ гггг 'г.'"""),"*","""")

Спасибо,сейчас попробую))

ммммм ошибка.... куда же её вставить...


{Документ.АктВыполненныхРабот.МодульМенеджера(1943,12)}: Встроенная функция может быть использована только в выражении. (СтрЗаменить)
СтрЗаменить<<?>>(Формат(НужнаяДата, "ДФ=""*дд* ММММ гггг"""),"*","""")+"г." (Проверка: Сервер)

(31) присвой, срочно присвой это чему-нибудь

ДатаСтрокой=СтрЗаменить(...

во еще
Формат(Дата, "ДФ='``дд`` ММММ гггг ""г.""'");

или
Формат(Дата, "ДФ='«дд» ММММ гггг ""г.""'")

я крут ;p

одни ошибки(((

Мож я не туда вставляю



Процедура ПечатьНовая(ТабДок, Ссылка) Экспорт
   //{{_КОНСТРУКТОР_ПЕЧАТИ(ПечатьНовая)
   Макет = Документы.АктВыполненныхРабот.ПолучитьМакет("ПечатьНовая");
   Запрос = Новый Запрос;
   Запрос.Текст =
   "ВЫБРАТЬ
   |    АктВыполненныхРабот.Контрагент КАК Контрагент,
   |    АктВыполненныхРабот.Контрагент.КодПоЕДРПОУ КАК КодПоЕДРПОУ,
   |    АктВыполненныхРабот.Контрагент.БанковскийСчетПоУмолчанию КАК БанковскийСчетПоУмолчанию,
   |    АктВыполненныхРабот.Контрагент.КонтактноеЛицо КАК КонтактноеЛицо,
   |    АктВыполненныхРабот.Контрагент.БанковскийСчетПоУмолчанию.НомерСчета КАК НомерСчета,
   |    АктВыполненныхРабот.Контрагент.КодПоЕДРПОУ КАК КодПоЕДРПОУ2,
   |    АктВыполненныхРабот.Контрагент.БанковскийСчетПоУмолчанию КАК БанковскийСчетПоУмолчанию2,
   |    АктВыполненныхРабот.Контрагент.БанковскийСчетПоУмолчанию.НомерСчета КАК НомерСчета2,
   |    АктВыполненныхРабот.Номер КАК Номер,
   |    АктВыполненныхРабот.РаботыИУслуги.(
   |        Номенклатура
   |    ) КАК РаботыИУслуги,
   |    АктВыполненныхРабот.СуммаДокумента КАК СуммаДокумента1,
   |    АктВыполненныхРабот.Контрагент.КонтактнаяИнформация.(
   |        Страна КАК Страна,
   |        Регион КАК Регион,
   |        Город КАК Город,
   |        НомерТелефона КАК НомерТелефона,
   |        АдресЭП КАК АдресЭП,
   |        Страна КАК Страна1,
   |        Регион КАК Регион1,
   |        Город КАК Город1,
   |        АдресЭП КАК АдресЭП1,
   |        НомерТелефона КАК НомерТелефона1,
   |        Ссылка КАК Поле1,
   |        НомерСтроки КАК Поле2,
   |        Тип КАК Поле3,
   |        Вид КАК Поле4,
   |        Представление КАК Поле5,
   |        ЗначенияПолей КАК Поле6,
   |        Страна КАК Поле7,
   |        Регион КАК Поле8,
   |        Город КАК Поле9,
   |        АдресЭП КАК Поле10,
   |        ДоменноеИмяСервера КАК Поле11,
   |        НомерТелефона КАК Поле12,
   |        НомерТелефонаБезКодов КАК Поле13
   |    ) КАК КонтактнаяИнформация,
   |    АктВыполненныхРабот.Дата,
   |    АктВыполненныхРабот.Дата КАК Дата1,
   |    АктВыполненныхРабот.Дата КАК Дата2,
   |    АктВыполненныхРабот.Контрагент.КонтактноеЛицо КАК КонтрагентКонтактноеЛицоНаименование,
   |    АктВыполненныхРабот.СуммаДокумента КАК СуммаДокумента
   |ИЗ
   |    Документ.АктВыполненныхРабот КАК АктВыполненныхРабот
   |ГДЕ
   |    АктВыполненныхРабот.Ссылка В(&Ссылка)";
   Запрос.Параметры.Вставить("Ссылка", Ссылка);
   Выборка = Запрос.Выполнить().Выбрать();
   

   Выборка.Следующий();
   ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
   
   КодЯзыкаПечать = Локализация.ПолучитьЯзыкФормированияПечатныхФорм();    
   СведенияОбКонтрагенте = УправлениеНебольшойФирмойСервер.СведенияОЮрФизЛице(КодЯзыкаПечать,Выборка.Контрагент, Выборка.Дата, ,);

   ОбластьЗаголовок.Параметры.КонтактнаяИнформацияНаименование = УправлениеНебольшойФирмойСервер.ОписаниеОрганизации(СведенияОбКонтрагенте, "ИНН,КодПоЕДРПОУ,ЮридическийАдрес,Телефоны,");

   ОбластьЗаголовок.Параметры.Заполнить(Выборка);
   ТабДок.Вывести(ОбластьЗаголовок);
   
   
   ////////Сумма прописью////////
   Середина = Макет.ПолучитьОбласть("Середина");
   АААА  = Выборка.Номер;
   ДД = Выборка.Дата;
   Середина.Параметры.Заполнить(Выборка);
   Середина.Параметры.Номер  = АААА;
   Середина.Параметры.Дата = ДД;
   ТабДок.Вывести(Середина);
   
   ОбластьТовар = Макет.ПолучитьОбласть("Товар");
   ВыборкаСтрокТовары = Выборка.РаботыИУслуги.Выбрать();
   
   Пока ВыборкаСтрокТовары.Следующий() Цикл
       ОбластьТовар.Параметры.Заполнить(ВыборкаСтрокТовары);
       ТабДок.Вывести(ОбластьТовар, ВыборкаСтрокТовары.Уровень());
   КонецЦикла;

   Подвал = Макет.ПолучитьОбласть("Подвал");
   
   СуммаДокумента1   = "Л = uk_UA; ДП = Истина";
   ПарПредмета = "гривна, гривны, гривень, м, копейка, копейки, копiйок, ж, 2";
   Подвал.Параметры.СуммаДокумента1 = ЧислоПрописью(Выборка.СуммаДокумента1,СуммаДокумента1,ПарПредмета);
   ТабДок.Вывести(Подвал);
   
       
   Выборка.Следующий();
   ОбластьКонтрагент = Макет.ПолучитьОбласть("Контрагент");
   
   КодЯзыкаПечать = Локализация.ПолучитьЯзыкФормированияПечатныхФорм();    
   СведенияОбКонтрагенте = УправлениеНебольшойФирмойСервер.СведенияОЮрФизЛице(КодЯзыкаПечать,Выборка.Контрагент, Выборка.Дата, ,);

   ОбластьКонтрагент.Параметры.КонтактнаяИнформацияНаименование1 = УправлениеНебольшойФирмойСервер.ОписаниеОрганизации(СведенияОбКонтрагенте, "ИНН,КодПоЕДРПОУ,ЮридическийАдрес,Телефоны,");

   ОбластьКонтрагент.Параметры.Заполнить(Выборка);
   ТабДок.Вывести(ОбластьКонтрагент);
   

   
   //ОбластьКонтрагент = Макет.ПолучитьОбласть("Контрагент");
   //
   //КодЯзыкаПечать = Локализация.ПолучитьЯзыкФормированияПечатныхФорм();
   //
   //СведенияОбКонтрагенте = УправлениеНебольшойФирмойСервер.СведенияОЮрФизЛице(КодЯзыкаПечать,Выборка.Контрагент, Выборка.Дата, ,);    
   //ОбластьКонтрагент.Параметры.КонтакнаяИнформация1 = УправлениеНебольшойФирмойСервер.ОписаниеОрганизации(СведенияОбКонтрагенте, "ИНН,КодПоЕДРПОУ,ЮридическийАдрес,Телефоны,");
   //ОбластьКонтрагент.Параметры.Заполнить(Выборка);
   //
   //ТабДок.Вывести(ОбластьКонтрагент);
   
   ОбластьПодпись = Макет.ПолучитьОбласть("Подпись");
   ОбластьПодпись.Параметры.Заполнить(Выборка);
   ТабДок.Вывести(ОбластьПодпись);
   
   
   ///////ДАТА/////////
   ОбластьДата = Макет.ПолучитьОбласть("Дата");
   Дата = Макет.ПолучитьОбласть("Дата");
   ДД = Выборка.Дата1;
   
   //Дата.Параметры.Дата1 = ДД;
   //Дата.Параметры.Дата2 = ДД;
   
   ТабДок.Вывести(Дата);    
   ОбластьДата.Параметры.Заполнить(Выборка);
   ТабДок.Вывести(ОбластьДата);
   
   
   
   
   
   Дата = Макет.ПолучитьОбласть("Дата");
   ДД = Выборка.Дата1;
   ДД = Выборка.Дата2;
   
   //Дата.Параметры.Дата1 = ДД;
   //Дата.Параметры.Дата2 = ДД;
   
   ТабДок.Вывести(Дата);
   
   
   //Середина = Макет.ПолучитьОбласть("Середина");
   //Середина.Параметры.СуммаДокумента = ЧислоПрописью (Выборка.СуммаДокумента,,"Гривня,Гривні,Гривень,копійки,копійок");
   //ТабДок.Вывести(Середина);
   
   
   //Шапка = Макет.ПолучитьОбласть("Шапка");
   //ТабДок.Очистить();
   
   //ВставлятьРазделительСтраниц = Ложь;
   //Пока Выборка.Следующий() Цикл
   //    Если ВставлятьРазделительСтраниц Тогда
   //        ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
   //    КонецЕсли;
   
   
   //    Шапка.Параметры.Заполнить(Выборка);
   //    ТабДок.Вывести(Шапка, Выборка.Уровень());
   
   //        ВставлятьРазделительСтраниц = Истина;
   //    КонецЦикла;
   //}}
КонецПроцедуры

Кто подскажет куда правильней?Сегодня срочно надо распечатать документы....

Аууу люди добрые!)

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

ТАКИЕ... Сильно высокого мнения о себе как я вижу...

ну пилять по крайней мере в макете записать дату, месяц и год в разные ячейки с нижним подчеркиванием(или с границей внизу) до этого даже ребенок додумается

Так не красиво получается....

(0) Кажется в форме ИНВ-1 (документ инвентаризация ОС) из УПП видел такое

Нет,мне в АктеВыполненных работ и услуг,но какая разница...

(44)что значит некрасиво? подравнять размер чтобы красиво,не?

(46) Я понимаю. Посмотри как в ИНВ-1 сделано.

Формат даты без времени подскажите?

НужнаяДата - абстрактная переменная даты, которую ты должен заменить на свою:

ДатаСтрокой = Формат(НужнаяДата,"ДФ='дд ММММ гггг'");
ДатаСтрокой = """" + Лев(ДатаСтрокой,2) + """" + Сред(ДатаСтрокой,3) + " г.";


Так пойдет?

(50) что ты ересь всякую. советуешь? ДЛФ=D - вполне без времени. у меня

и вот без времени. уже у всех: ДФ=y

Может я покажусь совсем дибилом но у меня такой код и как можно подставить формат?Ато я подставляю и что-то одни ошибки....

Середина = Макет.ПолучитьОбласть("Середина");
   АААА  = Выборка.Номер;
   ДФ=y = Выборка.Дата;
   Середина.Параметры.Заполнить(Выборка);
   //Середина.Параметры.Номер  = АААА+"мпгмпигпгпг"+ЧислоПрописью(Выборка.СуммаДокумента1,СуммаДокумента1,ПарПредмета)+"";
   Середина.Параметры.Дата=ДФ=y;
   ТабДок.Вывести(Середина);

(53) почитай документацию и вымой руки с мылом, ошибок не будет

документацию про формат. и перый курс хотя б закончи

(54) Руки здесь причем?

(56) пишут всякую гадость. или это из головы?

Я в программировании только начинающий и пока не знаю всех нюансов,по этому и спрашиваю здесь у Вас.Я закончил курсы,отвалил за них не мало денег,но без практики это не то и теперь приходиться наверстывать.

(58) я закончил целых пять курсов, сильно помогло. а читать и думать учат ещё в школе. уже сходил почитать?

+(59) кстати, без денег

(58) Курсы по программированию закончил?

ну да,по 1с8 (61)

(53) Прав :\

:)

Середина.Параметры.Дата=формат(Выборка.Дата,"ДЛФ=D");// или чего там надо

(53) ДФ=y = Выборка.Дата; вот это доставило)

(63) потому что "формат" в топике было уже 100500 раз и можно было хоть что-то усвоить

Да я знаю какой формат мне нужен.У меня не получается его впихнуть чтоб работало.

(68) "формат" - это функция, так тебя за ногу

Мдя...

Попробовал так и вместо Даты пишет ТабличныйДокумент...


///////ДАТА/////////
   ОбластьДата = Макет.ПолучитьОбласть("Дата");
   Дата = Макет.ПолучитьОбласть("Дата");
   
   ОбластьДата.Параметры.Заполнить(Выборка);
   ОбластьДата = Макет.ПолучитьОбласть("Дата");
   ОбластьДата.Параметры.Дата1=Формат(Дата,"ДФ=dd.MM.yy");

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

(71) Ты чо творишь вообще, понимаешь? В формат засунуть область - это надо еще умудриться!

Я попробовал как здесь пример дают: http://www.1c-galaxy.ru/forum4/topic446743/

(73) Ты ошибся ссылкой и форумом: v8: Как в макете установить формат даты без времени?

Ну извините

(73) Плохо смотрел. Читай до просветления.

Ну подскажите пожалуйстааа..2 часа уже сижу с этой датой

(77) Например так, не?:
ОбластьДата = Макет.ПолучитьОбласть("Дата");
ОбластьДата.Параметры.Дата1=Формат(ВЫБОРКА.Дата,"ДФ=dd.MM.yy");
ТабДок.Вывести(ОбластьДата);

(77) Вопрос 1: Зачем в (71) Несколько раз получать одну и ту же область табличного документа?
Вопрос 2: Зачем пихать в Формат() область?

Я убираю любую из них и вообще уже ничего не выводится. (79)

Что не делаю только выводит ошибки....

(81) Тебе в (78) все написали.

авторы курсов недалёкие какие-то. совсем не учат прогрммированию, 1Ске только

Аллилуйя!!!Получилось!!!Всем огромное спасибо за подсказки и терпениие)))Всем хорошего дня и настроения!!!

(84)
как сделал и что получилось?

Wobland, а как к тебе в аську стучаться? Я хотел показать одну забавную обработку.

(86) включаю

Позже скину