關(guān)于回車鍵的問題

fusl520

各位大師好!

俺練習過程中遇到一個新問題,研究很久不得解決.

在下圖中,當光標不在供應(yīng)商輸入字段時,按F4,提示光標位置錯誤,見底部紅色文字.


如果在此時按回車鍵,按我的意圖,應(yīng)該出現(xiàn)另外的錯誤信息* VENDOR NUMBER SHOULD NOT BE BLANK!

但是當我真正按ENTER鍵時,F4的錯誤信息不會消失.


我想知道,如何捕獲ENTER鍵,或者設(shè)定它的指示器.



[ 本帖最后由 fusl520 于 2008-10-31 11:11 編輯 ]

fengyunzi

如你此時 按F7會有什么錯誤提示？
請截圖來看看

digitalchina

按下左CTRL鍵.

fusl520

回答fengyunzi   ,這是我自己做的, 沒有定義F7.

我用INV300或者其它系統(tǒng)程式,都能很好處理F4,回車鍵,及各種提示的切換.

如果按F4,會檢查光標位置,不在VENDOR上時,會出現(xiàn)錯誤,并設(shè)定相應(yīng)指示器.

此時再按ENTER,因為VENDOR為空,應(yīng)該出現(xiàn)我的另一個空值錯誤提示,

但是目前的代碼實現(xiàn)不了.


這段代碼如下:
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               *如果光標位置在供應(yīng)商位置, 調(diào)出F4提示窗口        
C                     EXFMTWINC1               *顯示F4窗口內(nèi)容         
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 ,此處將會發(fā)出空值錯誤提示      
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調(diào)試一下，一行一行的走，看看哪里出問題了。寫程序必修課

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

fusl520

謝謝,自己解決了,

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

當LOOP重新開始時,會檢查F4是否按過.

fengyunzi

LZ反應(yīng)很快啊，呵呵

用了indicator ，隨后一定要個setof 不然 跑indicator的數(shù)據(jù)會出問題

fusl520

原帖由 crowfeeling 于 2008-10-31 11:47 發(fā)表
EXSR VALID1
這里面有WRITEAP00105的操作嗎？如果有建議你自己用STRISDB調(diào)試一下，一行一行的走，看看哪里出問題了。寫程序必修課

謝謝!

我一直用DSPLY作測試.  看來得學專業(yè)的測試手段.

fusl520

原帖由 fengyunzi 于 2008-10-31 12:04 發(fā)表
LZ反應(yīng)很快啊，呵呵

用了indicator ，隨后一定要個setof 不然 跑indicator的數(shù)據(jù)會出問題

我發(fā)現(xiàn)有新的不太喜歡的問題,

比如有時總要把光標從欄位處向上或向下移走,再回車,才可以運行后面的畫面,否則就會嘀嘀地叫.

此為何故?

BPCS本身的程式,有時也會這樣,比如用UPDDTA進行記錄更改時,選記錄號,也要移走光標才可回車.