Sintoma

Era possível registrar um RE em mais de um embarque, se número do RE (NRRE) fosse diferente.

Solução

O atributo "chave" foi desmarcado para o campo NRRE. A tabela foi convertida e ativada; com isso os

registros duplicados de RE são eliminados.

Informações Complementares

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

Nota Número 04067 Data: 29/06/2007 Hora: 13:40:07

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

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

Nota Número              : 04067

Categoria                : Erro de Programa

Prioridade               : Baixa

Versão PW.CE             : 7.0

Pacote                   : 00002

Agrupamento              : 00004

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

ALTERAÇÃO NA CHAVE DA LIGAÇÃO DO EMBARQUE COM O RE

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

Palavras Chave:

/PWS/ZYCET003 EMBARQUE RE

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

Objetos da nota:

TABD /PWS/ZYCET003

Se necessário excluir os registros inválidos da tabela /PWS/ZYCET003, criar e executar o programa

abaixo antes de alterar a tabela.

REPORT z_limpa_zycet003.

DATA: BEGIN OF itab_zycet003 OCCURS 0,

        nrseq    TYPE /pws/zycet003-nrseq,

        nrseqre  TYPE /pws/zycet003-nrseqre,

        nrre     TYPE /pws/zycet003-nrre,

        nrre_116 TYPE /pws/zycet116-nrre,

      END OF itab_zycet003.

DATA: nr_exclusoes TYPE i.

PARAMETERS: testmode AS CHECKBOX.

START-OF-SELECTION.

  SELECT /pws/zycet003~nrseq

         /pws/zycet003~nrseqre

         /pws/zycet003~nrre

         /pws/zycet116~nrre

    FROM /pws/zycet003

    LEFT JOIN /pws/zycet116

           ON /pws/zycet003~nrseqre = /pws/zycet116~nrseqre

    INTO TABLE itab_zycet003

    WHERE flagemb = space.

  LOOP AT itab_zycet003.

    DELETE FROM /pws/zycet003 WHERE nrseq   = itab_zycet003-nrseq

                                AND nrseqre = itab_zycet003-nrseqre

                                AND nrre   <> itab_zycet003-nrre_116

                                AND flagemb = space.

    IF sy-subrc = 0.

      WRITE: 'Excluídos registros duplicados do embarque:',

             itab_zycet003-nrseq,

             ' RE:',

             itab_zycet003-nrre.

      ADD 1 TO nr_exclusoes.

    ENDIF.

  ENDLOOP.

  IF testmode = 'X'.

    ROLLBACK WORK.

  ENDIF.

  IF nr_exclusoes = 0.

    WRITE 'Nenhum registro excluído'.

  ENDIF.

END-OF-SELECTION.

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

Modificações efetuadas em TABD /PWS/ZYCET003

Desmarcar a opção "chave" para o campo NRRE. Ajustar e ativar a tabela (SE14).