Sintoma

Padronização - Code Inspector - DI

Solução

Padronização - Code Inspector - DI

Informações Complementares

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

Nota Número 06550 Data: 12/05/2008 Hora: 13:19:16

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

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

Nota Número              : 06550

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00005

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

Texto Rápido:

PADRONIZAÇÃO - CODE INSPECTOR

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

Palavras Chave:

PADRONIZAÇÃO - CODE INSPECTOR - DI

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

Objetos da nota:

REPS /PWS/MZYCI023F04

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

Modificações efetuadas em REPS /PWS/MZYCI023F04

...

         t_vlbase   LIKE itab_memoria-baseicms  ,

         t_icmsdev  LIKE itab_memoria-vlicmsdev,

         t_vlicmsr  LIKE itab_memoria-vlicms    .

  IF NOT itab_memoria[] IS INITIAL.

    CLEAR it_words-word.

    SORT itab_memoria BY adicao ebeln ebelp.

    LOOP AT itab_memoria.

      WRITE itab_memoria-adicao TO v_aliq.

      itab_memoria1-adicao = itab_memoria2-adicao =

      itab_memoria3-adicao = v_aliq.

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

      WRITE itab_memoria-vl_aduan TO v_valor.

* << Fim da exclusão

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

      WRITE itab_memoria-vl_aduan TO v_valor CURRENCY '5'.

* << Fim da inclusão

      itab_memoria1-vl_aduan  = v_valor.

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

      WRITE itab_memoria-despii TO v_valor.

* << Fim da exclusão

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

      WRITE itab_memoria-despii TO v_valor CURRENCY '5'.

* << Fim da inclusão

      itab_memoria1-despii = v_valor.

      WRITE itab_memoria-aliqii TO v_aliq.

      itab_memoria1-aliqii = v_aliq.

      WRITE itab_memoria-aliqipi TO v_aliq.

      itab_memoria1-aliqipi = v_aliq.

      WRITE itab_memoria-aliqpis TO v_aliq.

      itab_memoria1-aliqpis = v_aliq.

      WRITE itab_memoria-aliqcof TO v_aliq.

      itab_memoria1-aliqcof = v_aliq.

      APPEND itab_memoria1.

      WRITE itab_memoria-aliqicms TO v_aliq.

      itab_memoria2-aliqicms = v_aliq.

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

      WRITE itab_memoria-vlcofins TO v_valor.

* << Fim da exclusão

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

      WRITE itab_memoria-vlcofins TO v_valor CURRENCY '5'.

* << Fim da inclusão

      itab_memoria2-vlcofins  = v_valor.

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

      WRITE itab_memoria-vlpis TO v_valor.

* << Fim da exclusão

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

      WRITE itab_memoria-vlpis TO v_valor CURRENCY '5'.

* << Fim da inclusão

      itab_memoria2-vlpis = v_valor.

      APPEND itab_memoria2.

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

      WRITE itab_memoria-baseicms TO v_valor.

* << Fim da exclusão

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

      WRITE itab_memoria-baseicms TO v_valor CURRENCY '5'.

* << Fim da inclusão

      itab_memoria3-baseicms = v_valor.

      WRITE itab_memoria-aliqicms TO v_aliq.

      itab_memoria3-aliqicms = v_aliq.

      WRITE itab_memoria-basred TO v_aliq.

      itab_memoria3-basred = v_aliq.

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

      WRITE itab_memoria-vlicmsdev TO v_valor.

* << Fim da exclusão

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

      WRITE itab_memoria-vlicmsdev TO v_valor CURRENCY '5'.

* << Fim da inclusão

      itab_memoria3-vlicmsdev = v_valor.

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

      WRITE itab_memoria-vlicms TO v_valor.

* << Fim da exclusão

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

      WRITE itab_memoria-vlicms TO v_valor CURRENCY '5'.

* << Fim da inclusão

      itab_memoria3-vlicms = v_valor.

      APPEND itab_memoria3.

      t_vl_aduan = t_vl_aduan + itab_memoria-vl_aduan  .

...

...

    it_words-word = text-244.  APPEND it_words.

    it_words-word = text-245.  APPEND it_words.

    it_words-word = text-244.  APPEND it_words.

    LOOP AT itab_memoria1.

      CLEAR it_words.

      MOVE itab_memoria1 TO it_words.

      APPEND it_words.

    ENDLOOP.

    it_words-word = text-244.  APPEND it_words.

    CLEAR itab_memoria1.

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

    WRITE t_vl_aduan TO itab_memoria1-vl_aduan.

* << Fim da exclusão

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

    WRITE t_vl_aduan TO itab_memoria1-vl_aduan CURRENCY '5'.

* << Fim da inclusão

    MOVE itab_memoria1 TO it_words.

    APPEND it_words.

    CLEAR it_words. APPEND it_words.

    it_words-word = text-246.  APPEND it_words.

    it_words-word = text-247.  APPEND it_words.

    it_words-word = text-246.  APPEND it_words.

    LOOP AT itab_memoria2.

      CLEAR it_words.

      MOVE itab_memoria2 TO it_words.

      APPEND it_words.

    ENDLOOP.

    it_words-word = text-246.  APPEND it_words.

    CLEAR itab_memoria2.

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

    WRITE t_vlpis TO itab_memoria2-vlpis.

    WRITE t_vlcofins TO itab_memoria2-vlcofins.

* << Fim da exclusão

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

    WRITE t_vlpis TO itab_memoria2-vlpis CURRENCY '5'.

    WRITE t_vlcofins TO itab_memoria2-vlcofins CURRENCY '5'.

* << Fim da inclusão

    MOVE itab_memoria2 TO it_words.

    APPEND it_words.

    CLEAR it_words. APPEND it_words.

    it_words-word = text-243.  APPEND it_words.

    it_words-word = text-248.  APPEND it_words.

    it_words-word = text-249.  APPEND it_words.

    it_words-word = text-248.  APPEND it_words.

    LOOP AT itab_memoria3.

      CLEAR it_words.

      MOVE itab_memoria3 TO it_words.

      APPEND it_words.

    ENDLOOP.

    it_words-word = text-248.  APPEND it_words.

    CLEAR itab_memoria3.

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

    WRITE t_vlbase  TO itab_memoria3-baseicms   .

    WRITE t_icmsdev TO itab_memoria3-vlicmsdev.

    WRITE t_vlicmsr TO itab_memoria3-vlicms    .

* << Fim da exclusão

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

    WRITE t_vlbase  TO itab_memoria3-baseicms CURRENCY '5'.

    WRITE t_icmsdev TO itab_memoria3-vlicmsdev CURRENCY '5'.

    WRITE t_vlicmsr TO itab_memoria3-vlicms CURRENCY '5'.

* << Fim da inclusão

    MOVE itab_memoria3 TO it_words.

    APPEND it_words.

    CLEAR it_words. APPEND it_words.

  ENDIF.

ENDFORM.