CE PLUS - Nota 013228
Módulo: CÂMBIO FINANCEIRO
Funcionalidade: SISCOSERV
Data/Hora da Publicação: 09/09/2013 10:19:07
Data/Hora Última Alteração: 09/09/2013 10:19:07
Descrição da Nota: SISCOSERV - CARGA - INCLUSÃO DE AUTHORITY-CHECK
Sintoma
Inclusão da verificação de autorização por transação e empresa
Solução
Inclusão da verificação de autorização por transação e empresa
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 13228 Data: 06/09/2013 Hora: 14:59:53
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 13228
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 9.0
Pacote : 00005
Agrupamento : 00163
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
12632 - 00001 - 9.0 - 00002 - CARGA SISCOSERV
----------------------------------------------------------------------------------------------------
SISCOSERV - CARGA - INCLUSÃO DE AUTHORITY-CHECK
----------------------------------------------------------------------------------------------------
Palavras Chave:
SISCOSERV - CARGA - INCLUSÃO DE AUTHORITY-CHECK
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/LZYCAGFF01
REPS /PWS/ZYCAR022
REPT /PWS/SAPLZYCAGF
REPT /PWS/ZYCAR022
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/LZYCAGFF01
...
IF p_zycat030-bukrs_ext IS INITIAL.
wa_erro-campo = text-016.
wa_erro-msg = text-e02.
APPEND wa_erro TO p_erro.
ENDIF.
IF p_zycat030-waers IS INITIAL.
wa_erro-campo = text-017.
wa_erro-msg = text-e02.
APPEND wa_erro TO p_erro.
ENDIF.
* >> Início da inclusão: FORM VERIFICA_CABECALHO
IF NOT p_zycat030-bukrs IS INITIAL.
AUTHORITY-CHECK OBJECT 'F_BKPF_BUK' ID 'BUKRS'
DUMMY
ID 'ACTVT' FIELD '01'.
IF sy-subrc NE 0.
AUTHORITY-CHECK OBJECT 'F_BKPF_BUK' ID 'BUKRS' FIELD
p_zycat030-bukrs
ID 'ACTVT' FIELD '01'.
IF sy-subrc NE 0.
wa_erro-campo = text-012.
CONCATENATE text-e13 p_zycat030-bukrs
INTO wa_erro-msg SEPARATED BY space.
APPEND wa_erro TO p_erro.
ENDIF.
ELSE.
AUTHORITY-CHECK OBJECT 'F_BKPF_BUK' ID 'BUKRS' FIELD
p_zycat030-bukrs
ID 'ACTVT' FIELD '01'.
IF sy-subrc NE 0.
wa_erro-campo = text-012.
CONCATENATE text-e13 p_zycat030-bukrs
INTO wa_erro-msg SEPARATED BY space.
APPEND wa_erro TO p_erro.
ENDIF.
ENDIF.
ENDIF.
* << Fim da inclusão
ENDFORM.
FORM verifica_operacoes TABLES p_zycat031 STRUCTURE /pws/zycat031
p_zycat032 STRUCTURE /pws/zycat032
p_erro STRUCTURE /pws/zycae004
USING p_zycat030 STRUCTURE /pws/zycat030.
DATA: wa_zycat031 TYPE /pws/zycat031,
wa_erro TYPE /pws/zycae004.
IF p_zycat031[] IS INITIAL.
wa_erro-msg = text-e05.
APPEND wa_erro TO p_erro.
...
...
IF sy-subrc NE 0.
MOVE: wa_zycat039-nrseq TO wa_retorno-nrseq,
wa_zycat039-operacao TO wa_retorno-operacao,
wa_zycat039-fatura TO wa_retorno-fatura,
text-e10 TO wa_retorno-msg.
APPEND wa_retorno TO p_retorno.
CONTINUE.
ENDIF.
READ TABLE itab_zycat030 INTO wa_zycat030
WITH KEY nrseq = wa_zycat039-nrseq.
* >> Início da inclusão: FORM CARREGA_ASSOCIACAO
AUTHORITY-CHECK OBJECT 'F_BKPF_BUK' ID 'BUKRS'
DUMMY
ID 'ACTVT' FIELD '01'.
IF sy-subrc NE 0.
AUTHORITY-CHECK OBJECT 'F_BKPF_BUK' ID 'BUKRS' FIELD
wa_zycat030-bukrs
ID 'ACTVT' FIELD '01'.
IF sy-subrc NE 0.
wa_retorno-campo = text-012.
CONCATENATE text-e13 wa_zycat030-bukrs
INTO wa_retorno-msg SEPARATED BY space.
APPEND wa_retorno TO p_retorno.
CONTINUE.
ENDIF.
ELSE.
AUTHORITY-CHECK OBJECT 'F_BKPF_BUK' ID 'BUKRS' FIELD
wa_zycat030-bukrs
ID 'ACTVT' FIELD '01'.
IF sy-subrc NE 0.
wa_retorno-campo = text-012.
CONCATENATE text-e13 wa_zycat030-bukrs
INTO wa_retorno-msg SEPARATED BY space.
APPEND wa_retorno TO p_retorno.
CONTINUE.
ENDIF.
ENDIF.
* << Fim da inclusão
PERFORM verifica_bloqueio TABLES p_retorno
USING wa_zycat039
CHANGING v_erro.
IF NOT v_erro IS INITIAL.
CONTINUE.
ENDIF.
v_saldo = wa_zycat031-saldo - wa_zycat039-valor.
IF v_saldo < 0.
MOVE: wa_zycat039-nrseq TO wa_retorno-nrseq,
wa_zycat039-operacao TO wa_retorno-operacao,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCAR022
...
endif.
modify screen.
endloop.
clear: p_cabec, p_opera, p_enqua, p_redi.
endif.
initialization.
clear wa_variante.
v_repid = sy-repid.
wa_variante-report = v_repid.
wa_variante-username = sy-uname.
* >> Início da inclusão:
AUTHORITY-CHECK OBJECT 'S_TCODE' ID 'TCD' FIELD sy-tcode.
IF sy-subrc NE 0.
MESSAGE e015 WITH text-e10.
ENDIF.
* << Fim da inclusão
start-of-selection.
refresh itab_retorno.
if not r_contr is initial.
perform carrega_ras_rvs.
elseif not r_assoc is initial.
perform carrega_associacao.
endif.
if not itab_retorno[] is initial.
perform exibe_log.
endif.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPLZYCAGF
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: E13
Texto: (36 caracteres)
"User without permission to the compa"
Comprimento máximo: 36
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: E13
Texto: (36 caracteres)
"Usuário sem permissão para a empresa"
Comprimento máximo: 36
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/ZYCAR022
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 002
Texto: (35 caracteres)
"Messages emitted during the process"
Comprimento máximo: 37
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 002
Texto: (37 caracteres)
"Mensagens emitidas durante o processo"
Comprimento máximo: 37
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: E10
Texto: (44 caracteres)
"User does not authorization for the trasctio"
Comprimento máximo: 44
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: E10
Texto: (44 caracteres)
"Usuário não tem autorização para a transação"
Comprimento máximo: 44