网站设计特点,html5 自适应网站,新华网官网首页,免费网站空间和域名为关键用户开发了一个ALV报表#xff0c;因为导出Excel导致 curr性质的字段 例程的 问题 #xff0c;使得负号后置#xff0c;Excel不能直接运算#xff0c;需要转换你成数值后才可以#xff0c;经过调试发现是对应的域 的转换例程的问题 FUNCTION CONVERSION_EXIT_AC152_…为关键用户开发了一个ALV报表因为导出Excel导致 curr性质的字段 例程的 问题 使得负号后置Excel不能直接运算需要转换你成数值后才可以经过调试发现是对应的域 的转换例程的问题 FUNCTION CONVERSION_EXIT_AC152_INPUT.
*----------------------------------------------------------------------
**Local Interface:
* IMPORTING
* VALUE(INPUT)
* VALUE(REFVAL) OPTIONAL
* VALUE(CURRENCY) OPTIONAL
* EXPORTING
* VALUE(OUTPUT)
*----------------------------------------------------------------------* When using RS_CONV_EX_2_IN_NO_DD we have to care for passing the
* the required type info to this FM.
* This is acchieved by doing useful settings into the FMs input parameter CONVERT.DATA: ls_convert TYPE rsconvlite,odata_flag TYPE abap_bool VALUE abap_false,lv_input_string TYPE string,lr_input TYPE REF TO data.FIELD-SYMBOLS lv_input TYPE any.* indicate that CONVERT contains useful settingsls_convert-active X.* indicate that a sign is allowed (if necessary!)ls_convert-sign X.IF currency IS SUPPLIED.lv_input_string input.DATA(lv_len) strlen( lv_input_string ).IF lv_len 0.lv_len 1.ENDIF.CREATE DATA lr_input TYPE c LENGTH lv_len.ASSIGN lr_input-* TO lv_input.lv_input input.refval currency.odata_flag abap_true.ELSE.ASSIGN input TO lv_input.ENDIF.* set the allowed output length
* this should match the lentgh of the input fieldDESCRIBE FIELD lv_input TYPE DATA(lv_source_type).IF lv_source_type cl_abap_typedescrtypekind_string.DESCRIBE FIELD output OUTPUT-LENGTH ls_convert-olength.odata_flag abap_true.ELSEIF lv_source_type cl_abap_typedescrtypekind_packed.DESCRIBE FIELD lv_input LENGTH DATA(lv_bytelength) IN BYTE MODE.ls_convert-olength lv_bytelength * 2.odata_flag abap_true.ELSE.DESCRIBE FIELD lv_input LENGTH ls_convert-olength IN CHARACTER MODE.ENDIF.* set decimals to the default for currency fieldsls_convert-decimals 2.* no further settings to be done hereCALL FUNCTION AFLE_CONVERSION_COMMON_CUR_INEXPORTINGinput lv_inputrefval refvalconvert ls_convertlength 15odata_flag odata_flagdecimals 2IMPORTINGoutput output.ENDFUNCTION.
FUNCTION CONVERSION_EXIT_AC152_OUTPUT.
*----------------------------------------------------------------------
**Local Interface:
* IMPORTING
* VALUE(INPUT)
* VALUE(REFVAL) OPTIONAL
* VALUE(CURRENCY) OPTIONAL
* EXPORTING
* VALUE(OUTPUT)
*----------------------------------------------------------------------IF currency IS NOT SUPPLIED.CALL FUNCTION AFLE_CONVERSION_COMMON_CUR_OUTEXPORTINGinput inputrefval refvalIMPORTINGoutput output.ELSE.DATA lv_output_string TYPE string.Gateway specific logicCALL FUNCTION CURRENCY_AMOUNT_SAP_TO_IDOCEXPORTINGcurrency currencysap_amount inputIMPORTINGidoc_amount lv_output_string.CONDENSE lv_output_string NO-GAPS. Negative Currency Amount: 2.00- -2.00IF lv_output_string IS NOT INITIAL.SHIFT lv_output_string RIGHT CIRCULAR.IF lv_output_string(1) -.SHIFT lv_output_string LEFT CIRCULAR.ENDIF.ENDIF.output lv_output_string.ENDIF.ENDFUNCTION.
