Sintoma

Implementação do Campo Material MATNR na Licença de Importação

Solução

Implementação do Campo Material MATNR na Licença de Importação

Informações Complementares

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

Nota Número 08553 Data: 18/06/2009 Hora: 11:45:59

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

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

Nota Número              : 08553

Categoria                : Melhoria

Prioridade               : Baixa

Versão PW.CE             : 7.0

Pacote                   : 00010

Agrupamento              : 00101

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

IMPLEMENTAÇÃO DO CAMPO MATERIAL MATNR NA LICENÇA DE IMPORTAÇÃO

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

Palavras Chave:

MATERIAL - LICENÇA - IMPORTAÇÃO - MATNR

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

Objetos da nota:

DYNP /PWS/SAPMZYCI020                        0109

REPS /PWS/MZYCI020F01

REPS /PWS/MZYCI020F02

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

Modificações efetuadas em DYNP /PWS/SAPMZYCI020                        0109

INCLUIR CAMPO TEXTO "/PWS/ZYCIE079-MATNR" em tbl.contr./tabstr.

Altura                   10

Comprimento Visível      18

Linha                    1

Coluna                   3

Formato                  CHAR

Linhas mínimas           18

Texto                    __________________

Código função

INCLUIR TEXTO "/PWS/ZYCIE079-MATNR" em tbl.contr./tabstr.

Altura                   10

Comprimento Visível      8

Linha                    1

Coluna                   3

Formato                  CHAR

Texto                    Material

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

Modificações efetuadas em REPS /PWS/MZYCI020F01

...

      ENDIF.

      SPLIT itab_itens-j_1bnbm AT '.' INTO v_steuc_temp1 v_steuc_temp2

            v_steuc_temp3.

      SHIFT v_steuc_temp1 LEFT  DELETING LEADING  space.

      SHIFT v_steuc_temp2 LEFT  DELETING LEADING  space.

      SHIFT v_steuc_temp3 LEFT  DELETING LEADING  space.

      CONCATENATE v_steuc_temp1 v_steuc_temp2 v_steuc_temp3 INTO

                                                      it_zycit079-ncm.

      MOVE: itab_itens-ebeln        TO it_zycit079-ebeln  ,

            itab_itens-ebelp        TO it_zycit079-ebelp  ,

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

            itab_itens-matnr        TO it_zycit079-matnr  ,

* << Fim da inclusão

            itab_itens-txz01        TO it_zycit079-descr  ,

            itab_itens-waers        TO it_zycit079-waers  ,

            itab_itens-meins        TO it_zycit079-meins  ,

            itab_itens-gewei        TO it_zycit079-gewei  ,

            itab_itens-bednr        TO it_zycit079-bednr  ,

            itab_itens-j_1bnbm      TO it_zycit079-steuc1 ,

            /pws/zycie078-nrseqli   TO it_zycit079-nrseqli.

      MOVE: itab_itens-lifnr TO v_forn.

      CLEAR it_zycit092.

      READ TABLE it_zycit092 WITH KEY ebeln = itab_itens-ebeln

...

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

Modificações efetuadas em REPS /PWS/MZYCI020F02

...

     FROM /pws/zycit079

     INTO TABLE it_zycit079

     WHERE nrseqli EQ /pws/zycie078-nrseqli

       AND tpli    = 'N'.

    CLEAR: /pws/zycie078-ntgew.

    LOOP AT it_zycit079.

      /pws/zycie078-ntgew = /pws/zycie078-ntgew + it_zycit079-ntgew.

    ENDLOOP.

    PERFORM verifica_vinculacao.

    IF NOT it_zycit079[] IS INITIAL.

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

      REFRESH: it_ekpo.

      SELECT * FROM ekpo INTO TABLE it_ekpo

        FOR ALL ENTRIES IN it_zycit079

        WHERE ebeln EQ it_zycit079-ebeln

          AND ebelp EQ it_zycit079-ebelp.

      LOOP AT it_zycit079.

        READ TABLE it_ekpo WITH KEY ebeln = it_zycit079-ebeln

                                    ebelp = it_zycit079-ebelp.

        IF sy-subrc EQ 0.

          MOVE it_ekpo-matnr TO it_zycit079-matnr.

          MODIFY it_zycit079 INDEX SY-TABIX TRANSPORTING matnr.

        ENDIF.

      ENDLOOP.

* << Fim da inclusão

      SELECT *

        FROM /pws/zycit092

        INTO TABLE it_zycit092

        FOR ALL ENTRIES IN it_zycit079

        WHERE ebeln EQ it_zycit079-ebeln

          AND ebelp EQ it_zycit079-ebelp.

      PERFORM carrega_saldo.

      PERFORM lock_pedido.

    ENDIF.

    IF /pws/zycie078-nacion IS INITIAL.

...

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

Modificações efetuadas em TABL /PWS/ZYCIT079

Nome de campo    Chv Elem.dados    Tab.verif.    N CtDt Comp.

...

TXT_CURTO            CHAR253                       CHAR   253

UMDESC               CHAR20                        CHAR    20

NRITEM_DB            CHAR5                         CHAR     5

* >> Início da inclusão:

MATNR                MATNR                         CHAR    18

* << Fim da inclusão