Pocket Imperium: Prosperity

Muster vtr

/ˈmʌstə/

Traducendo King's Pouch ho imparato questo vocabolo.

English		Italiano
muster [sth] vtr	(courage)	raccogliere, prendere vtr
	Bob mustered his courage and went for it.
	Bob ha preso coraggio e l'ha fatto.
muster [sth] vtr	(military)	adunare, chiamare a raccolta vtr
	The sergeant mustered his soldiers.
	Il sergente ha chiamato a raccolta i suoi soldati.
muster n	(assembly)	raduno nm, adunata nf
	We hurried into our uniforms so we wouldn't be late for muster.
	Ci siamo messi le uniformi in tutta fretta per non fare tardi all'adunata.

You will use your citizens to develop your lands, muster armies and amass wealth.

Dovrete impiegare i vostri abitanti per sviluppare le vostre terre, radunare le armate e accumulare ricchezza.

ALV gerarchica

*----------------------------------------------------------------------*
* DECLARATIONS                                                         *
*----------------------------------------------------------------------*
DATA: BEGIN OF gt_header OCCURS 0,
        bukrs     LIKE BKPF-BUKRS,
        butxt     LIKE T001-BUTXT,
        gjahr     LIKE BKPF-GJAHR,
        [...]
        expand    TYPE C,
      END OF gt_header.

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

DATA: gs_header LIKE LINE OF gt_header,
      gs_items  LIKE LINE OF gt_items.

TYPE-POOLS SLIS.

DATA: gt_fieldcat TYPE SLIS_T_FIELDCAT_ALV,
      gs_fieldcat TYPE SLIS_FIELDCAT_ALV,
      gs_layout   TYPE SLIS_LAYOUT_ALV,
      gs_key      TYPE SLIS_KEYINFO_ALV.

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

  PERFORM fieldcat_list.
  PERFORM fieldcat_mod.
  PERFORM layout_list.
  PERFORM key_list.
  PERFORM display_list.

ENDFORM.                    "output_alv

*----------------------------------------------------------------------*
* FORM FIELDCAT_LIST                                                   *
*----------------------------------------------------------------------*
FORM fieldcat_list.

  CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
    EXPORTING
      I_PROGRAM_NAME         = SY-CPROG
      I_INTERNAL_TABNAME     = 'GT_HEADER'
      I_INCLNAME             = SY-CPROG
    CHANGING
      CT_FIELDCAT            = gt_fieldcat
    EXCEPTIONS
      INCONSISTENT_INTERFACE = 1
      PROGRAM_ERROR          = 2
      OTHERS                 = 3.

  CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
    EXPORTING
      I_PROGRAM_NAME         = SY-CPROG
      I_INTERNAL_TABNAME     = 'GT_ITEMS'
      I_INCLNAME             = SY-CPROG
    CHANGING
      CT_FIELDCAT            = gt_fieldcat
    EXCEPTIONS
      INCONSISTENT_INTERFACE = 1
      PROGRAM_ERROR          = 2
      OTHERS                 = 3.

ENDFORM.                    "fieldcat_list

*----------------------------------------------------------------------*
* FORM FIELDCAT_MOD                                                    *
*----------------------------------------------------------------------*
FORM fieldcat_mod.

  CLEAR gs_fieldcat.
  gs_fieldcat-no_out = 'X'.
  MODIFY gt_fieldcat FROM gs_fieldcat
                        TRANSPORTING no_out
                        WHERE fieldname = 'EXPAND'.

ENDFORM.                    "fieldcat_mod

*----------------------------------------------------------------------*
* FORM LAYOUT_LIST                                                     *
*----------------------------------------------------------------------*
FORM layout_list.

  gs_layout-window_titlebar = 'ALV: Libro Giornale'(A01).
  gs_layout-colwidth_optimize = 'X'.
  gs_layout-expand_fieldname = 'EXPAND'.
  gs_layout-lights_tabname = 'GT_ITEMS'.

ENDFORM.                    "layout_list

*----------------------------------------------------------------------*
* FORM KEY_LIST                                                        *
*----------------------------------------------------------------------*
FORM key_list.

  gs_key-header01 = 'BUKRS'.
  gs_key-item01 = 'BUKRS'.
  gs_key-header02 = 'BELNR'.
  gs_key-item02 = 'BELNR'.
  gs_key-header03 = 'GJAHR'.
  gs_key-item03 = 'GJAHR'.

ENDFORM.                    "key_list

*----------------------------------------------------------------------*
* FORM DISPLAY_LIST                                                    *
*----------------------------------------------------------------------*
FORM display_list.

  CALL FUNCTION 'REUSE_ALV_HIERSEQ_LIST_DISPLAY'
    EXPORTING
      I_CALLBACK_PROGRAM = SY-CPROG
      IS_LAYOUT          = gs_layout
      IT_FIELDCAT        = gt_fieldcat
      I_TABNAME_HEADER   = 'GT_HEADER'
      I_TABNAME_ITEM     = 'GT_ITEMS'
      IS_KEYINFO         = gs_key
    TABLES
      T_OUTTAB_HEADER    = gt_header
      T_OUTTAB_ITEM      = gt_items
    EXCEPTIONS
      PROGRAM_ERROR      = 1
      OTHERS             = 2.

ENDFORM.                    "display_list

Foreman n

/ˈfɔːmən/

Traducendo Samara ho imparato questo vocabolo.

English		Italiano
foreman n	(supervisor of construction workers)	caposquadra, capomastro nm
	Fred was the foreman of a construction crew for a few years.
	Fred è stato caposquadra di una squadra di costruttori per alcuni anni.
foreman n	(of a jury)	primo giurato nm
	The jury's foreman stood up and declared the defendant guilty.
	Il primo giurato si è alzato e ha dichiarato l'accusato colpevole.

Who will be the most prestigious foreman of Samara?

Chi sarà il caposquadra più prestigioso di Samara?

Toil n

/tɔɪl/

Traducendo Cauldron ho imparato questo vocabolo.

English		Italiano
toil n	(work, labour)	lavoro duro nm, fatica nf
	It's nice to relax, once the day's toil is done.
	Rilassarsi è bello, dopo aver fatto il lavoro duro.
toil vi	(work, labour)	lavorare duramente, faticare vi
	The workers have been toiling in the fields all day.
	I lavoratori avevano faticato nei campi per tutto il giorno.

Now it comes time to bubble up toil and trouble.

Ora è tempo di far gorgogliare fatica e doglia.

È particolarmente interessante, perché è un riferimento alla tragedia Macbeth, Atto 4, Scena 1:
Double, double toil and trouble;
Fire burn, and cauldron bubble.
Su, raddoppiatevi, fatica e doglia,
ardi tu, fuoco, calderon gorgoglia.

Dividere un Custom Container in tre parti

*----------------------------------------------------------------------*
* DECLARATIONS                                                         *
*----------------------------------------------------------------------*
CLASS lcl_event_receiver DEFINITION DEFERRED.

DATA: go_custom_c       TYPE REF TO CL_GUI_CUSTOM_CONTAINER,
      go_split1         TYPE REF TO CL_GUI_EASY_SPLITTER_CONTAINER,
      go_split2         TYPE REF TO CL_GUI_EASY_SPLITTER_CONTAINER,
      go_grid1          TYPE REF TO CL_GUI_ALV_GRID,
      go_grid2          TYPE REF TO CL_GUI_ALV_GRID,
      go_event_receiver TYPE REF TO LCL_EVENT_RECEIVER.

*----------------------------------------------------------------------*
* MODULE STATUS_0100 OUTPUT                                            *
*----------------------------------------------------------------------*
MODULE status_0100 OUTPUT.

  DATA: ls_layout    TYPE LVC_S_LAYO,
        lt_fieldcat1 TYPE LVC_T_FCAT,
        lt_fieldcat2 TYPE LVC_T_FCAT.

  SET PF-STATUS 'ZPF01'.
  SET TITLEBAR 'ZTITLE01'.

  IF go_custom_c IS INITIAL.

*   Creo il container
    CREATE OBJECT go_custom_c
      EXPORTING
        CONTAINER_NAME = 'CONTAINER'.
*   Lo divido in tre
    CREATE OBJECT go_split1
      EXPORTING
        PARENT        = go_custom_c
        ORIENTATION   = CL_GUI_EASY_SPLITTER_CONTAINER=>ORIENTATION_VERTICAL
        SASH_POSITION = 12.
    CREATE OBJECT go_split2
      EXPORTING
        PARENT        = go_split1->bottom_right_container
        ORIENTATION   = CL_GUI_EASY_SPLITTER_CONTAINER=>ORIENTATION_HORIZONTAL
        SASH_POSITION = 55.

    PERFORM top_of_page USING 0 0 0.
    PERFORM exclude_tb_func.
    PERFORM build_fielcat CHANGING lt_fieldcat1
                                   lt_fieldcat2.

*   ALV Grid di sinistra - note di credito
    CREATE OBJECT go_grid1
      EXPORTING
        I_PARENT = go_split2->top_left_container.
    ls_layout-stylefname = 'STYLE'.
    ls_layout-grid_title = 'Note di credito'.
    CALL METHOD go_grid1->set_table_for_first_display
      EXPORTING
        IS_LAYOUT            = ls_layout
        IT_TOOLBAR_EXCLUDING = gt_excl_func
      CHANGING
        IT_FIELDCATALOG      = lt_fieldcat1
        IT_OUTTAB            = gt_noteb.

*   ALV Grid di destra - partite
    CREATE OBJECT go_grid2
      EXPORTING
        I_PARENT = go_split2->bottom_right_container.
    ls_layout-grid_title = 'Partite aperte'.
    CALL METHOD go_grid2->set_table_for_first_display
      EXPORTING
        IS_LAYOUT            = ls_layout
        IT_TOOLBAR_EXCLUDING = gt_excl_func
      CHANGING
        IT_FIELDCATALOG      = lt_fieldcat2
        IT_OUTTAB            = gt_fattb.

    CREATE OBJECT go_event_receiver.
    SET HANDLER go_event_receiver->handle_button_click
                go_event_receiver->handle_data_changed_finished
                go_event_receiver->handle_double_click
                go_event_receiver->handle_hotspot_click
                go_event_receiver->handle_toolbar
                go_event_receiver->handle_user_command
      FOR go_grid1.
    SET HANDLER go_event_receiver->handle_button_click
                go_event_receiver->handle_data_changed_finished
                go_event_receiver->handle_double_click
                go_event_receiver->handle_hotspot_click
                go_event_receiver->handle_toolbar
                go_event_receiver->handle_user_command
      FOR go_grid2.

*   Imposto la toolbar personalizzata
    CALL METHOD go_grid1->set_toolbar_interactive.
    CALL METHOD go_grid2->set_toolbar_interactive.

*   Registro l'evento Enter che mi serve per gli importi manuali
    CALL METHOD go_grid1->register_edit_event
      EXPORTING
        I_EVENT_ID = CL_GUI_ALV_GRID=>MC_EVT_ENTER.
    CALL METHOD go_grid2->register_edit_event
      EXPORTING
        I_EVENT_ID = CL_GUI_ALV_GRID=>MC_EVT_ENTER.

  ENDIF.

ENDMODULE.                    "status_0100 OUTPUT

Karnivore Koala

Samara