CE PLUS - Nota 011439
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal
Data/Hora da Publicação: 09/09/2011 00:00:00
Data/Hora Última Alteração: 09/09/2011 11:39:41
Descrição da Nota: VALOR DO ITEM FICA ERRADO PARA PROCESSOS A GRANEL COM FRETE NACIONAL
Sintoma
Para processos de granel e com frete nacional ao gerar a nota fiscal o valor do frete nacional está
sendo abatido em duplicidade nos itens a granel.
Solução
Ajustado programa de nota fiscal para não abater o valor do frete nacional dos itens com granel.
Versões Tratadas
8.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 11439 Data: 09/09/2011 Hora: 09:40:48
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 11439
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00008
Agrupamento : 00084
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
06176 - 00001 - 7.0 - 00004 - AJUSTES PARA TRATAMENTOS DE IPI ISENÇÃO, COURIER E GRANEL NA DI E
----------------------------------------------------------------------------------------------------
VALOR DO ITEM FICA ERRADO PARA PROCESSOS A GRANEL COM FRETE NACIONAL
----------------------------------------------------------------------------------------------------
Palavras Chave:
NOTA - FISCAL - VALOR - ITEM - PROCESSO - GRANEL - FRETE - NACIONAL
/PWS/SAPMZYCI023
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI016F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016F01
...
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.
IF NOT itab_zycit003-qtd_itend IS INITIAL AND
NOT itab_zycit003-ntgewd IS INITIAL.
* >> Início da exclusão: FORM SELECIONA_ITENS_NFG
v_ternacion = ( v_ternacion * itab_zycit003-ntgewd
/ v_ntgew_tot ).
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_ITENS_NFG
CLEAR v_ternacion.
* << Fim da inclusão
ELSE.
v_ternacion = ( v_ternacion * itab_zycit003-ntgew
/ v_ntgew_tot ).
ENDIF.
ENDIF.
IF NOT itab_zycit042-qtd_iten IS INITIAL.
itab_zycit042-netpr = itab_zycit042-netpr -
( v_ternacion / itab_zycit003-qtd_iten ).
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.
IF NOT itab_zycit003-qtd_itend IS INITIAL AND
NOT itab_zycit003-ntgewd IS INITIAL.
* >> Início da exclusão: FORM SELECIONA_ITENS_NFG
v_ternacion = ( v_ternacion * itab_zycit003-ntgewd
/ v_ntgew_tot ).
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_ITENS_NFG
CLEAR v_ternacion.
* << Fim da inclusão
ELSE.
v_ternacion = ( v_ternacion * itab_zycit003-ntgew
/ v_ntgew_tot ).
ENDIF.
ENDIF.
IF NOT itab_zycit042-qtd_iten IS INITIAL.
itab_zycit042-netpr = itab_zycit042-netpr -
( v_ternacion / itab_zycit003-qtd_iten ).
ENDIF.
ENDIF.
...