);
}
function Screen6({ s, set }) {
const { lang } = useLang();
const L = (en, id) => tr(lang, en, id);
const [includeInputs, setIncludeInputs] = React.useState(true);
const R = React.useMemo(() => window.computeTCO(s), [s]);
// True unoverridden per-year defaults — used by the Yearly Expense Editor
// (Details tab) so its ValueFlag "reset" always points at the platform's
// computed default, not whatever the user already overrode.
const Rdefault = React.useMemo(() => window.computeTCO({ ...s, yearlyOverrides: {} }), [s]);
const vA = findVeh(s.vehA), vB = findVeh(s.vehB);
// Guard: both vehicles must be selected and engine must return valid result
if (!vA || !vB || !R) {
return (
);
}
// ---- v1.3: Infrastructure sizing & EVCS CAPEX (for new report sections) ----
const sizing = React.useMemo(() => window.computeSizing(s), [s]);
const capex = React.useMemo(() => (sizing ? window.computeCapex(s, sizing) : null), [s, sizing]);
// v1.5: Depot Design (Screen 4 -> Depot Design tab) is the live infra
// CAPEX/OPEX source once it has computed a result — see infraForVeh() in
// data.jsx and DEPOT_INTEGRATION_HANDOVER.md. `capex` above stays TCO's
// own independent Sizing Engine estimate, shown for reference only below.
const depotActive = !!s.depotBom;
const infraGrandTotal = depotActive ? s.depotBom.tcoCapex : (capex ? capex.tcoCapex : 0);
const ecosystemOpt = (window.ECOSYSTEM_OPTIONS || []).find(e => e.id === s.ecosystemId);
const presetOpt = (window.INFRA_PROFILES?.PRESETS || []).find(p => p.id === s.screen4_activePresetId);
const projectStartLabel = s.projectStartDate
? new Date(s.projectStartDate).toLocaleDateString(lang === "en" ? "en-US" : "id-ID", { month: "long", year: "numeric" })
: null;
// v1.7.6: Lead Time module (informational only -- does not feed R/computeTCO()).
const leadTimeA = React.useMemo(() => window.computeLeadTime(s.vehA, s.fleetSize, s.payloadBuildA), [s.vehA, s.fleetSize, s.payloadBuildA]);
const leadTimeB = React.useMemo(() => window.computeLeadTime(s.vehB, s.fleetSize, s.payloadBuildB), [s.vehB, s.fleetSize, s.payloadBuildB]);
const sanityIssues = window.checkResultSanity(R, s);
const rows = R.rows;
// Residual Value row is always shown for reference, but only counted into
// Total TCO/Savings when includeResidualInTco is on (off by default — see
// data.jsx vehicleCalc, matches VKTR's own cash-cost TCOO convention).
const totalA = rows.reduce((sum, r) => sum + ((r.residual && !s.includeResidualInTco) ? 0 : r.a), 0);
const totalB = rows.reduce((sum, r) => sum + ((r.residual && !s.includeResidualInTco) ? 0 : r.b), 0);
const savings = Math.abs(totalA - totalB);
const aWins = totalA < totalB;
const winnerName = aWins ? vA.name : vB.name;
const loserName = aWins ? vB.name : vA.name;
const today = new Date(2026, 5, 9).toLocaleDateString(lang === "en" ? "en-GB" : "id-ID", { day: "numeric", month: "long", year: "numeric" });
const unitW = L("units", "unit"), yrW = L("years", "tahun"), kmW = L("km/yr", "km/thn");
const locale = lang === "en" ? "en-US" : "id-ID";
// ---- v1.7.7: Customer/VKTR expense-bucket model ----
// Headline KPIs that are simple lifetime totals (Savings, Rp/km, Rp/ton-km)
// now reflect ONLY what the customer actually pays (direct + whatever they
// pay VKTR for VKTR-borne buckets) per explicit direction -- NOT the raw
// ownership TCO, which is what the pre-v1.7.7 engine always showed. NPV/
// IRR/Payback/the cumulative chart are NOT bucket-aware yet -- they need a
// real year-by-year bucket cash-flow model this pass doesn't build (the
// design proposal itself only specifies lifetime totals, no per-year
// breakdown) -- still reflect full ownership cost, flagged below.
const bmA = window.computeExpenseBuckets(s, "A");
const bmB = window.computeExpenseBuckets(s, "B");
// v1.7.7 Wave 3: EV-side charging-queue simulation (§7.10) -- null when
// neither A nor B is an EV, or when the fleet/sizing inputs aren't
// populated yet. See window.simulateChargingSchedule (data.jsx).
const chargingSim = window.simulateChargingSchedule ? window.simulateChargingSchedule(s) : null;
// ---- v1.6: B-vs-A KPI framing ----
// Total Savings: positive = B is cheaper than A (savings from choosing B over A)
const bvsaSavings = (bmA && bmB) ? (bmA.customerTotalPayment - bmB.customerTotalPayment) : -R.savings;
// CO₂ Reduction: positive = B emits less CO₂ than A over the horizon
const co2Reduction = R.co2A - R.co2B;
// Payback (B vs A): years for B's higher upfront cost (vs A) to be recovered via B's lower OPEX (vs A)
const paybackBvA = R.paybackNote === "no_premium"
? "—"
: R.paybackNote === "beyond_horizon"
? L(`> ${s.horizon} yr`, `> ${s.horizon} thn`)
: `${R.payback.toLocaleString(locale, { maximumFractionDigits: 1 })} ${yrW}`;
// ---- winner-oriented framing (Key Takeaways / Decision Points) ----
const paybackWinnerText = R.paybackWinnerNote === "no_premium"
? L("no upfront premium", "tanpa premium awal")
: R.paybackWinnerNote === "beyond_horizon"
? L("beyond the analysis horizon", "di luar horizon analisis")
: `${R.paybackWinner.toLocaleString(locale, { maximumFractionDigits: 1 })} ${yrW}`;
// co2Winner: positive = the winning vehicle emits less CO₂ than the alternative
const co2Winner = R.aWinsTco ? (R.co2B - R.co2A) : (R.co2A - R.co2B);
const irrText = R.irr != null ? `${R.irr.toLocaleString(locale, { maximumFractionDigits: 1 })}%` : "—";
// ---- v1.7.8: explicit IRR-vs-WACC hurdle-rate verdict ----
// WACC (s.wacc) is used in exactly one place in the engine: the NPV
// discount rate (data.jsx computeTCO's npvAt). IRR is computed
// independently via bisection search on that same npvAt -- it does NOT
// take WACC as an input, it IS the break-even discount rate itself. So
// "IRR > WACC" and "NPV > 0" carry the same verdict for a conventional
// single-sign-change cash flow (which this B-vs-A savings stream is):
// the switch clears your cost-of-capital hurdle and is expected to
// create value; below it, the switch may not be worth the premium at
// your assumed WACC (a modeling input, not a fact about the vehicles).
const waccPct = s.wacc;
const hasIrr = R.irr != null;
const irrClearsWacc = hasIrr && R.irr > waccPct;
// ⚠ Estimasi footnote check
const selectedVehicles = [vA, vB];
const hasEstimasi = selectedVehicles.some(v => v && (v.placeholder || v.pmEstimate));
// ---- v1.5: takeaways / decision points helper data ----
// Look up rows by label rather than fixed index — the array has grown
// (insurance/battery rows added since, driver row removed in v1.7.8) and
// a hardcoded index here previously went stale, silently zeroing out
// Infra CAPEX/OPEX and Residual Value in this section once those new
// rows shifted everyone
// after them. Find by `r.en` instead so future row insertions can't repeat it.
const rowByLabel = (en) => rows.find(r => r.en === en) || { a: 0, b: 0 };
const infraCapexRow = rowByLabel("Infra CAPEX");
const infraOpexRow = rowByLabel("Infra OPEX");
const insuranceRow = rowByLabel("Lifetime Insurance Cost");
const batteryRow = rowByLabel("Battery Replacement Cost (EV)");
const residualRowLookup = rows.find(r => r.residual) || { a: 0, b: 0 };
const winnerVeh = aWins ? vA : vB;
const loserVeh = aWins ? vB : vA;
const winnerMonthly = aWins ? R.monthlyA : R.monthlyB;
const loserMonthly = aWins ? R.monthlyB : R.monthlyA;
const winnerCapex = aWins ? rows[0].a : rows[0].b;
const loserCapex = aWins ? rows[0].b : rows[0].a;
const winnerInfraCapex = aWins ? infraCapexRow.a : infraCapexRow.b;
const loserInfraCapex = aWins ? infraCapexRow.b : infraCapexRow.a;
const nonResidualRows = rows.filter(r => !r.residual);
const biggestDriver = nonResidualRows.reduce((best, r) => {
const d = Math.abs(r.a - r.b);
return (!best || d > best.d) ? { row: r, d } : best;
}, null);
// ---- v1.6: Side-by-Side Comparison (5-row merged summary) ----
// v1.7.12: now the bucket-aware CUSTOMER payment view
// (bmA/bmB.customerRowsBreakdown, data.jsx computeExpenseBuckets) when
// both vehicles resolve a bucket model -- same basis as the Cost/km
// headline and the cumulative chart above, not the raw ownership cost
// regardless of who bears it. Residual value is NOT a separate row in
// this view: whenever applyResaleReliefInUnit is on, bucketRaw.UNIT
// already nets the relief amount, so it's folded into Upfront Price
// instead of being double-counted as a second line (unlike the raw-TCO
// fallback below, where netting is conditional on includeResidualInTco --
// a different toggle for a different, non-bucket-aware model). A
// Subscription Payment row appears only when at least one vehicle has a
// VKTR-borne bucket (subscriptionAnnual > 0).
const useCustomerRows = !!(bmA && bmB);
const hasSubscriptionRow = useCustomerRows && (bmA.subscriptionAnnual > 0 || bmB.subscriptionAnnual > 0);
const residualIncludedNow = !!s.includeResidualInTco;
const resaleReliefAppliedNow = !!s.applyResaleReliefInUnit;
const sbsRowsBase = useCustomerRows ? [
{ label: resaleReliefAppliedNow
? L("Upfront Price (net of Resale Relief)", "Harga Awal (bersih dari Keringanan Jual Kembali)")
: L("Upfront Price", "Harga Awal"),
a: bmA.customerRowsBreakdown.upfrontPrice, b: bmB.customerRowsBreakdown.upfrontPrice, lowerBetter: true },
{ label: L("Energy (Lifetime)", "Energi (Seumur Hidup)"),
a: bmA.customerRowsBreakdown.energyLifetime, b: bmB.customerRowsBreakdown.energyLifetime, lowerBetter: true },
{ label: L("Maintenance & Other Opex", "Perawatan & Opex Lain"),
a: bmA.customerRowsBreakdown.maintOtherOpex, b: bmB.customerRowsBreakdown.maintOtherOpex, lowerBetter: true },
...(hasSubscriptionRow ? [{
label: L("Subscription Payment (VKTR-borne)", "Pembayaran Langganan (ditanggung VKTR)"),
a: bmA.customerRowsBreakdown.subscriptionPayment, b: bmB.customerRowsBreakdown.subscriptionPayment, lowerBetter: true }] : []),
{ label: L("Total TCO (Customer Payment)", "Total TCO (Pembayaran Pelanggan)"),
a: bmA.customerTotalPayment, b: bmB.customerTotalPayment, lowerBetter: true, isTotal: true },
] : [
{ label: L("Upfront Price", "Harga Awal"), a: rows[0].a + rows[1].a + infraCapexRow.a, b: rows[0].b + rows[1].b + infraCapexRow.b, lowerBetter: true },
{ label: L("Energy (Lifetime)", "Energi (Seumur Hidup)"), a: rows[2].a + rows[3].a, b: rows[2].b + rows[3].b, lowerBetter: true },
{ label: L("Maintenance & Other Opex", "Perawatan & Opex Lain"),
a: rows[4].a + infraOpexRow.a + insuranceRow.a + batteryRow.a,
b: rows[4].b + infraOpexRow.b + insuranceRow.b + batteryRow.b,
lowerBetter: true },
{ label: residualIncludedNow ? L("Residual (Credit)", "Nilai Sisa (Kredit)") : L("Residual (Credit, not included below)", "Nilai Sisa (Kredit, tidak termasuk di bawah)"),
a: residualIncludedNow ? -residualRowLookup.a : 0, b: residualIncludedNow ? -residualRowLookup.b : 0, lowerBetter: false },
{ label: L("Total TCO", "Total TCO"), a: totalA, b: totalB, lowerBetter: true, isTotal: true },
];
const sbsRows = sbsRowsBase.map(r => {
const diff = Math.abs(r.a - r.b);
const base = Math.max(r.a, r.b);
const pct = base > 0 ? (diff / base) * 100 : 0;
const better = r.a === r.b ? null : (r.lowerBetter ? (r.a < r.b ? "A" : "B") : (r.a > r.b ? "A" : "B"));
return { ...r, diff, pct, better };
});
const aLeads = sbsRows.filter(r => !r.isTotal && r.better === "A");
const bLeads = sbsRows.filter(r => !r.isTotal && r.better === "B");
const cell = (v, isResidual, isWinCol) => (
{/* Result sanity guard (v1.7.5) -- see checkResultSanity() in data.jsx.
A class of bug no test suite catches because it only manifests on
a specific real input combination; surfaced visibly here, not
just logged to console, since this is what a customer would see. */}
{sanityIssues.length > 0 && (
{L("Customer Total Savings", "Penghematan Total Pelanggan")}
{L("B vs A · negative = B costs the customer more than A", "B vs A · negatif = B lebih mahal bagi pelanggan dari A")}
⏱
{paybackBvA}
{L("Payback Period", "Periode Balik Modal")}
{L("B vs A · time for B's extra upfront cost (if any) to be recovered by B's lower running cost", "B vs A · waktu pengembalian biaya awal tambahan B (jika ada) melalui biaya operasional B yang lebih rendah")}
{L("B vs A · depreciation + maintenance per unit", "B vs A · depresiasi + perawatan per unit")}
{/* Unit economics (v1.6) — always shown, powertrain-aware. All-in and
ton-km rows are directly comparable A vs B; native energy unit
(Rp/L vs Rp/kWh) is not — it's shown per-vehicle in its own unit. */}
{L("B vs A · customer's total payment ÷ lifetime km — directly comparable", "B vs A · total bayar pelanggan ÷ km seumur hidup — dapat dibandingkan langsung")}
{L("B vs A · 0 if no bucket is VKTR-borne", "B vs A · 0 jika tak ada kelompok ditanggung VKTR")}
)}
{/* v1.7.7: Customer/VKTR expense-bearing split -- who is financially
exposed to which cost bucket, per vehicle. See Screen 5 -> Expense
Bucket Toggle to change the split. */}
{bmA && bmB && (
{L("Customer vs. VKTR — Who Bears What", "Pelanggan vs. VKTR — Siapa Menanggung Apa")}
)}
{/* v1.7.7 Wave 3: Ritase / charging-queue simulation (§7.10) -- EV-side
only, null when neither A nor B is EV or fleet/sizing inputs are
incomplete. Purely operational visualization, does not affect TCO
figures above. */}
{chargingSim && (() => {
const rc = chargingSim.ritaseCycle;
return (
{fmt.num(chargingSim.fleetSize)} {L("units total", "total unit")}
{chargingSim.stats.groupGateViolated && (
<> · Fleet & Charging).`,
`Usulan ${rc.PZ_TG} grup melebihi ${rc.Z_TPG} slot yang muat dalam satu siklus ${(rc.CC/60).toFixed(1)} jam -- disesuaikan otomatis ke ${rc.Z_TG}. Kurangi usulan jumlah grup, gunakan shift pengisian (SS) lebih pendek, atau tambah siklus (Layar 4 -> Armada & Pengisian).`)} />
)}
);
})()}
{/* v1.8 (2026-07-17): Day-1 ramp-up (§10.8 CALCULATION_ENGINE.md) --
groups can't all begin their first drive stint simultaneously (or
they'd all need to charge at once, defeating the sequential-slot
stagger), so each group's first-ever departure is delayed by
(groupIndex-1) x SS to seed the rotation. Day 1 only: fleet-wide
ritase/payload is reduced vs. steady state; Day 2 onward every
group has completed one staggered entry and the fleet runs the
steady-state Z_DR/TP_D figures every day thereafter. One-time
depot-startup fact, not a recurring year-over-year pattern -- does
not touch the multi-year cumulative chart above. */}
{chargingSim && chargingSim.ritaseCycle && chargingSim.ritaseCycle.Z_TG > 1 && (() => {
const rc = chargingSim.ritaseCycle;
const rampPct = rc.steady.fleetRitase > 0 ? (rc.day1.fleetRitase / rc.steady.fleetRitase) * 100 : 100;
return (
{L("Day 1 Ramp-Up vs. Steady State", "Ramp-Up Hari 1 vs. Kondisi Stabil")}
{leadTimeA.total != null && leadTimeB.total != null && (
leadTimeA.total === leadTimeB.total
? L(`${vA.name} and ${vB.name} have the same total lead time.`, `${vA.name} dan ${vB.name} memiliki total lead time yang sama.`)
: leadTimeA.total < leadTimeB.total
? L(`Vehicle A (${vA.name}) has a faster total lead time — ${fmt.num(Math.round(leadTimeB.total - leadTimeA.total))} days shorter than Vehicle B.`, `Kendaraan A (${vA.name}) memiliki total lead time lebih cepat — ${fmt.num(Math.round(leadTimeB.total - leadTimeA.total))} hari lebih singkat dari Kendaraan B.`)
: L(`Vehicle B (${vB.name}) has a faster total lead time — ${fmt.num(Math.round(leadTimeA.total - leadTimeB.total))} days shorter than Vehicle A.`, `Kendaraan B (${vB.name}) memiliki total lead time lebih cepat — ${fmt.num(Math.round(leadTimeA.total - leadTimeB.total))} hari lebih singkat dari Kendaraan A.`)
)}
{(leadTimeA.total == null || leadTimeB.total == null) &&
L("Lead time unavailable for one or both vehicles.", "Lead time tidak tersedia untuk satu atau kedua kendaraan.")}
{L(`Fleet size used: ${s.fleetSize || 0} units`, `Jumlah armada yang digunakan: ${s.fleetSize || 0} unit`)}
{fmt.num(Math.round(s.depotMetrics.planSummary?.trafoKVA ?? s.depotMetrics.trafoKVA ?? 0))} kVA
{L("Site Area", "Luas Lokasi")}
{fmt.num(s.depotMetrics.siteArea ?? 0)} m²
{L("Depot CAPEX (in TCO scope)", "CAPEX Depot (lingkup TCO)")}
{fmt.rp(infraGrandTotal)}
{/* v1.7.8: the excluded-CAPEX and undersized-provisioning warnings
that used to sit here are gone -- see the matching removal note
in screens.jsx's Tab6DepotDesign for why. */}
{L("Cost Distribution per Vehicle", "Distribusi Biaya per Kendaraan")}
{/* E: Annual chart */}
{L("Annual OPEX (IDR Billion)", "Biaya Operasional per Tahun (Miliar IDR)")}
{vA.name}
{vB.name}
{/* E2: Cumulative total project cost chart -- v1.7.12: now the
bucket-aware CUSTOMER payment stream (bmA/bmB.customerCumulative,
computeExpenseBuckets/data.jsx) when both vehicles resolve a
bucket model, matching the Cost/km headline's basis -- not the
raw ownership CAPEX+OPEX total regardless of who bears it. Falls
back to the raw R.cumulativeA/B (pre-v1.7.12 behavior) only if
the bucket model can't resolve for some reason. */}
{(() => {
const useCustomerCumulative = !!(bmA && bmB);
const cumA = useCustomerCumulative ? bmA.customerCumulative : R.cumulativeA;
const cumB = useCustomerCumulative ? bmB.customerCumulative : R.cumulativeB;
const hasSubscription = useCustomerCumulative && (bmA.subscriptionAnnual > 0 || bmB.subscriptionAnnual > 0);
return (
);
})()}
{/* C3+F1.5+F2: Key Takeaways (v1.7.8: fused with Cost Segment
Leadership + Decision Points into one compact bullet card, per
Rija's explicit request to shorten Tab 1 -- same underlying data
(aLeads/bLeads/biggestDriver/paybackWinnerText/co2Winner), just
condensed to one line each instead of a full sentence, and the
IRR-vs-WACC hurdle-rate verdict leads the card as the headline
"is this worth it" line. */}
📌 {L("Key Takeaways", "Poin-Poin Utama")}
{hasIrr && (
{irrClearsWacc ? "✅" : "⚠️"}{" "}
{irrClearsWacc
? L(`IRR ${irrText} clears your ${waccPct}% WACC hurdle — this switch is expected to create value.`,
`IRR ${irrText} melampaui ambang WACC ${waccPct}% Anda — perpindahan ini diperkirakan menciptakan nilai.`)
: L(`IRR ${irrText} is below your ${waccPct}% WACC hurdle — this switch may not create value at your cost of capital.`,
`IRR ${irrText} di bawah ambang WACC ${waccPct}% Anda — perpindahan ini mungkin tidak menciptakan nilai pada biaya modal Anda.`)}
{/* Total Lead Time detail (v1.7.6) — per-phase breakdown for real-PMO-data
vehicles; a competitor/no-data side shows only its estimated total,
never fabricated phase numbers. */}
{L("Total (in TCO scope)", "Total (dalam lingkup TCO)")}
{fmt.rp(s.depotBom.tcoCapex)}
{fmt.rp(s.depotBom.tcoOpex)}
{L("\"In TCO scope\" reflects which Depot Design categories are toggled on for TCO in the depot tool's own BOM/Cost tab (defaults to charging equipment only).",
"\"Dalam lingkup TCO\" mencerminkan kategori Desain Depot mana yang diaktifkan untuk TCO di tab BOM/Cost milik alat depot sendiri (default hanya peralatan pengisian).")}
))}
{/* C6b: Maintenance Breakdown (v1.5) — same per-part table as Screen 2's Audit tab, shown here too so the Results screen doesn't require flipping back to audit it */}
{(Rdefault.yearlyA.adblue.some(v => v > 0) || Rdefault.yearlyB.adblue.some(v => v > 0)) && (
)}
{(Rdefault.yearlyA.insurance.some(v => v > 0) || Rdefault.yearlyB.insurance.some(v => v > 0)) && (
)}
{/* C6e: CO2 / Emissions Breakdown (v1.8) — the CO2 Reduction KPI had
zero audit trail anywhere in the platform before this; itemizes
the exact energy consumption, emission factor, and (opt-in)
embodied manufacturing CO2 driving that number. */}
{L("Life-Cycle CO2 (operational + embodied)", "CO2 Siklus Hidup (operasional + tertanam)")}
{fmt.num(Math.round(R.lifeCycleCo2A))} t
{fmt.num(Math.round(R.lifeCycleCo2B))} t
{L("Carbon Payback Distance", "Jarak Balik Modal Karbon")}
{R.carbonPaybackKm != null
? L(`${fmt.num(Math.round(R.carbonPaybackKm))} km — after this distance, the lower-CO2/km vehicle's operational advantage offsets its embodied manufacturing footprint.`,
`${fmt.num(Math.round(R.carbonPaybackKm))} km — setelah jarak ini, keunggulan operasional kendaraan CO2/km lebih rendah mengimbangi jejak manufaktur tertanamnya.`)
: L("No payback under these inputs — the EV's operational CO2/km is not lower than the ICE's, so its embodied manufacturing footprint is never offset.",
"Tidak ada balik modal dengan input ini — CO2/km operasional EV tidak lebih rendah dari ICE, sehingga jejak manufaktur tertanamnya tidak pernah terimbangi.")}
)}
{/* C7: Budget vs. Actual (v1.3, only if budget cap set) — uses Depot Design's total when active */}
{(depotActive || (sizing && capex)) && s.infraBudgetCap != null && (
{L("Budget vs. Actual", "Anggaran vs. Realisasi")}
