菜单2.prg

来自「吐血贡献纺织上的进销存原码,功能齐全,给大家吧.」· PRG 代码 · 共 59 行

* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
*  文件名: 菜单2.PRG <-- 本文件由 UnFoxAll 创建
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-


 DEFINE POPUP SHORTCUT FROM MROW() , MCOL() RELATIVE SHORT
 DEFINE BAR 1 OF SHORTCUT PROMPT '显示全部数据'
 DEFINE BAR 2 OF SHORTCUT PROMPT '不显示数据为零的行'
 DEFINE BAR 3 OF SHORTCUT PROMPT '不显示期初数为零的行'
 DEFINE BAR 4 OF SHORTCUT PROMPT '不显示期末数为零的行'
 DEFINE BAR 5 OF SHORTCUT PROMPT '不显示发生数为零的行'
 ON SELECTION BAR 1 OF SHORTCUT  ;
      DO _0un0p7pvz  IN LOCFILE("\JXC\菜单2" ,"MPX;MPR|FXP;PRG" ,"WHERE is 菜单2?")
 ON SELECTION BAR 2 OF SHORTCUT  ;
      DO _0un0p7pw0  IN LOCFILE("\JXC\菜单2" ,"MPX;MPR|FXP;PRG" ,"WHERE is 菜单2?")
 ON SELECTION BAR 3 OF SHORTCUT  ;
      DO _0un0p7pw1  IN LOCFILE("\JXC\菜单2" ,"MPX;MPR|FXP;PRG" ,"WHERE is 菜单2?")
 ON SELECTION BAR 4 OF SHORTCUT  ;
      DO _0un0p7pw2  IN LOCFILE("\JXC\菜单2" ,"MPX;MPR|FXP;PRG" ,"WHERE is 菜单2?")
 ON SELECTION BAR 5 OF SHORTCUT  ;
      DO _0un0p7pw3  IN LOCFILE("\JXC\菜单2" ,"MPX;MPR|FXP;PRG" ,"WHERE is 菜单2?")

PROCEDURE _0un0p7pvz
 SELECT CLZZTEMP
 SET FILTER TO
 OFORM.LABEL2.CAPTION = '显示全部数据'
 NBAR = 1
ENDPROC
*------
PROCEDURE _0un0p7pw0
 SELECT CLZZTEMP
 OFORM.LABEL2.CAPTION = '不显示数据为零的行'
 SET FILTER TO  ;
      ABS(期初件数) + ABS(期初数量) + ABS(入库件数) + ABS(入库数量) + ABS(出库件数) +  ;
ABS(出库数量) + ABS(期末件数) + ABS(期末数量) <> 0
 NBAR = 2
ENDPROC
*------
PROCEDURE _0un0p7pw1
 SELECT CLZZTEMP
 OFORM.LABEL2.CAPTION = '不显示期初数为零的行'
 SET FILTER TO ABS(期初件数) + ABS(期初数量) <> 0
 NBAR = 3
ENDPROC
*------
PROCEDURE _0un0p7pw2
 SELECT CLZZTEMP
 OFORM.LABEL2.CAPTION = '不显示期末数为零的行'
 SET FILTER TO ABS(期末件数) + ABS(期末数量) <> 0
 NBAR = 4
ENDPROC
*------
PROCEDURE _0un0p7pw3
 OFORM.LABEL2.CAPTION = '不显示发生数为零的行'
 SET FILTER TO ABS(入库件数) + ABS(入库数量) + ABS(出库件数) + ABS(出库数量) <> 0
 NBAR = 5
ENDPROC
*------*