CE PLUS - Nota 011137
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal
Data/Hora da Publicação: 04/05/2011 00:00:00
Data/Hora Última Alteração: 05/05/2011 15:36:03
Descrição da Nota: RATEIO TAXA SISCOMEX NAS MENSAGENS DA NOTA FISCAL
Sintoma
Ao criar a nota fiscal global para o ultimo item do embarque não é informado o valor da taxa
SISCOMEX.
Solução
Ajustado programa para preencher o valor da taxa siscomex para todos os itens da nota fiscal.
Versões Tratadas
8.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 11137 Data: 04/05/2011 Hora: 11:33:15
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 11137
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00007
Agrupamento : 00069
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
08953 - 00001 - 8.0 - 00001 - TRAMENTO PARA DIFERENÇA DE CENTAVOS DEVIDO RATEIO DE DESPESAS
10424 - 00002 - 8.0 - 00004 - IMPLEMENTADO NA NOTA FISCAL RATEIO DA TX SISCOMEX NAS MENSAGENS E
----------------------------------------------------------------------------------------------------
RATEIO TAXA SISCOMEX NAS MENSAGENS DA NOTA FISCAL
----------------------------------------------------------------------------------------------------
Palavras Chave:
RATEIO - TAXA SISCOMEX - NOTA FISCAL
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI016F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016F01
...
PERFORM taxa_converte USING itab_zycit049_a-waers
/pws/zycit085-dttax
CHANGING v_taxa_desp.
itab_zycit049_a-vldp = itab_zycit049_a-vldp *
v_taxa_desp.
itab_zycit049_a-waers = /pws/zycbt007-waersb.
ENDIF.
IF v_lines = v_tabix AND /pws/zycit062-arbase NE 'X'.
v_vldp = itab_zycit049_a-vldp - v_tot_vldp.
itab_zycit042_d-vldp = itab_zycit042_d-vldp + v_vldp.
* >> Início da inclusão: FORM SELECIONA_DESPESAS
IF itab_zycit049_a-tpdesp EQ /pws/zycit000-cod_sisc AND
/pws/zycit062-rateio_tx_sisc = 'X'.
ADD v_vldp TO itab_zycit042_sisc-vldp.
MODIFY itab_zycit042_sisc TRANSPORTING vldp
WHERE nrseqnf = itab_zycit042_d-nrseqnf
AND nrseq = itab_zycit042_d-nrseq
AND nfglobal = itab_zycit042_d-nfglobal
AND ebeln = itab_zycit042_d-ebeln
AND ebelp = itab_zycit042_d-ebelp.
ENDIF.
* << Fim da inclusão
CLEAR v_vldp.
ELSE.
IF itab_zycit039-divabs = 'X'.
v_vldp = itab_zycit049_a-vldp / v_lines.
ELSEIF itab_zycit039-peso = 'X'.
IF NOT v_tot_ntgew IS INITIAL.
IF NOT itab_zycit003-ntgewd IS INITIAL.
v_vldp = itab_zycit049_a-vldp * itab_zycit003-ntgewd /
v_tot_ntgew.
ELSE.
...