SAP include O01

IT/SAP 2018.04.05 01:28

* SAP include O01

 

*&---------------------------------------------------------------------*
*&  Include           ZFIA7C05O01
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*&      Module  STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
MODULE STATUS_0100 OUTPUT.
  SET PF-STATUS '0100'.
  SET TITLEBAR '0100'.
ENDMODULE.

*&---------------------------------------------------------------------*
*&      Module  CL_ALV_PROCESS  OUTPUT
*&---------------------------------------------------------------------*
MODULE CL_ALV_PROCESS OUTPUT.


*    Container for Custom Controls in the Screen Area
    DATAL_REPID TYPE SY-REPID,
          L_DYNNR TYPE SY-DYNNR.

    L_REPID SY-REPID.
    L_DYNNR SY-DYNNR.

******************************************************************
    CREATE OBJECT g_docking_container
******************************************************************
      EXPORTING
        REPID     L_REPID
        DYNNR     L_DYNNR
        EXTENSION '1500'
        SIDE      CL_GUI_DOCKING_CONTAINER=>DOCK_AT_TOP.

******************************************************************
      CLEAR G_ALV_GRID.
******************************************************************

*     Create an instance of alv control
      CREATE OBJECT G_ALV_GRID
        EXPORTING
          I_PARENT g_docking_container.

  DATAL_TABIX TYPE SY-TABIX,
          LS_FDCAT LIKE LVC_S_FCAT.

  REFRESH GT_FCAT.

  CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
    EXPORTING
      I_BUFFER_ACTIVE    'X'
      I_BYPASSING_BUFFER 'X'

******************************************************************
      I_STRUCTURE_NAME   'ZFIA07DTK'
******************************************************************
    CHANGING
      CT_FIELDCAT        GT_FCAT[].

   LOOP AT GT_FCAT
              INTO LS_FDCAT.
        L_TABIX SY-TABIX.
        LS_FDCAT-KEY        SPACE.
        LS_FDCAT-FIX_COLUMN SPACE.

          CASE LS_FDCAT-FIELDNAME.
            WHEN 'WAERS'.
              LS_FDCAT-NO_OUT 'X'.
          ENDCASE.

*       컬럼명설정
        CASE LS_FDCAT-FIELDNAME.
*         카드번호
          WHEN 'CARDNO'.
            LS_FDCAT-SCRTEXT_L    TEXT-T57.
            LS_FDCAT-SCRTEXT_M    TEXT-T57.
            LS_FDCAT-SCRTEXT_S    TEXT-T57.
            LS_FDCAT-COLTEXT      TEXT-T57.
*         승인번호
        ENDCASE.

     MODIFY GT_FCAT FROM LS_FDCAT INDEX L_TABIX.
     CLEAR LS_FDCAT.

    ENDLOOP.

  CALL METHOD G_ALV_GRID->SET_TABLE_FOR_FIRST_DISPLAY
    EXPORTING
*     I_STRUCTURE_NAME     = ' '
*  **    IS_LAYOUT            = GS_LAYOUT1
*  **    IS_VARIANT           = GS_VARIANT1
      I_SAVE               'A'
*  **    IT_TOOLBAR_EXCLUDING = GT_FCODE1
    CHANGING
      IT_FIELDCATALOG      GT_FCAT[]
*  **    IT_SORT              = GT_SORT1
******************************************************************
      IT_OUTTAB            GTC05[].
******************************************************************
*  LT_CARRID[].

ENDMODULE.

'IT > SAP' 카테고리의 다른 글

SAP include O01  (0) 2018.04.05
Posted by like winds

단 시간이 너무 걸릴 수 있다.


가장 좋은 방법은 컬럼명, 길리, 형식을 미리 모두 정하는 것이다.

이러면 빠르게 binding 된다.


float fWidth = 0;

foreach (FarPoint.Win.Spread.Column col in grdMain.ActiveSheet.Columns)

{
        col.Width = col.Label.Length * 8;
        fWidth = col.Width;
       col.Width = fWidth > col.GetPreferredWidth() ? fWidth : col.GetPreferredWidth();


Posted by like winds

y <- sapply(stpos:edpos, function(x) {  paste0(  if ( is.na(inf_dt[x,])) { "NA" } else { inf_dt[x,] }  , collapse="', '")  


R 에서 Null(NA) 가 들어간 문장을 DB 로 던지면

truncate 문자이 반환이 되면서 오류가 발생된다.


st.stat_cd = it_tb.stat_cd
.... truncate


원인은 NA (null) 이 포함된 문장이기 때문이다.


is.na 로 검사를 해서 걸러내거나 변환


Posted by like winds
TAG is.na, NA, r, script