giovedì 16 aprile 2015

La Bibbia

La Bibbia
Editore: Ancora

Lingua: Italiano | Numero di pagine: 1768 | Isbn-13: 9788851406400 | Data di pubblicazione: 2009-xx-xx | Curatore: Bruno Maggioni - Gregorio Vivaldelli | Genere: Storia - Legge - Religione & Spiritualità

martedì 14 aprile 2015

Plunder n

/ˈplʌndə/

Traducendo Raiders of the North Sea ho imparato questo vocabolo.

EnglishItaliano
plunder [sth] vtr(loot, steal)saccheggiare, depredare vtr
The thieves plundered the jewellery shop.
I ladri hanno saccheggiato i gioielli del negozio.
plunder n(looted items)bottino, malloppo nm
The gang divided up the plunder from their latest robbery.
La gang si è divisa il bottino dell'ultima rapina.
plunder n(act of looting)saccheggio nm, razzia nf
After the plunder of the church, the doors were kept locked except during services.
Dopo il saccheggio della chiesa le porte sono state tenute chiuse, fatta eccezione per la messa.

There is no limit to how much Plunder players may hold.
Non c'è alcun limite alla quantità di Bottino che i giocatori possono detenere.

mercoledì 8 aprile 2015

Determinare il nome del Function Module generato

*----------------------------------------------------------------------*
* DECLARATIONS                                                         *
*----------------------------------------------------------------------*
data: gv_form     TYPE NA_FNAME,
      gv_function TYPE RS38L_FNAM.

*----------------------------------------------------------------------*
* FORM READ_FM                                                         *
*----------------------------------------------------------------------*
FORM read_fm USING    pv_form
             CHANGING pv_function.

  DATA: lv_w_cx_root            TYPE REF TO cx_root,
        lv_cx_fp_api_repository TYPE REF TO cx_fp_api_repository,
        lv_cx_fp_api_usage      TYPE REF TO cx_fp_api_usage,
        lv_cx_fp_api_internal   TYPE REF TO cx_fp_api_internal.

  TRY.
      CALL FUNCTION 'FP_FUNCTION_MODULE_NAME'
        EXPORTING
          I_NAME     = pv_form
        IMPORTING
          E_FUNCNAME = pv_function.
    CATCH cx_fp_api_repository INTO lv_cx_fp_api_repository.
      MESSAGE lv_cx_fp_api_repository TYPE 'E'.
    CATCH cx_fp_api_internal INTO lv_cx_fp_api_internal.
      MESSAGE lv_cx_fp_api_internal TYPE 'E'.
    CATCH cx_fp_api_usage INTO lv_cx_fp_api_usage.
      MESSAGE lv_cx_fp_api_usage TYPE 'E'.
    CATCH cx_root INTO gv_w_lx_root.
      MESSAGE lv_w_cx_root TYPE 'E'.
  ENDTRY.

ENDFORM.                    " read_fm

martedì 7 aprile 2015

Esportare un semplice file di Excel

*----------------------------------------------------------------------*
* DECLARATIONS                                                         *
*----------------------------------------------------------------------*
DATA: BEGIN OF gt_out OCCURS 0,
         bukrs  LIKE BSEG-BUKRS,
         belnr  LIKE BSEG-BELNR,
         gjahr  LIKE BSEG-GJAHR,
         [...]
       END OF gt_out.

*----------------------------------------------------------------------*
* LAYOUT                                                               *
*----------------------------------------------------------------------*
PARAMETERS: pa_file TYPE STRING LOWER CASE.

*----------------------------------------------------------------------*
* FORM OUTPUT_XLS                                                      *
*----------------------------------------------------------------------*
FORM output_xls.

  DATA: BEGIN OF ls_fields,
          name(40),
        END OF ls_fields,
        lt_fields LIKE ls_fields OCCURS 0.

  DEFINE append_field.
    ls_fields-name = &1.
    APPEND ls_fields TO lt_fields.
  END-OF-DEFINITION.

  append_field 'FirstField'.
  [...]
  append_field 'LastField'.

  CALL FUNCTION 'GUI_DOWNLOAD'
    EXPORTING
      FILENAME                = pa_file
      WRITE_FIELD_SEPARATOR   = 'X'
      TRUNC_TRAILING_BLANKS   = 'X'
    TABLES
      DATA_TAB                = gt_out
      FIELDNAMES              = lt_fields
    EXCEPTIONS
      FILE_WRITE_ERROR        = 1
      NO_BATCH                = 2
      GUI_REFUSE_FILETRANSFER = 3
      INVALID_TYPE            = 4
      NO_AUTHORITY            = 5
      UNKNOWN_ERROR           = 6
      HEADER_NOT_ALLOWED      = 7
      SEPARATOR_NOT_ALLOWED   = 8
      FILESIZE_NOT_ALLOWED    = 9
      HEADER_TOO_LONG         = 10
      DP_ERROR_CREATE         = 11
      DP_ERROR_SEND           = 12
      DP_ERROR_WRITE          = 13
      UNKNOWN_DP_ERROR        = 14
      ACCESS_DENIED           = 15
      DP_OUT_OF_MEMORY        = 16
      DISK_FULL               = 17
      DP_TIMEOUT              = 18
      FILE_NOT_FOUND          = 19
      DATAPROVIDER_EXCEPTION  = 20
      CONTROL_FLUSH_ERROR     = 21
      OTHERS                  = 22.
  IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.

ENDFORM.                    "output_xls

Se ti leggo amerò per sempre, Carlo Di Cicco

Se ti leggo amerò per sempre
Di Carlo Di Cicco
Editore: Il Pozzo di Giacobbe


Lingua: Italiano | Numero di pagine: 161 | Isbn-13: 9788861245266 | Data di pubblicazione: 2014-09-xx | Genere: Saggio - Religione & Spiritualità

lunedì 6 aprile 2015

Variante di visualizzazione del layout ALV

*----------------------------------------------------------------------*
* LAYOUT                                                               *
*----------------------------------------------------------------------*
PARAMETERS: pa_vari TYPE SLIS_VARI.

*----------------------------------------------------------------------*
* EVENTS                                                               *
*----------------------------------------------------------------------*
AT SELECTION-SCREEN ON VALUE-REQUEST FOR pa_vari.
  DATA: ls_variant TYPE DISVARIANT,
        lv_exit.
  ls_variant-report = SY-REPID.
  ls_variant-username = SY-UNAME.
  ls_variant-variant = pa_vari.
  CALL FUNCTION 'LVC_VARIANT_SAVE_LOAD'
    EXPORTING
      I_SAVE_LOAD = 'F'
      I_TABNAME   = '1'
    IMPORTING
      E_EXIT      = lv_exit
    CHANGING
      CS_VARIANT  = ls_variant
    EXCEPTIONS
      OTHERS      = 1.
  pa_vari = ls_variant-variant.

*----------------------------------------------------------------------*
* FORM OUTPUT_ALV                                                      *
*----------------------------------------------------------------------*
FORM output_alv.

  TYPE-POOLS SLIS.

  DATA: ls_layout   TYPE SLIS_LAYOUT_ALV,
        ls_fieldcat TYPE SLIS_FIELDCAT_ALV,
        lt_fieldcat TYPE SLIS_T_FIELDCAT_ALV,
        ls_variant  TYPE DISVARIANT.

  [...]

  ls_variant-report = SY-REPID.
  ls_variant-username = SY-UNAME.
  IF NOT pa_vari IS INITIAL.
    ls_variant-variant = pa_vari.
  ENDIF.

  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      I_CALLBACK_PROGRAM      = SY-CPROG
      I_CALLBACK_USER_COMMAND = 'USER_COMMAND'
      I_CALLBACK_TOP_OF_PAGE  = 'TOP_OF_PAGE'
      I_BACKGROUND_ID         = 'ALV_BACKGROUND'
      IS_LAYOUT               = ls_layout
      IT_FIELDCAT             = lt_fieldcat
      I_SAVE                  = 'A'
      IS_VARIANT              = ls_variant
    TABLES
      T_OUTTAB                = gt_out.

ENDFORM.                    "output_alv

lunedì 30 marzo 2015