Raw source SCT
SCREEN 4521 APP_TYPE s.PostJual
/*SCR_NXT_POSTING_IF croot 4810
SCR_NXT_MAP mnext
CALCS()
croot g_usrkode!="ROOT"*/
LOCAL
PGM_FIELDS
lVERSI STRING 21
lnobuk STRING 21
lscr STRING 11
lurut1 INT2 2
lurut2 INT2 2
luruttkd INT2 2
l11 INT2 2
/*lhasildis DFLOAT 8
lrmdgab STRING 61
lMEKANIK STRING 21*/
lbts1 DFLOAT 8
lbts2 DFLOAT 8
lbts3 DFLOAT 8
lhasil1_txt STRING 21
lhasil2_txt STRING 21
lhasil2 DFLOAT 8
lhasil3 DFLOAT 8
lhasil1hrg DFLOAT 8
lpiudagahass STRING 21
ldcahass STRING 11
lnobuk840 STRING 21
ljnsdesk STRING 21
lcabpst STRING 21
lsystime TIME 4
lwaktuest TIME 4
ldtthbl STRING 11
lbtmdata STRING 11
lbtmkdsam STRING 21
lbtmtgl DATE 4
lnomesin STRING 21
lnorangka STRING 21
lrtmtgl DATE 4
ldum INT2 2
lrmdgabpaket STRING 61
lrtmkode2 STRING 21
lKUNCIABSEN STRING 11
lDTAHASS STRING 11
lasset STRING 11
lrtmnobuk STRING 21
l2532 STRING 21
lDATAAPIH2 STRING 11
lUPLOADPROMO1 STRING 21
lUPLOADPROMO2 STRING 21
lPROMOOLI4 STRING 21
lPROMOOLI3 STRING 21
/*lPROMOLCR STRING 21
lPROMOLCR11 STRING 21*/
lTMPPROMOVC STRING 11
lTMPPROMO STRING 11
lupld1_voucher STRING 2
lupld2_voucher STRING 2
ltrans STRING 21
ltlmperpph DFLOAT 8
lgroupcust STRING 11
lPROMOTDM STRING 11
lPROMOTDM4 STRING 21
lDTKPBAHS STRING 11
lDTKPBAHS21 STRING 21
lINFOLPART STRING 11
lCABANGAHASS STRING 21
lCABPROMOLCR STRING 21
lNASIONAL STRING 21
lMASTERJASAESAF STRING 21
lPROMOLCRESAF STRING 21
lSPAREPARTG STRING 11
ltldnobuk STRING 21
lnourt416 INT2 2
lnipADMPART STRING 21
lnipKABENG STRING 21
lnipSA STRING 21
lnipFD STRING 21
lnipADH STRING 21
lh2 STRING 21
lADMPART STRING 21
lADH STRING 21
lAHASSKABENG STRING 21
lAHASSSA STRING 21
lAHASSFD STRING 21
lthbls STRING 21
lkunciabsen STRING 11
lnobuk416ABK STRING 21
lCAB416 STRING 21
ltgmtype STRING 11
lNAS STRING 21
lbrchrgjla DFLOAT 8
lalmjalanKtp STRING 251
lalmpropKtp STRING 21
lalmnampropKtp STRING 31
lalmkecKtp STRING 21
lalmnamkecKtp STRING 31
lalmkelKtp STRING 21
lalmnamkelKtp STRING 31
lalmkotaKtp STRING 21
lalmnamkotaKtp STRING 31
lalmrtKtp STRING 21
lalmrwKtp STRING 21
lalmkdposKtp STRING 11
lpsmins2 STRING 21
lalmnama_pembw STRING 251
lalmnama2_pembw STRING 251
lalmprop_pembw STRING 21
lalmnamprop_pembw STRING 31
lalmkec_pembw STRING 21
lalmnamkec_pembw STRING 31
lalmkel_pembw STRING 21
lalmnamkel_pembw STRING 31
lINFOPEMBW STRING 11
lPSMKTP STRING 11
lPSMAHASS STRING 11
lppmpry STRING 21
ltkdjenis STRING 21
ltkdnoll STRING 21
ltkdrek STRING 21
ltlmplg416 STRING 21
lPOSTING620 STRING 11
lOPENOK STRING 21
lINPGOK STRING 21
lketisi2 STRING 251
lINFOSARAN STRING 11
l620 STRING 21
l1 STRING 11
ladakpb1 INT2 2
ladakpb2 INT2 2
ladakpb3 INT2 2
ladakpb4 INT2 2
l4579 INT2 2
lm4579 STRING 15
lPIL8 STRING 21
lfotostnk11 STRING 11
lKOMLCRAHS STRING 11
ljmlKABENG INT2 2
ljmlSA INT2 2
ljmlFD INT2 2
/*MAP(mnext)
btmnobuk r_string1 REPLACE
btmkdsam r_string2 REPLACE
btmscr r_string5 REPLACE
lwaktuest r_time1 REPLACE
btmtgl r_date1 REPLACE
ltrans r_string9 REPLACE*/
MAP(mjoincab)
cabpst lcabpst REPLACE
DBCALCS(djoincab)
DBC_COMMAND JOIN
DBC_TARGET cabkodidx btmcab
DBC_MAP mjoincab
MAP(mjointlm)
tlmnobuk lnobuk840 REPLACE
tlmgrup ljnsdesk REPLACE
DBCALCS(djointlm)
DBC_COMMAND JOIN
DBC_TARGET tlmstsplgbuk gv_INPG ldcahass btmplg
DBC_MAP mjointlm
DBCALCS(djointlm1473Open)
DBC_COMMAND JOIN
DBC_TARGET tlmdatstsasl lDATAAPIH2 gv_OPEN btmnobuk
DBCALCS(djointlm1473Clsd)
DBC_COMMAND JOIN
DBC_TARGET tlmdatstsasl lDATAAPIH2 gv_CLSD btmnobuk
MAP(mjoinast)
astnourt lurut1 REPLACE
DBCALCS(djoinast)
DBC_COMMAND JOIN_LAST_SFL
DBC_TARGET astdatjnsurt gv_dtassets astpsmkode gv_bpkb
DBC_MAP mjoinast
MAP(mbrd)
brdsisa ppdjmlren REPLACE
DBCALCS(dscanbrd)
DBC_COMMAND SCANSCAN
DBC_TARGET brdstscabbrg gv_INPG btmcab ppdbrg
DBC_SUM_MAP mbrd
MAP(mjoinrtm620)
rtmtgl lrtmtgl REPLACE
rtmkode2 lrtmkode2 REPLACE
DBCALCS(djoinrtm620)
DBC_COMMAND JOIN
DBC_TARGET rtmdatbuktgl ldtthbl btmdata btmnobuk btmtgl
DBC_MAP mjoinrtm620
MAP(mjoinbrca)
brchrgjl lbrchrgjla REPLACE
DBCALCS(djoinbrcU5) /* Brc tmp loss Order */
DBC_COMMAND JOIN_LAST_SFL
DBC_TARGET brcdttykodid gv_dtbarang tkdnoll btmcab gv_INPG
DBC_MAP mjoinbrca
MAP(mjoinastnopol)
astmesin lnomesin REPLACE
astrangka lnorangka REPLACE
DBCALCS(djoinastnopol)
DBC_COMMAND JOIN
DBC_TARGET astdatkodidx lasset btmplg gv_bpkb btmkdsam
DBC_MAP mjoinastnopol
DBCALCS(djoinast2)
DBC_COMMAND JOIN
DBC_TARGET astjnspolidx gv_bpkb btmkdsam
DBC_MAP mjoinastnopol
DBCALCS(djoinast620)
DBC_COMMAND JOIN
DBC_TARGET astdatkodidx lasset btmnobuk gv_bpkb btmkdsam
DBCALCS(djoinrmdstrukturh2)
DBC_COMMAND JOIN
DBC_TARGET rmdstsgabidx gv_INPG lrmdgabpaket
DBCALCS(djoinakt_promo1)
DBC_COMMAND JOIN
DBC_TARGET aktkodtypidx btmnobuk btmdata lUPLOADPROMO1
DBCALCS(djoinakt_promo2)
DBC_COMMAND JOIN
DBC_TARGET aktkodtypidx btmnobuk btmdata lUPLOADPROMO2
DBCALCS(djoinakt_promotdm)
DBC_COMMAND JOIN
DBC_TARGET aktkodtypidx lnomesin lPROMOTDM lPROMOTDM4
DBCALCS(djoinakt_historikpb)
DBC_COMMAND JOIN
DBC_TARGET aktkodtypidx lnomesin lDTKPBAHS lDTKPBAHS21
DBCALCS(djoinakt_posting1)
DBC_COMMAND JOIN
DBC_TARGET aktkodtypidx btmnobuk lPOSTING620 lOPENOK
DBCALCS(djoinsvi)
DBC_COMMAND JOIN
DBC_TARGET svidatbuktyp btmdata btmnobuk lfotostnk11
DBCALCS(djoinakt_posting2)
DBC_COMMAND JOIN
DBC_TARGET aktkodtypidx btmnobuk lPOSTING620 lINPGOK
/*
DBCALCS(djoinakt_promolcr)
DBC_COMMAND JOIN
DBC_TARGET aktbrgtglidx lastnomesin lPROMOLCR11 lPROMOLCR
*/
DBCALCS(djointbd_promooli4)
DBC_COMMAND JOIN
DBC_TARGET tbddatkodidx gv_dttabel gt_ahass lPROMOOLI4 btmsurveyor
DBCALCS(djointbd_promooli3)
DBC_COMMAND JOIN
DBC_TARGET tbddatkodidx gv_dttabel gt_ahass lPROMOOLI3 btmsurveyor
DBCALCS(djointbt_cabpromoLCR1)
DBC_COMMAND JOIN
DBC_TARGET tbtdattypkod gv_dttabel gv_dttabel21 gt_ahass lCABANGAHASS lCABPROMOLCR btmcab
DBCALCS(djointbt_cabpromoLCR2)
DBC_COMMAND JOIN
DBC_TARGET tbtdattypkod gv_dttabel gv_dttabel21 gt_ahass lCABANGAHASS lCABPROMOLCR lNASIONAL
DBCALCS(djointbt_promolcresaf)
DBC_COMMAND JOIN
DBC_TARGET tbtdattypkod gv_dttabel gv_dttabel21 gt_ahass lMASTERJASAESAF lPROMOLCRESAF ppdbrg
MAP(mjoindtm_voucher)
dtmimg1 lupld1_voucher REPLACE
dtmimg2 lupld2_voucher REPLACE
DBCALCS(djoindtm_voucher)
DBC_COMMAND JOIN
DBC_TARGET dtmdatstskod lTMPPROMOVC gv_INPG btmsurveyor
DBC_MAP mjoindtm_voucher
DBCALCS(djoindtm_promo)
DBC_COMMAND JOIN
DBC_TARGET dtmdatstskod lTMPPROMO gv_INPG btmsurveyor
DBC_MAP mjoindtm_voucher
MAP(mjointlmGC)
tlmperpph ltlmperpph REPLACE
DBCALCS(djointlmGC)
DBC_COMMAND JOIN
DBC_TARGET tlmbukidx btmnokk
DBC_MAP mjointlmGC
DBCALCS(djointldGC)
DBC_COMMAND JOIN
DBC_TARGET tldbukbrglok btmnokk btmkdsam
DBCALCS(djointkdGC)
DBC_COMMAND JOIN
DBC_TARGET tkddatbukll lgroupcust btmnokk btmkdsam
MAP(mjointkdu)
tkdnourt luruttkd REPLACE
DBCALCS(djointkdu)
DBC_COMMAND JOIN_LAST_SFL
DBC_TARGET tkddatbukll lINFOLPART btmnobuk
DBC_MAP mjointkdu
DBCALCS(djointkd_lost)
DBC_COMMAND JOIN
DBC_TARGET tkddatbukll lINFOLPART ppdnomst2 ppdbrg
MAP(mjointlm416)
tlmnobuk ltldnobuk REPLACE
DBCALCS(djointlm416)
DBC_COMMAND JOIN
DBC_TARGET tlmdatstsbuk lSPAREPARTG gv_OPEN tlmnobuk
DBC_MAP mjointlm416
CALCS()
csparepartg tlddata == "SPAREPARTG"
c691OPEN tlmsts == "OPEN"
cdjointlm416 djointlm416 == 1
MAP(mjointld416)
tldnourt lnourt416 REPLACE_IF cdjointlm416
DBCALCS(djointld416)
DBC_COMMAND JOIN_LAST_SFL
DBC_TARGET tldbukurtidx ltldnobuk
DBC_SELECT csparepartg
DBC_MAP mjointld416
MAP(mjointgm)
tgmtype ltgmtype REPLACE
DBCALCS(djointgm)
DBC_COMMAND JOIN
DBC_TARGET tgmdattglidx gv_TGL g_tgltrn
DBC_MAP mjointgm
MAP(mjoinsgmADMPART)
sgmstr5 lnipADMPART REPLACE
DBCALCS(djoinsgmADMPART)
DBC_COMMAND JOIN
DBC_TARGET sgmdatstrbrg gt_dtpiccab11 lh2 lADMPART lthbls btmcab
DBC_MAP mjoinsgmADMPART
MAP(mjoinsgmKABENG)
sgmstr5 lnipKABENG REPLACE
DBCALCS(djoinsgmKABENG)
DBC_COMMAND JOIN
DBC_TARGET sgmdatstrbrg gt_dtpiccab11 lh2 lAHASSKABENG lthbls btmcab
DBC_MAP mjoinsgmKABENG
MAP(mjoinsgmSA)
sgmstr5 lnipSA REPLACE
DBCALCS(djoinsgmSA)
DBC_COMMAND JOIN
DBC_TARGET sgmdatstrbrg gt_dtpiccab11 lh2 lAHASSSA lthbls btmcab
DBC_MAP mjoinsgmSA
MAP(mjoinsgmFD)
sgmstr5 lnipFD REPLACE
DBCALCS(djoinsgmFD)
DBC_COMMAND JOIN
DBC_TARGET sgmdatstrbrg gt_dtpiccab11 lh2 lAHASSFD lthbls btmcab
DBC_MAP mjoinsgmFD
MAP(mjoinsgmADH)
sgmstr5 lnipADH REPLACE
DBCALCS(djoinsgmADH)
DBC_COMMAND JOIN
DBC_TARGET sgmdatstrbrg gt_dtpiccab11 lh2 lADH lthbls btmcab
DBC_MAP mjoinsgmADH
MAP(mjointlm416ABKNOBUK)
tlmnobuk lnobuk416ABK REPLACE
tlmplg ltlmplg416 REPLACE
DBCALCS(djointlm416ABKNOBUK)
DBC_COMMAND JOIN
DBC_TARGET tlmdatplgtgl lSPAREPARTG btmnobuk
DBC_SELECT c691OPEN
DBC_MAP mjointlm416ABKNOBUK
DBCALCS(djointbdCAB416)
DBC_COMMAND JOIN
DBC_TARGET tbddatkodidx gv_dttabel gv_infoumum lCAB416 btmcab
DBCALCS(djointbdNAS416)
DBC_COMMAND JOIN
DBC_TARGET tbddatkodidx gv_dttabel gv_infoumum lCAB416 lNAS
/*CALCS()
cppdBR ppdjasbrg == "BR"
MAP(mscanppdBR416)
gv_int1 lppdadaBR REPLACE_IF cppdBR
DBCALCS(dscanppdBR416)
DBC_COMMAND SCANSCAN
DBC_TARGET ppdbuk2bbmid btmnobuk
DBC_SUM_MAP mscanppdBR416*/
DBCALCS(djointlm416sdhBR)
DBC_COMMAND JOIN
DBC_TARGET tlmstsplgbuk gv_OPEN lSPAREPARTG ppdnomst2
DBCALCS(djoinabk416)
DBC_COMMAND JOIN
DBC_TARGET abkdatbukidx lKUNCIABSEN lnobuk416ABK
CALCS()
chadir abdjam1 != BLANKS && (abdtype == "DATANG" || abdtype == "HADIR129")
DBCALCS(djoinabdADMPART)
DBC_COMMAND JOIN
DBC_TARGET abdkymtglidx lnipADMPART g_tgltrn
DBC_SELECT chadir
DBCALCS(djoinabdKABENG)
DBC_COMMAND JOIN
DBC_TARGET abdkymtglidx lnipKABENG g_tgltrn
DBC_SELECT chadir
DBCALCS(djoinabdSA)
DBC_COMMAND JOIN
DBC_TARGET abdkymtglidx lnipSA g_tgltrn
DBC_SELECT chadir
DBCALCS(djoinabdFD)
DBC_COMMAND JOIN
DBC_TARGET abdkymtglidx lnipFD g_tgltrn
DBC_SELECT chadir
DBCALCS(djoinabdADH)
DBC_COMMAND JOIN
DBC_TARGET abdkymtglidx lnipADH g_tgltrn
DBC_SELECT chadir
MAP(mjoinppm_nopolRO)
ppmpry lppmpry REPLACE
DBCALCS(djoinppm_nopolRO)
DBC_COMMAND JOIN_LAST_SFL
DBC_TARGET ppmnollidx btmkdsam gv_CLSD
DBC_MAP mjoinppm_nopolRO
MAP(mjointkd_ktp620)
tkdjenis ltkdjenis REPLACE
tkdnoll ltkdnoll REPLACE
tkdrek ltkdrek REPLACE
DBCALCS(djointkd_ktp620)
DBC_COMMAND JOIN
DBC_TARGET tkddatbukll lPSMKTP lppmpry
DBC_MAP mjointkd_ktp620
DBCALCS(djointkd_ktp620x)
DBC_COMMAND JOIN
DBC_TARGET tkddatbukll lPSMKTP btmnobuk
MAP(mjoinpsmKons)
psmins lpsmins2 REPLACE
DBCALCS(djoinpsmKons)
DBC_COMMAND JOIN
DBC_TARGET psmktpidx ltkdnoll
DBC_MAP mjoinpsmKons
MAP(mjoinalmPsmKtp)
almjalan lalmjalanKtp REPLACE
almprop lalmpropKtp REPLACE
almnamprop lalmnampropKtp REPLACE
almkec lalmkecKtp REPLACE
almnamkec lalmnamkecKtp REPLACE
almkel lalmkelKtp REPLACE
almnamkel lalmnamkelKtp REPLACE
almkota lalmkotaKtp REPLACE
almnamkota lalmnamkotaKtp REPLACE
almrt lalmrtKtp REPLACE
almrw lalmrwKtp REPLACE
almkdpos lalmkdposKtp REPLACE
DBCALCS(djoinalmPsmKtp)
DBC_COMMAND JOIN
DBC_TARGET almdatotobuk lPSMKTP ltkdnoll
DBC_MAP mjoinalmPsmKtp
DBCALCS(djoinalmPsmKtpax)
DBC_COMMAND JOIN
DBC_TARGET almdatotobuk lPSMKTP btmnobuk
MAP(mjoinalm_infopembw)
almnama lalmnama_pembw REPLACE
almnama2 lalmnama2_pembw REPLACE
almprop lalmprop_pembw REPLACE
almnamprop lalmnamprop_pembw REPLACE
almkec lalmkec_pembw REPLACE
almnamkec lalmnamkec_pembw REPLACE
almkel lalmkel_pembw REPLACE
almnamkel lalmnamkel_pembw REPLACE
DBCALCS(djoinalm_infopembw)
DBC_COMMAND JOIN
DBC_TARGET almdatotobuk lINFOPEMBW ltkdnoll
DBC_MAP mjoinalm_infopembw
DBCALCS(djoinalm_infopembwax)
DBC_COMMAND JOIN
DBC_TARGET almdatotobuk lINFOPEMBW btmnobuk
MAP(mketisi2)
ketisi2 lketisi2 REPLACE
DBCALCS(djoinsaranmekanikHSO)
DBC_COMMAND JOIN
DBC_TARGET ketdatbukkod lINFOSARAN lnobuk
DBC_MAP mketisi2
CALCS()
cOnlyKPB btmrekomen == "KPB"
cadakpb1 ppmsup == "PKTSERVICEKPB1"
cadakpb2 ppmsup == "PKTSERVICEKPB2"
cadakpb3 ppmsup == "PKTSERVICEKPB3"
cadakpb4 ppmsup == "PKTSERVICEKPB4"
cjabSA (psijabatan == "AHASSSERVICEADVOFF")
cjabFD (psijabatan == "AHASSFRONTDESK")
cOnlyCLAIM_ESAF btmstr2 == "CLAIM_ESAF"
MAP(mscanppm_kpb)
gv_int1 ladakpb1 REPLACE_IF cadakpb1
gv_int1 ladakpb2 REPLACE_IF cadakpb2
gv_int1 ladakpb3 REPLACE_IF cadakpb3
gv_int1 ladakpb4 REPLACE_IF cadakpb4
DBCALCS(dscanppm_kpb)
DBC_COMMAND SCANSCAN
DBC_TARGET ppmnollidx btmkdsam gv_CLSD
DBC_COND cOnlyKPB
DBC_SUM_MAP mscanppm_kpb
DBCALCS(djoinbtd_komisi_LCR)
DBC_COMMAND JOIN
DBC_TARGET btdbukurtidx btmnobuk lKOMLCRAHS
MAP(mscanpsiSA)
gv_int1 ljmlSA REPLACE
DBCALCS(dbscanpsiSA)
DBC_COMMAND SCANSCAN
DBC_TARGET psicbskrsts btmcab gv_INPG
DBC_SELECT cjabSA
DBC_COND cOnlyCLAIM_ESAF
DBC_SUM_MAP mscanpsiSA
MAP(mscanpsiFD)
gv_int1 ljmlFD REPLACE
DBCALCS(dbscanpsiFD)
DBC_COMMAND SCANSCAN
DBC_TARGET psicbskrsts btmcab gv_INPG
DBC_SELECT cjabFD
DBC_COND cOnlyCLAIM_ESAF
DBC_SUM_MAP mscanpsiFD
IMAGE(master)
/--SCR4521----------------s.PostingJual------------------------------------------------------------\
| /--t.Ok----------------------------------------------------------------------------------------\ |
| | No.Bukti : ______________ | |
| \----------------------------------------------------------------------------------------------/ |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
\--------------------------------------------------------------------------------------------------/
FIELD(master)
lnobuk ALLCAPS INPUTRI 3
CALCS()
cdtthbl "DT" + THBLS(g_tgltrn)
cthbls THBLS(g_tgltrn)
DEFAULTS(master)
l1 INIT "1"
lnobuk INIT {r_string1}
lbtmkdsam INIT {r_string2}
lscr INIT {r_string5}
lwaktuest INIT {r_time1}
lbtmtgl INIT {r_date1}
l11 INIT 11
lpiudagahass INIT PIUDAGAHASS
ldcahass INIT DCAHASS
lsystime INIT SYSTIME
ldtthbl INIT {cdtthbl}
lbtmdata INIT AHASS
lKUNCIABSEN INIT KUNCIABSEN
lVERSI INIT 15072026
lDTAHASS INIT DTAHASS
lasset INIT ASSET
l2532 INIT 2532
lDATAAPIH2 INIT DATAAPIH2
lUPLOADPROMO1 INIT UPLOADPROMO1
lUPLOADPROMO2 INIT UPLOADPROMO2
lPROMOOLI4 INIT PROMOOLI4
lPROMOOLI3 INIT PROMOOLI3
lTMPPROMOVC INIT TMPPROMOVC
lTMPPROMO INIT TMPPROMO
lPROMOTDM INIT PROMOTDM
/*lPROMOLCR INIT PROMOLCR
lPROMOLCR11 INIT PROMOLCR*/
lPROMOTDM4 INIT PROMOTDM4
lDTKPBAHS INIT DTKPBAHS
lDTKPBAHS21 INIT DTKPBAHS21
ltrans INIT PIL6
lgroupcust INIT GROUPCUST
lINFOLPART INIT INFOLPART
lSPAREPARTG INIT SPAREPARTG
lthbls INIT {cthbls}
lh2 INIT H2
lADMPART INIT ADMPART
lADH INIT ADH
lAHASSKABENG INIT AHASSKABENG
lAHASSSA INIT AHASSSA
lAHASSFD INIT AHASSFD
lkunciabsen INIT KUNCIABSEN
lCAB416 INIT CAB416
lCABANGAHASS INIT CABANGAHASS
lCABPROMOLCR INIT CABPROMOLCR
lNASIONAL INIT NASIONAL
lMASTERJASAESAF INIT MASTERJASAESAF
lPROMOLCRESAF INIT PROMOLCRESAF
lNAS INIT NAS
lPSMKTP INIT PSMKTP
lPSMAHASS INIT PSMAHASS
lINFOPEMBW INIT INFOPEMBW
lPOSTING620 INIT POSTING620
lOPENOK INIT OPENOK
lINPGOK INIT INPGOK
lINFOSARAN INIT INFOSARAN
l620 INIT "620"
l4579 INIT 4579
lm4579 INIT m4579
lPIL8 INIT PIL8
lfotostnk11 INIT FOTOSTNK
lKOMLCRAHS INIT KOMLCRAHS
IMAGE(transt)
/-------------------t-----------------\
| No.Faktur | Kode Barang |
\-------------------.-----------------/
IMAGE(trans)
| _______________ | _______________ |
FIELD(trans)
btmnobuk NOCHANGE INPUTRI 1
btmtypmtr NOCHANGE SCROLL INPUTRI 2
SUBFILE(trans)
SFL_TITLE(transt)
SFL_LINES(15) /* Rumusnya : 23 - base_row trans */
SFL_TARGET
btmbukidx lnobuk
IMAGE(trans2t)
/-------------------t-----------------\
| No.Faktur | Kode Barang |
\-------------------.-----------------/
IMAGE(trans2)
| _______________ | _______________ |
FIELD(trans2)
ppdnobuk NOCHANGE INPUTRI 1
ppdnomst2 NOCHANGE SCROLL INPUTRI 2
SUBFILE(trans2)
SFL_TITLE(trans2t)
SFL_LINES(15) /* Rumusnya : 23 - base_row trans */
SFL_TARGET
ppdbuk2bbmid lnobuk
CALCS()
/*cnomorbukti "PSV" + THBLS(btmtgl) + STRIP(btmcabjl)+ "-" */
cnomorbukti1 "1" + THBLS(btmtgl) + THBLS_DD(btmtgl)
cnomorbukti2 "2" + THBLS(btmtgl) + THBLS_DD(btmtgl)
c623 "623"
cH2 "H2"
cDEALER "DEALER"
cthbl THBLS(btmtgl)
cA "A"
cO "O"
c0 0
c1 1
c2 2
c30 30
cdtahass "DTAHASS"
cdatasa "DATASA"
cNew btmytbiro =="N" && g_grpnam == "TUTUP"
cOld btmytbiro =="O"
cbpkb "BPKB"
cblanks BLANKS
cahs "AHS"
cjoinast0 djoinast== 0
cjoinast1 djoinast== 1
cdjoinast2 djoinast2 == 1
castkode "KENDARAAN01"
cFD "FD"
cKPB btmwrn == "PKTSERVICEKPB1" || btmwrn == "PKTSERVICEKPB2" || btmwrn == "PKTSERVICEKPB3" || btmwrn == "PKTSERVICEKPB4"
cINSTANSI btmtypdeb == "INSTANSI"
cGARANSI btmtypdeb == "GARANSI"
cstock (dscanbrd == 0 || dscanbrd != 0)
cppdjmlren0 ppdjasbrg == "BR" && ppdjmlren == 0
cbisdvs_nopiut DO_LIB ap_amdvs(gv_dtdivisi21,lpiudagahass,ppmnobbm);
cbisdvs_nosjl DO_LIB ap_amdvs(gv_dtdivisi21,gv_brgsjl,ppmnobbm);
cbisdvs_piu ppmdvs != BLANKS && ppmdata == gv_dtpiu
cbisdvs_sjl ppmdvs != BLANKS && ppmdata == gv_dtsjl
cinstansi btmguna == "INSTANSI" && btmtypdeb == "INSTANSI"
curut lurut1 + 1
castkode2 "KENDARAAN"+FLD_TO_STRING(lurut2)
/*cadaMKN btmsales != BLANKS*/
cOK "OK"
cOPEN_0 btmsts == "OPEN" && btmstsdata == BLANKS
cOPEN_1 btmsts == "OPEN" && btmstsdata == "OK" && g_batalpst == 0
cOPEN_1a btmsts == "OPEN" && btmstsdata == "OK" && g_batalpst == 0 && djoinrmdstrukturh2 == 1 && btmwrn != "PKTSERVICEKPB1"
cVOID btmsts == "OPEN" && g_batalpst == 2
cTVOID g_batalpst == 0
cINPG_1 btmsts == "INPG" && btmstsdata == "OK"
cposting_OPEN djoinakt_posting1 == 0 && btmsts == "OPEN" && btmstsdata == "OK"
cposting_OPEN2 djoinsvi == 0 && btmstr2 == "CLAIM" && btmtypdeb == "INSTANSI"
cposting_OPEN2x djoinsvi == 1 && btmstr2 == "CLAIM" && btmtypdeb == "INSTANSI"
cposting_INPG djoinakt_posting2 == 0 && btmsts == "INPG" && btmstsdata == "OK"
cposting_INPG2 djoinakt_posting2 == 1 && btmsts == "INPG" && btmstsdata == "OK"
cdjointlm djointlm == 1 && ljnsdesk == "AHASS"
cbukNSS djoincab == 1 && (lcabpst == "PST10" || lcabpst == "PST30")
cbukNS djoincab == 1 && lcabpst == "PST20"
cjoinrtm1 djoinrtm620 == 1
cnopol1 djoinastnopol == 1
crmdgabpaket STRIP(btmwrn) + STRIP(btmlokjual)
cppdretpos ((ppdsup == "AHM" && ppdjasbrg == "BR") || (ppdsup == "VOUCHER" && ppdjasbrg == "BR"))
cdjoinakt_promo1a ((djointbd_promooli4 == 1 || djointbd_promooli3 == 1) && djoinakt_promo1 == 0) ||
((djoindtm_voucher == 1 || djoindtm_promo == 1) && lupld1_voucher == "Y" && djoinakt_promo1 == 0) ||
(btmstr2 == "CLAIM_ESAF" && (djointbt_cabpromoLCR1 == 1 || djointbt_cabpromoLCR2 == 1) && djointbt_promolcresaf == 1 && djoinakt_promo1 == 0)
cdjoinakt_promo2a (djointbd_promooli4 == 1 && djoinakt_promo2 == 0) ||
((djoindtm_voucher == 1 || djoindtm_promo == 1) && lupld1_voucher == "Y" && lupld2_voucher == "Y" && djoinakt_promo2 == 0)
cKPB1 btmwrn == "PKTSERVICEKPB1"
cKPB1x ((btmwrn == "PKTSERVICEKPB1") || (dscanppm_kpb >= 0 && (ladakpb2 > 0 || ladakpb3 > 0 || ladakpb4 > 0)))
cKPBTDM2 btmwrn == "KPBTDM2"
cKPBTDM3 btmwrn == "KPBTDM3"
cKPBTDM4 btmwrn == "KPBTDM4"
cKPB2 ((btmwrn == "PKTSERVICEKPB2") || (dscanppm_kpb >= 0 && ladakpb2 > 0))
cKPB3 ((btmwrn == "PKTSERVICEKPB3") || (dscanppm_kpb >= 0 && ladakpb3 > 0))
cKPB4 ((btmwrn == "PKTSERVICEKPB4") || (dscanppm_kpb >= 0 && ladakpb4 > 0))
cdjoinakt_promotdma btmsts == "INPG" && btmstsdata == "OK" && djoinakt_promotdm == 0
cdjoinakt_promotdmb btmsts == "INPG" && btmstsdata == "OK" && djoinakt_promotdm == 1
cdjoinakt_historikpba btmsts == "INPG" && btmstsdata == "OK" && btmrekomen == "KPB" && djoinakt_historikpb == 0
cdjoinakt_historikpbb btmsts == "INPG" && btmstsdata == "OK" && btmrekomen == "KPB" && djoinakt_historikpb == 1
MAP(mmapmap)
cnomorbukti1 ppmnobuk DO_CALC_IF cbukNSS
cnomorbukti2 ppmnobuk DO_CALC_IF cbukNS
crmdgabpaket lrmdgabpaket DO_CALC
MAP(maddppm)
ppmnobuk ppmnobuk REPLACE
gv_servis ppmgrup2 REPLACE
cH2 ppmdvs DO_CALC
cA ppmfr DO_CALC
c30 ppmsyr DO_CALC
c1 ppmkurs DO_CALC
cthbl ppmthbl DO_CALC
cDEALER ppmbisnis DO_CALC
btmnobuk ppmpry REPLACE
btmsurveyor ppmmakelar REPLACE
/*gt_iw ppmstskrm REPLACE */
gv_dtpiu ppmdata REPLACE
c623 ppmscr DO_CALC
btmcab ppmcabinduk REPLACE
btmcab ppmcab REPLACE
btmcab ppmcabpos REPLACE
btmcab ppmgrup REPLACE
btmkdsam ppmnoll REPLACE
btmtypmtr ppmfinco REPLACE
btmtgl ppmtglfak REPLACE
btmwrn ppmsup REPLACE
gv_OPEN ppmsts REPLACE
cblanks ppmndk DO_CALC
btmtypbyr ppmtk REPLACE
btmplg ppmplg REPLACE_IF cinstansi
cbisdvs_nopiut ppmnobbm DO_CALC_IF cbisdvs_piu
cbisdvs_nosjl ppmnobbm DO_CALC_IF cbisdvs_sjl
cahs ppmkodeapr DO_CALC
cFD ppmstskrm DO_CALC_IF cKPB
c1 ppmum DO_CALC_IF cINSTANSI
c2 ppmum DO_CALC_IF cGARANSI
lnobuk840 ppmnpwp REPLACE_IF cdjointlm
DEBUG ldum ldum REPLACE
/*btmsales ppmsales REPLACE*/
/*
c0 ppmtotfak DO_CALC
c0 ppmtotbyr DO_CALC
*/
MAP(maddakt)
ppmnobuk aktkode REPLACE
cdtahass aktdata DO_CALC
cdatasa akttype DO_CALC
ppmtglfak akttgl REPLACE
lsystime aktjam REPLACE
MAP(maddakt_posting1)
btmnobuk aktkode REPLACE
lPOSTING620 aktdata REPLACE
lOPENOK akttype REPLACE
g_tgltrn akttgl REPLACE
lsystime aktjam REPLACE
g_usrkode aktkode2 REPLACE
MAP(maddakt_posting2)
btmnobuk aktkode REPLACE
lPOSTING620 aktdata REPLACE
lINPGOK akttype REPLACE
g_tgltrn akttgl REPLACE
lsystime aktjam REPLACE
g_usrkode aktkode2 REPLACE
MAP(mupdakt_posting2)
lsystime aktjam REPLACE
g_usrkode aktkode2 REPLACE
MAP(maddast)
btmkdsam astnopol REPLACE
btmjtppjk asttgl REPLACE
btmjnsdeb astno1 REPLACE
cbpkb astjns DO_CALC
gv_dtassets astdata REPLACE
btmdf2 astpj REPLACE
btmtypmtr astbrg REPLACE
btmnama astnama REPLACE
castkode astkode DO_CALC_IF cjoinast0
curut lurut2 DO_CALC_IF cjoinast1
castkode2 astkode DO_CALC_IF cjoinast1
btmkdsam astkode REPLACE
btmplg astpsmkode REPLACE
btmstr2 asttype REPLACE
MAP(maddsvi_stnk)
btmkdsam svistr1 REPLACE
btmnobuk svinobuk REPLACE
btmdata svidata REPLACE
lfotostnk11 svitype REPLACE
MAP(mupdsvi_stnk)
btmkdsam svistr1 REPLACE
/*MAP(maddabktac)
lKUNCIABSEN abkdata REPLACE
latasan abkkym REPLACE
ltkmnobuk abknobuk REPLACE
ctglbesok abktgl DO_CALC_IF ctacc
g_tgltrn abktgl REPLACE_IF ctacchrini
cketrev abkkym2 DO_CALC
gt_RINP abksts REPLACE_IF ctacc
DEBUG ldum ldum REPLACE*/
MAP(mupdppd)
btmkdkms ppdnobuk REPLACE
ppdjmlren ppdjmlren REPLACE_IF cstock
ppdretpos ppdretpos REPLACE_IF cppdretpos
c0 ppdjml DO_CALC_IF cppdjmlren0
c0 ppdtotfak DO_CALC_IF cppdjmlren0
MAP(mupdast)
btmdf2 astpj REPLACE
btmplg astpsmkode REPLACE
MAP(mupdbtm_1)
cOK btmstsdata DO_CALC_IF cTVOID
gv_VOID btmsts REPLACE_IF cVOID
MAP(mupdbtm)
gv_INPG btmsts REPLACE
ppmnobuk btmkdkms REPLACE
DEBUG ldum ldum REPLACE
MAP(mupdrtm620)
lnomesin rtmkode2 REPLACE_IF cnopol1
DEBUG ldum ldum REPLACE
DBCALCS(djoinmnt620)
DBC_COMMAND JOIN_LAST_SFL
DBC_TARGET mntdatkodtgl lDTAHASS btmnobuk
CALCS()
cdjoinrtmnopol djoinmnt620==0 && djoinrtm620==1 /*&& lrtmkode2!=BLANKS */ &&
(btmrekomen == "KPB" || btmwrn == "KPB2" || btmwrn == "KPB3" || btmwrn == "KPB4" ||
btmwrn == "KPBSINSEN2" || btmwrn == "KPBSINSEN3" || btmwrn == "KPBSINSEN4" ||
btmrekomen == "KPBTDM")
cdjoinrtm620b djoinrtm620==0
cnobuktlm "ZPH2" + THBLS(g_tgltrn)
cDATAAPIH2 "DATAAPIH2"
cPKB "PKB"
cdjointlm1473 djointlm1473Open == 0 && djointlm1473Clsd == 0 && g_grpnam == "TUTUP"
cjointkdu0a btmnobuk != BLANKS && djointkdu == 0
cjointkdu1a btmnobuk != BLANKS && djointkdu == 1
curut3a luruttkd + 1
cdjointkd_lostorder0 djointkd_lost == 0 && ppdjasbrg == "BR" && (ppdjmlren == 0 || ppdlok == BLANKS)
cdjointkd_histori djointkd_lost == 1
MAP(maddmnt620)
lrtmkode2 mntnobuk REPLACE
lDTAHASS mntdata REPLACE
btmnobuk mntkode REPLACE
btmtgl mnttgl REPLACE
/*
MAP(mupdabk)
gv_CLSD abksts REPLACE
*/
MAP(maddrtm620)
btmnobuk rtmnobuk REPLACE
rtmnobuk lrtmnobuk REPLACE
btmdata rtmtype REPLACE
ldtthbl rtmdata REPLACE
btmtgl rtmtgl REPLACE
btmcab rtmcab REPLACE
btmkdsam rtmkode REPLACE
l2532 rtmsts REPLACE
MAP(mmap1473)
cnobuktlm tlmnobuk DO_CALC
DEBUG ldum ldum REPLACE
MAP(maddtlm1473)
cnobuktlm tlmnobuk DO_CALC
cDATAAPIH2 tlmdata DO_CALC
g_tgltrn tlmtgl REPLACE
gv_OPEN tlmsts REPLACE
cPKB tlmtype1 DO_CALC
btmnobuk tlmnoasal REPLACE
btmkdsam tlmgrup REPLACE
btmcab tlmcab REPLACE
DEBUG ldum ldum REPLACE
MAP(maddakt_promo1)
btmnobuk aktnobuk REPLACE
btmnobuk aktkode REPLACE
btmdata aktdata REPLACE
lUPLOADPROMO1 akttype REPLACE
btmcab aktlok REPLACE
DEBUG ldum ldum REPLACE
MAP(maddakt_promo2)
btmnobuk aktnobuk REPLACE
btmnobuk aktkode REPLACE
btmdata aktdata REPLACE
lUPLOADPROMO2 akttype REPLACE
btmcab aktlok REPLACE
DEBUG ldum ldum REPLACE
MAP(mmap_promokpb4)
lnomesin lnomesin REPLACE_IF cdjoinast2
lnorangka lnorangka REPLACE_IF cdjoinast2
MAP(maddakt_promokpb4)
lnomesin aktkode REPLACE
lnorangka aktbrg REPLACE
btmkdsam aktkode2 REPLACE
lPROMOTDM aktdata REPLACE
lPROMOTDM4 akttype REPLACE
btmcab aktlok REPLACE
c1 aktdf1 DO_CALC_IF cKPB1
c1 aktdf2 DO_CALC_IF cKPBTDM2
c1 aktdf3 DO_CALC_IF cKPBTDM3
c1 aktdf4 DO_CALC_IF cKPBTDM4
DEBUG ldum ldum REPLACE
MAP(mupdakt_promokpb4)
c1 aktdf2 DO_CALC_IF cKPBTDM2
c1 aktdf3 DO_CALC_IF cKPBTDM3
c1 aktdf4 DO_CALC_IF cKPBTDM4
MAP(maddakt_historikpb)
lnomesin aktkode REPLACE
lnorangka aktbrg REPLACE
btmkdsam aktkode2 REPLACE
lDTKPBAHS aktdata REPLACE
lDTKPBAHS21 akttype REPLACE
btmcab aktlok REPLACE
/*c1 aktdf1 DO_CALC_IF cKPB1*/
c1 aktdf1 DO_CALC
c1 aktdf2 DO_CALC_IF cKPB2
c1 aktdf3 DO_CALC_IF cKPB3
c1 aktdf4 DO_CALC_IF cKPB4
DEBUG ldum ldum REPLACE
MAP(mupdakt_historikpb)
c1 aktdf4 DO_CALC_IF cKPB4
c1 aktdf3 DO_CALC_IF cKPB3
c1 aktdf2 DO_CALC_IF cKPB2
c1 aktdf1 DO_CALC_IF cKPB1x
DEBUG ldum ldum REPLACE
CALCS()
cVOID_GC1 btmsoa == "GC" && btmnokk != BLANKS && djointlmGC == 1 && g_batalpst != 0
cVOID_GC2 btmsoa == "GC" && btmnokk != BLANKS && djointldGC == 1 && g_batalpst != 0
cVOID_GC3 btmsoa == "GC" && btmnokk != BLANKS && djointkdGC == 1 && g_batalpst != 0
cjointlmGC djointlmGC == 1
ctlmperpph ltlmperpph - 1
cTACC "TACC"
cjoinbrcU5 djoinbrcU5 == 1
MAP(mmapinitGC_VOID)
ltlmperpph ltlmperpph REPLACE_IF cjointlmGC
MAP(mupdtlmGC_VOID)
ctlmperpph tlmperpph DO_CALC
MAP(mupdtldGC_VOID)
cTACC tldtydis DO_CALC
MAP(mupdtkdGC_VOID)
cTACC tkdjwbstr1 DO_CALC
MAP(maddtkd_lostorder)
c1 tkdnourt DO_CALC_IF cjointkdu0a
curut3a tkdnourt DO_CALC_IF cjointkdu1a
btmnobuk tkdnobuk REPLACE
lINFOLPART tkddata REPLACE
ppdbrg tkdnoll REPLACE
ppdjml tkdjml REPLACE
lbrchrgjla tkdjml3 REPLACE_IF cjoinbrcU5
DEBUG ldum ldum REPLACE
/*
MAP(maddakt_promolcr)
lkodeunik aktkode REPLACE /* Kode Unik Promo LCR
btmnobuk aktnobuk REPLACE
aktbrg aktbrg REPLACE /* No Rangka Sistem ast
lastnomesin aktkode2 REPLACE /* No Rangka Nulis
lPROMOLCR11 aktdata REPLACE
lPROMOLCR akttype REPLACE
g_tgltrn akttgl DO_CALC
lakttgl2_promolcr akttgl2 REPLACE /* Tgl EXP
g_tgltrn aktcrttgl REPLACE
nominal aktdf1 REPLACE /* Nominal
btmcab aktcab REPLACE /* Cabang
btmkdsam aktlok REPLACE /* Nopol
*/
CALCS()
cnobuk416 STRIP(btmnobuk) + "-"
c416 "416"
caddinpg btmsts == "INPG" && (djointbdCAB416 == 1 || djointbdNAS416 == 1) && ppdjasbrg == "BR" && ppdlok != BLANKS && djointlm416sdhBR == 0 /*dscanppdBR416 >= 0 && lppdadaBR > 0*/
caddinpg2 btmsts == "INPG" && ppdjasbrg == "BR" && ppdlok != BLANKS && (djointbdCAB416 == 1 || djointbdNAS416 == 1) && djointlm416sdhBR == 1
/*cjointlm416 djointlm416 == 1*/
csatu416 1
curut416 lnourt416 + 1
cjointld0 djointld416 == 0
cjointld1 djointld416 == 1
cBR ppdjasbrg == "BR"
cket416 "ADMPART KERJAKAN 416"
cabkADMPART btmsts == "INPG" && ppdjasbrg == "BR" && ppdlok != BLANKS && djointlm416ABKNOBUK == 1 && djoinabk416 == 0
cdjoinsgmADMPART djoinsgmADMPART == 1
cdjoinsgmKABENG djoinsgmKABENG == 1
cdjoinsgmSA djoinsgmSA == 1
cdjoinsgmFD djoinsgmFD == 1
cdjoinsgmADH djoinsgmADH == 1
c416ADMPART djointgm == 1 && ltgmtype == "HK" && (djoinsgmADMPART == 1 && djoinabdADMPART == 1)
c416ADH djointgm == 1 && (ltgmtype == "HK" || ltgmtype == "HL") &&
(djoinsgmADMPART == 0 || (djoinsgmADMPART == 1 && djoinabdADMPART == 0)) &&
(djoinsgmADH == 1 && djoinabdADH == 1)
c416KABENG djointgm == 1 && (ltgmtype == "HK"|| ltgmtype == "HL") &&
(djoinsgmADMPART == 0 || (djoinsgmADMPART == 1 && djoinabdADMPART == 0)) &&
(djoinsgmADH == 0 || (djoinsgmADH == 1 && djoinabdADH == 0)) &&
(djoinsgmKABENG == 1 && djoinabdKABENG == 1)
c416SA djointgm == 1 && (ltgmtype == "HK" || ltgmtype == "HL") &&
(djoinsgmADMPART == 0 || (djoinsgmADMPART == 1 && djoinabdADMPART == 0)) &&
(djoinsgmADH == 0 || (djoinsgmADH == 1 && djoinabdADH == 0)) &&
(djoinsgmKABENG == 0 || (djoinsgmKABENG == 1 && djoinabdKABENG == 0)) &&
(djoinsgmSA == 1 && djoinabdSA == 1)
c416FD djointgm == 1 && (ltgmtype == "HK" || ltgmtype == "HL") &&
(djoinsgmADMPART == 0 || (djoinsgmADMPART == 1 && djoinabdADMPART == 0)) &&
(djoinsgmADH == 0 || (djoinsgmADH == 1 && djoinabdADH == 0)) &&
(djoinsgmKABENG == 0 || (djoinsgmKABENG == 1 && djoinabdKABENG == 0)) &&
(djoinsgmSA == 0 || (djoinsgmSA == 1 && djoinabdSA == 0)) &&
(djoinsgmFD == 1 && djoinabdFD == 1)
ckondisippd ppdjasbrg =="BR" && ppdlok == BLANKS
MAP(mmaptlm416)
cnobuk416 tlmnobuk DO_CALC
lnipADMPART lnipADMPART REPLACE_IF cdjoinsgmADMPART
lnipADH lnipADH REPLACE_IF cdjoinsgmADH
lnipKABENG lnipKABENG REPLACE_IF cdjoinsgmKABENG
lnipSA lnipSA REPLACE_IF cdjoinsgmSA
lnipFD lnipFD REPLACE_IF cdjoinsgmFD
c0 ljmlKABENG DO_CALC
c0 ljmlSA DO_CALC
c0 ljmlFD DO_CALC
DEBUG lnobuk lnobuk REPLACE
MAP(maddtlm416)
tlmnobuk tlmnobuk REPLACE
btmnobuk tlmplg REPLACE
btmkdsam tlmnobbm REPLACE
btmtgl tlmtgl REPLACE
lnorangka tlmdari REPLACE
lnomesin tlmuntuk REPLACE
btmcab tlmcab REPLACE
c416 tlmscr DO_CALC
lSPAREPARTG tlmdata REPLACE
gv_OPEN tlmsts REPLACE
lnipFD tlmgrup REPLACE_IF c416FD
lnipSA tlmgrup REPLACE_IF c416SA
lnipKABENG tlmgrup REPLACE_IF c416KABENG
lnipADH tlmgrup REPLACE_IF c416ADH
lnipADMPART tlmgrup REPLACE_IF c416ADMPART
DEBUG lnobuk lnobuk REPLACE
MAP(mmapabk416)
lnobuk416ABK lnobuk416ABK REPLACE
DEBUG lnobuk lnobuk REPLACE
MAP(maddabk416)
gv_INPG abksts REPLACE
lkunciabsen abkdata REPLACE
lnipFD abkkym REPLACE_IF c416FD
lnipSA abkkym REPLACE_IF c416SA
lnipKABENG abkkym REPLACE_IF c416KABENG
lnipADH abkkym REPLACE_IF c416ADH
lnipADMPART abkkym REPLACE_IF c416ADMPART
lnobuk416ABK abknobuk REPLACE
g_tgltrn abktgl REPLACE
cket416 abkkym2 DO_CALC
c416 abkscr DO_CALC
c416 abktype DO_CALC
lAHASSFD abknoll REPLACE_IF c416FD
lAHASSSA abknoll REPLACE_IF c416SA
lAHASSKABENG abknoll REPLACE_IF c416KABENG
lADH abknoll REPLACE_IF c416ADH
lADMPART abknoll REPLACE_IF c416ADMPART
DEBUG lnobuk lnobuk REPLACE
MAP(mmaptld416)
lnobuk416ABK lnobuk416ABK REPLACE
DEBUG lnobuk lnobuk REPLACE
MAP(maddtld416)
/*ltldnobuk tldnobuk REPLACE_IF cjointlm416*/
lnobuk416ABK tldnobuk REPLACE
ppdnomst2 tldnoll REPLACE
lSPAREPARTG tlddata REPLACE
ppdbrg tldbrg REPLACE
ppdket tldket REPLACE
ppdlok tldlok REPLACE
ppdjml tldjml REPLACE_IF cBR
ppdcab tldcab REPLACE
c416 tldscr DO_CALC
ppdoto tldplg REPLACE
csatu416 tldnourt DO_CALC_IF cjointld0
curut416 tldnourt DO_CALC_IF cjointld1
ppdnobuk tldgrup REPLACE
ppdjasbrg tldsts REPLACE
ppdnomst2 tldukrwrn REPLACE
DEBUG lnobuk lnobuk REPLACE
/******************* Penanda Konsumen RO **********************/
CALCS()
cdjoinppm_nopolRO djoinppm_nopolRO == 1
cdjointkd_ktp6201 djointkd_ktp620 == 1
cdjoinalmPsmKtp1 djoinalmPsmKtp == 1
cdjoinpsmKons1 djoinpsmKons == 1
cdjoinalm_infopembw1 djoinalm_infopembw == 1
cbtmstsopen btmsts == "OPEN" && btmstsdata == BLANKS && djointkd_ktp620 == 1 && ltkdnoll != BLANKS
cdjointkd_ktp620x btmsts == "OPEN" && btmstsdata == BLANKS && djointkd_ktp620x == 0 && djointkd_ktp620 == 1 && ltkdjenis != BLANKS
cdjoinalmPsmKtpax btmsts == "OPEN" && btmstsdata == BLANKS && djoinalmPsmKtpax == 0 && djointkd_ktp620 == 1 && ltkdnoll != BLANKS
cdjoinalm_infopembwax btmsts == "OPEN" && btmstsdata == BLANKS && djoinalm_infopembwax == 0 && djoinalm_infopembw == 1 && lalmprop_pembw != BLANKS && g_grpnam == "TUTUP"
cdjoinast620_1x btmsts == "OPEN" && btmstsdata == BLANKS && djoinast620 == 1 && djointkd_ktp620 == 1 && ltkdnoll != BLANKS
cadatkdnoll djointkd_ktp620 == 1 && ltkdnoll != BLANKS
cadapsmins2 djoinpsmKons == 1 && lpsmins2 != BLANKS
cadaalmnama djoinalm_infopembw == 1 && lalmnama_pembw != BLANKS
cadaalmnama2 djoinalm_infopembw == 1 && lalmnama2_pembw != BLANKS
cdjoinsaranmekanikHSO djoinsaranmekanikHSO == 1
cBLANKS BLANKS
ckondKomisiLcr djoinbtd_komisi_LCR == 0 && btmstr2 == "CLAIM_ESAF" && ppdsup == "CLAIM_ESAF"
ckondKABENG djoinsgmKABENG == 1
ckondSA dbscanpsiSA >= 0 && ljmlSA == 1 && djoinsgmSA == 1
ckondFD dbscanpsiFD >= 0 && ljmlFD == 1 && djoinsgmFD == 1
MAP(mmap_konsumenRO)
cBLANKS lppmpry DO_CALC
lppmpry lppmpry REPLACE_IF cdjoinppm_nopolRO
DEBUG ldum ldum REPLACE
MAP(mmaptkd_ktp620)
ltkdjenis ltkdjenis REPLACE_IF cdjointkd_ktp6201
ltkdnoll ltkdnoll REPLACE_IF cdjointkd_ktp6201
ltkdrek ltkdrek REPLACE_IF cdjointkd_ktp6201
DEBUG ldum ldum REPLACE
MAP(maddtkd_ktp620)
btmnobuk tkdnobuk REPLACE
lPSMKTP tkddata REPLACE
ltkdjenis tkdjenis REPLACE
ltkdnoll tkdnoll REPLACE
ltkdrek tkdrek REPLACE
MAP(mmapalmPsmAhass)
lalmjalanKtp lalmjalanKtp REPLACE_IF cdjoinalmPsmKtp1
lalmpropKtp lalmpropKtp REPLACE_IF cdjoinalmPsmKtp1
lalmnampropKtp lalmnampropKtp REPLACE_IF cdjoinalmPsmKtp1
lalmkecKtp lalmkecKtp REPLACE_IF cdjoinalmPsmKtp1
lalmnamkecKtp lalmnamkecKtp REPLACE_IF cdjoinalmPsmKtp1
lalmkelKtp lalmkelKtp REPLACE_IF cdjoinalmPsmKtp1
lalmnamkelKtp lalmnamkelKtp REPLACE_IF cdjoinalmPsmKtp1
lalmkotaKtp lalmkotaKtp REPLACE_IF cdjoinalmPsmKtp1
lalmnamkotaKtp lalmnamkotaKtp REPLACE_IF cdjoinalmPsmKtp1
lalmrtKtp lalmrtKtp REPLACE_IF cdjoinalmPsmKtp1
lalmrwKtp lalmrwKtp REPLACE_IF cdjoinalmPsmKtp1
lalmkdposKtp lalmkdposKtp REPLACE_IF cdjoinalmPsmKtp1
lpsmins2 lpsmins2 REPLACE_IF cdjoinpsmKons1
DEBUG ldum ldum REPLACE
MAP(mmapalm_pembw)
lalmnama_pembw lalmnama_pembw REPLACE_IF cdjoinalm_infopembw1
lalmnama2_pembw lalmnama2_pembw REPLACE_IF cdjoinalm_infopembw1
lalmprop_pembw lalmprop_pembw REPLACE_IF cdjoinalm_infopembw1
lalmnamprop_pembw lalmnamprop_pembw REPLACE_IF cdjoinalm_infopembw1
lalmkec_pembw lalmkec_pembw REPLACE_IF cdjoinalm_infopembw1
lalmnamkec_pembw lalmnamkec_pembw REPLACE_IF cdjoinalm_infopembw1
lalmkel_pembw lalmkel_pembw REPLACE_IF cdjoinalm_infopembw1
lalmnamkel_pembw lalmnamkel_pembw REPLACE_IF cdjoinalm_infopembw1
MAP(maddalmPsmAhass)
btmnobuk almnobuk REPLACE
ltkdnoll almbukoto REPLACE
lPSMAHASS almdata REPLACE
lPSMAHASS almnama REPLACE
lalmjalanKtp almjalan REPLACE
lalmrtKtp almrt REPLACE
lalmrwKtp almrw REPLACE
lalmpropKtp almprop REPLACE
lalmkotaKtp almkota REPLACE
lalmkecKtp almkec REPLACE
lalmkelKtp almkel REPLACE
lalmkdposKtp almkdpos REPLACE
/*
MAP(maddalmpembwbaru)
btmnobuk almnobuk REPLACE
lINFOPEMBW almdata REPLACE
ltkdrek almnama REPLACE
gv_int1 almlon REPLACE
lalmjalanKtp almjalan REPLACE
lalmrtKtp almrt REPLACE
lalmrwKtp almrw REPLACE
lalmpropKtp almprop REPLACE
lalmkotaKtp almkota REPLACE
lalmkecKtp almkec REPLACE
lalmkelKtp almkel REPLACE
lalmkdposKtp almkdpos REPLACE
*/
MAP(maddmnt)
l1 mntdata REPLACE
btmnobuk mntnobuk REPLACE
DEBUG ltkdnoll mntkode REPLACE
MAP(maddalm_infopembw)
btmnobuk almnobuk REPLACE
lINFOPEMBW almdata REPLACE
lalmprop_pembw almprop REPLACE
lalmnamprop_pembw almnamprop REPLACE
lalmkec_pembw almkec REPLACE
lalmnamkec_pembw almnamkec REPLACE
lalmkel_pembw almkel REPLACE
lalmnamkel_pembw almnamkel REPLACE
MAP(mupdast620)
ltkdnoll astpsmkode REPLACE
DEBUG ldum ldum REPLACE
MAP(mupdbtmKtp)
ltkdnoll btmplg REPLACE_IF cadatkdnoll
lpsmins2 btmguna REPLACE_IF cadapsmins2
cO btmytbiro DO_CALC_IF cadatkdnoll
lalmnama_pembw btmstsbrg REPLACE_IF cadaalmnama
lalmnama2_pembw btmbisnisjl REPLACE_IF cadaalmnama2
MAP(maddketkeluhanHSO)
cBLANKS lketisi2 DO_CALC
lnobuk ketnobuk REPLACE
lnobuk ketkode REPLACE
gv_dtpiu ketdata REPLACE
l620 ketscr REPLACE
lketisi2 ketisi REPLACE_IF cdjoinsaranmekanikHSO
gv_ok ketyt1 REPLACE
DEBUG ldum ldum REPLACE
MAP(mdum)
DEBUG ldum ldum REPLACE
/* MAP AWAL ESTIMASI PENGERJAAN MEKANIK */
MAP(m4579)
lnobuk r_string1 REPLACE
lPIL8 r_string9 REPLACE
btmcab r_string12 REPLACE
btmtgl r_date1 REPLACE
MAP(maddbtd_komisi_LCR)
btmnobuk btdnobuk REPLACE
lKOMLCRAHS btddata REPLACE
gv_INPG btdsts REPLACE
btmcab btdcab REPLACE
lnipKABENG btdno REPLACE_IF ckondKABENG
lnipSA btdno2 REPLACE_IF ckondSA
lnipFD btdno3 REPLACE_IF ckondFD
DEBUG ldum ldum REPLACE
SPCALCS(sptrans)
DO_LIB ap_dbclc(DNAME dmapkonsumenRO,DCOMMAND MAPMAP,DMAP mmap_konsumenRO);
DO_LIB ap_dbclc(DNAME dmapalm_pembw,DCOMMAND MAPMAP,DMAP mmapalm_pembw);
DO_LIB ap_dbclc(DNAME dmaptkd_ktp620,DCOMMAND MAPMAP,DMAP mmaptkd_ktp620);
DO_LIB ap_dbclc(DNAME dmapalmPsmAhass,DCOMMAND MAPMAP,DMAP mmapalmPsmAhass);
DO_LIB ap_dbclc(DNAME dmapdbug,DCOMMAND MAPMAP,DMAP mdum);
DO_LIB_IF cdjointkd_ktp620x ap_dbclc(DNAME daddtkd_ktp620,DCOMMAND ADD,DFILE tkd, DMAP maddtkd_ktp620);
DO_LIB_IF cbtmstsopen ap_dbclc(DNAME daddbtmKtp,DCOMMAND UPDATE,DTARGET btmotoidx btmoto,DMAP mupdbtmKtp);
/* DO_LIB_IF cdjoinalmPsmKtpax ap_dbclc(DNAME daddpmbwbaru,DCOMMAND ADD,DFILE alm, DMAP maddalmpembwbaru); */
DO_LIB_IF cdjoinalmPsmKtpax ap_dbclc(DNAME daddmnt,DCOMMAND ADD,DFILE mnt, DMAP maddmnt);
DO_LIB_IF cdjoinalmPsmKtpax ap_dbclc(DNAME daddalmpsmAhass,DCOMMAND ADD,DFILE alm, DMAP maddalmPsmAhass);
DO_LIB_IF cdjoinalm_infopembwax ap_dbclc(DNAME daddalm_infopembw,DCOMMAND ADD,DFILE alm, DMAP maddalm_infopembw);
DO_LIB_IF cdjoinast620_1x ap_dbclc(DNAME dupdast620,DCOMMAND UPDATE,DTARGET astdatkodidx lasset tkdnobuk gv_bpkb btmkdsam,DMAP mupdast620);
DO_LIB_IF cOPEN_1 ap_dbclc(DNAME dmapmap,DCOMMAND MAPMAP,DMAP mmapmap);
DO_LIB_IF cOPEN_1a ap_ambts(gv_INPG,lrmdgabpaket,lbts1,lbts2,lbts3,&lhasil1hrg,&lhasil2,&lhasil3,&lhasil1_txt,&lhasil2_txt);
DO_LIB_IF cOPEN_1 ap_dbclc(DNAME daddsub,DCOMMAND ADD,DFILE ppm,DLTARGET ppmbukidx ppmnobuk,DLLEN {l11},DMAP maddppm);
DO_LIB_IF cOPEN_1 ap_dbclc(DNAME dupdbtm,DCOMMAND UPDATE,DTARGET btmbukidx lnobuk,DMAP mupdbtm);
DO_LIB_IF cOPEN_1 ap_nxpst(l4579,lm4579);
DO_LIB_IF cINPG_1 ap_dbclc(DNAME daddakt,DCOMMAND ADD,DFILE akt,DLLEN {stspjbuk},DMAP maddakt);
DO_LIB_IF cOPEN_0 ap_dbclc(DNAME daddketkeluhan,DCOMMAND ADD,DFILE ket,DMAP maddketkeluhanHSO);
DO_LIB_IF cOPEN_0 ap_dbclc(DNAME dupdbtm_1,DCOMMAND UPDATE,DTARGET btmbukidx lnobuk,DMAP mupdbtm_1);
DO_LIB_IF cposting_INPG2 ap_dbclc(DNAME dupdakt_posting2,DCOMMAND UPDATE_RANGE,DTARGET aktkodtypidx btmnobuk lPOSTING620 lINPGOK, DMAP mupdakt_posting2);
DO_LIB_IF cposting_OPEN ap_dbclc(DNAME daddakt_posting1,DCOMMAND ADD,DFILE akt,DMAP maddakt_posting1);
DO_LIB_IF cposting_INPG ap_dbclc(DNAME daddakt_posting2,DCOMMAND ADD,DFILE akt,DMAP maddakt_posting2);
DO_LIB_IF cdjoinrtm620b ap_dbclc(DNAME daddrtm620,DCOMMAND ADD,DFILE rtm,DMAP maddrtm620);
DO_LIB ap_dbclc(DNAME dmapmap1473,DCOMMAND MAPMAP,DMAP mmap1473);
DO_LIB_IF cdjointlm1473 ap_dbclc(DNAME daddtlm1473,DCOMMAND ADD,DFILE tlm,DLTARGET tlmbukidx tlmnobuk,DLLEN {stspjbuk},DMAP maddtlm1473);
DO_LIB_IF cNew ap_dbclc(DNAME daddast,DCOMMAND ADD,DFILE ast,DLLEN {stspjbuk},DMAP maddast);
DO_LIB_IF cOld ap_dbclc(DNAME dupdast,DCOMMAND UPDATE,DTARGET astjnspolidx gv_bpkb btmkdsam,DMAP mupdast);
DO_LIB_IF cjoinrtm1 ap_dbclc(DNAME dupdrtm620,DCOMMAND UPDATE_RANGE, DTARGET rtmdatbuktgl ldtthbl btmdata btmnobuk btmtgl,DMAP mupdrtm620);
/*DO_LIB_IF cdjoinabk1 ap_dbclc(DNAME dupdabk,DCOMMAND UPDATE_RANGE,DBC_TARGET abkdatbukidx lKUNCIABSEN lnobuk,DMAP mupdabk);
DO_LIB_IF cadaMKN ap_dbclc(DNAME dupdabd,DCOMMAND UPDATE, DTARGET abdkymtglidx btmsales g_tgltrn, DMAP mupdabd);*/
DO_LIB_IF cdjoinrtmnopol ap_dbclc(DNAME daddmnt620,DCOMMAND ADD,DFILE mnt,DMAP maddmnt620);
DO_LIB ap_dbclc(DNAME dmapmap_promokpb4,DCOMMAND MAPMAP,DMAP mmap_promokpb4);
DO_LIB_IF cdjoinakt_promotdma ap_dbclc(DNAME daddakt_promotdma,DCOMMAND ADD,DFILE akt,DMAP maddakt_promokpb4);
DO_LIB_IF cdjoinakt_promotdmb ap_dbclc(DNAME dupdakt_promotdma,DCOMMAND UPDATE_RANGE,DTARGET aktkodtypidx lnomesin lPROMOTDM lPROMOTDM4,DMAP mupdakt_promokpb4);
DO_LIB_IF cdjoinakt_historikpba ap_dbclc(DNAME daddakt_historikpba,DCOMMAND ADD,DFILE akt,DMAP maddakt_historikpb);
DO_LIB_IF cdjoinakt_historikpbb ap_dbclc(DNAME dupdakt_historikpba,DCOMMAND UPDATE_RANGE,DTARGET aktkodtypidx lnomesin lDTKPBAHS lDTKPBAHS21,DMAP mupdakt_historikpb);
DO_LIB_IF cVOID_GC1 ap_dbclc(DNAME dmapinitGC_VOID,DCOMMAND MAPMAP,DMAP mmapinitGC_VOID);
DO_LIB_IF cVOID_GC1 ap_dbclc(DNAME dupdtlmGC_VOID,DCOMMAND UPDATE,DTARGET tlmbukidx btmnokk,DMAP mupdtlmGC_VOID);
DO_LIB_IF cVOID_GC2 ap_dbclc(DNAME dupdtldGC_VOID,DCOMMAND UPDATE_RANGE,DTARGET tldbukbrglok btmnokk btmkdsam,DMAP mupdtldGC_VOID);
DO_LIB_IF cVOID_GC3 ap_dbclc(DNAME dupdtkdGC_VOID,DCOMMAND UPDATE_RANGE,DTARGET tkddatbukll lgroupcust btmnokk btmkdsam,DMAP mupdtkdGC_VOID);
/*DO_LIB ap_dbclc(DNAME dmapmap416, DCOMMAND MAPMAP, DMAP mmap416);
DO_LIB_IF caddinpg ap_dbclc(DNAME daddtlm416, DCOMMAND ADD, DFILE tlm, DLTARGET tlmbukidx tlmnobuk, DLLEN {21}, DMAP maddtlm416);
DO_LIB_IF cabkADMPART ap_dbclc(DNAME daddabk416, DCOMMAND ADD, DFILE abk, DMAP maddabk416);*/
DO_LIB_IF cposting_OPEN2 ap_dbclc(DNAME daddsvi_posting1,DCOMMAND ADD,DFILE svi,DMAP maddsvi_stnk);
DO_LIB_IF cposting_OPEN2x ap_dbclc(DNAME dupdsvi_stnk,DCOMMAND UPDATE_RANGE,DTARGET svidatbuktyp btmdata btmnobuk lfotostnk11,DMAP mupdsvi_stnk);
SPCALCS(sptrans2)
/*DO_LIB ap_dbclc(DNAME dmapmap3,DCOMMAND MAPMAP,DMAP mmapmap3);*/
/*DO_LIB ap_ambts(gv_INPG,lrmdgab,btmperbns,lbts2,lbts3,&lhasildis,&lhasil2,&lhasil3,lhasil1_txt,lhasil2_txt);*/
DO_LIB_IF cINPG_1 ap_dbclc(DNAME dupdppd,DCOMMAND UPDATE,DTARGET ppdprmidx ppdprm,DMAP mupdppd);
DO_LIB_IF cdjointkd_histori ap_dbclc(DNAME ddeltkd_part_permotor,DCOMMAND DELETE_RANGE, DTARGET tkddatbukll lINFOLPART ppdnomst2 ppdbrg);
DO_LIB_IF cdjointkd_lostorder0 ap_dbclc(DNAME daddtkd_lostorder,DCOMMAND ADD,DFILE tkd,DMAP maddtkd_lostorder);
DO_LIB_IF ckondisippd ap_dbclc(DNAME ddelppd_part_permotor,DCOMMAND DELETE_RANGE, DTARGET ppdbukbrglok ppdnobuk ppdbrg);
DO_LIB ap_dbclc(DNAME dmapmaptlm416, DCOMMAND MAPMAP, DMAP mmaptlm416);
DO_LIB_IF caddinpg ap_dbclc(DNAME daddtlm416, DCOMMAND ADD, DFILE tlm, DLTARGET tlmbukidx tlmnobuk, DLLEN {21}, DMAP maddtlm416);
DO_LIB ap_dbclc(DNAME dmapabk416, DCOMMAND MAPMAP, DMAP mmapabk416);
DO_LIB_IF cabkADMPART ap_dbclc(DNAME daddabk416, DCOMMAND ADD, DFILE abk, DMAP maddabk416);
DO_LIB ap_dbclc(DNAME dmapmaptld416, DCOMMAND MAPMAP, DMAP mmaptld416);
DO_LIB_IF caddinpg2 ap_dbclc(DNAME daddtld416, DCOMMAND ADD, DFILE tld, DMAP maddtld416);
DO_LIB_IF cdjoinakt_promo1a ap_dbclc(DNAME daddakt_promo1a,DCOMMAND ADD,DFILE akt,DMAP maddakt_promo1);
DO_LIB_IF cdjoinakt_promo2a ap_dbclc(DNAME daddakt_promo2a,DCOMMAND ADD,DFILE akt,DMAP maddakt_promo2);
DO_LIB_IF ckondKomisiLcr ap_dbclc(DNAME daddbtd_komisi_LCR, DCOMMAND ADD, DFILE btd, DMAP maddbtd_komisi_LCR);
POSTING(trans)
PST_COMMAND sptrans
POSTING(trans2)
PST_COMMAND sptrans2
END_SCREEN