new eyes

* 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
    DATA: L_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.

  DATA: L_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.

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

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

이러면 빠르게 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();
} 

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 로 검사를 해서 걸러내거나 변환