Sintoma

A quantidade de anexos do RE não corresponde ao agrupamento correto por NCM + Preço FOB.

Solução

Implementação de novas condições para agrupamento de itens que antes não eram classificados.

Informações Complementares

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

Nota Número 04368 Data: 08/08/2007 Hora: 14:09:55

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

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

Nota Número              : 04368

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00002

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

Texto Rápido:

CORREÇÃO NO AGRUPAMENTO DO RE PARA NCM+PREÇO FOB

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

Palavras Chave:

AGRUPAMENTO RE NCM+PREÇO FOB

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

Objetos da nota:

FUNC /PWS/ZYCE_AGRUPA_OV_RE

REPS /PWS/MZYCE041F01

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

Modificações efetuadas em FUNC /PWS/ZYCE_AGRUPA_OV_RE

...

        FOR ALL ENTRIES IN itab_docfat

        WHERE vbeln = itab_docfat-vbeln_vf.

    ENDIF.

    LOOP AT itab_zycet118_aux1.

      v_index = sy-tabix.

      READ TABLE itab_vbap WITH KEY

                           vbeln_va = itab_zycet118_aux1-vbeln_va

                              posnr = itab_zycet118_aux1-aupos.

      IF sy-subrc = 0.

        MOVE: itab_vbap-netpr TO itab_zycet118_aux1-preco.

* >> Início da exclusão: FUNCTION /PWS/ZYCE_AGRUPA_OV_RE

        IF NOT itab_zycet118_aux1-fkimg IS INITIAL.

* << Fim da exclusão

          itab_zycet118_aux1-preuni = itab_zycet118_aux1-netpr /

                                      itab_zycet118_aux1-fkimg.

          itab_zycet118_aux1-preunifob = itab_zycet118_aux1-vfob /

                                         itab_zycet118_aux1-fkimg.

* >> Início da exclusão: FUNCTION /PWS/ZYCE_AGRUPA_OV_RE

        ENDIF.

* << Fim da exclusão

        READ TABLE itab_vbrk WITH KEY vbeln_vf =

                                       itab_zycet118_aux1-vbeln_vf.

        IF sy-subrc = 0.

...

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

Modificações efetuadas em REPS /PWS/MZYCE041F01

...

             itab_zycet002-posnr    TO itab_zycet118-posnr,

             itab_zycet002-aupos    TO itab_zycet118-aupos,

             itab_zycet002-ntgew_r  TO itab_zycet118-ntgew,

             itab_zycet002-brgew_r  TO itab_zycet118-brgew,

             itab_zycet002-vrkme    TO itab_zycet118-vrkme,

             itab_zycet002-arktx    TO itab_zycet118-dsmerc,

             itab_zycet002-matnr    TO itab_zycet118-matnr,

             itab_zycet002-gewei    TO itab_zycet118-gewei,

             itab_zycet002-waers    TO itab_zycet118-waers,

             itab_zycet002-waers    TO itab_zycet118-waerk,

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

             itab_zycet002-vlemb    TO itab_zycet118-netpr,

* << Fim da exclusão

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

             itab_zycet002-vlme_r   TO itab_zycet118-netpr,

             itab_zycet002-vlemb    TO itab_zycet118-vfob,

* << Fim da inclusão

             itab_zycet002-fkimg_r  TO itab_zycet118-fkimg,

             itab_zycet002-vlagente TO itab_zycet118-vlagente,

             'I'                    TO itab_zycet118-status,

             itab_zycet002-ntgew    TO itab_zycet118-saldordem.

      IF NOT itab_zycet002-vlagente_r IS INITIAL.

        MOVE itab_zycet002-vlagente_r TO itab_zycet118-vlagente.

      ENDIF.

      CLEAR itab_t604f.

      READ TABLE itab_t604f WITH KEY steuc = itab_zycet002-steuc.

      IF sy-subrc = 0 AND wa_zycet145-codncmre IS INITIAL.

...

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

Modificações efetuadas em REPS /PWS/LZYCEGF6F01

...

  DATA: v_ncm        LIKE /pws/zycet118-ncm,

        v_fob1       LIKE /pws/zycet118-vfob,

        v_codnrseq   TYPE i,

        v_cont_lim   LIKE /pws/zycet090-itmagrup.

  SORT itab_zycet118_aux1 BY ncm vfob preuni.

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

  CLEAR v_codnrseq.

* << Fim da inclusão

  LOOP AT itab_zycet118_aux1.

    IF NOT v_limite IS INITIAL.

      ON CHANGE OF itab_zycet118_aux1-matnr.

        v_cont_lim = v_cont_lim + 1.

      ENDON.

    ENDIF.

    v_index = sy-tabix.

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

    IF ( v_ncm   NE itab_zycet118_aux1-ncm       OR v_ncm IS INITIAL )

    OR ( v_fob1  NE itab_zycet118_aux1-preunifob OR v_fob1 IS INITIAL ).

* << Fim da exclusão

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

    IF

      ( ( v_ncm  NE itab_zycet118_aux1-ncm OR v_ncm IS INITIAL ) AND

      ( v_fob1 NE itab_zycet118_aux1-preunifob OR v_fob1 IS INITIAL ) )

    OR

      ( v_ncm  EQ itab_zycet118_aux1-ncm  AND

        v_fob1 NE itab_zycet118_aux1-preunifob ).

      v_cont_lim = 1.

* << Fim da inclusão

      CLEAR: it_zycet092, itab_auxiliar.

      PERFORM preenche_092 USING itab_zycet118_aux1

                        CHANGING itab_auxiliar.

...