CE PLUS - Nota 010119
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Custo Efetivo
Data/Hora da Publicação: 03/05/2010 00:00:00
Data/Hora Última Alteração: 22/02/2011 14:36:01
Descrição da Nota: NÃO PREENCHER MOVIMENTADO E DIFERENÇA PARA IMPOSTOS GARANTIZADOS.
Sintoma
O programa de custo está preenchendo a coluna movimentado para impostos garantizados.
Solução
Ajustado programa de custo para não preencher a coluna movimentado para os impostos com a condição
de garantizado.
Versões Tratadas
8.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 10119 Data: 03/05/2010 Hora: 14:35:11
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 10119
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00003
Agrupamento : 00020
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
05006 - 00001 - 7.0 - 00003 - AJUSTE PARA MELHORIA DE PERFORMANCE DO CUSTO
----------------------------------------------------------------------------------------------------
NÃO PREENCHER MOVIMENTADO E DIFERENÇA PARA IMPOSTOS GARANTIZADOS.
----------------------------------------------------------------------------------------------------
Palavras Chave:
CUSTO EFETIVO - VALOR - MOVIMENTADO - DIFERENÇA - GARANTIZADO - IMPOSTO
/PWS/SAPMZYCI010
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI010F03
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI010F03
...
FORM retira_imposto.
* >> Início da inclusão: FORM RETIRA_IMPOSTO
DATA: itab_zycit403 TYPE /pws/zycit403 OCCURS 0 WITH HEADER LINE.
* << Fim da inclusão
...
...
SELECT SINGLE * FROM t001w
WHERE werks = /pws/zycie001-werks.
v_clnf = 'G'.
IF itab_zycit042[] IS INITIAL AND NOT
itab_zycit003[] IS INITIAL.
READ TABLE itab_zycit003 INDEX 1.
SELECT * FROM /pws/zycit042 "#EC CI_NOFIRST
INTO TABLE itab_zycit042
WHERE nrseq EQ itab_zycit003-nrseq.
ENDIF.
* >> Início da inclusão: FORM RETIRA_IMPOSTO
SELECT * FROM /pws/zycit403 INTO TABLE itab_zycit403
WHERE nrseqdi EQ /pws/zycit085-nrseqdi.
* << Fim da inclusão
CLEAR itab_zycit398.
REFRESH itab_zycit398 .
SELECT * FROM /pws/zycit398 "#EC CI_NOWHERE
INTO TABLE itab_zycit398.
LOOP AT itab_zycit042.
CLEAR itab_zycit033.
READ TABLE itab_zycit033 WITH KEY clnf = v_clnf
tpnf = itab_zycit042-tpnf
regio = t001w-regio.
IF sy-subrc NE 0.
...
...
clnf = v_clnf.
IF sy-subrc NE 0.
READ TABLE itab_zycit398 WITH KEY
tpnf = itab_zycit042-tpnf
tributos = itab_zycit036_aux-codigo
bukrs = space.
ENDIF.
IF itab_zycit398-creditar EQ 'S'.
itab_zycit036_aux-vlmov = ' '.
itab_zycit036_aux-vldif = ' '.
* >> Início da inclusão: FORM RETIRA_IMPOSTO
MODIFY itab_zycit036_aux.
ENDIF.
ELSEIF NOT itab_zycit403[] IS INITIAL.
READ TABLE itab_zycit403
WITH KEY nrseqdi = itab_zycit042-nrseqnf
ebeln = itab_zycit036_aux-ebeln
ebelp = itab_zycit036_aux-ebelp
codigo = itab_zycit036_aux-codigo
condicoes = 'G'.
IF sy-subrc EQ 0.
CLEAR: itab_zycit036_aux-vlmov,
itab_zycit036_aux-vldif,
itab_zycit036_aux-waers_mov,
itab_zycit036_aux-waers_dif.
* << Fim da inclusão
MODIFY itab_zycit036_aux.
ENDIF.
ENDIF.
ENDLOOP.
ENDLOOP.
DATA: it_zycit265 TYPE /pws/zycit265 OCCURS 0 WITH HEADER LINE.
IF it_zycit265[] IS INITIAL AND NOT
itab_zycit003[] IS INITIAL.
READ TABLE itab_zycit003 INDEX 1.
SELECT * FROM /pws/zycit265 INTO TABLE it_zycit265 "#EC CI_NOFIRST
...