POPBill Developers
가이드

튜토리얼

Visual Basic 개발환경에서 팝빌 SDK를 추가하여 기업정보조회 (BizInfoCheck) 함수를 구현하는 예시입니다.

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 BizInfoCheckService As New PBBCService

② Form_Load() 서브모듈

Private Sub Form_Load()

  ' 기업정보조회 서비스 클래스 초기화
  BizInfoCheckService.Initialize linkID, SecretKey

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

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

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

3. BizInfoCheck 기능 구현

Form에 버튼을 생성하고 버튼의 Click Event 코드에 기업정보조회 (BizInfoCheck) 함수를 작성합니다.

Private Sub btnCheckBizInfo_Click()
    Dim tmp As String
    Dim BizCheckInfo As PBBizCheckInfo
    Dim MemberCorpNum As String
    Dim CheckCorpNum As String

    '팝빌회원 사업자번호
    MemberCorpNum = "1234567890"

    '조회할 사업자번호
    CheckCorpNum = "6798700433"

    Set BizCheckInfo = BizInfoCheckService.CheckBizInfo(MemberCorpNum, CheckCorpNum)

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

    tmp = tmp + "corpNum (사업자번호) : " + BizCheckInfo.CorpNum + vbCrLf
    tmp = tmp + "companyRegNum (법인번호): " + BizCheckInfo.companyRegNum + vbCrLf
    tmp = tmp + "checkDT (확인일시) : " + BizCheckInfo.checkDT + vbCrLf
    tmp = tmp + "corpName (상호): " + BizCheckInfo.corpName + vbCrLf
    tmp = tmp + "corpCode (기업형태코드): " + CStr(BizCheckInfo.corpCode) + vbCrLf
    tmp = tmp + "corpScaleCode (기업규모코드): " + CStr(BizCheckInfo.corpScaleCode) + vbCrLf
    tmp = tmp + "personCorpCode (개인법인코드): " + CStr(BizCheckInfo.personCorpCode) + vbCrLf
    tmp = tmp + "headOfficeCode (본점지점코드) : " + CStr(BizCheckInfo.headOfficeCode) + vbCrLf
    tmp = tmp + "industryCode (산업코드) : " + BizCheckInfo.industryCode + vbCrLf
    tmp = tmp + "establishCode (설립구분코드) : " + CStr(BizCheckInfo.establishCode) + vbCrLf
    tmp = tmp + "establishDate (설립일자) : " + BizCheckInfo.establishDate + vbCrLf
    tmp = tmp + "CEOName (대표자명) : " + BizCheckInfo.ceoname + vbCrLf
    tmp = tmp + "workPlaceCode (사업장구분코드): " + CStr(BizCheckInfo.workPlaceCode) + vbCrLf
    tmp = tmp + "addrCode (주소구분코드) : " + CStr(BizCheckInfo.addrCode) + vbCrLf
    tmp = tmp + "zipCode (우편번호) : " + BizCheckInfo.ZipCode + vbCrLf
    tmp = tmp + "addr (주소) : " + BizCheckInfo.addr + vbCrLf
    tmp = tmp + "addrDetail (상세주소) : " + BizCheckInfo.addrDetail + vbCrLf
    tmp = tmp + "enAddr (영문주소) : " + BizCheckInfo.enAddr + vbCrLf
    tmp = tmp + "bizClass (업종) : " + BizCheckInfo.bizClass + vbCrLf
    tmp = tmp + "bizType (업태) : " + BizCheckInfo.bizType + vbCrLf
    tmp = tmp + "result (결과코드) : " + CStr(BizCheckInfo.result) + vbCrLf
    tmp = tmp + "resultMessage (결과메시지) : " + BizCheckInfo.resultMessage + vbCrLf
    tmp = tmp + "closeDownTaxType (사업자과세유형) : " + CStr(BizCheckInfo.closeDownTaxType) + vbCrLf
    tmp = tmp + "closeDownTaxTypeDate (과세유형전환일자):" + BizCheckInfo.closeDownTaxTypeDate + vbCrLf
    tmp = tmp + "closeDownState (휴폐업상태) : " + CStr(BizCheckInfo.closeDownState) + vbCrLf
    tmp = tmp + "closeDownStateDate (휴폐업일자) : " + BizCheckInfo.closeDownStateDate

    MsgBox tmp, , "기업정보조회"
End Sub

4. 결과 확인

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