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

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

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

팝빌 SDK는 Visual Basic v6.0 개발환경을 지원하며, 통신을 위한 별도 프로그램 설치가 필요하지 않습니다. 

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

다음은 개발환경은 Visual Basic v6.0 기준으로 작성되어 있어, 이용 중인 개발환경과 차이가 있을 수 있는 점 감안해 주시기 바랍니다.

1. 프로젝트 생성

---

Microsoft Visual Basic 6.0 프로그램을 실행 후 전자세금계산서 SDK 추가를 위한 새 프로젝트에서 "표준 EXE"를 생성합니다.

 - 위치 : C:\Tutorial

 - 프로젝트(Project1) 이름 : Project1 

 - 폼(Form) 이름 : Form1

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

---

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

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

② "C:\Tutorial\" 경로에 "PopbillSDK" 명으로 새 폴더를 생성하고, SDK에서 전자세금계산서 연동에 필요한 Linkhub, PopbillTaxinvoice 두개의 폴더를 복사합니다.  

③ Project1에 'PopbillSDK\Linkhub',  'PopbillSDK\PopbillTaxinvoice' 폴더 안에 있는 *.cls 파일을 모두 추가합니다.

파일 추가는 파일을 하나씩만 추가 할 수 있기 때문에 drag & drop으로 모든 파일을 한번에 추가 시키면 편리합니다.

Project1에 Linkhub, PopbillTaxinvoice 폴더의 *.cls 파일 추가되었음을 확인할 수 있습니다.

④ Project1 폼 Form1 (코드)파일에 팝빌 API 호출을 위한 인증정보를 할당하고 세금계산서 서비스 모듈을 생성합니다.

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

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

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

⑤ Form1의 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를 호출하기 위해 Form1에 버튼(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는 동일한 컨셉으로 개발되어 있어, 하나의 서비스를 이용한 경험이 있으면 다른 서비스들도 유사한 방법으로 빠르게 연동이 가능하니 많은 이용 부탁드립니다. 

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

---

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

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