사업자번호구분 코드

사업자등록번호체계

Reg_classifier<-function(original_tbl, colname="사업자번호") {
  Reg<-eval(parse(text=paste0("original_tbl$",colname)))
  Reg2<-rep(0,length(Reg))

  tmp<-as.integer(substr(Reg,4,5))
  tmp[which(nchar(Reg)!= 10)]<-00
  tmp[which(is.na(Reg))]<-00

  Reg2[which(tmp>=01 & tmp<=79)]<-"개인과세사업자"
  Reg2[which(tmp>=90 & tmp<=99)]<-"개인면세사업자"
  Reg2[which(tmp==89)]<-"개인사업자_종교단체"
  Reg2[which(tmp==80)]<-"개인사업자_APT다단계"
  Reg2[which(tmp %in% c(81,86,87,88))]<-"법인본점"
  Reg2[which(tmp==82)]<-"법인비영리"
  Reg2[which(tmp==83)]<-"국가지자체"
  Reg2[which(tmp==84)]<-"법인외국"
  Reg2[which(tmp==85)]<-"법인지점"
  Reg2[which(nchar(Reg)!= 10)]<-"ERR"
  Reg2[which(is.na(Reg))]<-"ERR"

  Reg2
}

CASE
    WHEN LENGTH([사업자번호]) <> 10 THEN 'ERR'
	WHEN [사업자번호] IS NULL THEN 'ERR'
	WHEN substr([사업자번호],4,2) = '00' THEN 'ERR'
    WHEN substr([사업자번호],4,2) <= '79' THEN '개인과세사업자'
	WHEN substr([사업자번호],4,2) >= '90' THEN '개인면세사업자'
	WHEN substr([사업자번호],4,2) IN ('81','86','87','88') THEN '법인본점'
	WHEN substr([사업자번호],4,2) IN ('82') THEN '법인비영리'
	WHEN substr([사업자번호],4,2) IN ('83') THEN '국가지자체'
	WHEN substr([사업자번호],4,2) IN ('84') THEN '법인외국'
	WHEN substr([사업자번호],4,2) IN ('85') THEN '법인지점'
	WHEN substr([사업자번호],4,2) IN ('89') THEN '개인사업자_종교단체'
	WHEN substr([사업자번호],4,2) IN ('80') THEN '개인사업자_APT다단계'
	ELSE 'ERR'
END