CE PLUS - Nota 013804
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Recebimento
Data/Hora da Publicação: 17/03/2014 13:55:26
Data/Hora Última Alteração: 17/03/2014 13:55:26
Descrição da Nota: ERRO M8 892 NA MIRO DEVIDO AO DIAGRAMA DE REDE DO PEDIDO DE COMPRAS
Sintoma
Erro m8 892 na miro devido ao diagrama de rede do pedido de compras.
Solução
Atualizado programa para verificar parametrização da SAP de campo oculto de diagrama de rede no
pedido de compras para enviar para a bapi.
Versões Tratadas
9.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 13804 Data: 13/03/2014 Hora: 16:24:46
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 13804
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 9.0
Pacote : 00007
Agrupamento : 00170
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
06986 - 00001 - 7.0 - 00006 - PREENCHIMENTO DO DIAGRAMA DE REDE NA BAPI PARA LANÇAMENTO DA MIRO
07046 - 00002 - 7.0 - 00006 - PREENCHIMENTO DO NUMERO DE OPERAÇÃO PARA O DIAGRAMA DE REDE NA MI
09713 - 00003 - 8.0 - 00002 - QUANTIDADE NA UNIDADE DE PREÇO PARA PEDIDO SEM MATERIAL
11357 - 00004 - 8.0 - 00008 - RECEBIMENTO COM RATEIO QUANTITATIVO - DESENVOLVIMENTO ADICIONAL
12965 - 00005 - 9.0 - 00004 - PREENCHER DOC. CLIENTE NA MIRO QUANDO INFORMADO NO PEDIDO DE COMP
----------------------------------------------------------------------------------------------------
ERRO M8 892 NA MIRO DEVIDO AO DIAGRAMA DE REDE DO PEDIDO DE COMPRAS
----------------------------------------------------------------------------------------------------
Palavras Chave:
CLASSIFICAÇÃO Q - KNTTP - MIRO - ERRO
M8 892
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI017X01
REPS /PWS/MZYCI017F01
----------------------------------------------------------------------------------------------------
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,
bpumz TYPE ekpo-bpumz,
bpumn TYPE ekpo-bpumn,
* >> Início da inclusão:
knttp TYPE ekpo-knttp,
* << Fim da inclusão
vrtkz TYPE ekpo-vrtkz,
END OF itab_ekpo.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI017F01
...
FORM fill_date_mr1m.
* >> Início da inclusão: FORM FILL_DATE_MR1M
DATA: v_string TYPE t162k-faus1 .
* << Fim da inclusão
...
...
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 bpumz bpumn vrtkz
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_MR1M
SELECT ebeln ebelp bprme twrkz bpumz bpumn KNTTP vrtkz
* << Fim da inclusão
FROM ekpo INTO TABLE itab_ekpo
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.
...
...
itab_ekpo-bprme
CHANGING itab_account-po_pr_qnt.
ENDIF.
itab_account-gl_account = itab_ekkn_mult-sakto.
itab_account-costcenter = itab_ekkn_mult-kostl.
itab_account-asset_no = itab_ekkn_mult-anln1.
itab_account-sub_number = itab_ekkn_mult-anln2.
itab_account-orderid = itab_ekkn_mult-aufnr.
itab_account-sd_doc = itab_ekkn_mult-vbeln.
itab_account-sdoc_item = itab_ekkn_mult-vbelp.
* >> Início da exclusão: FORM FILL_DATE_MR1M
itab_account-network = itab_ekkn_mult-nplnr.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_MR1M
IF NOT itab_ekkn_mult-nplnr IS INITIAL .
SELECT SINGLE faus1
FROM t162k INTO v_string
WHERE knttp EQ itab_ekpo-knttp.
IF sy-subrc EQ 0.
IF v_string+19(1) NE '-' .
itab_account-network = itab_ekkn_mult-nplnr.
ENDIF.
ENDIF.
ENDIF.
* << Fim da inclusão
IF NOT itab_account-network IS INITIAL.
SELECT SINGLE vornr FROM afvc
INTO itab_account-activity
WHERE aufpl EQ itab_ekkn_mult-aufpl
AND aplzl EQ itab_ekkn_mult-aplzl.
ENDIF.
itab_account-bus_area = itab_ekkn_mult-gsber.
itab_account-profit_ctr = itab_ekkn_mult-prctr.
itab_account-wbs_elem = itab_ekkn_mult-ps_psp_pnr.
itab_account-co_area = itab_ekkn_mult-kokrs.
...