Upload SCT, lalu baca hidup setiap field

Fokus utama bukan daftar library. Web menggabungkan IMAGE/FIELD dengan DEFAULT, EDITS, HOOKS, SUBFILE, PERMIT, MAP/CALCS, dan POSTING yang benar-benar menyentuh field tersebut.

Contoh sct620 Contoh sct4521

sct620

SCREEN 620 · QUERY_TYPE

t.BukuTamuAhass

File utamabtmKomponen layar36Field di master42

Alur layar yang ditemukan

Nama berakhiran t seperti transt digabung ke komponen trans bila SUBFILE-nya bernama trans. Ini supaya FIELD, SUBFILE, PERMIT, dan POSTING tidak tercerai.

Keluar dari layar / Next Posting

SCREEN 620→G / Posting→SCREEN 4521

Syarat: cmasihopen · MAP paket: mnext

KOMPONEN LAYAR

master

42 field

FIELD block: master

42 field

Lihat IMAGE / bentuk layar

IMAGE(master)

/-----------------------------------\
 /---------------------------------\ 
 | i.NoBuk   :_______________  ___ |_
 | t.noWO    :____________________ |
 | t.IniBukanBuktiPembayaran       | 
 | i.Sts     :_________  ____      |
 | i.Tgl     :_________            |
 | i.Cab     :___________________  |
 | t.usr     :____________________ |
 | t.Mekanik :____________t.Pmt___ |
 | t.TypKtp  :___  _______________ |
 | t.Tipe2   :___________________  |
 | t.Tipe3   :___________________  |
 | i.NoPol   :____________________ |
 | t.Nama    :____________________ |
 | t.NoHP    :____________________ |
 | t.NmBrg   :___________________  | _
 | t.Series  :___________ ________ |
 | t.IniBukanBuktiPembayaran       | 
 | t.KmN     :___________          |
 | t.KmT     :___________          | _
 | t.Ind     :____________  	   |
 | t.Ked     :__________________   |
 | t.Als     :__________________   |
 | t.PrmIn   :___________________  |
 | t.KdP     :__________________   |
 | t.SubPkt  :__________________   |
 | t.NoSer   :__________________   |
 | t.PilGntiPart             ___   |
 | t.NoFak   :___________________  |
 | t.Estimasi:___________________  |
 | t.EstPeng :___________________  |
 | t.IniBukanBuktiPembayaran       | 
 |            _______              |
 \---------------------------------/
 /---------------------------------\
 | _____________  ______________   |
 | _____________  ______________   | 
 | _____________                   |
 \---------------------------------/ 
 t.WajibTbhDtlCetakFktPjk
\-----------------------------------/

PERMIT

Ubah diizinkan jika cbtmOPEN terpenuhi PMT_UPDALL_COND cbtmOPEN

Hapus diizinkan jika c0 terpenuhi PMT_DEL_COND c0

Akses/perilaku detail dikontrol oleh cbtmOPENa PMT_IGNDET_COND cbtmOPENa

POSTING

PST_SUB_ADDCMD spmastersub

PST_ADDCMD spmasteradd

PST_UPDCMD spmasterupd

btmnobuk

btm.btmnobuk • TEXT(21) • No Bukti

FIELDINPUTRI 1

Field terlindungi (PROTECT) • 1 validasi.

① Tampilan / FIELD

PROTECT: dilindungi / bukan input biasa

btmnobuk        PROTECT                 INPUTRI 1

② Nilai awal / DEFAULT

Tidak ada DEFAULT langsung untuk field ini.

③ Validasi / EDITS

MANDATORYWajib diisi.

④ Event / HOOKS

Tidak ada BEFORE_INPUT/AFTER_INPUT langsung.

⑤ Aliran data & proses lanjutan

MAP membaca field ini

mnext: btmnobuk → r_string1 REPLACE

mbtmd: btmnobuk → tkmkode REPLACE

maddsub: btmnobuk → btmnobuk REPLACE

m4579: btmnobuk → r_string1 REPLACE

m4579a: btmnobuk → r_string1 REPLACE

m4579b: btmnobuk → r_string1 REPLACE

m4883: btmnobuk → r_string1 REPLACE

mnobukbuk: btmnobuk → btmnobuk REPLACE

maddsviFP_fotoktp: btmnobuk → svikode REPLACE

maddsviFP_fotonpwp: btmnobuk → svikode REPLACE

maddtkm_faktur: btmnobuk → tkmkode REPLACE

mmaptlm416: btmnobuk → ltlmplg416 REPLACE

maddakt_6d: btmnobuk → aktkode REPLACE

maddabkKABENGmstr: btmnobuk → abknobuk REPLACE

maddabkSAmstr: btmnobuk → abknobuk REPLACE

maddabkFDmstr: btmnobuk → abknobuk REPLACE

MAP menulis ke field ini

mnomer: cnomorbukti → btmnobuk DO_CALC_IF jika ctambah

maddsub: btmnobuk → btmnobuk REPLACE

mnobukbuk: btmnobuk → btmnobuk REPLACE

CALCS yang membaca field ini

cmasihopen(btmsts =="OPEN" && btmnobuk != BLANKS && djoinppdu == 1 && (dscanppd2 >= 0 && dscanbtf >= 0 && lok1 == 0 && lok2 == 0 && lok3 == 0 && lok17 == 0 && lhppbeda == 0 && lppdjml_BR == lbtfjml && (((lok6 > 0 || (lok5 > 0 && lok7 > 0)) && djoindtm2 == 1 && ltipepaket == 1) || (lok7 > 0 && djoindtm2 == 1 && ltipepaket == 2) || (lok11 > 0 && djoindtm2 == 1 && ltipepaket == 3) || (lok14 > 0 && djoindtm2 == 1 && ltipepaket == 4)) && lok8 == 0 && (lok10 > 0 || (lok10 == 0 && djoindtm2 == 1 && (ltipepaket == 2 || ltipepaket == 3))))) && (((djointbt_cabrekompart1 == 1 || djointbt_cabrekompart2 == 1) && dscantkdRekom >= 0 && ltotaltdkYT == 0) || (djointbt_cabrekompart1 == 0 && djointbt_cabrekompart2 == 0)) && djoinket == 1 && ((djointbd_nomesinesaf == 1 && btmrekomen != "KPB" && btmrekomen != "KPBSINSEN" && btmrekomen != "KPBNSS" && djointkdLcr == 1) || (btmrekomen == "KPB" || btmrekomen == "KPBSINSEN" || btmrekomen == "KPBNSS") || (djointbd_nomesinesaf == 0)) && ((dbscanbrd_washer == 1 || dbscanbrd_washer == 0) && (lbrdsisa2 > 0 && lbrdsisprc2 > 0 && ((btmwrn != "PKTSERVICEKPB1" && btmwrn != "PKTSHOWROOMEVENT" && lok12 > 0 && lok13 > 0) || (btmwrn == "PKTSERVICEKPB1" || btmwrn == "PKTSHOWROOMEVENT") || (btmwrn != "PKTSERVICEKPB1" && btmwrn != "PKTSHOWROOMEVENT" && lok12 == 0 && lok13 > 0) || (btmwrn != "PKTSERVICEKPB1" && btmwrn != "PKTSHOWROOMEVENT" && lok12 == 0) || (btmwrn != "PKTSERVICEKPB1" && btmwrn != "PKTSHOWROOMEVENT" && lok13 > 0)) && djointbd_promooli5 == 0) || (lbrdsisa2 > 0 && lbrdsisprc2 == 0) || (lbrdsisa2 ==0) || djointbd_promooli5 == 1) && ((btmstr2 == "CLAIM" && ( btmtypdeb == "INSTANSI" || btmtypdeb == "GARANSI" ) && djointkdSpk == 1) || ((btmstr2 == "CLAIM" && btmtypdeb == "INSTANSI" && (djointkdSpk == 1 && lytgc != "Y") && djointkmFP == 1 && ((lurusFP == "Y" && djoinsviFP_fotoktp == 1 && luplFP_fotoktp > 0 && djoinsviFP_fotonpwp == 1 && luplFP_fotonpwp > 0) || lurusFP == "T")) || (djointkdSpk == 1 && lytgc == "Y")) || (btmstr2!="CLAIM" && btmtypdeb!="INSTANSI") || (btmstr2 == "CLAIM" && btmtypdeb != "GARANSI" && btmtypdeb != "INSTANSI")) && ((btmstr2 == "TAMBAHAN" && djoinaktReqMeka1 == 1) && (djointbt_cabotomekanik1 == 1|| djointbt_cabotomekanik2 == 1) || (btmstr2 != "TAMBAHAN") || (djointbt_cabotomekanik1 == 0 && djointbt_cabotomekanik2 == 0)) && ((djoindtm_voucher == 1 && lok12 > 0 && lok16 > 0 && djointbd_promooli6 == 1) || (djoindtm_voucher == 1 && lok12 > 0 && djointbd_promooli6 == 0) || (djoindtm_voucher == 0 && djointbd_promooli6 == 0)) && ( ( djointbdmasterpromo == 1 && lcekpromo == "AKTIF" && ljmlhrgpromo >= lnominalpromo && ( dscantkdpromo >= 0 && ltotaltkd == lok19 ) ) || (djointbdmasterpromo == 0 ) )

cbknOPEN4btmnobuk != BLANKS && btmstsdata == "OK" && (dscanppd2 == 1 || dscanppd2 == 0) && lok1 > 0

cbknOPEN5btmnobuk != BLANKS && (dscanppd2 == 1 || dscanppd2 == 0) && lok2 > 0

cbknOPEN6btmnobuk != BLANKS && (dscanppd2 == 1 || dscanppd2 == 0) && lok3 > 0

cbknOPEN6abtmnobuk != BLANKS && (dscanppd2 == 1 || dscanppd2 == 0) && lok17 > 0

cbknOPEN7btmnobuk != BLANKS && dscanppd2 >= 0 && dscanbtf >= 0 && lppdjml_BR != lbtfjml

cbknOPEN8btmnobuk != BLANKS && (dscanppd2 == 1 || dscanppd2 == 0) && lok6 == 0 && (lok5 == 0 || lok7 == 0) && djoindtm2 == 1 && ltipepaket != 2 && ltipepaket != 3

cbknOPEN9btmnobuk != BLANKS && (dscanppd2 == 1 || dscanppd2 == 0) && (lok5 == 0 || lok7 == 0) && djoindtm2 == 1 && ltipepaket != 2 && ltipepaket != 3

cbknOPEN10btmnobuk != BLANKS && (dscanppd2 == 1 || dscanppd2 == 0) && lok8 > 0 && btmstsdata == "OK"

cbknOPEN11btmnobuk != BLANKS && (dscanppd2 == 1 || dscanppd2 == 0) && lok10 == 0 && btmstsdata == "OK" && djoindtm2 == 1 && ltipepaket != 2 && ltipepaket != 3

cbknOPEN12btmnobuk != BLANKS && (dscanppd2 == 1 || dscanppd2 == 0) && lok7 == 0

cbknOPEN13btmnobuk != BLANKS && (dscanppd2 == 1 || dscanppd2 == 0) && lok11 == 0 && djoindtm2 == 1 && ltipepaket != 1 && ltipepaket != 2 && ltipepaket != 4

cbknOPEN18(btmnobuk != BLANKS && (dscanppd2 == 1 || dscanppd2 == 0) && (dbscanbrd_washer == 1 || dbscanbrd_washer == 0) && lbrdsisa2 > 0 && lbrdsisprc2 > 0 && lok12 > 0 && lok13 == 0 && btmwrn!="PKTSERVICEKPB1" && btmwrn != "PKTSHOWROOMEVENT" && djointbd_promooli5 == 0)

cbknOPEN19((btmnobuk != BLANKS && (dscanppd2 == 1 || dscanppd2 == 0) && lok14 == 0 && djoindtm2 == 1 && ltipepaket != 1 && ltipepaket != 2 && ltipepaket != 3) || (btmnobuk != BLANKS && (dscanppd2 == 1 || dscanppd2 == 0) && lok12 == 0 && djoindtm_voucher == 1) || (btmnobuk != BLANKS && (dscanppd2 == 1 || dscanppd2 == 0) && lok12 == 0 && djoinrmdstrukturh2_kpbhso == 1 && g_grpnam == "TUTUP"))

cbknOPEN21(btmnobuk != BLANKS && (dscanppd2 == 1 || dscanppd2 == 0) && lok16 == 0 && djointbd_promooli6 == 1)

cppdperdism_isibtmnobuk != BLANKS && (dscanppd2 == 1 || dscanppd2 == 0) && lppdperdism != 0

cppdtotfak_isibtmnobuk != BLANKS && (dscanppd2 == 1 || dscanppd2 == 0) && lppdtotfak != 0

cppdjml_isibtmnobuk != BLANKS && (dscanppd2 == 1 || dscanppd2 == 0) && lppdjml > 0

cnobuk994"FP"+STRIP(btmnobuk)

cjoinppdu0btmnobuk != BLANKS && djoinppdu == 0 && g_curcmd == 1

+ 13 CALCS lain

POSTING yang menyentuh field

PST_SUB_ADDCMD → spmastersubDO_LIB_IF cotY ap_dbclc(DNAME daddsub,DCOMMAND ADD_SUB,DFILE btm,DLTARGET btmbukidx btmnobuk,DLLEN 16,DMAP maddsub);

PST_ADDCMD → spmasteraddDO_LIB ap_amstr(btmnobuk,ln1,ln2,&lbtmtypjl);

PST_UPDCMD → spmasterupdDO_LIB_IF cbkncabdgi ap_dbclc(DNAME ddelppd,DCOMMAND DELETE_RANGE,DTARGET ppdbuk2bbmid btmnobuk,DMAP mnobukbuk);

PST_UPDCMD → spmasterupdDO_LIB ap_dbclc(DNAME dbscanppd,DCOMMAND SCANSCAN,DTARGET ppdbuk2bbmid btmnobuk,DBC_SUM_MAP mscanppd);

btmnoantri

btm.btmnoantri • COUNT • No Antri

FIELDINPUTRI 2

Field terlindungi (PROTECT).

① Tampilan / FIELD

PROTECT: dilindungi / bukan input biasa

btmnoantri      PROTECT                 INPUTRI 2

② Nilai awal / DEFAULT

Tidak ada DEFAULT langsung untuk field ini.

③ Validasi / EDITS

Tidak ada EDITS langsung untuk field ini.

④ Event / HOOKS

Tidak ada BEFORE_INPUT/AFTER_INPUT langsung.

⑤ Aliran data & proses lanjutan

MAP membaca field ini

mjoinbtmDaf: btmnoantri → lantri REPLACE

mupdbtmx: btmnoantri → lbtmtypjl REPLACE

MAP menulis ke field ini

mupdbtmx: c1 → btmnoantri DO_CALC_IF jika cdjoinbtmDaf0

mupdbtmx: cantri → btmnoantri DO_CALC_IF jika cdjoinbtmDaf1

CALCS yang membaca field ini

Tidak ditemukan.

POSTING yang menyentuh field

Tidak ditemukan secara langsung pada SPCALCS komponen ini.

btmdata

btm.btmdata • TEXT(11) • Data

FIELDINPUTRI 3

Field terlindungi (PROTECT) • 2 default.

① Tampilan / FIELD

PROTECT: dilindungi / bukan input biasaQPROTECTUNSEEN: tidak terlihat

btmdata         PROTECT QPROTECT UNSEEN INPUTRI 3

② Nilai awal / DEFAULT

Nilai awal umumnilai: AHASS

Saat C / carinilai: AHASS

③ Validasi / EDITS

Tidak ada EDITS langsung untuk field ini.

④ Event / HOOKS

Tidak ada BEFORE_INPUT/AFTER_INPUT langsung.

⑤ Aliran data & proses lanjutan

MAP membaca field ini

Tidak ditemukan.

MAP menulis ke field ini

Tidak ditemukan.

CALCS yang membaca field ini

Tidak ditemukan.

POSTING yang menyentuh field

Tidak ditemukan secara langsung pada SPCALCS komponen ini.

btmidprsp

btm.btmidprsp • TEXT(61) • No Id

FIELDINPUTRI 3

Field terlindungi (PROTECT).

① Tampilan / FIELD

PROTECT: dilindungi / bukan input biasa

btmidprsp       PROTECT                 INPUTRI 3

② Nilai awal / DEFAULT

Tidak ada DEFAULT langsung untuk field ini.

③ Validasi / EDITS

Tidak ada EDITS langsung untuk field ini.

④ Event / HOOKS

Tidak ada BEFORE_INPUT/AFTER_INPUT langsung.

⑤ Aliran data & proses lanjutan

MAP membaca field ini

mmapautodgi: btmidprsp → lbtmidprsp REPLACE

mmapautodgi: btmidprsp → ldumstr31 REPLACE

MAP menulis ke field ini

Tidak ditemukan.

CALCS yang membaca field ini

Tidak ditemukan.

POSTING yang menyentuh field

Tidak ditemukan secara langsung pada SPCALCS komponen ini.

btmsts

btm.btmsts • TEXT(5) • Status

FIELDINPUTRI 4

Field terlindungi (PROTECT) • 1 default.

① Tampilan / FIELD

PROTECT: dilindungi / bukan input biasa

btmsts          PROTECT                 INPUTRI 4

② Nilai awal / DEFAULT

Saat T / tambahnilai: OPEN

③ Validasi / EDITS

Tidak ada EDITS langsung untuk field ini.

④ Event / HOOKS

Tidak ada BEFORE_INPUT/AFTER_INPUT langsung.

⑤ Aliran data & proses lanjutan

MAP membaca field ini

Tidak ditemukan.

MAP menulis ke field ini

Tidak ditemukan.

CALCS yang membaca field ini

cfakINPGbtmsts =="OPEN" && btmstsdata == "OK"

cbknOPEN1btmsts != "OPEN"

cbknOPEN20(btmsts == "OPEN" && btmrekomen != "KPB" && btmrekomen != "KPBSINSEN" && btmrekomen != "KPBNSS" && djointbd_nomesinesaf == 1 && djointkdLcr == 0)

cAktEstPengbtmsts == "INPG" && btmsales == BLANKS && djoinaktEstPeng == 1

cupdbtm0btmsts == "OPEN" && btmnobuk != BLANKS && djoinppdaddsrv == 0

cJikaPromo1((djoinakt_promo1 == 1) || (btmsts == "CLSD" && btmrekomen != "KPB" && btmrekomen != "KPBNSS" && btmrekomen != "KPBSINSEN" && djointbd_nomesinesaf == 1 && djointkdLcr == 1 && (g_grpnam == "RI" || g_grpnam == "AHASSHEAD" || g_grpnam == "AHASSSPV" || g_grpnam == "IT")))

cBR2ppdjasbrg == "BR" && (btmsts == "OPEN" || btmsts == "INPG") && ppdjmlren > 0

cbarutambahbtmsts == "INPG" && btmstsdata == "OK" && ppdjasbrg == "BR" && g_curcmd == 1

copen_1btmsts == "OPEN" && btmstsdata == BLANKS && g_curcmd == 2 && ppdjasbrg == "BR"

copen_2abtmsts == "OPEN" && btmstsdata == "OK" && g_curcmd == 2 && ppdlok != BLANKS

copen_3btmsts == "OPEN" && btmstsdata == BLANKS && g_curcmd == 1 && ppdjasbrg == "JI"

copen_4btmsts == "OPEN" && btmstsdata == BLANKS && g_curcmd == 1 && ppdjasbrg == "BR"

copen_5btmsts == "OPEN" && btmstsdata == "OK" && g_curcmd == 1 && ppdjasbrg == "JI"

copen_6btmsts == "INPG" && btmstsdata == "OK" && g_curcmd == 1 && ppdjasbrg == "JI"

cjmlren2((btmsts == "INPG" && ppdjasbrg == "BR" && ppdjmlren > 0) || (ppdjasbrg != "BR") || (btmsts != "INPG"))

curusFP_Y1tkmlokjl == "Y" && btmsts == "OPEN"

curusFP_Y2tkmlokjl == "Y" && btmsts != "OPEN"

cbtmOPEN(btmnobuk != BLANKS && btmsts == "OPEN" && djoinppdKG == 0 && (djointbt_cabdgi1 == 0 && djointbt_cabdgi2 == 0)) || (btmnobuk != BLANKS && btmsts == "OPEN" && djoinppdKG == 0 && (djointbt_cabdgioto == 0)) || (btmnobuk != BLANKS && btmsts == "OPEN" && (djointbt_cabdgi1 == 1 || djointbt_cabdgi2 == 1) && dscanppd2 >= 0 && lok18 == 0) || (btmnobuk != BLANKS && btmsts == "OPEN" && (djointbt_cabdgioto == 1 && dscanppd2 >= 0 && lok18 == 0))

cbtmOPENabtmnobuk != BLANKS && btmsts == "OPEN" && djoinppdKG == 0

+ 31 CALCS lain

POSTING yang menyentuh field

Tidak ditemukan secara langsung pada SPCALCS komponen ini.

btmstsdata

btm.btmstsdata • TEXT(5) • Status Data

FIELDINPUTRI 5

Field terlindungi (PROTECT).

① Tampilan / FIELD

PROTECT: dilindungi / bukan input biasa

btmstsdata      PROTECT                 INPUTRI 5

② Nilai awal / DEFAULT

Tidak ada DEFAULT langsung untuk field ini.

③ Validasi / EDITS

Tidak ada EDITS langsung untuk field ini.

④ Event / HOOKS

Tidak ada BEFORE_INPUT/AFTER_INPUT langsung.

⑤ Aliran data & proses lanjutan

MAP membaca field ini

Tidak ditemukan.

MAP menulis ke field ini

Tidak ditemukan.

CALCS yang membaca field ini

cfakINPGbtmsts =="OPEN" && btmstsdata == "OK"

cbknOPEN4btmnobuk != BLANKS && btmstsdata == "OK" && (dscanppd2 == 1 || dscanppd2 == 0) && lok1 > 0

cbknOPEN10btmnobuk != BLANKS && (dscanppd2 == 1 || dscanppd2 == 0) && lok8 > 0 && btmstsdata == "OK"

cbknOPEN11btmnobuk != BLANKS && (dscanppd2 == 1 || dscanppd2 == 0) && lok10 == 0 && btmstsdata == "OK" && djoindtm2 == 1 && ltipepaket != 2 && ltipepaket != 3

cBRLok(g_curcmd == 1 && ppdjasbrg == "BR" && ppdjmlren > 0 && ppdscr == "620") || (g_curcmd == 2 && ppdjasbrg == "BR" && ppdjmlren > 0 && ppdscr != "620" && btmstsdata == BLANKS) || (g_curcmd == 2 && ppdjasbrg == "BR" && ppdjmlren > 0 && ppdscr == "620" && btmstsdata == BLANKS) || (g_curcmd == 2 && ppdjasbrg == "BR" && ppdjmlren > 0 && djoincabapi2 == 1 && ltbdkettype == "ADA" ) || (g_curcmd == 2 && ppdjasbrg == "BR" && ppdjmlren > 0 && djoincabapi2 == 1 && ltbdkettype == BLANKS )

cbarutambahbtmsts == "INPG" && btmstsdata == "OK" && ppdjasbrg == "BR" && g_curcmd == 1

copen_1btmsts == "OPEN" && btmstsdata == BLANKS && g_curcmd == 2 && ppdjasbrg == "BR"

copen_2abtmsts == "OPEN" && btmstsdata == "OK" && g_curcmd == 2 && ppdlok != BLANKS

copen_3btmsts == "OPEN" && btmstsdata == BLANKS && g_curcmd == 1 && ppdjasbrg == "JI"

copen_4btmsts == "OPEN" && btmstsdata == BLANKS && g_curcmd == 1 && ppdjasbrg == "BR"

copen_5btmsts == "OPEN" && btmstsdata == "OK" && g_curcmd == 1 && ppdjasbrg == "JI"

copen_6btmsts == "INPG" && btmstsdata == "OK" && g_curcmd == 1 && ppdjasbrg == "JI"

ccmpkt(btmsts == "OPEN" && ppdnopsn != "ADDSERVIS" ) || (btmsts == "OPEN" && btmstsdata == "OK" && ppdnopsn == "ADDSERVIS") || (btmsts == "OPEN" && djoincabapi2 == 1 && ltbdkettype == "ADA" ) || (btmsts == "INPG" && btmstsdata == "OK" && djoincabapi2 == 1 && ltbdkettype == "ADA" )

POSTING yang menyentuh field

Tidak ditemukan secara langsung pada SPCALCS komponen ini.

btmtgl

btm.btmtgl • LONG • Tanggal

FIELDINPUTRI 6

Field terlindungi (PROTECT) • 2 default • 1 validasi.

① Tampilan / FIELD

PROTECT: dilindungi / bukan input biasa{DD-MM-YY}

btmtgl          PROTECT {DD-MM-YY}      INPUTRI 6

② Nilai awal / DEFAULT

Saat T / tambahnilai: {g_tgltrn}

Saat C / carinilai: {g_tgltrn}

③ Validasi / EDITS

MANDATORYWajib diisi.

④ Event / HOOKS

Tidak ada BEFORE_INPUT/AFTER_INPUT langsung.

⑤ Aliran data & proses lanjutan

MAP membaca field ini

mnext: btmtgl → r_date1 REPLACE

maddnnm: btmtgl → nnmtgl REPLACE

maddsviFP_fotoktp: btmtgl → svitgl1 REPLACE

maddsviFP_fotonpwp: btmtgl → svitgl1 REPLACE

maddtkm_faktur: btmtgl → tkmtgl REPLACE

maddtkm_faktur: btmtgl → tkmtgl1 REPLACE

mmaptlm416: btmtgl → ltlmtgl416 REPLACE

MAP menulis ke field ini

Tidak ditemukan.

CALCS yang membaca field ini

cbknOPEN23(btmtgl >= 20240603 && (djointkdSpk == 1 && lytgc != "Y")) && djointkmFP == 0

cbknOPEN24(btmtgl >= 20240603 && (djointkdSpk == 1 && lytgc != "Y")) && djointkmFP == 1 && lurusFP == "Y" && djoinsviFP_fotoktp == 1 && luplFP_fotoktp == 0

cbknOPEN24a(btmtgl >= 20240603 && (djointkdSpk == 1 && lytgc != "Y")) && djointkmFP == 1 && lurusFP == "Y" && djoinsviFP_fotonpwp == 1 && luplFP_fotonpwp == 0

cbknOPEN25(btmtgl >= 20240612 && btmsoa == "GC" && (djoinsvi == 0 || (djoinsvi == 1 && ljmluplstnk == 0))) && g_grpnam == "TUTUP"

cbknOPEN26(btmtgl >= 20240612 && btmsoa == "GC" && djointlmGC == 1 && lgc_instansi == "GC_MBM" && djoinsvi == 1 && lcabinstansistnk == BLANKS) && g_grpnam == "TUTUP"

cbuk"BE" + STRIP(btmcab) + STRIP(btmdvs) + THBLS(btmtgl) + THBLS_DD(btmtgl)

cnomorbukti"AH" + STRIP(btmcab) + THBLS_YY(btmtgl) + THBLS_MM(btmtgl) + THBLS_DD(btmtgl)

csamabtmstr2 == "REGULER" && btmtgl == ppmtglfak && (ppmsts == "OPEN" || ppmsts == "PROS" || ppmsts == "SVOK" || ppmsts == "INPG" || ppmsts == "CLSD")

cadanihbtmtgl < g_tgltrn

ctglbesok(g_curcmd == 2 && btmtgl <= g_tgltrn) || g_curcmd != 2

chitungharibtmtgl - btmjtppjk

cadd_FPbtmsts == "OPEN" && btmtgl >= 20240603 && djointkmFP == 0

POSTING yang menyentuh field

Tidak ditemukan secara langsung pada SPCALCS komponen ini.

btmcab

btm.btmcab • TEXT(21) • Cabang

FIELDINPUTRI 7

Field input • huruf besar • 1 default • 2 validasi • 7 hook.

① Tampilan / FIELD

ALLCAPS: input huruf besarSCROLL: mode scroll/lookup framework

btmcab          ALLCAPS SCROLL          INPUTRI 7

② Nilai awal / DEFAULT

Nilai awal umumhanya jika cgsglcab1g_sglcab == 1nilai: {g_grpcab}

③ Validasi / EDITS

MANDATORYWajib diisi.

VALIDATENilai harus tervalidasi ke tabel cab via index cabstskodidx. MAP hasil: mcabLok.Index: cabstskodidx → cab [cabsts, cabkode]

MAP validasi mcabLok

cabkode         btmcab         	REPLACE
cabkode         btmlokjual     	REPLACE
cabkdfak        lcabdealer     	REPLACE
cabkdfak        btmcabjl       	REPLACE
cbuk		lchanel        	DO_CALC
cbtmcab         lbtmcab        	DO_CALC
btmnokk		lbtmnokk3      	REPLACE
lpmtmekanik	lpmtmekanik    	REPLACE_IF cdjoinakt_pmtmekanik
cBLANKS		lnobuk994	DO_CALC
cnobuk994	lnobuk994	DO_CALC
cBLANKS         lwaktuest2      DO_CALC
cBLANKS         lwaktuest       DO_CALC_IF cdjoinakt0
lWktEstPeng     lwaktuest2      REPLACE_IF cAktEstPeng
cabkdjam	lcabkdjam	REPLACE
cmampatseries	lnamamotormampat DO_CALC

④ Event / HOOKS

AFTER_INPUT

Jalankan MAP mnomer.

AFTER_INPUT   cur_field=btmcab        DO_MAP SHOW mnomer

AFTER_INPUT

Jalankan scan dbscanbtm.

AFTER_INPUT   cur_field=btmcab        DO_SCAN dbscanbtm

AFTER_INPUT

Jalankan scan dbscanbtm2.

AFTER_INPUT   cur_field=btmcab        DO_SCAN dbscanbtm2

AFTER_INPUT

Jalankan MAP mtotal2.

AFTER_INPUT   cur_field=btmcab        DO_MAP SHOW mtotal2

AFTER_INPUT

Validasi interaktif: jika ctglbesok benar jalankan mdumstr; jika gagal cursor ditahan/diarahkan (btmcab) dan tampil pesan t.TglHrsBnr.

AFTER_INPUT   cur_field=btmcab  	      DO_MAP SHOW
IF ctglbesok mdumstr
ELSE HKCURSOR btmcab
HKMSG t.TglHrsBnr

AFTER_INPUT

Validasi interaktif: jika ccabangopen benar jalankan mdumstr; jika gagal cursor ditahan/diarahkan (btmcab) dan tampil pesan Masih ada 620 OPEN cabang ini dihari sebelumnya, selesaikan dahulu.

AFTER_INPUT   cur_field=btmcab  	      DO_MAP SHOW
IF ccabangopen    mdumstr
ELSE HKCURSOR btmcab
HKMSG Masih ada 620 OPEN cabang ini dihari sebelumnya, selesaikan dahulu

AFTER_INPUT

Validasi interaktif: jika ccabanginpg benar jalankan mdumstr; jika gagal cursor ditahan/diarahkan (btmcab) dan tampil pesan Masih ada 620 INPG cabang ini dihari sebelumnya, selesaikan dahulu.

AFTER_INPUT   cur_field=btmcab  	      DO_MAP SHOW
IF ccabanginpg    mdumstr
ELSE HKCURSOR btmcab
HKMSG Masih ada 620 INPG cabang ini dihari sebelumnya, selesaikan dahulu

⑤ Aliran data & proses lanjutan

MAP membaca field ini

maddnnm: btmcab → nnmkode1 REPLACE

maddtkm_faktur: btmcab → tkmcab REPLACE

mmaptlm416: btmcab → ltlmcab416 REPLACE

MAP menulis ke field ini

mcabLok: cabkode → btmcab REPLACE

CALCS yang membaca field ini

cbuk"BE" + STRIP(btmcab) + STRIP(btmdvs) + THBLS(btmtgl) + THBLS_DD(btmtgl)

crmdgabkpbtunai"KPB1TAHUNTUNAI" + STRIP(btmcab) + STRIP(btmtypmtr2) + STRIP(lppmtk614)

cbtmcabSTRIP(btmcab)+"H2"

crmdgabasuransi1"PROMOASURANSI1" + STRIP(btmcab) + STRIP(btmwrn)

crmdgabasuransi2"PROMOASURANSI2" + STRIP(btmcab) + STRIP(ppdbrg)

crmdgabamic"HARGAAMIC" + STRIP(ppdbrg) + STRIP(btmcab)

crmdgabkpbtdm3STRIP(btmwrn) + STRIP(btmcab) + STRIP(btmtypmtr2)

crmdgabkpbtdm4STRIP(btmwrn) + STRIP(btmcab) + STRIP(btmtypmtr2)

cnomorbukti"AH" + STRIP(btmcab) + THBLS_YY(btmtgl) + THBLS_MM(btmtgl) + THBLS_DD(btmtgl)

POSTING yang menyentuh field

Tidak ditemukan secara langsung pada SPCALCS komponen ini.

btmnopj

btm.btmnopj • TEXT(21) • No Penjualan

FIELDINPUTRI 8

Field terlindungi (PROTECT) • 2 default.

① Tampilan / FIELD

PROTECT: dilindungi / bukan input biasa

btmnopj		PROTECT			INPUTRI	8

② Nilai awal / DEFAULT

Saat T / tambahnilai: {g_usrkode}

Saat U / ubahnilai: {g_usrkode}

③ Validasi / EDITS

Tidak ada EDITS langsung untuk field ini.

④ Event / HOOKS

Tidak ada BEFORE_INPUT/AFTER_INPUT langsung.

⑤ Aliran data & proses lanjutan

MAP membaca field ini

Tidak ditemukan.

MAP menulis ke field ini

Tidak ditemukan.

CALCS yang membaca field ini

Tidak ditemukan.

POSTING yang menyentuh field

Tidak ditemukan secara langsung pada SPCALCS komponen ini.

btmsales

btm.btmsales • TEXT(21) • Sales

FIELDINPUTRI 8

Field terlindungi (PROTECT).

① Tampilan / FIELD

PROTECT: dilindungi / bukan input biasa

btmsales	PROTECT			INPUTRI	8

② Nilai awal / DEFAULT

Tidak ada DEFAULT langsung untuk field ini.

③ Validasi / EDITS

Tidak ada EDITS langsung untuk field ini.

④ Event / HOOKS

Tidak ada BEFORE_INPUT/AFTER_INPUT langsung.

⑤ Aliran data & proses lanjutan

MAP membaca field ini

maddtlm416tambahan: btmsales → tlmgrup2 REPLACE_IF jika cmekanikSTART

MAP menulis ke field ini

Tidak ditemukan.

CALCS yang membaca field ini

cAktEstPengbtmsts == "INPG" && btmsales == BLANKS && djoinaktEstPeng == 1

chnyINPGbtmsts != "OPEN" && btmsales == BLANKS

cmekanikSTARTbtmsales != BLANKS && dscantlm416 >= 0 && lrecordtlm416 == 0

POSTING yang menyentuh field

Tidak ditemukan secara langsung pada SPCALCS komponen ini.

lpmtmekanik

INT2(2)

LOCALINPUTRI 8

Field terlindungi (PROTECT).

① Tampilan / FIELD

PROTECT: dilindungi / bukan input biasa

lpmtmekanik	PROTECT			INPUTRI 8

② Nilai awal / DEFAULT

Tidak ada DEFAULT langsung untuk field ini.

③ Validasi / EDITS

Tidak ada EDITS langsung untuk field ini.

④ Event / HOOKS

Tidak ada BEFORE_INPUT/AFTER_INPUT langsung.

⑤ Aliran data & proses lanjutan

MAP membaca field ini

mcabLok: lpmtmekanik → lpmtmekanik REPLACE_IF jika cdjoinakt_pmtmekanik

MAP menulis ke field ini

mjoinakt_pmtmekanik: aktjml → lpmtmekanik REPLACE

mcabLok: lpmtmekanik → lpmtmekanik REPLACE_IF jika cdjoinakt_pmtmekanik

CALCS yang membaca field ini

Tidak ditemukan.

POSTING yang menyentuh field

Tidak ditemukan secara langsung pada SPCALCS komponen ini.

btmbichek

btm.btmbichek • TEXT(3) • Pengecekan Ke Bi

FIELDINPUTRI 9

Field NOCHANGE • 1 default • 1 validasi • 1 hook.

① Tampilan / FIELD

NOCHANGE: tidak diubah seperti input biasa

btmbichek	NOCHANGE		INPUTRI	9

② Nilai awal / DEFAULT

Pilihan scan, boleh kosongnilai: 1 "PERORANGAN"

2 "INSTANSI"

③ Validasi / EDITS

MANDATORYWajib diisi.

④ Event / HOOKS

AFTER_INPUT

Jalankan MAP mketktp.

AFTER_INPUT   cur_field=btmbichek     DO_MAP SHOW mketktp

⑤ Aliran data & proses lanjutan

MAP membaca field ini

Tidak ditemukan.

MAP menulis ke field ini

Tidak ditemukan.

CALCS yang membaca field ini

cbtmbichek1btmbichek == "1"

cbtmbichek2btmbichek == "2"

ciniperoranganbtmbichek == "1"

ciniinstansibtmbichek == "2"

ctypePeroranganbtmbichek == "1" && djointkmFP == 0

POSTING yang menyentuh field

Tidak ditemukan secara langsung pada SPCALCS komponen ini.

lketbtmbichek

STRING(21)

LOCALINPUTRI 10

Field terlindungi (PROTECT).

① Tampilan / FIELD

PROTECT: dilindungi / bukan input biasa

lketbtmbichek	PROTECT			INPUTRI	10

② Nilai awal / DEFAULT

Tidak ada DEFAULT langsung untuk field ini.

③ Validasi / EDITS

Tidak ada EDITS langsung untuk field ini.

④ Event / HOOKS

Tidak ada BEFORE_INPUT/AFTER_INPUT langsung.

⑤ Aliran data & proses lanjutan

MAP membaca field ini

Tidak ditemukan.

MAP menulis ke field ini

mbrgM: cPERORANGAN → lketbtmbichek DO_CALC_IF jika cbtmbichek1

mbrgM: cINSTANSI → lketbtmbichek DO_CALC_IF jika cbtmbichek2

mketktp: cPERORANGAN → lketbtmbichek DO_CALC_IF jika cbtmbichek1

mketktp: cINSTANSI → lketbtmbichek DO_CALC_IF jika cbtmbichek2

CALCS yang membaca field ini

Tidak ditemukan.

POSTING yang menyentuh field

Tidak ditemukan secara langsung pada SPCALCS komponen ini.

btmstr2

btm.btmstr2 • TEXT(11) • Tambahan Str 2

FIELDINPUTRI 11

Field NOCHANGE • 1 default • 1 validasi • 4 hook.

① Tampilan / FIELD

NOCHANGE: tidak diubah seperti input biasa

btmstr2         NOCHANGE                INPUTRI 11

② Nilai awal / DEFAULT

Pilihan scan, boleh kosongnilai: BO_KLIK

BOOKING · REGULER · JOB_RETURN · CLAIM · CLAIM_ESAF · TAMBAHAN

③ Validasi / EDITS

MANDATORYWajib diisi.

④ Event / HOOKS

BEFORE_INPUT

Lewati field jika cBo_klik terpenuhi.

BEFORE_INPUT  cur_field=btmstr2	      DO_SKIP_IF cBo_klik

AFTER_INPUT

Jalankan scan dscanppd2.

AFTER_INPUT   cur_field=btmstr2	      DO_SCAN dscanppd2

AFTER_INPUT

Validasi interaktif: jika ctglbenar benar jalankan mdumstr; jika gagal cursor ditahan/diarahkan (STAY) dan tampil pesan t.TglHrsBenar.

AFTER_INPUT	cur_field=btmstr2	DO_MAP SHOW
IF ctglbenar	mdumstr
ELSE HKCURSOR STAY
HKMSG t.TglHrsBenar

AFTER_INPUT

Validasi interaktif: jika cNosinBknEsaf1 benar jalankan mdumstr; jika gagal cursor ditahan/diarahkan (STAY) dan tampil pesan t.NosinBknEsaf.

AFTER_INPUT	cur_field=btmstr2	DO_MAP SHOW
IF cNosinBknEsaf1 	mdumstr
ELSE HKCURSOR STAY
HKMSG t.NosinBknEsaf

⑤ Aliran data & proses lanjutan

MAP membaca field ini

Tidak ditemukan.

MAP menulis ke field ini

Tidak ditemukan.

CALCS yang membaca field ini

cbknOPEN17btmstr2 == "CLAIM" && ( btmtypdeb == "INSTANSI" || btmtypdeb == "GARANSI" ) && djointkdSpk == 0

cbknOPEN22(btmstr2 == "TAMBAHAN" && djoinaktReqMeka1 == 0 && (djointbt_cabotomekanik1 == 1 || djointbt_cabotomekanik2 == 1))

cjikaclaim(btmstr2 == "CLAIM" || btmstr2 == "CLAIM_ESAF")

cpjgktp(lpanjang == 16 && djoinpsm == 1 && lpsmins != "INSTANSI" && (btmstr2 == "BOOKING" || btmstr2 == "REGULER" || btmstr2 == "REMINDER" || btmstr2 == "SERV_VISIT" || btmstr2 == "TAMBAHAN" || btmtypdeb == "GARANSI")) || (lpanjang == 16 && djoinpsm == 1 && lpsmins == "INSTANSI" && ((btmstr2 == "CLAIM" && btmtypdeb == "INSTANSI") || (btmstr2 == "REGULER" || btmstr2 == "BOOKING" || btmstr2 == "CLAIM" || btmstr2 == "TAMBAHAN")))

cClaimabtmstr2 == "CLAIM"

cCLAIMbtmstr2 == "CLAIM" && btmtypdeb != "VOUCHER"

cBo_klikbtmstr2 == "BO_KLIK"

csamabtmstr2 == "REGULER" && btmtgl == ppmtglfak && (ppmsts == "OPEN" || ppmsts == "PROS" || ppmsts == "SVOK" || ppmsts == "INPG" || ppmsts == "CLSD")

cbukanclaimbtmstr2 != "CLAIM" && btmstr2 != "CLAIM_ESAF"

cHitungROdjoinppmRO == 1 && (lthbl != lthbl1 || (lthbl1 == lthbl && (lppmsup != "BELIPART" || lppmsup != "SELESAISELISIH"))) && djoinbtmRO == 1 && btmstr2 != "TAMBAHAN" && btmrekomen != "KPB"

cHitungRONKPBdjoinppmRO == 1 && (lthbl != lthbl1 || (lthbl1 == lthbl && (lppmsup != "BELIPART" || lppmsup != "SELESAISELISIH"))) && djoinbtmRO == 1 && btmstr2 != "TAMBAHAN" && btmrekomen != "KPB"

cClaimEsafKpb(btmstr2 != "CLAIM_ESAF" && (btmrekomen == "KPB" || btmrekomen == "KPBNSS" || btmrekomen == "KPBSINSEN")) || (btmrekomen != "KPB" && btmrekomen != "KPBNSS" && btmrekomen != "KPBSINSEN")

cNosinBknEsaf1(djointbd_nomesinesaf == 1 && btmstr2 == "CLAIM_ESAF") || (btmstr2 != "CLAIM_ESAF")

chrg0btmstr2 != "CLAIM"

cdjoinhrgpersendjointbt_cabpersen == 1 && lstatuscab == "AKTIF" && ( btmstr2 == "REGULER" || btmstr2 == "TAMBAHAN" )

POSTING yang menyentuh field

Tidak ditemukan secara langsung pada SPCALCS komponen ini.

btmtypdeb

btm.btmtypdeb • TEXT(11) • Type Deb

FIELDINPUTRI 12

Field NOCHANGE • 1 default • 1 validasi • 1 hook.

① Tampilan / FIELD

NOCHANGE: tidak diubah seperti input biasa

btmtypdeb       NOCHANGE                INPUTRI 12

② Nilai awal / DEFAULT

Pilihan scan, boleh kosongnilai: INSTANSI

GARANSI · VOUCHER

③ Validasi / EDITS

MANDATORY_IFWajib diisi jika cjikaclaim terpenuhi.cjikaclaim = (btmstr2 == "CLAIM" || btmstr2 == "CLAIM_ESAF")

④ Event / HOOKS

BEFORE_INPUT

Lewati field jika cbukanclaim terpenuhi.

BEFORE_INPUT  cur_field=btmtypdeb     DO_SKIP_IF cbukanclaim

⑤ Aliran data & proses lanjutan

MAP membaca field ini

Tidak ditemukan.

MAP menulis ke field ini

Tidak ditemukan.

CALCS yang membaca field ini

cbknOPEN17btmstr2 == "CLAIM" && ( btmtypdeb == "INSTANSI" || btmtypdeb == "GARANSI" ) && djointkdSpk == 0

ctdkVocherbtmtypdeb != "VOUCHER"

cclaimVocherbtmtypdeb == "VOUCHER"

cCLAIMbtmstr2 == "CLAIM" && btmtypdeb != "VOUCHER"

cUpldMemo((btmtypdeb == "VOUCHER" && djoinaktmemo == 1 && laktdk_memo == "Y") || btmtypdeb != "VOUCHER")

cCabTdkSesuai((btmtypdeb == "VOUCHER" && djointbdcabpromo == 1) || btmtypdeb != "VOUCHER")

cgaransibtmtypdeb == "GARANSI"

cinstansi1btmtypdeb == "INSTANSI"

clocaloke((btmtypdeb == "GARANSI" && (lpanjangspk >= 26 && lpanjangspk <= 28)) || btmtypdeb != "GARANSI")

POSTING yang menyentuh field

Tidak ditemukan secara langsung pada SPCALCS komponen ini.

btmkdsam

btm.btmkdsam • TEXT(21) • Kode Samsat

FIELDINPUTRI 13

Field input • huruf besar • tanpa spasi • 1 validasi • 13 hook.

① Tampilan / FIELD

ALLCAPS: input huruf besarNOSPACE: tanpa spasi

btmkdsam        ALLCAPS NOSPACE         INPUTRI 13

② Nilai awal / DEFAULT

Tidak ada DEFAULT langsung untuk field ini.

③ Validasi / EDITS

MANDATORYWajib diisi.

④ Event / HOOKS

BEFORE_INPUT

Lewati field jika cdjoincabapi2 terpenuhi.

BEFORE_INPUT    cur_field=btmkdsam      DO_SKIP_IF cdjoincabapi2

AFTER_INPUT

Jalankan MAP mpanjangnopol.

AFTER_INPUT   cur_field=btmkdsam      DO_MAP SHOW mpanjangnopol

AFTER_INPUT

Panggil library jika ctglok terpenuhi: ap_slshr(&lDD,btmtgl,btmjtppjk,lplus3,lmin3,&ljmlbln,&ljmlhari);

AFTER_INPUT   cur_field=btmkdsam      DO_LIB_IF ctglok  ap_slshr(&lDD,btmtgl,btmjtppjk,lplus3,lmin3,&ljmlbln,&ljmlhari);

AFTER_INPUT

Panggil library jika crmdstrukturh2_Usia terpenuhi: ap_ambts(gv_INPG,lrmdgabUsia,lUsia,lbts2,lbts3,&lhasil1,&lhasil2,&lhasil3,&lhasil1_txtusia,&lhasil2_txt);

AFTER_INPUT   cur_field=btmkdsam      DO_LIB_IF crmdstrukturh2_Usia ap_ambts(gv_INPG,lrmdgabUsia,lUsia,lbts2,lbts3,&lhasil1,&lhasil2,&lhasil3,&lhasil1_txtusia,&lhasil2_txt);

AFTER_INPUT

Jalankan MAP mpanjangktp.

AFTER_INPUT   cur_field=btmkdsam      DO_MAP SHOW mpanjangktp

AFTER_INPUT

Jalankan MAP mselisihbl.

AFTER_INPUT   cur_field=btmkdsam      DO_MAP SHOW mselisihbl

AFTER_INPUT

Jalankan scan dbscanbrca.

AFTER_INPUT   cur_field=btmkdsam      DO_SCAN dbscanbrca

AFTER_INPUT

Sesudah/sebelum input, jalankan scan dbscanppm jika cbtmkdsam terpenuhi.

AFTER_INPUT   cur_field=btmkdsam      DO_SCAN_IF cbtmkdsam dbscanppm

AFTER_INPUT

Sesudah/sebelum input, jalankan scan dscanpps_kpbnss jika ctdkkosong terpenuhi.

AFTER_INPUT	cur_field=btmkdsam    DO_SCAN_IF ctdkkosong dscanpps_kpbnss

AFTER_INPUT

Validasi interaktif: jika cadanopol benar jalankan mdumstr; jika gagal cursor ditahan/diarahkan (STAY) dan tampil pesan t.btsnNOPOL.

AFTER_INPUT     cur_field=btmkdsam 	DO_MAP SHOW
IF cadanopol 		mdumstr
ELSE HKCURSOR STAY
HKMSG t.btsnNOPOL

AFTER_INPUT

Validasi interaktif: jika cadanosin benar jalankan mdumstr; jika gagal cursor ditahan/diarahkan (STAY) dan tampil pesan t.NosinSalah.

AFTER_INPUT	cur_field=btmkdsam	DO_MAP SHOW
IF cadanosin mdumstr
ELSE HKCURSOR STAY
HKMSG t.NosinSalah

AFTER_INPUT

Validasi interaktif: jika cnopol_reguler benar jalankan mdumstr; jika gagal cursor ditahan/diarahkan (btmkdsam) dan tampil pesan Nopol sudah ada di tipe REGULER, silahkan input tipe TAMBAHAN.

AFTER_INPUT   cur_field=btmkdsam	      DO_MAP SHOW
IF cnopol_reguler mdumstr
ELSE HKCURSOR btmkdsam
HKMSG Nopol sudah ada di tipe REGULER, silahkan input tipe TAMBAHAN

AFTER_INPUT

Validasi interaktif: jika cisiantrian benar jalankan mdumstr; jika gagal cursor ditahan/diarahkan (btmkdsam) dan tampil pesan t.LayarMD.

AFTER_INPUT	cur_field=btmkdsam	DO_MAP SHOW
IF cisiantrian    mdumstr
ELSE HKCURSOR btmkdsam
HKMSG t.LayarMD

⑤ Aliran data & proses lanjutan

MAP membaca field ini

mnext: btmkdsam → r_string2 REPLACE

mmaptlm416: btmkdsam → ltlmnobbm416 REPLACE

MAP menulis ke field ini

Tidak ditemukan.

CALCS yang membaca field ini

cbtmkdsambtmkdsam!=BLANKS

ctglbenar((djoinast2 == 1 && lasttgl >= 19700101 && btmkdsam != BLANKS) || btmkdsam == BLANKS)

cpanjangnopolDO_LIB ap_strln(btmkdsam,&lpanjangnopol);

POSTING yang menyentuh field

Tidak ditemukan secara langsung pada SPCALCS komponen ini.

btmass

btm.btmass • TEXT(21) • Kode Asuransi

FIELDINPUTRI 14

Field input • huruf besar • 1 validasi • 1 hook.

① Tampilan / FIELD

ALLCAPS: input huruf besar

btmass    	ALLCAPS			INPUTRI 14

② Nilai awal / DEFAULT

Tidak ada DEFAULT langsung untuk field ini.

③ Validasi / EDITS

MANDATORYWajib diisi.

④ Event / HOOKS

BEFORE_INPUT

Lewati field jika cdjoincabapi2 terpenuhi.

BEFORE_INPUT    cur_field=btmass        DO_SKIP_IF cdjoincabapi2

⑤ Aliran data & proses lanjutan

MAP membaca field ini

Tidak ditemukan.

MAP menulis ke field ini

Tidak ditemukan.

CALCS yang membaca field ini

Tidak ditemukan.

POSTING yang menyentuh field

Tidak ditemukan secara langsung pada SPCALCS komponen ini.

btmjnsdeb

btm.btmjnsdeb • TEXT(21) • Jenis Deb

FIELDINPUTRI 15

Field input • angka • tanpa spasi • 2 hook.

① Tampilan / FIELD

NUMERIC: input angkaNOSPACE: tanpa spasi

btmjnsdeb	NUMERIC NOSPACE		INPUTRI	15

② Nilai awal / DEFAULT

Tidak ada DEFAULT langsung untuk field ini.

③ Validasi / EDITS

Tidak ada EDITS langsung untuk field ini.

④ Event / HOOKS

BEFORE_INPUT

Lewati field jika cdjoincabapi2 terpenuhi.

BEFORE_INPUT    cur_field=btmjnsdeb     DO_SKIP_IF cdjoincabapi2

BEFORE_INPUT

Lewati field jika cadatlp terpenuhi.

BEFORE_INPUT  cur_field=btmjnsdeb     DO_SKIP_IF cadatlp

⑤ Aliran data & proses lanjutan

MAP membaca field ini

Tidak ditemukan.

MAP menulis ke field ini

Tidak ditemukan.

CALCS yang membaca field ini

cadatlpbtmjnsdeb != BLANKS

POSTING yang menyentuh field

Tidak ditemukan secara langsung pada SPCALCS komponen ini.

btmtypmtr

btm.btmtypmtr • TEXT(21) • Type Motor

FIELDINPUTRI 16

Field input • huruf besar • 2 validasi • 2 hook.

① Tampilan / FIELD

ALLCAPS: input huruf besarSCROLL: mode scroll/lookup framework

btmtypmtr       ALLCAPS SCROLL          INPUTRI 16

② Nilai awal / DEFAULT

Tidak ada DEFAULT langsung untuk field ini.

③ Validasi / EDITS

MANDATORY_IFWajib diisi jika cbukanauto terpenuhi.cbukanauto = djoincabapi2 == 0

VALIDATENilai harus tervalidasi ke tabel brg via index brgstdtkatbr. MAP hasil: mbrgM.Index: brgstdtkatbr → brg [brgsts, brgdata, brgkat, brgkode]

MAP validasi mbrgM

brgnama         lnamabarang    REPLACE
brgnama         btmnama        REPLACE
brgkode         btmtypmtr      REPLACE
brgkat5         btmbisnis      REPLACE
brgfrefik2	btmtypmtr2     REPLACE
lppdperdism     lestimasi      REPLACE_IF cppdperdism_isi
laktjam_start   laktjam_start  REPLACE_IF cdjoinakt
cwaktuest       lwaktuest      DO_CALC_IF cdjoinakt
lketisi		lketisi	       REPLACE_IF cdjoinket
lppdtotfak	ltotalharga    REPLACE_IF cppdtotfak_isi
lppdjml		ltotalqty      REPLACE_IF cppdjml_isi
lpsinamaFLP	lpsinamaFLP    REPLACE_IF cdjoinpsiFLP
lpsinamaMEK	lpsinamaMEK    REPLACE_IF cdjoinpsiMEK
ltbtdf1_biaya	ltbtdf1_biaya  REPLACE_IF cdjointbt_cabshow1
lastnomesin	lastnomesin	REPLACE_IF cdjoinast2
lssunobuk2	lssunobuk2	REPLACE_IF cdjoinssu1
lppmnoll614	lppmnoll614	REPLACE_IF cdjoinppm614
ltglkirimmtr	ltglkirimmtr	REPLACE_IF cdjoinppm614
lbtmytplg611	lbtmytplg611	REPLACE_IF cdjoinbtm611
cnosinesaf	lnosin5		DO_CALC
lseriesesaf	lseriesesaf	REPLACE_IF cdjointbd_nomesinesaf1
cBLANKS		linfokpbnss	DO_CALC_IF cbtmhrg0
cSERVICE2THNa	linfokpbnss	DO_CALC_IF cbtmhrg1
cSERVICE2THNb	linfokpbnss	DO_CALC_IF cbtmhrg2
cPERORANGAN	lketbtmbichek	DO_CALC_IF cbtmbichek1
cINSTANSI	lketbtmbichek	DO_CALC_IF cbtmbichek2
cBLANKS         linfokpbnss     DO_CALC_IF cbtmhrg0x
cOLIKPBSINSENa  linfokpbnss     DO_CALC_IF cbtmhrg1a
cOLIKPBSINSENb  linfokpbnss     DO_CALC_IF cbtmhrg2b
cBLANKS         linfokpbnss     DO_CALC_IF cbtmhrg0_a
cOLI1TAHUNa     linfokpbnss     DO_CALC_IF cbtmhrg1_b
cOLI1TAHUNb     linfokpbnss     DO_CALC_IF cbtmhrg2_c
cOLI1TAHUNa     linfokpbnss     DO_CALC_IF ckpb1tahun_kosong2

④ Event / HOOKS

BEFORE_INPUT

Lewati field jika cdjoinapitbd2 terpenuhi.

BEFORE_INPUT    cur_field=btmtypmtr     DO_SKIP_IF cdjoinapitbd2

AFTER_INPUT

Validasi interaktif: jika cbtmtypmtr0 benar jalankan mbrgM; jika gagal cursor ditahan/diarahkan (btmtypmtr) dan tampil pesan Series Motor Belum Diketahui !!.

AFTER_INPUT   cur_field=btmtypmtr     	DO_MAP SHOW
IF cbtmtypmtr0 mbrgM
ELSE HKCURSOR btmtypmtr
HKMSG Series Motor Belum Diketahui !!

⑤ Aliran data & proses lanjutan

MAP membaca field ini

Tidak ditemukan.

MAP menulis ke field ini

mbrgM: brgkode → btmtypmtr REPLACE

mpanjangnopol: lastmotor → btmtypmtr REPLACE_IF jika cdjoinast2

CALCS yang membaca field ini

cdjoinapitbd2( djoincabapi2 == 1 && ltbddfapi1 == 1 ) || ( djoincabapi3 == 1 && ltbddfapi1 == 1 ) && btmtypmtr != BLANKS

POSTING yang menyentuh field

Tidak ditemukan secara langsung pada SPCALCS komponen ini.

lnamabarang

STRING(101)

LOCALINPUTRI 17

Field input • huruf besar • 1 hook.

① Tampilan / FIELD

ALLCAPS: input huruf besarSCROLL: mode scroll/lookup framework

lnamabarang     ALLCAPS SCROLL          INPUTRI 17

② Nilai awal / DEFAULT

Tidak ada DEFAULT langsung untuk field ini.

③ Validasi / EDITS

Tidak ada EDITS langsung untuk field ini.

④ Event / HOOKS

BEFORE_INPUT

Lewati field jika cOld terpenuhi.

BEFORE_INPUT  cur_field=lnamabarang   DO_SKIP_IF cOld

⑤ Aliran data & proses lanjutan

MAP membaca field ini

Tidak ditemukan.

MAP menulis ke field ini

mbrgM: brgnama → lnamabarang REPLACE

CALCS yang membaca field ini

cOldbtmytbiro=="O" && btmplg !="" && lnamabarang != ""

POSTING yang menyentuh field

Tidak ditemukan secara langsung pada SPCALCS komponen ini.

btmtypmtr2

btm.btmtypmtr2 • TEXT(21) • Type Motor Ke2

FIELDINPUTRI 18

Field terlindungi (PROTECT) • 1 validasi.

① Tampilan / FIELD

PROTECT: dilindungi / bukan input biasaSCROLL: mode scroll/lookup framework

btmtypmtr2	PROTECT SCROLL		INPUTRI 18

② Nilai awal / DEFAULT

Tidak ada DEFAULT langsung untuk field ini.

③ Validasi / EDITS

MANDATORYWajib diisi.

④ Event / HOOKS

Tidak ada BEFORE_INPUT/AFTER_INPUT langsung.

⑤ Aliran data & proses lanjutan

MAP membaca field ini

m4579: btmtypmtr2 → r_string2 REPLACE

m4579b: btmtypmtr2 → r_string2 REPLACE

MAP menulis ke field ini

mbrgM: brgfrefik2 → btmtypmtr2 REPLACE

CALCS yang membaca field ini

crmdgabkpbtunai"KPB1TAHUNTUNAI" + STRIP(btmcab) + STRIP(btmtypmtr2) + STRIP(lppmtk614)

cmampatseriesMAMPAT(btmtypmtr2)

crmdgabpaket2STRIP(btmwrn) + STRIP(btmlokjual) + STRIP(btmposjmn) + STRIP(btmtypmtr2)

crmdgabpaket3STRIP(btmwrn) + STRIP(btmlokjual) + STRIP(btmposjmn) + STRIP(btmtypmtr2)

crmdgabpaket5STRIP(btmsurveyor) + STRIP(btmlokjual) + STRIP(btmtypmtr2)

crmdgabUsia"USIAMOTOR" + STRIP(btmtypmtr2)

crmdgabHitungKpb"HITUNGKPB" + STRIP(btmtypmtr2) + STRIP(btmwrn)

crmdgabkpbtdm3STRIP(btmwrn) + STRIP(btmcab) + STRIP(btmtypmtr2)

crmdgabkpbtdm4STRIP(btmwrn) + STRIP(btmcab) + STRIP(btmtypmtr2)

cbtmtypmtr0btmtypmtr2 != BLANKS

ckirimdata"REKOMENPAKET"+STRIP(btmtypmtr2)+STRIP(lhasil1_txtusia)

POSTING yang menyentuh field

Tidak ditemukan secara langsung pada SPCALCS komponen ini.

btmbisnis

btm.btmbisnis • TEXT(21) • Bisnis

FIELDINPUTRI 18

Field terlindungi (PROTECT).

① Tampilan / FIELD

PROTECT: dilindungi / bukan input biasa

btmbisnis	PROTECT			INPUTRI	18

② Nilai awal / DEFAULT

Tidak ada DEFAULT langsung untuk field ini.

③ Validasi / EDITS

Tidak ada EDITS langsung untuk field ini.

④ Event / HOOKS

Tidak ada BEFORE_INPUT/AFTER_INPUT langsung.

⑤ Aliran data & proses lanjutan

MAP membaca field ini

Tidak ditemukan.

MAP menulis ke field ini

mbrgM: brgkat5 → btmbisnis REPLACE

CALCS yang membaca field ini

crmdgabKilo"KILOMOTOR" + STRIP(btmbisnis)

cmotorcub(btmbisnis == "CUB MID" || btmbisnis == "CUB LOW" || btmbisnis == "CUB HIGH")

cmotorsport(btmbisnis == "SPORT MID" || btmbisnis == "SPORT LOW" || btmbisnis == "SPORT HIGH")

cmotormatic(btmbisnis == "AT MID" || btmbisnis == "AT LOW")

cmotorpremium(btmbisnis == "MATIC" || btmbisnis == "AT HIGH")

cwasher_lewat((ppdjasbrg == "BR" && djoinbrg == 1 && lbrgkat4 == "PART" && lbrgkat5 == "WASHER" && (((btmbisnis == "CUB" || btmbisnis == "CUB HIGH" || btmbisnis == "CUB LOW" || btmbisnis == "CUB MID") && djointbd_kodewashercub == 1) || ((btmbisnis == "MATIC" || btmbisnis == "AT HIGH" || btmbisnis == "AT LOW" || btmbisnis == "AT MID") && djointbd_kodewashermatic == 1) || ((btmbisnis == "SPORT" || btmbisnis == "SPORT HIGH" || btmbisnis == "SPORT LOW" || btmbisnis == "SPORT MID") && djointbd_kodewashersport == 1))) || (djoinbrg == 1 && lbrgkat5 != "WASHER" || ppdjasbrg != "BR"))

ckirimdata2STRIP(btmwrn)+STRIP(btmbisnis)+STRIP(lhasil1_txtkilo)

POSTING yang menyentuh field

Tidak ditemukan secara langsung pada SPCALCS komponen ini.

btmdf2

btm.btmdf2 • DOUBLE • Tambahan Df 2

FIELDINPUTRI 19

Field input • huruf besar • 1 validasi • 9 hook.

① Tampilan / FIELD

ALLCAPS: input huruf besarSCROLL: mode scroll/lookup framework

btmdf2          ALLCAPS SCROLL         	INPUTRI 19

② Nilai awal / DEFAULT

Tidak ada DEFAULT langsung untuk field ini.

③ Validasi / EDITS

MANDATORYWajib diisi.

④ Event / HOOKS

BEFORE_INPUT

Lewati field jika cdjoincabapi2 terpenuhi.

BEFORE_INPUT    cur_field=btmdf2        DO_SKIP_IF cdjoincabapi2

AFTER_INPUT

Jalankan MAP mreg.

AFTER_INPUT   cur_field=btmdf2        DO_MAP SHOW mreg

AFTER_INPUT

Jalankan MAP mrmdgab.

AFTER_INPUT   cur_field=btmdf2        DO_MAP SHOW mrmdgab

AFTER_INPUT

Panggil library jika crmdgab1 terpenuhi: ap_ambts(gv_INPG,lrmdgab,btmdf2,lbts1,lbts3,&lhasil1,&lhasil2,&lhasil3,lhasil1_txtkm,lhasil2_txt);

AFTER_INPUT   cur_field=btmdf2        DO_LIB_IF crmdgab1 ap_ambts(gv_INPG,lrmdgab,btmdf2,lbts1,lbts3,&lhasil1,&lhasil2,&lhasil3,lhasil1_txtkm,lhasil2_txt);

AFTER_INPUT

Panggil library jika crmdstrukturh2_Kilo terpenuhi: ap_ambts(gv_INPG,lrmdgabKilo,btmdf2,lbts2,lbts3,&lhasil1,&lhasil2,&lhasil3,lhasil1_txtkilo,lhasil2_txt);

AFTER_INPUT   cur_field=btmdf2        DO_LIB_IF crmdstrukturh2_Kilo ap_ambts(gv_INPG,lrmdgabKilo,btmdf2,lbts2,lbts3,&lhasil1,&lhasil2,&lhasil3,lhasil1_txtkilo,lhasil2_txt);

AFTER_INPUT

Jalankan scan dbscanbrca.

AFTER_INPUT   cur_field=btmdf2        DO_SCAN dbscanbrca

AFTER_INPUT

Jalankan MAP mtotal2.

AFTER_INPUT   cur_field=btmdf2        DO_MAP SHOW mtotal2

AFTER_INPUT

Jalankan MAP mkm.

AFTER_INPUT   cur_field=btmdf2	      DO_MAP SHOW mkm

AFTER_INPUT

Validasi interaktif: jika clebih benar jalankan mdumstr; jika gagal cursor ditahan/diarahkan (btmdf2) dan tampil pesan KM baru, harus lebih besar dari km lama !!!.

AFTER_INPUT   cur_field=btmdf2        DO_MAP SHOW
IF clebih mdumstr
ELSE HKCURSOR btmdf2
HKMSG KM baru, harus lebih besar dari km lama !!!

⑤ Aliran data & proses lanjutan

MAP membaca field ini

Tidak ditemukan.

MAP menulis ke field ini

Tidak ditemukan.

CALCS yang membaca field ini

ckmberikutbtmdf2 + 2000

clebihbtmdf2 > btmdf1

clebihabtmdf2> 12000 || btmjml>360

cKpbSama(((btmrekomen == "KPB" && lUsia2 <= lhasil2kpb && btmdf2 <= lhasil1kpb) || (btmrekomen != "KPB")) || (djoinakt_historikpb == 0) || (djoinrmdstrukturh2_hitungkpb == 0))

POSTING yang menyentuh field

PST_UPDCMD → spmasterupdDO_LIB_IF crmdstrukturh2_Kilo ap_ambts(gv_INPG,lrmdgabKilo,btmdf2,lbts2,lbts3,&lhasil1,&lhasil2,&lhasil3,&lhasil1_txtkilo,&lhasil2_txt);

btmsubtot

btm.btmsubtot • DOUBLE • Sub Total

FIELDINPUTRI 20

Field terlindungi (PROTECT) • 1 hook.

① Tampilan / FIELD

PROTECT: dilindungi / bukan input biasa

btmsubtot       PROTECT                 INPUTRI 20

② Nilai awal / DEFAULT

Tidak ada DEFAULT langsung untuk field ini.

③ Validasi / EDITS

Tidak ada EDITS langsung untuk field ini.

④ Event / HOOKS

BEFORE_INPUT

Lewati field jika cdjoincabapi2 terpenuhi.

BEFORE_INPUT    cur_field=btmsubtot     DO_SKIP_IF cdjoincabapi2

⑤ Aliran data & proses lanjutan

MAP membaca field ini

Tidak ditemukan.

MAP menulis ke field ini

mkm: ckmberikut → btmsubtot DO_CALC

CALCS yang membaca field ini

Tidak ditemukan.

POSTING yang menyentuh field

Tidak ditemukan secara langsung pada SPCALCS komponen ini.

btmdf1

btm.btmdf1 • DOUBLE • Tambahan Df 1

FIELDINPUTRI 21

Field terlindungi (PROTECT).

① Tampilan / FIELD

PROTECT: dilindungi / bukan input biasaUNSEEN: tidak terlihat

btmdf1          PROTECT UNSEEN          INPUTRI 21

② Nilai awal / DEFAULT

Tidak ada DEFAULT langsung untuk field ini.

③ Validasi / EDITS

Tidak ada EDITS langsung untuk field ini.

④ Event / HOOKS

Tidak ada BEFORE_INPUT/AFTER_INPUT langsung.

⑤ Aliran data & proses lanjutan

MAP membaca field ini

Tidak ditemukan.

MAP menulis ke field ini

mpanjangnopol: castkmmotor → btmdf1 DO_CALC_IF jika cdjoinast2x

CALCS yang membaca field ini

clebihbtmdf2 > btmdf1

POSTING yang menyentuh field

Tidak ditemukan secara langsung pada SPCALCS komponen ini.

btmdvsjl

btm.btmdvsjl • TEXT(21) • Dvs Jual

FIELDINPUTRI 22

Field input • huruf besar • 1 default • 1 validasi • 1 hook.

① Tampilan / FIELD

ALLCAPS: input huruf besar

btmdvsjl        ALLCAPS                 INPUTRI 22

② Nilai awal / DEFAULT

Pilihan scan, boleh kosongnilai: —

25% · 50% · 75% · 100%

③ Validasi / EDITS

MANDATORYWajib diisi.

④ Event / HOOKS

BEFORE_INPUT

Lewati field jika cdjoincabapi2 terpenuhi.

BEFORE_INPUT    cur_field=btmdvsjl      DO_SKIP_IF cdjoincabapi2

⑤ Aliran data & proses lanjutan

MAP membaca field ini

Tidak ditemukan.

MAP menulis ke field ini

Tidak ditemukan.

CALCS yang membaca field ini

Tidak ditemukan.

POSTING yang menyentuh field

Tidak ditemukan secara langsung pada SPCALCS komponen ini.

btmsoa

btm.btmsoa • TEXT(21) • Source Of App

FIELDINPUTRI 23

Field input • huruf besar • 2 validasi • 1 hook.

① Tampilan / FIELD

ALLCAPS: input huruf besar

btmsoa          ALLCAPS                 INPUTRI 23

② Nilai awal / DEFAULT

Tidak ada DEFAULT langsung untuk field ini.

③ Validasi / EDITS

MANDATORYWajib diisi.

VALIDATENilai harus tervalidasi ke tabel tbd via index tbddatkodidx. MAP hasil: mked.Index: tbddatkodidx → tbd [tbddata, tbddtmkode, tbdtblkode, tbdkode]

MAP validasi mked

tbdkode         btmsoa          REPLACE
lppmtglfak	lppmtglfak	REPLACE_IF cdjoinppmRO1

④ Event / HOOKS

BEFORE_INPUT

Lewati field jika cdjoincabapi2x terpenuhi.

BEFORE_INPUT    cur_field=btmsoa        DO_SKIP_IF cdjoincabapi2x

⑤ Aliran data & proses lanjutan

MAP membaca field ini

Tidak ditemukan.

MAP menulis ke field ini

mked: tbdkode → btmsoa REPLACE

CALCS yang membaca field ini

cbknOPEN25(btmtgl >= 20240612 && btmsoa == "GC" && (djoinsvi == 0 || (djoinsvi == 1 && ljmluplstnk == 0))) && g_grpnam == "TUTUP"

cbknOPEN26(btmtgl >= 20240612 && btmsoa == "GC" && djointlmGC == 1 && lgc_instansi == "GC_MBM" && djoinsvi == 1 && lcabinstansistnk == BLANKS) && g_grpnam == "TUTUP"

cSPKSALESbtmsoa == "SPKSALES"

csdhJtp((ltanggalJtp >= g_tgltrn) && (btmsoa == "AHASS EVENT" || btmsoa == "SERVICE VISIT")) || ((ltanggalJtp < g_tgltrn) && btmsoa == "AHASS EVENT" && btmsurveyor == BLANKS) || (btmsoa == "SERVICE VISIT" && btmsurveyor == BLANKS) || ((btmsoa != "AHASS EVENT" && btmsoa != "SERVICE VISIT") && btmsurveyor == BLANKS)

cdjoincabapi2x( djoincabapi3 == 1 && ltbddfapi3 == 1 && btmsoa != BLANKS)

cadapotJS(ltkmtotal==1 && btmsoa == "SPKSALES") && djoinrmdJS ==1 && lrmdgabJS != BLANKS

cpromo_spkltkmtotal==1 || btmsoa != "SPKSALES"

cbukan_darispkbtmsoa !="SPKSALES"

clbhbesardjoinbrgJS ==1 && lbrgdisrp <= ppdhrg && (ltkmtotal==1 && btmsoa == "SPKSALES")

cdis3xppdjasbrg == "JI" && btmsoa !="SPKSALES" && ppdnokrm == BLANKS

cdis3yppdjasbrg == "JI" && btmsoa =="SPKSALES" && ppdhrg >= lbrgdisrp

cdisjs2xppdjasbrg == "JI" && ppdperdis2 > 0 && btmsoa !="SPKSALES"

POSTING yang menyentuh field

Tidak ditemukan secara langsung pada SPCALCS komponen ini.

btmmakelar

btm.btmmakelar • TEXT(21) • Kode Makelar

FIELDINPUTRI 24

Field input • huruf besar • 2 validasi.

① Tampilan / FIELD

ALLCAPS: input huruf besar

btmmakelar      ALLCAPS                 INPUTRI 24

② Nilai awal / DEFAULT

Tidak ada DEFAULT langsung untuk field ini.

③ Validasi / EDITS

MANDATORYWajib diisi.

VALIDATENilai harus tervalidasi ke tabel tbd via index tbddatkodidx. MAP hasil: mals.Index: tbddatkodidx → tbd [tbddata, tbddtmkode, tbdtblkode, tbdkode]

MAP validasi mals

tbdkode         btmmakelar      REPLACE

④ Event / HOOKS

Tidak ada BEFORE_INPUT/AFTER_INPUT langsung.

⑤ Aliran data & proses lanjutan

MAP membaca field ini

Tidak ditemukan.

MAP menulis ke field ini

mals: tbdkode → btmmakelar REPLACE

CALCS yang membaca field ini

Tidak ditemukan.

POSTING yang menyentuh field

Tidak ditemukan secara langsung pada SPCALCS komponen ini.

linfokpbnss

STRING(61)

LOCALINPUTRI 25

Field terlindungi (PROTECT).

① Tampilan / FIELD

PROTECT: dilindungi / bukan input biasa

linfokpbnss	PROTECT			INPUTRI	25

② Nilai awal / DEFAULT

Tidak ada DEFAULT langsung untuk field ini.

③ Validasi / EDITS

Tidak ada EDITS langsung untuk field ini.

④ Event / HOOKS

Tidak ada BEFORE_INPUT/AFTER_INPUT langsung.

⑤ Aliran data & proses lanjutan

MAP membaca field ini

Tidak ditemukan.

MAP menulis ke field ini

mbrgM: cBLANKS → linfokpbnss DO_CALC_IF jika cbtmhrg0

mbrgM: cSERVICE2THNa → linfokpbnss DO_CALC_IF jika cbtmhrg1

mbrgM: cSERVICE2THNb → linfokpbnss DO_CALC_IF jika cbtmhrg2

mbrgM: cBLANKS → linfokpbnss DO_CALC_IF jika cbtmhrg0x

mbrgM: cOLIKPBSINSENa → linfokpbnss DO_CALC_IF jika cbtmhrg1a

mbrgM: cOLIKPBSINSENb → linfokpbnss DO_CALC_IF jika cbtmhrg2b

mbrgM: cBLANKS → linfokpbnss DO_CALC_IF jika cbtmhrg0_a

mbrgM: cOLI1TAHUNa → linfokpbnss DO_CALC_IF jika cbtmhrg1_b

mbrgM: cOLI1TAHUNb → linfokpbnss DO_CALC_IF jika cbtmhrg2_c

mbrgM: cOLI1TAHUNa → linfokpbnss DO_CALC_IF jika ckpb1tahun_kosong2

CALCS yang membaca field ini

Tidak ditemukan.

POSTING yang menyentuh field

Tidak ditemukan secara langsung pada SPCALCS komponen ini.

btmsurveyor

btm.btmsurveyor • TEXT(21) • Kode Surveyor

FIELDINPUTRI 26

Field input • huruf besar • 3 validasi • 12 hook.

① Tampilan / FIELD

ALLCAPS: input huruf besarSCROLL: mode scroll/lookup framework

btmsurveyor     ALLCAPS SCROLL          INPUTRI 26

② Nilai awal / DEFAULT

Tidak ada DEFAULT langsung untuk field ini.

③ Validasi / EDITS

MANDATORY_IFWajib diisi jika cdjointbd_typdatang1 terpenuhi.cdjointbd_typdatang1 = djointbd_typdatang1 == 1

VALIDATE_IFNilai harus tervalidasi ke tabel dtm via index dtmdatstskod jika ctdkVocher terpenuhi. MAP hasil: mdtmP.ctdkVocher = btmtypdeb != "VOUCHER"Index: dtmdatstskod → dtm [dtmdata, dtmsts, dtmkode]

MAP validasi mdtmP

dtmkode         btmsurveyor   	REPLACE
dtmtglkurs	ltanggalJtp   	REPLACE

VALIDATE_IFNilai harus tervalidasi ke tabel dtm via index dtmdatstskod jika cclaimVocher terpenuhi. MAP hasil: mdtmP.cclaimVocher = btmtypdeb == "VOUCHER"Index: dtmdatstskod → dtm [dtmdata, dtmsts, dtmkode]

MAP validasi mdtmP

dtmkode         btmsurveyor   	REPLACE
dtmtglkurs	ltanggalJtp   	REPLACE

④ Event / HOOKS

BEFORE_INPUT

Lewati field jika cCLAIM terpenuhi.

BEFORE_INPUT  cur_field=btmsurveyor   DO_SKIP_IF cCLAIM

AFTER_INPUT

Jalankan MAP mhasilnya jika cbtmstr1ya terpenuhi.

AFTER_INPUT   cur_field=btmsurveyor   DO_MAP SHOW IF cbtmstr1ya mhasilnya

AFTER_INPUT

Jalankan MAP mpromoJasa jika cdjointbd_promoJasa terpenuhi.

AFTER_INPUT	cur_field=btmsurveyor	DO_MAP SHOW IF cdjointbd_promoJasa mpromoJasa

AFTER_INPUT

Jalankan MAP mmasterpromo.

AFTER_INPUT	cur_field=btmsurveyor	DO_MAP SHOW mmasterpromo

AFTER_INPUT

Validasi interaktif: jika cAdaDiskon benar jalankan mdumstr; jika gagal cursor ditahan/diarahkan (STAY) dan tampil pesan t.HrsAhassEvent.

AFTER_INPUT	cur_field=btmsurveyor	DO_MAP SHOW
IF cAdaDiskon	mdumstr
ELSE HKCURSOR STAY
HKMSG t.HrsAhassEvent

AFTER_INPUT

Validasi interaktif: jika csdhJtp benar jalankan mdumstr; jika gagal cursor ditahan/diarahkan (STAY) dan tampil pesan t.PromoSdhTdkBerlaku.

AFTER_INPUT	cur_field=btmsurveyor	DO_MAP SHOW
IF csdhJtp	mdumstr
ELSE HKCURSOR STAY
HKMSG t.PromoSdhTdkBerlaku

AFTER_INPUT

Validasi interaktif: jika cMotorPromo benar jalankan mdumstr; jika gagal cursor ditahan/diarahkan (STAY) dan tampil pesan t.TypeMotorIniTdkPromo.

AFTER_INPUT     cur_field=btmsurveyor   DO_MAP SHOW
IF cMotorPromo      mdumstr
ELSE HKCURSOR STAY
HKMSG t.TypeMotorIniTdkPromo

AFTER_INPUT

Validasi interaktif: jika cUpldMemo benar jalankan mdumstr; jika gagal cursor ditahan/diarahkan (STAY) dan tampil pesan t.BlmUploadMemoHubHO.

AFTER_INPUT     cur_field=btmsurveyor   DO_MAP SHOW
IF cUpldMemo      mdumstr
ELSE HKCURSOR STAY
HKMSG t.BlmUploadMemoHubHO

AFTER_INPUT

Validasi interaktif: jika cCabTdkSesuai benar jalankan mdumstr; jika gagal cursor ditahan/diarahkan (STAY) dan tampil pesan t.CabTdkSesuaiPromo.

AFTER_INPUT     cur_field=btmsurveyor   DO_MAP SHOW
IF cCabTdkSesuai      mdumstr
ELSE HKCURSOR STAY
HKMSG t.CabTdkSesuaiPromo

AFTER_INPUT

Validasi interaktif: jika cCabTdkSesuai1 benar jalankan mdumstr; jika gagal cursor ditahan/diarahkan (STAY) dan tampil pesan t.CabTdkSesuaiPromo.

AFTER_INPUT     cur_field=btmsurveyor   DO_MAP SHOW
IF cCabTdkSesuai1      mdumstr
ELSE HKCURSOR STAY
HKMSG t.CabTdkSesuaiPromo

AFTER_INPUT

Validasi interaktif: jika cPromoparttdm benar jalankan mdumstr; jika gagal cursor ditahan/diarahkan (STAY) dan tampil pesan t.TdkBolehPakaiPromoIni.

AFTER_INPUT	cur_field=btmsurveyor   DO_MAP SHOW
IF cPromoparttdm      mdumstr
ELSE HKCURSOR STAY
HKMSG t.TdkBolehPakaiPromoIni

AFTER_INPUT

Validasi interaktif: jika cPromoNSSPEDULI benar jalankan mdumstr; jika gagal cursor ditahan/diarahkan (STAY) dan tampil pesan t.TdkBolehPakaiPromoIni.

AFTER_INPUT	cur_field=btmsurveyor   DO_MAP SHOW
IF cPromoNSSPEDULI      mdumstr
ELSE HKCURSOR STAY
HKMSG t.TdkBolehPakaiPromoIni

⑤ Aliran data & proses lanjutan

MAP membaca field ini

m4579: btmsurveyor → r_string4 REPLACE

m4579a: btmsurveyor → r_string4 REPLACE

m4579b: btmsurveyor → r_string4 REPLACE

MAP menulis ke field ini

mdtmP: dtmkode → btmsurveyor REPLACE

CALCS yang membaca field ini

cpromo821btmsurveyor == "SHOWROOM EVENT"

crmdgabpaket5STRIP(btmsurveyor) + STRIP(btmlokjual) + STRIP(btmtypmtr2)

cAdaDiskon((djointbd_typdatang1 == 1 && btmsurveyor != BLANKS) || (djointbd_typdatang3 == 1 && btmsurveyor != BLANKS) || (djointbd_typdatang1 == 0 && btmsurveyor != BLANKS && btmrekomen == "OLI") || (djointbd_typdatang1 == 0 && btmsurveyor == BLANKS))

cEvent821(djointbd_typdatang1 == 1 && btmsurveyor == "SHOWROOM EVENT" && btmwrn == "PKTSHOWROOMEVENT") || (djointbd_typdatang1 == 0 && btmsurveyor == BLANKS) || btmsurveyor!="SHOWROOM EVENT"

cevent821blhlewat(btmsurveyor == "SHOWROOM EVENT" && ladapromo821 > 0) || btmwrn != "PKTSHOWROOMEVENT" || g_grpnam == "RI"

cPromoNSSPEDULI((btmsurveyor == "NSS PEDULI" && djointbt_cabnsspeduli == 1) || (btmsurveyor != "NSS PEDULI"))

cPaketNSSPEDULI((btmsurveyor == "NSS PEDULI" && djointbt_cabnsspeduli == 1 && btmwrn == "NSSPEDULI") || (btmsurveyor != "NSS PEDULI" && btmwrn != "NSSPEDULI"))

cTdkDiskon((djointbd_paketotokilo == 1 && btmsurveyor == BLANKS) || djointbd_paketotokilo ==0)

conlykpb1tahun(btmrekomen == "KPB" && btmwrn != "PKTSERVICEKPB1" && btmsurveyor== BLANKS && (btmperppn == 0 || (djointmp_promokpb == 1 && btmperppn < ltmpisidf1)) && djoinbrg == 1 && (lbrgkat4 == "OLI" || lbrgkat4 == "OIL") && lbrgkat5 !="OLI GEAR" && djoinppm614 == 1 && ltglkirimmtr >= 20240901 && (lppmtk614 == "K" || (djoinrmdstrukturh2_kpb1tahun_tunai == 1 && lbtmytplg611 == "Y")) && btmhrg == 2 && djointbt_cabtdkkpb1tahun == 0)

cnotdisbtmguna != "INSTANSI" && btmwrn != "PKTSERVICEKPB1" && btmwrn != "PKTSERVICEKPB2" && btmwrn != "PKTSERVICEKPB3" && btmwrn != "PKTSERVICEKPB4" && btmwrn != "PAKETNORMAL" && btmsurveyor == "" && btmsts == "OPEN"

cnotdisapibtmguna != "INSTANSI" && btmwrn != "PKTSERVICEKPB1" && btmwrn != "PKTSERVICEKPB2" && btmwrn != "PKTSERVICEKPB3" && btmwrn != "PKTSERVICEKPB4" && btmwrn != "PAKETNORMAL" && btmsurveyor == "" && btmsts == "OPEN" && ( g_curcmd == 1 && djoincabapi2 == 1 && ltbdkettype == "ADA" && ppdkdmua == BLANKS )

cnotdisx(btmwrn != "PKTSERVICEKPB1" && btmwrn != "PKTSERVICEKPB2" && btmwrn != "PKTSERVICEKPB3" && btmwrn != "PKTSERVICEKPB4") || (btmguna == "INSTANSI" && btmwrn == "PAKETNORMAL") || (btmsurveyor != BLANKS && btmwrn == "PAKETNORMAL")

cnotdisrmdlrmdgab3 != BLANKS && btmwrn != "PKTSERVICEKPB1" && btmwrn != "PKTSERVICEKPB2" && btmwrn != "PKTSERVICEKPB3" && btmwrn != "PKTSERVICEKPB4" && btmwrn != "PAKETNORMAL" && btmsurveyor == "" && btmsts == "OPEN"

cnotdisrmdapilrmdgab3 != BLANKS && btmwrn != "PKTSERVICEKPB1" && btmwrn != "PKTSERVICEKPB2" && btmwrn != "PKTSERVICEKPB3" && btmwrn != "PKTSERVICEKPB4" && btmwrn != "PAKETNORMAL" && btmsurveyor == "" && btmsts == "OPEN" && ppdkdmua == BLANKS

POSTING yang menyentuh field

Tidak ditemukan secara langsung pada SPCALCS komponen ini.

btmrekomen

btm.btmrekomen • TEXT(21) • Rekomen Or Not Rekomen

FIELDINPUTRI 27

Field input • huruf besar • 2 validasi • 10 hook.

① Tampilan / FIELD

ALLCAPS: input huruf besar

btmrekomen	ALLCAPS			INPUTRI 27

② Nilai awal / DEFAULT

Tidak ada DEFAULT langsung untuk field ini.

③ Validasi / EDITS

MANDATORYWajib diisi.

VALIDATENilai harus tervalidasi ke tabel tbd via index tbddatkodidx. MAP hasil: mpkt.Index: tbddatkodidx → tbd [tbddata, tbddtmkode, tbdtblkode, tbdkode]

MAP validasi mpkt

tbdkode		btmrekomen	REPLACE
ltmpisidf1	ltmpisidf1	REPLACE_IF cdjointmp_promokpb
ltmpisidf2	ltmpisidf2	REPLACE_IF cdjointmp_promokpb

④ Event / HOOKS

AFTER_INPUT

Sesudah/sebelum input, jalankan scan dscantlm_Event821 jika cpromo821 terpenuhi.

AFTER_INPUT	cur_field=btmrekomen  DO_SCAN_IF cpromo821 dscantlm_Event821

AFTER_INPUT

Jalankan MAP mmapkpbnss.

AFTER_INPUT	cur_field=btmrekomen	DO_MAP SHOW mmapkpbnss

AFTER_INPUT

Jalankan MAP mmapkpbsinsen.

AFTER_INPUT	cur_field=btmrekomen	DO_MAP SHOW mmapkpbsinsen

AFTER_INPUT

Jalankan MAP mmapkpbtdm.

AFTER_INPUT	cur_field=btmrekomen	DO_MAP SHOW mmapkpbtdm

AFTER_INPUT

Jalankan MAP mmapkpboli1tahun.

AFTER_INPUT     cur_field=btmrekomen    DO_MAP SHOW mmapkpboli1tahun

AFTER_INPUT

Jalankan MAP mhasilkm jika ckmbsr terpenuhi.

AFTER_INPUT   cur_field=btmrekomen        DO_MAP SHOW IF ckmbsr mhasilkm

AFTER_INPUT

Validasi interaktif: jika cClaimEsafKpb benar jalankan mdumstr; jika gagal cursor ditahan/diarahkan (STAY) dan tampil pesan t.TidakbolehpilihKPBjikatipeCLAIM_ESAF.

AFTER_INPUT     cur_field=btmrekomen    DO_MAP SHOW
IF cClaimEsafKpb mdumstr
ELSE HKCURSOR STAY
HKMSG t.TidakbolehpilihKPBjikatipeCLAIM_ESAF

AFTER_INPUT

Validasi interaktif: jika cAdaOli benar jalankan mdumstr; jika gagal cursor ditahan/diarahkan (STAY) dan tampil pesan t.HrsOli.

AFTER_INPUT	cur_field=btmrekomen	DO_MAP SHOW
IF cAdaOli	mdumstr
ELSE HKCURSOR STAY
HKMSG t.HrsOli

AFTER_INPUT

Validasi interaktif: jika ckpbnssblhlewat benar jalankan mdumstr; jika gagal cursor ditahan/diarahkan (STAY) dan tampil pesan t.AdaKpbHangus.

AFTER_INPUT	cur_field=btmrekomen	DO_MAP SHOW
IF ckpbnssblhlewat	mdumstr
ELSE HKCURSOR STAY
HKMSG t.AdaKpbHangus

AFTER_INPUT

Validasi interaktif: jika cHarusKpb benar jalankan mdumstr; jika gagal cursor ditahan/diarahkan (STAY) dan tampil pesan t.HanyaBisaKpb.

AFTER_INPUT     cur_field=btmrekomen    DO_MAP SHOW
IF cHarusKpb      mdumstr
ELSE HKCURSOR STAY
HKMSG t.HanyaBisaKpb

⑤ Aliran data & proses lanjutan

MAP membaca field ini

Tidak ditemukan.

MAP menulis ke field ini

mpkt: tbdkode → btmrekomen REPLACE

mpromoJasa: lSERVICE → btmrekomen REPLACE

CALCS yang membaca field ini

cbknOPEN20(btmsts == "OPEN" && btmrekomen != "KPB" && btmrekomen != "KPBSINSEN" && btmrekomen != "KPBNSS" && djointbd_nomesinesaf == 1 && djointkdLcr == 0)

ckmbsrbtmrekomen == "SERVICE" && (djointbt_cabotopaket1 == 1 || djointbt_cabotopaket2 == 1)

cHitungROdjoinppmRO == 1 && (lthbl != lthbl1 || (lthbl1 == lthbl && (lppmsup != "BELIPART" || lppmsup != "SELESAISELISIH"))) && djoinbtmRO == 1 && btmstr2 != "TAMBAHAN" && btmrekomen != "KPB"

cHitungRONKPBdjoinppmRO == 1 && (lthbl != lthbl1 || (lthbl1 == lthbl && (lppmsup != "BELIPART" || lppmsup != "SELESAISELISIH"))) && djoinbtmRO == 1 && btmstr2 != "TAMBAHAN" && btmrekomen != "KPB"

cHitungROKPBdjoinppmRO == 1 && (lthbl != lthbl1 || (lthbl1 == lthbl && lppmsup != "BELIPART")) && djoinbtmRO == 1 && btmrekomen == "KPB"

cAdaOli((djointbd_typdatang2 == 1 && btmrekomen == "OLI") || (djointbd_typdatang1 == 1 && btmrekomen == "OLI") || (djointbd_typdatang2 == 0 && btmrekomen != "OLI"))

cpilkpbnssbtmrekomen == "KPBNSS"

cpilkpbnss2btmrekomen == "KPBNSS" && ltdkkpbnss == 0

cpilkpbsinsen((btmrekomen == "KPBSINSEN" || btmrekomen == "KPBTDM") && g_grpnam != "IT" && g_grpnam != "RI" && g_grpnam != "AHASSHEAD" && g_grpnam != "AHASSSPV" && g_grpnam != "AHASSFD" && g_grpnam != "AHASSKABENG" && g_grpnam != "AHASSSA" && g_grpnam != "ADMPART")

cpilkpbsinsen2btmrekomen == "KPBSINSEN" && lppskdpm == "KPB2"

cpilkpbsinsen3btmrekomen == "KPBSINSEN" && lppskdpm == "KPB3"

cpilkpbsinsen4btmrekomen == "KPBSINSEN" && lppskdpm == "KPB4"

cpilkpbtdm2btmrekomen == "KPBTDM" && djoinakt_promotdm == 1 && laktdf1_tdm > 0 && laktdf2_tdm == 0 && laktdf3_tdm == 0 && laktdf4_tdm == 0

cpilkpbtdm3btmrekomen == "KPBTDM" && djoinakt_promotdm == 1 && laktdf1_tdm > 0 && laktdf2_tdm > 0 && laktdf3_tdm == 0 && laktdf4_tdm == 0

cpilkpbtdm4btmrekomen == "KPBTDM" && djoinakt_promotdm == 1 && laktdf1_tdm > 0 && laktdf2_tdm > 0 && laktdf3_tdm > 0 && laktdf4_tdm == 0

cpilkpboli1thn2btmrekomen == "KPB" && djoinakt_historikpb == 1 && laktdf1_tdm > 0 && laktdf2_tdm == 0 && laktdf3_tdm == 0 && laktdf4_tdm == 0

cpilkpboli1thn3btmrekomen == "KPB" && djoinakt_historikpb == 1 && laktdf1_tdm > 0 && laktdf2_tdm > 0 && laktdf3_tdm == 0 && laktdf4_tdm == 0

cpilkpboli1thn4btmrekomen == "KPB" && djoinakt_historikpb == 1 && laktdf1_tdm > 0 && laktdf2_tdm > 0 && laktdf3_tdm > 0 && laktdf4_tdm == 0

+ 20 CALCS lain

POSTING yang menyentuh field

Tidak ditemukan secara langsung pada SPCALCS komponen ini.

btmwrn

btm.btmwrn • TEXT(21) • Warna

FIELDINPUTRI 28

Field input • huruf besar • 2 validasi • 15 hook.

① Tampilan / FIELD

ALLCAPS: input huruf besar

btmwrn          ALLCAPS                 INPUTRI 28

② Nilai awal / DEFAULT

Tidak ada DEFAULT langsung untuk field ini.

③ Validasi / EDITS

MANDATORYWajib diisi.

VALIDATENilai harus tervalidasi ke tabel dtm via index dtmcabkodidx. MAP hasil: mdtmKG.Index: dtmcabkodidx → dtm [dtmdata, dtmcab, dtmkode]

MAP validasi mdtmKG

dtmkode		btmwrn		REPLACE
dtmongkos	lKpbKe		REPLACE
crmdgabpaket1	lrmdgabpaket1	DO_CALC
crmdgabpaket2	lrmdgabpaket2	DO_CALC
crmdgabpaket3	lrmdgabpaket3	DO_CALC
crmdgabpaket4	lrmdgabpaket4	DO_CALC
crmdgabpaket5	lrmdgabpaket5	DO_CALC
crmdgabUsia	lrmdgabUsia	DO_CALC
crmdgabKilo	lrmdgabKilo	DO_CALC
crmdgabkpbtdm3	lrmdgabkpbtdm3	DO_CALC_IF cisins
crmdgabkpbtdm4	lrmdgabkpbtdm4	DO_CALC_IF cisins
cJTPSERVISCUB2		lJTPSERVIS2a	DO_CALC_IF cmotorcub
cJTPSERVISMATIC2   	lJTPSERVIS2a    DO_CALC_IF cmotorsport
cJTPSERVISSPORT2   	lJTPSERVIS2a    DO_CALC_IF cmotormatic
cJTPSERVISPREMIUM2	lJTPSERVIS2a    DO_CALC_IF cmotorpremium

④ Event / HOOKS

BEFORE_INPUT

Lewati field jika cbtmstr1ya terpenuhi.

BEFORE_INPUT  cur_field=btmwrn	      DO_SKIP_IF cbtmstr1ya

AFTER_INPUT

Jalankan MAP mrmdgab.

AFTER_INPUT   cur_field=btmwrn        DO_MAP SHOW mrmdgab

AFTER_INPUT

Panggil library jika crmdstrukturh2_hitungkpb terpenuhi: ap_ambts(gv_INPG,lrmdgabHitungKpb,lbts1,lbts2,lbts3,&lhasil1kpb,&lhasil2kpb,&lhasil3,lhasil1_txtHitungKpb,lhasil2_txt);

AFTER_INPUT   cur_field=btmwrn        DO_LIB_IF crmdstrukturh2_hitungkpb ap_ambts(gv_INPG,lrmdgabHitungKpb,lbts1,lbts2,lbts3,&lhasil1kpb,&lhasil2kpb,&lhasil3,lhasil1_txtHitungKpb,lhasil2_txt);

BEFORE_INPUT

Lewati field jika cpilkpbnss terpenuhi.

BEFORE_INPUT  cur_field=btmwrn	      DO_SKIP_IF cpilkpbnss

BEFORE_INPUT

Lewati field jika cpilkpbsinsen terpenuhi.

BEFORE_INPUT  cur_field=btmwrn	      DO_SKIP_IF cpilkpbsinsen

AFTER_INPUT

Jalankan MAP mkpb1tahun.

AFTER_INPUT	cur_field=btmwrn 	DO_MAP SHOW mkpb1tahun

AFTER_INPUT

Jalankan MAP mhitungtglkrm.

AFTER_INPUT	cur_field=btmwrn	DO_MAP SHOW mhitungtglkrm

AFTER_INPUT

Validasi interaktif: jika cEvent821 benar jalankan mdumstr; jika gagal cursor ditahan/diarahkan (STAY) dan tampil pesan t.ServisHarusShowroom.

AFTER_INPUT     cur_field=btmwrn        DO_MAP SHOW
IF cEvent821	        mdumstr
ELSE HKCURSOR STAY
HKMSG t.ServisHarusShowroom

AFTER_INPUT

Validasi interaktif: jika cevent821blhlewat benar jalankan mdumstr; jika gagal cursor ditahan/diarahkan (STAY) dan tampil pesan t.BlmAdaEvent821.

AFTER_INPUT	cur_field=btmwrn	DO_MAP SHOW
IF cevent821blhlewat	mdumstr
ELSE HKCURSOR STAY
HKMSG t.BlmAdaEvent821

AFTER_INPUT

Validasi interaktif: jika cPaketOtoKilo benar jalankan mdumstr; jika gagal cursor ditahan/diarahkan (STAY) dan tampil pesan t.PaketBlmTersediaDiCab.

AFTER_INPUT	cur_field=btmwrn	DO_MAP SHOW
IF cPaketOtoKilo	mdumstr
ELSE HKCURSOR STAY
HKMSG t.PaketBlmTersediaDiCab

AFTER_INPUT

Validasi interaktif: jika cTdkDiskon benar jalankan mdumstr; jika gagal cursor ditahan/diarahkan (STAY) dan tampil pesan t.TdkBolehAdaPromo.

AFTER_INPUT     cur_field=btmwrn    	DO_MAP SHOW
IF cTdkDiskon      	mdumstr
ELSE HKCURSOR STAY
HKMSG t.TdkBolehAdaPromo

AFTER_INPUT

Validasi interaktif: jika cNosinBknEsaf2 benar jalankan mdumstr; jika gagal cursor ditahan/diarahkan (STAY) dan tampil pesan t.NosinBknEsaf.

AFTER_INPUT	cur_field=btmwrn	DO_MAP SHOW
IF cNosinBknEsaf2 	mdumstr
ELSE HKCURSOR STAY
HKMSG t.NosinBknEsaf

AFTER_INPUT

Validasi interaktif: jika cPaketLewat benar jalankan mdumstr; jika gagal cursor ditahan/diarahkan (STAY) dan tampil pesan t.PaketServisKadaluarsa.

AFTER_INPUT     cur_field=btmwrn    	DO_MAP SHOW
IF cPaketLewat      	mdumstr
ELSE HKCURSOR STAY
HKMSG t.PaketServisKadaluarsa

AFTER_INPUT

Validasi interaktif: jika cPaketNSSPEDULI benar jalankan mdumstr; jika gagal cursor ditahan/diarahkan (STAY) dan tampil pesan t.KodePromoBukanNssPeduli.

AFTER_INPUT     cur_field=btmwrn	DO_MAP SHOW
IF cPaketNSSPEDULI	mdumstr
ELSE HKCURSOR STAY
HKMSG t.KodePromoBukanNssPeduli

AFTER_INPUT

Validasi interaktif: jika cKpbSama benar jalankan mdumstr; jika gagal cursor ditahan/diarahkan (STAY) dan tampil pesan t.KpbTdkSamaDenganUsia.

AFTER_INPUT	cur_field=btmwrn	DO_MAP SHOW
IF cKpbSama		mdumstr
ELSE HKCURSOR STAY
HKMSG t.KpbTdkSamaDenganUsia

⑤ Aliran data & proses lanjutan

MAP membaca field ini

m4579: btmwrn → r_string3 REPLACE

m4579a: btmwrn → r_string3 REPLACE

m4579b: btmwrn → r_string3 REPLACE

MAP menulis ke field ini

mdtmKG: dtmkode → btmwrn REPLACE

mhasilnya: lhasil1_txtkm → btmwrn REPLACE_IF jika ckmbsr

mhasilnya: cClaim → btmwrn DO_CALC_IF jika cClaima

mhasilkm: lhasil1_txtkm → btmwrn REPLACE

mpromoJasa: lPAKETSERVICE → btmwrn REPLACE

mmapkpbnss: lppskdpm → btmwrn REPLACE_IF jika cpilkpbnss2

mmapkpbsinsen: cKPBSINSEN2 → btmwrn DO_CALC_IF jika cpilkpbsinsen2

mmapkpbsinsen: cKPBSINSEN3 → btmwrn DO_CALC_IF jika cpilkpbsinsen3

mmapkpbsinsen: cKPBSINSEN4 → btmwrn DO_CALC_IF jika cpilkpbsinsen4

mmapkpbtdm: cKPBTDM2 → btmwrn DO_CALC_IF jika cpilkpbtdm2

mmapkpbtdm: cKPBTDM3 → btmwrn DO_CALC_IF jika cpilkpbtdm3

mmapkpbtdm: cKPBTDM4 → btmwrn DO_CALC_IF jika cpilkpbtdm4

mmapkpboli1tahun: cKPBOLI1THN_2 → btmwrn DO_CALC_IF jika cpilkpboli1thn2

mmapkpboli1tahun: cKPBOLI1THN_3 → btmwrn DO_CALC_IF jika cpilkpboli1thn3

mmapkpboli1tahun: cKPBOLI1THN_4 → btmwrn DO_CALC_IF jika cpilkpboli1thn4

CALCS yang membaca field ini

ckpb1tahun_kosong2(((djoinppm614 == 1 && ltglkirimmtr >= 20240901 && lppmtk614 == "K") || (djoinppm614 == 1 && ltglkirimmtr >= 20240901 && lbtmytplg611 == "Y" && djoinrmdstrukturh2_kpb1tahun_tunai == 1)) && (djoinakt_historikpb == 1 && (laktdf1_tdm == 0 && (btmwrn == "PKTSERVICEKPB2" || btmwrn == "PKTSERVICEKPB3" || btmwrn == "PKTSERVICEKPB4" || btmwrn == "PKTSERKPB2 ELECTRIC" || btmwrn == "PKTSERKPB3 ELECTRIC")) || (laktdf1_tdm > 0 && laktdf2_tdm == 0 && (btmwrn == "PKTSERVICEKPB3" || btmwrn == "PKTSERVICEKPB4" || btmwrn == "PKTSERKPB3 ELECTRIC")) || (laktdf1_tdm > 0 && laktdf2_tdm > 0 && laktdf3_tdm == 0 && (btmwrn == "PKTSERVICEKPB4"))))

ckpb1tahun_ada(((djoinppm614 == 1 && ltglkirimmtr >= 20240901 && lppmtk614 == "K") || (djoinppm614 == 1 && ltglkirimmtr >= 20240901 && lbtmytplg611 == "Y" && djoinrmdstrukturh2_kpb1tahun_tunai == 1)) && (djoinakt_historikpb == 1 && (laktdf1_tdm == 0 && laktdf2_tdm == 0 && laktdf3_tdm == 0 && laktdf4_tdm == 0 && (btmwrn == "PKTSERVICEKPB1" || btmwrn == "PKTSERKPB1 ELECTRIC")) || (laktdf1_tdm > 0 && laktdf2_tdm == 0 && laktdf3_tdm == 0 && laktdf4_tdm == 0) || (laktdf1_tdm > 0 && laktdf2_tdm > 0 && laktdf3_tdm == 0 && laktdf4_tdm == 0) || (laktdf1_tdm > 0 && laktdf2_tdm > 0 && laktdf3_tdm > 0 && laktdf4_tdm == 0))) || (djoinppm614 == 1 && ltglkirimmtr >= 20240901 && lppmtk614 == "K" && djointbt_cabonlykpb1tahun == 1)

crmdgabpaket1STRIP(btmwrn) + STRIP(btmlokjual) + STRIP(btmposjmn)

crmdgabpaket2STRIP(btmwrn) + STRIP(btmlokjual) + STRIP(btmposjmn) + STRIP(btmtypmtr2)

crmdgabpaket3STRIP(btmwrn) + STRIP(btmlokjual) + STRIP(btmposjmn) + STRIP(btmtypmtr2)

crmdgabpaket4STRIP(btmwrn) + STRIP(btmlokjual) + STRIP(btmposjmn)

crmdgabHitungKpb"HITUNGKPB" + STRIP(btmtypmtr2) + STRIP(btmwrn)

crmdgabasuransi1"PROMOASURANSI1" + STRIP(btmcab) + STRIP(btmwrn)

crmdgabkpbtdm3STRIP(btmwrn) + STRIP(btmcab) + STRIP(btmtypmtr2)

crmdgabkpbtdm4STRIP(btmwrn) + STRIP(btmcab) + STRIP(btmtypmtr2)

cEvent821(djointbd_typdatang1 == 1 && btmsurveyor == "SHOWROOM EVENT" && btmwrn == "PKTSHOWROOMEVENT") || (djointbd_typdatang1 == 0 && btmsurveyor == BLANKS) || btmsurveyor!="SHOWROOM EVENT"

cevent821blhlewat(btmsurveyor == "SHOWROOM EVENT" && ladapromo821 > 0) || btmwrn != "PKTSHOWROOMEVENT" || g_grpnam == "RI"

cPaketNSSPEDULI((btmsurveyor == "NSS PEDULI" && djointbt_cabnsspeduli == 1 && btmwrn == "NSSPEDULI") || (btmsurveyor != "NSS PEDULI" && btmwrn != "NSSPEDULI"))

cNosinBknEsaf2(djointbd_nomesinesaf == 1 && btmwrn == "PAKET ESAF/LCR") || (btmwrn != "PAKET ESAF/LCR")

cclaim2btmwrn == "CLAIM"

ckpb234(djoinbrg == 1 && (lbrgkat4 == "OLI" || lbrgkat4 == "OIL") && ppdsup != "AHM" && (btmwrn == "PKTSERVICEKPB2" || btmwrn == "PKTSERVICEKPB3" || btmwrn == "PKTSERVICEKPB4")) || djointbd_promoJasa == 1

cserviceoli(djoinbrg == 1 && (lbrgkat4 == "OLI" || lbrgkat4 == "OIL") && ppdsup != "AHM" && (btmrekomen == "SERVICE" || btmrekomen == "SERVIS RINGAN" || btmrekomen == "HEAVY REPAIR" || btmrekomen == "LCR" || btmwrn == "PKTSERVICEKPB2" || btmwrn == "PKTSERVICEKPB3" || btmwrn == "PKTSERVICEKPB4"))

ckpb234x(ppdjasbrg == "BR" && ppdsup != "AHM" && (btmwrn == "PKTSERVICEKPB1" || btmwrn == "PKTSERVICEKPB2" || btmwrn == "PKTSERVICEKPB3" || btmwrn == "PKTSERVICEKPB4" || btmrekomen == "SERVICE" || btmrekomen == "OLI" || btmrekomen == "GANTIPART" || btmrekomen == "AKI" || btmrekomen == "BAN" || btmrekomen == "SERVIS RINGAN" || btmrekomen == "ADDITIONAL" || btmrekomen == "HEAVY REPAIR" || btmrekomen == "LCR") || (ppdjasbrg == "BR" && ppdsup != "AHM" && (btmrekomen == "KPBNSS" || btmrekomen == "KPBSINSEN" || btmrekomen == "KPBTDM") && djoinbrg == 1 && lbrgkat4 != "OLI" && lbrgkat4 != "OIL"))

+ 14 CALCS lain

POSTING yang menyentuh field

Tidak ditemukan secara langsung pada SPCALCS komponen ini.

btmtdjadi

btm.btmtdjadi • DOUBLE • Tanda Jadi

FIELDINPUTRI 29

Field NOCHANGE • 1 default • 1 validasi • 2 hook.

① Tampilan / FIELD

NOCHANGE: tidak diubah seperti input biasa

btmtdjadi       NOCHANGE                INPUTRI 29

② Nilai awal / DEFAULT

Pilihan scan, boleh kosongnilai: —

1 "KONFIRM CUST,VIA TLP" · 2 "LANGSUNG DIKERJAKAN"

③ Validasi / EDITS

MANDATORYWajib diisi.

④ Event / HOOKS

AFTER_INPUT

Jalankan MAP mlist.

AFTER_INPUT     cur_field=btmtdjadi     DO_MAP SHOW mlist

AFTER_INPUT

Validasi interaktif: jika ckpbtdmblhlewat benar jalankan mdumstr; jika gagal cursor ditahan/diarahkan (STAY) dan tampil pesan t.AdaKpbHangus2.

AFTER_INPUT     cur_field=btmtdjadi     DO_MAP SHOW
IF ckpbtdmblhlewat      mdumstr
ELSE HKCURSOR STAY
HKMSG t.AdaKpbHangus2

⑤ Aliran data & proses lanjutan

MAP membaca field ini

Tidak ditemukan.

MAP menulis ke field ini

Tidak ditemukan.

CALCS yang membaca field ini

clist1xbtmtdjadi == 1

clist2xbtmtdjadi == 2

POSTING yang menyentuh field

Tidak ditemukan secara langsung pada SPCALCS komponen ini.

btmkdkms

btm.btmkdkms • TEXT(21) • Kode Komisi

FIELDINPUTRI 30

Field terlindungi (PROTECT).

① Tampilan / FIELD

PROTECT: dilindungi / bukan input biasa

btmkdkms        PROTECT                 INPUTRI 30

② Nilai awal / DEFAULT

Tidak ada DEFAULT langsung untuk field ini.

③ Validasi / EDITS

Tidak ada EDITS langsung untuk field ini.

④ Event / HOOKS

Tidak ada BEFORE_INPUT/AFTER_INPUT langsung.

⑤ Aliran data & proses lanjutan

MAP membaca field ini

mupdbtmtr: btmkdkms → ppdnobuk REPLACE

MAP menulis ke field ini

Tidak ditemukan.

CALCS yang membaca field ini

Tidak ditemukan.

POSTING yang menyentuh field

Tidak ditemukan secara langsung pada SPCALCS komponen ini.

lENTER

STRING(11)

LOCALINPUTRI 32

Field NOCHANGE • 1 default.

① Tampilan / FIELD

NOCHANGE: tidak diubah seperti input biasa

lENTER		NOCHANGE		INPUTRI	32

② Nilai awal / DEFAULT

Nilai awal umumnilai: ENTER

③ Validasi / EDITS

Tidak ada EDITS langsung untuk field ini.

④ Event / HOOKS

Tidak ada BEFORE_INPUT/AFTER_INPUT langsung.

⑤ Aliran data & proses lanjutan

MAP membaca field ini

Tidak ditemukan.

MAP menulis ke field ini

Tidak ditemukan.

CALCS yang membaca field ini

Tidak ditemukan.

POSTING yang menyentuh field

Tidak ditemukan secara langsung pada SPCALCS komponen ini.

ltomdet_d

STRING(31)

LOCALINPUTRI 32

Field input • tombol • 1 default.

① Tampilan / FIELD

TOMBOL: ditampilkan sebagai tombol

ltomdet_d       TOMBOL                  INPUTRI 32

② Nilai awal / DEFAULT

Nilai awal umumnilai: "1d. Detil Servis"

③ Validasi / EDITS

Tidak ada EDITS langsung untuk field ini.

④ Event / HOOKS

Tidak ada BEFORE_INPUT/AFTER_INPUT langsung.

⑤ Aliran data & proses lanjutan

MAP membaca field ini

Tidak ditemukan.

MAP menulis ke field ini

Tidak ditemukan.

CALCS yang membaca field ini

Tidak ditemukan.

POSTING yang menyentuh field

Tidak ditemukan secara langsung pada SPCALCS komponen ini.

ltomdet_2d

STRING(31)

LOCALINPUTRI 33

Field input • tombol • 1 default.

① Tampilan / FIELD

TOMBOL: ditampilkan sebagai tombol

ltomdet_2d      TOMBOL                  INPUTRI 33

② Nilai awal / DEFAULT

Nilai awal umumnilai: "2d. Informasi"

③ Validasi / EDITS

Tidak ada EDITS langsung untuk field ini.

④ Event / HOOKS

Tidak ada BEFORE_INPUT/AFTER_INPUT langsung.

⑤ Aliran data & proses lanjutan

MAP membaca field ini

Tidak ditemukan.

MAP menulis ke field ini

Tidak ditemukan.

CALCS yang membaca field ini

Tidak ditemukan.

POSTING yang menyentuh field

Tidak ditemukan secara langsung pada SPCALCS komponen ini.

ltomdet_3d

STRING(31)

LOCALINPUTRI 34

Field input • tombol • 1 default.

① Tampilan / FIELD

TOMBOL: ditampilkan sebagai tombol

ltomdet_3d      TOMBOL                  INPUTRI 34

② Nilai awal / DEFAULT

Nilai awal umumnilai: "3d. Detail Info"

③ Validasi / EDITS

Tidak ada EDITS langsung untuk field ini.

④ Event / HOOKS

Tidak ada BEFORE_INPUT/AFTER_INPUT langsung.

⑤ Aliran data & proses lanjutan

MAP membaca field ini

Tidak ditemukan.

MAP menulis ke field ini

Tidak ditemukan.

CALCS yang membaca field ini

Tidak ditemukan.

POSTING yang menyentuh field

Tidak ditemukan secara langsung pada SPCALCS komponen ini.

ltomdet_4d

STRING(31)

LOCALINPUTRI 35

Field input • tombol • 1 default.

① Tampilan / FIELD

TOMBOL: ditampilkan sebagai tombol

ltomdet_4d	TOMBOL			INPUTRI	35

② Nilai awal / DEFAULT

Nilai awal umumnilai: "4d. Cetak Fkt Pajak"

③ Validasi / EDITS

Tidak ada EDITS langsung untuk field ini.

④ Event / HOOKS

Tidak ada BEFORE_INPUT/AFTER_INPUT langsung.

⑤ Aliran data & proses lanjutan

MAP membaca field ini

Tidak ditemukan.

MAP menulis ke field ini

Tidak ditemukan.

CALCS yang membaca field ini

Tidak ditemukan.

POSTING yang menyentuh field

Tidak ditemukan secara langsung pada SPCALCS komponen ini.

ltomdet_5d

STRING(31)

LOCALINPUTRI 35

Field input • tombol • 1 default.

① Tampilan / FIELD

TOMBOL: ditampilkan sebagai tombol

ltomdet_5d	TOMBOL			INPUTRI	35

② Nilai awal / DEFAULT

Nilai awal umumnilai: "5d. Ubh Ambil Barang"

③ Validasi / EDITS

Tidak ada EDITS langsung untuk field ini.

④ Event / HOOKS

Tidak ada BEFORE_INPUT/AFTER_INPUT langsung.

⑤ Aliran data & proses lanjutan

MAP membaca field ini

Tidak ditemukan.

MAP menulis ke field ini

Tidak ditemukan.

CALCS yang membaca field ini

Tidak ditemukan.

POSTING yang menyentuh field

Tidak ditemukan secara langsung pada SPCALCS komponen ini.

lwaktuest

TIME(4)

LOCAL

Field terlindungi (PROTECT).

① Tampilan / FIELD

PROTECT: dilindungi / bukan input biasaBIG31

lwaktuest       PROTECT                 BIG     31

② Nilai awal / DEFAULT

Tidak ada DEFAULT langsung untuk field ini.

③ Validasi / EDITS

Tidak ada EDITS langsung untuk field ini.

④ Event / HOOKS

Tidak ada BEFORE_INPUT/AFTER_INPUT langsung.

⑤ Aliran data & proses lanjutan

MAP membaca field ini

mnext: lwaktuest → r_time1 REPLACE

MAP menulis ke field ini

mcabLok: cBLANKS → lwaktuest DO_CALC_IF jika cdjoinakt0

mbrgM: cwaktuest → lwaktuest DO_CALC_IF jika cdjoinakt

CALCS yang membaca field ini

Tidak ditemukan.

POSTING yang menyentuh field

Tidak ditemukan secara langsung pada SPCALCS komponen ini.

lwaktuest2

TIME(4)

LOCAL

Field terlindungi (PROTECT).

① Tampilan / FIELD

PROTECT: dilindungi / bukan input biasaBIG31

lwaktuest2      PROTECT                 BIG     31

② Nilai awal / DEFAULT

Tidak ada DEFAULT langsung untuk field ini.

③ Validasi / EDITS

Tidak ada EDITS langsung untuk field ini.

④ Event / HOOKS

Tidak ada BEFORE_INPUT/AFTER_INPUT langsung.

⑤ Aliran data & proses lanjutan

MAP membaca field ini

Tidak ditemukan.

MAP menulis ke field ini

mcabLok: cBLANKS → lwaktuest2 DO_CALC

mcabLok: lWktEstPeng → lwaktuest2 REPLACE_IF jika cAktEstPeng

CALCS yang membaca field ini

Tidak ditemukan.

POSTING yang menyentuh field

Tidak ditemukan secara langsung pada SPCALCS komponen ini.

KOMPONEN LAYAR

master2

7 field

FIELD block: master2

7 field

Lihat IMAGE / bentuk layar

IMAGE(master2)

/----------------------------------\
|/--------------------------------\|
|| i.NoPol : ____________________ ||
|| t.NoSer : ____________________ ||
|| t.NmBrg : ____________________ ||
|| t.Total : ____________________ ||
|| t.Potkpb: ____________________ ||
|| t.disc  : ____________________ ||
|| t.SubTot: ____________________ ||
|\--------------------------------/|
\----------------------------------/

btmkdsam

btm.btmkdsam • TEXT(21) • Kode Samsat

FIELDINPUTRI 2

Field input • huruf besar • tanpa spasi.

① Tampilan / FIELD

ALLCAPS: input huruf besarNOSPACE: tanpa spasi

btmkdsam        ALLCAPS NOSPACE         INPUTRI 2

② Nilai awal / DEFAULT

Tidak ada DEFAULT langsung untuk field ini.

③ Validasi / EDITS

Tidak ada EDITS langsung untuk field ini.

④ Event / HOOKS

Tidak ada BEFORE_INPUT/AFTER_INPUT langsung.

⑤ Aliran data & proses lanjutan

MAP membaca field ini

mnext: btmkdsam → r_string2 REPLACE

mmaptlm416: btmkdsam → ltlmnobbm416 REPLACE

MAP menulis ke field ini

Tidak ditemukan.

CALCS yang membaca field ini

cbtmkdsambtmkdsam!=BLANKS

ctglbenar((djoinast2 == 1 && lasttgl >= 19700101 && btmkdsam != BLANKS) || btmkdsam == BLANKS)

cpanjangnopolDO_LIB ap_strln(btmkdsam,&lpanjangnopol);

POSTING yang menyentuh field

Tidak ditemukan secara langsung pada SPCALCS komponen ini.

btmwrn

btm.btmwrn • TEXT(21) • Warna

FIELDINPUTRI 4

Field terlindungi (PROTECT).

① Tampilan / FIELD

PROTECT: dilindungi / bukan input biasa

btmwrn          PROTECT                 INPUTRI 4