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

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


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

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


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

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