CE PLUS - Nota 012286
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Recebimento
Data/Hora da Publicação: 13/06/2012 00:00:00
Data/Hora Última Alteração: 17/08/2012 15:35:20
Descrição da Nota: NÃO LANÇA O ELEMENTO PEP QUANDO PEDIDO POSSUI CLASSIF. CONT. SIMPLES
Sintoma
O elemento PEP não está sendo lançado quando o pedido de compra possui cassificação contabil
simples.
Solução
Ajustado programa para preencher os dados de classificação contabil no lançamento da MIRO mesmo que
o item possua classificação contabil simples.
Versões Tratadas
9.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 12286 Data: 13/06/2012 Hora: 16:55:21
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 12286
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 9.0
Pacote : 00001
Agrupamento : 00116
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
09492 - 00001 - 8.0 - 00002 - RECEBIMENTO CENARIO CHILE, LANÇA VALOR INCORRETO NA MIRO
11292 - 00002 - 8.0 - 00008 - MIRO NÃO PREENCHE OS CAMPOS FKBER E KOKRS
11357 - 00003 - 8.0 - 00008 - RECEBIMENTO COM RATEIO QUANTITATIVO - DESENVOLVIMENTO ADICIONAL
----------------------------------------------------------------------------------------------------
NÃO LANÇA O ELEMENTO PEP QUANDO PEDIDO POSSUI CLASSIF. CONT. SIMPLES
----------------------------------------------------------------------------------------------------
Palavras Chave:
RECEBIMENTO - MIRO - ELEMENTO - PEP - CASSIFICAÇÃO - CONTABIL - SIMPLES
/PWS/SAPMZYCI017
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI017F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI017F01
...
IMPORTING
v_xblnr = v_xblnr
v_zuonr = v_zuonr
v_sgtxt = v_sgtxt.
IF NOT v_xblnr IS INITIAL.
itab_itemdata-item_text = v_sgtxt.
ENDIF.
APPEND itab_itemdata.
ENDIF.
ENDLOOP.
* >> Início da exclusão: FORM FILL_DATE_MR1M
LOOP AT itab_ekpo WHERE NOT twrkz IS initial.
ENDLOOP.
IF sy-subrc = 0.
* << Fim da exclusão
IF NOT itab_ekpo[] IS INITIAL.
CLEAR: itab_ekkn_mult[], itab_ekkn_mult.
SELECT * FROM ekkn INTO TABLE itab_ekkn_mult
FOR ALL ENTRIES IN itab_ekpo
WHERE ebeln = itab_ekpo-ebeln AND
ebelp = itab_ekpo-ebelp.
IF NOT itab_ekkn_mult[] IS INITIAL.
PERFORM trata_itab_ekkn_mult.
ENDIF.
CLEAR: itab_zycit510, itab_zycit510[].
ENDIF.
LOOP AT itab_zycit031.
* >> Início da exclusão: FORM FILL_DATE_MR1M
READ TABLE itab_ekpo WITH KEY ebeln = itab_zycit031-ebeln
ebelp = itab_zycit031-ebelp
twrkz = 'X'.
LOOP AT itab_ekpo WHERE ebeln = itab_zycit031-ebeln AND
ebelp = itab_zycit031-ebelp AND
NOT twrkz IS initial.
ENDLOOP.
IF sy-subrc EQ 0.
* << Fim da exclusão
CLEAR: v_indice, lv_menge.
LOOP AT itab_ekkn_mult WHERE ebeln = itab_zycit031-ebeln AND
ebelp = itab_zycit031-ebelp.
lv_menge = lv_menge + itab_ekkn_mult-menge.
v_indice = v_indice + 1.
ENDLOOP.
CLEAR: v_cont2, v_quantity, v_amount.
LOOP AT itab_ekkn_mult WHERE ebeln = itab_zycit031-ebeln AND
ebelp = itab_zycit031-ebelp.
v_cont2 = v_cont2 + 1.
...
...
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.
itab_account-func_area = itab_ekkn_mult-fkber.
APPEND itab_account.
ENDLOOP.
* >> Início da exclusão: FORM FILL_DATE_MR1M
ENDIF.
* << Fim da exclusão
ENDLOOP.
* >> Início da exclusão: FORM FILL_DATE_MR1M
ENDIF.
* << Fim da exclusão
READ TABLE itab_zycie033 INDEX 1.
PERFORM retorna_decimais USING itab_zycie033-waers
CHANGING itab_zycie033-rmwwr.
wa_headerdata-invoice_ind = 'X'.
wa_headerdata-doc_date = itab_zycie033-bldat.
wa_headerdata-pstng_date = itab_zycie033-budat.
...