JackQu的程序员博客

欢迎来的我Blog.这里记录工作学习的点滴，愿与大家分享。欢迎大家共同交流 。

导航

2013年11月23日 #

手动创建业务单据 （不弹出新建对话框）

该文被密码保护。 阅读全文

posted @ 2013-11-23 15:12 Qcj 阅读(0) 评论(0) 推荐(0) 编辑

用快捷键执行单据界面事件

摘要： procedure OnFormKeyDown(var Key: Word; Shift: TShiftState); begin if Key=112 then //VK_F1 PostMessage(Self.Handle, WM_Print, 2, PP_Print); case Key of 122: BitBtnNewBill.Click; ///VK_F11 123: BtnRead.Click; //VK_F12 end end; 阅读全文

posted @ 2013-11-23 15:03 Qcj 阅读(268) 评论(0) 推荐(0) 编辑

创建新业务单据，并关闭旧单据

摘要： procedure OpenCRKbills(aActID,aEntityID : Integer); var wfPkg_Bill: TWorkflowPackage; begin wfPkg_Bill.AppHandle:=Application.Handle; wfPkg_Bill.FormHandle:=0; wfPkg_Bill.ParentWindow:=0; wfPkg_Bill.PreSender:=0; wfPkg_Bill.PreSenderID:=0; wfPkg_Bill.Sender:=0; wfPkg_Bill.... 阅读全文

posted @ 2013-11-23 15:01 Qcj 阅读(314) 评论(0) 推荐(0) 编辑