ZY043T

PGID ZSYUBETU ZSEQNO ZSYUBETU ZVALUE01 ZVALUE02 ZVALUE03 ZVALUE04 ZVALUE05 ZVALUE06
430 A 1 doc type RE ZKB M04
430 A 2 doc type RE ZSB M05
430 A 3 doc type RE ZTB M06
430 A 4 doc type RE ZFB M10
430 A 5 doc type RE ZFER M01
430 A 6 doc type RE ZHAL M01
430 A 7 doc type RE ZROH M03
430 A 8 doc type RE ZFHM M04
430 A 9 doc type RE ZA01 M06
430 A 10 doc type RE ZNLA M10
430 A 11 doc type RE ZOVH M10
430 A 12 doc type RE ZA06 M10
430 A 13 doc type RE M03
430 A 14 doc type UJ 6600000001 M07
430 A 15 doc type UJ 6800065000 M08
430 A 16 doc type UJ M99
430 A 17 doc type UM 6600005035 M08
430 A 18 doc type UM 6600005911 M08
430 A 19 doc type UM 6600000013 M09
430 A 20 doc type UM M99
430 A 21 doc type UL 6600005035 M08
430 A 22 doc type UL 6600005911 M08
430 A 23 doc type UL 6600000013 M09
430 A 24 doc type UL M99
430 A 25 doc type ZW 6600010001 M02
430 A 26 doc type ZW M99
430 A 27 doc type SA 7
430 A 28 doc type SA M99
430 B 1 transactionM01 部品購入 C
430 B 2 transactionM02 支給買戻し R
430 B 3 transactionM03 材料購入 C
430 B 4 transactionM04 工機発注 C
430 B 5 transactionM05 工事発注 C
430 B 6 transactionM06 試作部品購入 S
430 B 7 transactionM07 受託材受入
430 B 8 transactionM08 支給部品買戻し R
430 B 9 transactionM09 支給材料買戻し R
430 B 10 transactionM10 副資材購入 C
430 B 11 transactionM99 その他取引

read gdt_zy043t transport no fields

with key pgid
zsyubetu
if sy-subrc <> 0
transaction = 'M99'
else

read table GDT_BLART_NO

with key low = FI doc
if sy-subrc = 0

read table gdt_ZY043T

with key pgid
zsyubetu = 'A'
zvalue01 = FI doc type
zvalue02 = ' PO type

if sy-subrc = 0
transaction = zvalue06
else
read table gdt_ZY043T
with key pgid
zsyubetu = 'A'
zvalue01 = FI doc type
zvalue03 = ' MATERIAL type

if sy-subrc = 0
transaction = zvalue06
else
transaction = zvalue06
endif
endif
endif

read table GDT_BLART_DT

with key low = FI doc
if sy-subrc = 0

read table gdt_ZY043T

with key pgid
zsyubetu = 'A'
zvalue01 = FI doc type
zvalue02 = ' account

if sy-subrc = 0
transaction = zvalue06
else
read table gdt_ZY043T
with key pgid
zsyubetu = 'A'
 zvalue01 = FI doc type
zvalue03 = ' item type

if sy-subrc = 0
transaction = zvalue06
else

read table gdt_ZY043T

with key pgid
zsyubetu = 'A'
zvalue01 = FI doc type

if sy-subrc = 0
transaction = zvalue06
endif
endif
endif
endif

read table GDT_BLART_ZEI

with key low = FI doc
if sy-subrc = 0
read table gdt_ZY043T
with key pgid
zsyubetu = 'A'
zvalue01 = FI doc type
zvalue03 = ' item type

if sy-subrc = 0
transaction = zvalue06
else

read table gdt_ZY043T

with key pgid
zsyubetu = 'A'
zvalue01 = FI doc type

if sy-subrc = 0
transaction = zvalue06
endif
endif
endif
endif
 ZF127T

ZVALUE07 ZVALUE08 BUKRS KUBUN PARAM

A001 1 LIEF
A001 2 RE
A001 3 3060000000
A001 3 3060000001
A001 4 SA
A001 4 SU
A001 4 UA
A001 4 UJ
A001 4 UL
A001 4 UM
A001 4 ZW
A001 5 ZP
A001 6 KZ
A001 7 11012010
A001 7 11012020
A001 7 11012110
A001 7 21011100
A001 8 SA
A001 9 11061000
A001 10 V5