Sintoma

Erro na variação cambial de processo de Incoterm CIF.

Não está fazendo a variação cambial do seguro.

Solução

Corrigido o valor da variação Cambial da DSI

Informações Complementares

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

Nota Número 03163 Data: 28/02/2007 Hora: 10:38:13

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

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

Nota Número              : 03163

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 6.0

Pacote                   : 00026

Agrupamento              : 00154

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

VARIAÇÃO CAMBIAL DE DSI CIF ESTÁ INCORRETA.

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

Palavras Chave:

VARIAÇÃO CAMBIAL - DSI - VALOR CIF - VALOR SEGURO

DIFERENÇA NO ENCERRAMENTO CONTÁBIL

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

Objetos da nota:

REPS /PWS/MZYCI058F03

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

Modificações efetuadas em REPS /PWS/MZYCI058F03

...

  LOOP AT itab_zycit100.

    CLEAR: itab_matuse, itab_matuse_aux.

    READ TABLE itab_matuse WITH KEY ebeln = itab_zycit100-ebeln

                                      ebelp = itab_zycit100-ebelp.

    READ TABLE itab_matuse_aux WITH KEY

                  j_1bmatuse = itab_matuse-j_1bmatuse.

    MOVE: itab_matuse_aux-hkont TO itab_di-hkont,

          itab_zycit100-vlseg   TO itab_di-vlseg,

          itab_zycit100-vlfre   TO itab_di-vlfre.

    IF /pws/zycit031-inco1_ci = 'CIF'.

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

     itab_di-vlfob = ( itab_zycit100-dttaxbem * itab_zycit100-vlfob ) -

                                    itab_zycit100-vlseg.

* << Fim da exclusão

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

     itab_di-vlfob = ( itab_zycit100-dttaxbem * itab_zycit100-vlfob ) .

* << Fim da inclusão

    ELSE.

      itab_di-vlfob = itab_zycit100-dttaxbem * itab_zycit100-vlfob.

    ENDIF.

    itab_di-vldi = itab_di-vlfob + itab_di-vlseg + itab_di-vlfre.

    COLLECT itab_di.

    CLEAR   itab_di.

  ENDLOOP.

  CLEAR: v_rec_ia, v_rec_ia_1.

  LOOP AT itab_matuse_aux2.

    READ TABLE itab_bsis_aux WITH KEY hkont = itab_matuse_aux2-hkont.

...

...

      ENDIF.

    ELSEIF itab_bsis_aux-tpfatura = '03'.

      IF NOT /pws/zycit000-provseg IS INITIAL.

        CONTINUE.

      ENDIF.

      PERFORM get_parameters_f_51_variacao USING '001VS'.

      READ TABLE itab_zycbt012 WITH KEY

                        codaux = itab_matuse_aux2-j_1bmatuse.

      vl_variacao = itab_di-vlseg - itab_bsis_aux-dmbtr.

      IF itab_zycbe033-tcode = 'F-51'.

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

        PERFORM move_lanctos USING itab_di-vlfre.

* << Fim da exclusão

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

        PERFORM move_lanctos USING itab_di-vlseg.

* << Fim da inclusão

      ELSEIF itab_zycbe033-tcode = 'F-05'.

        PERFORM move_lanctos_f05.

      ENDIF.

    ENDIF.

  ENDLOOP.

ENDFORM.

FORM move_lanctos USING    p_valor.

  DATA: v_conta LIKE itab_matuse_aux-hkont,

        vl_variacao_aux  TYPE p DECIMALS 2,

        v_valor_variacao TYPE p DECIMALS 2,

...