Datawinodw To Excel Sheet Crate

[파빌신]

Datawindow 의 자료를 Excel Sheet 만드는 오브젝트 입니다.

str_pbs_dw_to_excel_column.srs

string colname //컬럼명

string coltext //컬럼Text

string coltype //컬럼타입(dddw,ddlb,char,long,date....)

string colformat //숫자, 날짜, 시간 형식

boolean colsum //합계 컬럼

string colalignment //정렬 (left,center,right)

boolean colgroup //그룹 기준 컬럼

str_pbs_dw_to_excel.srs

string ssheetname  // Sheet 명

string stitle  // 최상단 제목

string swritetime  // 작성일자

boolean bline     // 라인그리기

str_pbs_dw_to_excel_column scols[] // 컬럼 목록

n_pbs_dw_to_excel.sru

// datawindow 설정

public function integer uf_setdatawindow (datawindow adw)

// 엑셀 프로그램 Load

public function integer uf_openexcel ()

// ProgressBar 제어용 정보

public function integer uf_setevent (window awin_parent, unsignedlong aul_handle, integer ai_event)

// 진행 상태 표시 정보 

public function integer uf_setstatusobj (statictext ast_progress, statictext ast_progresstext)

// 작업 시작

public function integer uf_startjob (str_pbs_dw_to_excel astr_param)

// 왼료된 엑셀 프로그램 View

public function integer uf_show ()

// 에러코드에 대한 Messge 반환

public function string uf_geterror (integer ai_index)

사용법

n_pbs_dw_to_excel ln_ex     // 오브젝트 선언

str_pbs_dw_to_excel lstr_p   // 구조체 선언

str_pbs_dw_to_excel_column lsrt_c[] // 구조체 선언

integer i

>> 컬럼 정의

i = UpperBound(lsrt_c[]) + 1

lsrt_c[i].colname      = 'j_step_code_step_kind'

lsrt_c[i].coltext      = '구분'

lsrt_c[i].coltype      = 'ddlb'

lsrt_c[i].ColAlignment = 'left'

lsrt_c[i].colgroup     = true

i = UpperBound(lsrt_c[]) + 1

lsrt_c[i].colname      = 'j_step_code_step_name'

lsrt_c[i].coltext      = '공정'

lsrt_c[i].ColAlignment = 'left'

i = UpperBound(lsrt_c[]) + 1

lsrt_c[i].colname      = 'plan_qty'

lsrt_c[i].coltext      = '예정량'

lsrt_c[i].colformat    = '#,###'

lsrt_c[i].ColSum       = true

lsrt_c[i].ColAlignment = 'right'

i = UpperBound(lsrt_c[]) + 1

lsrt_c[i].colname      = 'pro_qty'

lsrt_c[i].coltext      = '생산량'

lsrt_c[i].colformat    = '#,##0'

lsrt_c[i].ColSum       = true

lsrt_c[i].ColAlignment = 'right'

i = UpperBound(lsrt_c[]) + 1

lsrt_c[i].colname      = 'out_qty'

lsrt_c[i].coltext      = '외주의뢰량'

lsrt_c[i].colformat    = '#,##0'

lsrt_c[i].ColSum       = true

lsrt_c[i].ColAlignment = 'right'

i = UpperBound(lsrt_c[]) + 1

lsrt_c[i].colname      = 'compute_5'

lsrt_c[i].coltext      = '잔량'

lsrt_c[i].colformat    = '#,##0'

lsrt_c[i].ColSum       = true

lsrt_c[i].ColAlignment = 'right'

i = UpperBound(lsrt_c[]) + 1

lsrt_c[i].colname      = 'out_com'

lsrt_c[i].coltext      = '외주업체명'

lsrt_c[i].coltype      = 'dddw'

lsrt_c[i].ColSum       = false

lsrt_c[i].ColAlignment = 'left'

lstr_p.sSheetname = ''

lstr_p.sTitle     = ''

lstr_p.sWriteTime = ''

lstr_p.bLine      = true

lstr_p.sCols[]    = lsrt_c[]

>> Datawindow 설정

ln_ex.uf_setdatawindow( dw_plan )

>> 이벤트 설정

ln_ex.uf_SetEvent ( w_emp, 0, 10 ) // EventID: pbm_custom10

>> 엑셀 로드

ln_ex.uf_OpenExcel ( )

>> 작업 시작

ln_ex.uf_StartJob ( lstr_p )

>> 결과 보기

ln_ex.uf_show ( )

[써니]

안녕하세요.. 배포파일 실행하니 에러 메세지가 뜹니다."Cannot Convert void in any variable to oleobject" 원인을 잘 모르겠어요..ㅠㅠ