[VBA] 팝빌 전자세금계산서 API 연동 가이드

안녕하세요. 고객의 가치를 연결하는 비즈니스 파트너 링크허브 입니다.

본 포스팅에서는 VBA 개발환경에서 고객사들이 팝빌 전자세금계산서 API SDK를 쉽고 빠르게 이용할 수 있도록, 예시를 통하여 연동 설정 방법을 안내드리겠습니다. 신규 프로젝트 생성하고 SDK 추가 후, "즉시발행(RegisIssue) API"를 구현하는 순서로 진행하겠습니다. 

팝빌 SDK는 Microsoft Office Access V2002 이상 모든 개발환경을 지원하며, 통신을 위한 별도 프로그램 설치가 필요하지 않습니다. 

"팝빌은 링크허브에서 자체 개발하고 직접 운영하는 전자세금계산서 서비스 Brand Name 입니다."

아래 설명은 MS Office Access V2016 기준으로 작성되어 있어, 이용 중인 개발환경과 차이가 있을 수 있는 점 감안해 주시기 바랍니다.

1. 프로젝트 생성

---

Microsoft Office Access 프로그램을 실행 후 전자세금계산서 SDK 추가를 위한 새 데스크톱 데이터베이스를 생성합니다.

 - 위치 : C:\Tutorial

 - 파일이름 : Taxinvoice_Tutorial.accdb

2. 전자세금계산서 SDK 추가

---

① 링크허브 연동자료실에서 VBA 전자세금계산서 SDK를 다운로드 후 압축을 해제합니다. 

[참고] VBA 전자세금계산서 SDK 다운로드 - https://www.linkhub.co.kr/Downloads/Taxinvoice/100?PageNum=1 

② 다운로드 받은 전자세금계산서 SDK Access 파일을 열어준후, Visual Basic 메뉴를 클릭 합니다.

③ 클래스 모듈 폴더안의 모든 .cls 파일들을 내보내기 합니다. (위치 ▶ C:\Tutorial\PopbillSDK)

④ 새 프로젝트(Taxinvoice_Tutorial)에 ③에서 내보내기한 .cls 파일을 가져옵니다.

⑤ Form_폼1 파일에 팝빌 API 호출을 위한 인증정보를 할당하고 세금계산서 서비스 모듈을 생성합니다.

'링크허브에서 발급받은 링크아이디, 비밀키
Private Const LinkID = "LINKID"
Private Const SecretKey = "SwWxqU+0TExEXy/9TVjKPExI2VTUMMSLZtJf3Ed8q3I="

'세금계산서 서비스 모듈 생성
Private TaxinvoiceService As New PBTIService

▶ 링크허브에서 발급받은 고객사 인증정보로 링크아이디(LinkID)와 비밀키(SecretKey) 값을 변경하시기 바랍니다.

⑥ Form_폼1 파일의 Form_Load 이벤트가 발생할때 세금계산서 서비스 모듈을 초기화 합니다.

Private Sub Form_Load()
 '모듈 초기화
 TaxinvoiceService.Initialize LinkID, SecretKey
    
 '연동환경 설정값 (True-개발용, False-상업용)
 TaxinvoiceService.IsTest = True
End Sub

API 호출 시점에 인증서버로부터 발급받은 토큰을 이용해 사용자를 인증하며, 발급된 토큰은 30분의 유효시간 내에서 재사용이 가능합니다. 만약, 세금계산서 서비스 객체를 지역변수로 선언하거나 API 호출시 마다 모듈을 초기화 시키면 API를 호출할 때마다 토큰을 재발급 받는 과정을 거처야 하기 때문에 성능 저하 및 리소스 낭비의 요인이 될 수 있습니다.

3. API 구현

---

① RegistIssue API를 호출하기 위해 폼1에 버튼(btnRegistIssue)을 생성합니다.

② btnRegistIssue Click 이벤트에 세금계산서를 발행하기 위해 RegistIssue API를 작성합니다.

Private Sub btnRegistIssue_Click()

  '팝빌 연동회원 사업자 번호
  Dim corpNum As String
  corpNum = "1234567890"

  '세금계산서 구성 객체 생성
  Dim Taxinvoice As New PBTaxinvoice

  '=========================================================================
  '                            세금계산서 정보
  '=========================================================================

  '작성일자
  Taxinvoice.writeDate = "20181002"

  '발행형태
  Taxinvoice.issueType = "정발행"

  '과금방향
  Taxinvoice.chargeDirection = "정과금"

  '영수/청구
  Taxinvoice.purposeType = "영수"

  '발행시점
  Taxinvoice.issueTiming = "직접발행"

  '과세형태
  Taxinvoice.taxType = "과세"

  '공급가액 합계
  Taxinvoice.supplyCostTotal = "100000"

  '세액 합계
  Taxinvoice.taxTotal = "10000"

  '합계금액, 공급가액 합계 + 세액합계
  Taxinvoice.totalAmount = "110000"

  '=========================================================================
  '                              공급자 정보
  '=========================================================================
      
  '공급자 사업자번호
  Taxinvoice.invoicerCorpNum = corpNum

  '공급자 상호
  Taxinvoice.invoicerCorpName = "공급자 상호"

  '공급자 문서관리번호
  Taxinvoice.invoicerMgtKey = "20181015-100"

  '공급자 대표자 성명
  Taxinvoice.invoicerCEOName = "공급자 대표자 성명"

  '공급자 주소
  Taxinvoice.invoicerAddr = "공급자 주소"

  '공급자 종목
  Taxinvoice.invoicerBizClass = "공급자 종목"

  '공급자 업태
  Taxinvoice.invoicerBizType = "공급자 업태"

  '공급자 담당자명
  Taxinvoice.invoicerContactName = "공급자 담당자명"

  '공급자 담당자 메일주소
  Taxinvoice.invoicerEmail = "test@invoicer.com"


  '=========================================================================
  '                            공급받는자 정보
  '=========================================================================
      
  '공급받는자 구분
  Taxinvoice.invoiceeType = "사업자"

  '공급받는자 사업자번호
  Taxinvoice.invoiceeCorpNum = "8888888888"

  '[필수] 공급자받는자 상호
  Taxinvoice.invoiceeCorpName = "공급받는자 상호"

  '[필수] 공급받는자 대표자 성명
  Taxinvoice.invoiceeCEOName = "공급받는자 대표자 성명"

  '공급받는자 주소
  Taxinvoice.invoiceeAddr = "공급받는자 주소"

  '공급받는자 종목
  Taxinvoice.invoiceeBizClass = "공급받는자 업종"

  '공급받는자 업태
  Taxinvoice.invoiceeBizType = "공급받는자 업태"

  '공급받는자 담당자명
  Taxinvoice.invoiceeContactName1 = "공급받는자 담당자명"

  '공급받는자 담당자 메일주소
  Taxinvoice.invoiceeEmail1 = "test@invoicee.com"    

  Dim Response As PBResponse

  Set Response = TaxinvoiceService.RegistIssue(corpNum, Taxinvoice)

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

  MsgBox ("응답코드 : " + CStr(Response.code) + vbCrLf + "응답메시지 : " + Response.message)

End Sub

※ 전자세금계산서 발행(전자서명)을 위해서는 공급자의 공인인증서가 팝빌 개발용(https://test.popbill.com) 사이트에 등록되어 있어야 합니다.

[참고] 전자세금계산서 발행을 위한 공인인증서 등록방법 안내 - https://linkhub.tistory.com/95

③ 전자세금계산서 발행 처리결과를 응답 메시지를 통해 확인합니다.   

[참고] "권한정보의 서명이 일치하지 않습니다." 오류메시지 해결방법 안내 - https://linkhub.tistory.com/98

④ 발행된 전자세금계산서는 팝빌 개발용(test.popbill.com) 사이트에서 확인할 수 있습니다.

[참고] 팝빌 연동 개발을 위한 테스트베드(개발용) 안내 - https://linkhub.tistory.com/91

팝빌에서 제공하는 다양한 API는 동일한 컨셉으로 개발되어 있어, 하나의 서비스를 이용한 경험이 있으면 다른 서비스들도 유사한 방법으로 빠르게 연동이 가능하니 많은 이용 부탁드립니다. 

지금까지 VBA 개발환경에서 전자세금계산서 API를 연동하는 방법에 대해 안내해 드렸는데, 내용에 대한 추가적인 문의가 있으면 기술지원센터로 편하게 연락 주시기 바랍니다.

---

고객사의 편의를 위하여 이메일, 전화 등 다양한 채널을 열어놓고 있으니 언제든지 연락 주시기 바랍니다.

기술지원센터 / T. 1600-9854 / E. code@linkhub.co.kr