R31802A

-- ============================================================
-- Program: R31802A Manufacturing Accounting Journal Entries — the batch job that turns unaccounted work-in-process and completion units into G/L journal entries and updates production cost records.
-- Purpose: Manufacturing Accounting Journal Entries — the batch job that turns unaccounted work-in-process and completion units into G/L journal entries and updates production cost records. — auto-generated boilerplate from program-table-map
-- Grain  : F0911 × F3102, F3111, F3112, F4801 — 1:N joins yield one row per detail line
-- Tables : F0911, F3102, F3111, F3112, F4801
-- Notes  : Auto-generated skeleton. Julian dates are converted to DATE and implied-decimal amounts are scaled (verify decimals in F9210). Audit columns (…USER/…PID/…UPMJ) are omitted — see the quirks guide. Set catalog/schema to your Unity Catalog location; fill remaining placeholders (<...>) for your tenant.
-- ============================================================
SELECT
  h.GLDCT AS "Document type of the journal entry (JE, PV, RI, etc.).",
  h.GLDOC AS "Document number of the journal entry.",
  h.GLKCO AS "Company that assigned the document number (key company).",
  CASE WHEN h.GLDGJ IS NULL OR h.GLDGJ = 0 THEN NULL ELSE DATE_ADD(MAKE_DATE(1900 + CAST(h.GLDGJ AS INT) DIV 1000, 1, 1), CAST(h.GLDGJ AS INT) % 1000 - 1) END AS "G/L date driving the fiscal period the line posts to.",  -- CYYDDD Julian → DATE
  h.GLJELN AS "Line number within the journal entry.",
  h.GLEXTL AS "Line extension code completing the unique key.",
  h.GLLT AS "Ledger type the line belongs to (AA actual, CA foreign currency, etc.).",
  f.IGDOCO AS "Work order number the cost row belongs to.",
  f.IGITM AS "Short item number the costs apply to — the parent on parent rows, the component on child rows.",
  f.IGCOST AS "Cost component code (A1 material, B1 labor, C-range overheads, etc.) that this row's buckets belong to.",
  f.IGPART AS "Parent/child flag separating the ordered item's cost rows from its components' rows.",
  TRIM(f.IGMCU) AS "Work center (business unit) the cost row is attributed to; part of the unique key.",
  f3.WMUKID AS "Internal unique key — the table's single-column primary key; carries no business meaning",
  f31.WLDOCO AS "Work order number — join to F4801; part of the composite primary key",
  TRIM(f31.WLMCU) AS "Work center business unit performing the operation — part of the composite primary key; right-justified 12-character",
  f31.WLOPSQ / POWER(10, 2) AS "Operation sequence number — orders the routing steps and is the join target for F3111 components; part of the primary key; 2 implied decimals (op 10 stored as 1000)",  -- implied decimals: 2 (verify in F9210)
  f31.WLOPSC AS "Operation type code — part of the primary key; distinguishes duplicate sequence numbers",
  f4.WADOCO AS "Work order number — the single primary key; join target for F3111 parts list, F3112 routing, and F4801T tag rows"
FROM <catalog>.<schema_data>.f0911 h
LEFT JOIN <catalog>.<schema_data>.f3102 f
  ON 1 = 1  -- TODO: define join condition (no shared aliases detected)
LEFT JOIN <catalog>.<schema_data>.f3111 f3
  ON 1 = 1  -- TODO: define join condition (no shared aliases detected)
LEFT JOIN <catalog>.<schema_data>.f3112 f31
  ON 1 = 1  -- TODO: define join condition (no shared aliases detected)
LEFT JOIN <catalog>.<schema_data>.f4801 f4
  ON 1 = 1  -- TODO: define join condition (no shared aliases detected)
ORDER BY h.GLDCT;