PW.TP - Nota 004585
Módulo: GERAL
Funcionalidade: Cadastro
Data/Hora da Publicação: 31/08/2007 00:00:00
Data/Hora Última Alteração: 16/02/2011 10:03:55
Descrição da Nota: AJUSTE NA EXIT TRANS_AUTORIZACAO
Sintoma
Erro na verificação de autorização na subrotina TRANS_AUTORIZACAO.
Solução
Atualização na condição Authority Check.
Versões Tratadas
Não Usar - 2.00.0000
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 04585 Data: 31/08/2007 Hora: 14:21:58
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 04585
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.TP : 2.0
Pacote : 00026
Agrupamento : 00010
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
02131 - 00001 - 2.0 - 00023 - LISTA TÉCNICA DE REVENDA MOV. 309
02410 - 00002 - 2.0 - 00023 - QUANTIDADE DE AJUSTE ZERADA NO RELATÓRIO DIPJ
02544 - 00003 - 2.0 - 00023 - RELATÓRIO DIPJ
02721 - 00004 - 2.0 - 00023 - RELATÓRIO DIPJ
02723 - 00005 - 2.0 - 00023 - RELATÓRIO DIPJ
02744 - 00006 - 2.0 - 00024 - BUSCAR CUSTOS DOS MATERIAIS
02843 - 00007 - 2.0 - 00024 - RELATÓRIO DIPJ
02884 - 00008 - 2.0 - 00024 - PREÇO PARÂMETRO DO CAP ACUMULADO 2/4
02954 - 00009 - 2.0 - 00024 - RELATÓRIO DIPJ
02956 - 00010 - 2.0 - 00024 - RECUPERAR CUSTOS
02987 - 00011 - 2.0 - 00024 - RELATÓRIO DIPJ
03223 - 00012 - 2.0 - 00024 - RELATÓRIO DIPJ
03260 - 00013 - 2.0 - 00024 - PREÇO PARÂMETRO DO CAP ACUMULADO
04398 - 00014 - 2.0 - 00026 - EXITS PARA TRATAMENTO DE AUTORIZAÇÃO
04407 - 00015 - 2.0 - 00026 - EXIT PARA TRATAMENTO DE MIX DE MÉTODOS
04414 - 00016 - 2.0 - 00026 - DELEÇÃO DE TABELAS-INCLUSÃO DE TABELAS E AJUSTE DE DESCRIÇÕES
04458 - 00017 - 2.0 - 00026 - CARGA DE ESTOQUE
04533 - 00018 - 2.0 - 00026 - ATUALIZ. SYSID GERAÇÃO POR BLOCOS
04548 - 00019 - 2.0 - 00026 - REVISÃO CODE INSPECTOR
----------------------------------------------------------------------------------------------------
AJUSTE NA EXIT TRANS_AUTORIZACAO
----------------------------------------------------------------------------------------------------
Palavras Chave:
AJUSTE NA EXIT TRANS_AUTORIZACAO
----------------------------------------------------------------------------------------------------
Objetos da nota:
RELE F6DK951250 20070831 105125 PWSTP
REPS /PWS/ZYTPC001
REPS /PWS/ZYTPC003
REPS /PWS/ZYTPC004
REPS /PWS/ZYTPC006
REPS /PWS/ZYTPC007
REPS /PWS/ZYTPC008
REPS /PWS/ZYTPC009
REPS /PWS/ZYTPC201
REPS /PWS/ZYTPC203
REPS /PWS/ZYTPC204
REPS /PWS/ZYTPC205
REPS /PWS/ZYTPR002
REPS /PWS/ZYTPR003
REPS /PWS/ZYTPR004
REPS /PWS/ZYTPR006
REPS /PWS/ZYTPR009_ROT
REPS /PWS/ZYTPR010_ROT
REPS /PWS/ZYTPR011_ROT
REPS /PWS/ZYTPR012_ROT
REPS /PWS/ZYTPR013_ROT
REPS /PWS/ZYTPR014
REPS /PWS/ZYTPR016
REPS /PWS/ZYTPR018
REPS /PWS/ZYTPR019
REPS /PWS/ZYTPR021
REPS /PWS/ZYTPR023
REPS /PWS/ZYTPR024
REPS /PWS/ZYTPR025
REPS /PWS/ZYTPR027
REPS /PWS/ZYTPR028
REPS /PWS/ZYTPR029
REPS /PWS/ZYTPR030
REPS /PWS/ZYTPR031
REPS /PWS/ZYTPR032
REPS /PWS/ZYTPR034
REPS /PWS/ZYTPR035
REPS /PWS/ZYTPR036
REPS /PWS/ZYTPR039
REPS /PWS/ZYTPR040
REPS /PWS/ZYTPR041
REPS /PWS/ZYTPR042
REPS /PWS/ZYTPR043
REPS /PWS/ZYTPR044
REPS /PWS/ZYTPR045
REPS /PWS/ZYTPR046
REPS /PWS/ZYTPR048
REPS /PWS/ZYTPR702
REPS /PWS/ZYTPR703
REPS /PWS/ZYTPR802
REPS /PWS/ZYTPR908
REPS /PWS/ZYTPR909
REPS /PWS/ZYTPR910
REPS /PWS/ZYTPR911
REPS /PWS/ZYTPR912
REPS /PWS/ZYTPR913
REPT /PWS/ZYTPC001
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYTPC001
...
w_ins_c002 TYPE i,
w_upd_c002 TYPE i,
w_ins_clog TYPE i,
w_ins_c007 TYPE i,
w_upd_c007 TYPE i,
w_ins_t002 TYPE i,
w_upd_t002 TYPE i.
DATA: w_from_lin TYPE i,
w_found_lin TYPE i.
DATA: w_mandt LIKE sy-mandt.
* >> Início da inclusão:
DATA: t_021 TYPE TABLE OF /pws/zytpt021,
v_tcode TYPE sy-tcode,
v_repid TYPE sy-repid,
v_subrc TYPE sy-subrc,
v_zexit TYPE /pws/zytpt025-zexit.
* << Fim da inclusão
DATA: t_zytpt908 LIKE /pws/zytpt908 OCCURS 10000 WITH HEADER LINE.
FIELD-SYMBOLS: <campo> TYPE ANY.
FIELD-SYMBOLS: <base> TYPE ANY.
FIELD-SYMBOLS: <preco_prmt> TYPE ANY.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-tb1.
SELECT-OPTIONS: p_bukrs FOR t001-bukrs MEMORY ID buk OBLIGATORY
NO INTERVALS NO-EXTENSION .
SELECT-OPTIONS: s_branch FOR j_1bnfdoc-branch MEMORY ID wrk.
SELECTION-SCREEN END OF BLOCK b1.
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-tb2.
...
...
SELECTION-SCREEN END OF BLOCK b3.
SELECTION-SCREEN BEGIN OF BLOCK b4 WITH FRAME TITLE text-tb4.
PARAMETERS: p_carga AS CHECKBOX.
PARAMETERS: p_file LIKE rlgrap-filename.
PARAMETERS: p_local RADIOBUTTON GROUP file.
PARAMETERS: p_unix RADIOBUTTON GROUP file.
SELECTION-SCREEN END OF BLOCK b4.
PARAMETERS: p_log(1) TYPE c DEFAULT ' ' NO-DISPLAY.
INITIALIZATION.
PERFORM verificar_programa_especial.
* >> Início da inclusão:
PERFORM trans_autorizacao.
* << Fim da inclusão
AT SELECTION-SCREEN OUTPUT.
IF p_invoi = 'X'.
CLEAR p_carga.
LOOP AT SCREEN.
IF screen-name EQ 'P_CARGA' OR screen-name EQ 'P_FASE1' OR
screen-name EQ 'P_FASE2'.
p_carga = ' '.
screen-invisible = '1'.
MODIFY SCREEN.
ENDIF.
...
...
p_fase2 = ' '.
ELSE.
IF p_fase1 = ' ' AND p_fase2 = ' '.
p_fase1 = 'X'.
p_fase2 = ' '.
ENDIF.
ENDIF.
IF p_fase1 IS INITIAL AND p_fase2 IS INITIAL AND p_invoi IS INITIAL.
MESSAGE e074(/pws/zytpm).
ENDIF.
* >> Início da inclusão:
PERFORM org_autorizacao.
* << Fim da inclusão
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
CALL FUNCTION 'WS_FILENAME_GET'
EXPORTING
def_filename = ''
def_path = 'C:\'
mask = ',all files, *.*.'
mode = 'O'
title = text-001
IMPORTING
filename = p_file
...
...
FROM /pws/zytpt048
WHERE programa_std EQ 'ZYTPC001'
AND programa_esp NE ''
AND ativo EQ 'X'.
IF sy-subrc EQ 0.
CALL TRANSACTION w_zytpt048-programa_esp.
LEAVE PROGRAM.
ENDIF.
ENDIF.
ENDFORM.
* >> Início da inclusão:
FORM trans_autorizacao.
DATA v_tamanho TYPE i.
MOVE sy-tcode TO v_tcode.
MOVE sy-repid TO v_repid.
v_tamanho = strlen( v_repid ).
SUBTRACT 4 FROM v_tamanho.
CONCATENATE v_repid+v_tamanho(4) 'EXIT01' INTO v_zexit.
CLEAR v_subrc.
SELECT SINGLE * INTO t_zytpt025
FROM /pws/zytpt025
WHERE cd_holding EQ space
AND bukrs_g EQ space
AND sysid EQ sy-sysid
AND zexit EQ v_zexit
AND ativo EQ 'X'.
IF sy-subrc EQ 0 AND
NOT t_zytpt025-programa IS INITIAL AND
NOT t_zytpt025-form IS INITIAL.
PERFORM (t_zytpt025-form) IN PROGRAM (t_zytpt025-programa)
USING v_tcode
v_repid
v_zexit
CHANGING v_subrc.
ENDIF.
IF v_subrc NE 0.
MESSAGE e079(/pws/zytpm)
WITH text-tco
v_tcode
space
space.
ENDIF.
ENDFORM.
FORM org_autorizacao.
DATA v_tamanho TYPE i.
MOVE sy-tcode TO v_tcode.
MOVE sy-repid TO v_repid.
v_tamanho = strlen( v_repid ).
SUBTRACT 4 FROM v_tamanho.
CONCATENATE v_repid+v_tamanho(4) 'EXIT02' INTO v_zexit.
CLEAR v_subrc.
SELECT SINGLE * INTO t_zytpt025
FROM /pws/zytpt025
WHERE cd_holding EQ space
AND bukrs_g EQ space
AND sysid EQ sy-sysid
AND zexit EQ v_zexit
AND ativo EQ 'X'.
IF sy-subrc EQ 0 AND
NOT t_zytpt025-programa IS INITIAL AND
NOT t_zytpt025-form IS INITIAL.
SELECT * INTO TABLE t_021
FROM /pws/zytpt021
WHERE bukrs IN p_bukrs
AND branch IN s_branch
AND sysid EQ sy-sysid.
PERFORM (t_zytpt025-form) IN PROGRAM (t_zytpt025-programa)
USING v_tcode
v_repid
v_zexit
t_021[]
CHANGING v_subrc.
ENDIF.
IF v_subrc NE 0.
MESSAGE e079(/pws/zytpm)
WITH text-org
space
space
space.
ENDIF.
ENDFORM.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYTPC003
...
AND zexit EQ v_zexit
AND ativo EQ 'X'.
IF sy-subrc EQ 0 AND
NOT t_025-programa IS INITIAL AND
NOT t_025-form IS INITIAL.
PERFORM (t_025-form) IN PROGRAM (t_025-programa)
USING v_tcode
v_repid
v_zexit
CHANGING v_rcode.
* >> Início da exclusão: FORM TRANS_AUTORIZACAO
ELSE.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD v_tcode.
v_rcode = sy-subrc.
* << Fim da exclusão
ENDIF.
IF v_rcode NE 0.
MESSAGE e079(/pws/zytpm)
WITH text-tco
v_tcode
space
space.
ENDIF.
ENDFORM.
FORM org_autorizacao.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYTPC004
...
AND zexit EQ v_zexit
AND ativo EQ 'X'.
IF sy-subrc EQ 0 AND
NOT t_025-programa IS INITIAL AND
NOT t_025-form IS INITIAL.
PERFORM (t_025-form) IN PROGRAM (t_025-programa)
USING v_tcode
v_repid
v_zexit
CHANGING v_subrc.
* >> Início da exclusão: FORM TRANS_AUTORIZACAO
ELSE.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD v_tcode.
v_subrc = sy-subrc.
* << Fim da exclusão
ENDIF.
IF v_subrc NE 0.
MESSAGE e079(/pws/zytpm)
WITH text-tco
v_tcode
space
space.
ENDIF.
ENDFORM.
FORM org_autorizacao.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYTPC006
...
AND zexit EQ v_zexit
AND ativo EQ 'X'.
IF sy-subrc EQ 0 AND
NOT t_025-programa IS INITIAL AND
NOT t_025-form IS INITIAL.
PERFORM (t_025-form) IN PROGRAM (t_025-programa)
USING v_tcode
v_repid
v_zexit
CHANGING v_subrc.
* >> Início da exclusão: FORM TRANS_AUTORIZACAO
ELSE.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD v_tcode.
v_subrc = sy-subrc.
* << Fim da exclusão
ENDIF.
IF v_subrc NE 0.
MESSAGE e079(/pws/zytpm)
WITH text-tco
v_tcode
space
space.
ENDIF.
ENDFORM.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYTPC007
...
AND zexit EQ v_zexit
AND ativo EQ 'X'.
IF sy-subrc EQ 0 AND
NOT t_025-programa IS INITIAL AND
NOT t_025-form IS INITIAL.
PERFORM (t_025-form) IN PROGRAM (t_025-programa)
USING v_tcode
v_repid
v_zexit
CHANGING v_subrc.
* >> Início da exclusão: FORM TRANS_AUTORIZACAO
ELSE.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD v_tcode.
v_subrc = sy-subrc.
* << Fim da exclusão
ENDIF.
IF v_subrc NE 0.
MESSAGE e079(/pws/zytpm)
WITH text-tco
v_tcode
space
space.
ENDIF.
ENDFORM.
FORM org_autorizacao.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYTPC008
...
AND zexit EQ v_zexit
AND ativo EQ 'X'.
IF sy-subrc EQ 0 AND
NOT t_025-programa IS INITIAL AND
NOT t_025-form IS INITIAL.
PERFORM (t_025-form) IN PROGRAM (t_025-programa)
USING v_tcode
v_repid
v_zexit
CHANGING v_subrc.
* >> Início da exclusão: FORM TRANS_AUTORIZACAO
ELSE.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD v_tcode.
v_subrc = sy-subrc.
* << Fim da exclusão
ENDIF.
IF v_subrc NE 0.
MESSAGE e079(/pws/zytpm)
WITH text-tco
v_tcode
space
space.
ENDIF.
ENDFORM.
FORM org_autorizacao.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYTPC009
...
AND zexit EQ v_zexit
AND ativo EQ 'X'.
IF sy-subrc EQ 0 AND
NOT t_025-programa IS INITIAL AND
NOT t_025-form IS INITIAL.
PERFORM (t_025-form) IN PROGRAM (t_025-programa)
USING v_tcode
v_repid
v_zexit
CHANGING v_subrc.
* >> Início da exclusão: FORM TRANS_AUTORIZACAO
ELSE.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD v_tcode.
v_subrc = sy-subrc.
* << Fim da exclusão
ENDIF.
IF v_subrc NE 0.
MESSAGE e079(/pws/zytpm)
WITH text-tco
v_tcode
space
space.
ENDIF.
ENDFORM.
FORM org_autorizacao.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYTPC201
...
AND zexit EQ v_zexit
AND ativo EQ 'X'.
IF sy-subrc EQ 0 AND
NOT t_025-programa IS INITIAL AND
NOT t_025-form IS INITIAL.
PERFORM (t_025-form) IN PROGRAM (t_025-programa)
USING v_tcode
v_repid
v_zexit
CHANGING v_subrc.
* >> Início da exclusão: FORM TRANS_AUTORIZACAO
ELSE.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD v_tcode.
v_subrc = sy-subrc.
* << Fim da exclusão
ENDIF.
IF v_subrc NE 0.
MESSAGE e079(/pws/zytpm)
WITH text-tco
v_tcode
space
space.
ENDIF.
ENDFORM.
FORM org_autorizacao.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYTPC203
...
AND zexit EQ v_zexit
AND ativo EQ 'X'.
IF sy-subrc EQ 0 AND
NOT t_zytpt025-programa IS INITIAL AND
NOT t_zytpt025-form IS INITIAL.
PERFORM (t_zytpt025-form) IN PROGRAM (t_zytpt025-programa)
USING v_tcode
v_repid
v_zexit
CHANGING v_subrc.
* >> Início da exclusão: FORM TRANS_AUTORIZACAO
ELSE.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD v_tcode.
v_subrc = sy-subrc.
* << Fim da exclusão
ENDIF.
IF v_subrc NE 0.
MESSAGE e079(/pws/zytpm)
WITH text-tco
v_tcode
space
space.
ENDIF.
ENDFORM.
FORM org_autorizacao.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYTPC204
...
AND zexit EQ v_zexit
AND ativo EQ 'X'.
IF sy-subrc EQ 0 AND
NOT t_025-programa IS INITIAL AND
NOT t_025-form IS INITIAL.
PERFORM (t_025-form) IN PROGRAM (t_025-programa)
USING v_tcode
v_repid
v_zexit
CHANGING v_subrc.
* >> Início da exclusão: FORM TRANS_AUTORIZACAO
ELSE.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD v_tcode.
v_subrc = sy-subrc.
* << Fim da exclusão
ENDIF.
IF v_subrc NE 0.
MESSAGE e079(/pws/zytpm)
WITH text-tco
v_tcode
space
space.
ENDIF.
ENDFORM.
FORM org_autorizacao.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYTPC205
...
AND zexit EQ v_zexit
AND ativo EQ 'X'.
IF sy-subrc EQ 0 AND
NOT t_025-programa IS INITIAL AND
NOT t_025-form IS INITIAL.
PERFORM (t_025-form) IN PROGRAM (t_025-programa)
USING v_tcode
v_repid
v_zexit
CHANGING v_subrc.
* >> Início da exclusão: FORM TRANS_AUTORIZACAO
ELSE.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD v_tcode.
v_subrc = sy-subrc.
* << Fim da exclusão
ENDIF.
IF v_subrc NE 0.
MESSAGE e079(/pws/zytpm)
WITH text-tco
v_tcode
space
space.
ENDIF.
ENDFORM.
FORM org_autorizacao.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYTPR002
...
AND zexit EQ v_zexit
AND ativo EQ 'X'.
IF sy-subrc EQ 0 AND
NOT t_zytpt025-programa IS INITIAL AND
NOT t_zytpt025-form IS INITIAL.
PERFORM (t_zytpt025-form) IN PROGRAM (t_zytpt025-programa)
USING v_tcode
v_repid
v_zexit
CHANGING v_subrc.
* >> Início da exclusão: FORM TRANS_AUTORIZACAO
ELSE.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD v_tcode.
v_subrc = sy-subrc.
* << Fim da exclusão
ENDIF.
IF v_subrc NE 0.
MESSAGE e079(/pws/zytpm)
WITH text-tco
v_tcode
space
space.
ENDIF.
ENDFORM.
FORM org_autorizacao.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYTPR003
...
AND zexit EQ v_zexit
AND ativo EQ 'X'.
IF sy-subrc EQ 0 AND
NOT t_zytpt025-programa IS INITIAL AND
NOT t_zytpt025-form IS INITIAL.
PERFORM (t_zytpt025-form) IN PROGRAM (t_zytpt025-programa)
USING v_tcode
v_repid
v_zexit
CHANGING v_subrc.
* >> Início da exclusão: FORM TRANS_AUTORIZACAO
ELSE.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD v_tcode.
v_subrc = sy-subrc.
* << Fim da exclusão
ENDIF.
IF v_subrc NE 0.
MESSAGE e079(/pws/zytpm)
WITH text-tco
v_tcode
space
space.
ENDIF.
ENDFORM.
FORM org_autorizacao.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYTPR004
...
AND zexit EQ v_zexit
AND ativo EQ 'X'.
IF sy-subrc EQ 0 AND
NOT t_025-programa IS INITIAL AND
NOT t_025-form IS INITIAL.
PERFORM (t_025-form) IN PROGRAM (t_025-programa)
USING v_tcode
v_repid
v_zexit
CHANGING v_subrc.
* >> Início da exclusão: FORM TRANS_AUTORIZACAO
ELSE.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD v_tcode.
v_subrc = sy-subrc.
* << Fim da exclusão
ENDIF.
IF v_subrc NE 0.
MESSAGE e079(/pws/zytpm)
WITH text-tco
v_tcode
space
space.
ENDIF.
ENDFORM.
FORM org_autorizacao.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYTPR006
...
AND zexit EQ v_zexit
AND ativo EQ 'X'.
IF sy-subrc EQ 0 AND
NOT t_025-programa IS INITIAL AND
NOT t_025-form IS INITIAL.
PERFORM (t_025-form) IN PROGRAM (t_025-programa)
USING v_tcode
v_repid
v_zexit
CHANGING v_subrc.
* >> Início da exclusão: FORM TRANS_AUTORIZACAO
ELSE.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD v_tcode.
v_subrc = sy-subrc.
* << Fim da exclusão
ENDIF.
IF v_subrc NE 0.
MESSAGE e079(/pws/zytpm)
WITH text-tco
v_tcode
space
space.
ENDIF.
ENDFORM.
FORM org_autorizacao.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYTPR009_ROT
...
AND zexit EQ v_zexit
AND ativo EQ 'X'.
IF sy-subrc EQ 0 AND
NOT t_025-programa IS INITIAL AND
NOT t_025-form IS INITIAL.
PERFORM (t_025-form) IN PROGRAM (t_025-programa)
USING v_tcode
v_repid
v_zexit
CHANGING v_subrc.
* >> Início da exclusão: FORM TRANS_AUTORIZACAO
ELSE.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD v_tcode.
v_subrc = sy-subrc.
* << Fim da exclusão
ENDIF.
IF v_subrc NE 0.
MESSAGE e079(/pws/zytpm)
WITH text-tco
v_tcode
space
space.
ENDIF.
ENDFORM.
FORM org_autorizacao.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYTPR010_ROT
...
AND zexit EQ v_zexit
AND ativo EQ 'X'.
IF sy-subrc EQ 0 AND
NOT t_025-programa IS INITIAL AND
NOT t_025-form IS INITIAL.
PERFORM (t_025-form) IN PROGRAM (t_025-programa)
USING v_tcode
v_repid
v_zexit
CHANGING v_subrc.
* >> Início da exclusão: FORM TRANS_AUTORIZACAO
ELSE.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD v_tcode.
v_subrc = sy-subrc.
* << Fim da exclusão
ENDIF.
IF v_subrc NE 0.
MESSAGE e079(/pws/zytpm)
WITH text-tco
v_tcode
space
space.
ENDIF.
ENDFORM.
FORM org_autorizacao.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYTPR011_ROT
...
AND zexit EQ v_zexit
AND ativo EQ 'X'.
IF sy-subrc EQ 0 AND
NOT t_025-programa IS INITIAL AND
NOT t_025-form IS INITIAL.
PERFORM (t_025-form) IN PROGRAM (t_025-programa)
USING v_tcode
v_repid
v_zexit
CHANGING v_subrc.
* >> Início da exclusão: FORM TRANS_AUTORIZACAO
ELSE.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD v_tcode.
v_subrc = sy-subrc.
* << Fim da exclusão
ENDIF.
IF v_subrc NE 0.
MESSAGE e079(/pws/zytpm)
WITH text-tco
v_tcode
space
space.
ENDIF.
ENDFORM.
FORM org_autorizacao.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYTPR012_ROT
...
AND zexit EQ v_zexit
AND ativo EQ 'X'.
IF sy-subrc EQ 0 AND
NOT t_025-programa IS INITIAL AND
NOT t_025-form IS INITIAL.
PERFORM (t_025-form) IN PROGRAM (t_025-programa)
USING v_tcode
v_repid
v_zexit
CHANGING v_subrc.
* >> Início da exclusão: FORM TRANS_AUTORIZACAO
ELSE.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD v_tcode.
v_subrc = sy-subrc.
* << Fim da exclusão
ENDIF.
IF v_subrc NE 0.
MESSAGE e079(/pws/zytpm)
WITH text-tco
v_tcode
space
space.
ENDIF.
ENDFORM.
FORM org_autorizacao.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYTPR013_ROT
...
AND zexit EQ v_zexit
AND ativo EQ 'X'.
IF sy-subrc EQ 0 AND
NOT t_025-programa IS INITIAL AND
NOT t_025-form IS INITIAL.
PERFORM (t_025-form) IN PROGRAM (t_025-programa)
USING v_tcode
v_repid
v_zexit
CHANGING v_subrc.
* >> Início da exclusão: FORM TRANS_AUTORIZACAO
ELSE.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD v_tcode.
v_subrc = sy-subrc.
* << Fim da exclusão
ENDIF.
IF v_subrc NE 0.
MESSAGE e079(/pws/zytpm)
WITH text-tco
v_tcode
space
space.
ENDIF.
ENDFORM.
FORM org_autorizacao.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYTPR014
...
AND zexit EQ v_zexit
AND ativo EQ 'X'.
IF sy-subrc EQ 0 AND
NOT t_025-programa IS INITIAL AND
NOT t_025-form IS INITIAL.
PERFORM (t_025-form) IN PROGRAM (t_025-programa)
USING v_trans
v_repid
v_zexit
CHANGING v_subrc.
* >> Início da exclusão: FORM TRANS_AUTORIZACAO
ELSE.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD v_trans.
v_subrc = sy-subrc.
* << Fim da exclusão
ENDIF.
IF v_subrc NE 0.
MESSAGE e079(/pws/zytpm)
WITH text-tco
v_trans
space
space.
ENDIF.
ENDFORM.
FORM org_autorizacao.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYTPR016
...
AND zexit EQ v_zexit
AND ativo EQ 'X'.
IF sy-subrc EQ 0 AND
NOT t_025-programa IS INITIAL AND
NOT t_025-form IS INITIAL.
PERFORM (t_025-form) IN PROGRAM (t_025-programa)
USING v_tcode
v_repid
v_zexit
CHANGING v_subrc.
* >> Início da exclusão: FORM TRANS_AUTORIZACAO
ELSE.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD v_tcode.
v_subrc = sy-subrc.
* << Fim da exclusão
ENDIF.
IF v_subrc NE 0.
MESSAGE e079(/pws/zytpm)
WITH text-tco
v_tcode
space
space.
ENDIF.
ENDFORM.
FORM org_autorizacao.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYTPR018
...
AND zexit EQ v_zexit
AND ativo EQ 'X'.
IF sy-subrc EQ 0 AND
NOT t_025-programa IS INITIAL AND
NOT t_025-form IS INITIAL.
PERFORM (t_025-form) IN PROGRAM (t_025-programa)
USING v_tcode
v_repid
v_zexit
CHANGING v_subrc.
* >> Início da exclusão: FORM TRANS_AUTORIZACAO
ELSE.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD v_tcode.
v_subrc = sy-subrc.
* << Fim da exclusão
ENDIF.
IF v_subrc NE 0.
MESSAGE e079(/pws/zytpm)
WITH text-tco
v_tcode
space
space.
ENDIF.
ENDFORM.
FORM org_autorizacao.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYTPR019
...
AND zexit EQ v_zexit
AND ativo EQ 'X'.
IF sy-subrc EQ 0 AND
NOT t_025-programa IS INITIAL AND
NOT t_025-form IS INITIAL.
PERFORM (t_025-form) IN PROGRAM (t_025-programa)
USING v_tcode
v_repid
v_zexit
CHANGING v_subrc.
* >> Início da exclusão: FORM TRANS_AUTORIZACAO
ELSE.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD v_tcode.
v_subrc = sy-subrc.
* << Fim da exclusão
ENDIF.
IF v_subrc NE 0.
MESSAGE e079(/pws/zytpm)
WITH text-tco
v_tcode
space
space.
ENDIF.
ENDFORM.
FORM org_autorizacao.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYTPR021
...
AND zexit EQ v_zexit
AND ativo EQ 'X'.
IF sy-subrc EQ 0 AND
NOT t_025-programa IS INITIAL AND
NOT t_025-form IS INITIAL.
PERFORM (t_025-form) IN PROGRAM (t_025-programa)
USING v_tcode
v_repid
v_zexit
CHANGING v_subrc.
* >> Início da exclusão: FORM TRANS_AUTORIZACAO
ELSE.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD v_tcode.
v_subrc = sy-subrc.
* << Fim da exclusão
ENDIF.
IF v_subrc NE 0.
MESSAGE e079(/pws/zytpm)
WITH text-tco
v_tcode
space
space.
ENDIF.
ENDFORM.
FORM org_autorizacao.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYTPR023
...
AND zexit EQ v_zexit
AND ativo EQ 'X'.
IF sy-subrc EQ 0 AND
NOT t_025-programa IS INITIAL AND
NOT t_025-form IS INITIAL.
PERFORM (t_025-form) IN PROGRAM (t_025-programa)
USING v_tcode
v_repid
v_zexit
CHANGING v_subrc.
* >> Início da exclusão: FORM TRANS_AUTORIZACAO
ELSE.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD v_tcode.
v_subrc = sy-subrc.
* << Fim da exclusão
ENDIF.
IF v_subrc NE 0.
MESSAGE e079(/pws/zytpm)
WITH text-tco
v_tcode
space
space.
ENDIF.
ENDFORM.
FORM org_autorizacao.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYTPR024
...
AND zexit EQ v_zexit
AND ativo EQ 'X'.
IF sy-subrc EQ 0 AND
NOT t_025-programa IS INITIAL AND
NOT t_025-form IS INITIAL.
PERFORM (t_025-form) IN PROGRAM (t_025-programa)
USING v_tcode
v_repid
v_zexit
CHANGING v_subrc.
* >> Início da exclusão: FORM TRANS_AUTORIZACAO
ELSE.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD v_tcode.
v_subrc = sy-subrc.
* << Fim da exclusão
ENDIF.
IF v_subrc NE 0.
MESSAGE e079(/pws/zytpm)
WITH text-tco
v_tcode
space
space.
ENDIF.
ENDFORM.
FORM org_autorizacao.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYTPR025
...
AND zexit EQ v_zexit
AND ativo EQ 'X'.
IF sy-subrc EQ 0 AND
NOT t_025-programa IS INITIAL AND
NOT t_025-form IS INITIAL.
PERFORM (t_025-form) IN PROGRAM (t_025-programa)
USING v_tcode
v_repid
v_zexit
CHANGING v_subrc.
* >> Início da exclusão: FORM TRANS_AUTORIZACAO
ELSE.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD v_tcode.
v_subrc = sy-subrc.
* << Fim da exclusão
ENDIF.
IF v_subrc NE 0.
MESSAGE e079(/pws/zytpm)
WITH text-tco
v_tcode
space
space.
ENDIF.
ENDFORM.
FORM org_autorizacao.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYTPR027
...
AND zexit EQ v_zexit
AND ativo EQ 'X'.
IF sy-subrc EQ 0 AND
NOT t_025-programa IS INITIAL AND
NOT t_025-form IS INITIAL.
PERFORM (t_025-form) IN PROGRAM (t_025-programa)
USING v_tcode
v_repid
v_zexit
CHANGING v_subrc.
* >> Início da exclusão: FORM TRANS_AUTORIZACAO
ELSE.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD v_tcode.
v_subrc = sy-subrc.
* << Fim da exclusão
ENDIF.
IF v_subrc NE 0.
MESSAGE e079(/pws/zytpm)
WITH text-tco
v_tcode
space
space.
ENDIF.
ENDFORM.
FORM org_autorizacao.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYTPR028
...
AND zexit EQ v_zexit
AND ativo EQ 'X'.
IF sy-subrc EQ 0 AND
NOT t_zytpt025-programa IS INITIAL AND
NOT t_zytpt025-form IS INITIAL.
PERFORM (t_zytpt025-form) IN PROGRAM (t_zytpt025-programa)
USING v_tcode
v_repid
v_zexit
CHANGING v_subrc.
* >> Início da exclusão: FORM TRANS_AUTORIZACAO
ELSE.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD v_tcode.
v_subrc = sy-subrc.
* << Fim da exclusão
ENDIF.
IF v_subrc NE 0.
MESSAGE e079(/pws/zytpm)
WITH text-tco
v_tcode
space
space.
ENDIF.
ENDFORM.
FORM org_autorizacao.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYTPR029
...
AND zexit EQ v_zexit
AND ativo EQ 'X'.
IF sy-subrc EQ 0 AND
NOT t_025-programa IS INITIAL AND
NOT t_025-form IS INITIAL.
PERFORM (t_025-form) IN PROGRAM (t_025-programa)
USING v_tcode
v_repid
v_zexit
CHANGING v_subrc.
* >> Início da exclusão: FORM TRANS_AUTORIZACAO
ELSE.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD v_tcode.
v_subrc = sy-subrc.
* << Fim da exclusão
ENDIF.
IF v_subrc NE 0.
MESSAGE e079(/pws/zytpm)
WITH text-tco
v_tcode
space
space.
ENDIF.
ENDFORM.
FORM org_autorizacao.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYTPR030
...
AND zexit EQ v_zexit
AND ativo EQ 'X'.
IF sy-subrc EQ 0 AND
NOT t_025-programa IS INITIAL AND
NOT t_025-form IS INITIAL.
PERFORM (t_025-form) IN PROGRAM (t_025-programa)
USING v_tcode
v_repid
v_zexit
CHANGING v_subrc.
* >> Início da exclusão: FORM TRANS_AUTORIZACAO
ELSE.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD v_tcode.
v_subrc = sy-subrc.
* << Fim da exclusão
ENDIF.
IF v_subrc NE 0.
MESSAGE e079(/pws/zytpm)
WITH text-tco
v_tcode
space
space.
ENDIF.
ENDFORM.
FORM org_autorizacao.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYTPR031
...
AND zexit EQ v_zexit
AND ativo EQ 'X'.
IF sy-subrc EQ 0 AND
NOT t_zytpt025-programa IS INITIAL AND
NOT t_zytpt025-form IS INITIAL.
PERFORM (t_zytpt025-form) IN PROGRAM (t_zytpt025-programa)
USING v_tcode
v_repid
v_zexit
CHANGING v_subrc.
* >> Início da exclusão: FORM TRANS_AUTORIZACAO
ELSE.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD v_tcode.
v_subrc = sy-subrc.
* << Fim da exclusão
ENDIF.
IF v_subrc NE 0.
MESSAGE e079(/pws/zytpm)
WITH text-tco
v_tcode
space
space.
ENDIF.
ENDFORM.
FORM org_autorizacao.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYTPR032
...
AND zexit EQ v_zexit
AND ativo EQ 'X'.
IF sy-subrc EQ 0 AND
NOT t_025-programa IS INITIAL AND
NOT t_025-form IS INITIAL.
PERFORM (t_025-form) IN PROGRAM (t_025-programa)
USING v_tcode
v_repid
v_zexit
CHANGING v_subrc.
* >> Início da exclusão: FORM TRANS_AUTORIZACAO
ELSE.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD v_tcode.
v_subrc = sy-subrc.
* << Fim da exclusão
ENDIF.
IF v_subrc NE 0.
MESSAGE e079(/pws/zytpm)
WITH text-tco
v_tcode
space
space.
ENDIF.
ENDFORM.
FORM org_autorizacao.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYTPR034
...
AND zexit EQ v_zexit
AND ativo EQ 'X'.
IF sy-subrc EQ 0 AND
NOT t_025-programa IS INITIAL AND
NOT t_025-form IS INITIAL.
PERFORM (t_025-form) IN PROGRAM (t_025-programa)
USING v_tcode
v_repid
v_zexit
CHANGING v_subrc.
* >> Início da exclusão: FORM TRANS_AUTORIZACAO
ELSE.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD v_tcode.
v_subrc = sy-subrc.
* << Fim da exclusão
ENDIF.
IF v_subrc NE 0.
MESSAGE e079(/pws/zytpm)
WITH text-tco
v_tcode
space
space.
ENDIF.
ENDFORM.
FORM org_autorizacao.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYTPR035
...
AND zexit EQ v_zexit
AND ativo EQ 'X'.
IF sy-subrc EQ 0 AND
NOT t_025-programa IS INITIAL AND
NOT t_025-form IS INITIAL.
PERFORM (t_025-form) IN PROGRAM (t_025-programa)
USING v_tcode
v_repid
v_zexit
CHANGING v_subrc.
* >> Início da exclusão: FORM TRANS_AUTORIZACAO
ELSE.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD v_tcode.
v_subrc = sy-subrc.
* << Fim da exclusão
ENDIF.
IF v_subrc NE 0.
MESSAGE e079(/pws/zytpm)
WITH text-tco
v_tcode
space
space.
ENDIF.
ENDFORM.
FORM org_autorizacao.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYTPR036
...
AND zexit EQ v_zexit
AND ativo EQ 'X'.
IF sy-subrc EQ 0 AND
NOT t_025-programa IS INITIAL AND
NOT t_025-form IS INITIAL.
PERFORM (t_025-form) IN PROGRAM (t_025-programa)
USING v_tcode
v_repid
v_zexit
CHANGING v_subrc.
* >> Início da exclusão: FORM TRANS_AUTORIZACAO
ELSE.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD v_tcode.
v_subrc = sy-subrc.
* << Fim da exclusão
ENDIF.
IF v_subrc NE 0.
MESSAGE e079(/pws/zytpm)
WITH text-tco
v_tcode
space
space.
ENDIF.
ENDFORM.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYTPR039
...
AND zexit EQ v_zexit
AND ativo EQ 'X'.
IF sy-subrc EQ 0 AND
NOT t_025-programa IS INITIAL AND
NOT t_025-form IS INITIAL.
PERFORM (t_025-form) IN PROGRAM (t_025-programa)
USING v_tcode
v_repid
v_zexit
CHANGING v_subrc.
* >> Início da exclusão: FORM TRANS_AUTORIZACAO
ELSE.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD v_tcode.
v_subrc = sy-subrc.
* << Fim da exclusão
ENDIF.
IF v_subrc NE 0.
MESSAGE e079(/pws/zytpm)
WITH text-tco
v_tcode
space
space.
ENDIF.
ENDFORM.
FORM org_autorizacao.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYTPR040
...
AND zexit EQ v_zexit
AND ativo EQ 'X'.
IF sy-subrc EQ 0 AND
NOT t_025-programa IS INITIAL AND
NOT t_025-form IS INITIAL.
PERFORM (t_025-form) IN PROGRAM (t_025-programa)
USING v_tcode
v_repid
v_zexit
CHANGING v_subrc.
* >> Início da exclusão: FORM TRANS_AUTORIZACAO
ELSE.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD v_tcode.
v_subrc = sy-subrc.
* << Fim da exclusão
ENDIF.
IF v_subrc NE 0.
MESSAGE e079(/pws/zytpm)
WITH text-tco
v_tcode
space
space.
ENDIF.
ENDFORM.
FORM org_autorizacao.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYTPR041
...
AND zexit EQ v_zexit
AND ativo EQ 'X'.
IF sy-subrc EQ 0 AND
NOT t_025-programa IS INITIAL AND
NOT t_025-form IS INITIAL.
PERFORM (t_025-form) IN PROGRAM (t_025-programa)
USING v_tcode
v_repid
v_zexit
CHANGING v_subrc.
* >> Início da exclusão: FORM TRANS_AUTORIZACAO
ELSE.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD v_tcode.
v_subrc = sy-subrc.
* << Fim da exclusão
ENDIF.
IF v_subrc NE 0.
MESSAGE e079(/pws/zytpm)
WITH text-tco
v_tcode
space
space.
ENDIF.
ENDFORM.
FORM org_autorizacao.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYTPR042
...
AND zexit EQ v_zexit
AND ativo EQ 'X'.
IF sy-subrc EQ 0 AND
NOT t_025-programa IS INITIAL AND
NOT t_025-form IS INITIAL.
PERFORM (t_025-form) IN PROGRAM (t_025-programa)
USING v_tcode
v_repid
v_zexit
CHANGING v_subrc.
* >> Início da exclusão: FORM TRANS_AUTORIZACAO
ELSE.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD v_tcode.
v_subrc = sy-subrc.
* << Fim da exclusão
ENDIF.
IF v_subrc NE 0.
MESSAGE e079(/pws/zytpm)
WITH text-tco
v_tcode
space
space.
ENDIF.
ENDFORM.
FORM org_autorizacao.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYTPR043
...
AND zexit EQ v_zexit
AND ativo EQ 'X'.
IF sy-subrc EQ 0 AND
NOT t_025-programa IS INITIAL AND
NOT t_025-form IS INITIAL.
PERFORM (t_025-form) IN PROGRAM (t_025-programa)
USING v_tcode
v_repid
v_zexit
CHANGING v_subrc.
* >> Início da exclusão: FORM TRANS_AUTORIZACAO
ELSE.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD v_tcode.
v_subrc = sy-subrc.
* << Fim da exclusão
ENDIF.
IF v_subrc NE 0.
MESSAGE e079(/pws/zytpm)
WITH text-tco
v_tcode
space
space.
ENDIF.
ENDFORM.
FORM org_autorizacao.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYTPR044
...
AND zexit EQ v_zexit
AND ativo EQ 'X'.
IF sy-subrc EQ 0 AND
NOT t_025-programa IS INITIAL AND
NOT t_025-form IS INITIAL.
PERFORM (t_025-form) IN PROGRAM (t_025-programa)
USING v_tcode
v_repid
v_zexit
CHANGING v_subrc.
* >> Início da exclusão: FORM TRANS_AUTORIZACAO
ELSE.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD v_tcode.
v_subrc = sy-subrc.
* << Fim da exclusão
ENDIF.
IF v_subrc NE 0.
MESSAGE e079(/pws/zytpm)
WITH text-tco
v_tcode
space
space.
ENDIF.
ENDFORM.
FORM org_autorizacao.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYTPR045
...
AND zexit EQ v_zexit
AND ativo EQ 'X'.
IF sy-subrc EQ 0 AND
NOT t_025-programa IS INITIAL AND
NOT t_025-form IS INITIAL.
PERFORM (t_025-form) IN PROGRAM (t_025-programa)
USING v_tcode
v_repid
v_zexit
CHANGING v_subrc.
* >> Início da exclusão: FORM TRANS_AUTORIZACAO
ELSE.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD v_tcode.
v_subrc = sy-subrc.
* << Fim da exclusão
ENDIF.
IF v_subrc NE 0.
MESSAGE e079(/pws/zytpm)
WITH text-tco
v_tcode
space
space.
ENDIF.
ENDFORM.
FORM org_autorizacao.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYTPR046
...
AND zexit EQ v_zexit
AND ativo EQ 'X'.
IF sy-subrc EQ 0 AND
NOT t_025-programa IS INITIAL AND
NOT t_025-form IS INITIAL.
PERFORM (t_025-form) IN PROGRAM (t_025-programa)
USING v_tcode
v_repid
v_zexit
CHANGING v_subrc.
* >> Início da exclusão: FORM TRANS_AUTORIZACAO
ELSE.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD v_tcode.
v_subrc = sy-subrc.
* << Fim da exclusão
ENDIF.
IF v_subrc NE 0.
MESSAGE e079(/pws/zytpm)
WITH text-tco
v_tcode
space
space.
ENDIF.
ENDFORM.
FORM org_autorizacao.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYTPR048
...
AND zexit EQ v_zexit
AND ativo EQ 'X'.
IF sy-subrc EQ 0 AND
NOT t_025-programa IS INITIAL AND
NOT t_025-form IS INITIAL.
PERFORM (t_025-form) IN PROGRAM (t_025-programa)
USING v_tcode
v_repid
v_zexit
CHANGING v_subrc.
* >> Início da exclusão: FORM TRANS_AUTORIZACAO
ELSE.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD v_tcode.
v_subrc = sy-subrc.
* << Fim da exclusão
ENDIF.
IF v_subrc NE 0.
MESSAGE e079(/pws/zytpm)
WITH text-tco
v_tcode
space
space.
ENDIF.
ENDFORM.
FORM org_autorizacao.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYTPR702
...
AND zexit EQ v_zexit
AND ativo EQ 'X'.
IF sy-subrc EQ 0 AND
NOT t_025-programa IS INITIAL AND
NOT t_025-form IS INITIAL.
PERFORM (t_025-form) IN PROGRAM (t_025-programa)
USING v_tcode
v_repid
v_zexit
CHANGING v_subrc.
* >> Início da exclusão: FORM TRANS_AUTORIZACAO
ELSE.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD v_tcode.
v_subrc = sy-subrc.
* << Fim da exclusão
ENDIF.
IF v_subrc NE 0.
MESSAGE e079(/pws/zytpm)
WITH text-tco
v_tcode
space
space.
ENDIF.
ENDFORM.
FORM org_autorizacao.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYTPR703
...
AND zexit EQ v_zexit
AND ativo EQ 'X'.
IF sy-subrc EQ 0 AND
NOT t_025-programa IS INITIAL AND
NOT t_025-form IS INITIAL.
PERFORM (t_025-form) IN PROGRAM (t_025-programa)
USING v_tcode
v_repid
v_zexit
CHANGING v_subrc.
* >> Início da exclusão: FORM TRANS_AUTORIZACAO
ELSE.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD v_tcode.
v_subrc = sy-subrc.
* << Fim da exclusão
ENDIF.
IF v_subrc NE 0.
MESSAGE e079(/pws/zytpm)
WITH text-tco
v_tcode
space
space.
ENDIF.
ENDFORM.
FORM org_autorizacao.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYTPR802
...
AND zexit EQ v_zexit
AND ativo EQ 'X'.
IF sy-subrc EQ 0 AND
NOT t_025-programa IS INITIAL AND
NOT t_025-form IS INITIAL.
PERFORM (t_025-form) IN PROGRAM (t_025-programa)
USING v_tcode
v_repid
v_zexit
CHANGING v_subrc.
* >> Início da exclusão: FORM TRANS_AUTORIZACAO
ELSE.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD v_tcode.
v_subrc = sy-subrc.
* << Fim da exclusão
ENDIF.
IF v_subrc NE 0.
MESSAGE e079(/pws/zytpm)
WITH text-tco
v_tcode
space
space.
ENDIF.
ENDFORM.
FORM org_autorizacao.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYTPR908
...
AND zexit EQ v_zexit
AND ativo EQ 'X'.
IF sy-subrc EQ 0 AND
NOT t_025-programa IS INITIAL AND
NOT t_025-form IS INITIAL.
PERFORM (t_025-form) IN PROGRAM (t_025-programa)
USING v_tcode
v_repid
v_zexit
CHANGING v_subrc.
* >> Início da exclusão: FORM TRANS_AUTORIZACAO
ELSE.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD v_tcode.
v_subrc = sy-subrc.
* << Fim da exclusão
ENDIF.
IF v_subrc NE 0.
MESSAGE e079(/pws/zytpm)
WITH text-tco
v_tcode
space
space.
ENDIF.
ENDFORM.
FORM org_autorizacao.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYTPR909
...
AND zexit EQ v_zexit
AND ativo EQ 'X'.
IF sy-subrc EQ 0 AND
NOT t_025-programa IS INITIAL AND
NOT t_025-form IS INITIAL.
PERFORM (t_025-form) IN PROGRAM (t_025-programa)
USING v_tcode
v_repid
v_zexit
CHANGING v_subrc.
* >> Início da exclusão: FORM TRANS_AUTORIZACAO
ELSE.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD v_tcode.
v_subrc = sy-subrc.
* << Fim da exclusão
ENDIF.
IF v_subrc NE 0.
MESSAGE e079(/pws/zytpm)
WITH text-tco
v_tcode
space
space.
ENDIF.
ENDFORM.
FORM org_autorizacao.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYTPR910
...
AND zexit EQ v_zexit
AND ativo EQ 'X'.
IF sy-subrc EQ 0 AND
NOT t_025-programa IS INITIAL AND
NOT t_025-form IS INITIAL.
PERFORM (t_025-form) IN PROGRAM (t_025-programa)
USING v_tcode
v_repid
v_zexit
CHANGING v_subrc.
* >> Início da exclusão: FORM TRANS_AUTORIZACAO
ELSE.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD v_tcode.
v_subrc = sy-subrc.
* << Fim da exclusão
ENDIF.
IF v_subrc NE 0.
MESSAGE e079(/pws/zytpm)
WITH text-tco
v_tcode
space
space.
ENDIF.
ENDFORM.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYTPR911
...
AND zexit EQ v_zexit
AND ativo EQ 'X'.
IF sy-subrc EQ 0 AND
NOT t_025-programa IS INITIAL AND
NOT t_025-form IS INITIAL.
PERFORM (t_025-form) IN PROGRAM (t_025-programa)
USING v_tcode
v_repid
v_zexit
CHANGING v_subrc.
* >> Início da exclusão: FORM TRANS_AUTORIZACAO
ELSE.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD v_tcode.
v_subrc = sy-subrc.
* << Fim da exclusão
ENDIF.
IF v_subrc NE 0.
MESSAGE e079(/pws/zytpm)
WITH text-tco
v_tcode
space
space.
ENDIF.
ENDFORM.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYTPR912
...
AND zexit EQ v_zexit
AND ativo EQ 'X'.
IF sy-subrc EQ 0 AND
NOT t_025-programa IS INITIAL AND
NOT t_025-form IS INITIAL.
PERFORM (t_025-form) IN PROGRAM (t_025-programa)
USING v_tcode
v_repid
v_zexit
CHANGING v_subrc.
* >> Início da exclusão: FORM TRANS_AUTORIZACAO
ELSE.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD v_tcode.
v_subrc = sy-subrc.
* << Fim da exclusão
ENDIF.
IF v_subrc NE 0.
MESSAGE e079(/pws/zytpm)
WITH text-tco
v_tcode
space
space.
ENDIF.
ENDFORM.
FORM org_autorizacao.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYTPR913
...
AND zexit EQ v_zexit
AND ativo EQ 'X'.
IF sy-subrc EQ 0 AND
NOT t_025-programa IS INITIAL AND
NOT t_025-form IS INITIAL.
PERFORM (t_025-form) IN PROGRAM (t_025-programa)
USING v_tcode
v_repid
v_zexit
CHANGING v_subrc.
* >> Início da exclusão: FORM TRANS_AUTORIZACAO
ELSE.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD v_tcode.
v_subrc = sy-subrc.
* << Fim da exclusão
ENDIF.
IF v_subrc NE 0.
MESSAGE e079(/pws/zytpm)
WITH text-tco
v_tcode
space
space.
ENDIF.
ENDFORM.
FORM mta_autorizacao.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/ZYTPC001
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: ORG
Texto: (55 caracteres)
"Without authorization for informed organizacional group"
Comprimento máximo: 60
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: ORG
Texto: (51 caracteres)
"Sem autorização para grupo organizacional informado"
Comprimento máximo: 60
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: TCO
Texto: (37 caracteres)
"Without authorization for transaction"
Comprimento máximo: 40
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: TCO
Texto: (30 caracteres)
"Sem autorização para transação"
Comprimento máximo: 40