Q&A
- 사업자등록번호 오류 검증방법
안녕하세요? 한가지 궁금한것이 있습니다.
사업자등록번호 오류검증을 하고 싶은데...
<사업자등록번호 체크방법>
A B C - D E - F G H I J
1 2 2 - 8 1 - 1 8 5 7 0
XY := I * 5 // 7 * 5 = 35
XY := 35
X := 3
Y := 5
MN := (X + Y + A + D + G) // (3 + 5 + 1 + 8 + 8)
+ ((B + E + H) * 3) // + ((2 + 1 + 5) * 3)
+ ((C + F) * 7) // + ((2 + 1) * 7) = 70
MN := 70
M := 7
N := 0
10에서 N값을 뺀후 10으로 나눈 값의 나머지가
J(사업자등록번호의 마지막자리) 와 같으면 정확한 사업자 등록번호
(IF J = ((10 - N) mod 10) THEN .....TRUE....;)
위와 같이 어느분이 알려주셨는데... 이것이 맞나요?
실제로 프로그램에서 검증해서 에러라고 해서 국세청에서 조회하니
정상으로 나오는데... 좀 가르쳐 주세요~
사업자등록번호 오류검증을 하고 싶은데...
<사업자등록번호 체크방법>
A B C - D E - F G H I J
1 2 2 - 8 1 - 1 8 5 7 0
XY := I * 5 // 7 * 5 = 35
XY := 35
X := 3
Y := 5
MN := (X + Y + A + D + G) // (3 + 5 + 1 + 8 + 8)
+ ((B + E + H) * 3) // + ((2 + 1 + 5) * 3)
+ ((C + F) * 7) // + ((2 + 1) * 7) = 70
MN := 70
M := 7
N := 0
10에서 N값을 뺀후 10으로 나눈 값의 나머지가
J(사업자등록번호의 마지막자리) 와 같으면 정확한 사업자 등록번호
(IF J = ((10 - N) mod 10) THEN .....TRUE....;)
위와 같이 어느분이 알려주셨는데... 이것이 맞나요?
실제로 프로그램에서 검증해서 에러라고 해서 국세청에서 조회하니
정상으로 나오는데... 좀 가르쳐 주세요~
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 정규성
- •
- 2004.03.11 21:13
- 1 COMMENTS
- /
- 0 LIKES
-
너구리•2004.03.13 01:41아웃 조인은 한쪽 방향으로 밖에 안됩니다.오라클에서는 아마...ㅡ,.ㅡ;; 뒤에 붙는 004 005 006 이...
-
- 안복환
- •
- •
- 2004.03.11 20:57
- 1 COMMENTS
- /
- 20 LIKES
안녕하세요? 한가지 궁금한것이 있습니다. 사업자등록번호 오류검증을 하고 싶은데... <사업자등록번호 체크방법> A B C - D E - F G H I J 1 2 2 - 8 1 - 1 8 5 7 0 XY := I * 5 // 7 * 5 = 35 XY := 35 X := 3 Y := 5 MN := (X + Y + A ...-
김진용•2004.03.11 22:44function IsValidIndustryNo(IndustryNo : String) : Boolean; const Weig...
-
- 이상우
- •
- 2004.03.11 20:09
- 1 COMMENTS
- /
- 0 LIKES
-
장태원•2004.03.12 18:10제목과 질문이 다르군요. 하여간. 제목의 답으로는 OLE 를 통해 연결하는 방법이 있을거고, 본문의 ...
-
- hiya
- •
- 2004.03.11 20:03
- 1 COMMENTS
- /
- 0 LIKES
-
hiya•2004.03.11 23:42퀵리포트 컴포넌트중 QRTextFilter1, QRCSVFilter1,QRHTMLFilter1등을 이용하면 확장자를 TXT, CSV, HTML...
-
- 양동식
- •
- 2004.03.11 18:24
- 1 COMMENTS
- /
- 0 LIKES
-
남양원•2004.03.12 02:07type 선언에서 StdCall ==> cdecl 로 바꿔서 해보세요... c로 짠 dll 사용시 그렇게 한다고 하네여.....
-
- 유영곤
- 2004.03.11 17:17
- 0 COMMENTS
- /
- 0 LIKES
-
- 윤상현
- 2004.03.11 06:23
- 0 COMMENTS
- /
- 0 LIKES
-
- 엄문용
- •
- 2004.03.11 02:03
- 2 COMMENTS
- /
- 0 LIKES
-
장태원•2004.03.11 02:38var I,SelLength : integer; begin If key=#13 then ...
-
엄문용•2004.03.11 18:40감사합니다.. 그런데 문제가 한가지더 ... ^^: 다른것이 아니고 이동은 되는데 이동된 상태 (자식폼.memo)...
-
- 김상영
- •
- 2004.03.11 00:52
- 1 COMMENTS
- /
- 0 LIKES
-
손희석•2004.03.11 01:00컴포넌트(Component)메뉴의 Install Package를 실행하시고 Add하시고 c:\program Files\Borland\Delphi7...
-
- 이상대
- 2004.03.11 00:04
- 0 COMMENTS
- /
- 0 LIKES
-
- 왕초보
- •
- 2004.03.10 19:57
- •
- 2 COMMENTS
- /
- 0 LIKES
-
최용일•2004.03.10 21:12안녕하세요. 최용일입니다. 서버쪽에서 쓰시는 인디서버(TIdTCPServer)는 항상 OnExecute를 가지고 있어...
-
왕초보•2004.03.10 22:52정말 감사합니다. 데모 소스에는 말씀하신게 없어서 되는 줄 알았는데 님께서 하라는 데로 했더니 바로 되...
-
- 윤상현
- •
- 2004.03.10 18:54
- 1 COMMENTS
- /
- 0 LIKES
-
장태원•2004.03.10 20:24API 에 Getfilesize 도 있던데.
-
- 델맥
- •
- 2004.03.10 18:13
- 2 COMMENTS
- /
- 0 LIKES
-
장태원•2004.03.11 02:51TObjectList 에서 사용가능한 객체로는 포인터는 안될듯 하며, TObject 계열의 객체만 ...
-
이은주•2009.11.13 07:56포인터를 쓰려면 TList 를 써야 하지 않나요 ? TObjectList 는 객체를 위주로 넣는 것으로 알고 있습니다.
-
- 휴초보
- •
- 2004.03.10 09:18
- 2 COMMENTS
- /
- 0 LIKES
-
너구리•2004.03.10 22:33쿼리로만은 해결 못합니다. 첫번째 부분에서 부터 걸리는군요.. Select 절은 고정되어있어야 하는데....
-
박수영•2004.03.10 17:32하시는 질문의 내용이 정확히 파악이 잘 안되는디... select a, count(b) cnt from Tablename group by...
-
- 김대훈
- •
- 2004.03.10 03:28
- 1 COMMENTS
- /
- 0 LIKES
-
돌아버려•2004.03.10 22:29아주 아주 아주 간단하게 Frame 형태로 하나 만들어봤습니다. (아주 아주 아주 간단한 예제입니다. 눈치...
-
- 홍재훈
- •
- 2004.03.10 03:20
- 2 COMMENTS
- /
- 0 LIKES
-
연기훈•2004.03.10 18:28DBISAM 이란 컴포넌트가 있습니다. C++builder, delphi 버전별로 다 나와있고요. 일반 DB 사용하는 것...
-
홍재훈•2004.03.16 02:15
-
- 박태용
- 2004.03.10 03:08
- 0 COMMENTS
- /
- 0 LIKES
-
- 최희
- •
- 2004.03.10 02:40
- 2 COMMENTS
- /
- 0 LIKES
-
다크엔젤•2004.04.29 02:24========================= 늦은 감이 있네요... Oracle Package에 Procedure를 선언하시고... Pa...
-
장태원•2004.03.10 20:27패키지는 선언문인데..그걸 실행한다니요..-_-
-
- 김재순
- •
- 2004.03.10 02:11
- 1 COMMENTS
- /
- 0 LIKES
-
장태원•2004.03.11 02:40컴퍼넌트들은 존재할것입니다. package 에서 직접 깔아 주셔야 합니다. 아마도. bpl 만 깔아 주심 될듯한...
-
- 맑은물
- •
- 2004.03.10 01:18
- 1 COMMENTS
- /
- 0 LIKES
-
장태원•2004.03.10 20:16procedure TForm1.CheckListBox1MouseDown(Sender: TObject; Button: TMouseButton; Shift: T...
function IsValidIndustryNo(IndustryNo : String) : Boolean;
const
Weights = '13713713';
var
Count,WeightValue : Integer;
begin
Result := False;
if Length(IndustryNo) = 10 then
begin
WeightValue := (Ord(IndustryNo[9])-48) * 5;
WeightValue := WeightValue + (WeightValue div 10);
for Count := 1 to 8 do
WeightValue := WeightValue + (Ord(IndustryNo[Count])-48) * (Ord(Weights[Count])-48);
if ((WeightValue mod 10) = 0) then
Result := (0 = (Ord(IndustryNo[10])-48))
else Result := ((10-(WeightValue mod 10)) = (Ord(IndustryNo[10])-48));
end;
end;
이함수를 사용하세요