Sintoma

Representação do campo Mercado Interno % está incorreta.

Solução

Multiplicar por 100 o campo Mercado Interno %.

Informações Complementares

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

Nota Número 02954 Data: 24/01/2007 Hora: 09:38:25

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

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

Nota Número              : 02954

Categoria                : Erro de Programa

Prioridade               : Baixa

Versão PW.TP             : 2.0

Pacote                   : 00024

Agrupamento              : 00006

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

RELATÓRIO DIPJ

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

Palavras Chave:

RELATÓRIO DIPJ - EXPORTAÇÃO - MERCADO INTERNO %

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

Objetos da nota:

REPS /PWS/ZYTPR042

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

Modificações efetuadas em REPS /PWS/ZYTPR042

...

      v_metodo      TYPE i,

      v_det_parc(1) TYPE c,

      v_agru(1)     TYPE c,

      v_ind(20)     TYPE c.

CONSTANTS:

           tp_revenda(1)   TYPE c VALUE '1',

           tp_consumo(1)   TYPE c VALUE '2',

           tp_acumulada(1) TYPE c VALUE '3',

           fator_prtc(1)   TYPE c VALUE '1',

           fator_safe90(1) TYPE c VALUE '2',

* >> Início da exclusão:

           safe_90(3)      TYPE p DECIMALS 2 VALUE '0.90'.

* << Fim da exclusão

* >> Início da inclusão:

           safe_90(3)      TYPE p DECIMALS 2 VALUE '90.00'.

* << Fim da inclusão

RANGES: r_matnr FOR /pws/zytpt901-matnr,

        r_campo FOR /pws/zytpt001-cmp_matn_c,

        r_pais_fav FOR /pws/zytpt003-cod_pais.

DEFINE montar_campo.

  v_ind = &2.

  shift v_ind left deleting leading space.

  concatenate &1 v_ind into &3.

END-OF-DEFINITION.

SELECTION-SCREEN BEGIN OF BLOCK a WITH FRAME TITLE text-001.

PARAMETERS: p_bukrsg LIKE /pws/zytpt021-bukrs_g OBLIGATORY,

...

...

      p_calc-preco_mi = p_calc-valor_mi / p_calc-qtd_mi.

    ENDIF.

    IF NOT p_calc-preco_mi IS INITIAL.

      IF v_fator_safe = fator_safe90

        AND NOT /pws/zytpt056-fator IS INITIAL .

        p_calc-safe_90 = ( p_calc-preco_prtc * /pws/zytpt056-fator )

                          / p_calc-preco_mi.

      ELSE.

        p_calc-safe_90 = p_calc-preco_prtc / p_calc-preco_mi.

      ENDIF.

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

      p_calc-safe_90 = p_calc-safe_90 * 100.

* << Fim da inclusão

    ENDIF.

    IF p_901-tipo = 2.

      IF NOT p_calc-preco_prtc IS INITIAL.

        CLEAR p_calc-margem_div.

        p_calc-margem_div =

        ( ( p_calc-preco_param / p_calc-preco_prtc ) - 1 ) * 100.

      ENDIF.

      CHECK p_calc-safe_90 < safe_90.

      CHECK p_calc-preco_param > p_calc-preco_prtc.

      PERFORM verificar_margem

...