About the writing of ALV format control part

About ALV How to write the format control part

ALV There are two ways to write format control , A format that controls each attribute separately , A format that uniformly controls each attribute
Now let's write two cases
The first is to control each attribute separately , The case is as follows ：
We will number each attribute colpos , And then the first one lv_colpos Set to 1, The latter is set as self increasing
ls_fieldcat-fieldname For the property name (ls_fieldcat It is the inner table name set by ourselves ）
Then you can set the data type and data length by yourself （ namely ls_fieldcat-datatype and ls_fieldcat-outputlen）
then ls_fieldcat-seltext_m That is, remarks
Pay attention to add APPEND ls_fieldcat TO lt_fieldcat.
among lt_fieldcat For our inner table name

* Sales voucher
lv_colpos = 1.
ls_fieldcat-fieldname = ‘VBELN’.
ls_fieldcat-col_pos = lv_colpos.
ls_fieldcat-key = ‘X’.
ls_fieldcat-datatype = ‘CHAR’.
ls_fieldcat-outputlen = ‘10’.
ls_fieldcat-seltext_m = ‘ Sales voucher ’.
APPEND ls_fieldcat TO lt_fieldcat.

* Certificate date
lv_colpos = lv_colpos + 1 .
ls_fieldcat-fieldname = ‘ERDAT’.
ls_fieldcat-col_pos = lv_colpos.
ls_fieldcat-key = ‘X’.
ls_fieldcat-datatype = ‘CHAR’.
ls_fieldcat-outputlen = ‘10’.
ls_fieldcat-seltext_m = ‘ Sales date ’.
APPEND ls_fieldcat TO lt_fieldcat.

* factory
lv_colpos = lv_colpos + 1 .
ls_fieldcat-fieldname = ‘werks’.
ls_fieldcat-col_pos = lv_colpos.
ls_fieldcat-ref_tabname = ‘VBAP’.
APPEND ls_fieldcat TO lt_fieldcat.

* stock
lv_colpos = lv_colpos + 1 .
ls_fieldcat-fieldname = ‘LOGORT’.
ls_fieldcat-col_pos = lv_colpos.
ls_fieldcat-ref_tabname = ‘VBAP’.
APPEND ls_fieldcat TO lt_fieldcat.

The first way seems a little troublesome （ The main reason is that the occupied length is too long , But in fact, it's just a copy and paste effort ）

We can also use the second method , That is to use a subroutine , To uniformly arrange these attributes
For example, as follows
Define a subroutine F_SET_LAYOUT
Then write the unified attributes ,
namely gs_layout-zebra = ‘X’. (gs Also defined for yourself , Equivalent to the above ls)
gs_layout-colwidth_optimize = ‘X’.

• gs_layout-f2code = ‘&ETA’.

&---------------------------------------------------------------------
*& Form F_SET_LAYOUT
&---------------------------------------------------------------------
*& text
&---------------------------------------------------------------------
*& --> p1 text
*& <-- p2 text
&---------------------------------------------------------------------
FORM f_set_layout .
CLEAR gs_layout.
gs_layout-zebra = ‘X’.
gs_layout-colwidth_optimize = ‘X’.

• gs_layout-f2code = ‘&ETA’.
  gs_layout-info_fieldname = ‘COL_LINE’." Line color display
  gs_layout-coltab_fieldname = ‘COL_CELL’." Cell color display
  ENDFORM.

In the above part, we have uniformly written the layout settings of each attribute , Now we are going to write which attributes should be shown by us
You can see our subroutine below , Macro definitions are used , Defined alv_appen_field
&---------------------------------------------------------------------
*& Form F_SET_FIELDCAT
&---------------------------------------------------------------------
*& text
&---------------------------------------------------------------------
*& --> p1 text
*& <-- p2 text
&---------------------------------------------------------------------
FORM f_set_fieldcat .
CLEAR gs_fieldcat.
REFRESH gt_fieldcat.

DEFINE alv_appen_field.
gs_fieldcat-fieldname = &1.
gs_fieldcat-seltext_l = &2.
APPEND gs_fieldcat TO gt_fieldcat.
CLEAR gs_fieldcat.
END-OF-DEFINITION.
alv_appen_field:
‘VBELN’ ‘ Sales order number ’,
‘MENGE’ ‘ Purchase order number ’,
‘ERFMG’ ‘ Quantity of goods received ’,
‘ERFMG_JS’ ‘ Timely warehousing quantity ’,
‘ERFMG_BJS’ ‘ Not timely warehousing quantity ’,
‘JSL’ ‘ Timeliness rate ’,
‘EINDT’ ‘ Purchase delivery date ’,
‘EBELN’ ‘ Purchase order number ’,
‘EBELP’ ‘ Purchase order line number ’,
‘MATNR’ ‘ Part number ’,
‘TXZ01’ ‘ Part number description ’,
‘MEINS’ ‘ Order unit ’,
‘BUKRS’ ‘ company ’,
‘WERKS’ ‘ factory ’,
‘EKORG’ ‘ Purchasing organization ’,
‘EKGRP’ ‘ Procurement section ’,
‘SUBMI’ ‘ Summary No ’,
‘BEDAT’ ‘ Order date ’,
‘MATKL’ ‘ Item group ’,
‘ERFMG_WRK’ ‘ Summary of UN warehoused quantity ’,
‘BUDAT’ ‘ Latest warehousing date ’,
‘POSNR’ ‘ Sales order line number ’,
‘BSTNK’ ‘ Customer reference number ’,
‘KUNNR’ ‘ Customer code ’,
‘KVGR2’ ‘ brand ’,
‘EDATU’ ‘ Sales order review delivery date ’,
‘SFJH’ ‘ Whether the goods are delivered in time ’,
‘BSART’ ‘ Voucher type ’,
‘LIFNR’ ‘ Supplier code ’.

ENDFORM.

Then write this subroutine in call_alv This subroutine is encapsulated twice
&---------------------------------------------------------------------
*& Form CALL_ALV
&---------------------------------------------------------------------
*& text
&---------------------------------------------------------------------
*& --> p1 text
*& <-- p2 text
&---------------------------------------------------------------------
FORM call_alv .
PERFORM f_set_fieldcat.
PERFORM f_set_layout.
PERFORM f_call_alv.
ENDFORM.

Write the following line in the program , It is usually written after the selection interface
PERFORM call_alv. " Exhibition

The two methods are shown