Sintoma

Custo Efetivo - Quando há ajuste do valor da mercadoria na fatura (fatura diferente de Pedido), seja

por proporção, divisão absoluta ou ajuste livre, o sistema não carrega corretamente o valor da

mercadoria (incoterms DES, CIF e CFR) para o custo efetivo. A fatura do embarque precisa ser P para

dar o erro.

Solução

Atualizado o programa de fatura para fazer o rateio corretamente.

Informações Complementares

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

Nota Número 02992 Data: 29/01/2007 Hora: 15:35:29

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

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

Nota Número              : 02992

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00026

Agrupamento              : 00150

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

FATURA NÃO RATEIA CORRETAMENTO QUANDO POR PROPORÇÃO, DIVISÃO ABSOLUTA OU

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

Palavras Chave:

FATURA - CUSTO - VLREAL - INCORRETO - RATEIO 036

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

Objetos da nota:

REPS /PWS/MZYCI003F01

REPS /PWS/MZYCI003TOP

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

Modificações efetuadas em REPS /PWS/MZYCI003F01

...

      ELSE.

        v_taxa = 1.

      ENDIF.

      v_difp = v_vlreal - v_total.

      v_tot_aux = v_tot_aux + itab_zycit003-total.

      IF v_tabix EQ v_line.

        itab_zycit003-total = itab_zycit003-total +

          ( v_vlreal - v_tot_aux ).

      ELSE.

        itab_zycit003-total = ( itab_zycit003-vlreal *

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

                               itab_zycit003-toinv ) .

* << Fim da exclusão

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

                               itab_zycit003-toinv )

                             + itab_zycit003-vlfre_aux

                             + itab_zycit003-vlseg_aux.

* << Fim da inclusão

      ENDIF.

      MODIFY itab_zycit003 TRANSPORTING vlreal total.

    ENDLOOP.

  ENDIF.

  CLEAR v_total.

  LOOP AT itab_zycit003.

    IF v_waers_diferente = 'X'.

      IF /pws/zycie006-tpfatura = '02' AND NOT

         /pws/zycit085-ukursfre IS INITIAL.

        v_taxa = /pws/zycit085-ukursfre.

...

...

      WRITE v_ttotal TO v_tot_char CURRENCY /pws/zycie006-waers.

      MESSAGE s015 WITH text-019 v_tot_char.

      v_dif_saldo = 'S'.

    ENDIF.

  ELSEIF /pws/zycie006-ratval EQ '4' .

    CLEAR v_dif_saldo.

  ENDIF.

ENDFORM.

FORM atualizando_total.

  DATA: v_valplan LIKE /pws/zycie003-netpr,

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

        v_vltotal LIKE /pws/zycie003-vlreal,

        v_tot_aux TYPE /pws/zycie003-vlreal.

* << Fim da exclusão

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

        v_vltotal LIKE /pws/zycie003-vlreal.

* << Fim da inclusão

  IF itab_zycit003-vlfre_aux IS INITIAL AND NOT

     itab_zycit003-vlfre_fat IS INITIAL.

    itab_zycit003-vlfre_aux = itab_zycit003-vlfre_fat.

  ENDIF.

  IF itab_zycit003-vlseg_aux IS INITIAL AND NOT

     itab_zycit003-vlseg_fat IS INITIAL.

    itab_zycit003-vlseg_aux = itab_zycit003-vlseg_fat.

  ENDIF.

  DESCRIBE TABLE itab_zycit003 LINES v_line.

  IF v_waers_diferente = 'X'.

...