LINK-설정법

버튼에 링크 걸기

1. 링크를 걸 트랜잭션 화면에 가서 다이얼로그에 버튼 추가 후 Click 메서드
   

2. 기본적인 로직은
   a. IASLINKS 클래스의 인스턴스 변수 선언
   b. SETPARAMETERS와 ADDCOLVALUE로 값 넘겨주기
   c. CREATELINK() 로 링크 생성

->->->
d. 링크 대상 트랜잭션의 TransCalled
e. 값 넘겨준 거 받아서 활용

---

상세 코드 설명

SETPARAMETERS 참고
801

/* IASLINKS 클래스의 인스턴스 변수 생성 */
GLOBAL: 
    IASLINKS LINKREC;

/* 선택된 행의 MEMBERID가 존재하는지 확인 후 실행 */
IF NKMEMBERINFO8100LIST_SELECTED == 1 THEN

    LINKREC.SETPARAMETERS('NKMEMBERINFO8100', 'NKMEMBERINFO8100LIST', '', '', 'EDUT804NK', '', '0');
    LINKREC.ADDCOLVALUE('COMPANY', NKMEMBERINFO8100LIST_COMPANY);
    LINKREC.ADDCOLVALUE('MEMBERID', NKMEMBERINFO8100LIST_MEMBERID);

    SYS_LINK = LINKREC.CREATELINK();
    LINKREC.EXECUTELINK(SYS_LINK);

ELSE
    /* 선택된 행이 없는 경우 안내 */
    MESSAGE BAS E2000 WITH '선택된 회원이 없습니다.';
ENDIF;

804

GLOBAL:
	IASLINKS LINKEXC;

LOCAL:
	STRING SCCOMPANY,
	STRING SCMEMBERID;

REPGROUP = GETFORMREPORTGROUP();
QUERYID = GETFORMQUERY();
QITEMS = SEARCHHEADER00039.GETREPORTTABLE();

IF SYS_LINK != '' THEN

	IF LINKEXC.PARSELINK(SYS_LINK) THEN
		SCCOMPANY = LINKEXC.GETCOLVALUE('COMPANY');
		SCMEMBERID = LINKEXC.GETCOLVALUE('MEMBERID');

		/* 1. 다이얼로그 구조를 QITEMS에 먼저 로드 */		
		GETSEARCHCRITERIA DIALOG SYS_CURRENTDIALOG TO QITEMS;

		/* 2. 로드된 QITEMS의 파라미터 값 변경 */		
		REPQUERY00039REC.SETPARAMVALUES(REPGROUP, QUERYID, QITEMS, 'NKRENTHEADER8100', 'COMPANY', SCCOMPANY);
		REPQUERY00039REC.SETPARAMVALUES(REPGROUP, QUERYID, QITEMS, 'NKRENTHEADER8100', 'MEMBERID', SCMEMBERID);

		THIS.SEARCH();
		
		IF NKRENTHEADER8100LIST_ROWCOUNT == 1 THEN
            MOVE 1 TO NKRENTHEADER8100LIST_SELECTED;
        ENDIF;
        
        IF NKRENTHEADER8100LIST_SELECTED THEN
            CNKRENTHEADER8100REC.SETMODI(2);
            THIS.CALLDETAIL();
        ELSE
            MESSAGE BAS E2000 WITH '대여정보가 존재하지 않습니다';
        ENDIF;
        
	ENDIF;
ENDIF;

---

주의해야할점

• SCCOMPANY 넘겨줄 때 변수 선언 하기
• REPGROUP = GETFORMREPORTGROUP();
• QUERYID = GETFORMQUERY();
• GETSEARCHCRITERIA DIALOG SYS_CURRENTDIALOG TO QITEMS; 설정

나머지는 그 이후 동작 설정