Powerbuilder2010. 8. 29. 16:28

Where 좌변 Case문.




 WHERE ( A.F20CRT BETWEEN :as_date_dt_from AND :as_date_dt_to
      AND   ( V.ZC3CEM  LIKE :as_empno OR V.ZC3CEM2  LIKE :as_empno )
      AND   A.F20QDP BETWEEN :as_dept_cd_from AND :as_dept_cd_to
      AND   (CASE IFNULL(A.F20DOCN, '') WHEN '' THEN 'Y' ELSE 'N' END) = :as_erp_yn
      AND    A.F20STS    LIKE :as_sts )
        OR ( A.F20PRN = :as_key )
  WITH UR
저작자표시 비영리 변경금지
Posted by Julyus
2010. 8. 25. 13:50

우클릭으로 DW 정보 얻기

보호되어 있는 글입니다.
내용을 보시려면 비밀번호를 입력하세요.

Powerbuilder2010. 7. 20. 09:49

DW TabOrder 동적으로 넣어주기.



dw_main.modify("r30ssyb.tabsequence=50 ")




저작자표시 비영리 변경금지
Posted by Julyus
2010. 7. 15. 21:40

Table User Info for DB2

보호되어 있는 글입니다.
내용을 보시려면 비밀번호를 입력하세요.

2010. 7. 15. 21:36

선택한 컬럼의 내용을 클립보드에 담기.

보호되어 있는 글입니다.
내용을 보시려면 비밀번호를 입력하세요.

Powerbuilder2010. 7. 14. 20:34

dw 컬럼 동적 변동 및 sort()



ls_gbn2 = func.of_nvl(this.GetItemString(row, 'gbn2'   ), 'LEAC')
dw_main.SetRedraw(FALSE)
If ls_gbn2 = 'LEAC' Then
dw_main.Modify("t_leac.X='"+ String(Long(dw_main.Describe("t_prd.X")) + Long(dw_main.Describe("t_prd.Width")) + 13)+"'")
dw_main.Modify("t_leacnm.X='"+ String(Long(dw_main.Describe("t_leac.X")) + Long(dw_main.Describe("t_leac.Width")) + 13)+"'")
dw_main.Modify("t_dta.X='"+ String(Long(dw_main.Describe("t_leacnm.X")) + Long(dw_main.Describe("t_leacnm.Width")) + 13)+"'")
dw_main.Modify("leac.X='"+ String(Long(dw_main.Describe("prd.X")) + Long(dw_main.Describe("prd.Width")) + 13)+"'")
dw_main.Modify("leacnm.X='"+ String(Long(dw_main.Describe("leac.X")) + Long(dw_main.Describe("leac.Width")) + 13)+"'")
dw_main.Modify("dta.X='"+ String(Long(dw_main.Describe("leacnm.X")) + Long(dw_main.Describe("leacnm.Width")) + 13)+"'")
dw_main.SetSort("dcd asc, leac asc, dta asc")
dw_main.Sort()
ElseIf ls_gbn2 = 'DTA' Then
dw_main.Modify("t_dta.X='"+ String(Long(dw_main.Describe("t_prd.X")) + Long(dw_main.Describe("t_prd.Width")) + 13)+"'")
dw_main.Modify("t_leac.X='"+ String(Long(dw_main.Describe("t_dta.X")) + Long(dw_main.Describe("t_dta.Width")) + 13)+"'")
dw_main.Modify("t_leacnm.X='"+ String(Long(dw_main.Describe("t_leac.X")) + Long(dw_main.Describe("t_leac.Width")) + 13)+"'")
dw_main.Modify("dta.X='"+ String(Long(dw_main.Describe("prd.X")) + Long(dw_main.Describe("prd.Width")) + 13)+"'")
dw_main.Modify("leac.X='"+ String(Long(dw_main.Describe("dta.X")) + Long(dw_main.Describe("dta.Width")) + 13)+"'")
dw_main.Modify("leacnm.X='"+ String(Long(dw_main.Describe("leac.X")) + Long(dw_main.Describe("leac.Width")) + 13)+"'")
dw_main.SetSort("dcd asc, dta asc, leac asc")
dw_main.Sort()
End If
dw_main.SetRedraw(TRUE)
저작자표시 비영리 변경금지
Posted by Julyus
Powerbuilder2010. 7. 12. 20:50

dw Parameter (매개변수)를 Array로 넘기기.



/*호출*/
ll_rv = this.Retrieve(ls_pgm_ary[])


/*dw SQL*/
SELECT M.PGM_ID, M.PGM_USE_YN
  FROM CLVDTALB.PF_PGM_MST M
 WHERE M.PGM_ID IN (:AS_PGM_ID)
AND M.PGM_NO IN (SELECT MB.PGM_NO FROM CLVDTALB.PF_PGM_BTN MB WHERE MB.PGM_NO = M.PGM_NO AND MB.BTN_USE_YN = 'Y')
AND M.PGM_NO IN (SELECT MR.PGM_NO FROM CLVDTALB.PF_PGM_ROLE MR WHERE MR.PGM_NO = M.PGM_NO )


/*Arguments*/
Arguments=(("AS_PGM_ID", String Array))
저작자표시 비영리 변경금지
Posted by Julyus
2010. 7. 8. 09:34

xls 엑셀로 저장하기.

보호되어 있는 글입니다.
내용을 보시려면 비밀번호를 입력하세요.

2010. 7. 7. 22:32

csv, xls, 탭형식 파일 DW로 import 받기...

보호되어 있는 글입니다.
내용을 보시려면 비밀번호를 입력하세요.

Powerbuilder2010. 6. 26. 07:45

데이터 윈도우에서 SQL 추출하기

http://cafe.naver.com/pentaeduclub/10908

데이터 윈도우에서 SQL 추출하기

GetSQLSelect( ) 함수를 사용하면 데이터 윈도우에서 SQL 문장을 추출할 수 있다.
String형을 리턴하며, 실패할 경우 NULL을 리턴한다.

ls_sql = dw_1.GetSQLSelect()

반대로

SetSQLSelect( ) 함수를 사용하면 데이터 윈도우의 SQL문을 동적으로 지정할 수 있다.

dw_1.SetSQLSelect(ls_sql)

다만, 안타깝게도 SetSQLSelect 함수의 경우 Retrieval arguments가 없는 경우에만 사용이 가능하다.

저작자표시 비영리 변경금지
Posted by Julyus

티스토리툴바