P03B102

-- ============================================================
-- Program: P03B102 Standard Receipts Entry — the screen where cash receipts are entered and applied against open invoices, handling short pays, chargebacks, and unearned discounts.
-- Purpose: Standard Receipts Entry — the screen where cash receipts are entered and applied against open invoices, handling short pays, chargebacks, and unearned discounts. — auto-generated boilerplate from program-table-map
-- Grain  : F03B13 × F03B14, F03B11, F03012, F0911 — 1:N joins yield one row per detail line
-- Tables : F03B13, F03B14, F03B11, F03012, F0911
-- 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.RYPYID AS "System-assigned payment ID — the key that receipt detail rows hang off",
  h.RYALPH AS "Customer name captured at entry, handy for quick lookups without joining F0101",
  f.RZRC5 AS "Line number within the receipt — makes each application row unique",
  f0.RPDOC AS "Invoice document number",
  f0.RPDCT AS "Invoice document type (RI standard invoice, RM credit memo, RU unapplied cash, etc.)",
  f0.RPKCO AS "Document company that owns the invoice number sequence",
  f0.RPSFX AS "Pay item — one invoice can split into multiple pay items with their own terms",
  f03.AIAN8 AS "Customer address book number; join to F0101 for name and to F03B11 for invoices",
  f03.AICO AS "Company this customer record applies to; company 00000 holds the default line-of-business record",
  f09.GLDCT AS "Document type of the journal entry (JE, PV, RI, etc.).",
  f09.GLDOC AS "Document number of the journal entry.",
  f09.GLKCO AS "Company that assigned the document number (key company).",
  CASE WHEN f09.GLDGJ IS NULL OR f09.GLDGJ = 0 THEN NULL ELSE DATE_ADD(MAKE_DATE(1900 + CAST(f09.GLDGJ AS INT) DIV 1000, 1, 1), CAST(f09.GLDGJ AS INT) % 1000 - 1) END AS "G/L date driving the fiscal period the line posts to.",  -- CYYDDD Julian → DATE
  f09.GLJELN AS "Line number within the journal entry.",
  f09.GLEXTL AS "Line extension code completing the unique key.",
  f09.GLLT AS "Ledger type the line belongs to (AA actual, CA foreign currency, etc.)."
FROM <catalog>.<schema_data>.f03b13 h
LEFT JOIN <catalog>.<schema_data>.f03b14 f
  ON f.RZPYID = h.RYPYID
LEFT JOIN <catalog>.<schema_data>.f03b11 f0
  ON 1 = 1  -- TODO: define join condition (no shared aliases detected)
LEFT JOIN <catalog>.<schema_data>.f03012 f03
  ON 1 = 1  -- TODO: define join condition (no shared aliases detected)
LEFT JOIN <catalog>.<schema_data>.f0911 f09
  ON 1 = 1  -- TODO: define join condition (no shared aliases detected)
ORDER BY h.RYPYID;