Chiedi alla polvere, John Fante

Chiedi alla polvere
Di John Fante
Editore: Gruppo Editoriale L'Espresso (La biblioteca di Repubblica - Novecento, 73)


Lingua: Italiano | Numero di pagine: 189 | Isbn-13: 9788496142459 | Data di pubblicazione: 01/01/2003 | Traduttore: Maria Giulia Castagnone | Genere: Biografia - Famiglia, Sesso & Relazioni - Narrativa & Letteratura

Elementi a comparsa nella videata di selezione

*----------------------------------------------------------------------*
* LAYOUT                                                               *
*----------------------------------------------------------------------*
SELECTION-SCREEN BEGIN OF BLOCK b4 WITH FRAME.
SELECTION-SCREEN: BEGIN OF LINE.
SELECTION-SCREEN: PUSHBUTTON 1(4) pb_ucomm USER-COMMAND com001.
PARAMETERS      : pa_scomp AS CHECKBOX DEFAULT ' ' MODIF ID cmx.
SELECTION-SCREEN: COMMENT (30) TEXT-009.
SELECTION-SCREEN: END OF LINE.
SELECTION-SCREEN BEGIN OF BLOCK b44 WITH FRAME.
SELECT-OPTIONS  : so_colle FOR S602-/AFS/COLLE MODIF ID cmp.
SELECTION-SCREEN END OF BLOCK b44.
SELECTION-SCREEN END OF BLOCK b4.

*----------------------------------------------------------------------*
* EVENTS                                                               *
*----------------------------------------------------------------------*
AT SELECTION-SCREEN.
  IF SY-UCOMM = 'COM001'.
    IF pa_scomp IS INITIAL.
      pa_scomp = 'X'.
    ELSE.
      CLEAR pa_scomp.
    ENDIF.
  ENDIF.

AT SELECTION-SCREEN OUTPUT.
  LOOP AT SCREEN.
    IF SCREEN-GROUP1 = 'CMX'.
      SCREEN-INPUT = '0'.
      SCREEN-INTENSIFIED  = '1'.
      MODIFY SCREEN.
    ELSEIF SCREEN-GROUP1 = 'CMP'.
      IF pa_scomp = ' '.
        SCREEN-INPUT = '0'.
        SCREEN-INVISIBLE = '1'.
      ELSE.
        SCREEN-OUTPUT = '1'.
        SCREEN-INVISIBLE = '0'.
      ENDIF.
      MODIFY SCREEN.
    ENDIF.
  ENDLOOP.

*----------------------------------------------------------------------*
* INIT                                                                 *
*----------------------------------------------------------------------*
INITIALIZATION.
  MOVE '@3J@' TO pb_ucomm.

Colonne colorate nelle tabelle ALV

*----------------------------------------------------------------------*
* DECLARATIONS                                                         *
*----------------------------------------------------------------------*
DATA: BEGIN OF gt_out OCCURS 0,
        [...]
        n_vers    TYPE I,
        [...]
      END OF gt_out.

DATA: tot_n_real TYPE I,
      tot_c(8)   TYPE C.

*----------------------------------------------------------------------*
* LAYOUT                                                               *
*----------------------------------------------------------------------*
PARAMETERS: pa_num TYPE I.

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

  DATA: lv_grid_title   TYPE LVC_TITLE,
        lt_fieldcat_alv TYPE SLIS_T_FIELDCAT_ALV,
        ls_fieldcat_alv TYPE SLIS_FIELDCAT_ALV.

  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_alv.

  IF pa_num > tot_n_real.
    ls_fieldcat_alv-emphasize = 'C610'.
    tot_c = tot_n_real.
    CONDENSE tot_c.
    CONCATENATE '(' tot_c ')'
           INTO lv_grid_title.
    CONCATENATE TEXT-014 lv_grid_title
           INTO lv_grid_title SEPARATED BY SPACE.
  ENDIF.
  ls_fieldcat_alv-seltext_l = 'N. colli da versare'(004).
  MODIFY lt_fieldcat_alv FROM ls_fieldcat_alv
                         TRANSPORTING emphasize
                                      seltext_l
                         WHERE fieldname = 'N_VERS'.

  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
       EXPORTING
            I_CALLBACK_PROGRAM     = SY-CPROG
            I_CALLBACK_TOP_OF_PAGE = 'TOP_OF_PAGE'
            I_BACKGROUND_ID        = 'ALV_BACKGROUND'
            I_GRID_TITLE           = lv_grid_title
            IT_FIELDCAT            = lt_fieldcat_alv
            I_SAVE                 = 'A'
       TABLES
            T_OUTTAB               = gt_out.

ENDFORM.