Sintoma

- criação de tabela para parametrização dos valores permitidos para o campo CÓDIGO ENQUADRAMENTO

- inclusão de botão para gravação de arquivos na RAS/RVS

Solução

- criação de tabela para parametrização dos valores permitidos para o campo CÓDIGO ENQUADRAMENTO

- inclusão de botão para gravação de arquivos na RAS/RVS

Informações Complementares

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

Nota Número 12697 Data: 30/11/2012 Hora: 10:44:20

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

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

Nota Número              : 12697

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 9.0

Pacote                   : 00002

Agrupamento              : 00138

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

Referência às notas relacionadas:

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

12480  - 00001 - 9.0    - 00001  - SISCOSERV

12604  - 00002 - 9.0    - 00002  - SISCOSERV

12632  - 00003 - 9.0    - 00002  - CARGA SISCOSERV

12652  - 00004 - 9.0    - 00002  - PARÂMETROS

12671  - 00005 - 9.0    - 00002  - ASSOCIAÇÃO SISCOSERV

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

SISCOSERV - AJUDA DE PESQUISA CODIGO ENQUADRAMENTO / BOTÃO ANEXAR DOC

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

Palavras Chave:

SISCOSERV - ENQUADRAMENTO - AJUDA DE PESQUISA - BOTÃO PARA ANEXAR

DOCUMENTO

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

Objetos da nota:

DOMA /PWS/ZYGLD981

DOMD /PWS/ZYCAD026

DTEL /PWS/ZYCAL056

TABL /PWS/ZYCAT045

TABD /PWS/ZYCAT032

SHLP /PWS/ZYCAA177

FUGR /PWS/ZYCAGF1

REPS /PWS/ZYCAGF1TOP

REPS /PWS/MZYCA012F01

REPS /PWS/MZYCA011TOP

REPS /PWS/MZYCA011O01

REPS /PWS/LZYCAGFF01

REPS /PWS/MZYCA011F01

TRAN /PWS/ZYCAT045

REPS /PWS/ZYCE_BUS_CB001

SOBJ /PWS/CB001

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

Modificações efetuadas em DOMA /PWS/ZYGLD981

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

Domínio incluído: /PWS/ZYGLD981

Descrição breve incluída (21 caracteres), idioma: EN

"Description framework"

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

"Descrição Enquadramento"

Descrição breve incluída (21 caracteres), idioma: ES

"Descripción del marco"

Classe de desenvolvimento: /PWS/ZYGL

Idioma original: PT

Categoria de dados: CHAR

Número de posições: 50

Comprimento de saída: 50

Rotina de conversão: ALPHA

Letras minúsculas: NÃO

Incluída tabela de valores:

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

Modificações efetuadas em DTEL /PWS/ZYCAL056

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

Elemento de dados incluído: /PWS/ZYCAL056

Classe de desenvolvimento: /PWS/ZYCA

Idioma original: PT

Descrição breve incluída: (33 caracteres), idioma: EN

"Description framework - Siscoserv"

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

"Descrição Enquadramento - SISCOSERV"

Descrição breve incluída: (33 caracteres), idioma: ES

"Descripción del marco - SISCOSERV"

Categoria de dados: Domínio

Domínio: /PWS/ZYGLD981

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 (7 caracteres), idioma: EN

"Framing"

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

"Enquadram."

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

"Encuadram."

Comprimento máximo do denominador médio: 15

Denominador médio incluído (7 caracteres), idioma: EN

"Framing"

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

"Enquadramento"

Denominador médio incluído (14 caracteres), idioma: ES

"Encuadramiento"

Comprimento máximo do denominador longo: 23

Denominador longo incluído (21 caracteres), idioma: EN

"Description framework"

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

"Descrição Enquadramento"

Denominador longo incluído (21 caracteres), idioma: ES

"Descripción del marco"

Comprimento máximo do título: 23

Título incluído (21 caracteres), idioma: EN

"Description framework"

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

"Descrição Enquadramento"

Título incluído (21 caracteres), idioma: ES

"Descripción del marco"

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

Modificações efetuadas em REPS /PWS/ZYCAGF1TOP

...

      itab_zycat040_del type table of /pws/zycat040,

      itab_zycat041_ins type table of /pws/zycat041,

      itab_zycat041_upd type table of /pws/zycat041,

      itab_zycat041_del type table of /pws/zycat041,

      itab_zycat042_ins type table of /pws/zycat042,

      itab_zycat042_upd type table of /pws/zycat042,

      itab_zycat042_del type table of /pws/zycat042,

      itab_zycat043_ins type table of /pws/zycat043,

      itab_zycat043_upd type table of /pws/zycat043,

      itab_zycat043_del type table of /pws/zycat043.

* >> Início da inclusão:

data: itab_zycat044_ins type table of /pws/zycat044,

      itab_zycat044_upd type table of /pws/zycat044,

      itab_zycat044_del type table of /pws/zycat044,

      itab_zycat045_ins type table of /pws/zycat045,

      itab_zycat045_upd type table of /pws/zycat045,

      itab_zycat045_del type table of /pws/zycat045.

* << Fim da inclusão

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

Modificações efetuadas em REPS /PWS/LZYCAGF1F01

. . .

  loop at itab_zycat043_ins

    into /pws/zycat043.

    perform carrega_log using '/PWS/ZYCAT043'

                              c_insert

                              '/PWS/ZYCAT043'

                              '/PWS/ZYCAT043'

                              space.

  endloop.

endform.

* >> Início da inclusão:

form grava_log_zycat044_del.

  types: begin of s_conteudo,

           zycat044  type /pws/zycat044,

           action(1) type c,

         end of s_conteudo.

  field-symbols: <fs_conteudo> type s_conteudo.

  loop at total.

    assign total to <fs_conteudo> casting.

    case <fs_conteudo>-action.

      when c_new.

        append <fs_conteudo>-zycat044 to itab_zycat044_ins.

      when c_update.

        append <fs_conteudo>-zycat044 to itab_zycat044_upd.

      when c_delete.

        append <fs_conteudo>-zycat044 to itab_zycat044_del.

    endcase.

  endloop.

  loop at itab_zycat044_del

    into /pws/zycat044.

    perform carrega_log using '/PWS/ZYCAT044'

                              c_delete

                              '/PWS/ZYCAT044'

                              '/PWS/ZYCAT044'

                              space.

  endloop.

  clear sy-subrc.

endform.

form grava_log_zycat044_upd.

  loop at itab_zycat044_upd

    into /pws/zycat044.

    perform carrega_log using '/PWS/ZYCAT044'

                              c_update

                              '/PWS/ZYCAT044'

                              '/PWS/ZYCAT044'

                              space.

  endloop.

  loop at itab_zycat044_ins

    into /pws/zycat044.

    perform carrega_log using '/PWS/ZYCAT044'

                              c_insert

                              '/PWS/ZYCAT044'

                              '/PWS/ZYCAT044'

                              space.

  endloop.

endform.

form grava_log_zycat045_del.

  types: begin of s_conteudo,

           zycat045  type /pws/zycat045,

           action(1) type c,

         end of s_conteudo.

  field-symbols: <fs_conteudo> type s_conteudo.

  loop at total.

    assign total to <fs_conteudo> casting.

    case <fs_conteudo>-action.

      when c_new.

        append <fs_conteudo>-zycat045 to itab_zycat045_ins.

      when c_update.

        append <fs_conteudo>-zycat045 to itab_zycat045_upd.

      when c_delete.

        append <fs_conteudo>-zycat045 to itab_zycat045_del.

    endcase.

  endloop.

  loop at itab_zycat045_del

    into /pws/zycat045.

    perform carrega_log using '/PWS/ZYCAT045'

                              c_delete

                              '/PWS/ZYCAT045'

                              '/PWS/ZYCAT045'

                              space.

  endloop.

  clear sy-subrc.

endform.

form grava_log_zycat045_upd.

  loop at itab_zycat045_upd

    into /pws/zycat045.

    perform carrega_log using '/PWS/ZYCAT045'

                              c_update

                              '/PWS/ZYCAT045'

                              '/PWS/ZYCAT045'

                              space.

  endloop.

  loop at itab_zycat045_ins

    into /pws/zycat045.

    perform carrega_log using '/PWS/ZYCAT045'

                              c_insert

                              '/PWS/ZYCAT045'

                              '/PWS/ZYCAT045'

                              space.

  endloop.

endform.

* << Fim da inclusão

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

Modificações efetuadas em TABL /PWS/ZYCAT045

CRIAR TABELA TRANSPARENTE: /PWS/ZYCAT045

DESCRIÇÃO BREVE: CA - Código Enquadramento

CARACTERÍSTICAS

CATEGORIA DA TABELA: Tabela Transparente

CLASSE DE ENTREGA:   'C' - Tab.customizing, atualização só por cliente, s/import.SAP

(X) - AUTUALIZAÇÃO DE TABELAS PERMITIDA

CAMPOS NOVOS

CAMPOS:         TP. CAMPO     CH: INI: TAB.VERIF.:    TAB.REF.:     CPO.RE

MANDT           MANDT          X   X

COD_ENQUAD      /PWS/ZYCAL031  X   X

TXT_DESCR       /PWS/ZYCAL056

OPÇÕES TÉCNICAS

TIPO DE DADOS: APPL2

CATEGOR. TAMANHO: 0

(X) - AR. BUFFER NÃO PERMITIDO

(_) - AR. BUFFER PERMITIDO, MAS DESATIVADO

(_) - AR. BUFFER ATIVADO

(_) - RGSTS. IND ARMAZENADOS

(_) - ÁREA GEN ARMAZENADA EM BUFFER   Nº DE CPOS CHAVE: ______

(_) - TOTALMENTE ARMAZENADO

(_) - REGISTRAR MODIFICS. DDS. EM LOG.

GERAR DIÁLOGO DE ATUALIZAÇÃO PARA A TABELA /PWS/ZYCAT045 COM AS INFORMAÇÕES ABAIXO:

GRUPO DE AUTORIZAÇÃO: ZYCE

GRUPO DE FUNÇÕES    : /PWS/ZYCAGF1

CL. DESENVOLVIMENTO : /PWS/ZYCA

TELAS DE ATUALIZAÇÃO:

CTG. ATUALIZAÇÃO:   (X) NÍVEL ÚNICO

                    (_) 2 NÍVEIS

Nº TELA ATUALIZAÇÃO: TELA DE SÍNTESE: 45

                     TELA INDIVIDUAL: __

INDICAÇÕES PARA TRANSPORTE DE DADOS DE DIÁLOGO:

ROTINA DE REGISTRO: (X) ROTINA DE REGISTRO STANDARD

                    (_) ROTINA DE REGISTRO INDIVIDUAL (OU NENHUMA)

CÓDIGO DE AJUSTE: AJUSTÁVEL AUTOMATICAMENTE

NA TELA DO DIÁLOGO DE ATUALIZAÇÃO, IR EM AMBIENTE --> MODIFICAÇÃO --> HORAS E INCLUIR AS ENTRADAS

ABAIXO:

MOM         NOME DO FORM/PROGRAMA

01          GRAVA_LOG_ZYCAT045_DEL

02          GRAVA_LOG_ZYCAT045_UPD

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

Modificações efetuadas em SHLP /PWS/ZYCAA177

CRIAR AJUDA DE PESQUISA: /PWS/ZYCAA177

DESCRIÇÃO BREVE: Código Enquadramento

DEFINIÇÃO

OBTENÇÃO DE DADOS

MÉTODO DE SELEÇÃO: /PWS/ZYCAT045

COMPORTAMENTO DE DIÁLOGO:

TIPO DE DIÁLOGO: Exibição de Valores Imediata

HOT KEY: ____

EXIT AJUD. PESQUISA: _________________________________

PARÂMETROS:

PARAM.    IMP EXP POSL ISEL EXAJ ELEM. DADOS  MOD  VALOR PROPOSTO

COD_ENQUAD     X   1    1       /PWS/ZYCAL031

TXT_DESCR          2    2       /PWS/ZYCAL056

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

Modificações efetuadas em TABD /PWS/ZYCAT032

MODIFICAR TABELA TRANSPARENTE: /PWS/ZYCAT032

PARA O CAMPO COD_ENQUAD, INCLUIR CHAVE EXTERNA CONFORME INFORMAÇÕES ABAIXO:

TABELA DE VERIFICAÇÃO: /PWS/ZYCAT045

TAB.VERIF.    CPO.TAB.VER.   TABELA CHAVE EXTERNA    CPO. CHAVE EXTERNA

/PWS/ZYCAT045 MANDT          /PWS/ZYCAT032           MANDT

/PWS/ZYCAT045 COD_ENQUAD     /PWS/ZYCAT032           COD_ENQUAD

PARA O CAMPO COD_ENQUAD, INCLUIR A AJUDA DE PESQUISA /PWS/ZYCAA177

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

Modificações efetuadas em REPS /PWS/MZYCA012F01

...

    WHEN 'ORIG'.

      PERFORM busca_origem.

  ENDCASE.

  CLEAR v_okcode.

ENDFORM.

FORM busca_origem.

  DATA: itab_bseg TYPE TABLE OF bseg,

        wa_bseg   TYPE bseg,

        v_koart   TYPE bseg-koart.

  READ TABLE itab_zycat039_o INTO wa_zycat039o

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

    WITH KEY fatura+10(10) = bkpf-belnr.

* << Fim da exclusão

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

    with key fatura = bkpf-belnr.

* << Fim da inclusão

  IF sy-subrc EQ 0.

    MESSAGE i015 WITH text-e18.

    CLEAR bkpf.

    EXIT.

  ELSE.

    CLEAR wa_zycat039o.

  ENDIF.

  SELECT * FROM bseg

    INTO TABLE itab_bseg

    WHERE bukrs = bkpf-bukrs

...

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

Modificações efetuadas em REPS /PWS/MZYCA011TOP

...

      v_gera_xml,

      v_funcionalidade type /pws/zyglt390-programa

                       value '/PWS/SAPMZYCA011',

      v_identificador  type /pws/zyglt390-identificador.

controls: ts_contrato   type tabstrip,

          tc_oper       type tableview using screen '0101',

          tc_enq        type tableview using screen '0102',

          tc_re         type tableview using screen '0103'.

data editor        type ref to cl_gui_textedit.

data editcontainer type ref to cl_gui_custom_container.

* >> Início da inclusão:

data: gos type ref to /pws/zygl_cl_gos.

* << Fim da inclusão

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

Modificações efetuadas em REPS /PWS/MZYCA011O01

...

      ENDIF.

    ENDLOOP.

  ENDIF.

  LOOP AT SCREEN.

    IF screen-name = '/PWS/ZYCAT030-PROCESSAMENTO' OR

       screen-name = 'T_MANUAL'.

      screen-active = '0'.

      MODIFY SCREEN.

    ENDIF.

  ENDLOOP.

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

  perform gos_criar

          using

            /pws/zycat030-nrseq

          changing

            gos.

  perform gos_publicar

          using

            gos.

* << Fim da inclusão

ENDMODULE.

MODULE busca_sequencial OUTPUT.

  IF /pws/zycat030-nrseq IS INITIAL.

    PERFORM busca_sequencial.

    /pws/zycat030-processamento = 'X'.

  ENDIF.

ENDMODULE.

MODULE atualiza_tela_oper OUTPUT.

  MOVE-CORRESPONDING itab_zycat031t TO /pws/zycat031.

  MOVE: itab_zycat031t-mark TO v_mark.

...

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

Modificações efetuadas em REPS /PWS/LZYCAGFF01

...

            name      = 'NumeroRVSEmpresa'

            value     = attrib_value

            parent    = element_principal.

  endif.

  if not p_zycat039-remessa is initial.

    attrib_value = p_zycat039-remessa.

  elseif not p_zycat039-fat_comis is initial.

    attrib_value = p_zycat039-fat_comis.

  elseif not p_zycat039-fat_imp is initial.

    attrib_value = p_zycat039-fat_imp.

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

  elseif not p_zycat039-fatura is initial.

    attrib_value = p_zycat039-fatura.

* << Fim da inclusão

  endif.

  condense attrib_value.

  if p_processo = 'IRP'.

    call method document->create_simple_element

         exporting

            name      = 'IdPagamentoEmpresa'

            value     = attrib_value

            parent    = element_principal.

    call method document->create_simple_element

         exporting

...

...

          name      = 'xsi:noNamespaceSchemaLocation'

          value     = attrib_value

       receiving

          rval      = ret_code.

  if not p_zycat039-remessa is initial.

    attrib_value = p_zycat039-remessa.

  elseif not p_zycat039-fat_comis is initial.

    attrib_value = p_zycat039-fat_comis.

  elseif not p_zycat039-fat_imp is initial.

    attrib_value = p_zycat039-fat_imp.

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

  elseif not p_zycat039-fatura is initial.

    attrib_value = p_zycat039-fatura.

* << Fim da inclusão

  endif.

  condense attrib_value.

  if p_processo = 'CRP'.

    call method document->create_simple_element

         exporting

            name      = 'IdPagamentoEmpresa'

            value     = attrib_value

            parent    = element_principal.

  elseif p_processo = 'CRF'.

    call method document->create_simple_element

...

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

Modificações efetuadas em REPS /PWS/MZYCA011F01

...

  if not editor is initial.

    call method editor->free.

    call method editcontainer->free.

    clear: editor, editcontainer.

  endif.

  clear: v_exibe, v_cria, v_gera_xml, /pws/zycat030.

  refresh: itab_zycat031, itab_zycat031t, itab_zycat031_ant,

           itab_zycat032, itab_zycat032t, itab_zycat032_ant,

           itab_zycat033, itab_zycat033t, itab_zycat033_ant,

           itab_src, itab_tline_ant, itab_tline.

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

  perform gos_despublicar

        using

          gos.

* << Fim da inclusão

endform.

form elimina_ras_rvs.

  data: itab_zycat034 type table of /pws/zycat034,

        itab_zycat038 type table of /pws/zycat038,

        wa_zycat031t  type ty_zycat031t,

        wa_zycat038   type /pws/zycat038.

  select single *

    from /pws/zycat030

    where nrseq = /pws/zycat030-nrseq.

  if /pws/zycat030-status eq 'EP'.

...

...

            i_zycat030 = /pws/zycat030

            i_exibe    = v_exibe

       exceptions

            no_log     = 1

            others     = 2.

  if sy-subrc <> 0.

    message i015 with text-i20.

    clear v_okcode.

  endif.

endform.

* >> Início da inclusão:

form gos_criar

     using

       p_nrseq type /pws/zycat030-nrseq

     changing

       p_gos   type ref to /pws/zygl_cl_gos.

  data: _objkey type borident-objkey.

  free p_gos.

  _objkey = p_nrseq.

  create object p_gos

         exporting

           objtype        = '/PWS/CB001'

           objkey         = _objkey

           program        = '/PWS/SAPMZYCA011'

         exceptions

           not_authorized = 1.

  if sy-subrc <> 0.

    clear p_gos.

  endif.

endform.

form gos_publicar

     using

       p_gos type ref to /pws/zygl_cl_gos.

  check not p_gos is initial.

  call method p_gos->publish

       exceptions

         object_invalid   = 1

         callback_invalid = 2

         error            = 3.

  if sy-subrc <> 0.

    message id sy-msgid type sy-msgty number sy-msgno

               with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

  endif.

endform.

form gos_despublicar

     using

       p_gos type ref to /pws/zygl_cl_gos.

  check not p_gos is initial.

  call method p_gos->unpublish.

endform.

* << Fim da inclusão

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

Modificações efetuadas em TRAN /PWS/ZYCAT045

CRIAR CÓDIGO DE TRANSAÇÃO: /PWS/ZYCAT045

ATRIBUTOS DA TRANSAÇÃO

TEXTO BREVE: Código Enquadramento

OBJETO DE EXECUÇÃO

(X) - TRANSAÇÃO C/ PARÂMETROS (TRANSAÇÃO DE PARÂMETROS)

TEXTO DA TRANSAÇÃO: Código Enquadramento

VALOR PROPOSTO PARA

(X) - TRANSAÇÃO SM30  (X) - OMITIR 1ºTELA

(_) - TELA      _____________________

DO POOL MÓDULOS ___________________________

CLASSIFICAÇÃO

(_) - HERDAR CARACTERÍSTICAS GUI

CLASSIFICAÇÃO DE TRANSAÇÃO:

(X) - TRANSAÇÃO PROFESSIONAL USER

(_) - TRANSAÇÃO EASY WEB      SERVIÇO: ___________________________

CAPACIDADE GUI:

(X) SAP GUI PARA HTML

(X) SAP GUI PARA JAVA

(X) SAP GUI PARA WINDOWS

VALORES PROPOSTOS

NOME DO CAMPO DA TELA              VALOR

VIEWNAME                           /PWS/ZYCAT045

UPDATE                             X

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

Modificações efetuadas em menu /PWS/ZYCB

No menu Parâmetros --> Câmbio --> Financeiro --> Siscoserv, incuir a opção abaixo logo após

'Mensagens Erro SISCOSERV':

ENTRADA DE MENU: Código Enquadramento

CÓDIGO DA TRANSAÇÃO: /PWS/ZYCAT045

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

Modificações efetuadas em parâmetro /PWS/ZYGLT388

Na transação /PWS/ZYGLT388, incluir a entrada /PWS/SAPMZYCA011

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

Modificações efetuadas em SOBJ /PWS/CB001

Criar o business object /PWS/CB001 (Business Objects são criados na transação SWO1).

-Categoria de objeto: /PWS/CE001

-Nome do objeto: RAS_RVS_SISCOSERV

-Denominação: RAS/RVS - Siscoserv

-Descrição breve: RAS/RVS - Siscoserv

-Programa: /PWS/ZYCE_BUS_CB001

-Aplicação: Z

-Pacote: /PWS/ZYCB

Ajustar o objeto criado:

1) Adicionar a interface IFGOSASERV, se a versão de basis for anterior a 470, ou a interface

IFGOSXSERV, se a versão de basis foi igual ou superior a 470 (Marcar nó "interface" e selecionar

criar <F5>).

2) Adicionar o campo chave NRSEQ

-Referente a tabela /PWS/ZYCAT030, campo NRSEQ

-Nome do campo NRSEQ

-Denominação: Número Sequencial

-Significado: Número Sequencial RAS/RVS

3) Redefinir o método RAS_RVS_SISCOSERV.GOSAddObjects (Marcar o item e escolher Redefinir <F6> no

menu de contexto)

4) Editar o método RAS_RVS_SISCOSERV.GOSAddObjects (Marcar o item e clicar em Programa

<Ctrl+Shift+F3>, Aceitar a proposta de código a seguir)

-Substituir o codigo existente pelo código a seguir

* >> Início

begin_method gosaddobjects changing container.

  DATA:

       service(255),

       busidentifs LIKE borident OCCURS 0,

       ls_borident TYPE borident.

  CLEAR ls_borident.

  ls_borident-objtype = '/PWS/CB001'.

  ls_borident-objkey = object-key.

  APPEND ls_borident TO busidentifs.

  swc_get_element container 'Service' service.

  swc_set_table container 'BusIdentifs' busidentifs.

end_method.

* << Fim

5) Modificar o status de liberação do tipo de objeto para "em implementado": Menu "Processar" ->

"Modif.Status Liberaç." -> "Tipo de Objeto".

6) Gerar o objeto (<Ctrl+F3> na tela principal).