//wf_dddw_
Long ll_dddw_row
String ls_leac, ls_leacnm, ls_ptyp
/* 2010.06.07 by 최인욱 : 개인비용지급 구매요청 타입은 PURC로 Default처리*/
idwc_ptyp.SetFilter("f12ptyp = 'PURC'")
idwc_ptyp.Filter()
dw_main.SetTabOrder('f20ptyp', 0)
ll_dddw_row = idwc_ptyp.GetRow()
If ll_dddw_row > 0 Then
ls_ptyp = idwc_ptyp.GetItemString(ll_dddw_row, 'f12ptyp')
ls_leac = idwc_ptyp.GetItemString(ll_dddw_row, 'f12leac')
ls_leacnm = func_fin.of_get_codename('F01', ls_leac, '', '', '', '')
dw_main.SetItem(al_row, 'f20ptyp', ls_ptyp) //계정코드
dw_main.SetItem(al_row, 'tf12lna0_f12leac', ls_leac) //계정코드
dw_main.SetItem(al_row, 'tf01lna0_f01desc', ls_leacnm) //계정명
Else
// Messagebox("확인", "구매유형이 지정되지 않은 업체코드입니다.~nAR팀 홍정민씨에게 문의하시고 등록하시기 바랍니다.")
Messagebox("확인", "구매유형이 지정되지 않은 업체코드입니다.~nBP담당자에게 문의 하시기 바랍니다.")
End If
/* End of 2010.06.07 */
//postopen
//--구매유형
dw_main.GetChild ("f20ptyp", idwc_ptyp)
idwc_ptyp.SetTransObject (sqlca)
