[ASP] 팝빌 전자세금계산서 SDK 튜토리얼
Classic ASP 개발환경에서 팝빌 ASP SDK를 적용하여 전자세금계산서 즉시발행(RegistIssue API) 함수를 구현하는 예시입니다. 
1. Popbill SDK 추가
① 팝빌 연동자료실에서 ASP SDK 예제코드 다운로드 후 압축을 해제합니다.
② 압축해제한 SDK 예제코드에서 Popbill/ 폴더 전체를 웹사이트 폴더 Root Directory에 복사합니다.
③ 전자세금계산서 서비스 연동환경 설정을 위해 프로젝트 Root Directory에 common.asp 파일을 생성하고 아래의 코드를 참고하여 인증정보를 설정합니다.
연동신청시 발급받은 인증정보로 링크아이디(LinkID)와 비밀키(SecretKey) 값을 변경하시기 바랍니다.
<!--#include virtual="/Popbill/Popbill.asp"--%>
<!--#include virtual="/Popbill/TaxinvoiceService.asp"--%>
<%
'링크허브에서 발급받은 인증정보 링크아이디(LinkID), 비밀키(SecretKey) 입력
LinkID = "LINKID"
SecretKey = "SwWxqU+0TExEXy/9TVjKPExI2VTUMMSLZtJf3Ed8q3I="
' 세금계산서 서비스 모듈 생성
set m_TaxinvoiceService = new TaxinvoiceService
' 세금계산서 API 서비스 모듈 초기화
m_TaxinvoiceService.Initialize LinkID, SecretKey
' 연동환경 설정값, True - 개발용(테스트베드), False - 상업용(실서비스)
m_TaxinvoiceService.IsTest = True
%>
2. 전자세금계산서 즉시발행(RegistIssue API) 함수 구현
① 프로젝트에 함수 호출을 처리하는 "registIssue.asp" 파일을 생성하고, 아래의 코드를 참조하여 코드를 추가합니다.
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=euc-kr" />
<title>Popbill ASP Test.</title>
</head>
<!--#include file="common.asp"-->
<%
' 팝빌회원 사업자번호
testCorpNum = "1234567890"
' 거래명세서 동시작성여부
writeSpecificationYN = False
' 거래명세서 동시작성시, 거래명세서 관리번호
dealInvoiceMgtKey = ""
' 지연발행 강제여부
forceIssue = False
' 즉시발행 메모
memo = "즉시발행 메모"
' 발행 안내메일 제목
emailSubject = ""
' 팝빌회원 아이디
userID = "testkorea"
' 세금계산서 정보 객체 생성
Set newTaxinvoice = New Taxinvoice
' [필수] 작성일자, 날짜형식(yyyyMMdd)
newTaxinvoice.writeDate = "20190830"
' [필수] {정과금, 역과금} 중 기재, '역과금'은 역발행 프로세스에서만 이용가능
newTaxinvoice.chargeDirection = "정과금"
' [필수] 발행형태, {정발행, 역발행, 위수탁} 중 기재
newTaxinvoice.issueType = "정발행"
' [필수] {영수, 청구} 중 기재
newTaxinvoice.purposeType = "영수"
' [필수] 발행시점, {직접발행, 승인시자동발행}
' 승인시자동발행의 경우 발행예정 프로세스에서만 이용가능
newTaxinvoice.issueTiming = "직접발행"
' [필수] 과세형태, {과세, 영세, 면세} 중 기재
newTaxinvoice.taxType = "과세"
'**************************************************************
' 공급자 정보
'**************************************************************
'[필수] 공급자 사업자번호, '-' 제외 10자리
newTaxinvoice.invoicerCorpNum = "1234567890"
'[필수] 공급자 종사업자 식별번호. 필요시 숫자 4자리 기재
newTaxinvoice.invoicerTaxRegID = ""
'[필수] 공급자 상호
newTaxinvoice.invoicerCorpName = "공급자 상호"
'[필수] 공급자 문서관리번호, 1~24자리 (숫자, 영문, '-', '_') 조합으로
'사업자 별로 중복되지 않도록 구성
newTaxinvoice.invoicerMgtKey = "20190830-020"
'[필수] 공급자 대표자 성명
newTaxinvoice.invoicerCEOName = "공급자 대표자 성명"
' 공급자 주소
newTaxinvoice.invoicerAddr = "공급자 주소"
' 공급자 종목
newTaxinvoice.invoicerBizClass = "공급자 종목"
' 공급자 업태
newTaxinvoice.invoicerBizType = "공급자 업태,업태2"
' 공급자 담당자명
newTaxinvoice.invoicerContactName = "공급자 담당자명"
' 공급자 담당자 메일주소
newTaxinvoice.invoicerEmail = "test@test.com"
' 공급자 담당자 연락처
newTaxinvoice.invoicerTEL = "070-7070-0707"
' 공급자 담당자 휴대폰번호
newTaxinvoice.invoicerHP = "010-000-2222"
'정발행시 공급받는자에게 발행안내문자 전송여부
'- 안내문자 전송기능 이용시 포인트가 차감됩니다.
newTaxinvoice.invoicerSMSSendYN = False
'**************************************************************
' 공급받는자 정보
'**************************************************************
'[필수] 공급받는자 구분, [사업자, 개인, 외국인] 중 기재
newTaxinvoice.invoiceeType = "사업자"
'[필수] 공급받는자 사업자번호, '-' 제외 10자리
newTaxinvoice.invoiceeCorpNum = "8888888888"
'[필수] 공급받는자 종사업자 식별번호. 필요시 숫자 4자리 기재
newTaxinvoice.invoiceeTaxRegID = ""
'[필수] 공급자받는자 상호
newTaxinvoice.invoiceeCorpName = "공급받는자 상호"
'[역발행시 필수] 공급받는자 문서관리번호(역발행시 필수)
newTaxinvoice.invoiceeMgtKey = ""
'[필수] 공급받는자 대표자 성명
newTaxinvoice.invoiceeCEOName = "공급받는자 대표자 성명"
'공급받는자 주소
newTaxinvoice.invoiceeAddr = "공급받는자 주소"
'공급받는자 종목
newTaxinvoice.invoiceeBizClass = "공급받는자 종목"
'공급받는자 업태
newTaxinvoice.invoiceeBizType = "공급받는자 업태"
'공급받는자 담당자명
newTaxinvoice.invoiceeContactName1 = "공급받는자 담당자명"
'공급받는자 담당자 메일주소
newTaxinvoice.invoiceeEmail1 = "test@invoicee.com"
'공급받는자 연락처
newTaxinvoice.invoiceeTEL1 = "070-111-222"
'공급받는자 휴대폰번호
newTaxinvoice.invoiceeHP1 = "010-111-222"
'역발행시 공급자에게 발행안내문자 전송여부
newTaxinvoice.invoiceeSMSSendYN = False
'**************************************************************
' 세금계산서 정보
'**************************************************************
'[필수] 공급가액 합계
newTaxinvoice.supplyCostTotal = "100000"
'[필수] 세액 합계
newTaxinvoice.taxTotal = "10000"
'[필수] 합계금액, 공급가액 합계 + 세액합계
newTaxinvoice.totalAmount = "110000"
'기재 상 '일련번호' 항목
newTaxinvoice.serialNum = "123"
'기재 상 '권' 항목, 최대값 32767
newTaxinvoice.kwon = "1"
'기재 상 '호' 항목, 최대값 32767
newTaxinvoice.ho = "1"
'기재 상 '현금' 항목
newTaxinvoice.cash = ""
'기재 상 '수표' 항목
newTaxinvoice.chkBill = ""
'기재 상 '어음' 항목
newTaxinvoice.note = ""
'기재 상 '외상미수금' 항목
newTaxinvoice.credit = ""
'기재 상 '비고'항목
newTaxinvoice.remark1 = "비고1"
newTaxinvoice.remark2 = "비고2"
newTaxinvoice.remark3 = "비고3"
'사업자등록증 이미지 첨부여부
newTaxinvoice.businessLicenseYN = False
' 통장사본 이미지 첨부여부
newTaxinvoice.bankBookYN = False
'**************************************************************
' 수정세금계산서 정보 (수정세금계산서 작성시에만 기재
' - 수정세금계산서 관련 정보는 연동매뉴얼 또는 개발가이드 링크 참조
' - [참고] 수정세금계산서 작성방법 안내 - http://blog.linkhub.co.kr/650
'**************************************************************
' 수정사유코드, 수정사유에 따라 1~6중 선택기재
newTaxinvoice.modifyCode = ""
' 원본세금계산서의 ItemKey, 문서확인 (GetInfo API)의 응답결과(ItemKey 항목) 확인
newTaxinvoice.originalTaxinvoiceKey = ""
'**************************************************************
' 상세항목(품목) 정보
'**************************************************************
Set newDetail = New TaxinvoiceDetail
newDetail.serialNum = 1 '일련번호 1부터 순차 기재
newDetail.purchaseDT = "20190830" '거래일자 yyyyMMdd
newDetail.itemName = "품명1번"
newDetail.spec = "규격"
newDetail.qty = "1" '수량 ' 소숫점 2자리까지 문자열로 기재가능
newDetail.unitCost = "50000" ' 소숫점 2자리까지 문자열로 기재가능
newDetail.supplyCost = "50000"
newDetail.tax = "5000"
newDetail.remark = "비고"
newTaxinvoice.AddDetail newDetail
Set newDetail = New TaxinvoiceDetail
newDetail.serialNum = 2 '일련번호 1부터 순차 기재
newDetail.purchaseDT = "20190830" '거래일자 yyyyMMdd
newDetail.itemName = "품명2번"
newDetail.spec = "규격"
newDetail.qty = "1" '수량 ' 소숫점 2자리까지 문자열로 기재가능
newDetail.unitCost = "50000" ' 소숫점 2자리까지 문자열로 기재가능
newDetail.supplyCost = "50000"
newDetail.tax = "5000"
newDetail.remark = "비고"
newTaxinvoice.AddDetail newDetail
'**************************************************************
' 추가담당자 정보
' - 세금계산서 발행안내 메일을 수신받을 공급받는자 담당자가 다수인 경우
' 담당자 정보를 추가하여 발행안내메일을 다수에게 전송할 수 있습니다.
'**************************************************************
set newContact = New Contact
newContact.serialNum = 1
newContact.contactName = "담당자1 성명"
newContact.email = "test1@test.com"
newTaxinvoice.AddContact newContact
set newContact = New Contact
newContact.serialNum = 2
newContact.contactName = "담당자2 성명"
newContact.email = "test2@test.com"
newTaxinvoice.AddContact newContact
On Error Resume Next
Set Presponse = m_TaxinvoiceService.RegistIssue(testCorpNum, newTaxinvoice, writeSpecificationYN, _
dealInvoiceMgtKey, forceIssue, memo, emailSubject, userID)
If Err.Number <> 0 Then
code = Err.Number
message = Err.Description
ntsConfirmNum = ""
Err.Clears
Else
code = Presponse.code
message =Presponse.message
ntsConfirmNum = Presponse.ntsConfirmNum
End If
On Error GoTo 0
%>
<body>
<div id="content">
<p class="heading1">Response</p>
<br/>
<fieldset class="fieldset1">
<legend>세금계산서 즉시발행</legend>
<ul>
<li>응답코드 (Response.code) : <%=code%> </li>
<li>응답메시지 (Response.message) : <%=message%> </li>
<% If ntsConfirmNum <> "" Then %>
<li>국세청승인번호 (Response.ntsConfirmNum) : <%=ntsConfirmNum%> </li>
<% End If %>
</ul>
</fieldset>
</div>
</body>
</html>② 웹브라우저 페이지를 호출하여 함수호출 결과를 확인합니다.
