[DEFNAME house_created]
House_Created "04000d9a9"
House_Created_List "10"

[FUNCTION new_house_created]
REF5=<DEF.HOUSE_CREATED>
REF5.TAG0.HOUSE_CREATED .= ,<ARGS>

[FUNCTION f_new_array]
WHILE <ARGV[<dLOCAL._WHILE>]>
IF !STRMATCH("<ARGV[<dLOCAL._WHILE>","0")
REF1=<ARGV[<dLOCAL._WHILE>]>
IF (<REF1>)
IF (<REF1.ISITEM>)
IF (<REF1.TYPE>==t_sign_gump)
IF !(<REF1.TAG0.EV_ONAY>)
LOCAL.HOUSE_CREATED=<LOCAL.HOUSE_CREATED>,<ARGV[<dLOCAL._WHILE>]>
TAG.HOUSE_CREATED=<LOCAL.HOUSE_CREATED>
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF
ENDWHILE

[FUNCTION ev_kontrol]
TRY UID.<DEF.HOUSE_CREATED>.USE 0
SRC.F_ResenDialog D_House_Control

[FUNCTION evonayla]
TARGETF _house_onay

[FUNCTION _house_onay]
ARGO.TAG0.EV_ONAY 1

[ITEMDEF i_house_control]
ID i_gravestone_17
NAME House Control
TYPE t_normal

ON=@Create
ATTR Attr_Static|Attr_Move_Never

ON=@Click
FOR <F_ARRAY <TAG0.HOUSE_CREATED>>
IF !STRMATCH("<F_SELECT <dLOCAL._FOR>,<TAG0.HOUSE_CREATED>>","0")
Local.Created +=1
ENDIF
ENDFOR
MSG_OK [Onaylanacak:<dLOCAL.CREATED>]
MSG_NORMAL <NAME>
RETURN 1

ON=@Dclick
LOCAL.ARRAY=<F_Array <TAG.HOUSE_CREATED>>
IF <dLOCAL.ARRAY>==1
SRC.SYS_HATA Hatali bir oluşum.
ELSE
F_NEW_ARRAY <StrSub 0 <TAG.HOUSE_CREATED>>
ENDIF
RETURN 1

[DIALOG d_house_control]
100,100
NOMOVE
RESIZEPIC 0 0 02422 350 310
DHTMLGUMP 80 18 999 20 0 0 <DEF.BFONT_RED><SERV.NAME> Ev Onaylama Sistemi
REF5=<DEF.HOUSE_CREATED>
Local.Page=1
Local.Total=0

PAGE 1
FOR 2 <F_ARRAY <REF5.TAG0.HOUSE_CREATED>>
REF8=<F_SELECT <dLOCAL._FOR>,<REF5.TAG0.HOUSE_CREATED>>
IF (<dLOCAL.TOTAL> ><dDEF.HOUSE_CREATED_LIST>)
Local.Total=0
BUTTON 20 260 <DEF.BUTTONID_1> 0 <EVAL (<Local.Page>)+1> 1
DHTMLGUMP 40 260 40 20 0 0 Ileri
Local.Page +=1
PAGE <dLOCAL.PAGE>
BUTTON 20 260 <DEF.BUTTONID_1> 0 <EVAL (<Local.Page>)-1> 1
DHTMLGUMP 40 260 40 20 0 0 Geri
ENDIF
IF !(<REF8>==0) && (<REF8.TYPE>==t_sign_gump) && !(<REF8.TAG0.EV_ONAY>)
BUTTON 20 <EVAL (<Local.Total>*20)+40> <DEF.BUTTONID_1> 1 0 <EVAL <LOCAL._FOR> +200>
DHTMLGUMP 40 <EVAL (<Local.Total>*20)+40> 500 20 0 0 Tabela(<REF8>)(Sahibi:<UID.<REF8.LINK.MORE1>.NAME>)
Local.Total +=1
ENDIF
ENDIF
ENDFOR

[DIALOG d_house_control button]
ON=200,999
REF5=<DEF.HOUSE_CREATED>
REF6=<F_SELECT <EVAL <ARGN> -200>,<REF5.TAG.HOUSE_CREATED>>
IF STRMATCH("<F_Select <EVAL <ARGN> -200>","0") || !(<REF6>) || !(<REF6.ISITEM>) || (<REF6.TYPE>!=t_sign_gump)
SRC.SYS_HATA Hatalı bir durum oluştu.
ELSEIF (<REF6.TAG0.EV_ONAY>)
SRC.SYS_HATA '<REF6.NAME>' zaten onaylanmış.
REF5.USE 0
ELSE
SRC.GO <REF6.P>
ENDIF

Tabelada on=@create kısmına bilgi gönderilmeli