튜토리얼

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

1. POPBiLL SDK 추가

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

② 압축해제한 기업정보조회 서비스 Access 예제파일에 포함된 클래스 모듈을 기존 프로젝트의 클래스 모듈로 추가합니다.

2. POPBiLL SDK 설정

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

① Form API Key, 클래스 객체 선언

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-운영(Production), (기본값:False)
  BIzInfoCheckService.IsTest = True

  ' 인증토큰 IP 검증 설정, True-사용, False-미사용, (기본값:True)
  BIzInfoCheckService.IPRestrictOnOff = True

  ' 로컬시스템 시간 사용여부, True-사용, False-미사용, (기본값: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 code 로 숫자 1 반환
- 실패 : PopbillException 으로 음의 정수 8자리 숫자값 오류코드와 오류메시지 반환 [오류코드]