银联的bankall_gmc银联接口开发demo

1、接口文档

1.1 无gmc界面接口 (dll/ocx)

dll调用(posinf.dll)函数名为：intbankall (char * request,char *response)，其中第一个参数为传入参数。

ocx调用(umsocx.ocx)：trans()，传入参数为：bankrequest

请求参数格式说明如下：

内容

格式

长度

描述

POS机号

ANS

8

不足右补空格

POS员工号

ANS

8

不足右补空格

交易类型标志

N

2

'00'－消费'01'－撤消

'02'－退货'03'－查余额

'04'－重打印'05'－签到

'06'－结算'07'－重打结算单

'08'－全民付(总)   '55'－换班统计

72'－'78'：全民付类交易

'10'－积分消费'11'－积分撤消

'12'－分期消费'13'－分期撤销

'21'－预授权'23'－预授权完成请求

'24'－预授权完成通知'25'－预授权撤销

'26'－预授权完成撤销'27'－离线结算

'28'－结算调整

金额

N

12

信用卡消费金额，char(12)，没有小数点"."，精确到分，最后两位为小数位，不足左补0。

原交易日期

N

8

yyyymmdd格式，退货时用，其他交易空格

原交易参考号

N

12

退货时用，其他交易空格

原凭证号

N

6

撤消时用，其他交易空格

LRC校验

ANS

3

3位随机数字

全民付(行业信息)

N

100

行业信息(非全民付类交易无需送此项)(全民付类不送此项，则为键盘输入)

dll调用(posinf.dll)函数名为：intbankall (char * request,char *response)，其中第二个参数为应答参数。

ocx调用函数名为：trans()，传入参数为：BankResponse

应答参数格式说明如下：

内容

格式

长度

描   述

返回码

N

2

00 表示成功，其它表示失败

银行行号

N

4

发卡行代码

卡号

N

20

卡号(屏蔽部分，保留前6后4)

凭证号

N

6

金额

N

12

错误说明

ANS

40

中文解释

商户号

N

15

终端号

N

8

批次号

N

6

交易日期

N

4

交易时间

N

6

交易参考号

N

12

授权号

N

6

清算日期

N

4

LRC校验

ANS

3

三位数字，应该和请求一致

1.2 符号定义

数据元类型如下所列：

00001—— A 字母向左靠，右部多余部分填空格。

00002—— AN 字母和/或数字，左靠，右部多余部分填空格。

00003—— ANS 字母、数字和/或特殊符号，左靠，右部多余部分填空格。

00004—— N 数值，右靠，首位有效数字前充零。若表示金额，则最右二位为角分。

00005—— MM 月。

00006—— DD 日。

00007—— hh 时。

00008—— mm 分。

00009—— ss 秒。

注意：本接口文档中信息交换数据，均为定长，注意按照要求补足空格。

2、代码实现如下：

//外部函数声明FUNCTION long bankall(string as_request, ref string as_response) LIBRARY "posinf.dll"

//调用stringls_content,ls_sellway,ls_money,ls_OldDatestringls_posid,ls_casher,ls_rand

dec{2} ldec_needpay, ldec_pay,ldec_consume

dec{2} ldec_cnt,ldec_payedstringls_cardid,ls_voucher,ls_consumestringls_info,ls_refno,ls_OldRefno,ls_OldVoucher//'00'－消费'01'－撤消'02'－退货'03'－查余额'04'－重打印'05'－签到'06'－结算'07'－重打结算单

ls_sellway=left(sle_type.text,2)if pos('00/01/02/03/04/05/06/07',ls_sellway)=0 then

messagebox('提示','请录入正确的交易类型！')

sle_type.setfocus()

sle_type.selecttext(1,len(sle_type.text))return

end if

///交易金额if ls_sellway='00' or ls_sellway='01' or ls_sellway='02' then

//'00'－消费'01'－撤消'02'－退货

ldec_needpay=abs(dec(sle_payamt.text))if ldec_needpay=0 or (not IsNumber(sle_payamt.text)) thenmessagebox('提示','请录入金额！')

sle_payamt.setfocus()

sle_payamt.selecttext(1,len(sle_payamt.text))return

end if

elseldec_needpay=0

end if

//'02'－退货//原交易日期、原交易参考号

if ls_sellway='02' then

ls_OldDate=trim(sle_date.text)if isnull(ls_OldDate) or ls_OldDate='' or len(ls_OldDate)<>8 then

messagebox('提示','请录入原交易日期(8位)，格式为yyyymmdd！')

sle_date.setfocus()

sle_date.selecttext(1,len(sle_date.text))return

end ifls_OldRefno=trim(sle_refno.text)if isnull(ls_OldRefno) or ls_OldRefno='' or len(ls_OldRefno)<>12 then

messagebox('提示','请录入原交易参考号(12位)！')

sle_refno.setfocus()

sle_refno.selecttext(1,len(sle_date.text))return

end if

elsels_OldDate=space(8)

ls_OldRefno=space(12)end if

//'01'－撤消//原凭证号

if ls_sellway='01' then

ls_OldVoucher=trim(sle_voucher.text)if isnull(ls_OldVoucher) or ls_OldVoucher='' or len(ls_OldVoucher)<>6 then

messagebox('提示','请录入原凭证号(6位)！')

sle_voucher.setfocus()

sle_voucher.selecttext(1,len(sle_date.text))return

end if

elsels_OldVoucher=space(6)end ifls_posid='99'

ls_casher='1001'

ls_money=string(round(ldec_needpay,2)*100,'000000000000')

ls_rand=string(rand(999),'000') ///3位随机数字

//传给银行卡刷卡系统的交易请求文件：//POS机号(8位,不足右补空格)+POS员工号(8位,不足右补空格)+交易类型标志(2位)+金额(12位,不足左补0)+

//原交易日期(8位，yyyymmdd格式，退货时用，其他交易空格)//原交易参考号(12位,退货时用，其他交易空格)//原凭证号(6位,撤消时用，其他交易空格)//备用(000000)+LRC(3位随机数字)

ls_content=ls_posid+space(8 - len(ls_posid)) +ls_casher+space(8 - len(ls_casher)) +ls_sellway+ls_money+&

+ls_OldDate+ls_OldRefno+ls_OldVoucher+'000000'+ls_rand

ls_info=space(300)

bankall(ls_content,ls_info)if left(ls_info,2)='00' then //响应码2位, 00 表示成功，其它表示失败

ls_cardid =mid(ls_info,7,20) //卡号20位

ls_voucher=mid(ls_info,27,6) //凭证号6位

ls_consume=mid(ls_info,33,12) //金额12位

ls_refno=mid(ls_info,124,12) //交易参考号12

messagebox('提示',"交易成功，金额为"+string(dec(ls_consume)/100)+"，~r~n凭证号是："+ls_voucher+"，交易参考号是："+ls_refno)

elsemessagebox('提示',"交易失败，返回值："+left(ls_info,2)+"，失败原因："+mid(ls_info,45,40))

return

end if