La tabla transparente TNAPR contiene toda la información referida al tratamiento de clase de mensajes.
Se puede buscar u obtener información de:
Es muy útil cuando hay que modificar formularios, ya sean sapscripts o smartforms.
RSTXPDFT4 es un programa estándar que se corre desde la transacción SE38 y que sirve para convertir un sapscript (formulario) o orden de spool a pdf.
Solamente hay que pasarle como filtro el número de una orden de spool y si deseamos una ruta para guardarla en PDF.
Para encontrar una orden de spool, hay que ir al menú Sistema –> Órdenes SPOOL propias o bien buscarla en la tabla TSP01.
Con el siguiente reporte vamos a poder mostrar el contenido de un IDOC y luego guardarlo en un fichero.
Simplemente corremos el programa con el número de IDOC y luego que se liste el contenido, podemos grabar un fichero desde el menú Lista —> Grabar/Enviar —> Fichero…
REPORT Z_DISPLAY_IDOC LINE-SIZE 275.
DATA: IDOC_CONTROL LIKE EDIDC,
NUMBER_OF_DATA_RECORDS LIKE SY-DBCNT,
NUMBER_OF_STATUS_RECORDS LIKE SY-DBCNT,
INT_EDIDS LIKE EDIDS OCCURS 0 WITH HEADER LINE,
INT_EDIDD LIKE EDIDD OCCURS 0 WITH HEADER LINE.
TYPE-POOLS : LEDID.
DATA: STRUCT_TYPE TYPE LEDID_STRUCT_TYPE ,
IDOC_STRUCT TYPE LEDID_T_IDOC_STRUCT,
SEGMENTS TYPE LEDID_T_SEGMENT,
SEGMENT_STRUCT TYPE LEDID_T_SEGMENT_STRUCT,
EXCEL_TAB(2000) OCCURS 0 WITH HEADER LINE.
PARAMETER: DOCNUM LIKE EDIDC-DOCNUM OBLIGATORY, «»Idoc Number
SAP_REL LIKE SY-SAPRL DEFAULT SY-SAPRL OBLIGATORY,
PI_VER LIKE EDI_VERREC-VERSION DEFAULT ‘3’ OBLIGATORY.
START-OF-SELECTION.
PERFORM READ_IDOC.
PERFORM PROCESS_IDOC.
END-OF-SELECTION.
*&———————————————————————*
*& Form read_idoc
*&———————————————————————*
* text
*———————————————————————-*
FORM READ_IDOC.
CALL FUNCTION ‘IDOC_READ_COMPLETELY’
EXPORTING
DOCUMENT_NUMBER = DOCNUM
IMPORTING
IDOC_CONTROL = IDOC_CONTROL
NUMBER_OF_DATA_RECORDS = NUMBER_OF_DATA_RECORDS
NUMBER_OF_STATUS_RECORDS = NUMBER_OF_STATUS_RECORDS
TABLES
INT_EDIDS = INT_EDIDS
INT_EDIDD = INT_EDIDD
EXCEPTIONS
DOCUMENT_NOT_EXIST = 1
DOCUMENT_NUMBER_INVALID = 2
OTHERS = 3.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM. «» read_idoc
*&———————————————————————*
*& Form process_idoc
*&———————————————————————*
* text
*———————————————————————-*
FORM PROCESS_IDOC.
PERFORM READ_IDOC_STRUCTURE.
PERFORM DISPLAY_DATA_RECORDS.
ENDFORM. «» process_idoc
*&———————————————————————*
*& Form display_data_records
*&———————————————————————*
* text
*———————————————————————-*
FORM DISPLAY_DATA_RECORDS.
DATA: PE_SEG_HEADER LIKE EDI_SAPI01,
SEGNAME LIKE EDI_IAPI12-SEGMENTTYP,
PREV_SEGNAME LIKE EDI_IAPI12-SEGMENTTYP VALUE ‘ ‘,
PT_FIELDS2 LIKE EDI_IAPI12 OCCURS 0 WITH HEADER LINE,
PT_FVALUES2 LIKE EDI_IAPI14 OCCURS 0 WITH HEADER LINE,
BYTE_FIRST TYPE I,
BYTE_LAST TYPE I,
FIELD_VAL(50),
TMP_STR(15),
TMP_STR3(15),
SEG_REPEATS TYPE I VALUE 0,
TMP_STR2(15),
TAB_CR(2) TYPE C VALUE ’09’,
TOT_CTR TYPE I VALUE 0,
CTR TYPE I VALUE 0,
MSG(40) TYPE C.
DATA: IDOC_STRUCT_WA TYPE LEDID_IDOC_STRUCT.
SORT INT_EDIDD BY SEGNUM.
DESCRIBE TABLE INT_EDIDD LINES TOT_CTR.
LOOP AT INT_EDIDD.
MOVE INT_EDIDD-SEGNAM TO SEGNAME.
CLEAR MSG.
CONCATENATE ‘Reading segment ‘ SEGNAME
INTO MSG SEPARATED BY SPACE.
IF TOT_CTR <> 0.
CTR = ( 100 * SY-TABIX ) / TOT_CTR.
ENDIF.
CALL FUNCTION ‘SAPGUI_PROGRESS_INDICATOR’
EXPORTING
PERCENTAGE = CTR
TEXT = MSG.
ADD 1 TO SEG_REPEATS.
CLEAR TMP_STR2.
IF INT_EDIDD-SEGNAM <> PREV_SEGNAME.
SEG_REPEATS = 1.
CLEAR: PE_SEG_HEADER, PT_FIELDS2, PT_FVALUES2.
REFRESH: PT_FIELDS2, PT_FVALUES2.
CALL FUNCTION ‘SEGMENT_READ_COMPLETE’
EXPORTING
PI_SEGTYP = SEGNAME
PI_RELEASE = SAP_REL
PI_VERSION = PI_VER
IMPORTING
PE_HEADER = PE_SEG_HEADER
TABLES
PT_FIELDS = PT_FIELDS2
PT_FVALUES = PT_FVALUES2
EXCEPTIONS
SEGMENT_UNKNOWN = 1
SEGMENT_STRUCTURE_UNKNOWN = 2
OTHERS = 3.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE ‘I’ NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
PREV_SEGNAME = INT_EDIDD-SEGNAM.
ENDIF.
READ TABLE IDOC_STRUCT INTO IDOC_STRUCT_WA WITH KEY
SEGMENT_TYPE = INT_EDIDD-SEGNAM.
IF SY-SUBRC = 0.
IF IDOC_STRUCT_WA-SYNTAX_ATTRIB-MUSTFL = ‘X’.
TMP_STR = ‘Mandatory’. «»Mandatory
ELSE.
TMP_STR = ‘Optional’. «»Optional
ENDIF.
IF IDOC_STRUCT_WA-SEGMENT_TYPE_ATTRIB-QUALIFIER = ‘X’.
TMP_STR3 = ‘Qualified’.
ELSE.
TMP_STR3 = ‘Non-Qualified’.
ENDIF.
SHIFT IDOC_STRUCT_WA-SYNTAX_ATTRIB-OCCMAX
LEFT DELETING LEADING ‘0’.
MOVE SEG_REPEATS TO TMP_STR2.
CONDENSE: IDOC_STRUCT_WA-SYNTAX_ATTRIB-OCCMAX, TMP_STR2.
CONCATENATE TMP_STR2 ‘of’ IDOC_STRUCT_WA-SYNTAX_ATTRIB-OCCMAX
INTO TMP_STR2 SEPARATED BY SPACE.
WRITE 
IDOC_STRUCT_WA-SEGMENT_TYPE,
TMP_STR,
TMP_STR3,
TMP_STR2,
IDOC_STRUCT_WA-SYNTAX_ATTRIB-HLEVEL,
IDOC_STRUCT_WA-SEGMENT_TYPE_ATTRIB-PLAST,
IDOC_STRUCT_WA-SEGMENT_TYPE_ATTRIB-DESCRP.
ENDIF.
SORT PT_FIELDS2 BY FIELD_POS.
BYTE_FIRST = 0.
LOOP AT PT_FIELDS2.
CLEAR: FIELD_VAL.
BYTE_LAST = PT_FIELDS2-EXTLEN.
WRITE INT_EDIDD-SDATA+BYTE_FIRST(BYTE_LAST) TO
FIELD_VAL LEFT-JUSTIFIED.
SHIFT PT_FIELDS2-EXTLEN LEFT DELETING LEADING ‘0’.
SHIFT PT_FIELDS2-BYTE_FIRST LEFT DELETING LEADING ‘0’.
SHIFT PT_FIELDS2-BYTE_LAST LEFT DELETING LEADING ‘0’.
WRITE:/ ‘ ‘, PT_FIELDS2-FIELDNAME,
PT_FIELDS2-DATATYPE,
PT_FIELDS2-EXTLEN,
PT_FIELDS2-BYTE_FIRST ,
PT_FIELDS2-BYTE_LAST,
PT_FIELDS2-DESCRP,
FIELD_VAL.
READ TABLE PT_FVALUES2 WITH KEY FIELDNAME = PT_FIELDS2-FIELDNAME
FLDVALUE_L = FIELD_VAL.
ADD BYTE_LAST TO BYTE_FIRST.
IF SY-SUBRC = 0.
WRITE : PT_FVALUES2-DESCRP.
ELSE.
CLEAR PT_FVALUES2-DESCRP.
ENDIF.
ENDLOOP.
ENDLOOP.
ENDFORM. «» display_data_records
*&———————————————————————*
*& Form read_idoc_structure
*&———————————————————————*
* text
*———————————————————————-*
FORM READ_IDOC_STRUCTURE.
DATA: IDOCTYPE TYPE LEDID_IDOCTYPE.
IF NOT IDOC_CONTROL-CIMTYP IS INITIAL.
STRUCT_TYPE = ‘E’. «»Extended
IDOCTYPE = IDOC_CONTROL-CIMTYP.
ELSE.
STRUCT_TYPE = ‘B’. «»Basic
IDOCTYPE = IDOC_CONTROL-IDOCTP.
ENDIF.
CALL FUNCTION ‘IDOC_TYPE_COMPLETE_READ’
EXPORTING
RELEASE = SAP_REL
STRUCT_TYPE = STRUCT_TYPE
IDOCTYPE = IDOCTYPE
VERSION = PI_VER
* IMPORTING
* IDOC_TYPE = idoctype
TABLES
IDOC_STRUCT = IDOC_STRUCT
SEGMENTS = SEGMENTS
SEGMENT_STRUCT = SEGMENT_STRUCT
EXCEPTIONS
IDOCTYPE_UNKNOWN = 1
IDOCSTRUCT_UNKNOWN = 2
SEGMENT_DATA_MISSING = 3
ILLEGAL_STRUCT_TYPE = 4
OTHERS = 5.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM. «» read_idoc_structure
El siguiente código nos generará una calculadora en una ventana (POP-UP). La función ‘FITRV_CALCULATOR’ nos devolverá en la variable X_VALUE el resultado del cálculo que haya hecho el usuario para luego utilizarlo como queramos en nuestro programa.
*——————————————–
* Calculadora para usuarios
*——————————————–
REPORT ZCALCULADORA.
DATA: X_VALUE(15) TYPE C.
CALL FUNCTION ‘FITRV_CALCULATOR’
* EXPORTING
* INPUT_VALUE =
* CURRENCY =
* START_COLUMN = ’10’
* START_ROW = ’10’
IMPORTING
OUTPUT_VALUE = X_VALUE
EXCEPTIONS
INVALID_INPUT = 1
CALCULATION_CANCELED = 2
OTHERS = 3.
IF SY-SUBRC = 0. «En este ejemplo imprimimos por pantalla el resultado
WRITE:/ ‘Output Value ‘, X_VALUE.
ENDIF.
El reporte RSRSCAN1 nos va a servir para buscar un string (palabras, sentencias, mensajes, etc) en uno o más programas. Además nos listará la cantidad de ocurrencias.
Es común que para trabajar con nuestros clientes utilicemos una VPN (Red privada virtual) para conectarnos.
Muchas veces cuando no hay actividad, la VPN se cae. Para evitarlo podemos dejar corriendo el siguiente reporte en otro modo.
REPORT zvpn.
DATA: l_cont TYPE i,
l_texto(80),
l_hora(8),
l_tiempo(8),
l_horaini LIKE sy-uzeit,
l_difhora LIKE sy-uzeit.
l_horaini = sy-uzeit.
DO.
l_difhora = sy-uzeit – l_horaini.
WRITE l_difhora TO l_tiempo.
WRITE sy-uzeit TO l_hora.
WRITE sy-index TO l_texto(5).
concatenate l_texto(5) ‘Hora:’ l_hora ‘Tiempo transcurrido’ l_tiempo
into l_texto separated by space.
CALL FUNCTION ‘SAPGUI_PROGRESS_INDICATOR’
EXPORTING
text = l_texto
EXCEPTIONS
OTHERS = 1.
WAIT UP TO 30 SECONDS.
COMMIT WORK AND WAIT.
ENDDO.
WS_EXECUTE es una función que nos permite ejecutar cualquier programa instalado en nuestra computadora desde SAP. Cabe aclarar que aquel programa que queramos correr debe permitir parámetros MS-DOS.
En el siguiente ejemplo voy a mostrar como zippear (comprimir) dos archivos desde SAP. Como resultado obtendremos un archivo WinZip que contendrá dos archivos de texto.
Comprimiremos el archivo 1.txt y el archivo 2.txt, y el resultado será el archivo destino.zip.
Parámetros que acepta WinZip desde MS-DOS: http://www.memecode.com/docs/winzip.html
Rutas de los archivos:
Código:
CALL FUNCTION ‘WS_EXECUTE’
EXPORTING
* DOCUMENT = ‘ ‘
* CD = ‘ ‘
COMMANDLINE = ‘ -min -a c:destino.zip c:1.txt c:2.txt’
* INFORM = ‘ ‘
PROGRAM = ‘winzip32.exe’
* STAT = ‘ ‘
* WINID = ‘ ‘
* OSMAC_SCRIPT = ‘ ‘
* OSMAC_CREATOR = ‘ ‘
* WIN16_EXT = ‘ ‘
* EXEC_RC = ‘ ‘
* IMPORTING
* RBUFF =
EXCEPTIONS
FRONTEND_ERROR = 1
NO_BATCH = 2
PROG_NOT_FOUND = 3
ILLEGAL_OPTION = 4
GUI_REFUSE_EXECUTE = 5
OTHERS = 6 .
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
El siguiente reporte muestra un listado de las USER EXITS de una transacción determinada. Sólo basta ingresar el nombre de la transacción en la pantalla principal, y como resultado mostrará tanto el nombre como la descripción de la USER EXIT.
*&———————————————————————*
*& Report ZUSER_EXIT
*&
*&———————————————————————*
*&
*&
*&———————————————————————*
REPORT ZUSER_EXIT.
tables : tstc, tadir, modsapt, modact, trdir, tfdir, enlfdir.
tables : tstct.
data : jtab like tadir occurs 0 with header line.
data : field1(30).
data : v_devclass like tadir-devclass.
parameters : p_tcode like tstc-tcode obligatory.
select single * from tstc where tcode eq p_tcode.
if sy-subrc eq 0.
select single * from tadir where pgmid = ‘R3TR’
and object = ‘PROG’
and obj_name = tstc-pgmna.
move : tadir-devclass to v_devclass.
if sy-subrc ne 0.
select single * from trdir where name = tstc-pgmna.
if trdir-subc eq ‘F’.
select single * from tfdir where pname = tstc-pgmna.
select single * from enlfdir where funcname =
tfdir-funcname.
select single * from tadir where pgmid = ‘R3TR’
and object = ‘FUGR’
and obj_name eq enlfdir-area.
move : tadir-devclass to v_devclass.
endif.
endif.
select * from tadir into table jtab
where pgmid = ‘R3TR’
and object = ‘SMOD’
and devclass = v_devclass.
select single * from tstct where sprsl eq sy-langu and
tcode eq p_tcode.
format color col_positive intensified off.
write:/(19) ‘Transaction Code – ‘,
20(20) p_tcode,
45(50) tstct-ttext.
skip.
if not jtab[] is initial.
write:/(95) sy-uline.
format color col_heading intensified on.
write:/1 sy-vline,
2 ‘Exit Name’,
21 sy-vline ,
22 ‘Description’,
95 sy-vline.
write:/(95) sy-uline.
loop at jtab.
select single * from modsapt
where sprsl = sy-langu and
name = jtab-obj_name.
format color col_normal intensified off.
write:/1 sy-vline,
2 jtab-obj_name hotspot on,
21 sy-vline ,
22 modsapt-modtext,
95 sy-vline.
endloop.
write:/(95) sy-uline.
describe table jtab.
skip.
format color col_total intensified on.
write:/ ‘No of Exits:’ , sy-tfill.
else.
format color col_negative intensified on.
write:/(95) ‘No User Exit exists’.
endif.
else.
format color col_negative intensified on.
write:/(95) ‘Transaction Code Does Not Exist’.
endif.
at line-selection.
get cursor field field1.
check field1(4) eq ‘JTAB’.
set parameter id ‘MON’ field sy-lisel+1(10).
call transaction ‘SMOD’ and skip first screen.
Agregarme a tu del.icio.us
ABAP / SAP - Tips & Tricks 
Comentarios Recientes: