CE PLUS - Nota 006487
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Recebimento
Data/Hora da Publicação: 30/04/2008 00:00:00
Data/Hora Última Alteração: 23/02/2011 09:56:02
Descrição da Nota: O VALOR DAS NFS NÃO BATEM COM O VALOR DA MIRO
Sintoma
O valor das Notas fiscais remessas não batem com o valor do movimentado do custo efetivo.
Solução
Verificar parâmetros da lei 102 na tabela /PWS/ZYCIT398 antes de calcular valores da MIRO.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 06487 Data: 30/04/2008 Hora: 14:10:09
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 06487
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00005
Agrupamento : 00045
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
02915 - 00001 - 6.0 - 00026 - ADICIONADO PARAMETRO LEI 102 PARA PIS E COFINS
----------------------------------------------------------------------------------------------------
O VALOR DAS NFS NÃO BATEM COM O VALOR DA MIRO
----------------------------------------------------------------------------------------------------
Palavras Chave:
VALOR NF - VALOR MIRO - DIFERENÇA DE VALORES - LEI 102
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI017F01
REPS /PWS/MZYCI017X01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI017F01
...
SELECT SINGLE * FROM /pws/zycit100 INTO itab_zycit100
WHERE nrseqdi = /pws/zycie041-nrseq.
IF NOT itab_zycit100[] IS INITIAL.
SELECT * FROM /pws/zycit085 INTO TABLE itab_zycit085
FOR ALL ENTRIES IN itab_zycit100
WHERE nrseqdi = itab_zycit100-nrseqdi.
ENDIF.
FREE itab_zycit033.
SELECT * FROM /pws/zycit033
INTO TABLE itab_zycit033
* >> Início da exclusão: FORM GET_PARAMETERS_MRM1_RECEB
WHERE bukrs EQ /pws/zycie041-bukrs
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_MRM1_RECEB
WHERE bukrs EQ wa_nf-bukrs
* << Fim da inclusão
OR bukrs EQ space.
SORT itab_zycit033 DESCENDING BY bukrs.
* >> Início da inclusão: FORM GET_PARAMETERS_MRM1_RECEB
clear itab_zycit398.
refresh itab_zycit398 .
select * from /pws/zycit398 "#EC CI_NOWHERE
into table itab_zycit398.
* << Fim da inclusão
SELECT SINGLE * FROM t001w
WHERE werks = wa_nf-werks.
...
...
WHERE estatistico = 'X'
AND land1 EQ t001-land1. "#EC CI_NOFIRST
IF sy-subrc EQ 0.
LOOP AT itab_zycit029_estat.
DELETE itab_zycit036_aux2
WHERE codigo = itab_zycit029_estat-codigo.
ENDLOOP.
ENDIF.
LOOP AT itab_itens_nf.
CLEAR itab_zycit033.
* >> Início da exclusão: FORM GET_PARAMETERS_MRM1_RECEB
READ TABLE itab_zycit033 WITH KEY clnf = v_clnf
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_MRM1_RECEB
READ TABLE itab_zycit033 WITH KEY clnf = 'G'
* << Fim da inclusão
tpnf = itab_itens_nf-tpnf
regio = t001w-regio.
IF sy-subrc NE 0.
* >> Início da exclusão: FORM GET_PARAMETERS_MRM1_RECEB
READ TABLE itab_zycit033 WITH KEY clnf = v_clnf
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_MRM1_RECEB
READ TABLE itab_zycit033 WITH KEY clnf = 'G'
* << Fim da inclusão
tpnf = itab_itens_nf-tpnf.
ENDIF.
LOOP AT itab_zycit036_aux2 WHERE nrseq = itab_itens_nf-nrseq
AND ebeln = itab_itens_nf-ebeln
AND ebelp = itab_itens_nf-ebelp.
IF itab_zycit036_aux2-codigo EQ 'ICMS'.
IF ( itab_zycit033-tribicms EQ '1' ) OR
( itab_zycit033-tribicms EQ '3' AND
* >> Início da exclusão: FORM GET_PARAMETERS_MRM1_RECEB
itab_zycit033-lei102 EQ 'X' ).
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_MRM1_RECEB
itab_zycit033-lei102 EQ 'X' ) or
itab_zycit100-icms_dif eq 'X'.
* << Fim da inclusão
DELETE itab_zycit036_aux2.
ENDIF.
ELSEIF itab_zycit036_aux2-codigo EQ 'IPI'.
IF ( itab_zycit033-tribipi EQ '1' ).
* >> Início da inclusão: FORM GET_PARAMETERS_MRM1_RECEB
DELETE itab_zycit036_aux2.
ENDIF.
elseif itab_zycit036_aux-codigo eq 'PIS'.
clear itab_zycit398.
read table itab_zycit398 with key
tpnf = itab_zycit042-tpnf
tributos = itab_zycit036_aux-codigo
bukrs = wa_NF-bukrs
clnf = 'G'.
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'.
DELETE itab_zycit036_aux2.
endif.
elseif itab_zycit036_aux-codigo eq 'COFINS'.
clear itab_zycit398.
read table itab_zycit398 with key
tpnf = itab_zycit042-tpnf
tributos = itab_zycit036_aux-codigo
bukrs = wa_NF-bukrs
clnf = 'G'.
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'.
* << Fim da inclusão
DELETE itab_zycit036_aux2.
ENDIF.
ENDIF.
ENDLOOP.
ENDLOOP.
FREE itab_custo_item.
LOOP AT itab_itens_nf.
CLEAR itab_custo_item.
LOOP AT itab_zycit036_aux2
WHERE nrseq = itab_itens_nf-nrseq
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI017X01
...
DATA: BEGIN OF wa_nf.
INCLUDE STRUCTURE /pws/zycie043.
DATA: statusp_j1b2 LIKE /pws/zycit041-statusp_j1b2.
DATA: END OF wa_nf.
* >> Início da inclusão:
data: begin of itab_zycit398 occurs 0.
include structure /pws/zycit398.
data: end of itab_zycit398.
* << Fim da inclusão
...