Sintoma

Inclusão da coluna ncm na tela seleção automatica para a Di de nacionalização

Solução

Inclusão da coluna ncm na tela seleção automatica para a Di de nacionalização

Informações Complementares

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

Nota Número 05811 Data: 31/01/2008 Hora: 11:05:54

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

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

Nota Número              : 05811

Categoria                : Melhoria

Prioridade               : Baixa

Versão PW.CE             : 7.0

Pacote                   : 00004

Agrupamento              : 00032

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

Referência às notas relacionadas:

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

01516  - 00001 - 6.0    - 00023  - DUMP NO EMBARQUE DE RECOF

04780  - 00002 - 7.0    - 00003  - ERRO AO VINCULAR ITENS DA DA MANUALMENTE NO EMBARQUE

05364  - 00003 - 7.0    - 00003  - EMBARQUE: VINCULAÇÃO RECOF

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

INCLUSÃO DA COLUNA NCM NA SELEÇÃO AUTOMATICA PARA A DI DE NACIONALIZAÇÃO

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

Palavras Chave:

EMBARQUE - DI - NACIONALIZAÇÃO - VINCULAR - RECOF - COLUNA - NCM

/PWS/SAPMZYCI001

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

Objetos da nota:

CUAD /PWS/SAPMZYCI001

DYNP /PWS/SAPMZYCI001                        0003

REPS /PWS/MZYCI001F03

REPS /PWS/MZYCI001I01

REPS /PWS/MZYCI001O01

REPS /PWS/MZYCI001X01

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

Modificações efetuadas em CUAD /PWS/SAPMZYCI001

Alterações status gui: 0003

*Teclas de função:

Código de função     Tecla F Tecla de função                Código de função     Texto

* >> Início da inclusão: 0003

000016               06      F6                             MALL                 Marcar todos

000016               07      F7                             DALL                 Desmarcar todos

* << Fim da inclusão

*Botões:

Code de objeto       Code Item Tecla de função                Código de função     Id   Exibição

* >> Início da exclusão:

000016               0001 02   F5                             CANCEL

000016               0001 01   F8                             ENTER

* << Fim da exclusão:

* >> Início da inclusão: 0003

000016               0001 01   F6                             MALL

000016               0001 02   F7                             DALL

000016               0001 03   F8                             ENTER

000016               0001 04   F5                             CANCEL

* << Fim da inclusão

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

Modificações efetuadas em DYNP /PWS/SAPMZYCI001                        0003

*Inclusão da coluna NCM

*Titulo da coluna: NCM

*Propriedades da coluna: ITAB_DA-J_1BNBM

   Nome

      Ctg.      Linha   Coluna  CmprDf  CmVis   Altura  Format Dict  Modif At.Des.Só At

      Gr1 Gr2 Gr3 Gr4  SPA GPA ID parâm             Cód.F                TCmp   TpoLoopExbLoop

      Outros atributos

 - ITAB_DA-J_1BNBM

      I/O        1        1      16      16       1     CHAR                   Off

      Elem.TC

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

Modificações efetuadas em REPS /PWS/MZYCI001F03

...

    ENDIF.

  ENDLOOP.

ENDFORM.

FORM user_command_0003.

  CASE sy-ucomm.

    WHEN 'ENTER'.

      PERFORM:

               selecionar_itens_da.

      IF v_prod_dif NE 'X'.

        REFRESH CONTROL 'TC_SELDA' FROM SCREEN sy-dynnr .

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

        tc_selda-fixed_cols = 0.

* << Fim da inclusão

        LEAVE TO SCREEN 0.

      ENDIF.

    WHEN 'CANCEL'.

      REFRESH CONTROL 'TC_SELDA' FROM SCREEN sy-dynnr .

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

      tc_selda-fixed_cols = 0.

* << Fim da inclusão

      LEAVE TO SCREEN 0.

    WHEN 'P-'.

      tc_selda-top_line = tc_selda-top_line - 10.

    WHEN 'P--'.

      tc_selda-top_line = tc_selda-top_line - tc_selda-lines.

    WHEN 'P+'.

      tc_selda-top_line = tc_selda-top_line + 10.

    WHEN 'P++'.

      tc_selda-top_line = tc_selda-top_line + tc_selda-lines.

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

    WHEN 'MALL'.

      itab_da-rc = 'X'.

      MODIFY itab_da TRANSPORTING rc WHERE rc NE 'X'.

    WHEN 'DALL'.

      CLEAR: itab_da-rc.

      MODIFY itab_da TRANSPORTING rc WHERE rc EQ 'X'.

* << Fim da inclusão

  ENDCASE.

ENDFORM.

FORM carrega_estrutura_0003.

  MOVE :

      itab_da-nrseqda  TO /pws/zycie442-nrseqda ,

      itab_da-ebeln    TO /pws/zycie443-ebeln   ,

      itab_da-ebelp    TO /pws/zycit443-ebelp   ,

      itab_da-matnr    TO /pws/zycie443-matnr   ,

      itab_da-lote_forn TO /pws/zycie463-lote_forn,

      itab_da-qtd_lote TO /pws/zycie463-qtd_lote.

...

...

          ELSE.

            wa_cols-screen-input = '0'.

          ENDIF.

        ENDIF.

    ENDCASE.

    IF wa_cols-screen-name EQ 'ITAB_DA-RC'.

      IF v_caller EQ 'SELECIONAR_RC'.

        wa_cols-screen-invisible = '0'.

      ELSE.

        wa_cols-screen-invisible = '1'.

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

      ENDIF.

    ENDIF.

    IF wa_cols-screen-name EQ 'ITAB_DA-J_1BNBM'.

      IF v_manual EQ 'X'.

        wa_cols-invisible = '1'.

      ELSE.

        wa_cols-invisible = '0'.

* << Fim da inclusão

      ENDIF.

    ENDIF.

    MODIFY tc_selda-cols FROM wa_cols.

  ENDLOOP.

ENDFORM.

FORM salva_dados_da.

  DATA: itab_zycit463 LIKE /pws/zycit463 OCCURS 0 WITH HEADER LINE.

  DATA: itab_zycit467_aux LIKE /pws/zycit467 OCCURS 0 WITH HEADER LINE.

  LOOP AT itab_zycit003_del.

    DELETE itab_zycit455 WHERE nrseq  = /pws/zycie001-nrseq

...

...

            DELETE itab_rc_aux.

          ENDIF.

        ENDLOOP.

      ENDIF.

      IF NOT itab_rc_aux[] IS INITIAL.

  SELECT /pws/zycit085~nrseqdi /pws/zycit100~nrseq  /pws/zycit100~ebeln

            /pws/zycit100~ebelp /pws/zycit100~adicao /pws/zycit085~nrdi

        /pws/zycit085~bukrs /pws/zycit085~codreg /pws/zycit085~dtdesemb

                             /pws/zycit003~matnr /pws/zycit003~qtd_iten

                                            /pws/zycit100~item_adi_sisc

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

                                                FROM (  ( /pws/zycit085

* << Fim da exclusão

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

                                                           ekpo~j_1bnbm

                                                                   FROM

                                                                      (

                                                      ( ( /pws/zycit085

* << Fim da inclusão

                                            INNER JOIN /pws/zycit100 ON

                        /pws/zycit085~nrseqdi = /pws/zycit100~nrseqdi )

                                            INNER JOIN /pws/zycit003 ON

                              /pws/zycit003~nrseq = /pws/zycit100~nrseq

                        AND   /pws/zycit003~ebeln = /pws/zycit100~ebeln

                      AND   /pws/zycit003~ebelp = /pws/zycit100~ebelp )

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

                                                LEFT OUTER JOIN ekpo ON

                                  /pws/zycit100~ebeln EQ ekpo~ebeln AND

                                    /pws/zycit100~ebelp EQ ekpo~ebelp )

* << Fim da inclusão

                                                     INTO TABLE itab_di

                                         FOR ALL ENTRIES IN itab_rc_aux

               WHERE /pws/zycit085~bukrs      EQ itab_rc_aux-cod_matriz

                 AND /pws/zycit085~j_1bbranch EQ itab_rc_aux-cod_filial

                  AND /pws/zycit085~nrdi       EQ itab_rc_aux-num_da_di

                 AND /pws/zycit100~adicao     EQ itab_rc_aux-num_adicao

      AND /pws/zycit100~item_adi_sisc    EQ itab_rc_aux-num_item_adicao

                          AND /pws/zycit100~codfunleg IN itab_codfunleg.

        IF sy-subrc = 0.

          LOOP AT itab_di.

...

...

                                num_item_adicao = itab_di-item_adi_sisc.

            MOVE: itab_di-nrseqdi TO itab_da-nrseqda ,

                  itab_di-nrseq   TO itab_da-nrseq,

                  itab_di-nrdi    TO itab_da-nrdi ,

                  itab_di-bukrs   TO itab_da-bukrs ,

                  itab_di-codreg  TO itab_da-codreg ,

                  itab_di-dtdesemb TO itab_da-dtdesemb ,

                  itab_di-ebeln TO itab_da-ebeln ,

                  itab_di-ebelp TO itab_da-ebelp ,

                  itab_di-adicao TO itab_da-adicao ,

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

                  itab_di-j_1bnbm TO itab_da-j_1bnbm,

* << Fim da inclusão

                  itab_di-matnr TO itab_da-matnr ,

                  itab_di-qtd_iten TO itab_da-qtd_lote,

                  itab_di-item_adi_sisc TO itab_da-itseqda.

            MOVE:

                  itab_rc_aux-id_reg_ano_nac TO itab_da-id_reg_ano_nac,

                  itab_rc_aux-id_reg_num_nac TO itab_da-id_reg_num_nac,

                  itab_rc_aux-id_reg_itm_nac TO itab_da-id_reg_itm_nac.

            APPEND itab_da.

          ENDLOOP.

          SORT itab_da BY nrseqda adicao itseqda ebeln ebelp

...

...

            ENDLOOP.

            itab_da-qtd_nac = itab_da-qtd_nac - v_qtdutil_da.

            IF itab_da-qtd_nac LE 0.

              DELETE itab_da.

            ENDIF.

          ENDLOOP.

        ENDIF.

      ENDIF.

      DESCRIBE TABLE itab_da LINES v_line.

      v_caller = 'SELECIONAR_RC'.

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

      SORT itab_da BY j_1bnbm.

* << Fim da inclusão

      CALL SCREEN '0003'.

    ELSE.

      MESSAGE s015 WITH text-259 text-264.

    ENDIF.

  ENDIF.

ENDFORM.

FORM criar_tipo USING    p_tabname

                CHANGING p_tipo.

  DATA:

    t_fieldcat TYPE lvc_t_fcat.

...

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

Modificações efetuadas em REPS /PWS/MZYCI001I01

...

          PERFORM verifica_rc.

        ENDIF.

        SELECT * FROM /pws/zycit482 INTO TABLE itab_zycit482

          WHERE processo = '1'.

        IF v_manual EQ 'N'.

          CALL SELECTION-SCREEN '0701'.

        ELSE.

          CALL SELECTION-SCREEN '0700'.

        ENDIF.

      WHEN 'SELE_RC'.

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

        tc_selda-fixed_cols = 1.

        CLEAR: v_manual.

* << Fim da inclusão

        IF NOT itab_zycit003[] IS INITIAL.

          READ TABLE itab_zycit003 INDEX 1.

          MOVE itab_zycit003-utilizacao TO pa_util.

        ENDIF.

        CALL SELECTION-SCREEN '0701'.

      WHEN 'CUSTO_DA'.

        CALL FUNCTION 'POPUP_TO_CONFIRM'

             EXPORTING

                  titlebar              = text-448

                  text_question         = text-449

...

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

Modificações efetuadas em REPS /PWS/MZYCI001O01

...

    PERFORM carrega_estrutura_0003.

  ELSEIF sy-dynnr EQ '0111' .

    IF /pws/zycie001-regime EQ '14' OR /pws/zycie001-regime EQ '16'.

      PERFORM carrega_estrutura.

      DESCRIBE TABLE itab_zycit003 LINES v_line.

      tc_da-lines = v_line.

    ENDIF.

  ENDIF.

ENDMODULE.

MODULE status_0003 OUTPUT.

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

  SET PF-STATUS '0003'.

* << Fim da exclusão

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

  REFRESH it_code.

  IF v_manual EQ 'X'.

    it_code-fcode = 'MALL'.

    APPEND it_code.

    it_code-fcode = 'DALL'.

    APPEND it_code.

  ENDIF.

  SET PF-STATUS '0003' EXCLUDING it_code.

* << Fim da inclusão

ENDMODULE.

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

Modificações efetuadas em REPS /PWS/MZYCI001X01

...

       qtd_nac  LIKE /pws/zycie463-qtd_lote ,

       qtd_usada LIKE /pws/zycie463-qtd_lote ,

       adicao    TYPE /pws/zycie443-adicao   ,

       itseqda  TYPE /pws/zycit443-item_adi_sisc  ,

       rc        TYPE flag,

       nrseq like /pws/zycit100-nrseq,

       werks     LIKE /pws/zycie003-werks,

      ID_REG_ANO_NAC  type /pws/zycit003-ID_REG_ANO_NAC,

      ID_REG_NUM_NAC  type /pws/zycit003-ID_REG_NUM_NAC,

      ID_REG_ITM_NAC  type /pws/zycit003-ID_REG_ITM_NAC,

* >> Início da inclusão:

      j_1bnbm         type ekpo-j_1bnbm,

* << Fim da inclusão

       mark.

DATA: END OF itab_da.

DATA: BEGIN OF itab_di OCCURS 0,

    NRSEQDI like /pws/zycit085-nrseqdi,

    NRSEQ   like /PWS/ZYCIT100-nrseq,

    EBELN   like /pws/zycit100-ebeln ,

    EBELP   like /pws/zycit100-ebelp ,

    adicao like /pws/ZYCIT100-adicao,

    NRDI    like /pws/zycit085-nrdi ,

    BUKRS   like /pws/zycit085-bukrs,

    CODREG  like /pws/zycit085-codreg,

    DTDESEMB like /pws/zycit085-dtdesemb,

    MATNR  like /pws/zycit003-matnr ,

    qtd_iten like /pws/zycit003-qtd_iten,

* >> Início da exclusão:

    item_adi_sisc like /pws/zycit100-item_adi_sisc.

* << Fim da exclusão

* >> Início da inclusão:

    item_adi_sisc like /pws/zycit100-item_adi_sisc,

      j_1bnbm         type ekpo-j_1bnbm.

* << Fim da inclusão

DATA: END OF itab_di.

DATA: BEGIN OF itab_da_aux3 occURS 0,

       nrseqda  LIKE /pws/zycie442-nrseqda  ,

       nrdi     LIKE /pws/zycie442-nrdi     ,

       bukrs    LIKE /pws/zycie442-bukrs    ,

       codreg   LIKE /pws/zycit442-codreg,

       dtdesemb LIKE /pws/zycie442-dtdesemb ,

       agente   LIKE /pws/zycie460-lifnr    ,

       ebeln    LIKE /pws/zycie443-ebeln    ,

       ebelp    LIKE /pws/zycie443-ebelp    ,

...