Sintoma

Não é informado durante a transmissão para o SISCOMEX o CPF cadastrado na tabela /PWS/ZYCET184,

quando o processamento da transmissão é por múltiplas filas.

Solução

Implementar os ajustes constantes nesta nota de atualização.

Informações Complementares

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

Nota Número 01687 Data: 06/07/2006 Hora: 14:13:44

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

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

Nota Número              : 01687

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00024

Agrupamento              : 00121

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

Referência às notas relacionadas:

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

00244  - 00001 - 6.0    - 00021  - CORREÇÃO NO RETORNO DE DADOS DO SISCOMEX

00815  - 00002 - 6.0    - 00022  - MELHORIAS NO ROBÔ DE TRANSMISSÃO DO DRAWBACK

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

CPF NA TRANSMISSÃO PARA O SISCOMEX COM MÚLTIPLAS FILAS

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

Palavras Chave:

EXPORTAÇÃO DRAWBACK SISCOMEX MÚLTIPLAS FILAS CPF

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

Objetos da nota:

DYNP /PWS/SAPMZYCET320                       0100

REPS /PWS/MZYCET320F01

REPS /PWS/MZYCET320TOP

REPS /PWS/ZYCER171

TABD /PWS/ZYCET320

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

Modificações efetuadas em DYNP /PWS/SAPMZYCET320                       0100

Incluir um quadro na tela, com as seguintes características:

Nome......: RRE

Texto.....: Checagem_de_câmbio_-_RRE

Linha.....: 02

Coluna....: 39

CompDef...: 35

Compr.vis.: 35

Altura....: 09

Incluir duas caixas de texto com as seguintes características:

Nome......: CPF_RE

Texto.....: CPF_do_RE__________

Linha.....: 05

Coluna....: 45

CompDef...: 19

Compr.vis.: 19

Altura....: 01

Nome......: CPF_USER

Texto.....: CPF_do_usuário_____

Linha.....: 06

Coluna....: 45

CompDef...: 19

Compr.vis.: 19

Altura....: 01

Incluir dois botões de rádio com as seguintes características:

Nome......: V_CPF_RE

Linha.....: 05

Coluna....: 65

CompDef...: 01

Compr.vis.: 01

Altura....: 01

Nome......: V_CPF_USER

Linha.....: 06

Coluna....: 65

CompDef...: 01

Compr.vis.: 01

Altura....: 01

Criar um grupo para os dois botões de rádio.

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

Modificações efetuadas em REPS /PWS/MZYCET320F01

...

  IF /pws/zycet320-drawback IS INITIAL.

    CLEAR v_drw.

  ELSE.

    v_drw = 'X'.

  ENDIF.

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

  IF /pws/zycet320-rre IS INITIAL.

    v_cpf_re = 'X'.

    CLEAR v_cpf_user.

  ELSE.

    v_cpf_user = 'X'.

    CLEAR v_cpf_re.

  ENDIF.

* << Fim da inclusão

ENDFORM.

FORM atualiza_campos.

  IF v_simples = 'X'.

    /pws/zycet320-multiplas_filas = ' '.

  ELSEIF v_multiplas = 'X'.

...

...

  ENDIF.

  IF v_drw = 'X'.

    /pws/zycet320-drawback = 'X'.

  ELSE.

    /pws/zycet320-drawback = ' '.

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

  ENDIF.

  IF v_cpf_re = 'X'.

    /pws/zycet320-rre = ' '.

  ELSEIF v_cpf_user = 'X'.

    /pws/zycet320-rre = 'X'.

* << Fim da inclusão

  ENDIF.

  CLEAR v_controle.

ENDFORM.

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

Modificações efetuadas em REPS /PWS/MZYCET320TOP

...

      v_multiplas,

      v_controle,

      v_save      type c,

      v_answer    type c,

      v_exp,

* >> Início da exclusão:

      v_drw.

* << Fim da exclusão

* >> Início da inclusão:

      v_drw,

      v_cpf_re,

      v_cpf_user.

* << Fim da inclusão

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

Modificações efetuadas em REPS /PWS/ZYCER171

...

        /pws/zycet183,

        /pws/zycet208,

        /pws/zycet304,

        /pws/zycet117,

        /pws/zycet305,

* >> Início da exclusão:

        j_1bbranch.

* << Fim da exclusão

* >> Início da inclusão:

        j_1bbranch,

        /pws/zycet320.

* << Fim da inclusão

DATA: v_vlaplic LIKE /pws/zycet304-vlaplic,

      v_countfi(10) TYPE n                ,

      v_filial  LIKE /pws/zycet183-branch ,

* >> Início da exclusão:

      v_CPF     LIKE /pws/zycet183-CPF.

* << Fim da exclusão

* >> Início da inclusão:

      v_cpf     LIKE /pws/zycet183-cpf,

      v_uname   LIKE /pws/zycet184-uname,

      v_rre     LIKE /pws/zycet320-rre.

* << Fim da inclusão

DATA: BEGIN OF itab_zycet116 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycet116.

DATA: END OF itab_zycet116.

DATA: BEGIN OF itab_zycet304 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycet304.

...

...

          CLEAR v_filial.

          SELECT SINGLE j_1bbranch

                 FROM t001w

                 INTO (v_filial)

                 WHERE werks = /pws/zycet116-werks.

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

          SELECT SINGLE CPF

* << Fim da exclusão

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

          SELECT SINGLE rre

                 FROM /pws/zycet320

                 INTO v_rre.

          IF v_rre NE 'X'.

            SELECT SINGLE cpf uname

* << Fim da inclusão

                 FROM /PWS/ZYCET183

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

                 INTO (v_CPF)

* << Fim da exclusão

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

                   INTO (v_cpf, v_uname)

* << Fim da inclusão

                 WHERE TP_DOC  EQ 'RE'

                   AND NRCHAVE EQ itab_zycet116-nrseqre.

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

          ELSE.

            v_cpf = itab_user-cpf.

            v_uname = itab_user-uname.

          ENDIF.

* << Fim da inclusão

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

          IF v_CPF IS INITIAL.

* << Fim da exclusão

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

          IF v_cpf IS INITIAL OR v_uname IS INITIAL.

* << Fim da inclusão

             v_CPF = itab_user-CPF.

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

            v_uname = itab_user-uname.

* << Fim da inclusão

          ENDIF.

...

...

            /pws/zycet183-nremb      = /pws/zycet001-nrseq.

            /pws/zycet183-bukrs      = itab_zycet116-bukrs.

            /pws/zycet183-branch     = v_filial.

            /pws/zycet183-dtenvf     = sy-datum.

            /pws/zycet183-nrsiscomex = itab_zycet116-nrre.

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

            /pws/zycet183-uname      = sy-uname.

* << Fim da exclusão

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

          /pws/zycet183-uname      = v_uname.

* << Fim da inclusão

            /pws/zycet183-stasis     = 'A'.

            /pws/zycet183-prioridade = 'B'.

            INSERT /pws/zycet183.

            commit work.

            if sy-subrc eq 0.

...

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

Modificações efetuadas em TABD /PWS/ZYCET320

Incluir os seguinte campo na tabela /PWS/ZYCET320:

Campo: RRE

Chave: Não

Inic.: Não

Tipo de Campo: FLAG