CE PLUS - Nota 007059
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Recebimento
Data/Hora da Publicação: 31/07/2008 00:00:00
Data/Hora Última Alteração: 23/02/2011 09:56:17
Descrição da Nota: CORREÇÃO DO PREENCHIMENTO DA QUANTIDADE NA UNIDADE DE PREÇO DO PEDIDO
Sintoma
M8420 QUANTIDADE EM UNIDADE DO PREÇO DO PEDIDO LEVA A HISTÓRICO DO PEDIDO INCORRETO.
Solução
Ajustado programa para utilizar a quantidade que está sendo recebida no calculo da quantidade na
unidade de preço.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07059 Data: 31/07/2008 Hora: 14:22:16
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07059
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00006
Agrupamento : 00058
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
04163 - 00001 - 7.0 - 00002 - CONVERSÃO DE UNIDADES DE MEDIDA PEDIDO
----------------------------------------------------------------------------------------------------
CORREÇÃO DO PREENCHIMENTO DA QUANTIDADE NA UNIDADE DE PREÇO DO PEDIDO
----------------------------------------------------------------------------------------------------
Palavras Chave:
QUANTIDADE - PREÇO - PEDIDO - MIRO - RECEBIMENTO
/PWS/SAPMZYCI017
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI017F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI017F01
...
LOOP AT itab_zycit031.
v_tabix = sy-tabix.
READ TABLE itab_ekpo WITH KEY ebeln = itab_zycit031-ebeln
ebelp = itab_zycit031-ebelp.
IF sy-subrc EQ 0.
v_cont = v_cont + 1.
READ TABLE itab_zycit003 WITH KEY ebeln = itab_zycit031-ebeln
ebelp = itab_zycit031-ebelp.
* >> Início da exclusão: FORM FILL_DATE_MR1M
PERFORM converte_unidades USING itab_zycit003-matnr
itab_zycit003-meins
itab_ekpo-bprme
CHANGING itab_zycit003-menge.
itab_itemdata-po_pr_qnt = itab_zycit003-menge.
* << Fim da exclusão
itab_itemdata-invoice_doc_item = v_cont .
itab_itemdata-po_number = itab_zycit031-ebeln.
itab_itemdata-po_item = itab_zycit031-ebelp.
itab_itemdata-tax_code = wa_zycit000-iva .
IF t001-land1 EQ 'CL'.
PERFORM trata_decimais USING itab_zycit031-waers
CHANGING itab_zycit031-wrbtr.
MODIFY itab_zycit031 INDEX v_tabix.
ENDIF.
itab_itemdata-item_amount = itab_zycit031-wrbtr.
itab_itemdata-quantity = itab_zycit031-menge.
itab_itemdata-po_unit = itab_zycit031-meins.
itab_itemdata-po_unit_iso = itab_zycit031-meins.
itab_itemdata-po_pr_uom = itab_ekpo-bprme .
itab_itemdata-po_pr_uom_iso = itab_ekpo-bprme .
* >> Início da inclusão: FORM FILL_DATE_MR1M
PERFORM converte_unidades USING itab_zycit003-matnr
itab_zycit003-meins
itab_ekpo-bprme
CHANGING itab_zycit031-menge.
itab_itemdata-po_pr_qnt = itab_zycit031-menge.
* << Fim da inclusão
APPEND itab_itemdata.
ENDIF.
ENDLOOP.
...