Имя: Пароль:
1C
 
Предварительный просмотр в 1С
0 SYS-eva
 
09.11.07
16:53
Ребят есть ли возможность программно открыть предварительный просмотр в 1С-ке?
1 smaharbA
 
09.11.07
16:57
Alt+ф+р
2 SYS-eva
 
09.11.07
17:09
smaharbA - я имел ввиду кодом))))
3 Pasha
 
09.11.07
17:13
Таб.Показать()
4 SYS-eva
 
09.11.07
17:19
Млин ну как вам еще объяснить открыть програмно нужно (т.е. кодом прописанным в модуле формы) - ПРЕДВАРИТЕЛЬНЫЙ ПРОСМОТР ДОКУМЕНТА Т.Е, ТОТ КОТОРЫЙ ОТКРЫВАЕТСЯ Alt+ф+р ИЛИ КНОПОЧКОЙ ВОЗЛЕ ПРИНТЕРА ИЛИ ИЗ МЕНЮ ФАЙЛ ПОДПУНКТОМ ПРЕДВАРИТЕЛЬНЫЙ ПРОСМОТР!!!!
5 NS
 
09.11.07
17:22
Блондинка? Видимо Caps Lock случайно нажался :)
WSH+SendKeys()
Alt+ф+р
:)
6 Trigg
 
09.11.07
17:24
(4)
ок
7 Trigg
 
09.11.07
17:24
(5)
Ахтунг, у блондинки имя Сергей! :)
8 SYS-eva
 
09.11.07
17:25
NS - чето я не понял "WSH+SendKeys()" - это что?
9 SYS-eva
 
09.11.07
17:26
Trigg - ага полный ахтунг:)
10 NS
 
09.11.07
17:26
(8)
wsh=СоздатьОбъект("WScript.Shell");
wsh.SendKeys();
11 SYS-eva
 
09.11.07
17:28
NS- а "Alt+ф+р" куда лепить?
12 FreeFin
 
09.11.07
17:32
WSHShell = СоздатьОбъект("WScript.Shell");
WSHShell.SendKeys("%...
WSHShell.SendKeys("а если раскладка переключена как и какой код символа передавать? на ф+р
13 NS
 
09.11.07
17:36
Их слать по-очереди нужно.
Можно вместо "ф" и "р" добежать стрелкой вниз.
14 SYS-eva
 
09.11.07
17:43
wsh=СоздатьОбъект("WScript.Shell");
wsh.SendKeys("%Alt");
wsh.SendKeys("%о");
wsh.SendKeys("%р");

Не работает парни может, что я делаю не так?
15 FreeFin
 
09.11.07
17:43
(13) Ааа, понял, изврат ))) как всегда... надо попробовать еще мышой псевдодавнуть.)
16 SYS-eva
 
09.11.07
17:46
FreeFin - а это еще как, Брозы я не догоняю дайте код рабочий плиз!!!
17 FreeFin
 
09.11.07
17:46
Пошалю.
SendKeys(<?>);
Синтаксис:
SendKeys(<клавиши>);
Назначение:
Посылает последовательность клавиш в активное окно, как если бы они были нажаты в нем пользователем. Возвращает 1 в случае успеха, 0 в случае неудачи.
Параметры:
<клавиши> - строка, содержащая последовательность клавиш.
Каждая клавиша представлена одним или более символом. Чтоб задать простой клавиатурный символ, используйте его самого. Например, чтобы задать 'А', используйте 'А'в качестве параметра.
Чтобы задать больше, чем один символ, добавляйте каждый дополнительный символ к предыдущему. Например, чтобы задать символы А, B и С, используйте 'ABC'.
Символы '+' ,'^', '%',' ~','(',')' имеют специальные значения. Чтобы задать один из этих символов, заключите их в фигурные скобки '{}'. Например, чтобы задать 'плюс', используйте {+}.
Квадратные скобки '[]' не имеют специального значения, но вы должны заключать их в фигурные скобки. Чтобы задавать сами фигурные скобки, используйте '{{}' и '{}}'.
Чтобы задавать клавиши, которые не отображаются на экране (напр. ENTER или TAB), используйте приведенные ниже коды:

клавиша - код

BACKSPACE - {BACKSPACE}, {BS}, или {BKSP}
BREAK - {BREAK}
CAPS LOCK - {CAPSLOCK}
DEL или DELETE - {DELETE} или {DEL}
Вверх - {UP}
Вниз - {DOWN}
Влево - {LEFT}
Вправо - {RIGHT}
END - {END}
ENTER - {ENTER}
ESC - {ESC}
HELP - {HELP}
HOME - {HOME}
INS или INSERT - {INS}
NUM LOCK - {NUMLOCK}
PAGE DOWN - {PGDN}
PAGE UP - {PGUP}
PRINT SCREEN - {PRTSC}
SCROLL LOCK - {SCROLLLOCK}
TAB - {TAB}
Fx - {Fx}

Чтобы задать комбинацию клавиш с использованием SHIFT, CTRL и ALT, используйте следующие коды:

клавиша - код

SHIFT - +
CTRL  - ^
ALT - %

Чтобы задать, что SHIFT, CTRL, и ALT должны быть в нажатом положении во время нажатия других клавиш,
заключите коды этих других клавиш в скобки. Например, чтобы задать, что SHIFT находится в нажатом положении во время нажатия E и C, используйте '+(EC)'.
Чтобы задать, что Е нажата с SHIFT, а С уже без, используйте '+EC'. Чтобы задать повторение клавиш используйте форму {клавиша число}.
Обязателен пробел между кодом клавиши и числом. Например, {LEFT 42} означает нажатие ВЛЕВО 42 раза;  {h 10} означает нажатие h 10 раз.
18 FreeFin
 
09.11.07
17:48
+ А рабочий код нику  SYS-eva без фотки тут не дадут.
Блин, шо я написал????)))
19 smaharbA
 
09.11.07
17:48

   Таб=СоздатьОбъект("Таблица");
   Таб.ИсходнаяТаблица("Таблица");
   Таб.Вывести();
   Таб.Показать();
   ШелСкрипт=СоздатьОбъект("wscript.shell");
   ШелСкрипт.SendKeys("%");
   Для к=1 по 7 Цикл
       ШелСкрипт.SendKeys("{DOWN}");
   КонецЦикла;
   ШелСкрипт.SendKeys("~");

но фигня это всетаки
20 smaharbA
 
09.11.07
17:52
+ (17)

ШелСкрипт.SendKeys("%");
ШелСкрипт.SendKeys("{DOWN 7}~");

но по отдельности слать както надежнее кажется ))
21 FreeFin
 
09.11.07
17:57
(20)Угу, только предупреждение перед этим вывалить "Убери пальцы с клавиатуры!!!"
длляху чтоль поковырять...
22 NS
 
09.11.07
18:02
таб=создатьобъект("Таблица");  
таб.вывестисекцию("строка");
таб.Показать("ываыв");
wsh=СоздатьОбъект("WScript.Shell");
wsh.SendKeys("%");
wsh.SendKeys("ф");
wsh.SendKeys("р");
Всё работает, но только на русской раскладке, так что лучше стрелкой бежать...
23 SYS-eva
 
09.11.07
18:04
Процедура ОбработкаЯчейкиТаблицы(Значение,Флаг,Таблица,Адрес)
 ШелСкрипт=СоздатьОбъект("wscript.shell");
   ШелСкрипт.SendKeys("%");
   Для к=1 по 7 Цикл
       ШелСкрипт.SendKeys("{DOWN}");
   КонецЦикла;
   ШелСкрипт.SendKeys("~");
КонецПроцедуры

Хотите верьте хотите нет - не пашет, я вот грешным делом думаю на ВК которые использую
24 SYS-eva
 
09.11.07
18:05
Но за информацию спасибо теперь буду знать если что)))))) Респект ВАМ
25 NS
 
09.11.07
18:06
(23) Может надо перевывести таблицу методом показать()?
26 SYS-eva
 
09.11.07
18:12
Таже фигня, при нажатии на ячейку срабатывает только нажатый альт и все, меню файл выделяется а дальше стоп.
27 у лю 427
 
09.11.07
18:37
все там работает...

а руками предпросмотр открывается?