CE PLUS - Nota 006731
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal
Data/Hora da Publicação: 10/06/2008 00:00:00
Data/Hora Última Alteração: 23/02/2011 09:16:39
Descrição da Nota: O VALOR DA NF DEVE SER O VALOR DO INCOTERM NEGOCIADO E FICA INCORRETO.
Sintoma
O valor da nota fiscal deve ser o valor do incoterm negociado (neste caso é CIF) + o valor do ICMS.
Na nota fiscal criada, aparece o valor menor do que deveria ser.
Solução
alterar o cálculo do valor do frete nacional no valor unitário.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 06731 Data: 10/06/2008 Hora: 09:32:42
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 06731
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00005
Agrupamento : 00051
----------------------------------------------------------------------------------------------------
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
----------------------------------------------------------------------------------------------------
O VALOR DA NF DEVE SER O VALOR DO INCOTERM NEGOCIADO E FICA INCORRETO.
----------------------------------------------------------------------------------------------------
Palavras Chave:
NF - FRETE NACIONAL - INCOTERM - CÁLCULO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI016F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016F01
...
FORM seleciona_itens_nfg.
DATA: v_nolin TYPE i VALUE IS INITIAL,
wa_zycit042 LIKE /pws/zycit042 ,
* >> Início da exclusão: FORM SELECIONA_ITENS_NFG
v_ternacion LIKE /pws/zycit093-ternacion,
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_ITENS_NFG
v_ternacion LIKE /pws/zycit042-netpr,
* << Fim da inclusão
v_ntgew_tot LIKE itab_zycit003-ntgew.
DATA: BEGIN OF itab_zycit049_fndp OCCURS 0.
INCLUDE STRUCTURE /pws/zycit049.
DATA: END OF itab_zycit049_fndp .
DATA v_vlsisco LIKE v_vldp.
IF t001 IS INITIAL OR /pws/zycit000 IS INITIAL.
SELECT SINGLE * FROM t001 WHERE bukrs = /pws/zycie041-bukrs.
SELECT SINGLE * FROM /pws/zycit000 WHERE land1 EQ t001-land1.
ENDIF.
CLEAR v_graneis.
...
...
IF NOT v_ntgew_tot IS INITIAL.
IF NOT itab_zycit003-qtd_itend IS INITIAL AND
NOT itab_zycit003-ntgewd IS INITIAL.
v_ternacion = ( v_ternacion * itab_zycit003-ntgewd
/ v_ntgew_tot ).
ELSE.
v_ternacion = ( v_ternacion * itab_zycit003-ntgew
/ v_ntgew_tot ).
ENDIF.
ENDIF.
* >> Início da exclusão: FORM SELECIONA_ITENS_NFG
IF NOT itab_zycit003-qtd_itend IS INITIAL.
itab_zycit042-netpr = itab_zycit042-netpr -
( v_ternacion / itab_zycit003-qtd_itend ).
ELSE.
* << Fim da exclusão
IF NOT itab_zycit042-qtd_iten IS INITIAL.
itab_zycit042-netpr = itab_zycit042-netpr -
* >> Início da exclusão: FORM SELECIONA_ITENS_NFG
( v_ternacion / itab_zycit042-qtd_iten ).
ENDIF.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_ITENS_NFG
( v_ternacion / itab_zycit003-qtd_iten ).
* << Fim da inclusão
ENDIF.
...
...
IF NOT v_ntgew_tot IS INITIAL.
IF NOT itab_zycit003-qtd_itend IS INITIAL AND
NOT itab_zycit003-ntgewd IS INITIAL.
v_ternacion = ( v_ternacion * itab_zycit003-ntgewd
/ v_ntgew_tot ).
ELSE.
v_ternacion = ( v_ternacion * itab_zycit003-ntgew
/ v_ntgew_tot ).
ENDIF.
ENDIF.
* >> Início da exclusão: FORM SELECIONA_ITENS_NFG
IF NOT itab_zycit003-qtd_itend IS INITIAL.
itab_zycit042-netpr = itab_zycit042-netpr -
( v_ternacion / itab_zycit003-qtd_itend ).
ELSE.
* << Fim da exclusão
IF NOT itab_zycit042-qtd_iten IS INITIAL.
itab_zycit042-netpr = itab_zycit042-netpr -
* >> Início da exclusão: FORM SELECIONA_ITENS_NFG
( v_ternacion / itab_zycit042-qtd_iten ).
ENDIF.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_ITENS_NFG
( v_ternacion / itab_zycit003-qtd_iten ).
* << Fim da inclusão
ENDIF.
...