CE PLUS - Nota 004139
Módulo: DOC. EXPORTAÇÃO
Funcionalidade: Siscomex Transmissão
Data/Hora da Publicação: 10/07/2007 00:00:00
Data/Hora Última Alteração: 22/02/2011 11:47:53
Descrição da Nota: RETIFICAÇÃO DE DDE - RDE
Sintoma
Funcionalidade não prevista.
Solução
Desenvolvimento para Transmissão da RDE - Retificação de DDE.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 04139 Data: 10/07/2007 Hora: 14:08:43
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 04139
Categoria : Melhoria
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00002
Agrupamento : 00002
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
03283 - 00001 - 6.0 - 00026 - INCLUSÃO DE VERIFICAÇÃO DE ERRO DE SENHA
04098 - 00002 - 7.0 - 00002 - FUNÇÃO PARA TRANSMISSÃO DO RV E RETORNO DOS DADOS
----------------------------------------------------------------------------------------------------
RETIFICAÇÃO DE DDE - RDE
----------------------------------------------------------------------------------------------------
Palavras Chave:
RETIFICAÇÃO CANCELAMENTO DDE RDE SISCOMEX
----------------------------------------------------------------------------------------------------
Objetos da nota:
DOMD /PWS/ZYCED017
FUNC /PWS/ZYCE_RETURN_FILA
REPS /PWS/MZYCE107F01
REPS /PWS/MZYCE107TOP
REPS /PWS/MZYCE200I01
REPT /PWS/SAPMZYCE107
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DOMD /PWS/ZYCED017
------------------------------------------------------------------------
Domínio modificado: /PWS/ZYCED017
-Valores individuais
Incluído valor fixo "RDE"
Texto incluído, idioma: PT (18 caracteres):
"Retificação de DDE"
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCE_RETURN_FILA
...
dtlog = dtlog
log = log
WHERE nrchave = nrchave
AND tp_doc = tp_doc.
COMMIT WORK.
IF stasis = 'T'.
UPDATE /pws/zycet112 SET nrrv = nrsiscomex
WHERE nrseqrv = nrchave.
COMMIT WORK.
ENDIF.
* >> Início da inclusão: FUNCTION /PWS/ZYCE_RETURN_FILA
ELSEIF tp_doc = 'RDE'.
UPDATE /pws/zycet183 SET stasis = stasis
dtlog = dtlog
log = log
WHERE nrchave = nrchave
AND tp_doc = tp_doc.
COMMIT WORK.
* << Fim da inclusão
ELSEIF tp_doc = 'CO13-01'.
UPDATE /pws/zycet183 SET stasis = stasis
dtlog = dtlog
log = log
WHERE nrseq = nrseq
AND nrchave = nrchave
AND tp_doc = tp_doc.
COMMIT WORK.
IF NOT nrsd IS INITIAL.
SELECT SINGLE bukrs
...
...
OR ( stasis = 'T' AND tp_doc = 'RE12' )
OR ( stasis = 'RT' AND tp_doc = 'RE03' )
OR ( stasis = 'RT' AND tp_doc = 'RE12' )
OR ( stasis = 'RT' AND tp_doc = 'RE' ).
IF nrsiscomex NE space.
UPDATE /pws/zycet116 SET nrre = nrsiscomex
retrans = space
retificacao = space
WHERE nrseqre = nrchave.
COMMIT WORK.
* >> Início da exclusão: FUNCTION /PWS/ZYCE_RETURN_FILA
UPDATE /pws/zycet117 SET nrre = nrsiscomex
WHERE nrseqre = nrchave.
COMMIT WORK.
* << Fim da exclusão
UPDATE /pws/zycet003 SET nrre = nrsiscomex
WHERE nrseq = nremb
AND nrseqre = nrchave.
COMMIT WORK.
ENDIF.
CLEAR itab_zycet077.
REFRESH itab_zycet077.
SELECT *
FROM /pws/zycet077
INTO TABLE itab_zycet077
...
----------------------------------------------------------------------------------------------------
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 exclusão: FORM TRANSMITE_DDE
DATA: v_subrc TYPE sy-subrc.
* << Fim da exclusão
* >> Início da inclusão: FORM TRANSMITE_DDE
DATA: v_subrc TYPE sy-subrc,
v_question(90) TYPE c,
v_resp1.
* << Fim da inclusão
PERFORM verifica_erro_senha
CHANGING
v_subrc.
IF v_subrc = 0.
MESSAGE i001 WITH text-078 text-079.
EXIT.
ENDIF.
* >> Início da inclusão: FORM TRANSMITE_DDE
CLEAR verif_doc.
* << 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 sy-subrc = 0.
SELECT *
FROM /pws/zycet183
INTO TABLE itab_zycet183a
WHERE nrchave = /pws/zycee120-nrseqsd AND
* >> Início da exclusão: FORM TRANSMITE_DDE
nremb = /pws/zycee120-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM TRANSMITE_DDE
nremb = /pws/zycee120-nrseq AND
tp_doc = text-042.
* << Fim da inclusão
IF NOT sy-subrc = 0.
PERFORM check_obrig_fields.
IF v_erro NE 'S'.
PERFORM cham_prio.
ELSE.
MESSAGE w016 WITH text-016
wa_zycet120-nrseqsd
text-017.
ENDIF.
ELSE.
DESCRIBE TABLE itab_zycet183a LINES v_lines.
READ TABLE itab_zycet183a INDEX v_lines.
* >> Início da exclusão: FORM TRANSMITE_DDE
IF itab_zycet183a-stasis = text-018.
MESSAGE w016 WITH text-020
text-021
itab_zycet183a-nrsiscomex.
* << Fim da exclusão
* >> Início da inclusão: FORM TRANSMITE_DDE
IF itab_zycet183a-stasis = text-018
AND itab_zycet183a-tp_doc = text-042.
CONCATENATE text-081 text-082 INTO
v_question SEPARATED BY space.
CALL FUNCTION 'POPUP_TO_CONFIRM'
EXPORTING
text_question = v_question
text_button_1 = text-034
icon_button_1 = 'ICON_OKAY'
text_button_2 = text-035
icon_button_2 = 'ICON_CANCEL'
default_button = '1'
display_cancel_button = ' '
IMPORTING
answer = v_resp1
EXCEPTIONS
text_not_found = 1
OTHERS = 2.
IF v_resp1 = 1.
verif_doc = text-080.
PERFORM prioridade.
IF NOT v_modo_pri IS INITIAL.
PERFORM deleta_dde_rde.
PERFORM preenche_fila.
ENDIF.
ELSE.
CLEAR v_resp1.
ENDIF.
* << Fim da inclusão
ELSEIF itab_zycet183a-stasis = text-019 .
CLEAR v_text.
CONCATENATE text-022
itab_zycet183a-uname
INTO v_text
SEPARATED BY space.
MESSAGE w016 WITH text-024
text-023
itab_zycet183a-dtenvf
v_text .
...
...
PERFORM busca_sequencial.
c_uname = sy-uname.
SELECT *
INTO itab_zycet184
FROM /pws/zycet184 UP TO 1 ROWS
WHERE uname EQ c_uname.
ENDSELECT.
IF sy-subrc = 0.
READ TABLE itab_zycet184 INDEX 1.
IF itab_zycet184-flag EQ text-030.
* >> Início da inclusão: FORM PREENCHE_FILA
IF verif_doc EQ text-080.
MOVE:
text-080 TO itab_zycet183-tp_doc,
v_nrsiscomex TO itab_zycet183-nrsiscomex.
ELSE.
MOVE text-042 TO itab_zycet183-tp_doc.
ENDIF.
* << Fim da inclusão
MOVE :
v_countfi TO itab_zycet183-nrseq,
* >> Início da exclusão: FORM PREENCHE_FILA
text-042 TO itab_zycet183-tp_doc,
* << Fim da exclusão
/pws/zycee120-nrseqsd TO itab_zycet183-nrchave,
/pws/zycee120-nrseq TO itab_zycet183-nremb,
/pws/zycee120-bukrs TO itab_zycet183-bukrs,
c_filial TO itab_zycet183-branch,
sy-datlo TO itab_zycet183-dtenvf,
sy-uname TO itab_zycet183-uname,
itab_zycet184-usu_main TO itab_zycet183-usu_main,
text-029 TO itab_zycet183-stasis,
v_modo_pri TO itab_zycet183-prioridade,
itab_zycet184-cpf TO itab_zycet183-cpf.
APPEND itab_zycet183.
MODIFY /pws/zycet183 FROM TABLE itab_zycet183.
MESSAGE i016 WITH text-043 text-044.
* >> Início da inclusão: FORM PREENCHE_FILA
ELSE.
IF verif_doc EQ text-080.
MOVE:
text-080 TO itab_zycet183-tp_doc,
v_nrsiscomex TO itab_zycet183-nrsiscomex.
* << Fim da inclusão
ELSE.
* >> Início da inclusão: FORM PREENCHE_FILA
MOVE text-042 TO itab_zycet183-tp_doc.
ENDIF.
* << Fim da inclusão
MOVE :
v_countfi TO itab_zycet183-nrseq,
* >> Início da exclusão: FORM PREENCHE_FILA
text-042 TO itab_zycet183-tp_doc,
* << Fim da exclusão
/pws/zycee120-nrseqsd TO itab_zycet183-nrchave,
/pws/zycee120-nrseq TO itab_zycet183-nremb,
/pws/zycee120-bukrs TO itab_zycet183-bukrs,
c_filial TO itab_zycet183-branch,
sy-datlo TO itab_zycet183-dtenvf,
sy-uname TO itab_zycet183-uname,
itab_zycet184-usu_main TO itab_zycet183-usu_main,
text-040 TO itab_zycet183-stasis,
v_modo_pri TO itab_zycet183-prioridade,
itab_zycet184-cpf TO itab_zycet183-cpf.
...
...
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.
* >> Início da inclusão:
FORM deleta_dde_rde.
SELECT COUNT(*) FROM /pws/zycet183
WHERE nrchave = /pws/zycee120-nrseqsd.
CHECK sy-subrc = 0.
DELETE FROM /pws/zycet183
WHERE nrchave = /pws/zycee120-nrseqsd AND
tp_doc EQ text-042 OR
tp_doc = text-080.
MOVE:
/pws/zycee120-nrsd TO v_nrsiscomex,
space TO /pws/zycee120-nrsd.
UPDATE /pws/zycet120 SET nrsd = space
WHERE nrseqsd EQ /pws/zycee120-nrseqsd.
COMMIT WORK.
ENDFORM.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE107TOP
...
d_flcarga_s LIKE /pws/zycet120-flcarga,
d_flcarga_n LIKE /pws/zycet120-flcarga,
d_flccptc_s LIKE /pws/zycet120-flccptc,
d_flccptc_n LIKE /pws/zycet120-flccptc,
d_codesp LIKE /pws/zycet132-descdesp,
d_uniemb LIKE /pws/zycet132-descdesp,
d_codvias LIKE /pws/zycet139-descvias.
DATA: d_codpa(20) TYPE c,
d_instrans(5) TYPE c.
DATA: rb_sim TYPE c,
* >> Início da exclusão:
rb_nao TYPE c.
* << Fim da exclusão
* >> Início da inclusão:
rb_nao TYPE c,
verif_doc(3) TYPE c,
v_nrsiscomex LIKE /pws/zycet120-nrsd.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE200I01
...
ENDIF.
ENDIF.
WHEN 'B_LOG'.
CLEAR okcode.
CLEAR itab_zycet183_aux.
GET CURSOR FIELD v_campo VALUE v_valor LINE v_linha.
v_pos = tbcontrol-top_line + v_linha - 1.
READ TABLE itab_zycet183_aux INDEX v_pos.
IF sy-subrc = 0.
CASE itab_zycet183_aux-tp_doc.
* >> Início da exclusão: MODULE USER_COMMAND_0100
WHEN 'DDE' OR 'DSE' OR 'CRE' OR 'RC' OR 'RV'.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0100
WHEN 'DDE' OR 'DSE' OR 'CRE' OR 'RC' OR 'RV' OR 'RDE'.
* << Fim da inclusão
IF NOT itab_zycet183_aux-log IS INITIAL.
v_texto2 = v_texto = itab_zycet183_aux-log.
v_txt = 95.
DO v_txt TIMES.
IF v_texto2(1) <> ' ' OR v_texto2(1) EQ ' '.
SHIFT v_texto2.
ENDIF.
ENDDO.
v_texto1 = v_texto2.
CALL SCREEN '0200' STARTING AT 25 6
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCE107
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 080
Texto: (3 caracteres)
"RDE"
Comprimento máximo: 3
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 081
Texto: (42 caracteres)
"Documento já está registrado no Siscomex !"
Comprimento máximo: 50
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 082
Texto: (34 caracteres)
"Deseja cancelar a DDE no Siscomex?"
Comprimento máximo: 50