Sintoma

Ao realizar o recebimento de um pedido sem material e com unidade do pedido diferente da unidade de

preço o programa exibe mensagem informando que a unidade de preço não está cadastrada e a bapi da

MIRO informa que a quantidade na unidade de preso não está preenchida.

Solução

Ajustado programa para utilizar a proporção informada no pedido para calcular a quantidade na

unidade de preço.

Informações Complementares

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

Nota Número 09713 Data: 21/01/2010 Hora: 14:32:56

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

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

Nota Número              : 09713

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 8.0

Pacote                   : 00002

Agrupamento              : 00006

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

Referência às notas relacionadas:

Número - Ordem - Versão - Pacote - Descrição Breve

07059  - 00001 - 7.0    - 00006  - CORREÇÃO DO PREENCHIMENTO DA QUANTIDADE NA UNIDADE DE PREÇO DO PE

08693  - 00002 - 7.0    - 00010  - TEXTO CONTÁBIL NA MIRO PARA O RECEBIMENTO

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

QUANTIDADE NA UNIDADE DE PREÇO PARA PEDIDO SEM MATERIAL

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

Palavras Chave:

MENSAGEM - BAPI - MIRO - QUANTIDADE - UNIDADE - PREÇO - RECEBIMENTO

/PWS/SAPMZYCI017

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

Objetos da nota:

REPS /PWS/MZYCI017F01

REPS /PWS/MZYCI017X01

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

Modificações efetuadas em REPS /PWS/MZYCI017F01

...

    itab_zycit031-wrbtr  = itab_custo_item-vlmov.

    itab_zycit031-waers  = itab_custo_item-waers_mov.

    itab_zycit031-meins = itab_itens_nf-meins.

    itab_zycit031-mwskz  = wa_zycit000-iva.

    APPEND itab_zycit031.

    itab_zycie033-rmwwr = itab_custo_item-vlmov + itab_zycie033-rmwwr.

    itab_zycie033-waers = itab_custo_item-waers_mov.

  ENDLOOP.

  APPEND itab_zycie033.

  IF NOT itab_zycit031[] IS INITIAL.

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

    SELECT ebeln ebelp bprme twrkz FROM ekpo INTO TABLE itab_ekpo

* << Fim da exclusão

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

    SELECT ebeln ebelp bprme twrkz bpumz bpumn

          FROM ekpo INTO TABLE itab_ekpo

* << Fim da inclusão

      FOR ALL ENTRIES IN itab_zycit031

      WHERE ebeln = itab_zycit031-ebeln

        AND ebelp = itab_zycit031-ebelp.

  ENDIF.

  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.

...

...

      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

      IF not itab_ekpo-bpumz is initial and

         not itab_ekpo-bpumn is initial.

        itab_itemdata-po_pr_qnt = itab_zycit031-menge *

                   ( itab_ekpo-bpumz / itab_ekpo-bpumn ).

      ELSE.

* << Fim da inclusão

      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.

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

      ENDIF.

* << Fim da inclusão

      CLEAR: v_xblnr,

             v_zuonr,

...

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

Modificações efetuadas em REPS /PWS/MZYCI017X01

...

DATA: BEGIN OF itab_ekpo OCCURS 0,

         ebeln LIKE ekpo-ebeln,

         ebelp LIKE ekpo-ebelp,

         bprme LIKE ekpo-bprme,

         twrkz LIKE ekpo-twrkz,

* >> Início da inclusão:

         BPUMZ type ekpo-BPUMz,

         BPUMN type ekpo-BPUMN,

* << Fim da inclusão

      END OF itab_ekpo.

...