Sintoma

Ajustes no tratamento do tipo de fornecedor no detalhe do item para ficar de acordo com o realizado

pelo SUFRAMA.

Solução

Ajustes no tratamento do tipo de fornecedor no detalhe do item para ficar de acordo com o realizado

pelo SUFRAMA.

Informações Complementares

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

Nota Número 12247 Data: 28/05/2012 Hora: 14:29:18

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

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

Nota Número              : 12247

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 8.0

Pacote                   : 00011

Agrupamento              : 00116

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

Referência às notas relacionadas:

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

12236  - 00001 - 8.0    - 00011  - OS CAMPOS REFERENTES AO FABRICANTE NÃO SEGUEM O TIPO DE FABRICANT

12242  - 00002 - 8.0    - 00011  - PERMITIR QUE O USUÁRIO ALTERE O CAMPO ESPECIFICAÇÃO TÉCNICA

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

CORREÇÃO DO TRATAMENTO DO TIPO DE FORNECEDOR NA PLI

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

Palavras Chave:

AJUSTE - PLI - TRATAMENTO - TIPO - FORNECEDOR

/PWS/SAPMZYCI020

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

Objetos da nota:

DOMA /PWS/ZYCID185

DTEL /PWS/ZYCIL689

DYNP /PWS/SAPMZYCI020                        0501

DYNP /PWS/SAPMZYCI020                        0521

REPS /PWS/MZYCI020F01

REPS /PWS/MZYCI020F02

REPS /PWS/MZYCI020I01

REPS /PWS/MZYCI020X01

TABD /PWS/ZYCIT079

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

Modificações efetuadas em DOMA /PWS/ZYCID185

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

Domínio incluído: /PWS/ZYCID185

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

"GL - Tipo de Fornecedor"

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 (27 caracteres):

"O Fornecedor é o Fabricante"

Incluído valor fixo "2"

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

"O Fornecedor não é o Fabricante"

Incluído valor fixo "3"

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

"O Fabricante é desconhecido"

Incluída tabela de valores:

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

Modificações efetuadas em DTEL /PWS/ZYCIL689

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

Elemento de dados incluído: /PWS/ZYCIL689

Classe de desenvolvimento: /PWS/ZYGL

Idioma original: PT

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

"GL - Tipo de Fornecedor"

Categoria de dados: Domínio

Domínio: /PWS/ZYCID185

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: 10

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

"Tipo de Fo"

Comprimento máximo do denominador médio: 18

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

"Tipo de Fornecedor"

Comprimento máximo do denominador longo: 18

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

"Tipo de Fornecedor"

Comprimento máximo do título: 18

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

"Tipo de Fornecedor"

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

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

EXCLUIR CAMPO TEXTO "/PWS/ZYCIE078-DESCFAB"

EXCLUIR CAMPO TEXTO "/PWS/ZYCIE078-FABRICANTE"

EXCLUIR TEXTO "/PWS/ZYCIE078-FABRICANTE"

EXCLUIR CAMPO TEXTO "/PWS/ZYCIE078-LIFNR"

EXCLUIR TEXTO "/PWS/ZYCIE078-LIFNR"

EXCLUIR CAMPO TEXTO "/PWS/ZYCIE078-PAISFAB"

MODIFICAR LÓGICA DE PROCESSAMENTO TELA 0501

PROCESS BEFORE OUTPUT.

  module: find_dtvent,

          load_cabec_501,

          set_screen_sub,

          set_screen_501.

PROCESS AFTER INPUT.

    field:

            /PWS/zycie078-numpexpam

* >> Início da exclusão:

            module get_pexpam   ,

           /PWS/zycie078-fabricante

            module load_limpa_fabr on request      .

  module : load_fabricante,

* << Fim da exclusão

* >> Início da inclusão:

            module get_pexpam   .

  module :

* << Fim da inclusão

           atual_cabec_501.

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

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

MODIFICAR TEXTO "/PWS/ZYCIE079A-FABRIC"

Texto                    Tipo de Fornecedor

MODIFICAR CAMPO TEXTO "/PWS/ZYCIE079A-PAISFAB"

Código função

INCLUIR CAMPO TEXTO "LFA1-LAND1"

Comprimento Visível      3

Linha                    9

Coluna                   82

Formato                  CHAR

Grupo 1                  FOR

Linhas mínimas           3

Texto                    ___

Código função

INCLUIR CAMPO TEXTO "LFA1-LIFNR"

Comprimento Visível      10

Linha                    9

Coluna                   23

Formato                  CHAR

Grupo 1                  FOR

Linhas mínimas           10

Texto                    __________

Código função

INCLUIR TEXTO "LFA1-LIFNR"

Comprimento Visível      15

Linha                    9

Coluna                   4

Formato                  CHAR

Grupo 1                  FOR

Texto                    Fornecedor

Código função

INCLUIR CAMPO TEXTO "LFA1-NAME1"

Comprimento Visível      45

Linha                    9

Coluna                   34

Formato                  CHAR

Grupo 1                  FOR

Linhas mínimas           35

Texto                    _____________________________________________

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

Modificações efetuadas em REPS /PWS/MZYCI020X01

* >> Início da inclusão:

  DATA: v_nrpli TYPE /pws/zycie078-nrpli,

        v_dtreg TYPE /pws/zycie078-dtreg.

* << Fim da inclusão

DATA: END OF COMMON PART.

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

Modificações efetuadas em REPS /PWS/MZYCI020F01

...

FORM load_desc_fabr.

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

  IF /pws/zycie079a-fabric EQ 1.

* << Fim da exclusão

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

  IF /pws/zycie079a-fabric EQ 1

     OR /pws/zycie079a-fabric EQ '2'.

* << Fim da inclusão

    SELECT SINGLE * FROM ekko

           WHERE ebeln EQ /pws/zycie079a-ebeln.

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

    IF /pws/zycie079a-fabric EQ 1.

* << Fim da inclusão

    /pws/zycie079a-lifnr = ekko-lifnr.

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

    ENDIF.

* << Fim da inclusão

  ENDIF.

  IF NOT /pws/zycie079a-lifnr IS INITIAL.

    SELECT SINGLE name1 land1 FROM lfa1

           INTO (/pws/zycie079a-descfab,/pws/zycie079a-paisfab)

           WHERE lifnr EQ /pws/zycie079a-lifnr.

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

  ELSE.

* << Fim da exclusão

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

    IF /pws/zycie079a-fabric EQ 2.

      CLEAR lfa1.

      lfa1-lifnr = ekko-lifnr.

      SELECT SINGLE name1 land1 FROM lfa1

             INTO (lfa1-name1,lfa1-land1)

             WHERE lifnr EQ lfa1-lifnr.

    ENDIF.

  ELSEIF /pws/zycie079a-fabric NE '3'.

* << Fim da inclusão

    CLEAR: /pws/zycie079a-descfab,

           /pws/zycie079a-paisfab.

  ENDIF.

ENDFORM.

...

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

Modificações efetuadas em REPS /PWS/MZYCI020F02

...

FORM gera_novoreg.

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

  PERFORM :

* << Fim da exclusão

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

  PERFORM :  salva_fornncm ,

* << Fim da inclusão

             salva_itemncm ,

             salva_anuncm  ,

             salva_anu2ncm ,

             salva_v_esp   ,

             save_txt_ncm  ,

             save_txt_2ncm .

ENDFORM.

...

...

        IF v_exit = 'S'.

          EXIT.

        ENDIF.

        PERFORM completa_forn_e.

        CLEAR /pws/zycie080.

        MOVE: it_zycit079_ncm-nrseqli TO /pws/zycie080-nrseqli,

              it_zycit079-lifnr TO /pws/zycie080-lifnr.

        PERFORM gera_nrforn.

        PERFORM completa_forn_f.

      ELSEIF it_zycit079-fabric EQ '3'.

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

        CLEAR /pws/zycie080.

* << Fim da inclusão

        MOVE: it_zycit079_ncm-nrseqli TO /pws/zycie080-nrseqli,

              it_zycit079-fabric TO /pws/zycie078-fabric.

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

        SELECT SINGLE * FROM ekko

               WHERE ebeln EQ it_zycit079-ebeln.

        /pws/zycie080-lifnr = ekko-lifnr.

* << Fim da exclusão

        PERFORM gera_nrforn.

        IF v_exit = 'S'.

          EXIT.

        ENDIF.

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

        PERFORM completa_forn_e.

* << Fim da exclusão

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

        /pws/zycie080-lando = /pws/zycie079a-paisfab.

        /pws/zycie080-tipoforn  = 'E'.

        MODIFY /pws/zycit080 FROM /pws/zycie080.

        MOVE-CORRESPONDING /pws/zycie080 TO /pws/zycit080.

        PERFORM carrega_log USING '/PWS/ZYCIT080' 'U'

              ' '  '/PWS/SAPMZYCI020' /pws/zycit080-nrseqli.

* << Fim da inclusão

      ENDIF.

    ENDLOOP.

    COMMIT WORK.

  ENDIF.

ENDFORM.

...

...

        READ TABLE it_zycit079_ncm INDEX 1.

        IF sy-subrc EQ 0.

          IF it_zycit079_ncm-bemencomenda EQ 'S'.

            /pws/zycie078-condmerc = '1'.

          ENDIF.

          IF it_zycit079_ncm-matusado EQ 'S'.

            /pws/zycie078-condmerc = '2'.

          ENDIF.

          CLEAR it_zycit079_ncm.

        ENDIF.

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

        /pws/zycie078-fabric = it_zycit079_ncm2-fabric.

* << Fim da inclusão

        PERFORM : gera_seq_novoreg,

                  atual_tabelas   ,

                  gera_novoreg    ,

                  limpa_tabncm    .

        MOVE it_zycit079_ncm2 TO it_zycit079_ncm.

        APPEND it_zycit079_ncm.

        v_steuc1 = it_zycit079_ncm2-steuc1.

        v_lifnr = it_zycit079_ncm2-lifnr.

        v_codsufra = it_zycit079_ncm2-codsufra.

        CLEAR v_linha.

...

...

    IF NOT it_zycit079_ncm2[] IS INITIAL.

        READ TABLE it_zycit079_ncm INDEX 1.

        IF sy-subrc EQ 0.

          IF it_zycit079_ncm-bemencomenda EQ 'S'.

            /pws/zycie078-condmerc = '1'.

          ENDIF.

          IF it_zycit079_ncm-matusado EQ 'S'.

            /pws/zycie078-condmerc = '2'.

          ENDIF.

          CLEAR it_zycit079_ncm.

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

        /pws/zycie078-fabric = it_zycit079_ncm-fabric.

* << Fim da inclusão

        ENDIF.

      PERFORM : gera_seq_novoreg,

                atual_tabelas   ,

                gera_novoreg    ,

                limpa_tabncm    .

    ENDIF.

  ELSE.

    CLEAR v_linha.

    READ TABLE it_zycit079_verif INDEX 1.

    IF sy-subrc EQ 0.

...

...

        /pws/zycie078-condmerc = '2'.

      ENDIF.

    ENDIF.

    LOOP AT it_zycit079_verif.

      v_linha = v_linha + 1.

      CLEAR it_zycit079_ncm.

      MOVE it_zycit079_verif TO it_zycit079_ncm.

      APPEND it_zycit079_ncm.

      IF v_linha = 80.

        IF NOT it_zycit079_ncm[] IS INITIAL.

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

          READ TABLE it_zycit079_ncm INDEX 1.

          /pws/zycie078-fabric = it_zycit079_ncm-fabric.

* << Fim da inclusão

          PERFORM: gera_seq_novoreg,

                   atual_tabelas   ,

                   gera_novoreg    ,

                   limpa_tabncm    .

          CLEAR v_linha.

        ENDIF.

      ENDIF.

    ENDLOOP.

    IF NOT it_zycit079_ncm[] IS INITIAL.

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

      READ TABLE it_zycit079_ncm INDEX 1.

      /pws/zycie078-fabric = it_zycit079_ncm-fabric.

* << Fim da inclusão

      PERFORM: gera_seq_novoreg,

               atual_tabelas   ,

               gera_novoreg    ,

               limpa_tabncm    .

    ENDIF.

  ENDIF.

ENDFORM.

...

...

  LOOP AT SCREEN.

    IF /pws/zycie078-aplicpli EQ '2'.

      IF screen-name EQ '/PWS/ZYCIE079A-CODSUFRA'.

        /pws/zycie079-codsufra = /pws/zycie079a-codsufra = '0000'.

        screen-input = 0.

      ELSEIF screen-name EQ '/PWS/ZYCIE079A-DESTAQUE'.

        /pws/zycie079a-destaque = '0001'.

        screen-input = 0.

      ENDIF.

    ENDIF.

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

    CASE /pws/zycie078-fabricante.

      WHEN '0' OR '1' OR '3'.

        IF screen-name EQ '/PWS/ZYCIE079A-LIFNR' OR

           screen-name EQ '/PWS/ZYCIE079A-FABRIC' OR

           screen-name EQ '/PWS/ZYCIE079A-DESCFAB' OR

           screen-name EQ '/PWS/ZYCIE079A-PAISFAB'.

          screen-input = 0.

        ENDIF.

      WHEN '2'.

* << Fim da exclusão

        IF screen-name EQ '/PWS/ZYCIE079A-FABRIC'.

          screen-input = 1.

        ENDIF.

        CASE /pws/zycie079a-fabric.

          WHEN '1'.

            IF screen-name EQ '/PWS/ZYCIE079A-LIFNR' OR

               screen-name EQ '/PWS/ZYCIE079A-DESCFAB' OR

               screen-name EQ '/PWS/ZYCIE079A-PAISFAB'.

              screen-input = 0.

            ENDIF.

          WHEN '2'.

            IF screen-name EQ '/PWS/ZYCIE079A-LIFNR'.

              screen-input = 1.

            ENDIF.

            IF screen-name EQ '/PWS/ZYCIE079A-DESCFAB' OR

               screen-name EQ '/PWS/ZYCIE079A-PAISFAB'.

              screen-input = 0.

            ENDIF.

          WHEN '3'.

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

        IF  screen-name EQ '/PWS/ZYCIE079A-PAISFAB'.

          screen-input = 1.

        ENDIF.

* << Fim da inclusão

            IF screen-name EQ '/PWS/ZYCIE079A-LIFNR' OR

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

               screen-name EQ '/PWS/ZYCIE079A-DESCFAB' OR

               screen-name EQ '/PWS/ZYCIE079A-PAISFAB'.

* << Fim da exclusão

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

           screen-name EQ '/PWS/ZYCIE079A-DESCFAB'.

* << Fim da inclusão

              screen-input = 0.

            ENDIF.

        ENDCASE.

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

    ENDCASE.

* << Fim da exclusão

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

    IF v_tcode EQ '/PWS/ZYCI020_L'.

      screen-input = 0.

    ENDIF.

    IF screen-group1 EQ 'FOR' AND

       /pws/zycie079a-fabric NE '2'.

      screen-invisible = '1'.

    ENDIF.

    IF ( sy-tcode EQ '/PWS/ZYCI020_G' OR

         sy-tcode EQ '/PWS/ZYCI020_I' ) AND

       ( NOT v_nrpli IS INITIAL OR

         NOT v_dtreg IS INITIAL ) .

      screen-input = 0 .

    ENDIF.

* << Fim da inclusão

    MODIFY SCREEN.

  ENDLOOP.

ENDFORM.

...

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

Modificações efetuadas em REPS /PWS/MZYCI020I01

...

MODULE user_command_0521 INPUT.

  CASE okcode.

    WHEN 'CLI'.

      GET CURSOR FIELD v_field.

      IF v_field = 'V_ESP' OR  v_field = 'V_ESP338'.

        PERFORM atualiza_v_esp.

        PERFORM preenche_v_esp.

      ENDIF.

  ENDCASE.

  IF /pws/zycie079a-fabric EQ '3'.

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

    CLEAR /pws/zycie079a-lifnr.

* << Fim da exclusão

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

    CLEAR: /pws/zycie079a-lifnr, /pws/zycie079a-descfab.

* << Fim da inclusão

  ENDIF.

ENDMODULE.

...

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

Modificações efetuadas em TABD /PWS/ZYCIT079

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

...

* >> Início da exclusão:

FABRIC               /PWS/ZYCIL201                 CHAR     1

* << Fim da exclusão

* >> Início da inclusão:

FABRIC               /PWS/ZYCIL689                 CHAR     1

* << Fim da inclusão

...

Adicionar Tabela de verificação ao campo PAISFAB:

Tabela verificação T005

Tabela chave externa Cpo.chave externa Tab.verif.    Nome de campo

/PWS/ZYCIT079        MANDT             T005          MANDT

/PWS/ZYCIT079        PAISFAB           T005          LAND1