MFGPRO 中如何调用QAD 标准程序实现上下键移动

最新推荐文章于 2019-02-12 11:19:22 发布

qq_36072751

最新推荐文章于 2019-02-12 11:19:22 发布

阅读量455

点赞数

CC 4.0 BY-SA版权

文章标签： MFGPRO QAD Progress 上下键

本文链接：https://blog.youkuaiyun.com/qq_36072751/article/details/52457204

本文详细介绍了在MFGPRO系统中如何调用QAD的标准程序，以便通过键盘的上下键实现数据浏览和操作。内容涉及到Progress数据库的集成技巧，以及具体的编程实现步骤。

{mfdeclre.i}
{gplabel.i} /* EXTERNAL LABEL INCLUDE */
define variable sw_constant as character.
define variable sw_new as character.
define variable sw_input as character.
define variable sw_save as character.
define variable sw_recid as recid.
define variable ldrec as recid.
define variable lines as integer no-undo.
define variable iii as integer.
define variable record_ids as recid extent 25.

define vari site as char initial "".

FORM
ld_part
ld_site
ld_qty_oh
ld_ref
ld_loc
with frame inventory OVERLAY ROW 1 COL 1 width 110
Title CAPS(global_domain) + " inventory".

{swindowc.i
&file=ld_det
&framename="inventory"
&downline=8
&record-id=ldrec
&search=global_domain
&other-search="and ld_site <> site"
&equality=global_domain
&scroll-field=ld_part
&s0 = "/*"
&create-rec = no
&update-leave=yes
&display1=ld_part
&display2=ld_site
&display3=ld_qty_oh
&display4=ld_ref
&display5=ld_loc
}
if keyfunction(lastkey) = "end-error" then leave.