Sintoma

Não aparece o peso líquido dos itens na adição da DI

Solução

Implementação na DI do peso dos itens por Adição

Informações Complementares

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

Nota Número 08271 Data: 02/04/2009 Hora: 16:58:03

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

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

Nota Número              : 08271

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00009

Agrupamento              : 00092

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

IMPLEMENTAÇÃO NA DI DO PESO DOS ITENS POR ADIÇÃO

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

Palavras Chave:

IMPLEMENTAÇÃO - DI - PESO -ITENS - ADIÇÃO

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

Objetos da nota:

DYNP /PWS/SAPMZYCI023                        0321

REPS /PWS/MZYCI023F01

REPS /PWS/MZYCI023X01

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

Modificações efetuadas em DYNP /PWS/SAPMZYCI023                        0321

INCLUIR FRAME "FRMPESO"

Altura                   3

Comprimento Visível      74

Linha                    19

Coluna                   2

Formato                  CHAR

Texto                    Peso

INCLUIR TEXTO "TXTPESO"

Comprimento Visível      4

Linha                    20

Coluna                   4

Formato                  CHAR

Texto                    Peso

Código função

INCLUIR CAMPO TEXTO "V_NTGEW_ADICAO"

Comprimento Visível      22

Linha                    20

Coluna                   9

Formato                  DEC

Texto                    ______________________

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

Modificações efetuadas em REPS /PWS/MZYCI023F01

...

  CLEAR:   itab_itb,       itab_zycit114b, itab_zycit115b,

           itab_zycit118b, itab_zycit121b, itab_zycit121c,

           itab_zycit124b, itab_zycit049b, itab_zycit049c,

           itab_zycit195,  itab_zycit200b,

           a_vlrtot,       a_qtdeest,      a_uqtde,

           a_vmler,        a_adbase,       rtextx, itab_mercosul,

           a_vladu  ,

           v_ttad_plan, v_itad_plan,

           v_qtd_pis, v_qtd_cof.

  CLEAR:     v_itad_real, v_ttad_real.

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

  CLEAR:   v_ntgew_adicao.

* << Fim da inclusão

  REFRESH: itab_itb,       itab_zycit114b, itab_zycit115b,

           itab_zycit118b, itab_zycit121b, itab_zycit121c,

           itab_zycit124b, itab_zycit049b, itab_zycit049c,

           itab_zycit195,  itab_zycit200b, itab_mercosul,

           rtextx.

  LOOP AT itab_it.

    IF itab_it-adicao = wa_it-adicao.

      IF NOT itab_it-qtd_iten IS INITIAL.

        CASE s_inco1_ci.

          WHEN 'C&F'.

...

...

        v_itad_plan = v_itad_plan + itab_it-netpr * itab_it-qtd_itenc3.

      ELSE.

        v_itad_plan = v_itad_plan + itab_it-netpr * itab_it-qtd_itendc3.

      ENDIF.

      IF itab_it-qtd_itend IS INITIAL.

        v_itad_real = v_itad_real + itab_it-vlreal * itab_it-qtd_itenc3.

      ELSE.

        v_itad_real = v_itad_real + itab_it-vlreal *

                                                itab_it-qtd_itendc3.

      ENDIF.

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

      v_ntgew_adicao = v_ntgew_adicao + itab_it-ntgew.

* << Fim da inclusão

    ENDIF.

    IF itab_it-qtd_itend IS INITIAL.

      v_ttad_plan = v_ttad_plan + itab_it-netpr * itab_it-qtd_itenc3.

      v_ttad_real = v_ttad_real + itab_it-vlreal * itab_it-qtd_itenc3.

    ELSE.

      v_ttad_plan = v_ttad_plan + itab_it-netpr * itab_it-qtd_itendc3.

      v_ttad_real = v_ttad_real + itab_it-vlreal * itab_it-qtd_itendc3.

    ENDIF.

  ENDLOOP.

  LOOP AT itab_itb.

...

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

Modificações efetuadas em REPS /PWS/MZYCI023X01

...

DATA: v_ordena(132) TYPE c.

DATA: BEGIN OF ittxt OCCURS 50,

            line(72),

      END OF ittxt.

DATA: BEGIN OF ittxt1 OCCURS 50,

            line(66),

      END OF ittxt1.

DATA: ittxt2 LIKE ittxt1 OCCURS 0 WITH HEADER LINE.

DATA: v_grava_ok TYPE c VALUE 'V'.

DATA   okcode       LIKE sy-ucomm.

* >> Início da inclusão:

DATA: v_ntgew_adicao LIKE /pws/zycit003-ntgew.

* << Fim da inclusão

DATA: END OF COMMON PART.