关于回车键的问题

fusl520

各位大师好!

俺练习过程中遇到一个新问题,研究很久不得解决.

在下图中,当光标不在供应商输入字段时,按F4,提示光标位置错误,见底部红色文字.


如果在此时按回车键,按我的意图,应该出现另外的错误信息* VENDOR NUMBER SHOULD NOT BE BLANK!

但是当我真正按ENTER键时,F4的错误信息不会消失.


我想知道,如何捕获ENTER键,或者设定它的指示器.



[ 本帖最后由 fusl520 于 2008-10-31 11:11 编辑 ]

fengyunzi

如你此时 按F7会有什么错误提示？
请截图来看看

digitalchina

按下左CTRL键.

fusl520

回答fengyunzi   ,这是我自己做的, 没有定义F7.

我用INV300或者其它系统程式,都能很好处理F4,回车键,及各种提示的切换.

如果按F4,会检查光标位置,不在VENDOR上时,会出现错误,并设定相应指示器.

此时再按ENTER,因为VENDOR为空,应该出现我的另一个空值错误提示,

但是目前的代码实现不了.


这段代码如下:
C           *IN03     DOWEQ'0'                     
C                     EXFMTAP00101                  
C           *IN03     IFEQ '1'                     
C                     SETON                     LR  
C                     RETRN                        
C                     ENDIF                        
C           *IN04     IFEQ '1'                          
C           #FLD      IFEQ 'APVND'                     
C                     SETOF                         31  
C                     MOVE ' '       MSGTXT            
C                     WRITEAP00105                     
C                     EXSR CALLF4               *如果光标位置在供应商位置, 调出F4提示窗口        
C                     EXFMTWINC1               *显示F4窗口内容         
C                     READCWINS1                    88  
C                     Z-ADDFLD2      APVND              
C                     ELSE                              
C                     MOVE *BLANK    MSGTXT            
C                     MOVELMSG,4     MSGTXT            
C                     WRITEAP00105    *写错误信息     
C                     SETON                         31
C                     ENDIF               
C                     ENDIF               
C           *IN31     IFEQ '0'            
C           APVND     ORNE 0               
C                     EXSR VALID1   *检查VENDOR CODE ,此处将会发出空值错误提示      
C           ERROR     IFEQ 'Y'            
C                     ITER                 
C                     ENDIF               
C                     EXSR S200
C                     ENDIF     
C                     ENDDO

[ 本帖最后由 fusl520 于 2008-10-31 11:35 编辑 ]

crowfeeling

EXSR VALID1
这里面有WRITEAP00105的操作吗？如果有建议你自己用STRISDB调试一下，一行一行的走，看看哪里出问题了。写程序必修课

[ 本帖最后由 crowfeeling 于 2008-10-31 11:48 编辑 ]

fusl520

谢谢,自己解决了,

在
C           *IN03     DOWEQ'0'   
后面加上
C                     SETOF                         31
即可.

当LOOP重新开始时,会检查F4是否按过.

fengyunzi

LZ反应很快啊，呵呵

用了indicator ，随后一定要个setof 不然 跑indicator的数据会出问题

fusl520

原帖由 crowfeeling 于 2008-10-31 11:47 发表
EXSR VALID1
这里面有WRITEAP00105的操作吗？如果有建议你自己用STRISDB调试一下，一行一行的走，看看哪里出问题了。写程序必修课

谢谢!

我一直用DSPLY作测试.  看来得学专业的测试手段.

fusl520

原帖由 fengyunzi 于 2008-10-31 12:04 发表
LZ反应很快啊，呵呵

用了indicator ，随后一定要个setof 不然 跑indicator的数据会出问题

我发现有新的不太喜欢的问题,

比如有时总要把光标从栏位处向上或向下移走,再回车,才可以运行后面的画面,否则就会嘀嘀地叫.

此为何故?

BPCS本身的程式,有时也会这样,比如用UPDDTA进行记录更改时,选记录号,也要移走光标才可回车.