X++ 코드를 이용해 Word 표에 값을 나열하기

이번에는 Word 표에 LedgerParameters 테이블의 정보를 나열하는 로직을 구현하려고 합니다.

작업을 위해서 TableName이라는 책갈피를 추가해 주시고, 아래와 같이 행이 2개인 표를 추가한 table.dotx 서식 파일을 C:\Temp 경로에 저장합니다.

아래 코드를 이용해 위에서 작업한 서식 파일(table.dotx)에 LedgerParameter 테이블의 필드와 값을 보여지도록 할 수 있습니다.

static void CreateWordTable(Args _args) { TableId tableId; COM word; COM documents; COM document; COM bookmarks; COM bookmark; COM tables; COM table; COM rows; COM row; COM cells; COM cell; COM range; Query query; QueryRun queryRun; Common common; TmpSysTableField fields; DictField dictField; int i; void processBookmark(str _name, str _value) { if (!bookmarks.exists(_name)) { return; } bookmark = bookmarks.item(_name); range = bookmark.range(); range.insertAfter(_value); } #define.Word('Word.Application') #define.template(@'C:\Temp\table.dotx'); tableId = tableNum(LedgerParameters); try { word = new COM(#Word); } catch (Exception::Internal) { if (word == null) { throw error("Microsoft Word is not installed"); } } documents = word.documents(); document = documents.add(#template); bookmarks = document.bookmarks(); processBookmark('TableName', tableId2pname(tableId)); tables = document.tables(); table = tables.Item(1); rows = table.rows(); query = new Query(); query.addDataSource(tableId); queryRun = new QueryRun(query); queryRun.next(); common = queryRun.get(tableId); fields = TmpSysTableField::findTableFields(null, tableId); while select fields { dictField = new DictField(tableId, fields.FieldId); if (dictField.isSystem()) { continue; } i++; row = rows.item(i); cells = row.cells(); cell = cells.item(1); range = cell.range(); range.insertAfter(fields.FieldLabel); cell = cells.item(2); range = cell.range(); range.insertAfter(strFmt('%1', common.(fields.FieldId))); row = rows.add(); } row.delete(); word.visible(true); }

[결과화면]

table.dotx