Internal table의 데이타와 ms-word,excel과의 인터페이스

********************************************************** * Internal table의 데이타와 ms-word,excel과의 인터페이스 * ********************************************************** SAP를 사용하다 보면 출력문제때문에 고심할때가 가끔 있는대요. 그냥 list processing으로 처리해도 되는것은 상관 없지만 양식 이 너무나도 중요하다고 해서(실은 요청하는 사람의 일방적인 생 각인 경우가 많지만) 서식을 사용하는 경우도 있고 한대요. 아시겠지만 서식을 쓰는것이 짜증나는 작업이죠,word 나 excel 에 비해서 그리 멋있지도 않고.... 답이 있습니다.word 나 excel 로 데이타를 보내주면 되니까요. 이를 하기위해선 세가지 정도의 과정이 필요한대요. 예를 들면.. 1. abap 소스코드안에서 office로 데이타를 넘겨주겠다고 선언 * 2개의 INCLUDE 문 사용하고 INCLUDE < CTLDEF >. INCLUDE OFFICEINTEGRATIONINCLUDE. * FUNCTION 및 기타루틴 DATA: FACTORY TYPE REF TO I_OI_DOCUMENT_FACTORY. DATA: DOCUMENT TYPE REF TO I_OI_DOCUMENT_PROXY. DATA: RETCODE TYPE T_OI_RET_STRING. DATA: DOC_TABLE LIKE W3MIME OCCURS 0. DATA: DOC_SIZE TYPE I. DATA: DOC_TYPE(80) VALUE SOI_DOCTYPE_WORD97_DOCUMENT. DATA: DOC_FORMAT(80) TYPE C. * UPLOAD 된 office 화일을 인식시키는 함수 CALL FUNCTION 'SAP_OI_LOAD_MIME_DATA' EXPORTING OBJECT_ID = 'ZHRPROFILE' IMPORTING DATA_SIZE = DOC_SIZE DOCUMENT_FORMAT = DOC_FORMAT DOCUMENT_TYPE = DOC_TYPE TABLES DATA_TABLE = DOC_TABLE EXCEPTIONS OBJECT_NOT_FOUND = 1 INTERNAL_ERROR = 2 OTHERS = 3. CALL METHOD FACTORY->GET_DOCUMENT_PROXY EXPORTING DOCUMENT_TYPE = DOC_TYPE IMPORTING DOCUMENT_PROXY = DOCUMENT RETCODE = RETCODE. CALL METHOD C_OI_ERRORS=>SHOW_MESSAGE EXPORTING TYPE = 'E'. CALL METHOD DOCUMENT->OPEN_DOCUMENT_FROM_TABLE EXPORTING DOCUMENT_TABLE = DOC_TABLE[] DOCUMENT_SIZE = DOC_SIZE IMPORTING RETCODE = RETCODE. CALL METHOD C_OI_ERRORS=>SHOW_MESSAGE EXPORTING TYPE = 'E'. IF FACTORY IS INITIAL. CALL METHOD C_OI_FACTORY_CREATOR=>GET_DOCUMENT_FACTORY IMPORTING FACTORY = FACTORY RETCODE = RETCODE. IF RETCODE NE C_OI_ERRORS=>RET_OK. EXIT. ENDIF. CALL METHOD FACTORY->START_FACTORY EXPORTING R3_APPLICATION_NAME = '인사기록카드' * register_on_close_event = 'X' * register_on_custom_event = 'X' IMPORTING RETCODE = RETCODE. CALL METHOD C_OI_ERRORS=>SHOW_MESSAGE EXPORTING TYPE = 'E'. CALL METHOD FACTORY->GET_LINK_SERVER IMPORTING LINK_SERVER = LINK_SERVER RETCODE = RETCODE. CALL METHOD C_OI_ERRORS=>SHOW_MESSAGE EXPORTING TYPE = 'E'. CALL METHOD LINK_SERVER->START_LINK_SERVER IMPORTING RETCODE = RETCODE. CALL METHOD C_OI_ERRORS=>SHOW_MESSAGE EXPORTING TYPE = 'E'. ENDIF. "factory IS INITIAL. ENDFORM. " INIT_FACTORY * 주의사항 - 데이타를 모두다 character type으로 변환해주어야 함. 2. office 화일을 SAP R/3 로 upload. 메뉴 : 툴 ? 업무기본구조 ? 웹개발 ? 웹레포팅 트랜잭션 코드 : SMW0 WebRFC 어플리케이션 이진데이터 선택 * 주의사항 - 오피스화일을 edit 할때마다 매번 upload 해주어 야 한다. 3. office 제품의 매크로기능중 visual basic 편집기를 이용하 여 R/3 의 데이타를 받아들이는 루틴을 코딩. Sub R3_Macro1() Call R3_D1 Call R3_D2 Call R3_Gen Call R3_Pic Call R3_Print End Sub Sub R3_Macro2() Call R3_D1 Call R3_D2 Call R3_Gen Call R3_Pic End Sub Sub R3_D1() Dim R3Table As Object Dim WordTbl As Table Set R3Table = ThisDocument.Container.LinkServer.Items("D1").Table Set WordTbl = ThisDocument.Tables(1) WordTbl.Cell(2, 2).Range.InsertAfter Text:=CVar(R3Table.Value(1, 1)) WordTbl.Cell(2, 4).Range.InsertAfter Text:=CVar(R3Table.Value(1, 2)) 이상의 3부분으로 나눌수 있는데 주저리 주저리 써놓아서 이해하 기가 어려울듯한대요 스탠다드의 개발 클래스 SOFFICEINTEGRATION 에 예제 프로그램들이 있습니다. 참고적으로 위의 예제는 오피스97의 word를 기준으로 써놓은 것 이고요,오피스 2000에선 잘 안되는 경우도 있다고 하네요... 참고하세요.