hello Arun
hope this helps...
DATA :
ac LIKE bapiacgl09 OCCURS 0 WITH HEADER LINE,
ar LIKE bapiacar09 OCCURS 0 WITH HEADER LINE,
ca LIKE bapiaccr09 OCCURS 0 WITH HEADER LINE,
return LIKE bapiret2 OCCURS 0 WITH HEADER LINE.
DATA :
dh LIKE bapiache09,
time LIKE sy-uzeit,
xx LIKE ca-amt_doccur.
DATA : BEGIN OF xdocuments OCCURS 0.
INCLUDE STRUCTURE acc_doc.
DATA : END OF xdocuments.
DATA : aworg LIKE acchd-aworg ,
awref LIKE acchd-awref .
DATA : answer.
CLEAR : dh, ac[], ca[].
CLEAR : xdocuments[].
CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'
EXPORTING
defaultoption = 'Y'
textline1 = text-009
textline2 = text-001
titel = text-003
IMPORTING
answer = answer.
CHECK answer EQ 'J'.
PERFORM popup_for_date.
CALL METHOD gv_grid1->get_selected_rows
IMPORTING
et_index_rows = rw_01.
LOOP AT rw_01 INTO ws_01.
READ TABLE gt_head INDEX ws_01-index .
CHECK gt_head-status EQ 'X' .
CHECK gv_answ NE 'C'.
PERFORM call_bapi.
CHECK dh IS NOT INITIAL AND ar[] IS NOT INITIAL AND
ca[] IS NOT INITIAL.
PERFORM belge_olustur.
PERFORM belege_modify.
ENDLOOP.
ENDFORM. " kayit_yarat
&----
*& Form popup_for_date
&----
FORM popup_for_date .
CALL FUNCTION 'POPUP_TO_GET_DATE'
EXPORTING
fieldname = 'BUDAT'
tabname = 'BKPF'
titel = ''
valuein = sy-datum
IMPORTING
answer = gv_answ
valueout = gv_recdate.
ENDFORM. " popup_for_date
&----
*& Form call_bapi
&----
FORM call_bapi .
*p_rdate = sy-datum.
REFRESH : ar[].
time = sy-uzeit.
CONCATENATE sy-repid '__' INTO awref.
CONCATENATE sy-datum(4) time INTO aworg .
CONCATENATE awref p_gjahr time INTO dh-obj_key .
CALL FUNCTION 'OWN_LOGICAL_SYSTEM_GET'
IMPORTING
own_logical_system = dh-obj_sys
EXCEPTIONS
own_logical_system_not_defined = 1
OTHERS = 2.
dh-obj_type = 'ZBKPF'.
dh-bus_act = 'RFBU'.
dh-username = sy-uname.
dh-comp_code = p_bukrs.
dh-doc_date = gv_recdate.
dh-pstng_date = gv_recdate.
dh-doc_type = 'MA'.
ar-itemno_acc = 1.
ar-customer = gt_head-kunnr.
ar-comp_code = p_bukrs.
ar-item_text = text-011.
ar-tax_code = 'A3'.
APPEND ar.
CLEAR ar.
xx = gt_head-vftut.
ca-itemno_acc = 1.
ca-currency = p_waers
ca-amt_doccur = xx.
APPEND ca.
CLEAR ca.
ac-itemno_acc = 2.
ac-comp_code = dh-comp_code.
ac-pstng_date = dh-pstng_date.
ac-gl_account = '6020020001'.
ac-item_text = text-900.
ac-tax_code = 'A3'.
APPEND ac.
CLEAR ac.
xx = xx * -1 .
ca-itemno_acc = 2.
ca-currency = p_waers.
ca-amt_doccur = xx.
APPEND ca.
CLEAR ca.
ENDFORM. " call_bapi
&----
*& Form belge_olustur
&----
FORM belge_olustur .
CALL FUNCTION 'BAPI_ACC_DOCUMENT_POST'
EXPORTING
documentheader = dh
IMPORTING
obj_type = dh-obj_type
obj_key = dh-obj_key
obj_sys = dh-obj_sys
TABLES
accountgl = ac
currencyamount = ca
accountreceivable = ar
return = return.
LOOP AT return WHERE type = 'E'.
IF sy-tabix EQ 1.
LEAVE TO LIST-PROCESSING.
WRITE : / 'BELGE YARATILIRKEN OLUSAN HATALAR'
COLOR COL_NEGATIVE.
SKIP 1.
ENDIF.
WRITE : / return-message COLOR COL_NEGATIVE.
ENDLOOP.
IF sy-subrc NE 0 .
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
wait = 'X'
IMPORTING
return = return.
ENDIF.
ENDFORM. " belge_olustur
&----
*& Form belege_modify
&----
----
FORM belege_modify .
CALL FUNCTION 'AC_DOCUMENT_RECORD'
EXPORTING
i_awtyp = 'ZBKPF'
i_awref = awref
i_aworg = aworg
x_dialog = ' '
TABLES
t_documents = xdocuments
EXCEPTIONS
no_reference = 1
no_document = 2
OTHERS = 3.
LOOP AT xdocuments .
SELECT SINGLE * FROM bkpf WHERE bukrs = xdocuments-bukrs
AND belnr = xdocuments-docnr
AND gjahr = xdocuments-ac_gjahr
AND usnam = sy-uname .
CHECK sy-subrc EQ 0 .
gt_head-belege = xdocuments-docnr.
EXIT.
ENDLOOP .
ENDFORM. " belege_modify
Bluesky
