Текущее время: Ср, сен 10 2025, 17:29

Часовой пояс: 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 часа


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

Сейчас этот форум просматривают: нет зарегистрированных пользователей


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

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