Sintoma

Programa esta permitindo a exclusão do BL mesmo existindo fatura.

Solução

Corrigir seleção da tabela /pws/zycit263.

Informações Complementares

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

Nota Número 05437 Data: 12/12/2007 Hora: 11:25:30

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

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

Nota Número              : 05437

Categoria                : Erro de Programa

Prioridade               : Baixa

Versão PW.CE             : 7.0

Pacote                   : 00003

Agrupamento              : 00024

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

Referência às notas relacionadas:

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

03958  - 00001 - 7.0    - 00001  - ERRO AO EXCLUIR O BL, MESMO SENDO FATURAS DO TIPO SEVIÇO

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

CORREÇÃO DA VERIFICAÇÃO DE EXISTENCIA DE FATURA NA EXCLUSÃO DO BL

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

Palavras Chave:

VERIFICA - EXISTENCIA - FATURA - EXCLUSÃO - BL

/PWS/SAPMZYCI002

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

Objetos da nota:

REPS /PWS/MZYCI002F02

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

Modificações efetuadas em REPS /PWS/MZYCI002F02

...

  ELSE.

    SELECT  * FROM /pws/zycit006

      INTO TABLE itab_zycit006

      WHERE nrseqce = /pws/zycie093-nrseqce AND

            eliminado = space

            AND tpfatura NE '11'. "#EC CI_NOFIELD

    IF NOT itab_zycit006[] IS INITIAL.

      SELECT * FROM /pws/zycit263

      INTO TABLE itab_zycit263

      FOR ALL ENTRIES IN itab_zycit006

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

      WHERE nrseq = itab_zycit006-nrseq

        AND nrseq_pgfat = itab_zycit006-nrseq_pgfat.

* << Fim da exclusão

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

      WHERE nrseq_pgfat = itab_zycit006-nrseq_pgfat.

* << Fim da inclusão

    ENDIF.

    LOOP AT itab_zycit006.

      v_tabix = sy-tabix.

      IF itab_zycit006-tpfatura EQ '01'.

        READ TABLE itab_zycit263

          WITH KEY nrseq_pgfat = itab_zycit006-nrseq_pgfat.

        IF sy-subrc NE 0.

          itab_zycit006-eliminado = 'X'.

          MODIFY itab_zycit006 INDEX v_tabix.

          MODIFY /pws/zycit006 FROM itab_zycit006.

...