Текущее время: Ср, июл 30 2025, 15:15

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


Правила форума


ВНИМАНИЕ!

Вопросы по SAP Query и Quick View - сюда



Начать новую тему Ответить на тему  [ Сообщений: 3 ] 
Автор Сообщение
 Заголовок сообщения: FM WSAF_BUILD_SEPARATOR
СообщениеДобавлено: Пт, май 11 2007, 12:11 
Председатель
Председатель
Аватара пользователя

Зарегистрирован:
Чт, апр 13 2006, 12:32
Сообщения: 1503
Откуда: Питер
Коллеги, у кого есть этот функциональный модуль в системе, не посмотрите, какой он сепаратор возвращает, с сервера приложений или с клиента? В 4.6C его нет.

Или еще лучше, приведите код, что внутри. Надо чем то заменить.


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

Зарегистрирован:
Ср, сен 22 2004, 08:42
Сообщения: 1079
Откуда: Москва
Пол: Мужской
function wsaf_build_separator.
*"----------------------------------------------------------------------
*"*"Lokale Schnittstelle:
*" IMPORTING
*" VALUE(I_SAF_REMOTE) TYPE XFLAG OPTIONAL
*" VALUE(I_LOCATION) TYPE T001W-WERKS OPTIONAL
*" EXPORTING
*" REFERENCE(OPSYSGROUP) TYPE OPSYSTEM-FILESYS
*" REFERENCE(SEPARATOR) TYPE C
*" REFERENCE(REMOTE_NT_DRIVE) TYPE C
*" EXCEPTIONS
*" SEPARATOR_NOT_MAINTAINED
*" WRONG_CALL
*" WSAF_CONFIG_NOT_MAINTAINED
*"----------------------------------------------------------------------
* Bestimmen des Betriebssystemes aus der Tabelle WSAF_CONFIG
if not i_saf_remote is initial.
* Hier wird die Location/Werks benіtigt...
if i_location is initial.
raise wrong_call.
endif.

select single configvalue from wsaf_config into remote_nt_drive
where werks = i_location and
configname = 'SAF-Laufwerk:' "#EC NOTEXT
.
if sy-subrc ne 0.
raise wsaf_config_not_maintained.
endif.
if remote_nt_drive = ' '.
* Kein Windows - Annahme ein UNIX Derivat
separator = '/'.
opsysgroup = 'UNIX'.
else.
* WINDOWS oder DOS Betriebssystem
separator = '\'.
opsysgroup = 'WINDOWS NT'.
endif.
else.
* Operating system group
select single filesys from opsystem into opsysgroup
where opsys = sy-opsys.

case opsysgroup.
when 'WINDOWS NT'.
separator = '\'.
when 'UNIX'.
separator = '/'.
when 'DOS'.
separator = '\'.
when 'AS/400'.
when 'MACINTOSH'.
separator = ':'.
when 'VMS'.
raise separator_not_maintained.
when 'MPE'.
raise separator_not_maintained.
when others.
raise separator_not_maintained.
endcase.
endif.
endfunction.


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

Зарегистрирован:
Чт, апр 13 2006, 12:32
Сообщения: 1503
Откуда: Питер
Спасибо, с сервера приложений значит по sy-opsys.


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

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


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

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


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

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