CE PLUS - Nota 010647

Módulo: DOC. IMPORTAÇÃO

Funcionalidade: DI

Data/Hora da Publicação: 05/10/2010 00:00:00

Data/Hora Última Alteração: 23/11/2010 16:43:34

Descrição da Nota: ERRO NA DI POR FORA DO EMBARQUE

Sintoma

Quando criamos uma DI fora do Embarque, através da transação /PWS/ZYCI023_C, o programa não verifica

se as Faturas foram contabilizadas e salva a DI.

 

 

Solução

Criar a DI somente se as Faturas estiverem contabilizadas.

 

Versões Tratadas

8.0

Informações Complementares

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

Nota Número 10647 Data: 05/10/2010 Hora: 10:39:30

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

 

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

Nota Número              : 10647

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 8.0

Pacote                   : 00005

Agrupamento              : 00043

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

 

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

ERRO NA DI POR FORA DO EMBARQUE

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

Palavras Chave:

FATURA NÃO CONTABILIZADA - CRIAR DI FORA DO EMBARQUE -

CONSISTÊNCIA

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

Objetos da nota:

REPS /PWS/MZYCI023F01

REPS /PWS/MZYCI023X01

 

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

Modificações efetuadas em REPS /PWS/MZYCI023F01

 

...

      v_trunc  = trunc( v_trunc  ) .

      v_qtd_itens  = v_trunc / 10000.

      IF v_qtd_itens NE vsaldo.

        CLEAR p_v_bl.

        CLEAR v_qtd_itens.

        EXIT.

      ENDIF.

    ENDLOOP.

    CLEAR v_qtd_itens.

  ENDIF.

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

  IF NOT itab_zycit263[] IS INITIAL.

    CLEAR:   itab_zycit006_aux.

    REFRESH: itab_zycit006_aux.

    SELECT * FROM /pws/zycit006

       INTO TABLE itab_zycit006_aux

       FOR ALL ENTRIES IN itab_zycit263

       WHERE nrseq_pgfat EQ itab_zycit263-nrseq_pgfat

         AND nrseqce     EQ /pws/zycie085-nrbl.

    LOOP AT itab_zycit006_aux WHERE eliminado NE 'X'

                                AND tpfatura  EQ '01'

                                AND frpagto   NE 'A'

                                AND belnr_p   EQ space.

      SELECT SINGLE * FROM /pws/zycit132

      WHERE nrseq     EQ itab_zycit006_aux-nrseq

        AND eliminado NE 'X'

        AND belnr_p   EQ space.

      IF sy-subrc = 0.

        CLEAR p_v_bl.

      ELSE.

        SELECT SINGLE * FROM /pws/zycit132

        WHERE nrseq = itab_zycit006_aux-nrseq.

        IF sy-subrc = 0.

          SELECT SINGLE * FROM /pws/zycit132

          WHERE nrseq     EQ itab_zycit006_aux-nrseq

            AND eliminado NE 'X'.

          IF sy-subrc NE 0.

            CLEAR p_v_bl.

          ENDIF.

        ELSEIF itab_zycit006_aux-frpagto = 'N'.

          SELECT SINGLE * FROM /pws/zycit132

          WHERE nrseq     EQ itab_zycit006_aux-nrseq

            AND eliminado NE 'X'.

          IF sy-subrc NE 0.

            CLEAR p_v_bl.

          ENDIF.

        ENDIF.

      ENDIF.

    ENDLOOP.

  ENDIF.

* << Fim da inclusão

ENDFORM.

 

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

Modificações efetuadas em REPS /PWS/MZYCI023X01

 

...

DATA: v_autoriza TYPE c.

DATA: vl_erro TYPE c.

DATA: v_seqdi LIKE /pws/zycie085-nrseqdi.

DATA: e_exec_okcode.

DATA: v_nrseq    LIKE /pws/zycit094-nrseq,

      v_nrseqce  LIKE /pws/zycit093-nrseqce.

DATA v_qtd_iten LIKE /pws/zycie003-qtd_itend.

DATA: BEGIN OF itab_zycit503 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit503.

DATA END OF itab_zycit503.

* >> Início da inclusão:

DATA: BEGIN OF itab_zycit006_aux OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit006.

DATA: END OF itab_zycit006_aux.

* << Fim da inclusão

DATA: END OF COMMON PART.