Текущее время: Чт, сен 11 2025, 09:25

Часовой пояс: UTC + 3 часа




Начать новую тему Ответить на тему  [ Сообщений: 12 ] 
Автор Сообщение
 Заголовок сообщения: Результаты отчета SAP во внешнюю систему (VBA, VBS, ..).
СообщениеДобавлено: Чт, окт 11 2007, 10:56 
Младший специалист
Младший специалист

Зарегистрирован:
Пт, июн 08 2007, 14:31
Сообщения: 98
Всем Привет!!!
Нужна помостч!!!

в BExe есть отчет.
Необходимо: получить данные из этого отчета внешней системой: к примеру VBA или VBS.
Работа с отчетом полная: т.е. как получение настроенных в BEXe условий, так и фильтрация самостоятельно, установка ограничений.

Что <я не знать русский языка>: разбирал BEX. но там порядок работы не устраивает. Выяснилось, что фильтры накладываются не средствами VBA, а SAP.

Если кто то реализовывал расскажите!!!
Если кто где читал: дайте ссылку!!!

Ценна будет любая информация или ссылка!!!

На SAp.halp.com есть описание работы функций RFC, но этого не достаточно.


Принять этот ответ
Вернуться к началу
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Чт, окт 11 2007, 13:56 
Ассистент
Ассистент

Зарегистрирован:
Чт, июн 07 2007, 11:07
Сообщения: 43
не вижу смысла ковырять отчет в BExe.
нужно делать Open Hub Service. 3rd party integration

https://websmp205.sap-ag.de/connectors
https://www.sdn.sap.com/irj/sdn/go/port ... 5552cbe9da


Принять этот ответ
Вернуться к началу
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Чт, окт 11 2007, 16:28 
Младший специалист
Младший специалист

Зарегистрирован:
Пт, июн 08 2007, 14:31
Сообщения: 98
Превая ссылка битая, а вторую ща почитаем.
Спасибо за ответ.


Принять этот ответ
Вернуться к началу
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Чт, окт 11 2007, 17:01 
Ассистент
Ассистент

Зарегистрирован:
Чт, июн 07 2007, 11:07
Сообщения: 43
у меня все ссылки нормально работают.


Принять этот ответ
Вернуться к началу
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Чт, окт 11 2007, 18:08 
Старший специалист
Старший специалист
Аватара пользователя

Зарегистрирован:
Вт, янв 30 2007, 17:10
Сообщения: 488
Alexandr671 написал(а):
Превая ссылка битая, а вторую ща почитаем.
Спасибо за ответ.

Интересно вы работаете без аккаунта на sap.com :?

_________________
Карма - это суперпозиция граблей, на которые мы уже успели наступить, но которые еще не долетели...


Принять этот ответ
Вернуться к началу
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Пт, окт 12 2007, 08:06 
Младший специалист
Младший специалист

Зарегистрирован:
Пт, июн 08 2007, 14:31
Сообщения: 98
Спасибо за ссылки. Они обе на самом деле рабочие.
Теперь вопрос: А ктоньть сам такое делал???
Ссылки на длокументации это очень хорошо, а пример где взять?
А нормальное описание???

Если никто не делал, то не надо мне ссылки на документацию отправлять.


Принять этот ответ
Вернуться к началу
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Пт, окт 12 2007, 13:52 
Ассистент
Ассистент

Зарегистрирован:
Чт, июн 07 2007, 11:07
Сообщения: 43
все очень просто подключаете библиотеку к проекту в любой среде разработки
типа pBWConnect.bdsproj
и начинаете ее использовать.
создаете объект
допустим
BW := CreateOleObject('SAP.Functions');
BW.Connection.System := FormLogin.System;
BW.Connection.MessageServer := FormLogin.Server;
BW.Connection.GroupName := 'PUBLIC';
BW.Connection.Client := FormLogin.Client;
BW.Connection.User := FormLogin.Login;
BW.Connection.Password := FormLogin.Password;
BW.Connection.Language := 'RU';

и что хотите то и делаете

//Извлекаем уровни планирования по известной области
Func := DataForm.BW.Add('API_SEMBPS_PLANSTRUCTURE_GET');
//Очищаем массив кодов
LevelCodes.Clear;
//и список уровней планирования
cbLevel.Items.Clear;
//Задаем область
Func.Exports('I_AREA').Value := Area;
//Ставим флаг чтения уровней
Func.Exports('I_READ_PLEVEL').Value := 'X';
//Запускаем функцию
Res := Func.Call;
//Если функция отработала

Если все же хотите <я не знать русский языка> Bex 3.5
то вам сюда http://www.bwexpertonline.com/downloads/boeke04.doc


Принять этот ответ
Вернуться к началу
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Пт, окт 12 2007, 15:13 
Младший специалист
Младший специалист

Зарегистрирован:
Пт, июн 08 2007, 14:31
Сообщения: 98
ВОТ!!!!
Первий ответ ближе к теме!!!
Наверное надать немного перефразировать вопрос!!!

Итак:
В BEXe есть отчет: OTCHET.

Мне надо в VB:

1. установить connect к SAP.
2. Установить ограничения для отчета.
3. Получить результаты отчета.
4. по ситуации.

Пункт 1 понятен.
Пункт 3 через вызов функции RRY_GRID_CMD_PROCESS

А вот пункт 2???
описание нигде нет.
В частности в таблицы E_T_FAC и E_T_CON вносятся ограничения.
Но как это сделать из VB???


Принять этот ответ
Вернуться к началу
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Пт, окт 12 2007, 15:38 
Модератор
Модератор
Аватара пользователя

Зарегистрирован:
Ср, авг 18 2004, 10:59
Сообщения: 754
Откуда: Moscow
Alexandr671
Вы лучше скажите, для чего вся эта канитель?

Со стороны кажется, что вы свой BEx писать собираетесь?
ЗАЧЕМ? :lol:

_________________
Фарш невозможно провернуть назад,
И мясо из котлет не восстановишь


Принять этот ответ
Вернуться к началу
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Пт, окт 12 2007, 15:43 
Младший специалист
Младший специалист

Зарегистрирован:
Пт, июн 08 2007, 14:31
Сообщения: 98
Цель:
Есть SAP BW
Есть ТБСофт с исходными данными.

Задача: получение отчетов в форме ТБСофта. т.е. Пользователь ничего не знает о SAP.


Принять этот ответ
Вернуться к началу
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Пн, окт 15 2007, 12:34 
Ассистент
Ассистент

Зарегистрирован:
Чт, июн 07 2007, 11:07
Сообщения: 43
Alexandr671 написал(а):
А вот пункт 2???
описание нигде нет.
В частности в таблицы E_T_FAC и E_T_CON вносятся ограничения.
Но как это сделать из VB???


вам видимо лень читать документ

To refresh a single query, reference a valid cell in the query (navigation or filter area or result area)

‘Set the values for Variables
Dim rngVar as Range
Set rngVar = YOUR_VARIABLE_SHEET.Range(“A2:H3”)
Run "SAPBEXsetVariables", rngVar
If Run("SAPBEX.xla!SAPBEXrefresh", False, ActiveSheet.Range("C7")) = 0 Then
Else
MsgBox "Error in Refresh”
End If


Принять этот ответ
Вернуться к началу
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Вт, окт 16 2007, 09:15 
Младший специалист
Младший специалист

Зарегистрирован:
Пт, июн 08 2007, 14:31
Сообщения: 98
RCONZ:
А где вы такое вычитали???
ДАйте ссылочку пожалуйста!!!


Принять этот ответ
Вернуться к началу
 Профиль  
 
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 12 ] 

Часовой пояс: UTC + 3 часа


Кто сейчас на конференции

Сейчас этот форум просматривают: Yandex [Bot]


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
cron
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
Русская поддержка phpBB