CE PLUS - Nota 003283
Módulo: DOC. EXPORTAÇÃO
Funcionalidade: Transmissão Siscomex
Data/Hora da Publicação: 20/03/2007 00:00:00
Data/Hora Última Alteração: 03/03/2010 13:21:49
Descrição da Nota: INCLUSÃO DE VERIFICAÇÃO DE ERRO DE SENHA
Sintoma
Não havia verificação do Status do documento na Fila com Status "P" ao transmitir os documentos
para a Fila de Transmissão.
Solução
Incluído tratamento para verificar se o CPF do usuário que está transmitindo para a Fila possui
algum documento na Fila com Status "P" ao transmitir os documentos "AC" e "CAC" para a Fila de
Transmissão. Caso encontre algum documento com este Status, não deixa enviar outro documento para a
Fila enquanto não atualizar a Senha do usuário Siscomex(CPF) no SAP.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 03283 Data: 20/03/2007 Hora: 14:08:03
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 03283
Categoria : Melhoria
Prioridade : Baixa
Versão PW.CE : 6.0
Pacote : 00026
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
Texto Rápido:
INCLUSÃO DE VERIFICAÇÃO DE ERRO DE SENHA
----------------------------------------------------------------------------------------------------
Palavras Chave:
ERRO SENHA SISCOMEX FILA
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCE022F01
REPS /PWS/MZYCE105F01
REPS /PWS/MZYCE107F01
REPS /PWS/MZYCI040F03
REPS /PWS/MZYCI040I01
REPT /PWS/SAPMZYCE022
REPT /PWS/SAPMZYCE105
REPT /PWS/SAPMZYCE107
REPT /PWS/SAPMZYCI040
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE022F01
...
COMMIT WORK.
PERFORM executa_exit USING 'DSE005'.
MESSAGE i038 WITH /pws/zycee208-nrseqdse.
LEAVE PROGRAM.
ENDIF.
ELSE.
MESSAGE i016 WITH text-060 text-061.
ENDIF.
ENDFORM.
FORM dse_trans.
* >> Início da inclusão: FORM DSE_TRANS
DATA: v_subrc TYPE sy-subrc.
PERFORM verifica_erro_senha
CHANGING
v_subrc.
IF v_subrc = 0.
MESSAGE i001 WITH text-079 text-080.
EXIT.
ENDIF.
* << Fim da inclusão
CLEAR: vlines.
PERFORM verify_changes.
IF vchanged NE '1'.
CLEAR itab_zycet183_aux.
FREE : itab_zycet183_aux.
SELECT SINGLE * FROM /pws/zycet208 INTO /pws/zycee208
WHERE nrseqdse = /pws/zycee208-nrseqdse.
IF sy-subrc = 0.
SELECT SINGLE COUNT(*)
FROM /pws/zycet184
...
...
WHERE /pws/codmo = v_waers.
SELECT SINGLE ltext
FROM tcurt INTO v_moeda
WHERE waers = v_moeda AND
spras = sy-langu.
ENDIF.
ENDIF.
p_waers = v_waers.
p_moeda = v_moeda.
ENDFORM.
* >> Início da inclusão:
FORM verifica_erro_senha
CHANGING
p_subrc TYPE sy-subrc.
SELECT COUNT(*)
FROM /pws/zycet183
WHERE cpf IN ( select CPF from /PWS/ZYCET184
WHERE uname EQ sy-uname )
AND stasis EQ 'P'.
IF sy-subrc EQ 0.
p_subrc = sy-subrc.
ELSE.
SELECT COUNT(*)
FROM /pws/zycit285
WHERE cpf IN ( select CPF from /PWS/ZYCET184
WHERE uname EQ sy-uname )
AND stasis EQ 'P'.
p_subrc = sy-subrc.
ENDIF.
ENDFORM.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE105F01
...
ENDIF.
ENDFORM.
FORM comm_draft.
DATA: v_nrembarque LIKE /pws/zycet001-nrseq.
CLEAR okcode.
v_nrembarque = /pws/zycee116-nrseqre.
EXPORT v_nrembarque TO MEMORY ID'E011'.
SUBMIT /pws/zycer128 AND RETURN.
ENDFORM.
FORM comm_trans.
* >> Início da inclusão: FORM COMM_TRANS
DATA: v_subrc TYPE sy-subrc.
PERFORM verifica_erro_senha
CHANGING
v_subrc.
IF v_subrc = 0.
MESSAGE i001 WITH text-141 text-142.
EXIT.
ENDIF.
* << Fim da inclusão
DATA: v_line TYPE i,
v_texto(50) .
CLEAR : itab_zycet183_aux.
REFRESH : itab_zycet183_aux.
FREE : itab_zycet183_aux.
SELECT * FROM /pws/zycet183 INTO TABLE itab_zycet183_aux
WHERE nrchave = /pws/zycee116-nrseqre AND
nremb = /pws/zycee001-nrseq.
SORT itab_zycet183_aux BY tp_doc dtenvf dtlog.
DESCRIBE TABLE itab_zycet183_aux LINES v_line.
...
...
PERFORM data_unlock.
LEAVE PROGRAM.
ELSE.
v_tab = 'FC_CAB'.
v_dyn = '0101'.
ENDIF.
WHEN c_code_e.
LEAVE PROGRAM.
ENDCASE.
ENDFORM.
* >> Início da inclusão:
FORM verifica_erro_senha
CHANGING
p_subrc TYPE sy-subrc.
SELECT COUNT(*)
FROM /pws/zycet183
WHERE cpf IN ( select CPF from /PWS/ZYCET184
WHERE uname EQ sy-uname )
AND stasis EQ 'P'.
IF sy-subrc EQ 0.
p_subrc = sy-subrc.
ELSE.
SELECT COUNT(*)
FROM /pws/zycit285
WHERE cpf IN ( select CPF from /PWS/ZYCET184
WHERE uname EQ sy-uname )
AND stasis EQ 'P'.
p_subrc = sy-subrc.
ENDIF.
ENDFORM.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE107F01
...
ELSE.
MESSAGE i016 WITH text-069 text-070.
ENDIF.
ENDFORM.
FORM print_draft.
v_nrseq = /pws/zycee120-nrseqsd.
EXPORT v_nrseq TO MEMORY ID 'E001'.
SUBMIT /pws/zycer129 AND RETURN.
ENDFORM.
FORM transmite_dde.
* >> Início da inclusão: FORM TRANSMITE_DDE
DATA: v_subrc TYPE sy-subrc.
PERFORM verifica_erro_senha
CHANGING
v_subrc.
IF v_subrc = 0.
MESSAGE i001 WITH text-078 text-079.
EXIT.
ENDIF.
* << Fim da inclusão
CLEAR: itab_zycet183a.
FREE : itab_zycet183a.
SELECT SINGLE *
FROM /pws/zycet120
WHERE nrseqsd = /pws/zycee120-nrseqsd.
IF sy-subrc = 0.
SELECT *
FROM /pws/zycet184
INTO TABLE itab_zycet184
WHERE uname = sy-uname.
...
...
IF FOUND.
ENDIF.
ENDIF.
ENDFORM.
FORM consiste_especie.
SORT itab_zycet122 BY nrseqsd nrespec marca1.
DELETE ADJACENT DUPLICATES FROM itab_zycet122
COMPARING nrseqsd nrespec marca1.
SORT itab_zycet122 BY sequenc.
ENDFORM.
* >> Início da inclusão:
FORM verifica_erro_senha
CHANGING
p_subrc TYPE sy-subrc.
SELECT COUNT(*)
FROM /pws/zycet183
WHERE cpf IN ( select CPF from /PWS/ZYCET184
WHERE uname EQ sy-uname )
AND stasis EQ 'P'.
IF sy-subrc EQ 0.
p_subrc = sy-subrc.
ELSE.
SELECT COUNT(*)
FROM /pws/zycit285
WHERE cpf IN ( select CPF from /PWS/ZYCET184
WHERE uname EQ sy-uname )
AND stasis EQ 'P'.
p_subrc = sy-subrc.
ENDIF.
ENDFORM.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040F03
...
FORM check_field_0216.
LOOP AT tc_detdi2-cols INTO wa_cols2.
IF wa_cols2-screen-name EQ '/PWS/ZYCIE260-CODCOMP'.
IF /pws/zycit321-it_ge NE 'X'.
wa_cols2-invisible = 1.
MODIFY tc_detdi2-cols FROM wa_cols2.
ENDIF.
ENDIF.
ENDLOOP.
ENDFORM.
* >> Início da inclusão:
FORM verifica_erro_senha.
SELECT COUNT(*)
FROM /pws/zycet183
WHERE cpf IN ( select CPF from /PWS/ZYCET184
WHERE uname EQ sy-uname )
AND stasis EQ 'P'.
IF sy-subrc <> 0.
SELECT COUNT(*)
FROM /pws/zycit285
WHERE cpf IN ( select CPF from /PWS/ZYCET184
WHERE uname EQ sy-uname )
AND stasis EQ 'P'.
ENDIF.
ENDFORM.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040I01
...
pressed_tab_2a = ok_code2.
dynpronr2a = '0212'.
WHEN 'FS_GRAPH'.
pressed_tab_2a = ok_code2.
dynpronr2a = '0213'.
WHEN 'FS_MERC'.
PERFORM trata_tab_imp2_merc.
pressed_tab_2a = ok_code2.
dynpronr2a = '0226'.
WHEN 'COMPR'.
* >> Início da inclusão: MODULE USER_COMMAND_0200
PERFORM verifica_erro_senha.
IF sy-subrc = 0.
MESSAGE i015 WITH text-318 text-319.
EXIT.
ENDIF.
* << Fim da inclusão
SELECT SINGLE uname cpf FROM /pws/zycet184
INTO (/pws/zycet184-uname, /pws/zycet184-cpf)
WHERE uname EQ sy-uname.
IF sy-subrc EQ 0.
PERFORM envia_compr.
ELSE.
MESSAGE i015 WITH text-293 text-294.
ENDIF.
WHEN 'TRANS'.
* >> Início da inclusão: MODULE USER_COMMAND_0200
PERFORM verifica_erro_senha.
IF sy-subrc = 0.
MESSAGE i015 WITH text-318 text-319.
EXIT.
ENDIF.
* << Fim da inclusão
SELECT SINGLE uname cpf FROM /pws/zycet184
INTO (/pws/zycet184-uname, /pws/zycet184-cpf)
WHERE uname EQ sy-uname.
IF sy-subrc EQ 0.
PERFORM trata_button_trans2.
ELSE.
MESSAGE i015 WITH text-293 text-294.
ENDIF.
WHEN 'SAVE'.
PERFORM trata_button_save2 CHANGING v_erro2.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCE022
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 079
Texto: (50 caracteres)
"Não foi possível transmitir o Documento para Fila!"
Comprimento máximo: 50
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 080
Texto: (35 caracteres)
"Usuário Siscomex com Erro de Senha."
Comprimento máximo: 50
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCE105
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 141
Texto: (50 caracteres)
"Não foi possível transmitir o Documento para Fila!"
Comprimento máximo: 50
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 142
Texto: (35 caracteres)
"Usuário Siscomex com Erro de Senha."
Comprimento máximo: 50
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCE107
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 078
Texto: (50 caracteres)
"Não foi possível transmitir o Documento para Fila!"
Comprimento máximo: 50
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 079
Texto: (35 caracteres)
"Usuário Siscomex com Erro de Senha."
Comprimento máximo: 50
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCI040
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 318
Texto: (50 caracteres)
"Não foi possível transmitir o Documento para Fila!"
Comprimento máximo: 50
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 319
Texto: (35 caracteres)
"Usuário Siscomex com Erro de Senha."
Comprimento máximo: 50