T-Tiger

/*--------------------------------------------------------------------- 
   Json Rest API
 ---------------------------------------------------------------------*/
OleObject lole_SrvHTTP
String ls_status, ls_response, ls_arg, ls_url
ls_arg = '{ "USER_NM": "xxxxxxx@xxxx.co.kr"}}'
ls_url = 'https://nexthr-apix.singlex.com/nexthr/hr-xmti/dev/xmti/v1/gw/org/LG01'
lole_SrvHTTP = CREATE  OleObject
lole_SrvHTTP.connectToNewObject("MSXML2.ServerXMLHTTP.6.0")
lole_SrvHTTP.Open('POST', ls_url, FALSE)
lole_SrvHTTP.SetRequestHeader( "Content-Type", "application/json")
lole_SrvHTTP.SetRequestHeader( "x-apikey", "xxxxxxxxxxxx")
lole_SrvHTTP.setOption(2,'13056') 
lole_SrvHTTP.send(ls_arg)
ls_status   = string(lole_SrvHTTP.Status)
ls_response = string(lole_SrvHTTP.ResponseText)
/*------------------------------------------------------------------------------------
  Datawindow로 자료 생성 
--------------------------------------------------------------------------------------*/
Reset()
long    p1, p2, row
string  ls_json, ls_Row[], ls_Cdata, item 
string  ls_Cols[]={"RSLTDT","HR_ORG_CD","PARENT_HR_ORG_CD","ORG_NM","ENG_ORG_NM","ORG_SORT","LCTN_CD","MGR_EMP_NO","DEPT_USEYN","LEVEL","PATH_HR_ORG_CD","PATH_ORG_NM","PATH_ENG_ORG_NM","PARENT_ORG_NM","PARENT_ENG_ORG_NM","MGR_EMP_NM"}
integer i, i_max, j, j_max
ls_json = of_replace(ls_response,'[','')
ls_json = Trim( of_replace(ls_json,']','') )
messagebox("확인",ls_json)
/*------------------------------------------------------------------------------------
  구분자로 되어 있는 String -> String Array
i_max = StringToArray( ls_json, '},', ls_Row[])
--------------------------------------------------------------------------------------*/
DO WHILE ls_json <> '' 
   item = Trim ( f_getfirstitem( ls_json, '},' )  )
   IF item = '' THEN 
   ELSE 
      i_max ++ 
      ls_Row[i_max] = item 
   END IF 
LOOP 
/*------------------------------------------------------------------------------------
  Datawindow 에 자료 추가 
--------------------------------------------------------------------------------------*/
j_max = UpperBound(ls_Cols[])
FOR i = 1 TO i_max
   ls_Row[i] = of_replace(ls_Row[i],'{'   ,'')
   ls_Row[i] = of_replace(ls_Row[i],'}'   ,'')
   ls_Row[i] = of_replace(ls_Row[i],'~r~n','')
   ls_Row[i] = of_replace(ls_Row[i],',"'  ,'^')
   ls_Row[i] = of_replace(ls_Row[i],'"'   ,'') + '^'
   
   row = Insertrow( 0 )
   FOR j = 1 TO j_max 
      // Column data  
      p1    = Pos( ls_Row[i], ls_Cols[j] )
      p2    = Pos( ls_Row[i], '^', p1 )
      ls_Cdata = Mid( ls_Row[i], p1, p2 - p1 )
      f_getfirstitem( ls_Cdata, ':' )  // ls_Cdata = Trim( f_nth(ls_Cdata,':',2) )
      ls_Cdata = Trim( of_replace(ls_Cdata,',','') )
      CHOOSE CASE j
         CASE 1
            CHOOSE CASE ls_Cdata
               case '1' ; Setitem(row, j, '성공')
               case '2' ; Setitem(row, j, 'Data코드오류')
               case '3' ; Setitem(row, j, '인증코드오류')
               case '4' ; Setitem(row, j, '일일제한횟수마감')
            end choose
         CASE 7, 11 //number
            Setitem(row, j, integer(ls_Cdata))
         CASE 2, 3     //char
            Setitem(row, j, ls_Cdata)
         CASE ELSE     //decimal
            Setitem(row, j, Dec(ls_Cdata))
      END CHOOSE
   NEXT 
NEXT 
Sort()
DESTROY lole_SrvHTTP

lole_SrvHTTP.setOption(2,'13056') //  https 연동시 ssl 인증서가 정상 설치 되지 않은 경우 인증서 무시 옵션

lole_SrvHTTP.send(ls_arg)
ls_status   = string(lole_SrvHTTP.Status)
ls_response = string(lole_SrvHTTP.ResponseText)
DESTROY lole_SrvHTTP

이거 없으면 연동 안됨.

뒤에 데이터윈도우 만들기 강좌에서 다루겠지만, 파워빌더를 실행해서,

메뉴의 file>new를 선택한 다음, DataWindow 탭을 선택하면, 위에 설명한 타입의 데이터윈도우들이 나열되어 있다.

각 아이콘은 해당 데이터윈도우의 특징을 잘 보여준다고 할 수 있다.

하지만, 위에 열거된 형태의 타입은 기본적으로 제공하는 템플릿일 뿐이고, 데이터윈도우 오브젝트의 속성을 잘 파악하면 훨씬 자유롭게 표현하고자 하는 것을 표현할 수 있다.

디스플레이의 가독성은 인접한 행의 배경색을 번갈아 가며 개선할 수 있습니다.

 AlternatingRows 속성이 True 로 설정 되면 그리드는 기본 제공 스타일 OddRow를 사용하여 홀수 행(첫 번째 표시되는 행은 1)을 표시하고 기본 제공 스타일 EvenRow를 사용하여 짝수 행을 표시합니다.

PB Native에서 Check out을 하였는데 오류 메세지 발생

이리저리 보아도 문제는 없었음. 확인 내용

Source Control System = PB Native
userid = master
Project = Q:\DEVELOP\PDAT-EMTALA
Local root Directory = Q:\DEVELOP\PDAT-EMTALA

문제 없음, 그러나 Project 파일 네트워크 드라이브 연결 시 권한이 Read only로 되어 있음을 발견

Read only는 GetLastVesrion은 가져오나 Check in / out은 되지 않음.

수정완료

파워빌더를 실행하거나 특정 오브젝트를 열 때, 아무런 이유 없이 다운될 때가 있습니다.

대체로 파워빌더 레이아웃에 순간적인 문제가 생겨서 발생하는 현상입니다.


1. 특정 Object 를 열면 다운될 때 (Datawindow 를 열면 자주 발생)

   윈도우키 + R - regedit : 레지스트리 편집기 오픈

   레지스트리 - HKEY_CURRENT_USER - Software - Sybase - PowerBuilder - Layout - Default

   열리지 않는 Object 값 삭제

-> 파워빌더 실행해서 그 Object를 다시 열면 디폴트 레이아웃으로 변경되어 있습니다.


2. 파워빌더를 실행함과 동시에 다운될 때

   윈도우키 + R - regedit : 레지스트리 편집기 오픈

   레지스트리 - HKEY_CURRENT_USER - Software - Sybase - PowerBuilder - Workspace - 버전

   다운되는 Workspace 폴더 삭제

-> 파워빌더 실행해서 Workspace 를 다시 오픈하면 됩니다.

powerbuilder accessibility error 해결방법

윈도우8에는 powerbuilder accessibility error가 발생한다.

PBACC105.DLL를 설치 후 해결이 되었다.

회사에서 파워빌더로 프로그래밍을 하다보면 파워빌더를 실행해서 특정 오브젝트나 윈도우를 열면 아무런 이유없이 응답없음으로 변경되다가 다운될 때가 있다.

이 때 열려고 하는 오브젝트나 워크스페이스에 문제가 있는 것으로 아래와 같이 조치를 해주면 된다.

1. DataWindow 및 특정 오브젝트를 열면 다운됨.

  '실행' 에서  regedit 입력하여 레지스트리 편집기 실행

HKEY_CURRENT_USER - Software -Sysbase - PowerBuilder - Layout -Default - 열리지 않는 오브젝트 삭제

2. 파워빌더를 실행함과 동시에 다운됨.

  '실행' 에서  regedit 입력하여 레지스트리 편집기 실행

HKEY_CURRENT_USER - Software -Sysbase - PowerBuilder - Workspace - 다운되는 workspace 를 삭제

파워빌더를 실행해서 workspace를 다시 열면 됨.