O Conhecimento

O conhecimento é inútil a menos que você o compartilhe.

sexta-feira, 21 de dezembro de 2012

Catchable Runtime Errors (DUMP's)

Sempre é bom usar e lembrar do uso do CATH......em algumas situações pode ser muito útil e evita surpresas......uma delas é a divisão por zero.


REPORT demo_catch_endcatch.
DATA: result TYPE p DECIMALS 3,
      number TYPE i VALUE 11.

CATCH SYSTEM-EXCEPTIONS arithmetic_errors = 5.
  DO.
    number = number - 1.
    result = 1 / number.
    WRITE: / number, result.
ENDDO.
ENDCATCH.

SKIP.
IF sy-subrc = 5.
  WRITE / 'Division by zero!'.
ENDIF.


Fonte: http://help.sap.com/saphelp_nw04/helpdata/en/cf/f2bbce142c11d3b93a0000e8353423/frameset.htm

quinta-feira, 13 de dezembro de 2012

ALV LIST/GRID RAPIDEX.......

AlV GRID RAPIDÃO.......AJUDA PRA CARAMBA.....

*&---------------------------------------------------------------------*
*& Report  ZTESTELT
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT  ztestelt.
TYPE-POOLS: slis.
TABLES: j_1bnfdoc, j_1bnflin.
PARAMETERS: p_docnum TYPE j_1bnfdoc-docnum.
DATA: it_lin TYPE STANDARD TABLE OF j_1bnflin.
DATA: wa_lin LIKE LINE OF it_lin.
DATA: it_fieldcat  TYPE  slis_t_fieldcat_alv,
      wa_fieldcat   LIKE LINE OF it_fieldcat.

SELECT *
  FROM j_1bnflin
  INTO TABLE it_lin
  WHERE docnum = p_docnum.
if sy-subrc = 0.

CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
  EXPORTING
    i_structure_name       = 'j_1bnflin'
  CHANGING
    ct_fieldcat            = it_fieldcat
  EXCEPTIONS
    inconsistent_interface = 1
    program_error          = 2
    OTHERS                 = 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.

CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY' "ou REUSE_ALV_GRID_DISPLAY
     EXPORTING
          i_callback_program = sy-repid
          i_structure_name   = 'j_1bnflin'
          it_fieldcat        = it_fieldcat
          i_default          = 'A'
     TABLES
          t_outtab           = it_lin.
endif.

stop.

sexta-feira, 7 de dezembro de 2012

Função busca texto breve Material ('DGREL_LB02_READ_MAKTX' )


Todo Consultor SAP tem seu "alfarrábio"..........


Porém o contexto muda um pouco passando de livro sem valor para um livro de muito valor pois quanto se trata de poupar tempo o melhor e ter tudo bem guardado e de fácil acesso para poupar trabalho na procura.......por isso coloquei alguns post sobre funções para não ter que ficar procurando no meu micro e nem na internet....segue mais uma função para recuperar texto breve de material.
 

      CALL FUNCTION 'DGREL_LB02_READ_MAKTX' " busca texto breve
      EXPORTING
        i_matnr           wa_aux-matnr
     IMPORTING
       e_maktx           wa_item-short_text
*         E_FLG_ERROR       =




alfarrábio
(Al-Farabi, antropónimo.
antropônimo [filósofo árabe do séc. IX-X])
s. m.
s. m.
1. Livro antigo e geralmente de grandes dimensões. = CALHAMAÇO, CARTAPÁCIO
2. Livro de pouco valor ou utilidade.

Função para Recuperar Domicilo Fiscal ('J_1BREAD_BRANCH_DATA')

Segue função para recuperar Domicilio Fiscal.....facilita mmmmuuuuuiiiiiiittttttooooooo......


CALL FUNCTION 'J_1BREAD_BRANCH_DATA'
        EXPORTING
          branch            wa_aux-werks -----> centro
          bukrs             ls_header-comp_code -----> empresa - bukrs
        IMPORTING
          address           address
          branch_data       branch_data
          cgc_number        cgc_number
          address1          address1
        EXCEPTIONS
          branch_not_found  1
          address_not_found 2
          company_not_found 3
          OTHERS            4.

Função Importar Tabelas EXCEL ('TEXT_CONVERT_XLS_TO_SAP'/'ALSM_EXCEL_TO_INTERNAL_TABLE')

Para Importar Tabelas EXCEL....segue as maneiras......eu prefiro a primeira sugestão ....vai depender do uso e pra que.....mas fica a dica todas funcionam.....a diferença é minima entre elas.....bom uso......

TYPESBEGIN OF tp_exc,
        campo1 TYPE string,
        campo2 TYPE string,
        campo3 TYPE string,
        campo4 TYPE string,
        campo5 TYPE string,
        campo6 TYPE string,
        campo7 TYPE string,
        campo8 TYPE string,
        campo9 TYPE string,
        campo10 TYPE string,
        campo11 TYPE string,
        campo12 TYPE string,
        campo13 TYPE string,
        campo14 TYPE string,
  END OF tp_exc.

DATAit_tp_exc TYPE STANDARD TABLE OF tp_exc.
DATAwa_tp_exc LIKE LINE OF it_tp_exc.


 TYPES truxs_t_text_data(4096TYPE OCCURS 0.

    DATAit_data_xls TYPE truxs_t_text_data,
          it_xls      LIKE alsmex_tabline OCCURS WITH HEADER LINE.

* Carrega tabela do excel em outra válida
    CALL FUNCTION 'TEXT_CONVERT_XLS_TO_SAP'
      EXPORTING
        i_tab_raw_data       it_data_xls
        i_filename           p_entr
      TABLES
        i_tab_converted_data it_tp_exc
      EXCEPTIONS
        conversion_failed    1
        OTHERS               2.

Segunda Sugestão........

PARAMETERSp_entr   LIKE rlgrap-filename .

DATAt_excel   LIKE alsmex_tabline OCCURS WITH HEADER LINE .

data:linha_f     TYPE VALUE 65535 ,
         colun_f     TYPE VALUE 6 .


CLEAR t_excel.
    REFRESH t_excel.

    CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
      EXPORTING
        filename                p_entr
        i_begin_col             1
        i_begin_row             1
        i_end_col               colun_f
        i_end_row               linha_f
      TABLES
        intern                  t_excel
      EXCEPTIONS
        inconsistent_parameters 1
        upload_ole              2
        OTHERS                  3.
 
Blogger Templates