Untuk membuat laporan tahapnya sama pada bab - bab sebelumnya. Karena sudah pernah dijelaskan mengenai fungsi - fungsi yang ada di program rts, maka marilah kita langsung membuatnya dengan langkah - langkah sebagai berikut:
1. Masuk kembali ke layar 571 dan ketikkan perintah seperti berikut di atas END_SCREEN
IMAGE(report) {LSTFLD_ADVANCE} /-------------------------Mencetak Faktur dan DO-------------------------------\ | /--------------------------------------------------------------------------\ | | | | | | | No Faktur : ______________ | | | | Status : _______ | | | | Cetak : _ | | | \--------------------------------------------------------------------------/ | \-----------------------------------------------------------------------------/ FIELD(report) ppmnofak PROTECT NONE 1 ppmsts PROTECT NONE 2 r_dev NOCHANGE ZERO 5 DEFAULTS(report) r_dev DFALT_LIST 6 1 2 0 3 DEFAULTS(qrts) ppdnofak INIT_QUERY {ppmnofak} RTREE(report) USES_SCRIPT(scr571.rts) RT_DEFAULT qrts
2. Setelah itu marilah kita masuk ke layar sct571.rts dan ketikkan perintah sebagai berikut.
START VIRTUAL vnourt INT2 2 COUNTER + 1 vlaba DFLOAT 8 ppmtotfak - ppmhpp SEARCH FILE "ppm.dat" ALL FILE "plg.dat" JTN "ppm.dat" BY_FIELD ppmplg USING_KEY plgkodidx SORT USING_KEY NO_MOD ppmtglfak NO_MOD ppmplg CONTROL 1 ppmtglfak ACCUMULATOR atotal SUM ppmtotfak ahpp SUM ppmhpp alaba SUM vlaba DISPLAY DEVICE r_dev PAGE_LENGTH 66 THOUSAND_SEPARATOR PERIOD DECIMAL_POINT COMMA SCREEN_LINES 24 IMAGE REPORT_HDR + +@xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx g_persh +@xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx g_alamat + + Faktur Penjualan + CONTROL_HDR(1) +Tanggal : @xxxxxxxxxxxx ppmtglfak +/---t----------------------------t-------------------------t-------------t-------------\ +|NO | PELANGGAN | TOTAL FAKTUR | HPP | LABA | +|---|----------------------------|-------------------------|-------------|-------------| CONTROL_FTR(2) +|@99|@xxxxxxxxxxxxxxxxxxxxxxxxxxx|@9,9999999999999999999999|@9,9999999999|@9,9999999999| INCREMENT (vnourt) plgnama ppmtotfak ppmhpp vlaba CONTROL_FTR(1) +|---.----------------------------|-------------------------|-------------|-------------| +| T O T A L |@9,9999999999999999999999|@9,9999999.00|@9,9999999999| atotal ahpp alaba +\--------------------------------.-------------------------.-------------.-------------/ PAGE_FTR + + EXIT