Sintoma

- Após o envio do Embarque para o Câmbio não é possível incluir RE manual na pasta Siscomex. Ao

"Salvar", o registro incluído é eliminado.

- Ao entrar em um Embarque enviado para o Câmbio, o botão "Salvar" apenas é habilitado ao processar

alteração ou teclar <enter> na pasta Siscomex.

- Não é possível incluir mais de uma RE manual.

Solução

Ajustes no programa para que seja possível a inclusão de RE manual na pasta "Siscomex" após envio

para o Câmbio. Ajustes para que o botão "Salvar" esteja habilitado após entrar no Embarque, mesmo

quando enviado ao Câmbio. Campo NRRE da tabela /pws/zycet003 marcado como campo chave.

Informações Complementares

----------------------------------------------------------------------------------------------------

Nota Número 04855 Data: 28/09/2007 Hora: 11:41:11

----------------------------------------------------------------------------------------------------

----------------------------------------------------------------------------------------------------

Nota Número              : 04855

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00003

Agrupamento              : 00014

----------------------------------------------------------------------------------------------------

Referência às notas relacionadas:

Número - Ordem - Versão - Pacote - Descrição Breve

02485  - 00001 - 6.0    - 00025  - EXCLUSÃO DE ITENS DO EMBARQUE E ITENS DA PASTA CONTAINER.

03663  - 00002 - 7.0    - 00001  - HABILITAR PASTA SISCOMEX NO EMBARQUE APÓS ENVIO PARA CÂMBIO

04067  - 00003 - 7.0    - 00002  - ALTERAÇÃO NA CHAVE DA LIGAÇÃO DO EMBARQUE COM O RE

----------------------------------------------------------------------------------------------------

PERMITIR INCLUSÃO DE RE MANUAL APÓS EMBARQUE TER SIDO ENVIADO AO CÂMBIO

----------------------------------------------------------------------------------------------------

Palavras Chave:

EMBARQUE, RE, CÂMBIO, ENVIO, INCLUSÃO, SISCOMEX, SALVAR

----------------------------------------------------------------------------------------------------

Objetos da nota:

REPS /PWS/MZYCE003F02

TABD /PWS/ZYCET003

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCE003F02

...

      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

       /pws/zycee003         EQ */pws/zycee003         AND

       /pws/zycee001-dtaverb EQ */pws/zycee001-dtaverb AND

       /pws/zycee001-canal   EQ */pws/zycee001-canal   AND

       /pws/zycee001-dtcruze EQ */pws/zycee001-dtcruze AND

       /pws/zycee001-nrsd    EQ */pws/zycee001-nrsd.

      APPEND 'SALVA'   TO i_botoes.

    ENDIF.

* << Fim da exclusão

  ELSE.

    APPEND 'REM_CB' TO i_botoes.

  ENDIF.

  IF wa_status_cab-cvinc CA 'BC' OR

     wa_status_cab-cliqu CA 'BC'.

    APPEND 'REM_CB' TO i_botoes.

  ENDIF.

  CLEAR itab_t001.

  READ TABLE itab_t001 WITH KEY bukrs = /pws/zycee001-bukrs.

  IF itab_t001-land1 NE 'BR'.

...

...

      DELETE FROM /pws/zycet002 WHERE nrseq = /pws/zycee001-nrseq.

      IF NOT itab_zycet002[] IS INITIAL.

        MODIFY /pws/zycet002 FROM TABLE itab_zycet002.

        PERFORM verifica_alteracao_bd.

        CHECK sy-subrc EQ 0.

      ENDIF.

      PERFORM exclui_items_container

              USING

                 /pws/zycee001-nrseq

                 itab_zycet002[].

* >> Início da exclusão: FORM SALVA_EMBARQUE

      PERFORM verifica_alteracao_bd.

      CHECK sy-subrc EQ 0.

      DELETE FROM /pws/zycet003 WHERE nrseq   = /pws/zycee001-nrseq AND

                                      nrseqre = space.

      IF NOT itab_zycet003[] IS INITIAL.

        MODIFY /pws/zycet003 FROM TABLE itab_zycet003.

* << Fim da exclusão

        PERFORM verifica_alteracao_bd.

        CHECK sy-subrc EQ 0.

* >> Início da exclusão: FORM SALVA_EMBARQUE

      ENDIF.

      SELECT *

             FROM /pws/zycet003

             INTO TABLE itab_zycet003

             WHERE nrseq = /pws/zycee001-nrseq.

* << Fim da exclusão

      DELETE FROM /pws/zycet008 WHERE nrseq = /pws/zycee001-nrseq.

      IF NOT itab_zycet008[] IS INITIAL.

        MODIFY /pws/zycet008 FROM TABLE itab_zycet008.

        PERFORM verifica_alteracao_bd.

        CHECK sy-subrc EQ 0.

* >> Início da inclusão: FORM SALVA_EMBARQUE

      ENDIF.

* << Fim da inclusão

      ENDIF.

* >> Início da inclusão: FORM SALVA_EMBARQUE

     DELETE FROM /pws/zycet003 WHERE nrseq   = /pws/zycee001-nrseq AND

                                     nrseqre = space.

* << Fim da inclusão

* >> Início da exclusão: FORM SALVA_EMBARQUE

    ELSE.

* << Fim da exclusão

* >> Início da inclusão: FORM SALVA_EMBARQUE

      IF NOT itab_zycet003[] IS INITIAL.

        MODIFY /pws/zycet003 FROM TABLE itab_zycet003.

        PERFORM verifica_alteracao_bd.

        CHECK sy-subrc EQ 0.

      ENDIF.

* << Fim da inclusão

      SELECT *

             FROM /pws/zycet003

             INTO TABLE itab_zycet003

             WHERE nrseq = /pws/zycee001-nrseq.

* >> Início da exclusão: FORM SALVA_EMBARQUE

    ENDIF.

* << Fim da exclusão

    DELETE FROM /pws/zycet015 WHERE nrseq = /pws/zycee001-nrseq.

    IF NOT itab_zycet015[] IS INITIAL.

      MODIFY /pws/zycet015 FROM TABLE itab_zycet015.

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em TABD /PWS/ZYCET003

TABELA /PWS/ZYCET003:

Campo modificado: NRRE

Modificação: Marcar as opções Chv (chave) e Inic.