튜토리얼
Delphi 개발환경에서 팝빌 SDK를 추가하여 전자세금계산서 즉시 발행 (RegistIssue) 함수를 구현하는 예시입니다.
1. POPBiLL SDK 추가
팝빌 연동자료실에서 Delphi SDK 예제코드 다운로드 후 압축을 해제합니다.
압축해제한 SDK 예제코드에서 Linkhub/ Popbill/ PopbillTaxinvoice/ 각 폴더의 pas파일 3개를 프로젝트 유닛으로 추가합니다.
2. POPBiLL SDK 설정
아래 코드를 참조하여 Form 파일을 수정합니다.
- ① use 참조유닛 추가
- ② 인증정보 변수와 서비스 클래스를 선언
- ③ FormCreate 프로시저에 전자세금계산서 서비스 클래스 인스턴스 생성 및 초기화
unit Example;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, TypInfo, shellapi, ExtCtrls, Grids,
Popbill, PopbillTaxinvoice;
const
// 링크아이디
LinkID = 'TESTER';
// 비밀키
SecretKey = 'SwWxqU+0TErBXy/9TVjIPEnI0VTUMMSQZtJf3Ed8q3I=';
// 생략
// ...
// ...
var
// 전자세금계산서 서비스 객체 선언
taxinvoiceService : TTaxinvoiceService;
// 생략
// ...
// ...
procedure TfrmExample.FormCreate(Sender: TObject);
begin
// 전자세금계산서 서비스 객체 초기화
taxinvoiceService := TTaxinvoiceService.Create(LinkID,SecretKey);
// 연동환경 설정, true-테스트, false-운영(Production), (기본값:false)
taxinvoiceService.IsTest := true;
// 인증토큰 IP 검증 설정, true-사용, false-미사용, (기본값:true)
taxinvoiceService.IPRestrictOnOff := true;
// 예외 처리 설정, true-사용, false-미사용, (기본값:true)
taxinvoiceService.IsThrowException := true;
// 로컬시스템 시간 사용여부, true-사용, false-미사용, (기본값:false)
taxinvoiceService.UseLocalTimeYN := false;
end;3. RegistIssue 기능 구현
Form에 버튼을 생성하고 버튼의 Click Event 코드에 전자세금계산서 즉시 발행 (RegistIssue) 함수를 추가합니다.
procedure TfrmExample.btnRegistIssueClick(Sender: TObject);
var
taxinvoice : TTaxinvoice;
response : TIssueResponse;
writeSpecification : Boolean;
forceIssue : Boolean;
memo : String;
emailSubject : String;
dealInvoiceMgtKey : String;
corpNum : String;
userID : String;
mgtKey : String;
begin
// 팝빌회원 사업자번호
corpNum := '1234567890';
// 팝빌회원 아이디
userID := 'testkorea';
// 세금계산서 문서번호
mgtKey := '20220110-001';
// 세금계산서 객체 생성
taxinvoice := TTaxinvoice.Create;
// [필수] 작성일자, 표시형식 (yyyyMMdd)
taxinvoice.writeDate := '20220110';
// [필수] 발행형태, [정발행, 역발행, 위수탁] 중 기재
taxinvoice.issueType := '정발행';
// [필수] [정과금, 역과금] 중 기재, '역과금' 은 역발행 프로세스에서만 이용가능
// 정과금(공급자 과금), 역과금(공급받는자 과금)
taxinvoice.chargeDirection := '정과금';
// [필수] [영수, 청구, 없음] 중 기재
taxinvoice.purposeType := '영수';
// [필수] 과세형태, [과세, 영세, 면세] 중 기재
taxinvoice.taxType :='과세';
{**********************************************************************}
{ 공급자 정보 }
{**********************************************************************}
// [필수] 공급자 사업자번호, 하이픈('-') 제외 10자리
taxinvoice.invoicerCorpNum := corpNum;
// 공급자 종사업장 식별번호, 필요시 숫자 4자리 기재
taxinvoice.invoicerTaxRegID := '';
// [필수] 공급자 상호
taxinvoice.invoicerCorpName := '공급자 상호';
// [필수] 공급자 문서번호, 1~24자리 (숫자, 영문, '-', '_') 조합으로
// 사업자 별로 중복되지 않도록 구성
taxinvoice.invoicerMgtKey := mgtKey;
// [필수] 공급자 대표자 성명
taxinvoice.invoicerCEOName := '공급자 대표자 성명';
// 공급자 주소
taxinvoice.invoicerAddr := '공급자 주소';
// 공급자 종목
taxinvoice.invoicerBizClass := '공급자 업종';
// 공급자 업태
taxinvoice.invoicerBizType := '공급자 업태,업태2';
// 공급자 담당자명
taxinvoice.invoicerContactName := '공급자 담당자명';
// 공급자 담당자 메일주소
// 팝빌 개발환경에서 테스트하는 경우에도 안내 메일이 전송되므로,
// 실제 거래처의 메일주소가 기재되지 않도록 주의
taxinvoice.invoicerEmail := 'test@test.com';
// 공급자 담당자 연락처
taxinvoice.invoicerTEL := '070-4304-2991';
// 공급자 담당자 휴대폰 번호
taxinvoice.invoicerHP := '010-0000-2222';
// 정발행시 알림문자 전송여부 (정발행에서만 사용가능)
// - 공급받는자 주)담당자 휴대폰번호(invoiceeHP1)로 전송
// - 전송시 포인트가 차감되며 전송실패하는 경우 포인트 환불처리
taxinvoice.invoicerSMSSendYN := false;
{**********************************************************************}
{ 공급받는자 정보 }
{**********************************************************************}
// [필수] 공급받는자 구분, [사업자, 개인, 외국인] 중 기재
taxinvoice.invoiceeType := '사업자';
// [필수] 공급받는자 사업자번호, 하이픈('-') 제외 10자리
taxinvoice.invoiceeCorpNum := '8888888888';
// 공급받는자 종사업장 식별번호, 필요시 숫자 4자리 기재
taxinvoice.invoiceeTaxRegID := '';
// [필수] 공급받는자 상호
taxinvoice.invoiceeCorpName := '공급받는자 상호';
// [역발행시 필수] 공급받는자 문서번호, 1~24자리 (숫자, 영문, '-', '_') 조합으로
// 사업자 별로 중복되지 않도록 구성
taxinvoice.invoiceeMgtKey := '';
// [필수] 공급받는자 대표자 성명
taxinvoice.invoiceeCEOName := '공급받는자 대표자 성명';
// 공급받는자 주소
taxinvoice.invoiceeAddr := '공급받는자 주소';
// 공급받는자 종목
taxinvoice.invoiceeBizClass := '공급받는자 업종';
// 공급받는자 업태
taxinvoice.invoiceeBizType := '공급받는자 업태';
// 공급받는자 담당자명
taxinvoice.invoiceeContactName1 := '공급받는자 담당자명';
// 공급받는자 메일주소
taxinvoice.invoiceeEmail1 := 'test@test.com';
// 공급받는자 연락처
taxinvoice.invoiceeTEL1 := '070-4304-2991';
// 공급받는자 휴대폰번호
taxinvoice.invoiceeHP1 := '010-0000-222';
{**********************************************************************}
{ 세금계산서 정보 }
{**********************************************************************}
// [필수] 공급가액 합계
taxinvoice.supplyCostTotal := '200000';
// [필수] 세액 합계
taxinvoice.taxTotal := '20000';
// [필수] 합계금액, (공급가액 합계 + 세액합계)
taxinvoice.totalAmount := '220000';
// 기재 상 '일련번호' 항목
taxinvoice.serialNum := '';
// 기재 상 '권' 항목, 최대값 32767
// 미기재시 taxinvoice.kwon := '';
taxinvoice.kwon := '1';
// 기재 상 '호' 항목, 최대값 32767
// 미기재시 taxinovice.ho := '';
taxinvoice.ho := '1';
// 기재 상 '현금' 항목
taxinvoice.cash := '';
// 기재 상 '수표' 항목
taxinvoice.chkBill := '';
// 기재 상 '어음' 항목
taxinvoice.note := '';
// 기재 상 '외상미수금' 항목
taxinvoice.credit := '';
// 기재 상 '비고' 항목
taxinvoice.remark1 := '비고1';
taxinvoice.remark2 := '비고2';
taxinvoice.remark3 := '비고3';
// 사업자등록증 이미지 첨부여부
taxinvoice.businessLicenseYN := false;
// 통장사본 이미지 첨부여부
taxinvoice.bankBookYN := false;
{**********************************************************************}
{ 수정세금계산서 정보 (수정세금계산서 작성시에만 기재 }
{ 수정세금계산서 관련 정보는 연동매뉴얼 또는 개발가이드 링크 참조 }
{ [참고] 수정세금계산서 작성방법 안내 - http://blog.linkhubcorp.com/650 }
{**********************************************************************}
// [수정세금계산서 작성시 필수] 수정사유코드, 수정사유별로 1~6중 선택기재
taxinvoice.modifyCode := '';
// [수정세금계산서 작성시 필수] 당초승인번호 기재
taxinvoice.orgNTSConfirmNum := '';
{**********************************************************************}
{ 상세항목(품목) 정보 }
{**********************************************************************}
// 상세항목 0~99개 까지 작성가능.
// 일련번호 (serialNum) 는 1부터 99까지 순차기재.
// SetLength로 초기화 한후 기재.
setLength(taxinvoice.detailList, 2);
taxinvoice.detailList[0] := TTaxinvoiceDetail.Create;
taxinvoice.detailList[0].serialNum := 1; //일련번호
taxinvoice.detailList[0].purchaseDT := '20220110'; //거래일자
taxinvoice.detailList[0].itemName := '품목명1'; //품목명
taxinvoice.detailList[0].spec := '규격'; //규격
taxinvoice.detailList[0].qty := '1'; //수량
taxinvoice.detailList[0].unitCost := '100000'; //단가
taxinvoice.detailList[0].supplyCost := '100000'; //공급가액
taxinvoice.detailList[0].tax := '10000'; //세액
taxinvoice.detailList[0].remark := '비고'; //비고
taxinvoice.detailList[1] := TTaxinvoiceDetail.Create;
taxinvoice.detailList[1].serialNum := 2; //일련번호
taxinvoice.detailList[1].purchaseDT := '20220110'; //거래일자
taxinvoice.detailList[1].itemName := '품목명1'; //품목명
taxinvoice.detailList[1].spec := '규격'; //규격
taxinvoice.detailList[1].qty := '1'; //수량
taxinvoice.detailList[1].unitCost := '100000'; //단가
taxinvoice.detailList[1].supplyCost := '100000'; //공급가액
taxinvoice.detailList[1].tax := '10000'; //세액
taxinvoice.detailList[1].remark := '비고'; //비고
{**********************************************************************}
{ 추가담당자 정보 }
{ 세금계산서 발행안내메일을 수신받아야 하는 담당자가 다수인 경우 추가로}
{ 담당자 정보를 기재하여 발행안내메일을 전송받을수 있습니다. }
{**********************************************************************}
// 추가담당자 배열초기화, 최대 5개까지 기재 가능
SetLength(taxinvoice.addContactList,2);
taxinvoice.addContactList[0] := TTaxinvoiceAddContact.Create;
taxinvoice.addContactList[0].serialNum := 1; // 일련번호, 1부터 순차기재
taxinvoice.addContactList[0].email := 'test2@invoicee.com'; // 메일주소
taxinvoice.addContactList[0].contactName := '추가담당자명'; // 담당자명
taxinvoice.addContactList[1] := TTaxinvoiceAddContact.Create;
taxinvoice.addContactList[1].serialNum := 2; //일련번호, 1부터 순차기재
taxinvoice.addContactList[1].email := 'test3@invoicee.com'; // 메일주소
taxinvoice.addContactList[1].contactName := '추가담당자명2'; // 담당자명
// 거래명세서 동시작성 여부
writeSpecification := false;
// 거래명세서 동시작성시 명세서 문서번호, 1~24자리 영문,숫자,'-','_' 조합으로 구성
dealInvoiceMgtKey := '';
// 지연발행 강제여부(forceIssue)
// 발행마감일이 지난 세금계산서를 발행하는 경우, 가산세가 부과될 수 있습니다.
// 가산세가 부과되더라도 발행을 해야하는 경우에는 forceIssue의 값을
// true로 선언하여 발행(Issue)를 호출하시면 됩니다.
forceIssue := false;
// 메모
memo := '즉시 발행 메모';
// 발행 안내메일 제목, 미기재시 기본제목으로 전송
emailSubject := '';
try
response := taxinvoiceService.RegistIssue(corpNum, taxinvoice,
writeSpecification, forceIssue, memo, emailSubject,
dealInvoiceMgtKey);
taxinvoice.Free;
except
on le : EPopbillException do begin
taxinvoice.Free;
ShowMessage('응답코드 : '+ IntToStr(le.code) + #10#13 +'응답메시지 : '+ le.Message);
Exit;
end;
end;
ShowMessage('응답코드 : '+ IntToStr(response.code) + #10#13 +'응답메시지 : '+ response.Message + #10#13 +'국세청승인번호 : '+ response.ntsConfirmNum);
end;4. 결과 확인
함수 호출 반환 결과는 아래와 같습니다.
- 성공 : Response code 숫자 1 반환
- 실패 : PopbillException 음의 정수 8자리 숫자값 오류코드와 오류메시지 반환 [오류코드]