SuiteScript 2.1 Suitelet Form Generator for NetSuite

/**
 * @NApiVersion 2.1
 * @NScriptType Suitelet
 * @NModuleScope SameAccount
 */
define(['N/ui/serverWidget', 'N/query', 'N/log'], (serverWidget, query, log) => {
  const FORM_TITLE = 'Work Order Release';
  // id|TYPE|Label|source ; separated. TYPE is a serverWidget.FieldType key.
  const FIELD_SPEC = 'custpage_location|SELECT|Location|location;custpage_from|DATE|Due From|';
  const PARAM_FIELD = 'custpage_location';
  const QUERY_TEXT = "SELECT t.id, t.tranid, BUILTIN.DF(t.status) AS status, t.trandate FROM transaction t INNER JOIN transactionline tl ON tl.transaction = t.id AND tl.mainline = 'T' WHERE t.type = 'WorkOrd' AND tl.location = ? ORDER BY t.id";
  const SUBMIT_LABEL = 'Show work orders';
  const ADD_SUBLIST = 'Yes' === 'Yes';
  const CLIENT_SCRIPT_PATH = '[Client script path (optional)]';

  const buildForm = (values) => {
    const form = serverWidget.createForm({ title: FORM_TITLE });
    FIELD_SPEC.split(';').filter((s) => s.trim()).forEach((spec) => {
      const [id, type, label, source] = spec.split('|').map((p) => (p || '').trim());
      const options = { id: id, type: serverWidget.FieldType[type], label: label };
      if (source) options.source = source;
      const field = form.addField(options);
      if (values && values[id]) field.defaultValue = values[id];
    });
    form.addSubmitButton({ label: SUBMIT_LABEL });
    if (CLIENT_SCRIPT_PATH) form.clientScriptModulePath = CLIENT_SCRIPT_PATH;
    return form;
  };

  const addResults = (form, rows) => {
    const sublist = form.addSublist({
      id: 'custpage_results',
      type: serverWidget.SublistType.LIST,
      label: 'Results (' + rows.length + ')'
    });
    if (rows.length === 0) return;
    const keys = Object.keys(rows[0]);
    keys.forEach((key) => {
      sublist.addField({ id: 'custpage_col_' + key, type: serverWidget.FieldType.TEXT, label: key });
    });
    rows.forEach((row, line) => {
      keys.forEach((key) => {
        const value = row[key];
        // setSublistValue rejects empty values, so skip them
        if (value !== null && value !== undefined && value !== '') {
          sublist.setSublistValue({ id: 'custpage_col_' + key, line: line, value: String(value) });
        }
      });
    });
  };

  const onRequest = (context) => {
    if (context.request.method === 'GET') {
      context.response.writePage(buildForm(null));
      return;
    }
    const params = context.request.parameters;
    const form = buildForm(params);
    const paramValue = params[PARAM_FIELD];
    if (ADD_SUBLIST && paramValue) {
      const rows = query.runSuiteQL({ query: QUERY_TEXT, params: [paramValue] }).asMappedResults();
      log.audit({ title: 'Suitelet query', details: rows.length + ' rows for ' + PARAM_FIELD + '=' + paramValue });
      addResults(form, rows.slice(0, 1000));
    }
    context.response.writePage(form);
  };

  return { onRequest };
});