Verificando erro em ALV

11, agosto 2009 às 10:54 pm | Publicado em ABAP-SAP | 1 Comentário
Tags: , ,

Existe uma sequencia que nos mostra erros em ALV, no começo achei meio estranho mas realmente funciona,

– Clique na tela do seu ALV.

– Segure SHIFT, CONTROL, ALT.

– De 2 clique com o botão direito do mouse em uma parte vazia do seu ALV.

Ira aparecer um popup com o log do seu ALV, muito doido, rs.

Quem me passou essa foi meu amigo Rodolfo Mião.

Abraço  Rodolfo e abraço a todos,

Mauro Cesar Silva Laranjeira

Zeros a esquerda – ABAP

11, agosto 2009 às 10:49 pm | Publicado em ABAP-SAP | 1 Comentário
Tags: ,

Temos 2 funções que nos auxiliam com tratamento de zeros a esquerda, a função

CONVERSION_EXIT_ALPHA_INPUT que insere zeros a esquerda, e a função

CONVERSION_EXIT_ALPHA_OUTPUT que remove zeros a esquerda.

Exemplo:

DATA: v_teste TYPE char10 VALUE ’30’.

CALL FUNCTION ‘CONVERSION_EXIT_ALPHA_INPUT’

EXPORTING

input  = v_teste

IMPORTING

output = v_teste.

WRITE v_teste.

CALL FUNCTION ‘CONVERSION_EXIT_ALPHA_OUTPUT’

EXPORTING

input  = v_teste

IMPORTING

output = v_teste.

WRITE v_teste.

Neste caso iria aparecer na tela:
0000000030
30
DATA: v_teste TYPE char100 VALUE ’30’.
CALL FUNCTION ‘CONVERSION_EXIT_ALPHA_INPUT’
EXPORTING
input  = v_teste
IMPORTING
output = v_teste.
WRITE v_teste.
CALL FUNCTION ‘CONVERSION_EXIT_ALPHA_OUTPUT’
EXPORTING
input  = v_teste
IMPORTING
output = v_teste.
WRITE v_teste.

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

Blog no WordPress.com.
Entries e comentários feeds.