Sintoma

Quando nos parametros gerais está marcado para controle do ato concessório por NCM ou item genérico

o ato não exibe corretamente os itens importados.

Solução

Ajustar a montagem dos dados para atender estes cenarios.

Informações Complementares

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

Nota Número 02678 Data: 12/12/2006 Hora: 16:38:10

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

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

Nota Número              : 02678

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00025

Agrupamento              : 00144

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

Referência às notas relacionadas:

Número - Ordem - Versão - Pacote - Descrição Breve

02575  - 00001 - 6.0    - 00025  - CONTROLE DE ATO INTERMEDIARIO-IMPORTADOR POR NCM E MULTIPLAS AREA

02619  - 00002 - 6.0    - 00025  - AJUSTE INSUMO ALTERNATIVO, CENTROS DA COMPOSIÇÃO E DATAS DO ATO

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

AJUSTADO MONTAGEM DO REALIZADO DE IMPORTAÇÃO DO ATO CONCESSÓRIO ISENÇÃO.

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

Palavras Chave:

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

Objetos da nota:

REPS /PWS/MZYCI040F02

REPS /PWS/MZYCI040I01

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

Modificações efetuadas em REPS /PWS/MZYCI040F02

...

          wa_cols2-screen-input = 0.

          MODIFY tc_cimp2-cols FROM wa_cols2.

        ENDIF.

        CASE wa_cols2-screen-name .

          WHEN '/PWS/ZYCIE245-J_1BNBM'.

            IF /pws/zycit321-it_ge EQ 'X'.

              wa_cols2-screen-input = 1.

              MODIFY tc_cimp2-cols FROM wa_cols2.

            ENDIF.

          WHEN '/PWS/ZYCIE245-WAERS'.

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

            IF /pws/zycit321-it_ge EQ 'X'.

* << Fim da exclusão

              wa_cols2-screen-input = 1.

              MODIFY tc_cimp2-cols FROM wa_cols2.

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

            ENDIF.

* << Fim da exclusão

          WHEN '/PWS/ZYCIE245-NETPR_T'.

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

            IF /pws/zycit321-it_ge EQ 'X'.

* << Fim da exclusão

              wa_cols2-screen-input = 1.

              MODIFY tc_cimp2-cols FROM wa_cols2.

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

            ENDIF.

* << Fim da exclusão

        ENDCASE.

        IF wa_cols2-screen-group2 EQ 'GR'.

          IF /pws/zycit321-it_ge NE 'X'.

            wa_cols2-invisible = 1.

            MODIFY tc_cimp2-cols FROM wa_cols2.

          ELSE.

            wa_cols2-invisible = 0.

            MODIFY tc_cimp2-cols FROM wa_cols2.

          ENDIF.

        ENDIF.

...

...

    itab_zycit246_save[] = itab_zycit246_final[].

    itab_zycit247_save[] = itab_zycit247[].

    itab_zycit248_save[] = itab_zycit248_final[].

    itab_centros2_save[] = itab_centros2[].

    itab_vencto2_save[]  = itab_vencto2[].

    PERFORM le_textos.

    IF /pws/zycie244-modalidade EQ 'S' AND

       ( /pws/zycie244-tipo       EQ 'N' OR

         /pws/zycie244-tipo       EQ 'G' OR

         /pws/zycie244-tipo       EQ 'F' )

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

       OR /pws/zycit321-c_comum EQ 'X'.

* << Fim da exclusão

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

       OR /pws/zycit321-c_comum EQ 'X'

       OR ( /pws/zycit321-it_ge EQ 'X' AND

            /pws/zycie244-modalidade EQ 'I' ).

* << Fim da inclusão

    ELSE.

      PERFORM alertas_ncm.

    ENDIF.

    IF sy-tcode EQ '/PWS/ZYCI040_A' AND /pws/zycie244-fechado EQ 'X'.

      v_tcode2 = '/PWS/ZYCI040_E'.

      v_tcode2_aux = 'X'.

    ENDIF.

    PERFORM lista_tecnica.

    CALL SCREEN 0200.

  ELSE.

...

...

    MOVE: itab_zycit279_ap-um_base TO itab_zycit246_final-meins.

    itab_zycit246_final-um_ncm = itab_zycit279_ap-meins.

    itab_zycit246_final-qtd_nacion = itab_zycit279_ap-slqtde -

                                     itab_zycit279_ap-qtd_transf.

    itab_zycit246_final-qtd_ncm = itab_zycit279_ap-menge.

    itab_zycit246_final-qtd_compv = itab_zycit279_ap-menge -

                                    itab_zycit279_ap-slqtde.

    IF /pws/zycie244-tipo EQ 'F' OR

       ( ( /pws/zycie244-tipo EQ 'C' OR

           /pws/zycie244-tipo EQ 'N' ) AND

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

         /pws/zycit321-c_comum EQ 'X' ).

* << Fim da exclusão

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

         /pws/zycit321-c_comum EQ 'X' AND

         /pws/zycie244-modalidade NE 'I' ) OR

         ( /pws/zycie244-modalidade EQ 'I' AND

           /pws/zycit321-it_ge EQ 'X'  ).

* << Fim da inclusão

      READ TABLE itab_zycit245 WITH KEY

                      j_1bnbm = itab_zycit279_ap-j_1bnbm.

      itab_zycit246_final-nritem = itab_zycit245-nritem.

    ELSEIF /pws/zycie244-tipo EQ 'G'.

      itab_zycit246_final-nritem = '00001'.

    ELSE.

      IF /pws/zycit321-it_ge EQ 'X' AND

         /pws/zycie244-modalidade EQ 'I'.

        CLEAR:itab_zycit433a.

        LOOP AT itab_zycit433a

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

                          WHERE matnr EQ itab_zycit279_ap-matnr

                            AND dtde  <= itab_zycit279_ap-dtdi

                            AND dtate >= itab_zycit279_ap-dtdi.

* << Fim da exclusão

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

                             WHERE matnr EQ itab_zycit279_ap-matnr.

* << Fim da inclusão

          EXIT.

        ENDLOOP.

        IF itab_zycit433a-grupo IS INITIAL.

          CONTINUE.

        ENDIF.

        READ TABLE itab_zycit245 WITH KEY

                        grupo = itab_zycit433-grupo.

      ELSE.

        READ TABLE itab_zycit245 WITH KEY

                        codcomp = itab_zycit279_ap-matnr.

...

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

Modificações efetuadas em REPS /PWS/MZYCI040I01

...

  itab_zycit246-ntgew    = /pws/zycie246-ntgew   .

  itab_zycit246-matnr    = /pws/zycie246-matnr   .

  itab_zycit246-itmnum   = /pws/zycie246-itmnum  .

  itab_zycit246-vlfrete  = /pws/zycie246-vlfrete .

  itab_zycit246-vlseg    = /pws/zycie246-vlseg   .

ENDMODULE.

MODULE insert_line_comprov_ci INPUT.

  IF /pws/zycie244-tipo EQ 'G'.

    PERFORM fill_itab_zycit245_tg2.

  ELSEIF /pws/zycie244-tipo EQ 'F' OR

* >> Início da exclusão: MODULE INSERT_LINE_COMPROV_CI

           /pws/zycit321-c_comum EQ 'X'.

* << Fim da exclusão

* >> Início da inclusão: MODULE INSERT_LINE_COMPROV_CI

           /pws/zycit321-c_comum EQ 'X' or

           /pws/zycit321-it_ge eq 'X'.

* << Fim da inclusão

    PERFORM fill_itab_zycit245_tf2.

  ELSE.

    PERFORM fill_itab_zycit245_ng2.

  ENDIF.

ENDMODULE.

MODULE user_command_0203 INPUT.

  CASE ok_code2.

    WHEN 'ENTE'.

      PERFORM trata_enter_0203.

    WHEN 'P-'.

...

...

      ENDIF.

      MOVE: wa_zycit2582-bukrs      TO /pws/zycie244-bukrs     ,

            wa_zycit2582-codagrup   TO /pws/zycie244-codagrup  ,

            wa_zycit2582-modalidade TO /pws/zycie244-modalidade,

            wa_zycit2582-tipo       TO /pws/zycie244-tipo      ,

            wa_zycit2582-tipo2      TO /pws/zycie244-tipo2     ,

            wa_zycit2582-werks      TO /pws/zycie244-werks     ,

            wa_zycit2582-ekorg      TO /pws/zycie244-ekorg     ,

            wa_zycit2582-importacao TO /pws/zycie244-importacao.

      SELECT SINGLE * FROM t001 WHERE bukrs EQ /pws/zycie244-bukrs.

* >> Início da inclusão: MODULE TRATA_COMPOSICAO

      CLEAR itab_centros2. REFRESH itab_centros2.

      SELECT mandt nrseqd werks FROM /pws/zycit434

            INTO TABLE itab_centros2

             WHERE nrseqd EQ /pws/zycie244-nrcompos.

      IF sy-subrc EQ 0.

        itab_centros2-nrseqd = /pws/zycie244-nrseqd.

        MODIFY itab_centros2 transporting nrseqd

                      WHERE nrseqd EQ /pws/zycie244-nrcompos.

      ENDIF.

* << Fim da inclusão

      PERFORM busca_dados_composicao.

      IF v_tcode2 EQ '/PWS/ZYCI040_A'.

        IF /pws/zycie244-modalidade EQ 'S'.

        ELSE.

        ENDIF.

      ENDIF.

    ELSE.

      MESSAGE e015 WITH text-051.

    ENDIF.

  ELSE.

...

...

  IF /pws/zycie244-tipo EQ 'F'.

    CLEAR v_stfield.

    PERFORM status_field USING '/PWS/ZYCIE244-DTATOC' CHANGING

 v_stfield.

    IF /pws/zycie244-dtatoc IS INITIAL AND

       /pws/zycie244-status EQ 'D'     AND

       v_stfield EQ 1.

      MESSAGE e015 WITH text-174.

    ENDIF.

  ENDIF.

* >> Início da exclusão: MODULE TRATA_OBRIGATORIO_DT

  IF NOT /pws/zycie244-dtdi IS INITIAL AND

     /pws/zycie244-vcto_fn IS INITIAL    AND

     /pws/zycie244-status NE 'A'         AND

     /pws/zycie244-status NE 'I'.

    /pws/zycie244-vcto_fn = /pws/zycie244-dtdi + 731.

    IF /pws/zycie244-vcto_vg IS INITIAL.

      /pws/zycie244-vcto_vg = /pws/zycie244-vcto_fn.

      itab_vencto2-vencto = /pws/zycie244-vcto_fn.

      APPEND itab_vencto2.

    ENDIF.

  ENDIF.

* << Fim da exclusão

ENDMODULE.

MODULE trata_obrigatorio_fr INPUT.

  IF /pws/zycie244-tipo EQ 'F'.

    CLEAR v_stfield.

    PERFORM status_field USING '/PWS/ZYCIE244-LIFNR' CHANGING v_stfield.

    IF /pws/zycie244-lifnr IS INITIAL AND v_stfield EQ 1.

      MESSAGE e015 WITH text-174.

    ENDIF.

  ENDIF.

ENDMODULE.

...

...

  PERFORM seleciona_tipo.

ENDMODULE.

MODULE verifica_ato INPUT.

  IF /pws/zycie244-status EQ 'D'.

    IF /pws/zycie244-nratoc IS INITIAL OR

       /pws/zycie244-dtatoc IS INITIAL.

      MESSAGE e015 WITH text-209 text-210.

      /pws/zycie244-status = v_status_dif.

      EXIT.

    ELSE.

* >> Início da exclusão: MODULE VERIFICA_ATO

      /pws/zycie244-dtdi = /pws/zycie244-dtatoc.

      IF NOT /pws/zycie244-dtatoc IS INITIAL.

        /pws/zycie244-vcto_fn = /pws/zycie244-dtatoc + 731.

        IF /pws/zycie244-vcto_vg IS INITIAL.

          /pws/zycie244-vcto_vg = /pws/zycie244-vcto_fn.

          itab_vencto2-vencto = /pws/zycie244-vcto_fn.

          APPEND itab_vencto2.

        ENDIF.

        UPDATE /pws/zycit244 SET vcto_fn = /pws/zycie244-vcto_fn

           WHERE nrseqd EQ /pws/zycie244-nrseqd.

      ENDIF.

* << Fim da exclusão

    ENDIF.

  ELSEIF /pws/zycie244-status EQ 'E' AND

         wa_zycit244-status NE 'E' AND

         sy-ucomm NE 'ENCER'.

    /pws/zycie244-status = wa_zycit244-status.

  ENDIF.

ENDMODULE.

MODULE altera_cliente INPUT.

  IF NOT /pws/zycie244-kunnr IS INITIAL.

    CLEAR: /pws/zycie244-name1, /pws/zycie244-stcd1.

...