CE PLUS - Nota 012600

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

 

Versões Tratadas

9.0


Pré-Requisitos

Produto:

Nota

Descrição

NÃO CARREGA O VALOR DO SEGURO PARA OS ITENS

PADRONIZAÇÃO - CODE INSPECTOR

AO DAR DUPLO CLIQUE NO PEDIDO DE COMPRAS NÃO ABRE TRANSAÇÃO

ABERTURA DE EXIT PARA TRATATIVA DE BOTOES ESPECÍFICOS (ANA)

NOS PROCESSOS DO CHILE AVISAR O NUMERO DA DECLARAÇÃO COM 11 DIGITOS

NÃO ESTÁ PREENCHENDO O VALOR A RECOLHER DOS IMPOSTOS COM VALOR FIXO

ADICIONAR COLUNA COM VALORES NA MOEDA INTERNA NA PASTA NCM-SUFIXOS

TRILHA DE AUDITORIA NA ANA

APAGANDO INFORMAÇÃO DA ANA

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.

...