CE PLUS - Nota 011225
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Prestação de Contas
Data/Hora da Publicação: 09/06/2011 00:00:00
Data/Hora Última Alteração: 10/06/2011 16:52:11
Descrição da Nota: AJUSTE RATEIO NA PRESTAÇÃO DE CONTAS PARA EMBARQUE DE NACIONALIZAÇÃO
Sintoma
Em um processo de nacionalização de Recof(Embarque com regime 16) ao tentar contabilizar uma
prestação de contas com despesa rateada por valor real o programa exibe mensagem de erro informando
que o processo não possui fatura.
Solução
Ajustado programa para realizar o rateio pelo valor planejado em processo de nacionalização de
RECOF.
Versões Tratadas
8.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 11225 Data: 09/06/2011 Hora: 14:54:23
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 11225
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00007
Agrupamento : 00073
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01667 - 00001 - 6.0 - 00024 - O RATEIO DOS IMPOSTOS NA NF APARECE COM O MESMO VALOR PARA OS DOI
10230 - 00002 - 8.0 - 00003 - RATEIO DE DESPESA PELO VALOR CIF
----------------------------------------------------------------------------------------------------
AJUSTE RATEIO NA PRESTAÇÃO DE CONTAS PARA EMBARQUE DE NACIONALIZAÇÃO
----------------------------------------------------------------------------------------------------
Palavras Chave:
PRESTAÇÃO - CONTAS - RATEIO - PROCESSO - NACIONALIZAÇÃO - RECOF
/PWS/SAPMZYCI007
----------------------------------------------------------------------------------------------------
Objetos da nota:
FUNC /PWS/ZYCI_RATEIO_CUSTO
REPS /PWS/MZYCI007F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCI_RATEIO_CUSTO
...
WHERE inco1 = /pws/zycit001-inco1 AND
land1 EQ t001-land1. "#EC CI_NOFIRST
SELECT SINGLE * FROM /pws/zycit000
WHERE land1 EQ t001-land1.
SELECT SINGLE * FROM /pws/zycbt007
WHERE bukrs EQ v_bukrs.
SELECT * FROM /pws/zycit039
INTO TABLE itab_zycit039
WHERE codmod EQ 'D' AND
land1 EQ t001-land1.
* >> Início da inclusão: FUNCTION /PWS/ZYCI_RATEIO_CUSTO
CLEAR itab_zycit039.
IF /pws/zycit001-regime EQ '16'.
itab_zycit039-proporplan = 'X'.
MODIFY itab_zycit039 TRANSPORTING vlreal proporplan
WHERE vlreal EQ 'X'.
ENDIF.
* << Fim da inclusão
SELECT SINGLE * FROM /pws/zycit094
WHERE nrseq = itab_zycit003-nrseq. "#EC CI_NOFIRST
SELECT SINGLE * FROM /pws/zycit085
WHERE nrbl = /pws/zycit094-nrseqce. "#EC CI_NOFIELD
SELECT * FROM /pws/zycit100
INTO TABLE itab_zycit100a
WHERE nrseqdi = /pws/zycit085-nrseqdi.
IMPORT v_vinserv FROM MEMORY ID 'VINSERV'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI007F01
...
WHERE regio = adrc-region
AND baseicms EQ 'X'
AND land1 EQ t001-land1.
IF sy-subrc NE 0.
SELECT * FROM /pws/zycit020
INTO TABLE itab_zycit020
WHERE regio = space
AND baseicms EQ 'X'
AND land1 EQ t001-land1.
ENDIF.
* >> Início da exclusão: FORM VERIFICA_ITENS
IF NOT it_zycit003[] IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_ITENS
IF NOT it_zycit003[] IS INITIAL
AND /pws/zycit001-regime NE '16'.
* << Fim da inclusão
SELECT * FROM /pws/zycit263 INTO TABLE itab_zycit263
FOR ALL ENTRIES IN it_zycit003
WHERE nrseq EQ it_zycit003-nrseq
AND ebeln EQ it_zycit003-ebeln
AND ebelp EQ it_zycit003-ebelp
AND eliminado NE 'X'.
IF sy-subrc NE 0.
...