leir1612

Hola soy programador de ABAP/4 hace muchos años asi que desde ahora voy a pasar por aca para los abapers tarigueros algunos ejemplos de algunos cosa que hice ahi va el primero Ejemplo para recupera la informacion de una lista de spool REPORT YRECUPERA_LISTA. RANGES: R_per for FAGLFLEXT-RPMAX. data: xlist type abaplist occurs 0 with header line. DATA: xtext(255) OCCURS 0 WITH HEADER LINE. data: v_importe(14) type c, v_impor like faglflext-hslvt. R_per-SIGN = 'I'. R_per-OPTION = 'BT'. R_per-LOW = '01'. r_per-HIGH = '16'. append R_per. submit RFBILA00 WITH SD_KTOPL-LOW = 'INT' WITH SD_BUKRS-LOW = '1000' WITH BILAVERS = 'INT' WITH BILASPRA = 'ES' WITH BILBJAHR = '2008' WITH B-MONATE IN r_per WITH BILVJAHR = '2007' WITH V-MONATE IN r_per WITH BILAGRID = 'X' EXPORTING LIST TO MEMORY AND RETURN. CALL FUNCTION 'LIST_FROM_MEMORY' TABLES listobject = xlist EXCEPTIONS not_found = 1 OTHERS = 2. IF sy-subrc = 0. CALL FUNCTION 'LIST_TO_ASCI' TABLES listasci = xtext[] listobject = xlist[] EXCEPTIONS empty_list = 1 list_index_invalid = 2 OTHERS = 99. LOOP AT xtext. IF xtext+1(7) = '7090000' and not xtext+73(14) is initial. move xtext+73(14) to v_importe. REPLACE ALL OCCURRENCES OF '.' IN v_importe with space. REPLACE ALL OCCURRENCES OF ',' IN v_importe with space. CONDENSE v_importe NO-GAPS. move v_importe to v_impor. v_impor = v_impor / 100 * -1. WRITE: / xtext+1(7), xtext+73(14), v_impor. ENDIF. ENDLOOP. ENDIF. Espero que le sirva a alguien ..