CE PLUS - Nota 006664
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal
Data/Hora da Publicação: 02/06/2008 00:00:00
Data/Hora Última Alteração: 23/02/2011 09:17:00
Descrição da Nota: VALOR DO FRETE RODOVIARIO ESTÁ INCLUIDO NO VALOR DA MERCADORIA
Sintoma
Valor do frete rodoviario está incluido no valor da mercadoria.
Solução
Ajustado programa para que o valor do frete rodoviario esteja contido nas despesas e não no valor da
mercadoria.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 06664 Data: 02/06/2008 Hora: 15:17:35
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 06664
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00005
Agrupamento : 00050
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
05481 - 00001 - 7.0 - 00003 - AJUST. DO RATEIO DAS DESPESAS NA NF E A GRAVAÇÃO DO FRETE NA DSI
06176 - 00002 - 7.0 - 00004 - AJUSTES PARA TRATAMENTOS DE IPI ISENÇÃO, COURIER E GRANEL NA DI E
----------------------------------------------------------------------------------------------------
VALOR DO FRETE RODOVIARIO ESTÁ INCLUIDO NO VALOR DA MERCADORIA
----------------------------------------------------------------------------------------------------
Palavras Chave:
FRETE - RODOVIARIO - MERCADORIA - VALOR - DESPESA
/PWS/SAPMZYCI016
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI016F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016F01
...
IF sy-subrc EQ 0 .
IF NOT /pws/zycit093-ternacion IS INITIAL.
PERFORM trata_decimais USING /pws/zycit093-waersfre
CHANGING /pws/zycit093-ternacion.
v_ternacion = /pws/zycit093-ternacion.
IF /pws/zycie085-dttax IS INITIAL.
/pws/zycie085-dttax = /pws/zycit085-dttax.
ENDIF.
IF /pws/zycit093-waersfre = /pws/zycbt007-waersb.
IF NOT v_ntgew_tot IS INITIAL.
* >> Início da exclusão: FORM SELECIONA_ITENS_NFG
IF NOT itab_zycit003-qtd_itend IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_ITENS_NFG
IF NOT itab_zycit003-qtd_itend IS INITIAL and
not itab_zycit003-ntgewd is initial.
* << Fim da inclusão
v_ternacion = ( v_ternacion * itab_zycit003-ntgewd
/ v_ntgew_tot ).
ELSE.
v_ternacion = ( v_ternacion * itab_zycit003-ntgew
/ v_ntgew_tot ).
ENDIF.
ENDIF.
IF NOT itab_zycit003-qtd_itend IS INITIAL.
itab_zycit042-netpr = itab_zycit042-netpr -
( v_ternacion / itab_zycit003-qtd_itend ).
...
...
itab_zycit042-netpr = itab_zycit042-netpr -
( v_ternacion / itab_zycit042-qtd_iten ).
ENDIF.
ENDIF.
ELSE.
PERFORM taxa_converte USING /pws/zycit093-waersfre
/pws/zycit085-dttax
CHANGING v_taxa_desp.
v_ternacion = v_ternacion * v_taxa_desp .
IF NOT v_ntgew_tot IS INITIAL.
* >> Início da exclusão: FORM SELECIONA_ITENS_NFG
IF NOT itab_zycit003-qtd_itend IS INITIAL.
v_ternacion = ( v_ternacion * itab_zycit003-ntgew
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_ITENS_NFG
IF NOT itab_zycit003-qtd_itend IS INITIAL and
not itab_zycit003-ntgewd is initial.
v_ternacion = ( v_ternacion * itab_zycit003-ntgewd
* << Fim da inclusão
/ v_ntgew_tot ).
ELSE.
* >> Início da exclusão: FORM SELECIONA_ITENS_NFG
v_ternacion = ( v_ternacion * itab_zycit003-ntgewd
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_ITENS_NFG
v_ternacion = ( v_ternacion * itab_zycit003-ntgew
* << Fim da inclusão
/ v_ntgew_tot ).
ENDIF.
...
...
IF NOT v_taxa IS INITIAL.
itab_zycit003-netpr =
itab_zycit003-netpr / v_taxa .
itab_zycit003-vlreal =
itab_zycit003-vlreal / v_taxa .
ENDIF.
ENDIF.
CLEAR: itab_zycit039, itab_zycit020, itab_zycit019.
READ TABLE itab_zycit019 WITH KEY
tpdesp = itab_zycit049_a-tpdesp.
* >> Início da exclusão: FORM SELECIONA_DESPESAS
IF itab_zycit019-tipo EQ 'A' OR
itab_zycit019-tipo IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DESPESAS
IF ( itab_zycit019-tipo EQ 'A' OR
itab_zycit019-tipo IS INITIAL ) or
itab_zycit049_a-tpdesp = /pws/zycit000-FLAGFRETEN.
* << Fim da inclusão
READ TABLE itab_zycit020 WITH KEY
codigo = itab_zycit019-codigo.
READ TABLE itab_zycit039 WITH KEY
codigo = itab_zycit020-codigo.
IF itab_zycit049_a-waers NE /pws/zycbt007-waersb.
PERFORM trata_decimais USING itab_zycit049_a-waers
itab_zycit049_a-vldp.
PERFORM taxa_converte USING itab_zycit049_a-waers
/pws/zycit085-dttax
CHANGING v_taxa_desp.
...
...
IF NOT v_taxa IS INITIAL.
itab_zycit003-netpr =
itab_zycit003-netpr / v_taxa .
itab_zycit003-vlreal =
itab_zycit003-vlreal / v_taxa .
ENDIF.
ENDIF.
CLEAR: itab_zycit039, itab_zycit020, itab_zycit019.
READ TABLE itab_zycit019 WITH KEY
tpdesp = itab_zycit049-tpdesp.
* >> Início da exclusão: FORM SELECIONA_DESPESAS
IF itab_zycit019-tipo EQ 'A' OR
itab_zycit019-tipo IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DESPESAS
IF ( itab_zycit019-tipo EQ 'A' OR
itab_zycit019-tipo IS INITIAL ) or
itab_zycit049-tpdesp = /pws/zycit000-FLAGFRETEN.
* << Fim da inclusão
READ TABLE itab_zycit020 WITH KEY
codigo = itab_zycit019-codigo.
READ TABLE itab_zycit039 WITH KEY
codigo = itab_zycit020-codigo.
IF itab_zycit049-waers NE /pws/zycbt007-waersb.
PERFORM trata_decimais USING itab_zycit049-waers
itab_zycit049-vldp.
PERFORM taxa_converte USING itab_zycit049-waers
/pws/zycit085-dttax
CHANGING v_taxa_desp.
...
...
IF NOT v_taxa IS INITIAL.
itab_zycit003-netpr =
itab_zycit003-netpr / v_taxa .
itab_zycit003-vlreal =
itab_zycit003-vlreal / v_taxa .
ENDIF.
ENDIF.
CLEAR: itab_zycit039, itab_zycit020, itab_zycit019.
READ TABLE itab_zycit019 WITH KEY
tpdesp = itab_zycit049-tpdesp.
* >> Início da exclusão: FORM SELECIONA_DESPESAS
IF itab_zycit019-tipo EQ 'A' OR
itab_zycit019-tipo IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DESPESAS
IF ( itab_zycit019-tipo EQ 'A' OR
itab_zycit019-tipo IS INITIAL ) or
itab_zycit049-tpdesp = /pws/zycit000-FLAGFRETEN.
* << Fim da inclusão
READ TABLE itab_zycit020 WITH KEY
codigo = itab_zycit019-codigo.
READ TABLE itab_zycit039 WITH KEY
codigo = itab_zycit020-codigo.
IF itab_zycit049-waers NE /pws/zycbt007-waersb.
PERFORM trata_decimais USING itab_zycit049-waers
itab_zycit049-vldp.
PERFORM taxa_converte USING itab_zycit049-waers
/pws/zycit085-dttax
CHANGING v_taxa_desp.
...