Имя: Пароль:
1C
1С v8
Опять дата: «__» __________ 20__ г.
,
0 листопад
 
24.04.14
02:00
Как вывести дату в виде:
«__» __________ 20__ г.


Пишу:

ш_ДатаИзм=?(ш_ДатаИзм='00010101', """ __ "" _______ 20___г.", Формат(ш_ДатаИзм,"ДФ='«дд» ММММ гггг'")+" г.");



Выводит:

« __ « _______ 20___г.

Т.е. справа кавычка не в ту сторону.
1 IamAlexy
 
24.04.14
02:02
ээээ что мешает сделать так

ш_ДатаИзм = "«__» __________ 20__ г.";
2 Aleksey
 
24.04.14
02:16
(1) А он как написал?
3 IamAlexy
 
24.04.14
02:17
(2) он зачем то написал вот так:

"Пишу:

ш_ДатаИзм=?(ш_ДатаИзм='00010101', """ __ "" _______ 20___г.", Формат(ш_ДатаИзм,"ДФ='«дд» ММММ гггг'")+" г."); "
4 Aleksey
 
24.04.14
02:18
(3) Если дата пустая тогда выводим
""" __ "" _______ 20___г."
Иначе
Формат(ш_ДатаИзм,"ДФ='«дд» ММММ гггг'")+" г."
КонецЕсли;


Так понятнее?
5 Aleksey
 
24.04.14
02:19
(0) если не ошибаюсь убери пробел до ковычек, тогда направление изменится, т.е.

..."" __"" _...
6 Aleksey
 
24.04.14
02:20
""" __"" _______ 20___г.",
7 листопад
 
24.04.14
02:37
(5) Спасибо! Помогло!!!
8 листопад
 
24.04.14
02:45
Еще беда с кавычками: наименование орг-ции выходит как ОАО»Союз». Вот кусочек кода(в Ворд вывожу):


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

Функция Печать() Экспорт
    
    Выборка = СформироватьЗапросДляПечати().Выбрать();
    
    Если Выборка.Следующий() Тогда
        ш_ОргПолное=СокрЛП(Выборка.ПолноеНазваниеОрганизации);
    КонецЕсли;
    
    Макет = ПолучитьМакет("МакетWord");
    MSWord = Макет.Получить();
    
    Документ = MSWord.Application.Documents(1);
    Документ.Activate();
    
    Замена = Документ.Content.Find;
    Замена.Wrap = 1;   //чтобы не писать каждый раз  Find
    Замена.Execute("ш_ОргПолное", , , , , , , , ,ш_ОргПолное,2);
    MSWord.Application.Visible=Истина;
    MsWord.Activate();
    MSWord.Application.Quit();
КонецФункции
9 листопад
 
24.04.14
02:46
+(8) Т.е. ключевая строчка это:
ш_ОргПолное=СокрЛП(Выборка.ПолноеНазваниеОрганизации);

Почему он кавычки неправильно ставит?
10 Aleksey
 
24.04.14
02:54
(8) по той же причине. если слева ничего нет, то он считает что нужны открывающие ковычки, в противном случае будут закрывающие.
Так как миежду ОАО и "»" ничего нет (в смысле пробела), то он ставит закрывающую ковычку

Ну т.е. поправь наименование чтобы было

ОАО пробел "Союз"
11 Aleksey
 
24.04.14
02:58
второй вариант в настройках верда убрать автозамену ковычек
http://office.microsoft.com/ru-ru/word-help/HA010173242.aspx
12 Aleksey
 
24.04.14
03:02
теоретически что то типа
Документ.Options.AutoFormatAsYouTypeReplaceQuotes = False
13 Wobland
 
24.04.14
03:03
MsWord.Activate();
    MSWord.Application.Quit();

а это сейчас так принято?
14 листопад
 
24.04.14
03:04
(11) СПАСИБО! Помогло!!!
15 StaticUnsafe
 
24.04.14
09:47
(5) Ы_Ы
Кaк может человек ожидaть, что его мольбaм о снисхождении ответит тот, кто превыше, когдa сaм он откaзывaет в милосердии тем, кто ниже его? Петр Трубецкой