Имя: Пароль:
1C
1С v8
Поскажет кто, как время из 8.1 забрать в 7.7.
0 budnik
 
25.10.11
08:59
Заказы и базы 8.1 в 7.7 перекинуть надо.Время важно.
1 Гефест
 
25.10.11
09:00
Серьезный вызов телепатам
2 ДенисЧ
 
25.10.11
09:01
В строку кастуй...
3 DJ Anthon
 
25.10.11
09:01
чайник пятнадцать огурцов светает чувырла
4 Godofsin
 
25.10.11
09:02
(3) +
5 Guk
 
25.10.11
09:02
УстановитьВремя(<?>,,);
Синтаксис:
УстановитьВремя(<Часы>,<Минуты>,<Секунды>)
Назначение:
Установить время документа.
Параметры:
<Часы> - число часов;
<Минуты> - число минут;
<Секунды> - число секунд.
Замечание:
Метод  можно использовать только для объектов, созданных функцией СоздатьОбъект.
6 budnik
 
25.10.11
09:03
Виноват.

   V8=СоздатьОбъект("V81.Application");    
   ПользовательОле = ПользовательБазы8;//"Администратор";
   ПарольОле       = ПарольБазы8;//"1";
   БазаОле=V8.Connect("Srvr="""+СокрЛп(СерверБазы8)+""";Ref="""+СокрЛп(База8)+""";Usr="""+СокрЛп(ПользовательОле)+""";Pwd="""+СокрЛп(ПарольОле)+""";");
   Если БазаОле = 0 Тогда
       Предупреждение("Не удалось подключится к указанной базе - проверьте вводные!");
   Иначе
       Сообщить("Соединение установлено!");
   КонецЕсли;
   Дата1 = Формат(ВыбНачПериода, "ДГГГГММДД")+"000000";
   Дата2 = Формат(ВыбКонПериода, "ДГГГГММДД")+"235959";
   ДокументыВида = V8.Документы.Заказы.Выбрать(Дата1,Дата2);
   Пока ДокументыВида.Следующий()= -1 Цикл
       //фы=V8.Формат(ДокументыВида.ВремяНачалаРедактирования,"ДФ=дд.ММ.гггг ЧЧ:мм:сс");
       фы=ДокументыВида.ВремяНачалаРедактирования;
       
   КонецЦикла;
7 Irbis
 
25.10.11
09:05
ВремяСтр=Прав(СФ.Дата, 8);
ЧЧ=Лев(ВремяСтр, 2);
ММ=Сред(ВремяСтр, 4, 2);
СС=Прав(ВремяСтр, 2);
OLE_ПТ.Записать();
OLE_ПТ.УстановитьВремя(ЧЧ, ММ, СС);
OLE_ПТ.Записать();
8 budnik
 
25.10.11
09:08
из 8.1 возвращается только дата, время получить не удается.
9 ДенисЧ
 
25.10.11
09:09
(8) ещё раз прочитай (2)
10 budnik
 
25.10.11
09:13
Денис.Для одаренных, можно по подробней.
11 Defender aka LINN
 
25.10.11
09:16
КД юзай
12 Escander
 
25.10.11
09:26
(0)а если так:
время77 = V8.Выполнить("Строка(Формат(ДокументыВида.ВремяНачалаРедактирования,"ДФ=ЧЧммсс"))");
13 Defender aka LINN
 
25.10.11
09:27
(12) Месье знает толк в извращениях...
14 budnik
 
25.10.11
09:29
(12) V8.Выполнить("Строка(Формат(ДокументыВида.ВремяНачалаРедактирования,"ДФ=ЧЧммсс"))") = Ошибка в выражении!
15 Escander
 
25.10.11
09:34
(14) ну так отладь сначала в снегурочке вот это... форматную строку может и переврал
Строка(Формат(ДокументыВида.ВремяНачалаРедактирования,"ДФ=ЧЧммсс"))
16 Escander
 
25.10.11
09:34
(13) если ему нужно итерактивно а не от случая к случаю КД никак
17 budnik
 
25.10.11
09:50
V8.Строка(Формат(ДокументыВида.ВремяНачалаРедактирования,"ДФ=ЧЧммсс")) = Ошибка в выражении!
18 Рэйв
 
25.10.11
09:58
(17)
V8.Строка(
и
V8.Выполнить(

Разницу ощущаешь?
19 Рэйв
 
25.10.11
10:03
+(17)универсальны способ получения чего угодно из 8:

Книга знаний: Выполнение произвольного кода на стороне подключенной базы 8.x при COM-соединении

В твоем случае:

Время=V8.ИсполнитьВн("Ответ=Прав(Строка(ДокументыВида.ВремяНачалаРедактирования,),8)")

можно через Формат, но не помню точно форматную строку, а копаться лень.
20 Рэйв
 
25.10.11
10:04
+(19)Если ДокументыВида это уже полученный объект СОМ в 77 , то
тогда так:
Время=V8.ИсполнитьВн("Ответ=Прав(Строка(ВнутрПараметр,),8)",ДокументыВида.ВремяНачалаРедактирования)
21 Рэйв
 
25.10.11
10:06
ВнутрПараметр = ВспомПараметр
22 budnik
 
25.10.11
10:28
Спасибо.
Запросом все забрал.Проще.

   Запрос =V8.NewObject("Запрос");
   Запрос.Текст =
   "ВЫБРАТЬ
   |    Заказы.Ссылка,
   | ЧАС(Заказы.ВремяНачалаРедактирования) КАК ЧасН,
   | МИНУТА(Заказы.ВремяНачалаРедактирования) КАК МинН,
   |    Заказы.Представление
   |ИЗ
   |    Документ.Заказы КАК Заказы";
   //Результат = Запрос.Выполнить();

   
Выборка = Запрос.Выполнить().Выбрать();
       
Пока Выборка.Следующий()=-1 Цикл
Сообщить(Выборка.ЧасН);


КонецЦикла;
AdBlock убивает бесплатный контент. 1Сергей