[ Mini Kiebo ]

Server: Windows NT DESKTOP-5B8S0D4 6.2 build 9200 (Windows 8 Professional Edition) i586 Path: D:/Backup/Data Shendy/Back up Shendy/DATA/hms/reportrl/ [ Home ]

File: test.prg

tg1=thisform.daritgl.Value
 tg2=thisform.sampaitgl.Value
 =SQLEXEC(pkon,'select * from tbl_rs','sirs')
RS_NAME=NAMARS
kd=RSCODE
PMILIK=OWNER
 IF tg1=tg2
    mperiodeme='Tanggal : '+DTOC(tg1)
 ELSE
    mperiodeme=' Tanggal : '+DTOC(tg1) + ' s/d '+ DTOC(tg2)
  ENDIF
  REPORT FORM rl23.frx preview