Raiders of the North Sea

Righe colorate nelle tabelle ALV

*----------------------------------------------------------------------*
* DECLARATIONS                                                         *
*----------------------------------------------------------------------*
TYPES: BEGIN OF ty_out,
         kokrs    TYPE KOKRS,
         kostl    TYPE KOSTL,
         spras    TYPE SPRAS,
         kstxt    TYPE KTEXT,
         kltxt    TYPE KLTXT,
         dtabc    TYPE DATAB,
         dtbic    TYPE DATBI,
         prctr    TYPE PRCTR,
         ktext    TYPE KTEXT,
         ltext    TYPE LTEXT,
         dtabp    TYPE DATAB,
         dtbip    TYPE DATBI,
         prsem    TYPE PRCTR,
         txtsh    TYPE RSTXTSH,
         txtmd    TYPE RSTXTMD,
         dtabs    TYPE DATAB,
         dtbis    TYPE DATBI,
         color(4) TYPE C,
       END OF ty_out.

DATA: gt_out TYPE STANDARD TABLE OF ty_out,
      gs_out LIKE LINE OF gt_out.

*----------------------------------------------------------------------*
* FORM PROCESS_DATA                                                    *
*----------------------------------------------------------------------*
FORM process_data.

  LOOP AT [...]
    IF [...].
      gs_out-color = 'C610'.
    ENDIF.
    APPEND gs_out TO gt_out.
    CLEAR gs_out.
  ENDLOOP.

ENDFORM.                    "process_data

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

  TYPE-POOLS SLIS.

  DATA: ls_layout   TYPE SLIS_LAYOUT_ALV,
        lt_fieldcat TYPE SLIS_T_FIELDCAT_ALV.

  PERFORM build_fielcat CHANGING lt_fieldcat.

  ls_layout-info_fieldname = 'COLOR'.

  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
    TABLES
      T_OUTTAB                = gt_out.

ENDFORM.                    "output_alv

Gesù ladro nella notte, Aldo Bertelle

Gesù ladro nella notte
30 sicli per non tradire l'Uomo
Di Aldo Bertelle
Editore: DBS


Lingua: Italiano | Numero di pagine: 299 | Data di pubblicazione: 2014-04-xx | Illustratore: Vico Calabrò | Prefazione: Loris Francesco Capovilla | Genere: Saggio - Religione & Spiritualità

La spada perduta, Bernard Cornwell

La spada perduta
Il romanzo di Excalibur, vol. 5
Di Bernard Cornwell
Editore: Mondadori (I Faraoni)


Lingua: Italiano | Numero di pagine: 357 | Isbn-13: 9788804452447 | Data di pubblicazione: 01/07/1998 | Traduttore: G. L. Staffilano - Riccardo Valla | Genere: Narrativa & Letteratura - Storia - Fantasy

Whereabouts n

/ˈwɛərəˌbaʊts/

Traducendo Play Me ho imparato questo vocabolo.

English		Italiano
whereabouts n	(location)	posizione nf, luogo nm, trovarsi v rif
	The police are appealing for information as to his whereabouts.
	La polizia chiede di fornire informazioni su dove si trovi.
whereabouts adv	(approximately where)	dove, da che parte avv
	Whereabouts did you say you were staying?
	Dove hai detto che alloggiavi?

According to an old legend, there's a portal - a mirror or something similar - hidden somewhere in a secret place, and only the White Rabbit knows its whereabouts.

Secondo un'antica leggenda, c'è un portale - uno specchio o qualcosa di simile - nascosto da qualche parte in un luogo segreto, ma solo il Bianconiglio conosce la sua posizione.

Passare l'input utente alla tabella ALV

*----------------------------------------------------------------------*
* DECLARATIONS                                                         *
*----------------------------------------------------------------------*
DATA: BEGIN OF gt_out OCCURS 0,
        xref3  LIKE BSID-XREF3,
        budat  LIKE BSID-BUDAT,
        wrbtr  LIKE BSID-WRBTR,
        waers  LIKE BSID-WAERS,
        dmbtr  LIKE BSID-DMBTR,
        hwaer  LIKE T001-WAERS,
        mwskz  LIKE BSID-MWSKZ,
        text1  LIKE T007S-TEXT1,
        imp    LIKE BSID-WRBTR,
        iva    LIKE BSID-WRBTR,
        buttn  TYPE CHAR4,
      END OF gt_out.

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

  TYPE-POOLS SLIS.

  DATA: ls_fieldcat TYPE SLIS_FIELDCAT_ALV,
        lt_fieldcat TYPE SLIS_T_FIELDCAT_ALV,
        ls_layout   TYPE SLIS_LAYOUT_ALV,
        ls_glay     TYPE LVC_S_GLAY.

  CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
    EXPORTING
      I_PROGRAM_NAME     = SY-CPROG
      I_INTERNAL_TABNAME = 'GT_OUT'
      I_INCLNAME         = SY-CPROG
    CHANGING
      CT_FIELDCAT        = lt_fieldcat.

  ls_fieldcat-col_pos = 11.
  ls_fieldcat-fieldname = 'BUTTN'.
  ls_fieldcat-reptext_ddic = 'Proroga'.
  ls_fieldcat-checkbox  = 'X'.
  ls_fieldcat-edit = 'X'.
  APPEND ls_fieldcat TO lt_fieldcat.

  ls_layout-colwidth_optimize = 'X'.
  ls_layout-zebra = 'X'.

  ls_glay-edt_cll_cb = 'X'.

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

ENDFORM.                    "output_alv

Tiny Epic Galaxies

Burgle Bros.