PW.TP - Nota 003223
Módulo: PROCESSO IMPORTAÇÃO
Funcionalidade: Análise Oficial DIPJ
Data/Hora da Publicação: 09/03/2007 00:00:00
Data/Hora Última Alteração: 16/02/2011 09:53:55
Descrição da Nota: RELATÓRIO DIPJ
Sintoma
Preço parâmetro com base nos Dados Consolidados está incorreto para alguns métodos.
Solução
Desenvolver opção na Definição de Métodos que permite a escolha entre o Preço Parâmetro considerando
o mês 00.
Versões Tratadas
Não Usar - 2.00.0000
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 03223 Data: 09/03/2007 Hora: 13:57:01
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 03223
Categoria : Melhoria
Prioridade : Baixa
Versão PW.TP : 2.0
Pacote : 00024
Agrupamento : 00008
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
03130 - 00001 - 2.0 - 00024 - RELATÓRIO DIPJ
----------------------------------------------------------------------------------------------------
RELATÓRIO DIPJ
----------------------------------------------------------------------------------------------------
Palavras Chave:
RELATÓRIO DIPJ - PREÇO PARÂMETRO COM OU SEM MÊS 00
----------------------------------------------------------------------------------------------------
Objetos da nota:
DOMD /PWS/ZYTPD400
REPS /PWS/ZYTPR042
REPS /PWS/ZYTPR043
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DOMD /PWS/ZYTPD400
------------------------------------------------------------------------
Domínio modificado: /PWS/ZYTPD400
-Valores individuais
Incluído valor fixo "11"
Texto modificado, idioma: PT (52 caracteres):
"Preço Parâmetro - /PWS/ZYTPT902 Inclusive Período 00"
Excluído valor fixo "03"
Incluído valor fixo "03"
Texto modificado, idioma: PT (33 caracteres):
"Total da Operação - /PWS/ZYTPT902"
Excluído valor fixo "04"
Incluído valor fixo "04"
Texto modificado, idioma: PT (37 caracteres):
"Preço Mercado Interno - /PWS/ZYTPT902"
Excluído valor fixo "05"
Incluído valor fixo "05"
Texto modificado, idioma: PT (60 caracteres):
"Preço Parâmetro - /PWS/ZYTPT902 Verificando Lista de Revenda"
Excluído valor fixo "06"
Incluído valor fixo "06"
Texto modificado, idioma: PT (50 caracteres):
"Preço Parâmetro - /PWS/ZYTPT904 - Lista de Consumo"
Excluído valor fixo "07"
Incluído valor fixo "07"
Texto modificado, idioma: PT (31 caracteres):
"Preço Parâmetro - /PWS/ZYTPT002"
Excluído valor fixo "08"
Incluído valor fixo "08"
Texto modificado, idioma: PT (43 caracteres):
"Preço Parâmetro - /PWS/ZYTPT904 - Acumulada"
Excluído valor fixo "10"
Incluído valor fixo "10"
Texto incluído, idioma: PT (31 caracteres):
"Preço Parâmetro - /PWS/ZYTPT059"
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYTPR042
...
IF sy-subrc EQ 0.
IF NOT /pws/zytpt056-fator IS INITIAL AND
t_007_aux-fator = fator_prtc.
<valor> = <valor> * /pws/zytpt056-fator.
ENDIF.
ADD: <valor> TO p_calc-valor_prtc,
p_902-menge TO p_calc-qtd_prtc.
MOVE-CORRESPONDING p_902 TO w_902_key.
APPEND w_902_key TO t_detalhe-t_902.
ENDIF.
* >> Início da exclusão: FORM CALCULAR_METODO
WHEN '2'.
* << Fim da exclusão
* >> Início da inclusão: FORM CALCULAR_METODO
WHEN '2'
OR '11'.
IF t_007_aux-tipo = '2' AND p_902-mes = '00'.
CONTINUE.
ENDIF.
* << Fim da inclusão
ASSIGN COMPONENT t_007_aux-campo
OF STRUCTURE p_902 TO <valor>.
IF sy-subrc EQ 0.
ADD: <valor> TO p_calc-valor_param,
p_902-menge TO p_calc-qtd_param.
MOVE-CORRESPONDING p_902 TO w_902_key.
APPEND w_902_key TO t_detalhe-t_902.
ENDIF.
WHEN '3'.
IF p_safe = 'X'.
...
...
ENDIF.
CHECK p_calc-safe_90 < safe_90.
CHECK p_calc-preco_param > p_calc-preco_prtc.
PERFORM verificar_margem
USING p_001-cod_metodo
p_901-grupo
p_901-matnr
CHANGING v_margem.
p_calc-valor_marg = p_calc-preco_param -
( p_calc-preco_param * ( v_margem / 100 ) ).
* >> Início da exclusão: FORM CALCULAR_METODO
IF NOT p_calc-preco_prtc IS INITIAL.
CLEAR p_calc-margem_div.
p_calc-margem_div =
( ( p_calc-preco_prtc / p_calc-preco_param ) - 1 ) * 100.
ENDIF.
* << Fim da exclusão
IF p_calc-valor_marg > p_calc-preco_prtc.
p_calc-preco_ajus = p_calc-preco_param - p_calc-preco_prtc.
p_calc-valor_ajus = p_calc-preco_ajus * p_calc-qtd_ajus.
ENDIF.
ELSE.
IF NOT p_calc-preco_param IS INITIAL.
p_calc-margem_div =
( ( p_calc-preco_prtc / p_calc-preco_param ) - 1 ) * 100.
ENDIF.
IF p_calc-preco_param < p_calc-preco_prtc.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYTPR043
...
praticado = 'X'.
EXIT.
ENDLOOP.
IF praticado = 'X'.
EXIT.
ENDIF.
ENDLOOP.
IF praticado = 'X'.
LOOP AT t_007 WHERE cod_metodo = p_001-cod_metodo
AND tipo <> '1' AND tipo <> '9'.
* >> Início da exclusão: FORM VERIFICAR_METODOS
IF t_007-tipo = '2' OR t_007-tipo = '10'.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICAR_METODOS
IF t_007-tipo = '2' OR t_007-tipo = '10' OR t_007-tipo = '11'.
* << Fim da inclusão
LOOP AT t_902 WHERE matnr IN p_matnr
AND processo = t_007-processo.
* >> Início da inclusão: FORM VERIFICAR_METODOS
IF t_902-mes = '00' AND t_007-tipo = '11'.
CONTINUE.
ENDIF.
* << Fim da inclusão
READ TABLE t_026
WITH KEY cod_metodo = p_001-cod_metodo
processo = t_007-processo.
...