Sintoma

O campo "DESP. NORMA COANA 03/2000" está sendo informado no embarque porém quando o sistema cria a

nota fiscal esta informação não está sendo levada para os dados adicionais.

Solução

Atualização do programa da DI para somar as despesas com base de II e ICMS na pasta mensagem da Nota

Fiscal Global.

Informações Complementares

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

Nota Número 02830 Data: 08/01/2007 Hora: 12:02:54

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

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

Nota Número              : 02830

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00026

Agrupamento              : 00146

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

AJUSTES PARA SOMA DE DESPESAS COM BASE DE II NA MENSAGEM DA NF

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

Palavras Chave:

FORM LOAD_ITAX, FORM MENSAGENS_NF, ITAB_ZYCIT020-BASEICMS, ITAB_ZYCIT049

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

Objetos da nota:

REPS /PWS/MZYCI016F01

REPS /PWS/MZYCI023F01

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

Modificações efetuadas em REPS /PWS/MZYCI016F01

...

                  v_vldp  = v_vldp + v_vldp_aux *

                          ( itab_zycit003_mark-vlreal *

                          itab_zycit003_mark-qtd_iten / v_tot_real ).

                ENDIF.

              ENDIF.

            ENDIF.

          ENDIF.

        ENDIF.

      ENDLOOP.

    ENDIF.

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

    IF itab_zycit020-baseicms = 'X'.

* << Fim da exclusão

      MOVE : itab_zycit049_aux_r-descr TO v_descr,

             v_vldp  TO v_vldp_x.

      CONCATENATE v_descr v_tamanho INTO v_descr.

   CONCATENATE v_descr v_vldp_x INTO it_zycee006-msg SEPARATED BY space.

      APPEND it_zycee006.

      v_ind = v_ind + 1.

      CLEAR v_vldp.

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

    ENDIF.

* << Fim da exclusão

  ENDLOOP.

  CLEAR: v_vlpis, v_vlcofins.

  LOOP AT itab_zycit042_mark.

    READ TABLE itab_zycit100 WITH KEY

                                   nrseq = itab_zycit042_mark-nrseq

                                   ebeln = itab_zycit042_mark-ebeln

                                   ebelp = itab_zycit042_mark-ebelp  .

    IF sy-subrc EQ 0

     AND NOT itab_zycit100-codregtripiscofi EQ '5'.

      v_vlpis = v_vlpis + itab_zycit100-vlpis.

...

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

Modificações efetuadas em REPS /PWS/MZYCI023F01

...

      t_vmle = t_vmle + ( /pws/zycie003-ntgew / v_ntgew ) * v_dif_frn.

    ENDIF.

  ELSE.

    IF NOT v_dif_frn IS INITIAL.

      t_vmle = t_vmle + ( /pws/zycie003-ntgew / v_ntgew ) * v_dif_frn.

    ENDIF.

    t_ivmle2 = t_vmle2 * /pws/zycie100a-dttaxbem.

  ENDIF.

  IF s_inco1_ci NE 'FOB' AND

    v_ntgewd IS INITIAL.

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

    .

* << Fim da exclusão

    IF NOT /pws/zycie093-ternacion IS INITIAL.

      v_ternacion = /pws/zycie093-ternacion.

      PERFORM trata_decimais USING /pws/zycie085-waersfre

                                   v_ternacion   .

      IF /pws/zycie085-waersfob NE /pws/zycie093-waersfre .

        PERFORM: calc_conv_moeda:

                 USING    /pws/zycie093-waersfre

                          /pws/zycie085-waersfob

                 CHANGING v_ternacion.

        t_vmle = t_vmle - ( ( /pws/zycie003-ntgew / v_tntgew )

...

...

      ENDIF.

    ENDIF.

    IF itab_zycit049-divabs  = 'X'.

      t_ivdes3 = ( 1 / v_ipt ) * itab_zycit049-vldp.

    ELSEIF itab_zycit049-peso = 'X'.

      t_ivdes3 = ( wa_it-ntgew / v_tntgew )  * itab_zycit049-vldp.

    ELSEIF itab_zycit049-proporplan = 'X'.

      t_ivdes3 = ( v_it_plan / v_tot_plan  ) * itab_zycit049-vlreal.

    ELSE.

      t_ivdes3 = (  v_it_plan / v_tot_plan   ) * itab_zycit049-vldp.

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

    ENDIF.

    IF itab_zycit049-tipo = 'D'.

      t_ivdes2 = t_ivdes2 * -1.

      t_ivdes3 = t_ivdes3 * -1.

* << Fim da exclusão

    ENDIF.

    IF t_ivdes2 > 0.

      t_ivdesp = t_ivdesp + t_ivdes2.

    ENDIF.

    IF p_tipo = 'I'.

      IF /pws/zycie085-mdadicao = 'S'.

        IF /pws/zycie085-waersfob EQ itab_zycit049-waers.

        ENDIF.

      ENDIF.

      IF itab_zycit049-tipo = 'D'.

...