/*=================================================================
처리내용: 부서권한 dddw(인사부서 'I', MIS부서 'M', 청구부서 'R')
사용 예)
gvc_val.setProperty('column1', 'authdept', 'M')
If func.of_dddw_deptauth2(dw_con, gvc_val, 'M') < 0 Then
MessageBox("오류", "dddw 조회 시 오류가 발생하였습니다.")
End If
=================================================================*/
Datastore lds
String DWfilter, ls_temp
Int li_count, i
lds = Create Datastore
Choose Case Upper(as_div_imr)
Case 'I'
lds.dataobject = "dddw_deptauth" //PF_DEPARTMENT
lds.SetTransObject(Sqlca)
lds.Retrieve(gs_dept_cd, gs_emp_no, Upper(gs_activewindow.Classname()))
Case 'M'
lds.dataobject = "dddw_vv11auth" //VV11CMA0 MIS부서
lds.SetTransObject(Sqlca)
lds.Retrieve(gs_dept_cd, gs_emp_no, Upper(gs_activewindow.Classname()))
Case 'R'
lds.dataobject = "dddw_vv12auth" //VV12CMA0 청구부서
lds.SetTransObject(Sqlca)
lds.Retrieve(gs_dept_cd, gs_emp_no, Upper(gs_activewindow.Classname()))
Case 'C'
// String ls_z11mdp
//
// SELECT IFNULL(A.Z11MDP, '')
// INTO :ls_z11mdp
// FROM PF_DEPARTMENT A
// WHERE A.DEPT_CODE = :gs_dept_cd
// USING SQLCA;
lds.dataobject = "dddw_vv13auth" //VV13CMA0 경비부서
lds.SetTransObject(Sqlca)
lds.Retrieve(gs_dept_cd, gs_emp_no, Upper(gs_activewindow.Classname()))
Case 'H'
lds.dataobject = "dddw_vv14auth" //VV12CMA0 인사부서
lds.SetTransObject(Sqlca)
lds.Retrieve(gs_dept_cd, gs_emp_no, Upper(gs_activewindow.Classname()))
End Choose
li_count = avc_data.getfindkeycount('column')
For i = 1 To li_count
ls_temp = avc_data.getproperty('column' + String(i))
If Not (adw_dw.Describe(ls_temp+".DDDW.Name") = "?" or adw_dw.Describe(ls_temp+".DDDW.Name") = "!" or &
adw_dw.Describe(ls_temp+".DDDW.Name") <> lds.dataobject) Then
DataWindowChild ldw_child
adw_dw.GetChild(ls_temp, ldw_child)
If li_count = 1 Then // open에서 2개를 한번에 조회할때는 reset하면 뒤에 코드는 안나온다.1일때만 reset적용.
ldw_child.Reset()
End if
lds.RowsCopy(1, lds.RowCount(), primary!, ldw_child, 1, primary!)
ldw_child.SetSort('dept_code A')
ldw_child.Sort()
Else
Return -1
End If
Next
Return 1
