CE PLUS - Nota 006928
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Recebimento
Data/Hora da Publicação: 08/07/2008 00:00:00
Data/Hora Última Alteração: 16/08/2012 14:57:54
Descrição da Nota: AO FAZER RECEBIMENTO, VALOR DA MERCADORIA NA MIRO ESTÁ INCORRETA.
Sintoma
Ao fazer recebimento, valor da mercadoria na miro está incorreta.
Solução
Realizado ajuste para desconsiderar os valores de PIS e COFINS na composição do valor da mercadoria
para lançamento da MIRO, quando estes estiverem parametrizados para serem creditado.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 06928 Data: 08/07/2008 Hora: 14:45:20
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 06928
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00006
Agrupamento : 00055
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
06487 - 00001 - 7.0 - 00005 - O VALOR DAS NFS NÃO BATEM COM O VALOR DA MIRO
----------------------------------------------------------------------------------------------------
AO FAZER RECEBIMENTO, VALOR DA MERCADORIA NA MIRO ESTÁ INCORRETA.
----------------------------------------------------------------------------------------------------
Palavras Chave:
RECEBIMENTO - MIRO - VALOR MERCADORIA - IMPOSTOS
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI017F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI017F01
...
IF ( itab_zycit033-tribicms EQ '1' ) OR
( itab_zycit033-tribicms EQ '3' AND
itab_zycit033-lei102 EQ 'X' ) or
itab_zycit100-icms_dif eq 'X'.
DELETE itab_zycit036_aux2.
ENDIF.
ELSEIF itab_zycit036_aux2-codigo EQ 'IPI'.
IF ( itab_zycit033-tribipi EQ '1' ).
DELETE itab_zycit036_aux2.
ENDIF.
* >> Início da exclusão: FORM GET_PARAMETERS_MRM1_RECEB
elseif itab_zycit036_aux-codigo eq 'PIS'.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_MRM1_RECEB
ELSEIF itab_zycit036_aux2-codigo EQ 'PIS'.
* << Fim da inclusão
clear itab_zycit398.
read table itab_zycit398 with key
tpnf = itab_zycit042-tpnf
* >> Início da exclusão: FORM GET_PARAMETERS_MRM1_RECEB
tributos = itab_zycit036_aux-codigo
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_MRM1_RECEB
tributos = itab_zycit036_aux2-codigo
* << Fim da inclusão
bukrs = wa_NF-bukrs
clnf = 'G'.
if sy-subrc ne 0.
read table itab_zycit398 with key
tpnf = itab_zycit042-tpnf
* >> Início da exclusão: FORM GET_PARAMETERS_MRM1_RECEB
tributos = itab_zycit036_aux-codigo
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_MRM1_RECEB
tributos = itab_zycit036_aux2-codigo
* << Fim da inclusão
bukrs = space.
endif.
if itab_zycit398-creditar eq 'S'.
DELETE itab_zycit036_aux2.
endif.
* >> Início da exclusão: FORM GET_PARAMETERS_MRM1_RECEB
elseif itab_zycit036_aux-codigo eq 'COFINS'.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_MRM1_RECEB
ELSEIF itab_zycit036_aux2-codigo EQ 'COFINS'.
* << Fim da inclusão
clear itab_zycit398.
read table itab_zycit398 with key
tpnf = itab_zycit042-tpnf
* >> Início da exclusão: FORM GET_PARAMETERS_MRM1_RECEB
tributos = itab_zycit036_aux-codigo
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_MRM1_RECEB
tributos = itab_zycit036_aux2-codigo
* << Fim da inclusão
bukrs = wa_NF-bukrs
clnf = 'G'.
if sy-subrc ne 0.
read table itab_zycit398 with key
tpnf = itab_zycit042-tpnf
* >> Início da exclusão: FORM GET_PARAMETERS_MRM1_RECEB
tributos = itab_zycit036_aux-codigo
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_MRM1_RECEB
tributos = itab_zycit036_aux2-codigo
* << Fim da inclusão
bukrs = space.
endif.
if itab_zycit398-creditar eq 'S'.
DELETE itab_zycit036_aux2.
endif.
ENDIF.
ENDLOOP.
ENDLOOP.
FREE itab_custo_item.
LOOP AT itab_itens_nf.
...
...
WHERE nrseq EQ wa_nf-nrseq.
ELSEIF v_existe_nfr EQ 'S'.
SELECT MAX( lfsnr ) INTO (v_lfsnr) FROM /pws/zycit043
WHERE nrseq EQ wa_nf-nrseq.
ENDIF.
IF v_lfsnr IS INITIAL.
CONCATENATE wa_nf-nrseq '/' '01' INTO wa_nf-lfsnr.
WRITE wa_nf-lfsnr TO wa_nf-lfsnr RIGHT-JUSTIFIED .
ELSE.
v_lfsnr_old = wa_nf-lfsnr.
* >> Início da exclusão: FORM EXECUTA_RECEBIMENTO
IF v_lfsnr+13(1) = '/' AND v_lfsnr+14(2) < 99. "#EC PORTABLE
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_RECEBIMENTO
IF v_lfsnr+13(1) = '/' AND v_lfsnr+14(2) < 99. "#EC PORTABLE
* << Fim da inclusão
MOVE v_lfsnr+14(2) TO v_indice_2.
ADD 1 TO v_indice_2.
ELSE.
MOVE v_lfsnr+13(3) TO v_indice_3.
ADD 1 TO v_indice_3.
ENDIF.
* >> Início da exclusão: FORM EXECUTA_RECEBIMENTO
IF v_lfsnr+13(1) = '/' AND v_lfsnr+14(2) < 99. "#EC PORTABLE
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_RECEBIMENTO
IF v_lfsnr+13(1) = '/' AND v_lfsnr+14(2) < 99. "#EC PORTABLE
* << Fim da inclusão
CONCATENATE v_lfsnr+0(14) v_indice_2 INTO wa_nf-lfsnr.
ELSE.
IF v_indice_3 > 100.
CONCATENATE v_lfsnr+0(13) v_indice_3 INTO wa_nf-lfsnr.
ELSE.
CONCATENATE v_lfsnr+1(13) v_indice_3 INTO wa_nf-lfsnr.
ENDIF.
ENDIF.
ENDIF.
PERFORM lock_record.
...