CE PLUS - Nota 003663
Módulo: DOC. EXPORTAÇÃO
Funcionalidade: Embarque
Data/Hora da Publicação: 11/05/2007 00:00:00
Data/Hora Última Alteração: 22/02/2011 10:47:54
Descrição da Nota: HABILITAR PASTA SISCOMEX NO EMBARQUE APÓS ENVIO PARA CÂMBIO
Sintoma
Após enviar um Embarque para o Câmbio os campos da pasta Siscomex não ficam habilitados.
Solução
Ajuste nas rotinas do programa para que a os campos da pasta Siscomex estejam habilitados, mesmo
após envio para o câmbio.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 03663 Data: 11/05/2007 Hora: 14:10:45
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 03663
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00001
Agrupamento : 00165
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01129 - 00001 - 6.0 - 00023 - HABILITAÇÃO DE PREENCHIMENTO DO CAMPO "DATA DE CRUZE"
----------------------------------------------------------------------------------------------------
HABILITAR PASTA SISCOMEX NO EMBARQUE APÓS ENVIO PARA CÂMBIO
----------------------------------------------------------------------------------------------------
Palavras Chave:
EMBARQUE, SISCOMEX, HABILITAR, CÂMBIO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCE003F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE003F02
...
ENDLOOP.
ENDFORM.
FORM loop_at_screen_default CHANGING wa_screen LIKE screen.
DATA: v_input TYPE c.
v_input = '1'.
IF wa_controle-edicao EQ ' '.
v_input = '0'.
ENDIF.
IF /pws/zycee001-envia_c EQ 'X'.
IF sy-dynnr NE '0105' AND
* >> Início da inclusão: FORM LOOP_AT_SCREEN_DEFAULT
sy-dynnr NE '0104' AND
* << Fim da inclusão
sy-dynnr NE '0220' AND
sy-dynnr NE '0221' AND
sy-dynnr NE '0222' AND
sy-dynnr NE '0223' AND
sy-dynnr NE '0224'.
v_input = '0'.
ENDIF.
ENDIF.
IF /pws/zycee001-sta1 EQ '4'.
v_input = '0'.
...
...
MODIFY tc_outdados-cols FROM wa_cols.
ENDLOOP.
ENDFORM.
FORM loop_at_screen_tc.
DATA: v_input LIKE screen-input.
v_input = '0'.
IF wa_controle-edicao EQ 'X'.
v_input = '1'.
ENDIF.
IF /pws/zycee001-envia_c EQ 'X'.
* >> Início da exclusão: FORM LOOP_AT_SCREEN_TC
IF sy-dynnr NE '0105'.
* << Fim da exclusão
* >> Início da inclusão: FORM LOOP_AT_SCREEN_TC
IF sy-dynnr NE '0105' AND
sy-dynnr NE '0104'.
* << Fim da inclusão
v_input = '0'.
ENDIF.
ENDIF.
IF /pws/zycee001-sta1 EQ '4'.
v_input = '0'.
ENDIF.
CASE sy-dynnr.
WHEN '0102'.
IF NOT v_rec_cont IS INITIAL.
LOOP AT SCREEN.
...
...
APPEND 'DESBLOQ' TO i_botoes.
IF wa_valores-preco_base GT itab_zycet312-wrbtr_dse.
APPEND 'F_DSEXP' TO i_botoes.
ENDIF.
ENDIF.
ENDIF.
IF /pws/zycee001-envia_c EQ 'X'.
APPEND 'ENV_CB' TO i_botoes.
APPEND 'REFRESH' TO i_botoes.
APPEND 'ELIMI' TO i_botoes.
* >> Início da exclusão: FORM EXCLUI_STATUS_GUI_0010_HDR
IF itab_zycet015[] EQ itab_zycet015_ant[] AND
* << Fim da exclusão
* >> Início da inclusão: FORM EXCLUI_STATUS_GUI_0010_HDR
IF itab_zycet015[] EQ itab_zycet015_ant[] AND
/pws/zycee003 EQ */pws/zycee003 AND
* << Fim da inclusão
/pws/zycee001-dtaverb EQ */pws/zycee001-dtaverb AND
/pws/zycee001-canal EQ */pws/zycee001-canal AND
* >> Início da exclusão: FORM EXCLUI_STATUS_GUI_0010_HDR
/pws/zycee001-dtcruze EQ */pws/zycee001-dtcruze.
* << Fim da exclusão
* >> Início da inclusão: FORM EXCLUI_STATUS_GUI_0010_HDR
/pws/zycee001-dtcruze EQ */pws/zycee001-dtcruze AND
/pws/zycee001-nrsd EQ */pws/zycee001-nrsd.
* << Fim da inclusão
APPEND 'SALVA' TO i_botoes.
...