| 
    
        
     
     | 
    
  | 
Опять дата: «__» __________ 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) Ы_Ы     
         | 
| Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |