セルを終了するときにブラウズの進行状況でセルを自動入力する方法

Question

例：

「コードアイテム」、「アイテムの説明」の列を参照しています。 aposの塗りつぶしを配置すると、項目のコードは自動的にセルを一時表の項目の説明で埋めます。

私はこれをどのように知っていますか？

Answer 1

ユーザーがコード列に何かを入力した後、説明列を自動入力したいですか？ブラウザでON LEAVEトリガーを使用してこれを行うことができます。ユーザーがコードを終了したときにコード列を説明列にコピーする例を次に示します。ユーザーがコードを入力すると、ON VALUE-CHANGEDを使用して説明を更新することもできます。

DEFINE TEMP-TABLE ttBrs NO-UNDO 
    FIELD Code AS CHARACTER 
    FIELD Descr AS CHARACTER. 

DEFINE QUERY qBrs FOR ttBrs SCROLLING. 

DEFINE BROWSE brs1 
    QUERY qBrs DISPLAY 
     ttBrs.Code COLUMN-LABEL "Code Item" 
     ttBrs.Descr COLUMN-LABEL "Item Description" 
     ENABLE ttBrs.Code ttBrs.Descr 
    WITH NO-ROW-MARKERS SEPARATORS SIZE 80 BY 10 FONT 4 FIT-LAST-COLUMN. 

ON LEAVE OF ttBrs.Code IN BROWSE brs1 
DO: 
    ttBrs.Descr:SCREEN-VALUE IN BROWSE brs1 = ttBrs.Code:SCREEN-VALUE. 
END. 

DEFINE FRAME fFrame 
    brs1 AT ROW 1 COL 1 
    WITH VIEW-AS DIALOG-BOX SCROLLABLE. 

CREATE ttBrs. 

VIEW FRAME fFrame. 
OPEN QUERY qBrs FOR EACH ttBrs. 
brs1:SENSITIVE = TRUE. 

WAIT-FOR "GO" OF FRAME fFrame.