SAP R/3 форум ABAP консультантов

[siva1]

Не подскажете в чем может быть причина:
При выгрузке в Excel через вызов BAPI кирилические данные выгружаются в виде ########.
Это происходит на различных версиях MS Office и Windows, кроме одной машины... на ней все ок.

Пример конфигурации:
Windows 2000 SP4
Excel 2003 (11.5612.5606)
SAPGUI 710
SAP ERP Central Component 5.0

Методика выгрузки
Создан ФМ в SE37 по выгрузке
function z_bapi_get_bu_details.
*"----------------------------------------------------------------------
*"*"Локальный интерфейс:
*" IMPORTING
*" VALUE(P_BUKRS) LIKE T001Z-BUKRS
*" VALUE(P_PARAM) TYPE ZSTR_KND
*" EXPORTING
*" VALUE(P_FIO_CACF) LIKE T001Z-PAVAL

*ФИО ГБПолн
select single paval into p_fio_cacf from t001z
where bukrs = p_bukrs
and party = 'SAPR16'.

if sy-subrc <> 0.
return-type = 'E'.
else.
return-type = 'S'.
endif.

endfunction.

Создан объект:
SWO1\Z_SPPFD с методом GetBuDetails (ссылка на z_bapi_get_bu_details)

Вызов из Excel
Dim loSAPObject As Object
Dim loReturn As Object
Dim bResult As Boolean
Dim lvTmp As Variant
Dim oParam As Object
Dim oPCompanycodeDetail As Object
Dim oPCompanycodeAddress As Object
Dim sDate As String

' Запрос
Set loSAPObject = poBAPICtrl.getSapobject("Z_SPPFD")
Set oParam = poBAPICtrl.dimas(loSAPObject, "GetActualVersion", "PParam")
sTmpString = ActiveWorkbook.Sheets("Settings").Range("Settings_Date").Value
sDate = Mid(sTmpString, 7, 4) & Mid(sTmpString, 4, 2) & Mid(sTmpString, 1, 2)
oParam.Value("NOW") = sDate
Set oPCompanycodeDetail = poBAPICtrl.dimas(loSAPObject, "GetBUDetails", "PCompanycodeDetail")
Set oPCompanycodeAddress = poBAPICtrl.dimas(loSAPObject, "GetBUDetails", "PCompanycodeAddress")
Set loReturn = poBAPICtrl.dimas(loSAPObject, "GetBUDetails", "Return")
loSAPObject.GetBUDetails PBukrs:=psBU, PParam:=oParam, Return:=loReturn, PFioCacf:=sBU.FioCacf
....
sBU.Name.ADDR_NO = oPCompanycodeDetail.Value("ADDR_NO")

и т.д.

[Удав]

Посмотрите настройки SAP GUI для системы - на вкладке "Другие" пункт "Кодировка для загрузки и выгрузки"

[siva1]

Можно уточнить возможные комбинации?
(т.к. уже пробовал менять методом перебора
Default ANSI for Unicode, Cyrillic Windows) с различными галками...

[vga]

Вы коннект к SAP через VBA делаете?
Если да, установите свойство
Connection.CodePage = "1504"

[siva1]

Спасибо за участие...

Можно поподробнее про строчку Connection.Codepage?

Коннект делаю через
strucSAP.host = .Sheets("SAP").Range("SAPХост").Value
strucSAP.sysname = .Sheets("SAP").Range("SAPСистема").Value
strucSAP.mandant = .Sheets("SAP").Range("SAPМандант").Value
strucSAP.sysnum = .Sheets("SAP").Range("SAPНомерСистемы").Value
strucSAP.router = ""
strucSAP.language = "RU"
strucSAP.user = .Sheets("SAP").Range("SAPПользователь").Value
strucSAP.password = .Sheets("SAP").Range("SAPПароль").Value
' Создание BAPI-объекта
Set oBAPICtrl = BAPIConnect(strucSAP)
If oBAPICtrl Is Nothing Then
strucSAP.router = .Sheets("SAP").Range("SAPРоутер").Value
Set oBAPICtrl = BAPIConnect(strucSAP)
End If

Необходимо определить элемент CodePage в структуре strucSAP?
и затем
strucSAP.CodePage="1504"

если так - то не помогло....

[vga]

[siva1]

Объявлял возможно не совсем верно, но работает)))

' Тип для передачи параметров соединения с SAP-системой
Type TConnection
host As String
sysname As String
sysnum As Integer
mandant As Integer
router As String
language As String
user As String
password As String
End Type

Dim strucSAP As TConnection

и далее использовал...
strucSAP.user = .Sheets("SAP").Range("SAPПользователь").Value
strucSAP.password = .Sheets("SAP").Range("SAPПароль").Value
' Создание BAPI-объекта
Set oBAPICtrl = BAPIConnect(strucSAP)

если не определить CodePage в структуре - прокол....

а какая существует?

[vga]

Ну я с примером
http://www.sapnet.ru/viewtopic.php?t=3267
как-то экспериментировал.

[siva1]

Спасибо, буду использовать...
но с кодировкой то не помогло.