[VBA] 팝빌 홈택스 현금영수증 조회 SDK 튜토리얼

MS Access 환경에서 팝빌 VBA SDK를 적용하여 홈택스 현금영수증 수집요청(RequestJob API) 함수를 구현하는 예시입니다.

1. Popbill 클래스모듈 추가

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

② 압축해제한 홈택스 현금영수증 조회 서비스 Access 예제파일에 포함된 클래스 모듈을 기존 프로젝트의 클래스 모듈로 추가합니다.

팝빌 VBA SDK Example

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

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

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


Option Explicit

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

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

' 홈택스 현금영수증 서비스 클래스 변수 선언
Private htCashbillService As New PBHTCashbillService

Form_Load() 서브모듈


Private Sub Form_Load()
  ' 홈택스 현금영수증 클래스 초기화
  htCashbillService.Initialize linkID, SecretKey

  ' 연동환경 설정값 True(테스트용), False(상업용)
  htCashbillService.IsTest = True
End Sub

2. 홈택스 현금영수증 수집요청(RequestJob API) 함수 구현

① Form에 버튼을 생성하고 버튼의 Click Event 코드에 홈택스 현금영수증 수집요청 함수(RequestJob) 호출 코드를 작성합니다.


Private Sub btnRequestJob_Click()
    Dim jobID As String
    Dim SDate As String
    Dim EDate As String
    Dim cbType As KeyType
    Dim corpNum As String

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

    '현금영수증 유형, SELL-매출, BUY-매입, TURSTEE-위수탁
    cbType = BUY

    '시작일자, 표시형식(yyyyMMdd)
    SDate = "20190801"

    '종료일자, 표시형식(yyyyMMdd)
    EDate = "20191231"

    jobID = htCashbillService.RequestJob(corpNum, cbType, SDate, EDate)

    If jobID = "" Then
        MsgBox ("응답코드 : " + CStr(htCashbillService.LastErrCode) + vbCrLf + "응답메시지 : " + htCashbillService.LastErrMessage)
        Exit Sub
    End If

    MsgBox "jobID(작업아이디) : " + jobID + vbCrLf

End Sub

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

팝빌 VBA SDK 홈택스 현금영수증 Example

기술지원센터

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

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

연동문의