Sintoma

O programa não esta calculando a porcentagem do Antidumping na DI

Solução

Atualização do programa da DI para que o sistema leve o Antidumping na aba Pagamentos e para que

no Débito em Conta sugira o valor do Antidumping.

Informações Complementares

----------------------------------------------------------------------------------------------------

Nota Número 06086 Data: 03/03/2008 Hora: 09:46:48

----------------------------------------------------------------------------------------------------

----------------------------------------------------------------------------------------------------

Nota Número              : 06086

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00004

Agrupamento              : 00036

----------------------------------------------------------------------------------------------------

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

----------------------------------------------------------------------------------------------------

O PROGRAMA NÃO ESTA CALCULANDO A PORCENTAGEM DO ANTIDUMPING NA DI

----------------------------------------------------------------------------------------------------

Palavras Chave:

ANTIDUMPING - DÉBITO CONTA

----------------------------------------------------------------------------------------------------

Objetos da nota:

DTEL /PWS/ZYCIL859

FUGR /PWS/ZYCIGF1

REPS /PWS/MZYCI006F01

REPS /PWS/MZYCI023F01

TABD /PWS/ZYCIT000

TOBJ /PWS/ZYCIT000S

----------------------------------------------------------------------------------------------------

Modificações efetuadas em DTEL /PWS/ZYCIL859

------------------------------------------------------------------------

Elemento de dados incluído: /PWS/ZYCIL859

Classe de desenvolvimento: /PWS/ZYGL

Idioma original: PT

Descrição breve incluída: (26 caracteres), idioma: PT

"GL - Código do Antidumping"

Categoria de dados: Domínio

Domínio: CHAR3

ID parâmetro:

Nome componente default:

Documentar modificações: SIM

Nome da ajuda de pesquisa:

Parâmetro da ajuda de pesquisa:

Comprimento máximo do denominador breve: 10

Denominador breve incluído (10 caracteres), idioma: PT

"Cod AntiDu"

Comprimento máximo do denominador médio: 18

Denominador médio incluído (18 caracteres), idioma: PT

"Código Antidumping"

Comprimento máximo do denominador longo: 20

Denominador longo incluído (18 caracteres), idioma: PT

"Código Antidumping"

Comprimento máximo do título: 18

Título incluído (18 caracteres), idioma: PT

"Código Antidumping"

----------------------------------------------------------------------------------------------------

Modificações efetuadas em FUGR /PWS/ZYCIGF1

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCI006F01

...

               INTO v_nradto.

  v_value = v_nradto + 1.

  MOVE : v_value               TO /pws/zycie008-nradto,

         /pws/zycie008-nradto       TO it_tab_aux-nradto.

ENDFORM.

FORM despesas_di.

  DATA:   v_dpicms    LIKE /pws/zycit085-vlicms,

          v_dpipi     LIKE /pws/zycit085-vlipi,

          v_dpii      LIKE /pws/zycit085-vlii ,

          v_dppis     LIKE /pws/zycit085-vlpis,

* >> Início da inclusão: FORM DESPESAS_DI

          v_dpantidump LIKE /pws/zycit085-vlcofins,

* << Fim da inclusão

          v_dpcofins  LIKE /pws/zycit085-vlcofins.

  DATA: v_vlicms    LIKE /pws/zycit016-vldp,

        v_vlipi     LIKE /pws/zycit016-vldp,

        v_vlii      LIKE /pws/zycit016-vldp,

        v_vlpis     LIKE /pws/zycit016-vldp,

        v_vlcofins  LIKE /pws/zycit016-vldp,

* >> Início da inclusão: FORM DESPESAS_DI

        v_vlantidump LIKE /pws/zycit016-vldp,

* << Fim da inclusão

        v_line      TYPE i                 .

...

...

      IF NOT '156' CA itab_zycit443-codregtriipi .

        v_dpipi     = v_dpipi     + itab_zycit443-vlipi   .

      ENDIF.

      IF NOT '356' CA itab_zycit443-codregtri .

        v_dpii      = v_dpii     + itab_zycit443-vlii    .

      ENDIF.

      IF  NOT '356' CA itab_zycit443-codregtripiscofi  .

        v_dppis     = v_dppis    + itab_zycit443-vlpis   .

        v_dpcofins  = v_dpcofins + itab_zycit443-vlcofins.

      ENDIF.

* >> Início da inclusão: FORM DESPESAS_DI

      IF NOT itab_zycit443-baseantid IS INITIAL.

        v_dpantidump = v_dpantidump +

        ( itab_zycit443-baseantid * ( itab_zycit443-antidrate / 100 ) ).

      ENDIF.

* << Fim da inclusão

    ENDLOOP.

  ELSE.

    LOOP AT itab_zycit100.

      IF NOT '356' CA itab_zycit100-codregtriicms AND

         NOT itab_zycit100-icms_dif EQ 'X' .

        v_dpicms    = v_dpicms   + itab_zycit100-vlicms  .

      ENDIF.

      IF NOT '156' CA itab_zycit100-codregtriipi.

        v_dpipi     = v_dpipi     + itab_zycit100-vlipi   .

      ENDIF.

      IF NOT '356' CA itab_zycit100-codregtri .

        v_dpii      = v_dpii     + itab_zycit100-vlii    .

      ENDIF.

      IF NOT '356' CA itab_zycit100-codregtripiscofi .

        v_dppis     = v_dppis    + itab_zycit100-vlpis   .

        v_dpcofins  = v_dpcofins + itab_zycit100-vlcofins.

* >> Início da inclusão: FORM DESPESAS_DI

      ENDIF.

      IF NOT itab_zycit100-baseantid IS INITIAL.

        v_dpantidump = v_dpantidump +

        ( itab_zycit100-baseantid * ( itab_zycit100-antidrate / 100 ) ).

* << Fim da inclusão

      ENDIF.

    ENDLOOP.

  ENDIF.

  v_vlicms   =  v_dpicms   .

  v_vlipi    =  v_dpipi    .

  v_vlii     =  v_dpii     .

  v_vlpis    =  v_dppis    .

  v_vlcofins =  v_dpcofins .

* >> Início da inclusão: FORM DESPESAS_DI

  v_vlantidump = v_dpantidump.

* << Fim da inclusão

  CHECK sy-subrc EQ 0.

  IF /pws/zycit000 IS INITIAL.

    SELECT SINGLE *

      FROM t001

      INTO t001

      WHERE bukrs EQ /pws/zycie008-bukrs.

    SELECT SINGLE *

      FROM /pws/zycit000

      WHERE land1 EQ t001-land1.

  ENDIF.

  LOOP AT it_zycit016_aux.

* >> Início da exclusão: FORM DESPESAS_DI

    IF it_zycit016_aux-tpdesp EQ '001'.

* << Fim da exclusão

* >> Início da inclusão: FORM DESPESAS_DI

    IF it_zycit016_aux-tpdesp EQ /pws/zycit000-cod_antidump.

      MOVE v_vlantidump  TO it_zycit016_aux-vldp.

    ELSEIF it_zycit016_aux-tpdesp EQ '001'.

* << Fim da inclusão

      MOVE v_vlipi  TO it_zycit016_aux-vldp.

    ELSEIF it_zycit016_aux-tpdesp EQ '002'.

      MOVE v_vlicms TO it_zycit016_aux-vldp.

    ELSEIF it_zycit016_aux-tpdesp EQ '003'.

      MOVE v_vlii   TO it_zycit016_aux-vldp.

    ELSEIF it_zycit016_aux-tpdesp EQ /pws/zycit000-cod_sisc.

      IF /pws/zycit001-regime = '04' AND /pws/zycit001-tpdecl = 'DI'.

        SORT itab_zycit443 BY adicao.

        MOVE itab_zycit443[] TO itab_zycit443_aux[].

        DELETE ADJACENT DUPLICATES FROM itab_zycit443_aux

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCI023F01

...

    IF sy-subrc EQ 0.

      IF v_dit = 'N'.

        IF v_petroleo IS INITIAL.

          PERFORM: fill_receitas_auto USING '0086' s_wiireco.

        ELSE.

          PERFORM: fill_receitas_auto USING '1962' s_wiireco.

        ENDIF.

        PERFORM: fill_receitas_auto USING '1038' s_wipireco,

                 fill_receitas_auto USING '7811' s_wsisco  ,

                 fill_receitas_auto USING '5602' s_wpisreco,

* >> Início da inclusão: FORM FILL_RECEITAS

                 fill_receitas_auto USING '5529' s_waddevi,

* << Fim da inclusão

                 fill_receitas_auto USING '5629' s_wcofreco.

      ELSE.

        IF v_petroleo IS INITIAL.

          PERFORM: fill_receitas_auto USING '0086' t_vlii.

        ELSE.

          PERFORM: fill_receitas_auto USING '1962' t_vlii.

        ENDIF.

        PERFORM: fill_receitas_auto USING '1038' t_vlipi.

      ENDIF.

    ENDIF.

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em TABD /PWS/ZYCIT000

ALTERAÇÃO NA TABELA /PWS/ZYCIT000 - CI - Param. Gerais de Importação

CRIAÇÃO DO CAMPO COD_ANTIDUMP

CAMPOS                  COD_ANTIDUMP

CHV

INIC.

TIPO DE CAMPO           /PWS/ZYCIL859

CATEGORIA DE DA         CHAR

COMPR.                  3

CASAS DEC.              0

TABELA DE VERIFICAÇÃO

DESCRIÇÃO BREVE         GL - Código do Antidumping

GRUPO

APÓS CRIAÇÃO DO CAMPO EXECUTAR EM:

SE11

  UTILITÁRIOS

      GERADOR DE ATUALIZAÇÃO DE TABELAS