CE PLUS - Nota 010591
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal
Data/Hora da Publicação: 13/09/2010 00:00:00
Data/Hora Última Alteração: 23/02/2011 09:24:18
Descrição da Nota: VALOR ERRADO PARA A TAXA SISCOMEX NAS MENSAGENS DA NOTA FISCAL
Sintoma
O valor de taxa siscomex informado nas mensagens da nota fiscal é maior que o lançado na DI
Solução
Ajustado preenchimento da tabela interna para levar apenas os valores da taxa siscomex.
Versões Tratadas
8.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 10591 Data: 13/09/2010 Hora: 09:07:50
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 10591
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00004
Agrupamento : 00037
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
10424 - 00001 - 8.0 - 00004 - IMPLEMENTADO NA NOTA FISCAL RATEIO DA TX SISCOMEX NAS MENSAGENS E
----------------------------------------------------------------------------------------------------
VALOR ERRADO PARA A TAXA SISCOMEX NAS MENSAGENS DA NOTA FISCAL
----------------------------------------------------------------------------------------------------
Palavras Chave:
VALOR - TAXA - SISCOX - MENSAGENS - NOTA - FISCAL -
/PWS/SAPMZYCI016
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI016F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016F01
...
v_ind = v_ind + 1.
WRITE v_icms_dif TO v_dificms CURRENCY itab_zycit049-waers.
v_tamanho = '....................'.
CONCATENATE 'Valor do ICMS:' v_tamanho v_dificms
INTO it_zycee006-msg SEPARATED BY space. "#EC NOTEXT
it_zycee006-indice = v_ind.
APPEND it_zycee006.
ENDIF.
IF v_dif = 'X'.
v_ind = v_ind + 1.
* >> Início da exclusão: FORM MENSAGENS_NF
it_zycee006-msg = 'Valor ICMS: Diferido'. "#EC NOTEXT
* << Fim da exclusão
* >> Início da inclusão: FORM MENSAGENS_NF
it_zycee006-msg = 'Valor ICMS: Diferido'. "#EC NOTEXT
* << Fim da inclusão
CLEAR v_dif.
it_zycee006-indice = v_ind.
APPEND it_zycee006.
ENDIF.
IF v_base_dif NE 0.
v_ind = v_ind + 1.
WRITE v_base_dif TO v_basedif CURRENCY itab_zycit049-waers.
CONCATENATE 'Base de Cálculo do ICMS:' v_basedif
INTO it_zycee006-msg SEPARATED BY space. "#EC NOTEXT
it_zycee006-indice = v_ind.
...
...
/pws/zycie001-tpdecl EQ 'DI'.
LOOP AT itab_zycit042_mark.
MOVE itab_zycit042_mark-ebeln TO itab_pedido-ebeln.
COLLECT itab_pedido.
ENDLOOP.
SORT itab_pedido BY ebeln.
CLEAR v_cont .
DESCRIBE TABLE itab_pedido LINES v_line.
LOOP AT itab_pedido.
IF sy-tabix EQ '1' .
* >> Início da exclusão: FORM MENSAGENS_NF
it_zycee006-msg = 'Pedidos nº'. "#EC NOTEXT
* << Fim da exclusão
* >> Início da inclusão: FORM MENSAGENS_NF
it_zycee006-msg = 'Pedidos nº'. "#EC NOTEXT
* << Fim da inclusão
ENDIF.
CONCATENATE it_zycee006-msg itab_pedido-ebeln INTO it_zycee006-msg
SEPARATED BY '-' .
v_cont = v_cont + 1.
IF v_cont EQ '5' .
v_ind = v_ind + 1.
it_zycee006-indice = v_ind.
APPEND it_zycee006.
CONCATENATE it_zycee006-msg itab_pedido-ebeln INTO it_zycee006-msg
SEPARATED BY ',' .
...
...
it_zycee006-msg = /pws/zycit479-text2.
APPEND it_zycee006.
ENDIF.
ENDIF.
LOOP AT itab_zycit003_mark.
IF NOT itab_zycit003_mark-nrseqd IS INITIAL.
SELECT SINGLE * FROM /pws/zycit078
WHERE nrseqli = itab_zycit003_mark-nrseqli
AND ( tpli = 'N' OR tpli = 'S' ).
IF sy-subrc EQ 0.
* >> Início da exclusão: FORM MENSAGENS_NF
it_zycee006-msg = 'Pedido'. "#EC NOTEXT
* << Fim da exclusão
* >> Início da inclusão: FORM MENSAGENS_NF
it_zycee006-msg = 'Pedido'. "#EC NOTEXT
* << Fim da inclusão
CONCATENATE it_zycee006-msg itab_zycit003_mark-ebeln
INTO it_zycee006-msg
SEPARATED BY '-' .
* >> Início da exclusão: FORM MENSAGENS_NF
CONCATENATE it_zycee006-msg 'Item' "#EC NOTEXT
* << Fim da exclusão
* >> Início da inclusão: FORM MENSAGENS_NF
CONCATENATE it_zycee006-msg 'Item' "#EC NOTEXT
* << Fim da inclusão
INTO it_zycee006-msg
SEPARATED BY space .
CONCATENATE it_zycee006-msg itab_zycit003_mark-ebelp
INTO it_zycee006-msg
SEPARATED BY '-'.
* >> Início da exclusão: FORM MENSAGENS_NF
CONCATENATE it_zycee006-msg 'Nº Ato Concessório' "#EC NOTEXT
* << Fim da exclusão
* >> Início da inclusão: FORM MENSAGENS_NF
CONCATENATE it_zycee006-msg 'Nº Ato Concessório' "#EC NOTEXT
* << Fim da inclusão
INTO it_zycee006-msg
SEPARATED BY ' / ' .
CONCATENATE it_zycee006-msg /pws/zycit078-reg_drawback
INTO it_zycee006-msg
SEPARATED BY '-' .
v_ind = v_ind + 1.
it_zycee006-indice = v_ind.
APPEND it_zycee006.
ENDIF.
ENDIF.
...
...
itab_zycit003-netpr / v_taxa .
itab_zycit003-vlreal =
itab_zycit003-vlreal / v_taxa .
ENDIF.
ENDIF.
v_tot_plan = v_tot_plan +
( itab_zycit003-netpr * itab_zycit003-qtd_iten ).
v_tot_real = v_tot_real +
( itab_zycit003-vlreal * itab_zycit003-qtd_iten ).
ENDLOOP.
* >> Início da inclusão: FORM SELECIONA_DESPESAS
REFRESH itab_zycit042_sisc.
* << Fim da inclusão
LOOP AT itab_zycit049_a.
IF ( itab_zycit049_a-tpdesp EQ /pws/zycit000-cod_sisc AND
/pws/zycit062-rateio_tx_sisc = 'X' ).
* >> Início da inclusão: FORM SELECIONA_DESPESAS
IF itab_zycit042_sisc[] IS INITIAL.
* << Fim da inclusão
CLEAR: itab_zycit042_sisc.
* >> Início da exclusão: FORM SELECIONA_DESPESAS
REFRESH: itab_zycit042_sisc.
* << Fim da exclusão
MOVE: itab_zycit042_d[] TO itab_zycit042_sisc[].
* >> Início da inclusão: FORM SELECIONA_DESPESAS
MODIFY itab_zycit042_sisc TRANSPORTING vldp
WHERE vldp NE itab_zycit042_sisc-vldp.
ENDIF.
* << Fim da inclusão
ENDIF.
IF ( ( itab_zycit049_a-tpdesp NE /pws/zycit000-cod_sisc OR
itab_zycit049_a-tpdesp EQ /pws/zycit000-cod_sisc AND
/pws/zycit062-rateio_tx_sisc = 'X' ) AND
...