Sintoma

Inclusão sa verificação da parametrização da NBS na tabela standard criada pela SAP

Solução

Inclusão sa verificação da parametrização da NBS na tabela standard criada pela SAP

Informações Complementares

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

Nota Número 13109 Data: 11/07/2013 Hora: 14:29:40

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

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

Nota Número              : 13109

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 9.0

Pacote                   : 00005

Agrupamento              : 00159

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

Referência às notas relacionadas:

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

12480  - 00001 - 9.0    - 00001  - SISCOSERV

12604  - 00003 - 9.0    - 00002  - SISCOSERV

12943  - 00004 - 9.0    - 00004  - CB - 999999 - SISCOSERV - REQUEST COMPLETA

13028  - 00005 - 9.0    - 00004  - SISCOSERV - ORIGEM PROCESSOS PW.CE

13037  - 00006 - 9.0    - 00004  - SISCOSERV - ASSOCIAÇÃO - COMISSÃO AGENTE

13077  - 00007 - 9.0    - 00005  - SISCOSERV

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

SISCOSERV - NBS

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

Palavras Chave:

SISCOSERV - NBS

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

Objetos da nota:

DOMD /PWS/ZYCAD009

TABD /PWS/ZYCAT031

TABD /PWS/ZYCAT046

TOBJ /PWS/ZYCAT046S

SHLD /PWS/ZYCAA175

FUGR /PWS/ZYCAGF1

FUNC /PWS/ZYCAA175

FUNC /PWS/ZYCA_BUSCA_NBS_SISCOSERV

DYNP /PWS/SAPMZYCA011                        0101

REPS /PWS/MZYCA011I01

REPS /PWS/MZYCA011TOP

REPS /PWS/MZYCA012F01

REPT /PWS/SAPMZYCA011

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

Modificações efetuadas em DOMD /PWS/ZYCAD009

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

Domínio modificado: /PWS/ZYCAD009

Descrição breve modificada (42 caracteres), idioma: EN

"NBS - Brazilian Nomenclature Services Code"

Número de posições: 20

Comprimento de saída: 20

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

Modificações efetuadas em TABD /PWS/ZYCAT041

Regerar a tela de atualização desta tabela seguindo os procedimentos abaixo:

1) na transação SE11, modificar a tabela /PWS/ZYCAT041.

2) selecionar Utilitários --> Gerador de Atualização de Tabela

3) clicar no ícone Modificar

4) marcar a opção "Criar de novo a tela de atualização" e clicar em Enter

Após regerar a tela de atualização, entrar modificando a tela 41 e no campo Descrição, alterar o

CompDef e Compr.vis para '132'.

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

Modificações efetuadas em TABD /PWS/ZYCAT031

No campo NBS, retirar a chave externa /PWS/ZYCAT041

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

Modificações efetuadas em TABD /PWS/ZYCAT046

- No campo NBS, retirar a chave externa /PWS/ZYCAT041

- Regerar a tela de atualização desta tabela seguindo os procedimentos abaixo:

1) na transação SE11, modificar a tabela /PWS/ZYCAT041.

2) selecionar Utilitários --> Gerador de Atualização de Tabela

3) clicar no ícone Modificar

4) marcar a opção "Criar de novo a tela de atualização" e clicar em Enter

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

Modificações efetuadas em FUNC /PWS/ZYCA_BUSCA_NBS_SISCOSERV

CRIAR MÓDULO DE FUNÇÃO: /PWS/ZYCA_BUSCA_NBS_SISCOSERV

CARACTERÍSTICAS

CLASSIFICAÇÃO:

GRUPO DE FUNÇÕES: /PWS/ZYCAGF

TEXTO BREVE: Busca NBS pw.CE / Standard

TIPO DE EXECUÇÃO:

(X) - MÓDULO DE FUNÇÃO NORMAL

(_) - MÓDULO DE ACESSO REMOTO

(_) - MÓDULO DE ATUALIZAÇÃO

     (X  ) - INÍCIO IMEDIATO

     (_) - INÍCIO IMEDIATO-SEM ATUAL.POSTER.

     (_) - INÍC. RETARDADO

     (_) - PROCES. CLOETIVO

DADOS GERAIS:

(_) - BLOQUEIO PROCESSO

(_) - GLOBAL

IMPORTAÇÃO:

NOME PARAM.   ATRIB. TIPO REFERÊNCIA  VL. PROPOSTO OPCIONAL TRANSF. TEXT

EXPORTAÇÃO:

NOME PARAM.   ATRIB. TIPO REFERÊNCIA   TRANSF.  TEXTO BREVE

E_OBJNAME     TYPE   TADIR-OBJ_NAME      X

MODIFIC.:

NOME PARAM.   ATRIB. TIPO REFERÊNCIA  VL. PROPOSTO OPCIONAL TRANSF. TEXT

TABELAS:

NOME PARAM.   ATRIB. TIPO REFERÊNCIA  OPCIONAL TEXTO BREVE

T_ZYCAT041    LIKE   /PWS/ZYCAT041    '       '

EXCEÇÕES:

EXCEÇÃO                    TEXTO BREVE

TEXTO FONTE

FUNCTION /pws/zyca_busca_nbs_siscoserv.

  DATA: wa_tadir      TYPE tadir,

        v_dref        TYPE REF TO data,

        wa_zycat041   TYPE /pws/zycat041.

  FIELD-SYMBOLS: <fs_nbs>   TYPE ANY,

                 <fs_field> TYPE ANY.

  SELECT SINGLE * FROM tadir

    INTO wa_tadir

    WHERE object   = 'TABL'

      AND obj_name = 'J_1BTNBS'.

  IF sy-subrc EQ 0.

    e_objname = 'J_1BTNBS'.

  ELSE.

    e_objname = '/PWS/ZYCAT041'.

  ENDIF.

  CREATE DATA v_dref TYPE (e_objname).

  ASSIGN v_dref->* TO <fs_nbs>.

  IF <fs_nbs> IS ASSIGNED.

    SELECT * FROM (e_objname)

      INTO <fs_nbs>.

      ASSIGN COMPONENT 'NBS' OF STRUCTURE <fs_nbs> TO <fs_field>.

      IF <fs_field> IS ASSIGNED.

        MOVE <fs_field> TO wa_zycat041-nbs.

        UNASSIGN <fs_field>.

      ENDIF.

     ASSIGN COMPONENT 'DESCRIPTION' OF STRUCTURE <fs_nbs> TO <fs_field>.

      IF <fs_field> IS ASSIGNED.

        MOVE <fs_field> TO wa_zycat041-descricao.

        UNASSIGN <fs_field>.

      ENDIF.

      wa_zycat041-mandt = sy-mandt.

      APPEND wa_zycat041 TO t_zycat041.

    ENDSELECT.

  ENDIF.

  IF e_objname = 'J_1BTNBS' AND

   t_zycat041[] IS INITIAL.

    SELECT * FROM /pws/zycat041

      INTO TABLE t_zycat041.

    e_objname = '/PWS/ZYCAT041'.

  ENDIF.

ENDFUNCTION.

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

Modificações efetuadas em FUNC /PWS/ZYCAA175

CRIAR MÓDULO DE FUNÇÃO: /PWS/ZYCAA175

CARACTERÍSTICAS

CLASSIFICAÇÃO:

GRUPO DE FUNÇÕES: /PWS/ZYCAGF

TEXTO BREVE: Exit Ajuda Pesquisa NBS - Siscoserv

TIPO DE EXECUÇÃO:

(X) - MÓDULO DE FUNÇÃO NORMAL

(_) - MÓDULO DE ACESSO REMOTO

(_) - MÓDULO DE ATUALIZAÇÃO

     (X  ) - INÍCIO IMEDIATO

     (_) - INÍCIO IMEDIATO-SEM ATUAL.POSTER.

     (_) - INÍC. RETARDADO

     (_) - PROCES. CLOETIVO

DADOS GERAIS:

(_) - BLOQUEIO PROCESSO

(_) - GLOBAL

IMPORTAÇÃO:

NOME PARAM.   ATRIB. TIPO REFERÊNCIA  VL. PROPOSTO OPCIONAL TRANSF. TEXT

EXPORTAÇÃO:

NOME PARAM.   ATRIB. TIPO REFERÊNCIA   TRANSF.  TEXTO BREVE

MODIFIC.:

NOME PARAM.   ATRIB. TIPO REFERÊNCIA  VL. PROPOSTO OPCIONAL TRANSF. TEXT

CALLCONTROL   LIKE   DDSHF4CTRL       '          ' '       '   X

SHLP          TYPE   SHLP_DESCR_T     '          ' '       '   X

TABELAS:

NOME PARAM.   ATRIB. TIPO REFERÊNCIA  OPCIONAL TEXTO BREVE

RECORD_TAB    LIKE   SEAHLPRES        '      ' '          '

SHLP_TAB      TYPE   SHLP_DESCR_TAB_T '      ' '          '

EXCEÇÕES:

EXCEÇÃO                    TEXTO BREVE

TEXTO FONTE

FUNCTION /pws/zycaa175.

  DATA: itab_zycat041 TYPE TABLE OF /pws/zycat041,

        v_objname     TYPE tadir-obj_name.

  CLEAR callcontrol-maxrecords.

  IF callcontrol-step = 'DISP'

     OR callcontrol-step = 'PRESEL'.

    CALL FUNCTION '/PWS/ZYCA_BUSCA_NBS_SISCOSERV'

         IMPORTING

              e_objname  = v_objname

         TABLES

              t_zycat041 = itab_zycat041.

    IF v_objname = 'J_1BTNBS'.

      REFRESH record_tab.

      record_tab[] = itab_zycat041[].

    ENDIF.

  ENDIF.

ENDFUNCTION.

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

Modificações efetuadas em SHLD /PWS/ZYCAA175

Incluir a Exit ajud.pesquisa "/PWS/ZYCAA175"

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

Modificações efetuadas em REPS /PWS/MZYCA011TOP

...

END OF ty_t001w.

DATA: itab_zycat031      TYPE TABLE OF /pws/zycat031,

      itab_zycat031t     TYPE TABLE OF ty_zycat031t WITH HEADER LINE,

      itab_zycat031_ant  TYPE TABLE OF /pws/zycat031,

      itab_zycat032t     TYPE TABLE OF ty_zycat032t WITH HEADER LINE,

      itab_zycat032      TYPE TABLE OF /pws/zycat032,

      itab_zycat032_ant  TYPE TABLE OF /pws/zycat032,

      itab_zycat033      TYPE TABLE OF /pws/zycat033,

      itab_zycat033t     TYPE TABLE OF ty_zycat033t WITH HEADER LINE,

      itab_zycat033_ant  TYPE TABLE OF /pws/zycat033,

* >> Início da inclusão:

      itab_zycat041      type table of /pws/zycat041,

* << Fim da inclusão

      itab_src           TYPE TABLE OF ty_src,

      itab_tline         TYPE TABLE OF tline,

      itab_tline_ant     TYPE TABLE OF tline,

      itab_tdynpread     TYPE TABLE OF dynpread,

      itab_fcode         TYPE TABLE OF ty_fcode.

DATA: wa_cols         TYPE cxtab_column,

      wa_zycat030_ant TYPE /pws/zycat030,

      wa_zycat031     TYPE /pws/zycat031,

      wa_zycat031_ant TYPE /pws/zycat031,

      wa_zycat032     TYPE /pws/zycat032,

...

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

Modificações efetuadas em REPS /PWS/MZYCA011I01

...

        TO <fs_codmo>.

      IF <fs_codmo> IS ASSIGNED AND <fs_codmo> IS INITIAL OR

         NOT <fs_codmo> IS ASSIGNED.

        MESSAGE e015 WITH text-e24 text-e25.

      ENDIF.

    ELSE.

      MESSAGE e015 WITH text-e24 text-e25.

    ENDIF.

  ENDIF.

ENDMODULE.

* >> Início da inclusão:

module valida_nbs input.

  data: wa_zycat041 type /pws/zycat041,

        v_objname   type tadir-obj_name.

  check not /pws/zycat031-nbs is initial.

  if itab_zycat041[] is initial.

    call function '/PWS/ZYCA_BUSCA_NBS_SISCOSERV'

         importing

              e_objname  = v_objname

         tables

              t_zycat041 = itab_zycat041.

  endif.

  read table itab_zycat041 into wa_zycat041

    with key nbs = /pws/zycat031-nbs.

  if sy-subrc ne 0.

    message e015 with text-e29 text-e30.

  endif.

endmodule.

* << Fim da inclusão

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

Modificações efetuadas em DYNP /PWS/SAPMZYCA011                        0101

SOLICITAR O DOWNLOAD DA TELA JUNTO A EQUIPE DE PRODUTOS DO pw.CE NO TELEFONE (11) 5504-0170

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

Modificações efetuadas em REPS /PWS/MZYCA012F01

...

  case v_okcode.

    when 'BACK'.

      leave program.

    when 'ENTER'.

      perform seleciona_dados_exibe.

  endcase.

  clear v_okcode.

endform.

form seleciona_dados_modif.

  data: v_bloq.

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

  data: itab_zycat041 type table of /pws/zycat041,

        wa_zycat041   type /pws/zycat041,

        v_objname     type tadir-obj_name.

* << Fim da inclusão

  perform verifica_autorizacao_emp changing v_bloq.

  check v_bloq is initial.

  select single * from /pws/zycat030

    where nrseq = /pws/zycat039-nrseq.

  select single *

    from /pws/zycat031

    into /pws/zycat031

    where nrseq    = /pws/zycat039-nrseq

      and operacao = /pws/zycat039-operacao.

  if sy-subrc ne 0 or

...

...

    if /pws/zycat031-status ne 'PS'.

      clear v_okcode.

      message i015 with text-e01.

      exit.

    else.

      perform verifica_bloqueio.

      select * from /pws/zycat039

        into table itab_zycat039

        where nrseq    = /pws/zycat039-nrseq

          and operacao = /pws/zycat039-operacao.

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

      select single descricao into v_nbs

        from /pws/zycat041

        where nbs = /pws/zycat031-nbs.

* << Fim da exclusão

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

      call function '/PWS/ZYCA_BUSCA_NBS_SISCOSERV'

           importing

                e_objname  = v_objname

           tables

                t_zycat041 = itab_zycat041.

      read table itab_zycat041 into wa_zycat041

        with key nbs = /pws/zycat031-nbs.

      if sy-subrc eq 0.

        v_nbs = wa_zycat041-descricao.

* << Fim da inclusão

    endif.

  endif.

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

  endif.

* << Fim da inclusão

  refresh: itab_zycat039_r, itab_zycat039_c,

           itab_zycat039_f, itab_zycat039_o,

           itab_zycat039_fe.

  loop at itab_zycat039 into wa_zycat039.

    if not wa_zycat039-remessa is initial.

...

...

      v_exibe = 'X'.

      message i015 with text-i02 text-i03.

    endif.

  else.

    v_exibe = 'X'.

    message i015 with text-i02 text-i03.

  endif.

endform.

form seleciona_dados_exibe.

  data: v_bloq.

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

  data: itab_zycat041 type table of /pws/zycat041,

        wa_zycat041   type /pws/zycat041,

        v_objname     type tadir-obj_name.

* << Fim da inclusão

  perform verifica_autorizacao_emp changing v_bloq.

  check v_bloq is initial.

  select * from /pws/zycat039

    into table itab_zycat039

    where nrseq    = /pws/zycat039-nrseq

      and operacao = /pws/zycat039-operacao.

  if sy-subrc ne 0.

    clear v_okcode.

    message i015 with text-e01.

    exit.

  else.

    select single * from /pws/zycat030

      where nrseq = /pws/zycat039-nrseq.

    select single * from /pws/zycat031

      where nrseq    = /pws/zycat039-nrseq

        and operacao = /pws/zycat039-operacao.

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

    select single descricao into v_nbs

      from /pws/zycat041

      where nbs = /pws/zycat031-nbs.

* << Fim da exclusão

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

    call function '/PWS/ZYCA_BUSCA_NBS_SISCOSERV'

         importing

              e_objname  = v_objname

         tables

              t_zycat041 = itab_zycat041.

    read table itab_zycat041 into wa_zycat041

      with key nbs = /pws/zycat031-nbs.

    if sy-subrc eq 0.

      v_nbs = wa_zycat041-descricao.

    endif.

* << Fim da inclusão

    refresh: itab_zycat039_r, itab_zycat039_c,

             itab_zycat039_f, itab_zycat039_o.

    loop at itab_zycat039 into wa_zycat039.

      if not wa_zycat039-remessa is initial.

        append wa_zycat039 to itab_zycat039_r.

      elseif not wa_zycat039-fat_comis is initial.

        append wa_zycat039 to itab_zycat039_c.

      elseif not wa_zycat039-fat_imp is initial.

        append wa_zycat039 to itab_zycat039_f.

      elseif not wa_zycat039-fatura is initial.

...

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

Modificações efetuadas em REPT /PWS/SAPMZYCA011

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

Incluído símbolo de texto:

Idioma: EN

Símbolo: E29

Texto: (37 caracteres)

"NBS not found. Check parameterization"

Comprimento máximo: 44

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: E29

Texto: (44 caracteres)

"NBS não cadastrata. Verificar parametrização"

Comprimento máximo: 44

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

Incluído símbolo de texto:

Idioma: ES

Símbolo: E29

Texto: (44 caracteres)

"Cadastrata NBS no. Compruebe la parametrizac"

Comprimento máximo: 44

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

Incluído símbolo de texto:

Idioma: EN

Símbolo: E30

Texto: (47 caracteres)

"vision J_1BTNBSV or transaction / PWS/ZYCAT041."

Comprimento máximo: 49

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: E30

Texto: (49 caracteres)

"da visão J_1BTNBSV ou da transação /PWS/ZYCAT041."

Comprimento máximo: 49

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

Incluído símbolo de texto:

Idioma: ES

Símbolo: E30

Texto: (46 caracteres)

"visión J_1BTNBSV o transacción / PWS/ZYCAT041."

Comprimento máximo: 49

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

Modificado símbolo de texto:

Idioma: PT

Símbolo: I02

Texto: (39 caracteres)

"Informações não gravadas serão perdidas"

Comprimento máximo: 39