ReSQL.ru
     
powered by simpleCommunicator - 2.0.56     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / VFP и с8
25 сообщений из 31, страница 1 из 2
  1  все
VFP и с8
    #35904818
GAL21
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
GAL21
Участник
На FOX делаю

loV8App = CREATEOBJECT("V8.Application")
дает ошибку
Class definition V8.Application is not found
Где его взять
...
Рейтинг: 0 / 0
01.04.2009, 08:48
| Ответить | Цитировать | Написать  
VFP и с8
    #35904858
PaulWist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PaulWist
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
AGETFILEVERSION(Arr, pathExe)
? 'Работаем с версией', arr( 4 ), ' ', arr( 1 )
IF LEFT(arr( 4 ), 3 ) == '8.0'
Ole1c8 = createobject("V8.Application","")
ELSE 
Ole1c8 = createobject("V81.Application","")
ENDIF
...
Рейтинг: 0 / 0
01.04.2009, 09:16
| Ответить | Цитировать | Написать  
VFP и с8
    #35904899
GAL21
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
GAL21
Участник
Да не дает v8 и 81.Выдает туже ошибку
...
Рейтинг: 0 / 0
01.04.2009, 09:37
| Ответить | Цитировать | Написать  
VFP и с8
    #35904904
PaulWist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PaulWist
Участник
Дык сама 1с установлена на клиенте или нет?
...
Рейтинг: 0 / 0
01.04.2009, 09:38
| Ответить | Цитировать | Написать  
VFP и с8
    #35904930
GAL21
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
GAL21
Участник
Установлена и работает. Но дело в том, что была переписана с другого компьютера
...
Рейтинг: 0 / 0
01.04.2009, 09:50
| Ответить | Цитировать | Написать  
VFP и с8
    #35904938
PaulWist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PaulWist
Участник
Как переписана через дистрибутив или просто файлами?
...
Рейтинг: 0 / 0
01.04.2009, 09:53
| Ответить | Цитировать | Написать  
VFP и с8
    #35904981
GAL21
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
GAL21
Участник
Просто файлами
...
Рейтинг: 0 / 0
01.04.2009, 10:08
| Ответить | Цитировать | Написать  
VFP и с8
    #35905053
проходящий.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
проходящий.
Гость
GAL21Просто файламиНу и чего Вы тогда хотите? Непорочного зачатия? Откуда появится соответствующая информация в реестре винды?
...
Рейтинг: 0 / 0
01.04.2009, 10:33
| Ответить | Цитировать | Написать  
VFP и с8
    #35905068
GAL21
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
GAL21
Участник
Ну так и прошу - как записать
...
Рейтинг: 0 / 0
01.04.2009, 10:37
| Ответить | Цитировать | Написать  
VFP и с8
    #35905079
проходящий.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
проходящий.
Гость
GAL21Ну так и прошу - как записатьУстановить с дистрибутива, как это ни странно некоторым покажется.
...
Рейтинг: 0 / 0
01.04.2009, 10:42
| Ответить | Цитировать | Написать  
VFP и с8
    #35905103
GAL21
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
GAL21
Участник
А еще предложения есть?
...
Рейтинг: 0 / 0
01.04.2009, 10:48
| Ответить | Цитировать | Написать  
VFP и с8
    #35905455
PaulWist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PaulWist
Участник
GAL21А еще предложения есть?

Зарегистрировать СОМ-серверы 1С руками если влом ставить из дистрибутива
...
Рейтинг: 0 / 0
01.04.2009, 12:43
| Ответить | Цитировать | Написать  
VFP и с8
    #35905752
GAL21
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
GAL21
Участник
Спасибо всем, получилось.
Теперь есть модуль


obj = CreateObject("V8.Application")
obj.Connect('File="C:\Documents and Settings\Проба";USR="Польз"')
obj.Visible = .T.

oQue = obj.NewObject("Запрос")
oQue.УстановитьПараметр("ДатаНач", {^2005-05-18 0:00:00})
oQue.УстановитьПараметр("ДатаКон", {^2010-05-18 23:59:59})
oQue.Текст = "ВЫБРАТЬ * ИЗ Документ.ПоступлениеТоваровУслуг " + ;
"ГДЕ Дата МЕЖДУ &ДатаНач И &ДатаКон"
oRes = oQue.Выполнить().Выгрузить()
MESSAGEBOX(TRANSFORM(oRes.Количество()))
CREATE CURSOR bDocs (numb C(8), date D)
FOR EACH oRow IN oRes
INSERT INTO bDocs (numb, date) VALUES (oRow.Номер, oRow.Дата)
ENDFOR
IF lApp
obj.Exit()
ENDIF
RELEASE obj
SELECT bDocs
BROWSE NORMAL

Выдает ошибку на oRes
...
Рейтинг: 0 / 0
01.04.2009, 14:09
| Ответить | Цитировать | Написать  
VFP и с8
    #35905778
PaulWist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PaulWist
Участник
Текст ошибки какой?
...
Рейтинг: 0 / 0
01.04.2009, 14:17
| Ответить | Цитировать | Написать  
VFP и с8
    #35905792
GAL21
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
GAL21
Участник
oRes cannot be enumereted. Причем в отладчике я вижу ores.количество. Т.е. звпрос выполнен и выгружен , но как его просмотреть, не пойму
...
Рейтинг: 0 / 0
01.04.2009, 14:21
| Ответить | Цитировать | Написать  
VFP и с8
    #35907123
GAL21
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
GAL21
Участник
И все же - кто-нибудь заппос и 1с выгружал в FOX? Подскажите
...
Рейтинг: 0 / 0
02.04.2009, 05:51
| Ответить | Цитировать | Написать  
VFP и с8
    #35907151
SindoMeon
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SindoMeon
Участник
GAL21oRes cannot be enumereted. Причем в отладчике я вижу ores.количество. Т.е. звпрос выполнен и выгружен , но как его просмотреть, не пойму
Error 1794: "name" cannot be enumerated The FOR EACH comand can only be used to enumerate a Visual FoxPro array, an OLE array, a Visual FoxPro collection, or an OLE collection.

То есть в данном случае oRes не является ни одним из этих объектов - а сие значит, что надо искать другой вариант обработки oRes, без FOR EACH.
...
Рейтинг: 0 / 0
02.04.2009, 07:41
| Ответить | Цитировать | Написать  
VFP и с8
    #35907160
GAL21
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
GAL21
Участник
Интересует в данном случае - что такое oRes . В отладчике стоит - object. ; ores.количество - показывает каоличество записей выбранных по данному запросу. Но как посмотреть сами записи?
...
Рейтинг: 0 / 0
02.04.2009, 07:49
| Ответить | Цитировать | Написать  
VFP и с8
    #35907167
SindoMeon
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SindoMeon
Участник
GAL21Интересует в данном случае - что такое oRes . В отладчике стоит - object. ; ores.количество - показывает каоличество записей выбранных по данному запросу. Но как посмотреть сами записи?
раз объект, да и с количством, то может помочь и такой вариант: oRes[1] ([2],[3]...) в обычном цикле.
...
Рейтинг: 0 / 0
02.04.2009, 07:59
| Ответить | Цитировать | Написать  
VFP и с8
    #35907173
GAL21
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
GAL21
Участник
ores[1] - exprerssion coud not be evaluated - ничего не дает
...
Рейтинг: 0 / 0
02.04.2009, 08:06
| Ответить | Цитировать | Написать  
VFP и с8
    #35907241
Kruchinin Pahan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kruchinin Pahan
Участник
GAL21ores[1] - exprerssion coud not be evaluated - ничего не дает
Во-первых. 1С стоит у вас и вам проще, чем нам просмотреть свойства и методы объекта oRes.
А так, может быть oRes.Item[1], oRes.Row[1] и так далее и тому подобное.
...
Рейтинг: 0 / 0
02.04.2009, 09:01
| Ответить | Цитировать | Написать  
VFP и с8
    #35907342
КонецЦикла
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
КонецЦикла
Гость
во-первых, тогда уж вот так
Код: plaintext
1.
oQue.Текст = "ВЫБРАТЬ * ИЗ Документ.ПоступлениеТоваровУслуг " + CHR( 13 ) + ; 
"ГДЕ ИЗ Документ.ПоступлениеТоваровУслуг.Дата МЕЖДУ &ДатаНач И &ДатаКон"

а во-вторых, возможно будут проблемы вот с этим
Код: plaintext
1.
oQue.УстановитьПараметр("ДатаНач", {^ 2005 - 05 - 18   0 : 00 : 00 }) 
oQue.УстановитьПараметр("ДатаКон", {^ 2010 - 05 - 18   23 : 59 : 59 })

говорю, возможно, т.к. проверять щас лень

лучше сделать что-то типа этого
Код: plaintext
1.
2.
3.
4.
data1 = GOMONTH(DATE(), - 1 )
data2 = DATE()
oQue.УстановитьПараметр("ДатаНач", obj.МойОбщийМодуль.ПолучитьНачалоДня(data1)) 
oQue.УстановитьПараметр("ДатаКон", obj.МойОбщийМодуль.ПолучитьКонецДня(data2))
а в конфигураторе 1С добавить общий модуль МойОбщийМодуль, в котором будут две наших функции ПолучитьНачалоДня() и ПолучитьКонецДня()
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Функция ПолучитьНачалоДня(ТекДата) Экспорт
	Возврат НачалоДня(ТекДата);
КонецФункции

Функция ПолучитьКонецДня(ТекДата) Экспорт
	Возврат КонецДня(ТекДата);
КонецФункции
...
Рейтинг: 0 / 0
02.04.2009, 09:48
| Ответить | Цитировать | Написать  
VFP и с8
    #35907610
GAL21
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
GAL21
Участник
Запрос то выполняет, поскольку дает количествао записей, ьполученных по данному запросу.
...
Рейтинг: 0 / 0
02.04.2009, 11:16
| Ответить | Цитировать | Написать  
VFP и с8
    #35907956
КонецЦикла
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
КонецЦикла
Гость
посмотреть результат выборки можно вот так
Код: plaintext
1.
2.
oRes = oQue.Выполнить().Выгрузить() 
oRes.ВыбратьСтроку()

а перебор строк делать в цикле
Код: plaintext
1.
2.
3.
DO WHILE oRes.Следующий()
....
ENDDO
но только в место метода Выгрузить() надо использовать метод Выбрать(), т.е. сделать так
oRes = oQue.Выполнить().Выбрать()

или если использовать выгрузку в таблицу значений, т.е. использовать всё-таки метод Выгрузить(), то обращаться к данным таблицы значений надо по индексам
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
RowsCount       = oRes.Количество()
ColumnsCount   = oRes.Колонки.Количество()
FOR i =  0  TO RowsCount -  1 
    FOR j =  0  TO ColumnsCount -  1 
        ? oRes[i][j]
    ENDFOR
ENDFOR

а вот это obj.Visible = .T. ни к чему...
...
Рейтинг: 0 / 0
02.04.2009, 12:24
| Ответить | Цитировать | Написать  
VFP и с8
    #35909718
GAL21
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
GAL21
Участник
Большое спасибо, кое что получилось. Работает вот такой код

obj = CreateObject("V8.Application")
obj.Connect('File="D:\Documents and Settings\1C\Enterprise";Usr="Польз"')

oQue = obj.NewObject("Запрос")
oQue.Текст = "ВЫБРАТЬ Дата,Номер,СуммаДокумента ИЗ Документ.ПоступлениеТоваровУслуг "
Res = oQue.Выполнить().Выбрать()
RowsCount = Res.Количество()
*ColumnsCount = Res.Колонки.Количество()
FOR i = 0 TO RowsCount - 1
? Res.Номер+" "+str(Res.СуммаДокумента
ENDFOR

obj.Exit()
RELEASE obj

ColumnsCount = Res.Колонки.Количество() - дает ошибку OLE

Но что самое интеренсное - данные - ?Res.Номер+" "+str(Res.СуммаДокумента - показывает через одну запись , т.е. не каждую, а точно ч/з одну
...
Рейтинг: 0 / 0
03.04.2009, 08:05
| Ответить | Цитировать | Написать  
25 сообщений из 31, страница 1 из 2
  1  все
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / VFP и с8
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=41&msg=35909718&tid=1586495]:
 0ms
get settings:
 9ms
get forum list:
 17ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 47ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 59ms
get tp. blocked users:
 1ms
others: 17ms
total:  171ms
созд. / загр.: 171ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]