POPBill Developers
가이드

튜토리얼

Visual Basic 개발환경에서 팝빌 SDK를 추가하여 예금주성명 조회 (CheckAccountInfo) 함수를 구현하는 예시입니다.

1. POPBiLL SDK 추가

① 팝빌 연동자료실에서 Visual Basic SDK 예제코드 다운로드 후 압축을 해제합니다.

② 압축해제한 SDK 예제 프로젝트의 Linkhub/ Popbill*/ 폴더에 포함된 클래스모듈을 기존 프로젝트의 클래스모듈로 추가합니다.

2. POPBiLL SDK 설정

Window 폼 코드에 인증정보와 클래스를 선언하고 Form_Load() 서브모듈에 예금주조회 클래스 초기화 코드를 추가합니다.

① Form 인증정보, 클래스 객체 선언

Option Explicit

'링크아이디
Private Const linkID = "TESTER"

'비밀키. 유출에 주의하시기 바랍니다.
Private Const SecretKey = "SwWxqU+0TErBXy/9TVjIPEnI0VTUMMSQZtJf3Ed8q3I="

'예금주조회 서비스 객체 생성
Private AccountCheckService As New PBAccountCheckService

② Form_Load() 서브모듈

Private Sub Form_Load()

  '예금주조회 서비스 클래스 초기화
  AccountCheckService.Initialize linkID, SecretKey

  '연동환경설정값, True-개발용 False-상업용
  AccountCheckService.IsTest = True

  '인증토큰 IP제한기능 사용여부, True-사용, False-미사용, 기본값(True)
  AccountCheckService.IPRestrictOnOff = True

  '로컬시스템 시간 사용여부 True-사용, Fasle-미사용, 기본값(False)
  AccountCheckService.UseLocalTimeYN = False
End Sub

3. CheckAccountInfo 기능 구현

Form에 버튼을 생성하고 버튼의 Click Event 코드에 예금주성명 조회 (CheckAccountInfo) 함수를 작성합니다.

Private Sub btnCheckAccountInfo_Click()
    Dim AccountInfo As PBAccountCheckInfo
    Dim tmp As String
    Dim CorpNum As String
    Dim BankCode As String
    Dim AccountNumber As String

    ' vkqqlf
    CorpNum = "1234567890"

    ' rlrhsk
    BankCode = "0011"

    'asd
    AccountNumber = "3011599770921"

    Set AccountInfo = AccountCheckService.CheckAccountInfo(CorpNum, BankCode, AccountNumber)

    If AccountInfo Is Nothing Then
        MsgBox ("응답코드 : " + CStr(AccountCheckService.LastErrCode) + vbCrLf + "응답메시지 : " + AccountCheckService.LastErrMessage)
        Exit Sub
    End If

    tmp = tmp + "bankCode (기관코드) : " + AccountInfo.BankCode + vbCrLf
    tmp = tmp + "accountNumber (계좌번호) : " + AccountInfo.AccountNumber + vbCrLf
    tmp = tmp + "accountName (예금주 성명) : " + AccountInfo.accountName + vbCrLf
    tmp = tmp + "checkDate (확인일시) : " + AccountInfo.checkDate + vbCrLf
    tmp = tmp + "resultCode (응답코드) : " + AccountInfo.resultCode + vbCrLf
    tmp = tmp + "resultMessage (응답메시지) : " + AccountInfo.resultMessage

    MsgBox tmp, , "예금주조회"
End Sub

4. 결과 확인

함수 호출이 정상적으로 처리된 경우 Response가 "성공"으로 반환되며, 실패일 경우 PopbillException으로 오류코드("-"로 시작하는 8자리 숫자값)와 오류메시지가 반환됩니다. [오류코드] 바로가기