CE PLUS - Nota 012265
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DA
Data/Hora da Publicação: 04/06/2012 00:00:00
Data/Hora Última Alteração: 14/06/2012 10:48:43
Descrição da Nota: NÃO RESPEITA O VALOR POR 1000 NO PEDIDO DE COMPRA
Sintoma
Não respeita o valor por 1000 no pedido de compra
Solução
verificar o fator ao calcular o valor
Versões Tratadas
9.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 12265 Data: 04/06/2012 Hora: 11:57:12
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 12265
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 8.0
Pacote : 00011
Agrupamento : 00116
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
----------------------------------------------------------------------------------------------------
NÃO RESPEITA O VALOR POR 1000 NO PEDIDO DE COMPRA
----------------------------------------------------------------------------------------------------
Palavras Chave:
DA - PEDIDO DE COMPRA - VALOR UNITÁRIO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI070F05
REPS /PWS/MZYCI070I01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI070F05
...
MESSAGE w061 WITH text-044
itab_itens-ebeln itab_itens-ebelp
text-041.
ELSEIF itab_itens-loekz EQ 'S'.
MESSAGE w061 WITH text-247
itab_itens-ebeln itab_itens-ebelp
text-041.
ENDIF.
LOOP AT itab_zycit030.
MOVE-CORRESPONDING itab_zycit030 TO itab_zycit030_aux.
* >> Início da exclusão: FORM SELECIONAR_ITENS
IF itab_itens-bstyp = 'L'.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONAR_ITENS
IF itab_itens-bstyp = 'L' AND NOT itab_konp[] IS INITIAL.
* << Fim da inclusão
LOOP AT itab_konp
WHERE ebeln = itab_werks-ebeln
AND ebelp = itab_werks-ebelp
AND kschl = itab_zycit030-kschl.
IF NOT itab_konp-kpein IS INITIAL.
itab_zycit030_aux-valor = itab_konp-kbetr
/ itab_konp-kpein.
APPEND itab_zycit030_aux.
ENDIF.
ENDLOOP.
ELSE.
CLEAR v_ebelp.
CONCATENATE '0' itab_werks-ebelp INTO v_ebelp.
LOOP AT itab_komv
WHERE kposn EQ v_ebelp
AND kschl EQ itab_zycit030-kschl
AND ebeln EQ itab_werks-ebeln.
* >> Início da exclusão: FORM SELECIONAR_ITENS
IF NOT itab_werks-menge IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONAR_ITENS
IF itab_itens-bstyp = 'L' AND
NOT itab_komv-kbetr IS INITIAL AND
NOT itab_komv-kpein IS INITIAL.
itab_zycit030_aux-valor = itab_komv-kbetr
/ itab_komv-kpein.
APPEND itab_zycit030_aux.
ELSEIF NOT itab_werks-menge IS INITIAL.
* << Fim da inclusão
itab_zycit030_aux-valor = itab_komv-kwert /
* >> Início da exclusão: FORM SELECIONAR_ITENS
itab_werks-menge .
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONAR_ITENS
itab_itens-menge .
* << Fim da inclusão
APPEND itab_zycit030_aux.
ENDIF.
ENDLOOP.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI070I01
...
INTO TABLE lt_ekpo
FOR ALL ENTRIES IN itab_it
WHERE ebeln EQ itab_it-ebeln
AND ebelp EQ itab_it-ebelp.
IF NOT lt_ekpo[] IS INITIAL.
LOOP AT itab_it.
lv_tabix = sy-tabix.
READ TABLE lt_ekpo WITH KEY ebeln = itab_it-ebeln
ebelp = itab_it-ebelp.
IF sy-subrc EQ 0.
* >> Início da inclusão: MODULE ATUALIZA_ITENS
IF itab_it-vlreal IS INITIAL.
* << Fim da inclusão
itab_it-vlreal = lt_ekpo-netpr.
* >> Início da inclusão: MODULE ATUALIZA_ITENS
ENDIF.
* << Fim da inclusão
MODIFY itab_it INDEX lv_tabix.
ENDIF.
ENDLOOP.
ENDIF.
ENDIF.
ENDMODULE.