String ls_temp
Long   ll_brid

gf_center_window(This)
dw_main.SetTransObject(sqlca)
ls_temp = lower(Message.StringParm)
If ls_temp = 'yf' or ls_temp = 'yj' or ls_temp = 'ys' or ls_temp = 'zs' Then
    cb_kh.Visible = False
    cb_jk.Visible = False
    cb_tk.Visible = False
    cb_qd.Y       = 80
    cb_qx.Y          = 240
    dw_main.InsertRow(0)
    sle_brkh.SetFocus()
ELSE
    ll_brid = gs_exchange.LongParm[1]
    IF ll_brid > 0 Then
        SELECT BRKH INTO :is_brkh FROM MS_BRZH WHERE BRID = :ll_brid;
        SELECT MZHM INTO :is_mzhm FROM MS_BRDA WHERE BRID = :ll_brid;
        SLE_brkh.text=is_brkh
        dw_main.retrieve(is_mzhm)
        sle_mm.setFocus()
    ELSE
        dw_main.InsertRow(0)
        sle_brkh.SetFocus()
    End If
End If