Sintoma

Deleção de dados exclui todos os registros das tabelas /PWS/ZYTPT910 e /PWS/ZYTPT911.

Solução

Excluir os dados comparando o campo Data do desembaraço ou embarque com a data da tela de seleção.

Informações Complementares

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

Nota Número 02848 Data: 10/01/2007 Hora: 10:50:18

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

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

Nota Número              : 02848

Categoria                : Erro de Programa

Prioridade               : Baixa

Versão PW.TP             : 2.0

Pacote                   : 00024

Agrupamento              : 00005

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

DELEÇÃO DE DADOS

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

Palavras Chave:

/PWS/ZYTPT910 - /PWS/ZYTPT911 - EXCLUSÃO DE DADOS

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

Objetos da nota:

REPS /PWS/ZYTPR802

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

Modificações efetuadas em REPS /PWS/ZYTPR802

...

            AND ( sysid EQ p_sysid OR sysid EQ '' )

            AND ( ano BETWEEN s_budat-low+0(4) and s_budat-high+0(4) )

            AND ( mes BETWEEN s_budat-low+4(2) AND s_budat-high+4(2) ).

    ENDIF.

    w_cont7 = sy-dbcnt.

    WRITE: / text-016 , w_cont7,

           / sy-uline.

  ENDIF.

  IF p_ztp910 = 'X'.

    DELETE FROM /pws/zytpt910 CLIENT SPECIFIED

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

     WHERE mandt IN r_mandt.

* << Fim da exclusão

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

     WHERE mandt IN r_mandt

       AND dt_dire IN s_budat.

* << Fim da inclusão

    w_cont10 = sy-dbcnt.

    WRITE: / text-023, w_cont10,

           / sy-uline.

  ENDIF.

  IF p_ztp911 = 'X'.

    DELETE FROM /pws/zytpt911 CLIENT SPECIFIED

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

      WHERE mandt IN r_mandt.

* << Fim da exclusão

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

      WHERE mandt IN r_mandt

         AND dt_dire IN s_budat.

* << Fim da inclusão

    w_cont11 = sy-dbcnt.

    WRITE: / text-024, w_cont11,

           / sy-uline.

  ENDIF.

  IF p_ztp915 = 'X'.

    IF s_budat-high IS INITIAL.

      DELETE FROM /pws/zytpt915 CLIENT SPECIFIED

         WHERE mandt IN r_mandt

            AND bukrs_g EQ p_bukrsg

            AND ( sysid EQ p_sysid OR sysid EQ '' )

...