No es compatible con BDC, solo BAPI
datos:
lt_ztfi034b como tabla de ztfi034b con línea de encabezado.
origen de datos tipo de referencia bapifapo_doc_ref.
datos generalpostingdata tipo bapifapo_gen_info.
data valueadjustdata tipo bapifapo_value_adjustment.
cuentas de datos tipo de asignaciones bapifapo_acc_ass.
datos posteriores a la publicación de datos tipo bapifapo_add_info.
documento de datos tipo de referencia bapifapo_doc_ref.
tipo de retorno de datos bapiret2.
tipo de valores de ajuste de datos tabla estándar de valores de área de bapifapo.
datos return_all tipo tabla estándar de bapiret2.
bucle en gt_alv donde sel = 'X'.
clear: origindocreference, generalpostingdata, valueadjustdata, documentreference, return,
return_all, return_all [].
origindocreference-obj_type = 'AMBU'.
generalpostingdata-username = sy-uname.
generalpostingdata-doc_type = 'AF'.
generalpostingdata-doc_date = sy-datum.
generalpostingdata-pstng_date = sy-datum.
generalpostingdata-fis_period = p_monat.
generalpostingdata-trans_date = sy-datum.
generalpostingdata-comp_code = gt_alv-bukrs.
generalpostingdata-assetmaino = gt_alv-anln1.
generalpostingdata-assetsubno = gt_alv-anln2.
si gt_alv-active (4) = sy-date (4).
generalpostingdata-assettrtyp = '610'.
demás.
generalpostingdata-assettrtyp = '600'.
terminara si.
generalpostingdata-depr_area = gt_alv-afabe. "Área de depreciación
if gt_alv-afabe = '1'. "Depreciación del libro
generalpostingdata-ledger_group = '0L'.
generalpostingdata-acc_principle = 'PCGA'.
elseif gt_alv-afabe = '10'. "Depreciación contable según las NIIF
generalpostingdata-ledger_group = 'Z1'.
generalpostingdata-acc_principle = '60'.
elseif gt_alv-afabe = '11'. "Depreciación fiscal
generalpostingdata-ledger_group = 'Z2'.
generalpostingdata-acc_principle = 'IMPUESTO'.
terminara si.
valueadjustdata-amount = gt_alv-mdres.
valueadjustdata-amount_long = gt_alv-mdres.
valueadjustdata-valuedate = sy-datum.
valueadjustdata-currency = gt_alv-waers.
* valueadjustdata-currency_iso = 'CNY'.
llamar a la función 'BAPI_ASSET_VALUE_ADJUST_POST'
exportador
origindocreference = origindocreference
generalpostingdata = generalpostingdata
valueadjustdata = valueadjustdata
accounttassignments = accounttassignments
additionalpostingdata = additionalpostingdata
importador
documentreference = documentreference
retorno = retorno
mesas
adjustareavalues = adjustareavalues
return_all = return_all.
si la referencia del documento no es inicial.
gt_alv-rtype = 'S'.
* LEER TABLA return_all ÍNDICE 1.
* gt_alv-rtmsg = return_all-
* gt_alv-rtmsg = 'Éxito'.
gt_alv-creat = 'X'.
llamar a la función 'BAPI_TRANSACTION_COMMIT'
exportador
esperar = 'X'.
ID de mensaje tipo de identificación de retorno tipo de retorno número número de retorno
con return-message_v1 return-message_v2
return-message_v3 return-message_v4
en datos (lv_msg).
move-correspondiente gt_alv a lt_ztfi034b.
lt_ztfi034b-gjahr = p_gjahr.
lt_ztfi034b-month = p_month.
anexar lt_ztfi034b.
demás.
llamar a la función 'BAPI_TRANSACTION_ROLLBACK'.
gt_alv-rtype = 'E'.
ID de mensaje tipo de identificación de retorno tipo de retorno número número de retorno
con return-message_v1 return-message_v2
return-message_v3 return-message_v4
en lv_msg.
gt_alv-rtmsg = lv_msg.
terminara si.
modificar gt_alv.
endloop.
si lt_ztfi034b [] no es inicial.
modifique ztfi034b de la tabla lt_ztfi034b.
terminara si.