Всем привет!
Для тех, кто столкнулся с такой же проблемой как у пользователя E123.
После заполнения суммы проводки, ссылочной даты и текста к позиции, нажимаете "Сохранить" (=UPDA), далее заполняете суммы по всем областям оценки (OK_CODE =AUSF).
Код:
Code:
clear: LT_BDCDATA[].
* Первый экран
perform BDC_DYNPRO using 'SAPMA01B' '0100'
changing LT_BDCDATA.
perform BDC_FIELD using 'BDC_CURSOR'
'ANBZ-BWASL'
changing LT_BDCDATA.
perform BDC_FIELD using 'BDC_OKCODE'
'/00'
changing LT_BDCDATA.
perform BDC_FIELD using 'ANBZ-BUKRS'
P_BUKRS
changing LT_BDCDATA.
perform BDC_FIELD using 'ANBZ-ANLN1'
<LFS_DATA>-ANLN1
changing LT_BDCDATA.
perform BDC_FIELD using 'ANEK-BLDAT'
L_BLDAT
changing LT_BDCDATA.
perform BDC_FIELD using 'ANEK-BUDAT'
L_BUDAT
changing LT_BDCDATA.
perform BDC_FIELD using 'ANBZ-PERID'
P_PERID
changing LT_BDCDATA.
perform BDC_FIELD using 'ANBZ-BWASL'
P_BWASL
changing LT_BDCDATA.
* Ввод суммы проводки, ссылочной даты и текста к позиции
perform BDC_DYNPRO using 'SAPMA01B' '0110'
changing LT_BDCDATA.
perform BDC_FIELD using 'BDC_CURSOR'
'ANEK-SGTXT'
changing LT_BDCDATA.
perform BDC_FIELD using 'BDC_OKCODE'
'=UPDA'
changing LT_BDCDATA.
perform BDC_FIELD using 'ANBZ-DMBTR'
L_DMBTR
changing LT_BDCDATA.
perform BDC_FIELD using 'ANBZ-BZDAT'
L_BZDAT
changing LT_BDCDATA.
perform BDC_FIELD using 'ANEK-SGTXT'
P_SGTXT
changing LT_BDCDATA.
* ОБЛАСТИ ОЦЕНКИ
perform BDC_DYNPRO using 'SAPMA01B' '0285'
changing LT_BDCDATA.
perform BDC_FIELD using 'BDC_CURSOR'
'ANEP-ANBTR'
changing LT_BDCDATA.
perform BDC_FIELD using 'BDC_OKCODE'
'=AUSF'
changing LT_BDCDATA.
perform BDC_DYNPRO using 'SAPMA01B' '0285'
changing LT_BDCDATA.
perform BDC_FIELD using 'BDC_CURSOR'
'ANEP-ANBTR'
changing LT_BDCDATA.
perform BDC_FIELD using 'BDC_OKCODE'
'=AUSF'
changing LT_BDCDATA.
perform BDC_FIELD using 'ANEP-ANBTR'
'0'
changing LT_BDCDATA.
perform BDC_DYNPRO using 'SAPMA01B' '0285'
changing LT_BDCDATA.
perform BDC_FIELD using 'BDC_CURSOR'
'ANEP-ANBTR'
changing LT_BDCDATA.
perform BDC_FIELD using 'BDC_OKCODE'
'=AUSF'
changing LT_BDCDATA.
perform BDC_FIELD using 'ANEP-ANBTR'
'0'
changing LT_BDCDATA.
perform BDC_DYNPRO using 'SAPMA01B' '0285'
changing LT_BDCDATA.
perform BDC_FIELD using 'BDC_CURSOR'
'ANEP-ANBTR'
changing LT_BDCDATA.
perform BDC_FIELD using 'BDC_OKCODE'
'=AUSF'
changing LT_BDCDATA.
perform BDC_FIELD using 'ANEP-ANBTR'
'0'
changing LT_BDCDATA.
perform BDC_TRANSACTION using LT_BDCDATA 'AB01'
changing <LFS_DATA>.