Difference between revisions of "SAP ABAP VARIOS"
From SapWiki
Line 24: | Line 24: | ||
ENDIF. | ENDIF. | ||
+ | |||
+ | ==Obtener Texto según Valor de dominio== | ||
+ | FORM get_domvalue USING p_domname p_value CHANGING p_text. | ||
+ | DATA: l_domvalue TYPE dd07v-domvalue_l, | ||
+ | l_ddtext TYPE dd07v-ddtext. | ||
+ | |||
+ | l_domvalue = p_value. | ||
+ | |||
+ | CALL FUNCTION 'DOMAIN_VALUE_GET' | ||
+ | EXPORTING | ||
+ | i_domname = p_domname | ||
+ | i_domvalue = l_domvalue | ||
+ | IMPORTING | ||
+ | e_ddtext = l_ddtext | ||
+ | EXCEPTIONS | ||
+ | not_exist = 1 | ||
+ | OTHERS = 2. | ||
+ | IF sy-subrc = 0. | ||
+ | MOVE l_ddtext TO p_text. | ||
+ | ELSE. | ||
+ | CLEAR p_text. | ||
+ | ENDIF. | ||
+ | |||
+ | ENDFORM. "get_domvalue |
Revision as of 20:47, 26 March 2020
UUID ver nota 935047 - Creating and using GUIDs (UUIDs)
FORM generar_iddocumento_2 CHANGING p_resultado. DATA lcl_request_id TYPE guid_32. TRY. lcl_request_id = cl_system_uuid=>create_uuid_c32_static( ). CATCH cx_uuid_error. ASSERT 1 = 0. ENDTRY. MOVE lcl_request_id TO p_resultado. ENDFORM.
Grabar XSTRING en equipo como Binario(XML,PDF,etc.)
CONCATENATE ls_dir_d '\' i_vbeln '.xml' INTO ls_fullpath.
CALL METHOD cl_faa_tenv_services=>gui_download_xstring EXPORTING id_fullpath = ls_fullpath id_xstring = i_xml.
IF sy-subrc <> 0.
ENDIF.
Obtener Texto según Valor de dominio
FORM get_domvalue USING p_domname p_value CHANGING p_text. DATA: l_domvalue TYPE dd07v-domvalue_l, l_ddtext TYPE dd07v-ddtext. l_domvalue = p_value. CALL FUNCTION 'DOMAIN_VALUE_GET' EXPORTING i_domname = p_domname i_domvalue = l_domvalue IMPORTING e_ddtext = l_ddtext EXCEPTIONS not_exist = 1 OTHERS = 2. IF sy-subrc = 0. MOVE l_ddtext TO p_text. ELSE. CLEAR p_text. ENDIF. ENDFORM. "get_domvalue