Inserindo valor em Grid com BOL – CRM 2007

11, agosto 2009 às 10:20 pm | Publicado em ABAP-SAP | Deixe um comentário
Tags: , , , ,
DATA: o_gridaquecedor TYPE REF TO cl_bsp_wd_value_node,
o_gridaquecedor_col TYPE REF TO  cl_crm_bol_bo_col,”if_bol_bo_col.
o_grid TYPE REF TO zisfi_sintese.
CREATE DATA o_grid.
CREATE OBJECT o_gridaquecedor_col.
o_gridaquecedor ?= me->typed_context->gridaquecedor->collection_wrapper->get_current( ).
o_gridaquecedor_col->if_bol_bo_col~add( o_gridaquecedor ).
op_topartidasabertas( o_gridaquecedor_col ).

Neste exemplo iremos criar um método com o nome INSERT_ENTITY_GRID, este método terá a função de atribuir uma work area recebida como parâmetro (wa_grid)  em um grid construído com nó de valor.

Nossa work area e do tipo da estrutura Z, Zestrutura.

O Nome do meu nó de valor com o grid, chama GRID.

Este método pode ser disparado de um método da classe de implementação (class de controle da View, normalmente com o final IMPL), um método que recomendo para fazer esta chamada e o DO_PREPARE_OUTPUT .

Segue o método para alimentar o grid com a work area.

METHOD insert_entity_grid.

DATA: o_new_line TYPE REF TO cl_bsp_wd_value_node,

o_zestrutura TYPE REF TO Zestrutura.

CREATE DATA o_zestrutura.

CREATE OBJECT o_new_line

EXPORTING

iv_data_ref = o_zestrutura.

o_new_line->if_bol_bo_property_access~set_properties( is_attributes = wa_grid ).

me->typed_context->grid->collection_wrapper->if_bol_bo_col~add( iv_entity = o_new_line ).

ENDMETHOD.

É apenas o exemplo de um método, mas caso queira preencher todo o grid com os valores de uma tabela interna também seria possível desta maneira:

loop at t_grid into wa_grid.

me->insert_entity_grid( wa_grid ).

endloop.

Abraço,

Mauro Cesar Silva Laranjeira

Exibindo mensagem no CRM 2007 com BOL

11, agosto 2009 às 9:48 pm | Publicado em ABAP-SAP | Deixe um comentário
Tags: , ,
DATA:
lr_msgsrv  TYPE REF TO cl_bsp_wd_message_service.
lr_msgsrv = cl_bsp_wd_message_service=>get_instance( ).
lr_msgsrv->add_message( iv_msg_type       =  ‘E
iv_msg_id         =  ‘ZISCRINFORMACOES’
iv_msg_number     =  ‘003’
iv_msg_v1         =  ‘Teste classe de mensagens’.

DATA:  o_msgsrv  TYPE REF TO cl_bsp_wd_message_service.

o_msgsrv = cl_bsp_wd_message_service=>get_instance( ).

o_msgsrv->add_message( iv_msg_type       =  ‘E’ “tipo da mensagem W/E/S

iv_msg_id         =  ‘ZCLAS’ “Class de mensagem’

iv_msg_number     =  ‘001’ “Número da mensagem

iv_msg_v1         =  ‘Texto da mensagem’.

Abraço,

Mauro Cesar Silva Laranjeira

Estudando BOL agora…

19, agosto 2008 às 10:34 pm | Publicado em ABAP-SAP | Deixe um comentário
Tags: , , ,

E ai pessoal, certinho????

Estou loko para voltar a postar aqui no blog, mas estou em uma correria, como tenho mencionado, trabalho com ABAP no SAP/R3, estou em um projeto de CRM usando BOL, estou tendo que estudar muito, rs, ainda falta informação na internet sobre BOL.

Para quem quiser conhecer segue o link de um slide que achei show de bola

http://www.slideshare.net/srinatha/crm2007-unit7-ui-development-305045

Mas qualquer coisa enviem e-mail para maurocesarsl@uol.com.br

Fikem c Deus… t+++

Crie um website ou blog gratuito no WordPress.com.
Entries e comentários feeds.