Report Harian

Create Cursor cur_absen (kd_dep C(3),nama_dep C(50), Total N(5), jml_masuk N(5), jml_tdk_masuk N(5),;
    persen_masuk N(3,2), persen_tdk_masuk N(3,2))
Select * From tb_dep Order By kd_dep Into Cursor cdep
Select cdep
Go Top
Scan
    xkd = Alltrim(cdep.kd_dep)
    xnm_dep = Alltrim(cdep.uraian)
    Select Count(nik) As Total From mas_kar Where kd_dep=xkd And aktif=.T. Into Cursor ctotal
    xtotal = ctotal.Total
    Select Count(nik) As Total From tmp_absen Where tgl=ctgl1 And type_gj=ctype And kd_dep=xkd And Empty(kd_absen) Into Cursor cmasuk
    xmasuk = cmasuk.Total
    Select Count(nik) As Total From tmp_absen Where tgl=ctgl1 And type_gj=ctype And kd_dep=xkd And !Empty(kd_absen) Into Cursor ctdk_masuk
    xtdk_masuk = ctdk_masuk.Total

    xpersen_masuk = ((xmasuk*100)/xtotal)
    xpersen_tidak_masuk = ((xtdk_masuk*100)/xtotal)
    Insert Into cur_absen (kd_dep, nama_dep, Total, jml_masuk, jml_tdk_masuk, persen_masuk, persen_tdk_masuk);
        VALUES (xkd, xnm_dep, xtotal, xmasuk, xtdk_masuk, xpersen_masuk, xpersen_tidak_masuk)
Endscan

Select cur_absen
Delete For Empty(Total) Or Empty(jml_masuk)
Go Top