Enhancing transaction TRIP

Hi All,
I am trying to enhance TRIP transaction. This transaction is used to Create/Change travel expense report. Whenever, I create a travel expense report, it displays a Cost Distribution button on the screen. When I click on this button, cost assignment fields are displayed in a pop up table with some data. I need to refresh this data each time a new expense report is created. I have looked at all user exits/BADIs/enhancement points, but there is not any available. Is there any other way to do it?
Thanks,
Tom

Refer SAP
Note 1238628 - Entry & does not exist in T702E for trip segments
Note 808600 - Error 00 058 "Entry & & & does not exist in &4"
Note 928871 - Error 00058: Receipt Wizard with service provider
Regards,
Ravi

Similar Messages

ECC 6.0 Problems with transaction TRIP

Hi all, we are working with ECC 6.0 and in the travel management when using the transaction TRIP we saved a travel, we got the error message
"1 PTRV_WEB_ADVANCES_INT , PTRV_UTIL_VSCH"
Following the sap note 871580 as we had enhanced the old structure PRTV_UTIL_VSCH, we now enhance the structure PTRV_WEB_ADVANCES_INT.
But we got the same message.
Can anybody help us?.
Thanks,
Alfonso

The problem was a duplicate data element in one enhancement strucutre

Default values for service provider in transaction TRIP

Hello Gurus...
We are implementing travel management and I have a problem... here's the scenario
Tha gl account that should be used for a specific trip recepit depends on the following:
The expense type
The company specific type of trip
The Employee grouping for Travel Management
What we have done so far is :
create a service provider for every combination of trip_type/employee_grouping
create entries in V_T706B4 for every valid combination of expense_type/service_provider
configure transfer to accounting
With this configuration the gl account is determined correctly. However this way of solving the situation means that the user must enter the service provider for every recepit entered in the expense report. Given that in our particular scenario the service provider depends on data that has been already entered (type of trip) or that "the system should know" (employee grouping), users are not happy about having to enter the service provider.
¿Is there a way to assign default values to the service provider, and would it be possible to code/configure somewhere how to set those default values? I tried doing it through the trip schema, but apparently it is not possible to set a default service provider that way. I also tried setting the values in the user exit (b4 assigning trip number) but this doesn't work since the user exit is called after the standard validation. I also tried implementing subroutine USER_EVAL_RECEIPT, but this doesn't seem to work in transaction TRIP.
Thanks in advance for any help you may provide!
Juan Ramon

Hello AP.
Thogh your suggestion is helpful (I might use profile parameters somewhere else) thre is no parameter for the field I need. In any case It wouldn't have solved the issue completely, since the default value I need depends on both the employee(user) and the type of trip that's selected.

Error Initiating travel form in transaction TRIP

Hi
In transaction TRIP, after clicking change approved travel expense report, travel expense details are displayed. When I click on Results button, it is giving error message: Error while initiating travel form
Message no. 56568.
Can someone kindly help what is causing this error?
Thanks
Sriram

Hello Sriram,
No, only the 24th field in the Other Settlement you should change to 1, please see the F1 help for this field. Furthermore, please check the note 944221 if you want to use PDF form.
Regards,
Raynard

Hide/Unhide Credit card receipts in transaction TRIP

Hi,
I want to hide or unhide the credit card receipts in transaction TRIP that are uploaded into PCL1. I want to do it dynamically.
the way we wanted is when the employee select the receipts and click on hide those should be disappear and employee clicks on UNHIDE those should be appear.
Or can any one help me how can i update the credit card receipts into PCL1 cluster?
Regards
Krishna

Hi,
Issue solved. Credit card receipts were created manually in the TRIP.
So deleted the Credit card receipts from doc buffer.
Regards
SM

User-exit transaction TRIP

HI,
I am loocking for a BADI/UserExit that I can use in transaction TRIP to set automatically the field 'cash' (PTK08-KASSA) in the Advance.
Thanks for any help.
Eric.

Hi,
Check below User exits:
FITR0001 User exit: Delete/Reorganize trip statistics
FITR0002 User exit: Create/Change trip statistics
FITR0003 User exit: Save trip (PR01, PR04, PR05)
FITR0005 User Exit: Save Trip (PR01, PR04, PR05)
RPRCST01 Customer Exit for Travel Expenses
For your requirement FITR0003 will be helpful.
Thanks and Regards

Enhancements with the Easy Enhance - Transactions

Hi,
In CRM 2007, I have noticed a separate section of enhancing transactions alone.
IMG->Customer Relationship Management-> Transactions-> Basic Settings-> Enhancements with the Easy Enhancement Workbench
How is this different from adding fields to transaction using TCODE EEWB ? Has anyone used this feature ?
Regards

Hi,
One of the methods for displaying additional data on existing Business Transaction (One Order, Oppurtunity etc.,)is to enhance the component using EEWB and the system takes care of most of the things.
All we need to do is generate the required methods at the Component Work Bench and add the field on to the UI.
Using the path you mentioned,
existing standard components or custom created components be assigned to a component and can be displayed on the UI. For this settings need to be maintained in SPRO.
I believe this can be done only for Business Transactions like One Order etc.,
Just explore the path you mentioned.
Regards,
Masood Imrani S.

ABAP coding error...enhance transactional datasource

i need to enhance CRM extractor with additional field.
This is transactional data so i used Exit_rs_001
Here is the extractor result -
Guid...date...........objectid...item guid
1122......1.1.10....901..........8811
1122......2.1.10....901..........8812
1123......1.1.10....902..........8813
1123......2.1.10....902..........8814
now i need field Product id in it which is called from DB Table CRMD_SRV_REFOBJ
itemguid...referencekey...product
8811............01.................110011
8812............02.................110012
8813............03.................110013
now i want to extract data--
Guid...date...........objectid...item guid...product
1122......1.1.10....901..........8811.........110011
1122......2.1.10....901..........8812.........110012
1123......1.1.10....902..........8813.........110013
so i appended the extractor...with field zproduct
FOLLOWING Code doesnot work:::
DATA: L_S_INFOSTRU LIKE ziw_orderma_i.
CASE I_DATASOURCE.
FIELD-SYMBOLS: <PRO_01> TYPE ziw_orderma_i.
CASE i_datasource.
WHEN 'ziw_orderma_i.'. " Upper case
LOOP AT c_t_data ASSIGNING <PRO_01>.
SELECT PRODUCT_ID INTO <PRO_01>-zZPRODUCT
FROM CRMD_SRV_REFOBJ UP TO 1 ROWS
WHERE ITEM_GUID = <PRO_01>-CRMD_SRV_REFOBJ.
ENDSELECT. " not whole primary key
ENDLOOP.
ENDCASE.

Hi,
For this, you can do as below
REFER EXTRACTOR GUID --1122
Find GUID References for guid = 1122 in table CRMD_ORDERADMI (item level table)
for the guid reference in CRMD_ORDERADMI, find the Product >0 in table CRMD_SRV_REFOBJ
select that Product and write into extractor field zzproduct#
WHEN 'ziw_orderma_i'.
LOOP AT c_t_data INTO l_s_ziw_orderma_i.
l_tabix = sy-tabix.
data: temp_guid like CRMD_ORDERADM-GUID. to create a temporary variable
SELECT single GUID FROM CRMD_ORDERADMI INTO temp_guid
WHERE GUIDREF = l_s_ziw_orderma_i-GUID.
The above statement would give you value for GUID from this table i.e. z1122
SELECT PRODUCT_IT FROM CRMD_SRV_REFOBJ INTO l_s_ziw_orderma_i-ZZPRODUCT
WHERE GUID = temp_guid.
MODIFY c_t_data FROM l_s_ziw_orderma_i INDEX l_tabix.
ENDSELECT.
This would fetch your value
clear temp_guid. to clear this temporary variable
ENDLOOP.
WHEN OTHERS.
EXIT.
ENDCASE.
PS: It appears that you have corrected already so not requried any more
Edited by: Rahul K Rai on Oct 17, 2010 9:27 PM

Change in Trip schema button in transaction TRIP

Hello all,
I need to enable the button Change in Trip schema in transaction code TRIP.
We are implementing Travel Management for Thailand and this button is actually grayed.
Is there a way to get this button available?
Thanks in advance for your help,
Best regards,
Soumaya

Hi Soumaya,
I hope I understood the question correctly - If the change button is grayed out then it is possibly because of the authorisations set up. Please see the link below
Authorization Checks in Travel Expenses - Travel Expenses - SAP Library
Thanks
Ankur

Transaction : TRIP Error (IT0017)

Hello,
I have Maintain IT0017 for employee, but while running the Transaction code: TRIP, I am getting error "Infotype 0017 could not be read"
Plz suggest solution for this error ....
Sushilkumar.
Edited by: sushil7666kumar on Mar 2, 2012 2:12 PM

Thnks a ton.....
I have define number range for travel and also system is on EHP 5 and also below pacthes are updated as per note 1545686.
EA-HRCZA     605     0021     SAPK-60521INEAHRCZA     Sub component EA-HRCZA of EA-HR
EA-HRGXX     605     0021     SAPK-60521INEAHRGXX     Sub component EA-HRGXX of EA-HR
EA-HRRXX     605     0021     SAPK-60521INEAHRRXX     Sub component EA-HRRXX of EA-HR
But when i am approving travel request i am getting below error :
"Error while writing to the database (PTRV_HEAD/PTRV_PERIO/Cluster TE)
Message no. FITP039"
Please advice for suitable solution.
Sushilkumar.
Edited by: sushil7666kumar on Mar 3, 2012 5:43 AM

Transaction TRIP using IAC iview ot

I am trying to put an iview in the NW2004s portal for transaction code TRIP. I have activated the internal ITS and launched the webgui. Question is, how do i create an iview that will go directly to this transaction without hitting the start menu and with out prompting for logon?
Any ideas?
Thanks
Jeremy

Hi jeremy,
You could try using a transaction iview with user mapping to your R/3
id .This would take you to ur needed transaction without prompting u for login.
To Create Transactional iView You Should have a System (Connection) to the back end (R/3 System).
Pls revert if this is not clear.
Hope this helps
Rgrds
Vineeth
Message was edited by:
Vineeth

URG: Enhancing transaction WTYRCL

Hi folks -
I have to enhance SAP TCODE WTYRCL, it is a part of SAP VMS system (IS-AUTO)....
In the tab strip "Objects" the tcode shows entries from table WTY_RCLOBJ using ALV controls...
I have appended the reqd fields to the database structure but I dont see it in the tcode...
How do I get TCODE to display these fields that I have added??
Need help ASAP..
Regards
Sudhakar

Hello Thomas,
I have the similar requirement of adding new fields in transaction QM10. I looked at the enhancement mentioned in this thread but that is to modify how the ALV report is displayed. Did you find another enhacement to add new fields to QM10. If so, can you please share that.
Thanks,
Rutul Thakkar

Call transaction TRIP

Hello
My intention is to make a call transaction or a SUBMIT to t.code TRIP, does anyone know how?

Thanks for the reply, but ...
My intention is to access the trip t.code an employee and a particular journey
Can you come do?

User EXIT/BADI for new creating commitment in transaction TRIP

Hi,
We have a requirement where we do not want to create commitment at the time of creation of expense statement by employee (we are creating expense statement using tcode TRIP), it should post to actual budget at the time of posting of expenses to FI through tcode PRRW.
Is there any BADI/Userexit by which we can achieve this.
Thanks & Regards,
Jyoti

no reply recd. so closing this question

IS-U enhancing transaction FPBW (open items extraction using table DFKKOPBW

Has anybody experiances with IS-U Accounts Receivable & payable - 'Open Items' extraction using transaction FPBW
(which fill the table DFKKOPBW).
1. I need to fill an custom included structure in this table (DFKKOPBW) and I am searching for the correct time (for performance reasons) & place in the (SAP) source (in the program flow) to do this.
2. Anybody any clues on Custum/user exits in this part?
See also function group FKKOPBW.
Jos Reithofer

Try this code that can search a user exit in a transaction. I got it from previous post in this forum.
*& Report Y_SEARCH_USEREXIT *
REPORT y_search_userexit LINE-SIZE 140 NO STANDARD PAGE HEADING.
CONSTANTS
*CONSTANTS: c_user_exit(22) TYPE c VALUE 'CALL CUSTOMER-FUNCTION',
constants: c_badi(30) type c value 'CALL METHOD CL_EXITHANDLER=>',
 c_funcao_1(13) TYPE c VALUE 'CALLFUNCTION''',
 c_funcao_2(13) TYPE c VALUE 'CALL FUNCTION',
 c_include(07) TYPE c VALUE 'INCLUDE',
 c_submit(06) TYPE c VALUE 'SUBMIT',
 c_comentario TYPE c VALUE '*',
 c_ponto TYPE c VALUE '.',
 c_aspa TYPE c VALUE '''',
 c_x TYPE c VALUE 'X'.
TABELAS INTERNAS
DATA: BEGIN OF ti_programa OCCURS 0,
codigo_fonte(200) type c, " LIKE rssource-line,
END OF ti_programa.
DATA: BEGIN OF ti_includes OCCURS 0,
nome LIKE sy-repid,
nivel(2) TYPE n,
END OF ti_includes.
DATA: BEGIN OF ti_user_exit OCCURS 0,
programa LIKE sy-repid,
linha(10) TYPE n,
codigo_fonte LIKE rssource-line,
nivel(2) TYPE n,
END OF ti_user_exit.
VARIÁVEIS GLOBAIS
DATA: vg_caracter TYPE c,
vg_palavra(50) TYPE c,
vg_inicial LIKE sy-index,
vg_conta_aspa TYPE n,
vg_pname LIKE tfdir-pname,
vg_texto(50) TYPE c,
vg_contador LIKE sy-tfill,
vg_nivel(2) TYPE n,
vg_ini_contagem TYPE c, " INDICA QUE DEVE SER INICIADA A CONTAGEM
vg_conta_espaco TYPE n. " TOTAL DE ESPAÇOS ( MÁXIMO 2 )
PARAMETERS
*- DADOS OBRIGATÓRIOS.
SELECTION-SCREEN BEGIN OF BLOCK bl01 WITH FRAME TITLE tl_001 .
selection-screen begin of line.
selection-screen comment 1(25) tl_003.
PARAMETERS: p_prog LIKE sy-repid.
selection-screen end of line.
selection-screen begin of line.
selection-screen comment 1(25) tl_004.
parameters: p_tcode LIKE sy-tcode.
selection-screen end of line.
selection-screen begin of line.
selection-screen comment 1(25) tl_009.
parameters: p_exit(30) TYPE c default 'CALL CUSTOMER-FUNCTION'.
selection-screen end of line.
SELECTION-SCREEN END OF BLOCK bl01.
*- DADOS OPCIONAIS.
SELECTION-SCREEN BEGIN OF BLOCK bl02 WITH FRAME TITLE tl_002.
selection-screen begin of line.
PARAMETERS: p_incl TYPE c AS CHECKBOX.
selection-screen comment 4(25) tl_005.
selection-screen end of line.
selection-screen begin of line.
parameters: p_func TYPE c AS CHECKBOX.
selection-screen comment 4(25) tl_006.
selection-screen end of line.
selection-screen begin of line.
parameters: p_submit TYPE c AS CHECKBOX.
selection-screen comment 4(25) tl_007.
selection-screen end of line.
selection-screen begin of line.
selection-screen comment 1(25) tl_008.
parameters: p_nivel(2) TYPE n.
selection-screen end of line.
SELECTION-SCREEN END OF BLOCK bl02.
initialization.
tl_001 = 'Program Selection'.
tl_002 = 'Search Depth'.
tl_003 = 'Program Name'.
tl_004 = 'Transaction Code'.
tl_005 = 'Process INCLUDEs'.
tl_006 = 'Process FUNCTION MODULEs'.
tl_007 = 'Process SUBMITs'.
tl_008 = 'Depth level'.
tl_009 = 'Search string'.
INÍCIO
START-OF-SELECTION.
*- CONSISTÊNCIAS DOS PARÂMETROS.
PERFORM consisti_parametros.
*- INICIALIZA TABELA.
PERFORM inicializa_tabela.
*- VERIFICA SE NO PROGRAMA EXISTE ALGUM INCLUDE,FUNÇÃO OU SUBMIT.
PERFORM verifica_include_funcao_submit.
*- ANALISA OS INCLUDES E PROCURA POR USER EXIT.
PERFORM procura_user_exit.
*- EXIBE TODAS USER EXIT ENCONTRADAS.
PERFORM exibe_user_exit.
FIM
END-OF-SELECTION.
*& Form PROCURA_USER_EXIT
text
--> p1 text
<-- p2 text
FORM procura_user_exit.
*- VERIFICA SE NOS INCLUDES SELECIONADOS EXISTEM USER EXITS.
LOOP AT ti_includes.
*- ESVAZIA TABELA INTERNA.
 REFRESH ti_programa.
*- REALIZA LEITURA DO INCLUDE ARMAZENANDO-O EM TABELA INTERNA
 READ REPORT ti_includes-nome INTO ti_programa.
 LOOP AT ti_programa.
*- VERIFICA SE NA LINHA DO PROGRAMA EXISTE ALGUM INCLUDE.
 SEARCH ti_programa-codigo_fonte FOR p_exit.
*- SE ENCONTROU INCLUDE E SE A LINHA NÃO ESTÁ COMENTADA...
 IF sy-subrc EQ 0
 AND ti_programa-codigo_fonte+0(1) NE c_comentario.
 CLEAR ti_user_exit.
*- REMOVE ESPAÇOS NO INÍCIO DA STRING.
 SHIFT ti_programa-codigo_fonte LEFT DELETING LEADING space.
 MOVE: ti_includes-nome TO ti_user_exit-programa,
 sy-tabix TO ti_user_exit-linha,
 ti_programa-codigo_fonte TO ti_user_exit-codigo_fonte,
 ti_includes-nivel TO ti_user_exit-nivel.
 APPEND ti_user_exit.
 ENDIF.
 ENDLOOP.
ENDLOOP.
ENDFORM. " PROCURA_USER_EXIT
*& Form EXIBE_USER_EXIT
text
--> p1 text
<-- p2 text
FORM exibe_user_exit.
PERFORM cabecalho.
PERFORM user_exit_nao_encontrada.
PERFORM lista_user_exit_encontrada.
PERFORM rodape.
ENDFORM. " EXIBE_USER_EXIT
*& Form PROCURA_INCLUDE
text
--> p1 text
<-- p2 text
FORM procura_include.
CLEAR vg_palavra.
*- VERIFICA SE NA LINHA DO PROGRAMA EXISTE ALGUM INCLUDE.
SEARCH ti_programa-codigo_fonte FOR c_include.
*- SE ENCONTROU INCLUDE E SE A LINHA NÃO ESTÁ COMENTADA...
IF sy-subrc EQ 0
AND ti_programa-codigo_fonte+0(1) NE c_comentario.
*- VERIFICA TODOS OS 72
 DO 72 TIMES.
 vg_inicial = sy-index - 1.
 MOVE ti_programa-codigo_fonte+vg_inicial(1) TO vg_caracter.
 IF NOT vg_caracter IS INITIAL.
*- VERIFICA SE NÃO É FIM DO COMANDO.
 IF vg_caracter EQ c_ponto.
 EXIT.
 ENDIF.
*- MONTA PALAVRA.
 CONCATENATE vg_palavra vg_caracter INTO vg_palavra.
*- CONVERTE PARA MAÍUSCULA PARA FUTURA COMPARAÇÃO.
 TRANSLATE vg_palavra TO UPPER CASE.
*- SE ENCONTROU ALGUM INCLUDE
 IF vg_palavra EQ c_include.
 CLEAR vg_palavra.
 ENDIF.
 ENDIF.
 ENDDO.
*- SALVA NOME DO INCLUDE P
 READ TABLE ti_includes WITH KEY nome = vg_palavra.
 IF NOT sy-subrc IS INITIAL.
 IF vg_nivel LE p_nivel.
 MOVE: vg_palavra TO ti_includes-nome,
 vg_nivel TO ti_includes-nivel.
 APPEND ti_includes.
 ENDIF.
 ENDIF.
ENDIF.
ENDFORM. " PROCURA_INCLUDE
*& Form PROCURA_FUNCAO
text
--> p1 text
<-- p2 text
FORM procura_funcao.
CLEAR: vg_conta_aspa,
vg_palavra.
*- VERIFICA SE NA LINHA DO PROGRAMA EXISTE ALGUM INCLUDE.
SEARCH ti_programa-codigo_fonte FOR c_funcao_2.
*- SE ENCONTROU INCLUDE E SE A LINHA NÃO ESTÁ COMENTADA...
IF sy-subrc EQ 0
AND ti_programa-codigo_fonte+0(1) NE c_comentario.
*- VERIFICA TODOS OS 72
 DO 72 TIMES.
 vg_inicial = sy-index - 1.
 MOVE ti_programa-codigo_fonte+vg_inicial(1)
 TO vg_caracter.
 IF NOT vg_caracter IS INITIAL.
*- VERIFICA SE NÃO É FIM DO COMANDO.
 IF vg_caracter EQ c_aspa.
 ADD 1 TO vg_conta_aspa.
 IF vg_conta_aspa EQ 2.
 EXIT.
 ENDIF.
 ENDIF.
*- MONTA PALAVRA.
 CONCATENATE vg_palavra vg_caracter INTO vg_palavra.
*- CONVERTE PARA MAÍUSCULA PARA FUTURA COMPARAÇÃO.
 TRANSLATE vg_palavra TO UPPER CASE.
*- SE ENCONTROU ALGUM INCLUDE
 IF vg_palavra EQ c_funcao_1.
 CLEAR vg_palavra.
 ENDIF.
 ENDIF.
 ENDDO.
*- PESQUISA NOME DA FUNÇÃO PARA FUTURA PESQUISA POR USER EXIT.
 CLEAR vg_pname.
 SELECT SINGLE pname
 INTO vg_pname
 FROM tfdir
 WHERE funcname EQ vg_palavra.
 IF sy-subrc EQ 0.
 READ TABLE ti_includes WITH KEY nome = vg_pname.
 IF NOT sy-subrc IS INITIAL.
 IF vg_nivel LE p_nivel.
 MOVE: vg_pname TO ti_includes-nome,
 vg_nivel TO ti_includes-nivel.
 APPEND ti_includes.
 ENDIF.
 ENDIF.
 ENDIF.
ENDIF.
ENDFORM. " PROCURA_FUNCAO
*& Form VERIFICA_INCLUDE_FUNCAO_SUBMIT
text
--> p1 text
<-- p2 text
FORM verifica_include_funcao_submit.
LOOP AT ti_includes.
 ADD 1 TO vg_contador.
 DESCRIBE TABLE ti_includes.
 PERFORM evitar_time_out USING sy-tfill.
 MOVE ti_includes-nivel TO vg_nivel.
 ADD 1 TO vg_nivel.
*- ESVAZIA TABELA INTERNA.
 REFRESH ti_programa.
 READ REPORT ti_includes-nome INTO ti_programa.
 LOOP AT ti_programa.
*- PROCURA POR INCLUDES.
 IF p_incl EQ c_x.
 PERFORM procura_include.
 ENDIF.
*- PROCURA POR FUNÇÃO.
 IF p_func EQ c_x.
 PERFORM procura_funcao.
 ENDIF.
*- PROCURA POR SUBMIT.
 IF p_submit EQ c_x.
 PERFORM procura_submit.
 ENDIF.
 ENDLOOP.
ENDLOOP.
ENDFORM. " VERIFICA_INCLUDE_FUNCAO_SUBMIT
*& Form EVITAR_TIME_OUT
text
-->P_SY_TFILL text
-->P_SY_SUBRC text
FORM evitar_time_out USING p_sy_tfill.
DATA: vl_total(10) TYPE n,
vl_atual(10) TYPE n.
MOVE: p_sy_tfill TO vl_total,
vg_contador TO vl_atual.
CONCATENATE 'Total:' vl_total '-' 'Atual:' vl_atual
INTO vg_texto
SEPARATED BY space.
CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
 EXPORTING
 text = vg_texto.
ENDFORM. " EVITAR_TIME_OUT
*& Form PROCURA_SUBMIT
text
--> p1 text
<-- p2 text
FORM procura_submit.
CLEAR: vg_conta_espaco, vg_palavra, vg_ini_contagem.
*- VERIFICA SE NA LINHA DO PROGRAMA EXISTE ALGUM INCLUDE.
SEARCH ti_programa-codigo_fonte FOR c_submit.
*- SE ENCONTROU INCLUDE E SE A LINHA NÃO ESTÁ COMENTADA...
IF sy-subrc EQ 0
AND ti_programa-codigo_fonte+0(1) NE c_comentario.
*- VERIFICA TODOS OS 7
 DO 72 TIMES.
 vg_inicial = sy-index - 1.
 MOVE ti_programa-codigo_fonte+vg_inicial(1) TO vg_caracter.
 IF vg_ini_contagem EQ c_x AND vg_caracter IS INITIAL.
 ADD 1 TO vg_conta_espaco.
 ENDIF.
 IF NOT vg_caracter IS INITIAL.
 MOVE c_x TO vg_ini_contagem.
 IF vg_caracter EQ c_ponto.
 EXIT.
 ENDIF.
*- MONTA PALAVRA.
 IF vg_conta_espaco LT 2.
 CONCATENATE vg_palavra vg_caracter INTO vg_palavra.
*- CONVERTE PARA MAÍUSCULA PARA FUTURA COMPARAÇÃO.
 TRANSLATE vg_palavra TO UPPER CASE.
*- SE ENCONTROU ALGUM INCLUDE
 IF vg_palavra EQ c_submit.
 CLEAR vg_palavra.
 ENDIF.
 ELSE.
 EXIT.
 ENDIF.
 ENDIF.
 ENDDO.
*- PESQUISA NOME DA FUNÇÃO
 READ TABLE ti_includes WITH KEY nome = vg_palavra.
 IF NOT sy-subrc IS INITIAL.
 IF vg_nivel LE p_nivel.
 MOVE: vg_palavra TO ti_includes-nome,
 vg_nivel TO ti_includes-nivel.
 APPEND ti_includes.
 ENDIF.
 ENDIF.
ENDIF.
ENDFORM. " PROCURA_SUBMIT
*& Form CONSISTI_PARAMETROS
text
--> p1 text
<-- p2 text
FORM consisti_parametros.
IF p_nivel IS INITIAL.
 MOVE 1 TO p_nivel.
ENDIF.
IF p_prog IS INITIAL AND p_tcode IS INITIAL.
*- NOME DO PROGRAMA E NOM
*- DEVE SER INFORMADO.
 MESSAGE ID 'ZF' TYPE 'I' NUMBER '000' WITH text-003.
 STOP.
ENDIF.
IF NOT p_prog IS INITIAL AND NOT p_tcode IS INITIAL.
*- SOLICITA AO U
 MESSAGE ID 'ZF' TYPE 'I' NUMBER '000' WITH text-004.
 STOP.
ENDIF.
ENDFORM. " CONSISTI_PARAMETROS
*& Form INICIALIZA_TABELA
text
--> p1 text
<-- p2 text
FORM inicializa_tabela.
DATA vl_pgmna LIKE tstc-pgmna.
REFRESH ti_includes.
IF NOT p_prog IS INITIAL.
 MOVE: p_prog TO ti_includes-nome,
 '0' TO ti_includes-nivel.
 APPEND ti_includes.
ELSEIF NOT p_tcode IS INITIAL.
 SELECT SINGLE pgmna
 FROM tstc
 INTO vl_pgmna
 WHERE tcode EQ p_tcode.
 IF sy-subrc EQ 0.
 MOVE: vl_pgmna TO ti_includes-nome,
 '0' TO ti_includes-nivel.
 APPEND ti_includes.
 ENDIF.
ENDIF.
ENDFORM. " INICIALIZA_TABELA
*& Form CABECALHO
text
--> p1 text
<-- p2 text
FORM cabecalho.
DATA vl_complemento(50) TYPE c.
IF p_tcode IS INITIAL.
 CONCATENATE '(Program)' p_prog
 into vl_complemento
 SEPARATED BY space.
ELSE.
 CONCATENATE '(Transaction)' p_tcode
 INTO vl_complemento
 SEPARATED BY space.
ENDIF.
FORMAT COLOR COL_KEY.
WRITE: /001 sy-uline,
/001 sy-vline,
040 'User Exits in a Program',
vl_complemento,
140 sy-vline,
/001 sy-uline.
WRITE: /001 sy-vline,
003 'Program Name',
044 sy-vline,
046 'Level',
052 sy-vline,
054 'Lineno',
065 sy-vline,
067 'UserExit',
140 sy-vline,
/001 sy-uline.
ENDFORM. " CABECALHO
*& Form USER_EXIT_NAO_ENCONTRADA
text
--> p1 text
<-- p2 text
FORM user_exit_nao_encontrada.
DESCRIBE TABLE ti_user_exit.
CHECK sy-tfill IS INITIAL.
FORMAT COLOR COL_NORMAL INTENSIFIED ON.
WRITE: /003 'Userexit does not exist',
139 ' '.
FORMAT RESET.
ENDFORM. " USER_EXIT_NAO_ENCONTRADA
*& Form LISTA_USER_EXIT_ENCONTRADA
text
--> p1 text
<-- p2 text
FORM lista_user_exit_encontrada.
DATA vl_cor TYPE c.
LOOP AT ti_user_exit.
 IF vl_cor EQ c_x.
 CLEAR vl_cor.
 ELSE.
 MOVE c_x TO vl_cor.
 ENDIF.
*- AJUSTA COR NA TELA.
 IF vl_cor EQ c_x.
 FORMAT COLOR COL_NORMAL INTENSIFIED ON.
 ELSE.
 FORMAT COLOR COL_NORMAL INTENSIFIED OFF.
 ENDIF.
*- INÍCIO DA IMPRESSÃO.
 WRITE: /003 ti_user_exit-programa,
 046 ti_user_exit-nivel,
 054 ti_user_exit-linha,
 067 ti_user_exit-codigo_fonte,
 139 ' '.
ENDLOOP.
ENDFORM. " LISTA_USER_EXIT_ENCONTRADA
*& Form RODAPE
text
--> p1 text
<-- p2 text
FORM rodape.
DESCRIBE TABLE ti_includes.
FORMAT COLOR COL_TOTAL.
WRITE: /001 sy-uline,
/001 sy-vline,
003 'Total include searched:', sy-tfill,
' - with level:', p_nivel,
140 sy-vline,
/001 sy-uline.
ENDFORM. " RODAPE

Enhancing transaction TRIP

Similar Messages

Maybe you are looking for