蓝色快车PB俱乐部论坛--显示贴子

以文本方式查看主题

-  蓝色快车PB俱乐部论坛  (http://pb.besoft.com.cnhttp://pb.besoft.com.cn/bbs/index.aspindex.asp)
--  PowerBuilder MIS编程  (http://pb.besoft.com.cnhttp://pb.besoft.com.cn/bbs/index.aspbbs.asp?boardid=1)
----  感谢大家帮帮忙，我做了个收费软件一台客户端打印收费小票，另一台就定格了  (http://pb.besoft.com.cnhttp://pb.besoft.com.cn/bbs/index.aspdispbbs.asp?boardid=1&rootid=4821&id=4821)

--  作者：l0x0j0
--  发布时间：2007/7/14 13:42:45

--  感谢大家帮帮忙，我做了个收费软件一台客户端打印收费小票，另一台就定格了
感谢大家帮帮忙，
我做了个收费软件一台客户端打印收费小票，另一台客户端屏幕就定格了，
我用的是PB7，ORALE817数据库
If dw_1.update() = 1 AND SQLCA.SQLCode = 0 Then
Commit Using SQLCA;
dw_print.retrieve(v_exam_no)
If dw_print.rowcount() > 0 Then
Long   ll_job
  ll_job   =   PrintOpen()
  if   ll_job   =   -1   then
        messagebox("系统提示","打印机未准备好")
        return
  end   if
  printdatawindow(ll_job,dw_print)
  printclose(ll_job)
   Else
messagebox ("提示信息!","未检索到打印挂号信息，不能打印?")
End if
ELSE
RollBack Using SQLCA;
messagebox('提示信息！','当前挂号信息不能保存！A',StopSign!) Return
END IF