Hi,
I need to update a custom field in VBRK through a program.
I wrote the following code for the same :
CALL FUNCTION 'RV_INVOICE_DOCUMENT_READ'
EXPORTING
vbrk_i = vbrk
konv_read = 'X'
IMPORTING
vbrk_e = vbrk
TABLES
xkomfk = xkomfk
xvbrk = xvbrk
xvbrp = xvbrp
xvbpa = xvbpa
xkomv = xkomv
XVBFS = xVBFS
XTHEAD = xthead
XVBSS = xVBSS
EXCEPTIONS
error_message = 4
OTHERS = 4.
LOOP AT xvbrk INTO wa_vbrk.
wa_vbrk-zzfield = 'XYZ'.
MODIFY xvbrk FROM wa_vbrk INDEX sy-tabix.
ENDLOOP.
CALL FUNCTION 'RV_INVOICE_HEAD_MAINTAIN'
EXPORTING
* FCODE_I = ' '
vbrk_i = vbrk
tables
xkomfk = xkomfk
xkomv = xkomv
xthead = XTHEAD
xvbfs = xvbfs
xvbpa = xvbpa
xvbrk = xvbrk
xvbrp = xvbrp
xvbss = xvbss
.
*
LS_VBSK_I-mandt = sy-mandt.
LS_VBSK_I-ernam = sy-uname.
ls_VBSK_I-erdat = wa_vbrk-erdat.
ls_VBSK_I-uzeit = wa_vbrk-erzet.
CALL FUNCTION 'RV_INVOICE_DOCUMENT_ADD'
EXPORTING
VBSK_I = ls_VBSK_I
WITH_POSTING = 'A'
PREISFINDUNGSART = 'I'
TABLES
XKOMFK = XKOMFK
XKOMV = XKOMV
XTHEAD = XTHEAD
XVBFS = XVBFS
XVBPA = XVBPA
XVBRK = XVBRK
XVBRP = XVBRP
XVBSS = XVBSS
exceptions
others = 1.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
WAIT = 'X'
* IMPORTING
* RETURN =
.
But with this code, the VBRK field zzfield gets updated the first time when I run this. But when I run the program again, it doesnt get updated.
Anything missing ? Or a better way to update z field in VBRK ?
Thanks and Regards
Vivek