Şifre kutusu ile etiket isimleri farklı olmalıdır.

Şifre kutusu : GS_KULL_EDIT-SIFRE_YENI

Etiket/Label : LB_SIFRE_YENI

Yeni kullanıcı ekleneceği zaman sifre_yeni kutusu aktif ve *(asteriks) karakteri ile gözükecek,

Mevcut kullanıcı güncellenecek ise yeni parola kutusu ve etiketi gizlenecektir.

Parola kutusunun * Entry özelliği aktifleştirilmelidir.

types: begin of ty_user,
      kullanici    type usname,
      name_first  type ad_namefir,
      name_last    type ad_namelas,
      sifre_yeni  type TEXT255,
 end of ty_user.

module status_0302 output.
  set pf-status `OKCANC`.
  set titlebar  `0302`.


  loop at screen.

  case screen-name.
 
      when `GS_KULL_EDIT-SIFRE_YENI` .
        if GS_KULL_EDIT-KULLANICI is INITIAL."Yeni kullanıcı ise gözüksün
          screen-invisible = 1. "* Gözükmesi için invisible = 1 (!?!?) olmalı
          screen-active = 1.   " Kutunun ekranda gözükmesi için de active = 1
        else.
          screen-invisible = 1. "
          screen-active = 0. " Ekranda gözükmemesi için active = 0
        endif.

        when `LB_SIFRE_YENI` .

        if GS_KULL_EDIT-KULLANICI is INITIAL.
          screen-invisible = 0. "Etiketin gözüksün
        else.
          screen-invisible = 1. "Etiket gizlensin
        endif.

  ENDCASE.


    modify screen.
  endloop.


endmodule.                 " status_0302  OUTPUT

Yeni Kullanıcı Ekleme Ekranı

Kullanıcı Düzenleme Ekranı