Sintoma

Ajustes nos cálculos de impostos quando a DI é Granel

Solução

Atualização do programa de DI para que o sistema efetue os cálculos corretamente nos embarques a

Granel.

Informações Complementares

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

Nota Número 07299 Data: 11/09/2008 Hora: 10:51:39

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

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

Nota Número              : 07299

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 7.0

Pacote                   : 00006

Agrupamento              : 00064

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

Referência às notas relacionadas:

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

05431  - 00001 - 7.0    - 00003  - AJUSTADO REATEIO DO SEGURO NA DI PARA PROCESSOS CIF

06279  - 00002 - 7.0    - 00005  - CODE INSPECTOR REPORTS CRYSTAL

07225  - 00003 - 7.0    - 00006  - VALOR DA TOTAL DA MERCADORIA MUDA APÓS SALVAR A DI

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

AJUSTES NOS CÁLCULOS DE IMPOSTOS QUANDO A DI É GRANEL

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

Palavras Chave:

DI - GRANEL - CÁLCULO - IMPOSTO - ICMS

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

Objetos da nota:

REPS /PWS/MZYCI023F01

REPS /PWS/MZYCI023F03

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

Modificações efetuadas em REPS /PWS/MZYCI023F01

...

FORM verify_changes.

  CLEAR v_changed.

  CHECK v_acto EQ 'A'.

  CLEAR:   itab_zycit100, itab_zycit003.

  REFRESH: itab_zycit100, itab_zycit003, itab_zycit049di2.

  LOOP AT itab_it.

    MOVE-CORRESPONDING itab_it TO itab_zycit100.

    APPEND itab_zycit100.

  ENDLOOP.

  LOOP AT itab_it.

      MOVE-CORRESPONDING itab_it TO itab_zycit003.

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

      SELECT SINGLE qtd_iten vlreal ntgewd FROM /pws/zycit003 INTO

    (itab_zycit003-qtd_iten, itab_zycit003-vlreal, itab_zycit003-ntgewd)

         WHERE nrseq EQ itab_it-nrseq

         AND   ebeln EQ itab_it-ebeln

         AND   ebelp EQ itab_it-ebelp.

* << Fim da inclusão

    APPEND itab_zycit003.

  ENDLOOP.

...

...

          itab_zycit013-uebto  TO itab_zycit003-uebto,

          itab_zycit013-uebtk  TO itab_zycit003-uebtk,

          'X'                  TO itab_zycit003-noinitial.

    CLEAR itab_it.

    READ TABLE itab_it WITH KEY

                      nrseq   = itab_zycit003-nrseq

                      ebeln   = itab_zycit003-ebeln

                      ebelp   = itab_zycit003-ebelp.

    v_sub = sy-subrc.

    v_idx = sy-tabix.

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

    IF NOT itab_zycit003-qtd_itend IS INITIAL.

      itab_zycit003-qtd_iten = itab_zycit003-qtd_itend.

      MODIFY itab_zycit003.

    ENDIF.

* << Fim da exclusão

    MOVE-CORRESPONDING itab_zycit003 TO itab_it.

    itab_it-meinscom  = itab_zycit003-meins.

    itab_it-slqtde    = itab_zycit003-slqtde.

    itab_it-basred    = itab_zycit003-basred.

    itab_it-nrseqdi   = /pws/zycie085-nrseqdi.

    itab_it-waersreal = wa_zycbt007-waersb.

    itab_it-waersbem = itab_zycit003-waers_real.

    IF itab_it-advalii  IS INITIAL.

      itab_it-advalii  = itab_zycit003-advalii.

    ELSE.

...

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

Modificações efetuadas em REPS /PWS/MZYCI023F03

...

  ELSE.

    IF s_inco1_ci EQ 'CIF'.

      v_tcfr =  /pws/zycie085-vlfob + v_sgtofat + v_bltofat.

      v_cfr = t_vmle .

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

    ELSEIF s_inco1_ci EQ 'C&F'.

* << Fim da exclusão

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

    ELSE.

* << Fim da inclusão

      v_tcfr = s_fbvr_s_d   .

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

      v_cfr = t_ivmle + t_ivfre.

    ELSE.

      v_tcfr = s_fbvr_s_d.

      v_cfr = t_ivmle.

* << Fim da exclusão

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

      v_cfr = t_ivmle .

* << Fim da inclusão

    ENDIF.

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

  v_cfr = v_cfr + v_diftern.

* << Fim da inclusão

  ENDIF.

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

  v_cfr = v_cfr + v_diftern.

* << Fim da exclusão

ENDFORM.

...