[Visual Basic] 팝빌 휴폐업조회 SDK 튜토리얼

Visual Basic 환경에서 팝빌 Visual Basic SDK를 적용하여 휴폐업 대량조회(CheckCorpNums) 함수를 구현하는 예시입니다.

1. Popbill 클래스모듈 추가

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

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

팝빌 Visual Basic SDK Example

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

연동신청시 발급받은 인증정보로 링크아이디(LinkID)와 비밀키(SecretKey) 값을 변경하시기 바랍니다.

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

Option Explicit

' 링크아이디, 연동신청시 발급받은 정보로 수정
Private Const linkID = "TESTER"

' 비밀키, 연동신청시 발급받은 정보로 수정
Private Const SecretKey = "SwWxqU+0TErBXy/9TVjIPEnI0VTUMMSQZtJf3Ed8q3I="

' 휴폐업조회 서비스 클래스 변수 선언
Private ClosedownService As New PBCDService

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

Private Sub Form_Load()
  ' 휴폐업조회 서비스 클래스 초기화
  ClosedownService.Initialize linkID, SecretKey

  ' 연동환경 설정값 True(개발용), False(상업용)
  ClosedownService.IsTest = True

  ' 인증토큰 IP제한기능 사용여부, True(권장)
  ClosedownService.IPRestrictOnOff = True
End Sub

2. 휴폐업 대량조회(CheckCorpNums) 함수 구현

① Form에 버튼을 생성하고 버튼의 Click Event 코드에 휴폐업 대량조회 함수(CheckCorpNums)를 작성합니다.

Private Sub btnCheckCorpNums_Click()
    Dim resultList As Collection
    Dim CorpNumList As New Collection
    Dim tmp As String
    Dim state As PBCorpState
    Dim corpNum As String

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

    '조회할 사업자번호 배열 (최대 1000건)
    CorpNumList.Add "1234567890"
    CorpNumList.Add "679-87-00433"
    CorpNumList.Add "123-12-12312"

    Set resultList = ClosedownService.CheckCorpNums(corpNum, CorpNumList)

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

    tmp = tmp + "* state (휴폐업상태) : null-알수없음, 0-등록되지 않은 사업자번호, 1-사업중, 2-폐업, 3-휴업" + vbCrLf
    tmp = tmp + "* type (과세유형 전환일자) : null-알수없음, 1-일반과세자, 2-면세과세자, 3-간이과세자, 4-비영리법인, 국가기관" + vbCrLf + vbCrLf

    For Each state In resultList
        tmp = tmp + "corpNum (사업자번호) : " + state.corpNum + vbCrLf
        tmp = tmp + "state (휴폐업상태) : " + state.state + vbCrLf
        tmp = tmp + "type (사업자 과세유형) : " + state.ctype + vbCrLf
        tmp = tmp + "typeDate (과세유형 전환일자) : " + state.typeDate + vbCrLf
        tmp = tmp + "stateDate (휴폐업일자) : " + state.stateDate + vbCrLf
        tmp = tmp + "checkDate (국세청 확인일자) : " + state.checkDate + vbCrLf + vbCrLf
    Next

    MsgBox tmp, , "휴폐업조회 - 대량"
End Sub

② 버튼 클릭으로 함수호출 결과를 확인합니다.

팝빌 Visual Basic SDK 휴폐업조회 Example

기술지원센터

팝빌 기술지원은 유선, 메일, 원격지원 등 다양한 채널을 통해 제공됩니다.

T. 1600-9854   E. code@linkhub.co.kr

연동문의