Sintoma

as despesas de frete e seguro internacionais sendo parametrizadas da mesma forma elas estão tendo

comportamentos distintos. As despesas são levadas a custo por fatura, e estão tendo tratativas

diferentes .

Solução

Limpar a variável antes de fazer os cálculos. Tratar conversão de moeda.

Informações Complementares

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

Nota Número 01100 Data: 28/03/2006 Hora: 16:29:18

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

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

Nota Número              : 01100

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 6.0

Pacote                   : 00023

Agrupamento              : 00106

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

DESPESAS DE FRETE E SEGURO SENDO TRATADOS DIFERENTES NO CUSTO

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

Palavras Chave:

DESPESA DE FRETE - SEGURO INTERNACIONAL - CUSTO EFETIVO

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

Objetos da nota:

REPS /PWS/MZYCI010F03

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

Modificações efetuadas em REPS /PWS/MZYCI010F03

...

    ENDIF.

  ENDIF.

  MOVE itab_zycit036_aux[] TO itab_zycit036_ori2[].

ENDFORM.

FORM move_plan_mov_aux.

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

  DATA: v_vlreal LIKE /pws/zycit036-vlmov.

* << Fim da inclusão

  CLEAR:  v_taxa, s_msg1.

  SELECT SINGLE land1

    FROM t001

    INTO t001-land1

    WHERE bukrs EQ /pws/zycie001-bukrs.

...

...

          itab_zycit036_aux2-waers_dif = wa_zycbt007-waersb.

        ENDIF.

        MODIFY itab_zycit036_aux2.

      ELSE.

        IF itab_zycit036_aux2-origem NE 'EST'.

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

          itab_zycit036_aux2-vldif = itab_zycit036_aux2-vlreal -

            itab_zycit036_aux2-vlmov.

* << Fim da exclusão

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

          CLEAR: v_vlreal.

          v_vlreal = itab_zycit036_aux2-vlreal.

          IF itab_zycit036_aux2-origem NE 'FAT'.

            PERFORM retorna_decimais USING itab_zycit036_aux2-waers

                CHANGING v_vlreal.

            PERFORM converter_moeda USING

                               v_vlreal

                               itab_zycit036_aux2-waers

                               wa_zycbt007-waersb

                      CHANGING v_vlreal.

          ELSE.

            READ TABLE it_zycit006_aux2 WITH KEY

                               nrseq = itab_zycit036_aux2-nrseqori.

            IF sy-subrc EQ 0 AND it_zycit006_aux2-frpagto EQ 'P'.

              v_vlreal = v_vlreal * /pws/zycit085-ukursfre .

            ELSE.

              READ TABLE it_bkpf WITH KEY

                   bukrs = it_zycit006_aux2-bukrs

                   belnr = it_zycit006_aux2-belnr_p

                   gjahr = it_zycit006_aux2-dt_belnrp(04).

              v_vlreal = v_vlreal * it_bkpf-kursf.

            ENDIF.

          ENDIF.

         itab_zycit036_aux2-vldif = v_vlreal - itab_zycit036_aux2-vlmov.

* << Fim da inclusão

          itab_zycit036_aux2-waers_dif = wa_zycbt007-waersb.

          MODIFY itab_zycit036_aux2.

        ENDIF.

      ENDIF.

    ELSE.

      IF itab_zycit036_aux2-origem NE 'EST'.

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

        itab_zycit036_aux2-vldif = itab_zycit036_aux2-vlreal -

          itab_zycit036_aux2-vlmov.

* << Fim da exclusão

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

        CLEAR: v_vlreal.

        v_vlreal = itab_zycit036_aux2-vlreal.

        IF itab_zycit036_aux2-origem NE 'FAT'.

          PERFORM retorna_decimais USING itab_zycit036_aux2-waers

              CHANGING v_vlreal.

          PERFORM converter_moeda USING

                             v_vlreal

                             itab_zycit036_aux2-waers

                             wa_zycbt007-waersb

                    CHANGING v_vlreal.

        ELSE.

          READ TABLE it_zycit006_aux2 WITH KEY

                             nrseq = itab_zycit036_aux2-nrseqori.

          IF sy-subrc EQ 0 AND it_zycit006_aux2-frpagto EQ 'P'.

            v_vlreal = v_vlreal * /pws/zycit085-ukursfre .

          ELSE.

            READ TABLE it_bkpf WITH KEY

                 bukrs = it_zycit006_aux2-bukrs

                 belnr = it_zycit006_aux2-belnr_p

                 gjahr = it_zycit006_aux2-dt_belnrp(04).

            v_vlreal = v_vlreal * it_bkpf-kursf.

          ENDIF.

        ENDIF.

        itab_zycit036_aux2-vldif = v_vlreal - itab_zycit036_aux2-vlmov.

* << Fim da inclusão

        itab_zycit036_aux2-waers_dif = wa_zycbt007-waersb.

        MODIFY itab_zycit036_aux2.

      ENDIF.

    ENDIF.

  ENDIF.

...

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

Modificações efetuadas em REPS /PWS/MZYCI010F01

   PERFORM exit_movimentado TABLES itab_zycit036_aux2

                            CHANGING v_rub.

   SELECT SINGLE * FROM /pws/zycbt007 INTO wa_zycbt007

                   WHERE bukrs EQ /pws/zycit001-bukrs.

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

   if not itab_zycit003[] is initial.

     Select * from /pws/zycit006

       into table it_zycit006_aux2

       FOR ALL ENTRIES IN itab_zycit036_aux2

       WHERE nrseq = itab_zycit036_aux2-nrseqori

         AND eliminado EQ space.

   endif.

   IF NOT it_zycit006_aux2[] IS INITIAL.

     SELECT *

       FROM bkpf

       INTO TABLE it_bkpf

       FOR ALL ENTRIES IN it_zycit006_aux2

       WHERE bukrs EQ it_zycit006_aux2-bukrs

         AND belnr EQ it_zycit006_aux2-belnr_p

         AND gjahr EQ it_zycit006_aux2-dt_belnrp(04).

   ENDIF.

* << Fim da inclusão

   LOOP AT itab_zycit036_aux2.

     PERFORM move_plan_mov_aux.

   ENDLOOP.

   SORT itab_zycit036_aux2 BY nrseq ebeln ebelp codigo origem.

 ENDFORM.                    " cod_duplicados

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

Modificações efetuadas em REPS /PWS/MZYCI010TOP

...

data: begin of itab_zyglt100 occurs 10.

        include structure /pws/zyglt100.

data: end of itab_zyglt100.

data: begin of itab_cta occurs 0.

        include structure /pws/zygle316.

data: end of itab_cta.

* >> Início da inclusão:

data: it_bkpf          like bkpf          occurs 0 with header line,

      it_zycit006_aux2 like /pws/zycit006 occurs 0 with header line.

* << Fim da inclusão

data:

  wa_zycbt007     like /pws/zycbt007,

  wa_zycbt011     like /pws/zycbt011,

  wa_zycit036     like /pws/zycit036,

  wa_tcurx        like   tcurx.

controls:

  tc_itens          type tableview using screen '0003',

  tc_embarque       type tableview using screen '0002',

  tc_despesas       type tableview using screen '0004',

  tc_desp_emb       type tableview using screen '0100',

  tc_desp_iten      type tableview using screen '0200',

...