Пытаюсь сделать прямой ввод мест налогообложения. Вроде используются всего 2 таблици T499S (Местоположение) и ADRC (Адреса). Для связи таблиц используется поле ADDRNUM и ещЁ два поля но они же пустые (я протрейсил и посмотрел селект) ADRC-NATION и ADRC - PERS_ADDR. Так вот проблемка в том что адрес потом не поттягивается ... незнаю уже что и думать ....

вот выкладываю код ...


REPORT Z_SEA_BATCH_TORO_ZAVOD.

TABLES: T499S, ADRC.

TYPES: BEGIN OF MY_STRUC,
WERKS LIKE T499S-WERKS,
STAND LIKE T499S-STAND,
KTEXT LIKE T499S-KTEXT,
ADDRNUM LIKE T499S-ADDRNUM,
NAME1 LIKE ADRC-NAME1,
CITY1 LIKE ADRC-CITY1,
POST_CODE1 LIKE ADRC-POST_CODE1,
STREET LIKE ADRC-STREET,
HOUSE_NUM1 LIKE ADRC-HOUSE_NUM1,
TEL_NUMBER LIKE ADRC-TEL_NUMBER,
END OF MY_STRUC.


PARAMETERS FILENAME(128) DEFAULT 'C:\toro\toro_input.txt'
LOWER CASE.

DATA: MSG_TEXT(50),
ALL_MY_STRUC TYPE MY_STRUC OCCURS 100
WITH HEADER LINE.

DATA: WA_T499S LIKE T499S,
WA_ADRC LIKE ADRC,
WA_ADRV LIKE ADRV.


*Opening the File
CALL FUNCTION 'WS_UPLOAD'
EXPORTING
FILENAME = FILENAME
FILETYPE = 'DAT'
TABLES
DATA_TAB = ALL_MY_STRUC
EXCEPTIONS
FILE_OPEN_ERROR = 1
OTHERS = 2.
CASE SY-SUBRC.
WHEN 1.
WRITE 'Error when file opened'.
EXIT.
WHEN 2.
WRITE 'Error during data transfer'.
EXIT.
ENDCASE.

LOOP AT ALL_MY_STRUC.
WRITE: / ALL_MY_STRUC-WERKS COLOR COL_GROUP,
ALL_MY_STRUC-STAND COLOR COL_GROUP,
ALL_MY_STRUC-KTEXT COLOR COL_GROUP,
ALL_MY_STRUC-ADDRNUM COLOR COL_GROUP,
ALL_MY_STRUC-NAME1 COLOR COL_GROUP,
ALL_MY_STRUC-CITY1 COLOR COL_GROUP,
ALL_MY_STRUC-POST_CODE1 COLOR COL_GROUP,
ALL_MY_STRUC-STREET COLOR COL_GROUP,
ALL_MY_STRUC-HOUSE_NUM1 COLOR COL_GROUP,
ALL_MY_STRUC-TEL_NUMBER COLOR COL_GROUP.


*insert to t499S

WA_T499S-WERKS = ALL_MY_STRUC-WERKS.
WA_T499S-STAND = ALL_MY_STRUC-STAND.
WA_T499S-KTEXT = ALL_MY_STRUC-KTEXT.
WA_T499S-ADDRNUM = ALL_MY_STRUC-ADDRNUM.

INSERT INTO T499S VALUES WA_T499S.

IF SY-SUBRC = 0.
WRITE ' <- Введено T499S' COLOR COL_POSITIVE.
ELSE.
WRITE ' <- НЕ введено T499S' COLOR COL_NEGATIVE.
ENDIF.


*insert to adrc

WA_ADRC-ADDRNUMBER = ALL_MY_STRUC-ADDRNUM.
WA_ADRC-NAME1 = ALL_MY_STRUC-NAME1.
WA_ADRC-NAME2 = ALL_MY_STRUC-NAME1.
WA_ADRC-CITY1 = ALL_MY_STRUC-CITY1.
WA_ADRC-POST_CODE1 = ALL_MY_STRUC-POST_CODE1.
WA_ADRC-STREET = ALL_MY_STRUC-STREET.
WA_ADRC-HOUSE_NUM1 = ALL_MY_STRUC-HOUSE_NUM1.
WA_ADRC-TEL_NUMBER = ALL_MY_STRUC-TEL_NUMBER.


WA_ADRC-CHCKSTATUS = 'D'.
WA_ADRC-COUNTRY = 'RU'.
WA_ADRC-LANGU = 'RU'.
WA_ADRC-REGION = '23'.
WA_ADRC-ADDR_GROUP = 'CA01'.
WA_ADRC-DATE_FROM = '20040101'.
WA_ADRC-DATE_TO = '99991016'.
WA_ADRC-FLAGCOMM2 = 'X'.
WA_ADRC-TIME_ZONE = 'RUS03'.
WA_ADRC-LANGU_CREA = 'RU'.
WA_ADRC-NATION = ' '.
WA_ADRC-PERS_ADDR = ' '.

WA_ADRC-MC_NAME1 = ALL_MY_STRUC-NAME1.
WA_ADRC-MC_CITY1 = ALL_MY_STRUC-CITY1.
WA_ADRC-MC_STREET = ALL_MY_STRUC-STREET.


INSERT INTO ADRC VALUES WA_ADRC.

IF SY-SUBRC = 0.
WRITE ' <- Введено ADRC' COLOR COL_POSITIVE.
ELSE.
WRITE ' <- НЕ введено ADRC' COLOR COL_NEGATIVE.
ENDIF.


ENDLOOP.

* строчка с данными что то вроде такого
B B88 SEA DONT WORRY 0000020777 ГИАГИНСКИЙ РЭС СТ.ГИАГИНСКАЯ 350000 М.ГОРЬКОГО 676 9-19-82

Возможно, что используются все таки не две таблицы, а больше, поэтому правильнее юзать пакетный ввод по транзакции ...
Хотя если хочешь прямой, то смотри в отладке, где должен тянуться адрес, откуда читаются данные ...

Да я бы поюзал пакетник по транзакции ... кто бы меня только научил ... хотел посмотреть ... так этаж фигня из SPRO запускается и транзакции к ней нет .... так что не знаю теперь как SM35 юзать ...
Я вроде протрейсил .... и не используются там другие таблици ... там ещЁ есть таблици логов и ещЁ ADRV .... но трейсер не показывает что потом к ней селект идет при запросе на показ адрессных данных ... вообщем вот так вот ...


SPRO->Структура предприятия->Определение->Общая логистик->Определение места положения
Это путь к программе.....

этому не учат, этому учатся - транзакция SM35, а там все понятно


Правой кнопкой жмем по операции SPRO, выбираем "Просмотр технической информации" переходим на закладку "Объекты ведения" и видим, что эта операция вызывает SM30 для ракурса V_T499S

Теперь знаешь
Удачи

Спасибо всем большое! Особенно Bully! Со всем разобрался, сеанс записался ... щас тока чтение данных допишу и должно работать ... я тут просто один ... даже спросить неукого ...

Всегда пожалуйста! Спрашивай еще...