CntanzModel

Date

20220118

Target

C_029

Title

KGinicis Mobile결제시 가상계좌 잡기

Contents

결과 P_STATUS=00&P_AUTH_DT=20220118093022&P_AUTH_NO=&P_RMESG1=성공적으로 처리 하였습니다.&P_RMESG2=&P_TID=INIMX_VBNKMOItanzkor20220118093022234306&P_FN_CD1=&P_AMT=7000&P_TYPE=VBANK&P_UNAME=Lee&P_MID=MOItanzkor&P_OID=1446&P_NOTI=barreinabag@icloud.com&P_NEXT_URL=https://www.tanz.co.kr/PG/KGinicisMobile/mx_rnext.asp&P_MNAME=&P_NOTEURL=https://www.tanz.co.kr/PG/KGinicisMobile/mx_rnoti.asp&P_VACT_NUM=01444664353506&P_VACT_DATE=20220128&P_VACT_TIME=235900&P_VACT_NAME=（주）탄쯔&P_VACT_BANK_CODE=11&P_FN_NM=NH농협은행&P_CSHR_CODE=0000&P_CSHR_MSG=정상처리되었습니다.&P_CSHR_AMT=7000&P_CSHR_SUP_AMT=6364&P_CSHR_TAX=636&P_CSHR_SRVC_AMT=0&P_CSHR_TYPE=0&P_CSHR_DT=20220118093022&P_CSHR_AUTH_NO= 과정 안녕하세요. 문지수님, 모바일 거래시 가상계좌값을 가져오려면 어떻게 해야하나요? asp로 작업중입니다. P_VACT_NUM, P_FN_NM, P_VACT_NAME을 어디에서 가져올 수 있는지 힌트 좀 부탁드립니다. 탄쯔 이병일 안녕하세요 이니시스 기술지원입니다. 모바일 모듈 역시 웹표준과 같이 인증/승인 2단계의 프로세스가 있습니다. 모바일 가상계좌에서 P_VACT_NUM, P_FN_NM, P_VACT_NAME 파라미터는 인증단계에서는 응답되지 않으며, 최종 승인단계에서 응답되는 파라미터인 점 참고 부탁드립니다. (개발가이드 STEP 4. 승인결과 상세) 감사합니다. 문지수 님, 빠른 응답에 감사드립니다. mx_rnext.asp 승인결과로 받는 strData를 확인한 결과 가상계좌가 정상적으로 확인되었습니다. 모바일로 가상계좌 건 잘 해결되었습니다. 감사합니다. 즐거운 하루 되시기 바랍니다. 탄쯔 이병일 설명 어제 저녁에 모바일 결제 asp 파일들을 살펴보았다. 클래식 asp에서 mssql을 연결하는 것이 첫 번 째 관건이었다. Set objDB = Server.CreateObject("ADODB.Connection") Dim strConn strConn = "Provider=SQLOLEDB; Data Source=아이피주소네자리,1433; Initial Catalog=데이터베이스명; User ID=사용자명; Password=비번" objDB.open strConn 'SQL = "UPDATE ShippingDetails SET pgtoken ='"& P_VACT_NUM &"' WHERE ShippingDetailsId = '" & P_OID & "'" 'SQL = "UPDATE ShippingDetails SET pgtoken ='Hello World mx_rnext' WHERE ShippingDetailsId = 1440 " SQL = "insert into TestTable(Contents) values('"&strData&"')" 'strData TestTable에 넣기 objDB.Execute SQL objDB.Close Set objDB = Nothing 이상이 연결 방식이다. 변수를 SQL에 넣어주는 방식이 지금과 달라 이전에 사용한 기억을 떠올리며 구글링으로 답을 찾았다. 그 다음은 승인결과를 받는 mx_rnext.asp에서 strData를 받아 저장한 결과 가장 상단과 같은 결과 값을 받았다. 성공! 이제 그 값을 나누어 원하는 값을 추출해 pgtoken으로 보내면 된다. [pgtoken으로 보낸 값] Set objDB = Server.CreateObject("ADODB.Connection") Dim strConn strConn = "Provider=SQLOLEDB; Data Source= 서버아이피네자리,1433; Initial Catalog=데이터베이스명; User ID=아이디; Password=패스워드" objDB.open strConn 'Dim vBankInfo = "[입금계좌번호]"& P_VACT_NUM ' &"[은행]"& P_FN_NM &"[예금주]"& P_VACT_NAME &"[금액]"&P_AMT SQL = "UPDATE ShippingDetails SET pgtoken ='[가상계좌번호]" & P_VACT_NUM &"[은행명]"& P_FN_NM &"[예금주]"& P_VACT_NAME &"' WHERE ShippingDetailsId = '" & P_OID & "'" 'SQL = "UPDATE ShippingDetails SET pgtoken ='Hello World mx_rnext' WHERE ShippingDetailsId = 1440 " objDB.Execute SQL objDB.Close Set objDB = Nothing