CE PLUS - Nota 003103
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Prestação de Contas
Data/Hora da Publicação: 14/02/2007 00:00:00
Data/Hora Última Alteração: 08/03/2010 17:06:51
Descrição da Nota: PRESTAÇÃO DE CONTAS
Sintoma
O sistema está rateando as despesas da prestação de contas entre os itens de serviço + material.
Todas as despesas do processo de importação devem ser alocadas somente no item do material.
Solução
Quando selecionar os itens do Embarque, o programa deve filtrar para que não venham itens de
serviço.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 03103 Data: 14/02/2007 Hora: 16:44:55
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 03103
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 6.0
Pacote : 00026
Agrupamento : 00151
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
PRESTAÇÃO DE CONTAS
----------------------------------------------------------------------------------------------------
Palavras Chave:
RATEIO; DESPESAS; ITENS DE SERVIÇO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI007F01
REPS /PWS/MZYCI007F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI007F01
...
WHERE regio EQ space AND
land1 EQ t001-land1.
ENDIF.
SELECT SINGLE catsap FROM /pws/zycit212 INTO v_catir
WHERE impdesc = 'IRRF'.
SELECT SINGLE catsap FROM /pws/zycit212 INTO v_catin
WHERE impdesc = 'INSS'.
ENDFORM.
FORM select_embarque_itens_matuse.
SELECT * FROM /pws/zycit003 INTO TABLE it_zycit003
* >> Início da exclusão: FORM SELECT_EMBARQUE_ITENS_MATUSE
WHERE nrseq = /pws/zycie026-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECT_EMBARQUE_ITENS_MATUSE
WHERE nrseq = /pws/zycie026-nrseq
AND servico NE 'X'.
* << Fim da inclusão
IF it_zycit003[] IS INITIAL.
MESSAGE e015 WITH text-041.
ENDIF.
IF NOT it_zycit003[] IS INITIAL.
SELECT matnr ebeln ebelp j_1bmatuse knttp werks
FROM ekpo INTO TABLE it_ekpo
FOR ALL ENTRIES IN it_zycit003
WHERE ebeln = it_zycit003-ebeln
AND ebelp = it_zycit003-ebelp.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI007F02
...
INTO t001-land1
WHERE bukrs = /pws/zycie026-bukrs.
SELECT * FROM /pws/zycit039 INTO TABLE itab_zycit039
WHERE codmod EQ 'D' AND
land1 EQ t001-land1.
IF sy-subrc NE 0.
SELECT * FROM /pws/zycit039 INTO TABLE itab_zycit039
WHERE codmod EQ 'D'.
ENDIF.
SELECT * FROM /pws/zycit003 INTO TABLE it_zycit003 WHERE
* >> Início da exclusão: FORM ESTORNA_CUSTO
nrseq = /pws/zycie026-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_CUSTO
nrseq = /pws/zycie026-nrseq
AND servico NE 'X'.
* << Fim da inclusão
DESCRIBE TABLE it_zycit003 LINES v_qtdi.
SELECT * FROM /pws/zycit019 INTO TABLE it_despesa WHERE
land1 EQ t001-land1.
IF sy-subrc NE 0.
SELECT * FROM /pws/zycit019 INTO TABLE it_despesa.
ENDIF.
FREE: it_zycit027_aux2.
LOOP AT it_zycit027_aux.
MOVE-CORRESPONDING it_zycit027_aux TO it_zycit027_aux2.
CLEAR it_despesa.
...