PayNow_EInvoice串接文件

Size: px

Start display at page:

Download "PayNow_EInvoice串接文件"

笼鞍支
4 years ago
Views:

1 PayNow_EInvoice 串接文件 V1.0.4 (2014/04/15) 網站連結 : 正式 : 測試 : Web 參考網址 : 正式 : 測試 : 編碼格式 :big5 1

2 1. 開立發票取得發票號碼... 3 範例 ( 發票號碼取得 ) 發票明細資料上傳... 4 範例 ( 發票明細資料上傳 ) 發票資訊上傳... 5 範例 ( 發票資訊上傳 ) 發票折讓取得可用折讓單號... 7 範例 ( 折讓單號碼取得 ) 折讓明細資料上傳... 8 範例 ( 折讓明細資料上傳 ) 折讓資訊上傳範例 ( 折讓資訊上傳 ) 發票及折讓作廢範例 ( 發票作廢 ) 範例 ( 折讓單作廢 ) 附件一 (TripleDESEncode 加密方法 ) 範例一 :#VB.NET TripleDES 加密範例

3 1. 開立發票 1.1 取得發票號碼呼叫函式名稱 :GetInvoiceNumber 參數名稱描述型態長度必須備註傳送 mem_cid 商家帳號 string 10 Y 開立發票之商家統編 Year 取得發票年份 string 4 Y Ex:2014 period 消費者統編 string 1 Y 0~5 (0:1~2 月 1:3~4 月 2:5~6 月 3:7~8 月回應 4:9~10 月 5:11~12 月 ) 回覆字串 string 發票號碼 ; 開頭若為 (F_) 則為錯誤訊息範例 ( 發票號碼取得 ) 本系統以 asp.net 撰寫, 僅提供 asp.net 範例參考 Dim period,invoicenoas String Dim MonthStr As String = Now.Month.ToString Select Case MonthStr Case "1", "2" period = "0" Case "3", "4" period = "1" Case "5", "6" period = "2" Case "7", "8" period = "3" Case "9", "10" period = "4" Case "11", "12" period = "5" End Select InvoiceNo = EInvoice.GetInvoiceNumber(ViewState("mem_cid"), Now.Year, period) If InvoiceNo.Substring(0, 2) = "F_" Then Throw New Exception(InvoiceNo.Substring(2,InvoiceNo.length-2)) 3

4 1.2 發票明細資料上傳呼叫函式名稱 :UploadInvoice_Body 參數名稱描述型態長度必須備註傳送 kmapingcode 發票號碼 string 10 Y 欲開立的對應發票號碼 Description 商品描述 string 200 Y 各品項商品描述 Amount 小計 number Y 品項總價 Quantity 數量 number Y 品項數量 UnitPrice 單價 number Y 品項單價 mem_cid 商家帳號 string 10 Y 開立發票之商家統編 orderno 商家自訂編號 string 50 Y 回應 (Object) Obj_Invoice_body 各屬性.SequenceNumber 該發票明細序號 string.kmapingcode 發票號碼 string.description 商品描述 string.amount 小計 number.quantity 數量 number.unitprice 單價 number.mem_cid 商家帳號 string.orderno 回覆訊息 string.returnstatus 是否成功回傳 boolean True : 成功 ;False : 失敗.ErrorMsg 錯誤訊息 string 範例 ( 發票明細資料上傳 ) 本系統以 asp.net 撰寫, 僅提供 asp.net 範例參考 Dim ObjInvoiceBody As New Obj_Invoice_body ObjInvoiceBody = EInvoice.UploadInvoice_Body(InvoiceNo, Description, Amount, Quantity, UnitPrice, mem_cid, orderno) If ObjInvoiceBody.ReturnStatus = False Then Throw New Exception(ObjInvoiceBody.ErrorMsg) 4

5 1.3 發票資訊上傳呼叫函式名稱 :UploadInvoice 參數名稱描述型態長度必須備註傳送 mem_cid 商家統編 string 10 Y 開立發票之商家統編 mem_pw 商家密碼 string Y 請以 TripleDES 加密傳送 ( 附 1 ) InvNo 發票號碼 string 10 Y BuyerId 消費者統編 string 10 N 三聯式發票請填寫 BuyerName 消費者姓名 string 10 Y 財稅要求必填參數 BuyerAdd 消費者地址 string 100 N 需寄送之發票請填寫, 三聯式請自行決定 BuyerPhoneNo 消費者手機 string 10 N 需寄送之發票請填寫, 三聯式請自行決定 Buyer 消費者 string 100 N 需寄送之發票請填寫, 三聯式請自行決定 TotalAmount 交易總金額 string 6 Y OrderNo 商家訂單編號 string 20 Y OrderInfo 消費內容 string 100 Y Send 是否寄送發票 number 2 Y 0: 否 ;1: 是 CarrierType 載具類別 string Y 目前無作用請空字串帶入 CarrierId1 載具明碼 string Y 目前無作用請空字串帶入 CarrierId2 載具隱碼 string Y 目前無作用請空字串帶入 NPOBAN 捐贈對象 string Y 目前無作用請空字串帶入回應 (Object) Obj_Invoice 各屬性.InvoiceNumber 發票號碼 string.invoicedate 發票日期 string.invoicetime 發票時間 string.identifier 消費者統編 string 三聯式.Name 消費者姓名 string.address 消費者地址 string.customernumber 消費者手機 string.kinvoice 消費者 string.randomnumber 亂數碼 string 4 碼.Description 交易內容 string.amount 總金額 string.mem_cid 商家統編 string.rtmsg 回覆訊息 string.batchno 批次處理代碼 string 5

6 .ErrorMsg 錯誤訊息 string.returnstr 成功失敗 string S: 成功 ;F: 失敗.ReturnStatus 是否成功回傳 boolean True : 成功 ;False : 失敗範例 ( 發票資訊上傳 ) 本系統以 asp.net 撰寫, 僅提供 asp.net 範例參考 Dim ObjInvoice As New Obj_Invoice ' 宣告發票資訊物件 Dim ClsTriple As New Cls_TripleDESEncode(" ") ' 加密組件 Dim mem_pw As String ' 會員密碼 Try mem_pw = ClsEtopm.querymember(ViewState("mem_cid")).Rows(0)("mem_password") mem_pw = ClsTriple.sTripleDESEncoding(mem_pw) ' 會員密碼加密 '********* 發票資訊上傳 ******** ObjInvoice = EInvoice.UploadInvoice(ViewState("mem_cid"), mem_pw, InvoiceNo, ViewState("InvoiceBuyer"), ViewState("receivername"),ViewState("InvoiceBuyerAdd"),ViewState("receivertel"), ViewState("receiver "), ViewState("JiLiPrice"), ViewState("orderno"), ViewState("InvoiceSend"), "", "", "", "") '****************************** Catch ex As Exception ObjInvoice.ErrorMsg = ex.message ObjInvoice.ReturnStr = "F" ObjInvoice.ReturnStatus = False End Try If ObjInvoice.ReturnStr = "S" AndAlso ObjInvoice.ReturnStatus = True Then ' 成功取得資訊且發票開立成功 Response.Write("<input type='hidden' name='invoicenumber' Value='" & Server.UrlEncode(ObjInvoice.InvoiceNumber) & "'>") Response.Write("<input type='hidden' name='batchnumber' Value='" & Server.UrlEncode(ObjInvoice.batchNo) & "'>") Else Response.Write("<input type='hidden' name='invoicenumber' Value='" & Server.UrlEncode(ObjInvoice.ErrorMsg) & "'>") Response.Write("<input type='hidden' name='batchnumber' Value='" & Server.UrlEncode(ObjInvoice.batchNo) & "'>") 6

7 2. 發票折讓 2.1 取得可用折讓單號呼叫函式名稱 :GetAllowanceNumber 參數名稱描述型態長度必須備註傳送 mem_cid 商家帳號 string 10 Y 開立發票之商家統編 InvoiceNo 原發票號碼 string 10 Y 回應回覆字串 string 折讓單號碼 ; 開頭若為 (F_) 則為錯誤訊息範例 ( 折讓單號碼取得 ) 本系統以 asp.net 撰寫, 僅提供 asp.net 範例參考 Dim AllowanceNo As String = EInvoice.GetAllowanceNumber(mem_cid, InvoiceNo) If AllowanceNo.Substring(0, 2) = "F_" Then Throw New Exception(InvoiceNo.Substring(2,AllowanceNo.length-2)) 7

8 2.2 折讓明細資料上傳呼叫函式名稱 :UploadAllowance_Body 參數名稱描述型態長度必須備註傳送 AllowanceNumber 折讓單號碼 string 14 Y 自定義 ex: 發票號碼 + 序號 (001,002,003...) OriginalSequenceNumber 原發票明細序號 string 10 Y OriginalInvoiceNumber 原發票號碼 string 10 Y OriginalDescription 原發票明細描述 string 200 Y OriginalInvoiceDate 原發票日期 string 10 Y Amount 折讓明細小計 number N Quantity 折讓品項數量 number N UnitPrice 折讓品項單價 number N mem_cid 會員帳號 string 10 N Obj_Allowance_Body 各屬性回應 (Object).AllowanceNumber 商家訂單編號 string.originalsequencenumber 原明細序號 string.originalinvoicenumber 原發票號碼 string 三聯式.OriginalDescription 原明細描述 string.originalinvoicedate 原發票時間 string.amount 折讓明細小計 string.quantity 折讓品項數量 string.unitprice 折讓品項單價 string.mem_cid 會員帳號 string.allowancesequencenumber 折讓單明細序號 string.tax 營業稅額 string.errormsg 錯誤訊息 string.returnstatus 是否成功回傳 boolean True : 成功 ;False : 失敗 8

9 範例 ( 折讓明細資料上傳 ) 本系統以 asp.net 撰寫, 僅提供 asp.net 範例參考 Dim ObjAllowanceBody As New Obj_Allowance_body ObjAllowanceBody = EInvoice.UploadAllowance_Body(AllowanceNo,OriginalSequenceNumber,OriginalInvoiceNumber, OriginalDescription, OriginalInvoiceDate, Amount,Quantity,UnitPrice, mem_cid) If ObjAllowanceBody.ReturnStatus = False Then Throw New Exception(ObjAllowanceBody.ErrorMsg) 9

10 2.3 折讓資訊上傳呼叫函式名稱 :UploadAllowance 參數名稱描述型態長度必須備註傳送 mem_cid 商家統編 string 10 Y 開立發票之商家統編 AllowanceNumber invoiceno 原發票號碼 string 10 Y mem_pw 商家密碼 string Y 請以 TripleDES 加密傳送 ( 附 1 ) BuyerId 消費者統編 string 10 N 空白將以原發票資訊為主 BuyerName 消費者姓名 string 10 N 空白將以原發票資訊為主 BuyerAdd 消費者地址 string 100 N 空白將以原發票資訊為主 BuyerTel 消費者電話 string 10 N BuyerPhoneNo 消費者手機 string 10 N 空白將以原發票資訊為主 BuyerFax 消費者傳真 string 10 N Buyer 消費者 string 100 N 空白將以原發票資訊為主 BuyerPersonInCharge 買方負責人 string 10 N Obj_Allowance 各屬性回應 (Object).AllowanceNumber 商家訂單編號 string.allowancedate 折讓日期 string.buyer_identifier 買方統編 string 三聯式.Buyer_Name 買方名稱 string.buyer_address 買方地址 string.buyer_personincharge 買方負責人 string.buyer_telephonenumber 買方電話 string.buyer_facsimilenumber 買方傳真 string.buyer_ address 買方 string.buyer_customernumber 買方手機 string.totalamount 折讓總金額 string.invoicedate 原發票日期 string.invoicenumber 原發票號碼 string.mem_cid 商家統編 string.rtmsg 回覆訊息 string.batchno 批次處理代碼 string.errormsg 錯誤訊息 string.returnstr 成功失敗 string S: 成功 ;F: 失敗.ReturnStatus 是否成功回傳 boolean True : 成功 ;False : 失敗 10

11 範例 ( 折讓資訊上傳 ) 本系統以 asp.net 撰寫, 故僅提供 asp.net 範例參考 Dim ObjAllowance As Obj_Allowance ' 宣告發票折讓物件 Dim ClsTriple As New Cls_TripleDESEncode(" ") ' 加密組件 ( 加密方式見附一 ) Dim mem_pw As String ' 會員密碼 mem_pw = ClsEtopm.querymember(ViewState("mem_cid")).Rows(0)("mem_password") ' 取得會員密碼 mem_pw = ClsTriple.sTripleDESEncoding(mem_pw) ' 會員密碼加密 ( 加密方式見附一 ) '********* 折讓資訊上傳 ******** ObjAllowance = EInvoice.UploadAllowance(mem_cid, AllowanceNo, invoiceno, mem_pw, BuyerId, BuyerName, BuyerAdd, BuyerTel, BuyerPhoneNo, BuyerFax, Buyer , BuyerPersonInCharge) '****************************** If ObjAllowance.ReturnStr = "S" AndAlso ObjAllowance.ReturnStatus = True Then ' 成功取得資訊且發票折讓成功 Response.Write("<input type='hidden' name='invoicenumber' Value='" & Server.UrlEncode(ObjAllowance.InvoiceNumber) & "'>") ' 發票號碼 11

12 3. 發票及折讓作廢 3.1 發票作廢呼叫函式名稱 :CancelInvoice 參數名稱描述型態長度必須備註傳送 (Object) ObjInvoice 發票群組 ObjInvoice Y 回應 (Object) Obj_Invoice 各屬性.InvoiceNumber 發票號碼 string.invoicedate 發票日期 string.invoicetime 發票時間 string.identifier 消費者統編 string 三聯式.Name 消費者姓名 string.address 消費者地址 string.customernumber 消費者手機 string.kinvoice 消費者 string.randomnumber 亂數碼 string 4 碼.Description 交易內容 string.amount 總金額 string.mem_cid 商家統編 string.rtmsg 回覆訊息 string.batchno 批次處理代碼 string.errormsg 錯誤訊息 string 範例 ( 發票作廢 ) 本系統以 asp.net 撰寫, 僅提供 asp.net 範例參考 ObjInvoice = EInvoice.Sel_Invoice(mem_cid, InvoiceNo) ObjInvoice = EInvoice.CancelInvoice(ObjInvoice) If ObjInvoice.ReturnStr = "S" Then ScriptManager.RegisterClientScriptBlock(Me, Me.GetType(), "alert", "alert(' 發票作廢成功 ')", True) Else ScriptManager.RegisterClientScriptBlock(Me, Me.GetType(), "alert", "alert(' 發票作廢失敗 :" & ObjInvoice.ErrorMsg & "')", True) 12

13 3.2 折讓單作廢呼叫函式名稱 :GetAllowanceNumber 參數名稱描述型態長度必須備註傳送 ObjAllowance 折讓單群組 ObjInvoice Y 回應 Obj_Allowance 各屬性.AllowanceNumber 商家訂單編號 string.allowancedate 折讓日期 string.buyer_identifier 買方統編 string 三聯式.Buyer_Name 買方名稱 string.buyer_address 買方地址 string.buyer_personincharge 買方負責人 string.buyer_telephonenumber 買方電話 string.buyer_facsimilenumber 買方傳真 string.buyer_ address 買方 string.buyer_customernumber 買方手機 string.totalamount 折讓總金額 string.invoicedate 原發票日期 string.invoicenumber 原發票號碼 string.mem_cid 商家統編 string.rtmsg 回覆訊息 string.batchno 批次處理代碼 string.errormsg 錯誤訊息 string.returnstr 成功失敗 string S: 成功 ;F: 失敗.ReturnStatus 是否成功回傳 boolean True : 成功 ;False : 失敗範例 ( 折讓單作廢 ) 本系統以 asp.net 撰寫, 僅提供 asp.net 範例參考 ObjAllowance= EInvoice.Sel_Allowance(mem_cid, AllowanceNo) ObjAllowance= EInvoice.CancelAllowance(ObjAllowance) If ObjAllowance.ReturnStr = "S" Then ScriptManager.RegisterClientScriptBlock(Me, Me.GetType(), "alert", "alert(' 折讓作廢成功 ')", True) Else ScriptManager.RegisterClientScriptBlock(Me, Me.GetType(), "alert", "alert(' 折讓作廢失敗 :" & ObjAllowance.ErrorMsg & "')", True) 13

14 附件一 (TripleDESEncode 加密方法 ) 加密前的樣式 /12 加密成 PTKLMe29fUC33H8drlRUJhYkLRp9vXy6 公鑰為假設商家的交易密碼為 1234 私鑰 (Password) 就為 ( 密碼不足 8 碼靠左右補 0, 超過 8 碼取前八碼 ) 然後前面補上 , 後面補上 , 總共 24 碼字元用 utf-8 範例一 :#VB.NET TripleDES 加密範例 Private Function TripleDESEncoding(ByVal p_strinfomation As String) As Byte() Dim Password As String = " " Dim data As Byte() = Encoding.UTF8.GetBytes(p_strInfomation) Dim tdes As TripleDES = TripleDES.Create() tdes.iv = Encoding.UTF8.GetBytes(" ") tdes.key = Encoding.UTF8.GetBytes(" " & Password & "123456") tdes.mode = CipherMode.ECB tdes.padding = PaddingMode.Zeros Dim ict As ICryptoTransform = tdes.createencryptor() Dim enc As Byte() = ict.transformfinalblock(data, 0, data.length) Return enc End Function ps. 請注意加密過後的內容若中間有出現空白請以 "+" 取代 14

投影片 1

投影片 1 資料庫管理程式 ( 補充教材 -Part2) 使用 ADO.NET 連結資料庫 ( 自行撰寫程式碼以實現新增刪除修改等功能 ) Private Sub InsertButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles InsertButton.Click ' 宣告相關的 Connection