Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 01/11/2012 14:57:35
Data/Hora Última Alteração: 01/11/2012 14:57:35
Descrição da Nota: NÃO ESTÁ CALCULANDO VALORES DE SEGURO DA ANA
Sintoma
Não está calculando valores de seguro da ANA
Solução
Verificar se há agrupamento e fazer o tratamento normal
9.0
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 12600 Data: 10/10/2012 Hora: 16:46:39
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 12600
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 9.0
Pacote : 00002
Agrupamento : 00132
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
04785 - 00001 - 7.0 - 00003 - ABERTURA DE EXIT PARA TRATATIVA DE BOTOES ESPECÍFICOS (ANA)
05604 - 00002 - 7.0 - 00004 - PADRONIZAÇÃO - CODE INSPECTOR
09397 - 00003 - 8.0 - 00001 - NOS PROCESSOS DO CHILE AVISAR O NUMERO DA DECLARAÇÃO COM 11 DIGIT
10038 - 00004 - 8.0 - 00003 - ADICIONAR COLUNA COM VALORES NA MOEDA INTERNA NA PASTA NCM-SUFIXO
10316 - 00005 - 8.0 - 00004 - COMPOSIÇÃO DA BASE DOS IMPOSTOS NA ANA
10702 - 00006 - 8.0 - 00005 - APAGANDO INFORMAÇÃO DA ANA
11559 - 00007 - 8.0 - 00009 - AO DAR DUPLO CLIQUE NO PEDIDO DE COMPRAS NÃO ABRE TRANSAÇÃO
11976 - 00008 - 8.0 - 00010 - TRILHA DE AUDITORIA NA ANA
12583 - 00011 - 9.0 - 00002 - NÃO ESTÁ PREENCHENDO O VALOR A RECOLHER DOS IMPOSTOS COM VALOR FI
12596 - 00012 - 9.0 - 00002 - NÃO CARREGA O VALOR DO SEGURO PARA OS ITENS
----------------------------------------------------------------------------------------------------
NÃO ESTÁ CALCULANDO VALORES DE SEGURO DA ANA
----------------------------------------------------------------------------------------------------
Palavras Chave:
ANA - SEGURO - CALCULO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI059I01
REPS /PWS/MZYCI059F03
REPS /PWS/MZYCI059F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI059I01
...
pais = t001-land1.
ENDIF.
ENDIF.
SORT: itab_zycit404 DESCENDING BY regio,
itab_zycit399 DESCENDING BY regio.
READ TABLE: itab_zycit404 INDEX 1,
itab_zycit399 INDEX 1.
DELETE: itab_zycit404 WHERE regio NE itab_zycit404-regio,
itab_zycit399 WHERE regio NE itab_zycit399-regio.
SORT itab_zycit404 BY linha.
* >> Início da exclusão: MODULE REAPURA_IMP
LOOP AT itab_zycit404 WHERE exibir NE 'X'
OR somatoria EQ space.
* << Fim da exclusão
* >> Início da inclusão: MODULE REAPURA_IMP
LOOP AT itab_zycit404 WHERE somatoria EQ 'X'.
* << Fim da inclusão
MOVE itab_zycit404 TO itab_zycit404_aux.
APPEND itab_zycit404_aux.
ENDLOOP.
READ TABLE itab_it WITH KEY ebeln = /pws/zycie100a-ebeln
ebelp = /pws/zycie100a-ebelp.
READ TABLE itab_zycit003 WITH KEY ebeln = /pws/zycie100a-ebeln
ebelp = /pws/zycie100a-ebelp.
LOOP AT itab_zycit404 WHERE exibir EQ 'X'.
READ TABLE itab_zycit403_i
WITH KEY codigo = itab_zycit404-codigo
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI059F01
...
AND ebeln = t_itens-ebeln
AND ebelp = t_itens-ebelp.
IF NOT itab_zycit529[] IS INITIAL.
SELECT * FROM /pws/zycit530
INTO TABLE itab_zycit530
FOR ALL ENTRIES IN itab_zycit529
WHERE nrseq EQ itab_zycit529-nrseq
AND container EQ itab_zycit529-agrupamento .
ENDIF.
ENDIF.
* >> Início da inclusão: FORM LOAD_ITAX
ENDIF.
* << Fim da inclusão
MOVE itab_it-dttaxbem TO /pws/zycie100a-dttaxbem.
IF p_tipo NE 'B' OR t_ivmle IS INITIAL.
IF NOT v_usd IS INITIAL.
t_ivmle_d2 = t_ivmle = t_vmle * /pws/zycie100a-dttaxbem / v_usd.
ENDIF.
ENDIF.
IF v_idx EQ v_ipt AND v_ipt NE 1.
PERFORM valor_cfr USING p_tipo.
IF p_tipo = 'I' OR p_tipo = 'T'.
CASE s_inco1_ci.
...
...
itab_zycit049-waers TO itab_trib-waers,
itab_zycit049-tpdesp TO itab_trib-tpdesp.
APPEND itab_trib.
ENDIF.
ENDIF.
ENDLOOP.
CLEAR t_zycit049.
REFRESH t_zycit049.
SELECT SINGLE * FROM /pws/zycit039 INTO wa_zycit039f
WHERE codigo EQ 'SEGURO'
* >> Início da exclusão: FORM LOAD_ITAX
AND land1 EQ t001-land1. "#EC CI_NOFIRST
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_ITAX
AND land1 EQ t001-land1. "#EC CI_NOFIRST
* << Fim da inclusão
wa_zycit039f-land1 = t001-land1.
READ TABLE itab_zycit529 WITH KEY
ebeln = t_itens-ebeln
ebelp = t_itens-ebelp.
IF sy-subrc EQ 0.
READ TABLE itab_zycit530 WITH KEY
container = itab_zycit529-agrupamento
codigo = wa_zycit039f-codigo.
ENDIF.
IF itab_zycit530 IS INITIAL .
...
...
t_zycit049-waers = /pws/zycie085-waersseg .
APPEND t_zycit049 .
CALL FUNCTION '/PWS/ZYCI_CALCULA_DESPESAS_DI'
EXPORTING
nrseq = itab_it-nrseq
/pws/zycie085 = /pws/zycie085
TABLES
t_zycit049 = t_zycit049
t_itens = t_itens.
t_ivseg = itab_it-vlseg = t_itens-vldp.
* >> Início da exclusão: FORM LOAD_ITAX
ENDIF.
* << Fim da exclusão
ENDIF.
t_ivmle = itab_it-vlfob.
CASE s_inco1_ci.
WHEN 'FOB'.
t_ivadu = t_ivmle + t_ivseg + t_ivfre + t_ivdesp.
WHEN 'C&F'.
IF p_tipo EQ 'A'.
t_ivmle_d2 = t_ivmle = t_ivmle + t_ivfre.
t_vmle_d2 = t_vmle = t_vmle + v_tot_fre.
t_ivadu = t_ivmle + wa_it-vlseg + t_ivdesp.
...