Выполнение запросов из VBA

@Miduza · Регистрация: 27.09.2012

Author24 — интернет-сервис помощи студентам

День добрый!

Есть база 1Сv77 (в dbs). Пытаюсь настроиться на неё чтобы вытягивать из неё некотурую информацию... к примеру формировать журнал-ордер счета по субконто и всё это через VBA.

есть такой код - который создаёт экземпляр программы с прохождением в ней аутентификации:

Visual Basic

Public v7 As Object
 
Sub ConnectV77()
st = " /D" & """C:\Documents and Settings\financier\Мои документы\Копия базы\""" & " /N " & """Ильченко_АВ""" & " /P" & """334455"""
Set v7 = CreateObject("v77.Application")
result = v7.Initialize(v7.RMTrade, st, "yes_SPLASH_SHOW")
End Sub

Понимаю что дальше нужно создавать объект настройки с описанием критериев к формированию документов, получить ответ на сформированный запрос, и чудом вытянуть его туда куда необходимио и как необходимо... Прошу от знатаков хотябы пример формирования запроса через VBA, чтобы понять хотябы принципы его формирования...

@Fenomen · 18.10.2012, 20:01

Сообщение от Miduza

формировать журнал-ордер счета по субконто

Возьмите код этого отчета, и перед всеми обращениями к объектам 1С ставьте v7.

@duk337 · 18.10.2012, 22:06

sklads=v7.CreateObject("Справочник.МестаХранения")
sklads.НайтиПоНаименованию("Основной",0,0)
sklad=sklads.ТекущийЭлемент()
Вообще, говорят, иногда проблемы с кириллической транскрипцией

@Miduza · 19.10.2012, 20:06 **[ТС]**

Итак вот что пока работает...со справочников выгрузка идёт вродебы нормально..но только со справочников

Visual Basic

Public v7 As Object
 
Sub ConnectV77()
Dim i
i = 1
 
st = " /D" & """E:\Мои документы\1C7\Empty\""" & " /N " & """Иванов_ИИ""" & " /P" & """334455"""
Set v7 = CreateObject("v77.Application")
result = v7.Initialize(v7.RMTrade, st, "yes_SPLASH_SHOW")
 
If Not result Then Exit Sub
 
 
    Set spr = v7.CreateObject("Справочник.Контрагенты")
    spr.SelectItems
    
        Do While spr.GetItem() = 1
            sname = "" & spr.GetAttrib("ПолнНаименование")
            sname1 = "" & spr.GetAttrib("ЮридическийАдрес")
            
        ThisWorkbook.ActiveSheet.Range("A" & i).Value = sname
        ThisWorkbook.ActiveSheet.Range("B" & i).Value = sname1
        
        i = i + 1
        Loop
 
End Sub

Добавлено через 9 минут
Не выходит выполнить формирование даокумента с указанием параметров

@duk337 · 19.10.2012, 20:50

? Не передаётся объект в качестве параметра? Бэйсик указатели не может передавать?

@Miduza · 19.10.2012, 21:48 **[ТС]**

В подобном амплуа я выступаю впервые и в 1С ранее не программировал, поэтому с объектной моделью как программер мало знаком...

пытаюсь к примеру создать "ЖурналОрдерСчетаПоСубконто"
просто так он не создаётся.. прописывая его как "Отчеты.ЖурналОрдерСчетаПоСубконто"
так же фэйл...
Вы можете подсказать к примеру создание данного объекта и передача ему к примеру параметра просто счёта...

Добавлено через 36 минут
Накопал такой вариант...пытаюсь его оформить

Set Rez = v7.EvalExpr("ОткрытьФормуМодально(""Отчет.ЖурналОрдерСчетаПоСубконто"",C)")
Rez.C.дата1 = "01.03.03"
Rez.C.дата2 = "01.05.03"
Rez.C.форма.Обновить (1)

В таком подходе хоть малость разумного зерна вообще имеется?

@duk337 · 20.10.2012, 00:48

я не усмотрел зерна... А что,

Visual Basic

1	v7.ОткрытьФормуМодально("Отчет.ЖурналОрдерСчетаПоСубконто")

не катит? В 77 форму как объект не получить. В неё как-то впихиваются параметры, но пока я не помню как

Добавлено через 3 минуты
Есть АнализСчетаПоСубконто, ЖурналОрдерПоСубконто

Добавлено через 2 минуты
В типовом отчете глобальная переменная используется

1C

1	глРасшифровка

. Сомневаюсь, что

Visual Basic

1	v7.глРасшифровка

это нормально

@Miduza · 20.10.2012, 11:45 **[ТС]**

Сообщение от duk337

не катит?

Не катит. форма открывается... но с параметрами по умолчанию...пока обстрагируюсь от передачи параметров при отборе и нажимаю на кнопку сформировать... что с результатом - совершенно не ясно, есть он? нет его? + ругается на typemismach

Добавлено через 13 минут
4-е сутки с учебником 1С.
есть такое как

1C

1	Расшифровка = СоздатьОбъект("СписокЗначений");

.
Вот очередная сумашедшая догадка, возможноли в 1с создавать таблицу, заполнять её любымы значениями из базы (не через форму), а потом как например при работе со справочниками (выше) просто перебирая строки вытягивать их куда нужно?

Я понимаю что при формировании документа через "Отчёт", программа сперва заполняет что-то подобное, а потом обрабатывает в печатную форму...

@Fenomen · 20.10.2012, 12:59

А я не понял, Вам отчет нужно пользователю показать или просто получить данные отчета?

возможноли в 1с создавать таблицу, заполнять её любымы значениями из базы (не через форму), а потом как например при работе со справочниками (выше) просто перебирая строки вытягивать их куда нужно?

Да возможно.

@Miduza · 20.10.2012, 13:51 **[ТС]**

Сообщение от Fenomen

Да возможно.

Мне нужны данные...далее я с ними работаю уже в экселе. Основная и конечная задача - получение исходных данных для уже настроенных отчётов в Excel, так называемые - формы управленческой отчётности

@duk337 · 20.10.2012, 13:54

Используйте объект 77 БухИтоги

@Miduza · 20.10.2012, 14:32 **[ТС]**

Сообщение от duk337

Используйте объект 77 БухИтоги

Уже попробовал..

Visual Basic

Public v7 As Object
 
Sub ConnectV77_2()
Dim FДата As String
Dim FСчёт As String
 
 
FДата = ThisWorkbook.ActiveSheet.Range("C1").Value
FСчёт = ThisWorkbook.ActiveSheet.Range("C2").Value
 
Dim i
i = 4
 
st = " /D" & """C:\Documents and Settings\financier\Мои документы\Копия базы\""" & " /N " & """Ильченко_АВ""" & " /P" & """240987"""
Set v7 = CreateObject("v77.Application")
result = v7.Initialize(v7.RMTrade, st, "yes_SPLASH_SHOW")
 
 
If Not result Then Exit Sub
 
    Set it = v7.CreateObject("БухгалтерскиеИтоги")
    Set SubkontoKind = v7.ВидыСубконто.ЖивотныеПтица
    it.ИспользоватьСубконто SubkontoKind, Empty, 1
    result = it.ВыполнитьЗапрос(Empty, CDate(FДата), FСчёт)
    it.ВыбратьСубконто SubkontoKind
    Do While it.ПолучитьСубконто(SubkontoKind) = 1
        Debug.Print it.Субконто(SubkontoKind).Наименование
        
        sname = it.Субконто(SubkontoKind).Наименование
        ThisWorkbook.Sheets("БухИтоги").Range("A" & i).Value = Trim(sname)
        i = i + 1
    Loop
Set v7 = Nothing
End Sub

Но скорее всего мне бы хотелось добиться вот такого результата как в приложеном файле, однако исключительно средствами VBA.

@duk337 · 20.10.2012, 20:10

PureBasic

1
2

Опер = v7.СоздатьОбъект("Операция");
Опер.ВыбратьОперацииСПроводками(Дата1, Дата2, Фильтр, Валюта, ПланСчетов, РазделительУчета);

@Miduza · 20.10.2012, 22:26 **[ТС]**

Пробую наладить предложенный вариант,

Visual Basic

Опер = v7.CreateObject("Операция")
    Фильтр = "20,*"
    Валюта = "?(ПоВалюте=1,Валюта,"")"
    result = Опер.ВыбратьОперацииСПроводками(CDate(Дата1), CDate(Дата2), Фильтр, Валюта, ПланСчетов, РазделительУчета)

VBA ругается.. уверен что нужно задать значения для параметров и уверен что туплю на ровном месте....

@duk337 · 20.10.2012, 22:53

1. SelectOpersAndEntries (<?>,,,,,) - может, кириллица.
2. но скорее параметры. дата: v7.Дата(CDate(Дата1)) - или что-то подобное.
3. передавать прямым значением. Валюта - д.б. объект 77 типа в7.справочник.Валюты.ТекущийЭлемент() или пропустить.
план счетов пропустить.
Разделитель учета - по конфигурации. справочник.фирмы. или пропустить

@Miduza · 21.10.2012, 00:30 **[ТС]**

Visual Basic

1	result = Опер.ВыбратьОперацииСПроводками(ДатаНач, ДатаКон, "*", "20")

Неудача

Visual Basic

1	result = Опер.SelectOpersAndEntries (ДатаНач, ДатаКон, "*", "20")

Поражение

Visual Basic

1	Опер.SelectOpersAndEntries ДатаНач, ДатаКон, "*", "20"

Отчаяние

перепробовал кучу вариантов... пока безутешно

@duk337 · 21.10.2012, 00:53

что есть ДатаНач и датаКон? Это д.б. типы 1с77.
параметры все необязательные.
ещё попробовать отщёлкать их запятыми без значений, в т.ч. и без дат.
Опер - это объект 77, так? Метод его модифицирует, и возвращает да/нет в виде 1/0

Добавлено через 8 минут
транскрипции дат в 77:
' . . '; - (VB не сожрёт, наверное? хз...)
v7.Date(2012,01,01);

Добавлено через 56 секунд
т.е.

1C

1	'01.01.2012'

;

@Miduza · 21.10.2012, 00:56 **[ТС]**

Всё так..

Visual Basic

1	result = it.ВыполнитьЗапрос(Empty, CDate(FДата), FСчёт)

тут он даты скушал. их задаю как ссылку на значение ячейки в листе книги используя функцию CDate

@duk337 · 21.10.2012, 01:00

Скушал как значащие, но пустые? Это отсутствие проводок

@Miduza · 21.10.2012, 01:22 **[ТС]**

отнюнь...меняю даты и вуаля..так что там он их воспринял...почему же тут не хочет?

Добавлено через 19 минут
Вот живой код.. тут даты работают... не уверен что дело в них..

Visual Basic

Public v7 As Object
 
Sub ConnectV77_2()
Dim FДата As String
Dim FСчёт As String
 
FДата = "01.01.2012"
FСчёт = "01.02.2012"
 
Dim i
i = 4
 
st = " /D" & """E:\Мои документы\1C7\Empty\""" & " /N " & """Ильченко_АВ""" & " /P" & """334455"""
Set v7 = CreateObject("v77.Application")
result = v7.Initialize(v7.RMTrade, st, "yes_SPLASH_SHOW")
 
If Not result Then Exit Sub
 
    Set it = v7.CreateObject("БухгалтерскиеИтоги")
    Set SubkontoKind = v7.ВидыСубконто.ЖивотныеПтица
    it.ИспользоватьСубконто SubkontoKind, Empty, 1
    
    result = it.ВыполнитьЗапрос(Empty, CDate(FДата), FСчёт)
    it.ВыбратьСубконто SubkontoKind
    
    Do While it.ПолучитьСубконто(SubkontoKind) = 1
        Debug.Print it.субконто(SubkontoKind).наименование
              
        sname = it.субконто(SubkontoKind).наименование
        ThisWorkbook.ActiveSheet.Range("A" & i).Value = Trim(sname)
        i = i + 1
    Loop
Set v7 = Nothing
End Sub

@duk337 2955 / 1767 / 82 Регистрация: 03.11.2011 Сообщений: 8,280
	20.10.2012, 22:53	15
	1. SelectOpersAndEntries (<?>,,,,,) - может, кириллица. 2. но скорее параметры. дата: v7.Дата(CDate(Дата1)) - или что-то подобное. 3. передавать прямым значением. Валюта - д.б. объект 77 типа в7.справочник.Валюты.ТекущийЭлемент() или пропустить. план счетов пропустить. Разделитель учета - по конфигурации. справочник.фирмы. или пропустить 0

@Fenomen 900 / 877 / 8 Регистрация: 15.03.2012 Сообщений: 2,680
	18.10.2012, 20:01	2
	Сообщение от Miduza формировать журнал-ордер счета по субконто Возьмите код этого отчета, и перед всеми обращениями к объектам 1С ставьте v7. 0

@duk337 2955 / 1767 / 82 Регистрация: 03.11.2011 Сообщений: 8,280
	18.10.2012, 22:06	3
	sklads=v7.CreateObject("Справочник.МестаХранения") sklads.НайтиПоНаименованию("Основной",0,0) sklad=sklads.ТекущийЭлемент() Вообще, говорят, иногда проблемы с кириллической транскрипцией 1

@duk337 2955 / 1767 / 82 Регистрация: 03.11.2011 Сообщений: 8,280
	19.10.2012, 20:50	5
	? Не передаётся объект в качестве параметра? Бэйсик указатели не может передавать? 0

@Miduza 176 / 15 / 2 Регистрация: 27.09.2012 Сообщений: 45
	19.10.2012, 21:48 [ТС]	6
	В подобном амплуа я выступаю впервые и в 1С ранее не программировал, поэтому с объектной моделью как программер мало знаком... пытаюсь к примеру создать "ЖурналОрдерСчетаПоСубконто" просто так он не создаётся.. прописывая его как "Отчеты.ЖурналОрдерСчетаПоСубконто" так же фэйл... Вы можете подсказать к примеру создание данного объекта и передача ему к примеру параметра просто счёта... Добавлено через 36 минут Накопал такой вариант...пытаюсь его оформить Set Rez = v7.EvalExpr("ОткрытьФормуМодально(""Отчет.ЖурналОрдерСчетаПоСубконто"",C)") Rez.C.дата1 = "01.03.03" Rez.C.дата2 = "01.05.03" Rez.C.форма.Обновить (1) В таком подходе хоть малость разумного зерна вообще имеется? 0

@Fenomen 900 / 877 / 8 Регистрация: 15.03.2012 Сообщений: 2,680
	20.10.2012, 12:59	9
	А я не понял, Вам отчет нужно пользователю показать или просто получить данные отчета? возможноли в 1с создавать таблицу, заполнять её любымы значениями из базы (не через форму), а потом как например при работе со справочниками (выше) просто перебирая строки вытягивать их куда нужно? Да возможно. 0

@Miduza 176 / 15 / 2 Регистрация: 27.09.2012 Сообщений: 45
	20.10.2012, 13:51 [ТС]	10
	Сообщение от Fenomen Да возможно. Мне нужны данные...далее я с ними работаю уже в экселе. Основная и конечная задача - получение исходных данных для уже настроенных отчётов в Excel, так называемые - формы управленческой отчётности 0

@duk337 2955 / 1767 / 82 Регистрация: 03.11.2011 Сообщений: 8,280
	20.10.2012, 13:54	11
	Используйте объект 77 БухИтоги 0

@duk337 2955 / 1767 / 82 Регистрация: 03.11.2011 Сообщений: 8,280
	21.10.2012, 01:00	19
	Скушал как значащие, но пустые? Это отсутствие проводок 0