Atenção a uma questão, este módulo de função tem um parâmetro estranho de saída, que se adapta ao tipo usado na chamada à função. Quando usado na SE37 parece que não devolve decimais, mas quando usado programaticamente ele funciona como deve ser com o número de casas decimais da variável utilizada :)

Abraço!

Por falar em poliglotismo… existe um cenário que tenho visto frequentemente (muito mais que o que gostaria) e não sei se já falaste dele ou se já te deparaste com o mesmo, que tem a ver com o formato dos números…

Ora, o que vejo muito frequentemente é a substituição dos pontos por um espaço, das vírgulas por um ponto, e um belo condense no fim para embelezar a coisa. Claro que isto é um autêntico assassínio do programa, pois assim que for utilizado por alguém num país que funcione ao contrário (como os nossos colegas do outro lado do Atlântico) isto vai funcionar muito mal… normalmente até resulta em erro em tempo de execução…

Para ultrapassar este problema existe um módulo de função muito simpático chamado MOVE_CHAR_TO_NUM, este módulo de função pergunta ao SAP qual é o formato configurado pelo utilizador para os separadores dos milhares e décimais e faz a conversão consoante esta configuração. Se o utilizador tiver o SAP configurado duma maneira e fizer um upload ou inserção dum número ao contrário aí já não há nada a fazer, mas ao menos fizémos o nosso trabalho como deve ser.

Abraço, espero que a dica seja útil.

Explora um bocadinho a classe CL_SALV. Tens muitos métodos à tua disposição para adicionar/remover funcionalidades, e podes também criar o teu próprio status e utilizá-lo com essa classe.

Abraço.

Não obstante, tenho uma sugestão para esta nova modalidade da partilha de código. Que tal em vez de usar a velha modalidade da “partilha” de código, que implica a partilha do código “em esparguete”, como lhe chamava o meu caro colega Zé Nascimento, fazer apenas uma boa descrição do programa e partilhá-lo em nuggets?

Abraço.

Obrigado.

Outra manha interessante (que me vi obrigado a utilizar aqui no cliente onde estou) é na SE16N, fazer /H para entrar em debug, e mudar na estrutura GD os campos EDIT e SAP_EDIT para ‘X’. Não sei porquê mas o &sap_edit não funcionava e eu tenho pavor da SE16, então vi-me forçado a descobrir este método.

Cumps, e obrigado pelo blog.

No projeto em que estou trabalhando, costumamos usar uma classe apenas para as constantes, podendo assim reutilizar as constantes em outros programas. Exemplo:

Na SE24 ou SE80, crie uma classe ZCL_CONSTANTES, definindo como FINAL.

em atributos, crie:
C_bukrs_espanha type bukrs_d value ’1111′
C_bukrs_franca type bukrs_d value ’2222′
C_bukrs_india type bukrs_d value ’3333′

todos eles tipo constant e visibilidade public

no seu programa, use:

START-OF-SELECTION.

CASE l_bukrs.
WHEN zcl_constants=>c_bukrs_ESPANHA.
txt = ‘Hola’.
WHEN zcl_constants=>c_bukrs_franca.
txt = ‘Bonjour’.
WHEN zcl_constants=>c_bukrs_INDIA.
txt = ‘Namaste’.
ENDCASE.
WRITE txt.

Pode tb criar uma unica constante estruturada, bastando clicar na seta de entrada direta de dados e declarar a contante como fez no exemplo:
CONSTANTS:
BEGIN OF C_BUKRS,
ESPANHA TYPE BUKRS VALUE ’1111′,
FRANCA TYPE BUKRS VALUE ’2222′,
INDIA TYPE BUKRS VALUE ’3333′,
END OF C_BUKRS.

no seu programa ficaria:

START-OF-SELECTION.

CASE l_bukrs.
WHEN zcl_constants=>c_bukrs-ESPANHA.
txt = ‘Hola’.
WHEN zcl_constants=>c_bukrs-franca.
txt = ‘Bonjour’.
WHEN zcl_constants=>c_bukrs-INDIA.
txt = ‘Namaste’.
ENDCASE.
WRITE txt.

Boa dica!

Assim também pode voltar no tempo !… kkk

Abraço galera !

Código ta meio feio, mais era com apenas 3 meses de experiencia.

Objetivo: Encaminhar email a todos os fornecedores que tiveram suas notas pagas através da rotina de pagamento automático.

************************************************************************
* Autor : Lucas Augusto Gonçalves *
* Data : 14.07.2011 *
* Descrição : *
* Transação : ZFIR056 *
* Projeto : *
* Request : *
************************************************************************
* Histórico Das Modificações *
************************************************************************
* Autor : *
* Data : *
* Comentário : *
************************************************************************

*———————————————————————-*
* Report
*———————————————————————-*
REPORT zfir016.

*———————————————————————-*
* Tabelas
*———————————————————————-*
TABLES : reguh,
regup,
lfa1,
adr6.

*———————————————————————-*
* Tipos
*———————————————————————-*
TYPE-POOLS: icon,
slis.

TYPES: BEGIN OF ty_relatorio,
status TYPE icon-name,
lifnr TYPE regup-lifnr,
name1 TYPE reguh-name1,
msg TYPE string,
END OF ty_relatorio.

TYPES: BEGIN OF ty_reguh,
laufd TYPE reguh-laufd,
laufi TYPE reguh-laufi,
xvorl TYPE reguh-xvorl,
zbukr TYPE reguh-zbukr,
lifnr TYPE reguh-lifnr,
kunnr TYPE reguh-kunnr,
empfg TYPE reguh-empfg,
vblnr TYPE reguh-vblnr,
name1 TYPE reguh-name1,
zaldt TYPE reguh-zaldt,
END OF ty_reguh.

TYPES: BEGIN OF ty_regup,
laufd TYPE regup-laufd,
laufi TYPE regup-laufi,
xvorl TYPE regup-xvorl,
zbukr TYPE regup-zbukr,
lifnr TYPE regup-lifnr,
kunnr TYPE regup-kunnr,
empfg TYPE regup-empfg,
vblnr TYPE regup-vblnr,
bukrs TYPE regup-bukrs,
belnr TYPE regup-belnr,
gjahr TYPE regup-gjahr,
buzei TYPE regup-buzei,
dmbtr TYPE regup-dmbtr,
xblnr TYPE regup-xblnr,
name1 TYPE reguh-name1,
zaldt TYPE reguh-zaldt,
END OF ty_regup.

TYPES: BEGIN OF ty_lfa1,
lifnr TYPE lfa1-lifnr,
name1 TYPE lfa1-name1,
adrnr TYPE lfa1-adrnr,
END OF ty_lfa1.

TYPES: BEGIN OF ty_adr6,
addrnumber TYPE adr6-addrnumber,
persnumber TYPE adr6-persnumber,
date_from TYPE adr6-date_from ,
consnumber TYPE adr6-consnumber,
smtp_addr TYPE adr6-smtp_addr ,
END OF ty_adr6.

*———————————————————————-*
* Tabelas Internas
*———————————————————————-*
DATA: tg_reguh TYPE TABLE OF ty_reguh,
tg_regup TYPE TABLE OF ty_regup,
tg_lfa1 TYPE TABLE OF ty_lfa1,
tg_adr6 TYPE TABLE OF ty_adr6,
tg_reclist TYPE TABLE OF somlreci1,
tg_saida TYPE zfict013,
tg_saida2 TYPE zfict013,
tg_control TYPE TABLE OF ssfctrlop.

DATA: tg_events TYPE TABLE OF slis_alv_event.
DATA: tg_relatorio TYPE TABLE OF ty_relatorio.

DATA: tg_objtxt TYPE TABLE OF solisti1,
tg_objbin TYPE TABLE OF solisti1,
tg_objhead TYPE TABLE OF solisti1,
tg_tline TYPE TABLE OF tline,
tg_objpack TYPE TABLE OF sopcklsti1.

*———————————————————————-*
* Estruturas/Work areas
*———————————————————————-*
DATA: wg_reguh TYPE ty_reguh,
wg_regup TYPE ty_regup,
wg_lfa1 TYPE ty_lfa1,
wg_adr6 TYPE ty_adr6,
wg_reclist TYPE somlreci1,
wg_saida TYPE zfie013,
wg_saida2 TYPE zfie013,
wg_control TYPE ssfctrlop.

DATA: wg_relatorio TYPE ty_relatorio.

DATA: wg_objtxt TYPE solisti1,
wg_objbin TYPE solisti1,
wg_tline TYPE tline,
wg_doc_chng TYPE sodocchgi1,
wg_objpack TYPE sopcklsti1,
wg_objhead TYPE soli_tab.

DATA: wg_buffer TYPE string.

DATA: i_record TYPE solisti1 OCCURS 0 WITH HEADER LINE.

*———————————————————————-*
* Variáveis
*———————————————————————-*
DATA: vl_smtp_to TYPE adr6-smtp_addr,
vl_len_in TYPE sood-objlen.

DATA : i_otf TYPE itcoo OCCURS 0 WITH HEADER LINE,
i_tline TYPE TABLE OF tline WITH HEADER LINE. ” make each line 132 character

*** make each line 255 characters
DATA : BEGIN OF i_tline2 OCCURS 0,
tline TYPE char255,
END OF i_tline2.

* Variáveis ALV
DATA: tg_fieldcat TYPE slis_t_fieldcat_alv.
DATA: wg_fieldcat LIKE LINE OF tg_fieldcat.
DATA: vg_colpos(05) TYPE n.

DATA: vg_lines_bin TYPE i,
vg_lines_txt TYPE i.

*———————————————————————-*
* Constantes
*———————————————————————-*
DATA: c_x(1) TYPE c VALUE ‘X’,
c_u(1) TYPE c VALUE ‘U’,
c_l(1) TYPE c VALUE ‘L’,
c_10(2) TYPE c VALUE ’10′,
c_30(2) TYPE c VALUE ’30′,
c_35(2) TYPE c VALUE ’35′,
c_status(6) TYPE c VALUE ‘STATUS’,
c_lifnr(5) TYPE c VALUE ‘LIFNR’,
c_regup(5) TYPE c VALUE ‘REGUP’,
c_name1(5) TYPE c VALUE ‘NAME1′,
c_reguh(5) TYPE c VALUE ‘REGUH’,
c_msg(3) TYPE c VALUE ‘MSG’,
c_string(6) TYPE c VALUE ‘STRING’,
c_tabcolor(8) TYPE c VALUE ‘TABCOLOR’,
c_st TYPE tdid VALUE ‘ST’,
c_text(10) TYPE c VALUE ‘TEXT’,
c_raw(03) TYPE c VALUE ‘RAW’.

*———————————————————————-*
* Definição dos Parâmetros de Seleção
*———————————————————————-*
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.

PARAMETERS: p_laufd TYPE reguh-laufd OBLIGATORY, “Dia de Execução
p_laufi TYPE reguh-laufi OBLIGATORY. “Identificação
SELECT-OPTIONS: s_lifnr FOR regup-lifnr . “Código do Fornecedor

SELECTION-SCREEN END OF BLOCK b1.

*———————————————————————-*
* Start-of-Selection
*———————————————————————-*
START-OF-SELECTION.

* Valida dada
PERFORM valida_data.

* Seleção das tabelas utilizadas
PERFORM selecao.

* Monta Email
PERFORM prepara_email.

END-OF-SELECTION.

*&———————————————————————*
*& Form VALIDA_DADA
*&———————————————————————
FORM valida_data.

IF p_laufd > sy-datum.
MESSAGE i208(00) WITH text-e02. “Data não pode ser futura
LEAVE LIST-PROCESSING.
ENDIF.

ENDFORM. ” VALIDA_DADA

*&———————————————————————*
*& Form SELECAO
*&———————————————————————*
FORM selecao .

* Seleciona os dados para seleção
SELECT laufd laufi xvorl zbukr lifnr
kunnr empfg vblnr name1 zaldt
FROM reguh
INTO CORRESPONDING FIELDS OF TABLE tg_reguh
WHERE laufd = p_laufd AND
laufi = p_laufi AND
lifnr IN s_lifnr.

* Se existe, seleciona os dados do email
IF sy-subrc = 0.
SORT tg_reguh BY laufd laufi xvorl zbukr lifnr
kunnr empfg vblnr.

SELECT laufd laufi xvorl zbukr lifnr
kunnr empfg vblnr bukrs belnr
gjahr buzei dmbtr xblnr
FROM regup
INTO CORRESPONDING FIELDS OF TABLE tg_regup
FOR ALL ENTRIES IN tg_reguh
WHERE laufd = tg_reguh-laufd AND
laufi = tg_reguh-laufi AND
xvorl = space AND
zbukr = tg_reguh-zbukr AND
lifnr = tg_reguh-lifnr AND
kunnr = tg_reguh-kunnr AND
empfg = tg_reguh-empfg AND
vblnr space.

IF tg_regup IS NOT INITIAL.

* Seleciona o cod do fornecedor
SELECT lifnr name1 adrnr
FROM lfa1
INTO TABLE tg_lfa1
FOR ALL ENTRIES IN tg_reguh
WHERE lifnr = tg_reguh-lifnr.

IF tg_lfa1 IS NOT INITIAL.

* Seleciona o email (destinatário)
SELECT addrnumber persnumber date_from
consnumber smtp_addr
FROM adr6
INTO CORRESPONDING FIELDS OF TABLE tg_adr6
FOR ALL ENTRIES IN tg_lfa1
WHERE addrnumber = tg_lfa1-adrnr.

ENDIF.

ELSE.
* Se seleção não encontrar, msg de erro
MESSAGE i208(00) WITH text-e01.
LEAVE LIST-PROCESSING.

ENDIF.

ELSE.
* Se seleção não encontrar, msg de erro
MESSAGE i208(00) WITH text-e01.
LEAVE LIST-PROCESSING.

ENDIF.

ENDFORM. ” SELECAO

*&———————————————————————*
*& Form PREPARA_EMAIL
*&———————————————————————*
FORM prepara_email .

* Preenche dados a ser exibidos
PERFORM abastece_email.
* Mostra na tela para usuario o LOG
PERFORM relatorio.

ENDFORM. ” PREPARA_EMAIL

*&———————————————————————*
*& Form ABASTECE_EMAIL
*&———————————————————————*
FORM abastece_email .

DATA: vl_total TYPE string.

SORT tg_reguh BY name1.

REFRESH: tg_saida2[].
CLEAR: wg_saida2.
CLEAR: vl_total.

LOOP AT tg_reguh INTO wg_reguh.

CLEAR: wg_saida2.
*Dados para preencher o cabelho do smartforms
MOVE: wg_reguh-name1 TO wg_saida2-name1, ” Nome fornecedor
wg_reguh-zaldt TO wg_saida2-zaldt. ” Dt. Pagamento

APPEND wg_saida2 TO tg_saida2.

REFRESH : tg_saida[].
CLEAR: wg_saida.
CLEAR: vl_total.

LOOP AT tg_regup INTO wg_regup WHERE laufd = wg_reguh-laufd AND
laufi = wg_reguh-laufi AND
xvorl = wg_reguh-xvorl AND
zbukr = wg_reguh-zbukr AND
lifnr = wg_reguh-lifnr AND
kunnr = wg_reguh-kunnr AND
empfg = wg_reguh-empfg AND
vblnr = wg_reguh-vblnr.

* Dados para preencher a tabela do smartforms
MOVE: wg_regup-lifnr TO wg_saida-lifnr, ” N° fornecedor
wg_regup-xblnr TO wg_saida-xblnr, ” N° da NFe
wg_regup-dmbtr TO wg_saida-dmbtr, ” Valor
wg_reguh-zaldt TO wg_saida-zaldt. ” Dt. pagamento

vl_total = wg_saida-dmbtr + vl_total.

APPEND wg_saida TO tg_saida.

ENDLOOP.

SORT tg_saida BY xblnr zaldt.

IF tg_saida IS NOT INITIAL.

CLEAR wg_saida.
wg_saida-lifnr = ‘TOTAL’.
wg_saida-dmbtr = vl_total.
APPEND wg_saida TO tg_saida.

ENDIF.

* Trata Destinatários
PERFORM trata_destinatario.

* Chama smartforms e dispara o email
PERFORM smartforms.

ENDLOOP.

ENDFORM. ” ABASTECE_EMAIL

*&———————————————————————*
*& Form TRATA_DESTINATARIO
*&———————————————————————*
FORM trata_destinatario .

SORT tg_lfa1 BY lifnr adrnr.
SORT tg_adr6 BY addrnumber.

REFRESH: tg_reclist.
CLEAR: wg_reclist.

CLEAR: wg_lfa1.
READ TABLE tg_lfa1 INTO wg_lfa1 WITH KEY lifnr = wg_reguh-lifnr
BINARY SEARCH.

CLEAR: wg_adr6.
READ TABLE tg_adr6 INTO wg_adr6 WITH KEY addrnumber = wg_lfa1-adrnr
BINARY SEARCH.

IF sy-subrc IS INITIAL.

LOOP AT tg_adr6 INTO wg_adr6 FROM sy-tabix.

IF wg_adr6-addrnumber wg_lfa1-adrnr.
EXIT.
ENDIF.
wg_reclist-receiver = vl_smtp_to = wg_adr6-smtp_addr.
wg_reclist-rec_type = c_u.
* wg_reclist-express = c_x.
APPEND wg_reclist TO tg_reclist.
ENDLOOP.
ENDIF.

ENDFORM. ” TRATA_DESTINATARIO

*&———————————————————————*
*& Form SMARTFORMS
*&———————————————————————*
FORM smartforms .

DATA: wl_fmname TYPE rs38l_fnam,
wl_return TYPE ssfcrescl.

DATA: vl_msg1 TYPE string,
vl_msg2 TYPE string.

* Pegar nome do programa de formulário
CALL FUNCTION ‘SSF_FUNCTION_MODULE_NAME’
EXPORTING
formname = ‘ZFI001′
IMPORTING
fm_name = wl_fmname
EXCEPTIONS
no_form = 1
no_function_module = 2
OTHERS = 3.

IF sy-subrc = 0.

ENDIF.

IF tg_saida IS NOT INITIAL.

PERFORM preencher_control.

*** Chama a função do Smartforms ***
CALL FUNCTION wl_fmname
EXPORTING
user_settings = c_x
t_dados = tg_saida
name1 = wg_saida2-name1
datapag = wg_saida2-zaldt
control_parameters = wg_control
IMPORTING
job_output_info = wl_return
EXCEPTIONS
formatting_error = 1
internal_error = 2
send_error = 3
user_canceled = 4
OTHERS = 5.

i_otf[] = wl_return-otfdata[].

*** CONVERT PARA PDF ***
CALL FUNCTION ‘CONVERT_OTF’
EXPORTING
format = ‘PDF’
max_linewidth = 132
IMPORTING
bin_filesize = vl_len_in
TABLES
otf = i_otf
lines = i_tline
EXCEPTIONS
err_max_linewidth = 1
err_format = 2
err_conv_not_possible = 3
err_bad_otf = 4
OTHERS = 5.

IF sy-subrc 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

*SX_TABLE_LINE_WIDTH_CHANGE use :-faça de cada linha 255 caracteres
CALL FUNCTION ‘SX_TABLE_LINE_WIDTH_CHANGE’
TABLES
content_in = i_tline
content_out = i_tline2
EXCEPTIONS
err_line_width_src_too_long = 1
err_line_width_dst_too_long = 2
err_conv_failed = 3
OTHERS = 4.

IF sy-subrc 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

IF tg_reclist IS NOT INITIAL.

PERFORM corpo_email.

CALL FUNCTION ‘SO_NEW_DOCUMENT_ATT_SEND_API1′
EXPORTING
document_data = wg_doc_chng
put_in_outbox = c_x
TABLES
packing_list = tg_objpack
object_header = wg_objhead
contents_bin = tg_objbin
contents_txt = tg_objtxt
receivers = tg_reclist
EXCEPTIONS
too_many_receivers = 1
document_not_sent = 2
document_type_not_exist = 3
operation_no_authorization = 4
parameter_error = 5
x_error = 6
enqueue_error = 7
OTHERS = 8.

IF sy-subrc = 0.

vl_msg1 = text-010. “‘Email enviado com sucesso.’.

***Mensagem de sucesso
CLEAR: wg_relatorio.
MOVE: icon_system_okay TO wg_relatorio-status,
vl_msg1 TO wg_relatorio-msg,
wg_regup-lifnr TO wg_relatorio-lifnr,
wg_reguh-name1 TO wg_relatorio-name1.

APPEND wg_relatorio TO tg_relatorio.

ENDIF.

ELSE.

vl_msg2 = text-011. “‘Campo email do Fornecedor não atualizado.’.

**Mensagem de erro
CLEAR: wg_relatorio.
MOVE: icon_system_cancel TO wg_relatorio-status,
vl_msg2 TO wg_relatorio-msg,
wg_regup-lifnr TO wg_relatorio-lifnr,
wg_reguh-name1 TO wg_relatorio-name1.

APPEND wg_relatorio TO tg_relatorio.

ENDIF.

ENDIF.

ENDFORM. ” SMARTFORMS

*&———————————————————————*
*& Form PREENCHER_OUTPUT
*&———————————————————————*
FORM preencher_control .

* wg_control-device = ‘LOCL’.
wg_control-no_dialog = c_x.
* wg_control-preview = c_x.
wg_control-getotf = c_x.
wg_control-langu = sy-langu.

ENDFORM. ” PREENCHER_OUTPUT

*&———————————————————————*
*& Form CORPO_EMAIL
*&———————————————————————*

DATA: vl_assunto TYPE string.
DATA: vl_msg TYPE string.
DATA: vl_data TYPE char10.

WRITE sy-datum TO vl_data DD/MM/YYYY.
REPLACE ‘.’ WITH ‘/’ INTO vl_data.
REPLACE ‘.’ WITH ‘/’ INTO vl_data.

vl_assunto = text-008.

CONCATENATE: text-007 vl_data
INTO vl_msg SEPARATED BY space.

* Attachment
REFRESH: tg_objtxt,
tg_objbin,
tg_objpack.
CLEAR wg_objhead.

tg_objbin[] = i_tline2[].

* Mensagem no corpo do email
wg_objtxt = vl_msg.
APPEND wg_objtxt TO tg_objtxt.

DESCRIBE TABLE tg_objtxt LINES vg_lines_txt.
READ TABLE tg_objtxt INTO wg_objtxt INDEX vg_lines_txt.
wg_doc_chng-obj_name = vl_assunto.
wg_doc_chng-expiry_dat = sy-datum + 10.
wg_doc_chng-obj_descr = vl_assunto.
wg_doc_chng-doc_size = vg_lines_txt * 255.

* Main Text
CLEAR wg_objpack-transf_bin.
wg_objpack-head_start = 1.
wg_objpack-head_num = 0.
wg_objpack-body_start = 1.
wg_objpack-body_num = vg_lines_txt.
wg_objpack-doc_type = ‘RAW’.
APPEND wg_objpack TO tg_objpack.

* Attachment (pdf-Attachment)
wg_objpack-transf_bin = ‘X’.
wg_objpack-head_start = 1.
wg_objpack-head_num = 0.
wg_objpack-body_start = 1.

* Anexo do smart forms em pdf
DESCRIBE TABLE tg_objbin LINES vg_lines_bin.
READ TABLE tg_objbin INTO wg_objbin INDEX vg_lines_bin.
wg_objpack-doc_size = vg_lines_bin * 255 .
wg_objpack-body_num = vg_lines_bin.
wg_objpack-doc_type = ‘PDF’.
wg_objpack-obj_name = vl_assunto.
wg_objpack-obj_descr = vl_assunto.
APPEND wg_objpack TO tg_objpack.

* wg_objpack-transf_bin = space.
* wg_objpack-head_start = 000000000000001.
* wg_objpack-head_num = 000000000000001.
* wg_objpack-body_start = 000000000000002.
* wg_objpack-body_num = 000000000000010.
* wg_objpack-doc_type = ‘RAW’.
* APPEND wg_objpack TO tg_objpack.

ENDFORM. ” CORPO_EMAIL

*&———————————————————————*
*& Form RELATORIO
*&———————————————————————*
FORM relatorio .

* Prepar o fieldcat
PERFORM criar_fieldcat.

* Imprimi Relatório
PERFORM imprimir_relatorio.

ENDFORM. ” RELATORIO

*&———————————————————————*
*& Form CRIAR_FIELDCAT
*&———————————————————————*
FORM criar_fieldcat .

CLEAR: vg_colpos.

* Status
PERFORM preenche_fieldcat USING c_status
c_status
c_status
text-005
c_l
space
space
space
c_10
space.

* Cód do Fornecedor
PERFORM preenche_fieldcat USING c_lifnr
c_lifnr
c_regup
text-002
c_l
space
space
space
c_10
space.

* Nome do Fornecedor
PERFORM preenche_fieldcat USING c_name1
c_name1
c_reguh
text-003
c_l
space
space
space
c_35
space.

* Msg do Sistema
PERFORM preenche_fieldcat USING c_msg
c_msg
c_string
text-004
c_l
space
space
space
c_30
space.

ENDFORM. ” CRIAR_FIELDCAT
*&———————————————————————*
*& Form PREENCHE_FIELDCAT
*&———————————————————————*
* text
*———————————————————————-*
* –>P_C_NAME1 text
* –>P_C_NAME1 text
* –>P_C_REGUH text
* –>P_TEXT_003 text
* –>P_C_L text
* –>P_SPACE text
* –>P_SPACE text
* –>P_SPACE text
* –>P_C_4 text
* –>P_SPACE text
*———————————————————————-*
FORM preenche_fieldcat USING p_fieldname
p_ref_fieldname
p_ref_tabname
seltext_l
p_ddictxt
p_key
p_do_sum
p_no_out
p_outputlen
p_inttype.

ADD 1 TO vg_colpos.

CLEAR: wg_fieldcat.

wg_fieldcat-fieldname = p_fieldname.
wg_fieldcat-ref_fieldname = p_ref_fieldname.
wg_fieldcat-ref_tabname = p_ref_tabname.
wg_fieldcat-seltext_l = seltext_l.
wg_fieldcat-ddictxt = p_ddictxt.
wg_fieldcat-key = p_key.
wg_fieldcat-col_pos = vg_colpos.
wg_fieldcat-do_sum = p_do_sum.
wg_fieldcat-no_out = p_no_out.
wg_fieldcat-outputlen = p_outputlen.
wg_fieldcat-inttype = p_inttype.

APPEND wg_fieldcat TO tg_fieldcat.

ENDFORM. ” PREENCHE_FIELDCAT

*&———————————————————————*
*& Form IMPRIMIR_RELATORIO
*&———————————————————————*

FORM imprimir_relatorio .

DATA: wl_slis TYPE slis_layout_alv,
wl_variant TYPE disvariant.

* Opções do ALV
CLEAR: wl_slis,
wl_variant.

wl_slis-zebra = c_x.
wl_slis-numc_sum = c_x.
wl_slis-colwidth_optimize = c_x.
wl_slis-totals_text = c_x.
wl_slis-subtotals_text = c_x.
wl_slis-coltab_fieldname = c_tabcolor.

wl_variant-variant = ‘/STD’.

CALL FUNCTION ‘REUSE_ALV_GRID_DISPLAY’
EXPORTING
i_callback_program = ‘ZFIR016′
* i_callback_top_of_page = ‘GERA_CABECALHO’
i_callback_user_command = ‘USER_COMMAND’
it_fieldcat = tg_fieldcat[]
* it_sort = tg_sort[]
it_events = tg_events[]
is_layout = wl_slis
is_variant = wl_variant
i_save = c_x
TABLES
t_outtab = tg_relatorio
EXCEPTIONS
program_error = 1
OTHERS = 2.

ENDFORM. ” IMPRIMIR_RELATORIO

*Text elements
*———————————————————-
* 001 Parâmetros de Seleção
* 002 Número do Fornecedor
* 003 Nome do Fornecedor
* 004 Mensagem do Sistema
* 005 Status
* 006 Informativo de Pagamento Dicico
* 007 Segue em anexo faturas liquidadas pela empresa Dicico na data de
* 008 Informativo de Pagamento Dicico
* 010 Email enviado com sucesso.
* 011 Campo email do Fornecedor não atualizado.
* E01 Não existem dados para o Critério de Seleção
* E02 Data não pode ser futura.
* E03 Campo email do Fornecedor não atualizado.

*Selection texts
*———————————————————-
* P_LAUFD Dia de Execução
* P_LAUFI Identificação
* S_LIFNR Código do Fornecedor

*Messages
*———————————————————-
*
* Message class: 00
*208 &

———————————————————————————-
Extracted by Direct Download Enterprise version 1.3.1 – E.G.Mellodew. 1998-2005 UK. Sap Release 700

Obrigado! Abraço! :)

initialization.
p_but1 = ‘@G1@ qualquer texto’(001).

Abraco!

É com grande satisfação que acompanho o abapinho.

Sempre com excelentes dicas.

Saudades das nossas tertúlias de abap (e outras) quando estivemos a trabalhar na ICA.

Até ao próximo projeto.

Grande abraço,

Renato Oliveira