Sintoma

Ao criar, desistir e tentar novamente, nao leva todos os itens da NF

Solução

Marcar como processado somente itens com NF

Informações Complementares

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

Nota Número 12631 Data: 29/10/2012 Hora: 16:40:28

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

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

Nota Número              : 12631

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 9.0

Pacote                   : 00002

Agrupamento              : 00136

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

Referência às notas relacionadas:

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

09158  - 00001 - 8.0    - 00001  - AO CRIAR NOTA FISCAL E ABORTAR O PROCESSO ESTA GRAVANDO DOCNUM

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

AO CRIAR, DESISTIR E TENTAR NOVAMENTE, NAO LEVA TODOS OS ITENS DA NF

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

Palavras Chave:

NF - EMBARQUE - VOLTAR - CRIAR - CANCELAR - ITENS

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

Objetos da nota:

REPS /PWS/MZYCI016F01

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

Modificações efetuadas em REPS /PWS/MZYCI016F01

...

                    WHERE nrseq    EQ itab_zycit042_aux-nrseq

                      AND nfglobal EQ itab_zycit042_aux-nfglobal

                      AND tpnf     EQ itab_zycit042_aux-tpnf

                      AND lifnr    EQ itab_zycit042_aux-lifnr

                     AND j_1bbranch EQ itab_zycit042_aux-j_1bbranch

                      AND ( docnum   IS initial OR

                            docnum   = '9999999999' OR

                            docnum   = '8888888888' )

                       AND mark     =  'X'

                      AND processado = 'X'.

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

                    IF it_zycee005-belnr IS INITIAL OR

                       it_zycee005-belnr = '0000000000'.

                      itab_zycit042-processado = ''.

                      itab_zycit042-mark = ''.

                    ENDIF.

* << Fim da exclusão

                    ADD 1 TO v_contitm.

                    itab_zycit042-itmnum = v_contitm * 10.

                    MODIFY itab_zycit042 INDEX sy-tabix.

                    PERFORM atualiza_dados_nota.

                  ENDLOOP.

                  LOOP AT it_erro.

                    MESSAGE i015 WITH it_erro-msg+0(50)

                                      it_erro-msg+50(50).

                  ENDLOOP.

                  CLEAR: it_erro[].

...

...

                    ' '  '/PWS/SAPMZYCI016' /pws/zycit043-nrseq.

          ENDLOOP.

        ENDIF.

        v_status_s = 0.

        COMMIT WORK.

        IF v_modalidade NE '99' OR

         ( v_modalidade = '99' AND

           v_libera IS INITIAL ).

          PERFORM congela_despesa.

        ENDIF.

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

      ENDIF.

    ELSE.

      IF it_zycee005-belnr IS INITIAL OR

         it_zycee005-belnr = '0000000000'.

        itab_zycit042-processado = ''.

        itab_zycit042-mark = ''.

        MODIFY itab_zycit042

          TRANSPORTING processado mark

          WHERE nrseq    = itab_zycit042-nrseq

           AND nfglobal = itab_zycit042-nfglobal

            AND ebeln    = itab_zycit042-ebeln

            AND ebelp    = itab_zycit042-ebelp

            AND tpnf     = itab_zycit042-tpnf

            AND lifnr    EQ itab_zycit042-lifnr

      AND j_1bbranch EQ itab_zycit042-j_1bbranch

           AND ( docnum   IS initial OR

                 docnum   = '9999999999' OR

                 docnum = '8888888888' )

            AND mark     = 'X'

            AND processado = 'X'.

* << Fim da inclusão

      ENDIF.

    ENDIF.

  ELSE.

    READ TABLE it_zycet005 WITH KEY  tcode  = text-065

                                     tabela = text-014

                       cpochv = /pws/zycie041-nfglobal

                                          tpmsg  = 'E'.

    LOOP AT it_zycet005.

      it_erro-nrseq  = itab_zycit042-nrseq.

      it_erro-branch = itab_zycit042-j_1bbranch.

      it_erro-msg    = it_zycet005-msg.

      COLLECT it_erro.

    ENDLOOP.

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

    itab_zycit042-processado = ''.

    itab_zycit042-mark = ''.

    MODIFY itab_zycit042

     TRANSPORTING processado mark

     WHERE nrseq    = itab_zycit042-nrseq

      AND nfglobal = itab_zycit042-nfglobal

       AND ebeln    = itab_zycit042-ebeln

       AND ebelp    = itab_zycit042-ebelp

       AND tpnf     = itab_zycit042-tpnf

       AND lifnr    EQ itab_zycit042-lifnr

 AND j_1bbranch EQ itab_zycit042-j_1bbranch

      AND ( docnum   IS initial OR

            docnum   = '9999999999' OR

            docnum = '8888888888' )

       AND mark     = 'X'

       AND processado = 'X'.

* << Fim da inclusão

  ENDIF.

ENDFORM.

FORM atualiza_dados_nota_r.

  DATA:  t_fields(20) TYPE c VALUE 'J_1BNFDOC-NFENUM',

         t_fields2(20) TYPE c VALUE 'J_1BNFDOC-NFE'.

  FIELD-SYMBOLS: <nfenum> TYPE ANY,

                 <nfe> TYPE ANY.

  READ TABLE it_zycet005 WITH KEY  tcode  = text-065

                                   tabela = text-025

                                   cpochv =

...