CE PLUS - Nota 012257
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 31/05/2012 00:00:00
Data/Hora Última Alteração: 14/06/2012 10:43:46
Descrição da Nota: AJUSTE PARA EXIBIÇÃO DE DESPESAS QUE NÃO SÃO BASE DE IMPOSTO
Sintoma
Despesas de Fundap estavam entrando na base de cálculo de imposto.
Solução
Ajustado programa para exibir despesas que não são base de impostos.
Versões Tratadas
9.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 12257 Data: 31/05/2012 Hora: 14:24:28
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 12257
Categoria : Melhoria
Prioridade : Baixa
Versão PW.CE : 8.0
Pacote : 00011
Agrupamento : 00116
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
12228 - 00001 - 8.0 - 00011 - AO ACESSAR A DI APÓS A CRIAÇÃO APENAS AS DESPESAS COM VALOR SÃO E
----------------------------------------------------------------------------------------------------
AJUSTE PARA EXIBIÇÃO DE DESPESAS QUE NÃO SÃO BASE DE IMPOSTO
----------------------------------------------------------------------------------------------------
Palavras Chave:
DI - EXIBIR - DESPESAS - BASE - IMPOSTOS
/PWS/SAPMZYCI023
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F03
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F03
...
IF NOT itab_zycit020[] IS INITIAL.
SELECT SINGLE land1
FROM t001
INTO t001-land1
WHERE bukrs EQ /pws/zycie085-bukrs.
SELECT * FROM /pws/zycit039 INTO TABLE itab_zycit039
FOR ALL ENTRIES IN itab_zycit020
WHERE codigo = itab_zycit020-codigo
AND land1 = t001-land1. "#EC CI_NOFIRST
ENDIF.
* >> Início da inclusão: FORM FILL_DESP
SELECT * FROM /pws/zycit019
APPENDING TABLE itab_zycit019
WHERE regio EQ v_region
AND land1 EQ t001-land1
AND basecsll EQ 'X'.
IF sy-subrc NE 0.
SELECT * FROM /pws/zycit019
APPENDING TABLE itab_zycit019
WHERE regio EQ space
AND land1 EQ t001-land1
AND basecsll EQ 'X'.
IF sy-subrc NE 0.
SELECT * FROM /pws/zycit019
APPENDING TABLE itab_zycit019
WHERE land1 EQ t001-land1
AND basecsll EQ 'X' .
ENDIF.
ENDIF.
SORT itab_zycit019 BY tpdesp.
DELETE ADJACENT DUPLICATES FROM itab_zycit019
COMPARING tpdesp.
* << Fim da inclusão
LOOP AT itab_zycit019.
CLEAR: itab_zycit049.
READ TABLE itab_zycit049 WITH KEY
tpdesp = itab_zycit019-tpdesp.
v_sub = sy-subrc.
v_idx = sy-tabix.
READ TABLE itab_zycit020 WITH KEY
codigo = itab_zycit019-codigo.
IF sy-subrc EQ 0.
itab_zycit049-baseicms = itab_zycit020-baseicms.
...