ABAP+71

20260815

X-Verão (lanche simples, mas uma delícia)

Segue uma receita simples para os dias quentes.

X-Verão

Pão francês (de sal)

2 folhas de alface (ou outra salada de sua preferência)

2 rodelas de tomate

1 fatia de queijo prato ou mussarela

Maionese para passar no pão

Obs.: A versão original, eu conheci em 1985 no SENAI de Santo Amaro (SP-Capital).

Na época, um pão com manteiga custava R$0,70 e um X-Verão era R$1,00, vendidos na cantina da Instituição.
Segue a receita original:
Pão francês (de sal)

1 folha de alface

1 rodela de tomate

1/2 fatia de queijo prato

Maionese (muito pouca, apenas para sujar o pão)

Espero que gostem.

20260730

Debugar JOB (SM37)

Marcar o JOB
Digitar JDBG na linha de comando e pressionar ENTER.

O debug começará automaticamente.

20260729

SO10 - Sapscript - link

No editor de texto padrão, utilizar o seguinte modelo:

/: <a href="https://abap71.blogspot.com/">Click Here</a>

Click Here

20260723

SAP PI PO - Limpar Cache do PI

Acessar o link

http://<IP_Servidor>:<Porta>/CPACache/refresh?mode=full

Escolha uma das Opções: full ou delta

Clique em Enviar.

SAP PI PO - Limpar Cache SLD

Se for necessário limpar o Cache so SLD, basta estar no ESR (Builder)
Clicar no menu Environment --> Clear SLD Data Cache

Aparecerá apenas uma mensagem.

SAP PI PO - SWC bloqueado para alteração e objetos novos (DEV)

No ESR (Enterprise Services Repository) - Builder

Duplo clique no SWC com o bloqueio

Ao aparecer a tela abaixo,

marcar o flag Objects Are Original Objects
marcar o flag Objects Are Modificable
SALVAR

20260613

Maionese caseira temperada

Ingredientes

três ovos crus
1 copo de óleo (250ml)
Suco de 1/2 limão
1 1/2 dente de alho
sal a gosto
mostarda a gosto
1/2 maço de salsinha picada

Modo de fazer:

Colocar os ovos no liquidificador
Bater uns 10 seg...
despejar metade do óleo e continuar batendo
despejar o restante do óleo bem devagar
acrescentar o alho, o limão e a mostarda
acrescentar o sal e ir experimentando
bater até tomar a consistência desejada
separar em potes e levar para a geladeira

20260420

TODOS os APPs do seu computador

WINDOWS + R

shell:appsfolder

20260410

Botão - Planilha Modelo

* Tables
TABLES: sscrfields.

* Declaração do Botão
SELECTION-SCREEN: FUNCTION KEY 1.

* Initialization
INITIALIZATION.
perform f_cria_botao.

* Manipualação do Botão
*----------------------
AT SELECTION-SCREEN.
IF sy-ucomm = 'FC01'.
perform f_gera_planilha.
ENDIF.

*&---------------------------------------------------------------------*
*&      Form  F_CRIA_BOTAO
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM F_CRIA_BOTAO .

*  Estrutura para descrever o botão
DATA: wa_button TYPE smp_dyntxt.

*  Nome do Botão
wa_button-text      = 'Planilha'.

*  Ícone do Botão
wa_button-icon_id   = ICON_SET_COPY_IN_B.

*  Texto que aparecerá ao lado do ícone (pode ser vazio)
wa_button-icon_text = 'Planilha modelo'.

*  Quickinfo (aparece quando o user passar o mouse sobre o botao)
wa_button-quickinfo = 'Planilha para preenchimento'.

*  Associa essas propriedades com a função 1
sscrfields-functxt_01 = wa_button.

ENDFORM.

*&---------------------------------------------------------------------*
*&      Form  F_GERA_PLANILHA
*----------------------------------------------------------------------*
FORM F_GERA_PLANILHA .

  FIELD-SYMBOLS: <fs_tab>   type ANY TABLE,
                 <wa_tab>   type any.
  data: lv_file      type string.

  data: lo_obj    TYPE REF TO zcl_util.
  CREATE OBJECT lo_obj.

* XXXXXX --> Nome da estrutura com os campos (coluna)
  DATA: w_dref TYPE REF TO data.
  CREATE DATA w_dref TYPE TABLE OF ('XXXXXX').
  ASSIGN w_dref->* TO <fs_tab>.

  CALL METHOD LO_OBJ->MATCHCODE_FOLDER_LOCAL
    RECEIVING
      R_FOLDER = lv_file .

* YYYYYY --> Nome do arquivo da planilha
  if lv_file is not initial.
    concatenate lv_file '\' 'YYYYYY.xlsx' into lv_file.
  endif.

  CALL METHOD LO_OBJ->SAVE_FILE_EXCEL
    EXPORTING
      I_PATH   = lv_file
      I_LOCAL  = 'X'
      I_STRUC  = 'XXXXXX'
      DATA_TAB = <fs_tab>  .

  MESSAGE s398(00) with 'Planilha gerada com sucesso'.

ENDFORM.