Sintoma

O programa não permiti utilizar Atos concessórios suspensão genérico e suspensão comum ao mesmo

tempo.

Solução

Atualização do programa de vinculação de pedidos para permitir o uso de atos concessórios genéricos

e comuns ao mesmo tempo.

Informações Complementares

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

Nota Número 07394 Data: 03/10/2008 Hora: 08:12:12

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

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

Nota Número              : 07394

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00007

Agrupamento              : 00067

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

Referência às notas relacionadas:

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

02501  - 00001 - 6.0    - 00025  - AJUSTE NO TRATAMENTO DE INSUMOS ALTERNATIVOS.

03267  - 00002 - 7.0    - 00001  - VINCULAÇÃO DE IMPORTAÇÃO

05529  - 00003 - 7.0    - 00004  - O PROGRAMA ESTÁ PERMITINDO VINCULAR PEDIDO SEM A UNIDADE DE MEDID

06627  - 00004 - 7.0    - 00005  - ABERTURA DAS EXIT'S VIN001 E VIN002

06896  - 00005 - 7.0    - 00006  - DRAWBACK INTERMEDIÁRIO IMPORTAÇÃO - ISENÇÃO

07061  - 00006 - 7.0    - 00006  - COMPRAS NO MERCADO INTERNO.

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

PERTIMIR UTILIZAÇÃO DE ATO CONCESSÓRIO GENÉRICO E COMUM AO MESMO TEMPO

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

Palavras Chave:

VINCULAÇÃO DE IMPORTAÇÃO GENÉRICO COMUM

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

Objetos da nota:

REPS /PWS/MZYCI068F01

REPS /PWS/MZYCI068O01

REPS /PWS/MZYCI068TOP

REPT /PWS/SAPMZYCI068

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

Modificações efetuadas em REPS /PWS/MZYCI068TOP

PROGRAM  /pws/sapmzyci068  MESSAGE-ID /pws/zycim  .

INCLUDE /PWS/MZYCI068X01.

SELECTION-SCREEN BEGIN OF SCREEN 0001 AS WINDOW TITLE text-000.

SELECT-OPTIONS: s_ebeln  FOR ekko-ebeln         ,

                s_werks  FOR /pws/zycit244-werks,

                s_data   FOR sy-datum           .

* >> Início da inclusão:

PARAMETER s_apr AS CHECKBOX.

* << Fim da inclusão

SELECTION-SCREEN END OF SCREEN 0001.

AT SELECTION-SCREEN.

  CASE sy-ucomm.

    WHEN 'CRET'.

      PERFORM user_command_001.

  ENDCASE.

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

Modificações efetuadas em REPS /PWS/MZYCI068F01

...

    ENDIF.

  ENDIF.

  LOOP AT itab_ekpo.

    CLEAR itab_zycit376_t.

    READ TABLE itab_zycit376 WITH KEY

                            ebeln = itab_ekpo-ebeln

                            ebelp = itab_ekpo-ebelp.

    IF sy-subrc EQ 0.

      CONTINUE.

    ENDIF.

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

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

* << Fim da exclusão

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

    IF s_apr NE 'X'.

* << Fim da inclusão

      IF /pws/zycit321-c_comum IS INITIAL.

        READ TABLE itab_atos WITH KEY matnr = itab_ekpo-matnr

                                    j_1bnbm = itab_ekpo-j_1bnbm.

      ELSE.

        READ TABLE itab_atos WITH KEY j_1bnbm = itab_ekpo-j_1bnbm.

      ENDIF.

      IF sy-subrc NE 0.

        READ TABLE itab_zycit433 WITH KEY

                                        matnr = itab_ekpo-matnr.

        CLEAR: v_flag.

...

...

              taxa_nao_encontrada        = 6

              i_montante_nao_encontrado  = 7.

    p_paravlme = v_paravlme.

  ENDIF.

ENDFORM.

FORM selec_atos.

  REFRESH: itab_zycit245,

           itab_zycit244.

  SELECT * FROM /pws/zycit244 INTO TABLE itab_zycit244

      WHERE status EQ 'D'.                              "#EC CI_NOFIELD

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

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

* << Fim da exclusão

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

  IF s_apr EQ 'X'.

* << Fim da inclusão

    DELETE itab_zycit244

                  WHERE tipo NE 'G'.

  ELSE.

    DELETE itab_zycit244

                  WHERE tipo NE 'C'

                    AND tipo NE 'N'.

  ENDIF.

  IF NOT itab_zycit244[] IS INITIAL.

    PERFORM verifica_lock_ato.

    SELECT * FROM /pws/zycit245 INTO TABLE itab_zycit245

...

...

    itab_zycit376-qtd_apro = itab_zycit376-qtd_iten.

    PERFORM converte_um_ncm  USING itab_zycit376-matnr

                          CHANGING itab_zycit376-meins

                                   itab_ekpo-werks

                                   itab_zycit376-qtd_apro.

    IF itab_zycit376-qtd_iten IS INITIAL OR

       itab_zycit376-qtd_apro IS INITIAL.

      DELETE itab_zycit376.

      CONTINUE.

    ENDIF.

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

    IF /pws/zycit321-apr_imp IS INITIAL.

* << Fim da exclusão

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

    IF s_apr IS INITIAL.

* << Fim da inclusão

      /pws/zycie376 = itab_zycit376.

    ENDIF.

    MODIFY itab_zycit376.

    v_qtd_tot = v_qtd_tot + itab_zycit376-qtd_apro.

    v_vlfob = v_vlfob + itab_zycit376-vlfob.

  ENDLOOP.

  /pws/zycie376-qtd_iten = v_qtd_tot.

  /pws/zycie376-vlfob = v_vlfob.

ENDFORM.

FORM trata_screen200.

  LOOP AT SCREEN.

    IF screen-group1 EQ 'MAT' AND

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

       /pws/zycit321-apr_imp EQ 'X'.

* << Fim da exclusão

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

       s_apr EQ 'X'.

* << Fim da inclusão

      screen-invisible = 1.

      MODIFY SCREEN.

    ENDIF.

  ENDLOOP.

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

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

* << Fim da exclusão

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

  IF s_apr EQ 'X'.

* << Fim da inclusão

    LOOP AT tc_atos-cols INTO wa_cols.

      IF wa_cols-screen-name EQ '/PWS/ZYCIE244-T_IMPORT'.

        wa_cols-invisible = 1.

        MODIFY tc_atos-cols FROM wa_cols.

      ENDIF.

    ENDLOOP.

  ENDIF.

ENDFORM.

FORM move_atos.

  DATA: BEGIN OF itab_mat_t OCCURS 0.

  DATA: matnr LIKE mara-matnr.

  DATA: END OF itab_mat_t.

  DATA: v_grupo TYPE /pws/zycit433-grupo.

  itab_atos_t[] = itab_atos[].

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

  IF /pws/zycit321-apr_imp IS INITIAL.

* << Fim da exclusão

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

  IF s_apr IS INITIAL.

* << Fim da inclusão

    IF /pws/zycit321-c_comum IS INITIAL.

      REFRESH itab_zycit433a.

      itab_zycit433a[] = itab_zycit433[].

      CLEAR: v_grupo, itab_zycit433.

      READ TABLE itab_zycit433 WITH KEY matnr = itab_zycit376_t-matnr.

      v_grupo = itab_zycit433-grupo.

      DELETE itab_zycit433a WHERE grupo NE v_grupo.

      IF /pws/zycit321-it_ge IS INITIAL.

        LOOP AT itab_atos_t.

          READ TABLE itab_zycit433a WITH KEY

...

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

Modificações efetuadas em REPS /PWS/MZYCI068O01

MODULE preenche_tl100 OUTPUT.

  /pws/zycie376 = itab_zycit376_t.

  v_marc = itab_zycit376_t-marc.

ENDMODULE.

MODULE status_0100 OUTPUT.

  SET PF-STATUS 'ST0100'.

  SET TITLEBAR 'TL0100'.

  DESCRIBE TABLE itab_zycit376_t LINES v_lines.

  tc_ped1-lines = v_lines.

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

  IF NOT /pws/zycit321-apr_imp IS INITIAL.

* << Fim da exclusão

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

  IF NOT s_apr IS INITIAL.

* << Fim da inclusão

    tc_ped1-line_sel_mode = 2.

  ENDIF.

ENDMODULE.

MODULE preenche_tl200 OUTPUT.

  /pws/zycie244-nrseqd  =  itab_atos_t-nrseqd.

  /pws/zycie244-nratoc  =  itab_atos_t-nratoc.

  /pws/zycie244-dtatoc  =  itab_atos_t-data  .

  /pws/zycie244-modalidade =  itab_atos_t-modalidade.

  /pws/zycie244-tipo  =  itab_atos_t-tipo.

  /pws/zycie244-t_importfob  =  itab_atos_t-vlfob.

...

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

Modificações efetuadas em REPT /PWS/SAPMZYCI068

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

Incluído texto de seleção:

Idioma: PT

Variável (SELECT-OPTION / PARAMETER): S_APR

Texto: (16 caracteres)

"Genérico"

Referência ao Dictionary: NÃO