关于POS的各种外设处理（包括打印机、钱箱等）

xyqiqi 2005-03-15 03:58:42
现把POS的各种外设处理整理如下，可能还有许多不全或者代码不正确的地方，望大家补充且指证
POS的外设包括打印机、钱箱、顾显、卡、扫码枪和扫码平台。
一般的外设编程可以通过PB通过的串口编程，也有部分特殊的，可由厂家直接提供技术支持。
各种外设如果接的是COM，必须在打开的时候，让其初始化，一般卡可在刷卡的时候再初始化，刷卡结束后，再把COM口关闭。因为如果COM已被某一外设打开，另一外设将不可用，即COM口是独占的。
一、打印机
POS的外设包括打印机、钱箱、顾显、卡、扫码枪和扫码平台。
一般的外设编程可以通过PB通过的串口编程，也有部分特殊的，可由厂家直接提供技术支持。
各种外设如果接的是COM，必须在打开的时候，让其初始化，一般卡可在刷卡的时候再初始化，刷卡结束后，再把COM口关闭。因为如果COM已被某一外设打开，另一外设将不可用，即COM口是独占的。
一、打印机
申明
/*210D´串口打印*/
Function boolean OpenSerPort(int iPt) LIBRARY "prndll.dll" //打开串口
Function boolean ClosePort() LIBRARY "prndll.dll" //关闭串口
Function boolean SendPData(string pData,int iDataLen) LIBRARY "prndll.dll" //发送打印命令
Function boolean OpenPrnDrawer() LIBRARY "prndll.dll" //开钱箱
Function boolean TM210D_Init() LIBRARY "prndll.dll" //打印初始化串口
Function boolean TM210D_PrnCnEn(int iColor,string pData,int iDataLen) LIBRARY "prndll.dll" //向打印机从软字库（串口）
Function boolean OpenPalPort(int iPt) LIBRARY "prndll.dll" //´打开并口
Function boolean TM210PD_PrnCnEn(int iColor,string pData,int iDataLen) LIBRARY "prndll.dll" //向打印机从软字库（并口）
1、打印机初始化（可在OPEN事件中写）
gs_system_qt.ls_printtype：为打印机型号
OLE_print：为Microsoft Communication control控件（装VB6后，此控件可见）
gs_system_qt.ls_pagewidth：打印纸的宽度
ls_printstr：送入打印机的字符
//初始化串口打印机
choose case gs_system_qt.ls_printtype
case 'IBM Sure one 4614'
w_main.OLE_print.Object.RTSenable = true
w_main.OLE_print.Object.handshaking = 2
w_main.OLE_print.Object.CommPort = 3
w_main.OLE_print.Object.PortOpen = True
case 'TP POS2000'
choose case gs_system_qt.ls_printport
case 'COM1'
li_printport = 1
case 'COM2'
li_printport = 2
case 'COM3'
li_printport = 3
case 'COM4'
li_printport = 4
case 'COM5'
li_printport = 5
case 'COM6'
li_printport = 6
case else
li_printport = 1
end choose
if li_printport >=1 and li_printport <=6 then
w_main.OLE_print.Object.RTSenable = true
w_main.OLE_print.Object.handshaking = 2
w_main.OLE_print.Object.CommPort = li_printport
w_main.OLE_print.Object.PortOpen = True
end if
end choose
end if
//此处判断如果打印机不是“IBM Sure one 4614”，但是钱箱是“IBM Sure one 4614”的
if gs_system_qt.ls_printtype <> 'IBM Sure one 4614' then
if gs_system_qt.ls_moneyboxport = 'IBM Sure one 4614' then
w_main.OLE_print.Object.RTSenable = true
w_main.OLE_print.Object.handshaking = 2
w_main.OLE_print.Object.CommPort = 3
w_main.OLE_print.Object.PortOpen = True
end if
end if
...全文
1218 24 打赏 收藏 转发到动态 举报
写回复
用AI写文章
24 条回复
切换为时间正序
请发表友善的回复…
发表回复
NORTHCHERT 2005-08-20
  • 打赏
  • 举报
 回复
好贴,不过DLL文件是否全是硬件自带?
ribut9225 2005-07-04
  • 打赏
  • 举报
 回复
好贴
极实用。。。。
lzheng2001 2005-04-09
  • 打赏
  • 举报
 回复
好贴!
xiao_bai 2005-04-09
  • 打赏
  • 举报
 回复
感谢楼主
hornbilltofy 2005-04-09
  • 打赏
  • 举报
 回复
大公无私,钦佩!
hanyongbinlq 2005-03-21
  • 打赏
  • 举报
 回复
好帖是要顶滴
peixun 2005-03-17
  • 打赏
  • 举报
 回复
好啊,up
j9dai 2005-03-17
  • 打赏
  • 举报
 回复
好帖是要顶滴
j9dai 2005-03-17
  • 打赏
  • 举报
 回复
好帖，真的好帖，经典好帖，绝对好帖，绝对真的经典好贴
hygougou 2005-03-15
  • 打赏
  • 举报
 回复
好，支持支持~~


感谢
xyqiqi 2005-03-15
  • 打赏
  • 举报
 回复
整理了一天，
大家资源共享！！
balloonman2002 2005-03-15
  • 打赏
  • 举报
 回复
楼主是大公无私的好人啊
balloonman2002 2005-03-15
  • 打赏
  • 举报
 回复
帮忙UP,:)
xyqiqi 2005-03-15
  • 打赏
  • 举报
 回复
终于发完了，感谢版主！！很荣幸能加入PB电子版！！
xyqiqi 2005-03-15
  • 打赏
  • 举报
 回复
2、 支付

//划卡后进行相应地处理
//再次判断网络状态，
choose case gs_system_qt.ls_ictype
case 'MW RD-EB' //明华
//从IC卡中读取数据
if chk_4442(icdev) < 0 then
st_2.text="未检测到IC卡，请插入IC卡后按『确定』进行支付操作..."
gf_icbeep(icdev,-1)
return
end if
//验证密码
password=gf_geticpwd(gs_system_qt.ls_userid)
asc_hex(password,password1,3)
if csc_4442(icdev, 3,ref password1) < 0 then
rsct_4442(icdev,ref counter) //读出密码错误计数器
st_2.text="密码校验失败！该卡密码错误计数还剩"+String(counter)+"次！"
gf_icbeep(icdev,-1)
return
end if
rsct_4442(icdev,ref counter) //读出密码错误计数器
if counter<1 then
st_2.text="此卡由于三次密码错误,已经锁定！"
gf_icbeep(icdev,-1)
return
End If
//从IC卡中读取信息
offset=32
length=174
ls_readdata=space(174)
if srd_4442(icdev, Offset, length,ref ls_readdata) = 0 then
ls_readdata = space(31) + ls_readdata
//判断是不是新卡
if mid(ls_readdata,32,1)<>"s" then
gf_icbeep(icdev,-1)
gf_messagebox(1,"此卡尚未发行，请重新插入卡片...")
return
end if
ls_cardcode = trim(mid(ls_readdata,33,50))
//读出卡中的余额
ldec_money_card = dec(mid(ls_readdata,83,20))
//卡的可用金额 ＝ 卡余额 － 储值卡消费下限
ldec_money_card = ldec_money_card - gs_system_qt.ldec_cardminmoney
//读取卡本次发行操作次数
ll_operatorid=long(mid(ls_readdata,201,5)) + 1
ls_operatorid = string(ll_operatorid)
//计算写到卡里的余额
ldec_money_card_now = ldec_money_card - ldec_money_now + gs_system_qt.ldec_cardminmoney
//给要写入的数据赋值:金额，卡片ID，本次发行操作次数
//第83-第102： 金额（20位），
ls_alldata = string(ldec_money_card_now) + space(20 - len(string(ldec_money_card_now)))
//第103-第112： 卡片ID（10位），
ls_alldata = ls_alldata + mid(ls_readdata,103,10)
//第113： 卡片状态（1位）
ls_alldata = ls_alldata + mid(ls_readdata,113,1)
//第114-第200： 服装软件使用（87位），
ls_alldata = ls_alldata + mid(ls_readdata,114,87)
//第201-第205： 本次发行使用次数（5位），
ls_alldata = ls_alldata + space(5 - len(ls_operatorid)) + ls_operatorid
//写入卡片
li_Offset = 83
li_length = 205 - 82
if swr_4442(icdev, li_Offset, li_length,ref ls_allData) <> 0 then
gf_icbeep(icdev,-1)
gf_messagebox(1,"写入卡片时发生错误！")
return
End If
//校验
ls_checkdata=space(205 - 82)
if srd_4442(icdev, 83, 205 - 82,ref ls_checkdata) = 0 then
if ls_checkdata <> ls_alldata then
gf_icbeep(icdev,-1)
messagebox("info","校验错误！")
return
end if
else
gf_icbeep(icdev,-1)
messagebox("info","读取校验错误！")
return
End If
gf_icbeep(icdev,1)
case 'DIY键盘IC卡'
if diy95_ic.is_card_on(icdev) <> 0 then
st_2.text="未检测到IC卡，请插入IC卡后按『确定』进行查询操作..."
gf_icbeep(icdev,-1)
return
end if
//卡上电
if diy95_ic.turnon_sle44xx(icdev,ls_datalen,ls_databuff) <> 0 then
st_2.text="IC卡上电失败..."
gf_icbeep(icdev,-1)
return
end if
//验证密码
password=gf_geticpwd(gs_system_qt.ls_userid)
asc_hex(password,password1,3) //该函数使用的时明华IC卡的函数
if diy95_ic.csc_sle44x2(icdev,3,password1) <> 0 then //密码校验失败
if diy95_ic.rsct_sle44x2(icdev,counter) = 0 then //读出密码错误计数器
gf_icbeep(icdev,-1)
st_2.text = "密码校验错误！此卡密码错误计数为："+String(counter)+"，请小心使用！"
return
end if
end if
//判断该卡是否已经被锁定
if diy95_ic.rsct_sle44x2(icdev,counter) = 0 then //读出密码错误计数器
if counter < 1 then
st_2.text="此卡由于三次密码错误,已经锁定！"
gf_icbeep(icdev,-1)
return
end if
end if
//从IC卡中读取信息
offset=32
length=120
ls_readdata=space(120)
if diy95_ic.srd_sle44x2(icdev,0,offset,length,ls_datalen,ls_readdata) = 0 then ls_readdata = space(31) + ls_readdata
//判断是不是新卡
if mid(ls_readdata,32,1)<>"s" then
gf_icbeep(icdev,-1)
gf_messagebox(1,"此卡尚未发行，请重新插入卡片...")
return
end if
//卡号
ls_cardcode = trim(mid(ls_readdata,33,50))
//读出卡中的余额
ldec_money_card = dec(mid(ls_readdata,83,20))
ls_operatorid = space(5)
if diy95_ic.srd_sle44x2(icdev,0,201,5,ls_datalen,ls_operatorid) = 0 then
ll_operatorid=long(ls_operatorid) + 1
ls_operatorid = string(ll_operatorid)
else
gf_icbeep(icdev,-1)
gf_messagebox(1,"读取卡片错误！")
return
end if
//给要写入的数据赋值:金额，卡片ID，卡片状态，服装部分，本次发行操作次数
//第83-第102： 金额（20位）， ls_alldata=string(ldec_money_card_now)+space(20-len(string(ldec_money_card_now)))
//第103-第112： 卡片ID（10位），
ls_alldata = ls_alldata + mid(ls_readdata,103,10)
//第113： 卡片状态（1位）
ls_alldata = ls_alldata + mid(ls_readdata,113,1)
//第114-第200： 服装软件使用（87位），
ls_alldata = ls_alldata + space(87)// + mid(ls_readdata,114,87)
//第201-第205： 本次发行使用次数（5位），
ls_alldata = ls_alldata + space(5 - len(ls_operatorid)) + ls_operatorid
//写入卡片
li_Offset = 83
li_length = 205 - 82
if diy95_ic.swr_sle44x2(icdev,0,li_Offset,li_length,ref ls_allData) <> 0 then gf_icbeep(icdev,-1)
gf_messagebox(1,"写入卡片时发生错误！")
return
End If
//校验
ls_checkdata=space(205 - 82)
if diy95_ic.srd_sle44x2(icdev,0,83, 205 - 82,ls_datalen,ref ls_checkdata) = 0 then if ls_checkdata <> ls_alldata then
gf_icbeep(icdev,-1)
messagebox("info","校验错误！")
return
end if
else
gf_icbeep(icdev,-1)
messagebox("info","读取校验错误！")
return
End If
//下电
if diy95_ic.turnoff_sle44xx(icdev) <> 0 then
gf_icbeep(icdev,-1)
messagebox("info","下电失败！")
return
end if
gf_icbeep(icdev,1)


函数gf_icbeep
参数 类型
Icdev long
i_type Integer
choose case i_type
case 1
choose case gs_system_qt.ls_ictype
case 'MW RD-EB' //明华
dv_beep(icdev,10)
dv_beep(icdev,10)
case 'DIY键盘IC卡'
diy95_ic.dv_beep(icdev,1) //两声
end choose
case -1
choose case gs_system_qt.ls_ictype
case 'MW RD-EB' //明华
dv_beep(icdev,50)
case 'DIY键盘IC卡'//一共响4声
diy95_ic.dv_beep(icdev,0) //1声
diy95_ic.dv_beep(icdev,0) //1声
diy95_ic.dv_beep(icdev,0) //1声
diy95_ic.dv_beep(icdev,0) //1声
end choose
case else
choose case gs_system_qt.ls_ictype
case 'MW RD-EB' //明华
dv_beep(icdev,50)
dv_beep(icdev,50)
case 'DIY键盘IC卡'
diy95_ic.dv_beep(icdev,0) //1声
diy95_ic.dv_beep(icdev,0) //1声
diy95_ic.dv_beep(icdev,0) //1声
diy95_ic.dv_beep(icdev,0) //1声
diy95_ic.dv_beep(icdev,0) //1声
diy95_ic.dv_beep(icdev,0) //1声
diy95_ic.dv_beep(icdev,0) //1声
diy95_ic.dv_beep(icdev,0) //1声
end choose
end choose
xyqiqi 2005-03-15
  • 打赏
  • 举报
 回复
五、卡（包括IC卡和磁卡）
申明
//IC卡使用
Function long chk_baud(int port) library "MWIC_32.dll"
Function long ic_init(int port,long baud) library "MWIC_32.dll"
Function long auto_init(int port,long baud) library "MWIC_32.dll"
Function int get_status(long icdev, ref int card_S) library "MWIC_32.dll"
Function long ic_exit(Long icdev) library "MWIC_32.dll"
Function int set_baud(long icdev,long baud) library "MWIC_32.dll"
Function int cmp_dvsc(Long icdev, int length,ref string data_buffer) library "MWIC_32.dll"
Function int srd_dvsc(Long icdev, int length,ref string data_buffer) library "MWIC_32.dll"
Function int swr_dvsc(Long icdev, int length,ref string data_buffer) library "MWIC_32.dll"
Function int setsc_md(Long icdev, int mode) library "MWIC_32.dll"
Function int turn_on(Long icdev) library "MWIC_32.dll"
Function int turn_off(Long icdev) library "MWIC_32.dll"
Function int srd_ver(Long icdev,int le,ref string data_buffer) library "MWIC_32.dll"
Function int auto_pull(Long icdev) library "MWIC_32.dll"
Function int dv_beep(Long icdev,int time) library "MWIC_32.dll"
Function int asc_hex(ref string asc,ref string hex,long le) library "MWIC_32.dll"
Function int hex_asc(ref string hex,ref string asc,long le) library "MWIC_32.dll"
Function int ic_encrypt(string key, ref string ptrsource ,integer le,ref string ptrdest) library "MWIC_32.dll"
Function int ic_decrypt(string key, ref string ptrdest,integer le,ref string ptrsource) library"MWIC_32.dll"


Function int srd_4442(long icdev,int Offset,int length,ref string ata_buffer) library "MWIC_32.dll"
Function int swr_4442(long icdev,int Offset,int length,ref string ata_buffer) library "MWIC_32.dll"
Function int prd_4442(long icdev,int length,ref string ata_buffer) library "MWIC_32.dll"
Function int pwr_4442(long icdev,int Offset,int length,ref string ata_buffer) library "MWIC_32.dll"
Function int chk_4442(long icdev) library "MWIC_32.dll"
Function int csc_4442(long icdev,int length,ref string ata_buffer) library "MWIC_32.dll"
Function int wsc_4442(long icdev,int length,ref string ata_buffer) library "MWIC_32.dll"
Function int rsc_4442(long icdev,int length,ref string ata_buffer) library "MWIC_32.dll"
Function int rsct_4442(long icdev,ref int counter) library "MWIC_32.dll"
磁卡是只读卡号，所有的数据保存在数据库，根据上面的ole_input中的代码就可以读出卡号，然后根据卡号自己处理。
IC卡是金额和卡号都存储在机器里面，相对来说复杂一些
用卡支付
1、 初始化
choose case gs_system_qt.ls_icport
case 'COM1'
li_iccom = 1
case 'COM2'
li_iccom = 2
case 'COM3'
li_iccom = 3
case 'COM4'
li_iccom = 4
case 'COM5'
li_iccom = 5
case 'COM6'
li_iccom = 6
case 'LPT1'
li_iccom = 7
case 'LPT2'
li_iccom = 8
case else
gf_messagebox(2,'IC卡设备的端口设置错误，请到系统设置中设置！')
close(this)
return
end choose
choose case gs_system_qt.ls_ictype
case 'MW RD-EB' //明华
icdev= auto_init(li_iccom - 1 ,9600) //初始化端口1,波特率是9600
if icdev<0 then
messagebox("提示信息","串口初始化错误！请检查IC卡设备是否接上正确的串口或电源是否已经打开！")
closewithreturn(this,"close")
end if
case 'DIY键盘IC卡'
icdev = diy95_ic.ic_init(li_iccom - 1 ,9600) //初始化端口1,波特率是9600
if icdev<0 then
messagebox("提示信息","串口初始化错误！请检查IC卡设备是否接上正确的串口或电源是否已经打开！")
closewithreturn(this,"close")
end if
end choose
balloonman2002 2005-03-15
  • 打赏
  • 举报
 回复
帮忙UP,:)
xyqiqi 2005-03-15
  • 打赏
  • 举报
 回复
三、顾显
1、顾显初始化
function Boolean com_init(Int com,int baud)library "api_com.dll"
function Boolean com_rest() library "api_com.dll"
function Boolean com_send(string buf,int len)library "api_com.dll"
OLE_gx：为Microsoft Communication control控件
int li_gxport
choose case gs_system_qt.ls_gxport
case 'COM1'
li_gxport = 1
case 'COM2'
li_gxport = 2
case 'COM3'
li_gxport = 3
case 'COM4'
li_gxport = 4
case 'COM5'
li_gxport = 5
case 'COM6'
li_gxport = 6
case else
li_gxport = 1
end choose
gs_System_qt.ls_GxType：顾显型号
choose case gs_System_qt.ls_GxType
case '双向数字顾显'
ls_display=char(12)+char(27)+'.'+char(9)+char(1)
OLE_gx.Object.CommPort=li_gxport
OLE_gx.Object.PortOpen=True
OLE_gx.Object.Output=ls_display
case '双象中文顾显'
ls_display=String(real(2),"########0.00")
ls_display=char(27) + 'QA'+ "欢迎" + Space(9 - Len(ls_display)) + ls_display +char(13)
OLE_gx.Object.CommPort=li_gxport
OLE_gx.Object.PortOpen=True
OLE_gx.Object.Output=ls_display
OLE_gx.Object.PortOpen=False
case 'DIY PD-LED8'
if not com_init(li_Gxport,2400) then
messagebox("错误","顾显端口打开错误!",exclamation!)
end if
case 'IBM Sure one 4614'
OLE_gx.Object.CommPort = 4
OLE_gx.Object.PortOpen = True
case '海信VC108'
ls_display = char(27) + char(64)
OLE_gx.Object.CommPort = li_gxport
OLE_gx.Object.PortOpen = True
OLE_gx.Object.Output = ls_display
// OLE_gx.Object.PortOpen=False
case 'LANPOS IC-851'
if not com_init(li_Gxport,9600) then
messagebox("错误","顾显端口打开错误!",exclamation!)
end if
case '桑达顾显'
if not OpenCom(li_Gxport) then
messagebox("错误","顾显端口打开错误!",exclamation!)
end if
end choose
2、收银时候顾显显示数据
//顾显端口
choose case gs_system_qt.ls_gxport
case 'COM1'
li_gxport = 1
case 'COM2'
li_gxport = 2
case 'COM3'
li_gxport = 3
case 'COM4'
li_gxport = 4
case 'COM5'
li_gxport = 5
case 'COM6'
li_gxport = 6
case else
li_gxport = 1
end choose


//顾显型号
Choose Case gs_System_qt.ls_GxType
Case "DIY PD-LED8"
if ls_strnum = '.00' then
ls_strnum = '0.00'
end if
ls_display=Char(27)+Char(81)+Char(65)+ ls_strnum + Char(13);
choose case gs_zwgx
case '应收'
ls_display = ls_display + Char(27)+Char(115)+"2"
case '找零'
ls_display = ls_display + Char(27)+Char(115)+"4"
end choose
com_send(ls_display,Len(ls_display))
case '双象数字顾显'
ls_display=String(real(ls_strnum)*100,"########000")
ls_display=Space(11 - Len(ls_display)) + ls_display
OLE_gx.Object.Output = ls_display
case '双象中文顾显'
ls_display=String(real(ls_strnum),"########0.00")
ls_display=char(27) + 'QA'+ gs_zwgx + Space(9 - Len(ls_display)) + ls_display +char(13)
OLE_gx.Object.Output=ls_display
case 'IBM Sure one 4614'
ls_display = char(31)
choose case gs_zwgx
case 'Total'
ls_display = ls_display + char(84) + char(111) + char(116) + char(97) + char(108) + char(58)
ls_display = ls_display + ' ' + ls_strnum
case 'Change'
ls_display = ls_display + char(67) + char(104) + char(97) + char(110) + char(103) + char(101) + char(58)
ls_display = ls_display + ' ' + ls_strnum
end choose
case '海信VC108'
//清屏
ls_display = char(12)
/*多谢惠顾：char(31) + char(80) + n
n= 0 暗
n= 1 亮
n= 2 闪烁
*/
ls_display = ls_display + char(31) + char(80) + char(1) // 显示’多谢惠顾‘
/*币种：char(31) + char(115) + n
n= 0 全暗
n= 1 人民币
n= 2 美元
n= 3 港元
n= 4 全亮
n= 5 转动
*/
ls_display = ls_display + char(31) + char(115) + char(1) // 显示’人民币‘
/*顾显状态：char(27) + char(115) + n
n= 0 全暗
n= 1 单价
n= 2 合计
n= 3 收款
n= 4 找零
*/
choose case gs_zwgx
case '合计'
ls_display = ls_display + char(27) + char(115) + char(2) //合计
ls_display = ls_display + char(27) + char(81) + char(65) + ls_strnum + char(13)
case '找零'
ls_display = ls_display + char(27) + char(115) + char(4) //找零
ls_display = ls_display + char(27) + char(81) + char(65) + ls_strnum + char(13)
end choose
case 'LANPOS IC-851'
//指定汉字格式：
// [027][012]
// [027][115]，N，M
// 1<=N<=5
// 0<=M<=1
// N=1：小计
// N=2：合计
// N=3：单价
// N=4：收款
// N=5：找回
// M=0：灭
// M=1：亮
//

//必须先送中文再送数字×××××××××××××××××××××××××

//显示中文
choose case gs_zwgx
case '合计'
//亮合计
ls_display = ls_display + char(27) + char(12) + Char(27)+Char(115)+char(2) + char(1)
//灭找回
ls_display = ls_display + char(27) + char(12) + Char(27)+Char(115)+char(5) + char(0)
case '找回'
//亮找回
ls_display = ls_display + char(27) + char(12) + Char(27)+Char(115)+char(5) + char(1)
//灭合计
ls_display = ls_display + char(27) + char(12) + Char(27)+Char(115)+char(2) + char(0)
end choose
if ls_strnum = '.00' then
ls_strnum = '0.00'
end if
ls_display = ls_display + Char(27)+Char(81)+Char(65)+ ls_strnum + Char(13);
com_send(ls_display,Len(ls_display))
case '桑达顾显'
SendByte(char(31),1)
SendByte(char(17),1)
choose case gs_zwgx
case '合计'
ls_display = ls_display + '合计' +char(10)
case '找回'
ls_display = ls_display + '找回' +char(10)
end choose
if ls_strnum = '.00' then
ls_strnum = '0.00'
end if
ls_display = ls_display + Char(27)+'QA'+ ls_strnum + Char(13);
SendByte(ls_display,Len(ls_display))
case else
//
end choose
xyqiqi 2005-03-15
  • 打赏
  • 举报
 回复
二、钱箱
与打印机密切关联的就是钱箱，在软件里面，我们关字符到打印机，由打印机打开钱箱
申明
//桑达CR-3000A(并口)钱箱使用
Function int opend( long t1,long t2,long port ) LIBRARY "qxdll.dll" //开钱箱opend(500,500,LPT2的十进制地址•)
Function int posi (long port ) LIBRARY "qxdll.dll" //钱箱状态
/*海信HK588系列钱箱使用*/
Function int InitMBDrawer(int iType) library 'adrawerdll.dll' //初始化钱箱
Function int OpenMBDrawer(int iType) library 'adrawerdll.dll' //开钱箱
//打印口
choose case gs_system_qt.ls_printport
case 'COM1'
li_printport = 1
case 'COM2'
li_printport = 2
case 'COM3'
li_printport = 3
case 'COM4'
li_printport = 4
case 'COM5'
li_printport = 5
case 'COM6'
li_printport = 6
case 'LPT1'
li_printport = 7
case 'LPT2'
li_printport = 8
case else
li_printport = 1
end choose

choose case gs_system_qt.ls_moneyboxport
case '打印口'
choose case gs_system_qt.ls_printtype
Case "Epson 210PD"
choose case gs_system_qt.li_windrive
case 1 //使用WINDOW驱动
job = PrintOpen()
Print(job,ls_PrintStr)
PrintClose(job)
case -1 //不使用WINDOW驱动
if li_printport = 7 or li_printport = 8 then //并口
choose case li_printport
case 7
li_printport = 1
case 8
li_printport = 2
end choose
OpenPalPort(li_printport)
else //串口
OpenSerPort(li_printport)
end if
OpenPrnDrawer()//开钱箱
ls_printstr = ls_printstr + char(27) + 'e' + char(1)
ls_printstr = ls_printstr + char(27) + 'e' + char(1)
TM210D_PrnCnEn(1,ls_printstr,len(ls_printstr))
ClosePort()
end choose
Case "Epson 210AM"
if gs_system_qt.li_windrive = 1 then
ls_printstr = ls_printstr + Char(27)+Char(64)
end if
ls_printstr = ls_printstr + Char(27)+Char(112)+Char(0)+Char(48)
case 'Partner ADP 300'
if gs_system_qt.li_windrive = 1 then
ls_printstr = ls_printstr + Char(27)+Char(64)
end if
ls_printstr = ls_printstr + Char(27)+Char(112)+Char(0)+Char(48)
Case "TX-210K"
if gs_system_qt.li_windrive = 1 then
ls_printstr=ls_printstr+char(27)+"p"+char(254)+char(60)+char(255)
ls_printstr = ls_printstr + char(27) + 'e' + char(2)
else
ls_printstr=ls_printstr+Char(27)+Char(112)+Char(1)+Char(60)+char(255) end if
Case 'DIY POS58'
ls_printstr = ls_printstr + char(27) + 'e' + char(1)
ls_printstr=ls_printstr+Char(27)+Char(112)+Char(1)+Char(60)+char(255)
Case "桑达PT2000"
if gs_system_qt.li_windrive = 1 then
ls_printstr = ls_printstr + Char(27)+Char(64)
end if
ls_printstr = ls_printstr + Char(27)+Char(112)+Char(0)+Char(48) //Ç®Ïä
case 'TP POS2000'
ls_printstr = ls_printstr + Char(27)+Char(64) //´òÓ¡»ú³õʼ»¯
ls_printstr = ls_printstr + Char(27)+Char(112)+Char(0)+Char(48)
Case Else //Epson 210AM
if gs_system_qt.li_windrive = 1 then
ls_printstr = ls_printstr + Char(27)+Char(64)
end if
ls_printstr = ls_printstr + Char(27)+Char(112)+Char(0)+Char(48)
end choose
//发送打印命令
choose case gs_system_qt.ls_printtype
case 'Epson 210AM'
choose case gs_system_qt.li_windrive
case 1
job = PrintOpen()
PrintSend(job,ls_PrintStr)
PrintClose(job)
case -1
li_FileNum=FileOpen(gs_system_qt.ls_printport,LineMode!, Write!, LockWrite!, Append!)
FileWrite(li_FileNum,ls_printstr)
FileClose(li_FileNum)
end choose
case 'Partner ADP 300'
choose case gs_system_qt.li_windrive
case 1
job = PrintOpen()
PrintSend(job,ls_PrintStr)
PrintClose(job)
case -1 li_FileNum=FileOpen(gs_system_qt.ls_printport,LineMode!, Write!, LockWrite!, Append!)
FileWrite(li_FileNum,ls_printstr)
FileClose(li_FileNum)
end choose
case 'TX-210K'
choose case gs_system_qt.li_windrive
case 1
job = PrintOpen()
PrintSend(job,ls_PrintStr,254)
PrintClose(job)
case -1
li_FileNum=FileOpen(gs_system_qt.ls_printport,LineMode!, Write!, LockWrite!, Append!)
FileWrite(li_FileNum,ls_printstr)
FileClose(li_FileNum)
end choose
case 'IBM Sure one 4614'
w_main.OLE_print.Object.Output = ls_printstr
do While w_main.OLE_print.Object.OutBufferCount() > 0
Yield()
Loop
case 'TP POS2000'
if li_printport >=1 and li_printport <=6 then //±íÃ÷ʱ´®¿Ú
w_main.OLE_print.Object.Output = ls_printstr
do While w_main.OLE_print.Object.OutBufferCount() > 0
Yield()
Loop
end if
case else
choose case gs_system_qt.li_windrive
case 1 //使用WINDOW打印驱动
job = PrintOpen()
PrintSend(job,ls_PrintStr)
PrintClose(job)
case -1
li_FileNum=FileOpen(gs_system_qt.ls_printport,LineMode!, Write!, LockWrite!, Append!)
FileWrite(li_FileNum,ls_printstr)
FileClose(li_FileNum)
end choose
end choose
case 'IBM Sure one 4614'
isnull(ls_printstr)
ls_printstr = char(7)// + char(28)
w_main.OLE_print.Object.Output = ls_printstr
case '海信FWD-1-T'
openmbdrawer(4)
case '桑达'
opend(500,500,gs_system_qt.ll_moneyboxorder)
case else
end choose
end if
xyqiqi 2005-03-15
  • 打赏
  • 举报
 回复
//添加回车换行
ls_printstr = ls_printstr + char(13) + char(10)
//判断打印机型号
choose case gs_system_qt.ls_printtype
case 'IBM Sure one 4614'
w_main.OLE_print.Object.Output = ls_printstr
do While w_main.OLE_print.Object.OutBufferCount() > 0
Yield()
Loop
ls_printstr= ''
case else
//
end choose
end if
//打印口
int li_printport
choose case gs_system_qt.ls_printport
case 'COM1'
li_printport = 1
case 'COM2'
li_printport = 2
case 'COM3'
li_printport = 3
case 'COM4'
li_printport = 4
case 'COM5'
li_printport = 5
case 'COM6'
li_printport = 6
case 'LPT1'
li_printport = 7
case 'LPT2'
li_printport = 8
case else
li_printport = 1
end choose



//发送打印命令
choose case gs_system_qt.ls_printtype
case 'Epson 210PD'
choose case gs_system_qt.li_windrive
case 1 //使用打印驱动
job = PrintOpen()
Print(job,ls_PrintStr)
PrintClose(job)
case -1 //不使用打印驱动
//打开端口
if li_printport = 7 or li_printport = 8 then //²¢¿Ú
choose case li_printport
case 7
li_printport = 1
case 8
li_printport = 2
end choose
OpenPalPort(li_printport) //打开并口
else //打开串口
OpenSerPort(li_printport) //´ò¿ª´®¿Ú
end if
TM210D_PrnCnEn(1,ls_printstr,len(ls_printstr))//Ïò´òÓ¡»ú´ÓÈí×Ö¿â²¢´òÓ¡
ClosePort() //关闭串口
end choose
case 'Epson 210AM'
//退一行
ls_printstr = ls_printstr + char(27) + 'e' + char(1)
choose case gs_system_qt.li_windrive
case 1
ls_printstr = ls_printstr + char(27) + 'e' + char(1)
ls_printstr = ls_printstr + char(27) + 'e' + char(1)
ls_printstr = ls_printstr + char(27) + 'e' + char(1)
ls_printstr = ls_printstr + char(27) + 'e' + char(1)
ls_printstr = ls_printstr + char(27) + 'e' + char(1)
ls_printstr = ls_printstr + char(27) + 'e' + char(1)
job = PrintOpen()
PrintSend(job,ls_PrintStr)
PrintClose(job)
case -1
li_FileNum=FileOpen(gs_system_qt.ls_printport,LineMode!,Write!, LockWrite!, Append!)
FileWrite(li_FileNum,ls_printstr)
FileClose(li_FileNum)
end choose
case 'Partner ADP 300'
choose case gs_system_qt.li_windrive
case 1
job = PrintOpen()
PrintSend(job,ls_PrintStr)
PrintClose(job)
case -1
li_FileNum = FileOpen(gs_system_qt.ls_printport,LineMode!, Write!, LockWrite!, Append!)
FileWrite(li_FileNum,ls_printstr)
FileClose(li_FileNum)
end choose
case 'TX-210K'
//退一行
ls_printstr = ls_printstr + char(27) + 'e' + char(1)
choose case gs_system_qt.li_windrive
case 1
job = PrintOpen()
PrintSend(job,ls_PrintStr)
PrintClose(job)
case -1
li_FileNum = FileOpen(gs_system_qt.ls_printport,LineMode!, Write!, LockWrite!, Append!)
FileWrite(li_FileNum,ls_printstr)
FileClose(li_FileNum)
end choose
case 'IBM Sure one 4614'
w_main.OLE_print.Object.Output = ls_printstr
do While w_main.OLE_print.Object.OutBufferCount() > 0
Yield()
Loop
case 'º海信P110DM'
//退一行
ls_printstr = ls_printstr + char(27) + 'e' + char(1)
choose case gs_system_qt.li_windrive
case 1¯
job = PrintOpen()
PrintSend(job,ls_PrintStr)
PrintClose(job)
case -1
li_FileNum = FileOpen(gs_system_qt.ls_printport,LineMode!, Write!, LockWrite!, Append!)
FileWrite(li_FileNum,ls_printstr)
FileClose(li_FileNum)
end choose
case ‘桑达PT2000'
//退一行
ls_printstr = ls_printstr + char(27) + 'e' + char(1)
choose case gs_system_qt.li_windrive
case 1
ls_printstr = ls_printstr + char(27) + 'e' + char(1)
ls_printstr = ls_printstr + char(27) + 'e' + char(1)
ls_printstr = ls_printstr + char(27) + 'e' + char(1)
ls_printstr = ls_printstr + char(27) + 'e' + char(1)
ls_printstr = ls_printstr + char(27) + 'e' + char(1)
ls_printstr = ls_printstr + char(27) + 'e' + char(1)
job = PrintOpen()
PrintSend(job,ls_PrintStr)
PrintClose(job)
case -1
li_FileNum = FileOpen(gs_system_qt.ls_printport,LineMode!, Write!, LockWrite!, Append!)
FileWrite(li_FileNum,ls_printstr)
FileClose(li_FileNum)
end choose
case 'TP POS2000'
if li_printport >=1 and li_printport <=6 then /
w_main.OLE_print.Object.Output = ls_printstr
do While w_main.OLE_print.Object.OutBufferCount() > 0
Yield()
Loop
end if
case else
choose case gs_system_qt.li_windrive
case 1
job = PrintOpen()
PrintSend(job,ls_PrintStr)
PrintClose(job)
case -1
li_FileNum = FileOpen(gs_system_qt.ls_printport,LineMode!, Write!, LockWrite!, Append!)
FileWrite(li_FileNum,ls_printstr)
FileClose(li_FileNum)
end choose
end choose
加载更多回复（4）
大洋服装鞋帽销售管理系统 v11.13.rar
大洋服装鞋帽销售管理系统是一套适用于服装鞋帽行业专营店，加盟店的销售管理系统。该系统集销售业务处理、...16、支持各种外设：条形码扫描枪、客户显示屏、POS小票打印机、钱箱等。 大洋服装鞋帽销售管理系统截图
好事特超市收银系统 v1.0 普及版.zip
好事特系统支持条型码扫描枪、POS58打印机、钱箱，顾显，电子条码称。   适合行业： 超市百货、专卖店、便利店、电器通讯店、汽车配件店、文具图书店、化妆品店、五金店、眼镜店、玩具店、药店、食品饮料店、...
好事特化妆品店会员收银管理软件系统 v1.0.zip
3、支持多种外设：条码电子称、条码扫描枪、数据打印机、顾显、钱箱、会员卡、条码打印机、盘点机等。 五、强大的会员管理功能 1、支持会员价销售、会员折扣销售、会员类别销售等多种优惠方式。 2、支持会员积分...
金智成商贸通 v6.0.zip
3、支持多种外设：条码电子称、条码扫描枪、数据打印机、顾显、钱箱、会员卡、条码打印机、盘点机等。 五、强大的会员管理功能 1、支持会员价销售、会员折扣销售、会员类别销售等多种优惠方式。 2、支持会员积分...
关于POS的各种外设处理（包括打印机、钱箱等）（PB）
现把POS的各种外设处理整理如下，可能还有许多不全或者代码不正确的地方，望大家补充且指证 POS的外设包括打印机、钱箱、顾显、卡、扫码枪和扫码平台。 一般的外设编程可以通过PB通过的串口编程，也有部分特殊的，...
API 调用

680

社区成员

4,762

社区内容

发帖
与我相关
我的任务
社区描述
PowerBuilder API 调用
社区管理员
  • API 调用社区
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章