Sintoma

Ao selecionar itens para embarque de recof, considerar utilização de material

Solução

criar campo utilização de material e utilizar para seleção de valores de recof.

Informações Complementares

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

Nota Número 05136 Data: 01/11/2007 Hora: 17:54:24

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

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

Nota Número              : 05136

Categoria                : Melhoria

Prioridade               : Alta

Versão PW.CE             : 7.0

Pacote                   : 00003

Agrupamento              : 00019

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

Referência às notas relacionadas:

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

01450  - 00002 - 6.0    - 00023  - INTERFACE PW.CE X PW.RECOF - CARGA DE EMBARQUE DE NACIONALIZAÇÃO.

04866  - 00001 - 7.0    - 00003  - PERMITIR NACIONALIZAÇÃO DE DI 01, DE ACORDO COM FUNDAMENTAÇÃO LEG

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

TRATAMENTO PARA EMBARQUE DE RECOF COM UTILIZAÇÃO DE MATERIAL

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

Palavras Chave:

EMBARQUE DE RECOF - UTIIZAÇÃO DE MATERIAL

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

Objetos da nota:

DOMA /PWS/ZYGLD570

DTEL /PWS/ZYCIL857

RELE F6DK954119 20071101 175314 PWSCI

RELE F6DK954120 20071101 175310 PWSCI

REPS /PWS/MZYCI001F03

REPS /PWS/MZYCI001I01

REPS /PWS/MZYCI001TOP

REPS /PWS/SAPMZYCI001

REPT /PWS/SAPMZYCI001

TABD /PWS/ZYCIT003

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

Modificações efetuadas em DOMA /PWS/ZYGLD570

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

Domínio incluído: /PWS/ZYGLD570

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

"GL - Utilização de material"

Classe de desenvolvimento: /PWS/ZYGL

Idioma original: PT

Categoria de dados: CHAR

Número de posições: 1

Comprimento de saída: 1

Rotina de conversão:

Letras minúsculas: NÃO

-Valores individuais

Incluído valor fixo "1"

Texto incluído, idioma: PT (5 caracteres):

"Perda"

Incluído valor fixo "2"

Texto incluído, idioma: PT (16 caracteres):

"Industrialização"

Incluído valor fixo "3"

Texto incluído, idioma: PT (20 caracteres):

"Não industrialização"

Incluída tabela de valores:

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

Modificações efetuadas em DTEL /PWS/ZYCIL857

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

Elemento de dados incluído: /PWS/ZYCIL857

Classe de desenvolvimento: /PWS/ZYGL

Idioma original: PT

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

"GL - Utlização de Material"

Categoria de dados: Domínio

Domínio: /PWS/ZYGLD570

ID parâmetro:

Nome componente default:

Documentar modificações: NÃO

Nome da ajuda de pesquisa:

Parâmetro da ajuda de pesquisa:

Comprimento máximo do denominador breve: 00

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

""

Comprimento máximo do denominador médio: 00

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

""

Comprimento máximo do denominador longo: 00

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

""

Comprimento máximo do título: 00

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

""

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

Modificações efetuadas em REPS /PWS/MZYCI001F03

...

       itab_zycit003_da-waers          TO    itab_zycit003-waers,

       itab_zycit003_da-qtd_iten         TO    itab_zycit003-menge ,

       itab_zycit003_da-netpr          TO    itab_zycit003-v_fob ,

       /pws/zycie001-nrseq          TO    itab_zycit003-nrseq ,

       itab_zycit100_da-nrseqdi        TO    itab_zycit003-nrseqda,

       itab_zycit100_da-adicao         TO    itab_zycit003-adicao ,

       /pws/zycit085-nrdi           TO    itab_zycit003-nrdi  ,

        itab_nac-id_reg_ano_nac TO itab_zycit003-id_reg_ano_nac,

        itab_nac-id_reg_num_nac TO itab_zycit003-id_reg_num_nac,

        itab_nac-id_reg_itm_nac  TO itab_zycit003-id_reg_itm_nac.

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

        IF v_caller = 'SELECIONAR_RC'.

          itab_zycit003-utilizacao = pa_util.

        ENDIF.

* << Fim da inclusão

        IF NOT itab_zycit003_da-qtd_iten IS INITIAL.

          itab_zycit003-ntgew = (  itab_zycit003_da-ntgew /

               itab_zycit003_da-qtd_iten ) * itab_zycit003-qtd_iten.

        ENDIF.

        itab_zycit003-sld_da   =  itab_zycit003_da-qtd_iten -

        v_qtd_util - itab_zycit003-qtd_iten.

        APPEND itab_zycit003.

      ENDIF.

    ENDLOOP.

    IF v_centro_dif EQ c_sim.

...

...

    END OF itab_rc_aux.

  CLEAR v_tipo.

  PERFORM criar_tipo USING v_tabname1 CHANGING v_tipo.

  IF NOT v_tipo IS INITIAL.

    ASSIGN v_tipo->* TO <fs_tabrc>.

  ENDIF.

  IF NOT <fs_tabrc> IS ASSIGNED.

    EXIT.

  ENDIF.

  REFRESH itab_da.

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

  IF pa_util EQ '1'.

    SELECT *

      INTO TABLE <fs_tabrc>

      FROM (v_tabname1)

      WHERE cod_matriz      IN so_matri

        AND cod_filial      IN so_filia

        AND num_da_di       IN so_numda

        AND num_adicao      IN so_adica

        AND num_item_adicao IN so_itadi

        AND id_util         EQ space

        AND utilizacao      EQ 'NAE'.

  ELSEIF pa_util EQ '2'.

* << Fim da inclusão

  SELECT *

    INTO TABLE <fs_tabrc>

    FROM (v_tabname1)

    WHERE cod_matriz      IN so_matri

      AND cod_filial      IN so_filia

      AND num_da_di       IN so_numda

      AND num_adicao      IN so_adica

      AND num_item_adicao IN so_itadi

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

      AND id_util         EQ space.

* << Fim da exclusão

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

        AND id_util         EQ space

        AND utilizacao      LIKE 'N%'

        AND utilizacao      NE 'NAE'.

  ELSEIF pa_util EQ '3'.

    SELECT *

      INTO TABLE <fs_tabrc>

      FROM (v_tabname1)

      WHERE cod_matriz      IN so_matri

        AND cod_filial      IN so_filia

        AND num_da_di       IN so_numda

        AND num_adicao      IN so_adica

        AND num_item_adicao IN so_itadi

        AND id_util         EQ space

        AND utilizacao      LIKE 'S%'.

  ENDIF.

* << Fim da inclusão

  LOOP AT <fs_tabrc> ASSIGNING <fs_hearc>.

    CLEAR itab_rc_aux.

    UNASSIGN <fs_fldrc>.

    ASSIGN COMPONENT 'COD_MATRIZ' OF STRUCTURE <fs_hearc>

      TO <fs_fldrc>.

    IF <fs_fldrc> IS ASSIGNED.

      itab_rc_aux-cod_matriz = <fs_fldrc>.

    ENDIF.

    UNASSIGN <fs_fldrc>.

    ASSIGN COMPONENT 'COD_MATRIZ' OF STRUCTURE <fs_hearc>

...

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

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

        if not itab_zycit003[] is initial.

           read table itab_zycit003 index 1.

           move itab_zycit003-utilizacao to pa_util.

        endif.

* << Fim da inclusão

        CALL SELECTION-SCREEN '0701'.

      WHEN 'CUSTO_DA'.

        CALL FUNCTION 'POPUP_TO_CONFIRM'

             EXPORTING

                  titlebar              = text-448

                  text_question         = text-449

                  text_button_1         = text-450

                  text_button_2         = text-451

                  default_button        = '2'

                  display_cancel_button = ' '

...

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

Modificações efetuadas em REPS /PWS/MZYCI001TOP

...

SELECTION-SCREEN END OF SCREEN 0700.

SELECTION-SCREEN BEGIN OF SCREEN 0701.

SELECT-OPTIONS:

  so_matri FOR (v_fldname1)

           NO INTERVALS NO-EXTENSION,

  so_filia FOR (v_fldname2)

           NO INTERVALS NO-EXTENSION,

  so_numda FOR (v_fldname3),

  so_adica FOR (v_fldname4),

  so_itadi FOR (v_fldname5).

* >> Início da inclusão:

PARAMETERS:     pa_util TYPE /pws/zycit003-utilizacao OBLIGATORY.

* << Fim da inclusão

SELECTION-SCREEN END OF SCREEN 0701.

AT SELECTION-SCREEN OUTPUT.

  IF sy-dynnr EQ '0300'.

...

...

  IF sy-dynnr EQ '0701'.

    IF v_tabname1 IS INITIAL.

      LEAVE TO SCREEN 0.

    ENDIF.

    SET TITLEBAR '0701'.

    REFRESH:

      so_matri,

      so_filia.

    MOVE:

      /pws/zycie001-bukrs      TO so_matri-low,

      /pws/zycie001-j_1bbranch TO so_filia-low.

    LOOP AT SCREEN.

      IF ( screen-name EQ 'SO_MATRI-LOW' AND

           NOT so_matri-low IS INITIAL ) OR

         ( screen-name EQ 'SO_FILIA-LOW' AND

           NOT so_filia-low IS INITIAL ).

* >> Início da inclusão:

        screen-input = '0'.

        MODIFY SCREEN.

      ENDIF.

      IF screen-name EQ 'PA_UTIL'.

        IF NOT itab_zycit003[] IS INITIAL.

          read table itab_zycit003 index 1 .

          pa_util = itab_zycit003-utilizacao.

* << Fim da inclusão

        screen-input = '0'.

        MODIFY SCREEN.

* >> Início da inclusão:

        ENDIF.

* << Fim da inclusão

      ENDIF.

    ENDLOOP.

    IF NOT so_matri-low IS INITIAL.

      so_matri-sign = 'I'.

      so_matri-option = 'EQ'.

...

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

Modificações efetuadas em REPT /PWS/SAPMZYCI001

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

Incluído texto de seleção:

Idioma: PT

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

Texto: (18 caracteres)

"Utilização"

Referência ao Dictionary: NÃO

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

Modificações efetuadas em TABD /PWS/ZYCIT003

*Na tabela /PWS/ZYCIT003 foi criado o seguinte campo NO FIM DA TABELA

 CAMPO              Elemento de dados              tipo

 UTILIZACAO         /PWS/ZYCIL857                  CHAR     1