Powerbuilder2010. 5. 17. 20:25
Choose case dwo.name
Case 'prdf'
ls_prdt = ''
ll_prd = Long(data)
this.SetItem(row, 'prdt', data)
For i = ll_prd to 12
ls_prdt = ls_prdt + String(i) + '/'//ls_prdt + String(i) + ' ' + String(i) + '/'
Next
This.modify("prdt.values='"+ ls_prdt +"' prdt.ddlb.limit=0 prdt.ddlb.allowedit=no prdt.ddlb.case=any")
End Choose
Posted by Julyus
Powerbuilder2010. 5. 17. 09:39


  If data = 'D' Then dw_main.DataObject = 'd_fin_glc340_02_1' dw_main.Modify("DataWindow.Print.Preview=Yes") dw_main.setTransObject(sqlca) ElseIf data = 'S' Then dw_main.DataObject = 'd_fin_glc340_02' dw_main.Modify("DataWindow.Print.Preview=Yes") // dw_main.Modify("DataWindow.Print.Paper.Size='9' ") //'<9 - A4 210x297mm>' // dw_main.Modify("DataWindow.Print.Orientation= '2'") //<2 - Portrait> dw_main.setTransObject(sqlca) End If


dw_main.Modify("DataWindow.Print.PreView.Zoom=90")
dw_main.Modify("DataWindow.Zoom=107")

Posted by Julyus
Powerbuilder2010. 5. 14. 11:21







Posted by Julyus
Powerbuilder2010. 5. 12. 18:24
Power Builder Source Control 소스공유.




Posted by Julyus
2010. 3. 31. 10:03

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

Powerbuilder2010. 3. 12. 17:38
인스턴스 오라클을 사용하다보면...
Database 설정이 가끔 사라진다...
아래 레지스트리 파일을 추가하자.





Posted by Julyus
2010. 3. 12. 11:35

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

Powerbuilder2010. 3. 11. 11:04

"수정한 부분을 Regenerate 를 해준후 Incremental로 컴파일하시면 좀더 빠르게 가능할꺼여여..."

 

힌트를 얻어 이것저것 만져 보았습니다.

문제를 찾은거 같습니다.

해당 파일만 Regenerate해도 pbd파일이 생기지 않았습니다.

 

1. 그래서 Target을 잡고 Migrate를 했습니다.

Migrate는 Full Regenerate를 해주니깐요...

 

 

2. Migrate 창이 열리면 바로 'OK' 버튼을 누르는것이 아니라 아래와 같이 'Browser'버튼을 누르세요.

주의1: 만약 Migrate창이 비활성화 된 채로 열린다면 다른 Object가 열려 있는겁니다. 모든 창은 닫고 Library창만 여세요

 

3. Browser로 창을 열어 파일을 하나 선택합니다.

아래와 같이 파일 하나가 추가 될것입니다. 그리고 추가된 파일은 삭제하셔도 좋습니다.

 

4. 'OK'버튼을 클릭하십시오. 문제가 되는 파일이 있다면 메시지를 보내 줄 겁니다.

만약 문제가 있는 파일은 백업된 PBL파일을 그대로 붙혀 놓으시면 됩니다.

 

5. Migrate로 모든 파일이 정상적인지 확인 해 보시는것도 좋습니다.

Posted by Julyus
Powerbuilder2010. 2. 22. 09:52

특정 컨트롤(sle)에서 getfocus시 한글입력을 기본으로 하고 싶습니다? | ▦ PowerBuilder
2008.03.27 11:00

저는

f_lang_change(long, Integer) 라는 함수를 만들어 사용하는데요...

함수내용이구요...

/*================================================================================*/
/* Function    : f_lang_change                                                    */
/* Purpose     : 한/영 Toggle                                                     */
/* Arguments   : handle value, lang value                                         */
/*================================================================================*/

long hlMC 
hlMC = ImmGetContext(a_l_handle)
ImmSetConversionStatus(hlMC,a_i_lang,0) // a_i_lang가 1은 한글,0은 영문
ImmReleaseContext(a_l_handle,hlMC)

 

sle의 getfocus에 요렇게 적어주면 됩니다..

f_lang_change (Handle(Parent),1) // 한글로 기본 setting

 

간단하죠..

Posted by Julyus
Powerbuilder/DBMS2010. 1. 14. 14:46
//해당 조건에 해당하는 pin 찾기
DECLARE out_pin DYNAMIC CURSOR FOR SQLSA;

ls_sql += "Select pid, contno From p_cardmst where sale_flag <> '0' And " + &
        "status = '" + ls_status_1 + "' "//And partner_prefix = '" + ls_mainoffice + "' "
If ls_where <> "" Then ls_sql += ls_where
ls_sql += "Order by contno, pid"

      PREPARE SQLSA FROM :ls_sql;
OPEN DYNAMIC out_pin;
Do While(True)
Yield()
FETCH out_pin
INTO :ls_pid, :ls_contno;










Posted by Julyus